Deck 1AJ Part 001

214 Modifications

Seq #  *Modification Id* Act 
----------------------------+
01266  M00S00872.1aj     +++|
01267  M00S00873.1aj     +++|
01268  M00S00874.1aj     +++| PRS      SUBR               ENTRY/EXIT
01269  M00S00875.1aj     +++|          RJM    IFP         INITIALIZE *COMPGFP*

Seq #  *Modification Id* Act 
----------------------------+
01270  M01S00003.1aj29   +++|          RJM    CJS         CHECK JOB STATUS
01271  M00S00876.1aj     +++|          LDD    CP          READ CONTROL POINT STATUS
01272  M00S00877.1aj     +++|          ADN    STSW
01273  M00S00878.1aj     +++|          CRD    CM
01274  M00S00879.1aj     +++|          ADK    EOJW-STSW   READ END OF JOB TERMINATION WORD
01275  M00S00880.1aj     +++|          CRD    CN

Seq #  *Modification Id* Act 
----------------------------+
01276  M01S00881.242l642 ---|          ADK    EECW-EOJW   READ ERROR CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
01277  M01S00014.242l642 +++|          ADK    FLSW-EOJW
01278  M01S00015.242l642 +++|          CRD    AB
01279  M01S00016.242l642 +++|          ADK    EECW-FLSW
01280  M00S00882.1aj     +++|          CRD    T1

Seq #  *Modification Id* Act 
----------------------------+
01281  M02S00016.v23l617 ---|          ADK    CSPW-EECW   READ CONTROL STATEMENT POINTERS

Seq #  *Modification Id* Act 
----------------------------+
01282  M01S00043.v23l617 +++|          ADK    CSPW-EECW   READ COMMAND POINTERS

Seq #  *Modification Id* Act 
----------------------------+
01283  M01S00017.ns22000 +++|          CRD    SP

Seq #  *Modification Id* Act 
----------------------------+
01284  M01S00883.1aj29   ---|          ADK    TFSW-EECW   READ EJT ORDINAL WORD
01285  M01S00884.1aj29   ---|          CRD    AB
01286  M01S00885.1aj29   ---|          LDD    AB
01287  M01S00886.1aj29   ---|          NJN    PRS2        IF EJT ORDINAL IS PRESENT
01288  M01S00887.1aj29   ---| PRS1     MONITOR  HNGM
01289  M01S00888.1aj29   ---|          UJN    PRS1        HANG PP
01290  M01S00889.1aj29   ---|
01291  M01S00890.1aj29   ---| PRS2     STD    JO          SAVE EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01292  M01S00891.242l642 ---|          LDD    CM          SET JOB ACTIVITY

Seq #  *Modification Id* Act 
----------------------------+
01293  M01S00017.242l642 +++|          LDD    AB
01294  M01S00018.242l642 +++|          NJN    PRS0        IF NFL ASSIGNED
01295  M01S00019.242l642 +++|          STM    ENJB
01296  M01S00020.242l642 +++|          AOM    ADJC
01297  M01S00021.242l642 +++| PRS0     LDD    CM          SET JOB ACTIVITY
01298  M00S00892.1aj     +++|          SHN    -10
01299  M00S00893.1aj     +++|          STD    FS
01300  M00S00894.1aj     +++|          LDD    CM+4        SET RECALL/TAPE ACTIVITY
01301  M00S00895.1aj     +++|          SHN    -4
01302  M00S00896.1aj     +++|          LPN    17
01303  M00S00897.1aj     +++|          RAD    FS
01304  M00S00898.1aj     +++|          LDD    CM+2        SET ROLLOUT FLAG
01305  M00S00899.1aj     +++|          LPN    1
01306  M00S00900.1aj     +++|          STD    RO
01307  M00S00901.1aj     +++|          LDD    CN          SET JOB TERMINATION FLAGS

Seq #  *Modification Id* Act 
----------------------------+
01308  M02S00018.241l630 ---|          LPC    3777

Seq #  *Modification Id* Act 
----------------------------+
01309  M01S00001.241l630 +++|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
01310  M01S00022.242l642 +++|          LPN    37
01311  M00S00902.1aj     +++|          STM    JTFG

Seq #  *Modification Id* Act 
----------------------------+
01312  M01S00903.241l630 ---|          SHN    0-11        SET JOB TERMINATION OPTION

Seq #  *Modification Id* Act 
----------------------------+
01313  M01S00002.241l630 +++|          SHN    0-11+6      SET JOB TERMINATION OPTION

Seq #  *Modification Id* Act 
----------------------------+
01314  M01S00023.242l642 +++|          LPN    3

Seq #  *Modification Id* Act 
----------------------------+
01315  M01S00904.241l630 ---|          LPN    3
01316  M00S00905.1aj     +++|          STM    JTOP

Seq #  *Modification Id* Act 
----------------------------+
01317  M01S00906.1aj29   ---|          LDD    AB          SET EJT ORDINAL
01318  M01S00907.1aj29   ---|          STD    JO

Seq #  *Modification Id* Act 
----------------------------+
01319  M01S00908.ns22000 ---|          RJM    SEF         SET ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01320  M02S00019.ns2323  ---|          LDD    SP
01321  M02S00020.ns2323  ---|          SHN    21-4
01322  M02S00021.ns2323  ---|          PJN    PRS1        IF LOGOUT EPILOGUE NOT EXECUTING
01323  M02S00022.ns2323  ---|          LDN    SYET        SET TO FORCE LOGOUT IF EPILOGUE ABORT
01324  M02S00023.ns2323  ---|          STM    ENJA

Seq #  *Modification Id* Act 
----------------------------+
01325  M01S00022.ns2323  +++|          LDD    SP+3        CHECK COMMAND BUFFER
01326  M01S00023.ns2323  +++|          LMD    SP+4
01327  M01S00024.ns2323  +++|          NJN    PRS0.1      IF NOT EMPTY
01328  M01S00025.ns2323  +++|          LDD    SP+1        CHECK RECORD STATUS
01329  M01S00026.ns2323  +++|          SHN    21-13
01330  M01S00027.ns2323  +++|          PJN    PRS0.1      IF NOT EOR
01331  M01S00028.ns2323  +++|          LDD    CP          CHECK FOR *TCS* EXECUTE COMMAND
01332  M01S00029.ns2323  +++|          ADK    RFCW
01333  M01S00030.ns2323  +++|          CRD    CN
01334  M01S00031.ns2323  +++|          LDD    CN+3
01335  M01S00032.ns2323  +++|          SCN    77
01336  M01S00033.ns2323  +++|          ADD    CN+2
01337  M01S00034.ns2323  +++|          ZJN    PRS1        IF NOT EXECUTE COMMAND FROM CM
01338  M01S00035.ns2323  +++| PRS0.1   AOM    ADJB        SET COMMANDS PENDING

Seq #  *Modification Id* Act 
----------------------------+
01339  M01S00001.1aj96   +++| PRS1     RJM    SEF         SET ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01340  M01S00009.1aj116  +++|          LDD    SP          SET CHARGE REQUIRED STATUS
01341  M01S00010.1aj116  +++|          LPN    4
01342  M01S00011.1aj116  +++|          STM    CRQF

Seq #  *Modification Id* Act 
----------------------------+
01343  M01S00054.253l688 +++|          RJM    PQF         PROCESS QUEUED FUNCTIONS

Seq #  *Modification Id* Act 
----------------------------+
01344  M01S00002.1aj96   +++|          LDN    0
01345  M01S00003.1aj96   +++|          STD    CM+1
01346  M01S00004.1aj96   +++|          LDD    CP
01347  M01S00005.1aj96   +++|          ADN    SRUW
01348  M01S00006.1aj96   +++|          CRD    AB
01349  M01S00007.1aj96   +++|          LDD    AB
01350  M01S00008.1aj96   +++|          SHN    21-5
01351  M01S00009.1aj96   +++|          PJN    PRS2        IF IGNORE RESOURCE LIMITS NOT SET
01352  M01S00010.1aj96   +++|          LDD    EF          CHECK FOR RESOURCE LIMIT ERROR
01353  M01S00011.1aj96   +++|          LMN    TLET
01354  M01S00012.1aj96   +++|          ZJP    PRS2.2      IF TIME LIMIT
01355  M01S00013.1aj96   +++|          LMN    SRET&TLET
01356  M01S00014.1aj96   +++|          ZJP    PRS2.2      IF SRU LIMIT

Seq #  *Modification Id* Act 
----------------------------+
01357  M01S00001.ns2266  +++|
01358  M01S00002.ns2266  +++|*         IF EXTENDED REPRIEVE + *SSJ=* + INTERRUPT PROCESSOR ACTIVE,
01359  M01S00003.ns2266  +++|*         OR IF OVERRIDE REQUIRED SET, THE JOB MAY ONLY BE DROPPED

Seq #  *Modification Id* Act 
----------------------------+
01360  M02S00004.242l642 ---|*         VIA *ORET*.  ERROR FLAGS *FSET*, *ODET*, *OKET*, *RRET*,

Seq #  *Modification Id* Act 
----------------------------+
01361  M01S00024.242l642 +++|*         VIA *ORET*.  ERROR FLAGS *ODET*, *OKET*, *RRET*,

Seq #  *Modification Id* Act 
----------------------------+
01362  M01S00005.ns2266  +++|*         *TIET* AND *TAET* WILL BE IGNORED.
01363  M01S00006.ns2266  +++|

Seq #  *Modification Id* Act 
----------------------------+
01364  M02S00024.1aj96   ---| PRS1     RJM    SEF         SET ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01365  M03S00001.1aj96   ---|          LDD    EF          CHECK FOR OPERATOR DROP
01366  M03S00002.1aj96   ---|          LMK    ODET
01367  M03S00003.1aj96   ---|          ZJN    PRS2.1      IF *ODET* ERROR FLAG
01368  M03S00004.1aj96   ---|          LMK    OKET&ODET
01369  M03S00005.1aj96   ---|          NJP    PRS2.3      IF NOT *OKET* ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01370  M02S00007.1aj96   ---|          LDD    EF          CHECK ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01371  M01S00015.1aj96   +++| PRS2     LDD    EF          CHECK ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01372  M02S00008.242l642 ---|          LMK    FSET
01373  M02S00009.242l642 ---|          ZJN    PRS2.1      IF *FSET* ERROR FLAG
01374  M02S00010.242l642 ---|          LMK    ODET&FSET

Seq #  *Modification Id* Act 
----------------------------+
01375  M01S00025.242l642 +++|          LMK    ODET

Seq #  *Modification Id* Act 
----------------------------+
01376  M01S00011.ns2266  +++|          ZJN    PRS2.1      IF *ODET* ERROR FLAG
01377  M01S00012.ns2266  +++|          LMK    OKET&ODET
01378  M01S00013.ns2266  +++|          ZJN    PRS2.1      IF *OKET* ERROR FLAG
01379  M01S00014.ns2266  +++|          LMK    RRET&OKET
01380  M01S00015.ns2266  +++|          ZJN    PRS2.1      IF *RRET* ERROR FLAG
01381  M01S00016.ns2266  +++|          LMK    TIET&RRET
01382  M01S00017.ns2266  +++|          ZJN    PRS2.1      IF *TIET* ERROR FLAG
01383  M01S00018.ns2266  +++|          LMK    TAET&TIET
01384  M01S00019.ns2266  +++|          NJP    PRS2.3      IF NOT *TAET* ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01385  M02S00006.1aj96   ---| PRS2.1   STD    CM+1
01386  M02S00007.1aj96   ---|          LDD    CP          CHECK OVERRIDE REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
01387  M01S00016.1aj96   +++| PRS2.1   LDD    CP          CHECK OVERRIDE REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
01388  M01S00008.1aj23   +++|          ADN    SNSW
01389  M01S00009.1aj23   +++|          CRD    AB
01390  M01S00010.1aj23   +++|          LDD    AB
01391  M01S00011.1aj23   +++|          SHN    21-11
01392  M01S00012.1aj23   +++|          MJN    PRS2.2      IF OVERRIDE REQUIRED SET
01393  M01S00013.1aj23   +++|          LDD    T1
01394  M01S00014.1aj23   +++|          SHN    21-12
01395  M01S00015.1aj23   +++|          PJN    PRS2.3      IF EXTENDED REPRIEVE NOT ACTIVE
01396  M01S00016.1aj23   +++|          SHN    21-11-21+12
01397  M01S00017.1aj23   +++|          PJN    PRS2.3      IF INTERRUPT PROCESSOR NOT ACTIVE
01398  M01S00018.1aj23   +++|          LDD    CP
01399  M01S00019.1aj23   +++|          ADK    SEPW
01400  M01S00020.1aj23   +++|          CRD    AB
01401  M01S00021.1aj23   +++|          LDD    AB
01402  M01S00022.1aj23   +++|          SHN    21-2
01403  M01S00023.1aj23   +++|          PJN    PRS2.3      IF NOT *SSJ=*

Seq #  *Modification Id* Act 
----------------------------+
01404  M02S00024.ns2266  ---|
01405  M02S00025.ns2266  ---|*         EXTENDED REPRIEVE, *SSJ=*, INTERRUPT PROCESSOR ACTIVE, THIS
01406  M02S00026.ns2266  ---|*         CONDITION REQUIRES AN OVERRIDE TO DROP THE JOB.
01407  M02S00027.ns2266  ---|

