User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1aj.005

Deck 1AJ Part 005

214 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
06603  M00S04530.1aj     +++|*
06604  M00S04531.1aj     +++|*         USES   T3 - T7, AB - AB+4, CN - CN+4, CW - CW+4, FS - FS+4.
06605  M00S04532.1aj     +++|
06606  M00S04533.1aj     +++|
06607  M00S04534.1aj     +++| CFP3     LDN    1
06608  M00S04535.1aj     +++|
06609  M00S04536.1aj     +++| CFP      SUBR               ENTRY/EXIT
06610  M00S04537.1aj     +++|          LDD    CM+3        CHECK 5 WORD FET WITHIN RANGE
06611  M00S04538.1aj     +++|          LPN    37
06612  M00S04539.1aj     +++|          STD    CM+3
06613  M00S04540.1aj     +++|          SHN    14
06614  M00S04541.1aj     +++|          ADD    CM+4
06615  M00S04542.1aj     +++|          SBN    2
06616  M00S04543.1aj     +++|          MJN    CFP3        IF FET ADDRESS .LE. 1
06617  M00S04544.1aj     +++|          ADN    2+5
06618  M00S04545.1aj     +++|          SHN    -6
06619  M00S04546.1aj     +++|          SBD    FL
06620  M00S04547.1aj     +++|          PJN    CFP3        IF FET OUT OF RANGE
06621  M00S04548.1aj     +++|          LDA    CM+3        READ FET PARAMETERS
06622  M00S04549.1aj     +++|          CRD    CN
06623  M00S04550.1aj     +++|          ADN    1
06624  M00S04551.1aj     +++|          CRD    CW          READ FIRST
06625  M00S04552.1aj     +++|          ADN    1
06626  M00S04553.1aj     +++|          CRD    FS          READ IN
06627  M00S04554.1aj     +++|          ADN    1
06628  M00S04555.1aj     +++|          CRD    AB          READ OUT
06629  M00S04556.1aj     +++|          ADN    1
06630  M00S04557.1aj     +++|          CRD    T3          READ LIMIT
06631  M00S04558.1aj     +++|          LDD    CW+3        SET FET LENGTH
06632  M00S04559.1aj     +++|          SHN    14
06633  M00S04560.1aj     +++|          STD    T3
06634  M00S04561.1aj     +++|          SHN    -14
06635  M00S04562.1aj     +++|          STD    CW+3
06636  M00S04563.1aj     +++|          LDD    T6          CHECK LIMIT - FL
06637  M00S04564.1aj     +++|          LPN    77
06638  M00S04565.1aj     +++|          STD    T6
06639  M00S04566.1aj     +++|          SHN    14
06640  M00S04567.1aj     +++|          ADD    T7
06641  M00S04568.1aj     +++|          SBN    1
06642  M00S04569.1aj     +++|          SHN    -6
06643  M00S04570.1aj     +++|          SBD    FL
06644  M00S04571.1aj     +++|          PJN    CFP1        IF LIMIT .GT. FL
06645  M00S04572.1aj     +++|
06646  M00S04573.1aj     +++|*         CHECK OUT.
06647  M00S04574.1aj     +++|
06648  M00S04575.1aj     +++|          LDD    AB+3        OUT - LIMIT
06649  M00S04576.1aj     +++|          LPN    77
06650  M00S04577.1aj     +++|          STD    AB+3
06651  M00S04578.1aj     +++|          SBD    T6
06652  M00S04579.1aj     +++|          SHN    14
06653  M00S04580.1aj     +++|          ADD    AB+4
06654  M00S04581.1aj     +++|          SBD    T7
06655  M00S04582.1aj     +++|          PJN    CFP1        IF OUT .GE. LIMIT
06656  M00S04583.1aj     +++|          LDD    AB+3        OUT - FIRST
06657  M00S04584.1aj     +++|          SBD    CW+3
06658  M00S04585.1aj     +++|          SHN    14
06659  M00S04586.1aj     +++|          ADD    AB+4
06660  M00S04587.1aj     +++|          SBD    CW+4
06661  M00S04588.1aj     +++|          PJN    CFP2        IF OUT .GE. FIRST
06662  M00S04589.1aj     +++| CFP1     LJM    CFP3        RETURN
06663  M00S04590.1aj     +++|
06664  M00S04591.1aj     +++|*         CHECK IN.
06665  M00S04592.1aj     +++|
06666  M00S04593.1aj     +++| CFP2     LDD    FS+3        IN - LIMIT
06667  M00S04594.1aj     +++|          LPN    77
06668  M00S04595.1aj     +++|          STD    FS+3
06669  M00S04596.1aj     +++|          SBD    T6
06670  M00S04597.1aj     +++|          SHN    14
06671  M00S04598.1aj     +++|          ADD    FS+4
06672  M00S04599.1aj     +++|          SBD    T7
06673  M00S04600.1aj     +++|          PJN    CFP1        IF IN .GE. LIMIT
06674  M00S04601.1aj     +++|          LDD    FS+3        IN - FIRST
06675  M00S04602.1aj     +++|          SBD    CW+3
06676  M00S04603.1aj     +++|          SHN    14
06677  M00S04604.1aj     +++|          ADD    FS+4
06678  M00S04605.1aj     +++|          SBD    CW+4
06679  M00S04606.1aj     +++|          MJN    CFP1        IF IN .LT. FIRST
06680  M00S04607.1aj     +++|          LDD    CM+3        CHECK FET IN RANGE
06681  M00S04608.1aj     +++|          SHN    14
06682  M00S04609.1aj     +++|          ADD    CM+4
06683  M00S04610.1aj     +++|          ADD    T3          FET LENGTH
06684  M00S04611.1aj     +++|          ADN    5
06685  M00S04612.1aj     +++|          SHN    -6
06686  M00S04613.1aj     +++|          SBD    FL
06687  M00S04614.1aj     +++|          PJN    CFP1        IF FET EXTENDS BEYOND FL
06688  M00S04615.1aj     +++|          LDD    FS+3        CHECK FOR DATA IN FET
06689  M00S04616.1aj     +++|          LMD    AB+3
06690  M00S04617.1aj     +++|          SHN    14
06691  M00S04618.1aj     +++|          LMD    FS+4
06692  M00S04619.1aj     +++|          LMD    AB+4
06693  M00S04620.1aj     +++|          ZJN    CFP1        IF FET CONTAINS NO DATA
06694  M00S04621.1aj     +++|          LDN    0
06695  M00S04622.1aj     +++|          LJM    CFPX        RETURN
06696  M00S04623.1aj     +++| CFS      SPACE  4,10
06697  M00S04624.1aj     +++|**        CFS - CHECK FET STATUS.
06698  M00S04625.1aj     +++|*
06699  M00S04626.1aj     +++|*         ENTRY  (CN - CN+4) = FIRST WORD OF FET.
06700  M00S04627.1aj     +++|*
06701  M00S04628.1aj     +++|*         EXIT   (A) = 0, IF FILE FLUSHABLE.
06702  M00S04629.1aj     +++|*                    .GT. 0, IF FILE NOT TO BE FLUSHED.
06703  M00S04630.1aj     +++|*                    .LT. 0, IF FILE FLUSHABLE, *OUTPUT*,
06704  M00S04631.1aj     +++|*                    AND NOT ON-LINE INTERACTIVE JOB.
06705  M00S04632.1aj     +++|
06706  M00S04633.1aj     +++|
06707  M00S04634.1aj     +++| CFS      SUBR               ENTRY/EXIT
06708  M00S04635.1aj     +++|          LDD    CN+3        CHECK FOR *CIO* ERRORS
06709  M00S04636.1aj     +++|          LPN    3
06710  M00S04637.1aj     +++|          SHN    14
06711  M00S04638.1aj     +++|          LMD    CN+4
06712  M00S04639.1aj     +++|          SHN    -10D
06713  M00S04640.1aj     +++|          NJN    CFSX        IF *CIO* ERRORS
06714  M00S04641.1aj     +++|          LDD    CN+4        CHECK FET STATUS
06715  M00S04642.1aj     +++|          SHN    21-2
06716  M00S04643.1aj     +++|          MJN    CFS1        IF WRITE BIT SET
06717  M00S04644.1aj     +++|          LPC    177
06718  M00S04645.1aj     +++|          ZJN    CFS1        IF NO *CIO* CALLS
06719  M00S04646.1aj     +++|          SCN    4           CHECK OPEN ALTER
06720  M00S04647.1aj     +++|          LMN    12
06721  M00S04648.1aj     +++|          NJN    CFSX        IF NOT OPEN ALTER
06722  M00S04649.1aj     +++|
06723  M00S04650.1aj     +++|*         CHECK FILE = *OUTPUT*
06724  M00S04651.1aj     +++|
06725  M00S04652.1aj     +++| CFS1     LDD    CN          FILE NAME
06726  M00S04653.1aj     +++|          LMC    2ROU
06727  M00S04654.1aj     +++|          NJN    CFS3        IF NOT *OU*
06728  M00S04655.1aj     +++|          LDD    CN+1
06729  M00S04656.1aj     +++|          LMC    2RTP
06730  M00S04657.1aj     +++|          NJN    CFS3        IF NOT *TP*
06731  M00S04658.1aj     +++|          LDD    CN+2
06732  M00S04659.1aj     +++|          LMC    2RUT
06733  M00S04660.1aj     +++|          NJN    CFS3        IF NOT *UT*
06734  M00S04661.1aj     +++|          LDD    CN+3
06735  M00S04662.1aj     +++|          SCN    77
06736  M00S04663.1aj     +++|          NJN    CFS3        IF FILE NOT *OUTPUT*
06737  M00S04664.1aj     +++|          LDM    TSTN        CHECK TERMINAL NUMBER
06738  M00S04665.1aj     +++|          NJN    CFS2        IF ON-LINE INTERACTIVE JOB
06739  M00S04666.1aj     +++|          LCN    1
06740  M00S04667.1aj     +++|          UJN    CFS4        RETURN
06741  M00S04668.1aj     +++|
06742  M00S04669.1aj     +++| CFS2     LDN    1
06743  M00S04670.1aj     +++|          UJN    CFS4        RETURN
06744  M00S04671.1aj     +++|
06745  M00S04672.1aj     +++| CFS3     LDN    0
06746  M00S04673.1aj     +++| CFS4     LJM    CFSX        RETURN
06747  M00S04674.1aj     +++| CPD      SPACE  4,10
06748  M00S04675.1aj     +++|**        CPD - CLEAR PPU DUMP WORD.
06749  M00S04676.1aj     +++|*
06750  M00S04677.1aj     +++|*         EXIT   (PPDW) = ZERO.
06751  M00S04678.1aj     +++|*
06752  M00S04679.1aj     +++|*         USES   T1, CM - CM+4.
06753  M00S04680.1aj     +++|
06754  M00S04681.1aj     +++|
06755  M00S04682.1aj     +++| CPD      SUBR               ENTRY/EXIT
06756  M00S04683.1aj     +++|          LDD    CP          CLEAR PPU DUMP WORD
06757  M00S04684.1aj     +++|          ADC    PPDW
06758  M00S04685.1aj     +++|          CRD    CM
06759  M00S04686.1aj     +++|          STD    T1
06760  M00S04687.1aj     +++|          LDN    0
06761  M00S04688.1aj     +++|          STD    CM+3
06762  M00S04689.1aj     +++|          STD    CM+4
06763  M00S04690.1aj     +++|          LDD    T1
06764  M00S04691.1aj     +++|          CWD    CM
06765  M00S04692.1aj     +++|          UJN    CPDX        RETURN
Line S00130 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06766  M01S00130.ns2323  +++|CJA       SPACE  4,10
06767  M01S00131.ns2323  +++|**        CJA - CLEAR JOB ACTIVITY.
06768  M01S00132.ns2323  +++|*
06769  M01S00133.ns2323  +++|*         EXIT   REMAINING JOB ACTIVITY CLEARED.
06770  M01S00134.ns2323  +++|*                LOGOUT FUNCTION SENT TO *IAF* IF ONLINE STATUS.
06771  M01S00135.ns2323  +++|*
06772  M01S00136.ns2323  +++|*         USES   T1, CM - CM+4.
06773  M01S00137.ns2323  +++|*
Line S00138 Modification History
M01 (Added by) ns2323
M02 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06774  M02S00138.ns2467  ---|*         CALLS  ESB, SEJ.
06775  M02S00139.ns2467  ---|*
06776  M02S00140.ns2467  ---|*         MACROS DELAY, MONITOR.
Line S00031 Modification History
M01 (Added by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06777  M01S00031.ns2467  +++|*         CALLS  ESB, ITF, SEJ.
Line S00141 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06778  M01S00141.ns2323  +++|
06779  M01S00142.ns2323  +++|
06780  M01S00143.ns2323  +++| CJA      SUBR               ENTRY/EXIT
06781  M01S00144.ns2323  +++|          RJM    ESB         EMPTY COMMAND BUFFER
06782  M01S00145.ns2323  +++|          LDN    TJJT        SELECT *TERMINATE JOB* OPTION
06783  M01S00146.ns2323  +++|          RJM    SEJ
06784  M01S00147.ns2323  +++|          LDM    TSTN        CHECK TERMINAL NUMBER
06785  M01S00148.ns2323  +++|          ZJN    CJAX        IF NOT ON-LINE INTERACTIVE JOB
06786  M01S00149.ns2323  +++|          LDN    ZERL        CLEAR ZERO WORD
06787  M01S00150.ns2323  +++|          CRD    CM
Line S00303 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06788  M01S00303.242l642 +++| CJAA     LDN    0
06789  M01S00304.242l642 +++|*         LDN    1           (NO NFL)
06790  M01S00305.242l642 +++|          NJN    CJA1        IF NO NFL
Line S00151 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06791  M01S00151.ns2323  +++|          NFA    SHCN        CLEAR *SHELL* CONTROL
06792  M01S00152.ns2323  +++|          CWD    CM
Line S00153 Modification History
M01 (Added by) ns2323
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06793  M02S00153.242l642 ---|          LDK    /REM/VTLF   FORMAT LOGOFF REQUEST
Line S00306 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06794  M01S00306.242l642 +++| CJA1     LDK    /REM/VTLF   FORMAT LOGOFF REQUEST
Line S00154 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06795  M01S00154.ns2323  +++|          STD    CM
06796  M01S00155.ns2323  +++|          LDN    2           SET FORCE LOGOFF
06797  M01S00156.ns2323  +++|          STD    CM+2
06798  M01S00157.ns2323  +++|          LDM    TSTN        SET TERMINAL NUMBER
06799  M01S00158.ns2323  +++|          STD    CM+4
06800  M01S00159.ns2323  +++|          LDD    MA          ENTER *TSEM* REQUEST PARAMETERS
06801  M01S00160.ns2323  +++|          CWD    CM
Line S00161 Modification History
M01 (Added by) ns2323
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06802  M02S00161.242l642 ---| CJA1     MONITOR  TSEM      ISSUE REQUEST
Line S00307 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06803  M02S00307.ns2467  ---| CJA2     MONITOR  TSEM      ISSUE REQUEST
Line S00162 Modification History
M01 (Added by) ns2323
M02 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06804  M02S00162.ns2467  ---|          LDD    CM+1
Line S00163 Modification History
M01 (Added by) ns2323
M02 (Removed by) 242l642
M03 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06805  M03S00163.ns2467  ---|          ZJN    CJAX        IF *IAF* INACCESSIBLE OR ERROR
Line S00308 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06806  M02S00308.ns2467  ---|          ZJN    CJA3        IF *IAF* INACCESSIBLE OR ERROR
Line S00164 Modification History
M01 (Added by) ns2323
M02 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06807  M02S00164.ns2467  ---|          LMC    7777
Line S00165 Modification History
M01 (Added by) ns2323
M02 (Removed by) 242l642
M03 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06808  M03S00165.ns2467  ---|          NJP    CJAX        IF REQUEST COMPLETE
06809  M03S00166.ns2467  ---|          LDC    3600        *TSEM* QUEUE FULL - DELAY AND RETRY
Line S00309 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06810  M02S00309.ns2467  ---|          ZJN    CJA4        IF REQUEST NOT COMPLETE
06811  M02S00310.ns2467  ---| CJA3     LJM    CJAX        RETURN
06812  M02S00311.ns2467  ---|
06813  M02S00312.ns2467  ---| CJA4     LDC    3600        *TSEM* REQUEST FULL - DELAY AND RETRY
Line S00167 Modification History
M01 (Added by) ns2323
M02 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06814  M02S00167.ns2467  ---|          STD    T1
Line S00168 Modification History
M01 (Added by) ns2323
M02 (Removed by) 242l642
M03 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06815  M03S00168.ns2467  ---| CJA2     DELAY
Line S00313 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06816  M02S00313.ns2467  ---| CJA5     DELAY
Line S00169 Modification History
M01 (Added by) ns2323
M02 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06817  M02S00169.ns2467  ---|          SOD    T1
Line S00170 Modification History
M01 (Added by) ns2323
M02 (Removed by) 242l642
M03 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06818  M03S00170.ns2467  ---|          ZJN    CJA1        IF TIME TO REISSUE REQUEST
06819  M03S00171.ns2467  ---|          UJN    CJA2        CONTINUE TO DELAY
Line S00314 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06820  M02S00314.ns2467  ---|          ZJN    CJA2        IF TIME TO REISSUE REQUEST
06821  M02S00315.ns2467  ---|          UJN    CJA5        CONTINUE TO DELAY
Line S00032 Modification History
M01 (Added by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
06822  M01S00032.ns2467  +++|          RJM    ITF         ISSUE REQUEST
06823  M01S00033.ns2467  +++|          UJP    CJAX        RETURN
Line S04693 Modification History
M01 (Removed by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
06824  M01S04693.ns2009  ---| CSS      SPACE  4,10
06825  M01S04694.ns2009  ---|**        CSS - CHECK FOR SPECIAL SUBSYSTEM.
06826  M01S04695.ns2009  ---|*
06827  M01S04696.ns2009  ---|*         EXIT   (A) = 0 IF SPECIAL SUBSYSTEM, ELSE NON-ZERO.
06828  M01S04697.ns2009  ---|*
06829  M01S04698.ns2009  ---|*         USES   CM - CM+4.
06830  M01S04699.ns2009  ---|
06831  M01S04700.ns2009  ---|
06832  M01S04701.ns2009  ---| CSS      SUBR               ENTRY/EXIT
06833  M01S04702.ns2009  ---|          LDD    CP
06834  M01S04703.ns2009  ---|          ADN    JCIW
06835  M01S04704.ns2009  ---|          CRD    CM
06836  M01S04705.ns2009  ---|          LDD    CM+2
06837  M01S04706.ns2009  ---|          LMK    BISI
06838  M01S04707.ns2009  ---|          ZJN    CSSX        IF *BATCHIO*
06839  M01S04708.ns2009  ---|          LMK    MTSI&BISI
06840  M01S04709.ns2009  ---|          ZJN    CSSX        IF *MAGNET*
06841  M01S04710.ns2009  ---|          LMK    MFSI&MTSI
06842  M01S04711.ns2009  ---|          ZJN    CSSX        IF *MSS*
06843  M01S04712.ns2009  ---|          LMK    TRSI&MFSI
Line S04713 Modification History
M01 (Removed by) ns2009
M02 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06844  M02S04713.ns21000 ---|          UJN    CSSX        RETURN, (A) = 0 IF *TAF*
06845  M00S04714.1aj     +++| DMP      SPACE  4,10
06846  M00S04715.1aj     +++|**        DMP - DUMP PROCESSOR.
06847  M00S04716.1aj     +++|*
06848  M00S04717.1aj     +++|*         EXIT   TO *EBCX* IF NO *DMP* REQUEST.
06849  M00S04718.1aj     +++|*                TO *DPP* IF *DIS* CALL.
06850  M00S04719.1aj     +++|*                TO *PPR* IF *DMP* ROLLOUT NEEDED.
06851  M00S04720.1aj     +++|*
06852  M00S04721.1aj     +++|*         USES   IR+2 - IR+4, CM - CM+4.
06853  M00S04722.1aj     +++|*
Line S04723 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06854  M01S04723.v23l617 ---|*         CALLS  CUA, DFM.
Line S00169 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06855  M01S00169.v23l617 +++|*         CALLS  DFM.
06856  M00S04724.1aj     +++|*
06857  M00S04725.1aj     +++|*         MACROS MONITOR.
06858  M00S04726.1aj     +++|
06859  M00S04727.1aj     +++|
06860  M00S04728.1aj     +++| DMP      LDD    IR+2
06861  M00S04729.1aj     +++|          LMN    2
06862  M00S04730.1aj     +++|          NJN    DMP1        IF NOT A *DIS* CALL
06863  M00S04731.1aj     +++|          LJM    DPP         DROP PP
06864  M00S04732.1aj     +++|
06865  M00S04733.1aj     +++| DMP1     LDD    CP          READ QUEUE PRIORITY
06866  M00S04734.1aj     +++|          ADN    JCIW
06867  M00S04735.1aj     +++|          CRD    CM
06868  M00S04736.1aj     +++|          LDD    CM+2
06869  M00S04737.1aj     +++|          SBK    LSSI+1
06870  M00S04738.1aj     +++|          MJN    DMP2        IF NOT SUBSYSTEM
06871  M00S04739.1aj     +++|          LJM    EBCX        PROCESS BATCH ERROR
06872  M00S04740.1aj     +++|
06873  M00S04741.1aj     +++| DMP2     LDN    0
06874  M00S04742.1aj     +++|          STD    IR+2        CLEAR PARAMETERS
06875  M00S04743.1aj     +++|          STD    IR+3
06876  M00S04744.1aj     +++|          STD    IR+4
06877  M00S04745.1aj     +++|          STD    CM+1        CLEAR JOB ADVANCE
06878  M00S04746.1aj     +++|          MONITOR  JACM
06879  M00S04747.1aj     +++|          LDD    CP          CHECK SPECIAL CALL WORD
06880  M00S04748.1aj     +++|          ADC    SPCW
06881  M00S04749.1aj     +++|          CRD    CM
06882  M00S04750.1aj     +++|          LDD    CM
06883  M00S04751.1aj     +++|          ZJN    DMP4        IF NO SPECIAL REQUEST PENDING
06884  M00S04752.1aj     +++|          LDC    =C* SPECIAL REQUEST PROCESSING ERROR.*
06885  M00S04753.1aj     +++| DMP3     RJM    DFM
06886  M00S04754.1aj     +++|          UJN    DMP6        EXIT
06887  M00S04755.1aj     +++|
06888  M00S04756.1aj     +++| DMP4     LDD    CP          CHECK SSM STATUS
06889  M00S04757.1aj     +++|          ADC    DBAW
06890  M00S04758.1aj     +++|          CRD    CM
06891  M00S04759.1aj     +++|          LDD    CM
06892  M00S04760.1aj     +++|          SHN    21-13
06893  M00S04761.1aj     +++|          PJN    DMP5        IF NOT SECURE MEMORY
Line S04762 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06894  M01S04762.v23l617 ---|          RJM    CUA         CHECK USER ACESS
Line S00170 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06895  M01S00170.v23l617 +++|          LDC    *
06896  M01S00171.v23l617 +++| DMPB     EQU    *-1
06897  M01S00172.v23l617 +++|*         LDC    0           (*SYOT*, OR *CSOJ* PERMISSION + DEBUG)
06898  M00S04763.1aj     +++|          ZJN    DMP5        IF ACCESS ALLOWED
06899  M00S04764.1aj     +++|          LDC    =C* SECURE MEMORY, DUMP DISABLED.*
06900  M00S04765.1aj     +++|          UJN    DMP3        ISSUE DAYFILE MESSAGE
06901  M00S04766.1aj     +++|
06902  M00S04767.1aj     +++| DMP5     LDD    CP          SET *DMP=* CALL
06903  M00S04768.1aj     +++|          ADC    SPCW
06904  M00S04769.1aj     +++|          CWM    DMPA,ON
06905  M00S04770.1aj     +++|          LDN    0           SET TO ROLLOUT
06906  M00S04771.1aj     +++|          STD    CM+1
06907  M00S04772.1aj     +++|          MONITOR  ROCM
06908  M00S04773.1aj     +++| DMP6     MONITOR  DPPM      DROP PP
06909  M00S04774.1aj     +++|          LJM    PPR         EXIT TO PP RESIDENT
06910  M00S04775.1aj     +++|
06911  M00S04776.1aj     +++|
06912  M00S04777.1aj     +++| DMPA     VFD    18/3LDMP,6/4,36/0
06913  M00S04778.1aj     +++| ESB      SPACE  4,10
Line S04779 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06914  M01S04779.v23l617 ---|**        ESB - EMPTY CONTROL STATEMENT BUFFER.
Line S00173 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06915  M02S00173.ns2323  ---|**        ESB - EMPTY COMMAND BUFFER.
Line S00172 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06916  M01S00172.ns2323  +++|**        ESB - EMPTY SYSTEM COMMAND BUFFER.
06917  M01S00173.ns2323  +++|*
06918  M01S00174.ns2323  +++|*         USES  CM - CM+4, SP - SP+4.
06919  M00S04780.1aj     +++|
06920  M00S04781.1aj     +++|
06921  M00S04782.1aj     +++| ESB      SUBR               ENTRY/EXIT
Line S04783 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06922  M01S04783.v23l617 ---|          LDD    CP          READ CONTROL STATEMENT POINTER
Line S00174 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06923  M01S00174.v23l617 +++|          LDD    CP          READ COMMAND POINTER
06924  M00S04784.1aj     +++|          ADN    CSPW
06925  M00S04785.1aj     +++|          CRD    SP
Line S00175 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06926  M01S00175.ns2323  +++|          ADN    RFCW-CSPW   READ EXECUTE COMMAND ADDRESS
06927  M01S00176.ns2323  +++|          CRD    CM
06928  M00S04786.1aj     +++|          LDD    SP+3        SET BUFFER EMPTY
06929  M00S04787.1aj     +++|          STD    SP+4
Line S04788 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06930  M01S04788.v23l617 ---|          LDC    4000        SET EOR ON CONTROL STATEMENT FILE
Line S00175 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06931  M01S00175.v23l617 +++|          LDC    4000        SET EOR ON COMMAND FILE
06932  M00S04789.1aj     +++|          STD    SP+1
Line S00189 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06933  M02S00189.ns2323  ---|          LDD    SP          CLEAR EPILOGUE FLAGS
06934  M02S00190.ns2323  ---|          SCN    30
Line S00177 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06935  M01S00177.ns2323  +++|          LDD    SP          CLEAR EPILOGUE FLAG
06936  M01S00178.ns2323  +++|          SCN    10
Line S00191 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06937  M01S00191.ns22000 +++|          STD    SP
Line S00179 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06938  M01S00179.ns2323  +++|          LDD    CM+3        CLEAR COMMAND ADDRESS
06939  M01S00180.ns2323  +++|          LPN    77
06940  M01S00181.ns2323  +++|          STD    CM+3
06941  M01S00182.ns2323  +++|          LDN    0
06942  M01S00183.ns2323  +++|          STD    CM+2
06943  M01S00184.ns2323  +++|          STM    ADJB        CLEAR COMMANDS PENDING
Line S04790 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06944  M01S04790.v23l617 ---|          LDD    CP          STORE CONTROL STATEMENT POINTERS
Line S00176 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06945  M01S00176.v23l617 +++|          LDD    CP          STORE COMMAND POINTERS
06946  M00S04791.1aj     +++|          ADN    CSPW
06947  M00S04792.1aj     +++|          CWD    SP
Line S00185 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06948  M01S00185.ns2323  +++|          ADN    RFCW-CSPW
06949  M01S00186.ns2323  +++|          CWD    CM
06950  M00S04793.1aj     +++|          UJN    ESBX        RETURN
Line S04794 Modification History
M01 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
06951  M01S04794.ns2748  ---| GTA      SPACE  4,10
06952  M01S04795.ns2748  ---|**        GTA - GET TERMINAL TABLE ADDRESS.
06953  M01S04796.ns2748  ---|
06954  M01S04797.ns2748  ---|
06955  M01S04798.ns2748  ---| GTA      SUBR               ENTRY/EXIT
06956  M01S04799.ns2748  ---|          LDC    **
06957  M01S04800.ns2748  ---| GTAA     EQU    *-1         (TERMINAL TABLE ADDRESS)
06958  M01S04801.ns2748  ---|          UJN    GTAX        RETURN
06959  M00S04802.1aj     +++| ITL      SPACE  4,10
06960  M00S04803.1aj     +++|**        ITL - INCREMENT SPECIFIED LIMIT.
Line S04804 Modification History
M01 (Removed by) ns2495
Seq #  *Modification Id* Act 
----------------------------+
06961  M01S04804.ns2495  ---|*
06962  M01S04805.ns2495  ---|*         SRU INCREASE WILL NOT BE MADE IF VALIDATION LIMIT SET.
06963  M00S04806.1aj     +++|*
06964  M00S04807.1aj     +++|*         ENTRY  (CM+4) = UNITS TO INCREMENT
06965  M00S04808.1aj     +++|*                (A) = SUBFUNCTION CODE FOR INCREMENT REQUEST.
06966  M00S04809.1aj     +++|*
06967  M00S04810.1aj     +++|*         MACROS MONITOR.
06968  M00S04811.1aj     +++|
06969  M00S04812.1aj     +++|
06970  M00S04813.1aj     +++| ITL      SUBR               ENTRY/EXIT
06971  M00S04814.1aj     +++|          STD    CM+1
06972  M00S04815.1aj     +++|          LDN    0
06973  M00S04816.1aj     +++|          STD    CM+3
06974  M00S04817.1aj     +++|          MONITOR  RLMM
06975  M00S04818.1aj     +++|          LJM    ITLX        RETURN
Line S04819 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06976  M01S04819.ns2323  ---| LOF      SPACE  4,10
Line S04820 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06977  M02S04820.ns2323  ---|**        LOF - LOGOFF TIMESHARING TERMINAL.
Line S00177 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06978  M02S00177.ns2323  ---|**        LOF - LOGOFF INTERACTIVE TERMINAL.
Line S00187 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06979  M01S00187.ns2323  +++| SCR      SPACE  4,10
06980  M01S00188.ns2323  +++|**        SCR - SET CHARGE REQUIRED.
06981  M00S04821.1aj     +++|*
Line S04822 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06982  M01S04822.ns2323  ---|*         ISSUES *TSEM* MONITOR REQUEST TO LOGOFF TERMINAL.
Line S00189 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06983  M01S00189.ns2323  +++|*         EXIT   CHARGE REQUIRED SET ON JOB.
Line S00013 Modification History
M01 (Added by) 1aj116
Seq #  *Modification Id* Act 
----------------------------+
06984  M01S00013.1aj116  +++|*                CHARGE REQUIRED FLAG *CRQF* .NE. 0.
06985  M00S04823.1aj     +++|*
Line S04824 Modification History
M01 (Removed by) ns2067
Seq #  *Modification Id* Act 
----------------------------+
06986  M01S04824.ns2067  ---|*         USES   CM - CM+4.
Line S00001 Modification History
M01 (Added by) ns2067
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06987  M02S00001.ns2323  ---|*         USES   T1, CM - CM+4.
Line S04825 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06988  M01S04825.ns2323  ---|*
06989  M01S04826.ns2323  ---|*         MACROS MONITOR.
Line S00190 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06990  M01S00190.ns2323  +++|*         USES   (SP - SP+4).
06991  M00S04827.1aj     +++|
06992  M00S04828.1aj     +++|
Line S04829 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06993  M01S04829.ns2323  ---| LOF      SUBR               ENTRY/EXIT
06994  M01S04830.ns2323  ---|          LDN    ZERL        CLEAR ZERO WORD
06995  M01S04831.ns2323  ---|          CRD    CM
Line S00001 Modification History
M01 (Added by) ns2114
M02 (Removed by) ns2323
M03 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06996  M03S00001.242l642 ---|          NFA    SHCN        CLEAR *SHELL* CONTROL
06997  M03S00002.242l642 ---|          CWD    CM
Line S04832 Modification History
M01 (Removed by) ns2323
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06998  M02S04832.242l642 ---|          LDK    /REM/VTLF   FORMAT LOGOFF REQUEST
Line S04833 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
06999  M01S04833.ns2323  ---|          STD    CM
Line S00084 Modification History
M01 (Added by) 241l630
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
07000  M02S00084.ns2323  ---|          LDN    2           SET FORCE LOGOFF
07001  M02S00085.ns2323  ---|          STD    CM+2
Line S04834 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
07002  M01S04834.ns2323  ---|          LDM    TSTN        SET TERMINAL NUMBER
07003  M01S04835.ns2323  ---|          STD    CM+4
07004  M01S04836.ns2323  ---|          LDD    MA          ENTER *TSEM* REQUEST PARAMETERS
07005  M01S04837.ns2323  ---|          CWD    CM
Line S04838 Modification History
M01 (Removed by) ns2067
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
07006  M02S04838.ns2323  ---|          MONITOR  TSEM      ISSUE REQUEST
07007  M02S04839.ns2323  ---|          UJP    LOFX        RETURN
Line S00002 Modification History
M01 (Added by) ns2067
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
07008  M02S00002.ns2323  ---| LOF1     MONITOR  TSEM      ISSUE REQUEST
07009  M02S00003.ns2323  ---|          LDD    CM+1
07010  M02S00004.ns2323  ---|          ZJN    LOFX        IF *IAF* INACCESSIBLE OR ERROR
07011  M02S00005.ns2323  ---|          LMC    7777
07012  M02S00006.ns2323  ---|          NJN    LOFX        IF REQUEST COMPLETE
07013  M02S00007.ns2323  ---|          LDC    3600        *TSEM* QUEUE FULL - DELAY AND RETRY
07014  M02S00008.ns2323  ---|          STD    T1
07015  M02S00009.ns2323  ---| LOF2     DELAY
07016  M02S00010.ns2323  ---|          SOD    T1
07017  M02S00011.ns2323  ---|          ZJN    LOF1        IF TIME TO REISSUE REQUEST
07018  M02S00012.ns2323  ---|          UJN    LOF2        CONTINUE TO DELAY
Line S00191 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
07019  M01S00191.ns2323  +++| SCR      SUBR               ENTRY/EXIT
07020  M01S00192.ns2323  +++|          LDD    CP          SET CHARGE REQUIRED
07021  M01S00193.ns2323  +++|          ADN    CSPW
07022  M01S00194.ns2323  +++|          CRD    SP
07023  M01S00195.ns2323  +++|          LDD    SP
07024  M01S00196.ns2323  +++|          SCN    4
07025  M01S00197.ns2323  +++|          LMN    4
07026  M01S00198.ns2323  +++|          STD    SP
Line S00014 Modification History
M01 (Added by) 1aj116
Seq #  *Modification Id* Act 
----------------------------+
07027  M01S00014.1aj116  +++|          STM    CRQF
Line S00199 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
07028  M01S00199.ns2323  +++|          LDD    CP
07029  M01S00200.ns2323  +++|          ADN    CSPW
07030  M01S00201.ns2323  +++|          CWD    SP
07031  M01S00202.ns2323  +++|          UJN    SCRX        RETURN
07032  M00S04840.1aj     +++| SEJ      SPACE  4,10
07033  M00S04841.1aj     +++|**        SEJ - SET END-OF-JOB TERMINATION OPTION.
07034  M00S04842.1aj     +++|*
07035  M00S04843.1aj     +++|*         SETS THE JOB TERMINATION OPTION IN THE CONTROL
07036  M00S04844.1aj     +++|*         POINT AREA END-OF-JOB CONTROL WORD.
07037  M00S04845.1aj     +++|*
07038  M00S04846.1aj     +++|*         ENTRY  (A) = END-OF-JOB OPTION.
07039  M00S04847.1aj     +++|*
07040  M00S04848.1aj     +++|*         EXIT   (JTOP) = JOB TERMINATION OPTION.
07041  M00S04849.1aj     +++|*
07042  M00S04850.1aj     +++|*         USES   CM - CM+4.
07043  M00S04851.1aj     +++|
07044  M00S04852.1aj     +++|
07045  M00S04853.1aj     +++| SEJ      SUBR               ENTRY/EXIT
07046  M00S04854.1aj     +++|          STM    JTOP        STORE OPTION
07047  M00S04855.1aj     +++|          LDD    CP          READ END-OF-JOB CONTROL WORD
07048  M00S04856.1aj     +++|          ADK    EOJW
07049  M00S04857.1aj     +++|          CRD    CM
07050  M00S04858.1aj     +++|          STD    T0          SAVE WORD ADDRESS
07051  M00S04859.1aj     +++|          LDD    CM          SET OPTION
07052  M00S04860.1aj     +++|          SHN    22-11
Line S04861 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07053  M01S04861.241l630 ---|          SCN    3
Line S00086 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07054  M01S00086.241l630 +++|          SCN    7
07055  M00S04862.1aj     +++|          LMM    JTOP
07056  M00S04863.1aj     +++|          SHN    11
07057  M00S04864.1aj     +++|          STD    CM
07058  M00S04865.1aj     +++|          LDD    T0          REWRITE WORD
07059  M00S04866.1aj     +++|          CWD    CM
07060  M00S04867.1aj     +++|          UJN    SEJX        RETURN
Line S04868 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
07061  M01S04868.ns2323  ---|
07062  M01S04869.ns2323  ---|
07063  M00S04870.1aj     +++| L0AV     EQU    *           LOAD ADDRESS FOR *0AV*
07064  M00S04871.1aj     +++|          ERRNG  7772-L0AV-ZAVL  *0AV* OVERFLOWS *3AB*
07065  M00S04872.1aj     +++|          TITLE  OVERLAID SUBROUTINES.
Line S04873 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07066  M01S04873.v23l617 ---| PEX      SPACE  4,10
07067  M01S04874.v23l617 ---|**        PEX - PROCESS EXIT.
07068  M01S04875.v23l617 ---|*
07069  M01S04876.v23l617 ---|*         ENTRY  (CW - CW+4) = ERROR EXIT CONTROL WORD.
07070  M01S04877.v23l617 ---|*                (T6 - T7) = ERROR EXIT ADDRESS.
07071  M01S04878.v23l617 ---|*
07072  M01S04879.v23l617 ---|*         EXIT   (CW - CW+4) = UPDATED.
07073  M01S04880.v23l617 ---|*                (T6 - T7) = ADDRESS TO SET (P) TO.
07074  M01S04881.v23l617 ---|
07075  M01S04882.v23l617 ---|
07076  M01S04883.v23l617 ---| PEX      SUBR               ENTRY/EXIT
07077  M01S04884.v23l617 ---|          LDN    0           CLEAR EXIT ADDRESS
07078  M01S04885.v23l617 ---|          STD    CW+4
07079  M01S04886.v23l617 ---|          LDD    CW+3
07080  M01S04887.v23l617 ---|          SCN    77
07081  M01S04888.v23l617 ---|          STD    CW+3
07082  M01S04889.v23l617 ---|          LDD    CP          READ (P)
07083  M01S04890.v23l617 ---|          CRD    T1
07084  M01S04891.v23l617 ---|          LDD    RA          READ (RA)
07085  M01S04892.v23l617 ---|          SHN    6
07086  M01S04893.v23l617 ---|          CRD    CM
07087  M01S04894.v23l617 ---|          LDD    CM+2        ENTER ERROR FLAG
07088  M01S04895.v23l617 ---|          SCN    77
07089  M01S04896.v23l617 ---|          LMD    EF
07090  M01S04897.v23l617 ---|          STD    CM+2
07091  M01S04898.v23l617 ---|          LPN    77
07092  M01S04899.v23l617 ---|          LMN    ARET
07093  M01S04900.v23l617 ---|          ZJN    PEX1        IF ARITH ERROR
07094  M01S04901.v23l617 ---|          LDD    T1          SET (P) IN (RA)
07095  M01S04902.v23l617 ---|          SHN    14
07096  M01S04903.v23l617 ---|          LMD    T1+1
07097  M01S04904.v23l617 ---|          SHN    14
07098  M01S04905.v23l617 ---|          STD    CM+1
07099  M01S04906.v23l617 ---|          SHN    -6
07100  M01S04907.v23l617 ---|          SCN    77
07101  M01S04908.v23l617 ---|          LMD    EF
07102  M01S04909.v23l617 ---|          STD    CM+2
07103  M01S04910.v23l617 ---| PEX1     LDD    RA          STORE (RA)
07104  M01S04911.v23l617 ---|          SHN    6
07105  M01S04912.v23l617 ---|          CWD    CM
07106  M01S04913.v23l617 ---|          LJM    PEXX        RETURN
07107  M01S04914.v23l617 ---| PRP      SPACE  4,15
07108  M01S04915.v23l617 ---|**        PRP - PROCESS REPRIEVE.
07109  M01S04916.v23l617 ---|*
07110  M01S04917.v23l617 ---|*         ENTRY  (CW - CW+4) = ERROR EXIT CONTROL WORD.
07111  M01S04918.v23l617 ---|*                (T6 - T7) = ERROR EXIT ADDRESS.
07112  M01S04919.v23l617 ---|*
07113  M01S04920.v23l617 ---|*         EXIT   (CW - CW+4) = UPDATED.
07114  M01S04921.v23l617 ---|*                (T6 - T7) = ADDRESS TO SET (P) TO.
07115  M01S04922.v23l617 ---|*                (A) = 0, REPRIEVE POSSIBLE.
07116  M01S04923.v23l617 ---|*
07117  M01S04924.v23l617 ---|*         CALLS  DFM.
07118  M01S04925.v23l617 ---|*
07119  M01S04926.v23l617 ---|*         MACROS MONITOR.
07120  M01S04927.v23l617 ---|
07121  M01S04928.v23l617 ---|
07122  M01S04929.v23l617 ---| PRP      SUBR               ENTRY/EXIT
07123  M01S04930.v23l617 ---|          LDM    TROF,EF     CHECK IF THIS ERROR SELECTED
07124  M01S04931.v23l617 ---|          STM    PRPA
07125  M01S04932.v23l617 ---|          LMD    RF
07126  M01S04933.v23l617 ---|          LPC    *
07127  M01S04934.v23l617 ---| PRPA     EQU    *-1
07128  M01S04935.v23l617 ---|          NJN    PRPX        IF OPTION NOT SELECTED
07129  M01S04936.v23l617 ---|          LDD    T6
07130  M01S04937.v23l617 ---|          SHN    6
07131  M01S04938.v23l617 ---|          ADD    RA
07132  M01S04939.v23l617 ---|          SHN    6
07133  M01S04940.v23l617 ---|          ADD    T7
07134  M01S04941.v23l617 ---|          CRD    T1
07135  M01S04942.v23l617 ---|          ADN    1           READ CHECKSUM
07136  M01S04943.v23l617 ---|          CRD    CN
07137  M01S04944.v23l617 ---|          LDD    T6          SET FWA OF CHECK SUM AREA
07138  M01S04945.v23l617 ---|          SHN    14
07139  M01S04946.v23l617 ---|          LMD    T7
07140  M01S04947.v23l617 ---|          ADN    21
07141  M01S04948.v23l617 ---|          STD    CM+4
07142  M01S04949.v23l617 ---|          SHN    -14
07143  M01S04950.v23l617 ---|          STD    CM+3
07144  M01S04951.v23l617 ---|          LDD    T1+2        SET WORD COUNT FOR CHECK SUM AREA
07145  M01S04952.v23l617 ---|          SCN    77
07146  M01S04953.v23l617 ---|          SHN    6
07147  M01S04954.v23l617 ---|          LMD    T1+1
07148  M01S04955.v23l617 ---|          ZJN    PRP1        IF NO CHECKSUM REQUIRED
07149  M01S04956.v23l617 ---|          SHN    6
07150  M01S04957.v23l617 ---|          SBD    CM+4
07151  M01S04958.v23l617 ---|          STD    CM+2
07152  M01S04959.v23l617 ---|          SHN    -14
07153  M01S04960.v23l617 ---|          SBD    CM+3
07154  M01S04961.v23l617 ---|          STD    CM+1
07155  M01S04962.v23l617 ---|          LDD    MA          SET PREVIOUS CHECKSUM FOR CALL
07156  M01S04963.v23l617 ---|          CWD    CN
07157  M01S04964.v23l617 ---|          MONITOR  CKSM      CHECK PROGRAM CHECKSUM
07158  M01S04965.v23l617 ---|          LDD    CM+4
07159  M01S04966.v23l617 ---|          ZJN    PRP1        IF GOOD CHECKSUM
07160  M01S04967.v23l617 ---|          LDC    =C* REPRIEVE CHECKSUM BAD.*
07161  M01S04968.v23l617 ---|          RJM    DFM
07162  M01S04969.v23l617 ---|          LDN    1
07163  M01S04970.v23l617 ---|          LJM    PRPX        RETURN
07164  M01S04971.v23l617 ---|
07165  M01S04972.v23l617 ---| PRP1     LDD    EF          SAVE ERROR FLAG FOR RESET
07166  M01S04973.v23l617 ---|          LMC    4000
07167  M01S04974.v23l617 ---|          STD    CW+1
07168  M01S04975.v23l617 ---|          LDN    40          SET FLAG FOR EXCHANGE PACKAGE ADDRESS
07169  M01S04976.v23l617 ---|          RAD    CW+3
07170  M01S04977.v23l617 ---|          LDN    21          SET PROPER VALUE OF (P)
07171  M01S04978.v23l617 ---|          RAD    T7
07172  M01S04979.v23l617 ---|          SHN    -14
07173  M01S04980.v23l617 ---|          RAD    T6
07174  M01S04981.v23l617 ---|          LDN    20          READ EXCHANGE PACKAGE
07175  M01S04982.v23l617 ---|          STD    T1
07176  M01S04983.v23l617 ---|          LDD    CP
07177  M01S04984.v23l617 ---|          CRM    EXPA,T1
07178  M01S04985.v23l617 ---|          LDM    TCEC,EF     SET EQUIVALENT ERROR FLAG
07179  M01S04986.v23l617 ---|          NJN    PRP2        IF SCOPE EQUIVALENT
07180  M01S04987.v23l617 ---|          LDD    EF
07181  M01S04988.v23l617 ---| PRP2     STM    EXPA+4
07182  M01S04989.v23l617 ---|          LDD    RA          READ (RA+1)
07183  M01S04990.v23l617 ---|          SHN    6
07184  M01S04991.v23l617 ---|          ADN    1
07185  M01S04992.v23l617 ---|          CRD    CM
07186  M01S04993.v23l617 ---|          LDD    CW+3        STORE EXCHANGE PACKAGE
07187  M01S04994.v23l617 ---|          LPN    37
07188  M01S04995.v23l617 ---|          SHN    6
07189  M01S04996.v23l617 ---|          ADD    RA
07190  M01S04997.v23l617 ---|          SHN    6
07191  M01S04998.v23l617 ---|          ADD    CW+4
07192  M01S04999.v23l617 ---|          CWM    EXPA,T1
07193  M01S05000.v23l617 ---|          CWD    CM          STORE (RA+1)
07194  M01S05001.v23l617 ---|          LDM    PRPB,EF     ISSUE MESSAGE
07195  M01S05002.v23l617 ---|          ZJN    PRP3        IF NO MESSAGE
07196  M01S05003.v23l617 ---|          RJM    DFM
07197  M01S05004.v23l617 ---| PRP3     LDC    =C* JOB REPRIEVED.*
07198  M01S05005.v23l617 ---|          RJM    DFM
07199  M01S05006.v23l617 ---|*         LDN    0           SET JOB REPRIEVE
07200  M01S05007.v23l617 ---|          LJM    PRPX        RETURN
07201  M01S05008.v23l617 ---|
07202  M01S05009.v23l617 ---|
07203  M01S05010.v23l617 ---|*         TABLE OF MESSAGES TO BE ISSUED ON REPRIEVE PROCESSING.
07204  M01S05011.v23l617 ---|
07205  M01S05012.v23l617 ---| PRPB     INDEX
07206  M01S05013.v23l617 ---|
07207  M01S05014.v23l617 ---|          INDEX  0,(=C* REPRIEVED NORMAL TERMINATION.*)
07208  M01S05015.v23l617 ---|          INDEX  TLET,(=C* TIME LIMIT.*)
07209  M01S05016.v23l617 ---|          INDEX  ARET,(=C* MODE ERROR.*)
07210  M01S05017.v23l617 ---|          INDEX  PPET,(=C* PPU ABORT.*)
07211  M01S05018.v23l617 ---|          INDEX  CPET,(=C* CPU ABORT.*)
07212  M01S05019.v23l617 ---|          INDEX  PCET,(=C* PP CALL ERROR.*)
07213  M01S05020.v23l617 ---|          INDEX  ODET,(=C* OPERATOR DROP.*)
07214  M01S05021.v23l617 ---|          INDEX  PSET,(=C* PROGRAM STOP.*)
07215  M01S05022.v23l617 ---|          INDEX  SYET,(=C* SYSTEM ABORT.*)
07216  M01S05023.v23l617 ---|          INDEX  PEET,(=C* MODE ERROR.*)
07217  M01S05024.v23l617 ---|          INDEX  ORET,(=C* OPERATOR OVERRIDE.*)
07218  M01S05025.v23l617 ---|          INDEX  SSET,(=C* SUBSYSTEM ABORTED.*)
07219  M01S05026.v23l617 ---|          INDEX  OKET,(=C* OPERATOR KILL.*)
07220  M01S05027.v23l617 ---|          INDEX  ITET,(=C* SCP INVALID TRANSFER ADDRESS.*)
07221  M01S05028.v23l617 ---|          INDEX  MXET
07222  M00S05029.1aj     +++| RSF      SPACE  4,10
07223  M00S05030.1aj     +++|**        RSF - RETURN SPECIAL FILES.
07224  M00S05031.1aj     +++|*
07225  M00S05032.1aj     +++|*         CALLED DURING DEADSTART RERUN PROCESSING TO RETURN
07226  M00S05033.1aj     +++|*         *LIFT* FILES WHICH HAVE THE INTERLOCK BIT SET IN
Line S05034 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07227  M01S05034.v23l617 ---|*         THE FST ENTRY, AND THE DM* FILE, IF IT EXISTS.
Line S00178 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07228  M01S00178.v23l617 +++|*         THE FST WORD OR THE PF ACTIVITY BIT SET IN THE FUT WORD.
07229  M01S00179.v23l617 +++|*         THE DM* FILE WILL ALSO BE RETURNED, IF IT EXISTS.
07230  M00S05035.1aj     +++|*
Line S05036 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07231  M01S05036.v23l617 ---|*         USES   FA, NL, AB - AB+4, CN - CN+4, FN - FN+4.
Line S00180 Modification History
M01 (Added by) v23l617
M02 (Removed by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07232  M02S00180.1aj83   ---|*         USES   FA, NL, AB - AB+4, CM - CM+4, CN - CN+4, FN - FN+4.
Line S00003 Modification History
M01 (Added by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07233  M01S00003.1aj83   +++|*         USES   FA, NL, CM - CM+4, CN - CN+4, FN - FN+4, FS - FS+4.
07234  M00S05037.1aj     +++|*
07235  M00S05038.1aj     +++|*         CALLS  *0DF*.
07236  M00S05039.1aj     +++|*
07237  M00S05040.1aj     +++|*         MACROS EXECUTE, NFA.
07238  M00S05041.1aj     +++|
07239  M00S05042.1aj     +++|
07240  M00S05043.1aj     +++| RSF      SUBR               ENTRY/EXIT
Line S05044 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07241  M01S05044.242l642 ---|          LDD    CP          READ FL CONTROL WORD
07242  M01S05045.242l642 ---|          ADK    FLSW
07243  M01S05046.242l642 ---|          CRD    CN
07244  M01S05047.242l642 ---|          LDD    CN          SET NEGATIVE FL
07245  M01S05048.242l642 ---|          SHN    6
Line S00316 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07246  M01S00316.242l642 +++|          LDC    *           (NEGATIVE FL)
07247  M01S00317.242l642 +++| RSFA     EQU    *-1
07248  M00S05049.1aj     +++|          STD    NL
07249  M00S05050.1aj     +++|          LDK    FNTN-LENF   SET FNT FWA
07250  M00S05051.1aj     +++|          STD    CN
07251  M00S05052.1aj     +++|
Line S05053 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07252  M01S05053.v23l617 ---|*         SEARCH FNT FOR INTERLOCKED *LIFT* FILES.
Line S00181 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07253  M01S00181.v23l617 +++|*         SEARCH FNT FOR *LIFT* FILES WITH INTERLOCK OR PF ACTIVITY.
07254  M00S05054.1aj     +++|
07255  M00S05055.1aj     +++| RSF1     LDK    LENF        ADVANCE FNT INDEX
07256  M00S05056.1aj     +++|          RAD    CN
07257  M00S05057.1aj     +++|          STD    FA
07258  M00S05058.1aj     +++|          SBD    NL
07259  M00S05059.1aj     +++|          PJN    RSFX        IF END OF FNT
07260  M00S05060.1aj     +++|          NFA    CN,R        SET FNT ADDRESS
Line S05061 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07261  M01S05061.v23l617 ---|          CRD    FN          READ FNT ENTRY
07262  M01S05062.v23l617 ---|          ADN    FSTL        READ FST ENTRY
Line S00182 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07263  M01S00182.v23l617 +++|          ADK    FNTL        READ FNT WORD
07264  M01S00183.v23l617 +++|          CRD    FN
07265  M01S00184.v23l617 +++|          ADN    FSTL-FNTL   READ FST WORD
Line S05063 Modification History
M01 (Removed by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07266  M01S05063.1aj83   ---|          CRD    AB
Line S00004 Modification History
M01 (Added by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07267  M01S00004.1aj83   +++|          CRD    FS
Line S00185 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07268  M01S00185.v23l617 +++|          ADN    FUTL-FSTL   READ FUT WORD
07269  M01S00186.v23l617 +++|          CRD    CM
07270  M00S05064.1aj     +++|          LDD    FN          CHECK FNT ENTRY
07271  M00S05065.1aj     +++|          ZJN    RSF1        IF NULL FNT ENTRY
07272  M00S05066.1aj     +++|          LDD    FN+4        CHECK FILE TYPE
07273  M00S05067.1aj     +++|          SHN    -6
07274  M00S05068.1aj     +++|          LMN    LIFT
07275  M00S05069.1aj     +++|          ZJN    RSF2        IF *LIFT* FILE
07276  M00S05070.1aj     +++|          LMN    LIFT&ROFT
07277  M00S05071.1aj     +++|          NJN    RSF1        IF NOT *ROFT* FILE
Line S05072 Modification History
M01 (Removed by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07278  M01S05072.1aj83   ---|          UJN    RSF3        DROP DM* FILE
07279  M01S05073.1aj83   ---|
07280  M01S05074.1aj83   ---| RSF2     LDD    AB+4        CHECK FST *LIFT* INTERLOCK BIT
07281  M01S05075.1aj83   ---|          LPC    1000
Line S05076 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07282  M02S05076.1aj83   ---|          ZJN    RSF1        IF NOT SET
Line S00187 Modification History
M01 (Added by) v23l617
M02 (Removed by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07283  M02S00187.1aj83   ---|          NJN    RSF2.1      IF INTERLOCK SET
Line S00005 Modification History
M01 (Added by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07284  M01S00005.1aj83   +++|          UJN    RSF6        DROP DM* FILE
07285  M01S00006.1aj83   +++|
07286  M01S00007.1aj83   +++| RSF2     LDD    FS+4        CHECK *LIFT* FILE TRACK INTERLOCK FLAG SET
07287  M01S00008.1aj83   +++|          LPC    1000
07288  M01S00009.1aj83   +++|          NJN    RSF4        IF INTERLOCK SET
Line S00188 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07289  M01S00188.v23l617 +++|          LDD    CM+2
07290  M01S00189.v23l617 +++|          LPN    10
Line S00190 Modification History
M01 (Added by) v23l617
M02 (Removed by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07291  M02S00190.1aj83   ---|          NJN    RSF2.2      IF PF ACTIVITY BIT SET
07292  M02S00191.1aj83   ---|          UJN    RSF1        ADVANCE FNT INDEX
Line S00010 Modification History
M01 (Added by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07293  M01S00010.1aj83   +++|          NJN    RSF5        IF PF ACTIVITY FLAG SET
07294  M01S00011.1aj83   +++| RSF3     UJN    RSF1        CHECK NEXT FILE
07295  M00S05077.1aj     +++|
07296  M00S05078.1aj     +++|*         CLEAR *LIFT* INTERLOCK BIT AND RETURN FILE.
07297  M00S05079.1aj     +++|
Line S05080 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07298  M01S05080.v23l617 ---|          LMD    AB+4        CLEAR INTERLOCK BIT
Line S00192 Modification History
M01 (Added by) v23l617
M02 (Removed by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07299  M02S00192.1aj83   ---| RSF2.1   LMD    AB+4        CLEAR INTERLOCK BIT
Line S05081 Modification History
M01 (Removed by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07300  M01S05081.1aj83   ---|          STD    AB+4
Line S05082 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07301  M02S05082.1aj83   ---|          NFA    CN,R        SET FST ADDRESS
07302  M02S05083.1aj83   ---|          ADN    FSTL
07303  M02S05084.1aj83   ---|          CWD    AB          REWRITE FST ENTRY
Line S00193 Modification History
M01 (Added by) v23l617
M02 (Removed by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07304  M02S00193.1aj83   ---| RSF2.2   LDD    CM+2        CLEAR PF ACTIVITY BIT, IF PRESENT
Line S00012 Modification History
M01 (Added by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07305  M01S00012.1aj83   +++| RSF4     LMD    FS+4        CLEAR INTERLOCK FLAG
07306  M01S00013.1aj83   +++|          STD    FS+4
07307  M01S00014.1aj83   +++| RSF5     LDD    CM+2        CLEAR PF ACTIVITY FLAG IF PRESENT
Line S00194 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07308  M01S00194.v23l617 +++|          SCN    10
07309  M01S00195.v23l617 +++|          STD    CM+2
07310  M01S00196.v23l617 +++|          NFA    CN,R        SET FNT ADDRESS
07311  M01S00197.v23l617 +++|          ADN    FSTL        REWRITE FST WORD
Line S00198 Modification History
M01 (Added by) v23l617
M02 (Removed by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07312  M02S00198.1aj83   ---|          CWD    AB
Line S00015 Modification History
M01 (Added by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07313  M01S00015.1aj83   +++|          CWD    FS
Line S00199 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07314  M01S00199.v23l617 +++|          ADN    FUTL-FSTL   REWRITE FUT WORD
07315  M01S00200.v23l617 +++|          CWD    CM
Line S05085 Modification History
M01 (Removed by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07316  M01S05085.1aj83   ---| RSF3     LDN    2           SET DROP *ROFT*, RETURN FLAGS FOR *0DF*
Line S00016 Modification History
M01 (Added by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07317  M01S00016.1aj83   +++| RSF6     LDN    2           DROP *ROFT* + RETURN FLAGS FOR *0DF*
Line S05086 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07318  M01S05086.v23l617 ---|          STM    L0DF-1
07319  M01S05087.v23l617 ---|          EXECUTE  0DF,L0DF  DROP FILE
Line S00201 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07320  M01S00201.v23l617 +++|          STM    /EFX/L0DF-1
07321  M01S00202.v23l617 +++|          EXECUTE  0DF,/EFX/L0DF  DROP FILE
Line S05088 Modification History
M01 (Removed by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07322  M01S05088.1aj83   ---|          UJP    RSF1        PROCESS NEXT FILE
Line S00017 Modification History
M01 (Added by) 1aj83
Seq #  *Modification Id* Act 
----------------------------+
07323  M01S00017.1aj83   +++|          UJN    RSF3        CHECK NEXT FILE
07324  M00S05089.1aj     +++|
Line S05090 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07325  M01S05090.v23l617 ---| L0DF     EQU    *+1         LOAD ADDRESS FOR *0DF*
07326  M01S05091.v23l617 ---|          ERRNG  7772-L0DF-ZDFL  *0DF* OVERFLOWS *3AB*
Line S00203 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07327  M01S00203.v23l617 +++|          ERRNG  7772-/EFX/L0DF-ZDFL  *0DF* OVERFLOWS PP
07328  M00S05092.1aj     +++| SFX      SPACE  4,10
07329  M00S05093.1aj     +++|**        SFX - SEARCH FOR EXIT.
07330  M00S05094.1aj     +++|
07331  M00S05095.1aj     +++|
07332  M00S05096.1aj     +++| SFX      SUBR               ENTRY/EXIT
07333  M00S05097.1aj     +++|          LDM    CPXS        CHECK EXIT STATUS
07334  M00S05098.1aj     +++|          SHN    21-13
07335  M00S05099.1aj     +++|          MJN    SFX1        IF *NOEXIT*
Line S05100 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07336  M01S05100.v23l617 ---|          LDD    CP          SET SKIP TO EXIT CARD FLAG
Line S00204 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07337  M01S00204.v23l617 +++|          LDD    CP          SET SKIP TO EXIT COMMAND FLAG
07338  M00S05101.1aj     +++|          ADN    CSSW
07339  M00S05102.1aj     +++|          CRD    CM
07340  M00S05103.1aj     +++|          LDD    CM
07341  M00S05104.1aj     +++|          LPC    5777
07342  M00S05105.1aj     +++|          LMC    2000
07343  M00S05106.1aj     +++|          STD    CM
07344  M00S05107.1aj     +++|          LDD    CP
07345  M00S05108.1aj     +++|          ADN    CSSW
07346  M00S05109.1aj     +++|          CWD    CM
07347  M00S05110.1aj     +++| SFX1     LDD    CP          READ JOB CONTROL REGISTERS
07348  M00S05111.1aj     +++|          ADC    JCRW
07349  M00S05112.1aj     +++|          CRD    CM
07350  M00S05113.1aj     +++|          LDD    CM          ENTER ERROR FLAG
07351  M00S05114.1aj     +++|          LPN    77
07352  M00S05115.1aj     +++|          SHN    14
07353  M00S05116.1aj     +++|          LMD    EF
07354  M00S05117.1aj     +++|          SHN    6
07355  M00S05118.1aj     +++|          STD    CM
Line S00001 Modification History
M01 (Added by) 1aj5
Seq #  *Modification Id* Act 
----------------------------+
07356  M01S00001.1aj5    +++|          SHN    -6
07357  M01S00002.1aj5    +++|          LMN    IDET
07358  M01S00003.1aj5    +++|          ZJN    SFX2        IF IDLE DOWN PROCESSING
07359  M00S05119.1aj     +++|          LDD    CP          STORE JOB CONTROL REGISTERS
07360  M00S05120.1aj     +++|          ADC    JCRW
07361  M00S05121.1aj     +++|          CWD    CM
Line S05122 Modification History
M01 (Removed by) 1aj5
Seq #  *Modification Id* Act 
----------------------------+
07362  M01S05122.1aj5    ---|          LJM    SFXX        RETURN
Line S00004 Modification History
M01 (Added by) 1aj5
Seq #  *Modification Id* Act 
----------------------------+
07363  M01S00004.1aj5    +++| SFX2     LJM    SFXX        RETURN
07364  M00S05123.1aj     +++| SQD      SPACE  4,10
07365  M00S05124.1aj     +++|**        SQD - SET QUEUE FILE DISPOSITION OPTION.
07366  M00S05125.1aj     +++|*
07367  M00S05126.1aj     +++|*         SETS THE QUEUED FILE DISPOSITION OPTION IN THE
07368  M00S05127.1aj     +++|*         CONTROL POINT AREA END-OF-JOB CONTROL WORD.
07369  M00S05128.1aj     +++|*
07370  M00S05129.1aj     +++|*         ENTRY  (A) = QUEUE FILE DISPOSTION OPTION.
07371  M00S05130.1aj     +++|*
07372  M00S05131.1aj     +++|*         USES   CM - CM+4, T1.
07373  M00S05132.1aj     +++|
07374  M00S05133.1aj     +++|
07375  M00S05134.1aj     +++| SQD      SUBR               ENTRY/EXIT
07376  M00S05135.1aj     +++|          STD    T1          SAVE DISPOSITION OPTION
07377  M00S05136.1aj     +++|          LDD    CP          READ END-OF-JOB CONTROL WORD
07378  M00S05137.1aj     +++|          ADK    EOJW
07379  M00S05138.1aj     +++|          CRD    CM
07380  M00S05139.1aj     +++|          STD    T0          SAVE WORD ADDRESS
07381  M00S05140.1aj     +++|          LDD    CM          SET OPTION
07382  M00S05141.1aj     +++|          SHN    22-6
07383  M00S05142.1aj     +++|          SCN    7
07384  M00S05143.1aj     +++|          LMD    T1
07385  M00S05144.1aj     +++|          SHN    6
07386  M00S05145.1aj     +++|          STD    CM
07387  M00S05146.1aj     +++|          LDD    T0          REWRITE WORD
07388  M00S05147.1aj     +++|          CWD    CM
07389  M00S05148.1aj     +++|          UJN    SQDX        RETURN
07390  M00S05149.1aj     +++| VCA      SPACE  4,15
07391  M00S05150.1aj     +++|**        VCA - VALIDATE CM ADDRESS.
07392  M00S05151.1aj     +++|*
07393  M00S05152.1aj     +++|*         VALIDATES AND SETS AN ABSOLUTE CENTRAL MEMORY ADDRESS.
07394  M00S05153.1aj     +++|*
07395  M00S05154.1aj     +++|*         ENTRY  (A) = CM ADDRESS RELATIVE TO RA.
07396  M00S05155.1aj     +++|*
07397  M00S05156.1aj     +++|*         EXIT   (A) = ABSOLUTE CM ADDRESS IF WITHIN FL.
07398  M00S05157.1aj     +++|*                    = 0 IF ADDRESS OUTSIDE FL.
07399  M00S05158.1aj     +++|*                (T1,T2) = ABSOLUTE CM ADDRESS.
07400  M00S05159.1aj     +++|*
07401  M00S05160.1aj     +++|*         USES   T1, T2.
07402  M00S05161.1aj     +++|
07403  M00S05162.1aj     +++|
Line S05163 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07404  M01S05163.v23l617 ---| VCA1     LDN    0           SET INVALID ADDRESS EXIT CONDITION
Line S00205 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07405  M01S00205.v23l617 +++| VCA1     LDN    0           SET INCORRECT ADDRESS EXIT CONDITION
07406  M00S05164.1aj     +++|
07407  M00S05165.1aj     +++| VCA      SUBR               ENTRY/EXIT
07408  M00S05166.1aj     +++|          SHN    14          SET ABSOLUTE ADDRESS
07409  M00S05167.1aj     +++|          ADD    RA
07410  M00S05168.1aj     +++|          SHN    6
07411  M00S05169.1aj     +++|          STD    T2          SAVE LOWER 12 BITS
07412  M00S05170.1aj     +++|          SHN    -6
07413  M00S05171.1aj     +++|          SBD    RA          VALIDATE AGAINST RA+FL
07414  M00S05172.1aj     +++|          SBD    FL
07415  M00S05173.1aj     +++|          PJN    VCA1        IF OUT OF RANGE
07416  M00S05174.1aj     +++|          ADD    RA          RESTORE ADDRESS
07417  M00S05175.1aj     +++|          ADD    FL
07418  M00S05176.1aj     +++|          SHN    -6          STORE UPPER 6 BITS
07419  M00S05177.1aj     +++|          STD    T1
07420  M00S05178.1aj     +++|          SHN    14          SET (A) = ABSOLUTE ADDRESS
07421  M00S05179.1aj     +++|          ADD    T2
07422  M00S05180.1aj     +++|          UJN    VCAX        RETURN
07423  M00S05181.1aj     +++|          SPACE  4,10
07424  M00S05182.1aj     +++|**        RESIDENT COMMON DECKS.
07425  M00S05183.1aj     +++|
07426  M00S05184.1aj     +++|
Line S05185 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07427  M01S05185.v23l617 ---|*CALL     COMPCUA
07428  M00S05186.1aj     +++|*CALL     COMPCVI
Line S05187 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07429  M01S05187.ns21000 ---|*CALL     COMPC2D
07430  M00S05188.1aj     +++|          TITLE  OVERLAID PRESET.
07431  M00S05189.1aj     +++|          USE    BUFFERS
07432  M00S05190.1aj     +++|
07433  M00S05191.1aj     +++| EXPA     BSS    0           EXCHANGE PACKAGE BUFFER
07434  M00S05192.1aj     +++| PRS      SPACE  4,20
07435  M00S05193.1aj     +++|**        PRS - PRESET ERROR PROCESSING OVERLAY.
07436  M00S05194.1aj     +++|*
07437  M00S05195.1aj     +++|*         ENTRY  (EF) = ERROR FLAG DETECTED OR SET BY 1AJ.
07438  M00S05196.1aj     +++|*
07439  M00S05197.1aj     +++|*         EXIT   (A) = RECOVERABILITY STATUS:
07440  M00S05198.1aj     +++|*                    = ZERO IF REPRIEVE/EREXIT NOT POSSIBLE.
Line S00037 Modification History
M01 (Added by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
07441  M01S00037.ns2009  +++|*                    .LT. 0 IF IDLE OF SPECIAL SUBSYSTEM.
07442  M00S05199.1aj     +++|*                (TA) = *IAF* RA IF ON-LINE INTERACTIVE JOB.
07443  M00S05200.1aj     +++|*                (TN) = TERMINAL NUMBER IF ON-LINE INTERACTIVE JOB.
07444  M00S05201.1aj     +++|*                (CW - CW+4) = ENTRY/EXIT CONTROL WORD.
07445  M00S05202.1aj     +++|*                (CPXS) = CONTROL POINT EXIT STATUS.
07446  M00S05203.1aj     +++|*
07447  M00S05204.1aj     +++|*         USES   CM - CM+4, CN - CN+4, CW - CW+4, EF.
07448  M00S05205.1aj     +++|*
Line S05206 Modification History
M01 (Removed by) ns2009
M02 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07449  M02S05206.ns21000 ---|*         CALLS  CSE, CSF, CSS, STP.
Line S00125 Modification History
M01 (Added by) ns21000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07450  M02S00125.v23l617 ---|*         CALLS  CSA, CSE, CSF, CSS, STP.
Line S00206 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07451  M01S00206.v23l617 +++|*         CALLS  CSA, CSE, CSF, CSS, CUA, STP.
Line S00038 Modification History
M01 (Added by) ns2009
M02 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07452  M02S00038.ns21000 ---|*         CALLS  CSE, CSF, CSS, STP.
07453  M00S05207.1aj     +++|*
Line S05208 Modification History
M01 (Removed by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
07454  M01S05208.ns2009  ---|*         MACROS MONITOR.
Line S00039 Modification History
M01 (Added by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
07455  M01S00039.ns2009  +++|*         MACROS MONITOR, PAUSE.
07456  M00S05209.1aj     +++|
07457  M00S05210.1aj     +++|
07458  M00S05211.1aj     +++| PRS      SUBR               ENTRY/EXIT
Line S00207 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07459  M01S00207.v23l617 +++|          RJM    CUA         CHECK USER ACCESS
07460  M01S00208.v23l617 +++|          STM    DMPB        SAVE USER ACCESS PERMISSION STATUS
07461  M00S05212.1aj     +++|          RJM    STP         SET TERMINAL TABLE POINTER
Line S05213 Modification History
M01 (Removed by) ns2091a
Seq #  *Modification Id* Act 
----------------------------+
07462  M01S05213.ns2091a ---|          RJM    CSE         CHECK FOR *IAF* ERROR
Line S00126 Modification History
M01 (Added by) ns21000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07463  M02S00126.242l642 ---|          RJM    CSA         CHECK *SHELL* ABORT
Line S05214 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07464  M01S05214.242l642 ---|          PAUSE              PAUSE FOR RELOCATION
Line S00318 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07465  M01S00318.242l642 +++|          LDD    CP          CHECK FOR NFL ASSIGNED
07466  M01S00319.242l642 +++|          ADK    FLSW
07467  M01S00320.242l642 +++|          CRD    CM
07468  M01S00321.242l642 +++|          LDD    CM
07469  M01S00322.242l642 +++|          SHN    6           SAVE NEGATIVE FL VALUE
07470  M01S00323.242l642 +++|          STM    RSFA
07471  M01S00324.242l642 +++|          NJN    PRS0.1      IF NFL ASSIGNED
07472  M01S00325.242l642 +++|          AOM    CJAA
07473  M01S00326.242l642 +++|          LDD    EF
07474  M01S00327.242l642 +++|          SBN    SYET
07475  M01S00328.242l642 +++|          PJN    PRS0.2      IF SHOULD NOT CHANGE ERROR FLAG
07476  M01S00329.242l642 +++|          LDN    SYET        SET SYSTEM ABORT ERROR FLAG
07477  M01S00330.242l642 +++|          STD    EF
07478  M01S00331.242l642 +++|          UJN    PRS0.2      CONTINUE
07479  M01S00332.242l642 +++|
07480  M01S00333.242l642 +++| PRS0.1   RJM    CSA         CHECK SHELL ABORT
07481  M01S00334.242l642 +++| PRS0.2   PAUSE              PAUSE FOR RELOCATION
Line S05215 Modification History
M01 (Removed by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
07482  M01S05215.ns2044  ---|          LDD    CM+1        CHECK CPU ERROR FLAG
07483  M01S05216.ns2044  ---|          ZJN    PRS2        IF NO ERROR FLAG AT CONTROL POINT
Line S00009 Modification History
M01 (Added by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
07484  M01S00009.ns2044  +++|          LDD    CM+1        CHECK CONTROL POINT ERROR FLAG
07485  M01S00010.ns2044  +++|          ZJN    PRS3        IF NO ERROR FLAG AT CONTROL POINT
07486  M00S05217.1aj     +++|          SBN    MXET        VALIDATE ERROR FLAG
07487  M00S05218.1aj     +++|          MJN    PRS1        IF VALID ERROR FLAG
Line S05219 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07488  M01S05219.v23l617 ---|          MONITOR  HNGM      HANG FOR INVALID ERROR FLAG
Line S00209 Modification History
M01 (Added by) v23l617
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07489  M02S00209.241l630 ---|          MONITOR  HNGM      HANG FOR INCORRECT ERROR FLAG
Line S05220 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07490  M01S05220.241l630 ---|          LDN    SYET        SET SYSTEM ABORT ERROR FLAG
Line S00087 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07491  M01S00087.241l630 +++|          LDN    0
07492  M01S00088.241l630 +++|          STD    CM+2        SET NO ERROR FLAG
07493  M01S00089.241l630 +++|          LDC    *
07494  M01S00090.241l630 +++|          STD    CM+1        ADDRESS WHERE ERROR DETECTED
07495  M01S00091.241l630 +++|          MONITOR  CHGM      CONDITIONAL HANG FOR INCORRECT ERROR FLAG
07496  M01S00092.241l630 +++|          LDN    SWET        SET SYSTEM SOFTWARE ERROR
07497  M00S05221.1aj     +++|          STD    EF
Line S05222 Modification History
M01 (Removed by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
07498  M01S05222.ns2044  ---| PRS1     LDN    0           CLEAR CPU ERROR FLAG
07499  M01S05223.ns2044  ---|          STD    CM+1
Line S00011 Modification History
M01 (Added by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
07500  M01S00011.ns2044  +++|
07501  M01S00012.ns2044  +++|*         CHECK FOR SPECIAL ERROR PROCESSING.
07502  M01S00013.ns2044  +++|
07503  M01S00014.ns2044  +++| PRS1     RJM    CSF         CHECK SCR FOR FATAL ERROR
07504  M01S00015.ns2044  +++|          ZJN    PRS2        IF NOT FATAL ERROR
Line S00002 Modification History
M01 (Added by) 1aj91
Seq #  *Modification Id* Act 
----------------------------+
07505  M01S00002.1aj91   +++|          AOM    PERS        FLAG HARDWARE ERROR DETECTED
Line S00016 Modification History
M01 (Added by) ns2044
M02 (Removed by) 1aj70
Seq #  *Modification Id* Act 
----------------------------+
07506  M02S00016.1aj70   ---|          AOM    ADJA        SET CM/CPU PARITY ERROR FLAG
Line S00017 Modification History
M01 (Added by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
07507  M01S00017.ns2044  +++|          LDN    0           SET (A) STATUS = RECOVERY IMPOSSIBLE
07508  M01S00018.ns2044  +++|          UJP    PRSX        RETURN
07509  M01S00019.ns2044  +++|
07510  M01S00020.ns2044  +++|*         CLEAR ERROR FLAG IN CPA.
07511  M01S00021.ns2044  +++|
07512  M01S00022.ns2044  +++| PRS2     STD    CM+1
07513  M00S05224.1aj     +++|          MONITOR  CEFM
Line S05225 Modification History
M01 (Removed by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
07514  M01S05225.ns2044  ---|
07515  M01S05226.ns2044  ---|*         CHECK FOR SPECIAL ERROR PROCESSING.
07516  M01S05227.ns2044  ---|
07517  M01S05228.ns2044  ---| PRS2     RJM    CSF         CHECK SCR FOR FATAL ERROR
07518  M01S05229.ns2044  ---|          ZJN    PRS3        IF NOT FATAL ERROR
07519  M01S05230.ns2044  ---|          LDN    0           SET (A) STATUS = RECOVERY IMPOSSIBLE
07520  M01S05231.ns2044  ---|          UJP    PRSX        RETURN
07521  M00S05232.1aj     +++|
07522  M00S05233.1aj     +++|*         RESET SENSE SWITCHES.
07523  M00S05234.1aj     +++|
07524  M00S05235.1aj     +++| PRS3     LDD    CP          READ SENSE SWITCH WORD
07525  M00S05236.1aj     +++|          ADN    SNSW
07526  M00S05237.1aj     +++|          CRD    CN
07527  M00S05238.1aj     +++|          ADN    EECW-SNSW   READ ENTRY/EXIT CONTROL
07528  M00S05239.1aj     +++|          CRD    CW
Line S05240 Modification History
M01 (Removed by) ns2324
Seq #  *Modification Id* Act 
----------------------------+
07529  M01S05240.ns2324  ---|          LDD    FL          CHECK FIELD LENGTH
Line S00008 Modification History
M01 (Added by) ns2324
Seq #  *Modification Id* Act 
----------------------------+
07530  M01S00008.ns2324  +++|          LDD    EF
07531  M01S00009.ns2324  +++|          LMN    TLET
07532  M01S00010.ns2324  +++|          NJN    PRS3.1      IF NOT TIME LIMIT
07533  M01S00011.ns2324  +++|          LDD    CW
07534  M01S00012.ns2324  +++|          SHN    21-0
07535  M01S00013.ns2324  +++|          PJN    PRS3.1      IF VALIDATION HAS NOT BEEN EXTENDED
07536  M01S00014.ns2324  +++|          LDN    ZERL
07537  M01S00015.ns2324  +++|          CRD    CW
07538  M01S00016.ns2324  +++|          LDD    CP          CLEAR EXIT CONTROL
07539  M01S00017.ns2324  +++|          ADK    EECW
07540  M01S00018.ns2324  +++|          CWD    CW
07541  M01S00019.ns2324  +++|          LDN    0
07542  M01S00020.ns2324  +++|          STD    RF
07543  M01S00021.ns2324  +++| PRS3.1   LDD    FL          CHECK FIELD LENGTH
07544  M00S05241.1aj     +++|          ZJN    PRS4        IF NO FIELD LENGTH ASSIGNED
07545  M00S05242.1aj     +++|          LDD    RA          READ RA+0
07546  M00S05243.1aj     +++|          SHN    6
07547  M00S05244.1aj     +++|          CRD    CM
07548  M00S05245.1aj     +++|          LDD    CN+4        GET CP SENSE SWITCHES
Line S00001 Modification History
M01 (Added by) 1aj102
Seq #  *Modification Id* Act 
----------------------------+
07549  M01S00001.1aj102  +++|          LPC    7700
07550  M00S05246.1aj     +++|          STD    CM+4        RESET RA+0 SENSE SWITCHES
07551  M00S05247.1aj     +++|          LDD    RA          REWRITE RA+0
07552  M00S05248.1aj     +++|          SHN    6
07553  M00S05249.1aj     +++|          CWD    CM
07554  M00S05250.1aj     +++|
07555  M00S05251.1aj     +++|*         CLEAR PAUSE BIT IN CONTROL POINT AREA.
07556  M00S05252.1aj     +++|
07557  M00S05253.1aj     +++| PRS4     LDD    CN+3        CLEAR PAUSE BIT
07558  M00S05254.1aj     +++|          SCN    1
07559  M00S05255.1aj     +++|          STD    CN+3
07560  M00S05256.1aj     +++|          LDD    CP          REWRITE SENSE SWITCH WORD
07561  M00S05257.1aj     +++|          ADN    SNSW
07562  M00S05258.1aj     +++|          CWD    CN
07563  M00S05259.1aj     +++|
07564  M00S05260.1aj     +++|*         CHECK FOR IDLEDOWN OF SPECIAL SUBSYSTEM.
07565  M00S05261.1aj     +++|
07566  M00S05262.1aj     +++|          LDD    EF
07567  M00S05263.1aj     +++|          LMK    IDET
07568  M00S05264.1aj     +++|          NJN    PRS5        IF NOT SUBSYSTEM IDLEDOWN
07569  M00S05265.1aj     +++|          RJM    CSS         CHECK FOR SPECIAL SUBSYSTEM
Line S05266 Modification History
M01 (Removed by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
07570  M01S05266.ns2009  ---|          ZJN    PRS6        IF SPECIAL SUBSYSTEM
Line S00040 Modification History
M01 (Added by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
07571  M01S00040.ns2009  +++|          MJN    PRS6        IF SPECIAL SUBSYSTEM
07572  M00S05267.1aj     +++|
07573  M00S05268.1aj     +++|*         RETURN REPRIEVE/EREXIT PERMISSION STATUS.
07574  M00S05269.1aj     +++|
Line S05270 Modification History
M01 (Removed by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
07575  M01S05270.ns2463  ---| PRS5     LDD    CW          SET CP EXIT STATUS
Line S00002 Modification History
M01 (Added by) ns2463
M02 (Removed by) 1aj104
Seq #  *Modification Id* Act 
----------------------------+
07576  M02S00002.1aj104  ---| PRS5     LDD    CP          CHECK ERROR PROCESSING LIMIT
Line S00001 Modification History
M01 (Added by) 1aj104
Seq #  *Modification Id* Act 
----------------------------+
07577  M01S00001.1aj104  +++| PRS5     LDM    TROF,EF
07578  M01S00002.1aj104  +++|          LMK    /COMSRPV/TICL
07579  M01S00003.1aj104  +++|          ZJN    PRS5.1      IF USER BREAK
07580  M01S00004.1aj104  +++|          LDD    CP          CHECK ERROR PROCESSING LIMIT
Line S00003 Modification History
M01 (Added by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
07581  M01S00003.ns2463  +++|          ADK    ACLW
07582  M01S00004.ns2463  +++|          CRD    CM
07583  M01S00005.ns2463  +++|          LDD    CM
07584  M01S00006.ns2463  +++|          LMC    7777B
07585  M01S00007.ns2463  +++|          ZJN    PRS5.1      IF UNLIMITED ERROR PROCESSING SET
07586  M01S00008.ns2463  +++|          SOD    CM
07587  M01S00009.ns2463  +++|          MJN    PRS7        IF NO MORE RETRIES POSSIBLE
07588  M01S00010.ns2463  +++|          LDD    CP
07589  M01S00011.ns2463  +++|          ADK    ACLW
07590  M01S00012.ns2463  +++|          CWD    CM
07591  M01S00013.ns2463  +++| PRS5.1   LDD    CW          SET CP EXIT STATUS
07592  M00S05271.1aj     +++|          STM    CPXS
Line S05272 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07593  M01S05272.242l642 ---|          LDM    TNRE,EF     GET RECOVERABILITY STATUS
07594  M01S05273.242l642 ---|          LMN    1           TOGGLE STATUS BIT
Line S00335 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07595  M01S00335.242l642 +++|          LDD    EF
07596  M01S00336.242l642 +++|          SBN    NRET
07597  M01S00337.242l642 +++|          SHN    0-21
07598  M00S05274.1aj     +++| PRS6     LJM    PRSX        RETURN
Line S00014 Modification History
M01 (Added by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
07599  M01S00014.ns2463  +++|
07600  M01S00015.ns2463  +++| PRS7     LDC    =C* ERROR PROCESSING LIMIT.*
07601  M01S00016.ns2463  +++|          RJM    DFM
07602  M01S00017.ns2463  +++|          LDN    0
07603  M01S00018.ns2463  +++|          STD    CW          TURN OFF REPRIEVE OPTIONS
07604  M01S00019.ns2463  +++|          STD    RF
07605  M01S00020.ns2463  +++|          UJN    PRS6        RETURN
Line S05275 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07606  M01S05275.242l642 ---| TNRE     SPACE  4,10
07607  M01S05276.242l642 ---|**        TNRE - TABLE OF NON-RECOVERABLE ERRORS.
07608  M01S05277.242l642 ---|*
07609  M01S05278.242l642 ---|*         INDEXED BY NOS ERROR FLAG.
07610  M01S05279.242l642 ---|*
07611  M01S05280.242l642 ---|*         ENTRY  12/1 IF ERROR FLAG DOES NOT PERMIT  REPRIEVE,
07612  M01S05281.242l642 ---|*                EXTENDED REPRIEVE, EREXIT, OR FILE FLUSH
07613  M01S05282.242l642 ---|*                PROCESSING.
07614  M01S05283.242l642 ---|
07615  M01S05284.242l642 ---|
07616  M01S05285.242l642 ---| TNRE     INDEX
07617  M01S05286.242l642 ---|
07618  M01S05287.242l642 ---|          INDEX  DRET,1
Line S05288 Modification History
M01 (Removed by) ns2197
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07619  M02S05288.242l642 ---|          INDEX  TJET,1
Line S05289 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07620  M01S05289.242l642 ---|          INDEX  SVET,1
Line S00210 Modification History
M01 (Added by) v23l617
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07621  M02S00210.242l642 ---|          INDEX  PEET,1
Line S05290 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07622  M01S05290.242l642 ---|          INDEX  SYET,1
07623  M01S05291.242l642 ---|          INDEX  RAET,1
Line S00093 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07624  M02S00093.242l642 ---|          INDEX  SWET,1
Line S05292 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07625  M01S05292.242l642 ---|          INDEX  ORET,1
07626  M01S05293.242l642 ---|
07627  M01S05294.242l642 ---|          INDEX  MXET
Line S00127 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07628  M01S00127.ns21000 +++| CSA      SPACE  4,10
07629  M01S00128.ns21000 +++|***       CSA - CHECK *SHELL* ABORT.
07630  M01S00129.ns21000 +++|*
07631  M01S00130.ns21000 +++|*         EXIT   NFL WORD *SHCN* CLEARED IF *SHELL* ABORT
07632  M01S00131.ns21000 +++|*                AND ABORT FLAG SET IN *SHCN*.
07633  M01S00132.ns21000 +++|*
07634  M01S00133.ns21000 +++|*         USES   CM - CM+4.
07635  M01S00134.ns21000 +++|
07636  M01S00135.ns21000 +++|
07637  M01S00136.ns21000 +++| CSA      SUBR               ENTRY/EXIT
07638  M01S00137.ns21000 +++|          NFA    SHCN        CHECK *SHELL* IN EXECUTION
07639  M01S00138.ns21000 +++|          CRD    CM
07640  M01S00139.ns21000 +++|          LDD    CM+4
Line S00140 Modification History
M01 (Added by) ns21000
M02 (Removed by) ns2114
Seq #  *Modification Id* Act 
----------------------------+
07641  M02S00140.ns2114  ---|          SHN    21-7
Line S00003 Modification History
M01 (Added by) ns2114
Seq #  *Modification Id* Act 
----------------------------+
07642  M01S00003.ns2114  +++|          SHN    21-13
Line S00141 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07643  M01S00141.ns21000 +++|          PJN    CSAX        IF *SHELL* NOT IN EXECUTION
Line S00142 Modification History
M01 (Added by) ns21000
M02 (Removed by) ns2114
Seq #  *Modification Id* Act 
----------------------------+
07644  M02S00142.ns2114  ---|          SHN    7-6
Line S00004 Modification History
M01 (Added by) ns2114
Seq #  *Modification Id* Act 
----------------------------+
07645  M01S00004.ns2114  +++|          SHN    21-6-21+13
Line S00143 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07646  M01S00143.ns21000 +++|          PJN    CSAX        IF CONTROL NOT TO BE CLEARED
07647  M01S00144.ns21000 +++|          LDN    ZERL
07648  M01S00145.ns21000 +++|          CRD    CM
07649  M01S00146.ns21000 +++|          NFA    SHCN
07650  M01S00147.ns21000 +++|          CWD    CM
07651  M01S00148.ns21000 +++|          UJN    CSAX        RETURN
Line S00041 Modification History
M01 (Added by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
07652  M01S00041.ns2009  +++| CSS      SPACE  4,10
07653  M01S00042.ns2009  +++|**        CSS - CHECK FOR SPECIAL SUBSYSTEM.
07654  M01S00043.ns2009  +++|*
07655  M01S00044.ns2009  +++|*         EXIT   (A) .LT. 0 IF SPECIAL SUBSYSTEM.
07656  M01S00045.ns2009  +++|*
Line S00046 Modification History
M01 (Added by) ns2009
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07657  M02S00046.v23l617 ---|*         USES   CM - CM+4.
Line S00211 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07658  M01S00211.v23l617 +++|*         USES   T1, CM - CM+4.
Line S00047 Modification History
M01 (Added by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
07659  M01S00047.ns2009  +++|
07660  M01S00048.ns2009  +++|
07661  M01S00049.ns2009  +++| CSS      SUBR               ENTRY/EXIT
07662  M01S00050.ns2009  +++|          LDD    CP
07663  M01S00051.ns2009  +++|          ADN    JCIW
07664  M01S00052.ns2009  +++|          CRD    CM
Line S00053 Modification History
M01 (Added by) ns2009
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07665  M02S00053.v23l617 ---|          LDD    CM+2
07666  M02S00054.v23l617 ---|          LMK    BISI
07667  M02S00055.v23l617 ---|          ZJN    CSS1        IF *BATCHIO*
07668  M02S00056.v23l617 ---|          LMK    MTSI&BISI
07669  M02S00057.v23l617 ---|          ZJN    CSS1        IF *MAGNET*
07670  M02S00058.v23l617 ---|          LMK    MFSI&MTSI
07671  M02S00059.v23l617 ---|          ZJN    CSS1        IF *MSS*
07672  M02S00060.v23l617 ---|          LMK    TRSI&MFSI
Line S00061 Modification History
M01 (Added by) ns2009
M02 (Removed by) ns21000
M03 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07673  M03S00061.v23l617 ---|          NJN    CSSX        IF NOT *TAF*
Line S00149 Modification History
M01 (Added by) ns21000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07674  M02S00149.v23l617 ---|          ZJN    CSS1        IF *TAF*
07675  M02S00150.v23l617 ---|          LMK    SMSI&TRSI
07676  M02S00151.v23l617 ---|          NJN    CSSX        IF NOT *SMF*
Line S00062 Modification History
M01 (Added by) ns2009
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07677  M02S00062.v23l617 ---| CSS1     AOM    IDLA        SET SPECIAL SUBSYSTEM FLAG
Line S00212 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07678  M01S00212.v23l617 +++|          LDC    CSSA-1      SET TABLE ADDRESS
07679  M01S00213.v23l617 +++|          STD    T1
07680  M01S00214.v23l617 +++| CSS1     AOD    T1          CHECK NEXT TABLE ENTRY
07681  M01S00215.v23l617 +++|          LDI    T1
07682  M01S00216.v23l617 +++|          ZJN    CSSX        IF END OF TABLE
07683  M01S00217.v23l617 +++|          LMD    CM+2
07684  M01S00218.v23l617 +++|          NJN    CSS1        IF NOT A MATCH
07685  M01S00219.v23l617 +++|          AOM    IDLA        SET SPECIAL SUBSYSTEM FLAG
Line S00063 Modification History
M01 (Added by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
07686  M01S00063.ns2009  +++|          LCN    1           SET SPECIAL SUBSYSTEM STATUS
07687  M01S00064.ns2009  +++|          UJN    CSSX        RETURN
Line S00220 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07688  M01S00220.v23l617 +++|
07689  M01S00221.v23l617 +++|
07690  M01S00222.v23l617 +++| CSSA     BSS    0           TABLE OF SPECIAL SUBSYSTEMS
07691  M01S00223.v23l617 +++|          CON    BISI        *BATCHIO*
07692  M01S00224.v23l617 +++|          CON    MTSI        *MAGNET*
Line S00225 Modification History
M01 (Added by) v23l617
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07693  M02S00225.242l642 ---|          CON    ASSI        *MAS*
Line S00338 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07694  M01S00338.242l642 +++|          CON    ASSI        *MSE*
Line S00226 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07695  M01S00226.v23l617 +++|          CON    MFSI        *MSS*
07696  M01S00227.v23l617 +++|          CON    SMSI        *SMF*
07697  M01S00228.v23l617 +++|          CON    TRSI        *TAF*
07698  M01S00229.v23l617 +++|          CON    0           END OF TABLE
07699  M00S05295.1aj     +++|          TITLE  OVERLAID PRESET SUBROUTINES.
Line S05296 Modification History
M01 (Removed by) ns2091a
Seq #  *Modification Id* Act 
----------------------------+
07700  M01S05296.ns2091a ---| CSE      SPACE  4,10
07701  M01S05297.ns2091a ---|**        CSE - CHECK FOR *IAF* ERROR.
07702  M01S05298.ns2091a ---|*
07703  M01S05299.ns2091a ---|*         USES   CM - CM+4.
07704  M01S05300.ns2091a ---|*
07705  M01S05301.ns2091a ---|*         MACROS MONITOR.
07706  M01S05302.ns2091a ---|
07707  M01S05303.ns2091a ---|
07708  M01S05304.ns2091a ---| CSE      SUBR               ENTRY/EXIT
07709  M01S05305.ns2091a ---|          LDD    CP          READ JOB CONTROL INFORMATION
07710  M01S05306.ns2091a ---|          ADK    JCIW
07711  M01S05307.ns2091a ---|          CRD    CM
07712  M01S05308.ns2091a ---|          LDD    CM+2        CHECK SUBSYSTEM ID FIELD
07713  M01S05309.ns2091a ---|          LMK    IFSI
07714  M01S05310.ns2091a ---|          NJN    CSEX        IF NOT *IAF*
07715  M01S05311.ns2091a ---|          LDN    ZERL        TERMINATE *TSEM* PROCESSING
07716  M01S05312.ns2091a ---|          CRD    CM
07717  M01S05313.ns2091a ---|          LCN    1
07718  M01S05314.ns2091a ---|          STD    CM
07719  M01S05315.ns2091a ---|          LDD    MA
07720  M01S05316.ns2091a ---|          CWD    CM
07721  M01S05317.ns2091a ---|          MONITOR  TSEM
07722  M01S05318.ns2091a ---|          UJN    CSEX        RETURN
07723  M00S05319.1aj     +++| STP      SPACE  4,10
07724  M00S05320.1aj     +++|**        STP - SET TERMINAL TABLE POINTER.
07725  M00S05321.1aj     +++|*
07726  M00S05322.1aj     +++|*         ENTRY  (TSTN) = TERMINAL NUMBER IF ON-LINE INTERACTIVE JOB
07727  M00S05323.1aj     +++|*                         AND *IAF* IS ACCESSIBLE.
07728  M00S05324.1aj     +++|*
Line S05325 Modification History
M01 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
07729  M01S05325.ns2748  ---|*         USES   CM - CM+4, TA, TN.
Line S00022 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
07730  M01S00022.ns2748  +++|*         USES   CM - CM+4.
07731  M00S05326.1aj     +++|*
Line S05327 Modification History
M01 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
07732  M01S05327.ns2748  ---|*         CALLS  STA.
Line S00023 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
07733  M01S00023.ns2748  +++|*         NOTE   TERMINAL TABLE POINTER NO LONGER SET.
07734  M00S05328.1aj     +++|
07735  M00S05329.1aj     +++|
07736  M00S05330.1aj     +++| STP      SUBR               ENTRY/EXIT
Line S05331 Modification History
M01 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
07737  M01S05331.ns2748  ---|          LDM    TSTN        SET TERMINAL NUMBER
07738  M01S05332.ns2748  ---|          STD    TN
Line S05333 Modification History
M01 (Removed by) 1aj30
M02 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
07739  M02S05333.ns2748  ---|          ZJN    STPX        IF NOT ON-LINE INTERACTIVE JOB
Line S00001 Modification History
M01 (Added by) 1aj30
M02 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
07740  M02S00001.ns2748  ---|          ZJN    STP1        IF NOT ON-LINE INTERACTIVE JOB
Line S05334 Modification History
M01 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
07741  M01S05334.ns2748  ---|          LDC    /REM/VCPT*200+FLSW  READ *IAF* RA WORD
07742  M01S05335.ns2748  ---|          CRD    CM
07743  M01S05336.ns2748  ---|          LDD    CM+3        SET *IAF* RA
07744  M01S05337.ns2748  ---|          STD    TA
07745  M01S05338.ns2748  ---|          RJM    STA         SET TERMINAL TABLE ADDRESS
07746  M01S05339.ns2748  ---|          STM    GTAA
07747  M01S05340.ns2748  ---|          SHN    -14
07748  M01S05341.ns2748  ---|          RAM    GTAA-1
Line S05342 Modification History
M01 (Removed by) 1aj30
M02 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
07749  M02S05342.ns2748  ---|
07750  M02S05343.ns2748  ---|*         IF AN INPUT FET POINTER REMAINS, *1RI* DETECTED A USER BREAK
07751  M02S05344.ns2748  ---|*         OF A JOB WITH EXTENDED REPRIEVE PROCESSING SELECTED.  SAVE
07752  M02S05345.ns2748  ---|*         THE INPUT FET POINTER (IF ANY).
07753  M02S05346.ns2748  ---|
07754  M02S05347.ns2748  ---|          LDD    CP          READ TERMINAL INPUT POINTER
Line S00002 Modification History
M01 (Added by) 1aj30
M02 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
07755  M02S00002.ns2748  ---| STP1     LDD    CP          READ TERMINAL INPUT POINTER
Line S00024 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
07756  M01S00024.ns2748  +++|          LDD    CP          READ TERMINAL INPUT POINTER
07757  M00S05348.1aj     +++|          ADK    TINW
07758  M00S05349.1aj     +++|          CRD    CM
Line S05350 Modification History
M01 (Removed by) 1aj30
Seq #  *Modification Id* Act 
----------------------------+
07759  M01S05350.1aj30   ---|          LDD    CM+3
Line S00003 Modification History
M01 (Added by) 1aj30
Seq #  *Modification Id* Act 
----------------------------+
07760  M01S00003.1aj30   +++|          LDD    EF
07761  M01S00004.1aj30   +++|          LMN    TIET
07762  M01S00005.1aj30   +++|          ZJP    STP2        IF USER BREAK ONE
07763  M01S00006.1aj30   +++|          LMN    TAET&TIET
07764  M01S00007.1aj30   +++|          ZJP    STP2        IF USER BREAK TWO
07765  M01S00008.1aj30   +++|          LDD    CM+3
07766  M01S00009.1aj30   +++|          SCN    77
07767  M01S00010.1aj30   +++|          SHN    6
07768  M01S00011.1aj30   +++|          LMD    CM+2
07769  M01S00012.1aj30   +++|          SHN    6
Line S00001 Modification History
M01 (Added by) 1aj32
Seq #  *Modification Id* Act 
----------------------------+
07770  M01S00001.1aj32   +++|          ZJP    STPX        IF NO TERMINAL INPUT FET
Line S00013 Modification History
M01 (Added by) 1aj30
Seq #  *Modification Id* Act 
----------------------------+
07771  M01S00013.1aj30   +++|          STM    STPA
07772  M01S00014.1aj30   +++|          SHN    -14
07773  M01S00015.1aj30   +++|          RAM    STPA-1
Line S00002 Modification History
M01 (Added by) 1aj32
Seq #  *Modification Id* Act 
----------------------------+
07774  M01S00002.1aj32   +++|          LDD    CM+2
07775  M01S00003.1aj32   +++|          SBD    FL
07776  M01S00004.1aj32   +++|          PJN    STP1.1      IF FET ADDRESS OUT OF RANGE
Line S00016 Modification History
M01 (Added by) 1aj30
Seq #  *Modification Id* Act 
----------------------------+
07777  M01S00016.1aj30   +++|          LDD    RA
07778  M01S00017.1aj30   +++|          SHN    6
07779  M01S00018.1aj30   +++|          ADC    **
07780  M01S00019.1aj30   +++| STPA     EQU    *-1
07781  M01S00020.1aj30   +++|          CRM    STPB,ON     READ FET+0
07782  M01S00021.1aj30   +++|          LDM    STPB+4      COMPLETE FET
07783  M01S00022.1aj30   +++|          SCN    1
07784  M01S00023.1aj30   +++|          LMN    1
07785  M01S00024.1aj30   +++|          STM    STPB+4
07786  M01S00025.1aj30   +++|          LDM    STPA-1
07787  M01S00026.1aj30   +++|          LPN    77
07788  M01S00027.1aj30   +++|          SHN    6
07789  M01S00028.1aj30   +++|          ADD    RA
07790  M01S00029.1aj30   +++|          SHN    6
07791  M01S00030.1aj30   +++|          ADM    STPA
07792  M01S00031.1aj30   +++|          CWM    STPB,ON
Line S00032 Modification History
M01 (Added by) 1aj30
M02 (Removed by) 1aj32
Seq #  *Modification Id* Act 
----------------------------+
07793  M02S00032.1aj32   ---|          UJN    STP3        CONTINUE
Line S00005 Modification History
M01 (Added by) 1aj32
Seq #  *Modification Id* Act 
----------------------------+
07794  M01S00005.1aj32   +++| STP1.1   UJN    STP3        CLEAR FET ADDRESS
Line S00033 Modification History
M01 (Added by) 1aj30
Seq #  *Modification Id* Act 
----------------------------+
07795  M01S00033.1aj30   +++|
07796  M01S00034.1aj30   +++| STP2     LDD    CM+3
07797  M00S05351.1aj     +++|          SCN    77
07798  M00S05352.1aj     +++|          SHN    6
07799  M00S05353.1aj     +++|          LMD    CM+2
Line S05354 Modification History
M01 (Removed by) 1aj30
Seq #  *Modification Id* Act 
----------------------------+
07800  M01S05354.1aj30   ---|          ZJN    STPX        IF NO TERMINAL INPUT OR NOT USER BREAK
Line S00035 Modification History
M01 (Added by) 1aj30
Seq #  *Modification Id* Act 
----------------------------+
07801  M01S00035.1aj30   +++|          ZJP    STPX        IF NO TERMINAL INPUT PENDING
07802  M00S05355.1aj     +++|          SHN    6           SAVE TERMINAL INPUT POINTER
07803  M00S05356.1aj     +++|          STM    RIPA
07804  M00S05357.1aj     +++|          SHN    -14
07805  M00S05358.1aj     +++|          RAM    RIPA-1
Line S05359 Modification History
M01 (Removed by) 1aj30
Seq #  *Modification Id* Act 
----------------------------+
07806  M01S05359.1aj30   ---|          LDN    0           CLEAR TERMINAL INPUT POINTER
Line S00036 Modification History
M01 (Added by) 1aj30
Seq #  *Modification Id* Act 
----------------------------+
07807  M01S00036.1aj30   +++| STP3     LDN    0
07808  M00S05360.1aj     +++|          STD    CM+2
07809  M00S05361.1aj     +++|          LDD    CM+3
07810  M00S05362.1aj     +++|          LPN    77
07811  M00S05363.1aj     +++|          STD    CM+3
07812  M00S05364.1aj     +++|          LDD    CP
07813  M00S05365.1aj     +++|          ADK    TINW
07814  M00S05366.1aj     +++|          CWD    CM
07815  M00S05367.1aj     +++|          LJM    STPX        RETURN
Line S00037 Modification History
M01 (Added by) 1aj30
Seq #  *Modification Id* Act 
----------------------------+
07816  M01S00037.1aj30   +++|
07817  M01S00038.1aj30   +++| STPB     BSS    5
07818  M00S05368.1aj     +++|          SPACE  4,10
07819  M00S05369.1aj     +++|**        PRESET EXECUTABLE COMMON DECKS.
07820  M00S05370.1aj     +++|
07821  M00S05371.1aj     +++|
Line S00230 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07822  M01S00230.v23l617 +++|*CALL     COMPCUA
Line S05372 Modification History
M01 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
07823  M01S05372.ns2748  ---|*CALL     COMPSTA
07824  M00S05373.1aj     +++|
07825  M00S05374.1aj     +++|
07826  M00S05375.1aj     +++|          OVERFLOW /PEF/PEFX
Line S00152 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07827  M01S00152.ns21000 +++|          TTL    1AJ/3AL - ERROR PROCESSING EXTENSION.
07828  M01S00153.ns21000 +++|          TITLE
07829  M01S00154.ns21000 +++|          QUAL   EFX
Line S00155 Modification History
M01 (Added by) ns21000
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07830  M02S00155.ns22000 ---|          IDENT  3AL,ENTX
Line S00192 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07831  M01S00192.ns22000 +++|          IDENT  3AL,ENTX    ERROR PROCESSING EXTENSION.
Line S00156 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07832  M01S00156.ns21000 +++|*COMMENT  1AJ - ERROR PROCESSING EXTENSION.
Line S00157 Modification History
M01 (Added by) ns21000
M02 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
07833  M02S00157.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP.  1982.
Line S00004 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
07834  M01S00004.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
Line S00158 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07835  M01S00158.ns21000 +++|          SPACE  4
07836  M01S00159.ns21000 +++|***       *3AL* IS AN EXTENSION TO OVERLAY *3AB*.
07837  M01S00160.ns21000 +++|*         TO MAINTAIN DOCUMENTATION CONSISTENCY ALL ERROR MESSAGES
07838  M01S00161.ns21000 +++|*         WILL BE DOCUMENTED AT THE BEGINNING OF *3AB*.
07839  M01S00162.ns21000 +++| ENT      SPACE  4,10
07840  M01S00163.ns21000 +++|          ORG    /PEF/EXPA+5
07841  M01S00164.ns21000 +++| ENT      SUBR               ENTRY/EXIT
07842  M01S00165.ns21000 +++|          UJN    ENTX        RETURN
Line S00231 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07843  M01S00231.v23l617 +++| DRE      SPACE  4,10
07844  M01S00232.v23l617 +++|**        DRE - DEADSTART RERUN PROCESSOR.
07845  M01S00233.v23l617 +++|*
07846  M01S00234.v23l617 +++|*         SETS THE JOB TERMINATION STATUS OF NON-INTERACTIVE
07847  M01S00235.v23l617 +++|*         JOB TO *RJJP*, ISSUES RERUN ACCOUNT FILE MESSAGE,
07848  M01S00236.v23l617 +++|*         AND ADVANCES JOB TO THE NEXT *EXIT* COMMAND.
07849  M01S00237.v23l617 +++|*
07850  M01S00238.v23l617 +++|*         CALLS  DFM, RSF, SEJ.
07851  M01S00239.v23l617 +++|
07852  M01S00240.v23l617 +++|
07853  M01S00241.v23l617 +++| DRE      BSS    0           ENTRY
07854  M01S00242.v23l617 +++|          LDN    RJJT        SELECT RERUN OPTION
07855  M01S00243.v23l617 +++|          RJM    /PEF/SEJ    SET END OF JOB OPTION
07856  M01S00244.v23l617 +++|          LDC    DREA+ACFN   ISSUE ACCOUNT FILE MESSAGE
07857  M01S00245.v23l617 +++|          RJM    DFM
07858  M01S00246.v23l617 +++|          RJM    /PEF/RSF    RETURN SPECIAL FILES
07859  M01S00247.v23l617 +++|          LJM    /PEF/EBCX   EXIT
07860  M01S00248.v23l617 +++|
07861  M01S00249.v23l617 +++| L0DF     EQU    *+1         *0DF* LOAD ADDRESS
07862  M01S00250.v23l617 +++|
07863  M01S00251.v23l617 +++|
07864  M01S00252.v23l617 +++| DREA     DATA   C*AERR, DS.*
Line S00166 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07865  M01S00166.ns21000 +++| IDL      SPACE  4,15
07866  M01S00167.ns21000 +++|**        IDL - IDLEDOWN SUBSYSTEM.
07867  M01S00168.ns21000 +++|*
07868  M01S00169.ns21000 +++|*         IF JOB IS A SPECIAL SUBSYSTEM (*BATCHIO*, *MAGNET*, *SMF*,
07869  M01S00170.ns21000 +++|*         *MSS* OR *TAF*), THE SUBSYSTEM IDLEDOWN FLAG (BIT 2**15 OF
07870  M01S00171.ns21000 +++|*         RA+0 AND BIT 2**15 OF CONTROL POINT AREA WORD *SNSW*) WILL
07871  M01S00172.ns21000 +++|*         BE SET.  IF THE JOB IS NOT A SPECIAL SUBSYSTEM, IT WILL BE
07872  M01S00173.ns21000 +++|*         ABORTED WITH THE *ODET* ERROR FLAG.
07873  M01S00174.ns21000 +++|*
07874  M01S00175.ns21000 +++|*         EXIT   TO *STC* TO RESTART JOB.
07875  M01S00176.ns21000 +++|*
07876  M01S00177.ns21000 +++|*         USES   CM - CM+4, EF.
07877  M01S00178.ns21000 +++|*
07878  M01S00179.ns21000 +++|*         CALLS  DFM.
07879  M01S00180.ns21000 +++|
07880  M01S00181.ns21000 +++|
07881  M01S00182.ns21000 +++| IDL      LDC    =C* OPERATOR IDLEDOWN.*
07882  M01S00183.ns21000 +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
07883  M01S00184.ns21000 +++|          LDD    RA          READ RA+0
07884  M01S00185.ns21000 +++|          SHN    6
07885  M01S00186.ns21000 +++|          CRD    CM
07886  M01S00187.ns21000 +++|          LDD    CM+3        SET IDLEDOWN FLAG IN (RA)
07887  M01S00188.ns21000 +++|          SCN    10
07888  M01S00189.ns21000 +++|          LMN    10
07889  M01S00190.ns21000 +++|          STD    CM+3
07890  M01S00191.ns21000 +++|          LDD    RA          REWRITE RA+0
07891  M01S00192.ns21000 +++|          SHN    6
07892  M01S00193.ns21000 +++|          CWD    CM
07893  M01S00194.ns21000 +++|          LDD    CP          READ CPA WORD *SNSW*
07894  M01S00195.ns21000 +++|          ADK    SNSW
07895  M01S00196.ns21000 +++|          CRD    CM
07896  M01S00197.ns21000 +++|          LDD    CM+3        SET IDLEDOWN FLAG IN CPA
07897  M01S00198.ns21000 +++|          SCN    10
07898  M01S00199.ns21000 +++|          LMN    10
07899  M01S00200.ns21000 +++|          STD    CM+3
07900  M01S00201.ns21000 +++|          LDD    CP          REWRITE CPA WORD *SNSW*
07901  M01S00202.ns21000 +++|          ADK    SNSW
07902  M01S00203.ns21000 +++|          CWD    CM
07903  M01S00204.ns21000 +++|          ADK    CSSW-SNSW   READ CPA WORD *CSSW*
07904  M01S00205.ns21000 +++|          CRD    CM
07905  M01S00206.ns21000 +++|          LDD    CM          CLEAR *SKIP-TO-EXIT* FLAG
07906  M01S00207.ns21000 +++|          LPC    5777
07907  M01S00208.ns21000 +++|          STD    CM
07908  M01S00209.ns21000 +++|          LDD    CP          WRITE CPA WORD *CSSW*
07909  M01S00210.ns21000 +++|          ADK    CSSW
07910  M01S00211.ns21000 +++|          CWD    CM
07911  M01S00212.ns21000 +++|          LJM    /PEF/STC    RESTART CPU
07912  M01S00213.ns21000 +++| ARI      SPACE  4,10
07913  M01S00214.ns21000 +++|**        ARI - PROCESS CPU ERROR EXIT.
07914  M01S00215.ns21000 +++|*
07915  M01S00216.ns21000 +++|*         SEND DAYFILE MESSAGE FOR ERROR MODE AND ADDRESS.
07916  M01S00217.ns21000 +++|*
07917  M01S00218.ns21000 +++|*         EXIT   TO *DMP* TO DUMP PROGRAM.
Line S00219 Modification History
M01 (Added by) ns21000
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
07918  M02S00219.ns2323  ---|*                TO *UTJ* IF TO TERMINATE JOB.
Line S00203 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
07919  M01S00203.ns2323  +++|*                TO *TRJ* IF TO TERMINATE JOB.
Line S00220 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07920  M01S00220.ns21000 +++|
07921  M01S00221.ns21000 +++|
07922  M01S00222.ns21000 +++| ARI      LDD    RA          READ (RA)
07923  M01S00223.ns21000 +++|          SHN    6
07924  M01S00224.ns21000 +++|          CRD    CN
Line S00011 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
07925  M01S00011.243l647 +++|          CRM    IBMA+12,ON
Line S00225 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07926  M01S00225.ns21000 +++|          LDD    CN+1        CONVERT ADDRESS
07927  M01S00226.ns21000 +++|          SHN    -6
07928  M01S00227.ns21000 +++|          RJM    C2D
07929  M01S00228.ns21000 +++|          STM    ARIC
07930  M01S00229.ns21000 +++|          LDD    CN+1
07931  M01S00230.ns21000 +++|          RJM    C2D
07932  M01S00231.ns21000 +++|          STM    ARIC+1
07933  M01S00232.ns21000 +++|          LDD    CN+2
07934  M01S00233.ns21000 +++|          SHN    -6
07935  M01S00234.ns21000 +++|          RJM    C2D
07936  M01S00235.ns21000 +++|          STM    ARIC+2
07937  M01S00236.ns21000 +++|          LDC    ARIB        ISSUE ERROR MESSAGE
07938  M01S00237.ns21000 +++|          RJM    DFM
07939  M01S00238.ns21000 +++|          LDC    ARID-1
07940  M01S00239.ns21000 +++|          STD    T4
07941  M01S00240.ns21000 +++|          LDD    CP          CHECK PSD
07942  M01S00241.ns21000 +++|          ADN    3
07943  M01S00242.ns21000 +++|          CRD    CM
07944  M01S00243.ns21000 +++|          CRD    AB
07945  M01S00244.ns21000 +++|          LDN    0           CLEAR PSD CONDITION BITS
07946  M01S00245.ns21000 +++|          STD    AB+1
07947  M01S00246.ns21000 +++|          LDD    CP
07948  M01S00247.ns21000 +++|          ADN    3
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/1aj.005.txt ยท Last modified: by 127.0.0.1