User Tools

Site Tools


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

Deck DSD Part 020

169 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00812 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21925  M02S00812.ns2684  ---|          INDEX  EXJS,ECP10
Line S00813 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21926  M02S00813.ns2684  ---|          INDEX  ROJS,ECP11
Line S00814 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21927  M02S00814.ns2684  ---|          INDEX  TOJS,ECP11
Line S00815 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21928  M02S00815.ns2684  ---|          INDEX  IOJS,ECP11
Line S00816 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21929  M02S00816.ns2684  ---|          INDEX  PCJS,ECP11
Line S00817 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21930  M02S00817.ns2684  ---|          INDEX  MXJS
21931  M01S00028.ns2684  +++|          LDD    AB
21932  M01S00029.ns2684  +++|          ZJP    KBR         IF NO ERROR
21933  M01S00030.ns2684  +++|          LDM    ECPA-1,AB
21934  M01S00031.ns2684  +++|          JMP    KMS         DISPLAY ERROR MESSAGE
21935  M01S00032.ns2684  +++|
21936  M01S00033.ns2684  +++|
21937  M01S00034.ns2684  +++| ECPA     CON    =C*EJT ENTRY BUSY.*
21938  M01S00035.ns2684  +++|          CON    =C*CANNOT ACCESS ROLLOUT DEVICE.*
21939  M01S00036.ns2684  +++|          CON    KILE        *INCORRECT ENTRY.*
21940  M01S00818.271l716 +++|          SPACE  4,10
21941  M01S00819.271l716 +++|          USE    END         DUMP LITERALS BLOCK
21942  M01S00713.274l797 +++|          SPACE  4,10
21943  M01S00714.274l797 +++|          CMDEND
Line S13326 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21944  M02S13326.271l716 ---|          COMMAND  (EJT REQUESTS.)
21945  M01S00820.271l716 +++|          COMMAND  (EJT REQUESTS - PART 2.)
21946  M01S13327.dsd     +++| CSP      SPACE  4,10
21947  M01S13328.dsd     +++|***       RERUN,JSN.
21948  M01S13329.dsd     +++|*
21949  M01S13330.dsd     +++|*         RERUN JOB WHICH HAS THE SPECIFIED JSN.  JOB CAN BE A
21950  M01S13331.dsd     +++|*         SUBSYSTEM.
21951  M01S13332.dsd     +++|
21952  M01S13333.dsd     +++|
21953  M01S13334.dsd     +++|          ENTRY  RRJ
Line S13335 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21954  M02S13335.ns2493  ---|          RJM    ASN         ASSEMBLE JSN
Line S13336 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21955  M02S13336.ns2493  ---|          LDD    AB+2
Line S13337 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21956  M02S13337.ns2493  ---|          NJN    RRJ1        IF JSN .GT. 4 CHARACTERS
Line S13338 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21957  M02S13338.ns2493  ---|          LDN    AB          GET EJT ENTRY
Line S13339 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21958  M02S13339.ns2493  ---|          RJM    GEE
Line S13340 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21959  M02S13340.ns2493  ---|          ZJN    RRJ2        IF EJT ENTRY FOUND
Line S13341 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21960  M02S13341.ns2493  ---| RRJ1     JMP    KIE         *INCORRECT ENTRY*
Line S13342 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21961  M02S13342.ns2493  ---|
Line S13343 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21962  M02S13343.ns2493  ---| RRJ2     LDD    T3
Line S13344 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21963  M02S13344.ns2493  ---|          ZJN    RRJ1        IF JSN = *SYS*
Line S13345 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21964  M02S13345.ns2493  ---|          SFA    EJT,T3      FIND ABSOLUTE ADDRESS OF EJT ENTRY
21965  M01S00001.ns2493  +++|          RJM    PJS         PROCESS JSN
21966  M01S00002.ns2493  +++|          SFA    EJT         FIND ABSOLUTE ADDRESS OF EJT ENTRY
21967  M01S13346.dsd     +++|          ADN    SCHE        GET NO RERUN BIT
21968  M01S13347.dsd     +++|          CRD    CM
Line S13348 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21969  M02S13348.ns2493  ---|          ADN    SCLE-SCHE   GET ORIGIN TYPE
Line S13349 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21970  M02S13349.ns2493  ---|          CRD    SR
21971  M01S13350.dsd     +++|          LDD    CM+2        GET NO RERUN BIT
21972  M01S13351.dsd     +++|          SHN    21-13
21973  M01S13352.dsd     +++|          MJN    RRJ1        IF NO RERUN SET
Line S13353 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21974  M02S13353.ns2493  ---|          LDD    SR          GET ORIGIN TYPE
Line S13354 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21975  M02S13354.ns2493  ---|          LPN    17
Line S13355 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21976  M02S13355.ns2493  ---|          LMN    TXOT
Line S13356 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21977  M02S13356.ns2493  ---|          ZJN    RRJ1        IF INTERACTIVE JOB
21978  M01S13357.dsd     +++|          LDD    AB          SET JSN
21979  M01S13358.dsd     +++|          STD    CM+3
21980  M01S13359.dsd     +++|          LDD    AB+1
21981  M01S13360.dsd     +++|          STD    CM+4
21982  M01S13361.dsd     +++|          LDD    T3          SET EJTO
21983  M01S13362.dsd     +++|          STD    CM+2
21984  M01S13363.dsd     +++|          LDC    RRET+4000   SET RERUN ERROR
21985  M01S13364.dsd     +++|          STD    CM+1
21986  M01S13365.dsd     +++|          MONITOR  CEFM      SET ERROR FLAG
21987  M01S13366.dsd     +++|          JMP    KBR         RETURN
21988  M01S00003.ns2493  +++|
21989  M01S00004.ns2493  +++| RRJ1     JMP    KIE         *INCORRECT ENTRY*
21990  M01S13367.dsd     +++| RIF      SPACE  4,10
21991  M01S13368.dsd     +++|***       ROLLIN,JSN.
21992  M01S13369.dsd     +++|*         ROLLIN,JSN,L.
21993  M01S13370.dsd     +++|*
21994  M01S13371.dsd     +++|*         ROLLIN JOB *JSN*.  IF *L* IS SPECIFIED, LOCK JOB
21995  M01S13372.dsd     +++|*         AT A CONTROL POINT.  JOB CAN NOT BE A SUBSYSTEM.
21996  M01S13373.dsd     +++|
21997  M01S13374.dsd     +++|
Line S13375 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21998  M02S13375.ns2493  ---| RIF3     JMP    KIE         *INCORRECT ENTRY*
Line S13376 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
21999  M02S13376.ns2493  ---|
22000  M01S13377.dsd     +++|          ENTRY  RIF
Line S13378 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
22001  M02S13378.ns2493  ---|          RJM    ASN         ASSEMBLE JSN
Line S13379 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
22002  M02S13379.ns2493  ---|          LDD    AB+2
Line S13380 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
22003  M02S13380.ns2493  ---|          NJN    RIF3        IF JSN .GT. 4 CHARACTERS
22004  M01S00005.ns2493  +++|          RJM    PJS         PROCESS JSN
22005  M01S13381.dsd     +++|          LDD    AB+1        SAVE JSN FOR *UTEM* CALL
22006  M01S13382.dsd     +++|          STM    URB+4
22007  M01S13383.dsd     +++|          LDD    AB
22008  M01S13384.dsd     +++|          STM    URB+3
Line S13385 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
22009  M02S13385.ns2493  ---|          LDN    AB          GET EJT ENTRY
Line S13386 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
22010  M02S13386.ns2493  ---|          RJM    GEE
Line S13387 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
22011  M02S13387.ns2493  ---| RIF1     NJN    RIF3        IF EJT ENTRY NOT FOUND
Line S13388 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd44
Seq #  *Modification Id* Act 
----------------------------+
22012  M02S13388.dsd44   ---|          SFA    EJT,T3      GET ABSOLUTE ADDRESS OF EJT ENTRY
22013  M01S00001.dsd44   +++|          LDN    2           WORD COUNT FOR *UTEM* REQUEST
22014  M01S00002.dsd44   +++|          STD    CM+1
22015  M01S00003.dsd44   +++|          LDD    CM+4
22016  M01S00004.dsd44   +++|          SHN    -1
Line S00005 Modification History
M01 (Added by) dsd44
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22017  M02S00005.271l716 ---|          LMC    TOJS
22018  M01S00821.271l716 +++|          LMK    TOJS
Line S00006 Modification History
M01 (Added by) dsd44
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22019  M02S00006.253l688 ---|          NJN    RIF1.1      IF NOT *TOJS* STATUS
22020  M01S00909.253l688 +++|          NJN    RIF1        IF NOT *TOJS* STATUS
22021  M01S00007.dsd44   +++|          LDN    5           WORD COUNT FOR *TOJS* STATUS
22022  M01S00008.dsd44   +++|          STD    CM+1
Line S00009 Modification History
M01 (Added by) dsd44
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22023  M02S00009.253l688 ---| RIF1.1   SFA    EJT,T3      GET ABSOLUTE ADDRESS OF EJT ENTRY
Line S00006 Modification History
M01 (Added by) ns2493
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22024  M02S00006.253l688 ---|          ADN    SCLE        GET SERVICE CLASS
22025  M01S00910.253l688 +++| RIF1     SFA    EJT,T3      GET SERVICE CLASS FROM EJT ENTRY
22026  M01S00911.253l688 +++|          ADN    SCLE
22027  M01S00007.ns2493  +++|          CRD    SR
22028  M01S00008.ns2493  +++|          SBN    SCLE
22029  M01S13389.dsd     +++|          STD    CM+4
22030  M01S13390.dsd     +++|          SHN    -14
22031  M01S13391.dsd     +++|          STD    CM+3
22032  M01S00009.ns2493  +++|          LDD    SR
22033  M01S00010.ns2493  +++|          SHN    -6
22034  M01S00011.ns2493  +++|          LMN    SSSC
22035  M01S00012.ns2493  +++|          ZJN    RIF3        IF SUBSYSTEM SERVICE CLASS
Line S13392 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd44
Seq #  *Modification Id* Act 
----------------------------+
22036  M02S13392.dsd44   ---|          LDN    2           SET WORD COUNT
Line S13393 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd44
Seq #  *Modification Id* Act 
----------------------------+
22037  M02S13393.dsd44   ---|          STD    CM+1
22038  M01S13394.dsd     +++|          LDN    0           CLEAR UNUSED BYTE IN *UTEM* REQUEST
22039  M01S13395.dsd     +++|          STD    CM+2
22040  M01S13396.dsd     +++|          LDI    CA
22041  M01S13397.dsd     +++|          LMN    1R.
22042  M01S13398.dsd     +++|          ZJN    RIF2        IF LOCK NOT SPECIFIED
22043  M01S13399.dsd     +++|          LDN    1           SET FORCED ROLLIN
22044  M01S13400.dsd     +++| RIF2     STM    URBA        SAVE FORCED ROLLIN STATUS
22045  M01S13401.dsd     +++|          LDD    MA          WRITE *UTEM* REQUEST WORDS
22046  M01S13402.dsd     +++|          CWM    URB,CM+1
22047  M01S13403.dsd     +++|          MONITOR  UTEM
22048  M01S13404.dsd     +++|          LDD    CM+1
Line S13405 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd44
Seq #  *Modification Id* Act 
----------------------------+
22049  M02S13405.dsd44   ---|          NJN    RIF1        IF VERIFICATION FAILED
Line S00010 Modification History
M01 (Added by) dsd44
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
22050  M02S00010.ns2493  ---|          NJP    KIE         IF VERIFICATION FAILED
22051  M01S00013.ns2493  +++|          NJN    RIF3        IF VERIFICATION FAILED
Line S13406 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22052  M02S13406.253l688 ---|          LJM    KBR         RETURN
22053  M01S00912.253l688 +++|          JMP    KBR         RETURN
22054  M01S00014.ns2493  +++|
22055  M01S00015.ns2493  +++| RIF3     JMP    KIE         *INCORRECT ENTRY*
22056  M01S13407.dsd     +++| ROL      SPACE  4,10
22057  M01S13408.dsd     +++|***       ROLLOUT,JSN.
22058  M01S13409.dsd     +++|*         ROLLOUT,JSN,NNNN.
22059  M01S13410.dsd     +++|*
22060  M01S13411.dsd     +++|*         ROLLOUT JOB *JSN* OR ROLLOUT JOB *JSN* FOR NNNN
22061  M01S13412.dsd     +++|*         SCHEDULER CYCLES.  JOB CAN NOT BE A SUBSYSTEM.
22062  M01S13413.dsd     +++|
22063  M01S13414.dsd     +++|
22064  M01S13415.dsd     +++|          ENTRY  ROL
Line S13416 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
22065  M02S13416.ns2493  ---|          RJM    ASN         ASSEMBLE JSN
Line S13417 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
22066  M02S13417.ns2493  ---|          LDD    AB+2
Line S13418 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
22067  M02S13418.ns2493  ---|          NJN    ROL1        IF JSN .GT. 4 CHARACTERS
22068  M01S00016.ns2493  +++|          RJM    PJS         PROCESS JSN
22069  M01S13419.dsd     +++|          LDD    AB+1        SAVE JSN FOR *UTEM* CALL
22070  M01S13420.dsd     +++|          STM    URB+4
Line S13421 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22071  M02S13421.271l716 ---|          STD    SP+1        SAVE JSN FOR *1DS* CALL
22072  M01S13422.dsd     +++|          LDD    AB
22073  M01S13423.dsd     +++|          STM    URB+3
Line S13424 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22074  M02S13424.271l716 ---|          STD    SP
Line S13425 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
22075  M02S13425.ns2493  ---|          LDN    AB          GET EJT ENTRY
Line S13426 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
22076  M02S13426.ns2493  ---|          RJM    GEE
Line S13427 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
22077  M02S13427.ns2493  ---| ROL1     NJN    ROL2        IF EJT ENTRY NOT FOUND
22078  M01S13428.dsd     +++|          LDD    CM+4        SAVE JOB STATUS
22079  M01S13429.dsd     +++|          STD    T6
22080  M01S13430.dsd     +++|          SFA    EJT,T3      GET CP NUMBER
22081  M01S13431.dsd     +++|          ADN    SCHE
22082  M01S13432.dsd     +++|          CRD    SH
22083  M01S13433.dsd     +++|          ADN    SCLE-SCHE   GET SERVICE CLASS
22084  M01S13434.dsd     +++|          CRD    SR
22085  M01S13435.dsd     +++|          SBN    SCLE
22086  M01S13436.dsd     +++|          STD    CM+4        SAVE ADDRESS OF EJT ENTRY
22087  M01S13437.dsd     +++|          SHN    -14
22088  M01S13438.dsd     +++|          STD    CM+3
22089  M01S13439.dsd     +++|          LDD    SR
22090  M01S13440.dsd     +++|          SHN    -6
22091  M01S13441.dsd     +++|          LMN    SSSC
22092  M01S13442.dsd     +++|          ZJN    ROL2        IF SUBSYSTEM SERVICE CLASS
22093  M01S13443.dsd     +++|          LDD    T6          CHECK JOB STATUS
22094  M01S13444.dsd     +++|          LPN    76
Line S13445 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22095  M02S13445.271l716 ---|          LMN    EXJS*2
Line S13446 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22096  M02S13446.271l716 ---|          ZJN    ROL4        IF JOB IS EXECUTING
Line S13447 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22097  M02S13447.271l716 ---|          LDI    CA
22098  M01S00822.271l716 +++|          SHN    -1
22099  M01S00823.271l716 +++|          LMK    EXJS
22100  M01S00824.271l716 +++|          ZJN    ROL4        IF JOB AT CP
22101  M01S00825.271l716 +++|          LMK    PCJS&EXJS
22102  M01S00826.271l716 +++|          NJN    ROL1        IF JOB NOT AT PCP
22103  M01S00827.271l716 +++|          LDD    SH+1        SET PCP NUMBER IN *ROCM* REQUEST
22104  M01S00828.271l716 +++|          STD    CM+2
22105  M01S00829.271l716 +++|          UJN    ROL6        CONTINUE
22106  M01S00830.271l716 +++|
22107  M01S00831.271l716 +++| ROL1     LDI    CA
22108  M01S13448.dsd     +++|          LMN    1R.
22109  M01S13449.dsd     +++|          ZJN    ROL3        IF TIME NOT ENTERED
22110  M01S13450.dsd     +++| ROL2     JMP    KIE         *INCORRECT ENTRY*
22111  M01S13451.dsd     +++|
22112  M01S13452.dsd     +++|*         PROCESS ROLLOUT WITH NO TIME SPECIFIED.
22113  M01S13453.dsd     +++|
Line S13454 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22114  M02S13454.271l716 ---| ROL3     LDN    2           SET WORD COUNT FOR *UTEM* CALL
22115  M01S00832.271l716 +++| ROL3     STD    CM+2
22116  M01S00833.271l716 +++|          LDN    2
22117  M01S13455.dsd     +++|          STD    CM+1
22118  M01S13456.dsd     +++|          STM    URBA        SET FORCED ROLLOUT STATUS
Line S13457 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22119  M02S13457.271l716 ---|          LDN    0
Line S13458 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22120  M02S13458.271l716 ---|          STD    CM+2
22121  M01S13459.dsd     +++|          LDD    MA          WRITE *UTEM* REQUEST WORDS
22122  M01S13460.dsd     +++|          CWM    URB,CM+1
22123  M01S13461.dsd     +++|          MONITOR  UTEM
22124  M01S13462.dsd     +++|          LDD    CM+1
22125  M01S13463.dsd     +++|          NJN    ROL2        IF VERIFICATION FAILED
22126  M01S13464.dsd     +++|          LJM    KBR         RETURN
22127  M01S13465.dsd     +++|
Line S13466 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22128  M02S13466.271l716 ---|*         PROCESS JOB AT A CP.
22129  M01S00834.271l716 +++|*         PROCESS JOB AT A CP/PCP.
22130  M01S13467.dsd     +++|
22131  M01S13468.dsd     +++| ROL4     LDD    SH+3        SET CONTROL POINT NUMBER
Line S13469 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22132  M02S13469.271l716 ---|          LPN    77
Line S13470 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22133  M02S13470.271l716 ---|          STD    CN
22134  M01S00835.271l716 +++|          STD    CM+2
22135  M01S13471.dsd     +++|          SHN    7           SET CPA ADDRESS
Line S13472 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22136  M02S13472.271l716 ---|          STD    CP
22137  M01S13473.dsd     +++|          ADN    JCIW        GET SUBSYSTEM ID
22138  M01S13474.dsd     +++|          CRD    AB
22139  M01S13475.dsd     +++|          LDD    AB+2
Line S13476 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22140  M02S13476.271l716 ---|          ZJN    ROL5        IF NO SPECIAL IDENTIFICATION
22141  M01S00836.271l716 +++|          ZJN    ROL6        IF ROLLABLE JOB
22142  M01S13477.dsd     +++|          LMN    ORSI        CHECK IF OPERATOR ROLLOUT ALLOWED
22143  M01S13478.dsd     +++| ROL5     NJN    ROL2        IF ROLLOUT NOT ALLOWED
Line S13479 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22144  M02S13479.271l716 ---|          LDI    CA
22145  M01S00837.271l716 +++| ROL6     LDI    CA
22146  M01S13480.dsd     +++|          LMN    1R.
22147  M01S13481.dsd     +++|          ZJN    ROL3        IF TIME NOT ENTERED
22148  M01S13482.dsd     +++|          LMN    1R,&1R.
22149  M01S13483.dsd     +++|          NJN    ROL5        IF INCORRECT SEPARATOR
22150  M01S13484.dsd     +++|          AOD    CA          SKIP SEPERATOR
22151  M01S13485.dsd     +++|          RJM    ASD         ASSEMBLE TIME
22152  M01S13486.dsd     +++|          LDD    AB
22153  M01S13487.dsd     +++|          ADD    AB+1
22154  M01S13488.dsd     +++|          ADD    AB+2
22155  M01S13489.dsd     +++|          ADD    AB+3
22156  M01S13490.dsd     +++|          NJN    ROL5        IF TIME .GT. 777B
22157  M01S13491.dsd     +++|          LDD    AB+4
Line S13492 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22158  M02S13492.271l716 ---|          STD    SP+2        PASS TIME TO *1DS*
22159  M01S00838.271l716 +++|          STD    SP+2        SET ROLLOUT TIME
22160  M01S13493.dsd     +++|          SHN    -11
22161  M01S13494.dsd     +++|          NJN    ROL5        IF TIME .GT. 777B
22162  M01S13495.dsd     +++|          STD    SP+3
22163  M01S13496.dsd     +++|          STD    SP+4
Line S13497 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22164  M02S13497.271l716 ---|          LDD    CN          PASS CP NUMBER TO *1DS*
Line S13498 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22165  M02S13498.271l716 ---|          STD    AB+4
Line S13499 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22166  M02S13499.271l716 ---|          LDC    /1DS/ROLF+/1DS/LOCK+/1DS/CMOV
Line S13500 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22167  M02S13500.271l716 ---|          JMP    KAR         CALL *1DS*
22168  M01S00839.271l716 +++|          LDD    MA          WRITE *ROCM* PARAMETERS TO MB
22169  M01S00840.271l716 +++|          CWD    SP
22170  M01S00841.271l716 +++|          LDC    4000+ROTE   ALTERNATE CP/PCP, TIMED/EVENT OPTIONS
22171  M01S00842.271l716 +++|          STD    CM+1
22172  M01S00843.271l716 +++|          MONITOR  ROCM      REQUEST ROLLOUT
22173  M01S00844.271l716 +++|          LJM    KBR         RETURN
22174  M01S13501.dsd     +++| URB      SPACE  4,10
22175  M01S13502.dsd     +++|*         *UTEM* REQUEST BLOCK.
22176  M01S13503.dsd     +++|
22177  M01S13504.dsd     +++| URB      VFD    1/1,5/JSNE,6/24D  VERIFY THAT JSN-S MATCH
22178  M01S13505.dsd     +++|          VFD    6/36D,6/0
22179  M01S13506.dsd     +++|          CON    0
22180  M01S13507.dsd     +++|          CON    0
22181  M01S13508.dsd     +++|          CON    0
22182  M01S13509.dsd     +++|
22183  M01S13510.dsd     +++|          VFD    1/0,5/SCLE,6/2  CHANGE *ROLLOUT* AND *ROLLIN* BITS
22184  M01S13511.dsd     +++|          VFD    6/52D,6/0
22185  M01S13512.dsd     +++|          CON    0
22186  M01S13513.dsd     +++|          CON    0
22187  M01S13514.dsd     +++| URBA     CON    0
22188  M01S00011.dsd44   +++|
22189  M01S00012.dsd44   +++| URBB     VFD    1/1,5/JSNE,6/5  VERIFY STATUS IS *TOJS*
22190  M01S00013.dsd44   +++|          VFD    6/1,6/0
22191  M01S00014.dsd44   +++|          CON    0
22192  M01S00015.dsd44   +++|          CON    0
22193  M01S00016.dsd44   +++|          CON    TOJS
22194  M01S00017.dsd44   +++|
22195  M01S00018.dsd44   +++| URBC     VFD    1/0,5/JSNE,6/5  CHANGE *TOJS* STATUS TO *ROJS* STATUS
22196  M01S00019.dsd44   +++|          VFD    6/1,6/0
22197  M01S00020.dsd44   +++|          CON    0
22198  M01S00021.dsd44   +++|          CON    0
22199  M01S00022.dsd44   +++|          CON    ROJS
22200  M01S00023.dsd44   +++|
22201  M01S00024.dsd44   +++| URBD     VFD    1/0,5/SCHE,6/30D  CHANGE SCHEDULING DATA TO ZERO
22202  M01S00025.dsd44   +++|          VFD    6/0,6/0
22203  M01S00026.dsd44   +++|          CON    0
22204  M01S00027.dsd44   +++|          CON    0
22205  M01S00028.dsd44   +++|          CON    0
22206  M01S00017.ns2493  +++| PJS      SPACE  4,10
22207  M01S00018.ns2493  +++|**        PJS - PROCESS JSN.
22208  M01S00019.ns2493  +++|*
22209  M01S00020.ns2493  +++|*         EXIT   (AB - AB+1) = JSN.
22210  M01S00021.ns2493  +++|*                (CM - CM+4) = WORD *JSNE* OF EJT ENTRY.
22211  M01S00022.ns2493  +++|*                (A) = (T3) = EJT ORDINAL.
22212  M01S00023.ns2493  +++|*                TO *KIE* IF ERROR.
22213  M01S00024.ns2493  +++|*
22214  M01S00025.ns2493  +++|*         CALLS  ASN, GEE.
22215  M01S00026.ns2493  +++|
22216  M01S00027.ns2493  +++|
22217  M01S00028.ns2493  +++| PJS      SUBR               ENTRY/EXIT
22218  M01S00029.ns2493  +++|          RJM    ASN         ASSEMBLE JSN
22219  M01S00030.ns2493  +++|          LDD    AB+2
22220  M01S00031.ns2493  +++|          NJN    PJS2        IF JSN .GT. 4 CHARACTERS
22221  M01S00032.ns2493  +++|          LDD    AB+1        SPACE FILL JSN
22222  M01S00033.ns2493  +++|          LPN    77
22223  M01S00034.ns2493  +++|          NJN    PJS1        IF JSN .EQ. 4 CHARACTERS
22224  M01S00035.ns2493  +++|          LDN    1R
22225  M01S00036.ns2493  +++|          RAD    AB+1
22226  M01S00037.ns2493  +++| PJS1     LDN    AB          GET EJT ENTRY
22227  M01S00038.ns2493  +++|          RJM    GEE
Line S00039 Modification History
M01 (Added by) ns2493
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22228  M02S00039.253l688 ---|          NJN    PJS2        IF EJT ENTRY NOT FOUND
Line S00040 Modification History
M01 (Added by) ns2493
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22229  M02S00040.253l688 ---|          LDD    T3
22230  M01S00913.253l688 +++|          MJN    PJS2        IF EJT ENTRY NOT FOUND
22231  M01S00041.ns2493  +++|          NJN    PJSX        IF JSN .NE. *SYS*
22232  M01S00042.ns2493  +++| PJS2     JMP    KIE         *INCORRECT ENTRY*
22233  M01S00715.274l797 +++|          SPACE  4,10
22234  M01S00716.274l797 +++|          CMDEND
22235  M01S13515.dsd     +++|          COMMAND  (QFT REQUESTS.)
22236  M01S13516.dsd     +++| ENQ      SPACE  4,10
22237  M01S13517.dsd     +++|***       ENQP,JSN,XXXX.
22238  M01S13518.dsd     +++|*
22239  M01S13519.dsd     +++|*         SET QUEUE PRIORITY XXXX FOR THE QFT ENTRY WITH
22240  M01S13520.dsd     +++|*         THE GIVEN JSN.  0 .LE. XXXX .LE. 7777B.  IF XXXX = 0,
22241  M01S13521.dsd     +++|*         THE ENTRY TIME WILL BE SET TO 0.
22242  M01S13522.dsd     +++|
22243  M01S13523.dsd     +++|
22244  M01S13524.dsd     +++|          ENTRY  ENQ         ENTRY
22245  M01S13525.dsd     +++|          LDN    QFTP        GET NUMBER OF QFT ENTRIES
22246  M01S13526.dsd     +++|          CRD    T3
22247  M01S13527.dsd     +++|          RJM    ASN         ASSEMBLE JSN
22248  M01S13528.dsd     +++|          LDD    AB+2
22249  M01S13529.dsd     +++|          NJN    ENQ4        IF JSN .GT. 4 CHARACTERS
22250  M01S13530.dsd     +++|          LDD    AB+1
22251  M01S13531.dsd     +++|          LPN    77
22252  M01S13532.dsd     +++|          NJN    ENQ1        IF JSN .GT. 3 CHARACTERS
22253  M01S13533.dsd     +++|          LDN    1R
22254  M01S13534.dsd     +++|          RAD    AB+1
22255  M01S13535.dsd     +++| ENQ1     LDN    0           INITIALIZE QFT ORDINAL
22256  M01S13536.dsd     +++|          STD    T4
22257  M01S13537.dsd     +++| ENQ2     SFA    QFT,T4
22258  M01S13538.dsd     +++|          ERRNZ  JSNQ        NOT FIRST WORD OF EJT ENTRY
22259  M01S13539.dsd     +++|          CRD    CM
22260  M01S13540.dsd     +++|          LDD    AB
22261  M01S13541.dsd     +++|          LMD    CM
22262  M01S13542.dsd     +++|          NJN    ENQ3        IF JSN DOES NOT MATCH
22263  M01S13543.dsd     +++|          LDD    AB+1
22264  M01S13544.dsd     +++|          LMD    CM+1
22265  M01S13545.dsd     +++|          ZJN    ENQ5        IF JSN MATCHES
22266  M01S13546.dsd     +++| ENQ3     AOD    T4
22267  M01S13547.dsd     +++|          SBD    T5
22268  M01S13548.dsd     +++|          NJN    ENQ2        IF NOT END OF QFT
22269  M01S13549.dsd     +++| ENQ4     JMP    KIE         *INCORRECT ENTRY*
22270  M01S13550.dsd     +++|
22271  M01S13551.dsd     +++| ENQ5     LDD    CM          SET JSN
22272  M01S13552.dsd     +++|          STM    ENQB+3
22273  M01S13553.dsd     +++|          LDD    CM+1
22274  M01S13554.dsd     +++|          STM    ENQB+4
22275  M01S13555.dsd     +++|          LDD    CM+4
22276  M01S13556.dsd     +++|          SHN    -11
22277  M01S13557.dsd     +++|          SBN    /JIO/INQT
22278  M01S13558.dsd     +++|          ZJN    ENQ6        IF INPUT FILE TYPE
22279  M01S13559.dsd     +++|          LDN    2           SET OUTPUT FILE TYPE
22280  M01S13560.dsd     +++| ENQ6     STD    T6
22281  M01S13561.dsd     +++|          SFA    QFT,T4      GET SERVICE CLASS
22282  M01S13562.dsd     +++|          ADN    SCLQ
22283  M01S13563.dsd     +++|          CRD    SR
22284  M01S13564.dsd     +++|          AOD    CA          SKIP *,*
22285  M01S13565.dsd     +++|          RJM    ASD         GET QUEUE PRIORITY
22286  M01S13566.dsd     +++|          LDD    AB
22287  M01S13567.dsd     +++|          ADD    AB+1
22288  M01S13568.dsd     +++|          ADD    AB+2
22289  M01S13569.dsd     +++|          ADD    AB+3
22290  M01S13570.dsd     +++|          NJN    ENQ4        IF .GT. 7777B
22291  M01S13571.dsd     +++|          LDD    AB+4
22292  M01S13572.dsd     +++|          NJN    ENQ7        IF .NE. 0
22293  M01S13573.dsd     +++|          STD    T1
22294  M01S13574.dsd     +++|          STD    T2
22295  M01S13575.dsd     +++|          UJN    ENQ8        SET ENTRY TIME = 0
22296  M01S13576.dsd     +++|
22297  M01S13577.dsd     +++| ENQ7     STD    T1          SET QUEUE PRIORITY
22298  M01S13578.dsd     +++|          LDD    SR
22299  M01S13579.dsd     +++|          SCN    77
22300  M01S13580.dsd     +++|          SHN    6
22301  M01S13581.dsd     +++|          ADD    T6
22302  M01S13582.dsd     +++|          RJM    CET         CALCULATE ENTRY TIME
22303  M01S13583.dsd     +++| ENQ8     LDN    ZERL
22304  M01S13584.dsd     +++|          CRD    CM
22305  M01S13585.dsd     +++|          LDN    3           SET NUMBER OF REQUESTS
22306  M01S13586.dsd     +++|          STD    CM+1
22307  M01S13587.dsd     +++|          SFA    QFT,T4      GET QFT ENTRY ABSOLUTE ADDRESS
22308  M01S13588.dsd     +++|          STD    CM+4
22309  M01S13589.dsd     +++|          SHN    -14
22310  M01S13590.dsd     +++|          STD    CM+3
22311  M01S13591.dsd     +++|          LDD    T1
22312  M01S13592.dsd     +++|          STM    ENQC+3
22313  M01S13593.dsd     +++|          LDD    T2
22314  M01S13594.dsd     +++|          STM    ENQC+4
22315  M01S13595.dsd     +++|          LDD    MA
22316  M01S13596.dsd     +++|          CWM    ENQA,TR
22317  M01S13597.dsd     +++|          MONITOR  UTEM      SET ENTRY TIME IN QFT ENTRY
22318  M01S13598.dsd     +++|          LDD    CM+1
22319  M01S13599.dsd     +++|          NJN    ENQ9        IF OPERATION NOT COMPLETE
22320  M01S13600.dsd     +++|          JMP    KBR         RETURN
22321  M01S13601.dsd     +++|
22322  M01S13602.dsd     +++| ENQ9     JMP    KIE         *INCORRECT ENTRY*
22323  M01S13603.dsd     +++|
22324  M01S13604.dsd     +++|
22325  M01S13605.dsd     +++|*         *UTEM* PARAMETER WORD.
22326  M01S13606.dsd     +++|
22327  M01S13607.dsd     +++| ENQA     VFD    1/1,5/JSNQ,6/6,6/0,42/0  VERIFY ENTRY NOT BUSY
22328  M01S13608.dsd     +++| ENQB     VFD    1/1,5/JSNQ,6/24D,6/36D,42/0  VERIFY QFT ENTRY JSN
22329  M01S13609.dsd     +++| ENQC     VFD    6/ENTQ,6/24D,6/0,42/0  SET NEW ENTRY TIME
22330  M01S13610.dsd     +++| COMMON   SPACE  4,10
22331  M01S13611.dsd     +++|*         COMMON DECKS.
22332  M01S13612.dsd     +++|
22333  M01S13613.dsd     +++|
22334  M01S13614.dsd     +++| CET$     EQU    1           ASSEMBLE *CET* ROUTINE
22335  M01S13615.dsd     +++|*CALL     COMPCPE
22336  M01S00717.274l797 +++|          SPACE  4,10
22337  M01S00718.274l797 +++|          CMDEND
Line S13616 Modification History
M01 (Added by) dsd
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
22338  M02S13616.271l750 ---|*CALL     COMPRJC
Line S13617 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22339  M02S13617.dsd115  ---|          COMMAND  (EXECUTING JOB REQUESTS.)
22340  M01S00003.dsd115  +++|          COMMAND  (EXECUTING JOB REQUESTS - PART 1.)
22341  M01S13618.dsd     +++| CSP      SPACE  4,10
22342  M01S13619.dsd     +++|**        CSP - CALL *1DS*.
22343  M01S13620.dsd     +++|*
22344  M01S13621.dsd     +++|*         ENTRY  (A) = FUNCTION REQUEST.
22345  M01S13622.dsd     +++|*                (CN) = CONTROL POINT NUMBER.
22346  M01S13623.dsd     +++|*
22347  M01S13624.dsd     +++|*         USES   AB+2, AB+4.
22348  M01S13625.dsd     +++|
22349  M01S13626.dsd     +++|
22350  M01S13627.dsd     +++| CSP      STD    AB+2        SAVE *1DS* FUNCTION CODE
22351  M01S13628.dsd     +++|          LDD    CN          SET CONTROL POINT NUMBER
22352  M01S13629.dsd     +++|          STD    AB+4
22353  M01S13630.dsd     +++|          LDD    AB+2
22354  M01S13631.dsd     +++|          LMC    /1DS/CMOV   ADD CONTROL POINT MOVE
22355  M01S13632.dsd     +++|          JMP    KAR         PROCESS *1DS* CALL
22356  M01S00004.dsd115  +++| AGD      SPACE  4,10
22357  M01S00005.dsd115  +++|***       ASSIGN,JSN,DS.
22358  M01S00006.dsd115  +++|*
22359  M01S00007.dsd115  +++|*         ASSIGN JOB WITH SPECIFIED JSN TO EST ENTRY 1 (*DS*
22360  M01S00008.dsd115  +++|*         EQUIPMENT).
22361  M01S00009.dsd115  +++|
22362  M01S00010.dsd115  +++|
22363  M01S00011.dsd115  +++|          ENTRY  AGD
22364  M01S00012.dsd115  +++|          LDN    DSEQ        EST ORDINAL OF *DS*
22365  M01S00013.dsd115  +++|          STM    AGNA
22366  M01S00014.dsd115  +++|          UJN    AGN         ENTER COMMON PROCESSING
22367  M01S00015.dsd115  +++| AGE      SPACE  4,10
22368  M01S00016.dsd115  +++|***       ASSIGN,JSN,NE.
22369  M01S00017.dsd115  +++|*
22370  M01S00018.dsd115  +++|*         ASSIGN JOB WITH SPECIFIED JSN TO EST ENTRY 1 (*NE*
22371  M01S00019.dsd115  +++|*         EQUIPMENT).
22372  M01S00020.dsd115  +++|
22373  M01S00021.dsd115  +++|
22374  M01S00022.dsd115  +++|          ENTRY  AGE
22375  M01S00023.dsd115  +++|          LDN    NEEQ        EST ORDINAL OF *NE*
22376  M01S00024.dsd115  +++|          STM    AGNA
22377  M01S00025.dsd115  +++|          UJN    AGN         ENTER COMMON PROCESSING
22378  M01S13633.dsd     +++| AGN      SPACE  4,10
22379  M01S13634.dsd     +++|***       ASSIGN,JSN,XXX.
22380  M01S13635.dsd     +++|*
22381  M01S13636.dsd     +++|*         ASSIGN JOB WITH SPECIFIED JSN TO EST ORDINAL XXX.  THE JOB
22382  M01S13637.dsd     +++|*         MUST BE AT A CONTROL POINT.
22383  M01S13638.dsd     +++|
22384  M01S13639.dsd     +++|
22385  M01S13640.dsd     +++|          ENTRY  AGN         ENTRY
22386  M01S13641.dsd     +++|          RJM    ASN         ASSEMBLE JSN
Line S13642 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22387  M02S13642.253l688 ---|          LDD    AB+2
Line S13643 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22388  M02S13643.253l688 ---|          NJN    AGN1        IF JSN .GT. 4 CHARACTERS
22389  M01S13644.dsd     +++|          LDN    AB          GET EJTO
22390  M01S13645.dsd     +++|          RJM    GEE
Line S13646 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22391  M02S13646.253l688 ---| AGN1     NJN    AGN2        IF JSN NOT FOUND
22392  M01S00914.253l688 +++|          MJN    AGN1        IF JSN NOT FOUND
22393  M01S00915.253l688 +++|          STD    T7
22394  M01S00916.253l688 +++|          LDD    AB+2
Line S00917 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22395  M02S00917.dsd115  ---|          NJN    AGN2        IF JSN .GT. 4 CHARACTERS
22396  M01S00026.dsd115  +++|          NJN    AGN1        IF JSN .GT. 4 CHARACTERS
22397  M01S13647.dsd     +++|          LDD    CM+4
22398  M01S13648.dsd     +++|          LPN    76
22399  M01S13649.dsd     +++|          LMN    EXJS*2
Line S13650 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22400  M02S13650.253l688 ---|          NJN    AGN2        IF JOB NOT AT CP
Line S13651 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22401  M02S13651.253l688 ---|          LDD    T3          SAVE EJTO
Line S13652 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22402  M02S13652.253l688 ---|          STD    T7
22403  M01S00918.253l688 +++| AGN1     NJN    AGN2        IF JOB NOT AT CONTROL POINT
22404  M01S00027.dsd115  +++|          LDK    ZERL
22405  M01S00028.dsd115  +++|          CRD    AB
22406  M01S00029.dsd115  +++|          LDC    0
22407  M01S00030.dsd115  +++|*         LDC    DSEQ        (*DS* EQUIPMENT)
22408  M01S00031.dsd115  +++|*         LDC    NEEQ        (*NE* EQUIPMENT)
22409  M01S00032.dsd115  +++| AGNA     EQU    *-1
22410  M01S00033.dsd115  +++|          STD    AB+4        STORE EST ORDINAL (OR ZERO)
22411  M01S00034.dsd115  +++|          NJN    AGN1.1      IF *DS* OR *NE*
22412  M01S13653.dsd     +++|          AOD    CA          SKIP SEPARATOR
22413  M01S13654.dsd     +++|          RJM    ASD         ASSEMBLE EST ORDINAL
Line S13655 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22414  M02S13655.dsd115  ---|          SFA    EJT,T7      GET CP NUMBER
22415  M01S00035.dsd115  +++| AGN1.1   SFA    EJT,T7      GET CP NUMBER
22416  M01S13656.dsd     +++|          ADN    SCHE
22417  M01S13657.dsd     +++|          CRD    SR
22418  M01S13658.dsd     +++|          LDD    SR+3
22419  M01S13659.dsd     +++|          STD    CN
22420  M01S13660.dsd     +++|          LDN    ESTP        SET EST LENGTH
22421  M01S13661.dsd     +++|          CRD    SR
22422  M01S13662.dsd     +++|          LDD    AB+4
22423  M01S13663.dsd     +++|          SBD    SR+2
22424  M01S13664.dsd     +++|          PJN    AGN2        IF NON-EXISTENT EQUIPMENT
22425  M01S13665.dsd     +++|          SFA    EST,AB+4    READ EST ENTRY
22426  M01S13666.dsd     +++|          ADK    EQDE
22427  M01S13667.dsd     +++|          CRD    CM
22428  M01S13668.dsd     +++|          ADK    EQAE-EQDE   READ EQUIPMENT ASSIGNMENT
22429  M01S13669.dsd     +++|          CRD    SR
22430  M01S13670.dsd     +++|          LDD    SR+4
22431  M01S13671.dsd     +++|          ZJN    AGN3        IF EQUIPMENT AVAILABLE
22432  M01S13672.dsd     +++| AGN2     JMP    KIE         *INCORRECT ENTRY*
22433  M01S13673.dsd     +++|
22434  M01S13674.dsd     +++| AGN3     LDD    CM+3
Line S13675 Modification History
M01 (Added by) dsd
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22435  M02S13675.242l642 ---|          LPC    3777
Line S13676 Modification History
M01 (Added by) dsd
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22436  M02S13676.242l642 ---|          ZJN    AGN4        IF EQUIPMENT NOT DEFINED
Line S13677 Modification History
M01 (Added by) dsd
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22437  M02S13677.242l642 ---|          LDD    CM+3
Line S13678 Modification History
M01 (Added by) dsd
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22438  M02S13678.242l642 ---|          SHN    21-13
Line S13679 Modification History
M01 (Added by) dsd
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22439  M02S13679.242l642 ---|          MJN    AGN4        IF *OFF*
Line S13680 Modification History
M01 (Added by) dsd
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22440  M02S13680.242l642 ---|          LDD    CM
Line S13681 Modification History
M01 (Added by) dsd
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22441  M02S13681.242l642 ---|          SHN    21-13
22442  M01S00672.242l642 +++|          ZJN    AGN4        IF EQUIPMENT UNDEFINED
22443  M01S00673.242l642 +++|          LDD    CM
22444  M01S00674.242l642 +++|          SHN    21-1
22445  M01S00675.242l642 +++|          MJN    AGN4        IF DEVICE OFF (OR DOWN)
22446  M01S00676.242l642 +++|          SHN    2+21-13
22447  M01S13682.dsd     +++|          PJN    AGN5        IF NOT MASS STORAGE
22448  M01S13683.dsd     +++|          SHN    13-10
22449  M01S13684.dsd     +++|          MJN    AGN4        IF REMOVABLE
22450  M01S13685.dsd     +++|          SHN    10-6
22451  M01S13686.dsd     +++|          PJN    AGN5        IF AVAILABLE
22452  M01S13687.dsd     +++| AGN4     LDC    =C*NOT AVAILABLE.*
22453  M01S13688.dsd     +++|          JMP    KMS         DISPLAY MESSAGE
22454  M01S00677.242l642 +++|
22455  M01S13689.dsd     +++| AGN5     LDC    TIET
22456  M01S13690.dsd     +++|          STD    T1
22457  M01S13691.dsd     +++|          LDI    T1          SEARCH FOR INCORRECT EQUIPMENT
22458  M01S13692.dsd     +++| AGN6     LMD    CM+3
22459  M01S13693.dsd     +++|          ZJN    AGN2        IF INCORRECT EQUIPMENT ASSIGNMENT
22460  M01S13694.dsd     +++|          AOD    T1
22461  M01S13695.dsd     +++|          LDI    T1
22462  M01S13696.dsd     +++|          NJN    AGN6        IF NOT END OF SEARCH
Line S13697 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2522
Seq #  *Modification Id* Act 
----------------------------+
22463  M02S13697.ns2522  ---|          LDD    AB+4        GET EST ORDINAL
Line S00050 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22464  M02S00050.274l797 ---| AGN7     RJM    CMT         CHECK *MAGNET*
Line S00051 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22465  M02S00051.274l797 ---|          ZJN    AGN10       IF *MAGNET* NOT ACTIVE
Line S00052 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22466  M02S00052.274l797 ---| AGN8     LDD    T7          CALCULATE UDT ADDRESS
Line S00053 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22467  M02S00053.274l797 ---|          SHN    6
Line S00054 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22468  M02S00054.274l797 ---|          ADD    T6
Line S00055 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22469  M02S00055.274l797 ---|          ADN    /MTX/UST2   READ *UST2*
Line S00056 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22470  M02S00056.274l797 ---|          CRD    SR
Line S00057 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22471  M02S00057.274l797 ---|          ADN    /MTX/UST4-/MTX/UST2
Line S00058 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22472  M02S00058.274l797 ---|          CRD    CM
Line S00059 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22473  M02S00059.274l797 ---|          LDD    CM+2        CHECK EST ORDINAL
Line S00060 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22474  M02S00060.274l797 ---|          LMD    AB+4
Line S00061 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22475  M02S00061.274l797 ---|          NJN    AGN9        IF NOT THIS UDT
Line S00062 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22476  M02S00062.274l797 ---|          LDD    SR+4        CHECK *SUSPECT*
Line S00063 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22477  M02S00063.274l797 ---|          SHN    21-5
Line S00064 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22478  M02S00064.274l797 ---|          PJN    AGN10       IF NOT *SUSPECT*
Line S00065 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22479  M02S00065.274l797 ---|          UJN    AGN4        NOT AVAILABLE
Line S00066 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22480  M02S00066.274l797 ---|
Line S00067 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22481  M02S00067.274l797 ---| AGN9     LDN    /MTX/UNITL  CHECK NEXT UDT
Line S00068 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22482  M02S00068.274l797 ---|          RAD    T6
Line S00069 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22483  M02S00069.274l797 ---|          SBD    T4
Line S00070 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22484  M02S00070.274l797 ---|          MJN    AGN8        IF NOT END OF UDT-S
Line S00071 Modification History
M01 (Added by) ns2522
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22485  M02S00071.274l797 ---| AGN10    LDD    AB+4        GET EST ORDINAL
22486  M01S00719.274l797 +++|          LDD    AB+4        GET EST ORDINAL
22487  M01S13698.dsd     +++|          STD    AB+3
22488  M01S13699.dsd     +++|          LDN    0
22489  M01S13700.dsd     +++|          STD    AB+1
22490  M01S13701.dsd     +++|          LDN    /1DS/AEJF
22491  M01S13702.dsd     +++|          JMP    CSP         CALL *1DS*
22492  M01S00036.dsd115  +++| TIET     SPACE  4,10
22493  M01S00037.dsd115  +++|**        TIET - TABLE OF INCORRECT EQUIPMENTS TO *ASSIGN*.
22494  M01S00038.dsd115  +++|
22495  M01S00039.dsd115  +++|
22496  M01S00040.dsd115  +++| TIET     BSS    0
22497  M01S00041.dsd115  +++|          CON    2RCP
22498  M01S00042.dsd115  +++|          CON    2RCR
Line S00043 Modification History
M01 (Added by) dsd115
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22499  M02S00043.274l797 ---|          CON    2RCS
Line S00044 Modification History
M01 (Added by) dsd115
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22500  M02S00044.274l797 ---|          CON    2RCT
Line S00045 Modification History
M01 (Added by) dsd115
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
22501  M02S00045.274l797 ---|          CON    2RLP
22502  M01S00046.dsd115  +++|          CON    2RLQ
22503  M01S00047.dsd115  +++|          CON    2RLR
22504  M01S00048.dsd115  +++|          CON    2RLS
22505  M01S00049.dsd115  +++|          CON    2RLT
22506  M01S00720.274l797 +++|          CON    2RLX
22507  M01S00721.274l797 +++|          CON    2RLY
22508  M01S00050.dsd115  +++|          CON    2RRD
22509  M01S00051.dsd115  +++| TIETE    CON    0           END OF TABLE
22510  M01S00052.dsd115  +++|
22511  M01S00053.dsd115  +++|
22512  M01S00054.dsd115  +++|          ERRZR  TIETE-TIET  REMOVE TABLE AND SEARCH LOOP
22513  M01S00722.274l797 +++|          SPACE  4,10
22514  M01S00723.274l797 +++|          CMDEND
22515  M01S00055.dsd115  +++|          COMMAND  (EXECUTING JOB REQUESTS - PART 2.)
22516  M01S00056.dsd115  +++| CSP      SPACE  4,10
22517  M01S00057.dsd115  +++|**        CSP - CALL *1DS*.
22518  M01S00058.dsd115  +++|*
22519  M01S00059.dsd115  +++|*         ENTRY  (A) = FUNCTION REQUEST.
22520  M01S00060.dsd115  +++|*                (CN) = CONTROL POINT NUMBER.
22521  M01S00061.dsd115  +++|*
22522  M01S00062.dsd115  +++|*         USES   AB+2, AB+4.
22523  M01S00063.dsd115  +++|
22524  M01S00064.dsd115  +++|
22525  M01S00065.dsd115  +++| CSP      STD    AB+2        SAVE *1DS* FUNCTION CODE
22526  M01S00066.dsd115  +++|          LDD    CN          SET CONTROL POINT NUMBER
22527  M01S00067.dsd115  +++|          STD    AB+4
22528  M01S00068.dsd115  +++|          LDD    AB+2
22529  M01S00069.dsd115  +++|          LMC    /1DS/CMOV   ADD CONTROL POINT MOVE
22530  M01S00070.dsd115  +++|          JMP    KAR         PROCESS *1DS* CALL
22531  M01S13703.dsd     +++| CHK      SPACE  4,10
22532  M01S13704.dsd     +++|***       CKP,JSN.
22533  M01S13705.dsd     +++|*
22534  M01S13706.dsd     +++|*         CHECKPOINT JOB WITH SPECIFIED JSN.  THE JOB MUST BE
22535  M01S13707.dsd     +++|*         AT A CP.  THE JOB CANNOT BE A SUBSYSTEM.
22536  M01S13708.dsd     +++|
22537  M01S13709.dsd     +++|
22538  M01S13710.dsd     +++|          ENTRY  CHK
22539  M01S13711.dsd     +++|          RJM    ASN         ASSEMBLE JSN
22540  M01S13712.dsd     +++|          LDD    AB+2
22541  M01S13713.dsd     +++|          NJN    CHK1        IF JSN .GT. 4 CHARACTERS
22542  M01S13714.dsd     +++|          RJM    GCE         GET CP NUMBER
22543  M01S13715.dsd     +++|          SHN    7           SAVE CPA ADDRESS
22544  M01S13716.dsd     +++|          STD    CP
22545  M01S13717.dsd     +++|          ADN    STSW        READ *STSW*
22546  M01S13718.dsd     +++|          CRD    AB
22547  M01S13719.dsd     +++|          ADN    JCIW-STSW   READ *JCIW*
22548  M01S13720.dsd     +++|          CRD    SR
22549  M01S13721.dsd     +++|          LDD    AB+2
22550  M01S13722.dsd     +++|          SHN    21-0
22551  M01S13723.dsd     +++|          MJN    CHK1        IF ROLLOUT SET
22552  M01S13724.dsd     +++|          LDD    SR+2        CHECK SUBSYSTEM IDENTIFICATION
22553  M01S13725.dsd     +++|          ADC    -LSSI-1
22554  M01S13726.dsd     +++|          MJN    CHK2        IF JOB NOT A SUBSYSTEM
22555  M01S13727.dsd     +++| CHK1     JMP    KIE         *INCORRECT ENTRY*
22556  M01S13728.dsd     +++|
22557  M01S13729.dsd     +++| CHK2     LDD    CP          GET CP ADDRESS
22558  M01S13730.dsd     +++|          ADC    SEPW        READ *SEPW*
22559  M01S13731.dsd     +++|          CRD    SH
22560  M01S13732.dsd     +++|          ADN    SPCW-SEPW   READ *SPCW*
22561  M01S13733.dsd     +++|          CRD    T1
22562  M01S13734.dsd     +++|          ADN    DBAW-SPCW   READ *DBAW*
22563  M01S13735.dsd     +++|          CRD    T2
22564  M01S13736.dsd     +++|          ADN    SSCW-DBAW
22565  M01S13737.dsd     +++|          CRD    CM
22566  M01S13738.dsd     +++|          LDD    SR+3
22567  M01S13739.dsd     +++|          LPC    600
22568  M01S13740.dsd     +++|          NJN    CHK1        IF USER FILE PRIVATE
22569  M01S13741.dsd     +++|          LDD    AB+4
22570  M01S13742.dsd     +++|          SHN    -4
22571  M01S13743.dsd     +++|          NJN    CHK1        IF RECALL REQUESTS
22572  M01S13744.dsd     +++|          LDD    CM
22573  M01S13745.dsd     +++|          ADD    CM+1
22574  M01S13746.dsd     +++|          ADD    CM+2
22575  M01S13747.dsd     +++|          ADD    CM+3
22576  M01S13748.dsd     +++|          ADD    CM+4
22577  M01S13749.dsd     +++|          NJN    CHK1        IF *SSCW* BUSY
22578  M01S13750.dsd     +++|          LDD    SH
22579  M01S13751.dsd     +++|          LPN    24
22580  M01S13752.dsd     +++|          NJN    CHK1        IF *DMP=* OR *SSJ=*
22581  M01S13753.dsd     +++|          LDD    T1
22582  M01S13754.dsd     +++|          NJN    CHK1        IF *SPCW* NOT FREE
22583  M01S13755.dsd     +++|          LDD    T2
22584  M01S13756.dsd     +++|          SHN    21-13
22585  M01S13757.dsd     +++|          MJP    CHK1        IF SECURE SYSTEM MEMORY SET
22586  M01S13758.dsd     +++|          LDN    ZERL
22587  M01S13759.dsd     +++|          CRD    AB
22588  M01S13760.dsd     +++|          LDC    /1DS/CKPF+/1DS/LOCK
22589  M01S13761.dsd     +++|          JMP    CSP         CALL *1DS*
22590  M01S13762.dsd     +++| DIS      SPACE  4,10
22591  M01S13763.dsd     +++|***       DIS,JSN.
22592  M01S13764.dsd     +++|*
22593  M01S13765.dsd     +++|*         CALL JOB DISPLAY PACKAGE TO JOB JSN.
22594  M01S13766.dsd     +++|
22595  M01S13767.dsd     +++|
22596  M01S13768.dsd     +++|          ENTRY  DIS
22597  M01S13769.dsd     +++|          RJM    ASN         ASSEMBLE JSN
22598  M01S13770.dsd     +++|          LDD    AB+2
22599  M01S13771.dsd     +++|          NJN    DIS1        IF JSN .GT. 4 CHARACTERS
22600  M01S13772.dsd     +++|          RJM    GCE         GET CP NUMBER
22601  M01S13773.dsd     +++|          LDN    ZERL        CLEAR *AB* FOR 1DS CALL
22602  M01S13774.dsd     +++|          CRD    AB
22603  M01S13775.dsd     +++|          LDN    /1DS/DISF
22604  M01S13776.dsd     +++|          JMP    CSP         CALL *1DS*
22605  M01S13777.dsd     +++|
22606  M01S13778.dsd     +++| DIS1     JMP    KIE         *INCORRECT ENTRY*
Line S13779 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22607  M02S13779.dsd115  ---| TIET     SPACE  4,10
Line S13780 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22608  M02S13780.dsd115  ---|**        TIET - TABLE OF INCORRECT EQUIPMENTS TO *ASSIGN*.
Line S13781 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22609  M02S13781.dsd115  ---|
Line S13782 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22610  M02S13782.dsd115  ---|
Line S13783 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22611  M02S13783.dsd115  ---| TIET     BSS    0
Line S13784 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22612  M02S13784.dsd115  ---|          CON    2RCP
Line S13785 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22613  M02S13785.dsd115  ---|          CON    2RCR
Line S13786 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22614  M02S13786.dsd115  ---|          CON    2RCS
Line S13787 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22615  M02S13787.dsd115  ---|          CON    2RCT
Line S13788 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22616  M02S13788.dsd115  ---|          CON    2RLP
Line S13789 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22617  M02S13789.dsd115  ---|          CON    2RLQ
Line S13790 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22618  M02S13790.dsd115  ---|          CON    2RLR
Line S13791 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22619  M02S13791.dsd115  ---|          CON    2RLS
Line S13792 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22620  M02S13792.dsd115  ---|          CON    2RLT
Line S13793 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22621  M02S13793.dsd115  ---|          CON    2RRD
Line S13794 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22622  M02S13794.dsd115  ---| TIETE    CON    0           END OF TABLE
Line S13795 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22623  M02S13795.dsd115  ---|
Line S13796 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22624  M02S13796.dsd115  ---|
Line S13797 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd115
Seq #  *Modification Id* Act 
----------------------------+
22625  M02S13797.dsd115  ---|          ERRZR  TIETE-TIET  REMOVE TABLE AND SEARCH LOOP
22626  M01S13798.dsd     +++|          SPACE  4,10
22627  M01S13799.dsd     +++|          USE    END         DUMP LITERALS BLOCK
22628  M01S13800.dsd     +++| GCE      SPACE  4,10
22629  M01S13801.dsd     +++|***       GCE - GET CONTROL POINT FROM EJT ENTRY.
22630  M01S13802.dsd     +++|*
22631  M01S13803.dsd     +++|*         *GCE* GETS THE CONTROL POINT NUMBER FOR THE JSN GIVEN.
22632  M01S13804.dsd     +++|*
22633  M01S13805.dsd     +++|*         ENTRY  (AB - AB+4) = JSN.
22634  M01S13806.dsd     +++|*
22635  M01S13807.dsd     +++|*         EXIT   (A) = CONTROL POINT NUMBER.
22636  M01S13808.dsd     +++|*                (CN) = CONTROL POINT NUMBER.
22637  M01S13809.dsd     +++|*
22638  M01S13810.dsd     +++|*         USES   CN, CM - CM+4.
22639  M01S13811.dsd     +++|*
22640  M01S13812.dsd     +++|*         CALLS  GEE.
22641  M01S13813.dsd     +++|*
22642  M01S13814.dsd     +++|*         MACROS SFA.
22643  M01S13815.dsd     +++|
22644  M01S13816.dsd     +++|
22645  M01S13817.dsd     +++| GCE      SUBR               ENTRY/EXIT
22646  M01S13818.dsd     +++|          LDN    AB
22647  M01S13819.dsd     +++|          RJM    GEE         GET EJT ENTRY
Line S13820 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22648  M02S13820.253l688 ---|          ZJN    GCE2        IF EJT ENTRY FOUND
Line S13821 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22649  M02S13821.253l688 ---| GCE1     LJM    KIE         *INCORRECT ENTRY*
22650  M01S00919.253l688 +++|          PJN    GCE2        IF EJT ENTRY FOUND
22651  M01S00920.253l688 +++| GCE1     JMP    KIE         PROCESS INCORRECT ENTRY
22652  M01S13822.dsd     +++|
22653  M01S13823.dsd     +++| GCE2     LDD    CM+4        CHECK JOB STATUS
22654  M01S13824.dsd     +++|          LPN    76
22655  M01S13825.dsd     +++|          LMN    EXJS*2
22656  M01S13826.dsd     +++|          NJN    GCE1        IF JOB NOT AT CP
22657  M01S13827.dsd     +++|          LDD    T3
22658  M01S13828.dsd     +++|          ZJN    GCE1        IF JSN = *SYS*
Line S13829 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22659  M02S13829.253l688 ---|          SFA    EJT,T3      GET CP NUMBER
22660  M01S00921.253l688 +++|          SFA    EJT
22661  M01S13830.dsd     +++|          ADN    SCHE
22662  M01S13831.dsd     +++|          CRD    CM
22663  M01S13832.dsd     +++|          LDD    CM+3
22664  M01S13833.dsd     +++|          STD    CN          SET CP NUMBER
22665  M01S13834.dsd     +++|          UJN    GCEX        RETURN
22666  M01S00724.274l797 +++|          SPACE  4,10
22667  M01S00725.274l797 +++|          CMDEND
22668  M01S13835.dsd     +++|          COMMAND (SUBSYSTEM REQUESTS.)
22669  M01S13836.dsd     +++|          SPACE  4,10
22670  M01S13837.dsd     +++|*         MACROS.
22671  M01S13838.dsd     +++|
22672  M01S13839.dsd     +++|
22673  M01S13840.dsd     +++| SUBSYST  SPACE  4,10
22674  M01S13841.dsd     +++|**        SUBSYST - GENERATE SUBSYSTEM TABLE.
22675  M01S13842.dsd     +++|*
22676  M01S13843.dsd     +++|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT
22677  M01S13844.dsd     +++|*
22678  M01S13845.dsd     +++|*         ENTRY  *NAME* = THREE CHARACTER SUBSYSTEM NAME.
22679  M01S13846.dsd     +++|*                *ID* = SUBSYSTEM ID.
22680  M01S13847.dsd     +++|*
22681  M01S13848.dsd     +++|*         GENERATE CODE TO INITIATE EACH SUBSYSTEM.
22682  M01S13849.dsd     +++|
22683  M01S13850.dsd     +++|
22684  M01S13851.dsd     +++|          PURGMAC  SUBSYST
22685  M01S13852.dsd     +++|
22686  M01S13853.dsd     +++| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB
22687  M01S13854.dsd     +++| .SUB     RMT
22688  M01S00001.dsd30   +++| .A       IFC    NE,*NM*RBF*
22689  M01S00726.274l797 +++| .A       IFC    NE,*NM*ATF*
22690  M01S13855.dsd     +++|          ENTRY  NM
22691  M01S13856.dsd     +++|          LDC    ID
22692  M01S13857.dsd     +++|          JMP    ISS
22693  M01S00002.dsd30   +++| .A       ENDIF
22694  M01S13858.dsd     +++| .SUB     RMT
22695  M01S13859.dsd     +++| SUBSYST  ENDM
22696  M01S13860.dsd     +++|          SPACE  4,10
22697  M01S13861.dsd     +++| SUB$     EQU    1           ASSEMBLE *SUBSYST* MACRO CALLS
22698  M01S13862.dsd     +++|*CALL     COMSSSD
22699  M01S13863.dsd     +++| ISS      SPACE  4,10
22700  M01S13864.dsd     +++|**        ISS - INITIATE SUBSYSTEM.
22701  M01S13865.dsd     +++|*
22702  M01S13866.dsd     +++|*         ENTRY  (A) = SUBSYSTEM ID.
22703  M01S13867.dsd     +++|*
22704  M01S13868.dsd     +++|*         USES   AB - AB+4.
22705  M01S13869.dsd     +++|*
22706  M01S13870.dsd     +++|*         CALLS  AST, IEE, PPN.
22707  M01S13871.dsd     +++|
22708  M01S13872.dsd     +++|
22709  M01S13873.dsd     +++| ISS      BSS    0           ENTRY
22710  M01S13874.dsd     +++|          ADC    SSCTL*10000  GET SSAT ENTRY
22711  M01S13875.dsd     +++|          RJM    AST
22712  M01S13876.dsd     +++|          ZJN    ISS2        IF SUBSYSTEM NOT ACTIVE
22713  M01S13877.dsd     +++| ISS1     JMP    KIE         *INCORRECT ENTRY*
22714  M01S13878.dsd     +++|
22715  M01S13879.dsd     +++| ISS2     RJM    PPN         PACK PROCEDURE NAME
22716  M01S13880.dsd     +++|          LDD    SP+4
22717  M01S13881.dsd     +++|          NJN    ISS1        IF KEYWORD TOO LONG
22718  M01S13882.dsd     +++|          LDN    ZERL
22719  M01S13883.dsd     +++|          CRD    AB
22720  M01S13884.dsd     +++|          LDC    /1DS/ISSF+/1DS/LOCK
22721  M01S13885.dsd     +++|          JMP    KAR         PROCESS *1DS* CALL
22722  M01S13886.dsd     +++|          SPACE  4,10
22723  M01S13887.dsd     +++|          LIST   G
22724  M01S13888.dsd     +++| .SUB     HERE               CODE FOR SUBSYSTEM INITIATION
22725  M01S13889.dsd     +++|          LIST   *
22726  M01S13890.dsd     +++| PPN      SPACE  4,10
22727  M01S13891.dsd     +++|**        PPN - PACK PROCEDURE NAME.
22728  M01S13892.dsd     +++|*
22729  M01S13893.dsd     +++|*         EXIT   (SP - SP+4) = *1DS* PARAMETER.
22730  M01S13894.dsd     +++|*
22731  M01S13895.dsd     +++|*         USES   CA, T1, SP - SP+4.
22732  M01S13896.dsd     +++|
22733  M01S13897.dsd     +++|
22734  M01S13898.dsd     +++| PPN      SUBR               ENTRY/EXIT
22735  M01S13899.dsd     +++|          LDN    ZERL
22736  M01S13900.dsd     +++|          CRD    SP
22737  M01S13901.dsd     +++|          LDN    SP
22738  M01S13902.dsd     +++|          STD    T1
22739  M01S13903.dsd     +++|          LDC    KBUF
22740  M01S13904.dsd     +++|          STD    CA
22741  M01S13905.dsd     +++|          LDI    CA          PACK SUBSYSTEM NAME
22742  M01S13906.dsd     +++|          SHN    6
22743  M01S13907.dsd     +++|          STI    T1
22744  M01S13908.dsd     +++|          AOD    CA
22745  M01S13909.dsd     +++|          LDI    CA
22746  M01S13910.dsd     +++|          RAI    T1
22747  M01S13911.dsd     +++|          AOD    CA
22748  M01S13912.dsd     +++|          AOD    T1
22749  M01S13913.dsd     +++|          LDI    CA
22750  M01S13914.dsd     +++|          SHN    6
22751  M01S13915.dsd     +++|          STI    T1
22752  M01S13916.dsd     +++|          AOD    CA
22753  M01S13917.dsd     +++|          AOD    T1
22754  M01S13918.dsd     +++| PPN1     LDI    CA          PACK PROCEDURE FILE NAME
22755  M01S13919.dsd     +++|          ZJN    PPN3        IF END OF COMMAND
22756  M01S13920.dsd     +++|          LMN    1R.
22757  M01S13921.dsd     +++|          ZJN    PPNX        IF *.*
22758  M01S13922.dsd     +++|          LMN    1R.
22759  M01S13923.dsd     +++|          SBN    1R9+1
22760  M01S13924.dsd     +++|          PJN    PPN3        IF CHARACTER IS NOT ALPHANUMERIC
22761  M01S13925.dsd     +++|          LDI    CA
22762  M01S13926.dsd     +++|          SHN    6
22763  M01S13927.dsd     +++|          STI    T1
22764  M01S13928.dsd     +++|          AOD    CA          ADVANCE POINTER
22765  M01S13929.dsd     +++|          LDI    CA
22766  M01S13930.dsd     +++|          LMN    1R.
22767  M01S13931.dsd     +++|          ZJN    PPN2        IF *.*
22768  M01S13932.dsd     +++|          LMN    1R.
22769  M01S13933.dsd     +++|          SBN    1R9+1
22770  M01S13934.dsd     +++|          PJN    PPN3        IF CHARACTER IS NOT ALPHANUMERIC
22771  M01S13935.dsd     +++|          LDI    CA
22772  M01S13936.dsd     +++|          RAI    T1
22773  M01S13937.dsd     +++|          AOD    CA          ADVANCE POINTER
22774  M01S13938.dsd     +++|          AOD    T1
22775  M01S13939.dsd     +++|          SBN    SP+4+1
22776  M01S13940.dsd     +++|          MJN    PPN1        IF .LT. 5 CHARACTERS ENTERED
22777  M01S13941.dsd     +++| PPN2     LJM    PPNX        RETURN
22778  M01S13942.dsd     +++|
22779  M01S13943.dsd     +++|
22780  M01S13944.dsd     +++| PPN3     JMP    KIE         *INCORRECT ENTRY*
22781  M01S00727.274l797 +++|          SPACE  4,10
22782  M01S00728.274l797 +++|          CMDEND
22783  M01S13945.dsd     +++|          COMMAND  (INTERACTIVE MESSAGE REQUESTS.)
22784  M01S13946.dsd     +++| DIA      SPACE  4,10
22785  M01S13947.dsd     +++|***       DIAL,JSN,CCC - CCC
22786  M01S00002.ns2680  +++|*         DIAL,*,CCC - CCC
22787  M01S13948.dsd     +++|*
Line S13949 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
22788  M02S13949.ns2680  ---|*         SEND MESSAGE CCC - CCC TO THE TERMINAL WITH THE
Line S13950 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
22789  M02S13950.ns2680  ---|*         SPECIFIED JSN.
22790  M01S00003.ns2680  +++|*         SEND MESSAGE CCC - CCC TO THE TERMINAL WITH THE SPECIFIED
22791  M01S00004.ns2680  +++|*         JSN.  IF AN ASTERISK (*) IS SPECIFIED FOR THE JSN, THE
22792  M01S00005.ns2680  +++|*         MESSAGE IS SENT TO ALL CONNECTED TERMINALS.
22793  M01S13951.dsd     +++|
22794  M01S13952.dsd     +++|
22795  M01S00006.ns2680  +++|          ENTRY  DIB
22796  M01S00007.ns2680  +++|          AOD    CA          SKIP SEPERATOR
22797  M01S00008.ns2680  +++|          LCN    0           SET THE DIAL ALL FLAG
22798  M01S00009.ns2680  +++|          STD    AB+3
22799  M01S00010.ns2680  +++|          LJM    DIA3.1      SET UP *1DS* CALL
22800  M01S00011.ns2680  +++|
22801  M01S00001.ns2748a +++|
Line S13953 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22802  M02S13953.ns2587  ---| DIA8     LJM    KIE         *INCORRECT ENTRY*
22803  M01S00033.ns2587  +++| DIA5     LJM    KIE         *INCORRECT ENTRY*
22804  M01S13954.dsd     +++|
22805  M01S13955.dsd     +++|          ENTRY  DIA
22806  M01S13956.dsd     +++|          RJM    CTS         CHECK INTERACTIVE STATUS
22807  M01S13957.dsd     +++|          RJM    ASN         ASSEMBLE JSN
22808  M01S13958.dsd     +++|          LDD    AB+2
Line S13959 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22809  M02S13959.ns2587  ---|          NJN    DIA8        IF JSN .GT. 4 CHARACTERS
22810  M01S00034.ns2587  +++|          NJN    DIA5        IF JSN .GT. 4 CHARACTERS
22811  M01S13960.dsd     +++|*         LDN    0           INITIALIZE TERMINAL NUMBER
22812  M01S13961.dsd     +++|*         STD    AB+3
22813  M01S13962.dsd     +++|          LDI    CA
22814  M01S13963.dsd     +++|          LMN    1R,
Line S13964 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22815  M02S13964.ns2587  ---|          NJN    DIA8        IF NOT *,*
22816  M01S00035.ns2587  +++|          NJN    DIA5        IF NOT *,*
22817  M01S13965.dsd     +++|          LDN    AB          GET EJTO
22818  M01S13966.dsd     +++|          RJM    GEE
Line S13967 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22819  M02S13967.253l688 ---|          ZJN    DIA1        IF EJT ENTRY FOUND
Line S00922 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22820  M02S00922.ns2587  ---|          PJN    DIA1        IF EJT ENTRY FOUND
Line S13968 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22821  M02S13968.ns2587  ---|          LJM    DIA6        DISPLAY MESSAGE
22822  M01S00036.ns2587  +++|          PJN    DIA2        IF EJT ENTRY FOUND
22823  M01S00037.ns2587  +++| DIA1     LDC    =C*USER NOT ACTIVE*
22824  M01S00038.ns2587  +++|          JMP    KMS         DISPLAY MESSAGE
22825  M01S13969.dsd     +++|
Line S13970 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22826  M02S13970.253l688 ---| DIA1     SFA    EJT,T3      GET ORIGIN TYPE
Line S00923 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22827  M02S00923.ns2587  ---| DIA1     SFA    EJT         GET ORIGIN TYPE
Line S00039 Modification History
M01 (Added by) ns2587
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22828  M02S00039.ns2748a ---| DIA2     SFA    EJT         GET ORIGIN TYPE
Line S13971 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22829  M02S13971.ns2748a ---|          ADN    SCLE
22830  M01S00002.ns2748a +++| DIA2     SFA    EJT         CHECK CONNECTION STATUS
22831  M01S00003.ns2748a +++|          ADK    JSNE
22832  M01S13972.dsd     +++|          CRD    CM
Line S13973 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22833  M02S13973.ns2748a ---|          LDD    CM
22834  M01S00004.ns2748a +++|          LDD    CM+4
22835  M01S00005.ns2748a +++|          SHN    -7
22836  M01S13974.dsd     +++|          LPN    17
Line S13975 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22837  M02S13975.ns2748a ---|          LMN    TXOT
Line S13976 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22838  M03S13976.ns2748a ---|          NJN    DIA8        IF JOB IS NOT INTERACTIVE
Line S13977 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22839  M03S13977.ns2748a ---|
Line S13978 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22840  M03S13978.ns2748a ---|*         GET TERMINAL NUMBER.
Line S13979 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22841  M03S13979.ns2748a ---|
Line S13980 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22842  M03S13980.ns2748a ---|          LDD    T7          GET FWA TERMINAL TABLE
Line S13981 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22843  M03S13981.ns2748a ---|          SHN    6
Line S13982 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22844  M03S13982.ns2748a ---|          ADN    /REM/VTTP
Line S13983 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22845  M03S13983.ns2748a ---|          CRD    SH
Line S13984 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22846  M03S13984.ns2748a ---|          ADN    /REM/VMNL-/REM/VTTP  GET MAXIMUM NUMBER OF TERMINALS
Line S13985 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22847  M03S13985.ns2748a ---|          CRD    SR
Line S13986 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22848  M03S13986.ns2748a ---|          LDD    SR+4        SAVE MAXIMUM NUMBER OF TERMINALS
Line S13987 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22849  M03S13987.ns2748a ---|          SBN    /REM/VPST
Line S13988 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22850  M03S13988.ns2748a ---|          STD    T5
Line S13989 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22851  M03S13989.ns2748a ---|          LDD    SH+1
Line S13990 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22852  M03S13990.ns2748a ---| DIA2     SHN    6
Line S13991 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22853  M03S13991.ns2748a ---|          ADD    T7
Line S13992 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22854  M03S13992.ns2748a ---|          SHN    6
Line S13993 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22855  M03S13993.ns2748a ---|          ADD    SH+2
Line S13994 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22856  M03S13994.ns2748a ---|          ERRNZ  /REM/VUIT   NOT FIRST WORD OF TT ENTRY
Line S13995 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22857  M03S13995.ns2748a ---|          CRD    SR
Line S13996 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22858  M03S13996.ns2748a ---|          ADN    /REM/VFST-/REM/VUIT  GET NEXT JSN
Line S13997 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22859  M03S13997.ns2748a ---|          CRD    CM
Line S13998 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22860  M03S13998.ns2748a ---|          LDD    SR
Line S13999 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22861  M03S13999.ns2748a ---|          NJN    DIA5        IF TERMINAL TABLE ENTRY USED
Line S14000 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22862  M03S14000.ns2748a ---| DIA3     AOD    AB+3        INCREMENT TERMINAL NUMBER
Line S14001 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22863  M03S14001.ns2748a ---|          SOD    T5          DECREMENT TERMINAL COUNT
Line S14002 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22864  M03S14002.ns2748a ---|          PJN    DIA4        IF NOT ALL TERMINALS SEARCHED
Line S14003 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22865  M03S14003.ns2748a ---|          LJM    DIA6        DISPLAY MESSAGE
Line S14004 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22866  M03S14004.ns2748a ---|
Line S14005 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22867  M03S14005.ns2748a ---| DIA4     LDN    /REM/VTTL   GET NEXT TERMINAL TABLE ENTRY
Line S14006 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22868  M03S14006.ns2748a ---|          RAD    SH+2
Line S14007 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22869  M03S14007.ns2748a ---|          SHN    -14
Line S14008 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22870  M03S14008.ns2748a ---|          RAD    SH+1
Line S14009 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22871  M03S14009.ns2748a ---|          UJN    DIA2        LOOP
Line S14010 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22872  M03S14010.ns2748a ---|
Line S14011 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22873  M03S14011.ns2748a ---| DIA5     LDD    CM
Line S14012 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22874  M03S14012.ns2748a ---|          LMD    AB
Line S14013 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22875  M03S14013.ns2748a ---|          NJN    DIA3        IF JSN DOES NOT MATCH
Line S14014 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22876  M03S14014.ns2748a ---|          LDD    CM+1
Line S14015 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22877  M03S14015.ns2748a ---|          LMD    AB+1
Line S14016 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
M03 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22878  M03S14016.ns2748a ---|          NJN    DIA3        IF JSN DOES NOT MATCH
Line S00040 Modification History
M01 (Added by) ns2587
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22879  M02S00040.ns2748a ---|          NJN    DIA5        IF JOB IS NOT INTERACTIVE
22880  M01S00006.ns2748a +++|          LMN    OLCS
22881  M01S00007.ns2748a +++|          NJN    DIA5        IF JOB IS NOT ONLINE CONNECTED
22882  M01S00008.ns2748a +++|          LDM.   CMEI
22883  M01S00009.ns2748a +++|          ZJN    DIA2.1      IF NOT *CME* MACHINE
22884  M01S00010.ns2748a +++|          STM    DIAB
22885  M01S00011.ns2748a +++| DIA2.1   LDC    /REM/VCPT*200  GET *RA* FOR *IAF*
22886  M01S00012.ns2748a +++| DIAB     ADN    FLSW
22887  M01S00013.ns2748a +++|*         ADN    FLSW+1      (*CME* MACHINE)
22888  M01S00014.ns2748a +++|          CRD    T4
22889  M01S00015.ns2748a +++|          LRD    T4+1        SET R REGISTER
22890  M01S00041.ns2587  +++|          RJM    GTN         GET TERMINAL NUMBER
Line S00042 Modification History
M01 (Added by) ns2587
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22891  M02S00042.ns2748a ---|          MJN    DIA1        IF NO MATCH
Line S14017 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22892  M02S14017.ns2748a ---|          LDC    LDSP         GET *RDF* MESSAGE TERMINAL NUMBER
22893  M01S00016.ns2748a +++|          MJN    DIA1        IF JOB NOT FOUND IN TERMINAL TABLE
22894  M01S00017.ns2748a +++|          LDC    LDSP        GET *RDF* MESSAGE TERMINAL NUMBER
Line S14018 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22895  M02S14018.ns2587  ---|          CRD    SR
Line S14019 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22896  M02S14019.ns2587  ---|          LDD    SR+2
22897  M01S00043.ns2587  +++|          CRD    SH
22898  M01S00044.ns2587  +++|          LDD    SH+2
22899  M01S14020.dsd     +++|          SHN    14
Line S14021 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22900  M02S14021.ns2587  ---|          LMD    SR+3
22901  M01S00045.ns2587  +++|          LMD    SH+3
22902  M01S14022.dsd     +++|          SBN    LODS
22903  M01S14023.dsd     +++|          CRD    CM
22904  M01S14024.dsd     +++|          LDD    CM+1
22905  M01S14025.dsd     +++|          LMD    AB+1
Line S14026 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22906  M02S14026.ns2587  ---|          NJN    DIA5.1      IF JSN DOES NOT MATCH OPERATOR DISPLAY
22907  M01S00046.ns2587  +++|          NJN    DIA3        IF JSN DOES NOT MATCH OPERATOR DISPLAY
22908  M01S14027.dsd     +++|          LDD    CM
22909  M01S14028.dsd     +++|          LMD    AB
Line S14029 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22910  M02S14029.ns2587  ---|          NJN    DIA5.1      IF JSN DOES NOT MATCH
22911  M01S00047.ns2587  +++|          NJN    DIA3        IF JSN DOES NOT MATCH
22912  M01S14030.dsd     +++|          LDD    CM+2
Line S14031 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22913  M02S14031.ns2587  ---|          ZJN    DIA5.1      IF NOT A MESSAGE FROM *1TM*
22914  M01S00048.ns2587  +++|          ZJN    DIA3        IF NOT A MESSAGE FROM *1TM*
22915  M01S14032.dsd     +++|          LDN    ZERL        CLEAR OPERATOR MESSAGE AREA
22916  M01S14033.dsd     +++|          CRD    CM
22917  M01S14034.dsd     +++|          LDN    1
22918  M01S14035.dsd     +++|          STD    CM
Line S14036 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22919  M02S14036.ns2587  ---|          LDD    SR+2
22920  M01S00049.ns2587  +++|          LDD    SH+2
22921  M01S14037.dsd     +++|          SHN    14
Line S14038 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22922  M02S14038.ns2587  ---|          LMD    SR+3
22923  M01S00050.ns2587  +++|          LMD    SH+3
22924  M01S14039.dsd     +++|          SBN    LODS
22925  M01S14040.dsd     +++|          CWD    CM
22926  M01S14041.dsd     +++|          LDN    1
22927  M01S14042.dsd     +++|          STD    CM+1
22928  M01S14043.dsd     +++|          LDC    OPRL
22929  M01S14044.dsd     +++|          STD    CM+4
22930  M01S14045.dsd     +++|          LDD    MA
22931  M01S14046.dsd     +++|          CWM    DIAA,ON
22932  M01S14047.dsd     +++|          MONITOR  UTEM
22933  M01S00018.ns2748a +++|          LRD    T4+1        SET R REGISTER
Line S14048 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22934  M02S14048.ns2587  ---| DIA5.1   LDD    SH+1
22935  M01S00051.ns2587  +++| DIA3     LDD    SR+1
22936  M01S14049.dsd     +++|          SHN    6
22937  M01S14050.dsd     +++|          ADD    T7
22938  M01S14051.dsd     +++|          SHN    6
Line S14052 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22939  M02S14052.ns2587  ---|          ADD    SH+2
22940  M01S00052.ns2587  +++|          ADD    SR+2
22941  M01S14053.dsd     +++|          ADN    /REM/VDCT   GET FIRST POT OF OUTPUT MESSAGE
22942  M01S14054.dsd     +++|          CRD    SR
22943  M01S14055.dsd     +++|          ADN    /REM/VSTT-/REM/VDCT  GET POT COUNT/COMMAND TABLE INDEX
22944  M01S14056.dsd     +++|          CRD    SH
22945  M01S14057.dsd     +++|          LDD    SR+4
22946  M01S14058.dsd     +++|          ADD    SH+4
Line S14059 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22947  M02S14059.ns2587  ---|          NJN    DIA7        IF OUTPUT QUEUED
22948  M01S00053.ns2587  +++|          NJN    DIA4        IF OUTPUT QUEUED
22949  M01S14060.dsd     +++|
22950  M01S14061.dsd     +++|*         CALL *1DS*.
22951  M01S14062.dsd     +++|
Line S14063 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2680
Seq #  *Modification Id* Act 
----------------------------+
22952  M02S14063.ns2680  ---|          LDN    /1DS/DIAF
22953  M01S00012.ns2680  +++| DIA3.1   LDK    /1DS/DIAF
22954  M01S14064.dsd     +++|          STD    AB+2
22955  M01S14065.dsd     +++|          AOD    CA
22956  M01S14066.dsd     +++|          UJN    PTM         PROCESS INTERACTIVE MESSAGE
22957  M01S14067.dsd     +++|
Line S14068 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22958  M02S14068.ns2587  ---| DIA6     LDC    =C*USER NOT ACTIVE*
Line S14069 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22959  M02S14069.ns2587  ---|          JMP    KMS         DISPLAY MESSAGE
Line S14070 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22960  M02S14070.ns2587  ---|
Line S14071 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
22961  M02S14071.ns2587  ---| DIA7     LDC    =C*OUTPUT BUSY*
22962  M01S00054.ns2587  +++| DIA4     LDC    =C*OUTPUT BUSY*
22963  M01S14072.dsd     +++|          JMP    KMS         DISPLAY MESSAGE
22964  M01S14073.dsd     +++|
22965  M01S14074.dsd     +++| DIAA     VFD    1/0,5/0,6/1,6/59D,42/0  CLEAR BIT
22966  M01S14075.dsd     +++| WAR      SPACE  4,10
22967  M01S14076.dsd     +++|***       WARN,CCC - CCC
22968  M01S14077.dsd     +++|*         WARN.
22969  M01S14078.dsd     +++|*
22970  M01S14079.dsd     +++|*         SEND WARNING MESSAGE CCC - CCC TO ALL TERMINAL USERS.
22971  M01S14080.dsd     +++|*         IF CCC - CCC IS NULL, CLEAR PREVIOUS WARNING MESSAGE.
22972  M01S14081.dsd     +++|
22973  M01S14082.dsd     +++|
22974  M01S14083.dsd     +++|          ENTRY  WAR
22975  M01S14084.dsd     +++|          LDN    /1DS/WARF
22976  M01S14085.dsd     +++|          STD    AB+2
22977  M01S14086.dsd     +++|          LDM    KBUF+6
22978  M01S14087.dsd     +++|          ZJN    PTM1        IF CLEARING PREVIOUS MESSAGE
22979  M01S14088.dsd     +++|          LDC    KBUF+5      SET START OF BUFFER ADDRESS
22980  M01S14089.dsd     +++|*         UJN    PTM         PROCESS INTERACTIVE MESSAGE
22981  M01S14090.dsd     +++| PTM      SPACE  4,10
22982  M01S14091.dsd     +++|**        PTM - PROCESS INTERACTIVE MESSAGE.
22983  M01S14092.dsd     +++|*
22984  M01S14093.dsd     +++|*         ENTRY  (A) = STARTING KEYBOARD BUFFER ADDRESS.
22985  M01S14094.dsd     +++|*                (AB+2) = *1DS* FUNCTION TO CALL.
22986  M01S14095.dsd     +++|*                (AB+3) = 0, IF *WARN* OR *MESSAGE*.
22987  M01S14096.dsd     +++|*                       = TERMINAL NUMBER, IF *DIAL*.
22988  M01S00013.ns2680  +++|*                       = 7777 IF DIALING ALL TERMINALS.
22989  M01S14097.dsd     +++|
22990  M01S14098.dsd     +++|
22991  M01S14099.dsd     +++| PTM      BSS    0           ENTRY
22992  M01S14100.dsd     +++|          SBK    KBUF        KEYBOARD BUFFER OFFSET
22993  M01S14101.dsd     +++|          SHN    6
22994  M01S14102.dsd     +++| PTM1     STD    AB+4
22995  M01S14103.dsd     +++|          RJM    CTS         CHECK INTERACTIVE STATUS
Line S14104 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22996  M02S14104.ns2748a ---|          SHN    -7
Line S14105 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
22997  M02S14105.ns2748a ---|          RAD    AB+4        SET CP NUMBER
22998  M01S00019.ns2748a +++|          LDN    /REM/VCPT   SET CP NUMBER
22999  M01S00020.ns2748a +++|          RAD    AB+4
23000  M01S14106.dsd     +++|          LDC    /1DS/LOCK+/1DS/CMOV
23001  M01S14107.dsd     +++|          RAD    AB+2
23002  M01S14108.dsd     +++|          JMP    KAR         PROCESS *1DS* CALL
23003  M01S14109.dsd     +++| CTS      SPACE  4,10
23004  M01S14110.dsd     +++|**        CTS - CHECK INTERACTIVE STATUS.
23005  M01S14111.dsd     +++|*
Line S14112 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
23006  M02S14112.ns2748a ---|*         EXIT   (A) = *IAF* CPA OF *FLSW* WORD.
Line S14113 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
23007  M02S14113.ns2748a ---|*                (T7) = *IAF* RA.
Line S14114 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
23008  M02S14114.ns2748a ---|*
23009  M01S14115.dsd     +++|*         ERROR  TO *KMS*, IF *IAF* NOT ACTIVE.
23010  M01S14116.dsd     +++|*
23011  M01S14117.dsd     +++|*         USES   T4 - CM.
23012  M01S14118.dsd     +++|*
23013  M01S14119.dsd     +++|*         CALLS  FSS.
23014  M01S14120.dsd     +++|
Line S14121 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
23015  M02S14121.ns2748a ---| CTS1     SHN    7           FETCH *IAF* RA
Line S14122 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
23016  M02S14122.ns2748a ---|          ADN    FLSW
Line S14123 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
23017  M02S14123.ns2748a ---|          CRD    T4
23018  M01S14124.dsd     +++|
23019  M01S14125.dsd     +++| CTS      SUBR               ENTRY/EXIT
23020  M01S14126.dsd     +++|          LDC    IFSI        FIND *IAF*
23021  M01S14127.dsd     +++|          RJM    FSS
Line S14128 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
23022  M02S14128.ns2748a ---|          NJN    CTS1        IF *IAF* ACTIVE
23023  M01S00021.ns2748a +++|          NJN    CTSX        IF *IAF* ACTIVE
23024  M01S14129.dsd     +++|          LDC    =C*IAF NOT ACTIVE*
23025  M01S14130.dsd     +++|          LJM    KMS         DISPLAY MESSAGE
Line S14131 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
23026  M02S14131.ns2587  ---|
Line S14132 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
23027  M02S14132.ns2587  ---|
Line S14133 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
23028  M02S14133.ns2587  ---| TN       EQU    AB+4
Line S14134 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
23029  M02S14134.ns2587  ---| TA       EQU    T7
Line S14135 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2587
Seq #  *Modification Id* Act 
----------------------------+
23030  M02S14135.ns2587  ---| TT       EQU    T5
23031  M01S00055.ns2587  +++|          SPACE  4,10
23032  M01S00056.ns2587  +++|**        COMMON DECKS.
23033  M01S00057.ns2587  +++|
23034  M01S00058.ns2587  +++|
23035  M01S00059.ns2587  +++|*CALL     COMPGTN
Line S14136 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd81
Seq #  *Modification Id* Act 
----------------------------+
23036  M02S14136.dsd81   ---| COMMON   SPACE  4,10
Line S14137 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd81
Seq #  *Modification Id* Act 
----------------------------+
23037  M02S14137.dsd81   ---|**        COMMON DECKS.
Line S14138 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd81
Seq #  *Modification Id* Act 
----------------------------+
23038  M02S14138.dsd81   ---|
Line S14139 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd81
Seq #  *Modification Id* Act 
----------------------------+
23039  M02S14139.dsd81   ---|
Line S14140 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd81
Seq #  *Modification Id* Act 
----------------------------+
23040  M02S14140.dsd81   ---|*CALL     COMPSTA
23041  M01S14141.dsd     +++|          SPACE  4,10
Line S14142 Modification History
M01 (Added by) dsd
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
23042  M02S14142.274l797 ---|          USE    END         DUMP LITERALS BLOCK
23043  M01S00729.274l797 +++|          CMDEND
Line S14143 Modification History
M01 (Added by) dsd
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
23044  M02S14143.251l664 ---|          COMMAND (BATCHIO REQUESTS.)
23045  M01S00959.251l664 +++|          COMMAND  (BATCHIO REQUESTS - PART 1.)
23046  M01S14144.dsd     +++| BKF      SPACE  4,10
23047  M01S14145.dsd     +++|***       BKSPF,XXX,YY.
23048  M01S14146.dsd     +++|*
23049  M01S14147.dsd     +++|*         BACKSPACE FILE PRINTING ON *BATCHIO* EQUIPMENT XXX, YY FILES.
23050  M01S14148.dsd     +++|
23051  M01S14149.dsd     +++|
Proceed to Part 21
cdc/nos2.source/opl.opl871/deck/dsd.020.txt ยท Last modified: by 127.0.0.1