Seq #  *Modification Id* Act 
----------------------------+
01408  M02S00028.1aj23a  ---| PRS2.2   MONITOR  CEFM      CLEAR ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01409  M01S00001.1aj23a  +++| PRS2.2   LDD    FL
01410  M01S00002.1aj23a  +++|          ZJN    PRS2.3      IF NO FL ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
01411  M01S00001.1aj82   +++|          LDN    **          CHECK FOR PRE-INITIAL JOB STATUS
01412  M01S00002.1aj82   +++| PRSA     EQU    *-1         (JOB STATUS SET BY *CJS*)
01413  M01S00003.1aj82   +++|          LMK    PRJS*2
01414  M01S00004.1aj82   +++|          ZJN    PRS2.3      IF PRE-INITIAL JOB STATUS

Seq #  *Modification Id* Act 
----------------------------+
01415  M01S00003.1aj23a  +++|          MONITOR  CEFM      CLEAR ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01416  M01S00029.1aj23   +++|          MONITOR  RCPM      REQUEST THE CPU
01417  M01S00030.1aj23   +++|          LJM    DPP         DROP PP
01418  M00S00909.1aj     +++|
01419  M00S00910.1aj     +++|*         SET REPRIEVE STATUS.
01420  M00S00911.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
01421  M01S00912.1aj23   ---|          LDD    T1          CHECK EXTENDED REPRIEVE ACTIVE

Seq #  *Modification Id* Act 
----------------------------+
01422  M01S00031.1aj23   +++| PRS2.3   LDD    T1          CHECK EXTENDED REPRIEVE ACTIVE
01423  M00S00913.1aj     +++|          SHN    21-12
01424  M00S00914.1aj     +++|          PJN    PRS3        IF NO EXTENDED REPRIEVE

Seq #  *Modification Id* Act 
----------------------------+
01425  M01S00005.1aj98   +++|          AOM    CSRC        INDICATE EXTENDED REPRIEVE PRESENT
01426  M00S00915.1aj     +++|          LDD    T1+1        GET EXTENDED REPRIEVE MASK BITS
01427  M00S00916.1aj     +++|          UJN    PRS5        SET REPRIEVE FLAGS
01428  M00S00917.1aj     +++|
01429  M00S00918.1aj     +++| PRS3     LDD    T1+1
01430  M00S00919.1aj     +++|          SHN    21-13
01431  M00S00920.1aj     +++|          PJN    PRS4        IF POSSIBLE REPRIEVE OPTIONS
01432  M00S00921.1aj     +++|          LDN    0
01433  M00S00922.1aj     +++| PRS4     SHN    -6          SET REPRIEVE ERROR OPTIONS
01434  M00S00923.1aj     +++| PRS5     STD    RF          STORE REPRIEVE FLAGS
01435  M00S00924.1aj     +++|
01436  M00S00925.1aj     +++|*         SET SCP CONNECTION STATUS.
01437  M00S00926.1aj     +++|
01438  M00S00927.1aj     +++|          RJM    SCS         GET SCP CONNECTION STATUS
01439  M00S00928.1aj     +++|          STM    SCAF        STORE SCP ACTIVITY FLAGS
01440  M00S00929.1aj     +++|
01441  M00S00930.1aj     +++|*         SET JOB ORIGIN TYPE AND SERVICE CLASS.
01442  M00S00931.1aj     +++|
01443  M00S00932.1aj     +++|          SFA    EJT,JO      SET EJT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01444  M01S00933.ns22000 ---|          ADK    SCLE        READ SERVICE CLASS WORD
01445  M01S00934.ns22000 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
01446  M01S00025.ns22000 +++|          ADK    SCHE        READ JOB TERMINATION STATUS
01447  M01S00026.ns22000 +++|          CRD    CN

Seq #  *Modification Id* Act 
----------------------------+
01448  M02S00027.1aj58   ---|          ADK    SCLE-SCHE   READ SERVICE CLASS WORD

Seq #  *Modification Id* Act 
----------------------------+
01449  M01S00001.1aj58   +++|          ADK    //SCLE-//SCHE  READ SERVICE CLASS WORD

Seq #  *Modification Id* Act 
----------------------------+
01450  M01S00028.ns22000 +++|          CRD    CM
01451  M01S00029.ns22000 +++|          LDD    CN+2

Seq #  *Modification Id* Act 
----------------------------+
01452  M02S00030.242l642 ---|          SHN    13-12
01453  M02S00031.242l642 ---|          LPC    4000

Seq #  *Modification Id* Act 
----------------------------+
01454  M01S00026.242l642 +++|          LPC    3000

Seq #  *Modification Id* Act 
----------------------------+
01455  M01S00032.ns22000 +++|          RAM    JTFG        SET JOB TERMINATION STATUS
01456  M00S00935.1aj     +++|          LDD    CM          SET JOB ORIGIN TYPE
01457  M00S00936.1aj     +++|          LPN    17
01458  M00S00937.1aj     +++|          STM    JBOT
01459  M00S00938.1aj     +++|          SBN    MXOT        VALIDATE ORIGIN TYPE
01460  M00S00939.1aj     +++|          PJN    PRS7        IF UNIDENTIFIED ORIGIN TYPE
01461  M00S00940.1aj     +++|          LDD    CM          SET JOB SERVICE CLASS
01462  M00S00941.1aj     +++|          SHN    -6
01463  M00S00942.1aj     +++|          STM    JBSC
01464  M00S00943.1aj     +++|          SBK    MXSC        VALIDATE SERVICE CLASS
01465  M00S00944.1aj     +++|          PJN    PRS7        IF UNIDENTIFIED SERVICE CLASS

Seq #  *Modification Id* Act 
----------------------------+
01466  M01S00945.v23l617 ---|          RJM    STS         SET TIMESHARING PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
01467  M01S00044.v23l617 +++|          RJM    STS         SET INTERACTIVE PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
01468  M02S00033.ns2323  ---|          RJM    SCC         SET CHARGE REQUIRED CONTROL

Seq #  *Modification Id* Act 
----------------------------+
01469  M01S00036.ns2323  +++|          RJM    SPF         SET PROLOGUE/EPILOGUE FLAGS
01470  M00S00946.1aj     +++|
01471  M00S00947.1aj     +++|*         EXIT   TO MAIN PROGRAM WITH (A) = PROCESSOR ADDRESS.
01472  M00S00948.1aj     +++|
01473  M00S00949.1aj     +++|          LDD    IR+2        CHECK FUNCTION CODE
01474  M00S00950.1aj     +++|          SBN    FUNCL

Seq #  *Modification Id* Act 
----------------------------+
01475  M01S00951.v23l617 ---|          PJN    PRS7        IF INVALID FUNCTION CODE

Seq #  *Modification Id* Act 
----------------------------+
01476  M01S00045.v23l617 +++|          PJN    PRS7        IF INCORRECT FUNCTION CODE
01477  M00S00952.1aj     +++|          LDM    FUNC,IR+2
01478  M00S00953.1aj     +++| PRS6     LJM    PRSX        RETURN
01479  M00S00954.1aj     +++|
01480  M00S00955.1aj     +++|*         RETURN TERMINATION PROCESSOR ADDRESS IF ERROR.
01481  M00S00956.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
01482  M01S00957.1aj97   ---| PRS7     LDC    TER         SET TERMINATION PROCESSOR ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01483  M01S00001.1aj97   +++| PRS7     LDN    0           SET NO ERROR FLAG
01484  M01S00002.1aj97   +++|          STD    CM+2
01485  M01S00003.1aj97   +++|          LDC    *           SET ADDRESS WHERE ERROR OCCURED
01486  M01S00004.1aj97   +++|          STD    CM+1
01487  M01S00005.1aj97   +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
01488  M01S00006.1aj97   +++|          LDC    TER         SET TERMINATION PROCESSOR ADDRESS
01489  M00S00958.1aj     +++|          UJN    PRS6        RETURN
01490  M00S00959.1aj     +++| FUNC     SPACE  4,10
01491  M00S00960.1aj     +++|**        FUNC - TABLE OF FUNCTION CODE PROCESSORS.
01492  M00S00961.1aj     +++|
01493  M00S00962.1aj     +++|
01494  M00S00963.1aj     +++| FUNC     BSS    0
01495  M00S00964.1aj     +++|          LOC    0
01496  M00S00965.1aj     +++|
01497  M00S00966.1aj     +++|          CON    CSR         *CPUMTR* CALL
01498  M00S00967.1aj     +++|          CON    SCH         SCHEDULER CALL
01499  M00S00968.1aj     +++|          CON    CSR         *DIS* CALL
01500  M00S00969.1aj     +++|          CON    PPC         OTHER PP CALL
01501  M00S00970.1aj     +++|
01502  M00S00971.1aj     +++|          LOC    *O
01503  M00S00972.1aj     +++| FUNCL    EQU    *-FUNC
01504  M00S00973.1aj     +++|          TITLE  OVERLAID PRESET SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
01505  M02S00034.ns2323  ---| SCC      SPACE  4,10
01506  M02S00035.ns2323  ---|**        SCC - SET CHARGE REQUIRED CONTROL FOR PROLOGUE/EPILOGUE.

Seq #  *Modification Id* Act 
----------------------------+
01507  M01S00037.ns2323  +++| SPF      SPACE  4,10
01508  M01S00038.ns2323  +++|**        SPF - SET PROJECT PROLOGUE/EPILOGUE CONTROL FLAGS.

Seq #  *Modification Id* Act 
----------------------------+
01509  M01S00036.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01510  M02S00037.ns2323  ---|*         ENTRY  (EF) = ERROR FLAG.
01511  M02S00038.ns2323  ---|*                (FS) = JOB ACTIVITY FLAG.

Seq #  *Modification Id* Act 
----------------------------+
01512  M01S00039.ns2323  +++|*         EXIT   (PRCF) = CONTROL FLAGS.

Seq #  *Modification Id* Act 
----------------------------+
01513  M01S00039.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01514  M02S00040.ns2323  ---|*         EXIT   CHARGE REQUIRED SET IF CRITERIA MET.
01515  M02S00041.ns2323  ---|*
01516  M02S00042.ns2323  ---|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T1.

Seq #  *Modification Id* Act 
----------------------------+
01517  M01S00040.ns2323  +++|*         USES   T1, CM - CM+4, CN - CN+4.

Seq #  *Modification Id* Act 
----------------------------+
01518  M01S00043.ns22000 +++|
01519  M01S00044.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
01520  M02S00045.ns2323  ---| SCC      SUBR               ENTRY/EXIT
01521  M02S00046.ns2323  ---|          LDD    FS
01522  M02S00047.ns2323  ---|          NJN    SCCX        IF JOB ACTIVITY REMAINS

Seq #  *Modification Id* Act 
----------------------------+
01523  M01S00041.ns2323  +++| SPF      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01524  M01S00048.ns22000 +++|          LDD    CP          READ PROLOGUE/EPILOGUE CONTROL
01525  M01S00049.ns22000 +++|          ADN    EOJW
01526  M01S00050.ns22000 +++|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
01527  M02S00051.ns2323  ---|          ADN    UIDW-EOJW
01528  M02S00052.ns2323  ---|          CRD    AB
01529  M02S00053.ns2323  ---|          ADN    JCDW-UIDW

Seq #  *Modification Id* Act 
----------------------------+
01530  M01S00042.ns2323  +++|          ADN    JCDW-EOJW

Seq #  *Modification Id* Act 
----------------------------+
01531  M01S00054.ns22000 +++|          CRD    CN
01532  M01S00055.ns22000 +++|          LDD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
01533  M02S00056.ns2323  ---|          SHN    -12
01534  M02S00057.ns2323  ---|          ZJN    SCCX        IF NO PROLOGUE OR EPILOGUE ACTIVE

Seq #  *Modification Id* Act 
----------------------------+
01535  M01S00043.ns2323  +++|          SHN    -6
01536  M01S00044.ns2323  +++|          LPN    7
01537  M01S00045.ns2323  +++|          STD    T0
01538  M01S00046.ns2323  +++|          ZJN    SPFX        IF NO CONTROLS ACTIVE
01539  M01S00047.ns2323  +++|          LDD    CN+2        CHECK PROCEDURE NESTING LEVEL
01540  M01S00048.ns2323  +++|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
01541  M01S00058.ns22000 +++|          STD    T1
01542  M01S00059.ns22000 +++|          LDD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
01543  M02S00060.ns2323  ---|          LMD    CN+2
01544  M02S00061.ns2323  ---|          LPC    1777
01545  M02S00062.ns2323  ---|          NJN    SCCX        IF NO PROCEDURE NESTING LEVEL MATCH
01546  M02S00063.ns2323  ---|          SOD    T1
01547  M02S00064.ns2323  ---|          ZJN    SCC0        IF NO CHARGE REQUIRED OPTION
01548  M02S00065.ns2323  ---|          LDD    EF
01549  M02S00066.ns2323  ---|          NJN    SCC1        IF ERROR FLAG SET
01550  M02S00067.ns2323  ---| SCC0     LDD    CM+1
01551  M02S00068.ns2323  ---|          SHN    21-0

Seq #  *Modification Id* Act 
----------------------------+
01552  M03S00069.ns2323  ---|          MJN    SCC3        IF FIRST CONTROL STATEMENT

Seq #  *Modification Id* Act 
----------------------------+
01553  M02S00046.ns2323  ---|          MJN    SCC3        IF FIRST COMMAND

Seq #  *Modification Id* Act 
----------------------------+
01554  M02S00070.ns2323  ---|          LDD    T1
01555  M02S00071.ns2323  ---|          LMN    1
01556  M02S00072.ns2323  ---|          NJN    SCC2        IF NOT *U* CHARGE REQUIRED OPTION
01557  M02S00073.ns2323  ---| SCC1     LDD    AB+3        SET CHARGE REQUIRED
01558  M02S00074.ns2323  ---|          SCN    40
01559  M02S00075.ns2323  ---|          LMN    40
01560  M02S00076.ns2323  ---|          STD    AB+3
01561  M02S00077.ns2323  ---| SCC2     LDN    0           CLEAR CONTROL FLAGS
01562  M02S00078.ns2323  ---|          STD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
01563  M03S00079.ns2323  ---| SCC3     LDD    CM+1        CLEAR FIRST STATEMENT FLAG

