Deck 1CK Part 001

24 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01346  M00S00845.1ck     +++|          SPACE  4,10
Line S00846 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01347  M01S00846.253l688 ---|          ORG    //PRS+5
Line S00107 Modification History
M01 (Added by) 253l688
M02 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01348  M02S00107.1ck11   ---|          ORG    //PRS5+5
Line S00016 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01349  M01S00016.1ck11   +++|          ORG    OVLA
01350  M00S00847.1ck     +++|          SPACE  4,10
01351  M00S00848.1ck     +++|*         COMMON DECKS.
01352  M00S00849.1ck     +++|
01353  M00S00850.1ck     +++|
01354  M00S00851.1ck     +++| SUB$     EQU    1           ASSEMBLE *SUBSYST* MACRO
Line S00001 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01355  M01S00001.271l716 +++| QUAL$    EQU    1           AVOID COMMON DECK QUALIFICATION
Line S00002 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01356  M02S00002.273l780 ---| CPA$     EQU    1           SELECT CPA/PCPA ACCESS
01357  M02S00003.273l780 ---| IPC$     EQU    1           SELECT *COMPPCP* INITIALIZATION
01358  M02S00004.273l780 ---|*CALL     COMSPCP
01359  M00S00852.1ck     +++|*CALL     COMSSSD
01360  M00S00853.1ck     +++|          SPACE  4,10
01361  M00S00854.1ck     +++|
01362  M00S00855.1ck     +++| ENT      SUBR               ENTRY
Line S00856 Modification History
M01 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01363  M01S00856.1ck11   ---|          LDC    *
01364  M01S00857.1ck11   ---|          ORG    *-1
01365  M01S00858.1ck11   ---|          LOC    SMDA
01366  M01S00859.1ck11   ---|          UJN    SMD4        CHECKPOINT REQUESTED FLAG IMMATERIAL
01367  M01S00860.1ck11   ---|          LOC    *O
01368  M01S00861.1ck11   ---|          STM    SMDA
Line S00021 Modification History
M01 (Added by) 243l647
M02 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01369  M02S00021.1ck11   ---|          LDD    NC          SET CONTROL POINT NUMBER IN *1MB* CALL
01370  M02S00022.1ck11   ---|          RAM    SCKE+1
01371  M02S00023.1ck11   ---|          LDD    IR+3        SET *1MB* FUNCTION CODE
01372  M02S00024.1ck11   ---|          STM    SCKE+2
Line S00862 Modification History
M01 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01373  M01S00862.1ck11   ---|          LDC    *
01374  M01S00863.1ck11   ---|          ORG    *-1
01375  M01S00864.1ck11   ---|          LOC    SMDB
01376  M01S00865.1ck11   ---|          UJN    SMD6        SKIP UTILITY INTERLOCK
01377  M01S00866.1ck11   ---|          LOC    *O
01378  M01S00867.1ck11   ---|          STM    SMDB
Line S00002 Modification History
M01 (Added by) 252l678
M02 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01379  M02S00002.1ck11   ---|          LDK    MEFL        GET TRACK SHIFT COUNT AND USER EM SHIFT
01380  M02S00003.1ck11   ---|          CRD    CM
01381  M02S00004.1ck11   ---|          LDD    CM+2        TRACK SHIFT COUNT (EMSC)
01382  M02S00005.1ck11   ---|          SHN    -5
01383  M02S00006.1ck11   ---|          LPN    3
01384  M02S00007.1ck11   ---|          STD    T1
01385  M02S00008.1ck11   ---|          RAM    CCSB
01386  M02S00009.1ck11   ---|          LDD    T1
01387  M02S00010.1ck11   ---|          RAM    CUAB
01388  M02S00011.1ck11   ---|          LDD    T1
01389  M02S00012.1ck11   ---|          RAM    CUAA
01390  M02S00013.1ck11   ---|          LDD    CM+2        USER SHIFT COUNT (UESC)
01391  M02S00014.1ck11   ---|          SHN    -11
01392  M02S00015.1ck11   ---|          STD    T2
01393  M02S00016.1ck11   ---|          RAM    CCSA
01394  M02S00017.1ck11   ---|          LDD    T2
01395  M02S00018.1ck11   ---|          SBD    T1
01396  M02S00019.1ck11   ---|          RAM    UCPB
Line S00017 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01397  M01S00017.1ck11   +++|          RJM    PRS         PRESET
01398  M00S00868.1ck     +++|          LJM    0,PA        PROCESS SELECTED FUNCTION
Line S00018 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01399  M01S00018.1ck11   +++|          TITLE  MAIN ROUTINES.
01400  M00S00869.1ck     +++| DSC      SPACE  4,10
Line S00870 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01401  M01S00870.ns2780  ---|**        DSC - DEAD START CHECKPOINT.
Line S00232 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01402  M01S00232.ns2780  +++|**        FUNCTION 0.
01403  M01S00233.ns2780  +++|*         DEAD START CHECKPOINT.
01404  M00S00871.1ck     +++|
01405  M00S00872.1ck     +++|
Line S00873 Modification History
M01 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01406  M01S00873.1ck11   ---| DSC      RJM    PRS         PRESET
Line S00019 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01407  M01S00019.1ck11   +++| DSC      BSS    0           ENTRY
01408  M00S00874.1ck     +++|          RJM    CCS         COMPUTE CHECKPOINT FILE SIZE
01409  M00S00875.1ck     +++| DSC1     RJM    SMD         SELECT MASS STORAGE DEVICE
01410  M00S00876.1ck     +++|          ZJN    DSC5        IF NO DEVICES REMAIN
01411  M00S00877.1ck     +++|          LDD    ES
01412  M00S00878.1ck     +++|          SHN    21-2
01413  M00S00879.1ck     +++|          PJN    DSC2        IF NOT CHECKPOINT DEVICE
01414  M00S00880.1ck     +++|          RJM    ACF         ALLOCATE CHECKPOINT FILE
01415  M00S00881.1ck     +++|          RJM    WST         WRITE SYSTEM TABLES
01416  M00S00882.1ck     +++|          UJN    DSC4        CHECKPOINT DEVICE
01417  M00S00883.1ck     +++|
01418  M00S00884.1ck     +++| DSC2     RJM    CAD         CHECK ACTIVE DAYFILES
01419  M00S00885.1ck     +++|          ZJN    DSC3        IF NO ACTIVE DAYFILES ON DEVICE
01420  M00S00886.1ck     +++|          RJM    WLA         WRITE LOCAL AREA
01421  M00S00887.1ck     +++|          UJN    DSC4        CHECKPOINT DEVICE
01422  M00S00888.1ck     +++|
01423  M00S00889.1ck     +++| DSC3     LDD    FS
01424  M00S00890.1ck     +++|          LPN    MLCKP
01425  M00S00891.1ck     +++|          ZJN    DSC1        IF CHECKPOINT NOT REQUESTED
Line S00003 Modification History
M01 (Added by) 1ck7
Seq #  *Modification Id* Act 
----------------------------+
01426  M01S00003.1ck7    +++|          ERRNZ  EPNR-1      CODE DEPENDS ON VALUE
01427  M01S00004.1ck7    +++|          AOM    UERR        SET *RETURN ON NOT READY* FLAG
01428  M00S00892.1ck     +++| DSC4     RJM    WTT         WRITE TRT
Line S00234 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01429  M01S00234.ns2780  +++|          RJM    FIB         FLUSH I/O BUFFERS
01430  M00S00893.1ck     +++|          RJM    CIL         CLEAR INTERLOCKS
01431  M00S00894.1ck     +++|          UJN    DSC1        SELECT NEXT DEVICE
01432  M00S00895.1ck     +++|
01433  M00S00896.1ck     +++| DSC5     LDN    JSCL        READ SCHEDULER CONTROL
01434  M00S00897.1ck     +++|          CRD    CM
01435  M00S00898.1ck     +++|          LDD    CM          CLEAR SCHEDULER ACTIVE
01436  M00S00899.1ck     +++|          LPC    3777
01437  M00S00900.1ck     +++|          STD    CM
01438  M00S00901.1ck     +++|          LDN    JSCL        STORE SCHEDULER CONTROL
01439  M00S00902.1ck     +++|          CWD    CM
Line S00005 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01440  M01S00005.271l716 +++|          LDD    MA
01441  M01S00006.271l716 +++|          CWM    DSCA,ON
01442  M01S00007.271l716 +++|          LDN    0           CLEAR DROP PP OPTION
01443  M01S00008.271l716 +++|          STD    CM+1
01444  M01S00009.271l716 +++|          MONITOR  RPPM      CALL *1PP*
01445  M00S00903.1ck     +++|          LJM    DPP         DROP PP
Line S00010 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01446  M01S00010.271l716 +++|
01447  M01S00011.271l716 +++|
01448  M01S00012.271l716 +++| DSCA     VFD    18/3L1PP,42/0
01449  M00S00904.1ck     +++| SCK      SPACE  4,10
Line S00905 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01450  M01S00905.ns2780  ---|**        SCK - SYSTEM AND ALTERNATE LIBRARY CHECKPOINT.
Line S00235 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01451  M01S00235.ns2780  +++|**        FUNCTIONS 1, 3, 10 AND 13.
01452  M01S00236.ns2780  +++|*         SYSTEM CHECK POINT.
01453  M01S00237.ns2780  +++|*         ALTERNATE LIBRARY CHECKPOINT.
01454  M01S00238.ns2780  +++|*         IDLE SYSTEM CHECKPOINT.
01455  M01S00239.ns2780  +++|*         LONG POWER WARNING CHECKPOINT.
01456  M00S00906.1ck     +++|
01457  M00S00907.1ck     +++|
Line S00908 Modification History
M01 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01458  M01S00908.1ck11   ---| SCK      RJM    PRS         PRESET
Line S00020 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01459  M01S00020.1ck11   +++| SCK      BSS    0           ENTRY
01460  M00S00909.1ck     +++|          LDN    4
01461  M00S00910.1ck     +++|          STD    T1
01462  M00S00911.1ck     +++|          LDD    NC          WRITE MESSAGE AT SYSTEM CONTROL POINT
01463  M00S00912.1ck     +++|          SHN    7
01464  M00S00913.1ck     +++|          ADN    MS1W
01465  M00S00914.1ck     +++|          CWM    SCKC,T1
01466  M00S00915.1ck     +++|          LDN    0           SET CHECKPOINT IN PROGRESS
01467  M00S00916.1ck     +++|          RJM    SCD
01468  M00S00917.1ck     +++|          RJM    CBD         CHECK BUFFERED DISKS
01469  M00S00918.1ck     +++|          RJM    ASW         ABORT SUBSYSTEMS REQUIRING JOB FLOW
01470  M00S00919.1ck     +++|          LDN    1
01471  M00S00920.1ck     +++|          STD    CM+1        SET NUMBER OF OPTIONS
01472  M00S00921.1ck     +++|          STD    CM+2        DO NOT DROP PPU
01473  M00S00922.1ck     +++|          LDD    MA
01474  M00S00923.1ck     +++|          CWM    SCKA,ON
01475  M00S00924.1ck     +++|          MONITOR UADM       DISABLE JOB SCHEDULING
01476  M00S00925.1ck     +++| SCK1     PAUSE  NE
01477  M00S00926.1ck     +++|          LDN    JSCL        CHECK SCHEDULER ACTIVE
01478  M00S00927.1ck     +++|          CRD    CM
01479  M00S00928.1ck     +++|          LDD    CM
01480  M00S00929.1ck     +++|          SHN    21-13
01481  M00S00930.1ck     +++|          MJN    SCK1        IF SCHEDULER ACTIVE
01482  M00S00931.1ck     +++|          LDN    1           SET *CPD* DROP FLAG
01483  M00S00932.1ck     +++|          STD    CM+1
01484  M00S00933.1ck     +++|          STD    CM+2
01485  M00S00934.1ck     +++|          LDD    MA
01486  M00S00935.1ck     +++|          CWM    SCKB,ON
01487  M00S00936.1ck     +++|          MONITOR  UADM
Line S00013 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01488  M01S00013.271l716 +++|*         LDN    0
01489  M00S00937.1ck     +++|          RJM    ROJ         ROLLOUT NON-SUBSYSTEM JOBS
Line S00014 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01490  M01S00014.271l716 +++|*         LDN    0
01491  M00S00938.1ck     +++|          RJM    DRJ         DISPOSE OF REMAINING JOBS
01492  M00S00939.1ck     +++|          RJM    WFJ         WAIT FOR JOBS TO ROLL OR TERMINATE
01493  M00S00940.1ck     +++|          RJM    FDB         FLUSH DAYFILE BUFFERS
01494  M00S00941.1ck     +++|
01495  M00S00942.1ck     +++|*         CHECKPOINT MASS STORAGE DEVICES.
01496  M00S00943.1ck     +++|
01497  M00S00944.1ck     +++| SCK2     RJM    SMD         SELECT NEXT DEVICE
01498  M00S00945.1ck     +++|          ZJN    SCK3        IF END OF MASS STORAGE DEVICES
01499  M00S00946.1ck     +++|          RJM    WTT         WRITE TRT
Line S00947 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01500  M01S00947.283l840 ---|          RJM    CDB         ENSURE BUFFER FLUSH
Line S00083 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01501  M01S00083.283l840 +++|          RJM    FIB         FLUSH I/O BUFFERS
01502  M00S00948.1ck     +++|          RJM    CIL         CLEAR INTERLOCK
01503  M00S00949.1ck     +++|          UJN    SCK2        CHECKPOINT NEXT DEVICE
01504  M00S00950.1ck     +++|
Line S00951 Modification History
M01 (Removed by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
01505  M01S00951.243l647 ---| SCK3     LDD    IR+2
01506  M01S00952.243l647 ---|          LMN    10
01507  M01S00953.243l647 ---|          ZJN    SCK7        IF IDLE SYSTEM CHECKPOINT
01508  M01S00954.243l647 ---|          LDN    NOPE-1
Line S00025 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
01509  M01S00025.243l647 +++| SCK3     LDN    NOPE-1
01510  M00S00955.1ck     +++|          STD    EI
01511  M00S00956.1ck     +++|          LDC    SCK4        SET I/O ERROR EXIT
01512  M00S00957.1ck     +++|          STM    WSEA
01513  M00S00958.1ck     +++| SCK4     RJM    SMD         SELECT NEXT DEVICE
01514  M00S00959.1ck     +++|          ZJN    SCK6        IF END OF MASS STORAGE DEVICES
01515  M00S00960.1ck     +++|
01516  M00S00961.1ck     +++|*         WRITE CHECKPOINT FILE ON EACH CHECKPOINT DEVICE.
01517  M00S00962.1ck     +++|
01518  M00S00963.1ck     +++|          LDD    ES
01519  M00S00964.1ck     +++|          SHN    21-2
01520  M00S00965.1ck     +++|          PJN    SCK4        IF NOT CHECKPOINT DEVICE
01521  M00S00966.1ck     +++|          RJM    ACF         CLEAR *VALID CHECKPOINT FILE* FLAG IN MST
01522  M00S00967.1ck     +++|
01523  M00S00968.1ck     +++|*         WRITE CHECKPOINT FILE.  ROUTINE *WST* SETS
01524  M00S00969.1ck     +++|*         *VALID CHECKPOINT FILE* FLAG IN MST TO PERMIT
01525  M00S00970.1ck     +++|*         LEVEL 3 RECOVERY FROM THAT DEVICE.
01526  M00S00971.1ck     +++|
01527  M00S00972.1ck     +++|          RJM    WST         WRITE SYSTEM TABLES
01528  M00S00973.1ck     +++|          RJM    CBD         ENSURE BUFFERS FLUSHED
01529  M00S00974.1ck     +++|          RJM    CIL         CLEAR INTERLOCKS
01530  M00S00975.1ck     +++|          UJN    SCK4        PROCESS NEXT CHECKPOINT DEVICE
01531  M00S00976.1ck     +++|
01532  M00S00977.1ck     +++| SCK6     LDD    IR+2
01533  M00S00978.1ck     +++|          LMN    3
Line S00979 Modification History
M01 (Removed by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
01534  M01S00979.ns2373  ---|          ZJN    SCK7        IF ALTERNATE LIBRARY CHECKPOINT
01535  M01S00980.ns2373  ---|          RJM    SDD         PROCESS DEVICE SPINDOWN
01536  M01S00981.ns2373  ---| SCK7     LDC    SCKD        *CHECKPOINT COMPLETE.*
Line S00001 Modification History
M01 (Added by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
01537  M01S00001.ns2373  +++| SCK7     ZJN    SCK9        IF ALTERNATE LIBRARY CHECKPOINT
01538  M01S00002.ns2373  +++|          LDN    SSTL
01539  M01S00003.ns2373  +++|          CRD    CM
01540  M01S00004.ns2373  +++|          LDD    CM          CHECK SYSTEM STATUS WORD
01541  M01S00005.ns2373  +++|          LPN    1
01542  M01S00006.ns2373  +++|          NJN    SCK9        IF SPINDOWN DISABLED
01543  M01S00007.ns2373  +++|          LDN    20          SPIN DOWN ISMD DEVICES
01544  M01S00008.ns2373  +++|          RJM    SUD
01545  M01S00009.ns2373  +++| SCK9     LDC    SCKD        *CHECKPOINT COMPLETE.*
01546  M00S00982.1ck     +++|          RJM    DFM
01547  M00S00983.1ck     +++|          LDN    1           SET CHECKPOINT COMPLETE
01548  M00S00984.1ck     +++|          RJM    SCD
01549  M00S00985.1ck     +++|          LDD    NC
01550  M00S00986.1ck     +++|          SHN    7
01551  M00S00987.1ck     +++|          ADN    MS1W
01552  M00S00988.1ck     +++|          CWM    SCKD,TR     *CHECKPOINT COMPLETE.*
01553  M00S00989.1ck     +++|          LJM    DPP
01554  M00S00990.1ck     +++|
Line S00026 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
01555  M01S00026.243l647 +++| SCK8     LDD    IA          RELOAD *1MB*
01556  M01S00027.243l647 +++|          CWM    SCKE,ON
01557  M01S00028.243l647 +++|          LJM    PPR         EXIT TO PP RESIDENT
01558  M01S00029.243l647 +++|
01559  M01S00030.243l647 +++|
01560  M00S00991.1ck     +++| SCKA     CON    LIOS        INCREMENT BY ONE
01561  M00S00992.1ck     +++|          CON    INWL        WORD ADDRESS
01562  M00S00993.1ck     +++|          CON    13D*100+1   BIT POSITION AND FIELD WIDTH
01563  M00S00994.1ck     +++|          CON    0
01564  M00S00995.1ck     +++|          CON    0
01565  M00S00996.1ck     +++|
01566  M00S00997.1ck     +++| SCKB     CON    LIOS
01567  M00S00998.1ck     +++|          CON    INWL
01568  M00S00999.1ck     +++|          CON    2*100+1
01569  M00S01000.1ck     +++|          CON    0
01570  M00S01001.1ck     +++|          CON    0
01571  M00S01002.1ck     +++|
01572  M00S01003.1ck     +++| SCKC     DATA   C*PROCESSING SYSTEM CHECKPOINT.*
01573  M00S01004.1ck     +++| SCKD     DATA   C*CHECKPOINT COMPLETE.*
Line S00031 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
01574  M01S00031.243l647 +++| SCKE     VFD    18/3L1MP,6/0,12/0,24/0
01575  M00S01005.1ck     +++|          SPACE  4
Line S01006 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01576  M01S01006.ns2780  ---|**        UPDATE LOCAL AREA SECTOR.
Line S00240 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01577  M01S00240.ns2780  +++|**        FUNCTION 4.
01578  M01S00241.ns2780  +++|*         UPDATE LOCAL AREA SECTOR.
01579  M00S01007.1ck     +++|*
01580  M00S01008.1ck     +++|*         ENTRY  (IR+3) = EQUIPMENT.
01581  M00S01009.1ck     +++|*                (IR+4) = NUMBER OF DAYFILE POINTER TO UPDATE.
01582  M00S01010.1ck     +++|
01583  M00S01011.1ck     +++|
01584  M00S01012.1ck     +++| ULA      RJM    SDP         SET DEVICE PARAMETERS
01585  M00S01013.1ck     +++|          NJN    ULA1        IF DEVICE INACCESSIBLE
01586  M00S01014.1ck     +++|          LDD    IR+4
01587  M00S01015.1ck     +++|          LPN    7
01588  M00S01016.1ck     +++|          RAM    WLAB
01589  M00S01017.1ck     +++|          RJM    WLA         WRITE LOCAL AREA
01590  M00S01018.1ck     +++|          RJM    WTT         WRITE TRT
01591  M00S01019.1ck     +++|          RJM    CIL         CLEAR INTERLOCKS
01592  M00S01020.1ck     +++| ULA1     LJM    DPP         EXIT
Line S01021 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01593  M01S01021.ns2780  ---| IDC      SPACE  4
01594  M01S01022.ns2780  ---|**        INITIALIZED DEVICE CHECKPOINT.
01595  M01S01023.ns2780  ---|*
01596  M01S01024.ns2780  ---|*         ENTRY  (IR+3) = EST ORDINAL.
01597  M01S01025.ns2780  ---|*                (IR+4) = PREVIOUS ACCESS STATUS (MMF).
01598  M01S01026.ns2780  ---|
01599  M01S01027.ns2780  ---|
Line S01028 Modification History
M01 (Removed by) 272l774
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01600  M02S01028.ns2780  ---| IDC      RJM    SDP         SET DEVICE PARAMETERS
Line S00001 Modification History
M01 (Added by) 272l774
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01601  M02S00001.ns2780  ---| IDC      BSS    0           ENTRY
01602  M02S00002.ns2780  ---|          RJM    SDP         SET DEVICE PARAMETERS
Line S01029 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01603  M01S01029.ns2780  ---|          NJN    ULA1        IF DEVICE IS INACCESSIBLE
01604  M01S01030.ns2780  ---|          RJM    WTT         WRITE TRT
Line S00003 Modification History
M01 (Added by) 272l774
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01605  M02S00003.ns2780  ---|          SETMS  IO,(ND,NS),WBUF
Line S00108 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01606  M02S00108.ns2780  ---|          RJM    WLS         WRITE LABEL SECTORS
Line S01031 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01607  M01S01031.ns2780  ---|          RJM    IDI         INITIALIZE DEVICE INFORMATION SECTOR
01608  M01S01032.ns2780  ---|          RJM    CIL         CLEAR INTERLOCKS
01609  M01S01033.ns2780  ---|          CMSTF  LIPF        CLEAR PF INITIALIZATION FLAG
01610  M01S01034.ns2780  ---|          CMSTF  LIAL        CLEAR FULL INITIALIZE FLAG
01611  M01S01035.ns2780  ---|          CMSTF  LIHD        CLEAR HALF TRACK INITIALIZE FLAG
01612  M01S01036.ns2780  ---|          CMSTF  LIFD        CLEAR FULL TRACK INITIALIZE FLAG
Line S00001 Modification History
M01 (Added by) 251l670
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01613  M02S00001.ns2780  ---|          RJM    SDA         SET DEVICE AVAILABLE
Line S01037 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01614  M01S01037.ns2780  ---|          LDD    ES+4        READ FAMILY NAME
01615  M01S01038.ns2780  ---|          SHN    3
01616  M01S01039.ns2780  ---|          ADN    PFGL
01617  M01S01040.ns2780  ---|          CRD    CA
01618  M01S01041.ns2780  ---|          ADN    MDGL-PFGL   GET PF STATUS OF DEVICE
01619  M01S01042.ns2780  ---|          CRD    CM
01620  M01S01043.ns2780  ---|          LDD    CM
01621  M01S01044.ns2780  ---|          LPC    2000
01622  M01S01045.ns2780  ---|          NJN    IDC1        IF AUXILIARY DEVICE
01623  M01S01046.ns2780  ---|          RJM    GFO         ENTER FAMILY NAME IN FOT
01624  M01S01047.ns2780  ---|          SCN    1
01625  M01S01048.ns2780  ---|          ZJN    IDC1        IF ENTRY FOUND/CREATED
01626  M01S01049.ns2780  ---|          LDN    STFF        SET ERROR FLAG = *FOT FULL*
01627  M01S01050.ns2780  ---|          RJM    SES
01628  M01S01051.ns2780  ---| IDC1     LDC    MMFL        READ MMF STATUS WORD
01629  M01S01052.ns2780  ---|          CRD    CN
01630  M01S01053.ns2780  ---|          SOD    CN+2        DECREMENT INITIALIZED DEVICE COUNT
01631  M01S01054.ns2780  ---|          MJN    IDC3        IF NOT MMF SYSTEM
01632  M01S01055.ns2780  ---|          LMC    4000
01633  M01S01056.ns2780  ---|          NJN    IDC2        IF NOT END OF DEVICE INITIALIZATION
01634  M01S01057.ns2780  ---|          STD    CN+2
01635  M01S01058.ns2780  ---|          LCN    DATI        CLEAR FLAG REGISTER INTERLOCK
01636  M01S01059.ns2780  ---|          RJM    IFR
01637  M01S01060.ns2780  ---| IDC2     LDC    MMFL        STORE MMF STATUS WORD
01638  M01S01061.ns2780  ---|          CWD    CN
01639  M01S01062.ns2780  ---|          LDD    IR+4
01640  M01S01063.ns2780  ---|          ZJN    IDC3        IF NO PREVIOUS ACCESS IN DAT
01641  M01S01064.ns2780  ---|          LDD    ES          CHECK DEVICE STATUS
01642  M01S01065.ns2780  ---|          SHN    21-11
01643  M01S01066.ns2780  ---|          PJN    IDC4        IF NON-SHARED DEVICE
01644  M01S01067.ns2780  ---|          LDD    ES+4        READ MST ACTIVITY WORD
01645  M01S01068.ns2780  ---|          SHN    3
01646  M01S01069.ns2780  ---|          ADN    SDGL
01647  M01S01070.ns2780  ---|          CRD    CM
01648  M01S01071.ns2780  ---|          LDD    CM          CHECK ECS POINTER
01649  M01S01072.ns2780  ---|          ADD    CM+1
01650  M01S01073.ns2780  ---| IDC3     NJN    IDC4        IF MST/TRT ECS RESIDENT
01651  M01S01074.ns2780  ---|          LDD    IR+3
01652  M01S01075.ns2780  ---|          STD    CM+1
01653  M01S01076.ns2780  ---|          LDN    SB0S
01654  M01S01077.ns2780  ---|          STD    CM+2
01655  M01S01078.ns2780  ---|          LDD    HN          SET DEVICE UNAVAILABLE
01656  M01S01079.ns2780  ---|          STD    CM+4
01657  M01S01080.ns2780  ---|          LMC    -0
01658  M01S01081.ns2780  ---|          STD    CM+3
01659  M01S01082.ns2780  ---|          MONITOR  SEQM
01660  M01S01083.ns2780  ---| IDC4     LJM    DPP         DROP PP
Line S00032 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
01661  M01S00032.243l647 +++| FIC      SPACE  4,10
Line S00033 Modification History
M01 (Added by) 243l647
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01662  M02S00033.ns2780  ---|**        FATAL IOU ERROR CHECKPOINT.
Line S00242 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01663  M01S00242.ns2780  +++|**        FUNCTION 11.
01664  M01S00243.ns2780  +++|*         FATAL IOU ERROR CHECKPOINT.
Line S00034 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
01665  M01S00034.243l647 +++|
01666  M01S00035.243l647 +++|
01667  M01S00036.243l647 +++| FIC      LDC    SCK8        SET RETURN FROM *PFC*
Line S00037 Modification History
M01 (Added by) 243l647
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01668  M02S00037.283l840 ---| FIC1     STM    PFCB
Line S00084 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01669  M01S00084.283l840 +++|          STM    PFCB
Line S00038 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
01670  M01S00038.243l647 +++|          LDC    LDDI+FS     ENABLE CHECKPOINT FLAG REQUIRED
01671  M01S00039.243l647 +++|          STM    SMDA
01672  M01S00040.243l647 +++|          LJM    PFC         PROCESS OUTSTANDING CHECKPOINT REQUESTS
Line S01084 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01673  M01S01084.ns2780  ---| RAC      SPACE  4,10
01674  M01S01085.ns2780  ---|**        RECOVERY ABORT CHECKPOINT.
01675  M01S01086.ns2780  ---|
01676  M01S01087.ns2780  ---|
Line S01088 Modification History
M01 (Removed by) 243l647
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01677  M02S01088.ns2780  ---| RAC      LDC    RAC1        SET RETURN FROM *PFC*
01678  M02S01089.ns2780  ---|          STM    PFCB
01679  M02S01090.ns2780  ---|          LDC    LDDI+FS     ENABLE CHECKPOINT FLAG REQUIRED
01680  M02S01091.ns2780  ---|          STM    SMDA
01681  M02S01092.ns2780  ---|          LJM    PFC         PROCESS OUTSTANDING CHECKPOINT REQUESTS
Line S00041 Modification History
M01 (Added by) 243l647
M02 (Removed by) 1ck8
M03 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01682  M03S00041.ns2780  ---| RAC      LDC    RAC1
Line S00007 Modification History
M01 (Added by) 1ck8
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01683  M02S00007.ns2780  ---| RAC      BSS    0           ENTRY
01684  M02S00008.ns2780  ---|          LDC    4000        FLAG CHECKPOINT ABORT PROCESSING
01685  M02S00009.ns2780  ---|          STD    TS
Line S00010 Modification History
M01 (Added by) 1ck8
M02 (Removed by) 283l840
M03 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01686  M03S00010.ns2780  ---|          LDC    RAC1
Line S00042 Modification History
M01 (Added by) 243l647
M02 (Removed by) 283l840
M03 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01687  M03S00042.ns2780  ---|          UJP    FIC1        SET RETURN FROM *PFC*
Line S00085 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01688  M02S00085.ns2780  ---|          LDC    RAC1        SET RETURN FROM *PFC*
01689  M02S00086.ns2780  ---|          STM    PFCB
01690  M02S00087.ns2780  ---|          LJM    PFC         CHECKPOINT ALL DEVICES
Line S01093 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01691  M01S01093.ns2780  ---|
01692  M01S01094.ns2780  ---| RAC1     LDN    MS2W-MS1W
01693  M01S01095.ns2780  ---|          STD    T1
01694  M01S01096.ns2780  ---|          LDD    IR+2
01695  M01S01097.ns2780  ---|          LMN    7
01696  M01S01098.ns2780  ---|          NJN    RAC2        IF BUFFERED DEVICES CHECKPOINTED
01697  M01S01099.ns2780  ---|          LDC    =C*NON-BUFFERED EQ-S CHECKPOINTED.*
01698  M01S01100.ns2780  ---|          STM    RACA
01699  M01S01101.ns2780  ---| RAC2     LDC    DSCP*CPAS+MS1W
01700  M01S01102.ns2780  ---|          CWM    =C*ALL EQ-S CHECKPOINTED.*,T1
01701  M01S01103.ns2780  ---| RACA     EQU    *-1
01702  M01S01104.ns2780  ---|          CWM    RACB,TR     *RECOVERY ABORTED.*
01703  M01S01105.ns2780  ---|          UJN    *           HANG DEADSTART
01704  M01S01106.ns2780  ---|
01705  M01S01107.ns2780  ---| RACB     DATA   C*RECOVERY ABORTED.*
Line S00109 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01706  M02S00109.ns2780  ---| RLT      SPACE  4,10
01707  M02S00110.ns2780  ---|***       FUNCTION 12.
01708  M02S00111.ns2780  ---|*         REPAIR LABEL TRACK.
01709  M02S00112.ns2780  ---|*
01710  M02S00113.ns2780  ---|*         ENTRY  (IR+3) = EST ORDINAL.
01711  M02S00114.ns2780  ---|
01712  M02S00115.ns2780  ---|
Line S00116 Modification History
M01 (Added by) 253l688
M02 (Removed by) 272l774
M03 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01713  M03S00116.ns2780  ---| RLT      RJM    SDP         SET DEVICE PARAMETERS
Line S00004 Modification History
M01 (Added by) 272l774
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01714  M02S00004.ns2780  ---| RLT      BSS    0           ENTRY
01715  M02S00005.ns2780  ---|          RJM    SDP         SET DEVICE PARAMETERS
Line S00117 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01716  M02S00117.ns2780  ---|          SETMS  IO,(AD,DF,ND,RW),WBUF
01717  M02S00118.ns2780  ---|          RJM    WTT         WRITE TRT
Line S00119 Modification History
M01 (Added by) 253l688
M02 (Removed by) 272l774
M03 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01718  M03S00119.ns2780  ---|          SETMS  IO,(AD,DF,ND,RW),WBUF
Line S00006 Modification History
M01 (Added by) 272l774
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01719  M02S00006.ns2780  ---|          SETMS  IO,(AD,DF,ND),WBUF
Line S00120 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01720  M02S00120.ns2780  ---|          RJM    WLS         WRITE LABEL SECTORS
01721  M02S00121.ns2780  ---|          ENDMS
01722  M02S00122.ns2780  ---|
01723  M02S00123.ns2780  ---| RLT1     RJM    CIL         CLEAR INTERLOCKS
01724  M02S00124.ns2780  ---|          LDD    IA          SET REPAIR-ATTEMPTED FLAG FOR *1MV*
01725  M02S00125.ns2780  ---|          CRD    IR
01726  M02S00126.ns2780  ---|          LDD    IR+3
01727  M02S00127.ns2780  ---|          SCN    40
01728  M02S00128.ns2780  ---|          LMN    40
01729  M02S00129.ns2780  ---|          STD    IR+3
01730  M02S00130.ns2780  ---|          LDD    IA
01731  M02S00131.ns2780  ---|          CWD    IR
01732  M02S00132.ns2780  ---|          LJM    PPR         RETURN TO *1MV*
01733  M00S01108.1ck     +++|          TITLE  SUBROUTINES.
Line S01109 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01734  M01S01109.253l688 ---| SDP      SPACE  4
Line S00133 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01735  M02S00133.ns2780  ---| SDP      SPACE  4,15
Line S01110 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01736  M01S01110.ns2780  ---|**        SDP - SET DEVICE PARAMETERS.
01737  M01S01111.ns2780  ---|*
01738  M01S01112.ns2780  ---|*         ENTRY  (IR+3) = EST ORDINAL.
01739  M01S01113.ns2780  ---|*
01740  M01S01114.ns2780  ---|*         EXIT   (A) = 0 IF DEVICE IS ACCESSIBLE.
01741  M01S01115.ns2780  ---|*                (LT) = (T6) = LABEL TRACK.
01742  M01S01116.ns2780  ---|*                (ES - ES+4) = EST ENTRY.
01743  M01S01117.ns2780  ---|*                DRIVER LOADED/PRESET.
01744  M01S01118.ns2780  ---|*
01745  M01S01119.ns2780  ---|*         USES   CM - CM+4.
01746  M01S01120.ns2780  ---|*
01747  M01S01121.ns2780  ---|*         MACROS SETMS, SFA.
01748  M01S01122.ns2780  ---|
01749  M01S01123.ns2780  ---|
01750  M01S01124.ns2780  ---| SDP      SUBR               ENTRY/EXIT
01751  M01S01125.ns2780  ---|          LDD    IR+3        SET EST ORDINAL
01752  M01S01126.ns2780  ---|          STD    T5
01753  M01S01127.ns2780  ---|          SFA    EST         READ EST ENTRY
01754  M01S01128.ns2780  ---|          ADK    EQDE
01755  M01S01129.ns2780  ---|          CRD    ES
01756  M01S01130.ns2780  ---|          LDD    ES+4        GET DEVICE ALLOCATION WORD FROM MST
01757  M01S01131.ns2780  ---|          SHN    3
01758  M01S01132.ns2780  ---|          ADN    ALGL
01759  M01S01133.ns2780  ---|          CRD    CM
01760  M01S01134.ns2780  ---|          LDD    CM+1        SET LABEL TRACK
01761  M01S01135.ns2780  ---|          STD    LT
01762  M01S01136.ns2780  ---|          STD    T6
01763  M01S01137.ns2780  ---|          SETMS  IO,(ND,NS,RW),WBUF
Line S00001 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01764  M01S00001.ns2776  +++|          LDM    MSD
01765  M01S00002.ns2776  +++|          LPC    100
Line S00001 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01766  M01S00001.ns2780  ---|          LDM    MSD
01767  M01S00002.ns2780  ---|          LPC    100
01768  M01S01138.ns2780  ---|          UJN    SDPX        RETURN
Line S01139 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01769  M01S01139.253l688 ---| ERR      SPACE  4
Line S00134 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01770  M01S00134.253l688 +++| ERR      SPACE  4,15
01771  M00S01140.1ck     +++|**        ERR - PROCESS ERRORS.
01772  M00S01141.1ck     +++|*
01773  M00S01142.1ck     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
01774  M00S01143.1ck     +++|*                ((A)) = *EQXXX, DETAILS.*.
01775  M00S01144.1ck     +++|*                (ES - ES+4) = EST ENTRY.
01776  M00S01145.1ck     +++|*
01777  M00S01146.1ck     +++|*         EXIT   TO *DPP*.
01778  M00S01147.1ck     +++|*
01779  M00S01148.1ck     +++|*         USES   T7.
01780  M00S01149.1ck     +++|*
01781  M00S01150.1ck     +++|*         CALLS  DFM, CIL.
01782  M00S01151.1ck     +++|
01783  M00S01152.1ck     +++|
01784  M00S01153.1ck     +++| ERR      STD    T7          SAVE MESSAGE ADDRESS
01785  M00S01154.1ck     +++|          LDD    T5          CONVERT UPPER TWO DIGITS OF EST ORDINAL
01786  M00S01155.1ck     +++|          SHN    -3
01787  M00S01156.1ck     +++|          RJM    C2D
01788  M00S01157.1ck     +++|          STM    1,T7
01789  M00S01158.1ck     +++|          LDD    T5          CONVERT LOWER DIGIT OF EST ORDINAL
01790  M00S01159.1ck     +++|          LPN    7
01791  M00S01160.1ck     +++|          SHN    6
01792  M00S01161.1ck     +++|          ADC    2R0,
01793  M00S01162.1ck     +++|          STM    2,T7
01794  M00S01163.1ck     +++|          LDD    ES+3        SET EQUIPMENT TYPE
01795  M00S01164.1ck     +++|          LPC    3777
01796  M00S01165.1ck     +++|          STI    T7
01797  M00S01166.1ck     +++|          LDD    T7          ISSUE MESSAGE
01798  M00S01167.1ck     +++|          RJM    DFM
01799  M00S01168.1ck     +++|          LDD    T7          ISSUE MESSAGE TO ERRLOG
01800  M00S01169.1ck     +++|          LMC    ERLN
01801  M00S01170.1ck     +++|          RJM    DFM
01802  M00S01171.1ck     +++|          RJM    CIL         CLEAR INTERLOCKS
01803  M00S01172.1ck     +++|          LJM    DPP
01804  M00S01173.1ck     +++| ACF      SPACE  4,15
01805  M00S01174.1ck     +++|**        ACF - ALLOCATE CHECKPOINT FILE.
01806  M00S01175.1ck     +++|*
01807  M00S01176.1ck     +++|*         ENTRY  (T5) = EST ORDINAL.
01808  M00S01177.1ck     +++|*                (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
01809  M00S01178.1ck     +++|*
01810  M00S01179.1ck     +++|*         EXIT   (ST) = CHECKPOINT FILE POINTER.
01811  M00S01180.1ck     +++|*                TO *WSE* IF TRACK LIMIT REACHED.
01812  M00S01181.1ck     +++|*
01813  M00S01182.1ck     +++|*         USES   ST, CM - CM+4, CN - CN+4.
01814  M00S01183.1ck     +++|*
01815  M00S01184.1ck     +++|*         MACROS MONITOR.
01816  M00S01185.1ck     +++|
01817  M00S01186.1ck     +++|
01818  M00S01187.1ck     +++| ACF      SUBR               ENTRY/EXIT
01819  M00S01188.1ck     +++|          LDD    ES+4
01820  M00S01189.1ck     +++|          SHN    3
01821  M00S01190.1ck     +++|          ADN    DULL
01822  M00S01191.1ck     +++|          CRD    CN
01823  M00S01192.1ck     +++|          LDD    CN+3
01824  M00S01193.1ck     +++|          NJN    ACF1        IF CHECKPOINT FILE ALREADY ASSIGNED
01825  M00S01194.1ck     +++|          STD    CM+2
01826  M00S01195.1ck     +++|          LDC    **          SET SECTOR COUNT
01827  M00S01196.1ck     +++| ACFA     EQU    *-1
01828  M00S01197.1ck     +++|          STD    CM+4
01829  M00S01198.1ck     +++|          SHN    -14
01830  M00S01199.1ck     +++|          STD    CM+3
01831  M00S01200.1ck     +++|          LDD    T5          SET EST ORDINAL
01832  M00S01201.1ck     +++|          STD    CM+1
01833  M00S01202.1ck     +++|          MONITOR  RTCM
01834  M00S01203.1ck     +++|          LDD    CM+4
01835  M00S01204.1ck     +++|          NJN    ACF1        IF TRACK ASSIGNED
01836  M00S01205.1ck     +++|          LJM    WSE         PROCESS CHECKPOINT ABORT
01837  M00S01206.1ck     +++|
01838  M00S01207.1ck     +++|*         CLEAR *VALID CHECKPOINT FILE* FLAG IN MST.
01839  M00S01208.1ck     +++|
01840  M00S01209.1ck     +++| ACF1     STD    ST
01841  M00S01210.1ck     +++|          LPC    3777
01842  M00S01211.1ck     +++|          STD    CM+2
01843  M00S01212.1ck     +++|          LDD    T5          SET EST ORDINAL
01844  M00S01213.1ck     +++|          STD    CM+1
01845  M00S01214.1ck     +++|          LDK    USTS        SET SUBFUNCTION
01846  M00S01215.1ck     +++|          STD    CM+3
Line S01216 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01847  M01S01216.253l688 ---|          MONITOR STBM
Line S00135 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01848  M01S00135.253l688 +++|          MONITOR  SMDM
01849  M00S01217.1ck     +++|          LJM    ACFX        RETURN
01850  M00S01218.1ck     +++| CAD      SPACE  4,10
01851  M00S01219.1ck     +++|**        CAD - CHECK ACTIVE DAYFILES.
01852  M00S01220.1ck     +++|*
01853  M00S01221.1ck     +++|*         ENTRY  (T5) = EST ORDINAL.
01854  M00S01222.1ck     +++|*
01855  M00S01223.1ck     +++|*         EXIT   (A) = (T3) = NUMBER OF ACTIVE DAYFILES ON DEVICE.
01856  M00S01224.1ck     +++|*                (CADA) = FIRST TRACKS OF DAYFILES.
01857  M00S01225.1ck     +++|*
01858  M00S01226.1ck     +++|*         USES   CM - CM+4, CN - CN+4.
01859  M00S01227.1ck     +++|
01860  M00S01228.1ck     +++|
01861  M00S01229.1ck     +++| CAD1     LDN    3           ADVANCE ADDRESS TO NEXT DAYFILE
Line S01230 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01862  M01S01230.251l664 ---| CAD2     RAD    CN
Line S00003 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01863  M01S00003.251l664 +++|          RAD    CN+1
01864  M01S00004.251l664 +++|          SHN    -14
01865  M01S00005.251l664 +++| CAD2     RAD    CN
01866  M01S00006.251l664 +++|          SHN    14
01867  M01S00007.251l664 +++|          LMD    CN+1
01868  M00S01231.1ck     +++|          ADN    2           READ DAYFILE STATUS WORD
01869  M00S01232.1ck     +++|          CRD    CM
01870  M00S01233.1ck     +++|          LDD    T5          CHECK EQUIPMENT
01871  M00S01234.1ck     +++|          LMD    CM
01872  M00S01235.1ck     +++|          NJN    CAD3        IF DAYFILE NOT ON CURRENT DEVICE
01873  M00S01236.1ck     +++|          LDD    CM+1        SET FIRST TRACK OF DAYFILE
01874  M00S01237.1ck     +++|          STM    CADA,CN+3
01875  M00S01238.1ck     +++|          AOD    T3          ADVANCE COUNT OF ACTIVE DAYFILES FOUND
01876  M00S01239.1ck     +++| CAD3     AOD    CN+3
01877  M00S01240.1ck     +++|          LMN    EXDF
01878  M00S01241.1ck     +++|          NJN    CAD1        IF NOT END OF EXCESS DAYFILES
01879  M00S01242.1ck     +++|          LDD    T3
01880  M00S01243.1ck     +++|
01881  M00S01244.1ck     +++| CAD      SUBR               ENTRY/EXIT
01882  M00S01245.1ck     +++|          LDN    DFPP        READ DAYFILE POINTER WORD
01883  M00S01246.1ck     +++|          CRD    CN
01884  M00S01247.1ck     +++|          LDN    ZERL        CLEAR DAYFILE LIST
01885  M00S01248.1ck     +++|          CRM    CADA,ON
01886  M00S01249.1ck     +++|          LDN    0           CLEAR ACTIVE DAYFILE COUNT
01887  M00S01250.1ck     +++|          STD    T3
Line S01251 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01888  M01S01251.251l664 ---|*         STD    CN+3
Line S00008 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01889  M01S00008.251l664 +++|          STD    CN+3
01890  M00S01252.1ck     +++|          UJN    CAD2        CHECK SYSTEM DAYFILE
01891  M00S01253.1ck     +++|
01892  M00S01254.1ck     +++| CADA     BSS    5           ACTIVE DAYFILE LIST
01893  M00S01255.1ck     +++| CBD      SPACE  4,10
01894  M00S01256.1ck     +++|**        CBD - CHECK BUFFERED DISKS.
01895  M00S01257.1ck     +++|*
01896  M00S01258.1ck     +++|*         EXIT   BUFFERED DISKS FLUSHED IF PRESENT.
01897  M00S01259.1ck     +++|*
01898  M00S01260.1ck     +++|*         USES   CM - CM+4.
01899  M00S01261.1ck     +++|*
01900  M00S01262.1ck     +++|*         MACROS MONITOR.
01901  M00S01263.1ck     +++|
01902  M00S01264.1ck     +++|
01903  M00S01265.1ck     +++| CBD      SUBR               ENTRY/EXIT
01904  M00S01266.1ck     +++|          LDK    BIOL
01905  M00S01267.1ck     +++|          CRD    CM
01906  M00S01268.1ck     +++|          LDD    CM+1
01907  M00S01269.1ck     +++|          ADD    CM+2
01908  M00S01270.1ck     +++|          ZJN    CBDX        IF NO BUFFERED I/O
01909  M00S01271.1ck     +++|          LDN    ZERL
01910  M00S01272.1ck     +++|          CRD    CM
01911  M00S01273.1ck     +++|          LDC    BMFW*100    FLUSH ALL WRITE BUFFERS
01912  M00S01274.1ck     +++|          STD    CM+4
01913  M00S01275.1ck     +++|          MONITOR  BFMM
01914  M00S01276.1ck     +++|          UJN    CBDX        RETURN
Line S01277 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01915  M01S01277.253l688 ---| CUA      SPACE  4,10
Line S00136 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01916  M01S00136.253l688 +++| CUA      SPACE  4,15
01917  M00S01278.1ck     +++|**        CUA - CALCULATE UEM ADDRESS.
01918  M00S01279.1ck     +++|*
01919  M00S01280.1ck     +++|*         ENTRY  (T8) = TRACK.
01920  M00S01281.1ck     +++|*                (CA, CA+1) = UEM BASE ADDRESS.
01921  M00S01282.1ck     +++|*
01922  M00S01283.1ck     +++|*         EXIT   (A) = BITS 5 - 0 OF ABSOLUTE UEM ADDRESS.
01923  M00S01284.1ck     +++|*                (CA+2 - CA+3) = BITS 27 - 6 OF ABSOLUTE UEM ADDRESS
01924  M00S01285.1ck     +++|*                                (TO BE USED IN *R* REGISTER).
01925  M00S01286.1ck     +++|*                (CA+4) = BITS 5 - 0 OF ABSOLUTE UEM ADDRESS
01926  M00S01287.1ck     +++|*                         (TO BE USED IN *A* REGISTER).
01927  M00S01288.1ck     +++|*
01928  M00S01289.1ck     +++|*         USES   CA+2 - CA+4.
01929  M00S01290.1ck     +++|
01930  M00S01291.1ck     +++|
01931  M00S01292.1ck     +++| CUA      SUBR               ENTRY/EXIT
01932  M00S01293.1ck     +++|          LDD    T8          CALCULATE TRACK * 2020
01933  M00S01294.1ck     +++|          SHN    6           * 100
01934  M00S01295.1ck     +++|          ADD    T8          * 101
01935  M00S01296.1ck     +++|          STD    CA+3
Line S01297 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01936  M01S01297.252l678 ---|          SHN    -10
Line S00020 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01937  M01S00020.252l678 +++| CUAA     SHN    -10
01938  M01S00021.252l678 +++|*         SHN    -10+EMSC    -10 + EXTENDED MEMORY SHIFT COUNT
01939  M00S01298.1ck     +++|          STD    CA+2        * 2020 HIGH BITS
01940  M00S01299.1ck     +++|          LDD    CA+3
Line S01300 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01941  M01S01300.252l678 ---|          LPC    377
01942  M01S01301.252l678 ---|          SHN    4           (A) = * 2020 LOW BITS
Line S00022 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01943  M01S00022.252l678 +++| CUAB     SHN    4           (A) = * 2020 LOW BITS
01944  M01S00023.252l678 +++|*         SHN    4+EMSC      4 + EXTENDED MEMORY SHIFT COUNT
01945  M01S00024.252l678 +++|          LPC    7777
01946  M00S01302.1ck     +++|          ADD    CA+1        ADD UEM BASE ADDRESS
Line S01303 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01947  M01S01303.252l678 ---|          STD    CA+3        LOW BYTE ABSOLUTE UEM ADDRESS
01948  M00S01304.1ck     +++|          STD    CA+4        LOW LOW BITS FOR *A* REGISTER
01949  M00S01305.1ck     +++|          SHN    -14
01950  M00S01306.1ck     +++|          ADD    CA
01951  M00S01307.1ck     +++|          RAD    CA+2        HIGH BYTE ABSOLUTE UEM ADDRESS
01952  M00S01308.1ck     +++|          SHN    6           SHIFT RESULT FOR *R* REGISTER
01953  M00S01309.1ck     +++|          STD    CA+3
01954  M00S01310.1ck     +++|          SHN    6
01955  M00S01311.1ck     +++|          STD    CA+2
01956  M00S01312.1ck     +++|          LDD    CA+4
01957  M00S01313.1ck     +++|          SHN    14
01958  M00S01314.1ck     +++|          RAD    CA+3
01959  M00S01315.1ck     +++|          SHN    -14
01960  M00S01316.1ck     +++|          STD    CA+4        SET LOW 6 BITS FOR *A* REGISTER
01961  M00S01317.1ck     +++|          UJN    CUAX        RETURN
01962  M00S01318.1ck     +++| FDB      SPACE  4,15
01963  M00S01319.1ck     +++|**        FDB - FLUSH DAYFILE BUFFERS.
01964  M00S01320.1ck     +++|*
01965  M00S01321.1ck     +++|*         EXIT   SYSTEM DAYFILE BUFFERS FLUSHED TO DISK.
01966  M00S01322.1ck     +++|*
Line S01323 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01967  M01S01323.251l664 ---|*         USES   DA, SW, CM - CM+4.
Line S00009 Modification History
M01 (Added by) 251l664
M02 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01968  M02S00009.1ck11   ---|*         USES   DI.
Line S00021 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01969  M01S00021.1ck11   +++|*         USES   CM+1, DI.
01970  M00S01324.1ck     +++|*
Line S01325 Modification History
M01 (Removed by) 1ck10
Seq #  *Modification Id* Act 
----------------------------+
01971  M01S01325.1ck10   ---|*         CALLS  *0TD*.
Line S00002 Modification History
M01 (Added by) 1ck10
Seq #  *Modification Id* Act 
----------------------------+
01972  M01S00002.1ck10   +++|*         CALLS  DFM, *0TD*.
01973  M00S01326.1ck     +++|*
01974  M00S01327.1ck     +++|*         MACROS EXECUTE.
01975  M00S01328.1ck     +++|
01976  M00S01329.1ck     +++|
Line S01330 Modification History
M01 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01977  M01S01330.1ck11   ---| FDB1     EXECUTE  0TD,OVL   TERMINATE DAYFILE
Line S00022 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01978  M01S00022.1ck11   +++| FDB1     EXECUTE  0TD,OVL0  TERMINATE DAYFILE
Line S01331 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01979  M01S01331.251l664 ---|          LDN    3           ADVANCE DAYFILE POINTER ADDRESS
01980  M01S01332.251l664 ---|          RAD    DA
Line S00010 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01981  M01S00010.251l664 +++|          AOD    DI          ADVANCE DAYFILE INDEX
Line S01333 Modification History
M01 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01982  M01S01333.1ck11   ---| FDB2     STM    OVL-1       SET POINTER ADDRESS FOR *0TD*
Line S00023 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01983  M01S00023.1ck11   +++| FDB2     STM    OVL0-1      SET POINTER ADDRESS FOR *0TD*
Line S01334 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01984  M01S01334.251l664 ---|          LMD    SW
Line S00011 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01985  M01S00011.251l664 +++|          LMN    EXDF+1
01986  M00S01335.1ck     +++|          NJN    FDB1        IF NOT END OF SYSTEM DAYFILES
01987  M00S01336.1ck     +++|
01988  M00S01337.1ck     +++| FDB      SUBR               ENTRY/EXIT
Line S00003 Modification History
M01 (Added by) 1ck10
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01993  M01S01338.251l664 ---|          LDN    DFPP        READ DAYFILE POINTERS
01994  M01S01339.251l664 ---|          CRD    CM
01995  M01S01340.251l664 ---|          LDD    CM          SET POINTER TO MASTER DAYFILE
01996  M01S01341.251l664 ---|          STD    DA
01997  M01S01342.251l664 ---|          ADN    3*EXDF      SET END OF SYSTEM DAYFILES
01998  M01S01343.251l664 ---|          STD    SW
01999  M01S01344.251l664 ---|          LDD    CM
Line S00012 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
02000  M01S00012.251l664 +++|          LDN    1           INITIALIZE DAYFILE INDEX
02001  M01S00013.251l664 +++|          STD    DI
02002  M00S01345.1ck     +++|          UJN    FDB2        FLUSH MASTER DAYFILE BUFFER
Line S00007 Modification History
M01 (Added by) 1ck10
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01346.1ck     +++| FTB      SPACE  4,10
02008  M00S01347.1ck     +++|**        FTB - FILL TRACK BUFFER.
02009  M00S01348.1ck     +++|*
02010  M00S01349.1ck     +++|*         ENTRY  (T6) = LAST TRACK USED.
02011  M00S01350.1ck     +++|*
02012  M00S01351.1ck     +++|*         EXIT   (NT) = *TBUF*.
02013  M00S01352.1ck     +++|*
02014  M00S01353.1ck     +++|*         USES   NT, T0, T1, CM - CM+4.
02015  M00S01354.1ck     +++|
02016  M00S01355.1ck     +++|
02017  M00S01356.1ck     +++| FTB      SUBR               ENTRY/EXIT
02018  M00S01357.1ck     +++|          LDC    TBUF        SET TRACK BUFFER POINTER
02019  M00S01358.1ck     +++|          STD    NT
02020  M00S01359.1ck     +++|          STD    T0
02021  M00S01360.1ck     +++|          LDD    T6
02022  M00S01361.1ck     +++|          SHN    6
02023  M00S01362.1ck     +++| FTB1     SHN    -6          STORE TRACK IN BUFFER
02024  M00S01363.1ck     +++|          STI    T0
02025  M00S01364.1ck     +++|          SHN    -2          READ TRT WORD TO GET NEXT TRACK
02026  M00S01365.1ck     +++|          ADC    TRTS
02027  M00S01366.1ck     +++| FTBA     EQU    *-2
02028  M00S01367.1ck     +++|          CRD    CM
02029  M00S01368.1ck     +++|          LDI    T0          SET BYTE INDEX
02030  M00S01369.1ck     +++|          LPN    3
02031  M00S01370.1ck     +++|          STD    T1
02032  M00S01371.1ck     +++|          AOD    T0          ADVANCE BUFFER POINTER
02033  M00S01372.1ck     +++|          LMC    TBUF+TBUFL-1
02034  M00S01373.1ck     +++|          ZJN    FTB2        IF TRACK BUFFER FULL
02035  M00S01374.1ck     +++|          LDM    CM,T1
02036  M00S01375.1ck     +++|          SHN    6
02037  M00S01376.1ck     +++|          MJN    FTB1        IF NOT EOI
02038  M00S01377.1ck     +++|          LCN    0           INHIBIT REFILLING BUFFER
02039  M00S01378.1ck     +++| FTB2     STI    T0          MARK END OF BUFFER
02040  M00S01379.1ck     +++|          UJN    FTBX        RETURN
02041  M00S01380.1ck     +++| GLS      SPACE  4,15
02042  M00S01381.1ck     +++|**        GLS - GET LOCAL AREA SECTOR.
02043  M00S01382.1ck     +++|*
02044  M00S01383.1ck     +++|*         ENTRY  (T5) = EQUIPMENT.
02045  M00S01384.1ck     +++|*                (ES - ES+4) = EST ENTRY.
02046  M00S01385.1ck     +++|*
02047  M00S01386.1ck     +++|*         EXIT   (A) = READ ERROR INDICATION.
02048  M00S01387.1ck     +++|*                (BFMS) = LOCAL AREA SECTOR.
02049  M00S01388.1ck     +++|*
02050  M00S01389.1ck     +++|*         USES   CM - CM+4.
02051  M00S01390.1ck     +++|*
02052  M00S01391.1ck     +++|*         CALLS  RDS.
02053  M00S01392.1ck     +++|*
02054  M00S01393.1ck     +++|*         MACROS SETMS, SMSTF.
02055  M00S01394.1ck     +++|
02056  M00S01395.1ck     +++|
02057  M00S01396.1ck     +++| GLS2     SETMS  IO,(ND,NS)  READ SECTOR OF LOCAL AREAS
02058  M00S01397.1ck     +++|          LDC    BFMS
02059  M00S01398.1ck     +++|          RJM    RDS
02060  M00S01399.1ck     +++|          MJN    GLSX        IF READ ERROR
02061  M00S01400.1ck     +++|          LDM    BFMS
02062  M00S01401.1ck     +++|          NJN    GLSX        IF FORMATTED SECTOR OF LOCAL AREAS
02063  M00S01402.1ck     +++|          ENDMS
02064  M00S01403.1ck     +++|          SMSTF  GDEI        SET ERROR IDLE
02065  M00S01404.1ck     +++|          LCN    0
02066  M00S01405.1ck     +++|
02067  M00S01406.1ck     +++| GLS      SUBR               ENTRY/EXIT
02068  M00S01407.1ck     +++|          LDD    ES+4        CHECK IF SECTOR EXISTS
02069  M00S01408.1ck     +++|          SHN    3
02070  M00S01409.1ck     +++|          ADN    ACGL
02071  M00S01410.1ck     +++|          CRD    CM
02072  M00S01411.1ck     +++|          LDD    CM+4
02073  M00S01412.1ck     +++|          LPC    MGLAP
02074  M00S01413.1ck     +++|          NJN    GLS2        IF SECTOR EXISTS
02075  M00S01414.1ck     +++|          LDC    501
02076  M00S01415.1ck     +++|          STD    CM
02077  M00S01416.1ck     +++| GLS1     LDN    0           CLEAR SECTOR BUFFER
02078  M00S01417.1ck     +++|          STM    BFMS,CM
02079  M00S01418.1ck     +++|          SOD    CM
02080  M00S01419.1ck     +++|          NJN    GLS1        IF NOT START OF BUFFER
02081  M00S01420.1ck     +++|          LDN    LMLT        SET SYSTEM LEVEL IN LINKAGE
02082  M00S01421.1ck     +++|          STM    BFMS
02083  M00S01422.1ck     +++|          SMSTF  GLAP        FLAG SECTOR OF LOCAL AREAS PRESENT
02084  M00S01423.1ck     +++|*         LDN    0
02085  M00S01424.1ck     +++|          UJN    GLSX
02086  M00S01425.1ck     +++| GSC      SPACE  4,10
02087  M00S01426.1ck     +++|**        GSC - GET SECTOR COUNT.
02088  M00S01427.1ck     +++|*
02089  M00S01428.1ck     +++|*         ENTRY  (T8) = UEM TRACK POINTER.
Line S00025 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02090  M01S00025.252l678 +++|*                (FS+1) = LAST TRACK + 1 OF USER EXTENDED MEMORY.
02091  M01S00026.252l678 +++|*                (FS+2) = UEM SECTOR LIMIT.
02092  M00S01429.1ck     +++|*                (FS+3) = TRT LENGTH.
02093  M00S01430.1ck     +++|*
02094  M00S01431.1ck     +++|*         EXIT   (A) = NUMBER OF SECTORS IN USE IN TRACK.
02095  M00S01432.1ck     +++|*
02096  M00S01433.1ck     +++|*         USES   T2, T8, CM - CM+4.
02097  M00S01434.1ck     +++|
02098  M00S01435.1ck     +++|
02099  M00S01436.1ck     +++| GSC      SUBR               ENTRY/EXIT
Line S01437 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02100  M01S01437.252l678 ---|          LDD    T8          COMPUTE TRT WORD OFFSET
02101  M01S01438.252l678 ---| GSC1     SHN    -2
Line S00027 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01439.1ck     +++|          STD    T2
02110  M00S01440.1ck     +++|          LMD    FS+3
02111  M00S01441.1ck     +++|          ZJN    GSCX        IF END OF TRT
02112  M00S01442.1ck     +++|          LDC    TRTS        READ TRT WORD
02113  M00S01443.1ck     +++| GSCA     EQU    *-2
02114  M00S01444.1ck     +++|          ADD    T2
02115  M00S01445.1ck     +++|          CRD    CM
02116  M00S01446.1ck     +++|          LDD    T8          COMPUTE BYTE NUMBER
02117  M00S01447.1ck     +++|          LPN    3
02118  M00S01448.1ck     +++|          STD    T2
Line S01449 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02119  M01S01449.252l678 ---|          SBN    3           CHECK TRACK RESERVATION
02120  M01S01450.252l678 ---|          ADC    SHNI+21
Line S00034 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02121  M01S00034.252l678 +++|          ADC    SHNI+16     SET TRACK RESERVATION CHECK
02122  M00S01451.1ck     +++|          STM    GSCB
02123  M00S01452.1ck     +++|          LDD    CM+4
02124  M00S01453.1ck     +++|          SHN    **
02125  M00S01454.1ck     +++| GSCB     EQU    *-1
Line S01455 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02126  M01S01455.252l678 ---|          PJN    GSC4        IF TRACK NOT RESERVED
Line S00035 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02127  M01S00035.252l678 +++| GSC3     PJN    GSC1        IF TRACK NOT RESERVED
02128  M00S01456.1ck     +++|          LDM    CM,T2
02129  M00S01457.1ck     +++|
02130  M00S01458.1ck     +++|*         TEST FOR LABEL TRACK WHICH CONTAINS A 0 AT DEADSTART TIME.
Line S01459 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02131  M01S01459.252l678 ---|*         NOTE:  EOI TRACKS WILL ALSO BE PICKED UP - A 1 OUT OF 20
02132  M01S01460.252l678 ---|*         POSSIBILITY FOR EACH FILE.
Line S00036 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01461.1ck     +++|
Line S01462 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02136  M01S01462.252l678 ---|          ZJN    GSC3        IF LABEL TRACK
02137  M01S01463.252l678 ---|          LMC    3777
02138  M01S01464.252l678 ---|          ZJN    GSC4        IF TRACK IS FLAWED
Line S00038 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02139  M01S00038.252l678 +++|          ZJN    GSC5        IF LABEL TRACK
02140  M01S00039.252l678 +++|          LMC    3777
02141  M01S00040.252l678 +++|          ZJN    GSC3        IF TRACK FLAWED
02142  M00S01465.1ck     +++|          LMC    3777
02143  M00S01466.1ck     +++|          SHN    21-13
Line S01467 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02144  M01S01467.252l678 ---|          MJN    GSC3        IF ENTIRE TRACK IN USE
02145  M01S01468.252l678 ---|          SHN    13-21+22
02146  M01S01469.252l678 ---|          ADN    1
02147  M01S01470.252l678 ---| GSC2     LJM    GSCX        RETURN
02148  M01S01471.252l678 ---|
02149  M01S01472.252l678 ---| GSC3     LDN    20          SET SECTOR COUNT FOR ENTIRE TRACK
02150  M01S01473.252l678 ---|          UJN    GSC2        RETURN
02151  M01S01474.252l678 ---|
02152  M01S01475.252l678 ---| GSC4     AOD    T8          SKIP CURRENT TRACK
02153  M01S01476.252l678 ---|          LJM    GSC1        CHECK NEXT TRACK
Line S00041 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02159  M02S00046.253l688 ---|GSC5      LDD    FS+2
Line S00137 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02160  M01S00137.253l688 +++| GSC5     LDD    FS+2
Line S00047 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02161  M01S00047.252l678 +++|          UJN    GSC4        RETURN SECTOR COUNT FOR FULL TRACK
Line S01477 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02162  M01S01477.ns2780  ---| IDI      SPACE  4,10
02163  M01S01478.ns2780  ---|**        IDI - INITIALIZE DEVICE INFORMATION SECTOR.
02164  M01S01479.ns2780  ---|*
02165  M01S01480.ns2780  ---|*         ENTRY  (T4) = CHANNEL.
02166  M01S01481.ns2780  ---|*                (T5) = EQUIPMENT.
02167  M01S01482.ns2780  ---|*                (T6) = LABEL TRACK.
02168  M01S01483.ns2780  ---|*                LABEL TRACK INTERLOCKED.
02169  M01S01484.ns2780  ---|*
02170  M01S01485.ns2780  ---|*         USES   T1, T7.
02171  M01S01486.ns2780  ---|*
02172  M01S01487.ns2780  ---|*         CALLS  WMS.
02173  M01S01488.ns2780  ---|*
02174  M01S01489.ns2780  ---|*         MACROS ENDMS, SETMS.
02175  M01S01490.ns2780  ---|
02176  M01S01491.ns2780  ---|
02177  M01S01492.ns2780  ---| IDI      SUBR               ENTRY/EXIT
02178  M01S01493.ns2780  ---|          LDC    100*5       CLEAR SECTOR
02179  M01S01494.ns2780  ---|          STD    T1
02180  M01S01495.ns2780  ---| IDI1     LDN    0
02181  M01S01496.ns2780  ---|          STM    BFMS+2-1,T1
02182  M01S01497.ns2780  ---|          SOD    T1
02183  M01S01498.ns2780  ---|          NJN    IDI1        IF NOT COMPLETE
02184  M01S01499.ns2780  ---|          LDN    DILT        SET SECTOR
02185  M01S01500.ns2780  ---|          STD    T7
02186  M01S01501.ns2780  ---|          ADN    1           SET CONTROL BYTES
02187  M01S01502.ns2780  ---|          STM    BFMS
02188  M01S01503.ns2780  ---|          LDD    HN
02189  M01S01504.ns2780  ---|          STM    BFMS+1
02190  M01S01505.ns2780  ---|          SETMS  IO,(ND,NS,RW)
02191  M01S01506.ns2780  ---|          LDC    BFMS+WLSF   WRITE SECTOR
02192  M01S01507.ns2780  ---|          RJM    WMS
02193  M01S01508.ns2780  ---|          ENDMS
02194  M01S01509.ns2780  ---|          UJN    IDIX        RETURN
02195  M00S01510.1ck     +++| SCD      SPACE  4,10
02196  M00S01511.1ck     +++|**        SCD - SET CHECKPOINT BITS.
02197  M00S01512.1ck     +++|*
02198  M00S01513.1ck     +++|*         ENTRY  (A) = OPERATION TO PERFORM.
02199  M00S01514.1ck     +++|*                    = 0, SET CHECKPOINT IN PROGRESS.
02200  M00S01515.1ck     +++|*                    = 1, SET CHECKPOINT COMPLETED.
02201  M00S01516.1ck     +++|*
02202  M00S01517.1ck     +++|*         USES   T1, CM - CM+4, CN - CN+4.
02203  M00S01518.1ck     +++|*
02204  M00S01519.1ck     +++|*         MACROS MONITOR.
02205  M00S01520.1ck     +++|
02206  M00S01521.1ck     +++|
02207  M00S01522.1ck     +++| SCD4     LDD    CM          SET CHECKPOINT IN PROGRESS
02208  M00S01523.1ck     +++|          SCN    4
02209  M00S01524.1ck     +++|          LMN    4
02210  M00S01525.1ck     +++| SCD5     STD    CM          STORE CHECKPOINT FLAGS
02211  M00S01526.1ck     +++|          LDD    CN+3
02212  M00S01527.1ck     +++|          SHN    14
02213  M00S01528.1ck     +++|          ADD    CN+4
02214  M00S01529.1ck     +++|          ADN    D7ST
02215  M00S01530.1ck     +++|          CWD    CM          WRITE UPDATED STATUS WORD
02216  M00S01531.1ck     +++|
02217  M00S01532.1ck     +++| SCD      SUBR               ENTRY/EXIT
02218  M00S01533.1ck     +++|          STD    T1          SAVE OPERATION
02219  M00S01534.1ck     +++|          ZJN    SCD1        IF SET CHECKPOINT IN PROGRESS
02220  M00S01535.1ck     +++|          LDN    LDOS        SET DECREMENT BY ONE
02221  M00S01536.1ck     +++|          STM    SCDA
02222  M00S01537.1ck     +++| SCD1     LDN    1           SET NUMBER OF OPTIONS
02223  M00S01538.1ck     +++|          STD    CM+1
02224  M00S01539.1ck     +++|          STD    CM+2        DO NOT DROP PPU
02225  M00S01540.1ck     +++|          LDD    MA
02226  M00S01541.1ck     +++|          CWM    SCDA,ON
02227  M00S01542.1ck     +++|          MONITOR  UADM      SET GLOBAL CHECKPOINT IN PROGRESS FLAG
02228  M00S01543.1ck     +++|          LDK    EIBP
02229  M00S01544.1ck     +++|          CRD    CN
02230  M00S01545.1ck     +++|          LDD    CN+3
02231  M00S01546.1ck     +++|          SHN    14
02232  M00S01547.1ck     +++|          ADD    CN+4
02233  M00S01548.1ck     +++| SCD2     ZJN    SCDX        IF NO *EICB*
02234  M00S01549.1ck     +++|          ADN    D7ST
02235  M00S01550.1ck     +++|          CRD    CM
02236  M00S01551.1ck     +++|          LDD    T1
02237  M00S01552.1ck     +++|          NJN    SCD3        IF SET CHECKPOINT COMPLETE
02238  M00S01553.1ck     +++|          LJM    SCD4        SET CHECKPOINT IN PROGRESS
02239  M00S01554.1ck     +++|
02240  M00S01555.1ck     +++| SCD3     LDD    CM
02241  M00S01556.1ck     +++|          LPN    4
02242  M00S01557.1ck     +++|          ZJN    SCD2        IF CHECKPOINT IN PROGRESS FLAG NOT SET
02243  M00S01558.1ck     +++|          LDD    CM
02244  M00S01559.1ck     +++|          SCN    10
02245  M00S01560.1ck     +++|          LMN    10
02246  M00S01561.1ck     +++|          LJM    SCD5        SET CHECKPOINT COMPLETE
02247  M00S01562.1ck     +++|
02248  M00S01563.1ck     +++| SCDA     CON    LIOS        INCREMENT BY ONE
02249  M00S01564.1ck     +++|          CON    INWL        WORD ADDRESS
02250  M00S01565.1ck     +++|          CON    4*100+1     BIT POSITION AND FIELD WIDTH
02251  M00S01566.1ck     +++|          CON    0
02252  M00S01567.1ck     +++|          CON    0
Line S01568 Modification History
M01 (Removed by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02253  M01S01568.ns2373  ---| SDD      SPACE  4,10
02254  M01S01569.ns2373  ---|**        SDD - SPIN DOWN DEVICES.
02255  M01S01570.ns2373  ---|*
02256  M01S01571.ns2373  ---|*         USES   EI, CM - CM+4.
02257  M01S01572.ns2373  ---|*
02258  M01S01573.ns2373  ---|*         CALLS  SMD, CIL.
02259  M01S01574.ns2373  ---|*
02260  M01S01575.ns2373  ---|*         MACROS EXECUTE.
02261  M01S01576.ns2373  ---|
02262  M01S01577.ns2373  ---|
02263  M01S01578.ns2373  ---| SDD      SUBR               ENTRY/EXIT
02264  M01S01579.ns2373  ---|          LDK    SSTL
02265  M01S01580.ns2373  ---|          CRD    CM
02266  M01S01581.ns2373  ---|          LDD    CM
02267  M01S01582.ns2373  ---|          LPN    1
02268  M01S01583.ns2373  ---|          NJN    SDDX        IF SPINDOWN DISABLED
02269  M01S01584.ns2373  ---|          EXECUTE 0SD,OVL    LOAD SPIN UP/DOWN PROCESSOR
02270  M01S01585.ns2373  ---|          STM    SDDA        SET PROCESSOR ADDRESS
02271  M01S01586.ns2373  ---|          LDN    20          SET SPINDOWN OPTION
02272  M01S01587.ns2373  ---|          STM    OVL-2
02273  M01S01588.ns2373  ---|          LDN    NOPE-1      SPINDOWN DEVICES
02274  M01S01589.ns2373  ---|          STD    EI
02275  M01S01590.ns2373  ---| SDD1     RJM    SMD         SELECT DEVICE
02276  M01S01591.ns2373  ---|          ZJN    SDDX        IF END OF EST
02277  M01S01592.ns2373  ---|          LDD    EI          SET EST ORDINAL FOR *0SD*
02278  M01S01593.ns2373  ---|          STM    OVL-1
02279  M01S01594.ns2373  ---|          RJM    **
02280  M01S01595.ns2373  ---| SDDA     EQU    *-1
02281  M01S01596.ns2373  ---|          UJN    SDD1        CHECK NEXT DEVICE
02282  M00S01597.1ck     +++| TUT      SPACE  4,10
02283  M00S01598.1ck     +++|**        TUT - TRANSFER UEM TRACK TO DISK.
02284  M00S01599.1ck     +++|*
02285  M00S01600.1ck     +++|*         ENTRY  (A) = NUMBER OF SECTORS TO TRANSFER.
02286  M00S01601.1ck     +++|*                (T8) = UEM TRACK NUMBER.
Line S01602 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02287  M01S01602.252l678 ---|*                (FS+2) = 20B.
Line S00048 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02288  M01S00048.252l678 +++|*                (FS+2) = UEM SECTOR LIMIT.
02289  M00S01603.1ck     +++|*
02290  M00S01604.1ck     +++|*         USES   CA+2, CA+3, T9.
02291  M00S01605.1ck     +++|*
02292  M00S01606.1ck     +++|*         CALLS  CUA, WNS.
Line S00049 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01607.1ck     +++|
02299  M00S01608.1ck     +++|
02300  M00S01609.1ck     +++| TUT      SUBR               ENTRY/EXIT
02301  M00S01610.1ck     +++|          STD    T9          SET SECTOR COUNT
Line S00054 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02302  M01S00054.252l678 +++|          LDD    FS+2        ADD LINKAGE WORDS TO SECTOR COUNT
02303  M01S00055.252l678 +++|          SHN    -6
02304  M01S00056.252l678 +++|          RAD    T9
02305  M00S01611.1ck     +++|          STM    BUF+3
02306  M00S01612.1ck     +++|          LDD    T8          SET TRACK NUMBER
02307  M00S01613.1ck     +++|          STM    BUF+2
Line S01614 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02308  M01S01614.252l678 ---|          LDN    20          SET WORD COUNT
02309  M01S01615.252l678 ---|          STM    BUF+1
02310  M00S01616.1ck     +++|          RJM    CUA         CALCULATE FWA OF UEM TRACK
Line S00057 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01617.1ck     +++|          ADC    400000      SET 2**17
02318  M00S01618.1ck     +++|          LRD    CA+2
02319  M00S01619.1ck     +++|          CRM    BUF+4,FS+2  READ LINKAGE WORDS
Line S01620 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02320  M01S01620.252l678 ---|          RJM    WNS         WRITE LINKAGE SECTOR TO DISK
02321  M01S01621.252l678 ---|          LDD    HN          SET DATA SECTOR WORD COUNT
Line S00063 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02322  M01S00063.252l678 +++| TUT1     RJM    WNS         WRITE 1ST (OR ONLY) LINKAGE SECTOR
02323  M01S00064.252l678 +++|          LDD    HN          SET WORD COUNT FOR REMAINING SECTORS
02324  M00S01622.1ck     +++|          STM    BUF+1
Line S01623 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02325  M01S01623.252l678 ---|          LDN    20          ADVANCE UEM ADDRESS TO DATA SECTOR
02326  M01S01624.252l678 ---| TUT1     RAD    CA+4
Line S00065 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02327  M01S00065.252l678 +++| TUT2     LDD    CA+4
02328  M00S01625.1ck     +++|          ADC    400000
02329  M00S01626.1ck     +++|          LRD    CA+2        READ DATA SECTOR
02330  M00S01627.1ck     +++|          CRM    BUF+2,HN
Line S01628 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02331  M01S01628.252l678 ---|          RJM    WNS         WRITE DATA SECTOR TO DISK
Line S00066 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01629.1ck     +++|          SOD    T9          DECREMENT SECTOR COUNT
Line S01630 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02337  M01S01630.252l678 ---|          ZJN    TUT2        IF FINISHED WITH TRACK
02338  M01S01631.252l678 ---|          LDD    HN
02339  M01S01632.252l678 ---|          UJN    TUT1        PROCESS NEXT SECTOR
02340  M01S01633.252l678 ---|
02341  M01S01634.252l678 ---| TUT2     LJM    TUTX        RETURN
Line S00070 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02342  M01S00070.252l678 +++|          NJN    TUT2        IF NOT FINISHED WITH TRACK
02343  M01S00071.252l678 +++|          UJP    TUTX        RETURN
02344  M00S01635.1ck     +++| UCP      SPACE  4,10
02345  M00S01636.1ck     +++|**        UCP - CHECKPOINT UEM.
02346  M00S01637.1ck     +++|*
02347  M00S01638.1ck     +++|*         ENTRY  (T4 - T7) = DISK PARAMETERS FOR CURRENT CHECKPOINT
02348  M00S01639.1ck     +++|*                            DEVICE.
02349  M00S01640.1ck     +++|*
Line S01641 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02350  M01S01641.252l678 ---|*         USES   T8, T9, CA, CA+1, CM - CM+5, CN - CN+4, FS - FS+3.
Line S00072 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02351  M01S00072.252l678 +++|*         USES   T8, T9, CA, CA+1, CM - CM+7, CN - CN+4, FS - FS+3.
02352  M00S01642.1ck     +++|*
02353  M00S01643.1ck     +++|*         CALLS  GSC, TUT, WEI, WLA.
02354  M00S01644.1ck     +++|*
02355  M00S01645.1ck     +++|*         MACROS ENDMS, SFA.
02356  M00S01646.1ck     +++|
02357  M00S01647.1ck     +++|
Line S00073 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01648.1ck     +++| UCP      SUBR               ENTRY/EXIT
02363  M00S01649.1ck     +++|          LDK    UEML        SET UEM BASE ADDRESS
02364  M00S01650.1ck     +++|          CRD    CM
02365  M00S01651.1ck     +++|          LDD    CM
02366  M00S01652.1ck     +++|          SHN    21-2
02367  M00S01653.1ck     +++|          STD    CA
02368  M00S01654.1ck     +++|          SHN    -6
02369  M00S01655.1ck     +++|          SCN    7
02370  M00S01656.1ck     +++|          STD    CA+1
Line S01657 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02371  M01S01657.252l678 ---|          LDN    EMEQ        SET EQUIPMENT POINTERS
02372  M01S01658.252l678 ---|          SFA    EST
02373  M01S01659.252l678 ---|          ADK    EQDE
02374  M01S01660.252l678 ---|          CRD    CM
02375  M01S01661.252l678 ---|          LDD    CM+4
Line S00077 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02376  M01S00077.252l678 +++|          LDC    0           SET UEM MST ADDRESS
02377  M01S00078.252l678 +++| UCPA     EQU    *-1
02378  M00S01662.1ck     +++|          SHN    3
Line S01663 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02379  M01S01663.252l678 ---|          ADK    ACGL
Line S00079 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02380  M01S00079.252l678 +++|          ADK    MDGL
02381  M01S00080.252l678 +++|          CRD    CM+3
02382  M01S00081.252l678 +++|          SBN    MDGL-ACGL
02383  M00S01664.1ck     +++|          CRD    CM
02384  M00S01665.1ck     +++|          ADK    TDGL-ACGL
02385  M00S01666.1ck     +++|          CRD    CM+2
02386  M00S01667.1ck     +++|          ADK    TRLL-TDGL
02387  M00S01668.1ck     +++|          CRD    CN
Line S00082 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02388  M01S00082.252l678 +++|          LDD    CM+3+4      SET SECTOR LIMIT
02389  M01S00083.252l678 +++|          STD    FS+2
02390  M00S01669.1ck     +++|          LDD    CM+2+2      SET TRT LENGTH
02391  M00S01670.1ck     +++|          STD    FS+3
02392  M00S01671.1ck     +++|          LDD    CN+3        SET TRT FWA
02393  M00S01672.1ck     +++|          LPN    77
02394  M00S01673.1ck     +++|          LMC    LDCI
02395  M00S01674.1ck     +++|          STM    GSCA
02396  M00S01675.1ck     +++|          LDD    CN+4
02397  M00S01676.1ck     +++|          STM    GSCA+1
Line S01677 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02398  M01S01677.252l678 ---|          LDN    20          SET LINKAGE WORD COUNT
02399  M01S01678.252l678 ---|          STD    FS+2
02400  M00S01679.1ck     +++|          LCN    0
02401  M00S01680.1ck     +++|          STD    T8          INITIALIZE UEM FIRST TRACK
02402  M00S01681.1ck     +++|          STD    FS          PRESET USER AREA FIRST TRACK
02403  M00S01682.1ck     +++|          LDD    CM+1        SET FIRST TRACK OF USER AREA
02404  M00S01683.1ck     +++|          ZJN    UCP3        IF NO USER AREA
02405  M00S01684.1ck     +++|          LPC    3777        SET FIRST TRACK OF USER AREA
02406  M00S01685.1ck     +++|          STD    FS+1
02407  M00S01686.1ck     +++|          ADN    1           CAUSE USER AREA FIRST TRACK TO BE WRITTEN
02408  M00S01687.1ck     +++|          STD    FS
02409  M00S01688.1ck     +++|          LDK    ECRL
02410  M00S01689.1ck     +++|          CRD    CN
Line S01690 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02411  M01S01690.252l678 ---|          LDD    CN+2        SET LAST TRACK+1 OF USER AREA
02412  M01S01691.252l678 ---|          SHN    5
Line S00084 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02413  M01S00084.252l678 +++|          LDD    CN+1
02414  M01S00085.252l678 +++| UCPB     SHN    5
02415  M01S00086.252l678 +++|*         SHN    5-EMSC+UESC
02416  M00S01692.1ck     +++|          STD    CN+1
02417  M00S01693.1ck     +++|          SHN    -14
02418  M00S01694.1ck     +++|          STD    CN
02419  M00S01695.1ck     +++| UCP2     AOD    FS+1        ADVANCE TRACK POINTER
02420  M00S01696.1ck     +++|          LDC    -101
02421  M00S01697.1ck     +++|          RAD    CN+1
02422  M00S01698.1ck     +++|          PJN    UCP2        IF NOT UNDERFLOW
02423  M00S01699.1ck     +++|          AOD    CN+1
02424  M00S01700.1ck     +++|          SOD    CN
02425  M00S01701.1ck     +++|          PJN    UCP2        IF NOT END OF CONVERSION
Line S01702 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02426  M01S01702.252l678 ---| UCP3     AOD    T8          INCREMENT CURRENT UEM TRACK
02427  M01S01703.252l678 ---|          LMD    FS
02428  M01S01704.252l678 ---|          NJN    UCP4        IF NOT START OF USER AREA
02429  M01S01705.252l678 ---|          LDD    FS+1        SET LAST TRACK+1 OF USER AREA
02430  M01S01706.252l678 ---|          STD    T8
02431  M01S01707.252l678 ---| UCP4     RJM    GSC         GET SECTOR COUNT
02432  M01S01708.252l678 ---|          NJN    UCP5        IF NOT END OF UEM
02433  M01S01709.252l678 ---|          LJM    UCPX        RETURN
02434  M01S01710.252l678 ---|
02435  M01S01711.252l678 ---| UCP5     RJM    TUT         TRANSFER UEM TRACK TO DISK
02436  M01S01712.252l678 ---|          UJN    UCP3        GET NEXT TRACK
Line S00087 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02437  M01S00087.252l678 +++| UCP3     LJM    UCP5        TRANSFER UEM DATA TO DISK
Line S01713 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02438  M01S01713.253l688 ---| WLA      SPACE  4
Line S00138 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02439  M01S00138.253l688 +++| WLA      SPACE  4,15
02440  M00S01714.1ck     +++|**        WLA - WRITE LOCAL AREAS.
02441  M00S01715.1ck     +++|*
02442  M00S01716.1ck     +++|*         ENTRY  (T4) = CHANNEL.
02443  M00S01717.1ck     +++|*                (T5) = EQUIPMENT.
02444  M00S01718.1ck     +++|*                (ES - ES+4) = EST ENTRY.
02445  M00S01719.1ck     +++|*                (LT) = LABEL TRACK.
02446  M00S01720.1ck     +++|*
02447  M00S01721.1ck     +++|*         EXIT   (A) = 0.
02448  M00S01722.1ck     +++|*                (TS) = LABEL TRACK INTERLOCKED STATUS.
02449  M00S01723.1ck     +++|*
02450  M00S01724.1ck     +++|*         USES   T1, T2, T6, T7, CM - CM+7.
02451  M00S01725.1ck     +++|*
02452  M00S01726.1ck     +++|*         CALLS  ABT, CAD, ERR, GLS, STI, UMS.
02453  M00S01727.1ck     +++|*
02454  M00S01728.1ck     +++|*         MACROS ENDMS, SETMS.
02455  M00S01729.1ck     +++|
02456  M00S01730.1ck     +++|
02457  M00S01731.1ck     +++| WLA11    LJM    ABT         ABORT OPERATION
02458  M00S01732.1ck     +++|
02459  M00S01733.1ck     +++| WLA      SUBR               ENTRY/EXIT
02460  M00S01734.1ck     +++|          LDD    LT
02461  M00S01735.1ck     +++|          STD    T6
02462  M00S01736.1ck     +++|          LDD    TS
02463  M00S01737.1ck     +++|          NJN    WLA1        IF LABEL TRACK INTERLOCKED
02464  M00S01738.1ck     +++|          RJM    STI         SET TRACK INTERLOCK
02465  M00S01739.1ck     +++|          NJN    WLA11       IF ERROR FLAG SET
02466  M00S01740.1ck     +++|          AOD    TS          SET LABEL TRACK INTERLOCK STATUS
02467  M00S01741.1ck     +++| WLA1     LDN    LMLT        SET LOCAL AREA SECTOR
02468  M00S01742.1ck     +++|          STD    T7
02469  M00S01743.1ck     +++|          RJM    GLS         GET LOCAL AREA SECTOR
02470  M00S01744.1ck     +++|          PJN    WLA4        IF NO ERROR
02471  M00S01745.1ck     +++| WLA2     ENDMS
02472  M00S01746.1ck     +++|          LDC    WLAE        *EQXXX, LOCAL AREA SECTOR ERROR.*
02473  M00S01747.1ck     +++| WLAA     EQU    *-1
02474  M00S01748.1ck     +++|*         LDC    WLAF        (*EQXXX, LOCAL AREA OVERFLOW.*)
02475  M00S01749.1ck     +++|          LJM    ERR         ISSUE THE ERROR MESSAGE
02476  M00S01750.1ck     +++|
02477  M00S01751.1ck     +++|*         MAKE A NEW ENTRY IN THE SECTOR.
02478  M00S01752.1ck     +++|
02479  M00S01753.1ck     +++| WLA3     LDN    2           BUMP SECTOR WORD COUNT
02480  M00S01754.1ck     +++|          RAM    BFMS+1
02481  M00S01755.1ck     +++|          SBD    HN
02482  M00S01756.1ck     +++|          MJN    WLA6        IF ROOM FOR A NEW ENTRY
02483  M00S01757.1ck     +++|          LDC    WLAF        *EQXXX, LOCAL AREA OVERFLOW.*
02484  M00S01758.1ck     +++|          STM    WLAA
02485  M00S01759.1ck     +++|          UJN    WLA2        PROCESS ERROR
02486  M00S01760.1ck     +++|
02487  M00S01761.1ck     +++|*         SEARCH FOR MATCH ON MACHINE ID.
02488  M00S01762.1ck     +++|
02489  M00S01763.1ck     +++| WLA4     LCN    2*5-1       INITIALIZE SEARCH INDEX
02490  M00S01764.1ck     +++|          STD    T2
02491  M00S01765.1ck     +++|          LCN    2-1
02492  M00S01766.1ck     +++|          STD    T1
02493  M00S01767.1ck     +++|          LDC    MMFL        GET MACHINE ID
02494  M00S01768.1ck     +++|          CRD    CM
02495  M00S01769.1ck     +++| WLA5     LDN    2*5         BUMP SEARCH INDEX
02496  M00S01770.1ck     +++|          RAD    T2
02497  M00S01771.1ck     +++|          LDN    2
02498  M00S01772.1ck     +++|          RAD    T1
02499  M00S01773.1ck     +++|          LDD    T1
02500  M00S01774.1ck     +++|          SBM    BFMS+1      SUBTRACT SECTOR WORD COUNT
02501  M00S01775.1ck     +++|          PJN    WLA3        IF END OF SECTOR DATA
02502  M00S01776.1ck     +++|          LDM    BFMS+2,T2   COMPARE ID CODE
02503  M00S01777.1ck     +++|          LMD    CM
02504  M00S01778.1ck     +++|          NJN    WLA5        IF NO MATCH
02505  M00S01779.1ck     +++|
02506  M00S01780.1ck     +++|*         UPDATE LOCAL AREA DATA.
02507  M00S01781.1ck     +++|
02508  M00S01782.1ck     +++|          LDM    BFMS+2+2,T2
02509  M00S01783.1ck     +++|          NJN    WLA6        IF POST LEVEL 509 ENTRY
02510  M00S01784.1ck     +++|          STM    BFMS+2+10,T2
02511  M00S01785.1ck     +++| WLA6     LDD    T2
02512  M00S01786.1ck     +++|          ADC    BFMS+2+5
02513  M00S01787.1ck     +++|          STM    WLAC
02514  M00S01788.1ck     +++|          STM    WLAD
02515  M00S01789.1ck     +++|          LDD    CM          SET MACHINE ID
02516  M00S01790.1ck     +++|          STM    BFMS+2,T2
02517  M00S01791.1ck     +++|          LDN    LMLT        SET SYSTEM LEVEL IN ENTRY
02518  M00S01792.1ck     +++|          STM    BFMS+2+2,T2
02519  M00S01793.1ck     +++|          LDD    ES+4        READ DULL WORD
02520  M00S01794.1ck     +++|          SHN    3
02521  M00S01795.1ck     +++|          ADN    DULL
02522  M00S01796.1ck     +++|          CRD    CM+3
02523  M00S01797.1ck     +++|          ADN    STLL-DULL
02524  M00S01798.1ck     +++|          CRD    CM
02525  M00S01799.1ck     +++|          LDD    CM+3        SET USER COUNT
02526  M00S01800.1ck     +++|          STM    BFMS+2+4,T2
02527  M00S01801.1ck     +++|          LDD    CM+6        SET SYSTEM TABLE TRACK
02528  M00S01802.1ck     +++|          LPC    3777
02529  M00S01803.1ck     +++|*         UJN    *+2         (FUNCTIONS 0 AND 1)
02530  M00S01804.1ck     +++| WLAG     EQU    *-2
02531  M00S01805.1ck     +++|          STM    BFMS+2+1,T2
02532  M00S01806.1ck     +++|          LDD    CM+7        SET FAMILY COUNT
02533  M00S01807.1ck     +++|          STM    BFMS+2+3,T2
02534  M00S01808.1ck     +++|          LDC    0           UEM SECTOR OFFSET
02535  M00S01809.1ck     +++| WLAH     EQU    *-1
02536  M00S01810.1ck     +++|          STM    BFMS+2+11,T2
02537  M00S01811.1ck     +++|          RJM    CAD         CHECK ACTIVE DAYFILES
02538  M00S01812.1ck     +++| WLAB     LDN    0
02539  M00S01813.1ck     +++|          ZJN    WLA7        IF NO DAYFILE POINTER UPDATE
02540  M00S01814.1ck     +++|          SBN    1
02541  M00S01815.1ck     +++|          STD    T1
02542  M00S01816.1ck     +++|          LDN    0           CLEAR DAYFILE POINTER
02543  M00S01817.1ck     +++|          STM    *,T1
02544  M00S01818.1ck     +++| WLAC     EQU    *-1
02545  M00S01819.1ck     +++| WLA7     STD    T2
02546  M00S01820.1ck     +++|          LDD    T3
02547  M00S01821.1ck     +++|          ZJN    WLA10       IF NO ACTIVE DAYFILES ON DEVICE
02548  M00S01822.1ck     +++|
02549  M00S01823.1ck     +++|*         MOVE ACTIVE DAYFILE TRACKS TO SECTOR OF LOCAL AREAS.
02550  M00S01824.1ck     +++|
02551  M00S01825.1ck     +++| WLA8     LDM    CADA,T2
02552  M00S01826.1ck     +++|          ZJN    WLA9        IF DAYFILE NOT PRESENT
02553  M00S01827.1ck     +++|          STM    *,T2
02554  M00S01828.1ck     +++| WLAD     EQU    *-1
02555  M00S01829.1ck     +++| WLA9     AOD    T2          ADVANCE DAYFILE INDEX
02556  M00S01830.1ck     +++|          LMN    EXDF
02557  M00S01831.1ck     +++|          NJN    WLA8        IF NOT END OF EXCESS DAYFILES
02558  M00S01832.1ck     +++| WLA10    SETMS  IO,(ND,NS,RW),WBUF
02559  M00S01833.1ck     +++|          LDC    BFMS+WLSF   REWRITE SECTOR
02560  M00S01834.1ck     +++|          RJM    WMS
02561  M00S01835.1ck     +++|          ENDMS
02562  M00S01836.1ck     +++|*         LDN    0
02563  M00S01837.1ck     +++|          STM    WLAH
02564  M00S01838.1ck     +++|          LJM    WLAX        RETURN
02565  M00S01839.1ck     +++|
02566  M00S01840.1ck     +++| WLAE     DATA   C*EQXXX, LOCAL AREA SECTOR ERROR.*
02567  M00S01841.1ck     +++| WLAF     DATA   C*EQXXX, LOCAL AREA OVERFLOW.*
02568  M00S01842.1ck     +++| WST      SPACE  4,20
02569  M00S01843.1ck     +++|**        WST - WRITE SYSTEM TABLES.
02570  M00S01844.1ck     +++|*
02571  M00S01845.1ck     +++|*         ENTRY  (T5) = EST ORDINAL.
02572  M00S01846.1ck     +++|*                (ES - ES+4) = EST ENTRY.
02573  M00S01847.1ck     +++|*                (ST) = CHECKPOINT FILE FIRST TRACK.
02574  M00S01848.1ck     +++|*                (LT) = LABEL TRACK.
02575  M00S01849.1ck     +++|*                (FS - FS+4) = STLL WORD.
02576  M00S01850.1ck     +++|*
02577  M00S01851.1ck     +++|*         USES   T6, CA - CA+4, CM - CM+4, CN - CN+4.
02578  M00S01852.1ck     +++|*
02579  M00S01853.1ck     +++|*         CALLS  FTB, WSS, WTB.
02580  M00S01854.1ck     +++|*
02581  M00S01855.1ck     +++|*         MACROS CFI, ENDMS, MONITOR, SETMS.
02582  M00S01856.1ck     +++|
02583  M00S01857.1ck     +++|
02584  M00S01858.1ck     +++| WST      SUBR               ENTRY/EXIT
02585  M00S01859.1ck     +++|          LDD    ST
02586  M00S01860.1ck     +++|          STD    T6
02587  M00S01861.1ck     +++|          LDD    ES+4        GET TRT ADDRESS
02588  M00S01862.1ck     +++|          SHN    3
02589  M00S01863.1ck     +++|          ADK    TRLL
02590  M00S01864.1ck     +++|          CRD    CM
02591  M00S01865.1ck     +++|          LDD    CM+3        SET TRT ADDRESS FOR *FDB*
02592  M00S01866.1ck     +++|          LPN    77
02593  M00S01867.1ck     +++|          SHN    14
02594  M00S01868.1ck     +++|          LMD    CM+4
02595  M00S01869.1ck     +++|          SBD    TH          COMPENSATE FOR UPPER BIT OF TRACK
02596  M00S01870.1ck     +++|          STM    FTBA+1
02597  M00S01871.1ck     +++|          STM    SRAA+1
02598  M00S01872.1ck     +++|          SHN    -14
02599  M00S01873.1ck     +++|          LMC    ADCI
02600  M00S01874.1ck     +++|          STM    FTBA
02601  M00S01875.1ck     +++|          STM    SRAA
02602  M00S01876.1ck     +++|          RJM    FTB         FILL TRACK BUFFER
Line S01877 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02603  M01S01877.272l774 ---|          SETMS  IO,(ND,NS,RW),WBUF
Line S00007 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02604  M01S00007.272l774 +++|          SETMS  IO,(ND,NS),WBUF
02605  M00S01878.1ck     +++|          LDD    MA          ENTER NAME
Line S01879 Modification History
M01 (Removed by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02606  M01S01879.ns2477  ---|          CWM    WSTA,ON
Line S00002 Modification History
M01 (Added by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02607  M01S00002.ns2477  +++|          CWM    WSTB,ON
02608  M00S01880.1ck     +++|          SBN    1
02609  M00S01881.1ck     +++|          CRM    FNSS,ON
02610  M00S01882.1ck     +++|          RJM    WSS         WRITE SYSTEM SECTOR
02611  M00S01883.1ck     +++|          LDN    0           WRITE POINTER AREA
02612  M00S01884.1ck     +++|          STD    CA
02613  M00S01885.1ck     +++|          STD    CA+1
02614  M00S01886.1ck     +++|          LDC    BQRL
02615  M00S01887.1ck     +++|          RJM    WTB
02616  M00S01888.1ck     +++|
02617  M00S01889.1ck     +++|*         WRITE EQUIPMENT STATUS TABLE.
02618  M00S01890.1ck     +++|
02619  M00S01891.1ck     +++|          LDN    ESTP        SET EST ADDRESS
02620  M00S01892.1ck     +++|          CRD    CA
02621  M00S01893.1ck     +++|          CFI    EST,EC,EC   SET EST LENGTH
02622  M00S01894.1ck     +++|          RJM    WTB         WRITE TABLE
02623  M00S01895.1ck     +++|
02624  M00S01896.1ck     +++|*         WRITE CHANNEL INTERLOCK TABLES.
02625  M00S01897.1ck     +++|
02626  M00S01898.1ck     +++|          LDC    CHTP        SET CHANNEL TABLE ADDRESS
02627  M00S01899.1ck     +++|          CRD    CM
02628  M00S01900.1ck     +++|          LDD    CM+2
02629  M00S01901.1ck     +++|          STD    CA
02630  M00S01902.1ck     +++|          LDD    CM+3
02631  M00S01903.1ck     +++|          STD    CA+1
02632  M00S01904.1ck     +++|          LDN    CTALL*2     TABLE LENGTH
02633  M00S01905.1ck     +++|          RJM    WTB         WRITE TABLE
02634  M00S01906.1ck     +++|
02635  M00S01907.1ck     +++|*         WRITE EVENT TABLE.
02636  M00S01908.1ck     +++|
02637  M00S01909.1ck     +++|          LDK    EVTP        FETCH EVENT TABLE POINTER
02638  M00S01910.1ck     +++|          CRD    CM
02639  M00S01911.1ck     +++|          LDD    CM          SET TABLE ADDRESS
02640  M00S01912.1ck     +++|          STD    CA
02641  M00S01913.1ck     +++|          LDD    CM+1
02642  M00S01914.1ck     +++|          STD    CA+1
02643  M00S01915.1ck     +++|          LDN    EVTLL       WRITE EVENT TABLE
02644  M00S01916.1ck     +++|          RJM    WTB
02645  M00S01917.1ck     +++|
02646  M00S01918.1ck     +++|*         WRITE SUBSYSTEM CONTROL TABLES.
02647  M00S01919.1ck     +++|
02648  M00S01920.1ck     +++|          LDC    SSCP        FETCH SUBSYSTEM CONTROL TABLE POINTER
02649  M00S01921.1ck     +++|          CRD    CM
02650  M00S01922.1ck     +++|          LDD    CM+2        SET ADDRESS OF TABLES
02651  M00S01923.1ck     +++|          STD    CA
02652  M00S01924.1ck     +++|          LDD    CM+3
02653  M00S01925.1ck     +++|          STD    CA+1
02654  M00S01926.1ck     +++|          LDN    SSCTL*2     WRITE SSCT AND SSAT
02655  M00S01927.1ck     +++|          RJM    WTB
02656  M00S01928.1ck     +++|
Line S01929 Modification History
M01 (Removed by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
02657  M01S01929.ns2513  ---|*         WRITE SERVICE CLASS CONTROL TABLE.
Line S00004 Modification History
M01 (Added by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
02658  M01S00004.ns2513  +++|*         WRITE SERVICE CLASS AND JOB CONTROL TABLES.
02659  M00S01930.1ck     +++|
Line S01931 Modification History
M01 (Removed by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
02660  M01S01931.ns2513  ---|          LDK    JBCP        FETCH SERVICE CLASS CONTROL TABLE POINTER
Line S00005 Modification History
M01 (Added by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
02661  M01S00005.ns2513  +++|          LDK    JBCP        FETCH CONTROL TABLE POINTER
02662  M00S01932.1ck     +++|          CRD    CA
Line S01933 Modification History
M01 (Removed by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
02663  M01S01933.ns2513  ---|          LDK    SCTE        WRITE SERVICE CLASS CONTROL TABLE
Line S00006 Modification History
M01 (Added by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
02664  M01S00006.ns2513  +++|          LDK    JCBE*/SCD/MXJC  WRITE CONTROL TABLES
02665  M00S01934.1ck     +++|          RJM    WTB
02666  M00S01935.1ck     +++|
02667  M00S01936.1ck     +++|*         WRITE SABB TABLE.
02668  M00S01937.1ck     +++|
02669  M00S01938.1ck     +++|          LDK    SABL
02670  M00S01939.1ck     +++|          CRD    CA
02671  M00S01940.1ck     +++|          LDD    CA+2
02672  M00S01941.1ck     +++|          RJM    WTB
02673  M00S01942.1ck     +++|
02674  M00S01943.1ck     +++|*         WRITE STATISTICAL DATA AREA.
02675  M00S01944.1ck     +++|
02676  M00S01945.1ck     +++|          LDC    SDAP        SET STATISTICAL AREA ADDRESS
02677  M00S01946.1ck     +++|          CRD    CA
02678  M00S01947.1ck     +++|          LDN    SDAL        WRITE STATISTICAL DATA AREA
02679  M00S01948.1ck     +++|          RJM    WTB
02680  M00S01949.1ck     +++|
02681  M00S01950.1ck     +++|*         WRITE MANAGED TABLES.
02682  M00S01951.1ck     +++|
02683  M00S01952.1ck     +++|          LDN    QFTP        FETCH QFT POINTER
02684  M00S01953.1ck     +++|          CRD    CA
02685  M00S01954.1ck     +++|          CFI    QFT,EC,EC   SET QFT LENGTH
02686  M00S01955.1ck     +++|          STD    CN+1
02687  M00S01956.1ck     +++|          SHN    -14
02688  M00S01957.1ck     +++|          STD    CN
02689  M00S01958.1ck     +++|          LDC    CLTP        READ CLT POINTER
02690  M00S01959.1ck     +++|          CRD    CM
02691  M00S01960.1ck     +++|          CFI    CLT,CM+2    APPEND COMMON LIBRARIES TABLE LENGTH
02692  M00S01961.1ck     +++|          RAD    CN+1
02693  M00S01962.1ck     +++|          SHN    -14
02694  M00S01963.1ck     +++|          RAD    CN
02695  M00S01964.1ck     +++|          LDC    LIDP        FETCH LID TABLE POINTER
02696  M00S01965.1ck     +++|          CRD    CM
02697  M00S01966.1ck     +++|          LDD    CM+2        APPEND LID TABLE LENGTH
02698  M00S01967.1ck     +++|          RAD    CN+1
02699  M00S01968.1ck     +++|          SHN    -14
02700  M00S01969.1ck     +++|          RAD    CN
02701  M00S01970.1ck     +++|          LDN    EJTP        FETCH EJT POINTER
02702  M00S01971.1ck     +++|          CRD    CA
02703  M00S01972.1ck     +++|          CFI    EJT,EC,EC   APPEND EJT LENGTH
02704  M00S01973.1ck     +++|          RAD    CN+1
02705  M00S01974.1ck     +++|          SHN    -14
02706  M00S01975.1ck     +++|          RAD    CN
02707  M00S01976.1ck     +++|          LDN    FNTP        FETCH FNT POINTER
02708  M00S01977.1ck     +++|          CRD    CM
02709  M00S01978.1ck     +++|          ADN    FOTP-FNTP   READ FOT POINTER
02710  M00S01979.1ck     +++|          CRD    CA
02711  M00S01980.1ck     +++|          CFI    FNT,CM+2,CM+2  ADD FNT LENGTH
02712  M00S01981.1ck     +++|          SHN    6
02713  M00S01982.1ck     +++|          ADD    CN
02714  M00S01983.1ck     +++|          SHN    14
02715  M00S01984.1ck     +++|          ADD    CN+1
02716  M00S01985.1ck     +++|          ADD    EC          ADD FOT LENGTH
02717  M00S01986.1ck     +++|          RJM    WTB
02718  M00S01987.1ck     +++|
02719  M00S01988.1ck     +++|*         WRITE LIBRARIES AND DIRECTORIES.
02720  M00S01989.1ck     +++|
02721  M00S01990.1ck     +++|          LDC    RPLP        FETCH RPL POINTER
02722  M00S01991.1ck     +++|          CRD    CA
02723  M00S01992.1ck     +++|          LDN    CMRL        READ CMR LENGTH
02724  M00S01993.1ck     +++|          CRD    CM
02725  M00S01994.1ck     +++|          LDD    CM+4
02726  M00S01995.1ck     +++|          SHN    14
02727  M00S01996.1ck     +++|          SBD    CA
02728  M00S01997.1ck     +++|          SHN    14
02729  M00S01998.1ck     +++|          SBD    CA+1
02730  M00S01999.1ck     +++|          RJM    WTB
Line S02000 Modification History
M01 (Removed by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02731  M01S02000.ns2477  ---|          ENDMS
Line S00003 Modification History
M01 (Added by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
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  M00S02001.1ck     +++|          LDD    T5          SET EQUIPMENT
02747  M00S02002.1ck     +++|          STD    CM+1
02748  M00S02003.1ck     +++|          LDD    ST          SET SYSTEM TABLE TRACK
02749  M00S02004.1ck     +++|          STD    CM+2
02750  M00S02005.1ck     +++|          LDN    USTS        UPDATE SYSTEM TABLE TRACK
02751  M00S02006.1ck     +++|          STD    CM+3
Line S02007 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02752  M01S02007.253l688 ---|          MONITOR  STBM
Line S00139 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02753  M01S00139.253l688 +++|          MONITOR  SMDM
Line S02008 Modification History
M01 (Removed by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02754  M01S02008.ns2477  ---|          UJN    WST1        AVOID UEM CHECKPOINT
Line S00017 Modification History
M01 (Added by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02755  M01S00017.ns2477  +++| WSTA     UJN    WST2        AVOID UEM CHECKPOINT
02756  M00S02009.1ck     +++|*         LDD    ST          (UEM PRESENT AND FUNCTION 0 OR 1)
Line S02010 Modification History
M01 (Removed by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02757  M01S02010.ns2477  ---| WSTB     EQU    *-1
02758  M00S02011.1ck     +++|          RJM    SRA         COMPUTE UEM SECTOR OFFSET
02759  M00S02012.1ck     +++|          LDD    RI+1
02760  M00S02013.1ck     +++|          STM    WLAH
02761  M00S02014.1ck     +++|          RJM    UCP         WRITE UEM TO CHECKPOINT FILE
Line S02015 Modification History
M01 (Removed by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02762  M01S02015.ns2477  ---| WST1     RJM    WEI         WRITE EOI
Line S00018 Modification History
M01 (Added by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02763  M01S00018.ns2477  +++| WST2     RJM    WEI         WRITE EOI
02764  M00S02016.1ck     +++|          ENDMS
02765  M00S02017.1ck     +++|          RJM    WLA         WRITE SECTOR OF LOCAL AREAS
02766  M00S02018.1ck     +++|          LJM    WSTX        RETURN
02767  M00S02019.1ck     +++|
Line S02020 Modification History
M01 (Removed by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02768  M01S02020.ns2477  ---| WSTA     VFD    42/0LSYSTAB,6/1,6/SYFT,6/0
Line S00019 Modification History
M01 (Added by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
02769  M01S00019.ns2477  +++|
02770  M01S00020.ns2477  +++| WSTB     VFD    42/0LSYSTAB,6/1,6/SYFT,6/0
Line S02021 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02771  M01S02021.253l688 ---|          SPACE  4
Line S00140 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02772  M01S00140.253l688 +++|          SPACE  4,10
02773  M00S02022.1ck     +++|**        COMMON DECKS.
02774  M00S02023.1ck     +++|
02775  M00S02024.1ck     +++|
Line S00015 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02779  M01S02025.ns2780  ---|*CALL     COMPIFR
Line S00002 Modification History
M01 (Added by) 251l670
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02780  M02S00002.ns2780  ---|*CALL     COMPSDA
02781  M00S02026.1ck     +++|*CALL     COMPSRA
Line S00010 Modification History
M01 (Added by) ns2373
Seq #  *Modification Id* Act 
----------------------------+
02782  M01S00010.ns2373  +++|*CALL     COMPSUD
Line S02027 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
02783  M01S02027.ns2780  ---|          QUAL   UFT
02784  M01S02028.ns2780  ---| QUAL$    EQU    0           DONT REQUALIFY COMMON DECK
02785  M01S02029.ns2780  ---| GFO$     EQU    0           DEFINE FOT ACCESS ROUTINE
02786  M01S02030.ns2780  ---| FN       EQU    CA          CM WORD BUFFER (5 LOCATIONS)
02787  M01S02031.ns2780  ---|*CALL     COMPUFT
02788  M01S02032.ns2780  ---|          QUAL   *
02789  M01S02033.ns2780  ---| GFO      EQU    /UFT/GFO
02790  M00S02034.1ck     +++|          SPACE  4
02791  M00S02035.1ck     +++|*         BUFFER ASSIGNMENTS.
02792  M00S02036.1ck     +++|
02793  M00S02037.1ck     +++|
02794  M00S02038.1ck     +++|          USE    LITERALS
02795  M00S02039.1ck     +++|          QUAL
02796  M00S02040.1ck     +++| BUF      BSS    0
02797  M00S02041.1ck     +++| WBUF     EQU    BUF+502     WRITE ERROR PROCESSING BUFFER
02798  M00S02042.1ck     +++|          ERRNG  BFMS-WBUF-502  BUFFER OVERFLOW
02799  M00S02043.1ck     +++| TBUF     EQU    WBUF+502    TRACK BUFFER
02800  M00S02044.1ck     +++| TBUFL    EQU    BFMS-TBUF   TRACK BUFFER LENGTH
02801  M00S02045.1ck     +++|          ERRNG  TBUFL-20    INADEQUATE TRACK BUFFER
Line S02046 Modification History
M01 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
02802  M01S02046.1ck11   ---| OVL      EQU    BUF+1       ZERO LEVEL OVERLAY LOAD ADDRESS
Line S00011 Modification History
M01 (Added by) ns2373
M02 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
02803  M02S00011.1ck11   ---| OVL0     EQU    OVL         LOAD ADRESS FOR *0SD*
Line S00024 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
02804  M01S00024.1ck11   +++| OVL0     EQU    BUF+1       ZERO LEVEL OVERLAY LOAD ADDRESS
02805  M00S02047.1ck     +++|          QUAL   *
02806  M00S02048.1ck     +++| 3CK      TITLE  OVERLAYED SUBROUTINES.
02807  M00S02049.1ck     +++| ASW      SPACE  4,15
02808  M00S02050.1ck     +++|**        ASW - ABORT SUBSYSTEMS WHERE JOB SCHEDULING IS REQUIRED FOR
02809  M00S02051.1ck     +++|*         CLEANUP OF CONNECTED JOBS.
02810  M00S02052.1ck     +++|*
02811  M00S02053.1ck     +++|*         ENTRY  (NC) = NUMBER OF CONTROL POINTS.
02812  M00S02054.1ck     +++|*
02813  M00S02055.1ck     +++|*         EXIT   (A) = 0.
02814  M00S02056.1ck     +++|*
02815  M00S02057.1ck     +++|*         USES   T1, T7, CM - CM+4, ES - ES+4.
02816  M00S02058.1ck     +++|*
Line S02059 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02817  M01S02059.271l716 ---|*         CALLS  CET, CSC, DEL, DFM, FJO.
Line S00018 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02818  M01S00018.271l716 +++|*         CALLS  CCP, CET, CSC, DEL, DFM, FJO.
02819  M00S02060.1ck     +++|*
02820  M00S02061.1ck     +++|*         MACROS MONITOR.
02821  M00S02062.1ck     +++|
02822  M00S02063.1ck     +++|
02823  M00S02064.1ck     +++| ASW5     LDN    ASWX-ASW5
02824  M00S02065.1ck     +++|          RAM    ASWD
02825  M00S02066.1ck     +++|          LDM    ASWF
02826  M00S02067.1ck     +++|          STM    ASWE
02827  M00S02068.1ck     +++|          LDK    RTCL        GET STARTING TIME
02828  M00S02069.1ck     +++|          CRD    ES
Line S02070 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02829  M01S02070.271l716 ---|          UJN    ASW0        SCAN CONTROL POINTS
Line S00019 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02830  M01S00019.271l716 +++|          UJN    ASW1        SCAN CONTROL POINTS
02831  M00S02071.1ck     +++|
02832  M00S02072.1ck     +++| ASW6     RJM    CSC         CHANGE TO SYSTEM CP
02833  M00S02073.1ck     +++|          RJM    DEL         DELAY FOR 50 MS
02834  M00S02074.1ck     +++| ASW7     RJM    CET         COMPUTE ELAPSED TIME
Line S02075 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02835  M01S02075.271l716 ---|          MJN    ASW0        IF NOT TIMEOUT
Line S00020 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02836  M01S00020.271l716 +++|          MJN    ASW1        IF NOT TIMEOUT
02837  M00S02076.1ck     +++|
02838  M00S02077.1ck     +++| ASW      SUBR               ENTRY/EXIT
Line S02078 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02839  M01S02078.271l716 ---| ASW0     LDD    NC
02840  M01S02079.271l716 ---|          STD    T7
02841  M01S02080.271l716 ---|          UJN    ASW2        ENTER LOOP
02842  M01S02081.271l716 ---|
02843  M01S02082.271l716 ---| ASW1     RJM    CSC         CHANGE TO SYSTEM CP
Proceed to Part 2