User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ds.004

Deck 1DS Part 004

41 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S04013 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05629  M02S04013.271l716 ---|          CON    7777        (RESERVED)
Line S04014 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05630  M02S04014.271l716 ---|          VFD    12/2RTP
Line S04015 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05631  M02S04015.271l716 ---|          VFD    12/2RFL
Line S04016 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05632  M02S04016.271l716 ---|          VFD    24/4RAMXX
05633  M01S00373.271l716 +++|          CON    2RCP        CONTROL POINT SLICE PRIORITY
05634  M01S00374.271l716 +++|          CON    2RTP        BASE PRIORITY FOR INTERACTIVE JOBS
05635  M01S00375.271l716 +++|          CON    2RFL        MAXIMUM FIELD LENGTH PER JOB
05636  M01S00376.271l716 +++|          CON    6060
05637  M01S00377.271l716 +++|          CON    2RAM        MAXIMUM MEMORY AVAILABLE FOR ALL JOBS
05638  M01S04017.1ds     +++|
05639  M01S04018.1ds     +++|*         *MECT*.
05640  M01S04019.1ds     +++|
Line S04020 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05641  M02S04020.271l716 ---|          CON    7777        (RESERVED)
Line S04021 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05642  M02S04021.271l716 ---|          CON    7777        (RESERVED)
Line S04022 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05643  M02S04022.271l716 ---|          VFD    12/2REC
Line S04023 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05644  M02S04023.271l716 ---|          CON    7777        (RESERVED)
Line S04024 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05645  M02S04024.271l716 ---|          VFD    12/2REM
Line S00378 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05646  M02S00378.271l750 ---|          CON    2RSD        CPU JOB SWITCH DELAY TIME
Line S00379 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05647  M02S00379.271l750 ---|          CON    2RCW        CPU WEIGHTING FACTOR
05648  M01S00091.271l750 +++|          CON    6060
05649  M01S00092.271l750 +++|          CON    6060
05650  M01S00380.271l716 +++|          CON    2REC        MAXIMUM EXTENDED MEMORY PER JOB
05651  M01S00381.271l716 +++|          CON    6060
05652  M01S00382.271l716 +++|          CON    2REM        MAXIMUM EXTENDED MEMORY FOR ALL JOBS
05653  M01S04025.1ds     +++|
05654  M01S04026.1ds     +++|*         *PFCT*.
05655  M01S04027.1ds     +++|
Line S04028 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05656  M02S04028.271l716 ---| TSVPC    EQU    5+5+5       FIRST BYTE OF INDEX PARAMETERS.
Line S04029 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05657  M02S04029.271l716 ---|          VFD    12/2RFS     BYTE 0, BITS 0 - 2
Line S04030 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05658  M02S04030.271l716 ---|          VFD    12/2RCS     BYTE 0, BITS 3 - 5
Line S04031 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05659  M02S04031.271l716 ---|          VFD    12/2RFC     BYTE 0, BITS 6 - 10
Line S04032 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05660  M02S04032.271l716 ---|          VFD    12/2RDS     BYTE 0, BITS 11 - 13
Line S04033 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05661  M02S04033.271l716 ---| TSVPD    EQU    5+5+5+4
Line S04034 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05662  M02S04034.271l716 ---|          VFD    12/2RDT
05663  M01S00383.271l716 +++| TSVPD    CON    2RFS        INDIVIDUAL INDIRECT ACCESS FILE SIZE
05664  M01S00384.271l716 +++|          CON    2RCS        CUMULATIVE INDIRECT ACCESS FILE SIZE
05665  M01S00385.271l716 +++|          CON    2RFC        NUMBER OF FILES IN CATALOG
05666  M01S00386.271l716 +++|          CON    2RDS        INDIVIDUAL DIRECT ACCESS FILE SIZE
05667  M01S00093.271l750 +++| TSVPE    CON    2RDT        SERVICE CLASS TO ASSIGN ON A DETACH
05668  M01S00387.271l716 +++|
Line S00388 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05669  M02S00388.271l750 ---| TSVPE    CON    2RDT        SERVICE CLASS TO ASSIGN ON A DETACH
05670  M01S00094.271l750 +++|*         *CSJT*.
05671  M01S00095.271l750 +++|
05672  M01S00096.271l750 +++|          CON    2RPR        CPU PRIORITY
05673  M01S00097.271l750 +++|          CON    2RIT        SYSTEM I/O CPU THRESHOLD (MILLISECONDS)
05674  M01S00098.271l750 +++|          CON    2RSE        CPU SLICE EXTENSION (MILLISECONDS)
05675  M01S00099.271l750 +++|          CON    2RRS        CPU RECALL SLICE (MILLISECONDS)
05676  M01S00100.271l750 +++|          CON    2RUS        UNEXTENDED CPU SLICE (MILLISECONDS)
05677  M01S04035.1ds     +++|
05678  M01S04036.1ds     +++|          CON    0
05679  M01S04037.1ds     +++| ASD      SPACE  4,15
05680  M01S04038.1ds     +++|**        ASD - ASSEMBLE DIGITS.
05681  M01S04039.1ds     +++|*
05682  M01S04040.1ds     +++|*         ENTRY  (CA) = ADDRESS OF NEXT CHARACTER.
05683  M01S04041.1ds     +++|*
05684  M01S04042.1ds     +++|*         EXIT   (A) = NON OCTAL DIGIT IN STRING.
05685  M01S04043.1ds     +++|*                (CA) UPDATED.
05686  M01S04044.1ds     +++|*                (AB - AB+4) = DIGITS ASSEMBLED, RIGHT-JUSTIFIED.
05687  M01S04045.1ds     +++|*
05688  M01S04046.1ds     +++|*         USES   T1, T2, T3, AB - AB+4.
05689  M01S04047.1ds     +++|
05690  M01S04048.1ds     +++|
05691  M01S04049.1ds     +++| ASD      SUBR               ENTRY/EXIT
05692  M01S04050.1ds     +++|          LDN    ZERL        CLEAR ASSEMBLY
05693  M01S04051.1ds     +++|          CRD    AB
05694  M01S04052.1ds     +++| ASD1     LDI    CA          CHECK CHARACTER
05695  M01S04053.1ds     +++|          SBN    1R0
05696  M01S04054.1ds     +++|          MJN    ASD2        IF ALPHA
05697  M01S04055.1ds     +++|          SBN    10
05698  M01S04056.1ds     +++|          MJN    ASD3        IF OCTAL DIGIT
05699  M01S04057.1ds     +++|          SBN    1R -1R8
05700  M01S04058.1ds     +++|          ZJN    ASD5        IF * *
05701  M01S04059.1ds     +++| ASD2     LDI    CA          GET CHARACTER
05702  M01S04060.1ds     +++|          UJN    ASDX        RETURN
05703  M01S04061.1ds     +++|
05704  M01S04062.1ds     +++| ASD3     ADN    10          SET NEW DIGIT
05705  M01S04063.1ds     +++|          STD    T2
05706  M01S04064.1ds     +++|          LDN    AB+4        SET BYTE ADDRESS
05707  M01S04065.1ds     +++|          STD    T3
05708  M01S04066.1ds     +++| ASD4     LDI    T3          BYTE * 10
05709  M01S04067.1ds     +++|          SHN    3
05710  M01S04068.1ds     +++|          ADD    T2          ADD NEW DIGIT
05711  M01S04069.1ds     +++|          STI    T3
05712  M01S04070.1ds     +++|          SHN    -14         NEW DIGIT = OVERFLOW
05713  M01S04071.1ds     +++|          STD    T2
05714  M01S04072.1ds     +++|          SOD    T3          DECREMENT BYTE ADDRESS
05715  M01S04073.1ds     +++|          LMN    AB-1
05716  M01S04074.1ds     +++|          NJN    ASD4        IF NOT 5 BYTES
05717  M01S04075.1ds     +++| ASD5     AOD    CA          ADVANCE CHARACTER
05718  M01S04076.1ds     +++|          UJN    ASD1        LOOP
05719  M01S04077.1ds     +++| SPT      SPACE  4,10
05720  M01S04078.1ds     +++|**        SPT - SEARCH PARAMETER TABLE.
05721  M01S04079.1ds     +++|*
05722  M01S04080.1ds     +++|*         ENTRY  (A) = FWA OF PARAMETER TABLE.
05723  M01S04081.1ds     +++|*                (CA) = CHARACTER ADDRESS.
05724  M01S04082.1ds     +++|*
05725  M01S04083.1ds     +++|*         EXIT   (A) = INDEX OF ENTRY FOUND.
05726  M01S04084.1ds     +++|*                (A) .LT. 0, IF NOT FOUND.
05727  M01S04085.1ds     +++|*                (T5) = ADDRESS OF TABLE ENTRY FOUND.
05728  M01S00389.271l716 +++|*                (CA) = CHARACTER ADDRESS ADVANCED.
05729  M01S04086.1ds     +++|*
05730  M01S04087.1ds     +++|*         USES   T1, T3, T5.
05731  M01S04088.1ds     +++|
05732  M01S04089.1ds     +++|
Line S04090 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05733  M02S04090.271l716 ---| SPT2     LDD    T5          RETURN INDEX OF ENTRY
05734  M01S00390.271l716 +++| SPT2     LDN    2           ADVANCE CHARACTER ADDRESS
05735  M01S00391.271l716 +++|          RAD    CA
05736  M01S00392.271l716 +++|          LDD    T5          SET INDEX OF ENTRY
05737  M01S04091.1ds     +++|          SBD    T3
05738  M01S04092.1ds     +++|
05739  M01S04093.1ds     +++| SPT      SUBR               ENTRY/EXIT
05740  M01S04094.1ds     +++|          STD    T3
05741  M01S04095.1ds     +++|          STD    T5
05742  M01S04096.1ds     +++|          LDI    CA          ASSEMBLE PARAMETER NAME
05743  M01S04097.1ds     +++|          SHN    6
05744  M01S04098.1ds     +++|          LMM    1,CA
05745  M01S04099.1ds     +++|          STD    T1
05746  M01S04100.1ds     +++|          LDI    T5
05747  M01S04101.1ds     +++| SPT1     LMD    T1
05748  M01S04102.1ds     +++|          ZJN    SPT2        IF MATCH FOUND
Line S04103 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05749  M02S04103.271l716 ---|          LDN    TSVPE
Line S04104 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05750  M02S04104.271l716 ---|          ERRNZ  TSVPE-1     TABLE ENTRY SIZE CHANGED
Line S04105 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05751  M02S04105.271l716 ---|          RAD    T5
05752  M01S00393.271l716 +++|          AOD    T5
05753  M01S04106.1ds     +++|          LDI    T5
05754  M01S04107.1ds     +++|          NJN    SPT1        IF NOT END OF TABLE
05755  M01S04108.1ds     +++|          LCN    0           FLAG ENTRY NOT FOUND
05756  M01S04109.1ds     +++|          UJP    SPTX        RETURN
05757  M01S04110.1ds     +++|          SPACE  4,10
Line S04111 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05758  M02S04111.271l750 ---|**        COMMON DECKS.
Line S04112 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05759  M02S04112.271l750 ---|
Line S04113 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05760  M02S04113.271l750 ---|
Line S04114 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05761  M02S04114.271l750 ---|*CALL     COMPRJC
Line S04115 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
05762  M02S04115.271l750 ---|          SPACE  4,10
05763  M01S04116.1ds     +++|*         BUFFERS.
05764  M01S04117.1ds     +++|
05765  M01S04118.1ds     +++| CBUF     BSS    /1DS/KBCML*5  KEYBOARD BUFFER
05766  M01S04119.1ds     +++|          SPACE  4,10
Line S04120 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
05767  M02S04120.1ds21   ---|          OVERFLOW  OVLA,BFMS
05768  M01S00090.1ds21   +++|          OVERFLOW  OVLA,/OVERLAY/BUFB
05769  M01S04121.1ds     +++|          OVERLAY  (*BIO* FUNCTIONS.)
05770  M01S04122.1ds     +++| EBR      SPACE  4,10
05771  M01S04123.1ds     +++|***       FUNCTION EBRF - ENTER *BIO* BUFFER POINT REQUEST.
05772  M01S04124.1ds     +++|*
05773  M01S04125.1ds     +++|*         ENTRY  (CP) = *BIO* CONTROL POINT ADDRESS.
05774  M01S04126.1ds     +++|*                (IR+4) = 6/KEYBOARD BUFFER OFFSET, 6/.
05775  M01S04127.1ds     +++|*                (PARAMETER) = 12/,12/PR,6/,6/PA,12/EST ORD,12/FUNC.
05776  M01S04128.1ds     +++|*                              PR = PRIORITY.
05777  M01S04129.1ds     +++|*                              PA = PARAMETER.
05778  M01S04130.1ds     +++|*                              FUNC = *BIO* REQUEST FUNCTION.
05779  M01S00001.ns2591  +++|*                IF REQUEST FUNCTION = *REPM* (*REPEAT* COMMAND)
05780  M01S00002.ns2591  +++|*                (PARAMETER) = 12/J1,12/PR,6/,6/PA,12/J2,12/FUNC.
05781  M01S00003.ns2591  +++|*                              J1 = FIRST TWO CHARACTERS OF JSN.
05782  M01S00004.ns2591  +++|*                              J2 = LAST TWO CHARACTERS OF JSN.
05783  M01S04131.1ds     +++|
05784  M01S04132.1ds     +++|
05785  M01S04133.1ds     +++| EBR      ENTRY              ENTRY/EXIT
05786  M01S04134.1ds     +++|          LDC    BISI        CHECK IF *BIO* IS ACTIVE
05787  M01S04135.1ds     +++|          RJM    CSS
05788  M01S04136.1ds     +++|          LDN    TAEQL/5     READ AVAILABLE EQUIPMENT TABLE
05789  M01S04137.1ds     +++|          STD    T1
05790  M01S04138.1ds     +++|          LDD    RA
05791  M01S04139.1ds     +++|          SHN    6
05792  M01S04140.1ds     +++|          ADK    /BIO/TEQR
05793  M01S04141.1ds     +++|          CRM    TAEQ,T1
05794  M01S04142.1ds     +++|          LDC    /1DS/DSDL+/1DS/KBCML  READ SPECIAL PARAMETER WORD
05795  M01S04143.1ds     +++|          CRD    AB
Line S04144 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2591
Seq #  *Modification Id* Act 
----------------------------+
05796  M02S04144.ns2591  ---|          LDC    /BIO/BFCW   SET ADDRESS OF FIRST BUFFER POINT
05797  M01S00005.ns2591  +++|          LDD    AB+4
05798  M01S00006.ns2591  +++|          LMN    /BIO/REPM
05799  M01S00007.ns2591  +++|          NJN    EBR0        IF NOT *REPEAT*
05800  M01S00008.ns2591  +++|          LCN    2
05801  M01S00009.ns2591  +++|          RAM    EBRB
05802  M01S00010.ns2591  +++|          LDC    NJNI+EBR2-EBRC
05803  M01S00011.ns2591  +++|          ERRNG  EBRC-EBR2+37  INCORRECT JUMP INSTRUCTION
05804  M01S00012.ns2591  +++|          STM    EBRC
05805  M01S00013.ns2591  +++| EBR0     LDC    /BIO/BFCW   SET ADDRESS OF FIRST BUFFER POINT
05806  M01S04145.1ds     +++|          STD    T7
05807  M01S04146.1ds     +++|          STD    T1
05808  M01S04147.1ds     +++|          SBN    /BIO/BFCWL  SET END OF BUFFER POINTS
05809  M01S04148.1ds     +++|          STD    T6
05810  M01S04149.1ds     +++| EBR1     NFA    T7,R        READ BUFFER POINT WORD
05811  M01S04150.1ds     +++|          CRD    CM
05812  M01S04151.1ds     +++|          LDD    CM
05813  M01S04152.1ds     +++|          ZJN    EBR2        IF BUFFER POINT INACTIVE
Line S04153 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2591
Seq #  *Modification Id* Act 
----------------------------+
05814  M02S04153.ns2591  ---|          LDD    CM+3        CHECK EST ORDINAL
05815  M01S00014.ns2591  +++| EBRB     LDD    CM+3        CHECK EST ORDINAL
05816  M01S00015.ns2591  +++|*         LDD    CM+1        (*REPEAT*)
05817  M01S04154.1ds     +++|          LMD    AB+3
Line S04155 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2591
Seq #  *Modification Id* Act 
----------------------------+
05818  M02S04155.ns2591  ---|          ZJN    EBR5        IF SPECIFIED EQUIPMENT FOUND
05819  M01S00016.ns2591  +++| EBRC     UJN    EBR1.1      CHECK EST
05820  M01S00017.ns2591  +++|*         NJN    EBR2        (IF *REPEAT* AND JSN DOES NOT MATCH)
05821  M01S00018.ns2591  +++|          LDD    CM
05822  M01S00019.ns2591  +++|          LMD    AB
05823  M01S00020.ns2591  +++| EBR1.1   ZJN    EBR5        IF SPECIFIED EQUIPMENT FOUND
05824  M01S04156.1ds     +++| EBR2     LCN    2           ADVANCE BUFFER POINT ADDRESS
05825  M01S04157.1ds     +++|          RAD    T7
05826  M01S04158.1ds     +++|          LMD    T6
05827  M01S04159.1ds     +++|          NJN    EBR1        IF NOT END OF BUFFER POINTS
05828  M01S04160.1ds     +++| EBR3     LDN    1           SET ERROR
Line S04161 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05829  M02S04161.271l716 ---| EBR4     RJM    SRD         SAVE RESPONSE TO *DSD*
Line S04162 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05830  M02S04162.271l716 ---|          UJP    EBRX        RETURN
Line S00394 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2652
Seq #  *Modification Id* Act 
----------------------------+
05831  M02S00394.ns2652  ---|          RJM    SRD
Line S00395 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2652
Seq #  *Modification Id* Act 
----------------------------+
05832  M02S00395.ns2652  ---| EBR4     UJP    EBRX        RETURN
05833  M01S00001.ns2652  +++| EBR4     RJM    SRD
05834  M01S00002.ns2652  +++|          UJP    EBRX        RETURN
05835  M01S04163.1ds     +++|
Line S04164 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds22
Seq #  *Modification Id* Act 
----------------------------+
05836  M02S04164.1ds22   ---| EBR5     LDD    T1          SET EQUIPMENT INDEX
05837  M01S00001.1ds22   +++| EBR5     LDD    CM+4
05838  M01S00002.1ds22   +++|          LPN    77
Line S00003 Modification History
M01 (Added by) 1ds22
M02 (Updated by) ns2652
Seq #  *Modification Id* Act 
----------------------------+
05839  M02S00003.ns2652  ---|          ZJN    EBR7        IF LAST COMMAND PROCESSED
Line S00004 Modification History
M01 (Added by) 1ds22
M02 (Updated by) ns2652
Seq #  *Modification Id* Act 
----------------------------+
05840  M02S00004.ns2652  ---|          PAUSE
Line S00005 Modification History
M01 (Added by) 1ds22
M02 (Updated by) ns2652
Seq #  *Modification Id* Act 
----------------------------+
05841  M02S00005.ns2652  ---|          LDD    CM+1
Line S00006 Modification History
M01 (Added by) 1ds22
M02 (Updated by) ns2652
Seq #  *Modification Id* Act 
----------------------------+
05842  M02S00006.ns2652  ---|          ZJN    EBR1        IF NO ERROR FLAG
Line S00007 Modification History
M01 (Added by) 1ds22
M02 (Updated by) ns2652
Seq #  *Modification Id* Act 
----------------------------+
05843  M02S00007.ns2652  ---|          LMN    IDET
Line S00008 Modification History
M01 (Added by) 1ds22
M02 (Updated by) ns2591
M03 (Updated by) ns2652
Seq #  *Modification Id* Act 
----------------------------+
05844  M03S00008.ns2652  ---|          ZJN    EBR1        IF OPERATOR IDLE DOWN
Line S00021 Modification History
M01 (Added by) ns2591
M02 (Updated by) ns2652
Seq #  *Modification Id* Act 
----------------------------+
05845  M02S00021.ns2652  ---|          ZJP    EBR1        IF OPERATOR IDLE DOWN
Line S00009 Modification History
M01 (Added by) 1ds22
M02 (Updated by) ns2652
Seq #  *Modification Id* Act 
----------------------------+
05846  M02S00009.ns2652  ---| EBR6     UJN    EBR3        RETURN ERROR
05847  M01S00003.ns2652  +++|          ZJN    EBR6        IF LAST COMMAND PROCESSED
05848  M01S00004.ns2652  +++|          LDN    2           SET *BIO BUSY*
05849  M01S00005.ns2652  +++|          UJN    EBR4        SAVE RESPONSE TO *DSD*
05850  M01S00010.1ds22   +++|
Line S00011 Modification History
M01 (Added by) 1ds22
M02 (Updated by) ns2652
Seq #  *Modification Id* Act 
----------------------------+
05851  M02S00011.ns2652  ---| EBR7     LDD    T1          SET EQUIPMENT INDEX
05852  M01S00006.ns2652  +++| EBR6     LDD    T1          SET EQUIPMENT INDEX
05853  M01S04165.1ds     +++|          SBD    T7
05854  M01S04166.1ds     +++|          SHN    -1
05855  M01S04167.1ds     +++|          STD    T1
05856  M01S04168.1ds     +++|          LDM    TAEQ+1,T1   SET DEVICE TYPE
05857  M01S04169.1ds     +++|          LPN    7
05858  M01S04170.1ds     +++|          LMC    -0
05859  M01S04171.1ds     +++|          RAM    EBRA
05860  M01S04172.1ds     +++|          LDM    TBDF,AB+4   CHECK IF COMMAND ALLOWED FOR DEVICE
05861  M01S04173.1ds     +++| EBRA     SHN    21-0
05862  M01S04174.1ds     +++|*         SHN    21-XX
Line S04175 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds22
Seq #  *Modification Id* Act 
----------------------------+
05863  M02S04175.1ds22   ---|          PJN    EBR3        IF COMMAND NOT ALLOWED FOR THIS DEVICE
Line S00012 Modification History
M01 (Added by) 1ds22
M02 (Updated by) ns2652
Seq #  *Modification Id* Act 
----------------------------+
05864  M02S00012.ns2652  ---|          PJN    EBR6        IF COMMAND NOT ALLOWED FOR THIS DEVICE
05865  M01S00007.ns2652  +++|          PJN    EBR3        IF COMMAND NOT ALLOWED FOR THIS DEVICE
05866  M01S04176.1ds     +++|          LDD    AB+2        MERGE PARAMETER AND REQUEST
05867  M01S04177.1ds     +++|          SHN    6
05868  M01S04178.1ds     +++|          LMD    AB+4
05869  M01S04179.1ds     +++|          STD    CM+4
05870  M01S04180.1ds     +++|          LDD    AB+1        SET PRIORITY VALUE
05871  M01S04181.1ds     +++|          STD    CM+2
05872  M01S04182.1ds     +++|          NFA    T7,R        STORE BUFFER POINT REQUEST
05873  M01S04183.1ds     +++|          CWD    CM
05874  M01S04184.1ds     +++|          LDN    0           SET NO ERROR
05875  M01S04185.1ds     +++|          UJP    EBR4        SAVE REPSONSE TO *DSD*
05876  M01S04186.1ds     +++| TBDF     SPACE  4,10
05877  M01S04187.1ds     +++|**        TBDF - TABLE OF *BIO* DEVICE FUNCTIONS.
05878  M01S04188.1ds     +++|*
05879  M01S04189.1ds     +++|*         INDEXED BY *BIO* REQUEST FUNCTION.
05880  M01S04190.1ds     +++|
05881  M01S04191.1ds     +++|
05882  M01S04192.1ds     +++| TBDF     BIODF
05883  M01S04193.1ds     +++|          BIODF  ENDM,(LPDT,NPDT,CPDT,CRDT)  END
05884  M01S04194.1ds     +++|          BIODF  REPM,(LPDT,NPDT,CPDT)       REPEAT
05885  M01S04195.1ds     +++|          BIODF  SUPM,(LPDT)                 SUPPRESS
05886  M01S04196.1ds     +++|          BIODF  RRNM,(LPDT,NPDT,CPDT)       REPRINT/REPUNCH
05887  M01S04197.1ds     +++|          BIODF  HLDM,(LPDT,NPDT)            STOP (HOLD)
05888  M01S04198.1ds     +++|          BIODF  CNTM,(LPDT,NPDT)            CONTINUE
05889  M01S04199.1ds     +++|          BIODF  BKPO,(LPDT)                 BACKSPACE PRUS
05890  M01S04200.1ds     +++|          BIODF  BKRO,(LPDT)                 BACKSPACE RECORDS
05891  M01S04201.1ds     +++|          BIODF  BKFO,(LPDT)                 BACKSPACE FILES
05892  M01S04202.1ds     +++|          BIODF  SKPO,(LPDT)                 SKIP PRUS
05893  M01S04203.1ds     +++|          BIODF  SKRO,(LPDT)                 SKIP RECORDS
05894  M01S04204.1ds     +++|          BIODF  SKFO,(LPDT)                 SKIP FILES
05895  M01S04205.1ds     +++|          BIODF  FPRE
05896  M01S04206.1ds     +++| TAEQ     SPACE  4,10
05897  M01S04207.1ds     +++|**        TAEQ - TABLE OF AVAILABLE EQUIPMENTS.
05898  M01S04208.1ds     +++|
05899  M01S04209.1ds     +++|
05900  M01S04210.1ds     +++| TAEQ     BSS    0
05901  M01S04211.1ds     +++| TAEQL    EQU    /BIO/CTIR*5-/BIO/TEQR*5
05902  M01S04212.1ds     +++|          SPACE  4,10
Line S04213 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
05903  M02S04213.1ds21   ---|          OVERFLOW  OVLA,7777-TAEQL
05904  M01S00091.1ds21   +++|          OVERFLOW  OVLA,/OVERLAY/BUFB-TAEQL
05905  M01S04214.1ds     +++|          OVERLAY  (IDLEDOWN PROCESSING.)
05906  M01S04215.1ds     +++| IDD      SPACE  4,10
05907  M01S04216.1ds     +++|***       FUNCTION IDLF - IDLEDOWN SUBSYSTEMS.
05908  M01S04217.1ds     +++|*
05909  M01S04218.1ds     +++|*         ENTRY  (IR+4) = EJT ORDINAL.
05910  M01S04219.1ds     +++|
05911  M01S04220.1ds     +++|
05912  M01S04221.1ds     +++| IDD      ENTRY              ENTRY/EXIT
05913  M01S04222.1ds     +++| IDD1     SFA    EJT,IR+4    INTERLOCK EJT ENTRY
05914  M01S04223.1ds     +++|          STD    CM+4
05915  M01S04224.1ds     +++|          SHN    -14
05916  M01S04225.1ds     +++|          STD    CM+3
05917  M01S04226.1ds     +++|          LDN    41
05918  M01S04227.1ds     +++|          STD    CM+1
05919  M01S04228.1ds     +++|          LDD    MA
05920  M01S04229.1ds     +++|          CWM    IDDA,ON
05921  M01S04230.1ds     +++|          MONITOR  UTEM
05922  M01S04231.1ds     +++|          LDD    CM+1
05923  M01S04232.1ds     +++|          ZJN    IDD2        IF INTERLOCK SET
05924  M01S04233.1ds     +++|          LMN    3
05925  M01S04234.1ds     +++|          ZJN    IDDX        IF EJT NOT IN USE
05926  M01S04235.1ds     +++|          DELAY
05927  M01S04236.1ds     +++|          UJN    IDD1        LOOP ON INTERLOCK
05928  M01S04237.1ds     +++|
05929  M01S04238.1ds     +++| IDD2     SFA    EJT,IR+4
05930  M01S04239.1ds     +++|          ADK    JSNE
05931  M01S04240.1ds     +++|          CRD    CM
05932  M01S04241.1ds     +++|          ADK    SCHE-JSNE
05933  M01S04242.1ds     +++|          CRD    CN
05934  M01S04243.1ds     +++|          LDD    CM+4
05935  M01S04244.1ds     +++|          LMK    EXJS*2
05936  M01S04245.1ds     +++|          LPN    76
05937  M01S04246.1ds     +++|          ZJN    IDD4        IF JOB AT CONTROL POINT
05938  M01S04247.1ds     +++|          LDD    CM          SET JSN
05939  M01S04248.1ds     +++|          STD    CM+3
05940  M01S04249.1ds     +++|          LDD    CM+1
05941  M01S04250.1ds     +++|          STD    CM+4
05942  M01S04251.1ds     +++|          LDD    IR+4        SET ERROR FLAG IN EJT
05943  M01S04252.1ds     +++|          STD    CM+2
05944  M01S04253.1ds     +++|          LDK    IDET+4000
05945  M01S04254.1ds     +++|          STD    CM+1
05946  M01S04255.1ds     +++|          MONITOR  CEFM
05947  M01S04256.1ds     +++| IDD3     SFA    EJT,IR+4    CLEAR THE EJT INTERLOCK
05948  M01S04257.1ds     +++|          STD    CM+4
05949  M01S04258.1ds     +++|          SHN    -14
05950  M01S04259.1ds     +++|          STD    CM+3
05951  M01S04260.1ds     +++|          LDN    40
05952  M01S04261.1ds     +++|          STD    CM+1
05953  M01S04262.1ds     +++|          MONITOR  UTEM
05954  M01S04263.1ds     +++|          LJM    IDDX        RETURN
05955  M01S04264.1ds     +++|
05956  M01S04265.1ds     +++| IDD4     LDD    CN+3        MOVE TO JOB-S CONTROL POINT
05957  M01S04266.1ds     +++|          STD    CM+1
05958  M01S04267.1ds     +++|          MONITOR  CCAM
05959  M01S04268.1ds     +++|          LDD    CM+1
05960  M01S04269.1ds     +++|          ZJN    IDD5        IF CHANGE MADE
05961  M01S04270.1ds     +++|          DELAY
Line S04271 Modification History
M01 (Added by) 1ds
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05962  M02S04271.273l780 ---|          UJN    IDD4        LOOP ON MOVE
05963  M01S00006.273l780 +++|          UJN    IDD4        RETRY CP CHANGE
05964  M01S04272.1ds     +++|
Line S04273 Modification History
M01 (Added by) 1ds
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05965  M02S04273.273l780 ---| IDD5     LDD    CN+3        SET NEW CONTROL POINT
Line S04274 Modification History
M01 (Added by) 1ds
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05966  M02S04274.273l780 ---|          SHN    7
Line S04275 Modification History
M01 (Added by) 1ds
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05967  M02S04275.273l780 ---|          STD    CP
Line S04276 Modification History
M01 (Added by) 1ds
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05968  M02S04276.273l780 ---|          PAUSE
Line S04277 Modification History
M01 (Added by) 1ds
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05969  M02S04277.273l780 ---|          RJM    IDL         SET IDLEDOWN CONTROL FLAGS
05970  M01S00007.273l780 +++| IDD5     RJM    IDL         SET IDLEDOWN CONTROL FLAGS
05971  M01S04278.1ds     +++|          LJM    IDD3        CLEAR THE EJT INTERLOCK
05972  M01S04279.1ds     +++|
05973  M01S04280.1ds     +++| IDDA     VFD    6/40,6/1,6/6,42/0  VERIFY JOB ADVANCE NOT SET
05974  M01S04281.1ds     +++| IDL      SPACE  4,15
05975  M01S04282.1ds     +++|**        IDL - IDLEDOWN SUBSYSTEM.
05976  M01S04283.1ds     +++|*
05977  M01S04284.1ds     +++|*         IF JOB IS A SPECIAL SUBSYSTEM (*BATCHIO*, *MAGNET*, *MSS*,
05978  M01S04285.1ds     +++|*         *MAS*, *RHF*) THE SUBSYSTEM IDLEDOWN FLAG (BIT 2**15 OF RA+0
05979  M01S04286.1ds     +++|*         AND BIT 2**15 OF CONTROL POINT AREA WORD *SNSW*) WILL BE SET.
05980  M01S04287.1ds     +++|*         IF THE JOB IS NOT A SPECIAL SUBSYSTEM, IT WILL BE
05981  M01S04288.1ds     +++|*         ABORTED WITH THE *IDET* ERROR FLAG.
05982  M01S04289.1ds     +++|*
05983  M01S04290.1ds     +++|*         ENTRY  EJT INTERLOCK SET.
05984  M01S04291.1ds     +++|*
05985  M01S04292.1ds     +++|*         USES   T1, CM - CM+4.
05986  M01S04293.1ds     +++|*
05987  M01S04294.1ds     +++|*         MACROS MONITOR.
05988  M01S04295.1ds     +++|
05989  M01S04296.1ds     +++|
05990  M01S04297.1ds     +++| IDL2     LDN    IDET        SET *IDET* ERROR FLAG
05991  M01S04298.1ds     +++|          STD    CM+1
05992  M01S04299.1ds     +++|          MONITOR  CEFM
05993  M01S04300.1ds     +++|
05994  M01S04301.1ds     +++| IDL      SUBR               ENTRY/EXIT
05995  M01S04302.1ds     +++|          LDD    CP
05996  M01S04303.1ds     +++|          ADN    JCIW
05997  M01S04304.1ds     +++|          CRD    CM
05998  M01S04305.1ds     +++|          LDC    IDLA-1      SET TABLE ADDRESS
05999  M01S04306.1ds     +++|          STD    T1
06000  M01S04307.1ds     +++| IDL1     AOD    T1          CHECK NEXT TABLE ENTRY
06001  M01S04308.1ds     +++|          LDI    T1
06002  M01S04309.1ds     +++|          ZJN    IDL2        IF END OF TABLE
06003  M01S04310.1ds     +++|          LMD    CM+2
06004  M01S04311.1ds     +++|          NJN    IDL1        IF NOT A MATCH
06005  M01S04312.1ds     +++|          LDD    RA          READ RA+0
06006  M01S04313.1ds     +++|          SHN    6
06007  M01S04314.1ds     +++|          CRD    CM
06008  M01S04315.1ds     +++|          LDD    CM+3        SET IDLEDOWN FLAG IN (RA)
06009  M01S04316.1ds     +++|          SCN    10
06010  M01S04317.1ds     +++|          LMN    10
06011  M01S04318.1ds     +++|          STD    CM+3
06012  M01S04319.1ds     +++|          LDD    RA          REWRITE RA+0
06013  M01S04320.1ds     +++|          SHN    6
06014  M01S04321.1ds     +++|          CWD    CM
06015  M01S04322.1ds     +++|          LDD    CP          READ CPA WORD *SNSW*
06016  M01S04323.1ds     +++|          ADK    SNSW
06017  M01S04324.1ds     +++|          CRD    CM
06018  M01S04325.1ds     +++|          LDD    CM+3        SET IDLEDOWN FLAG IN CPA
06019  M01S04326.1ds     +++|          SCN    10
06020  M01S04327.1ds     +++|          LMN    10
06021  M01S04328.1ds     +++|          STD    CM+3
06022  M01S04329.1ds     +++|          LDD    CP          REWRITE CPA WORD *SNSW*
06023  M01S04330.1ds     +++|          ADK    SNSW
06024  M01S04331.1ds     +++|          CWD    CM
06025  M01S04332.1ds     +++|          ADK    CSSW-SNSW   READ CPA WORD *CSSW*
06026  M01S04333.1ds     +++|          CRD    CM
06027  M01S04334.1ds     +++|          LDD    CM          CLEAR *SKIP-TO-EXIT* FLAG
06028  M01S04335.1ds     +++|          LPC    5777
06029  M01S04336.1ds     +++|          STD    CM
06030  M01S04337.1ds     +++|          LDD    CP          WRITE CPA WORD *CSSW*
06031  M01S04338.1ds     +++|          ADK    CSSW
06032  M01S04339.1ds     +++|          CWD    CM
06033  M01S04340.1ds     +++|          LJM    IDLX        RETURN
06034  M01S04341.1ds     +++|
06035  M01S04342.1ds     +++|
06036  M01S04343.1ds     +++| IDLA     BSS    0           TABLE OF SPECIAL SUBSYSTEMS
06037  M01S04344.1ds     +++|          CON    BISI        *BATCHIO*
06038  M01S04345.1ds     +++|          CON    MTSI        *MAGNET*
06039  M01S04346.1ds     +++|          CON    MFSI        *MSS*
06040  M01S04347.1ds     +++|          CON    ASSI        *MAS*
06041  M01S04348.1ds     +++|          CON    RFSI        *RHF*
06042  M01S04349.1ds     +++|          CON    0           END OF TABLE
06043  M01S04350.1ds     +++|
Line S04351 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
06044  M02S04351.1ds21   ---|          OVERFLOW
06045  M01S00092.1ds21   +++|          OVERFLOW  OVLA,/OVERLAY/BUFB
Line S04352 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06046  M02S04352.ns2765  ---|          OVERLAY  (UP/DOWN CHANNEL, ENTER UDT ENTRY.)
06047  M01S00405.ns2765  +++|          OVERLAY  (UP/DOWN CHANNEL.)
06048  M01S04353.1ds     +++|          SPACE  4,10
06049  M01S04354.1ds     +++|**        DIRECT CELL ASSIGNMENTS.
06050  M01S04355.1ds     +++|
06051  M01S04356.1ds     +++| CB       EQU    PP          CONTROLWARE TABLE BYTE ADDRESS
06052  M01S04357.1ds     +++| TA       EQU    PA          CONTROLWARE TABLE WORD ADDRESS
06053  M01S04358.1ds     +++| CH       EQU    60          CHANNEL NUMBER
06054  M01S04359.1ds     +++| MX       EQU    61          MUX CHANNEL FLAG (100 IF MUX CHANNEL)
06055  M01S04360.1ds     +++| CS       EQU    62          CHANNEL RESERVATION STATUS
06056  M01S04361.1ds     +++| MI       EQU    63          NON-ZERO IF ERROR LOG MESSAGE ISSUED
06057  M01S04362.1ds     +++| S1       EQU    64          SCRATCH
06058  M01S04363.1ds     +++| TI       EQU    65          DEVICE TABLE INDEX
06059  M01S04364.1ds     +++| FT       EQU    66          FUNCTION TYPE
06060  M01S04365.1ds     +++| UPC      SPACE  4,15
06061  M01S04366.1ds     +++|***       FUNCTION UPCF - UP CHANNEL.
06062  M01S04367.1ds     +++|*
06063  M01S04368.1ds     +++|*         ENTRY  (IR+3) = 5/MT, 1/M, 1/C, 5/CH.
06064  M01S04369.1ds     +++|*                (IR+4) = 1/S, 2/0, 9/EQ.
06065  M01S04370.1ds     +++|*
Line S04371 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06066  M02S04371.282l826 ---|*                WHERE  MT = MAGNET CONTROL POINT NUMBER.
Line S04372 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06067  M02S04372.282l826 ---|*                       M  = 1, IF MUX CHANNEL.
06068  M01S00001.282l826 +++|*                WHERE  M  = 1, IF MUX CHANNEL.
06069  M01S04373.1ds     +++|*                       C  = 1, IF CONCURRENT CHANNEL.
06070  M01S04374.1ds     +++|*                       CH = CHANNEL NUMBER.
06071  M01S04375.1ds     +++|*                       S  = 1, IF CALLED BY DRIVER OR *1MV*.
06072  M01S04376.1ds     +++|*                       EQ = EST ORDINAL (0 IF FUNCTION TO BE PERFORMED
06073  M01S04377.1ds     +++|*                            ON ALL EQUIPMENTS THAT THE CHANNEL
06074  M01S04378.1ds     +++|*                            ACCESSES).
06075  M01S04379.1ds     +++|
06076  M01S04380.1ds     +++|
06077  M01S04381.1ds     +++|*UPC      ENTRY              ENTRY/EXIT
06078  M01S04382.1ds     +++|*
06079  M01S04383.1ds     +++|*         THIS FUNCTION USES THE *DWNF* PROCESSOR.
06080  M01S04384.1ds     +++| DWN      SPACE  4,15
06081  M01S04385.1ds     +++|***       FUNCTION DWNF - DOWN CHANNEL.
06082  M01S04386.1ds     +++|*
Line S04387 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06083  M02S04387.282l826 ---|*         ENTRY  (IR+3) = 5/MT, 1/M, 1/C, 5/CH.
06084  M01S00002.282l826 +++|*         ENTRY  (IR+3) = 5/0, 1/M, 1/C, 5/CH.
06085  M01S04388.1ds     +++|*                (IR+4) = 3/0, 9/EQ.
06086  M01S04389.1ds     +++|*
Line S04390 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06087  M02S04390.282l826 ---|*                WHERE  MT = MAGNET CONTROL POINT NUMBER.
Line S04391 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06088  M02S04391.282l826 ---|*                       M  = 1, IF MUX CHANNEL.
06089  M01S00003.282l826 +++|*                WHERE  M  = 1, IF MUX CHANNEL.
06090  M01S04392.1ds     +++|*                       C  = 1, IF CONCURRENT CHANNEL.
06091  M01S04393.1ds     +++|*                       CH = CHANNEL NUMBER.
06092  M01S04394.1ds     +++|*                       EQ = EST ORDINAL (0 IF FUNCTION TO BE PERFORMED
06093  M01S04395.1ds     +++|*                            ON ALL EQUIPMENTS THAT THE CHANNEL
06094  M01S04396.1ds     +++|*                            ACCESSES).
06095  M01S04397.1ds     +++|
06096  M01S04398.1ds     +++|
06097  M01S04399.1ds     +++| DWN6     RJM    DCH         RELEASE CHANNEL, IF RESERVED
06098  M01S04400.1ds     +++| DWN7     LDD    MI
06099  M01S04401.1ds     +++|          ZJN    DWN8        IF NO ERROR LOG MESSAGES ISSUED
Line S04402 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds30
Seq #  *Modification Id* Act 
----------------------------+
06100  M02S04402.1ds30   ---|          LDK    ZERL        ISSUE *SEE ERRLOG* EVENT
06101  M01S00002.1ds30   +++|          LDK    ZERL        ISSUE *CHANNEL DOWNED BY SYSTEM* EVENT
06102  M01S04403.1ds     +++|          CRD    CM
Line S04404 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds30
Seq #  *Modification Id* Act 
----------------------------+
06103  M02S04404.1ds30   ---|          LDN    /EVENT/ELAE
06104  M01S00003.1ds30   +++|          LDN    /EVENT/CDSE
06105  M01S04405.1ds     +++|          STD    CM+4
06106  M01S04406.1ds     +++|          MONITOR  EATM
06107  M01S04407.1ds     +++| DWN8     LDD    IR+2
Line S04408 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06108  M02S04408.282l826 ---|          ZJN    DWN9        IF *DOWN* REQUEST
06109  M01S00004.282l826 +++|          ZJN    DWNX        IF *DOWN* REQUEST
06110  M01S04409.1ds     +++|          RJM    CRC         CLEAR CONTROLWARE RELOAD COUNT
Line S04410 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06111  M02S04410.282l826 ---| DWN9     LDM    CMGB
Line S04411 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06112  M02S04411.282l826 ---|          ERRZR  /MTX/XCF    CODE DEPENDS ON VALUE
Line S04412 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06113  M02S04412.282l826 ---|          ZJN    DWNX        IF *MAGNET* CALL NOT NEEDED
Line S04413 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06114  M02S04413.282l826 ---|          LDD    MA          STORE *TDAM* PARAMETERS
Line S04414 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06115  M02S04414.282l826 ---|          CWM    CMGB,ON
Line S04415 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06116  M02S04415.282l826 ---|          RJM    .EUF        SEND *TDAM* FUNCTION TO *MAGNET*
06117  M01S04416.1ds     +++|
06118  M01S04417.1ds     +++| DWN      ENTRY              ENTRY/EXIT
06119  M01S04418.1ds     +++|          RJM    PRS         PRESET
06120  M01S04419.1ds     +++|          LDD    IR+4
06121  M01S04420.1ds     +++|          LPC    777
06122  M01S04421.1ds     +++|          NJN    DWN1        IF EST ORDINAL SPECIFIED
06123  M01S04422.1ds     +++|          LDK    ESTP        INITIALIZE CELLS FOR EST SCAN
06124  M01S04423.1ds     +++|          CRD    T5
06125  M01S04424.1ds     +++|          LDK    NOPE-1
06126  M01S04425.1ds     +++|          STD    T5
06127  M01S04426.1ds     +++|          UJN    DWN2        ENTER EST SCAN LOOP
06128  M01S04427.1ds     +++|
06129  M01S04428.1ds     +++| DWN1     SBN    1
06130  M01S04429.1ds     +++|          STD    T5
06131  M01S04430.1ds     +++|          ADN    2           SET SCAN TERMINATION CONDITION
06132  M01S04431.1ds     +++|          STD    T5+2
06133  M01S04432.1ds     +++| DWN2     AOD    T5          INCREMENT EST ORDINAL
06134  M01S04433.1ds     +++|          STM    CMVA+2      STORE EST ORDINAL IN *1MV* CALL
06135  M01S04434.1ds     +++|          LMD    T5+2
06136  M01S04435.1ds     +++|          ZJP    DWN6        IF END OF EST SCAN
06137  M01S04436.1ds     +++|          SFA    EST,T5      READ EST ENTRY
06138  M01S04437.1ds     +++|          ADK    EQDE
06139  M01S04438.1ds     +++|          CRD    CN
06140  M01S04439.1ds     +++|          RJM    DDP         DETERMINE IF DEVICE SHOULD BE PROCESSED
06141  M01S04440.1ds     +++|          MJN    DWN2        IF DEVICE NOT TO BE PROCESSED
06142  M01S04441.1ds     +++| DWN3     RJM    RCH         REQUEST CHANNEL, IF NECESSARY
06143  M01S04442.1ds     +++|          MJP    DWN7        IF CHANNEL CANNOT BE OBTAINED
06144  M01S04443.1ds     +++|          RJM    RCS         REQUEST CHANNEL STATUS CHANGE ON DEVICE
06145  M01S04444.1ds     +++|          PJN    DWN5        IF CHANNEL STATUS HAS BEEN CHANGED
06146  M01S04445.1ds     +++|          RJM    DCH         DROP CHANNEL
06147  M01S04446.1ds     +++|          LDD    IR+2
06148  M01S04447.1ds     +++|          NJN    DWN2        IF *UP* REQUEST
06149  M01S04448.1ds     +++|          RJM    DEQ         DOWN EQUIPMENT
06150  M01S04449.1ds     +++|          PJN    DWN3        IF EQUIPMENT WAS DOWNED
06151  M01S04450.1ds     +++| DWN4     UJP    DWN2        PROCESS NEXT EST ENTRY
06152  M01S04451.1ds     +++|
06153  M01S04452.1ds     +++| DWN5     RJM    CDS         CHECK DRIVER STATUS
06154  M01S04453.1ds     +++|          RJM    CMV         CALL *1MV*, IF NECESSARY
06155  M01S04454.1ds     +++|          UJN    DWN4        PROCESS NEXT EST ENTRY
Line S04455 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06156  M02S04455.ns2765  ---| EUF      SPACE  4,10
Line S04456 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06157  M02S04456.ns2765  ---|***       FUNCTION EUFF - ENTER MAGNET UDT ENTRY.
Line S04457 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06158  M02S04457.ns2765  ---|*
Line S04458 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06159  M03S04458.ns2765  ---|*         ENTRY  (IR+2) = REQUEST.
Line S04459 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06160  M03S04459.ns2765  ---|*                (IR+3) = OFFSET INTO KEYBOARD BUFFER.
Line S04460 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06161  M03S04460.ns2765  ---|*                (IR+4) = 1/0, 2/, 9/EQ
Line S04461 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06162  M03S04461.ns2765  ---|*                         EQ = EST ORDINAL (FOR INTERNAL
Line S04462 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06163  M03S04462.ns2765  ---|*                              UP/DOWN REQUEST ONLY).
Line S00005 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06164  M02S00005.ns2765  ---|*         ENTRY  (IR+3) = OFFSET INTO KEYBOARD BUFFER.
Line S04463 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06165  M02S04463.ns2765  ---|
Line S04464 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06166  M02S04464.ns2765  ---|
Line S04465 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06167  M03S04465.ns2765  ---| EUF4     LDN    ZERL        ISSUE TAPE EQUIPMENT STATE CHANGE EVENT
Line S04466 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06168  M03S04466.ns2765  ---|          CRD    CM
Line S04467 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06169  M03S04467.ns2765  ---|          LDN    /EVENT/ESCE
Line S04468 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06170  M03S04468.ns2765  ---|          STD    CM+4
Line S04469 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06171  M03S04469.ns2765  ---|          MONITOR  EATM
Line S04470 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06172  M03S04470.ns2765  ---|          LDD    AB          CHECK FOR VSN ENTERED
Line S04471 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06173  M03S04471.ns2765  ---|          LMN    /MTX/XEV
Line S04472 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06174  M03S04472.ns2765  ---|          ZJN    EUF5        IF VSN ENTERED
Line S04473 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06175  M03S04473.ns2765  ---|          LMN    /MTX/XSV&/MTX/XEV
Line S04474 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06176  M03S04474.ns2765  ---|          NJN    EUFX        IF NOT ENTERING SCRATCH VSN
Line S04475 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06177  M03S04475.ns2765  ---|          LDC    2R  +2R  +2R    EVENT FOR SCRATCH VSN
Line S04476 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06178  M03S04476.ns2765  ---|          UJN    EUF6        ENTER SCRATCH VSN EVENT
Line S04477 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06179  M03S04477.ns2765  ---|
Line S04478 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06180  M03S04478.ns2765  ---| EUF5     LDD    AB+2
Line S04479 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06181  M03S04479.ns2765  ---|          ZJN    EUFX        IF CLEARING VSN
Line S04480 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06182  M03S04480.ns2765  ---|          ADD    AB+3        GENERATE EVENT FROM VSN
Line S04481 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06183  M03S04481.ns2765  ---|          ADD    AB+4
Line S04482 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06184  M03S04482.ns2765  ---| EUF6     STD    CM+4
Line S04483 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06185  M03S04483.ns2765  ---|          LDN    0           ENTER EVENT INTO EVENT TABLE
Line S04484 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06186  M03S04484.ns2765  ---|          STD    CM+1
Line S04485 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06187  M03S04485.ns2765  ---|          LDN    /EVENT/VSNE/10000
Line S04486 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06188  M03S04486.ns2765  ---|          STD    CM+3
Line S04487 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06189  M03S04487.ns2765  ---|          MONITOR  EATM
Line S04488 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06190  M03S04488.ns2765  ---|
Line S04489 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06191  M02S04489.ns2765  ---| EUF      ENTRY              ENTRY/EXIT
Line S04490 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06192  M03S04490.ns2765  ---|          LDD    IR+2        GET FUNCTION
Line S04491 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06193  M03S04491.ns2765  ---|          LMK    /1DS/EUFF
Line S04492 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06194  M03S04492.ns2765  ---|          ZJN    EUF2        IF NOT CALLED FROM *DWNF* PROCESSOR
Line S04493 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06195  M03S04493.ns2765  ---|          LDD    IR+4        CHECK FOR *UP/DOWN,CHXX,EQYYY.* REQUEST
Line S04494 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06196  M03S04494.ns2765  ---|          ZJN    EUF3        IF EST ORDINAL NOT SUPPLIED
Line S04495 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06197  M03S04495.ns2765  ---|          SFA    EST         READ WORD *EQDE* OF EST ENTRY
Line S04496 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06198  M03S04496.ns2765  ---|          ADK    EQDE
Line S00006 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06199  M02S00006.ns2765  ---|          LDK    /1DS/DSDL+/1DS/KBCML
Line S04497 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06200  M02S04497.ns2765  ---|          CRD    AB
Line S04498 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06201  M03S04498.ns2765  ---|          LDD    AB
Line S04499 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06202  M03S04499.ns2765  ---|          LPN    3           CHECK DEVICE STATE
Line S04500 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06203  M03S04500.ns2765  ---|          LMN    3
Line S04501 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06204  M03S04501.ns2765  ---|          NJN    EUF3        IF DEVICE NOT DOWN
Line S04502 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06205  M03S04502.ns2765  ---| EUF1     UJN    EUFX        RETURN
Line S04503 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06206  M03S04503.ns2765  ---|
Line S04504 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06207  M03S04504.ns2765  ---| EUF2     LDK    /1DS/DSDL+/1DS/KBCML  GET SPECIAL PARAMETER
Line S04505 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06208  M03S04505.ns2765  ---|          CRD    AB
Line S04506 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06209  M03S04506.ns2765  ---|          LDD    MA          WRITE VSN ASSIGNMENT DATA
Line S00007 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06210  M02S00007.ns2765  ---|          LDD    MA          SET REQUEST
Line S04507 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06211  M02S04507.ns2765  ---|          CWD    AB
Line S04508 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06212  M03S04508.ns2765  ---| EUF3     LDN    1           SET WRITE FLAG
Line S00008 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06213  M02S00008.ns2765  ---|          LDC    250D        SET 1 SECOND RETRY LIMIT
Line S00009 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06214  M02S00009.ns2765  ---|          STD    T1
Line S00010 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06215  M02S00010.ns2765  ---| EUF1     LDN    1           SET WRITE FLAG
Line S04509 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06216  M02S04509.ns2765  ---|          STD    CM+1
Line S04510 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06217  M02S04510.ns2765  ---|          LCN    7777-MTSI   *MAGNET* SUBSYSTEM ID
Line S04511 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06218  M02S04511.ns2765  ---|          STD    CM+2
Line S04512 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06219  M02S04512.ns2765  ---|          LDD    HN          SET WORD COUNT
Line S04513 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06220  M02S04513.ns2765  ---|          STD    CM+3
Line S04514 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06221  M02S04514.ns2765  ---|          LDN    /MTX/XREQ
Line S04515 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06222  M02S04515.ns2765  ---|          STD    CM+4
Line S04516 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06223  M02S04516.ns2765  ---|          MONITOR  TDAM
Line S04517 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06224  M02S04517.ns2765  ---|          LDD    CM+1
Line S04518 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06225  M03S04518.ns2765  ---|          ZJP    EUF4        IF FUNCTION WAS COMPLETED
Line S00011 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06226  M02S00011.ns2765  ---|          ZJN    EUFX        IF TRANSFER COMPLETE
Line S04519 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06227  M02S04519.ns2765  ---|          SBN    4
Line S04520 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06228  M03S04520.ns2765  ---|          ZJN    EUF1        IF *MAGNET* NOT ACTIVE
Line S00012 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06229  M02S00012.ns2765  ---|          ZJN    EUFX        IF *MAGNET* NOT ACTIVE
Line S00013 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06230  M02S00013.ns2765  ---|          SOD    T1
Line S00014 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06231  M02S00014.ns2765  ---|          ZJN    EUFX        IF MAXIMUM RETRIES
Line S04521 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06232  M02S04521.ns2765  ---|          PAUSE  ST
Line S04522 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06233  M03S04522.ns2765  ---|          DELAY
Line S04523 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
M03 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06234  M03S04523.ns2765  ---|          UJN    EUF3        RETURN
Line S00015 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06235  M02S00015.ns2765  ---|          DELAY  40          DELAY 4 MILLISECONDS
Line S00016 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
06236  M02S00016.ns2765  ---|          UJN    EUF1        RETRY FUNCTION
06237  M01S04524.1ds     +++| CDS      SPACE  4,20
06238  M01S04525.1ds     +++|**        CDS - CHECK BUFFERED I/O DRIVER STATUS.
06239  M01S04526.1ds     +++|*
06240  M01S04527.1ds     +++|*         IF CHANNEL UP FUNCTION
06241  M01S04528.1ds     +++|*           AND BUFFERED I/O DRIVER IS NOT UP
06242  M01S04529.1ds     +++|*         THEN
06243  M01S04530.1ds     +++|*           CLEAR DRIVER DROPPED FLAG IN CHANNEL CONTROLWARE TABLE.
06244  M01S04531.1ds     +++|*           ISSUE *RPPM* FUNCTION TO START APPROPRIATE DRIVER.
06245  M01S04532.1ds     +++|*
06246  M01S04533.1ds     +++|*         ENTRY  (CH) = CHANNEL NUMBER.
06247  M01S04534.1ds     +++|*                (FT) = FUNCTION TYPE (1 IF *UP*, 0 IF *DOWN*).
06248  M01S04535.1ds     +++|*                (MX) = MUX CHANNEL FLAG.
06249  M01S00001.1ds27   +++|*                (CB) = CONTROLWARE TABLE BYTE ADDRESS.
06250  M01S00002.1ds27   +++|*                (TA - TA+1) = CONTROLWARE TABLE WORD ADDRESS.
06251  M01S04536.1ds     +++|*
06252  M01S04537.1ds     +++|*         USES   CM - CM+4, FS - FS+4.
06253  M01S04538.1ds     +++|*
06254  M01S04539.1ds     +++|*         MACROS DELAY, MONITOR.
06255  M01S04540.1ds     +++|
06256  M01S04541.1ds     +++|
06257  M01S04542.1ds     +++| CDS5     LDD    CP          ISSUE WAIT MESSAGE
06258  M01S04543.1ds     +++|          ADK    MS2W
06259  M01S04544.1ds     +++|          CWM    CMVB,TR
06260  M01S04545.1ds     +++|          DELAY  10D*8D
06261  M01S04546.1ds     +++| CDS6     LDD    MA
06262  M01S04547.1ds     +++|          CWD    FS          STORE INPUT REGISTER FOR PP REQUEST
06263  M01S04548.1ds     +++|          LDN    1
06264  M01S04549.1ds     +++|          STD    CM+1        SELECT NO QUEUEING OF PP REQUEST
06265  M01S04550.1ds     +++|          LDD    FS+4
06266  M01S04551.1ds     +++|          LPN    40
06267  M01S04552.1ds     +++|          NJN    CDS7        IF CONCURRENT CHANNEL
06268  M01S04553.1ds     +++|          MONITOR  RPPM
06269  M01S04554.1ds     +++|          UJN    CDS8        CHECK MONITOR RESPONSE
06270  M01S04555.1ds     +++|
06271  M01S04556.1ds     +++| CDS7     SBD    FS+4        ISOLATE CHANNEL
06272  M01S04557.1ds     +++|          ADN    4
06273  M01S04558.1ds     +++|          SHN    0-21
06274  M01S04559.1ds     +++|          ADN    2           DETERMINE BARREL SUBFUNCTION
06275  M01S04560.1ds     +++|          STD    CM+4
06276  M01S04561.1ds     +++|          MONITOR  CPRM      REQUEST CONCURRENT PP
06277  M01S04562.1ds     +++| CDS8     LDD    CM+1
06278  M01S04563.1ds     +++|          ZJP    CDS5        IF PP NOT ASSIGNED
06279  M01S04564.1ds     +++|          LDD    CP          CLEAR WAIT MESSAGE
06280  M01S04565.1ds     +++|          ADK    MS2W
06281  M01S04566.1ds     +++|          CWD    CM
06282  M01S04567.1ds     +++|
06283  M01S04568.1ds     +++| CDS      SUBR               ENTRY/EXIT
06284  M01S04569.1ds     +++|          LDD    FT
Line S04570 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds27
Seq #  *Modification Id* Act 
----------------------------+
06285  M02S04570.1ds27   ---| CDS1     ZJN    CDSX        IF *DOWN* REQUEST
06286  M01S00003.1ds27   +++|          ZJN    CDSX        IF *DOWN* REQUEST
06287  M01S04571.1ds     +++|          LDD    MX
06288  M01S04572.1ds     +++|          NJN    CDSX        IF MUX CHANNEL
06289  M01S04573.1ds     +++|          RJM    RCE         READ CONTROLWARE TABLE
06290  M01S04574.1ds     +++|          SHN    21-11
Line S04575 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds27
Seq #  *Modification Id* Act 
----------------------------+
06291  M02S04575.1ds27   ---|          PJN    CDSX        IF DRIVER IS UP
06292  M01S00004.1ds27   +++| CDS1     PJN    CDSX        IF DRIVER IS UP
06293  M01S00005.1ds27   +++| CDS1.1   DELAY
06294  M01S00006.1ds27   +++|          LDD    TA
06295  M01S00007.1ds27   +++|          SHN    14
06296  M01S00008.1ds27   +++|          LMD    TA+1
06297  M01S00009.1ds27   +++|          SBK    CTALL*2
06298  M01S00010.1ds27   +++|          CRD    CM
06299  M01S00011.1ds27   +++|          LDI    CB
06300  M01S00012.1ds27   +++|          SHN    21-5
06301  M01S00013.1ds27   +++|          MJN    CDS1.1      IF *MTR* HASN-T YET UPDATED CHANNEL TABLE
06302  M01S04576.1ds     +++|          LDN    2           SET NUMBER OF REQUESTS
06303  M01S04577.1ds     +++|          STD    CM+1
06304  M01S04578.1ds     +++|          LDD    TA+1
06305  M01S04579.1ds     +++|          STD    CM+4
06306  M01S04580.1ds     +++|          LDD    TA
06307  M01S04581.1ds     +++|          STD    CM+3
06308  M01S04582.1ds     +++|          LDD    MA          SET *UTEM* REQUEST IN MESSAGE BUFFER
06309  M01S04583.1ds     +++|          CWM    CDSD,CM+1
06310  M01S04584.1ds     +++|          MONITOR  UTEM
06311  M01S04585.1ds     +++|          LDD    CM+1
Line S04586 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds27
Seq #  *Modification Id* Act 
----------------------------+
06312  M02S04586.1ds27   ---|          NJN    CDSX        IF BUFFERED DRIVER FLAG NOT CLEARED
06313  M01S00014.1ds27   +++|          NJN    CDS1        IF BUFFER DRIVER FLAG NOT CLEARED
06314  M01S04587.1ds     +++|          LDC    BIOL        READ BUFFERED I/O TABLES POINTER
06315  M01S04588.1ds     +++|          CRD    CM
06316  M01S04589.1ds     +++|          LDD    CM+1        CHECK BUFFERED I/O PRESENT
06317  M01S04590.1ds     +++|          SHN    14
06318  M01S04591.1ds     +++|          ADD    CM+2
Line S04592 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds27
Seq #  *Modification Id* Act 
----------------------------+
06319  M02S04592.1ds27   ---| CDS2     ZJN    CDS1        IF NO BUFFERED DEVICES PRESENT
06320  M01S00015.1ds27   +++| CDS2     ZJP    CDSX        IF NO BUFFERED DEVICES PRESENT
06321  M01S04593.1ds     +++|          ADN    CCTP
06322  M01S04594.1ds     +++|          CRD    CM          CHANNEL TABLE POINTER WORD
06323  M01S04595.1ds     +++|          LDN    CUN1
06324  M01S04596.1ds     +++|          UJN    CDS4        SCAN CHANNEL CONTROL TABLE
06325  M01S04597.1ds     +++|
06326  M01S04598.1ds     +++| CDS3     SOD    CM
06327  M01S04599.1ds     +++|          ZJN    CDS2        IF NO MORE CHANNELS
06328  M01S04600.1ds     +++|          LDN    CCTL
06329  M01S04601.1ds     +++| CDS4     RAD    CM+4        ADVANCE CCT POINTER
06330  M01S04602.1ds     +++|          SHN    -14
06331  M01S04603.1ds     +++|          RAD    CM+3
06332  M01S04604.1ds     +++|          SHN    14          READ PP DRIVER INPUT REGISTER
06333  M01S04605.1ds     +++|          ADD    CM+4
06334  M01S04606.1ds     +++|          CRD    FS
06335  M01S04607.1ds     +++|          LDD    FS
06336  M01S04608.1ds     +++|          ZJN    CDS3        IF 819 ENTRY
06337  M01S04609.1ds     +++|          LDD    FS+4
06338  M01S04610.1ds     +++|          LMD    CH
06339  M01S04611.1ds     +++|          NJN    CDS3        IF NOT SELECTED CHANNEL
06340  M01S04612.1ds     +++|          LJM    CDS6        LOAD DRIVER
06341  M01S04613.1ds     +++|
06342  M01S04614.1ds     +++|
06343  M01S04615.1ds     +++| CDSD     VFD    1/1,5/,6/1,6/,42/1  VERIFY BUFFERED I/O DRIVER FLAG
06344  M01S04616.1ds     +++| CDSE     VFD    1/0,5/,6/1,6/,42/0  UPDATE BUFFERED I/O DRIVER FLAG
Line S04617 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06345  M02S04617.282l826 ---| CMG      SPACE  4,10
Line S04618 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06346  M02S04618.282l826 ---|**        CMG - CALL *MAGNET*.
Line S04619 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06347  M02S04619.282l826 ---|*
Line S04620 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06348  M02S04620.282l826 ---|*         ENTRY  (CH) = CHANNEL NUMBER.
Line S04621 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06349  M02S04621.282l826 ---|*                (CMGB) = 0 IF *MAGNET* NOT YET CALLED.
Line S04622 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06350  M02S04622.282l826 ---|*                (FT) = FUNCTION TYPE (1 IF *UP*, 0 IF *DOWN*).
Line S04623 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06351  M02S04623.282l826 ---|*                (IR+3) = *MAGNET* CONTROL POINT NUMBER (IF ACTIVE).
Line S04624 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06352  M02S04624.282l826 ---|*
Line S04625 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06353  M02S04625.282l826 ---|*         USES   AB - AB+4, CM - CM+4.
Line S04626 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06354  M02S04626.282l826 ---|
Line S04627 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06355  M02S04627.282l826 ---|
Line S04628 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06356  M02S04628.282l826 ---| CMG      SUBR               ENTRY/EXIT
Line S04629 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06357  M02S04629.282l826 ---|          LDM    CMGB
Line S04630 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06358  M02S04630.282l826 ---|          NJN    CMGX        IF *MAGNET* ALREADY CALLED
Line S04631 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06359  M02S04631.282l826 ---|          LDD    IR+3        GET *MAGNET* CONTROL POINT
Line S04632 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06360  M02S04632.282l826 ---|          SHN    -7
Line S04633 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06361  M02S04633.282l826 ---|          ZJN    CMGX        IF *MAGNET* INACTIVE
Line S04634 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06362  M02S04634.282l826 ---|          SHN    7
Line S04635 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06363  M02S04635.282l826 ---|          ADN    FLSW
Line S04636 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06364  M02S04636.282l826 ---|*         ADN    FLSW+1      (CME PRESENT)
Line S04637 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06365  M02S04637.282l826 ---| CMGA     EQU    *-1
Line S04638 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06366  M02S04638.282l826 ---|          CRD    AB
Line S04639 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06367  M02S04639.282l826 ---|          LRD    AB+1
Line S04640 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06368  M02S04640.282l826 ---|          LDD    AB+3
Line S04641 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06369  M02S04641.282l826 ---|          SHN    6
Line S04642 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06370  M02S04642.282l826 ---|          ADK    /MTX/UITW-2  ADDRESS OF CHANNEL CONTROL WORDS
Line S04643 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06371  M02S04643.282l826 ---|          STD    AB+1
Line S04644 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06372  M02S04644.282l826 ---|          SHN    -14
Line S04645 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06373  M02S04645.282l826 ---|          STD    AB
Line S04646 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06374  M02S04646.282l826 ---| CMG2     LDN    2           READ NEXT ENTRY
Line S04647 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06375  M02S04647.282l826 ---|          RAD    AB+1
Line S04648 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06376  M02S04648.282l826 ---|          SHN    -14
Line S04649 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06377  M02S04649.282l826 ---|          RAD    AB
Line S04650 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06378  M02S04650.282l826 ---|          SHN    14
Line S04651 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06379  M02S04651.282l826 ---|          LMD    AB+1
Line S04652 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06380  M02S04652.282l826 ---|          CRD    CM
Line S04653 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06381  M02S04653.282l826 ---|          LDD    CM
Line S04654 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06382  M02S04654.282l826 ---|          SHN    6
Line S04655 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06383  M02S04655.282l826 ---|          MJN    CMGX        IF END OF TABLE
Line S04656 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06384  M02S04656.282l826 ---|          LDD    CM+2
Line S04657 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06385  M02S04657.282l826 ---|          LPN    37
Line S04658 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06386  M02S04658.282l826 ---|          LMD    CH
Line S04659 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06387  M02S04659.282l826 ---|          NJN    CMG2        IF NO MATCH
Line S04660 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06388  M02S04660.282l826 ---|          LDD    AB          FORM TABLE ADDRESS
Line S04661 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06389  M02S04661.282l826 ---|          SHN    14
Line S04662 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06390  M02S04662.282l826 ---|          LMD    AB+1
Line S04663 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06391  M02S04663.282l826 ---|          SHN    14
Line S04664 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06392  M02S04664.282l826 ---|          SBD    AB+3
Line S04665 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06393  M02S04665.282l826 ---|          SHN    6
Line S04666 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06394  M02S04666.282l826 ---|          STM    CMGB+2
Line S04667 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06395  M02S04667.282l826 ---|          LDK    /MTX/XCF    SET *MAGNET* FUNCTION CODE
Line S04668 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06396  M02S04668.282l826 ---|          STM    CMGB
Line S04669 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06397  M02S04669.282l826 ---|          LDD    FT          SET UP/DOWN FLAG
Line S04670 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06398  M02S04670.282l826 ---|          LMN    1
Line S04671 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06399  M02S04671.282l826 ---|          STM    CMGB+4
Line S04672 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06400  M02S04672.282l826 ---|          UJP    CMGX        RETURN
Line S04673 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06401  M02S04673.282l826 ---|
Line S04674 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06402  M02S04674.282l826 ---|
Line S04675 Modification History
M01 (Added by) 1ds
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06403  M02S04675.282l826 ---| CMGB     BSSZ   5           *TDAM* PARAMETER WORD
06404  M01S04676.1ds     +++| CMV      SPACE  4,10
06405  M01S04677.1ds     +++|**        CMV - CALL *1MV* IF *UP* REQUEST FOR MASS STORAGE CHANNEL.
06406  M01S04678.1ds     +++|*
06407  M01S04679.1ds     +++|*         ENTRY  (FT) = FUNCTION TYPE (1 IF *UP*, 0 IF *DOWN*).
06408  M01S04680.1ds     +++|*                (CN - CN+4) = WORD *EQDE* OF EST ENTRY.
06409  M01S04681.1ds     +++|*
06410  M01S04682.1ds     +++|*         USES   CM+1.
06411  M01S04683.1ds     +++|*
06412  M01S04684.1ds     +++|*         MACROS DELAY, MONITOR, SMSTF.
06413  M01S04685.1ds     +++|
06414  M01S04686.1ds     +++|
06415  M01S04687.1ds     +++| CMV2     LDD    CP          CLEAR WAIT MESSAGE
06416  M01S04688.1ds     +++|          ADK    MS2W
06417  M01S04689.1ds     +++|          CWD    CM
06418  M01S04690.1ds     +++|          SMSTF  L1MV        SET *1MV* ACTIVE
06419  M01S04691.1ds     +++|
06420  M01S04692.1ds     +++| CMV      SUBR               ENTRY/EXIT
06421  M01S04693.1ds     +++|          LDD    CN
06422  M01S04694.1ds     +++|          SHN    21-13
06423  M01S04695.1ds     +++|          PJN    CMVX        IF NOT MASS STORAGE
06424  M01S04696.1ds     +++|          LDD    FT
06425  M01S04697.1ds     +++|          ZJN    CMVX        IF *DOWN* REQUEST
06426  M01S04698.1ds     +++| CMV1     DELAY  100D*8D     DELAY BETWEEN *1MV* CALLS
06427  M01S04699.1ds     +++|          LDD    MA          PLACE REQUEST IN MESSAGE BUFFER
06428  M01S04700.1ds     +++|          CWM    CMVA,ON
06429  M01S04701.1ds     +++|          LDN    0
06430  M01S04702.1ds     +++|          STD    CM+1
06431  M01S04703.1ds     +++|          MONITOR  RPPM      CALL *1MV*
06432  M01S04704.1ds     +++|          LDD    CM+1
06433  M01S04705.1ds     +++|          NJP    CMV2        IF PP ASSIGNED OR IN REQUEST QUEUE
06434  M01S04706.1ds     +++|          LDD    CP          ISSUE WAIT MESSAGE
06435  M01S04707.1ds     +++|          ADK    MS2W
06436  M01S04708.1ds     +++|          CWM    CMVB,TR
06437  M01S04709.1ds     +++|          UJN    CMV1        RETRY *1MV* CALL
06438  M01S04710.1ds     +++|
06439  M01S04711.1ds     +++|
06440  M01S04712.1ds     +++| CMVA     VFD    18/3R1MV,6/0,12/0,6/UCFC,6/0,12/0
06441  M01S04713.1ds     +++| CMVB     DATA   C*WAITING FOR PP.*
06442  M01S04714.1ds     +++| CRC      SPACE  4,10
06443  M01S04715.1ds     +++|**        CRC - CLEAR RELOAD COUNT IN CONTROLWARE TABLE.
06444  M01S04716.1ds     +++|*
06445  M01S04717.1ds     +++|*
06446  M01S04718.1ds     +++|*         USES   CM+1 - CM+4.
06447  M01S04719.1ds     +++|*
06448  M01S04720.1ds     +++|*         MACROS MONITOR.
06449  M01S04721.1ds     +++|
06450  M01S04722.1ds     +++|
06451  M01S04723.1ds     +++| CRC      SUBR               ENTRY/EXIT
06452  M01S04724.1ds     +++|          LDN    1           NUMBER OF PARAMETER WORDS
06453  M01S04725.1ds     +++|          STD    CM+1
06454  M01S04726.1ds     +++|          LDD    TA+1
06455  M01S04727.1ds     +++|          STD    CM+4
06456  M01S04728.1ds     +++|          LDD    TA
06457  M01S04729.1ds     +++|          STD    CM+3
06458  M01S04730.1ds     +++|          LDD    MA          STORE *UTEM* PARAMETERS
06459  M01S04731.1ds     +++|          CWM    CRCB,ON
06460  M01S04732.1ds     +++|          MONITOR  UTEM
06461  M01S04733.1ds     +++|          UJN    CRCX        RETURN
06462  M01S04734.1ds     +++|
06463  M01S04735.1ds     +++|
06464  M01S04736.1ds     +++| CRCB     VFD    1/0,5/0,6/3,6/,42/0  *UTEM* REQUEST
06465  M01S04737.1ds     +++| DCH      SPACE  4,15
06466  M01S04738.1ds     +++|**        DCH - DROP CHANNEL.
06467  M01S04739.1ds     +++|*
06468  M01S04740.1ds     +++|*         THIS SUBROUTINE DROPS THE CHANNEL IF IT IS PRESENTLY ASSIGNED
06469  M01S04741.1ds     +++|*         TO THIS PP.
06470  M01S04742.1ds     +++|*
06471  M01S04743.1ds     +++|*         ENTRY  (CH) = CHANNEL NUMBER.
06472  M01S04744.1ds     +++|*                (CS) = 1 IF CHANNEL ASSIGNED.
06473  M01S04745.1ds     +++|*
06474  M01S04746.1ds     +++|*         EXIT   (CS) = 0.
06475  M01S04747.1ds     +++|*
06476  M01S04748.1ds     +++|*         USES   CM+1, CS.
06477  M01S04749.1ds     +++|*
06478  M01S04750.1ds     +++|*         MACROS MONITOR.
06479  M01S04751.1ds     +++|
06480  M01S04752.1ds     +++|
06481  M01S04753.1ds     +++| DCH      SUBR               ENTRY/EXIT
06482  M01S04754.1ds     +++|          LDD    CS
06483  M01S04755.1ds     +++|          ZJN    DCHX        IF CHANNEL NOT ASSIGNED
06484  M01S04756.1ds     +++|          LDD    CH          DROP THE CHANNEL
06485  M01S04757.1ds     +++|          STD    CM+1
06486  M01S04758.1ds     +++|          MONITOR  DCHM
06487  M01S04759.1ds     +++|*         LDN    0           CLEAR CHANNEL STATUS
06488  M01S04760.1ds     +++|          STD    CS
06489  M01S04761.1ds     +++|          UJN    DCHX        RETURN
06490  M01S04762.1ds     +++| DDP      SPACE  4,30
06491  M01S04763.1ds     +++|**        DDP - DETERMINE IF DEVICE SHOULD BE PROCESSED.
06492  M01S04764.1ds     +++|*
06493  M01S04765.1ds     +++|*         THIS SUBROUTINE DETERMINES IF A DEVICE IS ACCESSED BY A
06494  M01S04766.1ds     +++|*         PARTICULAR CHANNEL AND IF THE STATE OF THE CHANNEL ON THE
06495  M01S04767.1ds     +++|*         DEVICE IS SUCH THAT THE DEVICE SHOULD BE PROCESSED.  ONLY
Line S04768 Modification History
M01 (Added by) 1ds
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06496  M02S04768.274l797 ---|*         MASS STORAGE, TAPE AND *LX*/*LY* DEVICE TYPES WILL BE
Line S04769 Modification History
M01 (Added by) 1ds
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06497  M02S04769.274l797 ---|*         CONSIDERED FOR PROCESSING.
06498  M01S00050.274l797 +++|*         MASS STORAGE, TAPE, *NIP*, AND OPTICAL DISK DEVICE TYPES
06499  M01S00051.274l797 +++|*         WILL BE CONSIDERED FOR PROCESSING.
06500  M01S04770.1ds     +++|*
06501  M01S04771.1ds     +++|*         ENTRY  (CH) = CHANNEL NUMBER.
06502  M01S04772.1ds     +++|*                (FT) = FUNCTION TYPE (1 IF *UP*, 0 IF *DOWN*).
06503  M01S04773.1ds     +++|*                (MX) = 100 IF MUX CHANNEL.
06504  M01S04774.1ds     +++|*                (CN - CN+4) = *EQDE* WORD OF EST ENTRY.
06505  M01S04775.1ds     +++|*
06506  M01S04776.1ds     +++|*         EXIT   (A) .GE. 0 IF THE DEVICE SHOULD BE PROCESSED.
06507  M01S04777.1ds     +++|*                    .LT. 0 IF AT LEAST ONE OF THE FOLLOWING CONDITIONS
06508  M01S04778.1ds     +++|*                              IS TRUE -
06509  M01S04779.1ds     +++|*                               A. THE DEVICE IS OF A TYPE NOT SUITABLE
06510  M01S04780.1ds     +++|*                                  FOR PROCESSING.
06511  M01S04781.1ds     +++|*                               B. THE CHANNEL DOES NOT ACCESS THE
06512  M01S04782.1ds     +++|*                                  DEVICE.
06513  M01S04783.1ds     +++|*                               C. THE CONCURRENCY OF THE CHANNEL DOES
06514  M01S04784.1ds     +++|*                                  NOT MATCH THAT OF THE CHANNELS
06515  M01S04785.1ds     +++|*                                  ACCESSING THE DEVICE.
06516  M01S04786.1ds     +++|*                               D. THE CHANNEL IS A MUX CHANNEL BUT THE
06517  M01S04787.1ds     +++|*                                  DEVICE TYPE IS *LDAM*.
06518  M01S04788.1ds     +++|*                               E. THE *UP*/*DOWN* STATUS OF THE
06519  M01S04789.1ds     +++|*                                  CHANNEL ON THE DEVICE MISMATCHES THE
06520  M01S04790.1ds     +++|*                                  *1DS* FUNCTION TYPE.
Line S04791 Modification History
M01 (Added by) 1ds
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06521  M02S04791.274l797 ---|*                (TI) = TABLE INDEX IF TAPE OR *NIP* DEVICE.
06522  M01S00052.274l797 +++|*                (TI) = TABLE INDEX IF TAPE, *NIP* OR OPTICAL DISK.
06523  M01S04792.1ds     +++|*
06524  M01S04793.1ds     +++|*         USES   TI, T1.
06525  M01S04794.1ds     +++|
06526  M01S04795.1ds     +++|
06527  M01S04796.1ds     +++| DDP      SUBR               ENTRY/EXIT
06528  M01S04797.1ds     +++|          LDD    CN          VALIDATE DEVICE TYPE
06529  M01S04798.1ds     +++|          SHN    21-13
06530  M01S04799.1ds     +++|          MJN    DDP2        IF MASS STORAGE
06531  M01S04800.1ds     +++|          LDN    TDVTL       SET DEVICE TYPE TABLE LENGTH
06532  M01S04801.1ds     +++|          STD    TI
06533  M01S04802.1ds     +++| DDP1     SOD    TI          DECREMENT TABLE INDEX
06534  M01S04803.1ds     +++|          MJN    DDPX        IF DEVICE TYPE NOT FOUND
06535  M01S04804.1ds     +++|          LDM    TDVT,TI
06536  M01S04805.1ds     +++|          LMD    CN+3
06537  M01S04806.1ds     +++|          NJN    DDP1        IF NOT DEVICE TYPE MATCH
06538  M01S04807.1ds     +++| DDP2     LDN    1
06539  M01S04808.1ds     +++|          STD    T1
06540  M01S04809.1ds     +++| DDP3     LDM    CN+1,T1
06541  M01S04810.1ds     +++|          LMD    CH
06542  M01S04811.1ds     +++|          LPN    77
06543  M01S04812.1ds     +++|          NJN    DDP4        IF WRONG CHANNEL
06544  M01S04813.1ds     +++|          LDM    CN+1,T1
06545  M01S04814.1ds     +++|          SHN    0-11
06546  M01S04815.1ds     +++|          SBN    4
06547  M01S04816.1ds     +++|          MJN    DDP4        IF CHANNEL NOT PRESENT OR DISABLED
06548  M01S04817.1ds     +++|          LMN    1
06549  M01S04818.1ds     +++|          ZJN    DDP6        IF CHANNEL STATE = *IDLE*
06550  M01S04819.1ds     +++|          LMD    FT
06551  M01S04820.1ds     +++|          LPN    1
06552  M01S04821.1ds     +++|          NJN    DDP6        IF RIGHT CHANNEL STATE
06553  M01S04822.1ds     +++| DDP4     SOD    T1
06554  M01S04823.1ds     +++|          PJN    DDP3        IF CHANNEL 1 NOT YET CHECKED
06555  M01S04824.1ds     +++| DDP5     UJP    DDPX        RETURN
06556  M01S04825.1ds     +++|
06557  M01S04826.1ds     +++| DDP6     LDD    MX
06558  M01S04827.1ds     +++|          ZJN    DDP5        IF MUX CHANNEL NOT SPECIFIED
06559  M01S04828.1ds     +++|          LDD    CN
06560  M01S04829.1ds     +++|          SHN    21-13
06561  M01S04830.1ds     +++|          PJN    DDP5        IF NOT MASS STORAGE DEVICE
06562  M01S04831.1ds     +++|          SHN    13-7
06563  M01S04832.1ds     +++|          UJN    DDP5        RETURN WITH (A) .LT. 0 IF *LDAM* DEVICE
06564  M01S04833.1ds     +++|
06565  M01S04834.1ds     +++|
06566  M01S04835.1ds     +++| TDVT     BSS    0           TABLE OF DEVICE TYPES TO BE PROCESSED
Line S04836 Modification History
M01 (Added by) 1ds
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06567  M02S04836.274l797 ---|
06568  M01S00053.274l797 +++|          CON    2ROD
06569  M01S04837.1ds     +++|          CON    2RLX
06570  M01S04838.1ds     +++|          CON    2RLY
Line S04839 Modification History
M01 (Added by) 1ds
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06571  M02S04839.274l797 ---| TDVTA    EQU    *-TDVT
Line S00054 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06572  M02S00054.282l826 ---| TDVTA    EQU    *-TDVT      BEGINNING OF MAGNETIC TAPE DEVICE TYPES
06573  M01S00055.274l797 +++|          CON    2RCT
06574  M01S04840.1ds     +++|          CON    2RMT
06575  M01S04841.1ds     +++|          CON    2RNT
06576  M01S00056.274l797 +++|          CON    2RAT
Line S04842 Modification History
M01 (Added by) 1ds
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06577  M02S04842.274l797 ---|
06578  M01S04843.1ds     +++| TDVTL    EQU    *-TDVT      TABLE LENGTH
06579  M01S04844.1ds     +++| DEQ      SPACE  4,20
06580  M01S04845.1ds     +++|**        DEQ - DOWN EQUIPMENT.
06581  M01S04846.1ds     +++|*
06582  M01S04847.1ds     +++|*         THIS SUBROUTINE REQUESTS *MTR* TO DOWN A MASS STORAGE
06583  M01S04848.1ds     +++|*         DEVICE.  IT ALSO ISSUES BML AND ERRLOG MESSAGES TO
06584  M01S04849.1ds     +++|*         RECORD THE EVENT.
06585  M01S04850.1ds     +++|*
06586  M01S04851.1ds     +++|*         ENTRY  (T5) = EST ORDINAL.
06587  M01S04852.1ds     +++|*
06588  M01S04853.1ds     +++|*         EXIT   (A) .GE. 0 IF EQUIPMENT WAS DOWNED.
06589  M01S04854.1ds     +++|*                    .LT. 0 IF EQUIPMENT CANNOT BE DOWNED.
06590  M01S04855.1ds     +++|*
06591  M01S04856.1ds     +++|*         USES   CM+1, CM+2.
06592  M01S04857.1ds     +++|*
06593  M01S04858.1ds     +++|*         CALLS  IMS.
06594  M01S04859.1ds     +++|*
06595  M01S04860.1ds     +++|*         MACROS MONITOR.
06596  M01S04861.1ds     +++|
06597  M01S04862.1ds     +++| DEQ1     LCN    0           SET REJECT STATUS
06598  M01S04863.1ds     +++|
06599  M01S04864.1ds     +++| DEQ      SUBR               ENTRY/EXIT
06600  M01S04865.1ds     +++|          LDD    T5          STORE EST ORDINAL IN REQUEST
06601  M01S04866.1ds     +++|          STD    CM+1
06602  M01S04867.1ds     +++|          LDK    DWES        STORE SUBFUNCTION IN REQUEST
06603  M01S04868.1ds     +++|          STD    CM+2
06604  M01S04869.1ds     +++|          MONITOR  SEQM
06605  M01S04870.1ds     +++|          LDD    CM+1
06606  M01S04871.1ds     +++|          ZJN    DEQ1        IF FUNCTION REJECTED
06607  M01S04872.1ds     +++|          LDN    MSI1        MESSAGE INDEX
06608  M01S04873.1ds     +++|          RJM    IMS         ISSUE MESSAGES (IF CALLED BY DRIVER)
06609  M01S04874.1ds     +++|          UJN    DEQX        RETURN
06610  M01S04875.1ds     +++| IBM      SPACE  4,15
06611  M01S04876.1ds     +++|**        IBM - ISSUE BML MESSAGE.
06612  M01S04877.1ds     +++|*
06613  M01S04878.1ds     +++|*         ENTRY  (CH) = CHANNEL NUMBER, INCLUDING CONCURRENCY FLAG.
06614  M01S04879.1ds     +++|*                (S1) = MESSAGE INDEX.
06615  M01S04880.1ds     +++|*                (T5) = EST ORDINAL.
06616  M01S04881.1ds     +++|*                (CN - CN+4) = *EQDE* WORD OF EST ENTRY.
06617  M01S04882.1ds     +++|*
06618  M01S04883.1ds     +++|*         EXIT   (A) = 0.
06619  M01S04884.1ds     +++|*
06620  M01S04885.1ds     +++|*         USES   T1, T2, CM - CM+4, FS - FS+4.
06621  M01S04886.1ds     +++|*
06622  M01S04887.1ds     +++|*         CALLS  DFM.
06623  M01S04888.1ds     +++|
06624  M01S04889.1ds     +++|
06625  M01S04890.1ds     +++| IBM      SUBR               ENTRY/EXIT
Line S04891 Modification History
M01 (Added by) 1ds
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06626  M02S04891.272l774 ---|          LDN    0           INITIALIZE *TMID* INDEX
06627  M01S00024.272l774 +++|          LDC    TMID-2      SET TABLE ADDRESS
06628  M01S04892.1ds     +++|          STD    T1
Line S04893 Modification History
M01 (Added by) 1ds
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06629  M02S04893.272l774 ---|          LDD    CN+3        SAVE LAST CHARACTER OF DEVICE TYPE
Line S04894 Modification History
M01 (Added by) 1ds
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06630  M02S04894.272l774 ---|          LPN    77
06631  M01S00025.272l774 +++|          LDD    CN+3        SAVE DEVICE TYPE
06632  M01S04895.1ds     +++|          STD    T2
Line S04896 Modification History
M01 (Added by) 1ds
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06633  M02S04896.272l774 ---|          LMN    1RP
06634  M01S00026.272l774 +++|          LMC    2RDP
06635  M01S04897.1ds     +++|          NJN    IBM1        IF NOT *DP* DEVICE TYPE
06636  M01S00027.272l774 +++|          LDC    TEMID-2     SET TABLE ADDRESS
06637  M01S00028.272l774 +++|          STD    T1
06638  M01S04898.1ds     +++|          LDD    CN+4
06639  M01S04899.1ds     +++|          SHN    3
06640  M01S04900.1ds     +++|          ADK    DILL
06641  M01S04901.1ds     +++|          CRD    CM
06642  M01S04902.1ds     +++|          LDD    CM+3
06643  M01S04903.1ds     +++|          LPC    707
06644  M01S04904.1ds     +++|          STD    T2
Line S04905 Modification History
M01 (Added by) 1ds
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06645  M02S04905.272l774 ---| IBM1     LDN    2           ADVANCE *TMID* INDEX
06646  M01S00029.272l774 +++| IBM1     LDN    2           CHECK NEXT TABLE ENTRY
06647  M01S04906.1ds     +++|          RAD    T1
Line S04907 Modification History
M01 (Added by) 1ds
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06648  M02S04907.272l774 ---|          LDM    TMID-2,T1
06649  M01S00030.272l774 +++|          LDI    T1
06650  M01S04908.1ds     +++|          ZJN    IBM2        IF DEVICE TYPE NOT FOUND IN TABLE
06651  M01S04909.1ds     +++|          LMD    T2
06652  M01S04910.1ds     +++|          NJN    IBM1        IF NOT A MATCH
Line S04911 Modification History
M01 (Added by) 1ds
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06653  M02S04911.272l774 ---|          LDM    TMID-1,T1   MESSAGE ID
06654  M01S00031.272l774 +++|          LDM    1,T1        MESSAGE ID
06655  M01S04912.1ds     +++| IBM2     STM    BMLID
06656  M01S04913.1ds     +++|          LDM    IBMA,S1     SYMPTOM CODE
06657  M01S04914.1ds     +++|          STM    BMLSC
06658  M01S04915.1ds     +++|          LDD    CH          CHANNEL NUMBER
06659  M01S04916.1ds     +++|          STM    BMLPP
06660  M01S04917.1ds     +++|          LDK    PPCP        READ PP COMMUNICATIONS AREA POINTER
06661  M01S04918.1ds     +++|          CRD    CM
06662  M01S04919.1ds     +++|          ADK    MMFL-PPCP
06663  M01S04920.1ds     +++|          CRD    FS
06664  M01S04921.1ds     +++|          LDD    FS          MAINFRAME ID
06665  M01S04922.1ds     +++|          STM    BMLMF
06666  M01S04923.1ds     +++|          LDD    IA          COMPUTE PP NUMBER
06667  M01S04924.1ds     +++|          SBD    CM+4
06668  M01S04925.1ds     +++|          SHN    6-3
06669  M01S04926.1ds     +++|          RAM    BMLPP
Line S04927 Modification History
M01 (Added by) 1ds
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06670  M02S04927.272l774 ---|          LDD    CN+4        GET UNIT NUMBER
06671  M01S00032.272l774 +++|          LDD    CN+4        READ EQUIPMENT AND UNIT NUMBERS
06672  M01S04928.1ds     +++|          SHN    3
06673  M01S04929.1ds     +++|          ADK    DDLL
06674  M01S04930.1ds     +++|          CRD    CM
Line S04931 Modification History
M01 (Added by) 1ds
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06675  M02S04931.272l774 ---|          LDD    CM+4
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/1ds.004.txt ยท Last modified: by 127.0.0.1