Seq #  *Modification Id* Act 
----------------------------+
01564  M02S00047.ns2323  ---| SCC3     LDD    CM+1        CLEAR FIRST COMMAND FLAG

Seq #  *Modification Id* Act 
----------------------------+
01565  M02S00080.ns2323  ---|          SCN    1
01566  M02S00081.ns2323  ---|          STD    CM+1
01567  M02S00082.ns2323  ---|          LDD    CP          WRITE CHARGE REQUIRED CONTROL
01568  M02S00083.ns2323  ---|          ADN    EOJW
01569  M02S00084.ns2323  ---|          CWD    CM
01570  M02S00085.ns2323  ---|          ADN    UIDW-EOJW
01571  M02S00086.ns2323  ---|          CWD    AB
01572  M02S00087.ns2323  ---|          LJM    SCCX        EXIT

Seq #  *Modification Id* Act 
----------------------------+
01573  M01S00049.ns2323  +++|          LPN    77
01574  M01S00050.ns2323  +++|          SBD    T1
01575  M01S00051.ns2323  +++|          PJN    SPF1        IF PROLOGUE OR EPILOGUE *REVERT*
01576  M01S00052.ns2323  +++|          LDM    ADJB
01577  M01S00053.ns2323  +++|          NJN    SPFX        IF PENDING COMMANDS
01578  M01S00054.ns2323  +++| SPF1     LDD    T0          SET OPTION
01579  M01S00055.ns2323  +++|          STM    PRCF
01580  M01S00056.ns2323  +++|          UJN    SPFX        EXIT

Seq #  *Modification Id* Act 
----------------------------+
01581  M01S00004.1aj29   +++| CJS      SPACE  4,10
01582  M01S00005.1aj29   +++|**        CJS - CHECK JOB STATUS FOR EXCEEDED RESOURCE LIMITS.
01583  M01S00006.1aj29   +++|*
01584  M01S00007.1aj29   +++|*         EXIT   (JO) = JOB EJT ORDINAL.
01585  M01S00008.1aj29   +++|*                (JBCS) = JOB CONNECTION STATUS.
01586  M01S00009.1aj29   +++|*                IF RESOURCE LIMITS HAVE BEEN REACHED, THEN -
01587  M01S00010.1aj29   +++|*                  IF INTERACTIVE JOB, ISSUE ROLLOUT REQUEST,
01588  M01S00011.1aj29   +++|*                  ELSE, CHANGE ERROR FLAG IN CP AREA.
01589  M01S00012.1aj29   +++|*
01590  M01S00013.1aj29   +++|*         USES   JO, AB - AB+4, CM - CM+4, CN - CN+4.
01591  M01S00014.1aj29   +++|*
01592  M01S00015.1aj29   +++|*         MACROS MONITOR, SFA.
01593  M01S00016.1aj29   +++|
01594  M01S00017.1aj29   +++|
01595  M01S00018.1aj29   +++| CJS5     MONITOR  HNGM
01596  M01S00019.1aj29   +++|          UJN    CJS5        HANG PP
01597  M01S00020.1aj29   +++|
01598  M01S00021.1aj29   +++| CJS      SUBR               ENTRY/EXIT
01599  M01S00022.1aj29   +++|          LDD    CP          GET RESOURCE LIMIT FLAGS
01600  M01S00023.1aj29   +++|          ADK    STSW
01601  M01S00024.1aj29   +++|          CRD    AB
01602  M01S00025.1aj29   +++|          ADK    SRUW-STSW
01603  M01S00026.1aj29   +++|          CRD    CN
01604  M01S00027.1aj29   +++|          ADK    TFSW-SRUW   GET JOB EJT ORDINAL
01605  M01S00028.1aj29   +++|          CRD    CM
01606  M01S00029.1aj29   +++|          LDD    CM
01607  M01S00030.1aj29   +++|          ZJN    CJS5        IF NO EJT ORDINAL PRESENT
01608  M01S00031.1aj29   +++|          STD    JO          SAVE EJT ORDINAL
01609  M01S00032.1aj29   +++|          SFA    EJT
01610  M01S00033.1aj29   +++|          ADK    JSNE
01611  M01S00034.1aj29   +++|          CRD    CM
01612  M01S00035.1aj29   +++|          LDD    CM+4        GET JOB CONNECTION STATUS
01613  M01S00036.1aj29   +++|          SHN    -7
01614  M01S00037.1aj29   +++|          LPN    17
01615  M01S00038.1aj29   +++|          STM    JBCS        SAVE CONNECTION STATUS

Seq #  *Modification Id* Act 
----------------------------+
01616  M01S00005.1aj82   +++|          LDD    CM+4        SAVE JOB STATUS
01617  M01S00006.1aj82   +++|          LPN    76
01618  M01S00007.1aj82   +++|          RAM    PRSA

Seq #  *Modification Id* Act 
----------------------------+
01619  M01S00039.1aj29   +++|          LDD    AB+1
01620  M01S00040.1aj29   +++|          NJN    CJSX        IF ERROR FLAG SET IN CONTROL POINT AREA
01621  M01S00041.1aj29   +++|          LDD    CN

Seq #  *Modification Id* Act 
----------------------------+
01622  M02S00042.1aj96a  ---|          SHN    0-10
01623  M02S00043.1aj96a  ---|          LPN    5

Seq #  *Modification Id* Act 
----------------------------+
01624  M01S00001.1aj96a  +++|          SHN    21-5
01625  M01S00002.1aj96a  +++|          MJN    CJSX        IF IGNORE RESOURCE LIMITS SET
01626  M01S00003.1aj96a  +++|          LPN    24

Seq #  *Modification Id* Act 
----------------------------+
01627  M01S00044.1aj29   +++|          ZJN    CJSX        IF RESOURCE LIMITS NOT EXCEEDED

Seq #  *Modification Id* Act 
----------------------------+
01628  M02S00045.1aj96a  ---|          LPN    1

Seq #  *Modification Id* Act 
----------------------------+
01629  M01S00004.1aj96a  +++|          LPN    4

Seq #  *Modification Id* Act 
----------------------------+
01630  M01S00046.1aj29   +++|          ZJN    CJS1        IF SRU LIMIT NOT EXCEEDED
01631  M01S00047.1aj29   +++|          LDN    SRET-TLET   SET SRU LIMIT EXCEEDED FLAG
01632  M01S00048.1aj29   +++|          RAM    CJSA
01633  M01S00049.1aj29   +++| CJS1     LDK    ZERL        CLEAR MONITOR REQUEST WORD
01634  M01S00050.1aj29   +++|          CRD    CM
01635  M01S00051.1aj29   +++|
01636  M01S00052.1aj29   +++|*         CHECK FOR INTERACTIVE JOB.
01637  M01S00053.1aj29   +++|
01638  M01S00054.1aj29   +++|          LDM    JBCS        CONNECTION STATUS
01639  M01S00055.1aj29   +++|          LMN    DTCS
01640  M01S00056.1aj29   +++|          ZJN    CJS2        IF DETACHED INTERACTIVE JOB
01641  M01S00057.1aj29   +++|          LMN    OLCS&DTCS
01642  M01S00058.1aj29   +++|          NJN    CJS4        IF NOT INTERACTIVE JOB
01643  M01S00059.1aj29   +++|          LDN    ROSR&ROSU   SELECT *ROCM* SCHEDULER ROLLOUT
01644  M01S00060.1aj29   +++| CJS2     LMN    ROSU        SELECT *ROCM* SUSPEND OPTION
01645  M01S00061.1aj29   +++|          STD    CM+1
01646  M01S00062.1aj29   +++|          MONITOR  ROCM      ISSUE ROLLOUT REQUEST
01647  M01S00063.1aj29   +++| CJS3     LJM    CJSX        RETURN
01648  M01S00064.1aj29   +++|
01649  M01S00065.1aj29   +++| CJS4     LDN    TLET        SET TIME LIMIT ERROR FLAG
01650  M01S00066.1aj29   +++|*         LDN    SRET        (SRU LIMIT ERROR FLAG)
01651  M01S00067.1aj29   +++| CJSA     EQU    *-1
01652  M01S00068.1aj29   +++|          STD    CM+1
01653  M01S00069.1aj29   +++|          MONITOR  CEFM      CHANGE ERROR FLAG
01654  M01S00070.1aj29   +++|          UJN    CJS3        RETURN
01655  M00S00974.1aj     +++| SCS      SPACE  4,10
01656  M00S00975.1aj     +++|**        SCS - SET SCP CONNECTION STATUS.
01657  M00S00976.1aj     +++|*
01658  M00S00977.1aj     +++|*         EXIT   (A) = SCP CONNECTION STATUS FLAG BITS.
01659  M00S00978.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01660  M01S00979.ns2738  ---|*         USES   T8, CW - CW+4, AB - AB+4.
01661  M01S00980.ns2738  ---|*
01662  M01S00981.ns2738  ---|*         MACROS SFA.

Seq #  *Modification Id* Act 
----------------------------+
01663  M01S00004.ns2738  +++|*         USES   T8, CM - CM+4, CW - CW+4, AB - AB+4.
01664  M00S00982.1aj     +++|
01665  M00S00983.1aj     +++|
01666  M00S00984.1aj     +++| SCS      SUBR               ENTRY/EXIT
01667  M00S00985.1aj     +++|
01668  M00S00986.1aj     +++|*         CHECK FOR CONNECTION TO SYSTEM CONTROL POINT.
01669  M00S00987.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
01670  M01S00988.ns2738  ---|          SFA    EJT,JO      SET EJT ADDRESS
01671  M01S00989.ns2738  ---|          ADK    JSNE        READ CONNECTION STATUS WORD
01672  M01S00990.ns2738  ---|          CRD    CW
01673  M01S00991.ns2738  ---|          LDD    CW+4        CHECK SCP CONNECTION BIT
01674  M01S00992.ns2738  ---|          SHN    0-13
01675  M01S00993.ns2738  ---|          STD    T8          SET/CLEAR SCP CONNECTION BIT

Seq #  *Modification Id* Act 
----------------------------+
01676  M01S00994.v22l602 ---|
01677  M01S00995.v22l602 ---|*         DETERMINE IF THIS JOB IS A SCP.
01678  M01S00996.v22l602 ---|
01679  M00S00997.1aj     +++|          LDD    CP          READ SUBSYSTEM ID WORD
01680  M00S00998.1aj     +++|          ADK    JCIW
01681  M00S00999.1aj     +++|          CRD    AB

Seq #  *Modification Id* Act 
----------------------------+
01682  M01S00005.ns2738  +++|          ADK    SEPW-JCIW   READ SPECIAL ENTRY POINTS
01683  M01S00006.ns2738  +++|          CRD    CW
01684  M01S00007.ns2738  +++|          ADK    SSCW-SEPW   READ SCP CONNECTIONS
01685  M01S00008.ns2738  +++|          CRD    CM
01686  M01S00009.ns2738  +++|          LDD    CM
01687  M01S00010.ns2738  +++|          ADD    CM+1
01688  M01S00011.ns2738  +++|          ADD    CM+2
01689  M01S00012.ns2738  +++|          ADD    CM+3
01690  M01S00013.ns2738  +++|          ADD    CM+4
01691  M01S00014.ns2738  +++|          ZJN    SCS0.1      IF NO CONNECTIONS TO SCP
01692  M01S00015.ns2738  +++|          LDN    1           SET CONNECTIONS TO SCP FLAG
01693  M01S00016.ns2738  +++| SCS0.1   STD    T8
01694  M01S00017.ns2738  +++|
01695  M01S00018.ns2738  +++|*         CHECK FOR SCP SUBSYSTEM.
01696  M01S00019.ns2738  +++|
01697  M01S00020.ns2738  +++|          LDD    CW
01698  M01S00021.ns2738  +++|          LPN    20
01699  M01S00022.ns2738  +++|          LMN    20
01700  M01S00023.ns2738  +++|          ZJN    SCS2        IF *DMP=* PROGRAM

Seq #  *Modification Id* Act 
----------------------------+
01701  M01S01000.v22l602 ---|          LDC    MNSI-1

Seq #  *Modification Id* Act 
----------------------------+
01702  M01S00024.v22l602 +++|          LDC    LSSI
01703  M00S01001.1aj     +++|          SBD    AB+2

Seq #  *Modification Id* Act 
----------------------------+
01704  M01S01002.v22l602 ---|          ADN    DSSI-MNSI
01705  M01S01003.v22l602 ---|          ZJN    SCS2        IF DEADSTART SEQUENCING JOB
01706  M01S01004.v22l602 ---|          SBN    DSSI-MNSI
01707  M01S01005.v22l602 ---|          SHN    0-21
01708  M01S01006.v22l602 ---|          ZJN    SCS2        IF NOT SCP

