User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ck.002

Deck 1CK Part 002

24 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00009 Modification History
M01 (Added by) 251l664
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01968  M02S00009.1ck11   ---|*         USES   DI.
01969  M01S00021.1ck11   +++|*         USES   CM+1, DI.
01970  M01S01324.1ck     +++|*
Line S01325 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck10
Seq #  *Modification Id* Act 
----------------------------+
01971  M02S01325.1ck10   ---|*         CALLS  *0TD*.
01972  M01S00002.1ck10   +++|*         CALLS  DFM, *0TD*.
01973  M01S01326.1ck     +++|*
01974  M01S01327.1ck     +++|*         MACROS EXECUTE.
01975  M01S01328.1ck     +++|
01976  M01S01329.1ck     +++|
Line S01330 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01977  M02S01330.1ck11   ---| FDB1     EXECUTE  0TD,OVL   TERMINATE DAYFILE
01978  M01S00022.1ck11   +++| FDB1     EXECUTE  0TD,OVL0  TERMINATE DAYFILE
Line S01331 Modification History
M01 (Added by) 1ck
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01979  M02S01331.251l664 ---|          LDN    3           ADVANCE DAYFILE POINTER ADDRESS
Line S01332 Modification History
M01 (Added by) 1ck
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01980  M02S01332.251l664 ---|          RAD    DA
01981  M01S00010.251l664 +++|          AOD    DI          ADVANCE DAYFILE INDEX
Line S01333 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01982  M02S01333.1ck11   ---| FDB2     STM    OVL-1       SET POINTER ADDRESS FOR *0TD*
01983  M01S00023.1ck11   +++| FDB2     STM    OVL0-1      SET POINTER ADDRESS FOR *0TD*
Line S01334 Modification History
M01 (Added by) 1ck
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01984  M02S01334.251l664 ---|          LMD    SW
01985  M01S00011.251l664 +++|          LMN    EXDF+1
01986  M01S01335.1ck     +++|          NJN    FDB1        IF NOT END OF SYSTEM DAYFILES
01987  M01S01336.1ck     +++|
01988  M01S01337.1ck     +++| FDB      SUBR               ENTRY/EXIT
01989  M01S00003.1ck10   +++|          LDN    FDBAL       SET MESSAGE LENGTH
01990  M01S00004.1ck10   +++|          STD    CM+1
01991  M01S00005.1ck10   +++|          LDC    BMLN+FDBA   ISSUE CHECKPOINT MESSAGE TO THE *BML*
01992  M01S00006.1ck10   +++|          RJM    DFM
Line S01338 Modification History
M01 (Added by) 1ck
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01993  M02S01338.251l664 ---|          LDN    DFPP        READ DAYFILE POINTERS
Line S01339 Modification History
M01 (Added by) 1ck
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01994  M02S01339.251l664 ---|          CRD    CM
Line S01340 Modification History
M01 (Added by) 1ck
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01995  M02S01340.251l664 ---|          LDD    CM          SET POINTER TO MASTER DAYFILE
Line S01341 Modification History
M01 (Added by) 1ck
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01996  M02S01341.251l664 ---|          STD    DA
Line S01342 Modification History
M01 (Added by) 1ck
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01997  M02S01342.251l664 ---|          ADN    3*EXDF      SET END OF SYSTEM DAYFILES
Line S01343 Modification History
M01 (Added by) 1ck
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01998  M02S01343.251l664 ---|          STD    SW
Line S01344 Modification History
M01 (Added by) 1ck
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01999  M02S01344.251l664 ---|          LDD    CM
02000  M01S00012.251l664 +++|          LDN    1           INITIALIZE DAYFILE INDEX
02001  M01S00013.251l664 +++|          STD    DI
02002  M01S01345.1ck     +++|          UJN    FDB2        FLUSH MASTER DAYFILE BUFFER
02003  M01S00007.1ck10   +++|
02004  M01S00008.1ck10   +++| FDBA     CON    DM0406,DS0112  *BML* SYSTEM CHECKPOINT MESSAGE
02005  M01S00009.1ck10   +++|          BSSZ   FDBA+6-*    ZERO FILL MESSAGE
02006  M01S00010.1ck10   +++| FDBAL    EQU    *-FDBA      LENGTH OF MESSAGE
02007  M01S01346.1ck     +++| FTB      SPACE  4,10
02008  M01S01347.1ck     +++|**        FTB - FILL TRACK BUFFER.
02009  M01S01348.1ck     +++|*
02010  M01S01349.1ck     +++|*         ENTRY  (T6) = LAST TRACK USED.
02011  M01S01350.1ck     +++|*
02012  M01S01351.1ck     +++|*         EXIT   (NT) = *TBUF*.
02013  M01S01352.1ck     +++|*
02014  M01S01353.1ck     +++|*         USES   NT, T0, T1, CM - CM+4.
02015  M01S01354.1ck     +++|
02016  M01S01355.1ck     +++|
02017  M01S01356.1ck     +++| FTB      SUBR               ENTRY/EXIT
02018  M01S01357.1ck     +++|          LDC    TBUF        SET TRACK BUFFER POINTER
02019  M01S01358.1ck     +++|          STD    NT
02020  M01S01359.1ck     +++|          STD    T0
02021  M01S01360.1ck     +++|          LDD    T6
02022  M01S01361.1ck     +++|          SHN    6
02023  M01S01362.1ck     +++| FTB1     SHN    -6          STORE TRACK IN BUFFER
02024  M01S01363.1ck     +++|          STI    T0
02025  M01S01364.1ck     +++|          SHN    -2          READ TRT WORD TO GET NEXT TRACK
02026  M01S01365.1ck     +++|          ADC    TRTS
02027  M01S01366.1ck     +++| FTBA     EQU    *-2
02028  M01S01367.1ck     +++|          CRD    CM
02029  M01S01368.1ck     +++|          LDI    T0          SET BYTE INDEX
02030  M01S01369.1ck     +++|          LPN    3
02031  M01S01370.1ck     +++|          STD    T1
02032  M01S01371.1ck     +++|          AOD    T0          ADVANCE BUFFER POINTER
02033  M01S01372.1ck     +++|          LMC    TBUF+TBUFL-1
02034  M01S01373.1ck     +++|          ZJN    FTB2        IF TRACK BUFFER FULL
02035  M01S01374.1ck     +++|          LDM    CM,T1
02036  M01S01375.1ck     +++|          SHN    6
02037  M01S01376.1ck     +++|          MJN    FTB1        IF NOT EOI
02038  M01S01377.1ck     +++|          LCN    0           INHIBIT REFILLING BUFFER
02039  M01S01378.1ck     +++| FTB2     STI    T0          MARK END OF BUFFER
02040  M01S01379.1ck     +++|          UJN    FTBX        RETURN
02041  M01S01380.1ck     +++| GLS      SPACE  4,15
02042  M01S01381.1ck     +++|**        GLS - GET LOCAL AREA SECTOR.
02043  M01S01382.1ck     +++|*
02044  M01S01383.1ck     +++|*         ENTRY  (T5) = EQUIPMENT.
02045  M01S01384.1ck     +++|*                (ES - ES+4) = EST ENTRY.
02046  M01S01385.1ck     +++|*
02047  M01S01386.1ck     +++|*         EXIT   (A) = READ ERROR INDICATION.
02048  M01S01387.1ck     +++|*                (BFMS) = LOCAL AREA SECTOR.
02049  M01S01388.1ck     +++|*
02050  M01S01389.1ck     +++|*         USES   CM - CM+4.
02051  M01S01390.1ck     +++|*
02052  M01S01391.1ck     +++|*         CALLS  RDS.
02053  M01S01392.1ck     +++|*
02054  M01S01393.1ck     +++|*         MACROS SETMS, SMSTF.
02055  M01S01394.1ck     +++|
02056  M01S01395.1ck     +++|
02057  M01S01396.1ck     +++| GLS2     SETMS  IO,(ND,NS)  READ SECTOR OF LOCAL AREAS
02058  M01S01397.1ck     +++|          LDC    BFMS
02059  M01S01398.1ck     +++|          RJM    RDS
02060  M01S01399.1ck     +++|          MJN    GLSX        IF READ ERROR
02061  M01S01400.1ck     +++|          LDM    BFMS
02062  M01S01401.1ck     +++|          NJN    GLSX        IF FORMATTED SECTOR OF LOCAL AREAS
02063  M01S01402.1ck     +++|          ENDMS
02064  M01S01403.1ck     +++|          SMSTF  GDEI        SET ERROR IDLE
02065  M01S01404.1ck     +++|          LCN    0
02066  M01S01405.1ck     +++|
02067  M01S01406.1ck     +++| GLS      SUBR               ENTRY/EXIT
02068  M01S01407.1ck     +++|          LDD    ES+4        CHECK IF SECTOR EXISTS
02069  M01S01408.1ck     +++|          SHN    3
02070  M01S01409.1ck     +++|          ADN    ACGL
02071  M01S01410.1ck     +++|          CRD    CM
02072  M01S01411.1ck     +++|          LDD    CM+4
02073  M01S01412.1ck     +++|          LPC    MGLAP
02074  M01S01413.1ck     +++|          NJN    GLS2        IF SECTOR EXISTS
02075  M01S01414.1ck     +++|          LDC    501
02076  M01S01415.1ck     +++|          STD    CM
02077  M01S01416.1ck     +++| GLS1     LDN    0           CLEAR SECTOR BUFFER
02078  M01S01417.1ck     +++|          STM    BFMS,CM
02079  M01S01418.1ck     +++|          SOD    CM
02080  M01S01419.1ck     +++|          NJN    GLS1        IF NOT START OF BUFFER
02081  M01S01420.1ck     +++|          LDN    LMLT        SET SYSTEM LEVEL IN LINKAGE
02082  M01S01421.1ck     +++|          STM    BFMS
02083  M01S01422.1ck     +++|          SMSTF  GLAP        FLAG SECTOR OF LOCAL AREAS PRESENT
02084  M01S01423.1ck     +++|*         LDN    0
02085  M01S01424.1ck     +++|          UJN    GLSX
02086  M01S01425.1ck     +++| GSC      SPACE  4,10
02087  M01S01426.1ck     +++|**        GSC - GET SECTOR COUNT.
02088  M01S01427.1ck     +++|*
02089  M01S01428.1ck     +++|*         ENTRY  (T8) = UEM TRACK POINTER.
02090  M01S00025.252l678 +++|*                (FS+1) = LAST TRACK + 1 OF USER EXTENDED MEMORY.
02091  M01S00026.252l678 +++|*                (FS+2) = UEM SECTOR LIMIT.
02092  M01S01429.1ck     +++|*                (FS+3) = TRT LENGTH.
02093  M01S01430.1ck     +++|*
02094  M01S01431.1ck     +++|*         EXIT   (A) = NUMBER OF SECTORS IN USE IN TRACK.
02095  M01S01432.1ck     +++|*
02096  M01S01433.1ck     +++|*         USES   T2, T8, CM - CM+4.
02097  M01S01434.1ck     +++|
02098  M01S01435.1ck     +++|
02099  M01S01436.1ck     +++| GSC      SUBR               ENTRY/EXIT
Line S01437 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02100  M02S01437.252l678 ---|          LDD    T8          COMPUTE TRT WORD OFFSET
Line S01438 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02101  M02S01438.252l678 ---| GSC1     SHN    -2
02102  M01S00027.252l678 +++| GSC1     AOD    T8
02103  M01S00028.252l678 +++|          LMD    FS
02104  M01S00029.252l678 +++|          NJN    GSC2        IF NOT FIRST TRACK OF USER EXTENDED MEMORY
02105  M01S00030.252l678 +++|          LDD    FS+1
02106  M01S00031.252l678 +++|          STD    T8          SKIP TO END OF USER EXTENDED MEMORY
02107  M01S00032.252l678 +++| GSC2     LDD    T8
02108  M01S00033.252l678 +++|          SHN    -2          COMPUTE TRT WORD OFFSET
02109  M01S01439.1ck     +++|          STD    T2
02110  M01S01440.1ck     +++|          LMD    FS+3
02111  M01S01441.1ck     +++|          ZJN    GSCX        IF END OF TRT
02112  M01S01442.1ck     +++|          LDC    TRTS        READ TRT WORD
02113  M01S01443.1ck     +++| GSCA     EQU    *-2
02114  M01S01444.1ck     +++|          ADD    T2
02115  M01S01445.1ck     +++|          CRD    CM
02116  M01S01446.1ck     +++|          LDD    T8          COMPUTE BYTE NUMBER
02117  M01S01447.1ck     +++|          LPN    3
02118  M01S01448.1ck     +++|          STD    T2
Line S01449 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02119  M02S01449.252l678 ---|          SBN    3           CHECK TRACK RESERVATION
Line S01450 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02120  M02S01450.252l678 ---|          ADC    SHNI+21
02121  M01S00034.252l678 +++|          ADC    SHNI+16     SET TRACK RESERVATION CHECK
02122  M01S01451.1ck     +++|          STM    GSCB
02123  M01S01452.1ck     +++|          LDD    CM+4
02124  M01S01453.1ck     +++|          SHN    **
02125  M01S01454.1ck     +++| GSCB     EQU    *-1
Line S01455 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02126  M02S01455.252l678 ---|          PJN    GSC4        IF TRACK NOT RESERVED
02127  M01S00035.252l678 +++| GSC3     PJN    GSC1        IF TRACK NOT RESERVED
02128  M01S01456.1ck     +++|          LDM    CM,T2
02129  M01S01457.1ck     +++|
02130  M01S01458.1ck     +++|*         TEST FOR LABEL TRACK WHICH CONTAINS A 0 AT DEADSTART TIME.
Line S01459 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02131  M02S01459.252l678 ---|*         NOTE:  EOI TRACKS WILL ALSO BE PICKED UP - A 1 OUT OF 20
Line S01460 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02132  M02S01460.252l678 ---|*         POSSIBILITY FOR EACH FILE.
02133  M01S00036.252l678 +++|*         NOTE:  EOI TRACKS WILL ALSO BE PICKED UP - A 1 IN *SLM*
02134  M01S00037.252l678 +++|*         CHANCE FOR EACH FILE, WHERE *SLM* IS THE UEM SECTOR LIMIT.
02135  M01S01461.1ck     +++|
Line S01462 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02136  M02S01462.252l678 ---|          ZJN    GSC3        IF LABEL TRACK
Line S01463 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02137  M02S01463.252l678 ---|          LMC    3777
Line S01464 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02138  M02S01464.252l678 ---|          ZJN    GSC4        IF TRACK IS FLAWED
02139  M01S00038.252l678 +++|          ZJN    GSC5        IF LABEL TRACK
02140  M01S00039.252l678 +++|          LMC    3777
02141  M01S00040.252l678 +++|          ZJN    GSC3        IF TRACK FLAWED
02142  M01S01465.1ck     +++|          LMC    3777
02143  M01S01466.1ck     +++|          SHN    21-13
Line S01467 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02144  M02S01467.252l678 ---|          MJN    GSC3        IF ENTIRE TRACK IN USE
Line S01468 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02145  M02S01468.252l678 ---|          SHN    13-21+22
Line S01469 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02146  M02S01469.252l678 ---|          ADN    1
Line S01470 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02147  M02S01470.252l678 ---| GSC2     LJM    GSCX        RETURN
Line S01471 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02148  M02S01471.252l678 ---|
Line S01472 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02149  M02S01472.252l678 ---| GSC3     LDN    20          SET SECTOR COUNT FOR ENTIRE TRACK
Line S01473 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02150  M02S01473.252l678 ---|          UJN    GSC2        RETURN
Line S01474 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02151  M02S01474.252l678 ---|
Line S01475 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02152  M02S01475.252l678 ---| GSC4     AOD    T8          SKIP CURRENT TRACK
Line S01476 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02153  M02S01476.252l678 ---|          LJM    GSC1        CHECK NEXT TRACK
02154  M01S00041.252l678 +++|          MJN    GSC5        IF ENTIRE TRACK IN USE
02155  M01S00042.252l678 +++|          SHN    14
02156  M01S00043.252l678 +++|          ADN    1
02157  M01S00044.252l678 +++| GSC4     LJM    GSCX        RETURN
02158  M01S00045.252l678 +++|
Line S00046 Modification History
M01 (Added by) 252l678
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02159  M02S00046.253l688 ---|GSC5      LDD    FS+2
02160  M01S00137.253l688 +++| GSC5     LDD    FS+2
02161  M01S00047.252l678 +++|          UJN    GSC4        RETURN SECTOR COUNT FOR FULL TRACK
Line S01477 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02162  M02S01477.ns2780  ---| IDI      SPACE  4,10
Line S01478 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02163  M02S01478.ns2780  ---|**        IDI - INITIALIZE DEVICE INFORMATION SECTOR.
Line S01479 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02164  M02S01479.ns2780  ---|*
Line S01480 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02165  M02S01480.ns2780  ---|*         ENTRY  (T4) = CHANNEL.
Line S01481 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02166  M02S01481.ns2780  ---|*                (T5) = EQUIPMENT.
Line S01482 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02167  M02S01482.ns2780  ---|*                (T6) = LABEL TRACK.
Line S01483 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02168  M02S01483.ns2780  ---|*                LABEL TRACK INTERLOCKED.
Line S01484 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02169  M02S01484.ns2780  ---|*
Line S01485 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02170  M02S01485.ns2780  ---|*         USES   T1, T7.
Line S01486 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02171  M02S01486.ns2780  ---|*
Line S01487 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02172  M02S01487.ns2780  ---|*         CALLS  WMS.
Line S01488 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02173  M02S01488.ns2780  ---|*
Line S01489 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02174  M02S01489.ns2780  ---|*         MACROS ENDMS, SETMS.
Line S01490 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02175  M02S01490.ns2780  ---|
Line S01491 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02176  M02S01491.ns2780  ---|
Line S01492 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02177  M02S01492.ns2780  ---| IDI      SUBR               ENTRY/EXIT
Line S01493 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02178  M02S01493.ns2780  ---|          LDC    100*5       CLEAR SECTOR
Line S01494 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02179  M02S01494.ns2780  ---|          STD    T1
Line S01495 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02180  M02S01495.ns2780  ---| IDI1     LDN    0
Line S01496 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02181  M02S01496.ns2780  ---|          STM    BFMS+2-1,T1
Line S01497 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02182  M02S01497.ns2780  ---|          SOD    T1
Line S01498 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02183  M02S01498.ns2780  ---|          NJN    IDI1        IF NOT COMPLETE
Line S01499 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02184  M02S01499.ns2780  ---|          LDN    DILT        SET SECTOR
Line S01500 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02185  M02S01500.ns2780  ---|          STD    T7
Line S01501 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02186  M02S01501.ns2780  ---|          ADN    1           SET CONTROL BYTES
Line S01502 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02187  M02S01502.ns2780  ---|          STM    BFMS
Line S01503 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02188  M02S01503.ns2780  ---|          LDD    HN
Line S01504 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02189  M02S01504.ns2780  ---|          STM    BFMS+1
Line S01505 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02190  M02S01505.ns2780  ---|          SETMS  IO,(ND,NS,RW)
Line S01506 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02191  M02S01506.ns2780  ---|          LDC    BFMS+WLSF   WRITE SECTOR
Line S01507 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02192  M02S01507.ns2780  ---|          RJM    WMS
Line S01508 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02193  M02S01508.ns2780  ---|          ENDMS
Line S01509 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02194  M02S01509.ns2780  ---|          UJN    IDIX        RETURN
02195  M01S01510.1ck     +++| SCD      SPACE  4,10
02196  M01S01511.1ck     +++|**        SCD - SET CHECKPOINT BITS.
02197  M01S01512.1ck     +++|*
02198  M01S01513.1ck     +++|*         ENTRY  (A) = OPERATION TO PERFORM.
02199  M01S01514.1ck     +++|*                    = 0, SET CHECKPOINT IN PROGRESS.
02200  M01S01515.1ck     +++|*                    = 1, SET CHECKPOINT COMPLETED.
02201  M01S01516.1ck     +++|*
02202  M01S01517.1ck     +++|*         USES   T1, CM - CM+4, CN - CN+4.
02203  M01S01518.1ck     +++|*
02204  M01S01519.1ck     +++|*         MACROS MONITOR.
02205  M01S01520.1ck     +++|
02206  M01S01521.1ck     +++|
02207  M01S01522.1ck     +++| SCD4     LDD    CM          SET CHECKPOINT IN PROGRESS
02208  M01S01523.1ck     +++|          SCN    4
02209  M01S01524.1ck     +++|          LMN    4
02210  M01S01525.1ck     +++| SCD5     STD    CM          STORE CHECKPOINT FLAGS
02211  M01S01526.1ck     +++|          LDD    CN+3
02212  M01S01527.1ck     +++|          SHN    14
02213  M01S01528.1ck     +++|          ADD    CN+4
02214  M01S01529.1ck     +++|          ADN    D7ST
02215  M01S01530.1ck     +++|          CWD    CM          WRITE UPDATED STATUS WORD
02216  M01S01531.1ck     +++|
02217  M01S01532.1ck     +++| SCD      SUBR               ENTRY/EXIT
02218  M01S01533.1ck     +++|          STD    T1          SAVE OPERATION
02219  M01S01534.1ck     +++|          ZJN    SCD1        IF SET CHECKPOINT IN PROGRESS
02220  M01S01535.1ck     +++|          LDN    LDOS        SET DECREMENT BY ONE
02221  M01S01536.1ck     +++|          STM    SCDA
02222  M01S01537.1ck     +++| SCD1     LDN    1           SET NUMBER OF OPTIONS
02223  M01S01538.1ck     +++|          STD    CM+1
02224  M01S01539.1ck     +++|          STD    CM+2        DO NOT DROP PPU
02225  M01S01540.1ck     +++|          LDD    MA
02226  M01S01541.1ck     +++|          CWM    SCDA,ON
02227  M01S01542.1ck     +++|          MONITOR  UADM      SET GLOBAL CHECKPOINT IN PROGRESS FLAG
02228  M01S01543.1ck     +++|          LDK    EIBP
02229  M01S01544.1ck     +++|          CRD    CN
02230  M01S01545.1ck     +++|          LDD    CN+3
02231  M01S01546.1ck     +++|          SHN    14
02232  M01S01547.1ck     +++|          ADD    CN+4
02233  M01S01548.1ck     +++| SCD2     ZJN    SCDX        IF NO *EICB*
02234  M01S01549.1ck     +++|          ADN    D7ST
02235  M01S01550.1ck     +++|          CRD    CM
02236  M01S01551.1ck     +++|          LDD    T1
02237  M01S01552.1ck     +++|          NJN    SCD3        IF SET CHECKPOINT COMPLETE
02238  M01S01553.1ck     +++|          LJM    SCD4        SET CHECKPOINT IN PROGRESS
02239  M01S01554.1ck     +++|
02240  M01S01555.1ck     +++| SCD3     LDD    CM
02241  M01S01556.1ck     +++|          LPN    4
02242  M01S01557.1ck     +++|          ZJN    SCD2        IF CHECKPOINT IN PROGRESS FLAG NOT SET
02243  M01S01558.1ck     +++|          LDD    CM
02244  M01S01559.1ck     +++|          SCN    10
02245  M01S01560.1ck     +++|          LMN    10
02246  M01S01561.1ck     +++|          LJM    SCD5        SET CHECKPOINT COMPLETE
02247  M01S01562.1ck     +++|
02248  M01S01563.1ck     +++| SCDA     CON    LIOS        INCREMENT BY ONE
02249  M01S01564.1ck     +++|          CON    INWL        WORD ADDRESS
02250  M01S01565.1ck     +++|          CON    4*100+1     BIT POSITION AND FIELD WIDTH
02251  M01S01566.1ck     +++|          CON    0
02252  M01S01567.1ck     +++|          CON    0
Line S01568 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02253  M02S01568.ns2373  ---| SDD      SPACE  4,10
Line S01569 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02254  M02S01569.ns2373  ---|**        SDD - SPIN DOWN DEVICES.
Line S01570 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02255  M02S01570.ns2373  ---|*
Line S01571 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02256  M02S01571.ns2373  ---|*         USES   EI, CM - CM+4.
Line S01572 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02257  M02S01572.ns2373  ---|*
Line S01573 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02258  M02S01573.ns2373  ---|*         CALLS  SMD, CIL.
Line S01574 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02259  M02S01574.ns2373  ---|*
Line S01575 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02260  M02S01575.ns2373  ---|*         MACROS EXECUTE.
Line S01576 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02261  M02S01576.ns2373  ---|
Line S01577 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02262  M02S01577.ns2373  ---|
Line S01578 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02263  M02S01578.ns2373  ---| SDD      SUBR               ENTRY/EXIT
Line S01579 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02264  M02S01579.ns2373  ---|          LDK    SSTL
Line S01580 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02265  M02S01580.ns2373  ---|          CRD    CM
Line S01581 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02266  M02S01581.ns2373  ---|          LDD    CM
Line S01582 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02267  M02S01582.ns2373  ---|          LPN    1
Line S01583 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02268  M02S01583.ns2373  ---|          NJN    SDDX        IF SPINDOWN DISABLED
Line S01584 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02269  M02S01584.ns2373  ---|          EXECUTE 0SD,OVL    LOAD SPIN UP/DOWN PROCESSOR
Line S01585 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02270  M02S01585.ns2373  ---|          STM    SDDA        SET PROCESSOR ADDRESS
Line S01586 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02271  M02S01586.ns2373  ---|          LDN    20          SET SPINDOWN OPTION
Line S01587 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02272  M02S01587.ns2373  ---|          STM    OVL-2
Line S01588 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02273  M02S01588.ns2373  ---|          LDN    NOPE-1      SPINDOWN DEVICES
Line S01589 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02274  M02S01589.ns2373  ---|          STD    EI
Line S01590 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02275  M02S01590.ns2373  ---| SDD1     RJM    SMD         SELECT DEVICE
Line S01591 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02276  M02S01591.ns2373  ---|          ZJN    SDDX        IF END OF EST
Line S01592 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02277  M02S01592.ns2373  ---|          LDD    EI          SET EST ORDINAL FOR *0SD*
Line S01593 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02278  M02S01593.ns2373  ---|          STM    OVL-1
Line S01594 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02279  M02S01594.ns2373  ---|          RJM    **
Line S01595 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02280  M02S01595.ns2373  ---| SDDA     EQU    *-1
Line S01596 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02281  M02S01596.ns2373  ---|          UJN    SDD1        CHECK NEXT DEVICE
02282  M01S01597.1ck     +++| TUT      SPACE  4,10
02283  M01S01598.1ck     +++|**        TUT - TRANSFER UEM TRACK TO DISK.
02284  M01S01599.1ck     +++|*
02285  M01S01600.1ck     +++|*         ENTRY  (A) = NUMBER OF SECTORS TO TRANSFER.
02286  M01S01601.1ck     +++|*                (T8) = UEM TRACK NUMBER.
Line S01602 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02287  M02S01602.252l678 ---|*                (FS+2) = 20B.
02288  M01S00048.252l678 +++|*                (FS+2) = UEM SECTOR LIMIT.
02289  M01S01603.1ck     +++|*
02290  M01S01604.1ck     +++|*         USES   CA+2, CA+3, T9.
02291  M01S01605.1ck     +++|*
02292  M01S01606.1ck     +++|*         CALLS  CUA, WNS.
02293  M01S00049.252l678 +++|*
02294  M01S00050.252l678 +++|*         NOTES  IF THE UEM TRACK SIZE IS 100B OR 200B SECTORS, THE 1ST
02295  M01S00051.252l678 +++|*                SECTOR WILL CONTAIN ONLY THE TRACK DESCRIPTION, AND
02296  M01S00052.252l678 +++|*                ALL LINKAGE WORDS WILL FOLLOW IN THE NEXT 1 OR 2
02297  M01S00053.252l678 +++|*                SECTORS, PROCESSED AS IF DATA SECTORS.
02298  M01S01607.1ck     +++|
02299  M01S01608.1ck     +++|
02300  M01S01609.1ck     +++| TUT      SUBR               ENTRY/EXIT
02301  M01S01610.1ck     +++|          STD    T9          SET SECTOR COUNT
02302  M01S00054.252l678 +++|          LDD    FS+2        ADD LINKAGE WORDS TO SECTOR COUNT
02303  M01S00055.252l678 +++|          SHN    -6
02304  M01S00056.252l678 +++|          RAD    T9
02305  M01S01611.1ck     +++|          STM    BUF+3
02306  M01S01612.1ck     +++|          LDD    T8          SET TRACK NUMBER
02307  M01S01613.1ck     +++|          STM    BUF+2
Line S01614 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02308  M02S01614.252l678 ---|          LDN    20          SET WORD COUNT
Line S01615 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02309  M02S01615.252l678 ---|          STM    BUF+1
02310  M01S01616.1ck     +++|          RJM    CUA         CALCULATE FWA OF UEM TRACK
02311  M01S00057.252l678 +++|          LDD    FS+2
02312  M01S00058.252l678 +++|          LPN    77
02313  M01S00059.252l678 +++|          STM    BUF+1       SET SINGLE SECTOR LINKAGE WORD COUNT
02314  M01S00060.252l678 +++|          ZJN    TUT1        IF TOO MANY WORDS FOR ONE SECTOR
02315  M01S00061.252l678 +++|          RAD    CA+4        ADVANCE UEM ADDRESS FOR PARTIAL SECTOR
02316  M01S00062.252l678 +++|          SBD    FS+2
02317  M01S01617.1ck     +++|          ADC    400000      SET 2**17
02318  M01S01618.1ck     +++|          LRD    CA+2
02319  M01S01619.1ck     +++|          CRM    BUF+4,FS+2  READ LINKAGE WORDS
Line S01620 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02320  M02S01620.252l678 ---|          RJM    WNS         WRITE LINKAGE SECTOR TO DISK
Line S01621 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02321  M02S01621.252l678 ---|          LDD    HN          SET DATA SECTOR WORD COUNT
02322  M01S00063.252l678 +++| TUT1     RJM    WNS         WRITE 1ST (OR ONLY) LINKAGE SECTOR
02323  M01S00064.252l678 +++|          LDD    HN          SET WORD COUNT FOR REMAINING SECTORS
02324  M01S01622.1ck     +++|          STM    BUF+1
Line S01623 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02325  M02S01623.252l678 ---|          LDN    20          ADVANCE UEM ADDRESS TO DATA SECTOR
Line S01624 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02326  M02S01624.252l678 ---| TUT1     RAD    CA+4
02327  M01S00065.252l678 +++| TUT2     LDD    CA+4
02328  M01S01625.1ck     +++|          ADC    400000
02329  M01S01626.1ck     +++|          LRD    CA+2        READ DATA SECTOR
02330  M01S01627.1ck     +++|          CRM    BUF+2,HN
Line S01628 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02331  M02S01628.252l678 ---|          RJM    WNS         WRITE DATA SECTOR TO DISK
02332  M01S00066.252l678 +++|          RJM    WNS         WRITE NEXT SECTOR
02333  M01S00067.252l678 +++|          AOD    CA+3        ADVANCE UEM ADDRESS
02334  M01S00068.252l678 +++|          SHN    -14
02335  M01S00069.252l678 +++|          RAD    CA+2
02336  M01S01629.1ck     +++|          SOD    T9          DECREMENT SECTOR COUNT
Line S01630 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02337  M02S01630.252l678 ---|          ZJN    TUT2        IF FINISHED WITH TRACK
Line S01631 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02338  M02S01631.252l678 ---|          LDD    HN
Line S01632 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02339  M02S01632.252l678 ---|          UJN    TUT1        PROCESS NEXT SECTOR
Line S01633 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02340  M02S01633.252l678 ---|
Line S01634 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02341  M02S01634.252l678 ---| TUT2     LJM    TUTX        RETURN
02342  M01S00070.252l678 +++|          NJN    TUT2        IF NOT FINISHED WITH TRACK
02343  M01S00071.252l678 +++|          UJP    TUTX        RETURN
02344  M01S01635.1ck     +++| UCP      SPACE  4,10
02345  M01S01636.1ck     +++|**        UCP - CHECKPOINT UEM.
02346  M01S01637.1ck     +++|*
02347  M01S01638.1ck     +++|*         ENTRY  (T4 - T7) = DISK PARAMETERS FOR CURRENT CHECKPOINT
02348  M01S01639.1ck     +++|*                            DEVICE.
02349  M01S01640.1ck     +++|*
Line S01641 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02350  M02S01641.252l678 ---|*         USES   T8, T9, CA, CA+1, CM - CM+5, CN - CN+4, FS - FS+3.
02351  M01S00072.252l678 +++|*         USES   T8, T9, CA, CA+1, CM - CM+7, CN - CN+4, FS - FS+3.
02352  M01S01642.1ck     +++|*
02353  M01S01643.1ck     +++|*         CALLS  GSC, TUT, WEI, WLA.
02354  M01S01644.1ck     +++|*
02355  M01S01645.1ck     +++|*         MACROS ENDMS, SFA.
02356  M01S01646.1ck     +++|
02357  M01S01647.1ck     +++|
02358  M01S00073.252l678 +++| UCP4     RJM    TUT         TRANSFER UEM TRACK TO DISK
02359  M01S00074.252l678 +++| UCP5     RJM    GSC         GET SECTOR COUNT OF NEXT TRACK
02360  M01S00075.252l678 +++|          NJN    UCP4        IF NOT END OF UEM
02361  M01S00076.252l678 +++|
02362  M01S01648.1ck     +++| UCP      SUBR               ENTRY/EXIT
02363  M01S01649.1ck     +++|          LDK    UEML        SET UEM BASE ADDRESS
02364  M01S01650.1ck     +++|          CRD    CM
02365  M01S01651.1ck     +++|          LDD    CM
02366  M01S01652.1ck     +++|          SHN    21-2
02367  M01S01653.1ck     +++|          STD    CA
02368  M01S01654.1ck     +++|          SHN    -6
02369  M01S01655.1ck     +++|          SCN    7
02370  M01S01656.1ck     +++|          STD    CA+1
Line S01657 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02371  M02S01657.252l678 ---|          LDN    EMEQ        SET EQUIPMENT POINTERS
Line S01658 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02372  M02S01658.252l678 ---|          SFA    EST
Line S01659 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02373  M02S01659.252l678 ---|          ADK    EQDE
Line S01660 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02374  M02S01660.252l678 ---|          CRD    CM
Line S01661 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02375  M02S01661.252l678 ---|          LDD    CM+4
02376  M01S00077.252l678 +++|          LDC    0           SET UEM MST ADDRESS
02377  M01S00078.252l678 +++| UCPA     EQU    *-1
02378  M01S01662.1ck     +++|          SHN    3
Line S01663 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02379  M02S01663.252l678 ---|          ADK    ACGL
02380  M01S00079.252l678 +++|          ADK    MDGL
02381  M01S00080.252l678 +++|          CRD    CM+3
02382  M01S00081.252l678 +++|          SBN    MDGL-ACGL
02383  M01S01664.1ck     +++|          CRD    CM
02384  M01S01665.1ck     +++|          ADK    TDGL-ACGL
02385  M01S01666.1ck     +++|          CRD    CM+2
02386  M01S01667.1ck     +++|          ADK    TRLL-TDGL
02387  M01S01668.1ck     +++|          CRD    CN
02388  M01S00082.252l678 +++|          LDD    CM+3+4      SET SECTOR LIMIT
02389  M01S00083.252l678 +++|          STD    FS+2
02390  M01S01669.1ck     +++|          LDD    CM+2+2      SET TRT LENGTH
02391  M01S01670.1ck     +++|          STD    FS+3
02392  M01S01671.1ck     +++|          LDD    CN+3        SET TRT FWA
02393  M01S01672.1ck     +++|          LPN    77
02394  M01S01673.1ck     +++|          LMC    LDCI
02395  M01S01674.1ck     +++|          STM    GSCA
02396  M01S01675.1ck     +++|          LDD    CN+4
02397  M01S01676.1ck     +++|          STM    GSCA+1
Line S01677 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02398  M02S01677.252l678 ---|          LDN    20          SET LINKAGE WORD COUNT
Line S01678 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02399  M02S01678.252l678 ---|          STD    FS+2
02400  M01S01679.1ck     +++|          LCN    0
02401  M01S01680.1ck     +++|          STD    T8          INITIALIZE UEM FIRST TRACK
02402  M01S01681.1ck     +++|          STD    FS          PRESET USER AREA FIRST TRACK
02403  M01S01682.1ck     +++|          LDD    CM+1        SET FIRST TRACK OF USER AREA
02404  M01S01683.1ck     +++|          ZJN    UCP3        IF NO USER AREA
02405  M01S01684.1ck     +++|          LPC    3777        SET FIRST TRACK OF USER AREA
02406  M01S01685.1ck     +++|          STD    FS+1
02407  M01S01686.1ck     +++|          ADN    1           CAUSE USER AREA FIRST TRACK TO BE WRITTEN
02408  M01S01687.1ck     +++|          STD    FS
02409  M01S01688.1ck     +++|          LDK    ECRL
02410  M01S01689.1ck     +++|          CRD    CN
Line S01690 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02411  M02S01690.252l678 ---|          LDD    CN+2        SET LAST TRACK+1 OF USER AREA
Line S01691 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02412  M02S01691.252l678 ---|          SHN    5
02413  M01S00084.252l678 +++|          LDD    CN+1
02414  M01S00085.252l678 +++| UCPB     SHN    5
02415  M01S00086.252l678 +++|*         SHN    5-EMSC+UESC
02416  M01S01692.1ck     +++|          STD    CN+1
02417  M01S01693.1ck     +++|          SHN    -14
02418  M01S01694.1ck     +++|          STD    CN
02419  M01S01695.1ck     +++| UCP2     AOD    FS+1        ADVANCE TRACK POINTER
02420  M01S01696.1ck     +++|          LDC    -101
02421  M01S01697.1ck     +++|          RAD    CN+1
02422  M01S01698.1ck     +++|          PJN    UCP2        IF NOT UNDERFLOW
02423  M01S01699.1ck     +++|          AOD    CN+1
02424  M01S01700.1ck     +++|          SOD    CN
02425  M01S01701.1ck     +++|          PJN    UCP2        IF NOT END OF CONVERSION
Line S01702 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02426  M02S01702.252l678 ---| UCP3     AOD    T8          INCREMENT CURRENT UEM TRACK
Line S01703 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02427  M02S01703.252l678 ---|          LMD    FS
Line S01704 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02428  M02S01704.252l678 ---|          NJN    UCP4        IF NOT START OF USER AREA
Line S01705 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02429  M02S01705.252l678 ---|          LDD    FS+1        SET LAST TRACK+1 OF USER AREA
Line S01706 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02430  M02S01706.252l678 ---|          STD    T8
Line S01707 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02431  M02S01707.252l678 ---| UCP4     RJM    GSC         GET SECTOR COUNT
Line S01708 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02432  M02S01708.252l678 ---|          NJN    UCP5        IF NOT END OF UEM
Line S01709 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02433  M02S01709.252l678 ---|          LJM    UCPX        RETURN
Line S01710 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02434  M02S01710.252l678 ---|
Line S01711 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02435  M02S01711.252l678 ---| UCP5     RJM    TUT         TRANSFER UEM TRACK TO DISK
Line S01712 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02436  M02S01712.252l678 ---|          UJN    UCP3        GET NEXT TRACK
02437  M01S00087.252l678 +++| UCP3     LJM    UCP5        TRANSFER UEM DATA TO DISK
Line S01713 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02438  M02S01713.253l688 ---| WLA      SPACE  4
02439  M01S00138.253l688 +++| WLA      SPACE  4,15
02440  M01S01714.1ck     +++|**        WLA - WRITE LOCAL AREAS.
02441  M01S01715.1ck     +++|*
02442  M01S01716.1ck     +++|*         ENTRY  (T4) = CHANNEL.
02443  M01S01717.1ck     +++|*                (T5) = EQUIPMENT.
02444  M01S01718.1ck     +++|*                (ES - ES+4) = EST ENTRY.
02445  M01S01719.1ck     +++|*                (LT) = LABEL TRACK.
02446  M01S01720.1ck     +++|*
02447  M01S01721.1ck     +++|*         EXIT   (A) = 0.
02448  M01S01722.1ck     +++|*                (TS) = LABEL TRACK INTERLOCKED STATUS.
02449  M01S01723.1ck     +++|*
02450  M01S01724.1ck     +++|*         USES   T1, T2, T6, T7, CM - CM+7.
02451  M01S01725.1ck     +++|*
02452  M01S01726.1ck     +++|*         CALLS  ABT, CAD, ERR, GLS, STI, UMS.
02453  M01S01727.1ck     +++|*
02454  M01S01728.1ck     +++|*         MACROS ENDMS, SETMS.
02455  M01S01729.1ck     +++|
02456  M01S01730.1ck     +++|
02457  M01S01731.1ck     +++| WLA11    LJM    ABT         ABORT OPERATION
02458  M01S01732.1ck     +++|
02459  M01S01733.1ck     +++| WLA      SUBR               ENTRY/EXIT
02460  M01S01734.1ck     +++|          LDD    LT
02461  M01S01735.1ck     +++|          STD    T6
02462  M01S01736.1ck     +++|          LDD    TS
02463  M01S01737.1ck     +++|          NJN    WLA1        IF LABEL TRACK INTERLOCKED
02464  M01S01738.1ck     +++|          RJM    STI         SET TRACK INTERLOCK
02465  M01S01739.1ck     +++|          NJN    WLA11       IF ERROR FLAG SET
02466  M01S01740.1ck     +++|          AOD    TS          SET LABEL TRACK INTERLOCK STATUS
02467  M01S01741.1ck     +++| WLA1     LDN    LMLT        SET LOCAL AREA SECTOR
02468  M01S01742.1ck     +++|          STD    T7
02469  M01S01743.1ck     +++|          RJM    GLS         GET LOCAL AREA SECTOR
02470  M01S01744.1ck     +++|          PJN    WLA4        IF NO ERROR
02471  M01S01745.1ck     +++| WLA2     ENDMS
02472  M01S01746.1ck     +++|          LDC    WLAE        *EQXXX, LOCAL AREA SECTOR ERROR.*
02473  M01S01747.1ck     +++| WLAA     EQU    *-1
02474  M01S01748.1ck     +++|*         LDC    WLAF        (*EQXXX, LOCAL AREA OVERFLOW.*)
02475  M01S01749.1ck     +++|          LJM    ERR         ISSUE THE ERROR MESSAGE
02476  M01S01750.1ck     +++|
02477  M01S01751.1ck     +++|*         MAKE A NEW ENTRY IN THE SECTOR.
02478  M01S01752.1ck     +++|
02479  M01S01753.1ck     +++| WLA3     LDN    2           BUMP SECTOR WORD COUNT
02480  M01S01754.1ck     +++|          RAM    BFMS+1
02481  M01S01755.1ck     +++|          SBD    HN
02482  M01S01756.1ck     +++|          MJN    WLA6        IF ROOM FOR A NEW ENTRY
02483  M01S01757.1ck     +++|          LDC    WLAF        *EQXXX, LOCAL AREA OVERFLOW.*
02484  M01S01758.1ck     +++|          STM    WLAA
02485  M01S01759.1ck     +++|          UJN    WLA2        PROCESS ERROR
02486  M01S01760.1ck     +++|
02487  M01S01761.1ck     +++|*         SEARCH FOR MATCH ON MACHINE ID.
02488  M01S01762.1ck     +++|
02489  M01S01763.1ck     +++| WLA4     LCN    2*5-1       INITIALIZE SEARCH INDEX
02490  M01S01764.1ck     +++|          STD    T2
02491  M01S01765.1ck     +++|          LCN    2-1
02492  M01S01766.1ck     +++|          STD    T1
02493  M01S01767.1ck     +++|          LDC    MMFL        GET MACHINE ID
02494  M01S01768.1ck     +++|          CRD    CM
02495  M01S01769.1ck     +++| WLA5     LDN    2*5         BUMP SEARCH INDEX
02496  M01S01770.1ck     +++|          RAD    T2
02497  M01S01771.1ck     +++|          LDN    2
02498  M01S01772.1ck     +++|          RAD    T1
02499  M01S01773.1ck     +++|          LDD    T1
02500  M01S01774.1ck     +++|          SBM    BFMS+1      SUBTRACT SECTOR WORD COUNT
02501  M01S01775.1ck     +++|          PJN    WLA3        IF END OF SECTOR DATA
02502  M01S01776.1ck     +++|          LDM    BFMS+2,T2   COMPARE ID CODE
02503  M01S01777.1ck     +++|          LMD    CM
02504  M01S01778.1ck     +++|          NJN    WLA5        IF NO MATCH
02505  M01S01779.1ck     +++|
02506  M01S01780.1ck     +++|*         UPDATE LOCAL AREA DATA.
02507  M01S01781.1ck     +++|
02508  M01S01782.1ck     +++|          LDM    BFMS+2+2,T2
02509  M01S01783.1ck     +++|          NJN    WLA6        IF POST LEVEL 509 ENTRY
02510  M01S01784.1ck     +++|          STM    BFMS+2+10,T2
02511  M01S01785.1ck     +++| WLA6     LDD    T2
02512  M01S01786.1ck     +++|          ADC    BFMS+2+5
02513  M01S01787.1ck     +++|          STM    WLAC
02514  M01S01788.1ck     +++|          STM    WLAD
02515  M01S01789.1ck     +++|          LDD    CM          SET MACHINE ID
02516  M01S01790.1ck     +++|          STM    BFMS+2,T2
02517  M01S01791.1ck     +++|          LDN    LMLT        SET SYSTEM LEVEL IN ENTRY
02518  M01S01792.1ck     +++|          STM    BFMS+2+2,T2
02519  M01S01793.1ck     +++|          LDD    ES+4        READ DULL WORD
02520  M01S01794.1ck     +++|          SHN    3
02521  M01S01795.1ck     +++|          ADN    DULL
02522  M01S01796.1ck     +++|          CRD    CM+3
02523  M01S01797.1ck     +++|          ADN    STLL-DULL
02524  M01S01798.1ck     +++|          CRD    CM
02525  M01S01799.1ck     +++|          LDD    CM+3        SET USER COUNT
02526  M01S01800.1ck     +++|          STM    BFMS+2+4,T2
02527  M01S01801.1ck     +++|          LDD    CM+6        SET SYSTEM TABLE TRACK
02528  M01S01802.1ck     +++|          LPC    3777
02529  M01S01803.1ck     +++|*         UJN    *+2         (FUNCTIONS 0 AND 1)
02530  M01S01804.1ck     +++| WLAG     EQU    *-2
02531  M01S01805.1ck     +++|          STM    BFMS+2+1,T2
02532  M01S01806.1ck     +++|          LDD    CM+7        SET FAMILY COUNT
02533  M01S01807.1ck     +++|          STM    BFMS+2+3,T2
02534  M01S01808.1ck     +++|          LDC    0           UEM SECTOR OFFSET
02535  M01S01809.1ck     +++| WLAH     EQU    *-1
02536  M01S01810.1ck     +++|          STM    BFMS+2+11,T2
02537  M01S01811.1ck     +++|          RJM    CAD         CHECK ACTIVE DAYFILES
02538  M01S01812.1ck     +++| WLAB     LDN    0
02539  M01S01813.1ck     +++|          ZJN    WLA7        IF NO DAYFILE POINTER UPDATE
02540  M01S01814.1ck     +++|          SBN    1
02541  M01S01815.1ck     +++|          STD    T1
02542  M01S01816.1ck     +++|          LDN    0           CLEAR DAYFILE POINTER
02543  M01S01817.1ck     +++|          STM    *,T1
02544  M01S01818.1ck     +++| WLAC     EQU    *-1
02545  M01S01819.1ck     +++| WLA7     STD    T2
02546  M01S01820.1ck     +++|          LDD    T3
02547  M01S01821.1ck     +++|          ZJN    WLA10       IF NO ACTIVE DAYFILES ON DEVICE
02548  M01S01822.1ck     +++|
02549  M01S01823.1ck     +++|*         MOVE ACTIVE DAYFILE TRACKS TO SECTOR OF LOCAL AREAS.
02550  M01S01824.1ck     +++|
02551  M01S01825.1ck     +++| WLA8     LDM    CADA,T2
02552  M01S01826.1ck     +++|          ZJN    WLA9        IF DAYFILE NOT PRESENT
02553  M01S01827.1ck     +++|          STM    *,T2
02554  M01S01828.1ck     +++| WLAD     EQU    *-1
02555  M01S01829.1ck     +++| WLA9     AOD    T2          ADVANCE DAYFILE INDEX
02556  M01S01830.1ck     +++|          LMN    EXDF
02557  M01S01831.1ck     +++|          NJN    WLA8        IF NOT END OF EXCESS DAYFILES
02558  M01S01832.1ck     +++| WLA10    SETMS  IO,(ND,NS,RW),WBUF
02559  M01S01833.1ck     +++|          LDC    BFMS+WLSF   REWRITE SECTOR
02560  M01S01834.1ck     +++|          RJM    WMS
02561  M01S01835.1ck     +++|          ENDMS
02562  M01S01836.1ck     +++|*         LDN    0
02563  M01S01837.1ck     +++|          STM    WLAH
02564  M01S01838.1ck     +++|          LJM    WLAX        RETURN
02565  M01S01839.1ck     +++|
02566  M01S01840.1ck     +++| WLAE     DATA   C*EQXXX, LOCAL AREA SECTOR ERROR.*
02567  M01S01841.1ck     +++| WLAF     DATA   C*EQXXX, LOCAL AREA OVERFLOW.*
02568  M01S01842.1ck     +++| WST      SPACE  4,20
02569  M01S01843.1ck     +++|**        WST - WRITE SYSTEM TABLES.
02570  M01S01844.1ck     +++|*
02571  M01S01845.1ck     +++|*         ENTRY  (T5) = EST ORDINAL.
02572  M01S01846.1ck     +++|*                (ES - ES+4) = EST ENTRY.
02573  M01S01847.1ck     +++|*                (ST) = CHECKPOINT FILE FIRST TRACK.
02574  M01S01848.1ck     +++|*                (LT) = LABEL TRACK.
02575  M01S01849.1ck     +++|*                (FS - FS+4) = STLL WORD.
02576  M01S01850.1ck     +++|*
02577  M01S01851.1ck     +++|*         USES   T6, CA - CA+4, CM - CM+4, CN - CN+4.
02578  M01S01852.1ck     +++|*
02579  M01S01853.1ck     +++|*         CALLS  FTB, WSS, WTB.
02580  M01S01854.1ck     +++|*
02581  M01S01855.1ck     +++|*         MACROS CFI, ENDMS, MONITOR, SETMS.
02582  M01S01856.1ck     +++|
02583  M01S01857.1ck     +++|
02584  M01S01858.1ck     +++| WST      SUBR               ENTRY/EXIT
02585  M01S01859.1ck     +++|          LDD    ST
02586  M01S01860.1ck     +++|          STD    T6
02587  M01S01861.1ck     +++|          LDD    ES+4        GET TRT ADDRESS
02588  M01S01862.1ck     +++|          SHN    3
02589  M01S01863.1ck     +++|          ADK    TRLL
02590  M01S01864.1ck     +++|          CRD    CM
02591  M01S01865.1ck     +++|          LDD    CM+3        SET TRT ADDRESS FOR *FDB*
02592  M01S01866.1ck     +++|          LPN    77
02593  M01S01867.1ck     +++|          SHN    14
02594  M01S01868.1ck     +++|          LMD    CM+4
02595  M01S01869.1ck     +++|          SBD    TH          COMPENSATE FOR UPPER BIT OF TRACK
02596  M01S01870.1ck     +++|          STM    FTBA+1
02597  M01S01871.1ck     +++|          STM    SRAA+1
02598  M01S01872.1ck     +++|          SHN    -14
02599  M01S01873.1ck     +++|          LMC    ADCI
02600  M01S01874.1ck     +++|          STM    FTBA
02601  M01S01875.1ck     +++|          STM    SRAA
02602  M01S01876.1ck     +++|          RJM    FTB         FILL TRACK BUFFER
Line S01877 Modification History
M01 (Added by) 1ck
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02603  M02S01877.272l774 ---|          SETMS  IO,(ND,NS,RW),WBUF
02604  M01S00007.272l774 +++|          SETMS  IO,(ND,NS),WBUF
02605  M01S01878.1ck     +++|          LDD    MA          ENTER NAME
Line S01879 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02606  M02S01879.ns2477  ---|          CWM    WSTA,ON
02607  M01S00002.ns2477  +++|          CWM    WSTB,ON
02608  M01S01880.1ck     +++|          SBN    1
02609  M01S01881.1ck     +++|          CRM    FNSS,ON
02610  M01S01882.1ck     +++|          RJM    WSS         WRITE SYSTEM SECTOR
02611  M01S01883.1ck     +++|          LDN    0           WRITE POINTER AREA
02612  M01S01884.1ck     +++|          STD    CA
02613  M01S01885.1ck     +++|          STD    CA+1
02614  M01S01886.1ck     +++|          LDC    BQRL
02615  M01S01887.1ck     +++|          RJM    WTB
02616  M01S01888.1ck     +++|
02617  M01S01889.1ck     +++|*         WRITE EQUIPMENT STATUS TABLE.
02618  M01S01890.1ck     +++|
02619  M01S01891.1ck     +++|          LDN    ESTP        SET EST ADDRESS
02620  M01S01892.1ck     +++|          CRD    CA
02621  M01S01893.1ck     +++|          CFI    EST,EC,EC   SET EST LENGTH
02622  M01S01894.1ck     +++|          RJM    WTB         WRITE TABLE
02623  M01S01895.1ck     +++|
02624  M01S01896.1ck     +++|*         WRITE CHANNEL INTERLOCK TABLES.
02625  M01S01897.1ck     +++|
02626  M01S01898.1ck     +++|          LDC    CHTP        SET CHANNEL TABLE ADDRESS
02627  M01S01899.1ck     +++|          CRD    CM
02628  M01S01900.1ck     +++|          LDD    CM+2
02629  M01S01901.1ck     +++|          STD    CA
02630  M01S01902.1ck     +++|          LDD    CM+3
02631  M01S01903.1ck     +++|          STD    CA+1
02632  M01S01904.1ck     +++|          LDN    CTALL*2     TABLE LENGTH
02633  M01S01905.1ck     +++|          RJM    WTB         WRITE TABLE
02634  M01S01906.1ck     +++|
02635  M01S01907.1ck     +++|*         WRITE EVENT TABLE.
02636  M01S01908.1ck     +++|
02637  M01S01909.1ck     +++|          LDK    EVTP        FETCH EVENT TABLE POINTER
02638  M01S01910.1ck     +++|          CRD    CM
02639  M01S01911.1ck     +++|          LDD    CM          SET TABLE ADDRESS
02640  M01S01912.1ck     +++|          STD    CA
02641  M01S01913.1ck     +++|          LDD    CM+1
02642  M01S01914.1ck     +++|          STD    CA+1
02643  M01S01915.1ck     +++|          LDN    EVTLL       WRITE EVENT TABLE
02644  M01S01916.1ck     +++|          RJM    WTB
02645  M01S01917.1ck     +++|
02646  M01S01918.1ck     +++|*         WRITE SUBSYSTEM CONTROL TABLES.
02647  M01S01919.1ck     +++|
02648  M01S01920.1ck     +++|          LDC    SSCP        FETCH SUBSYSTEM CONTROL TABLE POINTER
02649  M01S01921.1ck     +++|          CRD    CM
02650  M01S01922.1ck     +++|          LDD    CM+2        SET ADDRESS OF TABLES
02651  M01S01923.1ck     +++|          STD    CA
02652  M01S01924.1ck     +++|          LDD    CM+3
02653  M01S01925.1ck     +++|          STD    CA+1
02654  M01S01926.1ck     +++|          LDN    SSCTL*2     WRITE SSCT AND SSAT
02655  M01S01927.1ck     +++|          RJM    WTB
02656  M01S01928.1ck     +++|
Line S01929 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
02657  M02S01929.ns2513  ---|*         WRITE SERVICE CLASS CONTROL TABLE.
02658  M01S00004.ns2513  +++|*         WRITE SERVICE CLASS AND JOB CONTROL TABLES.
02659  M01S01930.1ck     +++|
Line S01931 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
02660  M02S01931.ns2513  ---|          LDK    JBCP        FETCH SERVICE CLASS CONTROL TABLE POINTER
02661  M01S00005.ns2513  +++|          LDK    JBCP        FETCH CONTROL TABLE POINTER
02662  M01S01932.1ck     +++|          CRD    CA
Line S01933 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
02663  M02S01933.ns2513  ---|          LDK    SCTE        WRITE SERVICE CLASS CONTROL TABLE
02664  M01S00006.ns2513  +++|          LDK    JCBE*/SCD/MXJC  WRITE CONTROL TABLES
02665  M01S01934.1ck     +++|          RJM    WTB
02666  M01S01935.1ck     +++|
02667  M01S01936.1ck     +++|*         WRITE SABB TABLE.
02668  M01S01937.1ck     +++|
02669  M01S01938.1ck     +++|          LDK    SABL
02670  M01S01939.1ck     +++|          CRD    CA
02671  M01S01940.1ck     +++|          LDD    CA+2
02672  M01S01941.1ck     +++|          RJM    WTB
02673  M01S01942.1ck     +++|
02674  M01S01943.1ck     +++|*         WRITE STATISTICAL DATA AREA.
02675  M01S01944.1ck     +++|
02676  M01S01945.1ck     +++|          LDC    SDAP        SET STATISTICAL AREA ADDRESS
02677  M01S01946.1ck     +++|          CRD    CA
02678  M01S01947.1ck     +++|          LDN    SDAL        WRITE STATISTICAL DATA AREA
02679  M01S01948.1ck     +++|          RJM    WTB
02680  M01S01949.1ck     +++|
02681  M01S01950.1ck     +++|*         WRITE MANAGED TABLES.
02682  M01S01951.1ck     +++|
02683  M01S01952.1ck     +++|          LDN    QFTP        FETCH QFT POINTER
02684  M01S01953.1ck     +++|          CRD    CA
02685  M01S01954.1ck     +++|          CFI    QFT,EC,EC   SET QFT LENGTH
02686  M01S01955.1ck     +++|          STD    CN+1
02687  M01S01956.1ck     +++|          SHN    -14
02688  M01S01957.1ck     +++|          STD    CN
02689  M01S01958.1ck     +++|          LDC    CLTP        READ CLT POINTER
02690  M01S01959.1ck     +++|          CRD    CM
02691  M01S01960.1ck     +++|          CFI    CLT,CM+2    APPEND COMMON LIBRARIES TABLE LENGTH
02692  M01S01961.1ck     +++|          RAD    CN+1
02693  M01S01962.1ck     +++|          SHN    -14
02694  M01S01963.1ck     +++|          RAD    CN
02695  M01S01964.1ck     +++|          LDC    LIDP        FETCH LID TABLE POINTER
02696  M01S01965.1ck     +++|          CRD    CM
02697  M01S01966.1ck     +++|          LDD    CM+2        APPEND LID TABLE LENGTH
02698  M01S01967.1ck     +++|          RAD    CN+1
02699  M01S01968.1ck     +++|          SHN    -14
02700  M01S01969.1ck     +++|          RAD    CN
02701  M01S01970.1ck     +++|          LDN    EJTP        FETCH EJT POINTER
02702  M01S01971.1ck     +++|          CRD    CA
02703  M01S01972.1ck     +++|          CFI    EJT,EC,EC   APPEND EJT LENGTH
02704  M01S01973.1ck     +++|          RAD    CN+1
02705  M01S01974.1ck     +++|          SHN    -14
02706  M01S01975.1ck     +++|          RAD    CN
02707  M01S01976.1ck     +++|          LDN    FNTP        FETCH FNT POINTER
02708  M01S01977.1ck     +++|          CRD    CM
02709  M01S01978.1ck     +++|          ADN    FOTP-FNTP   READ FOT POINTER
02710  M01S01979.1ck     +++|          CRD    CA
02711  M01S01980.1ck     +++|          CFI    FNT,CM+2,CM+2  ADD FNT LENGTH
02712  M01S01981.1ck     +++|          SHN    6
02713  M01S01982.1ck     +++|          ADD    CN
02714  M01S01983.1ck     +++|          SHN    14
02715  M01S01984.1ck     +++|          ADD    CN+1
02716  M01S01985.1ck     +++|          ADD    EC          ADD FOT LENGTH
02717  M01S01986.1ck     +++|          RJM    WTB
02718  M01S01987.1ck     +++|
02719  M01S01988.1ck     +++|*         WRITE LIBRARIES AND DIRECTORIES.
02720  M01S01989.1ck     +++|
02721  M01S01990.1ck     +++|          LDC    RPLP        FETCH RPL POINTER
02722  M01S01991.1ck     +++|          CRD    CA
02723  M01S01992.1ck     +++|          LDN    CMRL        READ CMR LENGTH
02724  M01S01993.1ck     +++|          CRD    CM
02725  M01S01994.1ck     +++|          LDD    CM+4
02726  M01S01995.1ck     +++|          SHN    14
02727  M01S01996.1ck     +++|          SBD    CA
02728  M01S01997.1ck     +++|          SHN    14
02729  M01S01998.1ck     +++|          SBD    CA+1
02730  M01S01999.1ck     +++|          RJM    WTB
Line S02000 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02731  M02S02000.ns2477  ---|          ENDMS
02732  M01S00003.ns2477  +++|
02733  M01S00004.ns2477  +++|*         WRITE BUFFERED DEVICE POINTER TABLE.
02734  M01S00005.ns2477  +++|
02735  M01S00006.ns2477  +++|          LDC    BIOL        FETCH BUFFERED I/O STATUS
02736  M01S00007.ns2477  +++|          CRD    CM
02737  M01S00008.ns2477  +++|          LDD    CM+1        SET ADDRESS OF TABLES
02738  M01S00009.ns2477  +++|          STD    CA
02739  M01S00010.ns2477  +++|          SHN    14
02740  M01S00011.ns2477  +++|          LMD    CM+2
02741  M01S00012.ns2477  +++|          STD    CA+1
02742  M01S00013.ns2477  +++|          ZJN    WST1        IF NO BUFFERED I/O
02743  M01S00014.ns2477  +++|          LDN    BDTL
02744  M01S00015.ns2477  +++|          RJM    WTB         WRITE TABLE
02745  M01S00016.ns2477  +++| WST1     ENDMS
02746  M01S02001.1ck     +++|          LDD    T5          SET EQUIPMENT
02747  M01S02002.1ck     +++|          STD    CM+1
02748  M01S02003.1ck     +++|          LDD    ST          SET SYSTEM TABLE TRACK
02749  M01S02004.1ck     +++|          STD    CM+2
02750  M01S02005.1ck     +++|          LDN    USTS        UPDATE SYSTEM TABLE TRACK
02751  M01S02006.1ck     +++|          STD    CM+3
Line S02007 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02752  M02S02007.253l688 ---|          MONITOR  STBM
02753  M01S00139.253l688 +++|          MONITOR  SMDM
Line S02008 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02754  M02S02008.ns2477  ---|          UJN    WST1        AVOID UEM CHECKPOINT
02755  M01S00017.ns2477  +++| WSTA     UJN    WST2        AVOID UEM CHECKPOINT
02756  M01S02009.1ck     +++|*         LDD    ST          (UEM PRESENT AND FUNCTION 0 OR 1)
Line S02010 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02757  M02S02010.ns2477  ---| WSTB     EQU    *-1
02758  M01S02011.1ck     +++|          RJM    SRA         COMPUTE UEM SECTOR OFFSET
02759  M01S02012.1ck     +++|          LDD    RI+1
02760  M01S02013.1ck     +++|          STM    WLAH
02761  M01S02014.1ck     +++|          RJM    UCP         WRITE UEM TO CHECKPOINT FILE
Line S02015 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02762  M02S02015.ns2477  ---| WST1     RJM    WEI         WRITE EOI
02763  M01S00018.ns2477  +++| WST2     RJM    WEI         WRITE EOI
02764  M01S02016.1ck     +++|          ENDMS
02765  M01S02017.1ck     +++|          RJM    WLA         WRITE SECTOR OF LOCAL AREAS
02766  M01S02018.1ck     +++|          LJM    WSTX        RETURN
02767  M01S02019.1ck     +++|
Line S02020 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02768  M02S02020.ns2477  ---| WSTA     VFD    42/0LSYSTAB,6/1,6/SYFT,6/0
02769  M01S00019.ns2477  +++|
02770  M01S00020.ns2477  +++| WSTB     VFD    42/0LSYSTAB,6/1,6/SYFT,6/0
Line S02021 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02771  M02S02021.253l688 ---|          SPACE  4
02772  M01S00140.253l688 +++|          SPACE  4,10
02773  M01S02022.1ck     +++|**        COMMON DECKS.
02774  M01S02023.1ck     +++|
02775  M01S02024.1ck     +++|
02776  M01S00015.271l716 +++| IFP$     EQU    1           ASSEMBLE *COMPGFP* INITIALIZATION REMOTELY
02777  M01S00016.271l716 +++| EJT$     EQU    1           ASSEMBLE EJT ACCESS ROUTINE
02778  M01S00017.271l716 +++|*CALL     COMPGFP
Line S02025 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02779  M02S02025.ns2780  ---|*CALL     COMPIFR
Line S00002 Modification History
M01 (Added by) 251l670
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02780  M02S00002.ns2780  ---|*CALL     COMPSDA
02781  M01S02026.1ck     +++|*CALL     COMPSRA
02782  M01S00010.ns2373  +++|*CALL     COMPSUD
Line S02027 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02783  M02S02027.ns2780  ---|          QUAL   UFT
Line S02028 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02784  M02S02028.ns2780  ---| QUAL$    EQU    0           DONT REQUALIFY COMMON DECK
Line S02029 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02785  M02S02029.ns2780  ---| GFO$     EQU    0           DEFINE FOT ACCESS ROUTINE
Line S02030 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02786  M02S02030.ns2780  ---| FN       EQU    CA          CM WORD BUFFER (5 LOCATIONS)
Line S02031 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02787  M02S02031.ns2780  ---|*CALL     COMPUFT
Line S02032 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02788  M02S02032.ns2780  ---|          QUAL   *
Line S02033 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02789  M02S02033.ns2780  ---| GFO      EQU    /UFT/GFO
02790  M01S02034.1ck     +++|          SPACE  4
02791  M01S02035.1ck     +++|*         BUFFER ASSIGNMENTS.
02792  M01S02036.1ck     +++|
02793  M01S02037.1ck     +++|
02794  M01S02038.1ck     +++|          USE    LITERALS
02795  M01S02039.1ck     +++|          QUAL
02796  M01S02040.1ck     +++| BUF      BSS    0
02797  M01S02041.1ck     +++| WBUF     EQU    BUF+502     WRITE ERROR PROCESSING BUFFER
02798  M01S02042.1ck     +++|          ERRNG  BFMS-WBUF-502  BUFFER OVERFLOW
02799  M01S02043.1ck     +++| TBUF     EQU    WBUF+502    TRACK BUFFER
02800  M01S02044.1ck     +++| TBUFL    EQU    BFMS-TBUF   TRACK BUFFER LENGTH
02801  M01S02045.1ck     +++|          ERRNG  TBUFL-20    INADEQUATE TRACK BUFFER
Line S02046 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
02802  M02S02046.1ck11   ---| OVL      EQU    BUF+1       ZERO LEVEL OVERLAY LOAD ADDRESS
Line S00011 Modification History
M01 (Added by) ns2373
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
02803  M02S00011.1ck11   ---| OVL0     EQU    OVL         LOAD ADRESS FOR *0SD*
02804  M01S00024.1ck11   +++| OVL0     EQU    BUF+1       ZERO LEVEL OVERLAY LOAD ADDRESS
02805  M01S02047.1ck     +++|          QUAL   *
02806  M01S02048.1ck     +++| 3CK      TITLE  OVERLAYED SUBROUTINES.
02807  M01S02049.1ck     +++| ASW      SPACE  4,15
02808  M01S02050.1ck     +++|**        ASW - ABORT SUBSYSTEMS WHERE JOB SCHEDULING IS REQUIRED FOR
02809  M01S02051.1ck     +++|*         CLEANUP OF CONNECTED JOBS.
02810  M01S02052.1ck     +++|*
02811  M01S02053.1ck     +++|*         ENTRY  (NC) = NUMBER OF CONTROL POINTS.
02812  M01S02054.1ck     +++|*
02813  M01S02055.1ck     +++|*         EXIT   (A) = 0.
02814  M01S02056.1ck     +++|*
02815  M01S02057.1ck     +++|*         USES   T1, T7, CM - CM+4, ES - ES+4.
02816  M01S02058.1ck     +++|*
Line S02059 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02817  M02S02059.271l716 ---|*         CALLS  CET, CSC, DEL, DFM, FJO.
02818  M01S00018.271l716 +++|*         CALLS  CCP, CET, CSC, DEL, DFM, FJO.
02819  M01S02060.1ck     +++|*
02820  M01S02061.1ck     +++|*         MACROS MONITOR.
02821  M01S02062.1ck     +++|
02822  M01S02063.1ck     +++|
02823  M01S02064.1ck     +++| ASW5     LDN    ASWX-ASW5
02824  M01S02065.1ck     +++|          RAM    ASWD
02825  M01S02066.1ck     +++|          LDM    ASWF
02826  M01S02067.1ck     +++|          STM    ASWE
02827  M01S02068.1ck     +++|          LDK    RTCL        GET STARTING TIME
02828  M01S02069.1ck     +++|          CRD    ES
Line S02070 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02829  M02S02070.271l716 ---|          UJN    ASW0        SCAN CONTROL POINTS
02830  M01S00019.271l716 +++|          UJN    ASW1        SCAN CONTROL POINTS
02831  M01S02071.1ck     +++|
02832  M01S02072.1ck     +++| ASW6     RJM    CSC         CHANGE TO SYSTEM CP
02833  M01S02073.1ck     +++|          RJM    DEL         DELAY FOR 50 MS
02834  M01S02074.1ck     +++| ASW7     RJM    CET         COMPUTE ELAPSED TIME
Line S02075 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02835  M02S02075.271l716 ---|          MJN    ASW0        IF NOT TIMEOUT
02836  M01S00020.271l716 +++|          MJN    ASW1        IF NOT TIMEOUT
02837  M01S02076.1ck     +++|
02838  M01S02077.1ck     +++| ASW      SUBR               ENTRY/EXIT
Line S02078 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02839  M02S02078.271l716 ---| ASW0     LDD    NC
Line S02079 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02840  M02S02079.271l716 ---|          STD    T7
Line S02080 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02841  M02S02080.271l716 ---|          UJN    ASW2        ENTER LOOP
Line S02081 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02842  M02S02081.271l716 ---|
Line S02082 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02843  M02S02082.271l716 ---| ASW1     RJM    CSC         CHANGE TO SYSTEM CP
02844  M01S00021.271l716 +++| ASW1     LDN    0           INITIALIZE CP NUMBER
02845  M01S00022.271l716 +++|          STD    T7
02846  M01S02083.1ck     +++| ASW2     RJM    FJO         FIND JOB
02847  M01S02084.1ck     +++|          ZJN    ASW5        IF SCAN COMPLETE
02848  M01S02085.1ck     +++|*         ZJN    ASWX        (AFTER FIRST CP SCAN)
02849  M01S02086.1ck     +++| ASWD     EQU    *-1
02850  M01S02087.1ck     +++|          LCN    1
02851  M01S02088.1ck     +++|          STD    T1
02852  M01S02089.1ck     +++| ASW3     LDN    2
02853  M01S02090.1ck     +++|          RAD    T1
02854  M01S02091.1ck     +++|          LDM    ASWB,T1
Line S02092 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02855  M02S02092.271l716 ---|          ZJN    ASW1        IF END OF LIST
02856  M01S00023.271l716 +++|          ZJN    ASW2        IF END OF LIST
02857  M01S02093.1ck     +++|          LMD    CN+2
02858  M01S02094.1ck     +++|          NJN    ASW3        IF NOT SELECTED SUBSYSTEM
02859  M01S00024.271l716 +++|          RJM    CCP         CHANGE CONTROL POINT ASSIGNMENT
02860  M01S00025.271l716 +++|          ZJN    ASW2        IF JOB GONE
02861  M01S02095.1ck     +++|          LDM    ASWB+1,T1
02862  M01S02096.1ck     +++|*         UJN    ASW6        (AFTER FIRST CP SCAN)
02863  M01S02097.1ck     +++| ASWE     EQU    *-2
02864  M01S02098.1ck     +++|          ZJN    ASW4        IF NO SENSE SWITCHES TO CHANGE
02865  M01S02099.1ck     +++|          SCN    77
02866  M01S02100.1ck     +++|          STM    ASWA        SET SWITCH MASK
02867  M01S02101.1ck     +++|          LDM    ASWB+1,T1
02868  M01S02102.1ck     +++|          SHN    6
02869  M01S02103.1ck     +++|          STM    ASWB+1,T1   ISOLATE SWITCHES TO SET
02870  M01S02104.1ck     +++|          LDD    T7          SET SENSE SWITCHES
02871  M01S02105.1ck     +++|          SHN    7
02872  M01S02106.1ck     +++|          ADN    SNSW
02873  M01S02107.1ck     +++|          CRD    CM
02874  M01S02108.1ck     +++|          LDD    CM+4
02875  M01S02109.1ck     +++|          LPC    **          PRESERVE SELECTED SWITCHES
02876  M01S02110.1ck     +++| ASWA     EQU    *-1
02877  M01S02111.1ck     +++|          LMM    ASWB+1,T1   SET SELECTED SWITHES
02878  M01S02112.1ck     +++|          STD    CM+4
02879  M01S02113.1ck     +++|          LDD    T7
02880  M01S02114.1ck     +++|          SHN    7
02881  M01S02115.1ck     +++|          ADN    SNSW
02882  M01S02116.1ck     +++|          CWD    CM
02883  M01S02117.1ck     +++| ASW4     LDN    ODET        ABORT SUBSYSTEM
02884  M01S02118.1ck     +++|          STD    CM+1
02885  M01S02119.1ck     +++|          MONITOR  CEFM
02886  M01S02120.1ck     +++|          LDC    ASWC        * SYSTEM CHECKPOINT ABORT.*
02887  M01S02121.1ck     +++|          RJM    DFM
Line S02122 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02888  M02S02122.271l716 ---|          LJM    ASW1        LOOP
02889  M01S00026.271l716 +++|          RJM    CSC         CHANGE TO SYSTEM CP
02890  M01S00027.271l716 +++|          LJM    ASW2        FIND NEXT JOB
02891  M01S02123.1ck     +++|
02892  M01S02124.1ck     +++|**        TABLE OF SENSE SWITCHES TO CLEAR/SET ON SUBSYSTEMS.
02893  M01S02125.1ck     +++|*
02894  M01S02126.1ck     +++|*T ASWB   12/ ID, 6/ MSK, 6/ SET
Figure ASWB

