User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:rec.002

Deck REC Part 002

29 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03438  M01S03049.rec     +++|          LPN    3
03439  M01S03050.rec     +++|          ZJN    DDC3        IF CHANNEL AVAILABLE
03440  M01S03051.rec     +++|          LDN    DNCS
03441  M01S03052.rec     +++|          RJM    ISF         DOWN THE CHANNEL
03442  M01S03053.rec     +++| DDC3     LDI    T1
03443  M01S03054.rec     +++|          SHN    0-13
03444  M01S03055.rec     +++|          NJN    DDC4        IF CHANNEL PRESENT
03445  M01S03056.rec     +++|          LDN    DAPS
03446  M01S03057.rec     +++|          STD    CM+3
03447  M01S03058.rec     +++|          LDD    EO          SET EST ORDINAL
03448  M01S03059.rec     +++|          STD    CM+1
03449  M01S03060.rec     +++|          LDI    T1
03450  M01S03061.rec     +++|          LPN    77
03451  M01S03062.rec     +++|          STD    CM+2
03452  M01S03063.rec     +++|          MONITOR  SCSM      DISABLE ACCESS PATH
03453  M01S03064.rec     +++|*         LDN    0
03454  M01S03065.rec     +++|          UJP    DDC4        CHECK FOR ALTERNATE ACCESS
03455  M01S03066.rec     +++| IEQ      SPACE  4,10
03456  M01S03067.rec     +++|**        IEQ - IDENTIFY EQUIPMENT.
03457  M01S03068.rec     +++|*
03458  M01S03069.rec     +++|*         ENTRY  (CA) = BUFFER ADDRESS OF EST ENTRY.
03459  M01S03070.rec     +++|*                (T5) = EST ORDINAL.
03460  M01S03071.rec     +++|*                (CN - CN+4) = EST ENTRY FROM CMR.
03461  M01S03072.rec     +++|*
Line S03073 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03462  M02S03073.rec21   ---|*         EXIT   (A) .LT. 0 IF NON-REMOVABLE MS DEVICE.
Line S03074 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03463  M02S03074.rec21   ---|*                    .EQ. 0 IF REMOVABLE MS OR TAPE DEVICE.
Line S03075 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03464  M02S03075.rec21   ---|*                    .GT. 0 IF NOT MASS STORAGE OR TAPE DEVICE.
Line S03076 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03465  M02S03076.rec21   ---|*
03466  M01S03077.rec     +++|*         MACROS SFA.
03467  M01S03078.rec     +++|
Line S03079 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03468  M02S03079.rec21   ---|
Line S03080 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03469  M02S03080.rec21   ---| IEQ1     SHN    13-10+1
Line S03081 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03470  M02S03081.rec21   ---|          LMN    1           COMPLEMENT REMOVABLE STATUS
Line S03082 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03471  M02S03082.rec21   ---|          LPN    1
Line S03083 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03472  M02S03083.rec21   ---|          SHN    21-0        SHIFT TO SIGN POSITION
03473  M01S03084.rec     +++|
03474  M01S03085.rec     +++| IEQ      SUBR               ENTRY/EXIT
03475  M01S03086.rec     +++|          LDD    CA
03476  M01S03087.rec     +++|          ADN    EQAE*5
03477  M01S03088.rec     +++|          STM    IEQA
03478  M01S03089.rec     +++|          SFA    EST,T5      REWRITE *EQAE* WORD OF EST ENTRY
03479  M01S03090.rec     +++|          ADK    EQAE
03480  M01S03091.rec     +++|          CWM    **,ON
03481  M01S03092.rec     +++| IEQA     EQU    *-1
03482  M01S03093.rec     +++|          LDI    CA
03483  M01S03094.rec     +++|          SHN    21-13
Line S03095 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03484  M02S03095.rec21   ---|          MJN    IEQ1        IF MS DEVICE
03485  M01S00002.rec21   +++|          MJN    IEQX        IF MS DEVICE
03486  M01S03096.rec     +++|          LDM    3,CA
03487  M01S03097.rec     +++|          STD    CN+3
03488  M01S03098.rec     +++|          SFA    EST,T5      PRESERVE DEVICE MNEMONIC
03489  M01S03099.rec     +++|          ADK    EQDE
03490  M01S03100.rec     +++|          CWD    CN
Line S03101 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03491  M02S03101.rec21   ---|          LDD    CN+3        CHECK TAPE EQUIPMENT
Line S03102 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03492  M02S03102.rec21   ---|          LMC    2RMT
Line S03103 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03493  M02S03103.rec21   ---|          ZJN    IEQX        IF EQUIPMENT TYPE *MT*
Line S03104 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03494  M02S03104.rec21   ---|          LMC    2RNT&2RMT
03495  M01S03105.rec     +++|          UJP    IEQX        RETURN
03496  M01S03106.rec     +++| ISF      SPACE  4,10
03497  M01S03107.rec     +++|**        ISF - ISSUE *SEQM* FUNCTION.
03498  M01S03108.rec     +++|*
03499  M01S03109.rec     +++|*         ENTRY  (A) = *SEQM* SUBFUNCTION.
03500  M01S03110.rec     +++|*                (T1) = CHANNEL DESCRIPTOR ADDRESS.
03501  M01S03111.rec     +++|*                (EO) = EST ORDINAL.
03502  M01S03112.rec     +++|*
03503  M01S03113.rec     +++|*         EXIT   (A) = 0.
03504  M01S03114.rec     +++|*                (CM+1) = *SEQM* STATUS.
03505  M01S03115.rec     +++|*
03506  M01S03116.rec     +++|*         USES   CM - CM+4.
03507  M01S03117.rec     +++|*
03508  M01S03118.rec     +++|*         MACROS MONITOR.
03509  M01S03119.rec     +++|
03510  M01S03120.rec     +++|
03511  M01S03121.rec     +++| ISF      SUBR               ENTRY/EXIT
03512  M01S03122.rec     +++|          STD    CM+2
03513  M01S03123.rec     +++|          LDD    EO          SET EST ORDINAL
03514  M01S03124.rec     +++|          STD    CM+1
03515  M01S03125.rec     +++|          LDI    T1          SET CHANNEL NUMBER
03516  M01S03126.rec     +++|          LPN    77
03517  M01S03127.rec     +++|          STD    CM+3
03518  M01S03128.rec     +++|          LDN    0           CLEAR MUX CHANNEL INDICATOR
03519  M01S03129.rec     +++|          STD    CM+4
03520  M01S03130.rec     +++|          MONITOR  SEQM      MODIFY PATH DESCRIPTOR
03521  M01S03131.rec     +++|*         LDN    0
03522  M01S03132.rec     +++|          UJN    ISFX        RETURN
03523  M01S03133.rec     +++| PCH      SPACE  4,10
03524  M01S03134.rec     +++|**        PCH - PROCESS CHANNEL TABLES.
03525  M01S03135.rec     +++|*
03526  M01S03136.rec     +++|*         ENTRY  SYSTEM FILE POSITIONED TO CHANNEL TABLES.
03527  M01S03137.rec     +++|*
Line S03138 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03528  M02S03138.rec21   ---|*         EXIT   CHANNEL STATUS TABLE (DOWN BIT ONLY) AND EJT
Line S03139 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03529  M02S03139.rec21   ---|*                ASSIGNMENT TABLE RESTORED.
03530  M01S00003.rec21   +++|*         EXIT   CHANNEL EJT ASSIGNMENT TABLE RESTORED.
03531  M01S03140.rec     +++|*
Line S03141 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03532  M02S03141.rec21   ---|*         USES   T1, FN, CM - CM+4.
03533  M01S00004.rec21   +++|*         USES   T1, CM - CM+4.
03534  M01S03142.rec     +++|*
Line S03143 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03535  M02S03143.rec21   ---|*         CALLS  RNS, SCD.
03536  M01S00005.rec21   +++|*         CALLS  RNS.
03537  M01S03144.rec     +++|*
03538  M01S03145.rec     +++|*         MACROS ENDMS.
03539  M01S03146.rec     +++|
03540  M01S03147.rec     +++|
03541  M01S03148.rec     +++| PCH      SUBR               ENTRY/EXIT
03542  M01S03149.rec     +++|          LDC    BFMS        READ CHANNEL TABLES
03543  M01S03150.rec     +++|          RJM    RNS
03544  M01S03151.rec     +++|          ENDMS
Line S03152 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03545  M02S03152.rec21   ---|          LDN    CTALL*2     SET TABLE LENGTH
03546  M01S00006.rec21   +++|          LDN    CTALL       SET TABLE LENGTH
03547  M01S03153.rec     +++|          STD    T1
03548  M01S03154.rec     +++|          LDC    CHTP        GET CHANNEL TABLE POINTER
03549  M01S03155.rec     +++|          CRD    CM
03550  M01S03156.rec     +++|          LDD    CM+2
03551  M01S03157.rec     +++|          SHN    14
03552  M01S03158.rec     +++|          ADD    CM+3
Line S03159 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03553  M02S03159.rec21   ---|          CWM    BFMS+2,T1   RESTORE CHANNEL TABLES
Line S03160 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03554  M02S03160.rec21   ---|          LDN    MXCH+1
Line S03161 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03555  M02S03161.rec21   ---|          STD    FN
Line S03162 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03556  M02S03162.rec21   ---| PCH1     LDM    BFMS+2,FN   CHECK CHANNEL STATUS
Line S03163 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03557  M02S03163.rec21   ---|          LPN    40
Line S03164 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03558  M02S03164.rec21   ---|          ZJN    PCH2        IF CHANNEL NOT DOWN
Line S03165 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03559  M02S03165.rec21   ---|          RJM    SCD         SET CHANNEL DOWN
Line S03166 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03560  M02S03166.rec21   ---| PCH2     SOD    FN
Line S03167 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03561  M02S03167.rec21   ---|          PJN    PCH1        IF MORE CHANNELS
03562  M01S00007.rec21   +++|          ADK    CTALL
03563  M01S00008.rec21   +++|          CWM    BFMS+2+CTALL*5,T1  RESTORE CHANNEL ASSIGNMENT TABLE
03564  M01S03168.rec     +++|          UJN    PCHX        RETURN
03565  M01S03169.rec     +++| PET      SPACE  4,10
03566  M01S03170.rec     +++|**        PET - PROCESS EST.
03567  M01S03171.rec     +++|*
03568  M01S03172.rec     +++|*         ENTRY  SYSTEM FILE POSITIONED TO EST SECTOR.
03569  M01S03173.rec     +++|*
03570  M01S03174.rec     +++|*         EXIT   FOR ALL EQUIPMENTS WITH DOWN STATUS SET,
03571  M01S03175.rec     +++|*                THE DOWN, OFF, AND UNAVAILABLE BITS WILL BE
03572  M01S03176.rec     +++|*                SET IN THE EST, AND THE GLOBAL
03573  M01S03177.rec     +++|*                UNLOAD, UNLOAD REQUESTED, AND UNLOAD PROCESSED
03574  M01S03178.rec     +++|*                BITS WILL BE SET IN THE MST.
03575  M01S03179.rec     +++|*                FOR EQUIPMENTS WITH A CHANNEL DOWN ON THE CHECKPOINT
03576  M01S03180.rec     +++|*                FILE, BUT NOT IN THE CM EST (CHANNEL IS NOT GLOABALLY
03577  M01S03181.rec     +++|*                DOWN), THE CHANNEL DOWN STATUS IS RESET WITH A *SEQM*
03578  M01S03182.rec     +++|*                FUNCTION.
03579  M01S03183.rec     +++|*
03580  M01S03184.rec     +++|*         USES   CA, EO, LM, T3, T5, CN - CN+4.
03581  M01S03185.rec     +++|*
03582  M01S03186.rec     +++|*         CALLS  CDS, DDC, IEQ, RNS, SES.
03583  M01S03187.rec     +++|*
03584  M01S03188.rec     +++|*         MACROS ENDMS, SETMS, SFA.
03585  M01S03189.rec     +++|
03586  M01S03190.rec     +++|
03587  M01S03191.rec     +++| PET2     AOD    EO          ADVANCE EST ORDINAL
03588  M01S03192.rec     +++|          STD    T5
03589  M01S03193.rec     +++|          ERRNZ  ESTE/2*2-ESTE  CODE ASSUMES INTEGRAL EST-S PER PRU
03590  M01S03194.rec     +++|          LDN    5*ESTE      ADVANCE BUFFER ADDRESS
03591  M01S03195.rec     +++|          RAD    CA
03592  M01S03196.rec     +++|          SFA    EST,EO      GET EST ENTRY FROM CMR
03593  M01S03197.rec     +++|          ADK    EQDE
03594  M01S03198.rec     +++|          CRD    CN
03595  M01S03199.rec     +++|          RJM    IEQ         IDENTIFY EQUIPMENT
Line S03200 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03596  M02S03200.rec21   ---|          MJN    PET4        IF NON-REMOVABLE MS DEVICE
Line S03201 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03597  M02S03201.rec21   ---|          NJN    PET3        IF NOT MASS STORAGE OR TAPE
03598  M01S00009.rec21   +++|          RJM    SES
03599  M01S03202.rec     +++|          RJM    DDC
Line S03203 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03600  M02S03203.rec21   ---| PET3     RJM    SES         SET EQUIPMENT STATE
03601  M01S03204.rec     +++|          RJM    CDS         CHECK DEVICE STATUS
03602  M01S03205.rec     +++| PET4     LCN    ESTE        DECREMENT WORD COUNT
03603  M01S03206.rec     +++|          RAD    LM
03604  M01S03207.rec     +++|          PJN    PET2        IF NOT END OF SECTOR
03605  M01S03208.rec     +++|          LDD    CE          RESET CHECKPOINT DEVICE EST ORDINAL
03606  M01S03209.rec     +++|          STD    T5
03607  M01S03210.rec     +++|          LDD    T3          CHECK EST SECTOR
03608  M01S03211.rec     +++|          SHN    -6
03609  M01S03212.rec     +++|          NJN    PET1        IF NOT EOR
03610  M01S03213.rec     +++|
03611  M01S03214.rec     +++| PET      SUBR               ENTRY/EXIT
03612  M01S03215.rec     +++|          LCN    0
03613  M01S03216.rec     +++|          STD    EO
03614  M01S03217.rec     +++| PET1     LDC    BFMS+2-5*ESTE  INITIALIZE BUFFER POINTER
03615  M01S03218.rec     +++|          STD    CA
03616  M01S03219.rec     +++|          ADN    5*ESTE-2    READ NEXT SECTOR OF EST
03617  M01S03220.rec     +++|          RJM    RNS
03618  M01S03221.rec     +++|          STD    LM
03619  M01S03222.rec     +++|          ENDMS
03620  M01S03223.rec     +++|          LDD    LM          SET SECTOR WORD COUNT
03621  M01S03224.rec     +++|          STD    T3
03622  M01S03225.rec     +++|          NJN    PET4        IF NOT EMPTY SECTOR
03623  M01S03226.rec     +++|          UJN    PETX        RETURN
03624  M01S03227.rec     +++| RSE      SPACE  4,10
03625  M01S03228.rec     +++|**        RSE - RELEASE SYSTEM ASSIGNED EQUIPMENT.
03626  M01S03229.rec     +++|*
03627  M01S03230.rec     +++|*         USES   T5, T6, T7, CM - CM+4, FS - FS+4.
03628  M01S03231.rec     +++|*
03629  M01S03232.rec     +++|*         MACROS SFA.
03630  M01S03233.rec     +++|
03631  M01S03234.rec     +++|
03632  M01S03235.rec     +++| RSE2     LDD    CP
03633  M01S03236.rec     +++|          ADN    EACW        UPDATE EQUIPMENT ASSIGNED COUNT WORD
03634  M01S03237.rec     +++|          CWD    FS
03635  M01S03238.rec     +++|
03636  M01S03239.rec     +++| RSE      SUBR               ENTRY/EXIT
03637  M01S03240.rec     +++|          LDD    CP
03638  M01S03241.rec     +++|          ADN    EACW        GET EQUIPMENT ASSIGNED COUNT WORD
03639  M01S03242.rec     +++|          CRD    FS
03640  M01S03243.rec     +++|          LDN    ESTP
03641  M01S03244.rec     +++|          CRD    T7-2        FETCH EST POINTERS
03642  M01S03245.rec     +++| RSE1     SOD    T7
03643  M01S03246.rec     +++|          MJN    RSE2        IF EST SCAN COMPLETE
03644  M01S03247.rec     +++|          SFA    EST
03645  M01S03248.rec     +++|          ADK    EQAE        READ EST ASSIGNMENT WORD
03646  M01S03249.rec     +++|          CRD    CM
03647  M01S03250.rec     +++|          LDD    CM+4        CHECK ASSIGNMENT
03648  M01S03251.rec     +++|          LMC    7777
03649  M01S03252.rec     +++|          NJN    RSE1        IF NOT SYSTEM
03650  M01S03253.rec     +++|          STD    CM+4
03651  M01S03254.rec     +++|          STD    FS          CLEAR EQUIPMENT ASSIGNED COUNT
03652  M01S03255.rec     +++|          SFA    EST,T7
03653  M01S03256.rec     +++|          ADK    EQAE        CLEAR SYSTEM ASSIGNMENT
03654  M01S03257.rec     +++|          CWD    CM
03655  M01S03258.rec     +++|          UJN    RSE1        CONTINUE EST SCAN
Line S03259 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03656  M02S03259.rec21   ---| SCD      SPACE  4,10
Line S03260 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03657  M02S03260.rec21   ---|**        SCD - SET CHANNEL DOWN.
Line S03261 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03658  M02S03261.rec21   ---|*
Line S03262 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03659  M02S03262.rec21   ---|*         ENTRY  (FN) = CHANNEL NUMBER.
Line S03263 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03660  M02S03263.rec21   ---|*
Line S03264 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03661  M02S03264.rec21   ---|*         EXIT   FOR EACH EQUIPMENT THAT HAS THIS CHANNEL
Line S03265 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03662  M02S03265.rec21   ---|*                DEFINED, AND FOR WHICH IT IS LEGAL TO DOWN
Line S03266 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03663  M02S03266.rec21   ---|*                THE CHANNEL, A *SEQM* FUNCTION WILL BE USED
Line S03267 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03664  M02S03267.rec21   ---|*                TO RESET THE CHANNEL DOWN STATUS.
Line S03268 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03665  M02S03268.rec21   ---|*
Line S03269 Modification History
M01 (Added by) rec
M02 (Updated by) rec20
M03 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03666  M03S03269.rec21   ---|*         USES   EO, T1, T6, T7, CM - CM+4.
Line S00001 Modification History
M01 (Added by) rec20
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03667  M02S00001.rec21   ---|*         USES   EO, T1, T6, T7, CM - CM+4, CN - CN+4.
Line S03270 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03668  M02S03270.rec21   ---|*
Line S03271 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03669  M02S03271.rec21   ---|*         CALLS  ISF.
Line S03272 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03670  M02S03272.rec21   ---|*
Line S03273 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03671  M02S03273.rec21   ---|*         MACROS MONITOR, PAUSE, SFA.
Line S03274 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03672  M02S03274.rec21   ---|
Line S03275 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03673  M02S03275.rec21   ---|
Line S03276 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03674  M02S03276.rec21   ---| SCD      SUBR               ENTRY/EXIT
Line S03277 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03675  M02S03277.rec21   ---|          LDN    ESTP
Line S03278 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03676  M02S03278.rec21   ---|          CRD    T6
Line S03279 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03677  M02S03279.rec21   ---|          LDD    T6+2        SET LAST EST ORDINAL + 1
Line S03280 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03678  M02S03280.rec21   ---|          STD    T6
Line S03281 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03679  M02S03281.rec21   ---|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
Line S03282 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03680  M02S03282.rec21   ---|          STD    EO
Line S03283 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03681  M02S03283.rec21   ---| SCD1     AOD    EO          ADVANCE EST ORDINAL
Line S03284 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03682  M02S03284.rec21   ---|          LMD    T6
Line S03285 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03683  M02S03285.rec21   ---|          ZJN    SCDX        IF END OF EST
Line S03286 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03684  M02S03286.rec21   ---|          SFA    EST,EO
Line S03287 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03685  M02S03287.rec21   ---|          ADK    EQDE        READ EST ENTRY
Line S03288 Modification History
M01 (Added by) rec
M02 (Updated by) rec20
M03 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03686  M03S03288.rec21   ---|          CRD    CM
Line S03289 Modification History
M01 (Added by) rec
M02 (Updated by) rec20
M03 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03687  M03S03289.rec21   ---|          LDD    CM
Line S00002 Modification History
M01 (Added by) rec20
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03688  M02S00002.rec21   ---|          CRD    CN
Line S00003 Modification History
M01 (Added by) rec20
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03689  M02S00003.rec21   ---|          LDD    CN
Line S03290 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03690  M02S03290.rec21   ---|          SHN    21-13
Line S03291 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03691  M02S03291.rec21   ---|          MJN    SCD2        IF MASS STORAGE
Line S03292 Modification History
M01 (Added by) rec
M02 (Updated by) rec20
M03 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03692  M03S03292.rec21   ---|          LDD    CM+3
Line S00004 Modification History
M01 (Added by) rec20
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03693  M02S00004.rec21   ---|          LDD    CN+3
Line S03293 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03694  M02S03293.rec21   ---|          LMC    2RNT
Line S03294 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03695  M02S03294.rec21   ---|          ZJN    SCD2        IF TYPE *NT*
Line S03295 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03696  M02S03295.rec21   ---|          LMC    2RMT&2RNT
Line S03296 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03697  M02S03296.rec21   ---|          NJN    SCD1        IF NOT TYPE *MT*
Line S03297 Modification History
M01 (Added by) rec
M02 (Updated by) rec20
M03 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03698  M03S03297.rec21   ---| SCD2     LDN    CM          INITIALIZE CHANNEL BYTE ADDRESS
Line S00005 Modification History
M01 (Added by) rec20
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03699  M02S00005.rec21   ---| SCD2     LDN    CN          INITIALIZE CHANNEL BYTE ADDRESS
Line S03298 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03700  M02S03298.rec21   ---|          STD    T1
Line S03299 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03701  M02S03299.rec21   ---| SCD3     AOD    T1          ADVANCE DESCRIPTOR ADDRESS
Line S03300 Modification History
M01 (Added by) rec
M02 (Updated by) rec20
M03 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03702  M03S03300.rec21   ---|          LMN    CM+3
Line S00006 Modification History
M01 (Added by) rec20
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03703  M02S00006.rec21   ---|          LMN    CN+3
Line S03301 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03704  M02S03301.rec21   ---| SCD4     ZJN    SCD1        IF BOTH ACCESSES CHECKED
Line S03302 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03705  M02S03302.rec21   ---|          LDI    T1
Line S03303 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03706  M02S03303.rec21   ---|          ZJN    SCD3        IF NO PATH
Line S03304 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03707  M02S03304.rec21   ---|          LMD    FN
Line S03305 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03708  M02S03305.rec21   ---|          LPN    77
Line S03306 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03709  M02S03306.rec21   ---|          NJN    SCD3        IF NOT MATCHING CHANNEL
Line S03307 Modification History
M01 (Added by) rec
M02 (Updated by) rec20
M03 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03710  M03S03307.rec21   ---|          LDD    CM
Line S00007 Modification History
M01 (Added by) rec20
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03711  M02S00007.rec21   ---|          LDD    CN
Line S03308 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03712  M02S03308.rec21   ---|          SHN    21-13
Line S03309 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03713  M02S03309.rec21   ---|          PJN    SCD6        IF NOT MASS STORAGE
Line S03310 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03714  M02S03310.rec21   ---|          LDI    T1
Line S03311 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03715  M02S03311.rec21   ---|          SHN    0-11        CHECK CHANNEL STATE
Line S03312 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03716  M02S03312.rec21   ---|          LPN    3
Line S03313 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03717  M02S03313.rec21   ---|          LMN    3
Line S03314 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03718  M02S03314.rec21   ---|          ZJN    SCD4        IF ACCESS ALREADY DOWN
Line S03315 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03719  M02S03315.rec21   ---|          LDD    T1
Line S03316 Modification History
M01 (Added by) rec
M02 (Updated by) rec20
M03 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03720  M03S03316.rec21   ---|          ERRNZ  CM/10*10-CM  CODE DEPENDS ON VALUE
Line S00008 Modification History
M01 (Added by) rec20
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03721  M02S00008.rec21   ---|          ERRNZ  CN/10*10-CN  CODE DEPENDS ON VALUE
Line S03317 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03722  M02S03317.rec21   ---|          LMN    3
Line S03318 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03723  M02S03318.rec21   ---|          STD    T0          SET ALTERNATE CHANNEL BYTE ADDRESS
Line S03319 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03724  M02S03319.rec21   ---|          LDI    T0
Line S03320 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03725  M02S03320.rec21   ---|          ZJN    SCD5        IF SINGLE ACCESS DEVICE
Line S03321 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03726  M02S03321.rec21   ---|          SHN    0-11
Line S03322 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03727  M02S03322.rec21   ---|          LMN    4
Line S03323 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03728  M02S03323.rec21   ---|          ZJN    SCD6        IF BOTH CHANNELS UP
Line S03324 Modification History
M01 (Added by) rec
M02 (Updated by) rec20
M03 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03729  M03S03324.rec21   ---| SCD5     LDD    CM
Line S00009 Modification History
M01 (Added by) rec20
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03730  M02S00009.rec21   ---| SCD5     LDD    CN
Line S03325 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03731  M02S03325.rec21   ---|          LPN    3
Line S03326 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03732  M02S03326.rec21   ---|          LMN    3
Line S03327 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03733  M02S03327.rec21   ---|          NJN    SCD8        IF DEVICE NOT DOWN
Line S03328 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03734  M02S03328.rec21   ---| SCD6     LDD    FN
Line S03329 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03735  M02S03329.rec21   ---|          STD    CM+1        REQUEST THE CHANNEL
Line S03330 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03736  M02S03330.rec21   ---|          MONITOR  RCHM
Line S03331 Modification History
M01 (Added by) rec
M02 (Updated by) rec20
M03 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03737  M03S03331.rec21   ---| SCD7     PAUSE
Line S00010 Modification History
M01 (Added by) rec20
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03738  M02S00010.rec21   ---| SCD7     PAUSE  NE
Line S03332 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03739  M02S03332.rec21   ---|          LDN    DNCS        DOWN THE CHANNEL
Line S03333 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03740  M02S03333.rec21   ---|          RJM    ISF
Line S03334 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03741  M02S03334.rec21   ---|          LDD    CM+1
Line S03335 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03742  M02S03335.rec21   ---|          ZJN    SCD7        IF REJECT
Line S03336 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03743  M02S03336.rec21   ---|          LDD    FN
Line S03337 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03744  M02S03337.rec21   ---|          STD    CM+1        RELEASE THE CHANNEL
Line S03338 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03745  M02S03338.rec21   ---|          MONITOR  DCHM
Line S03339 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03746  M02S03339.rec21   ---| SCD8     LJM    SCD1        PROCESS NEXT EST ENTRY
03747  M01S03340.rec     +++| SES      SPACE  4,10
03748  M01S03341.rec     +++|**        SES - SET EQUIPMENT STATE.
03749  M01S03342.rec     +++|*
03750  M01S03343.rec     +++|*         ENTRY  (EO) = EST ORDINAL.
03751  M01S03344.rec     +++|*                (CA) = BUFFER ADDRESS OF EST ENTRY.
03752  M01S03345.rec     +++|*                (CN - CN+4) = EST ENTRY FROM CMR.
03753  M01S03346.rec     +++|*
03754  M01S03347.rec     +++|*         USES   CM - CM+4.
03755  M01S03348.rec     +++|*
03756  M01S03349.rec     +++|*         MACROS MONITOR.
03757  M01S03350.rec     +++|
03758  M01S03351.rec     +++|
03759  M01S03352.rec     +++| SES      SUBR               ENTRY/EXIT
03760  M01S03353.rec     +++|          LDI    CA
03761  M01S03354.rec     +++|          LMD    CN          COMPARE EQUIPMENT STATE
03762  M01S03355.rec     +++|          LPN    3
03763  M01S03356.rec     +++|          ZJN    SESX        IF NO CHANGE
03764  M01S03357.rec     +++|          LDI    CA
03765  M01S03358.rec     +++|          LPN    3           EXTRACT PREVIOUS STATE
03766  M01S03359.rec     +++|          STD    CM+2
03767  M01S03360.rec     +++|          ERRNZ  ONES        CODE DEPENDS ON VALUE
03768  M01S03361.rec     +++|          ERRNZ  IDES-1      CODE DEPENDS ON VALUE
03769  M01S03362.rec     +++|          ERRNZ  OFES-2      CODE DEPENDS ON VALUE
03770  M01S03363.rec     +++|          ERRNZ  DWES-3      CODE DEPENDS ON VALUE
03771  M01S03364.rec     +++|          LDD    EO
03772  M01S03365.rec     +++|          STD    CM+1        RESTORE EQUIPMENT STATE
03773  M01S03366.rec     +++|          MONITOR  SEQM
03774  M01S03367.rec     +++|          UJN    SESX        RETURN
Line S03368 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03775  M02S03368.rec21   ---| SKR      SPACE  4,10
Line S03369 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03776  M02S03369.rec21   ---|**        SKR - SKIP RECORD.
Line S03370 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03777  M02S03370.rec21   ---|*
Line S03371 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03778  M02S03371.rec21   ---|*         ENTRY  (T4 - T7) = MASS STORAGE PARAMETERS.
Line S03372 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03779  M02S03372.rec21   ---|*
Line S03373 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03780  M02S03373.rec21   ---|*         EXIT   (T6 - T7) ADVANCED.
Line S03374 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03781  M02S03374.rec21   ---|*
Line S03375 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03782  M02S03375.rec21   ---|*         CALLS  RNS.
Line S03376 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03783  M02S03376.rec21   ---|
Line S03377 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03784  M02S03377.rec21   ---|
Line S03378 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03785  M02S03378.rec21   ---| SKR2     SHN    -6
Line S03379 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03786  M02S03379.rec21   ---|          NJN    SKR1        IF NOT EOR
Line S03380 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03787  M02S03380.rec21   ---|
Line S03381 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03788  M02S03381.rec21   ---| SKR      SUBR               ENTRY/EXIT
Line S03382 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03789  M02S03382.rec21   ---| SKR1     LDC    BFMS        READ NEXT SECTOR
Line S03383 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03790  M02S03383.rec21   ---|          RJM    RNS
Line S03384 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03791  M02S03384.rec21   ---|
Line S03385 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03792  M02S03385.rec21   ---|*         PROCESS MASS STORAGE ERROR.
Line S03386 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03793  M02S03386.rec21   ---|
Line S03387 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03794  M02S03387.rec21   ---|          PJN    SKR2        IF NO ERROR
Line S03388 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03795  M02S03388.rec21   ---|          LDC    RCEA        *SYSTEM FILE PARITY ERROR.*
Line S03389 Modification History
M01 (Added by) rec
M02 (Updated by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03796  M02S03389.rec21   ---|          LJM    ERR         ISSUE MESSAGE AND HANG
03797  M01S03390.rec     +++|          SPACE  4,10
03798  M01S03391.rec     +++|**        COMMON DECKS.
03799  M01S03392.rec     +++|
03800  M01S03393.rec     +++| QUAL$    EQU    1           DO NOT QUALIFY COMMON DECKS
03801  M01S03394.rec     +++|*CALL     COMPTGB
03802  M01S03395.rec     +++|*CALL     COMPTLB
03803  M01S03396.rec     +++|          SPACE  4,10
03804  M01S03397.rec     +++|          ERRPL  *-BFMS      OVERFLOW INTO BUFFER
03805  M01S03398.rec     +++|          SPACE  4,10
03806  M01S03399.rec     +++|          QUAL
03807  M01S03400.rec     +++|          TTL    REC/4RD - CONTROL POINT RECOVERY ROUTINES.
03808  M01S03401.rec     +++|          TITLE
03809  M01S03402.rec     +++|          QUAL   CPR
03810  M01S03403.rec     +++|          IDENT  4RD,CPRX
03811  M01S03404.rec     +++|*COMMENT  REC - CONTROL POINT RECOVERY ROUTINES.
Line S03405 Modification History
M01 (Added by) rec
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
03812  M02S03405.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
03813  M01S00005.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03814  M01S03406.rec     +++| CPR      SPACE  4,10
03815  M01S03407.rec     +++|***       CPR - CONTROL POINT RECOVERY ROUTINES.
03816  M01S03408.rec     +++| CPR      SPACE  4,10
03817  M01S03409.rec     +++|          ORG    OVLA
03818  M01S03410.rec     +++|
03819  M01S03411.rec     +++|
03820  M01S03412.rec     +++| CPR      SUBR               ENTRY/EXIT
03821  M01S03413.rec     +++|          UJN    CPRX        RETURN AFTER LOAD
03822  M01S03414.rec     +++|          SPACE  4,10
03823  M01S03415.rec     +++|**        COMMON DECKS.
03824  M01S03416.rec     +++|
03825  M01S03417.rec     +++|
03826  M01S03418.rec     +++|          LIST   X
03827  M01S03419.rec     +++|*CALL     COMPVEI
03828  M01S03420.rec     +++|          LIST   *
03829  M01S03421.rec     +++|          TITLE  SUBROUTINES.
03830  M01S03422.rec     +++| UQE      SPACE  4,15
03831  M01S03423.rec     +++|**        UQE - UPDATE QFT ENTRY.
03832  M01S03424.rec     +++|*
03833  M01S03425.rec     +++|*         ENTRY  (EO) = EJT ORDINAL IF PROCESSING CONTROL POINTS.
03834  M01S03426.rec     +++|*                     = 0 IF PROCESSING QFT.
03835  M01S03427.rec     +++|*                (FS - FS+4) = FST INFORMATION.
03836  M01S03428.rec     +++|*
03837  M01S03429.rec     +++|*         USES   T5, T6.
03838  M01S03430.rec     +++|*
03839  M01S03431.rec     +++|*         CALLS  RSS.
03840  M01S03432.rec     +++|*
03841  M01S03433.rec     +++|*         MACROS ENDMS, SETMS, SFA.
03842  M01S03434.rec     +++|
03843  M01S03435.rec     +++|
03844  M01S03436.rec     +++| UQE      SUBR               ENTRY/EXIT
03845  M01S03437.rec     +++|          LDD    FS          SET EQUIPMENT
03846  M01S03438.rec     +++|          STD    T5
03847  M01S03439.rec     +++|          LDD    FS+1        SET FIRST TRACK
03848  M01S03440.rec     +++|          STD    T6
03849  M01S03441.rec     +++|          SETMS  IO
03850  M01S03442.rec     +++|          LDN    0           READ SYSTEM SECTOR
03851  M01S03443.rec     +++|          RJM    RSS
03852  M01S03444.rec     +++|          NJN    UQEX        IF SYSTEM SECTOR ERROR
03853  M01S03445.rec     +++|          ENDMS
03854  M01S03446.rec     +++|          LDD    EO
03855  M01S03447.rec     +++|          ZJN    UQE1        IF PROCESSING QFT
03856  M01S03448.rec     +++|          STM    IOSS+5*ENTQ+4
03857  M01S03449.rec     +++|          LDN    2
03858  M01S03450.rec     +++| UQE1     STD    T5
03859  M01S03451.rec     +++|          LDM    IOSS+5*JSNQ+4  SET/CLEAR EJT ASSIGNMENT
03860  M01S03452.rec     +++|          SCN    7
03861  M01S03453.rec     +++|          LMD    T5
03862  M01S03454.rec     +++|          STM    IOSS+5*JSNQ+4
03863  M01S03455.rec     +++|          LDN    QFTE        LENGTH OF QFT ENTRY
03864  M01S03456.rec     +++|          STD    T6
03865  M01S03457.rec     +++|          SFA    QFT,GQSS    STORE QFT ENTRY
03866  M01S03458.rec     +++|          CWM    IOSS,T6
03867  M01S03459.rec     +++|          LJM    UQEX        RETURN
03868  M01S03460.rec     +++| VEI      SPACE  4,15
03869  M01S03461.rec     +++|**        VEI - VALIDATE EOI FOR MASS STORAGE FILE.
03870  M01S03462.rec     +++|*
03871  M01S03463.rec     +++|*         ENTRY  (FA) = FNT INDEX.
03872  M01S03464.rec     +++|*                (QT) = FILE TYPE.
03873  M01S03465.rec     +++|*                (FS - FS+4) = FST INFORMATION.
03874  M01S03466.rec     +++|*
03875  M01S03467.rec     +++|*         USES   QI, T6.
03876  M01S03468.rec     +++|*
03877  M01S03469.rec     +++|*         CALLS  CLF, C2D, IRA, RDC, RSS, WEI, WSS.
03878  M01S03470.rec     +++|*
03879  M01S03471.rec     +++|*         MACROS ENDMS, SETMS, SFA.
03880  M01S03472.rec     +++|
03881  M01S03473.rec     +++|
03882  M01S03474.rec     +++| VEI5     LDD    QI          RESTORE FNT ORDINAL
03883  M01S03475.rec     +++|          STD    FA
03884  M01S03476.rec     +++| VEI6     ENDMS              RELEASE CHANNEL
03885  M01S03477.rec     +++|
03886  M01S03478.rec     +++| VEI      SUBR               ENTRY/EXIT
03887  M01S03479.rec     +++|          LDD    FS
03888  M01S03480.rec     +++|          ZJN    VEIX        IF NULL EQUIPMENT
03889  M01S03481.rec     +++|          STD    T5
03890  M01S03482.rec     +++|          SFA    EST         READ EST ENTRY
03891  M01S03483.rec     +++|          ADK    EQDE
03892  M01S03484.rec     +++|          CRD    CM
03893  M01S03485.rec     +++|          LDD    CM
03894  M01S03486.rec     +++|          SHN    0-13
03895  M01S03487.rec     +++|          ZJN    VEIX        IF NOT MASS STORAGE
03896  M01S03488.rec     +++|          LDD    FS+1
03897  M01S03489.rec     +++|          ZJN    VEIX        IF FILE NOT USED
03898  M01S03490.rec     +++|          STD    T6          SET FIRST TRACK
03899  M01S03491.rec     +++|          SHN    -6          PUT STARTING TRACK IN MESSAGE
03900  M01S03492.rec     +++|          RJM    C2D
03901  M01S03493.rec     +++|          STM    VEIC
03902  M01S03494.rec     +++|          LDD    T6
03903  M01S03495.rec     +++|          RJM    C2D
03904  M01S03496.rec     +++|          STM    VEIC+1
03905  M01S03497.rec     +++|          LDD    T5          PUT EST ORDINAL IN MESSAGE
03906  M01S03498.rec     +++|          SHN    -3
03907  M01S03499.rec     +++|          RJM    C2D
03908  M01S03500.rec     +++|          STM    VEIB
03909  M01S03501.rec     +++|          LDD    T5
03910  M01S03502.rec     +++|          LPN    7
03911  M01S03503.rec     +++|          SHN    6
03912  M01S03504.rec     +++|          ADC    2R0,
03913  M01S03505.rec     +++|          STM    VEIB+1
03914  M01S03506.rec     +++|          LDC    DSCP*CPAS+MS1W  DISPLAY MESSAGE
03915  M01S03507.rec     +++|          CWM    VEIA,TR
03916  M01S03508.rec     +++|          SBN    1           SAVE ADDRESS FOR *RDC* MESSAGE
03917  M01S03509.rec     +++|          STM    RDCA
03918  M01S03510.rec     +++|          RJM    IRA         INITIALIZE RANDOM ACCESS PROCESSORS
03919  M01S00003.ns2669  +++|          SETMS  IO,RW
03920  M01S03511.rec     +++|          LCN    1           READ DISK CHAIN
03921  M01S03512.rec     +++|          RJM    RDC
Line S03513 Modification History
M01 (Added by) rec
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03922  M02S03513.ns2788  ---|          ZJN    VEI1        IF EOI ON DISK MATCHES TRT EOI
Line S03514 Modification History
M01 (Added by) rec
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03923  M02S03514.ns2788  ---|          RJM    CLF         CHANGE LENGTH OF FILE IN TRT
Line S03515 Modification History
M01 (Added by) rec
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03924  M02S03515.ns2788  ---| VEI1     LDD    FS+4
Line S03516 Modification History
M01 (Added by) rec
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03925  M02S03516.ns2788  ---|          ZJN    VEI3        IF REWRITE OF EOI REQUIRED
Line S03517 Modification History
M01 (Added by) rec
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03926  M02S03517.ns2788  ---| VEI2     LJM    VEI6        RETURN
03927  M01S00001.ns2788  +++|          NJN    VEI2        IF LENGTH/LINKAGE/DISK ERROR
03928  M01S00002.ns2788  +++| VEI1     LJM    VEI6        RETURN
03929  M01S03518.rec     +++|
Line S03519 Modification History
M01 (Added by) rec
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03930  M02S03519.ns2788  ---| VEI3     RJM    WEI         WRITE EOI
Line S03520 Modification History
M01 (Added by) rec
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03931  M02S03520.ns2788  ---|          LDD    QT
03932  M01S00003.ns2788  +++| VEI2     RJM    CLF         CHANGE LENGTH OF FILE IN TRT
03933  M01S00004.ns2788  +++|          LDD    FS+4
03934  M01S00005.ns2788  +++|          NJN    VEI3        IF NO REWRITE OF EOI REQUIRED
03935  M01S00006.ns2788  +++|          RJM    WEI         WRITE EOI
03936  M01S00007.ns2788  +++| VEI3     LDD    QT          CHECK FILE TYPE
03937  M01S03521.rec     +++|          LMN    PMFT
Line S03522 Modification History
M01 (Added by) rec
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03938  M02S03522.ns2788  ---|          NJN    VEI2        IF NOT DIRECT ACCESS PERMANENT FILE
03939  M01S00008.ns2788  +++|          NJN    VEI1        IF NOT DIRECT ACCESS PERMANENT FILE
03940  M01S03523.rec     +++|          LDD    FS+1        SET FIRST TRACK
03941  M01S03524.rec     +++|          STD    T6
03942  M01S03525.rec     +++|          LDD    FA          SAVE FNT ORDINAL
03943  M01S03526.rec     +++|          STD    QI
03944  M01S03527.rec     +++|          SETMS  POSITION
03945  M01S03528.rec     +++|*         LDN    0           SELECT NO FILE NAME VERIFICATION
03946  M01S03529.rec     +++|          STD    FA
03947  M01S03530.rec     +++|          RJM    RSS         READ SYSTEM SECTOR
03948  M01S03531.rec     +++|          NJN    VEI4        IF SYSTEM SECTOR ERROR
Line S03532 Modification History
M01 (Added by) rec
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
03949  M02S03532.ns2729  ---|          LDM    CTSS+FCEC   SET ERROR FLAG IN SYSTEM SECTOR
03950  M01S00003.ns2729  +++|          LDM    /COMSPFM/CTSS+/COMSPFM/FCEC  SET ERROR FLAG IN SS
03951  M01S03533.rec     +++|          LPC    7077
03952  M01S03534.rec     +++|          LMC    400
Line S03535 Modification History
M01 (Added by) rec
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
03953  M02S03535.ns2729  ---|          STM    CTSS+FCEC
03954  M01S00004.ns2729  +++|          STM    /COMSPFM/CTSS+/COMSPFM/FCEC
03955  M01S03536.rec     +++|          RJM    WSS         REWRITE SYSTEM SECTOR
03956  M01S03537.rec     +++| VEI4     LJM    VEI5        RESTORE FNT ORDINAL
03957  M01S03538.rec     +++|
03958  M01S03539.rec     +++|
03959  M01S03540.rec     +++| VEIA     DATA   H* VERIFY EQ*
03960  M01S03541.rec     +++| VEIB     DATA   H*000, A*
03961  M01S03542.rec     +++| VEIC     DATA   C*0000.*
Line S03543 Modification History
M01 (Added by) rec
M02 (Updated by) rec23
Seq #  *Modification Id* Act 
----------------------------+
03962  M02S03543.rec23   ---|
Line S03544 Modification History
M01 (Added by) rec
M02 (Updated by) rec23
Seq #  *Modification Id* Act 
----------------------------+
03963  M02S03544.rec23   ---|
Line S03545 Modification History
M01 (Added by) rec
M02 (Updated by) rec23
Seq #  *Modification Id* Act 
----------------------------+
03964  M02S03545.rec23   ---|          ERRNG  SBUF-*      ROLLOUT FILE BUFFER OVERFLOW
03965  M01S03546.rec     +++|          SPACE  4,10
03966  M01S03547.rec     +++| OVLC     EQU    *+5         ORIGIN FOR *4RF*
Line S03548 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03967  M02S03548.271l716 ---|
03968  M01S00249.271l716 +++| ABT      SPACE  4,10
Line S00250 Modification History
M01 (Added by) 271l716
M02 (Updated by) rec33
Seq #  *Modification Id* Act 
----------------------------+
03969  M02S00250.rec33   ---|**        ABR - ABORT CM RECOVERY.
03970  M01S00007.rec33   +++|**        ABT - ABORT CM RECOVERY.
03971  M01S00251.271l716 +++|*
03972  M01S00252.271l716 +++|*         ENTRY  (PN) = CP/PCP NUMBER.
03973  M01S00253.271l716 +++|*
03974  M01S00254.271l716 +++|*         EXIT   TO *ERR*.
03975  M01S00255.271l716 +++|*
03976  M01S00256.271l716 +++|*         USES   PN.
03977  M01S00257.271l716 +++|*
03978  M01S00258.271l716 +++|*         CALLS  C2D.
03979  M01S00259.271l716 +++|
03980  M01S00260.271l716 +++|
03981  M01S00261.271l716 +++| ABT      LDD    PN          CHECK CP NUMBER
03982  M01S00262.271l716 +++|          SBD    NC
Line S00263 Modification History
M01 (Added by) 271l716
M02 (Updated by) rec33
Seq #  *Modification Id* Act 
----------------------------+
03983  M02S00263.rec33   ---|          MJN    ABT1        IF NOT PSEUDO CP
03984  M01S00008.rec33   +++|          MJN    ABT1        IF REAL CP
03985  M01S00009.rec33   +++|          ZJN    ABT1        IF SYSTEM CP
03986  M01S00264.271l716 +++|          SBN    1
03987  M01S00265.271l716 +++|          STD    PN          SAVE PCP OFFSET
03988  M01S00266.271l716 +++|          SOM    ABTA
03989  M01S00267.271l716 +++| ABT1     LDD    PN          CONVERT CP/PCP NUMBER
03990  M01S00268.271l716 +++|          RJM    C2D
03991  M01S00269.271l716 +++|          STM    ABTB+1      SET NUMBER IN MESSAGE
03992  M01S00270.271l716 +++|          LDC    ABTB
03993  M01S00271.271l716 +++| ABTA     EQU    *-1
03994  M01S00272.271l716 +++|          LJM    ERR         DISPLAY ERROR AND HANG
03995  M01S00273.271l716 +++|
03996  M01S00274.271l716 +++|
03997  M01S00275.271l716 +++|          DATA   2H P
03998  M01S00276.271l716 +++| ABTB     DATA   C*CP00 CPA/MOVING.*
Line S03549 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03999  M02S03549.273l780 ---| CJP      SPACE  4,20
Line S03550 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04000  M02S03550.273l780 ---|**        CJP - CHECK JOB PARAMETERS.
04001  M01S00021.273l780 +++| CRS      SPACE  4,20
04002  M01S00022.273l780 +++|**        CRS - CHECK ROLLIN/ROLLOUT STATUS.
04003  M01S03551.rec     +++|*
Line S03552 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04004  M02S03552.271l716 ---|*         ENTRY  (CP) = ADDRESS OF CONTROL POINT BEING PROCESSED.
Line S03553 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04005  M02S03553.271l716 ---|*                (NC) = NUMBER OF CONTROL POINTS.
Line S03554 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04006  M02S03554.271l716 ---|*                (CN - CN+4) = *FLSW* WORD OF PREVIOUS CP.
04007  M01S00277.271l716 +++|*         ENTRY  (PN) = CP/PCP NUMBER.
04008  M01S03555.rec     +++|*
Line S03556 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04009  M02S03556.273l780 ---|*         EXIT   (A) = (EO) = BYTE 0 OF *TFSW*.
04010  M01S00023.273l780 +++|*         EXIT   CONTROL POINT RELEASED IF JOB ROLLING IN.
04011  M01S00024.273l780 +++|*                TO *ABT* IF PSEUDO-ROLLIN OR PSEUDO-ROLLOUT IN
04012  M01S00025.273l780 +++|*                  PROGRESS.
04013  M01S00026.273l780 +++|*                *REC* ASSIGNED TO CP IF CP BEING RECOVERED.
04014  M01S00027.273l780 +++|*                (A) = (EO) = EJT ORDINAL IF CP/PCP ASSIGNED.
04015  M01S00028.273l780 +++|*                (A) = (EO) = 0 IF CP/PCP NOT ASSIGNED.
04016  M01S00278.271l716 +++|*                (CP) = REAL CPA ADDRESS.
Line S03557 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04017  M02S03557.271l716 ---|*                (CN - CN+4) = *FLSW* WORD OF CURRENT CP.
04018  M01S00279.271l716 +++|*                (CN - CN+4) = *FLSW* WORD FROM CP/PCP AREA.
04019  M01S03558.rec     +++|*                (FN - FN+4) = *STSW* WORD WITH -
Line S03559 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04020  M02S03559.273l780 ---|*                              PSEUDO PP ASSIGNMENTS CLEARED.
04021  M01S03560.rec     +++|*                              ERROR FLAG SET AS REQUIRED.
04022  M01S03561.rec     +++|*                              ROLLOUT FLAGS CLEARED.
04023  M01S03562.rec     +++|*
Line S03563 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04024  M02S03563.271l716 ---|*         ERROR  TO *ERR* IF ABORTING CM RECOVERY.
Line S03564 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04025  M02S03564.271l716 ---|*
Line S03565 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04026  M02S03565.271l716 ---|*         USES   CM - CM+4.
Line S03566 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04027  M02S03566.271l716 ---|*
Line S03567 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04028  M02S03567.271l716 ---|*         CALLS  CRS, C2D.
Line S00280 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04029  M02S00280.273l780 ---|*         USES   CP, EO - EO+4.
04030  M01S00029.273l780 +++|*         USES   EO, QA, T6, T7, CA - CA+4, CN - CN+4, FN - FN+4,
04031  M01S00030.273l780 +++|*                  FS - FS+4.
04032  M01S00281.271l716 +++|*
Line S00282 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04033  M02S00282.273l780 ---|*         CALLS  CRS, SCA.
04034  M01S00031.273l780 +++|*         CALLS  CSR, DEF, REJ, RJQ, RPJ, RSJ, SCA.
04035  M01S00032.273l780 +++|*
04036  M01S00033.273l780 +++|*         MACROS MONITOR, SFA.
04037  M01S03568.rec     +++|
04038  M01S03569.rec     +++|
Line S03570 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04039  M02S03570.271l716 ---| CJP2     LDD    CP          FETCH EJT ORDINAL
Line S00283 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04040  M02S00283.273l780 ---| CJP      SUBR               ENTRY/EXIT
Line S00284 Modification History
M01 (Added by) 271l716
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04041  M03S00284.273l780 ---|          LDD    T5
Line S03571 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04042  M03S03571.273l780 ---|          ADN    TFSW
Line S00285 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04043  M02S00285.273l780 ---|          LDD    PN
Line S00286 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04044  M02S00286.273l780 ---|          RJM    SCA         SET CP/PCP AREA ADDRESS
Line S00287 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04045  M02S00287.273l780 ---|          STD    CP
04046  M01S00034.273l780 +++| CRS      SUBR               ENTRY/EXIT
04047  M01S00035.273l780 +++|
04048  M01S00036.273l780 +++|*         GET CP/PCP PARAMETERS.
04049  M01S00037.273l780 +++|
04050  M01S00038.273l780 +++|          LDD    PN          SET CP/PCP ADDRESS
04051  M01S00039.273l780 +++|          RJM    SCA
04052  M01S00288.271l716 +++|          ADN    TFSW        FETCH EJT ORDINAL
04053  M01S03572.rec     +++|          CRD    EO
04054  M01S03573.rec     +++|          ERRNZ  EO+1-CA     CODE DEPENDS ON VALUE
Line S03574 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
Seq #  *Modification Id* Act 
----------------------------+
04055  M02S03574.rec33   ---|
04056  M01S03575.rec     +++|          SBN    TFSW-STSW   READ CONTROL POINT STATUS WORD
04057  M01S03576.rec     +++|          CRD    FN
04058  M01S03577.rec     +++|          ADN    FLSW-STSW   READ FL PARAMETERS
04059  M01S03578.rec     +++|          CRD    CN
Line S03579 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04060  M02S03579.273l780 ---|          LDN    0           CLEAR PSEUDO PP ASSIGNMENT
Line S03580 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04061  M02S03580.273l780 ---|          STD    FN
04062  M01S03581.rec     +++|          LDD    EO
Line S03582 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04063  M02S03582.273l780 ---|          ZJN    CJPX        IF CONTROL POINT UNASSIGNED
Line S03583 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04064  M02S03583.273l780 ---|          RJM    CRS         CHECK ROLLIN STATUS
04065  M01S00040.273l780 +++|          ZJN    CRSX        IF CONTROL POINT UNASSIGNED
04066  M01S00041.273l780 +++|
04067  M01S00042.273l780 +++|*         GET EJT PARAMETERS AND CLEAR ROLLOUT FLAGS IF NOT PCP.
04068  M01S00043.273l780 +++|
04069  M01S00044.273l780 +++|          STD    QA
04070  M01S00045.273l780 +++|          SFA    EJT         READ EJT PARAMETERS
04071  M01S00046.273l780 +++|          ADK    JSNE
04072  M01S00047.273l780 +++|          CRD    FS
04073  M01S00048.273l780 +++|          ADN    SCHE-JSNE
04074  M01S00049.273l780 +++|          CRD    CA
04075  M01S00050.273l780 +++|          LDD    NC
04076  M01S00051.273l780 +++|          SBD    PN
04077  M01S00052.273l780 +++|          MJN    CRS1        IF PCP
04078  M01S00053.273l780 +++|          LDN    0           CLEAR ROLLOUT FLAGS
04079  M01S00054.273l780 +++|          STD    FN+2
04080  M01S00055.273l780 +++|          LDD    PN          SET CP/PCP ADDRESS
04081  M01S00056.273l780 +++|          RJM    SCA         UPDATE *STSW*
04082  M01S00057.273l780 +++|          ADN    STSW
04083  M01S00058.273l780 +++|          CWD    FN
04084  M01S00059.273l780 +++|          LDD    FS+4        CLEAR JOB ADVANCE TO ALLOW *CCAM*
04085  M01S00060.273l780 +++|          LPC    7677
04086  M01S00061.273l780 +++|          STD    FS+4
04087  M01S00062.273l780 +++|          SFA    EJT,EO
04088  M01S00063.273l780 +++|          ADK    JSNE
04089  M01S00064.273l780 +++|          CWD    FS
Line S03584 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04090  M02S03584.271l716 ---|          LDD    EO
Line S03585 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04091  M02S03585.271l716 ---|
Line S03586 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04092  M02S03586.271l716 ---| CJP      SUBR               ENTRY/EXIT
Line S03587 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04093  M02S03587.271l716 ---|          LDD    CP          READ FL CONTROL WORD
Line S03588 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04094  M02S03588.271l716 ---|          ADN    FLSW
Line S03589 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04095  M02S03589.271l716 ---|          CRD    CM
Line S03590 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04096  M02S03590.271l716 ---|          LDD    CN+4        CHECK NFL + PREVIOUS FL .LE. RA
Line S03591 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04097  M02S03591.271l716 ---|          ADD    CM
Line S03592 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04098  M02S03592.271l716 ---|          RAD    CN+3
Line S03593 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04099  M02S03593.271l716 ---|          SHN    -14
Line S03594 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04100  M02S03594.271l716 ---|          RAD    CN+2
Line S03595 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04101  M02S03595.271l716 ---|          SBD    CM+2
Line S03596 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04102  M02S03596.271l716 ---|          SHN    14
Line S03597 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04103  M02S03597.271l716 ---|          ADD    CN+3
Line S03598 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04104  M02S03598.271l716 ---|          SBD    CM+3
Line S03599 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04105  M02S03599.271l716 ---|          MJN    CJP2        IF .LT. RA
Line S03600 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04106  M02S03600.271l716 ---|          ZJN    CJP2        IF NFL + FL = RA
Line S03601 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04107  M02S03601.271l716 ---|
Line S03602 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04108  M02S03602.271l716 ---|*         ENTER HERE TO ABORT CM RECOVERY.
Line S03603 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04109  M02S03603.271l716 ---|
Line S03604 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04110  M02S03604.271l716 ---| CJP1     LDD    CP          CONVERT CP NUMBER
Line S03605 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04111  M02S03605.271l716 ---|          SHN    -7
Line S03606 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04112  M02S03606.271l716 ---|          RJM    C2D
Line S03607 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04113  M02S03607.271l716 ---|          STM    CJPA+1      SET NUMBER IN MESSAGE
Line S03608 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04114  M02S03608.271l716 ---|          LDC    CJPA
Line S03609 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04115  M02S03609.271l716 ---|          LJM    ERR         DISPLAY MESSAGE AND HANG
Line S03610 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04116  M02S03610.271l716 ---|
Line S03611 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04117  M02S03611.271l716 ---| CJPA     DATA   C*CP00 RA/CPA/MOVING.*
04118  M01S00289.271l716 +++|          LDD    PN
Line S00290 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04119  M02S00290.273l780 ---|          RJM    SCA         SET CP/PCP AREA ADDRESS
Line S00291 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04120  M02S00291.273l780 ---|          ADN    STSW
Line S00292 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04121  M02S00292.273l780 ---|          CWD    FN          UPDATE CP STATUS
Line S00293 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04122  M02S00293.273l780 ---|          LDD    EO
Line S00294 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04123  M02S00294.273l780 ---|          UJN    CJPX        RETURN
Line S03612 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04124  M02S03612.273l780 ---| CRS      SPACE  4,15
Line S03613 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04125  M02S03613.273l780 ---|**        CRS - CHECK ROLLIN STATUS.
Line S03614 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04126  M02S03614.273l780 ---|*
Line S03615 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04127  M02S03615.273l780 ---|*         ENTRY  (A) = (EO) = EJT ORDINAL.
Line S03616 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04128  M03S03616.273l780 ---|*                (CP) = CONTROL POINT AREA ADDRESS.
Line S00295 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04129  M02S00295.273l780 ---|*                (PN) = CP/PCP NUMBER.
Line S00296 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04130  M02S00296.273l780 ---|*                (CP) = CPA ADDRESS IF REAL CP.
Line S03617 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04131  M02S03617.273l780 ---|*                (CN - CN+4) = CONTROL POINT AREA *FLSW* WORD.
Line S03618 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04132  M02S03618.273l780 ---|*                (FN - FN+4) = CONTROL POINT AREA *STSW* WORD.
Line S03619 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04133  M02S03619.273l780 ---|*
Line S03620 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04134  M02S03620.273l780 ---|*         USES   QA, T6, T7, CM - CM+4, FS - FS+4.
Line S03621 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04135  M02S03621.273l780 ---|*
Line S03622 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04136  M03S03622.273l780 ---|*         CALLS  CSR, DEF, REJ, RJQ, RPJ.
Line S00297 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04137  M02S00297.273l780 ---|*         CALLS  CSR, DEF, REJ, RJQ, RPJ, RSJ.
Line S03623 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04138  M02S03623.273l780 ---|*
Line S03624 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04139  M02S03624.273l780 ---|*         MACROS SFA.
04140  M01S00065.273l780 +++|          STD    CM+1
04141  M01S00066.273l780 +++|          MONITOR  CCAM      CHANGE ASSIGNMENT TO CP BEING RECOVERED
04142  M01S03625.rec     +++|
04143  M01S00067.273l780 +++|*         CALL JOB STATUS PROCESSOR.
04144  M01S03626.rec     +++|
Line S03627 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04145  M02S03627.273l780 ---| CRS1     LDM    TJRP,T6
Line S03628 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04146  M02S03628.273l780 ---|          ZJN    CRSX        IF PROCESSOR UNDEFINED
04147  M01S00068.273l780 +++| CRS1     LDD    FS+4        EXTRACT JOB STATUS
04148  M01S00069.273l780 +++|          SHN    -1
04149  M01S00070.273l780 +++|          LPN    37
04150  M01S00071.273l780 +++|          STD    T6
04151  M01S00072.273l780 +++|          SBN    MXJS
04152  M01S00073.273l780 +++|          MJN    CRS2        IF VALID STATUS
04153  M01S00074.273l780 +++|          RJM    DEF         DETERMINE ERROR FLAG
04154  M01S00075.273l780 +++|          UJN    CRS3        UPDATE CP/PCP STATUS
04155  M01S00076.273l780 +++|
04156  M01S00077.273l780 +++| CRS2     LDM    TJRP,T6
04157  M01S00078.273l780 +++|          ZJN    CRS3        IF PROCESSOR UNDEFINED
04158  M01S03629.rec     +++|          STD    T7
04159  M01S03630.rec     +++|
04160  M01S03631.rec     +++|*         EXIT TO PROCESSOR WITH -
Line S03632 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04161  M02S03632.271l716 ---|*                (CP) = CONTROL POINT AREA ADDRESS.
04162  M01S00298.271l716 +++|*                (PN) = CP/PCP NUMBER.
04163  M01S00299.271l716 +++|*                (CP) = CPA ADDRESS IF REAL CP.
04164  M01S03633.rec     +++|*                (EO) = (QA) = EJT ORDINAL.
04165  M01S03634.rec     +++|*                (FS - FS+4) = *JSNE* WORD OF EJT ENTRY.
04166  M01S03635.rec     +++|*                (CA - CA+4) = *SCHE* WORD OF EJT ENTRY.
04167  M01S03636.rec     +++|*                (FN - FN+4) = CONTROL POINT AREA *STSW* WORD.
04168  M01S03637.rec     +++|
04169  M01S03638.rec     +++|          RJM    0,T7        RECOVER JOB
04170  M01S03639.rec     +++|
Line S03640 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04171  M02S03640.273l780 ---| CRS      SUBR               ENTRY/EXIT
Line S03641 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04172  M02S03641.273l780 ---|          STD    QA
Line S03642 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04173  M02S03642.273l780 ---|          SFA    EJT         READ EJT
Line S03643 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04174  M02S03643.273l780 ---|          ADK    JSNE
Line S03644 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04175  M02S03644.273l780 ---|          CRD    FS
Line S03645 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04176  M02S03645.273l780 ---|          ADN    SCHE-JSNE
Line S03646 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04177  M02S03646.273l780 ---|          CRD    CA
Line S00010 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04178  M02S00010.273l780 ---|          LDD    FN+2        SAVE CPU STATUS PRESENT AT ROLLOUT FLAG
Line S00011 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04179  M02S00011.273l780 ---|          LPN    2
Line S00012 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04180  M02S00012.273l780 ---|          STD    FN+2
Line S00013 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04181  M02S00013.273l780 ---|          LDD    NC
Line S00014 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04182  M02S00014.273l780 ---|          SBD    PN
Line S00015 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04183  M02S00015.273l780 ---|          MJN    CRS0        IF PCP
Line S03647 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04184  M02S03647.273l780 ---|          LDN    0           CLEAR ROLLOUT FLAGS
Line S03648 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04185  M02S03648.273l780 ---|          STD    FN+2
Line S03649 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04186  M03S03649.273l780 ---|          LDD    FS+4        EXTRACT JOB STATUS
Line S00016 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04187  M02S00016.273l780 ---| CRS0     LDD    FS+4        EXTRACT JOB STATUS
Line S03650 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04188  M02S03650.273l780 ---|          SHN    -1
Line S03651 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04189  M02S03651.273l780 ---|          LPN    37
Line S03652 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04190  M02S03652.273l780 ---|          STD    T6
Line S03653 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04191  M02S03653.273l780 ---|          SBN    MXJS
Line S03654 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04192  M02S03654.273l780 ---|          MJN    CRS1        IF VALID STATUS
Line S03655 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04193  M02S03655.273l780 ---|          RJM    DEF         DETERMINE ERROR FLAG
Line S03656 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04194  M02S03656.273l780 ---|          UJN    CRSX        RETURN
04195  M01S00079.273l780 +++|*         RETURN WITH CONTROL POINT ASSIGNED STATUS.
04196  M01S00080.273l780 +++|
04197  M01S00081.273l780 +++| CRS3     LDD    EO
04198  M01S00082.273l780 +++|          LJM    CRSX        RETURN
04199  M01S03657.rec     +++| TJRP     SPACE  4,10
04200  M01S03658.rec     +++|**        TJRP - TABLE OF JOB RECOVERY PROCESSORS.
04201  M01S03659.rec     +++|
04202  M01S03660.rec     +++|
04203  M01S03661.rec     +++| TJRP     INDEX
04204  M01S03662.rec     +++|          INDEX  PRJS,RPJ
04205  M01S03663.rec     +++|          INDEX  EXJS,REJ
04206  M01S03664.rec     +++|          INDEX  ROJS,RJQ
04207  M01S03665.rec     +++|          INDEX  SIJS,CSR
04208  M01S03666.rec     +++|          INDEX  SOJS,RJQ
Line S03667 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04209  M02S03667.273l780 ---|          INDEX  TOJS,CSR
04210  M01S00083.273l780 +++|          INDEX  TOJS,RJQ
04211  M01S03668.rec     +++|          INDEX  IOJS,RJQ
04212  M01S03669.rec     +++|          INDEX  DOJS,RJQ
04213  M01S03670.rec     +++|          INDEX  SUJS,RJQ
04214  M01S00084.273l780 +++|          INDEX  PCJS,RSJ
04215  M01S03671.rec     +++|          INDEX  ERJS,RJQ
Line S00300 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04216  M02S00300.273l780 ---|          INDEX  PCJS,RSJ
04217  M01S00085.273l780 +++|          INDEX  PWJS,RPJ
04218  M01S00086.273l780 +++|          INDEX  SWJS,RJQ
04219  M01S03672.rec     +++|          INDEX  MXJS
Line S03673 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04220  M02S03673.273l780 ---| DEF      SPACE  4,10
04221  M01S00087.273l780 +++| DEF      SPACE  4,20
04222  M01S03674.rec     +++|**        DEF - DETERMINE ERROR FLAG.
04223  M01S03675.rec     +++|*
04224  M01S03676.rec     +++|*         ENTRY  (EO) = EJT ORDINAL.
Line S03677 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04225  M02S03677.271l716 ---|*                (CA - CA+1) = *SCHE* WORD OF EJT ENTRY.
04226  M01S00301.271l716 +++|*                (PN) = CONTROL POINT NUMBER.
04227  M01S00302.271l716 +++|*                (CA - CA+4) = *SCHE* WORD OF EJT ENTRY.
04228  M01S03678.rec     +++|*                (CN - CN+4) = *FLSW* WORD.
04229  M01S03679.rec     +++|*                (FN - FN+4) = *STSW* WORD.
04230  M01S03680.rec     +++|*                (FS - FS+4) = *JSNE* WORD OF EJT ENTRY.
04231  M01S03681.rec     +++|*
04232  M01S03682.rec     +++|*         EXIT   (FN+1) = ERROR FLAG.
04233  M01S00088.273l780 +++|*                ERROR FLAG SET IN CONTROL POINT AREA.
04234  M01S00001.rec28   +++|*                *JCRW* CLEARED IF RECOVERED SUBSYSTEM.
04235  M01S03683.rec     +++|*
Line S03684 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04236  M02S03684.273l780 ---|*         USES   CM - CM+4.
04237  M01S00089.273l780 +++|*         USES   FN+1, FS+4, CM - CM+4.
04238  M01S00090.273l780 +++|*
04239  M01S00091.273l780 +++|*         MACROS DELAY, MONITOR, SFA.
04240  M01S03685.rec     +++|
04241  M01S03686.rec     +++|
04242  M01S03687.rec     +++| DEF3     LDD    CA+2        CHECK *NORERUN* STATUS
04243  M01S03688.rec     +++|          SHN    0-13
04244  M01S03689.rec     +++|          ZJN    DEF4        IF JOB IN RERUN STATE
04245  M01S03690.rec     +++|          LDN    RAET&DRET
04246  M01S03691.rec     +++| DEF4     LMN    DRET        SET ERROR FLAG
04247  M01S03692.rec     +++| DEF5     STD    FN+1
04248  M01S00092.273l780 +++|          STD    CM+1
04249  M01S00093.273l780 +++|          MONITOR  CEFM
04250  M01S03693.rec     +++|
04251  M01S03694.rec     +++| DEF      SUBR               ENTRY/EXIT
04252  M01S00094.273l780 +++|          LDD    CA+2
04253  M01S00095.273l780 +++|          LPC    3000
04254  M01S00096.273l780 +++|          NJN    DEFX        IF JOB TERMINATION IN PROGRESS
04255  M01S03695.rec     +++|          LDD    FN+1
04256  M01S03696.rec     +++|          LMN    PEET
04257  M01S03697.rec     +++|          ZJN    DEF2        IF *PEET* ERROR FLAG SET
04258  M01S03698.rec     +++|          LDD    CN+4
04259  M01S03699.rec     +++|          ZJN    DEF3        IF NOT RECOVERED SUBSYSTEM
04260  M01S00002.rec28   +++|          LDN    ZERL        CLEAR *JCRW*
04261  M01S00003.rec28   +++|          CRD    CM
04262  M01S00004.rec28   +++|          LDD    CP
04263  M01S00005.rec28   +++|          ADK    JCRW
04264  M01S00006.rec28   +++|          CWD    CM
04265  M01S03700.rec     +++|          LDN    RSET        SET RECOVERED SUBSYSTEM ERROR
04266  M01S03701.rec     +++|          UJN    DEF5        RETURN
04267  M01S03702.rec     +++|
04268  M01S03703.rec     +++| DEF1     DELAY
Line S03704 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04269  M02S03704.271l716 ---| DEF2     LDD    CP
Line S03705 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04270  M02S03705.271l716 ---|          SHN    -7
04271  M01S00303.271l716 +++| DEF2     LDD    PN
04272  M01S03706.rec     +++|          STD    CM+1
04273  M01S03707.rec     +++|          MONITOR  VFLM      CALL CPUMTR TO VALIDATE FL
04274  M01S03708.rec     +++|          SOD    CM+1
04275  M01S03709.rec     +++|          ZJN    DEFX        IF FL VERIFICATION FAILED
04276  M01S03710.rec     +++|          PJN    DEF1        IF FUNCTION WAS IN USE
04277  M01S03711.rec     +++|          LDD    FS+4        CLEAR JOB ADVANCE FLAG
04278  M01S03712.rec     +++|          LPC    -100
04279  M01S03713.rec     +++|          STD    FS+4
04280  M01S03714.rec     +++|          SFA    EJT,EO
04281  M01S03715.rec     +++|          ADK    JSNE
04282  M01S03716.rec     +++|          CWD    FS
Line S03717 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04283  M02S03717.271l716 ---|          LDD    CP          SET CPU PRIORITY = 1
04284  M01S00304.271l716 +++|          LDD    CP          SET CPU PRIORITY = *LJCS*
Line S03718 Modification History
M01 (Added by) rec
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
04285  M02S03718.271l750 ---|          ADK    JCIW
04286  M01S00003.271l750 +++|          ADK    CWQW
04287  M01S03719.rec     +++|          CRD    CM
Line S03720 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04288  M02S03720.271l716 ---|          LDN    1*2
04289  M01S00305.271l716 +++|          LDK    LJCS
04290  M01S00004.271l750 +++|          SHN    3
04291  M01S00005.271l750 +++|          ADC    2000
04292  M01S03721.rec     +++|          STD    CM
04293  M01S03722.rec     +++|          LDD    CP
Line S03723 Modification History
M01 (Added by) rec
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
04294  M02S03723.271l750 ---|          ADK    JCIW
04295  M01S00006.271l750 +++|          ADK    CWQW
04296  M01S03724.rec     +++|          CWD    CM
04297  M01S03725.rec     +++|          UJP    DEF3        SET ERROR FLAG
04298  M01S03726.rec     +++|          TITLE  JOB RECOVERY PROCESSORS.
04299  M01S03727.rec     +++| CSR      SPACE  4,10
04300  M01S03728.rec     +++|**        CSR - CHANGE STATUS TO ROLLOUT.
04301  M01S03729.rec     +++|*
Line S03730 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04302  M02S03730.273l780 ---|*         CALLS  RJQ.
04303  M01S00097.273l780 +++|*         USES   FS+4.
04304  M01S00098.273l780 +++|*
04305  M01S00099.273l780 +++|*         CALLS  RJQ, SET.
04306  M01S03731.rec     +++|
04307  M01S03732.rec     +++|
04308  M01S03733.rec     +++| CSR      SUBR               ENTRY/EXIT
04309  M01S03734.rec     +++|          LDD    FS+4
04310  M01S03735.rec     +++|          SCN    76
04311  M01S03736.rec     +++|          LMN    ROJS*2      CHANGE JOB STATUS
04312  M01S03737.rec     +++|          STD    FS+4
04313  M01S00100.273l780 +++|          RJM    SET         SET ENTRY TIME IN *SCHE*
04314  M01S00101.273l780 +++|          SFA    EJT,EO      UPDATE EJT ENTRY
04315  M01S00102.273l780 +++|          ADK    JSNE
04316  M01S00103.273l780 +++|          CWD    FS
04317  M01S00104.273l780 +++|          ADN    SCHE-JSNE
04318  M01S00105.273l780 +++|          CWD    CA
04319  M01S03738.rec     +++|          RJM    RJQ         RETURN JOB TO QUEUE
04320  M01S03739.rec     +++|          UJN    CSRX        RETURN
04321  M01S03740.rec     +++| REJ      SPACE  4,10
04322  M01S03741.rec     +++|**        REJ - RECOVER EXECUTING JOB.
Line S03742 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04323  M02S03742.271l716 ---|*
Line S03743 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04324  M02S03743.271l716 ---|*         ENTRY  (CA - CA+4) = *SCHE* WORD OF EJT ENTRY.
04325  M01S03744.rec     +++|*
04326  M01S00011.ns2738c +++|*         USES   CA+2.
04327  M01S00012.ns2738c +++|*
Line S03745 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
Seq #  *Modification Id* Act 
----------------------------+
04328  M02S03745.rec33   ---|*         CALLS  CSR, DEF.
Line S00017 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04329  M02S00017.273l780 ---|*         CALLS  CSR, DEF, RCP.
04330  M01S00106.273l780 +++|*         CALLS  DEF.
04331  M01S00013.ns2738c +++|*
04332  M01S00014.ns2738c +++|*         MACROS SFA.
04333  M01S03746.rec     +++|*
Line S03747 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04334  M02S03747.273l780 ---|*         MACROS SFA.
04335  M01S00107.273l780 +++|*         EXIT   TO *ABT* IF PSEUDO-ROLLOUT IN PROGRESS.
04336  M01S03748.rec     +++|
04337  M01S03749.rec     +++|
Line S03750 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04338  M02S03750.273l780 ---| REJ1     LDD    CA+2        CLEAR END-OF-JOB PROCESSING FLAG
Line S03751 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04339  M02S03751.273l780 ---|          LPC    4777
Line S03752 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04340  M02S03752.273l780 ---|          STD    CA+2
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/rec.002.txt · Last modified: by 127.0.0.1