Seq #  *Modification Id* Act 
----------------------------+
01709  M01S00025.v22l602 +++|          ADK    DSSI-LSSI
01710  M01S00026.v22l602 +++|          ZJN    SCS2        IF DEADSTART SEQUENCING JOB
01711  M01S00027.v22l602 +++|          SBK    DSSI-LSSI
01712  M01S00028.v22l602 +++|          SHN    0-21
01713  M01S00029.v22l602 +++|          ZJN    SCS2        IF NOT A SUBSYSTEM
01714  M00S01007.1aj     +++|          LDD    FL
01715  M00S01008.1aj     +++|          ZJN    SCS1        IF NO CM FL ASSIGNED
01716  M00S01009.1aj     +++|          LDD    RA          CHECK SUBSYSTEM ID WORD IN RA
01717  M00S01010.1aj     +++|          SHN    6
01718  M00S01011.1aj     +++|          ADK    SSIW
01719  M00S01012.1aj     +++|          CRD    CW
01720  M00S01013.1aj     +++|          LDD    CW+4        GET PROGRAM SUBSYSTEM ID CODE
01721  M00S01014.1aj     +++|          LMD    AB+2        COMPARE TO SUBSYSTEM ID IN CPA
01722  M00S01015.1aj     +++|          NJN    SCS1        IF NO MATCH
01723  M00S01016.1aj     +++|          LDN    10          SET ID WORD-TO-BE-CLEARED STATUS
01724  M00S01017.1aj     +++|          RAD    T8
01725  M00S01018.1aj     +++|
01726  M00S01019.1aj     +++|*         CHECK FOR OUTSTANDING CONNECTION(S) TO UCP-S.
01727  M00S01020.1aj     +++|
01728  M00S01021.1aj     +++| SCS1     LDD    CP          READ SCP CONNECTION WORD
01729  M00S01022.1aj     +++|          ADK    SSOW
01730  M00S01023.1aj     +++|          CRD    CW
01731  M00S01024.1aj     +++|          LDD    CW+4        GET CONNECTION COUNT
01732  M00S01025.1aj     +++|          ZJN    SCS2        IF NO CONNECTIONS
01733  M00S01026.1aj     +++|          LDN    2           INDICATE OUTSTANDING CONNECTION(S)
01734  M00S01027.1aj     +++| SCS2     RAD    T8

Seq #  *Modification Id* Act 
----------------------------+
01735  M01S01028.271l716 ---|          UJP    SCSX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01736  M02S00005.ns2738  ---|          NJN    SCS3        IF SCP CONNECTION STATUS PRESENT
01737  M02S00006.ns2738  ---|          LDK    ZERL        ENSURE ALL SCP CONNECTION DATA ELIMINATED
01738  M02S00007.ns2738  ---|          CRD    CW
01739  M02S00008.ns2738  ---|          LDD    CP
01740  M02S00009.ns2738  ---|          ADK    SSCW
01741  M02S00010.ns2738  ---|          CWD    CW
01742  M02S00011.ns2738  ---|          LDN    0
01743  M02S00012.ns2738  ---| SCS3     UJP    SCSX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01744  M01S00024.ns2738  +++|          UJP    SCSX        RETURN
01745  M00S01029.1aj     +++| SEF      SPACE  4,15
01746  M00S01030.1aj     +++|**        SEF - SET ERROR FLAG.
01747  M00S01031.1aj     +++|*
01748  M00S01032.1aj     +++|*         SETS THE ERROR FLAG FROM THE EJT, IF PRESENT, ELSE SETS
01749  M00S01033.1aj     +++|*         THE ERROR FLAG FROM THE CONTROL POINT AREA.
01750  M00S01034.1aj     +++|*
01751  M00S01035.1aj     +++|*         ENTRY  (CM - CM+4) = CONTROL POINT WORD *STSW*.
01752  M00S01036.1aj     +++|*                (JO) = JOB EJT ORDINAL.
01753  M00S01037.1aj     +++|*
01754  M00S01038.1aj     +++|*         EXIT   (EF) = ERROR FLAG.
01755  M00S01039.1aj     +++|*
01756  M00S01040.1aj     +++|*         USES   CN - CN+4.
01757  M00S01041.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01758  M01S01042.ns2467  ---|*         MACROS SFA.

Seq #  *Modification Id* Act 
----------------------------+
01759  M01S00027.ns2467  +++|*         CALLS  ITF.
01760  M01S00028.ns2467  +++|*
01761  M01S00029.ns2467  +++|*         MACROS MONITOR, SFA.
01762  M00S01043.1aj     +++|
01763  M00S01044.1aj     +++|
01764  M00S01045.1aj     +++| SEF      SUBR               ENTRY/EXIT
01765  M00S01046.1aj     +++|          SFA    EJT,JO      SET EJT ADDRESS
01766  M00S01047.1aj     +++|          ADN    PRFE        READ ERROR FLAG WORD
01767  M00S01048.1aj     +++|          CRD    CN
01768  M00S01049.1aj     +++|          LDD    CN+1        CHECK EJT ERROR FLAG
01769  M00S01050.1aj     +++|          NJN    SEF1        IF ERROR FLAG SET IN EJT
01770  M00S01051.1aj     +++|          LDD    CM+1        GET CP ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01771  M01S00001.ns2061  +++|          LMN    RSET
01772  M01S00002.ns2061  +++|          NJN    SEF0        IF NOT A RECOVERED SUBSYSTEM
01773  M01S00003.ns2061  +++|          STD    CM+1        CLEAR ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01774  M01S00001.ns2091a +++|          AOM    SEFA        CHECK FOR IAF

Seq #  *Modification Id* Act 
----------------------------+
01775  M01S00004.ns2061  +++|          MONITOR  CEFM
01776  M01S00005.ns2061  +++|*         LDN    0
01777  M01S00006.ns2061  +++|          UJN    SEF1        CONTINUE
01778  M01S00007.ns2061  +++|
01779  M01S00008.ns2061  +++| SEF0     LDD    CM+1
01780  M00S01052.1aj     +++| SEF1     STD    EF          STORE ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01781  M01S01053.ns2091a ---|          UJN    SEFX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01782  M01S00002.ns2091a +++|          ADN    0
01783  M01S00003.ns2091a +++|*         ADN    1           IF A RECOVERED SUBSYSTEM
01784  M01S00004.ns2091a +++| SEFA     EQU    *-1
01785  M01S00005.ns2091a +++|          ZJN    SEFX        IF NO ERROR FLAG
01786  M01S00006.ns2091a +++|          LDD    CP          READ JOB CONTROL INFORMATION
01787  M01S00007.ns2091a +++|          ADK    JCIW
01788  M01S00008.ns2091a +++|          CRD    CM
01789  M01S00009.ns2091a +++|          LDD    CM+2        CHECK SUBSYSTEM ID FIELD
01790  M01S00010.ns2091a +++|          LMK    IFSI
01791  M01S00011.ns2091a +++|          NJN    SEFX        IF NOT IAF
01792  M01S00012.ns2091a +++|          LDN    ZERL        CLEAR IAF ACCESSIBILITY
01793  M01S00013.ns2091a +++|          CRD    CM
01794  M01S00014.ns2091a +++|          LCN    1
01795  M01S00015.ns2091a +++|          STD    CM
01796  M01S00016.ns2091a +++|          LDD    MA
01797  M01S00017.ns2091a +++|          CWD    CM

Seq #  *Modification Id* Act 
----------------------------+
01798  M02S00018.ns2467  ---|          MONITOR  TSEM

Seq #  *Modification Id* Act 
----------------------------+
01799  M01S00030.ns2467  +++|          RJM    ITF         ISSUE *TSEM* FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
01800  M01S00019.ns2091a +++|          LJM    SEFX        RETURN
01801  M00S01054.1aj     +++| STS      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
01802  M01S01055.v23l617 ---|**        STS - SET TIMESHARING PARAMETERS.

Seq #  *Modification Id* Act 
----------------------------+
01803  M01S00048.v23l617 +++|**        STS - SET INTERACTIVE PARAMETERS.
01804  M00S01056.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01805  M01S01057.1aj29   ---|*         ENTRY  (JO) = EJT ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
01806  M01S00071.1aj29   +++|*         ENTRY  (JBCS) = JOB CONNECTION STATUS.
01807  M00S01058.1aj     +++|*
01808  M00S01059.1aj     +++|*         EXIT   (TSAF) = *IAF* CP NUMBER IF *IAF* IS ACCESSIBLE.
01809  M00S01060.1aj     +++|*                       = 0 IF NOT AN ON-LINE INTERACTIVE JOB OR *IAF*
01810  M00S01061.1aj     +++|*                         IS INACCESSIBLE.
01811  M00S01062.1aj     +++|*                (TSTN) = TERMINAL NUMBER IF ON-LINE INTERACTIVE JOB
01812  M00S01063.1aj     +++|*                         AND *IAF* IS ACCESSIBLE.
01813  M00S01064.1aj     +++|*                       = 0 OTHERWISE.
01814  M00S01065.1aj     +++|*
01815  M00S01066.1aj     +++|*         USES   CM - CM+4.
01816  M00S01067.1aj     +++|*
01817  M00S01068.1aj     +++|*         CALLS  AST.

Seq #  *Modification Id* Act 
----------------------------+
01818  M01S01069.1aj29   ---|*
01819  M01S01070.1aj29   ---|*         MACROS SFA.
01820  M00S01071.1aj     +++|
01821  M00S01072.1aj     +++|
01822  M00S01073.1aj     +++| STS      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01823  M01S01074.1aj29   ---|          SFA    EJT,JO      SET EJT ADDRESS
01824  M01S01075.1aj29   ---|          ADK    JSNE        READ STATUS WORD
01825  M01S01076.1aj29   ---|          CRD    CM
01826  M01S01077.1aj29   ---|          LDD    CM+4        CHECK CONNECTION STATUS
01827  M01S01078.1aj29   ---|          SHN    -7
01828  M01S01079.1aj29   ---|          LPN    17
01829  M01S01080.1aj29   ---|          STM    JBCS        SAVE CONNECTION STATUS

Seq #  *Modification Id* Act 
----------------------------+
01830  M01S00072.1aj29   +++|          LDM    JBCS        JOB CONNECTION STATUS
01831  M00S01081.1aj     +++|          LMK    OLCS
01832  M00S01082.1aj     +++|          NJN    STSX        IF NOT ON-LINE
01833  M00S01083.1aj     +++|          LDM    JBOT        CHECK JOB ORIGIN
01834  M00S01084.1aj     +++|          LMN    TXOT

Seq #  *Modification Id* Act 
----------------------------+
01835  M01S01085.v23l617 ---|          NJN    STSX        IF NOT TIMESHARING JOB

Seq #  *Modification Id* Act 
----------------------------+
01836  M01S00049.v23l617 +++|          NJN    STSX        IF NOT INTERACTIVE JOB
01837  M00S01086.1aj     +++|          LDD    CP          READ TERMINAL POINTER WORD
01838  M00S01087.1aj     +++|          ADK    TTNW
01839  M00S01088.1aj     +++|          CRD    CM
01840  M00S01089.1aj     +++|          LDD    CM+1        SET TERMINAL NUMBER
01841  M00S01090.1aj     +++|          STM    TSTN
01842  M00S01091.1aj     +++|          LDC    FECF*10000+IFSI  GET *IAF/TELEX* SSCT ENTRY
01843  M00S01092.1aj     +++|          RJM    AST
01844  M00S01093.1aj     +++|          SHN    0-13        SET/CLEAR ACCESSIBILITY FLAG
01845  M00S01094.1aj     +++|          ERRNZ  /REM/VCPT-1  CODE ASSUMES *IAF* CP = 1
01846  M00S01095.1aj     +++|          STM    TSAF
01847  M00S01096.1aj     +++|          UJN    STSX        RETURN
01848  M00S01097.1aj     +++| IFP      SPACE  4,10
01849  M00S01098.1aj     +++|**        ASSEMBLE *COMPGFP* INITIALIZATION CODE.
01850  M00S01099.1aj     +++|
01851  M00S01100.1aj     +++|
01852  M00S01101.1aj     +++| IFP      HERE
01853  M00S01102.1aj     +++|          SPACE  4,10
01854  M00S01103.1aj     +++|**        COMMON DECKS.
01855  M00S01104.1aj     +++|
01856  M00S01105.1aj     +++|
01857  M00S01106.1aj     +++|*CALL     COMPCUA

Seq #  *Modification Id* Act 
----------------------------+
01858  M01S00055.253l688 +++|          PROQF  AB          PROCESS QUEUED FUNCTIONS
01859  M00S01107.1aj     +++|          TTL    1AJ/3AA - INITIATE JOB.
01860  M00S01108.1aj     +++|          TITLE  INITIATE JOB.
01861  M00S01109.1aj     +++|          QUAL   IJB
01862  M00S01110.1aj     +++|          IDENT  3AA,IJBX    INITIATE JOB.

Seq #  *Modification Id* Act 
----------------------------+
01863  M01S01111.ns22000 ---|  COMMENT 78/04/10. 81/01/15. 1AJ - INITIATE JOB.

Seq #  *Modification Id* Act 
----------------------------+
01864  M01S00088.ns22000 +++|*COMMENT  1AJ - INITIATE JOB.

Seq #  *Modification Id* Act 
----------------------------+
01865  M02S00089.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.

Seq #  *Modification Id* Act 
----------------------------+
01866  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01867  M00S01112.1aj     +++|          ORG    E1AJ

Seq #  *Modification Id* Act 
----------------------------+
01868  M01S01113.ns22000 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
01869  M00S01114.1aj     +++|          SPACE  4,10
01870  M00S01115.1aj     +++|***       3AA - INITIATE JOB.
01871  M00S01116.1aj     +++|*
01872  M00S01117.1aj     +++|*         *3AA* INITIATES JOB PROCESSING AT THE CONTROL POINT
01873  M00S01118.1aj     +++|*         ASSIGNED BY *1SJ*.
01874  M00S01119.1aj     +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01875  M01S01120.v23l617 ---|***       JOB CARD DAYFILE MESSAGES.

