Deck 1DS Part 001

41 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01845  M01S00021.ns2686  +++|          CWM    DSPB,CM+1
01846  M01S01701.1ds     +++|          MONITOR  UTEM      STORE *JSN* IN FWA *L* BUFFER ZERO FILLED
Line S01702 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2686
Seq #  *Modification Id* Act 
----------------------------+
01847  M02S01702.ns2686  ---|          UJN    DSPX        RETURN
01848  M01S00022.ns2686  +++|          LDD    T1          SET DSD RESPONSE
01849  M01S00023.ns2686  +++| DSP2     RJM    SRD
01850  M01S00024.ns2686  +++|          LJM    DSPX        EXIT
01851  M01S01703.1ds     +++|
01852  M01S01704.1ds     +++|
01853  M01S01705.1ds     +++|*         *UTEM* MONITOR FUNCTION BUFFER.
01854  M01S01706.1ds     +++|
Line S01707 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2686
Seq #  *Modification Id* Act 
----------------------------+
01855  M02S01707.ns2686  ---| DSPA     VFD    1/0,5/0,6/36D,6/0,6/0  CLEAR CONTROL WORD STATUS BITS
01856  M01S00025.ns2686  +++| DSPA     VFD    1/1,5/0,6/24D,6/36D,42/0   VERIFY *JSN* .EQ. 0
01857  M01S00026.ns2686  +++|          VFD    1/0,5/0,6/24D,6/36D,42/-1  INTERLOCK JSN FIELD
01858  M01S00027.ns2686  +++|
01859  M01S00028.ns2686  +++| DSPB     VFD    1/0,5/0,6/36D,6/0,6/0   CLEAR CONTROL WORD STATUS BITS
01860  M01S01708.1ds     +++|          CON    0,0,0
01861  M01S01709.1ds     +++|          VFD    1/0,5/0,6/24D,6/36D,6/0  STORE *JSN*
01862  M01S01710.1ds     +++|          CON    0,0,0
01863  M01S01711.1ds     +++| DSS      SPACE  4,10
01864  M01S01712.1ds     +++|***       FUNCTION DSSF - INITIATE DEADSTART SEQUENCING JOB.
01865  M01S01713.1ds     +++|*
01866  M01S01714.1ds     +++|*         ENTRY  (IR+3 - IR+4) = 18/*CMS*, 6/0.
01867  M01S01715.1ds     +++|
01868  M01S01716.1ds     +++|
01869  M01S01717.1ds     +++| DSS      ENTRY              ENTRY/EXIT
01870  M01S01718.1ds     +++|          LDN    DSSC-SSSC   CHANGE SERVICE CLASS
01871  M01S01719.1ds     +++|          RAM    ISJA
01872  M01S01720.1ds     +++|          LDK    DSSI        CHANGE SUBSYSTEM ID
01873  M01S01721.1ds     +++|          STM    IAS.CMS+2
01874  M01S01722.1ds     +++| DSS1     RJM    ISS         INITIATE SUBSYSTEM
01875  M01S01723.1ds     +++|          PJN    DSSX        IF JOB QUEUED SUCCESSFULLY
01876  M01S01724.1ds     +++|          LDK    ZERL
01877  M01S01725.1ds     +++|          CRD    CM
01878  M01S01726.1ds     +++|          LDD    QA          SET QFT ORDINAL
01879  M01S01727.1ds     +++|          ZJN    DSS2        IF NO ENTRY WAS ASSIGNED
01880  M01S01728.1ds     +++|          STD    CM+1
01881  M01S01729.1ds     +++|          LDN    PQFT
01882  M01S01730.1ds     +++|          STD    CM+2
01883  M01S01731.1ds     +++|          MONITOR  MTRM      RETURN QFT ENTRY
01884  M01S01732.1ds     +++| DSS2     SOM    DSSA
01885  M01S01733.1ds     +++|          NJN    DSS1        IF RETRY COUNT NOT EXCEEDED
01886  M01S01734.1ds     +++|          LDK    NCPL        GET SYSTEM CONTROL POINT
01887  M01S01735.1ds     +++|          CRD    CM
01888  M01S01736.1ds     +++|          AOD    CM+1        ISSUE MESSAGE TO SYSTEM CONTROL POINT
01889  M01S01737.1ds     +++|          SHN    7
01890  M01S01738.1ds     +++|          ADN    MS2W
01891  M01S01739.1ds     +++|          CWM    DSSB,TR
01892  M01S01740.1ds     +++|          LJM    DSSX        RETURN
01893  M01S01741.1ds     +++|
01894  M01S01742.1ds     +++|
01895  M01S01743.1ds     +++| DSSA     CON    5           SUBSYSTEM INITIATION RETRY COUNT
01896  M01S01744.1ds     +++| DSSB     DATA   C*DEADSTART SEQUENCING FAILED.*
01897  M01S01745.1ds     +++| LOD      SPACE  4,10
01898  M01S01746.1ds     +++|***       FUNCTION LODF - LOAD JOB.
01899  M01S01747.1ds     +++|*
01900  M01S01748.1ds     +++|*         ENTRY  (IR+3) = EST ORDINAL.
01901  M01S01749.1ds     +++|*                (IR+4) = ID.
01902  M01S01750.1ds     +++|
01903  M01S01751.1ds     +++|
01904  M01S01752.1ds     +++| LOD      ENTRY              ENTRY/EXIT
01905  M01S01753.1ds     +++|          LDC    =C*LOAD*
01906  M01S01754.1ds     +++|          RJM    GJC         GENERATE JOB COMMAND
01907  M01S01755.1ds     +++|          LDD    IR+3
01908  M01S01756.1ds     +++|          ZJN    LOD1        IF NO EST ORDINAL SPECIFIED
01909  M01S01757.1ds     +++|          LDC    =C*XXX,LOAD)*
01910  M01S01758.1ds     +++|          RJM    GAC
01911  M01S01759.1ds     +++| LOD1     LDD    IR+4
01912  M01S01760.1ds     +++|          ZJN    LOD2        IF NO ID
01913  M01S01761.1ds     +++|          RJM    C2D         ENTER ID
01914  M01S01762.1ds     +++|          SHN    6
01915  M01S01763.1ds     +++|          LMN    1R.
01916  M01S01764.1ds     +++|          STM    LODA+3
01917  M01S01765.1ds     +++|          SHN    -14
01918  M01S01766.1ds     +++|          SBN    1R.
01919  M01S01767.1ds     +++|          RAM    LODA+2
01920  M01S01768.1ds     +++| LOD2     LDC    LODA
01921  M01S01769.1ds     +++|          RJM    CCI
01922  M01S01770.1ds     +++|          LDN    SYSC        SET SERVICE CLASS
01923  M01S01771.1ds     +++|          STD    JS
01924  M01S01772.1ds     +++|          RJM    EJB         ENTER JOB
01925  M01S01773.1ds     +++|          LJM    LODX        RETURN
01926  M01S01774.1ds     +++|
01927  M01S01775.1ds     +++|
01928  M01S01776.1ds     +++| LODA     VFD    60/6LLDI,,.
01929  M01S01777.1ds     +++| IRM      SPACE  4,10
01930  M01S01778.1ds     +++|**        IRM - INITIATE REMOTE MAINTENANCE FACILITY.
01931  M01S01779.1ds     +++|*
01932  M01S01780.1ds     +++|*         EXIT   RDF INITIATED.
01933  M01S01781.1ds     +++|*
Line S01782 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01934  M02S01782.271l716 ---|*         USES   AB - AB+4, CN - CN+4, T6, TN.
01935  M01S00025.271l716 +++|*         USES   TN, T6, AB - AB+4, CM - CM+4, CN - CN+4.
01936  M01S01783.1ds     +++|*
01937  M01S01784.1ds     +++|*         CALLS  AST, ISJ.
01938  M01S01785.1ds     +++|*
01939  M01S01786.1ds     +++|*         MACROS DELAY, MONITOR, PAUSE.
01940  M01S01787.1ds     +++|
01941  M01S01788.1ds     +++|
01942  M01S01789.1ds     +++| IRM3     LDD    MA          MAKE *IAF*REQUEST*
01943  M01S01790.1ds     +++|          CWM    IRMB,ON
Line S01791 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01944  M02S01791.271l716 ---| IRM4     MONITOR  TSEM
01945  M01S00026.271l716 +++| IRM4     LDK    ZERL
01946  M01S00027.271l716 +++|          CRD    CM
01947  M01S00028.271l716 +++|          MONITOR  TSEM
01948  M01S01792.1ds     +++|          LDD    CM+1
01949  M01S01793.1ds     +++|          ZJN    IRMX        IF *IAF* INACCESSIBLE OR ERROR
01950  M01S01794.1ds     +++|          LMC    7777
01951  M01S01795.1ds     +++|          NJN    IRMX        IF REQUEST COMPLETE
01952  M01S01796.1ds     +++|          PAUSE  ST
01953  M01S01797.1ds     +++|          LDC    3600        *TSEM* QUEUE FULL - DELAY AND RETRY
01954  M01S01798.1ds     +++|          STD    T6
01955  M01S01799.1ds     +++| IRM5     DELAY
01956  M01S01800.1ds     +++|          SOD    T6
01957  M01S01801.1ds     +++|          ZJN    IRM4        IF TIME TO REISSUE REQUEST
01958  M01S01802.1ds     +++|          UJN    IRM5        CONTINUE TO DELAY
01959  M01S01803.1ds     +++|
01960  M01S01804.1ds     +++| IRM      SUBR               ENTRY/EXIT
01961  M01S01805.1ds     +++|          LDD    TN          SAVE CURRENT ID
01962  M01S01806.1ds     +++|          STM    IRMC
01963  M01S01807.1ds     +++|          LDM    IRMD
01964  M01S01808.1ds     +++|          NJN    IRMX        IF AUTO SELECTED *IAF*
01965  M01S01809.1ds     +++|          LDC    IAS.IAF     GET ADDRESS OF *IAF* SUBSYSTEM ENTRY
01966  M01S01810.1ds     +++|          STD    TN
01967  M01S01811.1ds     +++|          LDM    2,TN        CHECK SUBSYSTEM ACTIVE
01968  M01S01812.1ds     +++|          LMC    FEAF*10000  FETCH *SSAT* ENTRY
01969  M01S01813.1ds     +++|          RJM    AST
01970  M01S01814.1ds     +++|          NJP    IRM3        IF ACTIVE
01971  M01S01815.1ds     +++|          LDK    SSSL        CHECK IF *IAF* IS ENABLED
01972  M01S01816.1ds     +++|          CRD    CN
01973  M01S01817.1ds     +++|          LDM    3,TN
01974  M01S01818.1ds     +++|          STM    IRMA
01975  M01S01819.1ds     +++|          LDM    1,TN
01976  M01S01820.1ds     +++|          LPN    17
01977  M01S01821.1ds     +++|          ADN    CN
01978  M01S01822.1ds     +++|          STD    T6
01979  M01S01823.1ds     +++|          LDI    T6          CHECK SUBSYSTEM
01980  M01S01824.1ds     +++|          LPC    0
01981  M01S01825.1ds     +++| IRMA     EQU    *-1
01982  M01S01826.1ds     +++|          ZJN    IRM1        IF *IAF* ENABLED
01983  M01S01827.1ds     +++|          LDC    IAS.RDF     CHECK IF *RDF* IS ACTIVE
01984  M01S01828.1ds     +++|          STD    TN
01985  M01S01829.1ds     +++|          LDM    2,TN
01986  M01S01830.1ds     +++|          LMC    FEAF*10000
01987  M01S01831.1ds     +++|          RJM    AST
01988  M01S01832.1ds     +++|          NJN    IRM2        IF *RDF* ACTIVE
01989  M01S01833.1ds     +++| IRM1     LDM    2,TN
01990  M01S01834.1ds     +++|          RJM    ISJ         INITIATE *RDF* OR *IAF*
01991  M01S01835.1ds     +++| IRM2     LDM    IRMC        RESTORE CURRENT ID
01992  M01S01836.1ds     +++|          STD    TN
01993  M01S01837.1ds     +++|          LJM    IRMX        RETURN
01994  M01S01838.1ds     +++|
01995  M01S01839.1ds     +++|
01996  M01S01840.1ds     +++|*         BUFFER FOR *TSEM* MONITOR CALL TO LOAD *RDF* DRIVER.
01997  M01S01841.1ds     +++|
Line S01842 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01998  M02S01842.271l716 ---| IRMB     CON    2013
01999  M01S00029.271l716 +++| IRMB     CON    /REM/VITP
02000  M01S01843.1ds     +++|          CON    0
02001  M01S01844.1ds     +++|          CON    0
02002  M01S01845.1ds     +++|          CON    0
02003  M01S01846.1ds     +++|          CON    0
02004  M01S01847.1ds     +++| IRMC     CON    0           CURRENT ID
02005  M01S01848.1ds     +++| IRMD     CON    0           IAF AUTO FLAG
02006  M01S01849.1ds     +++|
02007  M01S01850.1ds     +++| ISS      SPACE  4,10
02008  M01S01851.1ds     +++|***       FUNCTION ISSF - INITIATE SPECIFIED SUB-SYSTEM.
02009  M01S01852.1ds     +++|*
02010  M01S01853.1ds     +++|*         ENTRY  (IR+3 - IR+4) = 18/NAME, 6/0, IF NOT *DSD* CALL.
02011  M01S01854.1ds     +++|*                (IR+3) = 0, IF *DSD* CALL.
02012  M01S01855.1ds     +++|*                (KBCML) = 18/NAME, 6/0, 24/PFC, 12/0, IF *DSD* CALL.
02013  M01S01856.1ds     +++|*                          NAME = 3-CHARACTER SUBSYSTEM NAME.
02014  M01S01857.1ds     +++|*                          PFC = PROCEDURE FILE NAME.
02015  M01S01858.1ds     +++|*
02016  M01S01859.1ds     +++|*         EXIT   (A) = 0, IF SUBSYSTEM INITIATED.
02017  M01S01860.1ds     +++|
02018  M01S01861.1ds     +++|
02019  M01S01862.1ds     +++| ISS      ENTRY              ENTRY/EXIT
02020  M01S01863.1ds     +++|          LDD    IR+3
02021  M01S01864.1ds     +++|          NJN    ISS1        IF NOT *DSD* CALL
02022  M01S01865.1ds     +++|          LDC    /1DS/DSDL+/1DS/KBCML  GET SPECIAL PARAMETER WORD
02023  M01S01866.1ds     +++|          CRD    AB
02024  M01S01867.1ds     +++|          LDD    AB+2        SET PROCEDURE FILE NAME
02025  M01S01868.1ds     +++|          STM    ISJB
02026  M01S01869.1ds     +++|          LDD    AB+3
02027  M01S01870.1ds     +++|          STM    ISJC
02028  M01S01871.1ds     +++|          UJN    ISS2        GET SUBSYSTEM ID
02029  M01S01872.1ds     +++|
02030  M01S01873.1ds     +++| ISS1     STD    AB          SET SUBSYSTEM NAME
02031  M01S01874.1ds     +++|          LDD    IR+4
02032  M01S01875.1ds     +++|          STD    AB+1
02033  M01S01876.1ds     +++| ISS2     LDC    IASB        FIND SUBSYSTEM ID
02034  M01S01877.1ds     +++|          STD    TN
02035  M01S01878.1ds     +++| ISS3     LDI    TN
02036  M01S01879.1ds     +++|          LMD    AB
02037  M01S01880.1ds     +++|          NJN    ISS4        IF NO MATCH
02038  M01S01881.1ds     +++|          LDM    1,TN
02039  M01S01882.1ds     +++|          SCN    77
02040  M01S01883.1ds     +++|          LMD    AB+1
02041  M01S01884.1ds     +++|          ZJN    ISS5        IF MATCH
02042  M01S01885.1ds     +++| ISS4     LDN    IASBE       GET NEXT TABLE ENTRY
02043  M01S01886.1ds     +++|          RAD    TN
02044  M01S01887.1ds     +++|          LMC    IASBL
02045  M01S01888.1ds     +++|          NJN    ISS3        IF NOT END OF TABLE
02046  M01S01889.1ds     +++|          LDN    1           SET ERROR STATUS
02047  M01S01890.1ds     +++|          LJM    ISSX        RETURN
02048  M01S01891.1ds     +++|
02049  M01S01892.1ds     +++| ISS5     LDD    TN
02050  M01S01893.1ds     +++|          LMC    IAS.RDF
02051  M01S01894.1ds     +++|          NJN    ISS6        IF NOT *RDF*
02052  M01S01895.1ds     +++|          RJM    IRM         INITIATE *RDF*
02053  M01S01896.1ds     +++|          UJN    ISS7        RETURN
02054  M01S01897.1ds     +++|
02055  M01S01898.1ds     +++| ISS6     LDM    2,TN
02056  M01S01899.1ds     +++|          RJM    ISJ
02057  M01S01900.1ds     +++| ISS7     LJM    ISSX        RETURN
02058  M01S01901.1ds     +++| IAS      SPACE  4,10
02059  M01S01902.1ds     +++|***       FUNCTION IASD - INITIATE ALL ENABLED SUB-SYSTEMS.
02060  M01S01903.1ds     +++|
02061  M01S01904.1ds     +++|
02062  M01S01905.1ds     +++| IAS5     RJM    CCF         CLEAR CHECKPOINT FLAGS
02063  M01S01906.1ds     +++|          LDN    1
02064  M01S01907.1ds     +++|          STD    CM+1        SET NUMBER OF OPTIONS
02065  M01S01908.1ds     +++|          STD    CM+2        DO NOT DROP PPU
02066  M01S01909.1ds     +++|          LDD    MA
02067  M01S01910.1ds     +++|          CWM    IASD,ON
02068  M01S01911.1ds     +++|          MONITOR  UADM      ENABLE JOB SCHEDULING
02069  M01S01912.1ds     +++|
02070  M01S01913.1ds     +++| IAS      ENTRY              ENTRY/EXIT
02071  M01S01914.1ds     +++|          LDN    0           SPIN UP ISMD DEVICES
02072  M01S01915.1ds     +++|          RJM    SUD
02073  M01S01916.1ds     +++|          LDD    IR+2
02074  M01S01917.1ds     +++|          LMN    /1DS/SCHF
02075  M01S01918.1ds     +++|          ZJN    IAS5        IF ENABLE SCHEDULING CALL
02076  M01S01919.1ds     +++|          LDC    IASB-IASBE  SET LIST ADDRESS
02077  M01S01920.1ds     +++|          STD    TN
02078  M01S01921.1ds     +++|          LDK    SSSL        GET SUBSYSTEM STATUS WORD
02079  M01S01922.1ds     +++|          CRD    CN
02080  M01S01923.1ds     +++| IAS1     LDN    IASBE       ADVANCE LIST ADDRESS
02081  M01S01924.1ds     +++|          RAD    TN
02082  M01S01925.1ds     +++|          LMC    IASBL
02083  M01S01926.1ds     +++|          ZJN    IAS5        IF END OF LIST
02084  M01S01927.1ds     +++|          LDM    1,TN
02085  M01S01928.1ds     +++|          SHN    21-4
02086  M01S01929.1ds     +++|          PJN    IAS1        IF NOT *AUTO* INITIATED SUBSYSTEM
02087  M01S01930.1ds     +++|          LDD    TN
02088  M01S01931.1ds     +++|          LMC    IAS.IAF
02089  M01S01932.1ds     +++|          NJN    IAS2        IF NOT *IAF*
02090  M01S01933.1ds     +++|          AOM    IRMD        SET *IAF* AUTO FLAG
02091  M01S01934.1ds     +++| IAS2     LDD    TN
02092  M01S01935.1ds     +++|          LMC    IAS.RDF
02093  M01S01936.1ds     +++|          NJN    IAS3        IF NOT *RDF*
02094  M01S01937.1ds     +++|          RJM    IRM         INITIATE *RDF*
02095  M01S01938.1ds     +++|          UJN    IAS1        NEXT SUBSYSTEM
02096  M01S01939.1ds     +++|
02097  M01S01940.1ds     +++| IAS3     LDM    3,TN        SET MASK
02098  M01S01941.1ds     +++|          STM    IASA
02099  M01S01942.1ds     +++|          LDM    1,TN        SET BYTE ADDRESS
02100  M01S01943.1ds     +++|          LPN    17
02101  M01S01944.1ds     +++|          ADN    CN
02102  M01S01945.1ds     +++|          STD    T6
02103  M01S01946.1ds     +++|          LDI    T6          CHECK SUBSYSTEM
02104  M01S01947.1ds     +++|          LPC    0
02105  M01S01948.1ds     +++| IASA     EQU    *-1
02106  M01S01949.1ds     +++|          NJN    IAS4        IF DISABLED
02107  M01S01950.1ds     +++|          LDM    2,TN        INITIATE SUBSYSTEM
02108  M01S01951.1ds     +++|          RJM    ISJ
02109  M01S01952.1ds     +++| IAS4     LJM    IAS1        CHECK NEXT SUBSYSTEM
02110  M01S01953.1ds     +++|          SPACE  4,15
02111  M01S01954.1ds     +++|**        TABLE OF SUBSYSTEMS.
02112  M01S01955.1ds     +++|*
02113  M01S01956.1ds     +++|*         ENTRY FORMAT.
02114  M01S01957.1ds     +++|*
02115  M01S01958.1ds     +++|*T        18/ NAME, 1/P, 1/A, 4/ BYTE, 12/ SSID, 12/ MASK, 12/ TYPE
Figure

01112232429 TYPE MASK SSID3035363940414259 SSID BYTEAP NAME

02116  M01S01959.1ds     +++|*
02117  M01S01960.1ds     +++|*         NAME = 3-CHARACTER SUBSYSTEM NAME.
02118  M01S01961.1ds     +++|*         BYTE = BYTE POSITION IN *SSTL*.
02119  M01S01962.1ds     +++|*         P    = SET IF PP-INITIATED SUBSYSTEM.
02120  M01S01963.1ds     +++|*         A    = SET IF *AUTO* INITIATED SUBSYSTEM.
02121  M01S01964.1ds     +++|*         SSID = SUBSYSTEM ID.
02122  M01S01965.1ds     +++|*         MASK   BIT MASK FOR SUBSYSTEM ENABLE/DISABLE BIT.
02123  M01S01966.1ds     +++|*         TYPE   FILE TYPE AND STATUS, IF FILE TYPE .NE. *INQF*.
02124  M01S01967.1ds     +++|
02125  M01S01968.1ds     +++|
02126  M01S00041.1ds21   +++| SUB$     EQU    1           ASSEMBLE *SUBSYST* MACRO
02127  M01S00042.1ds21   +++|*CALL     COMSSSD
02128  M01S00043.1ds21   +++|
02129  M01S01969.1ds     +++| IASB     BSS    0
02130  M01S01970.1ds     +++|          LIST   G
02131  M01S01971.1ds     +++| .SUB     HERE
02132  M01S01972.1ds     +++|          LIST   *
02133  M01S01973.1ds     +++|
02134  M01S01974.1ds     +++| IASBL    BSS    0           END OF SUBSYSTEMS
02135  M01S01975.1ds     +++|
02136  M01S01976.1ds     +++|
02137  M01S01977.1ds     +++| IASD     CON    LDOS        DECREMENT BY ONE
02138  M01S01978.1ds     +++|          CON    INWL        WORD ADDRESS
02139  M01S01979.1ds     +++|          CON    13D*100+1   BIT ADDRESS AND FIELD WIDTH
02140  M01S01980.1ds     +++|          CON    0,0
02141  M01S01981.1ds     +++|          SPACE  4,10
02142  M01S01982.1ds     +++|**        COMMON DECKS.
02143  M01S01983.1ds     +++|
02144  M01S01984.1ds     +++|
02145  M01S00044.1ds21   +++| QUAL$    EQU    1           DO NOT QUALIFY COMMON DECKS
02146  M01S01985.1ds     +++|*CALL     COMPAST
Line S01986 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2786
Seq #  *Modification Id* Act 
----------------------------+
02147  M02S01986.ns2786  ---|*CALL     COMPCDD
02148  M01S01987.1ds     +++|*CALL     COMPCTE
Line S01988 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02149  M02S01988.1ds21   ---| EJT$     EQU    1           EJT SEARCH
Line S01989 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02150  M02S01989.1ds21   ---| FNT$     EQU    1           FNT SEARCH
Line S01990 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02151  M02S01990.1ds21   ---| IFP$     EQU    1           *COMPGFP* REMOTE ASSEMBLY
Line S01991 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02152  M02S01991.1ds21   ---| QFT$     EQU    1           QFT SEARCH
Line S01992 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02153  M02S01992.1ds21   ---|*CALL     COMPGFP
Line S01993 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
02154  M02S01993.ns2663  ---|*CALL     COMPIAM
02155  M01S00045.1ds21   +++|*CALL     COMPRFI
02156  M01S01994.1ds     +++|*CALL     COMPSUD
02157  M01S00028.ns2663  +++| WEI$     EQU    1           DEFINE ALTERNATE EOI BUFFER
02158  M01S00029.ns2663  +++|*CALL     COMPWEI
02159  M01S01995.1ds     +++|          SPACE  4,10
02160  M01S01996.1ds     +++|          USE    OVERLAY     FORCE /LITERALS*/
02161  M01S01997.1ds     +++| MSG      SPACE  4,10
02162  M01S01998.1ds     +++|***       FUNCTION MSGF - SEND DAYFILE MESSAGE.
02163  M01S01999.1ds     +++|*
02164  M01S02000.1ds     +++|*         ENTRY  (IR+4) = 6/KEYBOARD BUFFER OFFSET, 6/.
02165  M01S02001.1ds     +++|
02166  M01S02002.1ds     +++|
02167  M01S02003.1ds     +++| MSG      ENTRY              ENTRY/EXIT
02168  M01S02004.1ds     +++|          LDC    BUF         GET MESSAGE
02169  M01S02005.1ds     +++|          RJM    RPK
02170  M01S02006.1ds     +++|          LDN    0           CLEAR LAST BYTE
02171  M01S02007.1ds     +++|          STM    BUF+31
02172  M01S02008.1ds     +++|          LDC    BUF         SEND MESSAGE TO DAYFILE
02173  M01S02009.1ds     +++|          RJM    DFM
02174  M01S02010.1ds     +++|          UJN    MSGX        RETURN
02175  M01S00046.1ds21   +++| DIS      SPACE  4,10
02176  M01S00047.1ds21   +++|***       FUNCTION DISF - CALL DIS TO JOB.
02177  M01S00048.1ds21   +++|
02178  M01S00049.1ds21   +++|
02179  M01S00050.1ds21   +++| DIS      ENTRY              ENTRY/EXIT
02180  M01S00051.1ds21   +++|          RJM    LKC         LOG COMMAND
02181  M01S00052.1ds21   +++|          LDC    2RDI        BUILD INPUT REGISTER
02182  M01S00053.1ds21   +++|          STD    IR
02183  M01S00054.1ds21   +++|          LDD    CP
02184  M01S00055.1ds21   +++|          SHN    -7
02185  M01S00056.1ds21   +++|          LMC    2L S
02186  M01S00057.1ds21   +++|          STD    IR+1
02187  M01S00058.1ds21   +++|          LDN    0
02188  M01S00059.1ds21   +++|          STD    IR+2
02189  M01S00060.1ds21   +++|          STD    IR+3
02190  M01S00061.1ds21   +++|          LDC    4000        SET DIRECT CALL
02191  M01S00062.1ds21   +++|          STD    IR+4
02192  M01S00063.1ds21   +++|          LDD    MA          ENTER *DIS* IN RECALL STACK
02193  M01S00064.1ds21   +++|          CWD    IR
02194  M01S00065.1ds21   +++|          LDN    ZERL
02195  M01S00066.1ds21   +++|          CRD    CM
02196  M01S00067.1ds21   +++|          MONITOR  RECM
02197  M01S00068.1ds21   +++|          LJM    PPR         EXIT TO PP RESIDENT
02198  M01S02011.1ds     +++| ECB      SPACE  4,10
02199  M01S02012.1ds     +++|***       FUNCTION ECBF - ENTER CENTRAL MEMORY BUFFER.
02200  M01S02013.1ds     +++|*
02201  M01S02014.1ds     +++|*         ENTRY  (IR+4) = 6/KEYBOARD BUFFER OFFSET, 6/.
02202  M01S02015.1ds     +++|
02203  M01S02016.1ds     +++|
02204  M01S02017.1ds     +++| ECB      ENTRY              ENTRY/EXIT
02205  M01S02018.1ds     +++|          LDC    BUF         READ AND PACK MESSAGE
02206  M01S02019.1ds     +++|          RJM    RPK
02207  M01S02020.1ds     +++|          LDD    CP          READ DISPLAY CONTROL WORD
02208  M01S02021.1ds     +++|          ADC    DBAW
02209  M01S02022.1ds     +++|          CRD    CM
02210  M01S02023.1ds     +++|          LDD    CM          CHECK ADDRESS
02211  M01S02024.1ds     +++|          LPN    37
02212  M01S02025.1ds     +++|          SHN    14
02213  M01S02026.1ds     +++|          LMD    CM+1
02214  M01S02027.1ds     +++|          ADN    5
02215  M01S02028.1ds     +++|          SHN    -6
02216  M01S02029.1ds     +++|          SBD    FL
02217  M01S02030.1ds     +++|          PJN    ECBX        IF .GE. FL - 5
02218  M01S02031.1ds     +++|          LDD    CM          STORE MESSAGE
02219  M01S02032.1ds     +++|          LPN    37
02220  M01S02033.1ds     +++|          SHN    6
02221  M01S02034.1ds     +++|          ADD    RA
02222  M01S02035.1ds     +++|          SHN    6
02223  M01S02036.1ds     +++|          ADD    CM+1
02224  M01S02037.1ds     +++|          CWM    BUF,FV
02225  M01S02038.1ds     +++|          UJN    ECBX        RETURN
Line S02039 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02226  M02S02039.271l716 ---| CLR      SPACE  4,10
Line S02040 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02227  M02S02040.271l716 ---|***       FUNCTION CLRF - SET/CLEAR PAUSE BIT.
Line S02041 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02228  M02S02041.271l716 ---|*
Line S02042 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02229  M02S02042.271l716 ---|*         ENTRY  (IR+3) = 0 IF CLEARING PAUSE BIT.
Line S02043 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02230  M02S02043.271l716 ---|*                       = 1 IF SETTING PAUSE BIT.
Line S02044 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02231  M02S02044.271l716 ---|*                (IR+4) = 6/ KEYBOARD BUFFER OFFSET, 6/.
Line S02045 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02232  M02S02045.271l716 ---|
Line S02046 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02233  M02S02046.271l716 ---|
Line S02047 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02234  M02S02047.271l716 ---| CLR4     RJM    ISC         INITIATE JOB CALL
Line S02048 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02235  M02S02048.271l716 ---|
Line S02049 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02236  M02S02049.271l716 ---| CLR      ENTRY              ENTRY/EXIT
Line S02050 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02237  M02S02050.271l716 ---|          LDC    /1DS/DSDL+/1DS/KBCML  FETCH PARAMETER WORD
Line S02051 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02238  M02S02051.271l716 ---|          CRD    FN
Line S02052 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02239  M02S02052.271l716 ---|          LDN    ERLN/10000  SET DEFAULT DAYFILE
Line S02053 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02240  M02S02053.271l716 ---|          STD    T4
Line S02054 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02241  M02S02054.271l716 ---|          LDD    FN+1
Line S02055 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02242  M02S02055.271l716 ---|          LPN    77
Line S02056 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02243  M02S02056.271l716 ---|          NJN    CLR1        IF NOT JSN FOR SUBSYSTEM
Line S02057 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02244  M02S02057.271l716 ---|          LDN    1R
Line S02058 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02245  M02S02058.271l716 ---|          RAD    FN+1
Line S02059 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02246  M02S02059.271l716 ---| CLR1     LDD    FN+2
Line S02060 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02247  M02S02060.271l716 ---|          NJN    CLRX        IF INCORRECT JSN
Line S02061 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02248  M03S02061.271l716 ---|          RJM    SSJ         SEARCH FOR SPECIFIED JOB
Line S00069 Modification History
M01 (Added by) 1ds21
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02249  M02S00069.271l716 ---|          RJM    /OVLNB/SSJ  SEARCH FOR SPECIFIED JOB
Line S02062 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02250  M02S02062.271l716 ---|          NJN    CLR4        IF JOB NOT FOUND
Line S02063 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02251  M02S02063.271l716 ---| CLR2     LDD    CP
Line S02064 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02252  M02S02064.271l716 ---|          ADN    SNSW
Line S02065 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02253  M02S02065.271l716 ---|          CRD    CM
Line S02066 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02254  M02S02066.271l716 ---|          ADN    MS2W-SNSW
Line S02067 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02255  M02S02067.271l716 ---|          CRD    CN
Line S02068 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02256  M02S02068.271l716 ---|          LDN    0           CLEAR MESSAGE
Line S02069 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02257  M02S02069.271l716 ---|          STD    CN
Line S02070 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02258  M02S02070.271l716 ---|          LDD    CM+3        SET/CLEAR PAUSE BIT IN CPA
Line S02071 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02259  M02S02071.271l716 ---|          SCN    3
Line S02072 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02260  M02S02072.271l716 ---|          LMD    IR+3
Line S02073 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02261  M02S02073.271l716 ---|          STD    CM+3
Line S02074 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02262  M02S02074.271l716 ---|          LDD    CP
Line S02075 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02263  M02S02075.271l716 ---|          ADN    SNSW
Line S02076 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02264  M02S02076.271l716 ---|          CWD    CM
Line S02077 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02265  M02S02077.271l716 ---|          ADN    MS2W-SNSW
Line S02078 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02266  M02S02078.271l716 ---|          CWD    CN
Line S02079 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02267  M02S02079.271l716 ---|          LDD    FL
Line S02080 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02268  M02S02080.271l716 ---|          ZJN    CLR3        IF NO FIELD LENGTH
Line S02081 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02269  M02S02081.271l716 ---|          LDD    RA
Line S02082 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02270  M02S02082.271l716 ---|          SHN    6
Line S02083 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02271  M02S02083.271l716 ---|          CRD    FS
Line S02084 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02272  M02S02084.271l716 ---|          LDD    FS+3        SET/CLEAR PAUSE FLAGS IN (RA)
Line S02085 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02273  M02S02085.271l716 ---|          SCN    3
Line S02086 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02274  M02S02086.271l716 ---|          LMD    IR+3
Line S02087 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02275  M02S02087.271l716 ---|          STD    FS+3
Line S02088 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02276  M02S02088.271l716 ---|          LDD    RA          STORE (RA)
Line S02089 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02277  M02S02089.271l716 ---|          SHN    6
Line S02090 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02278  M02S02090.271l716 ---|          CWD    FS
Line S02091 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02279  M02S02091.271l716 ---| CLR3     LDD    T4          ISSUE DAYFILE MESSAGE
Line S02092 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02280  M02S02092.271l716 ---|          SHN    14
Line S02093 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02281  M02S02093.271l716 ---|          ADM    CLRA,IR+3
Line S02094 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02282  M02S02094.271l716 ---|          RJM    DFM
Line S02095 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02283  M02S02095.271l716 ---|          LJM    CLRX        RETURN
Line S02096 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02284  M02S02096.271l716 ---|
Line S02097 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02285  M03S02097.271l716 ---| CLRA     CON    MSGA
Line S02098 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02286  M03S02098.271l716 ---|          CON    MSGB
Line S00070 Modification History
M01 (Added by) 1ds21
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02287  M02S00070.271l716 ---|
Line S00071 Modification History
M01 (Added by) 1ds21
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02288  M02S00071.271l716 ---| CLRA     CON    /OVLNB/MSGA
Line S00072 Modification History
M01 (Added by) 1ds21
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02289  M02S00072.271l716 ---|          CON    /OVLNB/MSGB
02290  M01S02099.1ds     +++| BUF      SPACE  4,10
02291  M01S02100.1ds     +++| BUFB     DATA   6HACDT,
02292  M01S02101.1ds     +++| BUF      DATA   2,0         COMMAND SECTOR BUFFER
02293  M01S02102.1ds     +++| BUFA     BSS    0
Line S02103 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
02294  M02S02103.ns2663  ---| OVL0     EQU    BUFA        LOAD ADDRESS FOR *0SD*
02295  M01S00030.ns2663  +++| OVL0     EQU    BUFA+2      LOAD ADDRESS FOR *0SD*, *0QM*
02296  M01S02104.1ds     +++|          ERRNG  BFMS-BUF-510 CHECK FOR BUFFER OVERFLOW
02297  M01S00031.ns2663  +++|          ERRNG  BFMS-OVL0-2-ZQML  *0QM* OVERFLOW
Line S02105 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02298  M02S02105.1ds21   ---|          ERRNG  BFMS-BUFA+2-ZSDL  *0SD* OVERFLOW
Line S00073 Modification History
M01 (Added by) 1ds21
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02299  M02S00073.271l716 ---|          ERRNG  BFMS-BUFA-2-ZSDL  *0SD* OVERFLOW
02300  M01S00030.271l716 +++|          ERRNG  BFMS-OVL0-2-ZSDL  *0SD* OVERFLOW
02301  M01S00031.271l716 +++|          TITLE  OVERLAYABLE REQUEST PROCESSORS.
02302  M01S00032.271l716 +++|          SPACE  4,10
02303  M01S00033.271l716 +++|*         THE FOLLOWING ROUTINES CANNOT USE BUFFER *BUF*.
02304  M01S00034.271l716 +++|
02305  M01S00035.271l716 +++|
02306  M01S00036.271l716 +++|          QUAL   OVLNB
Line S02106 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02307  M02S02106.271l716 ---|
02308  M01S00037.271l716 +++| ECP      SPACE  4,10
02309  M01S00038.271l716 +++|***       FUNCTION ECPF - ENTER CPU PRIORITY.
02310  M01S00039.271l716 +++|*
Line S00040 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02311  M02S00040.ns2684  ---|*         ENTRY  (KBCML) = 36/, 12/ EO, 12/ PR
Line S00041 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02312  M02S00041.ns2684  ---|*                          EO = EJT ORDINAL.
Line S00042 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02313  M02S00042.ns2684  ---|*                          PR = CPU PRIORITY.
02314  M01S00003.ns2684  +++|*         ENTRY  (IR+3) = EJT ORDINAL.
Line S00004 Modification History
M01 (Added by) ns2684
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02315  M02S00004.ns2731  ---|*                (IR+4) = CPU PRIORITY.
02316  M01S00001.ns2731  +++|*                (IR+4) = CPU PRIORITY IF .NE. 0.
02317  M01S00002.ns2731  +++|*                (IR+4) = 0 IF SET PRIORITY TO SERVICE CLASS VALUE.
02318  M01S00005.ns2684  +++|*                (KBCML) = 36/, 24/ JSN.
02319  M01S00043.271l716 +++|
02320  M01S00044.271l716 +++|
02321  M01S00045.271l716 +++| ECP      ENTRY              ENTRY/EXIT
02322  M01S00046.271l716 +++|          LDC    /1DS/DSDL+/1DS/KBCML
02323  M01S00047.271l716 +++|          CRD    FN          READ PARAMETER WORD
Line S00048 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02324  M02S00048.ns2684  ---|          SFA    EJT,FN+3
02325  M01S00006.ns2684  +++|          LDD    FN+3        SET JSN IN *UTEM* PARAMETER BLOCK
02326  M01S00007.ns2684  +++|          STM    ECPA+3
02327  M01S00008.ns2684  +++|          LDD    FN+4
02328  M01S00009.ns2684  +++|          STM    ECPA+4
02329  M01S00010.ns2684  +++|          LDD    MA
02330  M01S00011.ns2684  +++|          CWM    ECPA,ON
02331  M01S00012.ns2684  +++|          LDN    60          SET RETRY COUNT
02332  M01S00013.ns2684  +++|          STD    T4
Line S00014 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02333  M02S00014.271l750 ---|          LDD    IR+4
Line S00015 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02334  M02S00015.271l750 ---|          SBN    LFCS
Line S00016 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02335  M02S00016.271l750 ---|          MJN    ECP1        IF BELOW LOWEST FIXED CPU PRIORITY
Line S00017 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02336  M02S00017.271l750 ---|          LDC    1S8         SET *LFCS* BIT IN *JCIW*
Line S00018 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02337  M02S00018.271l750 ---|          RAD    IR+4
02338  M01S00019.ns2684  +++|
02339  M01S00020.ns2684  +++|*         INTERLOCK EJT.
02340  M01S00021.ns2684  +++|
02341  M01S00022.ns2684  +++| ECP1     LDN    VFIN        SET INTERLOCK FLAG + WORD COUNT
02342  M01S00023.ns2684  +++|          STD    T1
02343  M01S00024.ns2684  +++|          LDN    0           CLEAR UNUSED BYTE
02344  M01S00025.ns2684  +++|          STD    CM+2
02345  M01S00026.ns2684  +++|          SFA    EJT,IR+3
02346  M01S00027.ns2684  +++|          RJM    SFI         SET INTERLOCK
02347  M01S00028.ns2684  +++|          ZJN    ECP4        IF ENTRY INTERLOCKED
02348  M01S00029.ns2684  +++|          SBN    2
02349  M01S00030.ns2684  +++|          PJN    ECP3        IF VERIFICATION FAILED OR ENTRY NOT IN USE
02350  M01S00031.ns2684  +++|          LDD    HN          DELAY
02351  M01S00032.ns2684  +++|          STD    T0
02352  M01S00033.ns2684  +++| ECP2     DELAY
02353  M01S00034.ns2684  +++|          SOD    T0
02354  M01S00035.ns2684  +++|          PJN    ECP2        IF MORE DELAY
02355  M01S00036.ns2684  +++|          SOD    T4
02356  M01S00037.ns2684  +++|          PJN    ECP1        IF NOT TIMED OUT
02357  M01S00038.ns2684  +++| ECP3     LDN    1           SET *EJT ENTRY BUSY*
02358  M01S00039.ns2684  +++|          RJM    SRD         RETURN STATUS TO *DSD*
02359  M01S00040.ns2684  +++|          LJM    ECPX        EXIT
02360  M01S00041.ns2684  +++|
02361  M01S00042.ns2684  +++|*         DETERMINE JOB STATE.
02362  M01S00043.ns2684  +++|
02363  M01S00044.ns2684  +++| ECP4     SFA    EJT,IR+3
02364  M01S00049.271l716 +++|          ADK    JSNE        FETCH JOB STATUS FROM EJT
Line S00050 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02365  M02S00050.ns2684  ---|          CRD    CN
02366  M01S00045.ns2684  +++|          CRD    FN
02367  M01S00051.271l716 +++|          ADK    SCHE-JSNE   GET ROLLOUT INFORMATION
02368  M01S00052.271l716 +++|          CRD    T5
Line S00053 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02369  M02S00053.ns2684  ---|          LDD    CN+4        EXTRACT JOB STATUS
02370  M01S00046.ns2684  +++|          LDD    FN+4        EXTRACT JOB STATUS
02371  M01S00054.271l716 +++|          LPN    76
02372  M01S00055.271l716 +++|          LMN    EXJS*2
Line S00056 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02373  M02S00056.ns2684  ---|          NJN    ECP2        IF NOT EXECUTING JOB STATE
02374  M01S00047.ns2684  +++|          NJP    ECP8        IF NOT EXECUTING JOB STATE
02375  M01S00057.271l716 +++|
02376  M01S00058.271l716 +++|*         PROCESS JOB AT CONTROL POINT.
02377  M01S00059.271l716 +++|
Line S00060 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02378  M02S00060.ns2684  ---|          STD    CM+1
Line S00061 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02379  M02S00061.ns2684  ---|          MONITOR  DCPM      DROP CPU
Line S00062 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02380  M02S00062.ns2684  ---|          LDD    FN+4
02381  M01S00048.ns2684  +++|          LDD    T5+3        SET CONTROL POINT NUMBER
02382  M01S00049.ns2684  +++|          STD    T6
02383  M01S00050.ns2684  +++|          LDD    NC          SET SYSTEM CP ADDRESS
02384  M01S00051.ns2684  +++|          STD    T7
02385  M01S00052.ns2684  +++|          RJM    CCP         CHANGE CONTROL POINT
02386  M01S00053.ns2684  +++|          NJN    ECP5        IF UNABLE TO MOVE TO DESIRED CP
02387  M01S00054.ns2684  +++|          LDD    CP          CHECK CURRENT PRIORITY
Line S00055 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02388  M02S00055.271l750 ---|          ADN    JCIW
02389  M01S00002.271l750 +++|          ADN    CWQW
02390  M01S00056.ns2684  +++|          CRD    T1
02391  M01S00057.ns2684  +++|          LDD    T1
Line S00058 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02392  M02S00058.271l750 ---|          SHN    21-11
Line S00059 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02393  M02S00059.271l750 ---|          MJN    ECP6        IF GREATER THAN *LSCS*
02394  M01S00003.271l750 +++|          SHN    -3
Line S00004 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02395  M02S00004.ns2731  ---|          ADC    -200-LSCS-1
Line S00005 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02396  M02S00005.ns2731  ---|          PJN    ECP6        IF CURRENT PRIORITY GREATER THAN *LSCS*
02397  M01S00003.ns2731  +++|          ADC    -200-LSCS
02398  M01S00004.ns2731  +++|          PJN    ECP6        IF NOT .LT. SYSTEM PRIORITIES
02399  M01S00060.ns2684  +++|          LDD    IR+4
02400  M01S00061.ns2684  +++|          LPC    177
02401  M01S00063.271l716 +++|          STD    CM+4        SET CPU PRIORITY IN REQUEST
02402  M01S00064.271l716 +++|          LDN    CPRS
02403  M01S00065.271l716 +++|          STD    CM+1        CHANGE CPU PRIORITY
02404  M01S00066.271l716 +++|          MONITOR  SJCM
Line S00067 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02405  M02S00067.ns2684  ---|          MONITOR  RCPM      RECALL CPU
Line S00068 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02406  M02S00068.ns2684  ---| ECP1     SOD    CN+4
Line S00069 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02407  M02S00069.ns2684  ---|          SFA    EJT,FN+3    CLEAR EJT INTERLOCK
02408  M01S00062.ns2684  +++| ECP5     SOD    FN+4
02409  M01S00063.ns2684  +++|          SFA    EJT,IR+3    CLEAR EJT INTERLOCK
02410  M01S00070.271l716 +++|          ADK    JSNE
Line S00071 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02411  M02S00071.ns2684  ---|          CWD    CN
02412  M01S00064.ns2684  +++|          CWD    FN
02413  M01S00072.271l716 +++|          UJP    ECPX        RETURN
02414  M01S00073.271l716 +++|
02415  M01S00065.ns2684  +++| ECP6     LDN    3           SET *INCORRECT ENTRY*
02416  M01S00066.ns2684  +++| ECP7     RJM    SRD         SET ERROR RESPONSE FOR *DSD*
02417  M01S00067.ns2684  +++|          UJN    ECP5        CLEAR EJT INTERLOCK
02418  M01S00068.ns2684  +++|
02419  M01S00074.271l716 +++|*         PROCESS JOB AT PSEUDO-CONTROL POINT.
02420  M01S00075.271l716 +++|
Line S00076 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02421  M02S00076.ns2684  ---| ECP2     LMN    PCJS*2&EXJS*2
Line S00077 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02422  M02S00077.ns2684  ---|          NJN    ECP4        IF JOB NOT AT PSEUDO CP
02423  M01S00069.ns2684  +++| ECP8     LMN    PCJS*2&EXJS*2
Line S00070 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02424  M02S00070.271l750 ---|          NJN    ECP10       IF JOB NOT AT PSEUDO CP
02425  M01S00006.271l750 +++|          NJP    ECP10       IF JOB NOT AT PSEUDO CP
02426  M01S00078.271l716 +++|          LDD    T6
02427  M01S00079.271l716 +++|          RJM    SCP         SET PSEUDO CP AREA ADDRESS
Line S00080 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02428  M02S00080.271l750 ---|          ADN    JCIW
Line S00007 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02429  M02S00007.ns2731  ---|          ADN    CWQW
Line S00081 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02430  M02S00081.ns2731  ---|          CRD    CM          GET JOB CONTROL INFORMATION
Line S00082 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02431  M03S00082.ns2731  ---|          LDD    FN+4
Line S00083 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02432  M03S00083.ns2731  ---|          SHN    3           CHANGE CPU PRIORITY
Line S00071 Modification History
M01 (Added by) ns2684
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02433  M02S00071.ns2731  ---|          LDD    CM          CHECK CURRENT CPU PRIORITY
Line S00072 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02434  M03S00072.ns2731  ---|          SHN    21-11
Line S00073 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02435  M03S00073.ns2731  ---|          MJN    ECP6        IF GREATER THAN *LSCS*
Line S00074 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02436  M03S00074.ns2731  ---|          LDD    CM
Line S00075 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02437  M03S00075.ns2731  ---|          LPC    200         RETAIN RECALL FLAG
Line S00076 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02438  M03S00076.ns2731  ---|          LMD    IR+4        SET NEW PRIORITY + *LFCS* FLAG
Line S00008 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02439  M02S00008.ns2731  ---|          SHN    -3
Line S00009 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02440  M02S00009.ns2731  ---|          ADC    -200-LSCS-1
Line S00010 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02441  M02S00010.ns2731  ---|          PJN    ECP6        IF CURRENT PRIORITY GREATER THAN *LSCS*
Line S00011 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02442  M02S00011.ns2731  ---|          LDD    IR+4        SET NEW PRIORITY
Line S00012 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02443  M02S00012.ns2731  ---|          SHN    3
Line S00013 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02444  M02S00013.ns2731  ---|          ADC    2000
Line S00084 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02445  M02S00084.ns2731  ---|          STD    CM
Line S00014 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02446  M02S00014.ns2731  ---|          LDD    CM+1
Line S00015 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02447  M02S00015.ns2731  ---|          LPC    3777
Line S00016 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02448  M02S00016.ns2731  ---|          LMC    4000        SET INCOMPLETE EXTENDED CPU SLICE
Line S00017 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02449  M02S00017.ns2731  ---|          STD    CM+1
Line S00018 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02450  M02S00018.ns2731  ---|          LDN    ZERL
Line S00019 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02451  M02S00019.ns2731  ---|          CRD    CN
02452  M01S00005.ns2731  +++|          CRM    BFMS+2,HN   READ FIRST SECTOR OF CP AREA
02453  M01S00006.ns2731  +++|          RJM    SPR         SET PRIORITY
02454  M01S00007.ns2731  +++|          PJN    ECP6        IF PRIORITY CHANGE NOT ALLOWED
02455  M01S00085.271l716 +++|          LDD    T6          RESET PCP AREA ADDRESS
02456  M01S00086.271l716 +++|          RJM    SCP
Line S00087 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02457  M02S00087.271l750 ---|          ADN    JCIW        UPDATE CONTROL INFORMATION
02458  M01S00020.271l750 +++|          ADN    CWQW        UPDATE CPU SCHEDULING INFORMATION
Line S00088 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02459  M02S00088.ns2731  ---|          CWD    CM
Line S00021 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02460  M02S00021.ns2731  ---|          ADN    CSAW-CWQW   CLEAR CPU SLICE ACCUMULATORS
Line S00022 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02461  M02S00022.ns2731  ---|          CWD    CN
02462  M01S00008.ns2731  +++|          CWM    BFMS+2+5*CWQW,ON
02463  M01S00009.ns2731  +++|          CWM    BFMS+2+5*CSAW,ON  CLEAR CPU SLICE ACCUMULATORS
02464  M01S00010.ns2731  +++|          ERRNZ  CSAW-CWQW-1
Line S00089 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02465  M02S00089.ns2684  ---| ECP3     UJN    ECP1        CLEAR EJT INTERLOCK
02466  M01S00077.ns2684  +++|          UJP    ECP5        CLEAR EJT INTERLOCK
02467  M01S00078.ns2684  +++|
02468  M01S00079.ns2684  +++| ECP9     LDN    2           SET *CANNOT ACCESS ROLLOUT DEVICE.*
02469  M01S00080.ns2684  +++|          UJP    ECP7        SET ERROR STATUS
02470  M01S00090.271l716 +++|
02471  M01S00091.271l716 +++|*         PROCESS ROLLED-OUT JOB.
02472  M01S00092.271l716 +++|
Line S00093 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02473  M02S00093.ns2684  ---| ECP4     SETMS  IO,(NS,RW)
02474  M01S00081.ns2684  +++| ECP10    LMN    PRJS*2&PCJS*2
02475  M01S00082.ns2684  +++|          ZJN    ECP9        IF PRE-INITIAL JOB STATE
02476  M01S00083.ns2684  +++|          LMN    PWJS*2&PRJS*2
02477  M01S00084.ns2684  +++|          ZJN    ECP9        IF PRE-INITIAL WAIT JOB STATE
02478  M01S00085.ns2684  +++|          SETMS  IO,(NS,RW)
02479  M01S00094.271l716 +++|          LDN    FSMS        SET FIRST SECTOR OF CP AREA
02480  M01S00095.271l716 +++|          STD    T7
02481  M01S00096.271l716 +++|          LDC    BFMS        READ ROLLOUT FILE
02482  M01S00097.271l716 +++|          RJM    RDS
Line S00098 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02483  M02S00098.ns2684  ---|          MJN    ECP6        IF DISK ERROR
Line S00099 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02484  M02S00099.ns2684  ---|          LDD    FN+4
Line S00100 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02485  M02S00100.ns2684  ---|          SHN    3           CHANGE CPU PRIORITY
02486  M01S00086.ns2684  +++|          MJN    ECP9        IF DISK ERROR
02487  M01S00011.ns2731  +++|          RJM    SPR         SET PRIORITY
02488  M01S00012.ns2731  +++|          MJN    ECP11       IF PRIORITY CHANGE ALLOWED
02489  M01S00013.ns2731  +++|          ENDMS
02490  M01S00014.ns2731  +++|          LJM    ECP6        SET *INCORRECT ENTRY*
02491  M01S00015.ns2731  +++|
02492  M01S00016.ns2731  +++| ECP11    LDC    BFMS+WLSF   UPDATE ROLLOUT FILE
02493  M01S00017.ns2731  +++|          RJM    WDS
02494  M01S00018.ns2731  +++|          ENDMS
02495  M01S00019.ns2731  +++|          UJP    ECP5        CLEAR EJT INTERLOCK
02496  M01S00020.ns2731  +++|
02497  M01S00021.ns2731  +++|
02498  M01S00022.ns2731  +++| ECPA     VFD    1/1,5/JSNE,6/24D  VERIFY THAT JSN-S MATCH
02499  M01S00023.ns2731  +++|          VFD    6/36D,6/0
02500  M01S00024.ns2731  +++|          VFD    36/0
02501  M01S00025.ns2731  +++| SPR      SPACE  4,10
02502  M01S00026.ns2731  +++|**        SPR - SET CPU PRIORITY OF ROLLED OUT JOB.
02503  M01S00027.ns2731  +++|*
02504  M01S00028.ns2731  +++|*         ENTRY  FIRST SECTOR OF CONTROL POINT AREA IN *BFMS*.
02505  M01S00029.ns2731  +++|*
02506  M01S00030.ns2731  +++|*         EXIT   (A) .LT. 0 IF NO ERROR.
02507  M01S00031.ns2731  +++|
02508  M01S00032.ns2731  +++|
02509  M01S00033.ns2731  +++| SPR      SUBR               ENTRY/EXIT
Line S00087 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02510  M02S00087.271l750 ---|          LDM    BFMS+2+5*JCIW+0
Line S00088 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02511  M02S00088.271l750 ---|          ERRPL  JCIW-100    *JCIW* MUST BE IN FIRST SECTOR OF CPA
Line S00089 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02512  M02S00089.271l750 ---|          SHN    21-11
Line S00090 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02513  M02S00090.271l750 ---|          MJP    ECP6        IF CURRENT PRIORITY GREATER THAN *LSCS*
Line S00091 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02514  M02S00091.271l750 ---|          SHN    11-21
Line S00092 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02515  M02S00092.271l750 ---|          LPC    200         RETAIN RECALL FLAG
Line S00093 Modification History
M01 (Added by) ns2684
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02516  M02S00093.271l750 ---|          LMD    IR+4        SET NEW PRIORITY + *LFCS* FLAG
Line S00101 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02517  M02S00101.271l750 ---|          STM    BFMS+2+5*JCIW+0
02518  M01S00023.271l750 +++|          LDM    BFMS+2+5*CWQW+0
02519  M01S00024.271l750 +++|          ERRPL  CWQW-100    *CWQW* MUST BE IN FIRST SECTOR OF CPA
02520  M01S00025.271l750 +++|          SHN    -3
Line S00026 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02521  M02S00026.ns2731  ---|          ADC    -200-LSCS-1
Line S00027 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02522  M02S00027.ns2731  ---|          PJP    ECP6        IF CURRENT PRIORITY GREATER THAN *LSCS*
02523  M01S00034.ns2731  +++|          ADC    -200-LSCS
02524  M01S00035.ns2731  +++|          PJN    SPRX        IF JOB AT SYSTEM PRIORITY
02525  M01S00036.ns2731  +++|
02526  M01S00037.ns2731  +++|*         IF SETTING THE PRIORITY TO THE SERVICE CLASS VALUE, THE
02527  M01S00038.ns2731  +++|*         SERVICE CLASS FLAG IN *CWQW* IS CLEARED SO THAT THE *JACM*
02528  M01S00039.ns2731  +++|*         FUNCTION WILL RESET THE PRIORITY ON ROLLIN.
02529  M01S00040.ns2731  +++|
02530  M01S00041.ns2731  +++|          LDM    BFMS+2+5*CWQW+1
02531  M01S00042.ns2731  +++|          LPC    2777        CLEAR SLICE AND SERVICE CLASS FLAGS
02532  M01S00043.ns2731  +++|          LMC    4000        SET INCOMPLETE EXTENDED CPU SLICE
02533  M01S00044.ns2731  +++|          STM    BFMS+2+5*CWQW+1
02534  M01S00028.271l750 +++|          LDD    IR+4        SET NEW PRIORITY
02535  M01S00045.ns2731  +++|          ZJN    SPR1        IF SET PRIORITY TO SERVICE CLASS VALUE
02536  M01S00029.271l750 +++|          SHN    3
02537  M01S00030.271l750 +++|          ADC    2000
02538  M01S00031.271l750 +++|          STM    BFMS+2+5*CWQW+0
Line S00032 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02539  M02S00032.ns2731  ---|          LDM    BFMS+2+5*CWQW+1
Line S00033 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02540  M02S00033.ns2731  ---|          LPC    3777
Line S00034 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02541  M02S00034.ns2731  ---|          LMC    4000        SET INCOMPLETE EXTENDED CPU SLICE
Line S00035 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02542  M02S00035.ns2731  ---|          STM    BFMS+2+5*CWQW+1
Line S00036 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02543  M02S00036.ns2731  ---|          LDN    ZERL        CLEAR CPU SLICE ACCUMULATORS
02544  M01S00046.ns2731  +++|          LDD    TH          SET PRIORITY NOT FROM SERVICE CLASS FLAG
02545  M01S00047.ns2731  +++|          RAM    BFMS+2+5*CWQW+1
02546  M01S00048.ns2731  +++| SPR1     LDN    ZERL        CLEAR CPU SLICE ACCUMULATORS
02547  M01S00037.271l750 +++|          CRM    BFMS+2+5*CSAW,ON
02548  M01S00038.271l750 +++|          ERRPL  CSAW-100    *CSAW* MUST BE IN FIRST SECTOR OF CPA
Line S00102 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
02549  M02S00102.ns2684  ---|          ERRPL  JCIW-100    *JCIW* MUST BE IN FIRST SECTOR OF CPA
Line S00103 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02550  M02S00103.ns2731  ---|          LDC    BFMS+WLSF   UPDATE ROLLOUT FILE
Line S00104 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02551  M02S00104.ns2731  ---|          RJM    WDS
Line S00105 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02552  M02S00105.ns2731  ---|          ENDMS
Line S00106 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02553  M03S00106.ns2731  ---| ECP5     UJN    ECP3        CLEAR EJT INTERLOCK
Line S00107 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02554  M03S00107.ns2731  ---|
Line S00108 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02555  M03S00108.ns2731  ---| ECP6     LDN    1           SET ERROR RESPONSE FOR *DSD*
Line S00109 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02556  M03S00109.ns2731  ---|          RJM    SRD
Line S00110 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02557  M03S00110.ns2731  ---|          UJN    ECP3        CLEAR EJT INTERLOCK
Line S00094 Modification History
M01 (Added by) ns2684
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02558  M02S00094.ns2731  ---|          UJP    ECP5        CLEAR EJT INTERLOCK
Line S00095 Modification History
M01 (Added by) ns2684
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02559  M02S00095.ns2731  ---|
Line S00096 Modification History
M01 (Added by) ns2684
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02560  M02S00096.ns2731  ---|
Line S00097 Modification History
M01 (Added by) ns2684
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02561  M02S00097.ns2731  ---| ECPA     VFD    1/1,5/JSNE,6/24D  VERIFY THAT JSN-S MATCH
Line S00098 Modification History
M01 (Added by) ns2684
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02562  M02S00098.ns2731  ---|          VFD    6/36D,6/0
Line S00099 Modification History
M01 (Added by) ns2684
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02563  M02S00099.ns2731  ---|          VFD    36/0
02564  M01S00049.ns2731  +++|          LCN    1           SET NO ERROR
02565  M01S00050.ns2731  +++|          UJN    SPRX        RETURN
02566  M01S00111.271l716 +++|          SPACE  4,10
Line S02107 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02567  M02S02107.1ds21   ---|*         FOLLOWING ROUTINES CAN NOT USE BUFFER *BUF*.
Line S00074 Modification History
M01 (Added by) 1ds21
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02568  M02S00074.271l716 ---|*         FOLLOWING ROUTINES CAN NOT USE BUFFER *BUF* OR *BFMS*.
02569  M01S00112.271l716 +++|*         THE FOLLOWING ROUTINES CANNOT USE BUFFERS *BUF* OR *BFMS*.
02570  M01S02108.1ds     +++|
02571  M01S02109.1ds     +++|
02572  M01S02110.1ds     +++|          ERRNG  BFMS-*      OVERFLOW INTO BUFFER
Line S02111 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02573  M02S02111.271l716 ---|
Line S02112 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02574  M02S02112.271l716 ---|
Line S02113 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02575  M03S02113.271l716 ---|*         FOLLOWING ROUTINES DO NOT USE *BFMS*.
Line S00075 Modification History
M01 (Added by) 1ds21
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02576  M02S00075.271l716 ---|          QUAL   OVLNB
Line S02114 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02577  M02S02114.271l716 ---| ROL      SPACE  4,10
Line S02115 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02578  M02S02115.271l716 ---|***       FUNCTION ROLF - ROLLOUT JOB.
Line S02116 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02579  M02S02116.271l716 ---|*
Line S02117 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02580  M02S02117.271l716 ---|*         ENTRY  (KBCML) = 24/JSN,12/TIME
Line S02118 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02581  M02S02118.271l716 ---|*                          JSN = JSN OF JOB TO BE ROLLED.
Line S02119 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02582  M02S02119.271l716 ---|*                          TIME = NUMBER OF SCHEDULER CYCLES.
Line S02120 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02583  M02S02120.271l716 ---|
Line S02121 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02584  M02S02121.271l716 ---|
Line S02122 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02585  M02S02122.271l716 ---| ROL      ENTRY              ENTRY/EXIT
Line S02123 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02586  M02S02123.271l716 ---|          LDC    /1DS/DSDL+/1DS/KBCML  READ SPECIAL PARAMETER WORD
Line S02124 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02587  M02S02124.271l716 ---|          CRD    FN
Line S02125 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02588  M02S02125.271l716 ---|          LDD    FN          STORE JSN IN *UTEM* BLOCK
Line S02126 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02589  M02S02126.271l716 ---|          STM    ROLA+3
Line S02127 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02590  M02S02127.271l716 ---|          LDD    FN+1
Line S02128 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02591  M02S02128.271l716 ---|          STM    ROLA+4
Line S02129 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02592  M02S02129.271l716 ---|          LDD    CP          GET EJT ORDINAL
Line S02130 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02593  M02S02130.271l716 ---|          ADN    TFSW
Line S02131 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02594  M02S02131.271l716 ---|          CRD    CM
Line S02132 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02595  M02S02132.271l716 ---|          SFA    EJT,CM      GET ABSOLUTE ADDRESS OF EJT ENTRY
Line S02133 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02596  M02S02133.271l716 ---|          STD    CM+4
Line S02134 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02597  M02S02134.271l716 ---|          SHN    -14
Line S02135 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02598  M02S02135.271l716 ---|          STD    CM+3
Line S02136 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02599  M02S02136.271l716 ---|          LDN    2           SET WORD COUNT
Line S02137 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02600  M02S02137.271l716 ---|          STD    CM+1
Line S02138 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02601  M02S02138.271l716 ---|          LDN    0
Line S02139 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02602  M02S02139.271l716 ---|          STD    CM+2
Line S02140 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02603  M02S02140.271l716 ---|          LDD    MA          WRITE *UTEM* REQUEST WORDS
Line S02141 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02604  M02S02141.271l716 ---|          CWM    ROLA,CM+1
Line S02142 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02605  M02S02142.271l716 ---|          MONITOR  UTEM
Line S02143 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02606  M02S02143.271l716 ---|          LDD    CM+1
Line S02144 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02607  M02S02144.271l716 ---|          ZJN    ROL1        IF VERIFICATION PASSED
Line S02145 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02608  M02S02145.271l716 ---|          LJM    ROLX        RETURN
Line S02146 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02609  M02S02146.271l716 ---|
Line S02147 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02610  M02S02147.271l716 ---| ROL1     LDD    CP
Line S02148 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02611  M02S02148.271l716 ---|          ADN    TERW
Line S02149 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02612  M02S02149.271l716 ---|          CRD    CM
Line S02150 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02613  M02S02150.271l716 ---|
Line S02151 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02614  M02S02151.271l716 ---|*         SET *TERW* BITS 29-21 WITH ROLLOUT TIME.
Line S02152 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02615  M02S02152.271l716 ---|
Line S02153 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02616  M02S02153.271l716 ---|          LDD    FN+2        UPDATE TIME FIELD
Line S02154 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02617  M02S02154.271l716 ---|          LPN    7
Line S02155 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02618  M02S02155.271l716 ---|          SHN    13-2
Line S02156 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02619  M02S02156.271l716 ---|          STD    T1
Line S02157 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02620  M02S02157.271l716 ---|          LDD    FN+2
Line S02158 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02621  M02S02158.271l716 ---|          SHN    -3
Line S02159 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02622  M02S02159.271l716 ---|          STD    T0
Line S02160 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02623  M02S02160.271l716 ---|          LDD    CM+2        SET BITS 29-24
Line S02161 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02624  M02S02161.271l716 ---|          SCN    77
Line S02162 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02625  M02S02162.271l716 ---|          ADD    T0
Line S02163 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02626  M02S02163.271l716 ---|          STD    CM+2
Line S02164 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02627  M02S02164.271l716 ---|          LDD    CM+3        SET BITS 23-21
Line S02165 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02628  M02S02165.271l716 ---|          LPC    777
Line S02166 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02629  M02S02166.271l716 ---|          ADD    T1
Line S02167 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02630  M02S02167.271l716 ---|          STD    CM+3
Line S02168 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02631  M02S02168.271l716 ---|          LDD    CP
Line S02169 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02632  M02S02169.271l716 ---|          ADN    TERW
Line S02170 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02633  M02S02170.271l716 ---|          CWD    CM
Line S02171 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02634  M02S02171.271l716 ---|          LDN    ZERL
Line S02172 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02635  M02S02172.271l716 ---|          CRD    CM
Line S02173 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02636  M02S02173.271l716 ---|          LDN    ROTE        SET TIMED/EVENT
Line S02174 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02637  M02S02174.271l716 ---|          STD    CM+1
Line S02175 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02638  M02S02175.271l716 ---|          MONITOR  ROCM
Line S02176 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02639  M02S02176.271l716 ---|          LJM    ROLX        RETURN
Line S02177 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02640  M02S02177.271l716 ---|
Line S02178 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02641  M02S02178.271l716 ---|
Line S02179 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02642  M02S02179.271l716 ---|*         *UTEM* REQUEST BLOCK.
Line S02180 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02643  M02S02180.271l716 ---|
Line S02181 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02644  M02S02181.271l716 ---| ROLA     VFD    1/1,5/JSNE,6/24D  VERIFY JSN-S MATCH
Line S02182 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02645  M02S02182.271l716 ---|          VFD    6/36D,6/0
Line S02183 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02646  M02S02183.271l716 ---|          CON    0
Line S02184 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02647  M02S02184.271l716 ---|          CON    0
Line S02185 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02648  M02S02185.271l716 ---|          CON    0
Line S02186 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02649  M02S02186.271l716 ---|
Line S02187 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02650  M02S02187.271l716 ---|          VFD    1/0,5/SCLE,6/2  CLEAR *ROLLOUT* AND *ROLLIN* BITS
Line S02188 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02651  M02S02188.271l716 ---|          VFD    6/52D,6/0
Line S02189 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02652  M02S02189.271l716 ---|          CON    0
Line S02190 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02653  M02S02190.271l716 ---|          CON    0
Line S02191 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02654  M02S02191.271l716 ---|          CON    0
02655  M01S02192.1ds     +++| AEJ      SPACE  4,10
02656  M01S02193.1ds     +++|***       FUNCTION AEJF - ASSIGN EQUIPMENT TO JOB.
02657  M01S02194.1ds     +++|*
02658  M01S02195.1ds     +++|*         ENTRY  (IR+3) = EQUIPMENT.
02659  M01S02196.1ds     +++|
02660  M01S02197.1ds     +++|
02661  M01S02198.1ds     +++| AEJ      ENTRY              ENTRY/EXIT
02662  M01S02199.1ds     +++|          LDD    CP          SET OPERATOR ASSIGNED EQUIPMENT
02663  M01S02200.1ds     +++|          ADN    OAEW
02664  M01S02201.1ds     +++|          CRD    CM
02665  M01S02202.1ds     +++|          LDD    IR+3
02666  M01S02203.1ds     +++|          STD    CM+4
02667  M01S02204.1ds     +++|          LDD    CP
02668  M01S02205.1ds     +++|          ADN    OAEW
02669  M01S02206.1ds     +++|          CWD    CM
02670  M01S02207.1ds     +++|          UJN    AEJX        RETURN
Line S02208 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02671  M02S02208.1ds21   ---| DIS      SPACE  4,10
Line S02209 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02672  M02S02209.1ds21   ---|***       FUNCTION DISF - CALL DIS TO JOB.
Line S02210 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02673  M02S02210.1ds21   ---|
Line S02211 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02674  M02S02211.1ds21   ---|
Line S02212 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02675  M02S02212.1ds21   ---| DIS      ENTRY              ENTRY/EXIT
Line S02213 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02676  M02S02213.1ds21   ---|          RJM    LKC         LOG COMMAND
Line S02214 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02677  M02S02214.1ds21   ---|          LDC    2RDI        BUILD INPUT REGISTER
Line S02215 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02678  M02S02215.1ds21   ---|          STD    IR
Line S02216 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02679  M02S02216.1ds21   ---|          LDD    CP
Line S02217 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02680  M02S02217.1ds21   ---|          SHN    -7
Line S02218 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02681  M02S02218.1ds21   ---|          LMC    2L S
Line S02219 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02682  M02S02219.1ds21   ---|          STD    IR+1
Line S02220 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02683  M02S02220.1ds21   ---|          LDN    0
Line S02221 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02684  M02S02221.1ds21   ---|          STD    IR+2
Line S02222 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02685  M02S02222.1ds21   ---|          STD    IR+3
Line S02223 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02686  M02S02223.1ds21   ---|          LDC    4000        SET DIRECT CALL
Line S02224 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02687  M02S02224.1ds21   ---|          STD    IR+4
Line S02225 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02688  M02S02225.1ds21   ---|          LDD    MA          ENTER *DIS* IN RECALL STACK
Line S02226 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02689  M02S02226.1ds21   ---|          CWD    IR
Line S02227 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02690  M02S02227.1ds21   ---|          LDN    ZERL
Line S02228 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02691  M02S02228.1ds21   ---|          CRD    CM
Line S02229 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02692  M02S02229.1ds21   ---|          MONITOR  RECM
Line S02230 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
02693  M02S02230.1ds21   ---|          LJM    PPR         EXIT TO PP RESIDENT
02694  M01S02231.1ds     +++| CKP      SPACE  4,10
02695  M01S02232.1ds     +++|***       FUNCTION CKPF - CALL CHECKPOINT TO JOB.
02696  M01S02233.1ds     +++|
02697  M01S02234.1ds     +++|
02698  M01S02235.1ds     +++| CKP      ENTRY              ENTRY/EXIT
02699  M01S02236.1ds     +++|          LDN    0
02700  M01S02237.1ds     +++|          STD    CM+1
02701  M01S02238.1ds     +++|          MONITOR  DCPM      GET RID OF CP ACTIVITY
02702  M01S02239.1ds     +++|          LDD    CM+1        SAVE STATUS
02703  M01S02240.1ds     +++|          STD    T1
02704  M01S02241.1ds     +++| CKP1     PAUSE
02705  M01S02242.1ds     +++|          LDD    CM+1
02706  M01S02243.1ds     +++|          NJN    CKPX        IF ERROR
02707  M01S02244.1ds     +++|          LDD    CM+2
02708  M01S02245.1ds     +++|          LPN    1
02709  M01S02246.1ds     +++|          NJN    CKP3        IF ROLLOUT REQUESTED
02710  M01S02247.1ds     +++|          LDD    CM          CHECK PP ACTIVITY
02711  M01S02248.1ds     +++|          LPN    36          IGNORE THIS PP
02712  M01S02249.1ds     +++|          ZJN    CKP2        IF NO PP ACTIVITY
02713  M01S02250.1ds     +++|          LDN    77
02714  M01S02251.1ds     +++|          SBN    1
02715  M01S02252.1ds     +++|          NJN    *-1         IF DELAY NOT FINISHED
02716  M01S02253.1ds     +++|          UJN    CKP1        LOOP
02717  M01S02254.1ds     +++|
02718  M01S02255.1ds     +++| CKP2     LDD    CM+4
02719  M01S02256.1ds     +++|          SHN    -4
02720  M01S02257.1ds     +++|          NJN    CKP3        IF PP RECALL REQUESTS
02721  M01S02258.1ds     +++|          LDD    CP
02722  M01S02259.1ds     +++|          ADN    JCIW
02723  M01S02260.1ds     +++|          CRD    CN
02724  M01S02261.1ds     +++|          ADK    TFSW-JCIW
02725  M01S02262.1ds     +++|          CRD    AB
02726  M01S02263.1ds     +++|          ADK    SPCW-TFSW
02727  M01S02264.1ds     +++|          CRD    CM
02728  M01S02265.1ds     +++|          LDD    CN+3
02729  M01S02266.1ds     +++|          LPC    600
02730  M01S02267.1ds     +++|          NJN    CKP3        IF USER FILE PRIVACY
02731  M01S02268.1ds     +++|          LDD    CM
02732  M01S02269.1ds     +++| CKP3     NJN    CKP4        IF *SPCW* BUSY
02733  M01S02270.1ds     +++|          SFA    EJT,AB      CHECK FOR SCP CONNECTION
02734  M01S02271.1ds     +++|          ADK    JSNE
02735  M01S02272.1ds     +++|          CRD    AB
02736  M01S02273.1ds     +++|          LDD    AB+4
02737  M01S02274.1ds     +++|          SHN    21-13
02738  M01S02275.1ds     +++|          MJN    CKP4        IF JOB IS CONNECTED TO A SCP
02739  M01S02276.1ds     +++|          LDN    ZERL
02740  M01S02277.1ds     +++|          CRD    CN
02741  M01S02278.1ds     +++|          CRD    CM
02742  M01S02279.1ds     +++|          LDC    2RCK        BUILD *SPCW* CALL
02743  M01S02280.1ds     +++|          STD    CN
02744  M01S02281.1ds     +++|          LDC    2L P+20
02745  M01S02282.1ds     +++|          STD    CN+1
02746  M01S02283.1ds     +++|          LDD    CP          STORE SPECIAL REQUEST
02747  M01S02284.1ds     +++|          ADC    SPCW
02748  M01S02285.1ds     +++|          CWD    CN
02749  M01S02286.1ds     +++|          MONITOR  ROCM      SET ROLLOUT FLAG
02750  M01S02287.1ds     +++| CKP4     LDD    T1
02751  M01S02288.1ds     +++|          ZJN    CKP6        IF NO ORIGINAL STATUS
02752  M01S02289.1ds     +++|          LDD    RA          CHECK SYSTEM REQUEST
02753  M01S02290.1ds     +++|          SHN    6
02754  M01S02291.1ds     +++|          ADN    1
02755  M01S02292.1ds     +++|          CRD    CM
02756  M01S02293.1ds     +++|          LDD    CM
02757  M01S02294.1ds     +++|          NJN    CKP5        IF  CALL
02758  M01S02295.1ds     +++|          LDN    ZERL        CLEAR SYSTEM REQUEST
02759  M01S02296.1ds     +++|          CRD    CM
02760  M01S02297.1ds     +++|          LDD    RA
02761  M01S02298.1ds     +++|          SHN    6
Proceed to Part 2