User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:dsd.020

Deck DSD Part 020

169 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00914 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27279  M01S00914.274l797 +++|          ZJN    DWN5        IF *NT*
27280  M01S00915.274l797 +++|          LMC    2RCT&2RNT
27281  M01S00916.274l797 +++|          ZJN    DWN5        IF *CT*
27282  M01S00917.274l797 +++|          LMC    2RAT&2RCT
27283  M01S00918.274l797 +++|          NJN    DWN6        IF NOT *AT*
Line S00007 Modification History
M01 (Added by) dsd92
Seq #  *Modification Id* Act 
----------------------------+
27284  M01S00007.dsd92   +++| DWN5     LDM    DWNA
27285  M01S00008.dsd92   +++|          NJP    DWN2        IF EST ORDINAL ENTERED
27286  M01S00009.dsd92   +++| DWN6     LDD    SR          FORM *1DS* PARAMETER
Line S16899 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27287  M01S16899.252l678 ---|          LPN    40
Line S00423 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27288  M01S00423.252l678 +++|          LPN    2
27289  M01S00424.252l678 +++|          SHN    6-1
Line S16900 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27290  M01S16900.282l826 ---|          RAD    SR+1
27291  M01S16901.282l826 ---|          LDC    MTSI        GET *MAGNET* CP NUMBER
27292  M01S16902.282l826 ---|          RJM    FSS
Line S16903 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27293  M02S16903.282l826 ---|          SHN    6
27294  M02S16904.282l826 ---|          ADD    SR+1        ADD CHANNEL NUMBER
Line S00425 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27295  M02S00425.282l826 ---|          SHN    7
27296  M02S00426.282l826 ---|          LMD    SR+1        ADD CHANNEL, CONCURRENCY AND MUX FLAGS
Line S16905 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27297  M01S16905.282l826 ---|          STD    AB+3
Line S00623 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27298  M01S00623.282l826 +++|          ADD    SR+1
27299  M01S00624.282l826 +++|          STD    AB+3        SET CHANNEL, CONCURRENCY, AND MUX FLAGS
Line S16906 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27300  M01S16906.252l678 ---|          LDD    SR
Line S16907 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27301  M02S16907.252l678 ---|          LPN    1
27302  M02S16908.252l678 ---|          SHN    12-0
Line S01003 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27303  M02S01003.252l678 ---|          LPN    3
27304  M02S01004.252l678 ---|          SHN    12-1
Line S16909 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27305  M01S16909.252l678 ---|          RAD    AB+4
27306  M01S16910.252l678 ---|          LDN    /1DS/DWNF
Line S00427 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27307  M01S00427.252l678 +++|          LDD    SR
27308  M01S00428.252l678 +++|          LPN    1
27309  M01S00429.252l678 +++|          ADK    /1DS/DWNF
27310  M01S00430.252l678 +++|          ERRNZ  /1DS/UPCF-/1DS/DWNF-1  CODE DEPENDS ON VALUE
27311  M00S16911.dsd     +++|          JMP    KAR         PROCESS *1DS* CALL
Line S00010 Modification History
M01 (Added by) dsd92
Seq #  *Modification Id* Act 
----------------------------+
27312  M01S00010.dsd92   +++|
27313  M01S00011.dsd92   +++|
27314  M01S00012.dsd92   +++| DWNA     BSSZ   1           FLAG INDICATING EST ORDINAL ENTERED
27315  M00S16912.dsd     +++| CCH      SPACE  4,10
27316  M00S16913.dsd     +++|**        CCH - CHECK FOR VALID CHANNEL.
27317  M00S16914.dsd     +++|*
Line S16915 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
27318  M01S16915.251l664 ---|*         ENTRY  (SR) = 6/0, 1/U, 4/0, 1/M.
Line S01005 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27319  M02S01005.252l678 ---|*         ENTRY  (SR) = 6/0, 1/U, 2/0, 1/L, 1/M, 1/C.
Line S16916 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27320  M01S16916.252l678 ---|*                       U = UP/DOWN CHANNEL FLAG (1 = UP).
Line S01006 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27321  M02S01006.252l678 ---|*                       L = *LDAM* DEVICE FLAG.
Line S16917 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27322  M01S16917.252l678 ---|*                       M = MUX FLAG (1 = 819 MUX CHANNEL).
Line S01007 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27323  M02S01007.252l678 ---|*                       C = CCH FLAG (1 = CONCURRENT CHANNEL).
Line S16918 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27324  M01S16918.252l678 ---|*                (SR+1) = CHANNEL.
27325  M01S16919.252l678 ---|*                (CM - CM+4) = EST ENTRY.
Line S00274 Modification History
M01 (Added by) 241l630
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27326  M02S00274.252l678 ---|*                (T3) = 4000 IF EST ORDINAL NOT SPECIFIED.
Line S00431 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27327  M01S00431.252l678 +++|*         ENTRY  (SR) = 10/0, 1/M, 1/U.
27328  M01S00432.252l678 +++|*                       M = 1 IF MUX CHANNEL.
27329  M01S00433.252l678 +++|*                       U = 1 IF *UP* REQUEST.
27330  M01S00434.252l678 +++|*                (SR+1) = CHANNEL NUMBER (AND CONCURRENCY FLAG).
27331  M01S00435.252l678 +++|*                (CM - CM+4) = WORD *EQDE* OF EST ENTRY.
27332  M01S00436.252l678 +++|*                (SH - SH+4) = WORD *EQAE* OF EST ENTRY.
27333  M00S16920.dsd     +++|*
27334  M00S16921.dsd     +++|*         EXIT   (A) = 0  IF MATCH.
Line S16922 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
27335  M01S16922.241l630 ---|*                (A) = 1  IF NO MATCH.
Line S00275 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
27336  M01S00275.241l630 +++|*                (A) .NE. 0  IF NO MATCH.
Line S00013 Modification History
M01 (Added by) dsd92
Seq #  *Modification Id* Act 
----------------------------+
27337  M01S00013.dsd92   +++|*                (CM - CM+4) = ENTRY VALUE.
27338  M00S16923.dsd     +++|*
Line S16924 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27339  M01S16924.252l678 ---|*         USES   CM - CM+4, T0 - T4.
Line S00437 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27340  M01S00437.252l678 +++|*         USES   T1.
27341  M00S16925.dsd     +++|
27342  M00S16926.dsd     +++|
Line S00276 Modification History
M01 (Added by) 241l630
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27343  M02S00276.252l678 ---| CCH8     LDD    SH+4
27344  M02S00277.252l678 ---|          ZJN    CCH2        IF NOT CURRENTLY ASSIGNED
Line S00438 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27345  M01S00438.252l678 +++| CCH6     LDD    SH+4
Line S00439 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27346  M02S00439.274l797 ---|          ZJN    CCH1        IF DEVICE NOT CURRENTLY ASSIGNED
Line S00919 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27347  M01S00919.274l797 +++|          ZJP    CCH1        IF DEVICE NOT CURRENTLY ASSIGNED
Line S00278 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
27348  M01S00278.241l630 +++|
27349  M00S16927.dsd     +++| CCH      SUBR               ENTRY/EXIT
27350  M00S16928.dsd     +++|          LDD    CM
27351  M00S16929.dsd     +++|          SHN    21-13
Line S16930 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
27352  M01S16930.241l630 ---|          MJN    CCH1        IF MASS STORAGE
Line S00279 Modification History
M01 (Added by) 241l630
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27353  M02S00279.252l678 ---|          MJN    CCH2        IF MASS STORAGE
Line S16931 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27354  M01S16931.252l678 ---|          LDD    T3
Line S16932 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27355  M02S16932.252l678 ---|          SHN    21-13
Line S16933 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 251l664
M03 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27356  M03S16933.252l678 ---|          PJN    CCH2        IF EST ORDINAL ENTERED
Line S00280 Modification History
M01 (Added by) 241l630
M02 (Removed by) 251l664
M03 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27357  M03S00280.252l678 ---|          PJN    CCH3        IF EST ORDINAL ENTERED
Line S16934 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27358  M02S16934.252l678 ---|          LDD    CM+3
Line S00281 Modification History
M01 (Added by) 241l630
M02 (Removed by) 251l664
M03 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27359  M03S00281.252l678 ---|          LMC    2RLX+4000
Line S01008 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27360  M02S01008.252l678 ---|          SHN    0-13
27361  M02S01009.252l678 ---|          LMN    1
27362  M02S01010.252l678 ---|          NJN    CCHX        IF EST ORDINAL ENTERED
Line S00440 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27363  M01S00440.252l678 +++|          MJN    CCH1        IF MASS STORAGE
Line S01011 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
27364  M01S01011.251l664 +++|          LDD    CM          GET DOWN/OFF BIT
27365  M01S01012.251l664 +++|          LPN    2
27366  M01S01013.251l664 +++|          SHN    14
27367  M01S01014.251l664 +++|          LMD    CM+3        GET DEVICE TYPE
Line S01015 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27368  M02S01015.252l678 ---|          LPC    -4000       CLEAR OLD DOWN/OFF BIT
Line S01016 Modification History
M01 (Added by) 251l664
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27369  M02S01016.274l797 ---|          LMC    2RLX+20000
Line S00282 Modification History
M01 (Added by) 241l630
M02 (Removed by) 252l678
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27370  M03S00282.274l797 ---|          ZJN    CCH8        IF *LX* AND OFF
Line S00441 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27371  M02S00441.274l797 ---|          ZJN    CCH6        IF *LX* AND OFF/DOWN
Line S00283 Modification History
M01 (Added by) 241l630
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27372  M02S00283.274l797 ---|          LMN    2RLY&2RLX
Line S00284 Modification History
M01 (Added by) 241l630
M02 (Removed by) 252l678
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27373  M03S00284.274l797 ---|          ZJN    CCH8        IF *LY* AND OFF
Line S00442 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27374  M02S00442.274l797 ---|          ZJN    CCH6        IF *LY* AND OFF/DOWN
Line S16935 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27375  M02S16935.274l797 ---|          LPC    3777
Line S00443 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27376  M02S00443.274l797 ---|          LPC    7777        IGNORE DOWN/OFF STATUS
Line S16936 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27377  M02S16936.274l797 ---|          LMC    2RNT
27378  M02S16937.274l797 ---|          ZJN    CCH1        IF TYPE *NT*
Line S00285 Modification History
M01 (Added by) 241l630
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27379  M02S00285.274l797 ---|          LMC    2RNT&2RLY
Line S00920 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27380  M01S00920.274l797 +++|          LMC    2RLX+20000
27381  M01S00921.274l797 +++|          ZJN    CCH6        IF *LX* AND OFF/DOWN
27382  M01S00922.274l797 +++|          LMN    2RLY&2RLX
27383  M01S00923.274l797 +++|          ZJN    CCH6        IF *LY* AND OFF/DOWN
27384  M01S00924.274l797 +++|          LPC    7777        IGNORE DOWN/OFF STATUS
27385  M01S00925.274l797 +++|          LMC    2RNT&2RLY
Line S00286 Modification History
M01 (Added by) 241l630
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27386  M02S00286.252l678 ---|          ZJN    CCH2        IF TYPE *NT*
Line S00444 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27387  M01S00444.252l678 +++|          ZJN    CCH1        IF TYPE *NT*
27388  M00S16938.dsd     +++|          LMC    2RMT&2RNT
Line S16939 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
27389  M01S16939.241l630 ---|          NJN    CCH2        IF NOT TYPE *MT*
27390  M01S16940.241l630 ---| CCH1     LDD    SR          FORM CHANNEL + UP/DOWN
Line S00287 Modification History
M01 (Added by) 241l630
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27391  M02S00287.252l678 ---| CCH1     NJN    CCHX        IF NO MATCH FOUND, RETURN
Line S00288 Modification History
M01 (Added by) 241l630
M02 (Removed by) 251l664
M03 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27392  M03S00288.252l678 ---| CCH2     LDD    SR          FORM CHANNEL + UP/DOWN
Line S01017 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27393  M02S01017.252l678 ---| CCH2     LDD    CM          CHECK CHANNEL TYPE MATCH (NCH OR CCH)
27394  M02S01018.252l678 ---|          SHN    0-5
27395  M02S01019.252l678 ---|          LMD    SR
27396  M02S01020.252l678 ---|          LPN    1
27397  M02S01021.252l678 ---|          NJN    CCH1        IF NOT THE SAME TYPE OF CHANNEL
27398  M02S01022.252l678 ---|          LDD    SR          FORM CHANNEL + UP/DOWN
Line S16941 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27399  M01S16941.252l678 ---|          LPN    40
27400  M01S16942.252l678 ---|          ADD    SR+1
27401  M01S16943.252l678 ---|          STD    T4
27402  M01S16944.252l678 ---|          LMD    CM+1
27403  M01S16945.252l678 ---|          LPN    77
27404  M01S16946.252l678 ---|          ZJN    CCH4        IF MATCH
27405  M01S16947.252l678 ---|          LDD    CM+1
27406  M01S16948.252l678 ---|          SHN    -6
Line S16949 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27407  M02S16949.252l678 ---|          ZJN    CCH2        IF NO SECONDARY CHANNEL
Line S00289 Modification History
M01 (Added by) 241l630
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27408  M02S00289.252l678 ---|          ZJN    CCH3        IF NO SECONDARY CHANNEL
Line S16950 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27409  M01S16950.252l678 ---|          LMD    T4
27410  M01S16951.252l678 ---|          ZJN    CCH4        IF MATCH
Line S16952 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27411  M02S16952.252l678 ---| CCH2     LDN    1           SET NO MATCH FOUND
27412  M02S16953.252l678 ---| CCH3     UJN    CCHX        EXIT
Line S00290 Modification History
M01 (Added by) 241l630
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27413  M02S00290.252l678 ---| CCH3     LDN    1           SET NO MATCH FOUND
27414  M02S00291.252l678 ---|          UJN    CCH1        RETURN
Line S16954 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27415  M01S16954.252l678 ---|
27416  M01S16955.252l678 ---| CCH4     LDD    CM
27417  M01S16956.252l678 ---|          SHN    0-13
Line S16957 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27418  M02S16957.252l678 ---|          ZJN    CCH7        IF TAPE EQUIPMENT
Line S00292 Modification History
M01 (Added by) 241l630
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27419  M02S00292.252l678 ---|          ZJN    CCH7        IF TAPE OR NIP EQUIPMENT
Line S16958 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27420  M01S16958.252l678 ---|
27421  M01S16959.252l678 ---|*         INSURE ONE CHANNEL LEFT UP AFTER COMMAND
27422  M01S16960.252l678 ---|*         FOR ACTIVE MASS STORAGE DEVICES.
27423  M01S16961.252l678 ---|
27424  M01S16962.252l678 ---|          LDD    SR
27425  M01S16963.252l678 ---|          LPN    40
27426  M01S16964.252l678 ---|          NJN    CCH6        IF *UP* COMMAND
27427  M01S16965.252l678 ---|          LDD    CM+1
27428  M01S16966.252l678 ---|          SHN    -6
27429  M01S16967.252l678 ---|          ZJN    CCH5        IF ONLY 1 CHANNEL
27430  M01S16968.252l678 ---|          LDD    CM+1
27431  M01S16969.252l678 ---|          LPC    4040
27432  M01S16970.252l678 ---|          ZJN    CCH6        IF BOTH ARE UP
Line S16971 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27433  M02S16971.252l678 ---| CCH5     LDD    CM+4        CHECK IF DEVICE UNLOADED
27434  M02S16972.252l678 ---|          SHN    3
27435  M02S16973.252l678 ---|          ADN    ACGL
27436  M02S16974.252l678 ---|          CRD    T0
27437  M02S16975.252l678 ---|          LDD    T0+4
27438  M02S16976.252l678 ---|          LPN    MGUNL
Line S16977 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 242l642
M03 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27439  M03S16977.252l678 ---|          ZJN    CCH2        IF DEVICE NOT UNLOADED
Line S00293 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
M03 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27440  M03S00293.252l678 ---|          ZJN    CCH3        IF DEVICE NOT UNLOADED
Line S00745 Modification History
M01 (Added by) 242l642
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27441  M02S00745.252l678 ---| CCH5     LDD    CM
27442  M02S00746.252l678 ---|          LPN    3
27443  M02S00747.252l678 ---|          LMN    3
27444  M02S00748.252l678 ---|          NJN    CCH3        IF DEVICE NOT DOWN
Line S16978 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27445  M02S16978.252l678 ---| CCH6     LDD    CM          CHECK CHANNEL TYPE MATCH (MUX OR PPS)
27446  M02S16979.252l678 ---|          SHN    0-7
27447  M02S16980.252l678 ---|          LMN    1
27448  M02S16981.252l678 ---| CCH7     LMD    SR
27449  M02S16982.252l678 ---|          LPN    1
Line S16983 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 251l664
M03 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27450  M03S16983.252l678 ---|          UJN    CCH3        RETURN
Line S00294 Modification History
M01 (Added by) 241l630
M02 (Removed by) 251l664
M03 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27451  M03S00294.252l678 ---|          LJM    CCHX        RETURN
Line S01023 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27452  M02S01023.252l678 ---| CCH6     LDD    CM          CHECK CHANNEL TYPE MATCH (*LDAM* OR NOT)
27453  M02S01024.252l678 ---|          SHN    2-7
27454  M02S01025.252l678 ---|          LMD    SR
27455  M02S01026.252l678 ---|          LPN    4
27456  M02S01027.252l678 ---| CCH7     LJM    CCHX        RETURN
Line S00445 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27457  M02S00445.274l797 ---|          NJN    CCHX        IF WRONG DEVICE TYPE
Line S00926 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27458  M01S00926.274l797 +++|          ZJN    CCH1        IF TYPE *MT*
27459  M01S00927.274l797 +++|          LMC    2RCT&2RMT
27460  M01S00928.274l797 +++|          ZJN    CCH1        IF TYPE *CT*
27461  M01S00929.274l797 +++|          LMC    2RAT&2RCT
27462  M01S00930.274l797 +++|          ZJN    CCH1        IF TYPE *AT*
27463  M01S00931.274l797 +++|          LMC    2ROD&2RAT
27464  M01S00932.274l797 +++|          NJP    CCHX        IF NOT TYPE *OD*
Line S00446 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
27465  M01S00446.252l678 +++| CCH1     LDN    1           SET CHANNEL BYTE INDEX
27466  M01S00447.252l678 +++|          STD    T1
27467  M01S00448.252l678 +++| CCH2     LDD    SR
27468  M01S00449.252l678 +++|          LPN    1
27469  M01S00450.252l678 +++|          SHN    12-0
27470  M01S00451.252l678 +++|          LMM    CM+1,T1
27471  M01S00452.252l678 +++|          LMD    SR+1
27472  M01S00453.252l678 +++|          LPC    6077
27473  M01S00454.252l678 +++|          SHN    21-13
27474  M01S00455.252l678 +++|          PJN    CCH3        IF CHANNEL NOT PRESENT OR DISABLED
27475  M01S00456.252l678 +++|          LPC    207700
27476  M01S00457.252l678 +++|          ZJN    CCH4        IF CHANNEL, TYPE, STATE MATCH
27477  M01S00458.252l678 +++| CCH3     SOD    T1
27478  M01S00459.252l678 +++|          PJN    CCH2        IF CHANNEL 1 NOT YET CHECKED
27479  M01S00460.252l678 +++|          UJN    CCH5        RETURN
27480  M01S00461.252l678 +++|
27481  M01S00462.252l678 +++| CCH4     LDD    SR
27482  M01S00463.252l678 +++|          LPN    2
27483  M01S00464.252l678 +++|          ZJN    CCH5        IF NOT A MUX CHANNEL
27484  M01S00465.252l678 +++|          LDD    CM
27485  M01S00466.252l678 +++|          SHN    0-13
27486  M01S00467.252l678 +++|          ZJN    CCH5        IF NOT MASS STORAGE
27487  M01S00468.252l678 +++|          LDD    CM
27488  M01S00469.252l678 +++|          LPC    200
27489  M01S00470.252l678 +++| CCH5     LJM    CCHX        RETURN WITH (A) = REPLY STATUS
27490  M00S16984.dsd     +++|          SPACE  4,10
Line S16985 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27491  M01S16985.274l797 ---|          USE    END         DUMP LITERALS BLOCK
Line S00933 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
27492  M01S00933.274l797 +++|          CMDEND
Line S16986 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
27493  M01S16986.242l642 ---|          COMMAND (DOWN/OFF EQUIPMENT COMMANDS.)
27494  M01S16987.242l642 ---|          SPACE  4,5
27495  M01S16988.242l642 ---|***       DOWN,EQXXX.
27496  M01S16989.242l642 ---|*
27497  M01S16990.242l642 ---|*         SET *DOWN* (AND *OFF*) STATUS ON EST ORDINAL XXX.
27498  M01S16991.242l642 ---|
27499  M01S16992.242l642 ---|
27500  M01S16993.242l642 ---|          ENTRY  DWE
27501  M01S16994.242l642 ---|          LDN    2           POSITION KEYBOARD INDEX
27502  M01S16995.242l642 ---|          RAD    CA
27503  M01S16996.242l642 ---|          RJM    CEN         CHECK EST ORDINAL
27504  M01S16997.242l642 ---|          SHN    21-5
27505  M01S16998.242l642 ---|          PJN    DWE2        IF EQUIPMENT NOT DOWN
27506  M01S16999.242l642 ---| DWE1     JMP    KIE         *INCORRECT ENTRY*
27507  M01S17000.242l642 ---|
27508  M01S17001.242l642 ---| DWE2     SHN    21-13-21+5+22
27509  M01S17002.242l642 ---|          PJN    DWE3        IF NOT MASS STORAGE
27510  M01S17003.242l642 ---|          SHN    21-4-21+13
27511  M01S17004.242l642 ---|          MJN    DWE1        IF INDEPENDENT SHARED DEVICE
27512  M01S17005.242l642 ---|          RJM    CDS         CHECK DEVICE STATUS
27513  M01S17006.242l642 ---|          PJN    DWE1        IF NOT GLOBALLY UNLOADED
27514  M01S17007.242l642 ---|          LDD    T3
27515  M01S17008.242l642 ---|          SHN    21-GDDV+GDDV/12D*12D
27516  M01S17009.242l642 ---|          MJN    DWE1        IF GLOBAL DOWN BIT SET
27517  M01S17010.242l642 ---|          LDN    GDDV        SET GLOBAL DOWN BIT IN *ACGL*
27518  M01S17011.242l642 ---|          STD    AB+3
27519  M01S17012.242l642 ---|          LJM    OFE3        CALL *1DS*
27520  M01S17013.242l642 ---|
27521  M01S17014.242l642 ---| DWE3     LDD    AB+4
27522  M01S17015.242l642 ---|          ZJN    DWE1        IF EQUIPMENT ZERO
27523  M01S17016.242l642 ---|          LDD    SR+4
27524  M01S17017.242l642 ---|          NJN    DWE1        IF DEVICE ASSIGNED TO A JOB
27525  M01S17018.242l642 ---|          LDC    0           (EQUIPMENT TYPE)
27526  M01S17019.242l642 ---| DWEA     EQU    *-1         SET BY *CEN*
27527  M01S17020.242l642 ---|          LMC    2RCM
27528  M01S17021.242l642 ---|          ZJP    C1R         IF A CONTROL MODULE
27529  M01S17022.242l642 ---|          LDN    40          SET DOWN BIT IN EST
27530  M01S17023.242l642 ---|          RJM    SCB
27531  M01S17024.242l642 ---|          UJN    OFE1        TURN *OFF* NON-RMS EQUIPMENT
27532  M01S17025.242l642 ---| OFE      SPACE  4,10
27533  M01S17026.242l642 ---|***       OFF,XXX.
27534  M01S17027.242l642 ---|*
27535  M01S17028.242l642 ---|*         TURN EST ORDINAL XXX *OFF*.
27536  M01S17029.242l642 ---|
27537  M01S17030.242l642 ---|
27538  M01S17031.242l642 ---|          ENTRY  OFE
27539  M01S17032.242l642 ---|          RJM    CEN         CHECK EST ORDINAL
27540  M01S17033.242l642 ---|          LDM    DWEA
27541  M01S17034.242l642 ---|          LMC    2RCM
27542  M01S17035.242l642 ---|          ZJN    CEN1        IF A CONTROL MODULE
27543  M01S17036.242l642 ---| OFE1     LDD    AB+4
27544  M01S17037.242l642 ---|          STD    CM+1
27545  M01S17038.242l642 ---|          LDC    4000        INDICATE *OFF* REQUEST TO *1DS*
27546  M01S17039.242l642 ---|          RAD    AB+4
27547  M01S17040.242l642 ---|          LDN    OFES
27548  M01S17041.242l642 ---| OFE2     STD    CM+2
27549  M01S17042.242l642 ---|          MONITOR SEQM
27550  M01S17043.242l642 ---|          LDC    0
27551  M01S17044.242l642 ---| OFEA     EQU    *-1         (MASS STORAGE FLAG)
27552  M01S17045.242l642 ---|          SHN    21-13
27553  M01S17046.242l642 ---|          MJN    OFE3        IF MASS STORAGE
27554  M01S17047.242l642 ---|          LJM    AMT         ALERT MAGNET
27555  M01S17048.242l642 ---|
27556  M01S17049.242l642 ---| OFE3     LDN    /1DS/SCDF   INITIATE *CMS* CALL
27557  M01S17050.242l642 ---|          JMP    KAR         PROCESS *1DS* CALL
27558  M01S17051.242l642 ---| CEN      SPACE  4,10
27559  M01S17052.242l642 ---|**        CEN - CHECK EST ORDINAL.
27560  M01S17053.242l642 ---|*
27561  M01S17054.242l642 ---|*         EXIT   (A) = EST BYTE 0 OF EST ORDINAL XXX.
27562  M01S17055.242l642 ---|*                (AB+4) = (AMTA) = EST ORDINAL.
27563  M01S17056.242l642 ---|*                (SR+4) = EJTO OF OWNER, IF ANY.
27564  M01S17057.242l642 ---|*
27565  M01S17058.242l642 ---|*         USES   CM - CM+4, SR - SR+4, T3 - T7.
27566  M01S17059.242l642 ---|*
27567  M01S17060.242l642 ---|*         CALLS  ASD.
27568  M01S17061.242l642 ---|
27569  M01S17062.242l642 ---|
27570  M01S17063.242l642 ---| CEN1     JMP    KIE         INCORRECT ENTRY
27571  M01S17064.242l642 ---|
27572  M01S17065.242l642 ---| CEN      SUBR               ENTRY/EXIT
27573  M01S17066.242l642 ---|          RJM    ASD         ASSEMBLE EST ORDINAL
27574  M01S17067.242l642 ---|          LDN    ESTP        READ EST POINTER
27575  M01S17068.242l642 ---|          CRD    T3
27576  M01S17069.242l642 ---|          LDD    AB+4        READ EST ENTRY
27577  M01S17070.242l642 ---|          STM    AMTA
27578  M01S17071.242l642 ---|          SBD    T3+2
27579  M01S17072.242l642 ---|          PJN    CEN1        IF BEYOND EST
27580  M01S17073.242l642 ---|          SFA    EST,AB+4    READ EST ENTRY
27581  M01S17074.242l642 ---|          ADK    EQDE
27582  M01S17075.242l642 ---|          CRD    CM
27583  M01S17076.242l642 ---|          ADK    EQAE-EQDE   READ EQUIPMENT ASSIGNMENT
27584  M01S17077.242l642 ---|          CRD    SR
27585  M01S17078.242l642 ---|          LDD    CM+3
27586  M01S17079.242l642 ---|          ZJN    CEN1        IF NOT DEFINED
27587  M01S17080.242l642 ---|          LPC    3777        CHECK FOR A CONTROL MODULE
27588  M01S17081.242l642 ---|          STM    DWEA
27589  M01S17082.242l642 ---|          LDD    CM
27590  M01S17083.242l642 ---|          STM    OFEA        SAVE MASS STORAGE FLAG
27591  M01S17084.242l642 ---|          UJN    CENX        EXIT
27592  M01S17085.242l642 ---| CDS      SPACE  4,10
27593  M01S17086.242l642 ---|**        CDS - CHECK DEVICE STATUS.
27594  M01S17087.242l642 ---|*
27595  M01S17088.242l642 ---|*         ENTRY  (CM - CM+4) = EST ENTRY.
27596  M01S17089.242l642 ---|*
27597  M01S17090.242l642 ---|*         EXIT   (A) .LT. 0, IF DEVICE GLOBALLY UNLOADED.
27598  M01S17091.242l642 ---|*                    .GE. 0, IF DEVICE NOT GLOBALLY UNLOADED.
27599  M01S17092.242l642 ---|*                (T3 - T7) = MST WORD *ACGL* OF EST ORDINAL XXX.
27600  M01S17093.242l642 ---|*
27601  M01S17094.242l642 ---|*         USES   T3 - T7.
27602  M01S17095.242l642 ---|
27603  M01S17096.242l642 ---|
27604  M01S17097.242l642 ---| CDS      SUBR               ENTRY/EXIT
27605  M01S17098.242l642 ---|          LDD    CM+4        FETCH MST WORD *ACGL*
27606  M01S17099.242l642 ---|          SHN    3
27607  M01S17100.242l642 ---|          ADN    ACGL
27608  M01S17101.242l642 ---|          CRD    T3
27609  M01S17102.242l642 ---|          LDD    T3+4
27610  M01S17103.242l642 ---|          SHN    21-GUNL
27611  M01S17104.242l642 ---|          UJN    CDSX        EXIT WITH GLOBAL UNLOAD STATUS
27612  M01S17105.242l642 ---| C1R      SPACE  4,10
27613  M01S17106.242l642 ---|**        C1R - CALL *1DS* AND REENTER.
27614  M01S17107.242l642 ---|*
27615  M01S17108.242l642 ---|*         USES   CM - CM+4.
27616  M01S17109.242l642 ---|*
27617  M01S17110.242l642 ---|*         CALLS  C1D.
27618  M01S17111.242l642 ---|
27619  M01S17112.242l642 ---|
27620  M01S17113.242l642 ---| C1R      LDC    /1DS/DCMF&/1DS/LOCK
27621  M01S17114.242l642 ---|          RJM    C1D         PROCESS *1DS* CALL
27622  M01S17115.242l642 ---|          LDC    C1R1        SET REENTRY ADDRESS
27623  M01S17116.242l642 ---|          STM    /KEYBOARD/KCRB
27624  M01S17117.242l642 ---| C1R1     LDC    /1DS/DSDL
27625  M01S17118.242l642 ---|          CRD    CM
27626  M01S17119.242l642 ---|          LDD    CM
27627  M01S17120.242l642 ---|          NJP    CLP1        IF *1DS* NOT COMPLETE
27628  M01S17121.242l642 ---|          LDC    /1DS/DSDL+1
27629  M01S17122.242l642 ---|          CRD    CM
27630  M01S17123.242l642 ---|          LDD    CM
27631  M01S17124.242l642 ---|          NJP    KIE         IF ILLEGAL ENTRY
27632  M01S17125.242l642 ---|          JMP    KBR         RETURN
27633  M01S17126.242l642 ---| SCB      SPACE  4,10
27634  M01S17127.242l642 ---|**        SCB - SET/CLEAR DOWN BIT IN EST.
27635  M01S17128.242l642 ---|*
27636  M01S17129.242l642 ---|*         ENTRY  (A) = SETTING/CLEARING BIT MASK.
27637  M01S17130.242l642 ---|*
27638  M01S17131.242l642 ---|*         EXIT   DOWN BIT SET/CLEARED IN EST.
27639  M01S17132.242l642 ---|*
27640  M01S17133.242l642 ---|*         USES   CM - CM+4.
27641  M01S17134.242l642 ---|*
27642  M01S17135.242l642 ---|*         MACROS MONITOR.
27643  M01S17136.242l642 ---|
27644  M01S17137.242l642 ---|
27645  M01S17138.242l642 ---| SCB      SUBR               ENTRY/EXIT
27646  M01S17139.242l642 ---|          STD    CM+4        SAVE SETTING/CLEARING BIT MASK
27647  M01S17140.242l642 ---|          LCN    40          SET DOWN BIT CLEARING MASK
27648  M01S17141.242l642 ---|          STD    CM+3
27649  M01S17142.242l642 ---|          LDN    SB0S        SET BYTE 0 IN EST
27650  M01S17143.242l642 ---|          STD    CM+2
27651  M01S17144.242l642 ---|          LDD    AB+4        SET EST ORDINAL
27652  M01S17145.242l642 ---|          STD    CM+1
27653  M01S17146.242l642 ---|          MONITOR  SEQM
27654  M01S17147.242l642 ---|          UJN    SCBX        EXIT
27655  M01S17148.242l642 ---| AMT      SPACE  4,10
27656  M01S17149.242l642 ---|**        AMT - ALERT *MAGNET*.
27657  M01S17150.242l642 ---|*
27658  M01S17151.242l642 ---|*         ENTRY  (AB+4) = 1/F, 1/0, 10/EQ.
27659  M01S17152.242l642 ---|*                            F = *OFF* FLAG.
27660  M01S17153.242l642 ---|*                            EQ = EST ORDINAL.
27661  M01S17154.242l642 ---|*                (DWEA) = EQUIPMENT MNEUMONIC.
27662  M01S17155.242l642 ---|*
27663  M01S17156.242l642 ---|*         USES   CM - CM+4.
27664  M01S17157.242l642 ---|*
27665  M01S17158.242l642 ---|*         CALLS  CMT.
27666  M01S17159.242l642 ---|
27667  M01S17160.242l642 ---|
27668  M01S17161.242l642 ---| AMT      LDM    DWEA
27669  M01S17162.242l642 ---|          LMC    2RMT
27670  M01S17163.242l642 ---|          ZJN    AMT2        IF *MT*
27671  M01S17164.242l642 ---|          LMC    2RNT&2RMT
27672  M01S17165.242l642 ---|          ZJN    AMT2        IF *NT*
27673  M01S17166.242l642 ---| AMT1     JMP    KBR         RETURN
27674  M01S17167.242l642 ---|
27675  M01S17168.242l642 ---| AMT2     RJM    CMT         CHECK *MAGNET*
27676  M01S17169.242l642 ---|          ZJN    AMT1        IF *MAGNET* NOT ACTIVE
27677  M01S17170.242l642 ---| AMT3     LDD    T7          FIND UNIT IN UDT
27678  M01S17171.242l642 ---|          SHN    6
27679  M01S17172.242l642 ---|          ADD    T6
27680  M01S17173.242l642 ---|          ADN    /MTX/UST4
27681  M01S17174.242l642 ---|          CRD    AB          READ UST4
27682  M01S17175.242l642 ---|          LDD    AB+2        CHECK EST ORDINAL IN UDT
27683  M01S17176.242l642 ---|          LMC    **
27684  M01S17177.242l642 ---| AMTA     EQU    *-1         (UNIT NUMBER - SET BY CEN)
27685  M01S17178.242l642 ---|          ZJN    AMT4        IF UNIT FOUND
27686  M01S17179.242l642 ---|          LDN    /MTX/UNITL  ADVANCE UDT ADDRESS
27687  M01S17180.242l642 ---|          RAD    T6
27688  M01S17181.242l642 ---|          SBD    T4
27689  M01S17182.242l642 ---|          MJN    AMT3        IF NOT END OF UNITS
27690  M01S17183.242l642 ---|          JMP    KIE         *INCORRECT ENTRY*
27691  M01S17184.242l642 ---|
27692  M01S17185.242l642 ---| AMT4     LDK    OFES
27693  M01S17186.242l642 ---|          STD    AB+4
27694  M01S17187.242l642 ---|          LDD    T6          SET UDT ADDRESS
27695  M01S17188.242l642 ---|          STD    AB+1
27696  M01S17189.242l642 ---|          LDK    /MTX/XOF    ENTER OFF TAPE UNIT FUNCTION
27697  M01S17190.242l642 ---|          STD    AB
27698  M01S17191.242l642 ---|          LDD    MA
27699  M01S17192.242l642 ---|          CWD    AB
27700  M01S17193.242l642 ---|          CRD    SP
27701  M01S17194.242l642 ---|          LDC    /1DS/EUFF+/1DS/LOCK
27702  M01S17195.242l642 ---|          JMP    KAR         PROCESS *1DS* CALL
27703  M01S17196.242l642 ---|          SPACE  4,10
27704  M01S17197.242l642 ---|          USE    END         DUMP LITERALS BLOCK
27705  M01S17198.242l642 ---|          COMMAND (UP/ON EQUIPMENT COMMANDS.)
27706  M01S17199.242l642 ---| ONE      SPACE  4,10
27707  M01S17200.242l642 ---|***       ON,XXX.
27708  M01S17201.242l642 ---|*
27709  M01S17202.242l642 ---|*         TURN EST ORDINAL XXX *ON*.
27710  M01S17203.242l642 ---|
27711  M01S17204.242l642 ---|
27712  M01S17205.242l642 ---|          ENTRY  ONE
27713  M01S17206.242l642 ---| ONE1     RJM    CEN         CHECK EST ORDINAL
27714  M01S17207.242l642 ---|          SHN    21-5
27715  M01S17208.242l642 ---|          MJN    ONE2        IF DOWN BIT SET
27716  M01S17209.242l642 ---|          LDM    UPEA
27717  M01S17210.242l642 ---|          LMC    2RDD
27718  M01S17211.242l642 ---|          NJN    ONE3        IF NOT *DD* DEVICE
27719  M01S17212.242l642 ---|          LDD    CM+1        CHECK IF CHANNEL AVAILABLE
27720  M01S17213.242l642 ---|          SHN    21-5
27721  M01S17214.242l642 ---|          PJN    ONE3        IF CHANNEL 1 UP
27722  M01S17215.242l642 ---|          LPN    77
27723  M01S17216.242l642 ---|          ZJN    ONE5        IF NO SECOND CHANNEL
27724  M01S17217.242l642 ---|          SHN    21-5
27725  M01S17218.242l642 ---| ONE2     MJN    ONE5        IF CHANNEL 2 DOWN
27726  M01S17219.242l642 ---| ONE3     LDD    AB+4        SET EQUIPMENT
27727  M01S17220.242l642 ---|          STD    CM+1
27728  M01S17221.242l642 ---|          LDC    2000        INDICATE *ON* REQUEST TO *1DS*
27729  M01S17222.242l642 ---|          RAD    AB+4
27730  M01S17223.242l642 ---|          LDN    ONES
27731  M01S17224.242l642 ---|          STD    CM+2
27732  M01S17225.242l642 ---|          MONITOR SEQM
27733  M01S17226.242l642 ---|          LDC    0
27734  M01S17227.242l642 ---| ONEA     EQU    *-1         (MASS STORAGE FLAG)
27735  M01S17228.242l642 ---|          SHN    21-13
27736  M01S17229.242l642 ---|          MJN    ONE4        IF MASS STORAGE
27737  M01S17230.242l642 ---|          LJM    AMT         ALERT MAGNET
27738  M01S17231.242l642 ---|
27739  M01S17232.242l642 ---| ONE4     LDN    /1DS/SCDF   INITIATE *CMS* CALL
27740  M01S17233.242l642 ---|          JMP    KAR         PROCESS *1DS* CALL
27741  M01S17234.242l642 ---|
27742  M01S17235.242l642 ---| ONE5     JMP    KIE         ILLEGAL ENTRY
27743  M01S17236.242l642 ---| UPE      SPACE  4,5
27744  M01S17237.242l642 ---|***       UP,EQXXX.
27745  M01S17238.242l642 ---|*
27746  M01S17239.242l642 ---|*         CLEAR *DOWN* STATUS ON EST ORDINAL XXX.
27747  M01S17240.242l642 ---|
27748  M01S17241.242l642 ---|
27749  M01S17242.242l642 ---|          ENTRY  UPE
27750  M01S17243.242l642 ---|          LDN    2           POSITION KEYBOARD INDEX
27751  M01S17244.242l642 ---|          RAD    CA
27752  M01S17245.242l642 ---|          RJM    CEN         CHECK EST ORDINAL
27753  M01S17246.242l642 ---|          LPN    40
27754  M01S17247.242l642 ---|          LMN    40
27755  M01S17248.242l642 ---|          ADD    SR+4
27756  M01S17249.242l642 ---|          NJN    ONE5        IF DEVICE NOT DOWN OR ASSIGNED
27757  M01S17250.242l642 ---|          LDD    CM          CHECK EQUIPMENT
27758  M01S17251.242l642 ---|          SHN    0-13
27759  M01S17252.242l642 ---|          ZJN    UPE1        IF NOT MASS STORAGE
27760  M01S17253.242l642 ---|          LDC    0           (EQUIPMENT TYPE)
27761  M01S17254.242l642 ---| UPEA     EQU    *-1
27762  M01S17255.242l642 ---|          LMC    2RDD
27763  M01S17256.242l642 ---|          ZJP    C1R         IF A *DD* DEVICE
27764  M01S17257.242l642 ---|          RJM    CDS
27765  M01S17258.242l642 ---|          LDD    T3          CHECK MST STATUS
27766  M01S17259.242l642 ---|          LPN    MGDDV
27767  M01S17260.242l642 ---|          NJN    UPE2        IF GLOBAL DOWN SET
27768  M01S17261.242l642 ---| UPE1     RJM    SCB         CLEAR DOWN STATUS IN EST
27769  M01S17262.242l642 ---|          LDM    UPEA
27770  M01S17263.242l642 ---|          LMC    2RCM
27771  M01S17264.242l642 ---|          NJP    AMT1        IF NOT A CONTROL MODULE
27772  M01S17265.242l642 ---|          LDC    7077        CLEAR CONTROLWARE LOAD COUNT
27773  M01S17266.242l642 ---|          STD    CM+3
27774  M01S17267.242l642 ---|          LDN    SB2S        SET BYTE 2 IN EST
27775  M01S17268.242l642 ---|          STD    CM+2
27776  M01S17269.242l642 ---|          MONITOR  SEQM
27777  M01S17270.242l642 ---|          LCN    2
27778  M01S17271.242l642 ---|          RAD    CA
27779  M01S17272.242l642 ---|          LJM    ONE1        TURN ON THE CONTROL MODULE
27780  M01S17273.242l642 ---|
27781  M01S17274.242l642 ---| UPE2     LDD    T3+4
27782  M01S17275.242l642 ---|          LPN    MGUNL
27783  M01S17276.242l642 ---|          ZJN    UPE3        IF DEVICE NOT GLOBALLY UNLOADED
27784  M01S17277.242l642 ---|          LDC    4000+GDDV
27785  M01S17278.242l642 ---|          STD    AB+3        SET/CLEAR GLOBAL DOWN STATUS IN MST
27786  M01S17279.242l642 ---|          LDN    /1DS/SCDF
27787  M01S17280.242l642 ---|          JMP    KAR         PROCESS *1DS* REQUEST
27788  M01S17281.242l642 ---|
27789  M01S17282.242l642 ---| UPE3     JMP    KIE         *ILLEGAL ENTRY*
Line S00749 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
27790  M01S00749.242l642 +++|          COMMAND (DOWN/OFF/IDLE/ON EQUIPMENT COMMANDS.),CMR
Line S01028 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
27791  M01S01028.251l664 +++| DWM      SPACE  4,10
27792  M01S01029.251l664 +++|***       DOWN,MID=XX.
27793  M01S01030.251l664 +++|*
27794  M01S01031.251l664 +++|*         CONFIRM MACHINE ID XX IS IN THE *DOWN* STATE.
27795  M01S01032.251l664 +++|
27796  M01S01033.251l664 +++|
27797  M01S01034.251l664 +++|          ENTRY  DWM
27798  M01S01035.251l664 +++|          LDN    4
27799  M01S01036.251l664 +++|          RAD    CA
27800  M01S01037.251l664 +++|          LDK    EFRL        READ MAINFRAME STATE TABLE
27801  M01S01038.251l664 +++|          CRD    CM
27802  M01S01039.251l664 +++|          LDN    0
27803  M01S01040.251l664 +++|          STD    CM+2
27804  M01S01041.251l664 +++| DWM1     LDD    CM
27805  M01S01042.251l664 +++|          SHN    14
27806  M01S01043.251l664 +++|          LMD    CM+1
27807  M01S01044.251l664 +++|          ZJN    DWM2        IF NOT MMF MODE
27808  M01S01045.251l664 +++|          ADD    CM+2
27809  M01S01046.251l664 +++|          CRD    AB
27810  M01S01047.251l664 +++|          LDI    CA
27811  M01S01048.251l664 +++|          SHN    6
27812  M01S01049.251l664 +++|          ADM    1,CA
27813  M01S01050.251l664 +++|          LMD    AB
27814  M01S01051.251l664 +++|          ZJN    DWM3        IF MACHINE ID FOUND
27815  M01S01052.251l664 +++|          AOD    CM+2
27816  M01S01053.251l664 +++|          SBN    MXMF
27817  M01S01054.251l664 +++|          MJN    DWM1        IF NOT ALL MACHINES CHECKED
27818  M01S01055.251l664 +++| DWM2     JMP    KIE         *INCORRECT ENTRY*
27819  M01S01056.251l664 +++|
27820  M01S01057.251l664 +++| DWM3     LDD    AB+4
27821  M01S01058.251l664 +++|          LMN    MFD2
27822  M01S01059.251l664 +++|          NJN    DWM2        IF NOT IN PROPER *DOWN* STATE
27823  M01S01060.251l664 +++|          LDM    2,CA
27824  M01S01061.251l664 +++|          LMN    1R.
27825  M01S01062.251l664 +++|          NJN    DWM2        IF INCORRECT TERMINATOR
27826  M01S01063.251l664 +++|          LDN    MFDA        SET *DOWN ACKNOWLEGED* STATE
27827  M01S01064.251l664 +++|          STD    AB+4
27828  M01S01065.251l664 +++|          LDD    CM
27829  M01S01066.251l664 +++|          SHN    14
27830  M01S01067.251l664 +++|          LMD    CM+1
27831  M01S01068.251l664 +++|          ADD    CM+2
27832  M01S01069.251l664 +++|          CWD    AB
27833  M01S01070.251l664 +++|          LJM    KBR         SET COMMAND COMPLETE
Line S00750 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
27834  M01S00750.242l642 +++| DWE      SPACE  4,10
27835  M01S00751.242l642 +++|***       DOWN,EQ=XXX.
27836  M01S00752.242l642 +++|*
27837  M01S00753.242l642 +++|*         SET EST ORDINAL XXX TO THE *DOWN* STATE.
27838  M01S00754.242l642 +++|
27839  M01S00755.242l642 +++|
27840  M01S00756.242l642 +++|          ENTRY  DWE
27841  M01S00757.242l642 +++|          LDN    DWES        CHECK EST ENTRY
27842  M01S00758.242l642 +++|          RJM    CEN
Line S00759 Modification History
M01 (Added by) 242l642
M02 (Removed by) dsd43
Seq #  *Modification Id* Act 
----------------------------+
27843  M02S00759.dsd43   ---|          MJN    OFE1        IF MASS STORAGE DEVICE
Line S00001 Modification History
M01 (Added by) dsd43
Seq #  *Modification Id* Act 
----------------------------+
27844  M01S00001.dsd43   +++|          MJN    DWE1        IF MASS STORAGE DEVICE
Line S00760 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
27845  M01S00760.242l642 +++|          LDD    AB+4
Line S00761 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2424
Seq #  *Modification Id* Act 
----------------------------+
27846  M02S00761.ns2424  ---|          ZJN    OFE2        IF EQUIPMENT ZERO
Line S00001 Modification History
M01 (Added by) ns2424
Seq #  *Modification Id* Act 
----------------------------+
27847  M01S00001.ns2424  +++|          ZJN    OFE3        IF EQUIPMENT ZERO
Line S00762 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
27848  M01S00762.242l642 +++|          LDD    SR+4
Line S00763 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2424
Seq #  *Modification Id* Act 
----------------------------+
27849  M02S00763.ns2424  ---|          NJN    OFE2        IF DEVICE ASSIGNED
Line S00002 Modification History
M01 (Added by) ns2424
Seq #  *Modification Id* Act 
----------------------------+
27850  M01S00002.ns2424  +++|          NJN    OFE3        IF DEVICE ASSIGNED
Line S00764 Modification History
M01 (Added by) 242l642
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27851  M02S00764.282l826 ---|          LDM    AMTA
Line S00625 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27852  M01S00625.282l826 +++|          LDM    CENA
Line S00765 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
27853  M01S00765.242l642 +++|          LMC    2RCM
Line S00766 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2424
Seq #  *Modification Id* Act 
----------------------------+
27854  M02S00766.ns2424  ---|          NJN    IDE1        IF NOT CONTROL MODULE
Line S00003 Modification History
M01 (Added by) ns2424
Seq #  *Modification Id* Act 
----------------------------+
27855  M01S00003.ns2424  +++|          NJN    OFE2        IF NOT CONTROL MODULE
Line S00767 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
27856  M01S00767.242l642 +++|          LDC    /1DS/DCMF+/1DS/LOCK
27857  M01S00768.242l642 +++|          LJM    C1R1        CALL *1DS*
Line S00002 Modification History
M01 (Added by) dsd43
Seq #  *Modification Id* Act 
----------------------------+
27858  M01S00002.dsd43   +++|
Line S00003 Modification History
M01 (Added by) dsd43
M02 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
27859  M02S00003.251l664 ---| DWE1     LDD    CM+4        DETERMINE IF BUFFERED DEVICE
27860  M02S00004.251l664 ---|          SHN    3
27861  M02S00005.251l664 ---|          ADN    DILL
27862  M02S00006.251l664 ---|          CRD    T1
27863  M02S00007.251l664 ---|          LDD    T1+3
27864  M02S00008.251l664 ---|          SHN    21-13
27865  M02S00009.251l664 ---|          MJN    OFE2        IF BUFFERED DEVICE
27866  M02S00010.251l664 ---|          UJN    IDE2        CALL *1DS*
Line S01071 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
27867  M01S01071.251l664 +++| DWE1     UJN    IDE2        CALL *1DS*
Line S00769 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
27868  M01S00769.242l642 +++| OFE      SPACE  4,10
27869  M01S00770.242l642 +++|***       OFF,EQ=XXX.
27870  M01S00771.242l642 +++|*
27871  M01S00772.242l642 +++|*         SET EST ORDINAL XXX TO THE *OFF* STATE.
27872  M01S00773.242l642 +++|
27873  M01S00774.242l642 +++|
27874  M01S00775.242l642 +++|          ENTRY  OFE
27875  M01S00776.242l642 +++|          LDN    OFES        CHECK EST ENTRY
27876  M01S00777.242l642 +++|          RJM    CEN
27877  M01S00778.242l642 +++| OFE1     MJN    IDE2        IF MASS STORAGE DEVICE
Line S00779 Modification History
M01 (Added by) 242l642
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27878  M02S00779.282l826 ---|          LDM    AMTA
Line S00626 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27879  M01S00626.282l826 +++|          LDM    CENA
Line S00780 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
27880  M01S00780.242l642 +++|          LMC    2RCM
Line S00781 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2424
Seq #  *Modification Id* Act 
----------------------------+
27881  M02S00781.ns2424  ---|          NJN    ONE1        IF NOT CONTROL MODULE
27882  M02S00782.ns2424  ---| OFE2     JMP    KIE         *INCORRECT ENTRY*
Line S00004 Modification History
M01 (Added by) ns2424
Seq #  *Modification Id* Act 
----------------------------+
27883  M01S00004.ns2424  +++| OFE2     NJN    ONE1        IF NOT CONTROL MODULE
27884  M01S00005.ns2424  +++| OFE3     JMP    KIE         *INCORRECT ENTRY*
Line S00783 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
27885  M01S00783.242l642 +++| IDE      SPACE  4,10
27886  M01S00784.242l642 +++|***       IDLE,EQ=XXX.
27887  M01S00785.242l642 +++|*
27888  M01S00786.242l642 +++|*         SET EST ORDINAL XXX TO THE *IDLE* STATE.
27889  M01S00787.242l642 +++|
27890  M01S00788.242l642 +++|
27891  M01S00789.242l642 +++|          ENTRY  IDE
27892  M01S00790.242l642 +++|          LDN    IDES        CHECK EST ENTRY
27893  M01S00791.242l642 +++|          RJM    CEN
Line S00792 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2424
Seq #  *Modification Id* Act 
----------------------------+
27894  M02S00792.ns2424  ---| IDE1     PJN    ONE1        IF NOT MASS STORAGE DEVICE
Line S00006 Modification History
M01 (Added by) ns2424
Seq #  *Modification Id* Act 
----------------------------+
27895  M01S00006.ns2424  +++|          PJN    OFE3        IF NOT MASS STORAGE DEVICE
Line S00793 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
27896  M01S00793.242l642 +++|          LDD    CM
27897  M01S00794.242l642 +++|          LPN    3           CHECK CURRENT STATE
27898  M01S00795.242l642 +++|*         LMN    0
27899  M01S00796.242l642 +++|          ZJN    ONE1        IF DEVICE *ON*
27900  M01S00797.242l642 +++| IDE2     LJM    C1R         CALL *1DS*
27901  M01S00798.242l642 +++| ONE      SPACE  4,10
27902  M01S00799.242l642 +++|***       ON,EQ=XXX.
27903  M01S00800.242l642 +++|*
27904  M01S00801.242l642 +++|*         SET EST ORDINAL XXX TO THE *ON* STATE.
27905  M01S00802.242l642 +++|
27906  M01S00803.242l642 +++|
27907  M01S00804.242l642 +++|          ENTRY  ONE
27908  M01S00805.242l642 +++|          LDN    ONES        CHECK EST ENTRY
27909  M01S00806.242l642 +++|          RJM    CEN
27910  M01S00807.242l642 +++|          PJN    ONE1        IF NOT MASS STORAGE DEVICE
27911  M01S00808.242l642 +++|          LDD    CM
27912  M01S00809.242l642 +++|          LPN    3           CHECK CURRENT STATE
27913  M01S00810.242l642 +++|          LMN    1
27914  M01S00811.242l642 +++|          NJN    IDE2        IF DEVICE NOT *IDLE*
Line S00812 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
27915  M02S00812.253l688 ---| ONE1     LDD    AB+3
Line S00975 Modification History
M01 (Added by) 253l688
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27916  M02S00975.282l826 ---| ONE1     LDM    AMTA
Line S00627 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27917  M01S00627.282l826 +++| ONE1     LDM    CENA
Line S00976 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
27918  M01S00976.253l688 +++|          LMC    2RCM
27919  M01S00977.253l688 +++|          NJN    ONE2        IF NOT CONTROL MODULE
27920  M01S00978.253l688 +++|          LDK    /1DS/OCMF
27921  M01S00979.253l688 +++|          LJM    C1R1        CALL *1DS*
27922  M01S00980.253l688 +++|
27923  M01S00981.253l688 +++| ONE2     LDD    AB+3
Line S00813 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
27924  M01S00813.242l642 +++|          STD    CM+2
27925  M01S00814.242l642 +++|          LDD    AB+4        CHANGE DEVICE STATE
27926  M01S00815.242l642 +++|          STD    CM+1
27927  M01S00816.242l642 +++|          MONITOR  SEQM
Line S00817 Modification History
M01 (Added by) 242l642
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27928  M02S00817.282l826 ---|*         LJM    AMT         ALERT MAGNET
Line S17283 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27929  M01S17283.282l826 ---| AMT      SPACE  4,10
27930  M01S17284.282l826 ---|**        AMT - ALERT *MAGNET*.
27931  M01S17285.282l826 ---|*
Line S17286 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27932  M02S17286.282l826 ---|*         ENTRY  (AB+4) = 1/0, 1/N, 10/EQ.
27933  M02S17287.282l826 ---|*                            N = *ON* FLAG.
27934  M02S17288.282l826 ---|*                            EQ = EST ORDINAL.
27935  M02S17289.282l826 ---|*                (UPEA) = EQUIPMENT MNEUMONIC.
Line S00818 Modification History
M01 (Added by) 242l642
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27936  M02S00818.282l826 ---|*         ENTRY  (AMTA) = DEVICE MNEMONIC.
27937  M02S00819.282l826 ---|*                (AMTB) = EQUIPMENT / UNIT NUMBER (NON MS DEVICE).
Line S17290 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27938  M01S17290.282l826 ---|*
27939  M01S17291.282l826 ---|*         USES   CM - CM+4.
27940  M01S17292.282l826 ---|*
27941  M01S17293.282l826 ---|*         CALLS  CMT.
27942  M01S17294.282l826 ---|
27943  M01S17295.282l826 ---|
Line S17296 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27944  M02S17296.282l826 ---| AMT      LDM    UPEA        CHECK EQUIPMENT TYPE
Line S00820 Modification History
M01 (Added by) 242l642
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27945  M02S00820.282l826 ---| AMT      LDC    *           CHECK DEVICE TYPE
27946  M02S00821.282l826 ---| AMTA     EQU    *-1
Line S17297 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27947  M01S17297.282l826 ---|          LMC    2RMT
27948  M01S17298.282l826 ---|          ZJN    AMT2        IF *MT*
27949  M01S17299.282l826 ---|          LMC    2RNT&2RMT
27950  M01S17300.282l826 ---|          ZJN    AMT2        IF *NT*
Line S00934 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27951  M02S00934.282l826 ---|          LMC    2RCT&2RNT
27952  M02S00935.282l826 ---|          ZJN    AMT2        IF *CT*
27953  M02S00936.282l826 ---|          LMC    2RAT&2RCT
27954  M02S00937.282l826 ---|          ZJN    AMT2        IF *AT*
Line S17301 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27955  M01S17301.282l826 ---| AMT1     JMP    KBR         RETURN
27956  M01S17302.282l826 ---|
27957  M01S17303.282l826 ---| AMT2     RJM    CMT         CHECK *MAGNET*
27958  M01S17304.282l826 ---|          ZJN    AMT1        IF *MAGNET* NOT ACTIVE
27959  M01S17305.282l826 ---| AMT3     LDD    T7          FIND UNIT IN UDT
27960  M01S17306.282l826 ---|          SHN    6
27961  M01S17307.282l826 ---|          ADD    T6
27962  M01S17308.282l826 ---|          ADN    /MTX/UST4
27963  M01S17309.282l826 ---|          CRD    AB          READ UST4
27964  M01S17310.282l826 ---|          LDD    AB+2        CHECK EST ORDINAL IN UDT
27965  M01S17311.282l826 ---|          LMC    **
Line S17312 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27966  M02S17312.282l826 ---| AMTA     EQU    *-1         (UNIT NUMBER - SET BY CEN)
Line S00822 Modification History
M01 (Added by) 242l642
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27967  M02S00822.282l826 ---| AMTB     EQU    *-1
Line S17313 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27968  M01S17313.282l826 ---|          ZJN    AMT4        IF UNIT FOUND
27969  M01S17314.282l826 ---|          LDN    /MTX/UNITL  ADVANCE UDT ADDRESS
27970  M01S17315.282l826 ---|          RAD    T6
27971  M01S17316.282l826 ---|          SBD    T4
27972  M01S17317.282l826 ---|          MJN    AMT3        IF NOT END OF UNITS
27973  M01S17318.282l826 ---|          JMP    KIE         *ILLEGAL ENTRY*
27974  M01S17319.282l826 ---|
Line S17320 Modification History
M01 (Removed by) ns2424
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27975  M02S17320.282l826 ---| AMT4     LDK    ONES
27976  M02S17321.282l826 ---|          STD    AB+4
27977  M02S17322.282l826 ---|          LDD    T6          SET UDT ADDRESS
Line S00007 Modification History
M01 (Added by) ns2424
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27978  M02S00007.282l826 ---| AMT4     LDD    T6          SET UDT ADDRESS
Line S17323 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27979  M01S17323.282l826 ---|          STD    AB+1
Line S17324 Modification History
M01 (Removed by) ns2424
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27980  M02S17324.282l826 ---|          LDN    /MTX/XOF    ENTER ON TAPE UNIT FUNCTION
Line S00008 Modification History
M01 (Added by) ns2424
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27981  M02S00008.282l826 ---|          LDN    /MTX/XOF    ENTER ON/OFF/DOWN TAPE UNIT FUNCTION
Line S17325 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27982  M01S17325.282l826 ---|          STD    AB
27983  M01S17326.282l826 ---|          LDD    MA
27984  M01S17327.282l826 ---|          CWD    AB
27985  M01S17328.282l826 ---|          CRD    SP
27986  M01S17329.282l826 ---|          LDC    /1DS/EUFF+/1DS/LOCK
27987  M01S17330.282l826 ---|          JMP    KAR         PROCESS *1DS* CALL
Line S00628 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
27988  M01S00628.282l826 +++|          JMP    KBR         RETURN
Line S17331 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
27989  M01S17331.242l642 ---| CDS      SPACE  4,10
27990  M01S17332.242l642 ---|**        CDS - CHECK DEVICE STATUS.
27991  M01S17333.242l642 ---|*
27992  M01S17334.242l642 ---|*         ENTRY  (CM - CM+4) = EST ENTRY.
27993  M01S17335.242l642 ---|*
27994  M01S17336.242l642 ---|*         EXIT   (A) .LT. 0, IF DEVICE GLOBALLY UNLOADED.
27995  M01S17337.242l642 ---|*                    .GE. 0, IF DEVICE NOT GLOBALLY UNLOADED.
27996  M01S17338.242l642 ---|*                (T3 - T7) = MST WORD *ACGL* OF EST ORDINAL XXX.
27997  M01S17339.242l642 ---|*
27998  M01S17340.242l642 ---|*         USES   T3 - T7.
27999  M01S17341.242l642 ---|
28000  M01S17342.242l642 ---|
28001  M01S17343.242l642 ---| CDS      SUBR               ENTRY/EXIT
28002  M01S17344.242l642 ---|          LDD    CM+4        FETCH MST WORD *ACGL*
28003  M01S17345.242l642 ---|          SHN    3
28004  M01S17346.242l642 ---|          ADN    ACGL
28005  M01S17347.242l642 ---|          CRD    T3
28006  M01S17348.242l642 ---|          LDD    T3+4
28007  M01S17349.242l642 ---|          SHN    21-GUNL
28008  M01S17350.242l642 ---|          UJN    CDSX        EXIT WITH GLOBAL UNLOAD STATUS
Line S17351 Modification History
M01 (Removed by) dsd99
Seq #  *Modification Id* Act 
----------------------------+
28009  M01S17351.dsd99   ---| CEN      SPACE  4,10
Line S00001 Modification History
M01 (Added by) dsd99
Seq #  *Modification Id* Act 
----------------------------+
28010  M01S00001.dsd99   +++| CEN      SPACE  4,20
28011  M00S17352.dsd     +++|**        CEN - CHECK EST ORDINAL.
28012  M00S17353.dsd     +++|*
Line S17354 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28013  M01S17354.242l642 ---|*         EXIT   (A) = (ONEA) = EST BYTE 0 OF EST ORDINAL XXX.
Line S00823 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28014  M01S00823.242l642 +++|*         ENTRY  (A) = NEW DEVICE STATE.
28015  M01S00824.242l642 +++|*
28016  M01S00825.242l642 +++|*         EXIT   (A) = BYTE 0 OF EST ENTRY SHIFTED 21-13.
28017  M01S00826.242l642 +++|*                (AB+3) = *SCAF* SUBFUNCTION TO *1DS*.
Line S17355 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28018  M01S17355.282l826 ---|*                (AB+4) = (AMTA) = EST ORDINAL.
Line S00629 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28019  M01S00629.282l826 +++|*                (AB+4) = (CENA) = EST ORDINAL.
28020  M00S17356.dsd     +++|*                (CM - CM+4) = EST ENTRY.
Line S17357 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28021  M01S17357.242l642 ---|*                (SR+4) = EJTO OF OWNER, IF ANY.
28022  M01S17358.242l642 ---|*                (UPEA) = EQUIPMENT MNEUMONIC.
28023  M01S17359.242l642 ---|*
28024  M01S17360.242l642 ---|*         USES   SR - SR+4, T3 - T7.
Line S00827 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28025  M01S00827.242l642 +++|*                (SR - SR+4) = *EQAE* WORD OF EST ENTRY.
Line S00828 Modification History
M01 (Added by) 242l642
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28026  M02S00828.282l826 ---|*                (AMTA) = DEVICE MNEMONIC.
28027  M02S00829.282l826 ---|*                (AMTB) = EQUIPMENT / UNIT NUMBER.
Line S00630 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28028  M01S00630.282l826 +++|*                (CENA) = DEVICE MNEMONIC.
Line S00002 Modification History
M01 (Added by) dsd99
Seq #  *Modification Id* Act 
----------------------------+
28029  M01S00002.dsd99   +++|*                TO *KIE* IF ERROR.
Line S00830 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28030  M01S00830.242l642 +++|*
Line S00831 Modification History
M01 (Added by) 242l642
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28031  M02S00831.282l826 ---|*         USES   T7.
Line S00631 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28032  M01S00631.282l826 +++|*         USES   CA, T7, AB+3, CM - CM+4, SR - SR+4.
28033  M00S17361.dsd     +++|*
28034  M00S17362.dsd     +++|*         CALLS  ASD.
28035  M00S17363.dsd     +++|*
28036  M00S17364.dsd     +++|*         MACROS SFA.
28037  M00S17365.dsd     +++|
28038  M00S17366.dsd     +++|
Line S17367 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28039  M01S17367.242l642 ---| CEN1     JMP    KIE         ILLEGAL ENTRY
28040  M01S17368.242l642 ---|
28041  M01S17369.242l642 ---| CEN      SUBR               ENTRY/EXIT
Line S00832 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28042  M01S00832.242l642 +++| CEN      SUBR               ENTRY/EXIT
28043  M01S00833.242l642 +++|          STD    T7
28044  M01S00834.242l642 +++|          LDN    3           ADVANCE KEYBOARD INDEX
28045  M01S00835.242l642 +++|          RAD    CA
28046  M00S17370.dsd     +++|          RJM    ASD         ASSEMBLE EST ORDINAL
28047  M00S17371.dsd     +++|          LDK    ESTP        READ EST POINTER
Line S17372 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28048  M01S17372.242l642 ---|          CRD    T3
28049  M01S17373.242l642 ---|          LDD    AB+4        READ EST ENTRY
28050  M01S17374.242l642 ---|          STM    AMTA
28051  M01S17375.242l642 ---|          SBD    T3+2
Line S00836 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28052  M01S00836.242l642 +++|          CRD    CM
28053  M01S00837.242l642 +++|          LDD    AB+4        CHECK ORDINAL
Line S00838 Modification History
M01 (Added by) 242l642
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28054  M02S00838.282l826 ---|          STM    AMTB
Line S00003 Modification History
M01 (Added by) dsd99
Seq #  *Modification Id* Act 
----------------------------+
28055  M01S00003.dsd99   +++|          SBN    NOPE
28056  M01S00004.dsd99   +++|          MJN    CEN1        IF PSEUDO-EQUIPMENT
28057  M01S00005.dsd99   +++|          ADN    NOPE
Line S00839 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28058  M01S00839.242l642 +++|          SBD    CM+2
28059  M00S17376.dsd     +++|          PJN    CEN1        IF ORDINAL BEYOND EST MAXIMUM
28060  M00S17377.dsd     +++|          SFA    EST,AB+4    READ EST ENTRY
28061  M00S17378.dsd     +++|          ADK    EQDE
28062  M00S17379.dsd     +++|          CRD    CM
28063  M00S17380.dsd     +++|          ADK    EQAE-EQDE   READ EQUIPMENT ASSIGNMENT
28064  M00S17381.dsd     +++|          CRD    SR
28065  M00S17382.dsd     +++|          LDD    CM+3
Line S17383 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28066  M01S17383.242l642 ---|          ZJN    CEN1        IF NOT DEFINED
28067  M01S17384.242l642 ---|          LPC    3777
28068  M01S17385.242l642 ---|          STM    UPEA        SAVE EQUIPMENT TYPE
28069  M01S17386.242l642 ---|          LDD    CM
28070  M01S17387.242l642 ---|          STM    ONEA        SAVE MASS STORAGE FLAG
28071  M01S17388.242l642 ---|          UJN    CENX        EXIT
Line S00840 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28072  M01S00840.242l642 +++|          NJN    CEN2        IF EQUIPMENT DEFINED
28073  M01S00841.242l642 +++| CEN1     JMP    KIE         *INCORRECT ENTRY*
28074  M01S00842.242l642 +++|
Line S00843 Modification History
M01 (Added by) 242l642
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28075  M02S00843.252l678 ---| CEN2     LPC    3777        SAVE DEVICE MNEMONIC
28076  M02S00844.252l678 ---|          STM    AMTA
Line S00471 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28077  M02S00471.282l826 ---| CEN2     STM    AMTA        SAVE DEVICE MNEMONIC
Line S00632 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28078  M01S00632.282l826 +++| CEN2     STM    CENA        SAVE DEVICE MNEMONIC
Line S00845 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28079  M01S00845.242l642 +++|          LDD    T7          CHECK CURRENT DEVICE STATE
28080  M01S00846.242l642 +++|          STD    AB+3
28081  M01S00847.242l642 +++|          LMD    CM
28082  M01S00848.242l642 +++|          ERRNZ  ONES-0      CODE DEPENDS ON VALUE
28083  M01S00849.242l642 +++|          ERRNZ  IDES-1      CODE DEPENDS ON VALUE
28084  M01S00850.242l642 +++|          ERRNZ  OFES-2      CODE DEPENDS ON VALUE
28085  M01S00851.242l642 +++|          ERRNZ  DWES-3      CODE DEPENDS ON VALUE
28086  M01S00852.242l642 +++|          LPN    3
28087  M01S00853.242l642 +++|          ZJN    CEN1        IF NO STATE CHANGE
28088  M01S00854.242l642 +++|          LMD    T7
28089  M01S00855.242l642 +++|          LMN    3
Line S00856 Modification History
M01 (Added by) 242l642
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28090  M02S00856.252l678 ---|          NJN    CEN3        IF DEVICE NOT DOWN
Line S00472 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28091  M01S00472.252l678 +++|          NJN    CEN4        IF DEVICE NOT DOWN
Line S00857 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28092  M01S00857.242l642 +++|          LDD    SR+4
28093  M01S00858.242l642 +++|          NJN    CEN1        IF ASSIGNED
Line S00001 Modification History
M01 (Added by) dsd87
M02 (Removed by) dsd99
Seq #  *Modification Id* Act 
----------------------------+
28094  M02S00001.dsd99   ---|          LDD    AB+4
28095  M02S00002.dsd99   ---|          SBN    NOPE
28096  M02S00003.dsd99   ---|          MJN    CEN4        IF DEVICE WITH NO CHANNEL FIELDS DEFINED
Line S00859 Modification History
M01 (Added by) 242l642
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28097  M02S00859.252l678 ---|          LDD    CM+1
28098  M02S00860.252l678 ---|          SHN    21-5
28099  M02S00861.252l678 ---|          PJN    CEN3        IF PRIMARY CHANNEL UP
28100  M02S00862.252l678 ---|          LPN    77
28101  M02S00863.252l678 ---|          ZJN    CEN1        IF NO SECOND CHANNEL
28102  M02S00864.252l678 ---|          SHN    21-5
28103  M02S00865.252l678 ---|          MJN    CEN1        IF SECOND CHANNEL DOWN
28104  M02S00866.252l678 ---| CEN3     LDD    CM
Line S00473 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28105  M01S00473.252l678 +++|          LDN    CM
28106  M01S00474.252l678 +++|          STD    T0
28107  M01S00475.252l678 +++| CEN3     AOD    T0          ADVANCE CHANNEL BYTE INDEX
28108  M01S00476.252l678 +++|          LMN    CM+3
28109  M01S00477.252l678 +++|          ZJN    CEN1        IF BOTH POSSIBLE CHANNELS CHECKED
28110  M01S00478.252l678 +++|          LDI    T0
28111  M01S00479.252l678 +++|          SHN    -11         POSITION CHANNEL STATUS
28112  M01S00480.252l678 +++|          LMN    4
28113  M01S00481.252l678 +++|          NJN    CEN3        IF NOT UP AND ACCESSIBLE
28114  M01S00482.252l678 +++| CEN4     LDD    CM
Line S00867 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28115  M01S00867.242l642 +++|          SHN    21-13
28116  M01S00868.242l642 +++|          LJM    CENX        RETURN
Line S00633 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28117  M01S00633.282l826 +++|
28118  M01S00634.282l826 +++|
28119  M01S00635.282l826 +++| CENA     CON    0           DEVICE MNEMONIC
28120  M00S17389.dsd     +++| C1R      SPACE  4,10
28121  M00S17390.dsd     +++|**        C1R - CALL *1DS* AND REENTER.
28122  M00S17391.dsd     +++|*
28123  M00S17392.dsd     +++|*         USES   CM - CM+4.
28124  M00S17393.dsd     +++|*
28125  M00S17394.dsd     +++|*         CALLS  C1D.
28126  M00S17395.dsd     +++|
28127  M00S17396.dsd     +++|
Line S17397 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28128  M01S17397.242l642 ---| C1R2     JMP    KIE         ILLEGAL ENTRY
28129  M01S17398.242l642 ---|
28130  M01S17399.242l642 ---| C1R      LDC    /1DS/UDDF&/1DS/LOCK
28131  M01S17400.242l642 ---|          RJM    C1D         PROCESS *1DS* CALL
28132  M01S17401.242l642 ---|          LDC    C1R1        SET REENTRY ADDRESS
28133  M01S17402.242l642 ---|          STM    /KEYBOARD/KCRB
28134  M01S17403.242l642 ---| C1R1     LDC    /1DS/DSDL
Line S00869 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28135  M01S00869.242l642 +++| C1R3     JMP    KIE         INCORRECT ENTRY
28136  M01S00870.242l642 +++|
28137  M01S00871.242l642 +++| C1R      LDC    /1DS/SCDF+/1DS/LOCK  PROCESS *1DS* CALL
28138  M01S00872.242l642 +++| C1R1     RJM    C1D
28139  M01S00873.242l642 +++|          LDC    C1R2        SET REENTRY ADDRESS
28140  M01S00874.242l642 +++|          STM    /KEYBOARD/KCRB
28141  M01S00875.242l642 +++| C1R2     LDC    /1DS/DSDL
28142  M00S17404.dsd     +++|          CRD    CM
28143  M00S17405.dsd     +++|          LDD    CM
28144  M00S17406.dsd     +++|          NJP    CLP1        IF *1DS* NOT COMPLETE
28145  M00S17407.dsd     +++|          LDC    /1DS/DSDL+1
28146  M00S17408.dsd     +++|          CRD    CM
28147  M00S17409.dsd     +++|          LDD    CM
Line S17410 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28148  M01S17410.242l642 ---|          NJN    C1R2        IF NOT SUCCESSFUL
28149  M01S17411.242l642 ---|          JMP    KBR         RETURN
28150  M01S17412.242l642 ---| SCB      SPACE  4,10
28151  M01S17413.242l642 ---|**        SCB - SET/CLEAR DOWN BIT IN EST.
28152  M01S17414.242l642 ---|*
28153  M01S17415.242l642 ---|*         ENTRY  (A) = SETTING/CLEARING BIT MASK.
28154  M01S17416.242l642 ---|*
28155  M01S17417.242l642 ---|*         EXIT   DOWN BIT SET/CLEARED IN EST.
28156  M01S17418.242l642 ---|*
28157  M01S17419.242l642 ---|*         USES   CM - CM+4.
28158  M01S17420.242l642 ---|*
28159  M01S17421.242l642 ---|*         MACROS MONITOR.
28160  M01S17422.242l642 ---|
28161  M01S17423.242l642 ---|
28162  M01S17424.242l642 ---| SCB      SUBR               ENTRY/EXIT
28163  M01S17425.242l642 ---|          STD    CM+4        SAVE SETTING/CLEARING BIT MASK
28164  M01S17426.242l642 ---|          LCN    40          SET DOWN BIT CLEARING MASK
28165  M01S17427.242l642 ---|          STD    CM+3
28166  M01S17428.242l642 ---|          LDN    SB0S        SET BYTE 0 IN EST
28167  M01S17429.242l642 ---|          STD    CM+2
28168  M01S17430.242l642 ---|          LDD    AB+4        SET EST ORDINAL
28169  M01S17431.242l642 ---|          STD    CM+1
28170  M01S17432.242l642 ---|          MONITOR  SEQM
28171  M01S17433.242l642 ---|          UJN    SCBX        EXIT
Line S00876 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28172  M01S00876.242l642 +++|          NJN    C1R3        IF INVALID CALL
28173  M01S00877.242l642 +++|          JMP    KBR         RETURN
28174  M00S17434.dsd     +++|          SPACE  4,10
Line S17435 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28175  M01S17435.274l797 ---|          USE    END         DUMP LITERALS BLOCK
Line S00938 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28176  M01S00938.274l797 +++|          CMDEND
Line S17436 Modification History
M01 (Removed by) dsd38
Seq #  *Modification Id* Act 
----------------------------+
28177  M01S17436.dsd38   ---|          COMMAND (ENTER TIME.)
Line S00008 Modification History
M01 (Added by) dsd38
Seq #  *Modification Id* Act 
----------------------------+
28178  M01S00008.dsd38   +++|          COMMAND  (ENTER TIME.),CMR
28179  M00S17437.dsd     +++| TIM      SPACE  4,10
28180  M00S17438.dsd     +++|**        SYNTAX TABLE.
28181  M00S17439.dsd     +++|
28182  M00S17440.dsd     +++|
28183  M00S17441.dsd     +++|          ENTRY  TIM
28184  M00S17442.dsd     +++|
Line S17443 Modification History
M01 (Removed by) dsd110
Seq #  *Modification Id* Act 
----------------------------+
28185  M01S17443.dsd110  ---| TME      ENTER  (TIME. <02<09.<05<09.<05<09.)
Line S00205 Modification History
M01 (Added by) dsd110
Seq #  *Modification Id* Act 
----------------------------+
28186  M01S00205.dsd110  +++| TME      ENTER  (TIME. <02<09.<05<09.<05<09.),,SDF,ERL
28187  M00S17444.dsd     +++|
28188  M00S17445.dsd     +++|          ENTRY  DAT
28189  M00S17446.dsd     +++|
Line S17447 Modification History
M01 (Removed by) dsd110
Seq #  *Modification Id* Act 
----------------------------+
28190  M01S17447.dsd110  ---| DTE      ENTER  (DATE. <09<09/<01<09/<03<09.)
Line S00206 Modification History
M01 (Added by) dsd110
Seq #  *Modification Id* Act 
----------------------------+
28191  M01S00206.dsd110  +++| DTE      ENTER  (DATE. <09<09/<01<09/<03<09.),,SDF,ERL
28192  M00S17448.dsd     +++|
28193  M00S17449.dsd     +++|          CON    0           END OF TABLE
28194  M00S17450.dsd     +++| PD       SPACE  4,10
28195  M00S17451.dsd     +++|**        DIRECT CELLS.
28196  M00S17452.dsd     +++|
28197  M00S17453.dsd     +++|
28198  M00S17454.dsd     +++| PD       EQU    SR          PACKED DATE AND TIME
28199  M00S17455.dsd     +++| TME      SPACE  4,10
28200  M00S17456.dsd     +++|***       TIME. HH.MM.SS.
28201  M00S17457.dsd     +++|*
28202  M00S17458.dsd     +++|*         ENTER SYSTEM TIME.
28203  M00S17459.dsd     +++|
28204  M00S17460.dsd     +++|
28205  M00S17461.dsd     +++|          ENTRY  TME
28206  M00S17462.dsd     +++|          LDK    JDAL        READ DATE
28207  M00S17463.dsd     +++|          CRM    JDAT,ON
28208  M00S17464.dsd     +++|          LDM    KBUF+6      CHECK LEADING HOUR
28209  M00S17465.dsd     +++|          LMN    1R2
28210  M00S17466.dsd     +++|          NJN    TME1        IF NOT *2*
28211  M00S17467.dsd     +++|          LDM    KBUF+7      CHECK NEXT HOUR
28212  M00S17468.dsd     +++|          SBN    1R4
28213  M00S17469.dsd     +++|          MJN    TME1        IF .LE. 3
28214  M00S17470.dsd     +++|          JMP    KIE         *INCORRECT ENTRY*
28215  M00S17471.dsd     +++|
28216  M00S17472.dsd     +++| TME1     LDN    4           SET ACCOUNT LOGGING BIT
28217  M00S17473.dsd     +++|          RAM    /KEYBOARD/LKBA
28218  M00S17474.dsd     +++|          LDN    0
28219  M00S17475.dsd     +++|          RJM    C1D         CHECK FOR COMMAND LOGGING
28220  M00S17476.dsd     +++|          LDC    TME1.1      SET REENTRY ADDRESS
28221  M00S17477.dsd     +++|          STM    /KEYBOARD/KCRB
28222  M00S17478.dsd     +++| TME1.1   LDC    /1DS/DSDL
28223  M00S17479.dsd     +++|          CRD    CM
28224  M00S17480.dsd     +++|          LDD    CM
28225  M00S17481.dsd     +++|          ZJN    TME1.2      IF *1DS* COMPLETE
28226  M00S17482.dsd     +++|          LJM    CLP1        REENTER
28227  M00S17483.dsd     +++|
28228  M00S17484.dsd     +++| TME1.2   LDN    PDTL        READ PACKED DATE AND TIME
28229  M00S17485.dsd     +++|          CRD    PD
28230  M00S17486.dsd     +++|          LDK    DTEL        READ DATE
28231  M00S17487.dsd     +++|          CRD    DT
28232  M00S17488.dsd     +++|          LDC    TMEA        ASSEMBLE TIME
28233  M00S17489.dsd     +++|          STD    T1          SET ASSEMBLY
28234  M00S17490.dsd     +++|          LDC    KBUF+5      SET CHARACTER ADDRESS
28235  M00S17491.dsd     +++|          STD    T2
28236  M00S17492.dsd     +++|          STD    CA
28237  M00S17493.dsd     +++| TME2     LDI    T2
28238  M00S17494.dsd     +++|          SHN    6
28239  M00S17495.dsd     +++|          LMM    1,T2
28240  M00S17496.dsd     +++|          STI    T1
28241  M00S17497.dsd     +++|          AOD    T1
28242  M00S17498.dsd     +++|          LDN    2
28243  M00S17499.dsd     +++|          RAD    T2
28244  M00S17500.dsd     +++|          LMC    KBUF+5+2*5
28245  M00S17501.dsd     +++|          NJN    TME2        IF MORE CHARACTERS
28246  M00S17502.dsd     +++|          LDD    PD+3        CLEAR HOURS
28247  M00S17503.dsd     +++|          SCN    77
28248  M00S17504.dsd     +++|          STD    PD+3
28249  M00S17505.dsd     +++|          RJM    ADD         ASSEMBLE HOURS
28250  M00S17506.dsd     +++|          RAD    PD+3
28251  M00S17507.dsd     +++|          AOD    CA          ASSEMBLE MINUTES
28252  M00S17508.dsd     +++|          RJM    ADD
28253  M00S17509.dsd     +++|          SHN    6
28254  M00S17510.dsd     +++|          STD    PD+4
28255  M00S17511.dsd     +++|          AOD    CA          ASSEMBLE SECONDS
28256  M00S17512.dsd     +++|          RJM    ADD
28257  M00S17513.dsd     +++|          RAD    PD+4
28258  M00S17514.dsd     +++|          LDN    ZERL
28259  M00S17515.dsd     +++|          CRD    AB
28260  M00S17516.dsd     +++|          CRD    CM
28261  M00S17517.dsd     +++|          LDD    MA
28262  M00S17518.dsd     +++|          ADN    1
28263  M00S17519.dsd     +++|          STD    CM+2
28264  M00S17520.dsd     +++|          CWM    JDAT,ON     WRITE DATE AND TIME WORDS TO BUFFER
28265  M00S17521.dsd     +++|          CWD    PD
28266  M00S17522.dsd     +++|          ADN    1
28267  M00S17523.dsd     +++|          CWM    TMEA,ON
28268  M00S17524.dsd     +++|          CWD    DT
28269  M00S17525.dsd     +++|          ADN    1           WRITE DAY LIMIT (UNCHANGED)
28270  M00S17526.dsd     +++|          CWD    AB
Line S17527 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
28271  M01S17527.ns2418  ---|          LDN    CFGL        DETERMINE IF WALL CLOCK CHIP PRESENT
28272  M01S17528.ns2418  ---|          CRD    AB
28273  M01S17529.ns2418  ---|          LDD    AB+3
28274  M01S17530.ns2418  ---|          SHN    0-13
28275  M01S17531.ns2418  ---|          ZJN    TME3        IF WALL CLOCK CHIP NOT PRESENT
28276  M01S17532.ns2418  ---|          LDN    UWCF        SET UPDATE WALL CLOCK FLAG
28277  M01S17533.ns2418  ---| TME3     STD    CM+4
Line S00030 Modification History
M01 (Added by) ns2418
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
28278  M02S00030.253l688 ---|          LDK    MABL        CHECK MAINFRAME TYPE
28279  M02S00031.253l688 ---|          CRD    AB
28280  M02S00032.253l688 ---|          LDD    AB+1
28281  M02S00033.253l688 ---|          LPC    4100
28282  M02S00034.253l688 ---|          LMD    HN
28283  M02S00035.253l688 ---|          ZJN    TME3        IF CYBER 180
28284  M02S00036.253l688 ---|          LCN    UCCF
28285  M02S00037.253l688 ---| TME3     ADN    UCCF        SET FLAG TO UPDATE CTI CLOCK
28286  M02S00038.253l688 ---|          STD    CM+4
Line S17534 Modification History
M01 (Removed by) ns2726
Seq #  *Modification Id* Act 
----------------------------+
28287  M01S17534.ns2726  ---|          LDN    2           SET SUBFUNCTION
Line S00023 Modification History
M01 (Added by) ns2726
Seq #  *Modification Id* Act 
----------------------------+
28288  M01S00023.ns2726  +++|          LDN    EDTS        SET SUBFUNCTION
28289  M00S17535.dsd     +++|          STD    CM+1
28290  M00S17536.dsd     +++|          MONITOR DSRM       ENTER DATE/TIME
28291  M00S17537.dsd     +++|          JMP    KBR         RETURN
28292  M00S17538.dsd     +++|
28293  M00S17539.dsd     +++| TMEA     BSS    5           ASSEMBLY BUFFER FOR TIME
28294  M00S17540.dsd     +++| ADD      SPACE  4,10
28295  M00S17541.dsd     +++|**        ADD - ASSEMBLE DECIMAL DIGITS.
28296  M00S17542.dsd     +++|*
28297  M00S17543.dsd     +++|*         ENTRY  (CA) = CHARACTER ADDRESS.
28298  M00S17544.dsd     +++|*
28299  M00S17545.dsd     +++|*         EXIT   (A) = ASSEMBLY.
28300  M00S17546.dsd     +++|*                (CA) ADVANCED.
28301  M00S17547.dsd     +++|*
28302  M00S17548.dsd     +++|*         USES   CA, T0.
28303  M00S17549.dsd     +++|
28304  M00S17550.dsd     +++|
28305  M00S17551.dsd     +++| ADD      SUBR               ENTRY/EXIT
28306  M00S17552.dsd     +++|          AOD    CA
28307  M00S17553.dsd     +++|          LDI    CA          UPPER DIGIT * 10
28308  M00S17554.dsd     +++|          SBN    1R0
28309  M00S17555.dsd     +++|          STD    T0
28310  M00S17556.dsd     +++|          SHN    2
28311  M00S17557.dsd     +++|          ADD    T0
28312  M00S17558.dsd     +++|          SHN    1
28313  M00S17559.dsd     +++|          STD    T0
28314  M00S17560.dsd     +++|          AOD    CA          ADD LOWER DIGIT
28315  M00S17561.dsd     +++|          LDI    CA
28316  M00S17562.dsd     +++|          SBN    1R0
28317  M00S17563.dsd     +++|          ADD    T0
28318  M00S17564.dsd     +++|          UJN    ADDX        RETURN
Line S00939 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28319  M01S00939.274l797 +++|          SPACE  4,10
28320  M01S00940.274l797 +++|          CMDEND
Line S17565 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28321  M01S17565.251l664 ---|          COMMAND  (JOB CONTROL REQUESTS.),CMR
Line S01072 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28322  M01S01072.251l664 +++|          COMMAND  (JOB CONTROL REQUESTS - CLASS.),CMR
28323  M00S17566.dsd     +++| CLA      SPACE  4,10
28324  M00S17567.dsd     +++|***       CLASS,OT,C1,C2,...,CN.
28325  M00S17568.dsd     +++|*
28326  M00S17569.dsd     +++|*         TOGGLE SERVICE CLASS MASK BIT FOR SPECIFIED ORIGIN TYPE.
28327  M00S17570.dsd     +++|*
28328  M00S17571.dsd     +++|*         OT     ORIGIN TYPE.  (BC, EI, IA, RB, TX)
28329  M00S17572.dsd     +++|*         CN     TWO CHARACTER SERVICE CLASS MNEMONIC.
28330  M00S17573.dsd     +++|*                *ALL* OR *NUL* ARE ALSO ACCEPTED.
28331  M00S17574.dsd     +++|
28332  M00S17575.dsd     +++|
28333  M00S17576.dsd     +++|          ENTRY  CLA
28334  M00S17577.dsd     +++|          LDM    2,CA
28335  M00S17578.dsd     +++|          LMN    1R,
28336  M00S17579.dsd     +++|          ZJN    CLA2        IF VALID SEPARATOR
28337  M00S17580.dsd     +++| CLA1     JMP    KIE         *INCORRECT ENTRY*
28338  M00S17581.dsd     +++|
28339  M00S17582.dsd     +++| CLA2     RJM    SOT         SEARCH FOR VALID ORIGIN TYPE
28340  M00S17583.dsd     +++|          LDK    JBCP        GET SCT ADDRESS
28341  M00S17584.dsd     +++|          CRD    CM
28342  M00S17585.dsd     +++|          LDD    CM          GET CURRENT SCT ENTRY
28343  M00S17586.dsd     +++|          SHN    14
28344  M00S17587.dsd     +++|          ADD    CM+1
28345  M00S17588.dsd     +++|          ADD    T2
28346  M00S17589.dsd     +++|          CRD    SR
28347  M00S17590.dsd     +++|          LDN    2           GET FIRST SERVICE CLASS
28348  M00S17591.dsd     +++|          RAD    CA
28349  M00S17592.dsd     +++|          LDM    3,CA        CHECK FOR *ALL* OR *NUL*
28350  M00S17593.dsd     +++|          SHN    6
28351  M00S17594.dsd     +++|          LMM    4,CA
28352  M00S17595.dsd     +++|          LMC    2RL.
28353  M00S17596.dsd     +++|          NJN    CLA3        IF NOT *ALL* OR *NUL*
28354  M00S17597.dsd     +++|          LDM    1,CA
28355  M00S17598.dsd     +++|          SHN    6
28356  M00S17599.dsd     +++|          LMM    2,CA
28357  M00S17600.dsd     +++|          LMC    2RNU
28358  M00S17601.dsd     +++|          ZJP    CLA6        IF *NUL* SELECTED
28359  M00S17602.dsd     +++|          LMC    2RAL&2RNU
28360  M00S17603.dsd     +++|          ZJP    CLA7        IF *ALL* SELECTED
28361  M00S17604.dsd     +++|
28362  M00S17605.dsd     +++|*         PROCESS SERVICE CLASS PARAMETERS.
28363  M00S17606.dsd     +++|
28364  M00S17607.dsd     +++| CLA3     AOD    CA          SKIP SEPARATOR
28365  M00S17608.dsd     +++|          LDC    TNSC
28366  M00S17609.dsd     +++|          RJM    SPT         SEARCH FOR VALID SERVICE CLASS
28367  M00S17610.dsd     +++|          STD    T3
28368  M00S17611.dsd     +++|          LDM    TSCM,T3     GET SERVICE CLASS VALIDATION BIT
28369  M00S17612.dsd     +++|          ZJP    CLA1        IF INCORRECT SERVICE CLASS
28370  M00S17613.dsd     +++|          STD    T5
28371  M00S17614.dsd     +++|          LDN    SR+5        DETERMINE BYTE TO TOGGLE BIT IN
28372  M00S17615.dsd     +++|          STD    T1
28373  M00S17616.dsd     +++| CLA4     SOD    T1
28374  M00S17617.dsd     +++|          LCN    12D
28375  M00S17618.dsd     +++|          RAD    T3
28376  M00S17619.dsd     +++|          PJN    CLA4        IF NOT CORRECT BYTE
28377  M00S17620.dsd     +++|          LDI    T1          TOGGLE VALIDATION BIT
28378  M00S17621.dsd     +++|          LMD    T5
28379  M00S17622.dsd     +++|          STI    T1
28380  M00S17623.dsd     +++|          LDN    2
28381  M00S17624.dsd     +++|          RAD    CA
28382  M00S17625.dsd     +++|          LDI    CA
28383  M00S17626.dsd     +++|          LMN    1R,
28384  M00S17627.dsd     +++|          ZJN    CLA3        IF NOT END OF ENTRY
28385  M00S17628.dsd     +++|          LMN    1R.&1R,
28386  M00S17629.dsd     +++|          NJP    CLA1        IF NOT VALID TERMINATOR
28387  M00S17630.dsd     +++| CLA5     LDD    CM          STORE SCT ENTRY
28388  M00S17631.dsd     +++|          SHN    14
28389  M00S17632.dsd     +++|          ADD    CM+1
28390  M00S17633.dsd     +++|          ADD    T2
28391  M00S17634.dsd     +++|          CWD    SR
28392  M00S17635.dsd     +++|          JMP    KBR         RETURN
28393  M00S17636.dsd     +++|
28394  M00S17637.dsd     +++| CLA6     STD    SR+3
28395  M00S17638.dsd     +++|          UJN    CLA8        CLEAR ALL MASK BITS
28396  M00S17639.dsd     +++|
28397  M00S17640.dsd     +++| CLA7     LDK    A2MK        SET ALL MASK BITS
28398  M00S17641.dsd     +++|          STD    SR+3
28399  M00S17642.dsd     +++|          LDK    A1MK
28400  M00S17643.dsd     +++| CLA8     STD    SR+4
28401  M00S17644.dsd     +++|          UJN    CLA5        STORE SCT ENTRY
Line S00017 Modification History
M01 (Added by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28402  M01S00017.dsd90   +++| SOT      SPACE  4,10
28403  M01S00018.dsd90   +++|**        SOT - SEARCH FOR VALID ORIGIN TYPE.
28404  M01S00019.dsd90   +++|*
28405  M01S00020.dsd90   +++|*         ENTRY  ((CA - CA+1)) = ORIGIN TYPE PARAMETER.
28406  M01S00021.dsd90   +++|*
28407  M01S00022.dsd90   +++|*         EXIT   (T2) = ORIGIN TYPE VALUE.
28408  M01S00023.dsd90   +++|*
28409  M01S00024.dsd90   +++|*         ERROR  TO *KBR* IF ORIGIN TYPE INCORRECT.
28410  M01S00025.dsd90   +++|*         ERROR  TO *KIE* IF ORIGIN TYPE INVALID.
28411  M01S00026.dsd90   +++|*
28412  M01S00027.dsd90   +++|*         USES   T1, T2, T3.
28413  M01S00028.dsd90   +++|
28414  M01S00029.dsd90   +++|
28415  M01S00030.dsd90   +++| SOT2     AOD    T1          RETURN ORIGIN TYPE VALUE
28416  M01S00031.dsd90   +++|          LDM    TCOT,T1
28417  M01S00032.dsd90   +++|          STD    T2
28418  M01S00033.dsd90   +++|
28419  M01S00034.dsd90   +++| SOT      SUBR               ENTRY/EXIT
28420  M01S00035.dsd90   +++|          LDN    0           INITIALIZE TABLE INDEX
28421  M01S00036.dsd90   +++|          STD    T1
28422  M01S00037.dsd90   +++|          LDI    CA          ASSEMBLE ORIGIN TYPE
28423  M01S00038.dsd90   +++|          SHN    6
28424  M01S00039.dsd90   +++|          LMM    1,CA
28425  M01S00040.dsd90   +++|          STD    T3
28426  M01S00041.dsd90   +++|          LDM    TCOT,T1     SEARCH TABLE FOR ORIGIN TYPE
28427  M01S00042.dsd90   +++| SOT1     LMD    T3
28428  M01S00043.dsd90   +++|          ZJN    SOT2        IF MATCH FOUND
28429  M01S00044.dsd90   +++|          LDN    2           INCREMENT TABLE INDEX
28430  M01S00045.dsd90   +++|          RAD    T1
28431  M01S00046.dsd90   +++|          LDM    TCOT,T1
28432  M01S00047.dsd90   +++|          NJN    SOT1        IF NOT END OF TABLE
28433  M01S00048.dsd90   +++|          JMP    KIE         PROCESS INVALID ENTRY
28434  M01S00049.dsd90   +++| SPT      SPACE  4,10
28435  M01S00050.dsd90   +++|**        SPT - SEARCH PARAMETER TABLE.
28436  M01S00051.dsd90   +++|*
28437  M01S00052.dsd90   +++|*         ENTRY  (A) = FWA OF PARAMETER TABLE.
28438  M01S00053.dsd90   +++|*                (CA) = CHARACTER ADDRESS.
28439  M01S00054.dsd90   +++|*
28440  M01S00055.dsd90   +++|*         EXIT   (A) = INDEX OF ENTRY FOUND.
28441  M01S00056.dsd90   +++|*
28442  M01S00057.dsd90   +++|*         USES   T1, T3, T5.
28443  M01S00058.dsd90   +++|
28444  M01S00059.dsd90   +++|
28445  M01S00060.dsd90   +++| SPT2     LDD    T5
28446  M01S00061.dsd90   +++|          SBD    T3
28447  M01S00062.dsd90   +++|
28448  M01S00063.dsd90   +++| SPT      SUBR               ENTRY/EXIT
28449  M01S00064.dsd90   +++|          STD    T3
28450  M01S00065.dsd90   +++|          STD    T5
28451  M01S00066.dsd90   +++|          LDI    CA          ASSEMBLE PARAMETER NAME
28452  M01S00067.dsd90   +++|          SHN    6
28453  M01S00068.dsd90   +++|          LMM    1,CA
28454  M01S00069.dsd90   +++|          STD    T1
28455  M01S00070.dsd90   +++|          LDI    T5
28456  M01S00071.dsd90   +++| SPT1     LMD    T1
28457  M01S00072.dsd90   +++|          ZJN    SPT2        IF MATCH FOUND
28458  M01S00073.dsd90   +++|          AOD    T5          INCREMENT TABLE INDEX
28459  M01S00074.dsd90   +++|          LDI    T5
28460  M01S00075.dsd90   +++|          NJN    SPT1        IF NOT END OF TABLE
28461  M01S00076.dsd90   +++|          JMP    KIE         *INCORRECT ENTRY*
28462  M00S17645.dsd     +++| TCOT     SPACE  4,10
28463  M00S17646.dsd     +++|**        TCOT - TABLE OF *CLASS* ORIGIN TYPES.
28464  M00S17647.dsd     +++|
28465  M00S17648.dsd     +++|
28466  M00S17649.dsd     +++| TCOT     BSS    0
28467  M00S17650.dsd     +++|          CON    2RBC,BCOT   LOCAL BATCH
28468  M00S17651.dsd     +++|          CON    2RRB,RBOT   REMOTE BATCH
28469  M00S17652.dsd     +++|          CON    2RIA,IAOT   INTERACTIVE
28470  M00S17653.dsd     +++|          CON    2REI,EIOT   REMOTE BATCH
28471  M00S17654.dsd     +++|          CON    2RTX,TXOT   INTERACTIVE
28472  M00S17655.dsd     +++|          CON    0
28473  M00S17656.dsd     +++| TSCM     SPACE  4,10
28474  M00S17657.dsd     +++|**        TSCM - TABLE OF SERVICE CLASS MASK BITS.
28475  M00S17658.dsd     +++|*
28476  M00S17659.dsd     +++|*         THIS TABLE IS INDEXED BY SERVICE CLASS VALUES.
28477  M00S17660.dsd     +++|*
28478  M00S17661.dsd     +++|*         ONLY SERVICE CLASSES DEFINED IN THIS TABLE ARE
28479  M00S17662.dsd     +++|*         ALLOWED ON THE *PCLASS* AND *CLASS* COMMANDS.
28480  M00S17663.dsd     +++|
28481  M00S17664.dsd     +++|
28482  M00S17665.dsd     +++| TSCM     INDEX
28483  M00S17666.dsd     +++|          LIST   D
28484  M00S17667.dsd     +++| .SCL     HERE
28485  M00S17668.dsd     +++|          LIST   *
28486  M00S17669.dsd     +++|          INDEX  MXSC
28487  M01S00077.dsd90   +++| TNSC     SPACE  4,10
28488  M01S00078.dsd90   +++|**        TNSC - TABLE OF TWO-CHARACTER SERVICE CLASS TYPES.
28489  M01S00079.dsd90   +++|
28490  M01S00080.dsd90   +++|
28491  M01S00081.dsd90   +++|          LIST   D,G
28492  M01S00082.dsd90   +++| TNSC     DATA   H+"NMSC"+
28493  M01S00083.dsd90   +++|          LIST   *
28494  M01S00084.dsd90   +++|          CON    0           END OF TABLE
Line S00941 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28495  M01S00941.274l797 +++|          SPACE  4,10
28496  M01S00942.274l797 +++|          CMDEND
Line S00085 Modification History
M01 (Added by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28497  M01S00085.dsd90   +++|          COMMAND  (JOB CONTROL REQUESTS - PCLASS.),CMR
28498  M00S17670.dsd     +++| PCL      SPACE  4,10
28499  M00S17671.dsd     +++|**        PCLASS,P0,P1,...,P7.
28500  M00S17672.dsd     +++|*
28501  M00S17673.dsd     +++|*         SET PRIORITY ORDERED SERVICE CLASSES.
28502  M00S17674.dsd     +++|*
28503  M00S17675.dsd     +++|*         EACH PARAMETER SETS THE SERVICE CLASS FOR THE INDICATED
28504  M00S17676.dsd     +++|*         PRIORITY LEVEL.  THE DEFAULT FOR EACH NULL PARAMETER IS
28505  M00S17677.dsd     +++|*         ZERO.
28506  M00S17678.dsd     +++|
28507  M00S17679.dsd     +++|
28508  M00S17680.dsd     +++| PCL4     JMP    KIE         PROCESS INCORRECT ENTRY
28509  M00S17681.dsd     +++|
28510  M00S17682.dsd     +++|          ENTRY  PCL
28511  M00S17683.dsd     +++|          ERRNZ  SR+5-SH     SCRATCH STORAGE NOT CONTIGUOUS
28512  M00S17684.dsd     +++|          LDN    ZERL        INITIALIZE SERVICE CLASSES
28513  M00S17685.dsd     +++|          CRD    SR
28514  M00S17686.dsd     +++|          CRD    SH
28515  M00S17687.dsd     +++|          LDN    0           INITIALIZE PRIORITY INDEX
28516  M00S17688.dsd     +++|          STD    T2
28517  M00S17689.dsd     +++|          LDI    CA
28518  M00S17690.dsd     +++|          LMN    1R.
28519  M00S17691.dsd     +++|          ZJN    PCL3        IF TERMINATOR
28520  M00S17692.dsd     +++| PCL1     LDI    CA
28521  M00S17693.dsd     +++|          LMN    1R,
28522  M00S17694.dsd     +++|          ZJN    PCL2        IF NULL PARAMETER
28523  M00S17695.dsd     +++|          LDC    TNSC
28524  M00S17696.dsd     +++|          RJM    SPT         SEARCH FOR VALID SERVICE CLASS
28525  M00S17697.dsd     +++|          STD    T3
28526  M00S17698.dsd     +++|          LDM    TSCM,T3
28527  M00S17699.dsd     +++|          ZJN    PCL4        IF SERVICE CLASS NOT ALLOWED
28528  M00S17700.dsd     +++|          LDD    T1          SET SERVICE CLASS INTO SCT
28529  M00S17701.dsd     +++|          STM    SR,T2
28530  M00S17702.dsd     +++|          LDN    2
28531  M00S17703.dsd     +++|          RAD    CA
28532  M00S17704.dsd     +++|          LDI    CA
28533  M00S17705.dsd     +++|          LMN    1R.
28534  M00S17706.dsd     +++|          ZJN    PCL3        IF TERMINATOR
28535  M00S17707.dsd     +++| PCL2     AOD    CA
28536  M00S17708.dsd     +++|          LDI    CA
28537  M00S17709.dsd     +++|          LMN    1R.
28538  M00S17710.dsd     +++|          ZJN    PCL3        IF END OF ENTRY
28539  M00S17711.dsd     +++|          AOD    T2
28540  M00S17712.dsd     +++|          SBN    10
28541  M00S17713.dsd     +++|          NJN    PCL1        IF NOT MAXIMUM PRIORITIES
28542  M00S17714.dsd     +++|          LJM    PCL4        PROCESS INCORRECT ENTRY
28543  M00S17715.dsd     +++|
28544  M00S17716.dsd     +++| PCL3     LDK    JBCP        SET PRIORITY LEVEL SERVICE CLASSES
28545  M00S17717.dsd     +++|          CRD    CM
28546  M00S17718.dsd     +++|          LDD    CM
28547  M00S17719.dsd     +++|          SHN    14
28548  M00S17720.dsd     +++|          ADD    CM+1
28549  M00S17721.dsd     +++|          ADN    PLSC
28550  M00S17722.dsd     +++|          CWD    SR
28551  M00S17723.dsd     +++|          ADN    1
28552  M00S17724.dsd     +++|          CWD    SH
28553  M00S17725.dsd     +++|          JMP    KBR         RETURN
Line S17726 Modification History
M01 (Removed by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28554  M01S17726.dsd90   ---| SOT      SPACE  4,10
28555  M01S17727.dsd90   ---|**        SOT - SEARCH FOR VALID ORIGIN TYPE.
28556  M01S17728.dsd90   ---|*
28557  M01S17729.dsd90   ---|*         ENTRY  ((CA - CA+1)) = ORIGIN TYPE PARAMETER.
28558  M01S17730.dsd90   ---|*
28559  M01S17731.dsd90   ---|*         EXIT   (T2) = ORIGIN TYPE VALUE.
28560  M01S17732.dsd90   ---|*
28561  M01S17733.dsd90   ---|*         ERROR  TO *KBR* IF ORIGIN TYPE INCORRECT.
28562  M01S17734.dsd90   ---|*         ERROR  TO *KIE* IF ORIGIN TYPE INVALID.
28563  M01S17735.dsd90   ---|*
28564  M01S17736.dsd90   ---|*         USES   T1, T2, T3.
28565  M01S17737.dsd90   ---|
28566  M01S17738.dsd90   ---|
28567  M01S17739.dsd90   ---| SOT2     AOD    T1          RETURN ORIGIN TYPE VALUE
28568  M01S17740.dsd90   ---|          LDM    TCOT,T1
28569  M01S17741.dsd90   ---|          STD    T2
28570  M01S17742.dsd90   ---|
28571  M01S17743.dsd90   ---| SOT      SUBR               ENTRY/EXIT
28572  M01S17744.dsd90   ---|          LDN    0           INITIALIZE TABLE INDEX
28573  M01S17745.dsd90   ---|          STD    T1
28574  M01S17746.dsd90   ---|          LDI    CA          ASSEMBLE ORIGIN TYPE
28575  M01S17747.dsd90   ---|          SHN    6
28576  M01S17748.dsd90   ---|          LMM    1,CA
28577  M01S17749.dsd90   ---|          STD    T3
28578  M01S17750.dsd90   ---|          LDM    TCOT,T1     SEARCH TABLE FOR ORIGIN TYPE
28579  M01S17751.dsd90   ---| SOT1     LMD    T3
28580  M01S17752.dsd90   ---|          ZJN    SOT2        IF MATCH FOUND
28581  M01S17753.dsd90   ---|          LDN    2           INCREMENT TABLE INDEX
28582  M01S17754.dsd90   ---|          RAD    T1
28583  M01S17755.dsd90   ---|          LDM    TCOT,T1
28584  M01S17756.dsd90   ---|          NJN    SOT1        IF NOT END OF TABLE
28585  M01S17757.dsd90   ---|          JMP    KIE         PROCESS INVALID ENTRY
28586  M00S17758.dsd     ---| SPT      SPACE  4,10
28587  M00S17759.dsd     ---|**        SPT - SEARCH PARAMETER TABLE.
28588  M00S17760.dsd     ---|*
28589  M00S17761.dsd     ---|*         ENTRY  (A) = FWA OF PARAMETER TABLE.
28590  M00S17762.dsd     ---|*                (CA) = CHARACTER ADDRESS.
28591  M00S17763.dsd     ---|*
28592  M00S17764.dsd     ---|*         EXIT   (A) = INDEX OF ENTRY FOUND.
28593  M00S17765.dsd     ---|*
28594  M00S17766.dsd     ---|*         USES   T1, T3, T5.
28595  M00S17767.dsd     ---|
28596  M00S17768.dsd     ---|
28597  M00S17769.dsd     ---| SPT2     LDD    T5
28598  M00S17770.dsd     ---|          SBD    T3
28599  M00S17771.dsd     ---|
28600  M00S17772.dsd     ---| SPT      SUBR               ENTRY/EXIT
28601  M00S17773.dsd     ---|          STD    T3
28602  M00S17774.dsd     ---|          STD    T5
28603  M00S17775.dsd     ---|          LDI    CA          ASSEMBLE PARAMETER NAME
28604  M00S17776.dsd     ---|          SHN    6
28605  M00S17777.dsd     ---|          LMM    1,CA
28606  M00S17778.dsd     ---|          STD    T1
28607  M00S17779.dsd     ---|          LDI    T5
28608  M00S17780.dsd     ---| SPT1     LMD    T1
28609  M00S17781.dsd     ---|          ZJN    SPT2        IF MATCH FOUND
28610  M00S17782.dsd     ---|          AOD    T5          INCREMENT TABLE INDEX
28611  M00S17783.dsd     ---|          LDI    T5
28612  M00S17784.dsd     ---|          NJN    SPT1        IF NOT END OF TABLE
28613  M00S17785.dsd     ---|          JMP    KIE         *INCORRECT ENTRY*
Line S00086 Modification History
M01 (Added by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28614  M01S00086.dsd90   +++| TSCM     SPACE  4,10
28615  M01S00087.dsd90   +++|**        TSCM - TABLE OF SERVICE CLASS MASK BITS.
28616  M01S00088.dsd90   +++|*
28617  M01S00089.dsd90   +++|*         THIS TABLE IS INDEXED BY SERVICE CLASS VALUES.
28618  M01S00090.dsd90   +++|*
28619  M01S00091.dsd90   +++|*         ONLY SERVICE CLASSES DEFINED IN THIS TABLE ARE
28620  M01S00092.dsd90   +++|*         ALLOWED ON THE *PCLASS* AND *CLASS* COMMANDS.
28621  M01S00093.dsd90   +++|
28622  M01S00094.dsd90   +++|
28623  M01S00095.dsd90   +++|*CALL     COMSSCD
28624  M01S00096.dsd90   +++|
28625  M01S00097.dsd90   +++| TSCM     INDEX
28626  M01S00098.dsd90   +++|          LIST   D
28627  M01S00099.dsd90   +++| .SCL     HERE
28628  M01S00100.dsd90   +++|          LIST   *
28629  M01S00101.dsd90   +++|          INDEX  MXSC
28630  M01S00102.dsd90   +++| TNSC     SPACE  4,10
28631  M01S00103.dsd90   +++|**        TNSC - TABLE OF TWO-CHARACTER SERVICE CLASS TYPES.
28632  M01S00104.dsd90   +++|
28633  M01S00105.dsd90   +++|
28634  M01S00106.dsd90   +++|          LIST   D,G
28635  M01S00107.dsd90   +++| TNSC     DATA   H+"NMSC"+
28636  M01S00108.dsd90   +++|          LIST   *
28637  M01S00109.dsd90   +++|          CON    0           END OF TABLE
Line S00943 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28638  M01S00943.274l797 +++|          SPACE  4,10
28639  M01S00944.274l797 +++|          CMDEND
Line S00878 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28640  M01S00878.242l642 +++|          COMMAND (PROCESS THRESHOLDS.)
28641  M01S00879.242l642 +++| THR      SPACE  4,10
28642  M01S00880.242l642 +++|***       THRESHOLD,TH=XXXX,E1,E2,...,EN.
28643  M01S00881.242l642 +++|*
28644  M01S00882.242l642 +++|*         TH  =  VF  -  SET VALIDATION FAILURE THRESHOLD.
28645  M01S00883.242l642 +++|*                RA  -  SET RESTRICTED ACTIVITY THRESHOLD.
28646  M01S00884.242l642 +++|*                LS  -  SET LOW SPACE THRESHOLD.
28647  M01S00885.242l642 +++|*                RE  -  SET RECOVERED ERROR THRESHOLD.
28648  M01S00886.242l642 +++|*                UE  -  SET UNRECOVERED ERROR THRESHOLD.
28649  M01S00887.242l642 +++|*         XXXX = THRESHOLD VALUE.
28650  M01S00888.242l642 +++|*              = * TO SET DEFAULT VALUES.
28651  M01S00889.242l642 +++|*         EN  =  EST ORDINAL ON WHICH TO SET THRESHOLD.
28652  M01S00890.242l642 +++|
28653  M01S00891.242l642 +++|
28654  M01S00892.242l642 +++|          ENTRY  THR
28655  M01S00893.242l642 +++|          LDN    0           CHECK THRESHOLD TYPE
28656  M01S00894.242l642 +++|          STD    T6
28657  M01S00895.242l642 +++|          LDI    CA
28658  M01S00896.242l642 +++|          SHN    6
28659  M01S00897.242l642 +++|          ADM    1,CA
28660  M01S00898.242l642 +++|          STD    T1
28661  M01S00899.242l642 +++|          LDM    TTHR,T6
28662  M01S00900.242l642 +++| THR1     LMD    T1
28663  M01S00901.242l642 +++|          ZJN    THR3        IF MATCH FOUND
28664  M01S00902.242l642 +++|          AOD    T6
28665  M01S00903.242l642 +++|          LDM    TTHR,T6
28666  M01S00904.242l642 +++|          NJN    THR1        IF MORE ENTRIES TO COMPARE
28667  M01S00905.242l642 +++| THR2     JMP    KIE         *INCORRECT ENTRY*
28668  M01S00906.242l642 +++|
28669  M01S00907.242l642 +++| THR3     LDN    2           ADVANCE KEYBOARD INDEX
28670  M01S00908.242l642 +++|          RAD    CA
28671  M01S00909.242l642 +++|          LDI    CA
28672  M01S00910.242l642 +++|          LMN    1R=
28673  M01S00911.242l642 +++|          NJN    THR2        IF INCORRECT SEPARATOR
28674  M01S00912.242l642 +++|          AOD    CA
28675  M01S00913.242l642 +++|          LDI    CA
28676  M01S00914.242l642 +++|          LMN    1R*
28677  M01S00915.242l642 +++|          STD    T7
28678  M01S00916.242l642 +++|          NJN    THR4        IF NOT DEFAULT
28679  M01S00917.242l642 +++|          AOD    CA
28680  M01S00918.242l642 +++|          UJN    THR5        PROCESS EQUIPMENT LIST
28681  M01S00919.242l642 +++|
Proceed to Part 21
cdc/nos2.source/opl.opl871/deck/dsd.020.txt ยท Last modified: (external edit)