Seq #  *Modification Id* Act 
----------------------------+
01876  M01S00050.v23l617 +++|***       JOB COMMAND DAYFILE MESSAGES.
01877  M00S01121.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01878  M01S01122.v23l617 ---|*         * JOB CARD ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
01879  M01S00051.v23l617 +++|*         * JOB COMMAND ERROR.*
01880  M00S01123.1aj     +++|*
01881  M00S01124.1aj     +++|*         * CARD READER ERROR.*
01882  M00S01125.1aj     +++|*
01883  M00S01126.1aj     +++|*         * OPERATOR INPUT TERMINATION.*
01884  M00S01127.1aj     +++|*
01885  M00S01128.1aj     +++|*         * DISK FULL.*
01886  M00S01129.1aj     +++|*
01887  M00S01130.1aj     +++|*         * MASS STORAGE ERROR.*
01888  M00S01131.1aj     +++|*
01889  M00S01132.1aj     +++|*         * JOB IN NO RERUN STATE ON RECOVERY.* = JOB RECOVERED
01890  M00S01133.1aj     +++|*         DURING DEADSTART IS ABORTED BECAUSE IT WAS IN
01891  M00S01134.1aj     +++|*         NO RERUN MODE.
01892  M00S01135.1aj     +++|*
01893  M00S01136.1aj     +++|*         * BINARY SEQ. ERROR,  RECXXXX  CDYYYY.* = ERROR ON BINARY

Seq #  *Modification Id* Act 
----------------------------+
01894  M01S01137.v23l617 ---|*         CARD.

Seq #  *Modification Id* Act 
----------------------------+
01895  M01S00052.v23l617 +++|*         COMMAND.
01896  M00S01138.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01897  M01S01139.v23l617 ---|*         * ILLEGAL HOLL. CODE, RECXXXX  CDYYYY.* = ERROR ON HOLLERITH
01898  M01S01140.v23l617 ---|*         CARD.

Seq #  *Modification Id* Act 
----------------------------+
01899  M01S00053.v23l617 +++|*         * UNKNOWN HOLL. CODE, RECXXXX  CDYYYY.* = ERROR ON
01900  M01S00054.v23l617 +++|*         HOLLERITH CARD.
01901  M00S01141.1aj     +++|*
01902  M00S01142.1aj     +++|*         * OPERATOR DROP.*
01903  M00S01143.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01904  M01S01144.v23l617 ---|*         * INVALID INPUT FILE SYSTEM SECTOR.*

Seq #  *Modification Id* Act 
----------------------------+
01905  M01S00055.v23l617 +++|*         * INCORRECT INPUT FILE SYSTEM SECTOR.*
01906  M00S01145.1aj     +++|          SPACE  4,10
01907  M00S01146.1aj     +++|**        ACCOUNT FILE MESSAGES.
01908  M00S01147.1aj     +++|*
01909  M00S01148.1aj     +++|*         *UCCR, ID, XXXXXX.XXXKCDS.* = MESSAGE INDICATING NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01910  M01S01149.v23l617 ---|*                OF CARDS READ.

Seq #  *Modification Id* Act 
----------------------------+
01911  M01S00056.v23l617 +++|*                OF COMMANDS READ.
01912  M00S01150.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01913  M01S01151.ns22000 ---|*         ID     MACHINE ID AND EQUIPMENT NUMBER OF CARD READER FOR

Seq #  *Modification Id* Act 
----------------------------+
01914  M01S00090.ns22000 +++|*         ID     MACHINE ID AND EST ORDINAL OF CARD READER FOR
01915  M00S01152.1aj     +++|*                *BCOT* JOBS.
01916  M00S01153.1aj     +++|*                TERMINAL NAME FOR *EIOT* JOBS.

Seq #  *Modification Id* Act 
----------------------------+
01917  M01S01154.v23l617 ---|*         COUNT  NUMBER OF CARDS READ.

Seq #  *Modification Id* Act 
----------------------------+
01918  M01S00057.v23l617 +++|*         COUNT  NUMBER OF COMMANDS READ.
01919  M00S01155.1aj     +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01920  M01S01156.v22l602 ---|**        MACRO DEFINITIONS.
01921  M01S01157.v22l602 ---|
01922  M01S01158.v22l602 ---|
01923  M01S01159.v22l602 ---|**        SUBSYS - DEFINE SUBSYSTEM INITIATION PARAMETERS.
01924  M01S01160.v22l602 ---|*
01925  M01S01161.v22l602 ---|*         SUBSYS NAME,PP
01926  M01S01162.v22l602 ---|*                NAME = SUBSYSTEM NAME.

Seq #  *Modification Id* Act 
----------------------------+
01927  M02S01163.v22l602 ---|*                PP   = PP NAME IF SUBSYSTEM IS NOT PROCEDURE FILE
01928  M02S01164.v22l602 ---|*                       INITIATED.

Seq #  *Modification Id* Act 
----------------------------+
01929  M02S00016.v22l602 ---|*                PP = PP NAME IF SUBSYSTEM IS PP-INITIATED.

Seq #  *Modification Id* Act 
----------------------------+
01930  M01S01165.v22l602 ---|
01931  M01S01166.v22l602 ---|
01932  M01S01167.v22l602 ---|          PURGMAC SUBSYS
01933  M01S01168.v22l602 ---|
01934  M01S01169.v22l602 ---| SUBSYS   MACRO  N,P
01935  M01S01170.v22l602 ---| .A       IFC    EQ,$P$$

Seq #  *Modification Id* Act 
----------------------------+
01936  M02S01171.v22l602 ---|          VFD    24/0

Seq #  *Modification Id* Act 
----------------------------+
01937  M02S00017.v22l602 ---|          VFD    12/0

Seq #  *Modification Id* Act 
----------------------------+
01938  M01S01172.v22l602 ---| .A       ELSE
01939  M01S01173.v22l602 ---|          VFD    18/3L_P,6/0
01940  M01S01174.v22l602 ---| .A       ENDIF

Seq #  *Modification Id* Act 
----------------------------+
01941  M02S01175.v22l602 ---| .B       IFC    EQ,$P$$
01942  M02S01176.v22l602 ---|          VFD    60/8L$GET,_N
01943  M02S01177.v22l602 ---|          VFD    60/0
01944  M02S01178.v22l602 ---|          VFD    60/3L_N
01945  M02S01179.v22l602 ---| .B       ENDIF

Seq #  *Modification Id* Act 
----------------------------+
01946  M01S01180.v22l602 ---|          ENDM
01947  M00S01181.1aj     +++|          SPACE  4,10
01948  M00S01182.1aj     +++|****      DIRECT CELL ASSIGNMENTS.
01949  M00S01183.1aj     +++|
01950  M00S01184.1aj     +++|
01951  M00S01185.1aj     +++| TN       EQU    37          TERMINAL NUMBER
01952  M00S01186.1aj     +++| TA       EQU    57          *IAF* RA
01953  M00S01187.1aj     +++| TT       EQU    65 - 66     TERMINAL TABLE ADDRESS (2 CELLS)
01954  M00S01188.1aj     +++|
01955  M00S01189.1aj     +++|
01956  M00S01190.1aj     +++|****
01957  M00S01191.1aj     +++|          SPACE  4,10
01958  M00S01192.1aj     +++|****      ASSEMBLY CONSTANTS.
01959  M00S01193.1aj     +++|
01960  M00S01194.1aj     +++|
01961  M00S01195.1aj     +++| DFVL     EQU    7777        DEFAULT VALIDATION
01962  M00S01196.1aj     +++| DFCP     EQU    100         DEFAULT JOB STEP TIME LIMIT
01963  M00S01197.1aj     +++| DFIJ     EQU    777777      DEFAULT INDEFINITE JOB STEP TIME LIMIT
01964  M00S01198.1aj     +++| DFBJ     EQU    777777      DEFAULT NON-SYSTEM ORIGIN JOB STEP LIMIT
01965  M00S01199.1aj     +++| DFBA     EQU    777777      DEFAULT NON-SYSTEM ORIGIN ACCOUNT LIMIT
01966  M00S01200.1aj     +++| DFSO     EQU    777777      DEFAULT SYSTEM ORIGIN SRU LIMIT
01967  M00S01201.1aj     +++| DFSL     EQU    500         DEFAULT SRU LIMIT
01968  M00S01202.1aj     +++| VCPT     EQU    /REM/VCPT
01969  M00S01203.1aj     +++| .IJFL    MAX    AFFL,JTFL   MINIMUM INITIAL JOB FIELD LENGTH
01970  M00S01204.1aj     +++| IJFL     EQU    .IJFL
01971  M00S01205.1aj     +++|
01972  M00S01206.1aj     +++|
01973  M00S01207.1aj     +++|****

Seq #  *Modification Id* Act 
----------------------------+
01974  M01S00030.v22l602 +++|          SPACE 4,10
01975  M01S00031.v22l602 +++|*         COMMON DECKS.
01976  M01S00032.v22l602 +++|
01977  M01S00033.v22l602 +++|
01978  M01S00034.v22l602 +++| SUB$     EQU    1           ASSEMBLE *SUBSYST* MACRO CALLS
01979  M01S00035.v22l602 +++|*CALL     COMSSSD
01980  M00S01208.1aj     +++| IJB      TITLE  MAIN ROUTINE.
01981  M00S01209.1aj     +++|**        IJB - INITIATE JOB.
01982  M00S01210.1aj     +++|*
01983  M00S01211.1aj     +++|*         ENTRY  (EF)   = JOB ERROR FLAG.
01984  M00S01212.1aj     +++|*                (JO)   = JOB EJT ORDINAL.
01985  M00S01213.1aj     +++|*                (TSAF) = *IAF* CP NUMBER IF ACCESSIBLE.
01986  M00S01214.1aj     +++|*                (JBOT) = JOB ORIGIN TYPE.
01987  M00S01215.1aj     +++|*
01988  M00S01216.1aj     +++|*         EXIT   (A) = 0 IF JOB SHOULD BE ADVANCED.
01989  M00S01217.1aj     +++|*                    = 1 IF JOB SHOULD BE TERMINATED.
01990  M00S01218.1aj     +++|*                TO *PPR* TO CALL SUBSYSTEM INITIALIZER PP FOR
01991  M00S01219.1aj     +++|*                *SSSC* SERVICE CLASS JOB WHICH DOES NOT USE A
01992  M00S01220.1aj     +++|*                PROCEDURE FILE FOR INITIALIZATION.
01993  M00S01221.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01994  M01S01222.242l642 ---|*         CALLS  AFL, AIF, CCA, CCP, IUT, MSR, PNS, PSS, RSS.

Seq #  *Modification Id* Act 
----------------------------+
01995  M02S00027.271l750 ---|*         CALLS  AIF, CCA, IUT, MSR, PJB, PNS, PSS, RSS.

Seq #  *Modification Id* Act 
----------------------------+
01996  M01S00009.271l750 +++|*         CALLS  AIF, CCA, IUT, PJB, PNS, PSS.
01997  M00S01223.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01998  M01S01224.242l642 ---|*         MACROS ENDMS, MONITOR, SETMS, SFA.

Seq #  *Modification Id* Act 
----------------------------+
01999  M02S00028.271l750 ---|*         MACROS ENDMS, SETMS, SFA.

Seq #  *Modification Id* Act 
----------------------------+
02000  M01S00010.271l750 +++|*         MACROS ENDMS, SFA.
02001  M00S01225.1aj     +++|
02002  M00S01226.1aj     +++|
02003  M00S01227.1aj     +++| IJB      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
02004  M01S01228.242l642 ---|          SFA    EJT,JO      CALCULATE EJT ENTRY ADDRESS
02005  M01S01229.242l642 ---|          ADK    JSNE
02006  M01S01230.242l642 ---|          CRD    AB
02007  M01S01231.242l642 ---|          LDD    AB+4
02008  M01S01232.242l642 ---|          SHN    -1
02009  M01S01233.242l642 ---|          LPN    77
02010  M01S01234.242l642 ---|          LMN    PRJS+40
02011  M01S01235.242l642 ---|          ZJN    IJB1        IF PRE-INITIAL STATE AND JOB ADVANCE SET
02012  M01S01236.242l642 ---|          MONITOR  HNGM
02013  M01S01237.242l642 ---|          UJN    *           HANG PP
02014  M01S01238.242l642 ---|
02015  M01S01239.242l642 ---| IJB1     STD    FS          CLEAR DIRECT CELLS
02016  M01S01240.242l642 ---|          STD    RF
02017  M01S01241.242l642 ---|          STD    RO
02018  M01S01242.242l642 ---|          STM    SCAF
02019  M01S01243.242l642 ---|          STD    IR+2        CONVERT CALL TO *CPUMTR* FORMAT
02020  M01S01244.242l642 ---|          STD    IR+4

Seq #  *Modification Id* Act 
----------------------------+
02021  M02S00018.242l642 ---|          ERRNZ  QOJT        CODE DEPENDS ON VALUE
02022  M02S00019.242l642 ---|          ERRNZ  TJJT        CODE DEPENDS ON VALUE
02023  M02S00020.242l642 ---|          STM    JTFG        INITIALIZE JOB TERMINATION FLAGS

Seq #  *Modification Id* Act 
----------------------------+
02024  M02S00001.242l642 ---|          ERRNZ  TJJT        CODE ASSUMES *TJJT* = 0
02025  M02S00002.242l642 ---|          STM    JTOP        INITIALIZE JOB TERMINATION OPTION