056111223 SET MSK ID

02895  M01S02127.1ck     +++|*
02896  M01S02128.1ck     +++|*         ID = SUBSYSTEM ID.
02897  M01S02129.1ck     +++|*         MSK = SENSE SWITCH MASK - SEE NOTE.
02898  M01S02130.1ck     +++|*         SET = SENSE SWITCHES TO SET.
02899  M01S02131.1ck     +++|*
02900  M01S02132.1ck     +++|*         NOTE - *MSK* MUST INCLUDE SWITCHES WHICH WILL BE SET AS WELL
02901  M01S02133.1ck     +++|*         AS SWITCHES TO BE CLEARED. OTHERWISE, *SET* WILL CAUSE
02902  M01S02134.1ck     +++|*         SWITCHES TO BE TOGGLED.
02903  M01S02135.1ck     +++|
02904  M01S02136.1ck     +++| ASWB     BSS    0
02905  M01S02137.1ck     +++|          VFD    12/IFSI     IAF
02906  M01S02138.1ck     +++|          VFD    6/56        CLEAR SWITCHES 5 AND 1
02907  M01S02139.1ck     +++|          VFD    6/1         SET SWITCH 1
02908  M01S02140.1ck     +++|          CON    0           END OF LIST
02909  M01S02141.1ck     +++|
02910  M01S02142.1ck     +++| ASWC     DATA   C* SYSTEM CHECKPOINT ABORT.*
02911  M01S02143.1ck     +++|
02912  M01S02144.1ck     +++| ASWF     BSS    0
02913  M01S02145.1ck     +++|          LOC    ASWE
02914  M01S02146.1ck     +++|          UJN    ASW6        CONTINUE
02915  M01S02147.1ck     +++|          LOC    *O
02916  M01S00001.273l780 +++| CCA      SPACE  4,10
02917  M01S00002.273l780 +++|**        CCA - COMPUTE CPA/PCPA ADDRESS.
02918  M01S00003.273l780 +++|*
02919  M01S00004.273l780 +++|*         ENTRY  (A) = CP/PCP NUMBER.
02920  M01S00005.273l780 +++|*                (NC) = NUMBER OF CONTROL POINTS.
02921  M01S00006.273l780 +++|*
02922  M01S00007.273l780 +++|*         EXIT   (A) = CPA/PCPA ADDRESS.
02923  M01S00008.273l780 +++|
02924  M01S00009.273l780 +++|
02925  M01S00010.273l780 +++| CCA1     ADD    NC
02926  M01S00011.273l780 +++|          SHN    7
02927  M01S00012.273l780 +++|
02928  M01S00013.273l780 +++| CCA      SUBR               ENTRY/EXIT
02929  M01S00014.273l780 +++|          SBD    NC
02930  M01S00015.273l780 +++|          MJN    CCA1        IF CONTROL POINT
02931  M01S00016.273l780 +++|          ZJN    CCA1        IF SYSTEM CONTROL POINT
02932  M01S00017.273l780 +++|          SHN    7
02933  M01S00018.273l780 +++| CCAA     ADC    **          (PCP AREAS BASE ADDRESS)
02934  M01S00019.273l780 +++|          UJN    CCAX        RETURN
02935  M01S00028.271l716 +++| CCP      SPACE  4,10
02936  M01S00029.271l716 +++|**        CCP - CHANGE CONTROL POINT ASSIGNMENT.
02937  M01S00030.271l716 +++|*
02938  M01S00031.271l716 +++|*         ENTRY  (T7) = CONTROL POINT NUMBER.
02939  M01S00032.271l716 +++|*
02940  M01S00033.271l716 +++|*         EXIT   (A) = EJT ORDINAL IF CHANGE MADE.
02941  M01S00034.271l716 +++|*                    = 0 IF JOB GONE.
02942  M01S00035.271l716 +++|*
02943  M01S00036.271l716 +++|*         USES   CM - CM+4, CN - CN+4.
02944  M01S00037.271l716 +++|*
02945  M01S00038.271l716 +++|*         CALLS  DEL.
02946  M01S00039.271l716 +++|*
02947  M01S00040.271l716 +++|*         MACROS MONITOR.
02948  M01S00041.271l716 +++|
02949  M01S00042.271l716 +++|
02950  M01S00043.271l716 +++| CCP2     LDD    CN
02951  M01S00044.271l716 +++|
02952  M01S00045.271l716 +++| CCP      SUBR               ENTRY/EXIT
02953  M01S00046.271l716 +++| CCP1     LDD    T7
02954  M01S00047.271l716 +++|          STD    CM+1
02955  M01S00048.271l716 +++|          MONITOR  CCAM
02956  M01S00049.271l716 +++|          LDD    T7
02957  M01S00050.271l716 +++|          SHN    7
02958  M01S00051.271l716 +++|          ADK    TFSW
02959  M01S00052.271l716 +++|          CRD    CN
02960  M01S00053.271l716 +++|          LDD    CN
02961  M01S00054.271l716 +++|          ZJN    CCPX        IF JOB GONE
02962  M01S00055.271l716 +++|          LDD    CM+1
02963  M01S00056.271l716 +++|          ZJN    CCP2        IF CHANGE MADE
02964  M01S00057.271l716 +++|          RJM    DEL         DELAY FOR 5O MS
02965  M01S00058.271l716 +++|          UJN    CCP1        RETRY
02966  M01S02148.1ck     +++| CCS      SPACE  4,20
02967  M01S02149.1ck     +++|**        CCS - COMPUTE CHECKPOINT FILE SIZE.
02968  M01S02150.1ck     +++|*
02969  M01S02151.1ck     +++|*         COMPUTE CHECKPOINT FILE SIZE BASED ON THE
02970  M01S02152.1ck     +++|*         FOLLOWING FORMULA -
02971  M01S02153.1ck     +++|*
02972  M01S02154.1ck     +++|*           SECTORS = (CMR + TOTAL UEM - USER UEM
02973  M01S02155.1ck     +++|*                + 1/2 (RPL + RCL + PLD))/100B
02974  M01S02156.1ck     +++|*
Line S02157 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
02975  M02S02157.1ck11   ---|*         USES   T8, T9, CM - CM+4, CN - CN+4, ES - ES+4,
Line S02158 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
02976  M02S02158.1ck11   ---|*                T0 - T5.
02977  M01S00025.1ck11   +++|*         ERROR  TO *DPP* IF CHECKPOINT FILE TOO LARGE.
02978  M01S02159.1ck     +++|*
Line S02160 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
02979  M02S02160.1ck11   ---|*         MACROS MONITOR.
02980  M01S00026.1ck11   +++|*         USES   T8, T9, CM - CM+4, CN - CN+4, ES - ES+4, T0 - T0+4.
02981  M01S00027.1ck11   +++|*
02982  M01S00028.1ck11   +++|*         CALLS  DFM.
02983  M01S02161.1ck     +++|
02984  M01S02162.1ck     +++|
02985  M01S02163.1ck     +++| CCS      SUBR               ENTRY/EXIT
Line S02164 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02986  M02S02164.252l678 ---|          LDK    ECRL        GET USER UEM SIZE
Line S02165 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02987  M02S02165.252l678 ---|          CRD    T0
Line S02166 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02988  M02S02166.252l678 ---|          ADK    MEFL-ECRL   GET TOTAL UEM SIZE
Line S02167 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02989  M02S02167.252l678 ---|          CRD    ES
Line S02168 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02990  M02S02168.252l678 ---|          ADK    RPLP-MEFL   GET RPL FWA
02991  M01S00088.252l678 +++|          LDK    RPLP        GET RPL FWA
02992  M01S02169.1ck     +++|          CRD    CM
02993  M01S02170.1ck     +++|          ADK    PSTP-RPLP   GET LWA+1 OF PLD
02994  M01S02171.1ck     +++|          CRD    CN
02995  M01S02172.1ck     +++|          LDD    CN+2        COMPUTE 1/2 * (RPL + RCL + PLD)/100B
02996  M01S02173.1ck     +++|          SBD    CM
02997  M01S02174.1ck     +++|          SHN    14
02998  M01S02175.1ck     +++|          ADD    CN+3
02999  M01S02176.1ck     +++|          SBD    CM+1
03000  M01S02177.1ck     +++|          SHN    -6-1        1/2 * (RPL + RCL + PLD)/100B
03001  M01S02178.1ck     +++|          STD    T9
03002  M01S02179.1ck     +++|          SHN    -14
03003  M01S02180.1ck     +++|          STD    T8
03004  M01S02181.1ck     +++|
03005  M01S02182.1ck     +++|*         ADD (TOTAL UEM - USER UEM)/100B.
03006  M01S02183.1ck     +++|
Line S02184 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03007  M02S02184.252l678 ---|          UJN    CCS1        (AVOID UEM COMPUTATION)
Line S02185 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03008  M02S02185.252l678 ---|*         LDD    ES+3        (UEM PRESENT)
Line S02186 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03009  M02S02186.252l678 ---| CCSA     EQU    *-1
Line S02187 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03010  M02S02187.252l678 ---|          SBD    T0+2
Line S02188 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03011  M02S02188.252l678 ---|          SHN    3           (TOTAL UEM - USER UEM)/100B
03012  M01S00089.252l678 +++|          LDM    UCPA        MST ADDRESS FOR UEM
Line S00090 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03013  M02S00090.1ck11   ---|          ZJN    CCS1        IF NO USER EM IN UEM
03014  M01S00029.1ck11   +++|          ZJN    CCS1        IF NO EST ENTRY FOR UEM
03015  M01S00091.252l678 +++|          SHN    3           GET TOTAL UEM SIZE
03016  M01S00092.252l678 +++|          ADK    TDGL
03017  M01S00093.252l678 +++|          CRD    ES
03018  M01S00094.252l678 +++|          LDK    ECRL        GET USER UEM SIZE
03019  M01S00095.252l678 +++|          CRD    T0
Line S00096 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03020  M02S00096.1ck11   ---|          LDD    T0+1        CONVERT TO 1000 WORD BLOCKS
Line S00097 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03021  M02S00097.1ck11   ---| CCSA     SHN    0
Line S00098 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03022  M02S00098.1ck11   ---|*         SHN    UESC
Line S00099 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03023  M02S00099.1ck11   ---|          STD    CM+1
Line S00100 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03024  M02S00100.1ck11   ---|          SHN    -14
Line S00101 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03025  M02S00101.1ck11   ---|          STD    CM
03026  M01S00102.252l678 +++|          AOD    ES          UEM TRACKS
03027  M01S00103.252l678 +++|          SHN    6
03028  M01S00104.252l678 +++|          ADD    ES          TRACKS * 101
Line S00105 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03029  M02S00105.1ck11   ---| CCSB     SHN    0
Line S00106 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03030  M02S00106.1ck11   ---|*         SHN    EMSC        ADJUST TRACK SIZE BY BLOCKING FACTOR
Line S00107 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03031  M02S00107.1ck11   ---|          ADN    3           ROUND UP
Line S00108 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03032  M02S00108.1ck11   ---|          SHN    -2          TOTAL SECTORS OF UEM
Line S00109 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03033  M02S00109.1ck11   ---|          SHN    21-2
Line S00110 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03034  M02S00110.1ck11   ---|          SBD    CM+1
Line S00111 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03035  M02S00111.1ck11   ---|          STD    CM+1
Line S00112 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03036  M02S00112.1ck11   ---|          SHN    -14
Line S00113 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03037  M02S00113.1ck11   ---|          SBD    CM
Line S00114 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03038  M02S00114.1ck11   ---|          SHN    14
Line S00115 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03039  M02S00115.1ck11   ---|          ADD    CM+1
Line S00116 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03040  M02S00116.1ck11   ---|          SBD    T0+2        SUBTRACT SECTORS OF USER EXTENDED MEMORY
Line S00117 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03041  M02S00117.1ck11   ---|          SHN    3
03042  M01S00030.1ck11   +++| CCSB     ADN    **          ROUND UP
03043  M01S00031.1ck11   +++|*         ADN    3           (TRACK SHIFT COUNT = 0)
03044  M01S00032.1ck11   +++|*         ADN    1           (TRACK SHIFT COUNT = 1)
03045  M01S00033.1ck11   +++|*         ADN    0           (TRACK SHIFT COUNT .GE. 2)
03046  M01S00034.1ck11   +++| CCSC     SHN    **          TOTAL NUMBER OF SECTORS IN UEM
03047  M01S00035.1ck11   +++|*         SHN    EMSC-2
03048  M01S00036.1ck11   +++| CCSD     SHN    **-3+22     CONVERT TO *USER EM* SIZED BLOCKS
03049  M01S00037.1ck11   +++|*         SHN    -UESC-3+22
03050  M01S00038.1ck11   +++|          SBD    T0+1        SUBTRACT NUMBER OF *USER EM* BLOCKS
03051  M01S00039.1ck11   +++| CCSE     SHN    **+3        CONVERT TO SECTORS
03052  M01S00040.1ck11   +++|*         SHN    UESC+3
03053  M01S02189.1ck     +++|          RAD    T9
03054  M01S02190.1ck     +++|          SHN    -14
03055  M01S02191.1ck     +++|          RAD    T8
03056  M01S02192.1ck     +++|
03057  M01S02193.1ck     +++|*         ADD CMR SIZE/100B.
03058  M01S02194.1ck     +++|
03059  M01S02195.1ck     +++| CCS1     LDK    CMRL
03060  M01S02196.1ck     +++|          CRD    CM
03061  M01S02197.1ck     +++|          LDD    CM+4
03062  M01S02198.1ck     +++|          RAD    T9
03063  M01S02199.1ck     +++|          STM    ACFA
03064  M01S02200.1ck     +++|          SHN    -14
03065  M01S02201.1ck     +++|          RAD    T8
Line S02202 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03066  M02S02202.252l678 ---|          SCN    37
03067  M01S00118.252l678 +++|          SCN    77
03068  M01S02203.1ck     +++|          ZJN    CCS2        IF SECTOR COUNT NOT TOO LARGE
03069  M01S02204.1ck     +++|          LDC    ABTB        * CHECKPOINT ABORTED.*
03070  M01S02205.1ck     +++|          RJM    DFM
03071  M01S02206.1ck     +++|          LJM    DPP         DROP PP
03072  M01S02207.1ck     +++|
03073  M01S02208.1ck     +++| CCS2     LDD    T8          SET HIGH BYTE OF SECTOR COUNT
03074  M01S02209.1ck     +++|          RAM    ACFA-1
03075  M01S02210.1ck     +++|          LJM    CCSX        RETURN
03076  M01S02211.1ck     +++| CET      SPACE  4,10
03077  M01S02212.1ck     +++|**        CET - COMPUTE ELAPSED TIME.
03078  M01S02213.1ck     +++|*
03079  M01S02214.1ck     +++|*         ENTRY  (ES - ES+4) = *RTCL*.
03080  M01S02215.1ck     +++|*
03081  M01S02216.1ck     +++|*         EXIT   (A) .GE. 0  IF TIMEOUT.
03082  M01S02217.1ck     +++|*
03083  M01S02218.1ck     +++|*         USES   CM - CM+4.
03084  M01S02219.1ck     +++|
03085  M01S02220.1ck     +++|
03086  M01S02221.1ck     +++| CET      SUBR               ENTRY/EXIT
03087  M01S02222.1ck     +++|          LDK    RTCL
03088  M01S02223.1ck     +++|          CRD    CM
03089  M01S02224.1ck     +++|          LDD    CM+1
03090  M01S02225.1ck     +++|          SBD    ES+1
03091  M01S02226.1ck     +++|          PJN    CET1        IF NO ROLLOVER
03092  M01S02227.1ck     +++|          ADC    10000
03093  M01S02228.1ck     +++| CET1     SBK    MXTT
03094  M01S02229.1ck     +++|          UJN    CETX        RETURN
03095  M01S02230.1ck     +++| CSC      SPACE  4,10
03096  M01S02231.1ck     +++|**        CSC - CHANGE TO SYSTEM CONTROL POINT.
03097  M01S02232.1ck     +++|*
03098  M01S02233.1ck     +++|*         ENTRY  (NC) = SYSTEM CONTROL POINT NUMBER.
03099  M01S02234.1ck     +++|*
03100  M01S02235.1ck     +++|*         EXIT   (A) = 0.
03101  M01S02236.1ck     +++|*
03102  M01S02237.1ck     +++|*         USES   CM+1.
03103  M01S02238.1ck     +++|*
03104  M01S02239.1ck     +++|*         MACROS MONITOR.
03105  M01S02240.1ck     +++|
03106  M01S02241.1ck     +++|
03107  M01S02242.1ck     +++| CSC      SUBR               ENTRY/EXIT
03108  M01S02243.1ck     +++|          LDD    NC
03109  M01S02244.1ck     +++|          STD    CM+1
03110  M01S02245.1ck     +++|          MONITOR  CCAM
03111  M01S02246.1ck     +++|          UJN    CSCX        RETURN
03112  M01S02247.1ck     +++| CSS      SPACE  4,10
03113  M01S02248.1ck     +++|**        CSS - CHECK FOR SPECIAL SUBSYSTEM.
03114  M01S02249.1ck     +++|*
03115  M01S02250.1ck     +++|*         ENTRY  (CN+2) = BYTE 2 OF WORD *JCIW*.
03116  M01S02251.1ck     +++|*
03117  M01S02252.1ck     +++|*         EXIT   (A) .NE. 0 IF SPECIAL SUBSYSTEM.
03118  M01S02253.1ck     +++|*                    .EQ. 0 OTHERWISE.
03119  M01S02254.1ck     +++|*
03120  M01S02255.1ck     +++|*         USES   T1.
03121  M01S02256.1ck     +++|
03122  M01S02257.1ck     +++|
03123  M01S02258.1ck     +++| CSS      SUBR               ENTRY/EXIT
03124  M01S02259.1ck     +++|          LCN    1
03125  M01S02260.1ck     +++|          STD    T1
03126  M01S02261.1ck     +++| CSS1     AOD    T1          INCREMENT INDEX
03127  M01S02262.1ck     +++|          LDM    CSSA,T1
03128  M01S02263.1ck     +++|          ZJN    CSSX        IF END OF SPECIAL SUBSYSTEMS
03129  M01S02264.1ck     +++|          LMD    CN+2
03130  M01S02265.1ck     +++|          NJN    CSS1        IF NOT THIS SPECIAL SUBSYSTEM
03131  M01S02266.1ck     +++|          LDN    1
03132  M01S02267.1ck     +++|          UJN    CSSX        RETURN WITH SPECIAL SUBSYSTEM
03133  M01S02268.1ck     +++|
03134  M01S02269.1ck     +++| CSSA     BSS    0
03135  M01S02270.1ck     +++|          LIST   D
03136  M01S02271.1ck     +++| .SUB     HERE
03137  M01S02272.1ck     +++|          LIST   *
03138  M01S02273.1ck     +++|          CON    0           END OF TABLE
03139  M01S02274.1ck     +++| DEL      SPACE  4,10
03140  M01S02275.1ck     +++|**        DEL - DELAY.
03141  M01S02276.1ck     +++|
03142  M01S02277.1ck     +++|
03143  M01S02278.1ck     +++| DEL      SUBR               ENTRY/EXIT
03144  M01S02279.1ck     +++|          DELAY  64D*8D      DELAY 64 MILLISECONDS
03145  M01S02280.1ck     +++|          UJN    DELX        RETURN
03146  M01S02281.1ck     +++| DRJ      SPACE  4,15
03147  M01S02282.1ck     +++|**        DRJ - DISPOSE OF REMAINING JOBS.
03148  M01S02283.1ck     +++|*
03149  M01S02284.1ck     +++|*         THIS ROUTINE ABORTS JOBS STILL AT CONTROL POINT THAT ARE
03150  M01S02285.1ck     +++|*         NOT IN THE PROCESS OF ROLLING.  ONLY THOSE SUBSYSTEMS THAT
03151  M01S02286.1ck     +++|*         MAY BE NEEDED FOR JOB TERMINATION ARE LEFT UNAFFECTED.
03152  M01S02287.1ck     +++|*
Line S02288 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03153  M02S02288.271l716 ---|*         ENTRY  (NC) = NUMBER OF CONTROL POINTS.
Line S02289 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03154  M02S02289.271l716 ---|*
Line S02290 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03155  M02S02290.271l716 ---|*         USES   T1, T7, CM+1.
Line S02291 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03156  M02S02291.271l716 ---|*
Line S02292 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03157  M02S02292.271l716 ---|*         CALLS  CSC, CSS, DFM, FJO.
Line S02293 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03158  M02S02293.271l716 ---|*
Line S02294 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03159  M02S02294.271l716 ---|*         MACROS MONITOR.
03160  M01S00059.271l716 +++|*         ENTRY  (A) = 0.
03161  M01S00060.271l716 +++|*
03162  M01S00061.271l716 +++|*         USES   T7, CM - CM+7.
03163  M01S00062.271l716 +++|*
03164  M01S00063.271l716 +++|*         CALLS  CSS, DFM, FJO.
03165  M01S00064.271l716 +++|*
03166  M01S00065.271l716 +++|*         MACROS MONITOR, SFA.
03167  M01S02295.1ck     +++|
03168  M01S02296.1ck     +++|
03169  M01S02297.1ck     +++| DRJ      SUBR               ENTRY/EXIT
Line S02298 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03170  M02S02298.271l716 ---|          LDD    NC
03171  M01S00066.271l716 +++|*         LDN    0
03172  M01S02299.1ck     +++|          STD    T7
03173  M01S02300.1ck     +++| DRJ1     RJM    FJO         FIND JOB
03174  M01S02301.1ck     +++|          ZJN    DRJX        IF NO MORE JOBS
03175  M01S02302.1ck     +++|          RJM    CSS         CHECK FOR SPECIAL SUBSYSTEM
03176  M01S00067.271l716 +++|          NJN    DRJ1        IF SPECIAL SUBSYSTEM
Line S02303 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03177  M02S02303.271l716 ---|          ZJN    DRJ3        IF NOT SPECIAL SUBSYSTEM
Line S02304 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03178  M02S02304.271l716 ---| DRJ2     RJM    CSC         CHANGE TO SYSTEM CP
Line S02305 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03179  M02S02305.271l716 ---|          UJN    DRJ1        GET NEXT JOB
Line S02306 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03180  M02S02306.271l716 ---|
Line S02307 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03181  M02S02307.271l716 ---| DRJ3     LDN    SSET        ABORT JOB
03182  M01S00068.271l716 +++|          LDC    4000+SSET   ABORT JOB
03183  M01S02308.1ck     +++|          STD    CM+1
03184  M01S00069.271l716 +++|          LDD    CA          STORE EJT ORDINAL IN *CEFM* REQUEST
03185  M01S00070.271l716 +++|          STD    CM+2
03186  M01S00071.271l716 +++|          SFA    EJT         STORE JSN IN *CEFM* REQUEST
03187  M01S00072.271l716 +++|          ADK    JSNE
03188  M01S00073.271l716 +++|          CRD    CM+3
03189  M01S02309.1ck     +++|          MONITOR CEFM
Line S02310 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03190  M02S02310.271l716 ---|          LDC    ASWC        *SYSTEM CHECKPOINT ABORT.*
Line S02311 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03191  M02S02311.271l716 ---|          RJM    DFM
Line S02312 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03192  M02S02312.271l716 ---|          UJN    DRJ2        CHANGE BACK TO SYSTEM CP
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/1ck.002.txt ยท Last modified: by 127.0.0.1