User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:install

Deck INSTALL

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.install +++|          IDENT  INSTALL,FETS
00002  M00S00002.install +++|          ABS
00003  M00S00003.install +++|          SST
00004  M00S00004.install +++|          ENTRY  INSTALL
00005  M00S00005.install +++|          ENTRY  RFL=
00006  M00S00006.install +++|          ENTRY  SSJ=
00007  M00S00007.install +++|          SYSCOM B1          DEFINE (B1) = 1
00008  M00S00008.install +++|          TITLE  INSTALL - INSTALL DEADSTART FILE.
00009  M00S00009.install +++|*COMMENT  INSTALL - INSTALL DEADSTART FILE.
Line S00010 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00010.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M00S00011.install +++|          SPACE  4,10
00013  M00S00012.install +++|*****     INSTALL - INSTALL DEADSTART FILE.
00014  M00S00013.install +++|*
00015  M00S00014.install +++|*         P. D. HAAS.        78/02/28.
00016  M00S00015.install +++|*         D. R. HILGREN.     78/08/18.
00017  M00S00016.install +++|          SPACE  4,10
Line S00017 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00018  M01S00017.ns22000 ---|***              *INSTALL* INSTALLS THE RUNNING SYSTEM FILE OR USER
00019  M01S00018.ns22000 ---|*         SPECIFIED DEADSTART FILE ON A RMS DEADSTART DEVICE.  IF
00020  M01S00019.ns22000 ---|*         DEVICE XX IS A SHARED (MMF) DEVICE, A FULL INITIALIZE
00021  M01S00020.ns22000 ---|*         MUST PRECEDE.  DEVICE XX MUST BE ON, AVAILABLE, A SINGLE
00022  M01S00021.ns22000 ---|*         UNIT DEVICE, AN LDAM TYPE EQUIPMENT, AND MUST HAVE
00023  M01S00022.ns22000 ---|*         *CTI* INSTALLED.
Line S00001 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00001.ns22000 +++|***              *INSTALL* COPIES A FILE TO A MASS STORAGE DEVICE AND
00025  M01S00002.ns22000 +++|*         UPDATES THE DEADSTART SECTOR SO THAT THE RESULTING FILE CAN BE
00026  M01S00003.ns22000 +++|*         DEADSTARTED.  THE DEVICE SPECIFIED MUST BE A SINGLE UNIT
00027  M01S00004.ns22000 +++|*         *LDAM* TYPE DEVICE WHICH IS *ON*, AVAILABLE, AND HAS HAD *CTI*
00028  M01S00005.ns22000 +++|*         INSTALLED ON IT.
00029  M00S00023.install +++|          SPACE  4,10
00030  M00S00024.install +++|***       CONTROL CARD CALL.
00031  M00S00025.install +++|*
Line S00026 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00026.ns22000 ---|*         INSTALL,LFN,EQXX.
Line S00006 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00033  M01S00006.ns22000 +++|*         INSTALL,LFN,EQXXX.
00034  M00S00027.install +++|*
00035  M00S00028.install +++|*         LFN =  MASS STORAGE FILE (ASSIGNED TO THE CONTROL POINT)
00036  M00S00029.install +++|*                WHICH IS TO BE INSTALLED AS A SYSTEM DEADSTART
00037  M00S00030.install +++|*                FILE.  IF *LFN* IS OMITTED, DEFAULT IS FILE
00038  M00S00031.install +++|*                *SYSTEM* (WHICH MUST BE ASSIGNED TO THE CONTROL
00039  M00S00032.install +++|*                POINT).  *SDF* IS A RESERVED FILE NAME AND CANNOT
00040  M00S00033.install +++|*                BE USED AS *LFN*.
00041  M00S00034.install +++|*
Line S00035 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00042  M01S00035.ns22000 ---|*         XX =   1 OR 2 OCTAL DIGIT *EST* ORDINAL OF ROTATING MASS
00043  M01S00036.ns22000 ---|*                STORAGE DEVICE ON WHICH *LFN* IS TO BE INSTALLED.
Line S00007 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00044  M01S00007.ns22000 +++|*         XXX =  EST ORDINAL ON WHICH *LFN* IS TO BE WRITTEN.
00045  M00S00037.install +++|*
00046  M00S00038.install +++|*         CALLING JOB MUST BE SYSTEM ORIGIN OR MUST BE VALIDATED
00047  M00S00039.install +++|*         FOR SYSTEM ORIGIN PRIVILEGES.  IF THE DEADSTART FILE
00048  M00S00040.install +++|*         TO BE INSTALLED IS ON TAPE, IT MUST FIRST BE COPIED TO
00049  M00S00041.install +++|*         MASS STORAGE.
00050  M00S00042.install +++|          SPACE  4,10
00051  M00S00043.install +++|***       DAYFILE MESSAGES.
00052  M00S00044.install +++|*
00053  M00S00045.install +++|*         * DEADSTART FILE FORMAT ERROR.* - AN ERROR WAS DETECTED IN
00054  M00S00046.install +++|*         THE DIRECTORY OF THE DEADSTART FILE.
00055  M00S00047.install +++|*
00056  M00S00048.install +++|*         * INSTALL - ARGUMENT ERROR.* - AN ERROR WAS DETECTED IN THE
00057  M00S00049.install +++|*         PARAMETERS ASSOCIATED WITH THE *INSTALL* CONTROL STATEMENT.
00058  M00S00050.install +++|*
00059  M00S00051.install +++|*         * SDF INSTALLATION COMPLETE.* - SYSTEM DEADSTART FILE
00060  M00S00052.install +++|*         INSTALLATION IS COMPLETED.
00061  M00S00053.install +++|          SPACE  4,10
Line S00008 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00062  M01S00008.ns22000 +++|**        COMMON DECKS.
00063  M01S00009.ns22000 +++|
00064  M01S00010.ns22000 +++|
00065  M00S00054.install +++|*CALL     COMCMAC
Line S00001 Modification History
M01 (Added by) ns2428
Seq #  *Modification Id* Act 
----------------------------+
00066  M01S00001.ns2428  +++|*CALL     COMCCMD
00067  M00S00055.install +++|*CALL     COMSPRD
00068  M00S00056.install +++|*CALL     COMSSSD
00069  M00S00057.install +++|*CALL     COMSSSJ
00070  M00S00058.install +++|          SPACE  4,10
00071  M00S00059.install +++|****      ASSEMBLY CONSTANTS.
00072  M00S00060.install +++|
00073  M00S00061.install +++|
Line S00062 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00074  M01S00062.v23l617 ---| CBUFL    EQU    10200B      BUFFER LENGTH
Line S00001 Modification History
M01 (Added by) v23l617
M02 (Removed by) instal2
Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00001.instal2 ---| CBUFL    EQU    14000B      BUFFER LENGTH
Line S00001 Modification History
M01 (Added by) instal2
Seq #  *Modification Id* Act 
----------------------------+
00076  M01S00001.instal2 +++| CBUFL    EQU    22000B      BUFFER LENGTH
00077  M01S00002.instal2 +++|
00078  M01S00003.instal2 +++|*         CODE REQUIRES CBUFL DIVISIBLE BY 3
00079  M01S00004.instal2 +++|
00080  M01S00005.instal2 +++|          ERRNZ  CBUFL/3*3-CBUFL
00081  M01S00006.instal2 +++|****
00082  M00S00063.install +++|****
Line S00064 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00083  M01S00064.ns22000 ---|          TITLE  FETS.
Line S00011 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00084  M01S00011.ns22000 +++| FETS     SPACE  4,10
00085  M01S00012.ns22000 +++|**        FETS.
00086  M01S00013.ns22000 +++|
00087  M01S00014.ns22000 +++|
00088  M00S00065.install +++|          ORG    104B
00089  M00S00066.install +++| FETS     BSS    0
00090  M00S00067.install +++|
00091  M00S00068.install +++|
00092  M00S00069.install +++| I        BSS    0           INSTALL FILE
00093  M00S00070.install +++| SYSTEM   RFILEB TBUF,TBUFL,FET=7
00094  M00S00071.install +++|
00095  M00S00072.install +++|
00096  M00S00073.install +++| O        BSS    0           *SDF* FILE
00097  M00S00074.install +++| SDF      RFILEB CBUF,CBUFL,FET=6,EPR
00098  M00S00075.install +++|          TITLE  DATA STORAGE.
00099  M00S00076.install +++|**        DATA STORAGE.
00100  M00S00077.install +++|
00101  M00S00078.install +++|
00102  M00S00079.install +++| EORF     CON    1           CURRENT BLOCK EOR FLAG
00103  M00S00080.install +++|          SPACE  4,10
00104  M00S00081.install +++|*         SPECIAL ENTRY POINTS.
00105  M00S00082.install +++|
00106  M00S00083.install +++|
00107  M00S00084.install +++| SSJ=     BSS    0
00108  M00S00085.install +++|          VFD    12/0,24/-0,12/SYCS,12/IRSI
00109  M00S00086.install +++|          BSSZ   SSJ=+SSJL-*
00110  M00S00087.install +++|          SPACE  4,10
00111  M00S00088.install +++|*         *1IS* FUNCTION REQUESTS.
00112  M00S00089.install +++|
00113  M00S00090.install +++|
00114  M00S00091.install +++| VIFF     VFD    18/0L1IS,6/0,12/1,12/0,12/I
00115  M00S00092.install +++| IDFF     VFD    18/0L1IS,6/0,12/2,12/O,12/I
00116  M00S00093.install +++| CFIF     VFD    18/0L1IS,6/0,12/3,12/O,12/I
00117  M00S00094.install +++| PMEF     VFD    18/0L1IS,6/0,12/4,12/O,12/0
00118  M00S00095.install +++|          TITLE  MAIN PROGRAM.
Line S00015 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00119  M01S00015.ns22000 +++| INSTALL  SPACE  4,10
00120  M01S00016.ns22000 +++|**        INSTALL - MAIN PROGRAM.
00121  M01S00017.ns22000 +++|
00122  M01S00018.ns22000 +++|
00123  M00S00096.install +++| INSTALL  BSS    0
00124  M00S00097.install +++|          SB1    1           PRESET PROGRAM
00125  M00S00098.install +++|          RJ     PRS
00126  M00S00099.install +++|          RJ     CDF         COPY DEADSTART FILE
00127  M00S00100.install +++| INS1     R=     X7,2
00128  M00S00101.install +++|          SX1    CFIF        COMPLETE *SDF* INSTALLATION
00129  M00S00102.install +++|          R=     A7,ARGR
00130  M00S00103.install +++|          SYSTEM SPC,,X1     CALL *1IS*
00131  M00S00104.install +++|          SA1    CFIF
Line S00105 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00132  M01S00105.ns22000 ---|          ZR     X1,INS2     IF *SYSTEM* REQUEST PERFORMED
Line S00019 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00133  M01S00019.ns22000 +++|          ZR     X1,INS2     IF *1IS* ASSIGNED
00134  M00S00106.install +++|          RECALL
00135  M00S00107.install +++|          EQ     INS1        RETRY *SYSTEM REQUEST
00136  M00S00108.install +++|
00137  M00S00109.install +++| INS2     RECALL ARGR        WAIT *1IS* COMPLETE
Line S00110 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00138  M01S00110.ns22000 ---|          MESSAGE  INSA,0     * SDF INSTALLATION COMPLETE.*
Line S00020 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00139  M01S00020.ns22000 +++|          MESSAGE  (=C* SDF INSTALLATION COMPLETE.*)
00140  M00S00111.install +++|          ENDRUN
Line S00112 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00141  M01S00112.ns22000 ---|
00142  M01S00113.ns22000 ---| INSA     DATA   C* SDF INSTALLATION COMPLETE.*
00143  M00S00114.install +++|          TITLE  SUBROUTINES.
00144  M00S00115.install +++| CDF      SPACE  4,10
00145  M00S00116.install +++|**        CDF - COPY DEADSTART FILE.
00146  M00S00117.install +++|*
00147  M00S00118.install +++|*         ENTRY  (B2) = 2.
00148  M00S00119.install +++|*
00149  M00S00120.install +++|*         USES   A - ALL.
00150  M00S00121.install +++|*                B - 3, 4, 5, 6, 7.
00151  M00S00122.install +++|*                X - ALL.
00152  M00S00123.install +++|*
00153  M00S00124.install +++|*         CALLS  *1IS*.
00154  M00S00125.install +++|*
00155  M00S00126.install +++|*         MACROS ABORT, MESSAGE, READCW, RECALL, SYSTEM, WRITECW.
00156  M00S00127.install +++|*
00157  M00S00128.install +++|*         NOTE   WHEN CHECKING FOR FET COMPLETE AND DATA IN THE BUFFER,
00158  M00S00129.install +++|*                THE FET STATUS MUST BE PICKED UP BEFORE THE BUFFER
00159  M00S00130.install +++|*                POINTER.
00160  M00S00131.install +++|
00161  M00S00132.install +++|
00162  M00S00133.install +++| CDF      SUBR               ENTRY/EXIT
00163  M00S00134.install +++|          SB5    CBUF+CBUFL  SET LIMIT ADDRESS
00164  M00S00135.install +++|          SA2    I+3
00165  M00S00136.install +++|          BX0    X0-X0       INDICATE NO BLOCKS AVAILABLE OR COMPLETE
00166  M00S00137.install +++|          SA0    X2          INITIALIZE INPUT PSEUDO OUT POINTER
00167  M00S00138.install +++|          EQ     CDF13       INITIATE CONTROL WORD READ
00168  M00S00139.install +++|
00169  M00S00140.install +++|*         CHECK FOR INPUT BLOCK AVAILABLE.
00170  M00S00141.install +++|
00171  M00S00142.install +++| CDF1     SA5    I           CHECK INPUT FILE STATUS
00172  M00S00143.install +++|          SA3    I+2         CHECK INPUT IN = PSEUDO OUT POINTER
00173  M00S00144.install +++|          BX0    X0-X0       INDICATE NO BLOCKS AVAILABLE OR COMPLETE
00174  M00S00145.install +++|          SX1    A0
00175  M00S00146.install +++|          IX1    X3-X1
00176  M00S00147.install +++|          LX5    59-0
00177  M00S00148.install +++|          NZ     X1,CDF3     IF INPUT BLOCK AVAILABLE
00178  M00S00149.install +++|          PL     X5,CDF8     IF BUFFER BUSY
00179  M00S00150.install +++|          LX5    59-11-59+0
00180  M00S00151.install +++|          NG     X5,CDF15    IF PARITY ERROR STATUS IN FET
00181  M00S00152.install +++|          LX5    59-3-59+11
00182  M00S00153.install +++|          PL     X5,CDF8     IF NOT EOF
00183  M00S00154.install +++|
00184  M00S00155.install +++|*         PROCESS EOF.
00185  M00S00156.install +++|
00186  M00S00157.install +++|          RECALL O           WAIT OUTPUT FILE NOT BUSY
00187  M00S00158.install +++|          SA3    O+2         CHECK DATA IN BUFFER
00188  M00S00159.install +++|          SA4    A3+B1
00189  M00S00160.install +++|          IX7    X3-X4
00190  M00S00161.install +++|          ZR     X7,CDF2     IF BUFFER EMPTY
00191  M00S00162.install +++|          WRITECW  X2,R      FLUSH BUFFER
00192  M00S00163.install +++| CDF2     SA3    CDFB
00193  M00S00164.install +++|          SA1    X2+B1
00194  M00S00165.install +++|          SA4    A3+B1
00195  M00S00166.install +++|          BX6    X3          SET EOF CONTROL WORDS IN BUFFER
00196  M00S00167.install +++|          LX7    X4
00197  M00S00168.install +++|          SA6    X1
00198  M00S00169.install +++|          SA7    X1+B1
00199  M00S00170.install +++|          SX6    A6          OUT = FIRST
00200  M00S00171.install +++|          SX7    X1+B2       IN = FIRST+2
00201  M00S00172.install +++|          SA6    A1+B2
00202  M00S00173.install +++|          SA7    A1+B1
00203  M00S00174.install +++|          WRITECW  X2,R      WRITE EOF
00204  M00S00175.install +++|          EQ     CDFX        RETURN
00205  M00S00176.install +++|
00206  M00S00177.install +++|*         PROCESS INPUT BLOCK.
00207  M00S00178.install +++|
00208  M00S00179.install +++| CDF3     SX0    B1          INDICATE INPUT BLOCK TRANSFERRED
00209  M00S00180.install +++|          SA4    A0          CRACK CONTROL WORD HEADER
00210  M00S00181.install +++|          SX2    5
00211  M00S00182.install +++|          SX7    X4+4
00212  M00S00183.install +++|          IX7    X7/X2       CALCULATE WORD COUNT
00213  M00S00184.install +++|          AX4    36
00214  M00S00185.install +++|          SB6    X7
00215  M00S00186.install +++|          SA2    EORF        CHECK FOR PREVIOUS EOR
00216  M00S00187.install +++|          SB7    X4          PRU SIZE
00217  M00S00188.install +++|          ZR     X2,CDF6     IF PREVIOUS BLOCK NOT EOR
00218  M00S00189.install +++|          SB4    A0+B1
00219  M00S00190.install +++|          NE     B4,B5,CDF4  IF NO WRAP AROUND
00220  M00S00191.install +++|          SB4    CBUF        SET FIRST
00221  M00S00192.install +++| CDF4     ZR     B6,CDF6     IF ZERO LENGTH RECORD
00222  M00S00193.install +++|          MX6    12
00223  M00S00194.install +++|          SA1    B4          GET RECORD NAME
00224  M00S00195.install +++|          BX6    X6*X1
00225  M00S00196.install +++|          LX6    12
00226  M00S00197.install +++|          SX6    X6-7700B
00227  M00S00198.install +++|          NZ     X6,CDF5     IF NOT 77 TABLE
00228  M00S00199.install +++|          SB3    B4+B1
00229  M00S00200.install +++|          SA1    B4+B1
00230  M00S00201.install +++|          NE     B3,B5,CDF5  IF NO WRAP AROUND
00231  M00S00202.install +++|          SA1    CBUF
00232  M00S00203.install +++| CDF5     MX7    42
00233  M00S00204.install +++|          BX7    X7*X1
00234  M00S00205.install +++|          SA7    CDFA+1      ENTER NAME IN MESSAGE
00235  M00S00206.install +++|          MESSAGE  A7-B1,1   DISPLAY RECORD NAME
00236  M00S00207.install +++| CDF6     SB4    A0+B6       ADVANCE POINTER
00237  M00S00208.install +++|          SX7    B6-B7       NO EOR IF FULL BLOCK
00238  M00S00209.install +++|          SB4    B4+B2       SKIP CONTROL WORDS
00239  M00S00210.install +++|          SB3    B4-B5
00240  M00S00211.install +++|          LT     B4,B5,CDF7  IF NO WRAP AROUND
00241  M00S00212.install +++|          SB4    B3+CBUF
00242  M00S00213.install +++| CDF7     SX6    B4
00243  M00S00214.install +++|          SA7    EORF        SAVE EOR FLAG
00244  M00S00215.install +++|          SA1    A0          GET CONTROL WORD HEADER
00245  M00S00216.install +++|          NG     X1,CDF15    IF ERROR OCCURRED ON THIS BLOCK
00246  M00S00217.install +++|
00247  M00S00218.install +++|*         TRANSFER BLOCK TO OUTPUT.
00248  M00S00219.install +++|
00249  M00S00220.install +++|          SA6    O+2         ADVANCE OUTPUT IN POINTER
00250  M00S00221.install +++|          SB0    0
00251  M00S00222.install +++|          SA0    B4+         ADVANCE INPUT PSEUDO OUT POINTER
00252  M00S00223.install +++|
00253  M00S00224.install +++|*         CHECK FOR REINITIATE CONTROL WORD WRITE.
00254  M00S00225.install +++|
00255  M00S00226.install +++| CDF8     SA2    O           CHECK OUTPUT FILE STATUS
00256  M00S00227.install +++|          LX2    59-0
00257  M00S00228.install +++|          SA1    A2+B2
00258  M00S00229.install +++|          PL     X2,CDF10    IF BUFFER BUSY
00259  M00S00230.install +++|          SA2    A1+1        CHECK BUFFER THRESHOLD
00260  M00S00231.install +++|          SX3    CBUFL/3
00261  M00S00232.install +++|          IX1    X1-X2       (IN-OUT)
00262  M00S00233.install +++|          IX2    X1-X3       (IN-OUT) - 1/3(BUFFER SIZE)
00263  M00S00234.install +++|          ZR     X1,CDF10    IF BUFFER EMPTY
00264  M00S00235.install +++|          PL     X1,CDF9     IF IN .GT. OUT
00265  M00S00236.install +++|          LX3    1
00266  M00S00237.install +++|          SB0    0
00267  M00S00238.install +++|          IX2    X3+X1       2/3(BUFFER SIZE) - (OUT-IN)
00268  M00S00239.install +++| CDF9     NG     X2,CDF10    IF BUFFER THRESHOLD NOT REACHED
00269  M00S00240.install +++|          WRITECW  O         REINITIATE CONTROL WORD WRITE
00270  M00S00241.install +++|
00271  M00S00242.install +++|*         CHECK FOR OUTPUT BLOCK WRITTEN.
00272  M00S00243.install +++|
00273  M00S00244.install +++| CDF10    SA1    O+3         CHECK OUTPUT OUT = INPUT OUT
00274  M00S00245.install +++|          SA2    I+3
00275  M00S00246.install +++|          IX3    X1-X2
00276  M00S00247.install +++|          ZR     X3,CDF11    IF BLOCK NOT WRITTEN
00277  M00S00248.install +++|          BX6    X1
00278  M00S00249.install +++|          SX0    1           INDICATE OUTPUT BLOCK COMPLETE
00279  M00S00250.install +++|          SA6    I+3         UPDATE INPUT OUT = OUTPUT OUT
00280  M00S00251.install +++|
00281  M00S00252.install +++|*         CHECK FOR REINITIATE CONTROL WORD READ.
00282  M00S00253.install +++|
00283  M00S00254.install +++| CDF11    SA4    I           CHECK INPUT FILE STATUS
00284  M00S00255.install +++|          LX4    59-0
00285  M00S00256.install +++|          SA1    A4+B2
00286  M00S00257.install +++|          PL     X4,CDF14    IF BUFFER BUSY
00287  M00S00258.install +++|          LX4    59-3-59+0
00288  M00S00259.install +++|          SA2    A1+B1
00289  M00S00260.install +++|          NG     X4,CDF14    IF EOF/EOI ENCOUNTERED
00290  M00S00261.install +++|          SX3    CBUFL/3     CHECK BUFFER THRESHOLD
00291  M00S00262.install +++|          IX1    X1-X2       (IN-OUT)
00292  M00S00263.install +++|          IX2    X3+X1       1/3(BUFFER SIZE) + (IN-OUT)
00293  M00S00264.install +++|          ZR     X1,CDF13    IF BUFFER EMPTY
00294  M00S00265.install +++|          NG     X1,CDF12    IF OUT .GT. IN
00295  M00S00266.install +++|          LX3    1
00296  M00S00267.install +++|          IX2    X1-X3       (IN-OUT) - 2/3(BUFFER SIZE)
00297  M00S00268.install +++| CDF12    PL     X2,CDF14    IF BUFFER THRESHOLD NOT REACHED
00298  M00S00269.install +++|
00299  M00S00270.install +++| CDF13    READCW I,17B       INITIATE CONTROL WORD READ TO EOF
00300  M00S00271.install +++|
00301  M00S00272.install +++|*         CHECK FOR RECALL.
00302  M00S00273.install +++|
00303  M00S00274.install +++| CDF14    NZ     X0,CDF1     IF INPUT AND/OR OUTPUT BLOCKS TRANSFERRED
00304  M00S00275.install +++|          RECALL             WAIT FOR DATA TRANSFER
00305  M00S00276.install +++|          EQ     CDF1        CHECK FOR INPUT BLOCKS
00306  M00S00277.install +++|
00307  M00S00278.install +++|*         PROCESS PARITY ERROR.
00308  M00S00279.install +++|
00309  M00S00280.install +++| CDF15    SX1    PMEF        PROCESS MASS STORAGE ERROR
00310  M00S00281.install +++|          SYSTEM SPC,,X1     CALL *1IS*
00311  M00S00282.install +++|          SA1    PMEF
00312  M00S00283.install +++|          ZR     X1,CDF16    IF *SYSTEM* REQUEST PERFORMED
00313  M00S00284.install +++|          RECALL
00314  M00S00285.install +++|          EQ     CDF15       RETRY *SYSTEM* REQUEST
00315  M00S00286.install +++|
00316  M00S00287.install +++| CDF16    ABORT
00317  M00S00288.install +++|
00318  M00S00289.install +++| CDFA     DATA   10H  COPYING
00319  M00S00290.install +++|          CON    0,0
00320  M00S00291.install +++|
00321  M00S00292.install +++| CDFB     VFD    24/100B,36/0  EOF CONTROL WORDS
00322  M00S00293.install +++|          VFD    12/17B,48/0
00323  M00S00294.install +++|          SPACE  4,10
00324  M00S00295.install +++|**        COMMON DECKS.
00325  M00S00296.install +++|
00326  M00S00297.install +++|
00327  M00S00298.install +++|*CALL     COMCCIO
00328  M00S00299.install +++|*CALL     COMCSYS
00329  M00S00300.install +++|          SPACE  4,10
00330  M00S00301.install +++|**        BUFFERS.
00331  M00S00302.install +++|
00332  M00S00303.install +++|
00333  M00S00304.install +++|          USE    BUFFERS
00334  M00S00305.install +++| CBUF     BSS    0
00335  M00S00306.install +++| RFL=     EQU    CBUF+CBUFL+4
00336  M00S00307.install +++|          TITLE  PRESET.
00337  M00S00308.install +++| PRS      SPACE  4,10
00338  M00S00309.install +++|**        PRS - PRESET PROGRAM.
00339  M00S00310.install +++|*
00340  M00S00311.install +++|*         ENTRY  (B1) = 1.
00341  M00S00312.install +++|*
00342  M00S00313.install +++|*         EXIT   (B2) = 2.
00343  M00S00314.install +++|*
00344  M00S00315.install +++|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
00345  M00S00316.install +++|*                B - 2, 3, 7.
00346  M00S00317.install +++|*                X - ALL.
00347  M00S00318.install +++|*
00348  M00S00319.install +++|*         CALLS  DXB, *1IS*.
00349  M00S00320.install +++|*
Line S00321 Modification History
M01 (Removed by) ns2428
Seq #  *Modification Id* Act 
----------------------------+
00350  M01S00321.ns2428  ---|*         MACROS ABORT, MESSAGE, READ, RECALL, REWIND, SKIPB, SYSTEM.
Line S00002 Modification History
M01 (Added by) ns2428
Seq #  *Modification Id* Act 
----------------------------+
00351  M01S00002.ns2428  +++|*         MACROS ABORT, GETSPS, MESSAGE, READ, RECALL, REWIND, SKIPB,
00352  M01S00003.ns2428  +++|*                SYSTEM.
00353  M00S00322.install +++|
00354  M00S00323.install +++|
00355  M00S00324.install +++| PRS      SUBR               ENTRY/EXIT
Line S00004 Modification History
M01 (Added by) ns2428
Seq #  *Modification Id* Act 
----------------------------+
00356  M01S00004.ns2428  +++|          GETSPS             CHECK USER ACCESS
00357  M00S00325.install +++|          SA1    ACTR        GET ARGUMENT COUNT
00358  M00S00326.install +++|          SA2    I
00359  M00S00327.install +++|          SB7    X1
00360  M00S00328.install +++|          ZR     B7,PRS2     IF NO ARGUMENTS
00361  M00S00329.install +++|          SB7    B7-B1
00362  M00S00330.install +++|          NE     B7,B1,PRS6  IF ILLEGAL ARGUMENT COUNT
00363  M00S00331.install +++|
00364  M00S00332.install +++|*         PROCESS INPUT FILE NAME.
00365  M00S00333.install +++|
00366  M00S00334.install +++|          R=     A5,ARGR     INPUT FILE NAME
00367  M00S00335.install +++|          MX0    42
00368  M00S00336.install +++|          SX4    3RSDF
00369  M00S00337.install +++|          BX7    X0*X5
00370  M00S00338.install +++|          LX4    42
00371  M00S00339.install +++|          ZR     X7,PRS1     IF NULL NAME (DEFAULT TO *SYSTEM*)
00372  M00S00340.install +++|          BX4    X7-X4
00373  M00S00341.install +++|          SX3    X2
00374  M00S00342.install +++|          ZR     X4,PRS6     IF FILE NAME CONFLICT
00375  M00S00343.install +++|          BX7    X7+X3
00376  M00S00344.install +++|          SA7    A2
00377  M00S00345.install +++|
Line S00346 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00378  M01S00346.ns22000 ---|*         PROCESS *SDF* EQUIPMENT NUMBER.
Line S00021 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00379  M01S00021.ns22000 +++|*         PROCESS EST ORDINAL.
00380  M00S00347.install +++|
00381  M00S00348.install +++| PRS1     SA5    A5+B1       GET NEXT ARGUMENT
00382  M00S00349.install +++|          LX5    12
00383  M00S00350.install +++|          SX2    X5
00384  M00S00351.install +++|          BX5    X5-X2
00385  M00S00352.install +++|          SX2    X2-2REQ
00386  M00S00353.install +++|          SB7    0
00387  M00S00354.install +++|          NZ     X2,PRS6     IF ILLEGAL PARAMETER
Line S00355 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00388  M01S00355.ns22000 ---|          RJ     DXB         CONVERT EQUIPMENT NUMBER
Line S00022 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00389  M01S00022.ns22000 +++|          RJ     DXB         CONVERT EST ORDINAL
00390  M00S00356.install +++|          NZ     X4,PRS6     IF CONVERSION ERROR
Line S00357 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00391  M01S00357.ns22000 ---|          SA6    O+5         STORE EQUIPMENT NUMBER
Line S00023 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00392  M01S00023.ns22000 +++|          SA6    O+5         SET EST ORDINAL IN *SDF* FET
00393  M00S00358.install +++| PRS2     R=     X7,2
00394  M00S00359.install +++|          SX1    VIFF        VALIDATE INSTALL FILE
00395  M00S00360.install +++|          R=     A7,ARGR
00396  M00S00361.install +++|          SYSTEM SPC,,X1     CALL *1IS*
00397  M00S00362.install +++|          SA1    VIFF
00398  M00S00363.install +++|          ZR     X1,PRS2.1   IF *SYSTEM* REQUEST PERFORMED
00399  M00S00364.install +++|          RECALL
00400  M00S00365.install +++|          EQ     PRS2        RETRY *SYSTEM* REQUEST
00401  M00S00366.install +++|
00402  M00S00367.install +++| PRS2.1   SB2    B1+B1
00403  M00S00368.install +++|          RECALL ARGR        WAIT *1IS* COMPLETE
00404  M00S00369.install +++|          EREXIT CDF15       SET ERROR EXIT PROCESSOR ADDRESS
00405  M00S00370.install +++|          SX7    B2
00406  M00S00371.install +++|          SX3    B1
00407  M00S00372.install +++|          LX7    29-1        POSITION RANDOM REWRITE FLAG
00408  M00S00373.install +++|          BX6    X3+X7
00409  M00S00374.install +++|          SA6    O+6         SET RANDOM REWRITE REQUEST
00410  M00S00375.install +++|
00411  M00S00376.install +++|*         READ DIRECTORY RECORD ON INSTALL FILE.
00412  M00S00377.install +++|
00413  M00S00378.install +++|          SKIPB  I,2,R       BACKSPACE ACROSS EOF AND DIRECTORY
00414  M00S00379.install +++|          SA1    I+6
00415  M00S00380.install +++|          BX6    X1
00416  M00S00381.install +++|          AX6    30
00417  M00S00382.install +++| PRS3     SX7    TBUF        SET IN = FIRST
00418  M00S00383.install +++|          SA6    I+6         SET RANDOM ADDRESS FOR READ
00419  M00S00384.install +++|          SA7    X2+B2
00420  M00S00385.install +++|          SA6    A6+B1
00421  M00S00386.install +++|          READ   X2,R
00422  M00S00387.install +++|          SA4    X2+B2       IN POINTER
00423  M00S00388.install +++|          SA3    A4+B1
00424  M00S00389.install +++|          SA1    X3          CHECK FIRST WORD OF RECORD
00425  M00S00390.install +++|          LX1    18
00426  M00S00391.install +++|          SX6    X1-770000B
00427  M00S00392.install +++|          LX1    6
00428  M00S00393.install +++|          SB3    X1+B1
00429  M00S00394.install +++|          NZ     X6,PRS7     IF NOT 7700 (PRFX) TABLE
00430  M00S00395.install +++|          SX7    X1-16B
00431  M00S00396.install +++|          NZ     X7,PRS7     IF TABLE WORD COUNT INCORRECT
00432  M00S00397.install +++|          SA5    X3+B3       CHECK RECORD TYPE
00433  M00S00398.install +++|          LX5    18
00434  M00S00399.install +++|          SX7    X5-700000B
00435  M00S00400.install +++|          SA1    X2
00436  M00S00401.install +++|          SA3    X3+B1
00437  M00S00402.install +++|          NZ     X7,PRS7     IF NOT OPLD RECORD
00438  M00S00403.install +++|          LX1    59-4        CHECK BUFFER STATUS
00439  M00S00404.install +++|          MX0    42+12
00440  M00S00405.install +++|          PL     X1,PRS7     IF NOT EOR (BUFFER TOO SMALL)
00441  M00S00406.install +++|          SX6    10B
00442  M00S00407.install +++|          LX0    12
00443  M00S00408.install +++|          BX6    X3+X6       DIRECTORY NAME + RECORD TYPE OPLD
00444  M00S00409.install +++|          SA5    A5-B1
00445  M00S00410.install +++|          SA6    X4          STORE SEARCH PARAMETER AT (IN)
00446  M00S00411.install +++|
00447  M00S00412.install +++|*         SEARCH DIRECTORY FOR FIRST OPLD ENTRY.
00448  M00S00413.install +++|
00449  M00S00414.install +++| PRS4     BX7    X0*X3
00450  M00S00415.install +++|          SA5    A5+2        GET DIRECTORY ENTRY
00451  M00S00416.install +++|          BX3    X5-X6
00452  M00S00417.install +++|          NZ     X7,PRS4     IF NOT DIRECTORY OPLD ENTRY
00453  M00S00418.install +++|          SX3    A5-B2
00454  M00S00419.install +++|          BX6    X4-X3
00455  M00S00420.install +++|          ZR     X6,PRS7     IF NO OPLD ENTRY FOR DIRECTORY
00456  M00S00421.install +++|          SA1    I+7         RANDOM ADDRESS FOR CURRENT DIRECTORY
00457  M00S00422.install +++|          SA5    A5-1
00458  M00S00423.install +++|          IX7    X5-X1
00459  M00S00424.install +++|          BX6    X5          RANDOM ADDRESS OF FIRST DIRECTORY
00460  M00S00425.install +++|          NZ     X7,PRS3     IF NOT FIRST DIRECTORY ON FILE
00461  M00S00426.install +++|          SA2    PRSA
00462  M00S00427.install +++|          SA3    A4+B1       SET UP *OSB* SEARCH
00463  M00S00428.install +++|          BX6    X2
00464  M00S00429.install +++|          SA1    A1-B1
00465  M00S00430.install +++|          SB3    X3+B3
00466  M00S00431.install +++|          AX1    30
00467  M00S00432.install +++|          SX7    B2
00468  M00S00433.install +++|          SA6    X4          STORE SEARCH PARAMETER AT (IN)
00469  M00S00434.install +++|          SX2    B1
00470  M00S00435.install +++|          IX1    X1+X7       RANDOM ADDRESS OF EOI
00471  M00S00436.install +++|          SA5    B3-B1
00472  M00S00437.install +++|          LX2    47          POSITION RANDOM ACCESS BIT
00473  M00S00438.install +++|          BX3    X6
00474  M00S00439.install +++|
00475  M00S00440.install +++|*         SEARCH DIRECTORY FOR *OSB* ENTRY.
00476  M00S00441.install +++|
00477  M00S00442.install +++| PRS5     BX7    X0*X3
00478  M00S00443.install +++|          SA5    A5+2
00479  M00S00444.install +++|          BX3    X5-X6
00480  M00S00445.install +++|          NZ     X7,PRS5     IF NO MATCH
00481  M00S00446.install +++|          SX3    A5-2
00482  M00S00447.install +++|          BX6    X4-X3
00483  M00S00448.install +++|          SA5    A5-B1
00484  M00S00449.install +++|          ZR     X6,PRS7     IF *OSB* NOT FOUND
00485  M00S00450.install +++|          LX5    36
00486  M00S00451.install +++|          BX6    X5+X1
00487  M00S00452.install +++|          SA6    I+5         SAVE RELATIVE SECTOR ADDRESS OF *OSB*
00488  M00S00453.install +++|          MX0    42
00489  M00S00454.install +++|          BX0    -X2*X0      CLEAR RANDOM ACCESS BIT IN MASK
00490  M00S00455.install +++|          SA1    A4-B1
00491  M00S00456.install +++|          AX2    47-44       POSITION ERROR PROCESSING FLAG
00492  M00S00457.install +++|          BX1    X0*X1
00493  M00S00458.install +++|          SX7    CBUF        RESET BUFFER POINTERS
00494  M00S00459.install +++|          BX1    X1+X2
00495  M00S00460.install +++|          BX6    X1+X7
00496  M00S00461.install +++|          SA6    A1
00497  M00S00462.install +++|          SA7    A1+B1
00498  M00S00463.install +++|          SA7    A7+B1
00499  M00S00464.install +++| PRS5.1   R=     X6,2
00500  M00S00465.install +++|          SX1    IDFF        INITIALIZE *SDF*
00501  M00S00466.install +++|          R=     A6,ARGR
00502  M00S00467.install +++|          SYSTEM SPC,,X1     CALL *1IS*
00503  M00S00468.install +++|          SA1    IDFF
00504  M00S00469.install +++|          ZR     X1,PRS5.2   IF *SYSTEM* REQUEST PERFORMED
00505  M00S00470.install +++|          RECALL
00506  M00S00471.install +++|          EQ     PRS5.1      RETRY *SYSTEM* REQUEST
00507  M00S00472.install +++|
00508  M00S00473.install +++| PRS5.2   REWIND I           REWIND INSTALL FILE
00509  M00S00474.install +++|          RECALL ARGR        WAIT *1IS* COMPLETE
00510  M00S00475.install +++|          EQ     PRSX        RETURN
00511  M00S00476.install +++|
00512  M00S00477.install +++| PRS6     MESSAGE  PRSB,0    * INSTALL - ARGUMENT ERROR.*
00513  M00S00478.install +++|          ABORT
00514  M00S00479.install +++|
00515  M00S00480.install +++| PRS7     MESSAGE  PRSC,0    * DEADSTART FILE FORMAT ERROR.*
00516  M00S00481.install +++|          ABORT
00517  M00S00482.install +++|
00518  M00S00483.install +++| PRSA     VFD    42/0LOSB,6/0,12/1
00519  M00S00484.install +++|
00520  M00S00485.install +++| PRSB     DATA   C* INSTALL - ARGUMENT ERROR.*
00521  M00S00486.install +++| PRSC     DATA   C* DEADSTART FILE FORMAT ERROR.*
00522  M00S00487.install +++|          SPACE  4,10
00523  M00S00488.install +++|**        COMMON DECKS.
00524  M00S00489.install +++|
00525  M00S00490.install +++|
00526  M00S00491.install +++|*CALL     COMCCPM
00527  M00S00492.install +++|*CALL     COMCDXB
00528  M00S00493.install +++|          SPACE  4,10
00529  M00S00494.install +++| TBUF     BSS    0
00530  M00S00495.install +++| TBUFL    EQU    CBUF+CBUFL-TBUF
00531  M00S00496.install +++|          SPACE  4,10
00532  M00S00497.install +++|          END
cdc/nos2.source/opl.opl871/deck/install.txt ยท Last modified: by 127.0.0.1