Seq #  *Modification Id* Act 
----------------------------+
02026  M01S01245.242l642 ---|          LDD    IA          REWRITE PP INPUT REGISTER
02027  M01S01246.242l642 ---|          CWD    IR
02028  M01S01247.242l642 ---|          RJM    CCP         CLEAR CONTROL POINT AREA
02029  M01S01248.242l642 ---|
02030  M01S01249.242l642 ---|*         ADJUST RA AND FL (ACCOUNT FOR NFL) IN THE EXCHANGE PACKAGE
02031  M01S01250.242l642 ---|*         AND WORD *FLSW* OF THE CONTROL POINT AREA.  CLEAR NFL AND
02032  M01S01251.242l642 ---|*         INITIALIZE DAYFILE BUFFER POINTER/STATUS WORDS OF NFL.
02033  M01S01252.242l642 ---|
02034  M01S01253.242l642 ---|          RJM    AFL         ADJUST RA/FL
02035  M01S01254.242l642 ---|
02036  M01S01255.242l642 ---|*         PERFORM MINIMAL PRESET OF CONTROL POINT AREA IN CASE OF I/O
02037  M01S01256.242l642 ---|*         ERROR ON SYSTEM SECTOR READ.
02038  M01S01257.242l642 ---|
02039  M01S01258.242l642 ---|          LDD    CP
02040  M01S01259.242l642 ---|          ADN    FPFW
02041  M01S01260.242l642 ---|          CWM    IJBE,ON
02042  M01S01261.242l642 ---|          ADN    PFCW-FPFW-1
02043  M01S01262.242l642 ---|          CWM    IJBF,ON
02044  M01S01263.242l642 ---|          ADN    CSPW-PFCW-1
02045  M01S01264.242l642 ---|          CWM    IJBI,ON
02046  M01S01265.242l642 ---|          ADN    CPLW-CSPW-1
02047  M01S01266.242l642 ---|          CWM    IJBJ,ON

Seq #  *Modification Id* Act 
----------------------------+
02048  M02S00058.242l642 ---|
02049  M02S00059.242l642 ---|*         SET DEFAULT SYSTEM CHARGE FOR *SYOT* JOB
02050  M02S00060.242l642 ---|
02051  M02S00061.242l642 ---|          LDM    JBOT
02052  M02S00062.242l642 ---|          LMK    SYOT
02053  M02S00063.242l642 ---|          NJN    IJB1.1      IF NOT SYSTEM ORIGIN JOB
02054  M02S00064.242l642 ---|          NFA    CHGN        GET NFL ADDRESS
02055  M02S00065.242l642 ---|          CWM    IJBN,ON     SET CHARGE

Seq #  *Modification Id* Act 
----------------------------+
02056  M01S00029.242l642 +++|          RJM    PJB         PRESET JOB

Seq #  *Modification Id* Act 
----------------------------+
02057  M01S01267.271l750 ---|
02058  M01S01268.271l750 ---|*         READ THE INPUT FILE SYSTEM SECTOR.
02059  M01S01269.271l750 ---|

Seq #  *Modification Id* Act 
----------------------------+
02060  M02S01270.271l750 ---|          SFA    EJT,JO      SET EJT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
02061  M03S00066.271l750 ---| IJB1.1   SFA    EJT,JO      SET EJT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
02062  M02S00030.271l750 ---|          SFA    EJT,JO      SET EJT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
02063  M01S01271.271l750 ---|          ADK    SCHE        READ INPUT FILE POINTERS
02064  M01S01272.271l750 ---|          CRD    FS

Seq #  *Modification Id* Act 
----------------------------+
02065  M02S01273.271l750 ---|          LDD    FS          SET EST ORDINAL
02066  M02S01274.271l750 ---|          STD    T5

Seq #  *Modification Id* Act 
----------------------------+
02067  M03S01275.271l750 ---|          SETMS

Seq #  *Modification Id* Act 
----------------------------+
02068  M03S00031.271l750 ---|          RAM    MSRD+3      SAVE EST ORDINAL FOR ERROR PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
02069  M02S00001.271l750 ---|          CRD    T5
02070  M02S00002.271l750 ---|          LDD    T5          SAVE EST ORDINAL FOR ERROR PROCESSING
02071  M02S00003.271l750 ---|          RAM    MSRD+3

Seq #  *Modification Id* Act 
----------------------------+
02072  M02S00032.271l750 ---|          LDD    EF          CHECK FOR OVERRIDE
02073  M02S00033.271l750 ---|          LMN    ORET

Seq #  *Modification Id* Act 
----------------------------+
02074  M03S00034.271l750 ---|          NJN    IJB1        IF NOT OPERATOR OVERRIDE

Seq #  *Modification Id* Act 
----------------------------+
02075  M02S00004.271l750 ---|          NJN    IBJ0        IF NOT OPERATOR OVERRIDE

Seq #  *Modification Id* Act 
----------------------------+
02076  M02S00035.271l750 ---|
02077  M02S00036.271l750 ---|*         SET *UCTM* JOB TERMINATION MODE TO FORCE THIS JOB TO
02078  M02S00037.271l750 ---|*         TERMINATE WITHOUT WAITING FOR INACCESSABLE MASS
02079  M02S00038.271l750 ---|*         STORAGE DEVICES.
02080  M02S00039.271l750 ---|
02081  M02S00040.271l750 ---|          AOM    IJBP
02082  M02S00041.271l750 ---|          LJM    IJB6        TERMINATE JOB
02083  M02S00042.271l750 ---|
02084  M02S00043.271l750 ---|

Seq #  *Modification Id* Act 
----------------------------+
02085  M03S00044.271l750 ---| IJB1     SETMS  IO

Seq #  *Modification Id* Act 
----------------------------+
02086  M02S01276.271l750 ---|          LDD    FS+1        SET LOGICAL TRACK
02087  M02S01277.271l750 ---|          STD    T6
02088  M02S01278.271l750 ---|          LDN    0

Seq #  *Modification Id* Act 
----------------------------+
02089  M02S00005.271l750 ---| IBJ0     SETMS  IO
02090  M02S00006.271l750 ---|          LDM    JBSC        CHECK JOB SERVICE CLASS
02091  M02S00007.271l750 ---|          LMN    DSSC
02092  M02S00008.271l750 ---|          NJN    IBJ1        IF NOT DEADSTART SEQUENCING
02093  M02S00009.271l750 ---|          LDN    EPNS
02094  M02S00010.271l750 ---|          RAM    CHRV        ALLOW ACCESS TO SUSPECT DEVICE
02095  M02S00011.271l750 ---| IBJ1     LDN    0

Seq #  *Modification Id* Act 
----------------------------+
02096  M01S01279.271l750 ---|          STD    T7
02097  M01S01280.271l750 ---|          RJM    RSS         READ SYSTEM SECTOR
02098  M01S01281.271l750 ---|          ZJN    IJB2        IF NO I/O ERROR AND SYSTEM SECTOR IS VALID

Seq #  *Modification Id* Act 
----------------------------+
02099  M02S01282.271l750 ---|          RJM    MSR         PROCESS INVALID SYSTEM SECTOR, NO RETURN

Seq #  *Modification Id* Act 
----------------------------+
02100  M03S00067.271l750 ---|          RJM    MSR         PROCESS INCORRECT SYSTEM SECTOR, NO RETURN

Seq #  *Modification Id* Act 
----------------------------+
02101  M02S01283.271l750 ---|*         LJM    IJB8        TERMINATE JOB

Seq #  *Modification Id* Act 
----------------------------+
02102  M02S00045.271l750 ---|          RJM    MSR         PROCESS INCORRECT SYSTEM SECTOR, NO RETURN
02103  M02S00046.271l750 ---|*         LJM    IJB6        TERMINATE JOB

Seq #  *Modification Id* Act 
----------------------------+
02104  M01S01284.271l750 ---|
02105  M01S01285.271l750 ---| IJB2     LDM    JBSC

Seq #  *Modification Id* Act 
----------------------------+
02106  M01S00011.271l750 +++|          LDM    JBSC
02107  M00S01286.1aj     +++|          LMN    DSSC
02108  M00S01287.1aj     +++|          ZJN    IJB3        IF DEADSTART SEQUENCING JOB
02109  M00S01288.1aj     +++|          LMN    DSSC&SSSC
02110  M00S01289.1aj     +++|          NJN    IJB4        IF NOT A SUBSYSTEM
02111  M00S01290.1aj     +++| IJB3     ENDMS
02112  M00S01291.1aj     +++|          LDD    EF
02113  M00S01292.1aj     +++|          ZJN    IJB3.0      IF NO ERROR FLAG IS SET
02114  M00S01293.1aj     +++|          LMN    SSET
02115  M00S01294.1aj     +++|          ZJN    IJB3.1      IF *1SJ* SET ERROR FLAG
02116  M00S01295.1aj     +++| IJB3.0   RJM    PSS         PROCESS SUBSYSTEM
02117  M00S01296.1aj     +++|          ZJN    IJB5        IF NO ERROR
02118  M00S01297.1aj     +++| IJB3.1   STM    SISS

Seq #  *Modification Id* Act 
----------------------------+
02119  M01S01298.241l630 ---|          LDD    HN          SET *NOJT* QUEUED FILE OPTION
02120  M01S01299.241l630 ---|          ERRNZ  NOJT*100-100  CODE REQUIRES *NOJT* = 1

Seq #  *Modification Id* Act 
----------------------------+
02121  M01S00003.241l630 +++|          LDK    NOJT        SET *NOJT* QUEUED FILE OPTION
02122  M00S01300.1aj     +++|          STM    JTFG
02123  M00S01301.1aj     +++| IJB4     RJM    PNS         PROCESS NON-SUBSYSTEM JOB
02124  M00S01302.1aj     +++|          MJN    IJB6        IF PROBLEMS OCCURRED
02125  M00S01303.1aj     +++| IJB5     RJM    CCA         COMPLETE CPA INITIALIZATION

Seq #  *Modification Id* Act 
----------------------------+
02126  M01S00091.ns22000 +++|
02127  M01S00092.ns22000 +++|*         INITIALIZE SERVICE CLASS VALIDATION INFORMATION IN NFL.
02128  M01S00093.ns22000 +++|
02129  M01S00094.ns22000 +++|          LDD    MA          SET VALIDATION MASK
02130  M01S00095.ns22000 +++|          CWM    VASS+ASCV*5,ON
02131  M01S00096.ns22000 +++|          SBN    1
02132  M01S00097.ns22000 +++|          CRD    CM
02133  M01S00098.ns22000 +++|          LDN    0
02134  M01S00099.ns22000 +++|          STD    CM
02135  M01S00100.ns22000 +++|          STD    CM+1
02136  M01S00101.ns22000 +++|          NFA    SCVN
02137  M01S00102.ns22000 +++|          CWD    CM
02138  M00S01304.1aj     +++|          LDD    EF
02139  M00S01305.1aj     +++|          NJN    IJB6        IF ERROR FLAG IS SET IN EJT
02140  M00S01306.1aj     +++|
02141  M00S01307.1aj     +++|*         CHECK FOR ABORTED INPUT FILE.
02142  M00S01308.1aj     +++|
02143  M00S01309.1aj     +++|          LDM    JASS
02144  M00S01310.1aj     +++|          ZJN    IJB8        IF NOT ABORTED INPUT FILE
02145  M00S01311.1aj     +++|          RJM    AIF         PROCESS ABORTED INPUT FILE
02146  M00S01312.1aj     +++| IJB6     LDN    1           SET TERMINATION EXIT CONDITION
02147  M00S01313.1aj     +++|          STM    IJBA
02148  M00S01314.1aj     +++|
02149  M00S01315.1aj     +++|*         UPDATE EJT ENTRY AS FOLLOWS -
02150  M00S01316.1aj     +++|*                CHANGE JOB STATUS TO *EXJS*.
02151  M00S01317.1aj     +++|*                CLEAR INPUT FILE ADDRESS.
02152  M00S01318.1aj     +++|*                CLEAR ERROR FLAG.
02153  M00S01319.1aj     +++|
02154  M00S01320.1aj     +++| IJB7     LDC    IJBL+3*10000

Seq #  *Modification Id* Act 
----------------------------+
02155  M01S00047.242l642 +++|*         LDC    IJBL+4*10000  (*ORET* ERROR FLAG SET)
02156  M01S00048.242l642 +++| IJBP     EQU    *-2
02157  M00S01321.1aj     +++|          RJM    IUT         ISSUE *UTEM* MONITOR FUNCTION
02158  M00S01322.1aj     +++|          LDC    **
02159  M00S01323.1aj     +++| IJBA     EQU    *-1         (EXIT FLAG)
02160  M00S01324.1aj     +++|          LJM    IJBX        RETURN TO *1AJ* RESIDENT
02161  M00S01325.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
02162  M01S01326.ns2181b ---| IJB8     LDM    JBSC
02163  M01S01327.ns2181b ---|          LMN    DSSC
02164  M01S01328.ns2181b ---|          ZJN    IJB9        IF DEADSTART SEQUENCING JOB
02165  M01S01329.ns2181b ---|          LMN    DSSC&SSSC
02166  M01S01330.ns2181b ---|          NJN    IJB7        IF NOT A SUBSYSTEM

Seq #  *Modification Id* Act 
----------------------------+
02167  M02S00103.ns2181b ---|          LDM    SISS        CHECK SUBSYSTEM ID

Seq #  *Modification Id* Act 
----------------------------+
02168  M01S00001.ns2181b +++| IJB8     LDM    SISS        CHECK SUBSYSTEM ID

Seq #  *Modification Id* Act 
----------------------------+
02169  M01S00104.ns22000 +++|          SBK    LSSI+1

Seq #  *Modification Id* Act 
----------------------------+
02170  M02S00105.ns2181b ---|          MJN    IJB7        IF PSEUDO SUBSYSTEM

Seq #  *Modification Id* Act 
----------------------------+
02171  M01S00002.ns2181b +++|          MJN    IJB7        IF NOT A SUBSYSTEM

