User Tools

Site Tools


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

Deck 1DS

41 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1ds     +++|          IDENT  1DS,IDS
00002  M01S00002.1ds     +++|          PERIPH
00003  M01S00003.1ds     +++|          BASE   MIXED
00004  M01S00004.1ds     +++|          SST
00005  M01S00005.1ds     +++|*COMMENT  1DS - DSD REQUEST PROCESSOR.
00006  M01S00006.1ds     +++| EQV$     EQU    1           DO NOT VERIFY EQUIPMENT IN *COMPRSS*
Line S00007 Modification History
M01 (Added by) 1ds
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.1ds     +++|          TITLE  1DS - DSD REQUEST PROCESSOR.
00010  M01S00009.1ds     +++|          SPACE  4,10
00011  M01S00010.1ds     +++|***       1DS - DSD REQUEST PROCESSOR.
00012  M01S00011.1ds     +++|*         G. R. MANSFIELD.  70/10/24.
00013  M01S00012.1ds     +++|*         R. E. DENNIS.  74/10/15.
00014  M01S00013.1ds     +++|*         C. B. LOSCHEIDER.  78/09/11.
00015  M01S00014.1ds     +++|          SPACE  4,10
00016  M01S00015.1ds     +++|***              *1DS* PROCESSES FUNCTIONS FOR *DSD* WHICH ARE NOT
00017  M01S00016.1ds     +++|*         POSSIBLE FOR *DSD* TO PROCESS.  *1DS* IS CALLED BY
00018  M01S00017.1ds     +++|*         *1SJ* TO INITIATE THE JOB *CMS*.  *1DS* IS CALLED
00019  M01S00018.1ds     +++|*         BY *6DI* TO INITIATE THE *LBC* JOB.
00020  M01S00019.1ds     +++|          SPACE  4,10
00021  M01S00020.1ds     +++|***       PROGRAMMING CONSIDERATIONS.
00022  M01S00021.1ds     +++|*
00023  M01S00022.1ds     +++|**        FOR A DETAILED EXPLAINATION OF THE *DSD*/*1DS*
00024  M01S00023.1ds     +++|*         INTERFACE, SEE COMMON DECK *COMS1DS*.
00025  M01S00024.1ds     +++|          SPACE  4,15
00026  M01S00025.1ds     +++|***       CALL.
00027  M01S00026.1ds     +++|*
Line S00027 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00027.ns2765  ---|*T        18/1DS, 6/SC, 2/CP, 1/LK, 3/LOG, 6/REQ, 12/P1, 12/P2
Figure

01112232429P2P1REQ303233343536414259LOGLKCPSC1DS

00029  M01S00001.ns2765  +++|*T        18/1DS, 6/SC, 1/C, 1/L, 3/LOG, 6/REQ, 12/P1, 12/P2
Figure

01112232429P2P1REQ3032333435404158LOGLCSC1DS

00030  M01S00028.1ds     +++|*
00031  M01S00029.1ds     +++|*         SC     SYSTEM CONTROL POINT.
Line S00030 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
00032  M02S00030.ns2765  ---|*         CP     NON-ZERO  CONTROL POINT MOVE REQUIRED.
Line S00031 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2765
Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00031.ns2765  ---|*         LK     LOCKED BUFFER.
00034  M01S00002.ns2765  +++|*         C      CONTROL POINT CHANGE REQUIRED (CP NUMBER IN P2).
00035  M01S00003.ns2765  +++|*         L      LOCKED BUFFER.
00036  M01S00032.1ds     +++|*         LOG    LOGGING CONTROL BITS.
00037  M01S00033.1ds     +++|*         REQ    FUNCTION CODE.
00038  M01S00034.1ds     +++|*         P1     PARAMETER 1.
00039  M01S00035.1ds     +++|*         P2     PARAMETER 2.
00040  M01S00036.1ds     +++|          SPACE  4,10
00041  M01S00037.1ds     +++|***       DAYFILE MESSAGES.
00042  M01S00038.1ds     +++|*
00043  M01S00039.1ds     +++|*
00044  M01S00040.1ds     +++|*         *DEADSTART SEQUENCING FAILED.*
00045  M01S00041.1ds     +++|*                THE DEADSTART SEQUENCING JOB COULD NOT BE INITIATED
00046  M01S00042.1ds     +++|*                AFTER SEVERAL RETRIES BECAUSE OF AN I/O ERROR
00047  M01S00043.1ds     +++|*                ENCOUNTERED ON A MASS STORAGE DEVICE.
00048  M01S00044.1ds     +++|          SPACE  4,15
00049  M01S00045.1ds     +++|***       ACCOUNT DAYFILE MESSAGES.
00050  M01S00046.1ds     +++|*
00051  M01S00047.1ds     +++|*
00052  M01S00048.1ds     +++|*         *ABLQ, C1, JSN, YYMMDD, HHMMSS, DC.*
00053  M01S00049.1ds     +++|*         *ABLQ, C2, XXXXXX.XXXKUNS.*
00054  M01S00050.1ds     +++|*                QUEUED FILE WITH JOB SEQUENCE NAME JSN AND
00055  M01S00051.1ds     +++|*                DISPOSITION CODE DC HAS BEEN ROUTED TO THE
00056  M01S00052.1ds     +++|*                QUEUE ON DATE YYMMDD AT TIME HHMMSS.
00057  M01S00053.1ds     +++|*                THE FILE HAS A DISPOSITION CODE OF DC AND IS
00058  M01S00054.1ds     +++|*                XXXXXX.XXX THOUSAND PRU-S IN LENGTH.
00059  M01S00055.1ds     +++|*
00060  M01S00056.1ds     +++|*         *ACDT, DATE YY/MM/DD.*
00061  M01S00057.1ds     +++|*                WHERE YY=YEAR, MM=MONTH, DD=DAY OF THE NEW
00062  M01S00058.1ds     +++|*                DATE ENTERED BY THE OPERATOR.
00063  M01S00059.1ds     +++|*
00064  M01S00060.1ds     +++|*         *ACDT, TIME HH.MM.SS.*
00065  M01S00061.1ds     +++|*                WHERE HH=HOURS, MM=MINUTES, SS=SECONDS OF THE
00066  M01S00062.1ds     +++|*                NEW TIME ENTERED BY THE OPERATOR.
00067  M01S00063.1ds     +++|*
00068  M01S00064.1ds     +++|*         *MSEQ, NNN, LEVEL1, LEVEL2.*
00069  M01S00065.1ds     +++|*                WHERE NNN=EST ORDINAL, LEVEL1=LOWER ACCESS LEVEL,
00070  M01S00066.1ds     +++|*                LEVEL2=UPPER ACCESS LEVEL ENTERED BY THE OPERATOR
00071  M01S00067.1ds     +++|*                VIA THE *SECUREQ* COMMAND.
00072  M01S00068.1ds     +++|*
00073  M01S00069.1ds     +++|*         *MSOT, OT, LEVEL1, LEVEL2.*
00074  M01S00070.1ds     +++|*                WHERE OT=ORIGIN TYPE (IN DISPLAY CODE),
00075  M01S00071.1ds     +++|*                LEVEL1=LOWER ACCESS LEVEL, LEVEL2=UPPER ACCESS LEVEL
00076  M01S00072.1ds     +++|*                ENTERED BY THE OPERATOR VIA THE *SECURES* COMMAND.
00077  M01S00073.1ds     +++|*
00078  M01S00074.1ds     +++|*         *MSSA, USERNAME.*
00079  M01S00075.1ds     +++|*                WHERE USERNAME=VALID USER NAME (I.E., A USER WITH
00080  M01S00076.1ds     +++|*                SECURITY ADMINISTRATOR PRIVILEGES) ENTERED BY THE
00081  M01S00077.1ds     +++|*                OPERATOR VIA THE *SECURITY-UNLOCK* COMMAND.
00082  M01S00078.1ds     +++|*
00083  M01S00079.1ds     +++|*         *MSSI, USERNAME.*
00084  M01S00080.1ds     +++|*                WHERE USERNAME=INCORRECT USER NAME (I.E., A USER WHO
00085  M01S00081.1ds     +++|*                DOES NOT HAVE SECURITY ADMINISTRATOR PRIVILEGES)
00086  M01S00082.1ds     +++|*                ENTERED BY THE OPERATOR VIA THE
00087  M01S00083.1ds     +++|*                *SECURITY-UNLOCK* COMMAND.
00088  M01S00084.1ds     +++|          SPACE  4,20
00089  M01S00085.1ds     +++|****      DIRECT LOCATION ASSIGNMENTS.
00090  M01S00086.1ds     +++|
00091  M01S00087.1ds     +++|
00092  M01S00001.271l716 +++| PP       EQU    LA          POT POINTER
00093  M01S00088.1ds     +++| S1       EQU    16          SCRATCH CELL
00094  M01S00089.1ds     +++| S2       EQU    17          SCRATCH CELL
00095  M01S00002.271l716 +++| PA       EQU    S1 - S2     POT ADDRESS (2 LOCATIONS)
00096  M01S00090.1ds     +++| FS       EQU    20 - 24     FST ENTRY (5 LOCATIONS)
00097  M01S00091.1ds     +++| MS       EQU    FS+5        MST POINTER
00098  M01S00092.1ds     +++| QA       EQU    26          FNT ORDINAL
00099  M01S00093.1ds     +++| CA       EQU    27          COMMAND ADDRESS
00100  M01S00094.1ds     +++| CN       EQU    30 - 34     CM WORD BUFFER (5 LOCATIONS)
00101  M01S00095.1ds     +++| JF       EQU    35          JOB FIELD LENGTH
00102  M01S00096.1ds     +++| TN       EQU    36          TABLE NUMBER
00103  M01S00097.1ds     +++| FG       EQU    37          CPU FLAGS
00104  M01S00098.1ds     +++| AB       EQU    40 - 44     CM WORD BUFFER (5 LOCATIONS)
Line S00099 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00105  M02S00099.271l716 ---| PP       EQU    45          POT POINTER
Line S00100 Modification History
M01 (Added by) 1ds
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00106  M02S00100.271l716 ---| PA       EQU    46 - 47     POT ADDRESS (2 LOCATIONS)
00107  M01S00003.271l716 +++| NC       EQU    45          SYSTEM CP NUMBER
00108  M01S00101.1ds     +++| JS       EQU    57          JOB SERVICE CLASS
00109  M01S00102.1ds     +++| FN       EQU    60 - 64     CM WORD BUFFER (5 LOCATIONS)
00110  M01S00103.1ds     +++| SR       EQU    FN          SCRATCH (5 LOCATIONS)
00111  M01S00104.1ds     +++| FV       EQU    65          CONSTANT FIVE
00112  M01S00105.1ds     +++| JC       EQU    66          JOB COUNTER
00113  M01S00106.1ds     +++| BA       EQU    67          SECTOR BUFFER ADDRESS
00114  M01S00107.1ds     +++|****
00115  M01S00108.1ds     +++|          SPACE  4,10
00116  M01S00109.1ds     +++|*         ASSEMBLY CONSTANTS.
00117  M01S00110.1ds     +++|
00118  M01S00111.1ds     +++|
00119  M01S00112.1ds     +++| CPMR     EQU    10D         CONTROL POINT MOVE RETRY COUNT
00120  M01S00113.1ds     +++| DFFL     EQU    60000       DEFAULT FIELD LENGTH
00121  M01S00114.1ds     +++| DFTL     EQU    777777      DEFAULT JOB STEP TIME LIMIT
00122  M01S00115.1ds     +++|          SPACE  4,10
00123  M01S00116.1ds     +++|*CALL     COMPMAC
00124  M01S00117.1ds     +++|*CALL     COMSACC
00125  M01S00118.1ds     +++|          QUAL   BIO
00126  M01S00119.1ds     +++|*CALL     COMSBIO
00127  M01S00120.1ds     +++|          QUAL   *
00128  M01S00121.1ds     +++|*CALL     COMSCPS
00129  M01S00122.1ds     +++|*CALL     COMSDFS
00130  M01S00123.1ds     +++|          QUAL   DSL
00131  M01S00124.1ds     +++|*CALL     COMSDSL
00132  M01S00125.1ds     +++|          QUAL   *
00133  M01S00126.1ds     +++|*CALL     COMSDSP
00134  M01S00127.1ds     +++|*CALL     COMSEJT
00135  M01S00128.1ds     +++|          QUAL   EVENT
00136  M01S00129.1ds     +++|*CALL     COMSEVT
00137  M01S00130.1ds     +++|          QUAL   *
00138  M01S00131.1ds     +++|*CALL     COMSHIO
00139  M01S00132.1ds     +++|*CALL     COMSJIO
00140  M01S00133.1ds     +++|          QUAL   LSD
00141  M01S00134.1ds     +++|*CALL     COMSLSD
00142  M01S00135.1ds     +++|          QUAL   *
00143  M01S00136.1ds     +++|*CALL     COMSMLS
00144  M01S00137.1ds     +++|          QUAL   MMF
00145  M01S00138.1ds     +++|*CALL     COMSMMF
00146  M01S00139.1ds     +++|          QUAL   *
00147  M01S00140.1ds     +++|          QUAL   MTX
00148  M01S00141.1ds     +++|*CALL     COMSMTX
00149  M01S00142.1ds     +++|          QUAL   *
00150  M01S00143.1ds     +++|*CALL     COMSMSP
00151  M01S00144.1ds     +++|*CALL     COMSMST
00152  M01S00145.1ds     +++|*CALL     COMSPFM
00153  M01S00146.1ds     +++|          QUAL   REM
00154  M01S00147.1ds     +++|*CALL     COMSREM
00155  M01S00148.1ds     +++|          QUAL   *
00156  M01S00004.ns2765  +++|          QUAL   RSX
00157  M01S00005.ns2765  +++|*CALL     COMSRSX
00158  M01S00006.ns2765  +++|          QUAL   *
00159  M01S00149.1ds     +++|*CALL     COMSSCD
00160  M01S00150.1ds     +++|*CALL     COMSSSD
00161  M01S00151.1ds     +++|*CALL     COMSSSE
00162  M01S00152.1ds     +++|*CALL     COMSPIM
00163  M01S00153.1ds     +++|*CALL     COMSPRD
00164  M01S00154.1ds     +++|*CALL     COMSTCM
00165  M01S00155.1ds     +++|*CALL     COMSWEI
00166  M01S00156.1ds     +++|*CALL     COMSZOL
00167  M01S00157.1ds     +++|          QUAL   1DS
00168  M01S00158.1ds     +++|          LIST   X
00169  M01S00159.1ds     +++|*CALL     COMS1DS
00170  M01S00160.1ds     +++|          LIST   *
00171  M01S00161.1ds     +++|          QUAL   *
00172  M01S00162.1ds     +++|*CALL     COMS1MV
00173  M01S00163.1ds     +++|          TITLE  MACRO DEFINITIONS.
00174  M01S00164.1ds     +++| BIODF    SPACE  4,20
00175  M01S00165.1ds     +++|**        BIODF - DEFINE *BIO* DEVICE/FUNCTIONS.
00176  M01S00166.1ds     +++|*
00177  M01S00167.1ds     +++|*         BIODF  FUNC,(DV,DV,...DV)
00178  M01S00168.1ds     +++|*
00179  M01S00169.1ds     +++|*         ENTRY  *FUNC* = *BIO* REQUEST FUNCTION.
00180  M01S00170.1ds     +++|*                *DV* = DEVICE TYPE.
00181  M01S00171.1ds     +++|*
00182  M01S00172.1ds     +++|*         THIS MACRO WORKS LIKE THE *INDEX* MACRO DEFINED IN *COMPMAC*.
00183  M01S00173.1ds     +++|*         IT IS USED TO GENERATE A TABLE OF ALLOWABLE DEVICES FOR
00184  M01S00174.1ds     +++|*         REQUESTS TO *BIO*.  ENTRIES IN THE TABLE ARE PLACED
00185  M01S00175.1ds     +++|*         BETWEEN THE FIRST *BIODF* AND LAST *BIODF* SHOWN BELOW.
00186  M01S00176.1ds     +++|*
00187  M01S00177.1ds     +++|*TAG      BIODF
00188  M01S00178.1ds     +++|*         .
00189  M01S00179.1ds     +++|*         .
00190  M01S00180.1ds     +++|*         BIODF  MAXFUNC
00191  M01S00181.1ds     +++|*
00192  M01S00182.1ds     +++|*         MACROS .1.
00193  M01S00183.1ds     +++|
00194  M01S00184.1ds     +++|
00195  M01S00185.1ds     +++|          PURGMAC  BIODF
00196  M01S00186.1ds     +++|
00197  M01S00187.1ds     +++|          MACRO  BIODF,A,B,C
00198  M01S00188.1ds     +++|          MACREF BIODF
00199  M01S00189.1ds     +++|          IFC    NE,$A$$
00200  M01S00190.1ds     +++| A        BSS    0
00201  M01S00191.1ds     +++| .3       SET    A
00202  M01S00192.1ds     +++|          ELSE   8
00203  M01S00193.1ds     +++|          ORG    .3+/BIO/_B
00204  M01S00194.1ds     +++|          IFC    NE,$C$$,5
00205  M01S00195.1ds     +++|          QUAL   BIO
00206  M01S00196.1ds     +++|          LOC    B
00207  M01S00197.1ds     +++|          .1     (C)
00208  M01S00198.1ds     +++|          CON    .1
00209  M01S00199.1ds     +++|          QUAL   *
00210  M01S00200.1ds     +++|          BSS    0
00211  M01S00201.1ds     +++| BIODF    ENDM
00212  M01S00001.ns2680  +++| CHKERR   SPACE  4,10
00213  M01S00002.ns2680  +++|**        CHKERR - CHECK ERROR FLAG.
00214  M01S00003.ns2680  +++|*
00215  M01S00004.ns2680  +++|*         RETURNS BYTE ONE OF *STSW*.
00216  M01S00005.ns2680  +++|
00217  M01S00006.ns2680  +++|
00218  M01S00007.ns2680  +++|          PURGMAC  CHKERR
00219  M01S00008.ns2680  +++|
00220  M01S00009.ns2680  +++| CHKERR   MACRO
00221  M01S00010.ns2680  +++|          MACREF CHKERR
00222  M01S00011.ns2680  +++|          LDD    CP
00223  M01S00012.ns2680  +++|          ADK    STSW
00224  M01S00013.ns2680  +++|          CRD    CM
00225  M01S00014.ns2680  +++|          LDD    CM+1
00226  M01S00015.ns2680  +++|          ENDM
00227  M01S00202.1ds     +++| FCN      SPACE  4,10
00228  M01S00203.1ds     +++|**        FCN - DEFINE FUNCTION PROCESSOR.
00229  M01S00204.1ds     +++|*
00230  M01S00205.1ds     +++|*         FCN    CODE,NAME
00231  M01S00206.1ds     +++|*
00232  M01S00207.1ds     +++|*         ENTRY  *CODE* = FUNCTION CODE.
00233  M01S00208.1ds     +++|*                *NAME* = FUNCTION PROCESSING ROUTINE NAME.
00234  M01S00209.1ds     +++|
00235  M01S00210.1ds     +++|
00236  M01S00211.1ds     +++| FCN      MACRO  C,N
00237  M01S00212.1ds     +++|          INDEX  C*2,N-N/10000B*10000B
00238  M01S00213.1ds     +++|          CON    N/10000B
00239  M01S00214.1ds     +++|          ENDM
00240  M01S00215.1ds     +++| OVERLAY  SPACE  4,10
00241  M01S00216.1ds     +++|**        OVERLAY - DEFINE THE SECONDARY OVERLAY(S).
00242  M01S00217.1ds     +++|*
00243  M01S00218.1ds     +++|*         OVERLAY (TEXT)
00244  M01S00219.1ds     +++|*         ENTRY  *TEXT* = TEXT OF SUBTITLE.
00245  M01S00220.1ds     +++|
00246  M01S00221.1ds     +++|
00247  M01S00222.1ds     +++| .N       SET    0
00248  M01S00223.1ds     +++| OVLB     MICRO  1,, 2D      OVERLAY NAME
00249  M01S00224.1ds     +++|
00250  M01S00225.1ds     +++|
00251  M01S00226.1ds     +++|          PURGMAC OVERLAY
00252  M01S00227.1ds     +++|
00253  M01S00228.1ds     +++| OVERLAY  MACRO  TEXT
00254  M01S00229.1ds     +++|          MACREF OVERLAY
00255  M01S00230.1ds     +++|          QUAL
00256  M01S00231.1ds     +++| .N       SET    .N+1
00257  M01S00232.1ds     +++| .M       MICRO  .N,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
00258  M01S00233.1ds     +++| .O       MICRO  1,3, "OVLB"".M"
00259  M01S00234.1ds     +++|          QUAL   ".O"
00260  M01S00235.1ds     +++|          TTL    1DS/".O" - TEXT
00261  M01S00236.1ds     +++|          TITLE
00262  M01S00237.1ds     +++|          IDENT  ".O",OVLA   TEXT
00263  M01S00238.1ds     +++|*COMMENT  1DS - TEXT
Line S00239 Modification History
M01 (Added by) 1ds
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00239.281l803 ---|          COMMENT COPYRIGHT   CONTROL DATA CORP. 1982.
00265  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00266  M01S00240.1ds     +++|          ORG    OVLA
00267  M01S00241.1ds     +++|          LJM    *           ENTRY/EXIT
00268  M01S00242.1ds     +++|          UJN    *-2         OVERLAY EXIT ADDRESS
00269  M01S00243.1ds     +++|          ENDM
00270  M01S00244.1ds     +++| SUBSYST  SPACE  4,10
00271  M01S00245.1ds     +++|**        SUBSYST - GENERATE SUBSYSTEM TABLE.
00272  M01S00246.1ds     +++|*
00273  M01S00247.1ds     +++|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT
00274  M01S00248.1ds     +++|*
00275  M01S00249.1ds     +++|*         ENTRY  *NAME* = 3 CHARACTER SUBSYSTEM NAME.
00276  M01S00250.1ds     +++|*                *ID* = SUBSYSTEM ID.
00277  M01S00251.1ds     +++|*                *PP* = NAME OF PP, IF PP INITIATED SUBSYSTEM.
00278  M01S00252.1ds     +++|*                *AUTO* = *AUTO* IF *AUTO* ENABLED SUBSYSTEM.
00279  M01S00253.1ds     +++|
00280  M01S00254.1ds     +++|          PURGMAC  SUBSYST
00281  M01S00255.1ds     +++|
00282  M01S00256.1ds     +++| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB
00283  M01S00257.1ds     +++| .SUB     RMT
00284  M01S00258.1ds     +++| IAS.NM   EQU    *           TAG FOR TABLE ENTRY
00285  M01S00259.1ds     +++|          VFD    18/3L_NM    NAME
00286  M01S00260.1ds     +++| .A       IFC    EQ,$PP$$
00287  M01S00261.1ds     +++|          VFD    1/0         PPU FLAG
00288  M01S00262.1ds     +++| .A       ELSE
00289  M01S00263.1ds     +++|          VFD    1/1         PPU FLAG
00290  M01S00264.1ds     +++| .A       ENDIF
00291  M01S00265.1ds     +++| .B       IFC    EQ,$AU$AUTO$
00292  M01S00266.1ds     +++|          VFD    1/1         AUTO FLAG
00293  M01S00267.1ds     +++| .B       ELSE
00294  M01S00268.1ds     +++|          VFD    1/0         AUTO FLAG
00295  M01S00269.1ds     +++| .B       ENDIF
00296  M01S00270.1ds     +++| .1       SET    MXSI-ID
00297  M01S00271.1ds     +++| .2       SET    .1/12D
00298  M01S00272.1ds     +++| .3       SET    4-.2
00299  M01S00273.1ds     +++| .4       DECMIC .1-12D*.2
00300  M01S00274.1ds     +++| .5       SET    1S".4"
00301  M01S00275.1ds     +++|          VFD    4/.3        *SSSL* BYTE
00302  M01S00276.1ds     +++|          VFD    12/ID     SSID
00303  M01S00277.1ds     +++|          VFD    12/.5       *SSSL* MASK
00304  M01S00278.1ds     +++| .C       IFC    EQ,$NM$CMS$
00305  M01S00279.1ds     +++|          VFD    12/NOQF*100+7
00306  M01S00280.1ds     +++| .C       ELSE
00307  M01S00281.1ds     +++|          VFD    12/0
00308  M01S00282.1ds     +++| .C       ENDIF
00309  M01S00283.1ds     +++| IASBE    EQU    *-IAS.NM
00310  M01S00284.1ds     +++| .SUB     RMT
00311  M01S00285.1ds     +++| SUBSYST  ENDM
00312  M01S00286.1ds     +++| ENTRY    SPACE  4,10
00313  M01S00287.1ds     +++|**        ENTRY - DEFINE OVERLAY ENTRY POINT.
00314  M01S00288.1ds     +++|*
00315  M01S00289.1ds     +++|* NAME    ENTRY
00316  M01S00290.1ds     +++|*         NAME = NAME OF ENTRY ADDRESS.
00317  M01S00291.1ds     +++|
00318  M01S00292.1ds     +++|
00319  M01S00293.1ds     +++|          PURGMAC ENTRY
00320  M01S00294.1ds     +++|
00321  M01S00295.1ds     +++|          MACRO  ENTRY,NAME
00322  M01S00296.1ds     +++|          MACREF ENTRY
00323  M01S00297.1ds     +++|          QUAL
00324  M01S00298.1ds     +++| NAME_X   LJM    *           EXIT ADDRESS
00325  M01S00299.1ds     +++| NAME     EQU    *-1+.N*10000B
00326  M01S00300.1ds     +++| .NAME    EQU    NAME-.N*10000B  ENTRY ADDRESS WITHIN OVERLAY
00327  M01S00301.1ds     +++|          QUAL   *
00328  M01S00302.1ds     +++|          ENDM
00329  M01S00303.1ds     +++|          TITLE  MAIN PROGRAM.
00330  M01S00304.1ds     +++|**        IDS - MAIN PROGRAM.
00331  M01S00305.1ds     +++|
00332  M01S00306.1ds     +++|
00333  M01S00307.1ds     +++|          ORG    PPFW
Line S00308 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00334  M02S00308.1ds21   ---| IDS      RJM    PRS         PRESET PROGRAM
Line S00309 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00335  M02S00309.1ds21   ---|          LDM    TRQP+1,CM   CHECK OVERLAY LOAD
00336  M01S00001.1ds21   +++| IDS      RJM    /PRESET/PRS PRESET PROGRAM
00337  M01S00002.1ds21   +++|          LDM    /PRESET/TRQP+1,CM  CHECK OVERLAY LOAD
00338  M01S00310.1ds     +++|          ZJN    IDS1        IF OVERLAY NOT NEEDED
00339  M01S00311.1ds     +++|          LMC    2L"OVLB"    LOAD OVERLAY
00340  M01S00312.1ds     +++|          RJM    EXR
00341  M01S00313.1ds     +++| IDS1     RJM    *           PROCESS FUNCTION
00342  M01S00314.1ds     +++| IDSA     EQU    *-1
00343  M01S00315.1ds     +++| IDS2     RJM    LKC         LOG COMMAND
00344  M01S00316.1ds     +++|          LDC    0
00345  M01S00317.1ds     +++| IDSB     EQU    *-1
00346  M01S00318.1ds     +++|          ZJN    IDS3        IF NO JOBS ENTERED
00347  M01S00319.1ds     +++|          LDC    INWL        CHECK CHECKPOINT IN PROGRESS FLAG
00348  M01S00320.1ds     +++|          CRD    CN
00349  M01S00321.1ds     +++|          LDD    CN+4
00350  M01S00322.1ds     +++|          LPN    20
00351  M01S00323.1ds     +++|          NJN    IDS3        IF CHECKPOINT IN PROGRESS
00352  M01S00324.1ds     +++|          LDN    1
00353  M01S00325.1ds     +++|          STD    CM+2
00354  M01S00326.1ds     +++|          MONITOR  RSJM      REQUEST SCHEDULER
00355  M01S00327.1ds     +++|          LDN    **
00356  M01S00328.1ds     +++| IDSE     EQU    *-1
00357  M01S00329.1ds     +++|          NJN    IDS4        IF PP NOT TO BE DROPPED
00358  M01S00330.1ds     +++| IDS3     MONITOR  DPPM      DROP PP
00359  M01S00331.1ds     +++| IDS4     LJM    PPR         EXIT TO PP RESIDENT
00360  M01S00332.1ds     +++|
00361  M01S00333.1ds     +++|
00362  M01S00334.1ds     +++| IDSC     CON    0           ORIGINAL (IR+2)
00363  M01S00335.1ds     +++| IDSD     CON    0           *DSD* REPLY STATUS
00364  M01S00336.1ds     +++|          TITLE  RESIDENT SUBROUTINES.
00365  M01S00003.1ds21   +++| CSS      SPACE  4,10
00366  M01S00004.1ds21   +++|**        CSS - CHECK SUBSYSTEM STATUS.
00367  M01S00005.1ds21   +++|*
00368  M01S00006.1ds21   +++|*         ENTRY  (A) = SUBSYSTEM ID.
00369  M01S00007.1ds21   +++|*                (CP) = SUBSYSTEM CPA ADDRESS.
00370  M01S00008.1ds21   +++|*
Line S00009 Modification History
M01 (Added by) 1ds21
M02 (Updated by) ns2748a
Seq #  *Modification Id* Act 
----------------------------+
00371  M02S00009.ns2748a ---|*         ERROR  TO *IDS2* IF SUBSYSTEM NOT ACTIVE.
00372  M01S00001.ns2748a +++|*         EXIT   (A) = 0, IF SUBSYSTEM ACTIVE.
00373  M01S00002.ns2748a +++|*                TO *IDS2* IF SUBSYSTEM NOT ACTIVE.
00374  M01S00010.1ds21   +++|*
00375  M01S00011.1ds21   +++|*         USES   T7, CM - CM+4.
00376  M01S00012.1ds21   +++|
00377  M01S00013.1ds21   +++|
00378  M01S00014.1ds21   +++| CSS      SUBR               ENTRY/EXIT
00379  M01S00015.1ds21   +++|          STD    T7
00380  M01S00016.1ds21   +++|          LDD    CP
00381  M01S00017.1ds21   +++|          ADN    JCIW
00382  M01S00018.1ds21   +++|          CRD    CM
00383  M01S00019.1ds21   +++|          LDD    CM+2
00384  M01S00020.1ds21   +++|          LMD    T7
00385  M01S00021.1ds21   +++|          ZJN    CSSX        IF CORRECT SUBSYSTEM
00386  M01S00022.1ds21   +++|          LJM    IDS2        DROP PP
00387  M01S00337.1ds     +++| FAS      SPACE  4,10
00388  M01S00338.1ds     +++|**        FAS - FORMAT AND SEND ACCOUNT FILE MESSAGE.
00389  M01S00339.1ds     +++|*
00390  M01S00340.1ds     +++|*         FORMAT AND SEND *DSD* MESSAGE TO ACCOUNT DAYFILE
00391  M01S00341.1ds     +++|*         AND/OR ERROR LOG AND/OR SYSTEM DAYFILE.
00392  M01S00342.1ds     +++|*
00393  M01S00343.1ds     +++|*         ENTRY  (IDSC) = LOGGING CONTROL BITS.
00394  M01S00344.1ds     +++|*                (IR+4) = 6/KEYBOARD BUFFER OFFSET, 6/ .
00395  M01S00345.1ds     +++|*                (BUF+2 - BUF+61) = DSD KEYBOARD DATA.
00396  M01S00346.1ds     +++|*
00397  M01S00347.1ds     +++|*         CALLS  DFM, RPK.
00398  M01S00348.1ds     +++|
00399  M01S00349.1ds     +++|
00400  M01S00350.1ds     +++| FAS      SUBR               ENTRY/EXIT
Line S00351 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00401  M02S00351.1ds21   ---|          LDC    BUF+2       READ AND PACK KEYBOARD BUFFER
00402  M01S00023.1ds21   +++|          LDC    /OVERLAY/BUF+2  READ AND PACK KEYBOARD BUFFER
00403  M01S00352.1ds     +++|          RJM    RPK
00404  M01S00353.1ds     +++|          LDN    ZERL        CLEAR LAST WORD
Line S00354 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00354.1ds21   ---|          CRM    BUF+31,ON
00406  M01S00024.1ds21   +++|          CRM    /OVERLAY/BUF+31,ON
00407  M01S00355.1ds     +++|          LDC    2RDS        PLACE HEADER ON MESSAGE
Line S00356 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00356.1ds21   ---|          STM    BUF
00409  M01S00025.1ds21   +++|          STM    /OVERLAY/BUF
00410  M01S00357.1ds     +++|          LDC    2R,
Line S00358 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00411  M02S00358.1ds21   ---|          STM    BUF+1
00412  M01S00026.1ds21   +++|          STM    /OVERLAY/BUF+1
00413  M01S00359.1ds     +++|          LDM    IDSC
00414  M01S00360.1ds     +++|          SHN    21-6
00415  M01S00361.1ds     +++|          PJN    FAS1        IF ERROR LOG NOT SELECTED
Line S00362 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00416  M02S00362.1ds21   ---|          LDC    BUF+ERLN    SEND TO ERROR LOG
00417  M01S00027.1ds21   +++|          LDC    /OVERLAY/BUF+ERLN  SEND TO ERROR LOG
00418  M01S00363.1ds     +++|          RJM    DFM
00419  M01S00364.1ds     +++| FAS1     LDM    IDSC
00420  M01S00365.1ds     +++|          SHN    21-7
00421  M01S00366.1ds     +++|          PJN    FAS2        IF SYSTEM DAYFILE NOT SELECTED
Line S00367 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00367.1ds21   ---|          LDC    BUF+NMSN
Line S00028 Modification History
M01 (Added by) 1ds21
M02 (Updated by) 1ds31
Seq #  *Modification Id* Act 
----------------------------+
00423  M02S00028.1ds31   ---|          LDC    /OVERLAY/BUF+NMSN
00424  M01S00001.1ds31   +++|          LDC    /OVERLAY/BUF+MDON
00425  M01S00368.1ds     +++|          RJM    DFM
00426  M01S00369.1ds     +++| FAS2     LDM    IDSC
00427  M01S00370.1ds     +++|          SHN    21-10
00428  M01S00371.1ds     +++|          PJN    FAS3        IF ACCOUNT FILE NOT SELECTED
00429  M01S00372.1ds     +++|          LDN    ZERL        CLEAR LAST WORD
Line S00373 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00430  M02S00373.1ds21   ---|          CRM    BUFB+31,ON
Line S00374 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00431  M02S00374.1ds21   ---|          LDC    BUFB+ACFN
00432  M01S00029.1ds21   +++|          CRM    /OVERLAY/BUFB+31,ON
00433  M01S00030.1ds21   +++|          LDC    /OVERLAY/BUFB+ACFN
00434  M01S00375.1ds     +++|          RJM    DFM
00435  M01S00376.1ds     +++| FAS3     LJM    FASX        EXIT
00436  M01S00377.1ds     +++| LKC      SPACE  4,10
00437  M01S00378.1ds     +++|**        LKC - LOG KEYBOARD COMMAND.
00438  M01S00379.1ds     +++|*
00439  M01S00380.1ds     +++|*         ENTRY  (IDSC) = ORIGINAL IR+2.
00440  M01S00381.1ds     +++|*
00441  M01S00382.1ds     +++|*         EXIT   (IR+4) = 0.
00442  M01S00383.1ds     +++|*
00443  M01S00384.1ds     +++|*         USES   IR+4, CM - CM+4.
00444  M01S00385.1ds     +++|*
00445  M01S00386.1ds     +++|*         CALLS  FAS.
00446  M01S00387.1ds     +++|
00447  M01S00388.1ds     +++|
00448  M01S00389.1ds     +++| LKC      SUBR               ENTRY/EXIT
00449  M01S00390.1ds     +++|          LDM    IDSC        SET LOGGING PARAMETER
00450  M01S00391.1ds     +++|          LPC    700
00451  M01S00392.1ds     +++|          ZJN    LKC1        IF NO LOGGING REQUIRED
00452  M01S00393.1ds     +++|          LDN    0
00453  M01S00394.1ds     +++|          STD    IR+4
00454  M01S00395.1ds     +++|          RJM    FAS         PROCESS LOGGING
00455  M01S00396.1ds     +++| LKC1     LDM    IDSC
00456  M01S00397.1ds     +++|          LPC    1700
00457  M01S00398.1ds     +++|          ZJN    LKCX        IF INTERLOCK NOT SET
00458  M01S00399.1ds     +++|          LMM    IDSC
00459  M01S00400.1ds     +++|          STM    IDSC
00460  M01S00401.1ds     +++|          LDM    IDSD        *DSD* REPLY
00461  M01S00402.1ds     +++|          STD    T7
00462  M01S00403.1ds     +++|          LDN    ZERL        CLEAR INTERLOCK
00463  M01S00404.1ds     +++|          CRD    CM
00464  M01S00405.1ds     +++|          ADN    /1DS/DSDL+1-ZERL
00465  M01S00406.1ds     +++|          CWD    T7
00466  M01S00407.1ds     +++|          SBN    1
00467  M01S00408.1ds     +++|          CWD    CM
00468  M01S00409.1ds     +++|          UJN    LKCX        RETURN
00469  M01S00410.1ds     +++| RPK      SPACE  4,10
00470  M01S00411.1ds     +++|**        RPK - READ AND PACK KEYBOARD BUFFER.
00471  M01S00412.1ds     +++|*
00472  M01S00413.1ds     +++|*         ENTRY  (A) = DESTINATION ADDRESS.
00473  M01S00414.1ds     +++|*                (IR+4) = 6/KEYBOARD BUFFER OFFSET, 6/ .
00474  M01S00415.1ds     +++|*
00475  M01S00416.1ds     +++|*         USES   S1, S2, T0.
00476  M01S00417.1ds     +++|
00477  M01S00418.1ds     +++|
00478  M01S00419.1ds     +++| RPK      SUBR               ENTRY/EXIT
00479  M01S00420.1ds     +++|          STD    S1          SAVE ADDRESS
00480  M01S00421.1ds     +++|          LDN    /1DS/KBCML
00481  M01S00422.1ds     +++|          STD    S2
00482  M01S00423.1ds     +++|          LDC    /1DS/DSDL
00483  M01S00424.1ds     +++|          CRM    BFMS+100D,S2
00484  M01S00425.1ds     +++|          LDN    ZERL
00485  M01S00426.1ds     +++|          CRM    BFMS+100D+/1DS/KBCML*5,ON
00486  M01S00427.1ds     +++|          LDD    IR+4        SET KEYBOARD ADDRESS
00487  M01S00428.1ds     +++|          SHN    -6
00488  M01S00429.1ds     +++|          ADC    BFMS+100D
00489  M01S00430.1ds     +++|          STD    S2
00490  M01S00431.1ds     +++|          LDN    /1DS/KBCML*5/2
00491  M01S00432.1ds     +++|          STD    T0
00492  M01S00433.1ds     +++| RPK1     LDI    S2          PACK NEXT TWO CHARACTERS
00493  M01S00434.1ds     +++|          SHN    6
00494  M01S00435.1ds     +++|          LMM    1,S2
00495  M01S00436.1ds     +++|          STI    S1
00496  M01S00437.1ds     +++|          ZJN    RPK2        IF END OF MESSAGE
00497  M01S00438.1ds     +++|          LDN    2
00498  M01S00439.1ds     +++|          RAD    S2
00499  M01S00440.1ds     +++| RPK2     AOD    S1
00500  M01S00441.1ds     +++|          SOD    T0
00501  M01S00442.1ds     +++|          PJN    RPK1        IF MORE DATA TO PACK
00502  M01S00443.1ds     +++|          LDD    S1          READ ONE CM WORD OF ZERO
00503  M01S00444.1ds     +++|          STM    RPKA
00504  M01S00445.1ds     +++|          LDN    ZERL
00505  M01S00446.1ds     +++|          CRM    *,ON
00506  M01S00447.1ds     +++| RPKA     EQU    *-1
00507  M01S00448.1ds     +++|          LJM    RPKX        EXIT
00508  M01S00004.271l716 +++| SCP      SPACE  4,10
00509  M01S00005.271l716 +++|**        SCP - SET CP/PCP AREA ADDRESS.
00510  M01S00006.271l716 +++|*
00511  M01S00007.271l716 +++|*         ENTRY  (A) = CP/PCP NUMBER.
00512  M01S00008.271l716 +++|*                (NC) = SYSTEM CP NUMBER.
00513  M01S00009.271l716 +++|*
00514  M01S00010.271l716 +++|*         EXIT   (A) = CPA/PCPA ADDRESS.
00515  M01S00011.271l716 +++|
00516  M01S00012.271l716 +++|
00517  M01S00013.271l716 +++| SCP1     ADD    NC          SET REAL CP AREA ADDRESS
00518  M01S00014.271l716 +++|          SHN    7
00519  M01S00015.271l716 +++|
00520  M01S00016.271l716 +++| SCP      SUBR               ENTRY/EXIT
00521  M01S00017.271l716 +++|          SBD    NC
00522  M01S00018.271l716 +++|          MJN    SCP1        IF REAL CP
00523  M01S00019.271l716 +++|          ZJN    SCP1        IF SYSTEM CP
00524  M01S00020.271l716 +++|          SBN    1           SET PCP AREA ORDINAL
00525  M01S00021.271l716 +++|          SHN    7
00526  M01S00022.271l716 +++|          ADC    0           ADD BASE PCPA ADDRESS
00527  M01S00023.271l716 +++| SCPA     EQU    *-1
00528  M01S00024.271l716 +++|          UJN    SCPX        RETURN
00529  M01S00449.1ds     +++| SRD      SPACE  4,10
00530  M01S00450.1ds     +++|**        SRD - SAVE REPLY TO *DSD*.
00531  M01S00451.1ds     +++|*
00532  M01S00452.1ds     +++|*         ENTRY  (A) = 0 IF POSITIVE REPLY TO *DSD*.
00533  M01S00453.1ds     +++|*
00534  M01S00454.1ds     +++|*         EXIT   (IDSD) = *DSD* REPLY.
00535  M01S00455.1ds     +++|*                (IDSC) LOGGING BITS (6-8) CLEARED IF ERROR RESPONSE.
00536  M01S00456.1ds     +++|
00537  M01S00457.1ds     +++|
00538  M01S00458.1ds     +++| SRD      SUBR               ENTRY/EXIT
00539  M01S00459.1ds     +++|          STM    IDSD        SAVE REPLY
00540  M01S00460.1ds     +++|          ZJN    SRDX        IF NO ERROR
00541  M01S00461.1ds     +++|          LDM    IDSC
00542  M01S00462.1ds     +++|          LPC    -700        CLEAR LOGGING
00543  M01S00463.1ds     +++|          STM    IDSC
00544  M01S00464.1ds     +++|          UJN    SRDX        RETURN
00545  M01S00465.1ds     +++|          SPACE  4,10
00546  M01S00466.1ds     +++|**        COMMON DECKS.
00547  M01S00467.1ds     +++|
00548  M01S00468.1ds     +++|
00549  M01S00469.1ds     +++|          QUAL   ACS
Line S00470 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00470.1ds21   ---| QUAL$    EQU    0
00551  M01S00031.1ds21   +++| QUAL$    EQU    0           DO NOT FURTHER QUALIFY *ACS*
00552  M01S00471.1ds     +++| T2       EQU    LA
00553  M01S00472.1ds     +++|*CALL     COMPACS
00554  M01S00473.1ds     +++|          QUAL   *
00555  M01S00474.1ds     +++| ACS      EQU    /ACS/ACS
00556  M01S00475.1ds     +++|*CALL     COMPCLD
00557  M01S00476.1ds     +++|*CALL     COMPC2D
00558  M01S00477.1ds     +++|*CALL     COMPCTI
00559  M01S00478.1ds     +++| RND$     EQU    1           SELECT ROUNDING FOR *COMPDV5*
00560  M01S00479.1ds     +++|*CALL     COMPDV5
00561  M01S00032.1ds21   +++| EJT$     EQU    1           EJT SEARCH
00562  M01S00033.1ds21   +++| FNT$     EQU    1           FNT SEARCH
00563  M01S00034.1ds21   +++| IFP$     EQU    1           *COMPGFP* REMOTE ASSEMBLY
00564  M01S00001.271l750 +++| JCB$     EQU    1           JCB SEARCH
00565  M01S00035.1ds21   +++| QFT$     EQU    1           QFT SEARCH
00566  M01S00036.1ds21   +++|*CALL     COMPGFP
00567  M01S00001.ns2684  +++| SFI$     EQU    1           SELECT CALLER DELAY PROCESSING
00568  M01S00002.ns2684  +++|*CALL     COMPSFI            TABLE INTERLOCK
00569  M01S00480.1ds     +++|*CALL     COMPSTI
00570  M01S00481.1ds     +++|*CALL     COMPTGB
00571  M01S00482.1ds     +++|*CALL     COMPTLB
Line S00483 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00572  M02S00483.ns2663  ---|*CALL     COMPWEI
00573  M01S00484.1ds     +++| WCS$     EQU    1           CONSECUTIVE SECTORS AFTER SYSTEM SECTOR
00574  M01S00485.1ds     +++|*CALL     COMPWSS
00575  M01S00037.1ds21   +++|          SPACE  4,10
00576  M01S00038.1ds21   +++| OVLA     EQU    *+5         ORIGIN OF OVERLAY AREA
00577  M01S00039.1ds21   +++|          TITLE  OVERLAYABLE SUBROUTINES.
00578  M01S00040.1ds21   +++|          QUAL   OVERLAY
00579  M01S00486.1ds     +++| CCF      SPACE  4,15
00580  M01S00487.1ds     +++|**        CCF - CLEAR CHECKPOINT FLAGS.
00581  M01S00488.1ds     +++|*
00582  M01S00489.1ds     +++|*         THIS ROUTINE CLEARS THE *VALID CHECKPOINT
00583  M01S00490.1ds     +++|*         FILE* FLAG IN THE SECTOR OF LOCAL AREAS FOR
00584  M01S00491.1ds     +++|*         EACH CHECKPOINT DEVICE.  THIS PREVENTS
00585  M01S00492.1ds     +++|*         LEVEL 1 AND 2 RECOVERY DEADSTART FROM
00586  M01S00493.1ds     +++|*         AN OBSOLETE CHECKPOINT FILE.
00587  M01S00494.1ds     +++|*
00588  M01S00495.1ds     +++|*         USES   T6, AB - AB+4, CM - CM+4, CN - CN+4,
00589  M01S00496.1ds     +++|*                FN - FN+4, FS - FS+4.
00590  M01S00497.1ds     +++|*
00591  M01S00498.1ds     +++|*         CALLS  CSB, LKC.
00592  M01S00499.1ds     +++|*
00593  M01S00500.1ds     +++|*         MACROS SFA.
00594  M01S00501.1ds     +++|
00595  M01S00502.1ds     +++|
00596  M01S00503.1ds     +++| CCF      SUBR               ENTRY/EXIT
00597  M01S00504.1ds     +++|          RJM    LKC         LOG KEYBOARD COMMAND
00598  M01S00505.1ds     +++| CCF1     LDN    JSCL        READ SCHEDULER CONTROL WORD
00599  M01S00506.1ds     +++|          CRD    AB
00600  M01S00507.1ds     +++|          LDD    AB
00601  M01S00508.1ds     +++|          SHN    21-13
00602  M01S00509.1ds     +++|          PJN    CCF2        IF SCHEDULER ACTIVE
00603  M01S00510.1ds     +++|          DELAY
00604  M01S00511.1ds     +++|          UJN    CCF1        WAIT UNTIL SCHEDULER ACTIVE
00605  M01S00512.1ds     +++|
00606  M01S00513.1ds     +++| CCF2     LDK    ESTP        GET LAST MASS STORAGE EST ORDNAL+1
00607  M01S00514.1ds     +++|          CRD    AB
00608  M01S00515.1ds     +++|          ADK    MMFL-ESTP
00609  M01S00516.1ds     +++|          CRD    FN
00610  M01S00517.1ds     +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL
00611  M01S00518.1ds     +++|          STD    S1
00612  M01S00519.1ds     +++| CCF3     AOD    S1          ADVANCE EST ORDINAL
00613  M01S00520.1ds     +++|          STD    T5
00614  M01S00521.1ds     +++|          LMD    AB+3
00615  M01S00522.1ds     +++|          ZJN    CCFX        IF END OF MASS STORAGE DEVICES
00616  M01S00523.1ds     +++|          SFA    EST,S1      READ EST ENTRY
00617  M01S00524.1ds     +++|          ADK    EQDE
00618  M01S00525.1ds     +++|          CRD    FS
00619  M01S00526.1ds     +++|          LDD    FS
00620  M01S00527.1ds     +++|          SHN    21-13
00621  M01S00528.1ds     +++|          PJN    CCF3        IF NOT MASS STORAGE DEVICE
00622  M01S00529.1ds     +++|          SHN    13-2
00623  M01S00530.1ds     +++|          PJN    CCF3        IF NOT CHECKPOINT DEVICE
00624  M01S00531.1ds     +++|          LDD    FS+4
00625  M01S00532.1ds     +++|          SHN    3
00626  M01S00533.1ds     +++|          ADK    ACGL
00627  M01S00534.1ds     +++|          CRD    CN
00628  M01S00535.1ds     +++|          ADK    ALGL-ACGL
00629  M01S00536.1ds     +++|          CRD    CM
00630  M01S00537.1ds     +++|          LDD    CM+1        SET LABEL TRACK FOR *CSB*
00631  M01S00538.1ds     +++|          STD    T6
00632  M01S00539.1ds     +++|          RJM    CSB         CLEAR SLA BIT
00633  M01S00540.1ds     +++|          UJN    CCF3        PROCESS NEXT DEVICE
00634  M01S00541.1ds     +++| CCI      SPACE  4,15
00635  M01S00542.1ds     +++|**        CCI - COMPLETE COMMAND IMAGE.
00636  M01S00543.1ds     +++|*
00637  M01S00544.1ds     +++|*         ENTRY  (A) = ADDRESS OF COMMAND COMPLETION IN *C* FORMAT.
00638  M01S00545.1ds     +++|*                (CA) = FWA OF COMMAND BUFFER.
00639  M01S00546.1ds     +++|*
00640  M01S00547.1ds     +++|*         EXIT   (T1) = BUFFER ADDRESS FOR NEXT COMMAND.
00641  M01S00548.1ds     +++|*
00642  M01S00549.1ds     +++|*         ERROR  TO *IDS2* IF FULL SECTOR.
00643  M01S00550.1ds     +++|*
00644  M01S00551.1ds     +++|*         USES   T1.
00645  M01S00552.1ds     +++|*
00646  M01S00553.1ds     +++|*         CALLS  ACS, DV5.
00647  M01S00554.1ds     +++|
00648  M01S00555.1ds     +++|
00649  M01S00556.1ds     +++| CCI2     ADD    HN          SET ADDRESS FOR NEXT COMMAND
00650  M01S00557.1ds     +++|          STD    T1
00651  M01S00558.1ds     +++|          SHN    2
00652  M01S00559.1ds     +++|          ADD    CA
00653  M01S00560.1ds     +++|          RAD    T1
00654  M01S00561.1ds     +++|
00655  M01S00562.1ds     +++| CCI      SUBR               ENTRY/EXIT
00656  M01S00563.1ds     +++|          RJM    ACS         ASSEMBLE CHARACTER STRING
00657  M01S00564.1ds     +++|          LDI    T1
00658  M01S00565.1ds     +++|          ZJN    CCI1        IF ASSEMBLY ON BYTE BOUNDARY
00659  M01S00566.1ds     +++|          AOD    T1
00660  M01S00567.1ds     +++| CCI1     AOD    T1          CALCULATE CM WORD COUNT
00661  M01S00568.1ds     +++|          SBD    CA
00662  M01S00569.1ds     +++|          RJM    DV5
00663  M01S00570.1ds     +++|          STM    -1,CA       SET WORD COUNT IN LINKAGE
00664  M01S00571.1ds     +++|          SBD    HN
00665  M01S00572.1ds     +++|          MJN    CCI2        IF NOT FULL SECTOR
00666  M01S00573.1ds     +++|          LJM    IDS2        DROP PP
00667  M01S00574.1ds     +++| CSB      SPACE  4,15
00668  M01S00575.1ds     +++|**        CSB - CLEAR SLA BIT.
00669  M01S00576.1ds     +++|*
00670  M01S00577.1ds     +++|*         ENTRY  (T5) = CHECKPOINT DEVICE EST ORDINAL.
00671  M01S00578.1ds     +++|*                (T6) = LABEL TRACK.
00672  M01S00579.1ds     +++|*                (CN - CN+4) = *ACGL* WORD OF MST.
00673  M01S00580.1ds     +++|*                (FN - FN+4) = *MMFL*.
00674  M01S00581.1ds     +++|*
00675  M01S00582.1ds     +++|*         USES   T1, T2, T7.
00676  M01S00583.1ds     +++|*
00677  M01S00584.1ds     +++|*         CALLS  CTI, RDS, STI, WDS.
00678  M01S00585.1ds     +++|*
00679  M01S00586.1ds     +++|*         MACROS ENDMS, SETMS.
00680  M01S00587.1ds     +++|
00681  M01S00588.1ds     +++|
00682  M01S00589.1ds     +++| CSB3     ENDMS
00683  M01S00590.1ds     +++| CSB4     LDD    T6          CLEAR TRACK INTERLOCK
00684  M01S00591.1ds     +++|          RJM    CTI
00685  M01S00592.1ds     +++|
00686  M01S00593.1ds     +++| CSB      SUBR               ENTRY/EXIT
00687  M01S00594.1ds     +++|          LDD    CN+4
00688  M01S00595.1ds     +++|          LPC    MGLAP
00689  M01S00596.1ds     +++|          ZJN    CSBX        IF NO SECTOR OF LOCAL AREAS
00690  M01S00597.1ds     +++|          RJM    STI         SET LABEL TRACK INTERLOCK
00691  M01S00598.1ds     +++|          NJN    CSBX        IF ERROR
00692  M01S00599.1ds     +++|          LDN    /MMF/LMLT   SET LOCAL AREA SECTOR
00693  M01S00600.1ds     +++|          STD    T7
00694  M01S00601.1ds     +++|          SETMS  IO,RW
00695  M01S00602.1ds     +++|          LDC    BFMS
00696  M01S00603.1ds     +++|          RJM    RDS
00697  M01S00604.1ds     +++|          MJN    CSB4        IF ERROR
00698  M01S00605.1ds     +++|          LDM    BFMS
00699  M01S00606.1ds     +++|          ZJN    CSB3        IF UNFORMATTED SECTOR
00700  M01S00607.1ds     +++|          LCN    2*5-1       INITIALIZE ENTRY OFFSET
00701  M01S00608.1ds     +++|          STD    T2
00702  M01S00609.1ds     +++|          LCN    2-1         INITIALIZE WORD COUNT
00703  M01S00610.1ds     +++|          STD    T1
00704  M01S00611.1ds     +++| CSB1     LDN    2*5         ADVANCE ENTRY OFFSET
00705  M01S00612.1ds     +++|          RAD    T2
00706  M01S00613.1ds     +++|          LDN    2           INCREMENT WORD COUNT
00707  M01S00614.1ds     +++|          RAD    T1
00708  M01S00615.1ds     +++|          LDD    T1
00709  M01S00616.1ds     +++|          SBM    BFMS+1
00710  M01S00617.1ds     +++|          PJN    CSB2        IF NO ENTRY FOR THIS MF
00711  M01S00618.1ds     +++|          LDM    BFMS+2,T2
00712  M01S00619.1ds     +++|          LMD    FN
00713  M01S00620.1ds     +++|          NJN    CSB1        IF ENTRY NOT FOR THIS MF
00714  M01S00621.1ds     +++|          LDM    BFMS+2+1,T2  CLEAR *VALID CHECKPOINT FILE* FLAG
00715  M01S00622.1ds     +++|          LPC    3777
00716  M01S00623.1ds     +++|          STM    BFMS+2+1,T2
00717  M01S00624.1ds     +++|          LDC    BFMS+WLSF   REWRITE SECTOR
00718  M01S00625.1ds     +++|          RJM    WDS
00719  M01S00626.1ds     +++| CSB2     LJM    CSB3        CLEAR TRACK INTERLOCK
Line S00627 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00720  M02S00627.1ds21   ---| CSS      SPACE  4,10
Line S00628 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00721  M02S00628.1ds21   ---|**        CSS - CHECK SUBSYSTEM STATUS.
Line S00629 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00722  M02S00629.1ds21   ---|*
Line S00630 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00723  M02S00630.1ds21   ---|*         ENTRY  (A) = SUBSYSTEM ID.
Line S00631 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00724  M02S00631.1ds21   ---|*                (CP) = SUBSYSTEM CPA ADDRESS.
Line S00632 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00725  M02S00632.1ds21   ---|*
Line S00633 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00726  M02S00633.1ds21   ---|*         ERROR  TO *IDS2* IF SUBSYSTEM NOT ACTIVE.
Line S00634 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00727  M02S00634.1ds21   ---|*
Line S00635 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00728  M02S00635.1ds21   ---|*         USES   T7, CM - CM+4.
Line S00636 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00729  M02S00636.1ds21   ---|
Line S00637 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00730  M02S00637.1ds21   ---|
Line S00638 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00731  M02S00638.1ds21   ---| CSS      SUBR               ENTRY/EXIT
Line S00639 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00732  M02S00639.1ds21   ---|          STD    T7
Line S00640 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00733  M02S00640.1ds21   ---|          LDD    CP
Line S00641 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00734  M02S00641.1ds21   ---|          ADN    JCIW
Line S00642 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00735  M02S00642.1ds21   ---|          CRD    CM
Line S00643 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00736  M02S00643.1ds21   ---|          LDD    CM+2
Line S00644 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00737  M02S00644.1ds21   ---|          LMD    T7
Line S00645 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00738  M02S00645.1ds21   ---|          ZJN    CSSX        IF CORRECT SUBSYSTEM
Line S00646 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
00739  M02S00646.1ds21   ---|          LJM    IDS2        DROP PP
Line S00647 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00740  M02S00647.ns2663  ---| EJB      SPACE  4,20
00741  M01S00001.ns2663  +++| EJB      SPACE  4,25
00742  M01S00648.1ds     +++|**        EJB - ENTER JOB.
00743  M01S00649.1ds     +++|*
00744  M01S00650.1ds     +++|*         ENTRY  (BUFA - BUFA+4) = UJN, ZERO-FILLED.
00745  M01S00651.1ds     +++|*                (BA) = FWA OF COMMAND SECTOR.
00746  M01S00652.1ds     +++|*                (JS) = JOB SERVICE CLASS.
00747  M01S00653.1ds     +++|*                (FN - FN+4) = SUBSYSTEM NAME, SPACE-FILLED.
00748  M01S00654.1ds     +++|*                (EJBC) = FILE TYPE AND STATUS, IF FILE TYPE .NE.
00749  M01S00655.1ds     +++|*                         *INQF*.
00750  M01S00656.1ds     +++|*                (EJBE) = SUBSYSTEM ID.
00751  M01S00657.1ds     +++|*                (EJBF - EJBG) = PROCEDURE FILE NAME.
00752  M01S00658.1ds     +++|*
00753  M01S00659.1ds     +++|*         EXIT   (A) = 0  IF JOB ENTERED.
00754  M01S00660.1ds     +++|*                (A) .LT. 0 FOR - QFT FULL / TRACK LIMIT / DISK ERROR.
00755  M01S00661.1ds     +++|*                (QA) = QFT ORDINAL.
00756  M01S00662.1ds     +++|*                     = 0, IF NO QFT ENTRY WAS ASSIGNED.
00757  M01S00663.1ds     +++|*                (FN - FN+4) = FIRST WORD OF QFT ENTRY.
00758  M01S00664.1ds     +++|*
Line S00665 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00759  M02S00665.ns2663  ---|*         USES   QA, CM - CM+4, T1 - T7.
00760  M01S00002.ns2663  +++|*         USES   QA, CM - CM+4, FN - FN+4, T1 - T7.
00761  M01S00666.1ds     +++|*
Line S00667 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00762  M02S00667.ns2663  ---|*         CALLS  CTE, IAM, RFI, WDS, WEI, WSS.
00763  M01S00003.ns2663  +++|*         CALLS  CTE, RFI, WDS, WEI, WSS, *0QM*.
00764  M01S00668.1ds     +++|*
Line S00669 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00765  M02S00669.ns2663  ---|*         MACROS ENDMS, MONITOR, SETMS, SFA.
00766  M01S00004.ns2663  +++|*         MACROS ENDMS, EXECUTE, MONITOR, SETMS, SFA.
00767  M01S00005.ns2663  +++|*
00768  M01S00006.ns2663  +++|*         NOTE THAT THE CONTENTS OF *BUF* STARTING AT *BUFA* WILL BE
00769  M01S00007.ns2663  +++|*         OVERLAYED BY THE EOI BUFFER AND *0QM* ON EXIT.
00770  M01S00670.1ds     +++|
00771  M01S00671.1ds     +++|
00772  M01S00672.1ds     +++| EJB      SUBR               ENTRY/EXIT
00773  M01S00673.1ds     +++|          LDC    501
00774  M01S00674.1ds     +++|          STD    T7
00775  M01S00675.1ds     +++| EJB1     LDN    0           CLEAR SYSTEM SECTOR BUFFER
00776  M01S00676.1ds     +++|          STM    BFMS,T7
00777  M01S00677.1ds     +++|          SOD    T7
00778  M01S00678.1ds     +++|          NJN    EJB1        IF NOT START OF BUFFER
00779  M01S00001.1ds26   +++|          STD    QA          INITIALIZE QFT ORDINAL
00780  M01S00679.1ds     +++|          LDN    PDTL        ENTER CREATION DATE
00781  M01S00680.1ds     +++|          CRM    CDSS,ON
00782  M01S00681.1ds     +++|          ADN    RTCL-PDTL-1 SET ENTRY TIME
00783  M01S00682.1ds     +++|          CRM    IOSS+5*ENTQ+3,ON
00784  M01S00683.1ds     +++|
00785  M01S00684.1ds     +++|*         SET JOB ACCESS LEVEL LIMITS AND ACCESS LEVEL VALIDATION
00786  M01S00685.1ds     +++|*         BITS TO ALL LEVELS VALID FOR THE SYSTEM.  FOR THE
00787  M01S00686.1ds     +++|*         DEADSTART SEQUENCING JOB, SET ALL LEVELS AND VALIDATIONS,
00788  M01S00687.1ds     +++|*         REGARDLESS OF SYSTEM LIMITS.  A NULL CATEGORY SET WILL BE
00789  M01S00688.1ds     +++|*         SET FOR ALL JOBS.
00790  M01S00689.1ds     +++|
00791  M01S00690.1ds     +++|          LDN    ZERL        SET UP *VSAM* FUNCTION
00792  M01S00691.1ds     +++|          CRD    CM
00793  M01S00692.1ds     +++|          ERRNZ  SYOT        CODE DEPENDS ON VALUE
00794  M01S00693.1ds     +++|          CRM    IOSS+5*ENTQ+5,ON
00795  M01S00694.1ds     +++|          LDN    7           REQUEST ALL VALID ACCESS LEVELS
00796  M01S00695.1ds     +++|          STD    CM+3
00797  M01S00696.1ds     +++|          LDN    VJCS        VALIDATE JOB CREATION PARAMETERS
00798  M01S00697.1ds     +++|          STD    CM+1
00799  M01S00698.1ds     +++|          LDD    MA          SET ALL LEVELS AND VALIDATIONS
00800  M01S00699.1ds     +++|          CWM    EJBL,ON
00801  M01S00700.1ds     +++|          SBN    1
00802  M01S00701.1ds     +++|          CRM    VASS+5*ASVW,ON
00803  M01S00702.1ds     +++|          MONITOR  VSAM      REQUEST VALID LEVELS AND CATEGORIES
00804  M01S00703.1ds     +++|          LDM    EJBE
00805  M01S00704.1ds     +++|          LMC    DSSI
00806  M01S00705.1ds     +++|          ZJN    EJB1.0      IF DEADSTART SEQUENCING JOB
00807  M01S00706.1ds     +++|          LDD    MA          SET ONLY VALID LEVELS
00808  M01S00707.1ds     +++|          CRM    VASS+5*ASVW,ON
00809  M01S00708.1ds     +++|          LDN    0           CLEAR VALIDATION BITS
00810  M01S00709.1ds     +++|          STM    VASS+5*ASVW
00811  M01S00710.1ds     +++|
00812  M01S00711.1ds     +++|*         SET JOB ACCESS LEVEL LIMITS INTO QFT.
00813  M01S00712.1ds     +++|
00814  M01S00713.1ds     +++| EJB1.0   LDD    CM+4        LOWER ACCESS LEVEL LIMIT
00815  M01S00714.1ds     +++|          SHN    3
00816  M01S00715.1ds     +++|          LMD    CM+2        INITIAL JOB ACCESS LEVEL
00817  M01S00716.1ds     +++|          SHN    3
00818  M01S00717.1ds     +++|          LMD    CM+3        UPPER ACCESS LEVEL LIMIT
00819  M01S00718.1ds     +++|          STM    IOSS+5*INSQ+3
00820  M01S00719.1ds     +++|
00821  M01S00720.1ds     +++|*         ASSIGN MASS STORAGE FOR FILE.
00822  M01S00721.1ds     +++|
00823  M01S00722.1ds     +++|          LDN    ZERL
00824  M01S00723.1ds     +++|          CRD    CM
00825  M01S00724.1ds     +++|          LDM    IOSS+5*INSQ+3  GET LOWER ACCESS LEVEL LIMIT
00826  M01S00725.1ds     +++|          SHN    -6
00827  M01S00726.1ds     +++|          ADN    40          SET ACCESS LEVEL SELECTION BIT
00828  M01S00727.1ds     +++|          SHN    6
00829  M01S00728.1ds     +++|          STD    CM+3
00830  M01S00729.1ds     +++| EJBF     LDN    TNDS        SELECT TEMPORARY - NONSHARED DEVICE
00831  M01S00730.1ds     +++|*         LDN    TSDS        (SELECT SYSTEM DEVICE)
00832  M01S00731.1ds     +++|          STD    CM+2
00833  M01S00732.1ds     +++|          MONITOR  RTCM      REQUEST TRACK CHAIN
00834  M01S00733.1ds     +++|          LDD    CM+4
00835  M01S00734.1ds     +++|          STM    IOSS+5*ENTQ+1
00836  M01S00735.1ds     +++|          NJN    EJB1.1      IF TRACK ASSIGNED
00837  M01S00736.1ds     +++|          LDD    CP          ISSUE B-DISPLAY MESSAGE
00838  M01S00737.1ds     +++|          ADK    MS2W
00839  M01S00738.1ds     +++|          CWM    EJBN,TR
00840  M01S00739.1ds     +++|          LJM    EJB2.1      SET QUEUED STATUS
00841  M01S00740.1ds     +++|
00842  M01S00741.1ds     +++| EJB1.1   STD    T6
00843  M01S00742.1ds     +++|          LDD    CM+1        SAVE EQUIPMENT
00844  M01S00743.1ds     +++|          STD    T5
00845  M01S00744.1ds     +++|          STM    IOSS+5*ENTQ
00846  M01S00745.1ds     +++|          LDC    7777        SET UI=377777
00847  M01S00746.1ds     +++|*         LDC    0           (SET BY *ICJ*)
00848  M01S00747.1ds     +++| EJBA     EQU    *-1
00849  M01S00748.1ds     +++|          STD    FN+3
00850  M01S00749.1ds     +++|          LDC    100+37      SET FAMILY ORDINAL=1
00851  M01S00750.1ds     +++|*         LDC    0           (SET BY *ICJ*)
00852  M01S00751.1ds     +++| EJBB     EQU    *-1
00853  M01S00752.1ds     +++|          STD    FN+2
00854  M01S00753.1ds     +++|          LDC    INQF*100+7  SET FILE TYPE AND STATUS
00855  M01S00754.1ds     +++| EJBC     EQU    *-1
00856  M01S00755.1ds     +++|          STD    FN+4
00857  M01S00756.1ds     +++|          LDD    MA
00858  M01S00757.1ds     +++|          CWD    FN
00859  M01S00758.1ds     +++|          CRD    CM+3
00860  M01S00759.1ds     +++|          LDD    JS
00861  M01S00760.1ds     +++|          LMN    SYSC
00862  M01S00761.1ds     +++|          ZJN    EJB2        IF SYSTEM JOB
00863  M01S00762.1ds     +++|          LMN    SYSC&DSSC
00864  M01S00763.1ds     +++|          ZJN    EJB2        IF DEADSTART SEQUENCING JOB
00865  M01S00764.1ds     +++|          LMN    DSSC&SSSC
00866  M01S00765.1ds     +++|          ZJN    EJB2        IF SUBSYSTEM
00867  M01S00766.1ds     +++|          LDC    -4000
00868  M01S00767.1ds     +++| EJB2     ADC    4000        SET SYSTEM JOB FLAG
00869  M01S00768.1ds     +++| EJBD     ADC    PQFT        REQUEST QFT ENTRY
00870  M01S00769.1ds     +++|*         ADC    10000B+PQFT (DISABLE JSN ACQUISITION)
00871  M01S00770.1ds     +++|          RJM    CTE
00872  M01S00771.1ds     +++|          NJN    EJB3        IF ENTRY CREATED
Line S00772 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds26
Seq #  *Modification Id* Act 
----------------------------+
00873  M02S00772.1ds26   ---|          STD    QA          INDICATE NO ENTRY WAS ASSIGNED
00874  M01S00773.1ds     +++| EJB2.0   LDD    T6          SET TRACK
00875  M01S00774.1ds     +++|          STD    CM+2
00876  M01S00775.1ds     +++|          LDD    T5          SET EQUIPMENT
00877  M01S00776.1ds     +++|          STD    CM+1
00878  M01S00777.1ds     +++|          MONITOR  DTKM      DROP ALL TRACKS
00879  M01S00778.1ds     +++| EJB2.1   LCN    0           SET JOB NOT QUEUED STATUS
00880  M01S00779.1ds     +++|          LJM    EJBX        RETURN
00881  M01S00780.1ds     +++|
00882  M01S00781.1ds     +++| EJB3     CRD    FN          FIRST WORD OF QFT ENTRY
00883  M01S00782.1ds     +++|          CRM    IOSS,ON
00884  M01S00783.1ds     +++|          LDM    IOSS+JSNQ*5+4  CLEAN UP STATUS FIELD
00885  M01S00784.1ds     +++|          SCN    17
00886  M01S00785.1ds     +++|          STM    IOSS+JSNQ*5+4
00887  M01S00786.1ds     +++|          LDD    CM+1        SAVE QFT ORDINAL
00888  M01S00787.1ds     +++|          STD    QA
00889  M01S00788.1ds     +++|          STM    GQSS
00890  M01S00789.1ds     +++|          LDD    FN          SET JSN
00891  M01S00790.1ds     +++|          STM    OJSS
00892  M01S00791.1ds     +++|          LDD    FN+1
00893  M01S00792.1ds     +++|          STM    OJSS+1
00894  M01S00793.1ds     +++|          LDD    JS          SET SERVICE CLASS/JOB ORIGIN TYPE
00895  M01S00794.1ds     +++|          SHN    6
00896  M01S00795.1ds     +++|          LMK    SYOT
00897  M01S00796.1ds     +++|          STM    IOSS+SCLQ*5
00898  M01S00797.1ds     +++|          LCN    0           INDICATE NO JOB COMMAND FL
00899  M01S00798.1ds     +++|          STM    JCSS
00900  M01S00799.1ds     +++|          STM    JESS
00901  M01S00800.1ds     +++|
00902  M01S00801.1ds     +++|*         SET SYSTEM SECTOR FIELDS FOR *SYSTEMX* JOB.
00903  M01S00802.1ds     +++|
00904  M01S00803.1ds     +++|          LDD    MA          SET UN, UI, AND UNLIMITED VALIDATIONS
00905  M01S00804.1ds     +++|          CWM    EJBJ,ON
00906  M01S00805.1ds     +++|          CWM    EJBM,ON
00907  M01S00806.1ds     +++|          SBN    2
00908  M01S00807.1ds     +++|          CRM    VASS+ACCN*5,ON
00909  M01S00808.1ds     +++|          CRM    VASS+AHMT*5,ON
00910  M01S00809.1ds     +++|          SBN    1
00911  M01S00810.1ds     +++|          CRM    VASS+AHDS*5,ON
00912  M01S00811.1ds     +++|          SBN    1
00913  M01S00812.1ds     +++|          CRM    VASS+AAWC*5,ON
00914  M01S00813.1ds     +++|          LDN    IPRL        SET DEFAULT KEYPUNCH MODE
00915  M01S00814.1ds     +++|          CRD    CM
00916  M01S00815.1ds     +++|          LDD    CM+2
00917  M01S00816.1ds     +++|          SHN    -13
00918  M01S00817.1ds     +++|          STM    JFSS
00919  M01S00818.1ds     +++|          LDC    DFTL        SET DEFAULT TIME LIMIT
00920  M01S00819.1ds     +++|          STM    JTSS+1
00921  M01S00820.1ds     +++|          SHN    -14
00922  M01S00821.1ds     +++|          STM    JTSS
00923  M01S00822.1ds     +++|          LDC    0           SET SUBSYSTEM ID
00924  M01S00823.1ds     +++| EJBE     EQU    *-1         (SUBSYSTEM ID)
00925  M01S00824.1ds     +++|          STM    SISS
00926  M01S00825.1ds     +++|          LDN    3           SET FLAGS
00927  M01S00826.1ds     +++|          STM    FGSS
00928  M01S00827.1ds     +++|          LDC    MMFL        SET MACHINE ID
00929  M01S00828.1ds     +++|          CRD    CM
00930  M01S00829.1ds     +++|          LDD    CM
00931  M01S00830.1ds     +++|          STM    RMSS
00932  M01S00831.1ds     +++|          STM    CMSS
00933  M01S00832.1ds     +++|          LDM    EJBA        CHECK IF UI WAS SPECIFIED
00934  M01S00833.1ds     +++|          ZJN    EJB5        IF NO UI SPECIFIED
00935  M01S00834.1ds     +++|
00936  M01S00835.1ds     +++|*         SET INFORMATION IN SYSTEM SECTOR TO MATCH QFT
00937  M01S00836.1ds     +++|*         FAMILY ORDINAL AND UI INFORMATION.
00938  M01S00837.1ds     +++|
00939  M01S00838.1ds     +++|          LDD    MA          SET CREATION USER NAME
00940  M01S00839.1ds     +++|          CWM    EJBJ,ON
00941  M01S00840.1ds     +++|          SBN    1
00942  M01S00841.1ds     +++|          CRM    OASS,ON
00943  M01S00842.1ds     +++|          SBN    1
00944  M01S00843.1ds     +++|          CRM    ACSS,ON
00945  M01S00844.1ds     +++|          LDK    FOTP        SET CREATION FAMILY
00946  M01S00845.1ds     +++|          CRD    CM
00947  M01S00846.1ds     +++|          LDD    CM
00948  M01S00847.1ds     +++|          SHN    14
00949  M01S00848.1ds     +++|          LMD    CM+1
00950  M01S00849.1ds     +++|          ADN    1
00951  M01S00850.1ds     +++|          CRD    CM
00952  M01S00851.1ds     +++|          LDD    CM+3
00953  M01S00852.1ds     +++|          SCN    77
00954  M01S00853.1ds     +++|          STD    CM+3
00955  M01S00854.1ds     +++|          LDN    0
00956  M01S00855.1ds     +++|          STD    CM+4
00957  M01S00856.1ds     +++|          LDD    MA          MOVE FAMILY NAME TO SYSTEM SECTOR
00958  M01S00857.1ds     +++|          CWD    CM
00959  M01S00858.1ds     +++|          CRM    FOSS,ON
00960  M01S00859.1ds     +++|          SBN    1
00961  M01S00860.1ds     +++|          CRM    FMSS,ON
00962  M01S00861.1ds     +++| EJB5     LDN    0           SET CREATION JSN
00963  M01S00862.1ds     +++|          SFA    QFT
00964  M01S00863.1ds     +++|          CRM    CJSS,ON
00965  M01S00864.1ds     +++|          LDD    MA
00966  M01S00865.1ds     +++|          CWM    BUFA,ON
00967  M01S00866.1ds     +++|          CWM    EJBH,ON     SET FNT
00968  M01S00867.1ds     +++|          LDD    MA
00969  M01S00868.1ds     +++|          CRM    JNSS,ON
00970  M01S00869.1ds     +++|          CRM    FNSS,ON
00971  M01S00870.1ds     +++|          LDC    2RIN        SET DISPOSITION CODE
00972  M01S00871.1ds     +++|          STM    DCSS
00973  M01S00872.1ds     +++|          LDD    BA
00974  M01S00873.1ds     +++|          ZJN    EJB9        IF NO COMMAND SECTOR
00975  M01S00874.1ds     +++|          AOM    FLSS+1
00976  M01S00875.1ds     +++|          LDC    JNSS        REMOVE *.* FROM UJN
00977  M01S00876.1ds     +++|          STD    T1
00978  M01S00877.1ds     +++|          ADN    3
00979  M01S00878.1ds     +++|          STD    T2
00980  M01S00879.1ds     +++| EJB6     LDI    T1
00981  M01S00880.1ds     +++|          LPN    77
00982  M01S00881.1ds     +++|          LMN    1R.
00983  M01S00882.1ds     +++|          ZJN    EJB7        IF *.* FOUND
00984  M01S00883.1ds     +++|          LDM    1,T1
00985  M01S00884.1ds     +++|          SHN    -6
00986  M01S00885.1ds     +++|          LMN    1R.
00987  M01S00886.1ds     +++|          ZJN    EJB8        IF *.* FOUND
00988  M01S00887.1ds     +++|          AOD    T1
00989  M01S00888.1ds     +++|          LMD    T2
00990  M01S00889.1ds     +++|          NJN    EJB6        IF NOT END OF UJN
00991  M01S00890.1ds     +++| EJB7     LDI    T1
00992  M01S00891.1ds     +++|          SCN    77          REMOVE *.*
00993  M01S00892.1ds     +++|          STI    T1
00994  M01S00893.1ds     +++|          LDN    0
00995  M01S00894.1ds     +++| EJB8     STM    1,T1
00996  M01S00895.1ds     +++| EJB9     AOM    FLSS+1      SET FILE LENGTH
00997  M01S00896.1ds     +++|          LDC    FLSS        GET ADDRESS OF SYSTEM SECTOR FILE LENGTH
00998  M01S00897.1ds     +++|          RJM    RFI         SET FILE SIZE INDEX IN QFT ENTRY
00999  M01S00898.1ds     +++|
01000  M01S00899.1ds     +++|*         WRITE FILE.
01001  M01S00900.1ds     +++|
Line S00901 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01002  M02S00901.ns2663  ---|          LDC    3RBLQ       ISSUE *ABLQ* ACCOUNT FILE MESSAGE
Line S00902 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01003  M02S00902.ns2663  ---|          RJM    IAM
01004  M01S00903.1ds     +++|          SETMS  IO
01005  M01S00904.1ds     +++|          RJM    WSS         WRITE SYSTEM SECTOR
Line S00905 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01006  M02S00905.ns2663  ---|          PJN    EJB9.2      IF NO DISK ERROR
Line S00906 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01007  M02S00906.ns2663  ---| EJB9.1   LJM    EJB2.0      PROCESS ERROR
Line S00907 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01008  M02S00907.ns2663  ---|
Line S00908 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01009  M02S00908.ns2663  ---| EJB9.2   LDD    BA
01010  M01S00008.ns2663  +++| EJB9.1   MJP    EJB2.0      IF DISK ERROR
01011  M01S00009.ns2663  +++|          LDD    BA
01012  M01S00909.1ds     +++|          ZJN    EJB10       IF NO COMMANDS
01013  M01S00910.1ds     +++|          LMC    WCSF
01014  M01S00911.1ds     +++|          RJM    WDS         WRITE COMMAND SECTOR
Line S00912 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01015  M02S00912.ns2663  ---|          MJN    EJB9.1      IF DISK ERROR
01016  M01S00010.ns2663  +++| EJB9.2   MJN    EJB9.1      IF DISK ERROR
01017  M01S00913.1ds     +++|          AOD    T7          ADVANCE SECTOR
01018  M01S00914.1ds     +++| EJB10    LDN    QFTE*5-5-1  SAVE QFT ENTRY
01019  M01S00915.1ds     +++|          STD    T2
01020  M01S00916.1ds     +++| EJB10.1  LDM    IOSS+5,T2
01021  M01S00917.1ds     +++|          STM    EJBK,T2
01022  M01S00918.1ds     +++|          SOD    T2
01023  M01S00919.1ds     +++|          PJN    EJB10.1     IF MORE TO MOVE
Line S00920 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01024  M02S00920.ns2663  ---|          LDC    501-DTEI    CLEAR END OF EOI BUFFER
01025  M01S00011.ns2663  +++|          LDD    MA          SET FNT/FST INFORMATION IN EOI SECTOR
01026  M01S00012.ns2663  +++|          CWM    FNSS,TR
01027  M01S00013.ns2663  +++|          SBN    3
01028  M01S00014.ns2663  +++|          CRM    BUFA+FNEI,TR
01029  M01S00015.ns2663  +++|          LDC    501-DTEI-5  CLEAR END OF EOI BUFFER
01030  M01S00921.1ds     +++|          STD    T2
01031  M01S00922.1ds     +++| EJB11    LDN    0
Line S00923 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01032  M02S00923.ns2663  ---|          STM    BFMS+DTEI,T2
01033  M01S00016.ns2663  +++|          STM    BUFA+DTEI+5,T2
01034  M01S00924.1ds     +++|          SOD    T2
01035  M01S00925.1ds     +++|          PJN    EJB11       IF MORE TO CLEAR
01036  M01S00017.ns2663  +++|          LDC    BUFA        SET EOI BUFFER ADDRESS
01037  M01S00926.1ds     +++|          RJM    WEI         WRITE EOI
Line S00927 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01038  M02S00927.ns2663  ---|          MJN    EJB9.1      IF DISK ERROR
01039  M01S00018.ns2663  +++|          MJN    EJB9.2      IF DISK ERROR
01040  M01S00928.1ds     +++|          ENDMS
01041  M01S00929.1ds     +++|          LDD    T5          SET EQUIPMENT
01042  M01S00930.1ds     +++|          STD    CM+1
01043  M01S00931.1ds     +++|          LDD    T7          SET LAST SECTOR
01044  M01S00932.1ds     +++|          STD    CM+3
01045  M01S00933.1ds     +++|          LDD    T6          SET TRACK
01046  M01S00934.1ds     +++|          LPC    3777
01047  M01S00935.1ds     +++|          STD    CM+2
01048  M01S00936.1ds     +++|          MONITOR  DTKM      DROP TRACKS
01049  M01S00937.1ds     +++|
01050  M01S00938.1ds     +++|*         QUEUE FILE.
01051  M01S00939.1ds     +++|
01052  M01S00019.ns2663  +++|          LDC    2RAB        SET *ABLQ* ACCOUNT FILE MESSAGE
01053  M01S00020.ns2663  +++|          STM    OVL0-2
01054  M01S00021.ns2663  +++|          LDC    2RLQ
01055  M01S00022.ns2663  +++|          STM    OVL0-1
01056  M01S00023.ns2663  +++|          EXECUTE  0QM,OVL0  ISSUE MESSAGE TO ACCOUNT FILE
01057  M01S00940.1ds     +++|          LCN    7           CLEAR ENTRY INTERLOCK
01058  M01S00941.1ds     +++|          RAD    FN+4
01059  M01S00942.1ds     +++|          LDN    QFTE-1
01060  M01S00943.1ds     +++|          STD    T2
Line S00944 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01061  M02S00944.ns2663  ---|          SFA    QFT,QA      STORE QFT ENTRY
01062  M01S00024.ns2663  +++|          SFA    QFT,QA      SET QFT ADDRESS
01063  M01S00025.ns2663  +++|          ADN    1           WRITE QFT DATA
01064  M01S00026.ns2663  +++|          CWM    EJBK,T2
01065  M01S00027.ns2663  +++|          SBN    QFTE-JSNQ   WRITE INTERLOCK WORD
01066  M01S00945.1ds     +++|          CWD    FN
Line S00946 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01067  M02S00946.ns2663  ---|          ADN    1
Line S00947 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01068  M02S00947.ns2663  ---|          CWM    EJBK,T2
01069  M01S00948.1ds     +++|          AOM    IDSB        ADVANCE JOB ENTRY COUNT
01070  M01S00949.1ds     +++|          LDK    INQF*100+7  SET DEFAULT FILE TYPE AND STATUS
01071  M01S00950.1ds     +++|          STM    EJBC
01072  M01S00951.1ds     +++|
01073  M01S00952.1ds     +++|*         REINITIALIZE *EJB*.
01074  M01S00953.1ds     +++|
01075  M01S00954.1ds     +++|          LDN    0           CLEAR PARAMETERS
01076  M01S00955.1ds     +++|          STM    EJBE
01077  M01S00956.1ds     +++|          LJM    EJBX        RETURN
01078  M01S00957.1ds     +++|
01079  M01S00958.1ds     +++|
01080  M01S00959.1ds     +++| EJBH     VFD    42/0LINPUT,6/0,6/INFT,6/0
01081  M01S00960.1ds     +++| EJBK     BSS    QFTE*5-5    BUFFER FOR QFT ENTRY
01082  M01S00961.1ds     +++| EJBJ     VFD    42/0,18/SYUI
01083  M01S00962.1ds     +++| EJBL     VFD    12/7777,12/377,36/0
01084  M01S00963.1ds     +++| EJBM     VFD    60/-0
01085  M01S00964.1ds     +++| EJBN     DATA   C* NO INPUT FILE SPACE AVAILABLE.*
01086  M01S00965.1ds     +++| GAC      SPACE  4,10
01087  M01S00966.1ds     +++|**        GAC - GENERATE ASSIGN COMMAND.
01088  M01S00967.1ds     +++|*
01089  M01S00968.1ds     +++|*         ENTRY  (A) = ADDRESS OF STRING *XXX,LOAD)*.
01090  M01S00969.1ds     +++|*                (IR+3) = EST ORDINAL.
01091  M01S00970.1ds     +++|*
01092  M01S00971.1ds     +++|*         USES   T3.
01093  M01S00972.1ds     +++|*
01094  M01S00973.1ds     +++|*         CALLS  ACS, C2D, CCI.
01095  M01S00974.1ds     +++|
01096  M01S00975.1ds     +++|
01097  M01S00976.1ds     +++| GAC      SUBR               ENTRY/EXIT
01098  M01S00977.1ds     +++|          STD    T3          SAVE ADDRESS OF FILE NAME
01099  M01S00978.1ds     +++|          LDC    =C*ASSIGN(*
01100  M01S00979.1ds     +++|          RJM    ACS
01101  M01S00980.1ds     +++|          LDD    IR+3        CONVERT UPPER TWO DIGITS OF EST ORDINAL
01102  M01S00981.1ds     +++|          SHN    -3
01103  M01S00982.1ds     +++|          RJM    C2D
01104  M01S00983.1ds     +++|          STI    T3
01105  M01S00984.1ds     +++|          LDD    IR+3        CONVERT LOWER DIGIT OF EST ORDINAL
01106  M01S00985.1ds     +++|          LPN    7
01107  M01S00986.1ds     +++|          SHN    6
01108  M01S00987.1ds     +++|          ADC    2R0,
01109  M01S00988.1ds     +++|          STM    1,T3
01110  M01S00989.1ds     +++|          LDD    T3          COMPLETE COMMAND IMAGE
01111  M01S00990.1ds     +++|          RJM    CCI
01112  M01S00991.1ds     +++|          UJN    GACX        RETURN
01113  M01S00992.1ds     +++| GJC      SPACE  4,10
01114  M01S00993.1ds     +++|**        GJC - GENERATE JOB COMMAND.
01115  M01S00994.1ds     +++|*
01116  M01S00995.1ds     +++|*         ENTRY  (A) = ADDRESS OF LEFT JUSTIFIED NAME.
01117  M01S00996.1ds     +++|*
01118  M01S00997.1ds     +++|*         EXIT   (BUFA - BUFA+4) = JOB COMMAND.
01119  M01S00998.1ds     +++|*
01120  M01S00999.1ds     +++|*         USES   T1, T3.
01121  M01S01000.1ds     +++|*
01122  M01S01001.1ds     +++|*         CALLS  ACS, CCI.
01123  M01S01002.1ds     +++|
01124  M01S01003.1ds     +++|
01125  M01S01004.1ds     +++| GJC      SUBR               ENTRY/EXIT
01126  M01S01005.1ds     +++|          STD    T3          SAVE JOB COMMAND ADDRESS
01127  M01S01006.1ds     +++|          LDD    CA
01128  M01S01007.1ds     +++|          ADC    477
01129  M01S01008.1ds     +++|          STD    T1
01130  M01S01009.1ds     +++| GJC1     LDN    0           CLEAR COMMAND BUFFER
01131  M01S01010.1ds     +++|          STI    T1
01132  M01S01011.1ds     +++|          SOD    T1
01133  M01S01012.1ds     +++|          LMD    CA
01134  M01S01013.1ds     +++|          NJN    GJC1        IF NOT END OF BUFFER
01135  M01S01014.1ds     +++|          STI    T1
01136  M01S01015.1ds     +++|          LDD    T3          COPY JOB COMMAND TO BUFFER
01137  M01S01016.1ds     +++|          RJM    ACS
01138  M01S01017.1ds     +++|          LDC    =C*.*       COMPLETE JOB COMMAND
01139  M01S01018.1ds     +++|          RJM    CCI
01140  M01S01019.1ds     +++|          UJN    GJCX        RETURN
01141  M01S01020.1ds     +++| ISJ      SPACE  4,10
01142  M01S01021.1ds     +++|**        ISJ - INITIATE SUBSYSTEM JOB.
01143  M01S01022.1ds     +++|*
01144  M01S01023.1ds     +++|*         ENTRY  (A) = SUBSYSTEM ID.
01145  M01S01024.1ds     +++|*                (TN) = ADDRESS OF SUBSYSTEM TABLE ENTRY.
01146  M01S01025.1ds     +++|*
01147  M01S01026.1ds     +++|*         EXIT   (A) = 0, IF SUBSYSTEM INITIATED.
01148  M01S01027.1ds     +++|*
01149  M01S01028.1ds     +++|*         USES   BA, JS, FN - FN+4.
01150  M01S01029.1ds     +++|*
01151  M01S01030.1ds     +++|*         CALLS  AST, EJB.
01152  M01S01031.1ds     +++|
01153  M01S01032.1ds     +++|
01154  M01S01033.1ds     +++| ISJ      SUBR               ENTRY/EXIT
01155  M01S01034.1ds     +++|          STM    EJBE        SET SUBSYSTEM ID
01156  M01S01035.1ds     +++|          LMC    DSSI
01157  M01S01036.1ds     +++|          ZJN    ISJ0        IF DEADSTART SEQUENCING JOB
01158  M01S01037.1ds     +++|          LMC    FEAF*10000&DSSI  FETCH *SSAT* ENTRY
01159  M01S01038.1ds     +++|          RJM    AST
01160  M01S01039.1ds     +++|          NJN    ISJX        IF SUBSYSTEM ACTIVE
01161  M01S01040.1ds     +++| ISJ0     STD    BA
01162  M01S01041.1ds     +++|          LDN    ZERL        ZERO FILL BUFFER
01163  M01S01042.1ds     +++|          CRM    BUFA,ON
01164  M01S01043.1ds     +++|          LDI    TN          SET JSN AND UJN = SUBSYSTEM NAME
01165  M01S01044.1ds     +++|          STD    FN
01166  M01S01045.1ds     +++|          STM    BUFA
01167  M01S01046.1ds     +++|          LDM    1,TN
01168  M01S01047.1ds     +++|          SCN    77
01169  M01S01048.1ds     +++|          STM    BUFA+1
01170  M01S01049.1ds     +++|          LMN    1R          SPACE-FILL JSN
01171  M01S01050.1ds     +++|          STD    FN+1
01172  M01S01051.1ds     +++|          LDC    ADCI+1      DISABLE JSN ACQUISITION
01173  M01S01052.1ds     +++|          STM    EJBD
01174  M01S01053.1ds     +++| ISJA     LDN    SSSC        SET SERVICE CLASS
01175  M01S01054.1ds     +++|*         LDN    DSSC        (DEADSTART SEQUENCING JOB)
01176  M01S01055.1ds     +++|          STD    JS
01177  M01S01056.1ds     +++|          LDM    4,TN        SET FILE TYPE AND STATUS
01178  M01S01057.1ds     +++|          ZJN    ISJ1        IF NOT SPECIFIED
01179  M01S01058.1ds     +++|          STM    EJBC
01180  M01S01059.1ds     +++| ISJ1     LDM    1,TN
01181  M01S01060.1ds     +++|          SHN    21-5
01182  M01S01061.1ds     +++|          MJP    ISJ2        IF PP-INITIATED SUBSYSTEM
01183  M01S01062.1ds     +++|
01184  M01S01063.1ds     +++|*         FOR NON-PP-INITIATED SUBSYSTEMS, GENERATE A JOB INPUT FILE
01185  M01S01064.1ds     +++|*         WITH THE FOLLOWING FORMAT -
01186  M01S01065.1ds     +++|*                SUBPROC.
01187  M01S01066.1ds     +++|*                GET,SUBPROC/NA.
01188  M01S01067.1ds     +++|*                SUBPROC.
01189  M01S01068.1ds     +++|
01190  M01S01069.1ds     +++|          LDC    BUF         INDICATE COMMAND RECORD PRESENT
01191  M01S01070.1ds     +++|          STD    BA
01192  M01S01071.1ds     +++|          LDN    ZERL        BUILD SUBSYSTEM PROCEDURE FILE NAME
01193  M01S01072.1ds     +++|          CRD    AB
01194  M01S01073.1ds     +++|          LDI    TN          SUBSYSTEM NAME
01195  M01S01074.1ds     +++|          STD    AB
01196  M01S01075.1ds     +++|          LDM    1,TN
01197  M01S01076.1ds     +++|          SCN    77
01198  M01S01077.1ds     +++|          SHN    6
01199  M01S01078.1ds     +++|          LMC    **          (FIRST BYTE OF PROCEDURE NAME SUFFIX)
01200  M01S01079.1ds     +++| ISJB     EQU    *-1
01201  M01S01080.1ds     +++|          SHN    -6+22
01202  M01S01081.1ds     +++|          STD    AB+1
01203  M01S01082.1ds     +++|          LPC    770000
01204  M01S01083.1ds     +++|          LMC    **          (SECOND BYTE OF PROCEDURE NAME SUFFIX)
01205  M01S01084.1ds     +++| ISJC     EQU    *-1
01206  M01S01085.1ds     +++|          SHN    -6+22
01207  M01S01086.1ds     +++|          STD    AB+2
01208  M01S01087.1ds     +++|          SHN    -6
01209  M01S01088.1ds     +++|          SCN    77
01210  M01S01089.1ds     +++|          STD    AB+3
01211  M01S01090.1ds     +++|          LDN    AB          GENERATE JOB COMMAND
01212  M01S01091.1ds     +++|          RJM    GJC
01213  M01S01092.1ds     +++|          LDC    =C*GET,*    GENERATE *GET,SUBPROC/NA.*
01214  M01S01093.1ds     +++|          RJM    ACS
01215  M01S01094.1ds     +++|          LDN    AB
01216  M01S01095.1ds     +++|          RJM    ACS
01217  M01S01096.1ds     +++|          LDC    =C*/NA.*
01218  M01S01097.1ds     +++|          RJM    CCI
01219  M01S01098.1ds     +++|          LDN    AB          GENERATE NAME CALL TO PROCEDURE
01220  M01S01099.1ds     +++|          RJM    ACS
01221  M01S01100.1ds     +++|          LDC    =C*.*
01222  M01S01101.1ds     +++|          RJM    CCI
01223  M01S01102.1ds     +++|          LDN    0           CLEAR SUFFIX FOR NEXT CALL
01224  M01S01103.1ds     +++|          STM    ISJB
01225  M01S01104.1ds     +++|          STM    ISJC
01226  M01S01105.1ds     +++| ISJ2     RJM    EJB         ENTER JOB
01227  M01S01106.1ds     +++|          LJM    ISJX        RETURN
01228  M01S01107.1ds     +++| SJF      SPACE  4,10
01229  M01S01108.1ds     +++|**        SJF - SET JOB FIELD LENGTH.
01230  M01S01109.1ds     +++|*
01231  M01S01110.1ds     +++|*         ENTRY  (AB - AB+4) = ENTRY POINT NAME.
01232  M01S01111.1ds     +++|*
01233  M01S01112.1ds     +++|*         EXIT   (JF) = FIELD LENGTH.
01234  M01S01113.1ds     +++|*
01235  M01S01114.1ds     +++|*         USES   JF, CM - CM+4.
01236  M01S01115.1ds     +++|*
01237  M01S01116.1ds     +++|*         CALLS  CLD.
01238  M01S01117.1ds     +++|
01239  M01S01118.1ds     +++|
01240  M01S01119.1ds     +++| SJF1     LDC    DFFL/100    SET DEFAULT FIELD LENGTH
01241  M01S01120.1ds     +++| SJF2     STD    JF
01242  M01S01121.1ds     +++|
01243  M01S01122.1ds     +++| SJF      SUBR               ENTRY/EXIT
01244  M01S01123.1ds     +++|          RJM    CLD         SEARCH FOR PROGRAM
01245  M01S01124.1ds     +++|          CRD    CM
01246  M01S01125.1ds     +++|          LDD    CM          CHECK FOR MFL=/RFL= ENTRY POINT
01247  M01S01126.1ds     +++|          ZJN    SJF1        IF NO FILE LENGTH SPECIFIED
01248  M01S01127.1ds     +++|          STD    JF
01249  M01S01128.1ds     +++|          SHN    6
01250  M01S01129.1ds     +++|          PJN    SJFX        IF NOT MFL= ENTRY POINT
01251  M01S01130.1ds     +++|          SHN    2
01252  M01S01131.1ds     +++|          SHN    -8D
01253  M01S01132.1ds     +++|          UJN    SJF2        SET FIELD LENGTH
01254  M01S01133.1ds     +++| SSC      SPACE  4,10
01255  M01S01134.1ds     +++|**        SSC - SET SERVICE CLASS.
01256  M01S01135.1ds     +++|*
01257  M01S01136.1ds     +++|*         ENTRY  (AB - AB+1) = COMMAND.
01258  M01S01137.1ds     +++|*
01259  M01S01138.1ds     +++|*         EXIT   (JS) = *MASC* IF MAINTENANCE JOB.
01260  M01S01139.1ds     +++|*                     = *SYSC* IF NOT MAINTENANCE JOB.
01261  M01S01140.1ds     +++|*
01262  M01S01141.1ds     +++|*         USES   JC, TN.
01263  M01S01142.1ds     +++|
01264  M01S01143.1ds     +++|
01265  M01S01144.1ds     +++| SSC2     LMD    AB          FIND COMMAND
01266  M01S01145.1ds     +++|          NJN    SSC3        IF NO MATCH
01267  M01S01146.1ds     +++|          LDM    1,JC
01268  M01S01147.1ds     +++|          LMD    AB+1
01269  M01S01148.1ds     +++|          ZJN    SSC5        IF MAINTENANCE JOB
01270  M01S01149.1ds     +++| SSC3     LDN    2           ADVANCE TABLE ADDRESS
01271  M01S01150.1ds     +++|          RAD    JC
01272  M01S01151.1ds     +++| SSC4     LDI    JC
01273  M01S01152.1ds     +++|          NJN    SSC2        IF NOT END OF TABLE
01274  M01S01153.1ds     +++|          AOD    TN          ADVANCE LIST ADDRESS
01275  M01S01154.1ds     +++|          LMN    ITJAL
01276  M01S01155.1ds     +++|          NJN    SSC1        IF NOT END OF TABLES
01277  M01S01156.1ds     +++|          LDN    SYSC&MASC
01278  M01S01157.1ds     +++| SSC5     LMN    MASC        SET SERVICE CLASS
01279  M01S01158.1ds     +++|          STD    JS
01280  M01S01159.1ds     +++|
01281  M01S01160.1ds     +++| SSC      SUBR               ENTRY/EXIT
01282  M01S01161.1ds     +++|          LDN    0
01283  M01S01162.1ds     +++|          STD    TN
01284  M01S01163.1ds     +++| SSC1     LDM    ITJA,TN     SET TABLE ADDRESS
01285  M01S01164.1ds     +++|          STD    JC
01286  M01S01165.1ds     +++|          UJN    SSC4        ENTER LOOP
Line S01166 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
01287  M02S01166.1ds21   ---|          SPACE  4,10
Line S01167 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
01288  M02S01167.1ds21   ---| OVLA     EQU    *           ORIGIN OF OVERLAY AREA
Line S01168 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
01289  M02S01168.1ds21   ---|          SPACE  4,10
Line S01169 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
01290  M02S01169.1ds21   ---|*         COMMON DECKS.
Line S01170 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
01291  M02S01170.1ds21   ---|
Line S01171 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
01292  M02S01171.1ds21   ---|
Line S01172 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
01293  M02S01172.1ds21   ---|*CALL     COMPRFI
Line S01173 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
01294  M02S01173.1ds21   ---| SUB$     EQU    1           ASSEMBLE *SUBSYST* MACRO
Line S01174 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
01295  M02S01174.1ds21   ---|*CALL     COMSSSD
01296  M01S01175.1ds     +++|          TITLE  REQUEST PROCESSORS.
01297  M01S01176.1ds     +++| ICJ      SPACE  4,10
01298  M01S01177.1ds     +++|***       FUNCTION ICJF - INITIATE COMMAND JOB.
01299  M01S01178.1ds     +++|*
01300  M01S01179.1ds     +++|*         ENTRY  (IR+4) = 6/KEYBOARD BUFFER OFFSET, 6/.
01301  M01S01180.1ds     +++|*                (IJCA) = FIELD LENGTH SPECIFIED BY CALLER (*IJCF*
01302  M01S01181.1ds     +++|*                         FUNCTION ONLY.  ZERO, OTHERWISE.)
01303  M01S01182.1ds     +++|
01304  M01S01183.1ds     +++|
01305  M01S01184.1ds     +++| ICJ      ENTRY              ENTRY/EXIT
01306  M01S01185.1ds     +++|          LDC    BFMS        GET COMMAND
01307  M01S01186.1ds     +++|          RJM    RPK
01308  M01S01187.1ds     +++|          LDC    /1DS/DSDL+/1DS/KBCML  GET SPECIAL PARAMETER
01309  M01S01188.1ds     +++|          CRD    AB
01310  M01S01189.1ds     +++|          LDN    0
01311  M01S01190.1ds     +++|          STM    BFMS+/1DS/KBCML/2*5
01312  M01S01191.1ds     +++|          RJM    SJF         SET JOB FIELD LENGTH
01313  M01S01192.1ds     +++|          LDM    IJCA
01314  M01S01193.1ds     +++|          ZJN    ICJ1        IF NO FIELD LENGTH SPECIFIED
01315  M01S01194.1ds     +++|          STD    JF
01316  M01S01195.1ds     +++| ICJ1     LDD    JF          CONVERT INITIAL RFL
01317  M01S01196.1ds     +++|          SHN    -6
01318  M01S01197.1ds     +++|          RJM    C2D
01319  M01S01198.1ds     +++|          STM    ICJH+2
01320  M01S01199.1ds     +++|          LDD    JF
01321  M01S01200.1ds     +++|          RJM    C2D
01322  M01S01201.1ds     +++|          STM    ICJH+3
01323  M01S01202.1ds     +++|          LDN    AB          GENERATE JOB COMMAND
01324  M01S01203.1ds     +++|          RJM    GJC
01325  M01S01204.1ds     +++|          LDC    ICJF
01326  M01S01205.1ds     +++|          RJM    CCI         CREATE COMMAND IMAGE
01327  M01S01206.1ds     +++|          LDC    TSJN
01328  M01S01207.1ds     +++|          STD    T3
01329  M01S01208.1ds     +++|          UJN    ICJ3        CHECK SPECIAL JOB NAME
01330  M01S01209.1ds     +++|
01331  M01S01210.1ds     +++| ICJ2     LDI    T3          ADVANCE TO NEXT ENTRY
01332  M01S01211.1ds     +++|          ADN    1
01333  M01S01212.1ds     +++|          RAD    T3
01334  M01S01213.1ds     +++|          STM    ICJA
01335  M01S01214.1ds     +++| ICJ3     LDI    T3          SET ENTRY LENGTH
01336  M01S01215.1ds     +++|          ZJN    ICJ5        IF END OF TABLE
01337  M01S01216.1ds     +++|          STD    T2
01338  M01S01217.1ds     +++| ICJ4     LDM    TSJN,T2     COMPARE JOB NAMES
01339  M01S01218.1ds     +++| ICJA     EQU    *-1
01340  M01S01219.1ds     +++|          LMM    AB-1,T2
01341  M01S01220.1ds     +++|          NJN    ICJ2        IF NO COMPARE
01342  M01S01221.1ds     +++|          SOD    T2
01343  M01S01222.1ds     +++|          NJN    ICJ4        IF NOT END OF NAME
01344  M01S01223.1ds     +++|          STM    EJBA
01345  M01S01224.1ds     +++|          STM    EJBB
01346  M01S01225.1ds     +++|          LCN    ICJGL
01347  M01S01226.1ds     +++| ICJ5     ADN    ICJGL+1     ADJUST POINTER FOR NEXT COMMAND
01348  M01S01227.1ds     +++|          RAD    LA
01349  M01S01228.1ds     +++| ICJ6     LDD    LA          CREATE COMMAND IMAGE
01350  M01S01229.1ds     +++|          RJM    CCI
01351  M01S01230.1ds     +++|          AOD    LA          ADVANCE COMMAND POINTER
01352  M01S01231.1ds     +++|          LDI    LA
01353  M01S01232.1ds     +++|          NJN    ICJ6        IF NOT END OF COMMAND STREAM
01354  M01S01233.1ds     +++|          LDC    BFMS        COPY COMMAND (OR JOB COMMAND)
01355  M01S01234.1ds     +++|*         LDC    BUFA        (INITIATE JOB CALL)
01356  M01S01235.1ds     +++| ICJB     EQU    *-1
01357  M01S01236.1ds     +++|          RJM    CCI
01358  M01S01237.1ds     +++|          RJM    SSC         SET SERVICE CLASS
01359  M01S01238.1ds     +++|          LDC    UJSI        SET *SISS* FIELD
01360  M01S01239.1ds     +++|*         LDC    IRSI        (SET INHIBIT ROLLOUT ID)
01361  M01S01240.1ds     +++| ICJC     EQU    *-1
01362  M01S01241.1ds     +++|          STM    EJBE
01363  M01S01242.1ds     +++|          LDC    INQF*100+7  GENERATE OUTPUT
01364  M01S01243.1ds     +++|*         LDC    NOQF*100+7  (DO NOT GENERATE OUTPUT)
01365  M01S01244.1ds     +++| ICJD     EQU    *-1
01366  M01S01245.1ds     +++|          STM    EJBC
01367  M01S01246.1ds     +++|          RJM    EJB         ENTER JOB
01368  M01S01247.1ds     +++|          LJM    ICJX        RETURN
01369  M01S01248.1ds     +++|
01370  M01S01249.1ds     +++|
01371  M01S01250.1ds     +++| ICJF     DATA   Z*MODE(0)*
01372  M01S01251.1ds     +++|*         DATA   Z*MODE(1)*  (CYBER 176)
01373  M01S01252.1ds     +++| ICJG     DATA   Z*SUI(0)*
01374  M01S01253.1ds     +++| ICJGL    EQU    *-ICJG
01375  M01S01254.1ds     +++|          DATA   Z*RETURN(INPUT)*
01376  M01S01255.1ds     +++|          DATA   Z*NORERUN.*
01377  M01S01256.1ds     +++| ICJH     DATA   Z*RFL(XXXX00)*
01378  M01S01257.1ds     +++|          CON    0           END OF COMMANDS
01379  M01S01258.1ds     +++| TSJN     SPACE  4,10
01380  M01S01259.1ds     +++|**        TSJN - TABLE OF SPECIAL JOB NAMES.
01381  M01S01260.1ds     +++|*
01382  M01S01261.1ds     +++|*         JOBS LISTED IN THIS TABLE WILL HAVE A *SUI(0)*
01383  M01S01262.1ds     +++|*         COMMAND INCLUDED IN THEIR JOB STREAM.
01384  M01S01263.1ds     +++|*
01385  M01S01264.1ds     +++|*         12/ L, 12*L/ NAME
01386  M01S01265.1ds     +++|*                L = LENGTH OF JOB NAME IN PP WORDS.
01387  M01S01266.1ds     +++|*                NAME = JOB NAME TO COMPARE.
01388  M01S01267.1ds     +++|
01389  M01S01268.1ds     +++|
01390  M01S01269.1ds     +++| TSJN     BSS    0
01391  M01S00001.1ds23   +++|          VFD    12/2,24/0LDDF
01392  M01S01270.1ds     +++|          VFD    12/2,24/0LDIS
01393  M01S01271.1ds     +++|          VFD    12/2,24/0LO26
01394  M01S01272.1ds     +++|          VFD    12/0        END OF TABLE
01395  M01S01273.1ds     +++| ISC      SPACE  4,10
01396  M01S01274.1ds     +++|***       FUNCTION ISCF - INITIATE SYSTEM COMMAND JOB.
01397  M01S01275.1ds     +++|*
01398  M01S01276.1ds     +++|*         ENTRY  (IR+4) = 6/ KEYBOARD BUFFER OFFSET, 6/.
01399  M01S01277.1ds     +++|*
01400  M01S01278.1ds     +++|*         NOTE   FLAGS SET IN ROUTINE *ICJ* TO SET
01401  M01S01279.1ds     +++|*                *SISS* FIELD IN THE SYSTEM SECTOR AND
01402  M01S01280.1ds     +++|*                TO NOT DISPOSE OUTPUT AT END OF JOB TIME.
01403  M01S01281.1ds     +++|
01404  M01S01282.1ds     +++|
01405  M01S01283.1ds     +++| ISC      ENTRY              ENTRY/EXIT
01406  M01S01284.1ds     +++|          LDN    IRSI        SET INHIBIT ROLLOUT IN *SISS*
01407  M01S01285.1ds     +++|          STM    ICJC
01408  M01S01286.1ds     +++|          LDC    NOQF*100+7  SET NO OUTPUT
01409  M01S01287.1ds     +++|          STM    ICJD
01410  M01S01288.1ds     +++|          RJM    ICJ         INITIATE COMMAND JOB
01411  M01S01289.1ds     +++|          UJN    ISCX        RETURN
01412  M01S01290.1ds     +++| ITJ      SPACE  4,10
01413  M01S01291.1ds     +++|***       FUNCTION ITJF.
01414  M01S01292.1ds     +++|*
01415  M01S01293.1ds     +++|*         INITIATE JOBS FROM TABLE.
01416  M01S01294.1ds     +++|*         INITIATE ALL ENABLED SUB-SYSTEMS.
01417  M01S01295.1ds     +++|
01418  M01S01296.1ds     +++|
01419  M01S01297.1ds     +++|*         CALCULATE NEXT TABLE NUMBER FROM CPU TYPE.
01420  M01S01298.1ds     +++|
01421  M01S01299.1ds     +++| ITJ8     LDD    FG          CALCULATE NEXT TABLE NUMBER
01422  M01S01300.1ds     +++|          SHN    0-4
01423  M01S01301.1ds     +++|          LPN    1           ZERO IF INSTRUCTION STACK PRESENT
01424  M01S01302.1ds     +++|          STD    T1
01425  M01S01303.1ds     +++|          LDD    FG
01426  M01S01304.1ds     +++|          SHN    1-6
01427  M01S01305.1ds     +++|          LPN    2           ZERO IF CYBER 170 MAINFRAME
01428  M01S01306.1ds     +++|          RAD    T1
01429  M01S01307.1ds     +++|          LDN    4
01430  M01S01308.1ds     +++|          SBD    T1
01431  M01S01309.1ds     +++|          UJN    ITJ11       CONTINUE PROCESSING
01432  M01S01310.1ds     +++|
01433  M01S01311.1ds     +++|*         CHECK FOR 6700 OR CYBER 74-2X MAINFRAME TYPE.
01434  M01S01312.1ds     +++|
01435  M01S01313.1ds     +++| ITJ9     LDD    FG          CHECK DUAL CPU BIT
01436  M01S01314.1ds     +++|          LPN    2
01437  M01S01315.1ds     +++|          NJN    ITJ13       IF NOT DUAL CPU
01438  M01S01316.1ds     +++|          LDN    1           SET TABLE 1
01439  M01S01317.1ds     +++|          UJN    ITJ1        PROCESS TABLE 1 JOBS
01440  M01S01318.1ds     +++|
01441  M01S01319.1ds     +++|*         CHECK FOR CMU.
01442  M01S01320.1ds     +++|
01443  M01S01321.1ds     +++| ITJ10    LDD    FG          CHECK CMU BIT
01444  M01S01322.1ds     +++|          SHN    21-3
01445  M01S01323.1ds     +++|          MJN    ITJ13       IF NO CMU
01446  M01S01324.1ds     +++|          LDN    5           SET TABLE 5
01447  M01S01325.1ds     +++| ITJ11    UJN    ITJ1        PROCESS TABLE
01448  M01S01326.1ds     +++|
01449  M01S01327.1ds     +++|*         CHECK IF ALL TABLES PROCESSED.
01450  M01S01328.1ds     +++|
01451  M01S01329.1ds     +++| ITJ12    LDD    TN          CHECK CURRENT TABLE NUMBER
01452  M01S01330.1ds     +++|          ZJN    ITJ8        IF TABLE 0
01453  M01S01331.1ds     +++|          LMN    2
01454  M01S01332.1ds     +++|          ZJN    ITJ9        IF TABLE 2
01455  M01S01333.1ds     +++|          LMN    5&2
01456  M01S01334.1ds     +++|          NJN    ITJ10       IF NOT TABLE 5
01457  M01S01335.1ds     +++| ITJ13    RJM    IAS         INITIATE ALL ENABLED SUBSYSTEMS
01458  M01S01336.1ds     +++|
01459  M01S01337.1ds     +++| ITJ      ENTRY              ENTRY/EXIT
01460  M01S01338.1ds     +++|          LDD    FG
01461  M01S01339.1ds     +++|          SHN    -6
01462  M01S01340.1ds     +++|          LPN    71
01463  M01S01341.1ds     +++|          ZJN    ITJ0        IF CYBER 170-865/875
01464  M01S01342.1ds     +++|          LMN    70
01465  M01S01343.1ds     +++|          ZJN    ITJ0.1      IF CYBER 176
01466  M01S01344.1ds     +++|          SHN    -5
01467  M01S01345.1ds     +++|          ZJN    ITJ1        IF NOT CYBER 170-815/825/835/855
01468  M01S01346.1ds     +++|          LDN    0           SPIN UP ISMD DEVICES
01469  M01S01347.1ds     +++|          RJM    SUD
01470  M01S01348.1ds     +++|          LDN    7&10        SET TABLE FOR CYBER 170-815/825/835/855
01471  M01S01349.1ds     +++| ITJ0     LMN    10&6        SET TABLE FOR CYBER 170-865/875
01472  M01S01350.1ds     +++| ITJ0.1   LMN    6           SET TABLE FOR CYBER 176
01473  M01S01351.1ds     +++| ITJ1     STD    TN          SET TABLE NUMBER
01474  M01S01352.1ds     +++|          LDM    ITJA,TN     SET JOB TABLE ADDRESS
01475  M01S01353.1ds     +++|          STD    JC
01476  M01S01354.1ds     +++|          LDN    0           CLEAR SECOND PASS FLAG
01477  M01S01355.1ds     +++|          STM    ITJD
01478  M01S01356.1ds     +++| ITJ2     LDN    ZERL
01479  M01S01357.1ds     +++|          CRD    AB
01480  M01S01358.1ds     +++|          LDI    JC          SET JOB NAME
01481  M01S01359.1ds     +++|          NJN    ITJ2.2      IF NOT END OF TABLE
01482  M01S01360.1ds     +++|          LDC    *
01483  M01S01361.1ds     +++| ITJC     EQU    *-1
01484  M01S01362.1ds     +++| ITJ2.1   NJP    ITJ12       IF NOT A DUAL CPU MACHINE
01485  M01S01363.1ds     +++|          LDC    **
01486  M01S01364.1ds     +++| ITJD     EQU    *-1
01487  M01S01365.1ds     +++|          NJN    ITJ2.1      IF END OF SECOND PASS
01488  M01S01366.1ds     +++|          AOM    ITJD        FLAG SECOND PASS
01489  M01S01367.1ds     +++|          LDM    ITJA,TN     RESET TABLE POINTER
01490  M01S01368.1ds     +++|          STD    JC
01491  M01S01369.1ds     +++|          LDI    JC
01492  M01S01370.1ds     +++| ITJ2.2   STD    AB
01493  M01S01371.1ds     +++|          LDM    1,JC
01494  M01S01372.1ds     +++|          STD    AB+1
01495  M01S01373.1ds     +++|          RJM    SJF         SET JOB FIELD LENGTH
01496  M01S01374.1ds     +++|          LDN    AB          GENERATE JOB COMMAND
01497  M01S01375.1ds     +++|          RJM    GJC
01498  M01S01376.1ds     +++|          LDC    ICJF
01499  M01S01377.1ds     +++|          RJM    CCI         CREATE COMMAND IMAGE
01500  M01S01378.1ds     +++|
01501  M01S01379.1ds     +++|*         ISSUE USECPU COMMAND IF ON 6700 OR CYBER 74-2X.
01502  M01S01380.1ds     +++|
01503  M01S01381.1ds     +++|          LDD    FG          CHECK DUAL AND STACK CPU BITS
01504  M01S01382.1ds     +++|          LPC    4122
01505  M01S01383.1ds     +++|          LMC    4100        PREVENT SELECTION FOR CYBER 170 AND 8X5
01506  M01S01384.1ds     +++|          NJN    ITJ2.4      IF NOT DUAL AND STACK CPU ON 6000 OR C70
01507  M01S01385.1ds     +++|          LDD    TN          CHECK TABLE NUMBER
01508  M01S01386.1ds     +++|          ZJN    ITJ5        IF TABLE 0
01509  M01S01387.1ds     +++|          LMN    1
01510  M01S01388.1ds     +++|          ZJN    ITJ3        IF TABLE 1
01511  M01S01389.1ds     +++| ITJ2.3   LDC    =C*USECPU(1)*  CPU0
01512  M01S01390.1ds     +++|          UJN    ITJ4        CREATE COMMAND IMAGE
01513  M01S01391.1ds     +++|
01514  M01S01392.1ds     +++| ITJ2.4   LDD    FG
01515  M01S01393.1ds     +++|          LPN    2
01516  M01S01394.1ds     +++|          STM    ITJC
01517  M01S01395.1ds     +++|          NJN    ITJ5        IF NOT A DUAL CPU MACHINE
01518  M01S01396.1ds     +++|          LDM    ITJD
01519  M01S01397.1ds     +++|          NJN    ITJ3        IF PASS 2
01520  M01S01398.1ds     +++|          UJN    ITJ2.3      CREATE COMMAND IMAGE
01521  M01S01399.1ds     +++|
01522  M01S01400.1ds     +++| ITJ3     LDC    =C*USECPU(2)* CPU1
01523  M01S01401.1ds     +++| ITJ4     RJM    CCI         CREATE COMMAND IMAGE
01524  M01S01402.1ds     +++| ITJ5     LDD    TN
01525  M01S01403.1ds     +++|          LMN    6
01526  M01S01404.1ds     +++|          NJN    ITJ6        IF NOT CYBER 176 STACK
01527  M01S01405.1ds     +++|          LDC    TSBJA
01528  M01S01406.1ds     +++|          LMD    JC
01529  M01S01407.1ds     +++|          NJN    ITJ6        IF NOT JOB *LCM*
01530  M01S01408.1ds     +++|          LDC    =C*RFL,EC=10.*
01531  M01S01409.1ds     +++|          RJM    CCI         CREATE COMMAND IMAGE
01532  M01S01410.1ds     +++| ITJ6     LDD    CA
01533  M01S01411.1ds     +++|          RJM    CCI         CREATE COMMAND IMAGE
01534  M01S01412.1ds     +++|          LDC    =C*EXIT.*
01535  M01S01413.1ds     +++|          RJM    CCI         CREATE COMMAND IMAGE
01536  M01S01414.1ds     +++|          LDC    =C*DMP.*
01537  M01S01415.1ds     +++|          RJM    CCI         CREATE COMMAND IMAGE
01538  M01S01416.1ds     +++|          LDD    JF          CONVERT FIELD LENGTH
01539  M01S01417.1ds     +++|          SHN    -6
01540  M01S01418.1ds     +++|          RJM    C2D
01541  M01S01419.1ds     +++|          STM    ITJB+2
01542  M01S01420.1ds     +++|          LDD    JF
01543  M01S01421.1ds     +++|          RJM    C2D
01544  M01S01422.1ds     +++|          STM    ITJB+3
01545  M01S01423.1ds     +++|          LDC    ITJB
01546  M01S01424.1ds     +++|          RJM    CCI         CREATE COMMAND IMAGE
01547  M01S01425.1ds     +++|          LDC    =C*IFE(EF.EQ.ODE,NOLIST)*
01548  M01S01426.1ds     +++|          RJM    CCI         CREATE COMMAND IMAGE
01549  M01S01427.1ds     +++|          LDC    =C*RETURN(OUTPUT)*
01550  M01S01428.1ds     +++|          RJM    CCI         CREATE COMMAND IMAGE
01551  M01S01429.1ds     +++|          LDC    =C*ENDIF(NOLIST)*
01552  M01S01430.1ds     +++|          RJM    CCI         CREATE COMMAND IMAGE
01553  M01S01431.1ds     +++|          LDN    MASC        SET SERVICE CLASS
01554  M01S01432.1ds     +++|          STD    JS
01555  M01S01433.1ds     +++|          RJM    EJB         ENTER JOB
01556  M01S01434.1ds     +++|          PJN    ITJ7        IF JOB QUEUED
01557  M01S01435.1ds     +++|          LJM    ITJ13       ENABLE JOB SCHEDULING
01558  M01S01436.1ds     +++|
01559  M01S01437.1ds     +++| ITJ7     LDN    2           ADVANCE JOB COUNTER
01560  M01S01438.1ds     +++|          RAD    JC
01561  M01S01439.1ds     +++|          LJM    ITJ2        LOOP
01562  M01S01440.1ds     +++|
01563  M01S01441.1ds     +++|
01564  M01S01442.1ds     +++| ITJA     BSS    0
01565  M01S01443.1ds     +++|          LOC    0
01566  M01S01444.1ds     +++|          CON    TCMJ        COMMON MAINTENANCE JOBS
01567  M01S01445.1ds     +++|          CON    TNSJ        CYBER 70 NO STACK MAINTENANCE JOBS
01568  M01S01446.1ds     +++|          CON    TSSJ        CYBER 70 WITH STACK MAINTENANCE JOBS
01569  M01S01447.1ds     +++|          CON    TNOJ        CYBER 170 NO STACK MAINTENANCE JOBS
01570  M01S01448.1ds     +++|          CON    TSOJ        CYBER 170 WITH STACK MAINTENANCE JOBS
01571  M01S01449.1ds     +++|          CON    TMUJ        MAINFRAMES WITH CMU MAINTENANCE JOBS
01572  M01S01450.1ds     +++|          CON    TSBJ        CYBER 176 MAINTENANCE JOBS
01573  M01S01451.1ds     +++|          CON    TSAJ        CYBER 170-815/825/835/855 MAINTENANCE JOBS
01574  M01S01452.1ds     +++|          CON    TSCJ        CYBER 170-865/875 MAINTENANCE JOBS
01575  M01S01453.1ds     +++| ITJAL    BSS    0           LENGTH OF LIST
01576  M01S01454.1ds     +++|          LOC    *O
01577  M01S01455.1ds     +++|
01578  M01S01456.1ds     +++| ITJB     DATA   C*DMP(XXXX00)*
01579  M01S01457.1ds     +++| TCMJ     SPACE  4,10
01580  M01S01458.1ds     +++|**        JOB TABLE 0.
01581  M01S01459.1ds     +++|*         COMMON MAINTENANCE JOBS.
01582  M01S01460.1ds     +++|*         JOBS RUN ON ALL MAINFRAME TYPES.
01583  M01S01461.1ds     +++|
01584  M01S01462.1ds     +++|
01585  M01S01463.1ds     +++| TCMJ     BSS    0
01586  M01S01464.1ds     +++|          VFD    24/0LALX
01587  M01S01465.1ds     +++|          VFD    24/0LCU1
01588  M01S01466.1ds     +++|          VFD    24/0LFST
01589  M01S01467.1ds     +++|          DATA   0
01590  M01S01468.1ds     +++| TNSJ     SPACE  4,10
01591  M01S01469.1ds     +++|**        JOB TABLE 1.
01592  M01S01470.1ds     +++|*
01593  M01S01471.1ds     +++|*         NO STACK CYBER 70 MAINTENANCE JOBS.
01594  M01S01472.1ds     +++|*         JOBS RUN ON MAINFRAME TYPES 6400, 6500, CYBER 72, CYBER
01595  M01S01473.1ds     +++|*         73, CPU1 OF 6700 AND CPU1 OF CYBER 74-2X.
01596  M01S01474.1ds     +++|*
01597  M01S01475.1ds     +++|*         NOTE   JOB TABLE 1 STARTS IN THE
01598  M01S01476.1ds     +++|*                MIDDLE OF JOB TABLE 2.
01599  M01S01477.1ds     +++| TSSJ     SPACE  4,10
01600  M01S01478.1ds     +++|**        JOB TABLE 2.
01601  M01S01479.1ds     +++|*
01602  M01S01480.1ds     +++|*         WITH STACK CYBER 70 MAINTENANCE JOBS.
01603  M01S01481.1ds     +++|*         JOBS RUN ON MAINFRAME TYPES 6600, CYBER 74-1X, CPU0 OF
01604  M01S01482.1ds     +++|*         6700 AND CPU0 OF CYBER 74-2X.
01605  M01S01483.1ds     +++|
01606  M01S01484.1ds     +++|
01607  M01S01485.1ds     +++| TSSJ     BSS    0
01608  M01S01486.1ds     +++|          VFD    24/0LFM2
01609  M01S01487.1ds     +++|          VFD    24/0LIWS
01610  M01S01488.1ds     +++| TNSJ     BSS    0           START OF JOB TABLE 1
01611  M01S01489.1ds     +++|          VFD    24/0LCT3
01612  M01S01490.1ds     +++|          VFD    24/0LMRG
01613  M01S01491.1ds     +++|          VFD    24/0LMY1
01614  M01S01492.1ds     +++|          VFD    24/0LRAN
01615  M01S01493.1ds     +++|          DATA   0
01616  M01S01494.1ds     +++| TNOJ     SPACE  4,10
01617  M01S01495.1ds     +++|**        JOB TABLE 3.
01618  M01S01496.1ds     +++|*
01619  M01S01497.1ds     +++|*         NO STACK CYBER 170 MAINTENANCE JOBS.
01620  M01S01498.1ds     +++|*         JOBS RUN ON MAINFRAME TYPES CYBER 172, 173 AND 174.
01621  M01S01499.1ds     +++|
01622  M01S01500.1ds     +++|
01623  M01S01501.1ds     +++| TNOJ     BSS    0
01624  M01S01502.1ds     +++|          VFD    24/0LCSU
01625  M01S01503.1ds     +++|          VFD    24/0LCT3
01626  M01S01504.1ds     +++|          VFD    24/0LMRG
01627  M01S01505.1ds     +++|          VFD    24/0LRAN
01628  M01S01506.1ds     +++|          DATA   0
01629  M01S01507.1ds     +++| TSOJ     SPACE  4,10
01630  M01S01508.1ds     +++|**        JOB TABLE 4.
01631  M01S01509.1ds     +++|*
01632  M01S01510.1ds     +++|*         WITH STACK CYBER 170 MAINTENANCE JOBS.
01633  M01S01511.1ds     +++|*         JOBS RUN ON MAINFRAME TYPE CYBER 175.
01634  M01S01512.1ds     +++|
01635  M01S01513.1ds     +++|
01636  M01S01514.1ds     +++| TSOJ     BSS    0
01637  M01S01515.1ds     +++|          VFD    24/0LCSU
01638  M01S01516.1ds     +++|          VFD    24/0LCT7
01639  M01S01517.1ds     +++|          VFD    24/0LRAN
01640  M01S01518.1ds     +++|          DATA   0
01641  M01S01519.1ds     +++| TMUJ     SPACE  4,10
01642  M01S01520.1ds     +++|**        JOB TABLE 5.
01643  M01S01521.1ds     +++|*
01644  M01S01522.1ds     +++|*         JOBS RUN ON MAINFRAMES WITH CMU.
01645  M01S01523.1ds     +++|
01646  M01S01524.1ds     +++|
01647  M01S01525.1ds     +++| TMUJ     BSS    0
01648  M01S01526.1ds     +++|          VFD    24/0LCMU
01649  M01S01527.1ds     +++|          DATA   0
01650  M01S01528.1ds     +++| TSBJ     SPACE  4,10
01651  M01S01529.1ds     +++|**        JOB TABLE 6.
01652  M01S01530.1ds     +++|*
01653  M01S01531.1ds     +++|*         CYBER 176 MAINTENANCE JOBS.
01654  M01S01532.1ds     +++|
01655  M01S01533.1ds     +++|
01656  M01S01534.1ds     +++| TSBJ     BSS    0
01657  M01S01535.1ds     +++|          VFD    24/0LRAN
01658  M01S01536.1ds     +++|          VFD    24/0LFST
01659  M01S01537.1ds     +++|          VFD    24/0LCTB
01660  M01S01538.1ds     +++| TSBJA    VFD    24/0LLCM
01661  M01S01539.1ds     +++|          VFD    24/0LMEM
01662  M01S01540.1ds     +++|          DATA   0
01663  M01S01541.1ds     +++| TSAJ     SPACE  4,10
01664  M01S01542.1ds     +++|**        JOB TABLE 7.
01665  M01S01543.1ds     +++|*
01666  M01S01544.1ds     +++|*
01667  M01S01545.1ds     +++|*         CYBER 170 - 815/825/835/855 MAINTENANCE JOBS.
01668  M01S01546.1ds     +++|
01669  M01S01547.1ds     +++|
01670  M01S01548.1ds     +++| TSAJ     VFD    24/0LALX
01671  M01S01549.1ds     +++|          VFD    24/0LCSU
01672  M01S01550.1ds     +++|          VFD    24/0LCT8
01673  M01S01551.1ds     +++|          VFD    24/0LCU8
01674  M01S01552.1ds     +++|          VFD    24/0LFS8
01675  M01S01553.1ds     +++|          VFD    24/0LMRG
01676  M01S01554.1ds     +++|          VFD    24/0LRA8
01677  M01S01555.1ds     +++|          DATA   0
01678  M01S01556.1ds     +++| TSCJ     SPACE  4,10
01679  M01S01557.1ds     +++|**        JOB TABLE 8.
01680  M01S01558.1ds     +++|*
01681  M01S01559.1ds     +++|*         CYBER 170 - 865/875 MAINTENANCE JOBS.
01682  M01S01560.1ds     +++|
01683  M01S01561.1ds     +++|
01684  M01S01562.1ds     +++| TSCJ     VFD    24/0LALX
01685  M01S01563.1ds     +++|          VFD    24/0LCSU
01686  M01S01564.1ds     +++|          VFD    24/0LCT6
01687  M01S01565.1ds     +++|          VFD    24/0LCU8
01688  M01S01566.1ds     +++|          VFD    24/0LFS8
01689  M01S01567.1ds     +++|          VFD    24/0LRA8
01690  M01S01568.1ds     +++|          DATA   0
01691  M01S01569.1ds     +++| IJC      SPACE  4,10
01692  M01S01570.1ds     +++|***       FUNCTION IJCF - INITIATE JOB CALL.
01693  M01S01571.1ds     +++|*
01694  M01S01572.1ds     +++|*         ENTRY  (IR+3) = FIELD LENGTH, IF SPECIFIED BY CALLER.
01695  M01S01573.1ds     +++|*                       = 0, OTHERWISE.
01696  M01S01574.1ds     +++|*                (IR+4) = 6/ KEYBOARD BUFFER OFFSET, 6/.
01697  M01S01575.1ds     +++|
01698  M01S01576.1ds     +++|
01699  M01S01577.1ds     +++| IJC      ENTRY              ENTRY/EXIT
01700  M01S01578.1ds     +++|          LDC    BUFA        SET JOB COMMAND ADDRESS
01701  M01S01579.1ds     +++|          STM    ICJB
01702  M01S01580.1ds     +++|          LDD    IR+3        SAVE FIELD LENGTH
01703  M01S01581.1ds     +++|          STM    IJCA
01704  M01S01582.1ds     +++|          RJM    ICJ
01705  M01S01583.1ds     +++|          UJN    IJCX        RETURN
01706  M01S01584.1ds     +++|
01707  M01S01585.1ds     +++| IJCA     CON    0           FIELD LENGTH SPECIFIED BY CALLER
01708  M01S01586.1ds     +++| ILJ      SPACE  4,10
01709  M01S01587.1ds     +++|***       FUNCTION ILJF - INITIATE *LBC* JOB.
01710  M01S01588.1ds     +++|*
01711  M01S01589.1ds     +++|*         CALLED BY *6DI* AND *1DS* FUNCTIONS *UPCF* AND *OCMF* TO
01712  M01S01590.1ds     +++|*         INITIATE SYSTEM JOB TO RELOAD CONTROLWARE.
01713  M01S01591.1ds     +++|*
01714  M01S01592.1ds     +++|*         ENTRY  (IR+4) = 1/,2/F,9/EQ.
01715  M01S01593.1ds     +++|*                         F    0 IF NO RECALL OF CALLER REQUIRED.
01716  M01S01594.1ds     +++|*                              1 IF *UPCF* *1DS* FUNCTION TO BE
01717  M01S01595.1ds     +++|*                                RECALLED.
01718  M01S01596.1ds     +++|*                              2 IF *OCMF* *1DS* FUNCTION TO BE
01719  M01S01597.1ds     +++|*                                RECALLED.
01720  M01S01598.1ds     +++|*                         EQ   INDICATES CONTROL MODULE RELOAD IF VALUE
01721  M01S01599.1ds     +++|*                              IS EITHER 1 OR A CONTROL MODULE EST
01722  M01S01600.1ds     +++|*                              ORDINAL.
01723  M01S01601.1ds     +++|
01724  M01S01602.1ds     +++|
01725  M01S01603.1ds     +++| ILJ      ENTRY              ENTRY/EXIT
01726  M01S01604.1ds     +++|          LDC    =Z*LBC*
01727  M01S01605.1ds     +++|          RJM    GJC         GENERATE JOB COMMAND
01728  M01S01606.1ds     +++|          LDD    IR+4
01729  M01S01607.1ds     +++|          SHN    0-11
01730  M01S01608.1ds     +++|          LPN    3
01731  M01S01609.1ds     +++|          STD    MS
Line S01610 Modification History
M01 (Added by) 1ds
M02 (Updated by) 1ds20
Seq #  *Modification Id* Act 
----------------------------+
01732  M02S01610.1ds20   ---|          NJN    ILJ1        IF NOT *6DI* CALL
01733  M01S00001.1ds20   +++|          SHN    14
01734  M01S00002.1ds20   +++|          NJN    ILJ2        IF NOT *6DI* CALL
01735  M01S01611.1ds     +++|          LDD    IR+4
01736  M01S01612.1ds     +++|          LPC    777
01737  M01S01613.1ds     +++|          STD    CM
01738  M01S01614.1ds     +++|          SBN    1
01739  M01S01615.1ds     +++|          MJN    ILJ1        IF NOT CONTROL MODULE
01740  M01S01616.1ds     +++|          ZJN    ILJ2        IF CONTROL MODULE
01741  M01S01617.1ds     +++|          SFA    EST,CM
01742  M01S01618.1ds     +++|          ADK    EQDE
01743  M01S01619.1ds     +++|          CRD    CM
01744  M01S01620.1ds     +++|          LDD    CM+3
01745  M01S01621.1ds     +++|          LMC    2RCM
01746  M01S01622.1ds     +++|          ZJN    ILJ2        IF CONTROL MODULE
01747  M01S01623.1ds     +++| ILJ1     LDC    ILJA&ILJB
01748  M01S01624.1ds     +++| ILJ2     LMC    ILJB
01749  M01S01625.1ds     +++|          STD    LA
01750  M01S01626.1ds     +++| ILJ3     LDD    LA          COMPLETE COMMAND IMAGE
01751  M01S01627.1ds     +++|          RJM    CCI
01752  M01S01628.1ds     +++|          AOD    LA          ADVANCE COMMAND POINTER
01753  M01S01629.1ds     +++|          LDI    LA
01754  M01S01630.1ds     +++|          NJN    ILJ3        IF NOT END OF COMMAND STREAM
01755  M01S01631.1ds     +++|          LDN    SYSC        SET SYSTEM SERVICE CLASS
01756  M01S01632.1ds     +++|          STD    JS
01757  M01S01633.1ds     +++|          LCN    TNDS-TSDS   SELECT SYSTEM DEVICE FOR JOB FILE
01758  M01S01634.1ds     +++|          RAM    EJBF
01759  M01S01635.1ds     +++|          RJM    EJB         ENTER JOB
01760  M01S01636.1ds     +++|          LDD    MS
01761  M01S01637.1ds     +++|          ZJN    ILJ4        IF NO *1DS* CALL REQUIRED
01762  M01S01638.1ds     +++|          LDM    IDSC        SET FUNCTION CODE
01763  M01S01639.1ds     +++|          SCN    77          PRESERVE BUFFER LOCK/LOGGING CONTROL BITS
01764  M01S01640.1ds     +++|          LMM    ILJC-1,MS
01765  M01S01641.1ds     +++|          STD    IR+2
01766  M01S01642.1ds     +++|          LDN    0           DISABLE LOGGING/INTERLOCK CLEARING
01767  M01S01643.1ds     +++|          STM    IDSC
01768  M01S01644.1ds     +++|          LDD    IR+4
01769  M01S01645.1ds     +++|          LPC    -3000
01770  M01S01646.1ds     +++|          STD    IR+4
01771  M01S01647.1ds     +++|          LDD    IA          REWRITE PP INPUT REGISTER
01772  M01S01648.1ds     +++|          CWD    IR
01773  M01S01649.1ds     +++|          AOM    IDSE        SET *NO DROP* FLAG
01774  M01S01650.1ds     +++|          EXECUTE  1DS,=
01775  M01S01651.1ds     +++| ILJ4     LJM    ILJX        RECALL *1DS* FUNCTION
01776  M01S01652.1ds     +++|
01777  M01S01653.1ds     +++|
01778  M01S01654.1ds     +++| ILJA     DATA   Z*LOADBC,D=DUMP.*
01779  M01S01655.1ds     +++|
01780  M01S01656.1ds     +++|*         THE FOLLOWING COMMANDS SHOULD BE ACTIVATED IF THE NEED EVER
01781  M01S01657.1ds     +++|*         ARISES AGAIN TO DUMP THE MEMORY OF A FAILING CONTROLLER.
01782  M01S01658.1ds     +++|*         THE DUMP CAPABILITY WAS ADDED TO DETERMINE WHY 7155
01783  M01S01659.1ds     +++|*         CONTROLLERS WERE FAILING.  SINCE THE CAUSE OF THIS PROBLEM
01784  M01S01660.1ds     +++|*         IS NOW UNDERSTOOD, THERE IS NO LONGER A NEED TO DUMP
01785  M01S01661.1ds     +++|*         CONTROLLERS DURING THE RELOAD PROCESS.
01786  M01S01662.1ds     +++|
01787  M01S01663.1ds     +++|*         DATA   Z*DSDI,DMB,Z.+BCDUMP/V.*
01788  M01S01664.1ds     +++|*         DATA   Z*ATTACH,LBCDUMP/M=W,NA.*
01789  M01S01665.1ds     +++|*         DATA   Z*IF,.NOT.FILE(LBCDUMP,PM).DEFINE,LBCDUMP.*
01790  M01S01666.1ds     +++|*         DATA   Z*SKIPEI,LBCDUMP.*
01791  M01S01667.1ds     +++|*         DATA   Z*REWIND,DUMP.*
01792  M01S01668.1ds     +++|*         DATA   Z*COPY,DUMP,LBCDUMP.*
01793  M01S01669.1ds     +++|
01794  M01S01670.1ds     +++|          CON    0           END OF STATEMENTS
01795  M01S01671.1ds     +++|
01796  M01S01672.1ds     +++|
01797  M01S01673.1ds     +++| ILJB     DATA   Z*LOADBC.*
01798  M01S01674.1ds     +++|          CON    0           END OF STATEMENTS
01799  M01S01675.1ds     +++|
01800  M01S01676.1ds     +++|
01801  M01S01677.1ds     +++| ILJC     CON    /1DS/UPCF
01802  M01S01678.1ds     +++|          CON    /1DS/OCMF
01803  M01S01679.1ds     +++| DSP      SPACE  4,10
01804  M01S01680.1ds     +++|***       FUNCTION DSPF - INITIATE *L* DISPLAY JOB.
01805  M01S01681.1ds     +++|*
01806  M01S01682.1ds     +++|*         ENTRY  (IR+4) = 6/ KEYBOARD BUFFER OFFSET, 6/.
01807  M01S01683.1ds     +++|
01808  M01S01684.1ds     +++|
01809  M01S01685.1ds     +++| DSP      ENTRY              ENTRY/EXIT
01810  M01S00001.ns2686  +++|          LDC    LDSP        GET *L* DISPLAY CONTROL WORD
01811  M01S00002.ns2686  +++|          CRD    CM+1
01812  M01S00003.ns2686  +++|          LDN    0
01813  M01S00004.ns2686  +++|          STD    CM+2
01814  M01S00005.ns2686  +++|          LDN    2           SET WORD COUNT OF OPTIONS TO PROCESS
01815  M01S00006.ns2686  +++|          STD    CM+1
01816  M01S00007.ns2686  +++|          LDD    MA
01817  M01S00008.ns2686  +++|          CWM    DSPA,CM+1
01818  M01S00009.ns2686  +++|          MONITOR  UTEM      INTERLOCK JSN FIELD IF .EQ. 0
01819  M01S00010.ns2686  +++|          LDD    CM+1
01820  M01S00011.ns2686  +++|          NJP    DSP2        IF VERIFICATION FALIED, RETURN ERROR
01821  M01S01686.1ds     +++|          LDC    NOQF*100+7  DO NOT GENERATE OUTPUT
01822  M01S01687.1ds     +++|          STM    ICJD
01823  M01S01688.1ds     +++|          RJM    ICJ         INITIATE COMMAND JOB
Line S01689 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2686
Seq #  *Modification Id* Act 
----------------------------+
01824  M02S01689.ns2686  ---|          LDC    LDSP        *L* DISPLAY POINTER
01825  M01S00012.ns2686  +++|          SHN    -21         SAVE REPLY
01826  M01S00013.ns2686  +++|          STD    T1
01827  M01S00014.ns2686  +++|          ZJN    DSP1        IF *L* DISPLAY JOB SUBMITTED
01828  M01S00015.ns2686  +++|          LDN    0           CLEAR JSN
01829  M01S00016.ns2686  +++|          STD    FN
01830  M01S00017.ns2686  +++|          STD    FN+1
01831  M01S00018.ns2686  +++| DSP1     LDC    LDSP        *L* DISPLAY POINTER
01832  M01S01690.1ds     +++|          CRD    CM+1
01833  M01S01691.1ds     +++|          LDN    0
01834  M01S01692.1ds     +++|          STD    CM+2
01835  M01S01693.1ds     +++|          LDN    2
01836  M01S01694.1ds     +++|          STD    CM+1        STORE WORD COUNT OF OPTIONS
01837  M01S01695.1ds     +++|          LDD    FN          SET JSN
Line S01696 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2686
Seq #  *Modification Id* Act 
----------------------------+
01838  M02S01696.ns2686  ---|          STM    DSPA+1*5+3
01839  M01S00019.ns2686  +++|          STM    DSPB+1*5+3
01840  M01S01697.1ds     +++|          LDD    FN+1
Line S01698 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2686
Seq #  *Modification Id* Act 
----------------------------+
01841  M02S01698.ns2686  ---|          STM    DSPA+1*5+4  STORE *JSN*
01842  M01S00020.ns2686  +++|          STM    DSPB+1*5+4  STORE *JSN*
01843  M01S01699.1ds     +++|          LDD    MA
Line S01700 Modification History
M01 (Added by) 1ds
M02 (Updated by) ns2686
Seq #  *Modification Id* Act 
----------------------------+
01844  M02S01700.ns2686  ---|          CWM    DSPA,CM+1
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ds.txt ยท Last modified: by 127.0.0.1