Seq #  *Modification Id* Act 
----------------------------+
02172  M01S00012.271l750 +++|          LDC    MXSI
02173  M01S00013.271l750 +++|          SBM    SISS
02174  M01S00014.271l750 +++|          PJN    IJB9        IF NOT THE DEADSTART SEQUENCING JOB
02175  M01S00015.271l750 +++|          ERRPL  MXSI-DSSI   CODE ASSUMES VALUE
02176  M01S00016.271l750 +++|          LDK    MXSI-MSSI   INITIATE LIKE *CMS*
02177  M01S00017.271l750 +++| IJB9     SHN    1
02178  M01S00018.271l750 +++|          STD    T1
02179  M00S01331.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
02180  M01S01332.271l750 ---|*         DETERMINE HOW THIS SUBSYSTEM SHOULD BE INITIATED BY EXAMINING
02181  M01S01333.271l750 ---|*         ITS *TSPP* TABLE ENTRY.  A NON-ZERO ENTRY INDICATES A PP
02182  M01S01334.271l750 ---|*         MUST BE CALLED, OTHERWISE THE SUBSYSTEM IS INITIATED VIA A

Seq #  *Modification Id* Act 
----------------------------+
02183  M02S01335.271l750 ---|*         PROCEDURE FILE (THE APPROPRIATE CONTROL STATEMENTS HAVE
02184  M02S01336.271l750 ---|*         ALREADY BEEN PLACED IN THE BUFFER BY ROUTINE *PSS*).

Seq #  *Modification Id* Act 
----------------------------+
02185  M03S00021.271l750 ---|*         SET OF CONTROL STATEMENTS ON THE JOB INPUT FILE.

Seq #  *Modification Id* Act 
----------------------------+
02186  M02S00068.271l750 ---|*         SET OF COMMANDS ON THE JOB INPUT FILE.

Seq #  *Modification Id* Act 
----------------------------+
02187  M01S00019.271l750 +++|*         DETERMINE IF THE SUBSYSTEM MUST BE FORCED INTO CPU 0 ON A
02188  M01S00020.271l750 +++|*         DUAL CPU MACHINE WITH CACHE.
02189  M00S01337.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
02190  M01S01338.271l750 ---| IJB9     LDC    MXSI
02191  M01S01339.271l750 ---|          SBM    SISS

Seq #  *Modification Id* Act 
----------------------------+
02192  M03S00036.271l750 ---|          SHN    1

Seq #  *Modification Id* Act 
----------------------------+
02193  M02S00003.271l750 ---|          PJN    IJB10       IF NOT THE DEADSTART SEQUENCING JOB
02194  M02S00004.271l750 ---|          ERRPL  MXSI-DSSI   CODE ASSUMES VALUE
02195  M02S00005.271l750 ---|          LDK    MXSI-MSSI   INITIATE LIKE *CMS*
02196  M02S00006.271l750 ---| IJB10    SHN    1

Seq #  *Modification Id* Act 
----------------------------+
02197  M01S01340.271l750 ---|          STD    T1
02198  M01S01341.271l750 ---|          LDM    TSPP,T1

Seq #  *Modification Id* Act 
----------------------------+
02199  M02S01342.271l750 ---|          STD    T1
02200  M02S01343.271l750 ---|          LDI    T1

Seq #  *Modification Id* Act 
----------------------------+
02201  M02S01344.271l750 ---|          ZJN    IJB7        IF PROCEDURE INITIATED SUBSYSTEM

Seq #  *Modification Id* Act 
----------------------------+
02202  M02S00022.271l750 ---|          ZJN    IJB7        IF NOT A PP-INITIATED SUBSYSTEM

Seq #  *Modification Id* Act 
----------------------------+
02203  M01S00021.271l750 +++|          LDM    TSPP+1,T1
02204  M01S00022.271l750 +++|          LPN    77
02205  M01S00023.271l750 +++|          ZJN    IJB10       IF SUBSYSTEM MAY RUN IN EITHER CPU
02206  M01S00024.271l750 +++|          LDN    EIBP
02207  M01S00025.271l750 +++|          CRD    CM
02208  M01S00026.271l750 +++|          LDD    CM
02209  M01S00027.271l750 +++|          SHN    21-12
02210  M01S00028.271l750 +++|          PJN    IJB10       IF NOT DUAL CPU MACHINE WITH CACHE
02211  M01S00029.271l750 +++|          LDN    CPUS        SELECT CPU 0
02212  M01S00030.271l750 +++|          STD    CM+1
02213  M01S00031.271l750 +++|          ERRNZ  CPUS-1      CODE DEPENDS ON VALUE
02214  M01S00032.271l750 +++|          STD    CM+4
02215  M01S00033.271l750 +++|          MONITOR  SJCM
02216  M01S00034.271l750 +++|
02217  M01S00035.271l750 +++|*         DETERMINE IF THE SUBSYSTEM SHOULD BE INITIATED BY A PP CALL,
02218  M01S00036.271l750 +++|*         OR VIA A SET OF COMMANDS ON THE JOB INPUT FILE.
02219  M01S00037.271l750 +++|
02220  M01S00038.271l750 +++| IJB10    LDM    TSPP,T1
02221  M01S00039.271l750 +++|          ZJP    IJB7        IF NOT A PP-INITIATED SUBSYSTEM
02222  M00S01345.1aj     +++|          STD    IR          STORE PP NAME IN PP INPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
02223  M01S01346.v22l602 ---|          AOD    T1
02224  M01S01347.v22l602 ---|          LDI    T1

Seq #  *Modification Id* Act 
----------------------------+
02225  M01S00037.v22l602 +++|          LDM    TSPP+1,T1
02226  M00S01348.1aj     +++|          LMD    IR+1
02227  M00S01349.1aj     +++|          SCN    77
02228  M00S01350.1aj     +++|          LMD    IR+1
02229  M00S01351.1aj     +++|          STD    IR+1
02230  M00S01352.1aj     +++|          LDD    IA
02231  M00S01353.1aj     +++|          CWD    IR
02232  M00S01354.1aj     +++|
02233  M00S01355.1aj     +++|*         UPDATE EJT ENTRY AS FOLLOWS -
02234  M00S01356.1aj     +++|*                CHANGE JOB STATUS TO *EXJS*.
02235  M00S01357.1aj     +++|*                CLEAR JOB ADVANCE AND INTERLOCK.
02236  M00S01358.1aj     +++|*                CLEAR INPUT FILE ADDRESS.
02237  M00S01359.1aj     +++|*                CLEAR ERROR FLAG.
02238  M00S01360.1aj     +++|
02239  M00S01361.1aj     +++|          AOM    IJBL
02240  M00S01362.1aj     +++|          SOM    IJBL+4
02241  M00S01363.1aj     +++|          LDC    IJBL+3*10000
02242  M00S01364.1aj     +++|          RJM    IUT         ISSUE *UTEM* MONITOR FUNCTION
02243  M00S01365.1aj     +++|          LJM    PPR         CALL PP TO INITIATE SUBSYSTEM
02244  M00S01366.1aj     +++|
02245  M00S01367.1aj     +++|
02246  M00S01368.1aj     +++|**        DEFAULT CONTROL POINT AREA WORD IMAGES.
02247  M00S01369.1aj     +++|
02248  M00S01370.1aj     +++|
02249  M00S01371.1aj     +++|*         *STLW*.
02250  M00S01372.1aj     +++|
02251  M00S01373.1aj     +++| IJBB     VFD    18/DFBA,42/-0
02252  M00S01374.1aj     +++|
02253  M00S01375.1aj     +++|*         *SRJW*.
02254  M00S01376.1aj     +++|
02255  M00S01377.1aj     +++| IJBC     VFD    12/0,18/DFBJ,30/0
02256  M00S01378.1aj     +++|
02257  M00S01379.1aj     +++|*         *CPJW*.
02258  M00S01380.1aj     +++|
02259  M00S01381.1aj     +++| IJBD     VFD    12/0,18/DFCP,30/0
02260  M00S01382.1aj     +++|
02261  M00S01383.1aj     +++|*         *FPFW*.
02262  M00S01384.1aj     +++|
02263  M00S01385.1aj     +++| IJBE     VFD    12/0,12/DFVL,36/0
02264  M00S01386.1aj     +++|
02265  M00S01387.1aj     +++|*         *PFCW*.
02266  M00S01388.1aj     +++|
02267  M00S01389.1aj     +++| IJBF     VFD    36/0,12/NEEQ,12/0

Seq #  *Modification Id* Act 
----------------------------+
02268  M01S01390.ns22000 ---|
02269  M01S01391.ns22000 ---|*         *UIDW*.
02270  M01S01392.ns22000 ---|
02271  M01S01393.ns22000 ---| IJBG     VFD    42/0LSYSTEMX,18//PFM/SYUI
02272  M00S01394.1aj     +++|
02273  M00S01395.1aj     +++|*         *CSPW* (SUBSYSTEMS).
02274  M00S01396.1aj     +++|
02275  M00S01397.1aj     +++| IJBH     VFD    12/0,1/1,23/0,12/CSBN,12/CSBN-3
02276  M00S01398.1aj     +++|
02277  M00S01399.1aj     +++|*         *CSPW* (PRESET PRIOR TO I/O IN CASE OF I/O ERROR).
02278  M00S01400.1aj     +++|
02279  M00S01401.1aj     +++| IJBI     VFD    12/0,12/4000,12/0,12/CSBN,12/CSBN
02280  M00S01402.1aj     +++|
02281  M00S01403.1aj     +++|*         *CPLW*.
02282  M00S01404.1aj     +++|
02283  M00S01405.1aj     +++| IJBJ     VFD    1/0,59/-0
02284  M00S01406.1aj     +++|          SPACE  4,10
02285  M00S01407.1aj     +++|*         MISCELLANEOUS STORAGE.
02286  M00S01408.1aj     +++|
02287  M00S01409.1aj     +++|
02288  M00S01410.1aj     +++|*         MULTIPLIER VALUES FOR *ACTM* FUNCTION.
02289  M00S01411.1aj     +++|
02290  M00S01412.1aj     +++| IJBK     VFD    12/M1SR,12/M2SR,12/M3SR,12/M4SR,12/ADSR
02291  M00S01413.1aj     +++|
02292  M00S01414.1aj     +++|*         *UTEM* PARAMETERS.
02293  M00S01415.1aj     +++|
02294  M00S01416.1aj     +++| IJBL     VFD    1/0,5/JSNE,6/6
02295  M00S01417.1aj     +++|          VFD    6/0,6/0
02296  M00S01418.1aj     +++|          CON    0
02297  M00S01419.1aj     +++|          CON    0
02298  M00S01420.1aj     +++|          CON    EXJS*2+1
02299  M00S01421.1aj     +++|
02300  M00S01422.1aj     +++|          VFD    1/0,5/SCHE,6/24D
02301  M00S01423.1aj     +++|          VFD    6/36D,6/0
02302  M00S01424.1aj     +++|          CON    0,0,0
02303  M00S01425.1aj     +++|
02304  M00S01426.1aj     +++|          VFD    1/0,5/PRFE,6/12D
02305  M00S01427.1aj     +++|          VFD    6/36D,6/0
02306  M00S01428.1aj     +++|          CON    0
02307  M00S01429.1aj     +++|          CON    0
02308  M00S01430.1aj     +++|          CON    0

Seq #  *Modification Id* Act 
----------------------------+
02309  M01S00049.242l642 +++|
02310  M01S00050.242l642 +++|          VFD    1/0,5/SCHE,6/2  UNCONDITIONAL JOB TERMINATION
02311  M01S00051.242l642 +++|          VFD    6/33D,6/0
02312  M01S00052.242l642 +++|          CON    0,0,UCTM
02313  M00S01431.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
02314  M01S01432.1aj107  ---|*         *ACLW*, *AACW*, *ALMW*.

Seq #  *Modification Id* Act 
----------------------------+
02315  M01S00001.1aj107  +++|*         *AACW* AND *ALMW*.
02316  M00S01433.1aj     +++|
02317  M00S01434.1aj     +++| IJBM     VFD    60/-0

Seq #  *Modification Id* Act 
----------------------------+
02318  M01S00002.1aj107  +++|
02319  M01S00003.1aj107  +++|*         *ACLW*.
02320  M01S00004.1aj107  +++|
02321  M01S00005.1aj107  +++|*         VFD    36/-0
02322  M01S00006.1aj107  +++|          VFD    6/0
02323  M01S00007.1aj107  +++|          VFD    18/-0

Seq #  *Modification Id* Act 
----------------------------+
02324  M01S00069.v23l617 +++|
02325  M01S00070.v23l617 +++| IJBN     VFD    60/0L"SYSCHG"
02326  M00S01435.1aj     +++|          TITLE  PRIMARY SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
02327  M01S01436.242l642 ---| AFL      SPACE  4,10
02328  M01S01437.242l642 ---|**        AFL - ADJUST FL AND RA.
02329  M01S01438.242l642 ---|*
02330  M01S01439.242l642 ---|*         ADJUST RA AND FL TO ACCOUNT FOR NFL.  CLEAR NFL AND
02331  M01S01440.242l642 ---|*         INITIALIZE DAYFILE BUFFER CONTROL WORDS IN NFL.
02332  M01S01441.242l642 ---|*
02333  M01S01442.242l642 ---|*         USES   CM - CM+4, CN - CN+4, RA, FL.
02334  M01S01443.242l642 ---|*
02335  M01S01444.242l642 ---|*         MACROS MONITOR, NFA.
02336  M01S01445.242l642 ---|
02337  M01S01446.242l642 ---|
02338  M01S01447.242l642 ---| AFL      SUBR               ENTRY/EXIT
02339  M01S01448.242l642 ---|          LDN    ZERL        CLEAR *FLSW* IMAGE
02340  M01S01449.242l642 ---|          CRD    CN
02341  M01S01450.242l642 ---|          LCN    DNFL        ADJUST FL
02342  M01S01451.242l642 ---|          RAD    FL
02343  M01S01452.242l642 ---|          PJN    AFL1        IF SUFFICIENT CM FL ASSIGNED
02344  M01S01453.242l642 ---|          MONITOR  HNGM
02345  M01S01454.242l642 ---|          UJN    *           HANG PP
02346  M01S01455.242l642 ---|
02347  M01S01456.242l642 ---| AFL1     STD    CN+4        SAVE ADJUSTED CM FL
02348  M01S01457.242l642 ---|          LDN    0           SET (T1,T2) = RA
02349  M01S01458.242l642 ---|          STD    T1
02350  M01S01459.242l642 ---|          LDD    RA
02351  M01S01460.242l642 ---|          STD    T2
02352  M01S01461.242l642 ---|          SRD    T1          (NO-OP UNLESS CME PRESENT)
02353  M01S01462.242l642 ---|          LDN    DNFL        SET NFL IN *FLSW*
02354  M01S01463.242l642 ---|          STD    CN
02355  M01S01464.242l642 ---|          RAD    T2          ADJUST RA IN *FLSW*
02356  M01S01465.242l642 ---|          STD    CN+3
02357  M01S01466.242l642 ---|          SHN    -14
02358  M01S01467.242l642 ---|          RAD    T1
02359  M01S01468.242l642 ---|          STD    CN+2
02360  M01S01469.242l642 ---|          LDD    CN          FORM *FLSW+1*
02361  M01S01470.242l642 ---|          LMC    4000
02362  M01S01471.242l642 ---|          STD    CM+3
02363  M01S01472.242l642 ---|          LDD    CN+4
02364  M01S01473.242l642 ---|          STD    CM+4
02365  M01S01474.242l642 ---|          LDN    0
02366  M01S01475.242l642 ---|          STD    CM
02367  M01S01476.242l642 ---|          LDD    CN+2
02368  M01S01477.242l642 ---|          SHN    14
02369  M01S01478.242l642 ---|          ADD    CN+3
02370  M01S01479.242l642 ---|          SBD    CN
02371  M01S01480.242l642 ---|          STD    CM+2
02372  M01S01481.242l642 ---|          SHN    -14
02373  M01S01482.242l642 ---|          STD    CM+1
02374  M01S01483.242l642 ---|          LDD    CP          UPDATE *FLSW* AND *FLSW+1*
02375  M01S01484.242l642 ---|          ADN    FLSW
02376  M01S01485.242l642 ---|          CWD    CN
02377  M01S01486.242l642 ---|          ADN    1
02378  M01S01487.242l642 ---|          CWD    CM
02379  M01S01488.242l642 ---|
02380  M01S01489.242l642 ---|*         STORE ADJUSTED RA AND FL IN THE EXCHANGE PACKAGE.
02381  M01S01490.242l642 ---|
02382  M01S01491.242l642 ---|          LDN    ZERL
02383  M01S01492.242l642 ---|          CRD    CM
02384  M01S01493.242l642 ---|          CRD    CN
02385  M01S01494.242l642 ---|          LDD    T2          SET RA
02386  M01S01495.242l642 ---|          SHN    6
02387  M01S01496.242l642 ---|          STD    CM+1
02388  M01S01497.242l642 ---|          SHN    -14
02389  M01S01498.242l642 ---|          SHN    14
02390  M01S01499.242l642 ---|          ADD    T1
02391  M01S01500.242l642 ---|          SHN    6
02392  M01S01501.242l642 ---|          STD    CM
02393  M01S01502.242l642 ---|          LDD    FL          SET FL
02394  M01S01503.242l642 ---|          SHN    6
02395  M01S01504.242l642 ---|          STD    CN+1
02396  M01S01505.242l642 ---|          SHN    -14
02397  M01S01506.242l642 ---|          STD    CN
02398  M01S01507.242l642 ---|          LDD    CP          UPDATE EXCHANGE PACKAGE RA AND FL
02399  M01S01508.242l642 ---|          ADN    1
02400  M01S01509.242l642 ---|          CWD    CM
02401  M01S01510.242l642 ---|          ADN    1
02402  M01S01511.242l642 ---|          CWD    CN
02403  M01S01512.242l642 ---|
02404  M01S01513.242l642 ---|*         CLEAR NFL.
02405  M01S01514.242l642 ---|
02406  M01S01515.242l642 ---|          LDN    DNFL        SET NFL LENGTH FOR *CSTM*
02407  M01S01516.242l642 ---|          SHN    6
02408  M01S01517.242l642 ---|          STD    CM+2
02409  M01S01518.242l642 ---|          LDD    HN          SET RELATIVE CM ADDRESS FLAG
02410  M01S01519.242l642 ---|          STD    CM+1
02411  M01S01520.242l642 ---|          LDC    -DNFL*100
02412  M01S01521.242l642 ---|          STD    CM+4
02413  M01S01522.242l642 ---|          SHN    -14
02414  M01S01523.242l642 ---|          STD    CM+3
02415  M01S01524.242l642 ---|          MONITOR  CSTM      CLEAR NFL
02416  M01S01525.242l642 ---|
02417  M01S01526.242l642 ---|*         INITIALIZE DAYFILE BUFFER CONTROL WORDS.
02418  M01S01527.242l642 ---|
02419  M01S01528.242l642 ---|          LDN    ZERL
02420  M01S01529.242l642 ---|          CRD    CM
02421  M01S01530.242l642 ---|          CRD    CN
02422  M01S01531.242l642 ---|          LDC    JDBL        SET DAYFILE BUFFER LENGTH
02423  M01S01532.242l642 ---|          STD    CN+2
02424  M01S01533.242l642 ---|          LDN    3           INITIALIZE BUSY AND INTERLOCK FLAGS
02425  M01S01534.242l642 ---|          STD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
02426  M02S01535.242l642 ---|          NFA    DAPN-1

Seq #  *Modification Id* Act 
----------------------------+
02427  M02S00001.242l642 ---|          NFA    DAPN+1

Seq #  *Modification Id* Act 
----------------------------+
02428  M01S01536.242l642 ---|          CWD    CN
02429  M01S01537.242l642 ---|          ADN    1
02430  M01S01538.242l642 ---|          CWD    CM
02431  M01S01539.242l642 ---|          LJM    AFLX        RETURN
02432  M00S01540.1aj     +++| AIF      SPACE  4,15
02433  M00S01541.1aj     +++|**        AIF - PROCESS ABORTED INPUT FILE.
02434  M00S01542.1aj     +++|*
02435  M00S01543.1aj     +++|*         ENTRY  (A) = ABORTED INPUT FILE ERROR CODE.
02436  M00S01544.1aj     +++|*                (TT - TT+1) = TERMINAL TABLE ADDRESS.
02437  M00S01545.1aj     +++|*                (TSTN) = TERMINAL NUMBER IF ON-LINE INTERACTIVE JOB
02438  M00S01546.1aj     +++|*                         AND *IAF* IS ACCESSIBLE.
02439  M00S01547.1aj     +++|*
02440  M00S01548.1aj     +++|*         USES   T1, T2, CM - CM+4.
02441  M00S01549.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
02442  M01S01550.ns2748  ---|*         CALLS  C2D, DFM.

Seq #  *Modification Id* Act 
----------------------------+
02443  M01S00001.ns2748  +++|*         CALLS  C2D, DFM, RRR, SRR.
02444  M00S01551.1aj     +++|*
02445  M00S01552.1aj     +++|*         MACROS MONITOR.
02446  M00S01553.1aj     +++|*
02447  M00S01554.1aj     +++|*         HANG CONDITIONS -

Seq #  *Modification Id* Act 
----------------------------+
02448  M01S01555.v23l617 ---|*                ILLEGAL ERROR CODE.

Seq #  *Modification Id* Act 
----------------------------+
02449  M01S00071.v23l617 +++|*                INCORRECT ERROR CODE.
02450  M00S01556.1aj     +++|
02451  M00S01557.1aj     +++|
02452  M00S01558.1aj     +++| AIF      SUBR               ENTRY/EXIT
02453  M00S01559.1aj     +++|          STD    T1          SAVE ERROR CODE
02454  M00S01560.1aj     +++|          SBN    TAIPL+1
02455  M00S01561.1aj     +++|          MJN    AIF1        IF LEGAL ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
02456  M01S01562.241l630 ---|          MONITOR  HNGM
02457  M01S01563.241l630 ---|          UJN    *           HANG PP
02458  M01S01564.241l630 ---|

Seq #  *Modification Id* Act 
----------------------------+
02459  M01S00004.241l630 +++|          LDN    0
02460  M01S00005.241l630 +++|          STD    CM+2        SET NO ERROR FLAG
02461  M01S00006.241l630 +++|          LDC    *
02462  M01S00007.241l630 +++|          STD    CM+1        ADDRESS WHERE ERROR DETECTED
02463  M01S00008.241l630 +++|          MONITOR  CHGM      CONDITIONAL HANG
02464  M01S00009.241l630 +++|          LDD    T1
02465  M01S00010.241l630 +++|          STD    CM          SAVE BAD ERROR CODE
02466  M01S00011.241l630 +++|          LDN    TAIPL+1     SET PSEUDO ERROR CODE
02467  M01S00012.241l630 +++|          STD    T1
02468  M00S01565.1aj     +++| AIF1     LDM    TAIP,T1     SET PROCESSOR ADDRESS
02469  M00S01566.1aj     +++|          STD    T2
02470  M00S01567.1aj     +++|          ZJN    AIF2        IF NO PROCESSOR EXISTS FOR THIS ERROR CODE
02471  M00S01568.1aj     +++|          RJM    0,T2        PROCESS ERROR CODE
02472  M00S01569.1aj     +++|
02473  M00S01570.1aj     +++|*         ISSUE MESSAGE AND TERMINATE JOB.
02474  M00S01571.1aj     +++|
02475  M00S01572.1aj     +++| AIF2     LDM    TAIM,T1
02476  M00S01573.1aj     +++|          ZJN    AIF3        IF NO MESSAGE TO ISSUE
02477  M00S01574.1aj     +++|          RJM    DFM         ISSUE MESSAGE
02478  M00S01575.1aj     +++| AIF3     LDM    TSTN
02479  M00S01576.1aj     +++|          ZJN    AIFX        IF NOT ON-LINE INTERACTIVE JOB

Seq #  *Modification Id* Act 
----------------------------+
02480  M01S00002.ns2748  +++|          RJM    SRR         SET R-REGISTER TO IAF RA
02481  M00S01577.1aj     +++|          LDD    TT          READ *VROT*
02482  M00S01578.1aj     +++|          SHN    14
02483  M00S01579.1aj     +++|          LMD    TT+1
02484  M00S01580.1aj     +++|          ADK    /REM/VROT
02485  M00S01581.1aj     +++|          CRD    CM
02486  M00S01582.1aj     +++|          LDC    6001        SET ABORTED INPUT FILE, COMPLETION FLAGS
02487  M00S01583.1aj     +++|          STD    CM+4
02488  M00S01584.1aj     +++|          LDD    TT          WRITE *VROT*
02489  M00S01585.1aj     +++|          SHN    14
02490  M00S01586.1aj     +++|          LMD    TT+1
02491  M00S01587.1aj     +++|          ADK    /REM/VROT
02492  M00S01588.1aj     +++|          CWD    CM

Seq #  *Modification Id* Act 
----------------------------+
02493  M01S00003.ns2748  +++|          RJM    RRR         RESTORE R-REGISTER
02494  M00S01589.1aj     +++|          LJM    AIFX        RETURN
02495  M00S01590.1aj     +++| AIF      SPACE  4,10
02496  M00S01591.1aj     +++|*         ABORTED INPUT FILE ERROR PROCESSORS.
02497  M00S01592.1aj     +++|*
02498  M00S01593.1aj     +++|*         ENTRY  (T1) = ERROR CODE.
02499  M00S01594.1aj     +++|*                *BFMS* CONTAINS SYSTEM SECTOR.

Seq #  *Modification Id* Act 
----------------------------+
02500  M01S00013.241l630 +++| PUA      SPACE  4,10
02501  M01S00014.241l630 +++|**        PUA - PROCESS UNKNOWN ABORT CODE.
02502  M01S00015.241l630 +++|*
02503  M01S00016.241l630 +++|*         ENTRY  (T1) = TABLE INDEX TO ABORT MESSAGE.
02504  M01S00017.241l630 +++|*                (CM) = UNKNOWN ABORT CODE.
02505  M01S00018.241l630 +++|*
02506  M01S00019.241l630 +++|*         USES   CM+1.
02507  M01S00020.241l630 +++|*
02508  M01S00021.241l630 +++|*         CALLS  C2D.
02509  M01S00022.241l630 +++|
02510  M01S00023.241l630 +++|
02511  M01S00024.241l630 +++| PUA      SUBR               ENTRY/EXIT
02512  M01S00025.241l630 +++|          LDM    TAIM,T1     GET ADDRESS OF MESSAGE
02513  M01S00026.241l630 +++|          STD    CM+1
02514  M01S00027.241l630 +++|          LDD    CM          STORE ABORT CODE IN MESSAGE
02515  M01S00028.241l630 +++|          RJM    C2D         CONVERT TO OCTAL
02516  M01S00029.241l630 +++|          STM    14,CM+1
02517  M01S00030.241l630 +++|          UJN    PUAX        RETURN
02518  M00S01595.1aj     +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
02519  M01S01596.ns21000 ---|**        PJC - *JCIE* PROCESSOR.

Seq #  *Modification Id* Act 
----------------------------+
02520  M01S00023.ns21000 +++|**        PJC - *JCIE*/*STIE*/*IDIE*/*DBIE*/*VLIE*/*NLIE* PROCESSOR.

Proceed to Part 2