User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:lfm.003

Deck LFM Part 003

48 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
04243  M00S03206.lfm     +++|          ADN    FSTL
04244  M00S03207.lfm     +++|          CWD    FS
04245  M00S03208.lfm     +++| ASF1     LDD    FS          FETCH EST ENTRY
Line S03209 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04246  M01S03209.ns22000 ---|          LPC    777
04247  M00S03210.lfm     +++|          STD    EQ
Line S00032 Modification History
M01 (Added by) ns2043
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04248  M02S00032.ns22000 ---|          ZJN    ASF1.1      IF NO EQUIPMENT ASSIGNMENT
Line S00249 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2165
Seq #  *Modification Id* Act 
----------------------------+
04249  M02S00249.ns2165  ---|          ZJP    ASF1.1      IF NO EQUIPMENT ASSIGNED
Line S00001 Modification History
M01 (Added by) ns2165
M02 (Removed by) ns2423
Seq #  *Modification Id* Act 
----------------------------+
04250  M02S00001.ns2423  ---|          SHN    21-13
04251  M02S00002.ns2423  ---|          MJP    ASF1.1      IF NO EQUIPMENT ASSIGNED
Line S00001 Modification History
M01 (Added by) ns2423
Seq #  *Modification Id* Act 
----------------------------+
04252  M01S00001.ns2423  +++|          LPC    777
04253  M01S00002.ns2423  +++|          ZJP    ASF1.1      IF NO EQUIPMENT ASSIGNED
Line S00003 Modification History
M01 (Added by) ns2165
Seq #  *Modification Id* Act 
----------------------------+
04254  M01S00003.ns2165  +++|          LDD    EQ
Line S03211 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04255  M01S03211.ns22000 ---|          ADM    ESTS        ENTER EQUIPMENT TYPE
Line S00250 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04256  M01S00250.ns22000 +++|          SFA    EST         SET EQUIPMENT TYPE
04257  M01S00251.ns22000 +++|          ADK    EQDE
04258  M00S03212.lfm     +++|          CRD    CM
04259  M00S03213.lfm     +++|          LDD    CM+3
Line S03214 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04260  M01S03214.252l678 ---|          LPC    3777
04261  M00S03215.lfm     +++|          STM    ASFC
04262  M00S03216.lfm     +++|          STD    CN          SET EQUIPMENT TYPE
04263  M00S03217.lfm     +++|          LDD    CM          CHECK FOR MASS STORAGE
04264  M00S03218.lfm     +++|          SHN    6
Line S03219 Modification History
M01 (Removed by) ns2043
Seq #  *Modification Id* Act 
----------------------------+
04265  M01S03219.ns2043  ---|          MJN    ASF3        IF MASS STORAGE
04266  M01S03220.ns2043  ---|          LDC    4000        SET NON-MASS STORAGE BIT
Line S00033 Modification History
M01 (Added by) ns2043
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04267  M02S00033.ns22000 ---|          PJN    ASF2        IF NOT MASS STORAGE
Line S00252 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04268  M01S00252.ns22000 +++|          PJP    ASF2        IF NOT MASS STORAGE
Line S00034 Modification History
M01 (Added by) ns2043
Seq #  *Modification Id* Act 
----------------------------+
04269  M01S00034.ns2043  +++|          LDD    FS+1
Line S00035 Modification History
M01 (Added by) ns2043
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04270  M02S00035.ns22000 ---|          NJN    ASF3        IF TRACKS ASSIGNED
Line S00253 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
04271  M02S00253.ns2171  ---|          NJP    ASF3        IF TRACKS ASSIGNED
Line S00036 Modification History
M01 (Added by) ns2043
M02 (Removed by) ns22000
M03 (Removed by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
04272  M03S00036.ns2171  ---|          LDD    EQ          SET EQUIPMENT NUMBER IN MESSAGE
04273  M03S00037.ns2171  ---|          STD    T0
04274  M03S00038.ns2171  ---|          SHN    3
04275  M03S00039.ns2171  ---|          LMD    T0
04276  M03S00040.ns2171  ---|          SCN    70
04277  M03S00041.ns2171  ---|          RAM    ASFF+1
04278  M03S00042.ns2171  ---|          LCN    1R.-1R
04279  M03S00043.ns2171  ---|          RAM    ASFF-1
04280  M03S00044.ns2171  ---|          LDC    2REQ
04281  M03S00045.ns2171  ---| ASF1.1   STM    ASFF
04282  M03S00046.ns2171  ---|          LDC    ASFE
04283  M03S00047.ns2171  ---|          STD    T7
Line S00254 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
04284  M02S00254.ns2171  ---|          LDD    EQ          CONVERT UPPER TWO DIGITS OF EST ORDINAL
Line S00020 Modification History
M01 (Added by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
04285  M01S00020.ns2171  +++|          ZJN    ASF1.0      IF NO TRACKS ASSIGNED
04286  M01S00021.ns2171  +++|          RJM    UPC         UPDATE PRU COUNTER
04287  M01S00022.ns2171  +++|          LJM    ASF3        CONTINUE PROCESSING
04288  M01S00023.ns2171  +++|
04289  M01S00024.ns2171  +++| ASF1.0   LDD    EQ          CONVERT UPPER TWO DIGITS OF EST ORDINAL
Line S00255 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04290  M01S00255.ns22000 +++|          SHN    -3
04291  M01S00256.ns22000 +++|          RJM    C2D
04292  M01S00257.ns22000 +++|          STM    ASFF+1
04293  M01S00258.ns22000 +++|          LDD    EQ          CONVERT LOWER DIGIT OF EST ORDINAL
04294  M01S00259.ns22000 +++|          LPN    7
04295  M01S00260.ns22000 +++|          SHN    6
04296  M01S00261.ns22000 +++|          ADC    2R0,
04297  M01S00262.ns22000 +++|          STM    ASFF+2
04298  M01S00263.ns22000 +++|          LDC    ASFF        *EQXXX, TRACK LIMIT.*
04299  M01S00264.ns22000 +++|          UJN    ASF1.2      PROCESS TRACK LIMIT
04300  M01S00265.ns22000 +++|
04301  M01S00266.ns22000 +++| ASF1.1   LDD    CM+3        CHECK *RTCM* REJECT REASON CODE
04302  M01S00267.ns22000 +++|          LMN    2
04303  M01S00268.ns22000 +++|          ZJN    ASF1.3      IF REJECT BECAUSE OF ACCESS LEVEL
04304  M01S00269.ns22000 +++|          LDC    ASFF+3      * TRACK LIMIT.*
04305  M01S00270.ns22000 +++| ASF1.2   STD    T7          SAVE MESSAGE ADDRESS
Line S00048 Modification History
M01 (Added by) ns2043
Seq #  *Modification Id* Act 
----------------------------+
04306  M01S00048.ns2043  +++|          LDN    /ERR/NMA
04307  M01S00049.ns2043  +++|          LJM    RCL         RECALL *LFM*
Line S00271 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04308  M01S00271.ns22000 +++|
04309  M01S00272.ns22000 +++| ASF1.3   LDN    /ERR/WEQ    * EQUIPMENT NOT AVAILABLE.*
04310  M01S00273.ns22000 +++|          LJM    ERR         ABORT
Line S00050 Modification History
M01 (Added by) ns2043
Seq #  *Modification Id* Act 
----------------------------+
04311  M01S00050.ns2043  +++|
04312  M01S00051.ns2043  +++| ASF2     LDC    4000        SET NON-MASS STORAGE BIT
04313  M00S03221.lfm     +++|          RAD    CN
04314  M00S03222.lfm     +++| ASF3     LDN    0           CLEAR CONSOLE MESSAGE
04315  M00S03223.lfm     +++|          STD    CM
04316  M00S03224.lfm     +++|          LDD    CP
04317  M00S03225.lfm     +++|          ADN    MS2W
04318  M00S03226.lfm     +++|          CWD    CM
04319  M00S03227.lfm     +++|          RJM    CPA         STORE FIRST
04320  M00S03228.lfm     +++|          ADN    1
04321  M00S03229.lfm     +++|          CWD    CN
04322  M00S03230.lfm     +++|          ADN    4-1         GET FET+4
04323  M00S03231.lfm     +++|          CRD    CM
04324  M00S03232.lfm     +++|          LDD    FA          SET FNT ADDRESS INTO FET+4
04325  M00S03233.lfm     +++|          STD    CM
04326  M00S03234.lfm     +++|          RJM    CPA         COMPUTE PARAMETER ADDRESS
04327  M00S03235.lfm     +++|          ADN    4
04328  M00S03236.lfm     +++|          CWD    CM
Line S03237 Modification History
M01 (Removed by) lfm20
Seq #  *Modification Id* Act 
----------------------------+
04329  M01S03237.lfm20   ---|          ADN    2
Line S00001 Modification History
M01 (Added by) lfm20
Seq #  *Modification Id* Act 
----------------------------+
04330  M01S00001.lfm20   +++|          LDD    FE
04331  M01S00002.lfm20   +++|          SBN    7
04332  M01S00003.lfm20   +++|          MJN    ASF5        IF FET NOT LONG ENOUGH
04333  M01S00004.lfm20   +++|          RJM    CPA         COMPUTE PARAMETER ADDRESS
04334  M01S00005.lfm20   +++|          ADN    7
04335  M00S03238.lfm     +++|          CRD    CM
04336  M00S03239.lfm     +++|          LDD    CM          GET CHECKPOINT ID
04337  M00S03240.lfm     +++|          SHN    -6
04338  M00S03241.lfm     +++|          LMN    CBID
04339  M00S03242.lfm     +++|          ZJN    ASF4        IF CHECKPOINT BOI ID
04340  M00S03243.lfm     +++|          LMN    CKID&CBID   CHECK FOR CHECKPOINT EOI ID
04341  M00S03244.lfm     +++|          NJN    ASF5        IF NOT VALID ID
04342  M00S03245.lfm     +++|          LDN    CKST&CBST   SET CHECKPOINT AT EOI FILE STATUS
04343  M00S03246.lfm     +++| ASF4     LMN    CBST
04344  M00S03247.lfm     +++|          STD    T1
04345  M00S03248.lfm     +++|          NFA    FA,R        SET CHECKPOINT ID STATUS IN FNT
04346  M00S03249.lfm     +++|          CRD    CN
04347  M00S03250.lfm     +++|          LDD    CN+4
04348  M00S03251.lfm     +++|          SCN    77
04349  M00S03252.lfm     +++|          ADD    T1
04350  M00S03253.lfm     +++|          STD    CN+4
04351  M00S03254.lfm     +++|          NFA    FA,R
04352  M00S03255.lfm     +++|          CWD    CN
04353  M00S03256.lfm     +++| ASF5     LDN    0           CLEAR PAUSE BIT
04354  M00S03257.lfm     +++|          RJM    SPB
04355  M00S03258.lfm     +++|          LDD    FP
04356  M00S03259.lfm     +++|          SHN    21-1
Line S03260 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04357  M01S03260.ns22000 ---|          PJN    ASF6        IF DAYFILE MESSAGE TO BE ISSUED
04358  M01S03261.ns22000 ---|          LJM    LFMX        EXIT
04359  M01S03262.ns22000 ---|
04360  M01S03263.ns22000 ---| ASF6     LDM    ASFC+1
Line S00274 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04361  M01S00274.ns22000 +++|          MJP    LFMX        IF NO DAYFILE MESSAGE TO BE ISSUED
04362  M01S00275.ns22000 +++|          LDM    ASFC+1
04363  M00S03264.lfm     +++|          NJN    ASF7        IF MESSAGE FIELD ALREADY SET
Line S03265 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04364  M01S03265.ns22000 ---|          LDD    EQ          ENTER EQUIPMENT NUMBER INTO MESSAGE
Line S00276 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04365  M01S00276.ns22000 +++|          LDD    EQ          CONVERT UPPER TWO DIGITS OF EST ORDINAL
04366  M01S00277.ns22000 +++|          SHN    -3
04367  M00S03266.lfm     +++|          RJM    C2D
04368  M00S03267.lfm     +++|          STM    ASFC+1
Line S03268 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04369  M01S03268.ns22000 ---| ASF7     LDD    FN          ENTER FILE NAME
04370  M01S03269.ns22000 ---|          STM    ASFD
04371  M01S03270.ns22000 ---|          LDN    0
04372  M01S03271.ns22000 ---|          STD    T1
Line S00278 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04373  M01S00278.ns22000 +++|          LDD    EQ          CONVERT LOWER DIGIT OF EST ORDINAL
04374  M01S00279.ns22000 +++|          LPN    7
04375  M01S00280.ns22000 +++|          ADN    1R0
04376  M01S00281.ns22000 +++|          SHN    6
04377  M01S00282.ns22000 +++|          STM    ASFC+2
04378  M01S00283.ns22000 +++| ASF7     LDC    ASFC+2      SET BUFFER ADDRESS
04379  M01S00284.ns22000 +++|          STD    T1
04380  M01S00285.ns22000 +++|          LDC    =C*, ASSIGNED TO *
04381  M01S00286.ns22000 +++|          RJM    ACS
04382  M00S03272.lfm     +++|          LDD    FN+3
04383  M00S03273.lfm     +++|          SCN    77
04384  M00S03274.lfm     +++|          STD    FN+3
Line S03275 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04385  M01S03275.ns22000 ---| ASF8     LDM    FN,T1       COPY FILE NAME AND TERMINATE WITH *.*
04386  M01S03276.ns22000 ---|          SCN    77
04387  M01S03277.ns22000 ---|          ZJN    ASF9        IF LEFT CHARACTER ZERO
04388  M01S03278.ns22000 ---|          LDM    FN,T1
04389  M01S03279.ns22000 ---|          LPN    77
04390  M01S03280.ns22000 ---|          ZJN    ASF10       IF RIGHT CHARACTER ZERO
04391  M01S03281.ns22000 ---|          LDM    FN,T1
04392  M01S03282.ns22000 ---|          STM    ASFD,T1
04393  M01S03283.ns22000 ---|          AOD    T1
04394  M01S03284.ns22000 ---|          UJN    ASF8        READ NEXT CHARACTER
04395  M01S03285.ns22000 ---|
04396  M01S03286.ns22000 ---| ASF9     LDC    2R..
04397  M01S03287.ns22000 ---| ASF10    LMN    1R.
04398  M01S03288.ns22000 ---|          ADM    FN,T1
04399  M01S03289.ns22000 ---|          STM    ASFD,T1
04400  M01S03290.ns22000 ---|          LDN    0           TERMINATE MESSAGE
04401  M01S03291.ns22000 ---|          STM    ASFD+1,T1
Line S00287 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04402  M01S00287.ns22000 +++|          LDN    FN          ADD FILENAME TO MESSAGE
04403  M01S00288.ns22000 +++|          RJM    ACS
04404  M01S00289.ns22000 +++|          LDC    =C*.*       TERMINATE MESSAGE
04405  M01S00290.ns22000 +++|          RJM    ACS
04406  M00S03292.lfm     +++|          LDC    ASFC        SEND ASSIGNMENT MESSAGE
Line S00291 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04407  M01S00291.ns22000 +++|*         LDC    ASFC+1      (*MSAL* TYPE ASSIGNMENT)
04408  M00S03293.lfm     +++| ASFB     EQU    *-1
04409  M00S03294.lfm     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
04410  M00S03295.lfm     +++|          LJM    LFMX        EXIT
04411  M00S03296.lfm     +++|
04412  M00S03297.lfm     +++|
Line S03298 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04413  M01S03298.ns22000 ---| ASFC     BSSZ   2
04414  M01S03299.ns22000 ---|          DATA   H*, ASSIGNED TO*
04415  M01S03300.ns22000 ---| ASFD     DATA   C*XXXXXXX*
Line S00292 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04416  M01S00292.ns22000 +++| ASFC     BSSZ   15          MESSAGE BUILD AREA
Line S00052 Modification History
M01 (Added by) ns2043
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04417  M02S00052.ns22000 ---| ASFE     DATA   H*TRACK LIMIT.*
04418  M02S00053.ns22000 ---| ASFF     DATA   C*EQ00.*
Line S00293 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04419  M01S00293.ns22000 +++| ASFF     DATA   C*EQXXX, TRACK LIMIT.*
Line S00007 Modification History
M01 (Added by) ns2253
Seq #  *Modification Id* Act 
----------------------------+
04420  M01S00007.ns2253  +++| CDT      SPACE  4,20
04421  M01S00008.ns2253  +++|**        CDT - CHECK DEVICE TYPE.
04422  M01S00009.ns2253  +++|*
04423  M01S00010.ns2253  +++|*         ENTRY  (T2) = DEVICE TYPE TO CHECK FOR.
04424  M01S00011.ns2253  +++|*
04425  M01S00012.ns2253  +++|*         EXIT   (A) = 0, IF DEVICE TYPE FOUND IN TABLE.
04426  M01S00013.ns2253  +++|*                (A) .NE. 0 IF NOT FOUND.
04427  M01S00014.ns2253  +++|*
04428  M01S00015.ns2253  +++|*         USES   T1.
04429  M01S00016.ns2253  +++|
04430  M01S00017.ns2253  +++|
04431  M01S00018.ns2253  +++| CDT2     LCN    0           SET NOT FOUND STATUS
04432  M01S00019.ns2253  +++|
04433  M01S00020.ns2253  +++| CDT      SUBR               ENTRY/EXIT
04434  M01S00021.ns2253  +++|          LDN    0
04435  M01S00022.ns2253  +++|          STD    T1
04436  M01S00023.ns2253  +++| CDT1     LDM    CDTA,T1     GET NEXT TABLE ENTRY
04437  M01S00024.ns2253  +++|          ZJN    CDT2        IF END OF TABLE
04438  M01S00025.ns2253  +++|          LMD    T2
04439  M01S00026.ns2253  +++|          ZJN    CDTX        IF MATCH
04440  M01S00027.ns2253  +++|          AOD    T1
04441  M01S00028.ns2253  +++|          UJN    CDT1        CHECK NEXT ENTRY
04442  M01S00029.ns2253  +++|
04443  M01S00030.ns2253  +++|
Line S00031 Modification History
M01 (Added by) ns2253
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04444  M02S00031.252l678 ---| CDTA     BSS    0
04445  M02S00032.252l678 ---|          CON    2HTT
04446  M02S00033.252l678 ---|          CON    2HNE
04447  M02S00034.252l678 ---|          CON    2HCC
Line S00035 Modification History
M01 (Added by) ns2253
M02 (Removed by) 251l670
M03 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04448  M03S00035.252l678 ---|          CON    2HDD
04449  M03S00036.252l678 ---|          CON    2HDE
04450  M03S00037.252l678 ---|          CON    2HDI
04451  M03S00038.252l678 ---|          CON    2HDJ
04452  M03S00039.252l678 ---|          CON    2HDK
04453  M03S00040.252l678 ---|          CON    2HDL
04454  M03S00041.252l678 ---|          CON    2HDM
04455  M03S00042.252l678 ---|          CON    2HDP
04456  M03S00043.252l678 ---|          CON    2HDQ
04457  M03S00044.252l678 ---|          CON    2HDV
04458  M03S00045.252l678 ---|          CON    2HDW
04459  M03S00046.252l678 ---|          CON    2HDB
Line S00002 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04460  M01S00002.252l678 +++|
04461  M01S00003.252l678 +++|**        TBLM - DEFINE MACRO TO PRODUCE *CDTA* TABLE.
04462  M01S00004.252l678 +++|*
04463  M01S00005.252l678 +++|*T        12/2R_EQT
Figure

0112R_EQT

04464  M01S00006.252l678 +++|
04465  M01S00007.252l678 +++|
04466  M01S00008.252l678 +++|          PURGMAC  TBLM
04467  M01S00009.252l678 +++| TBLM     MACRO  EQT
04468  M01S00010.252l678 +++|          CON    2R_EQT
04469  M01S00011.252l678 +++| TBLM     ENDM
Line S00233 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04470  M01S00233.274l797 +++|
04471  M01S00234.274l797 +++|
Line S00012 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04472  M01S00012.252l678 +++|          LIST   G
Line S00013 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04473  M02S00013.274l797 ---| CDTA     TBL    "MSEQ"
Line S00235 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04474  M01S00235.274l797 +++| CDTA     BSS    0
04475  M01S00236.274l797 +++|          TBL    "MSEQ"
Line S00014 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04476  M01S00014.252l678 +++|          CON    2RTT
04477  M01S00015.252l678 +++|          CON    2RNE
04478  M01S00016.252l678 +++|          CON    2RCC
Line S00237 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04479  M01S00237.274l797 +++|          CON    2ROD        OPTICAL DISK
Line S00017 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04480  M02S00017.274l797 ---|          LIST   -G
Line S00011 Modification History
M01 (Added by) 251l670
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04481  M02S00011.274l797 ---|          LIST   G
04482  M02S00012.274l797 ---|          TBL    "MSEQ"
Line S00013 Modification History
M01 (Added by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
04483  M01S00013.251l670 +++|          LIST   *
04484  M01S00014.251l670 +++|
Line S00047 Modification History
M01 (Added by) ns2253
Seq #  *Modification Id* Act 
----------------------------+
04485  M01S00047.ns2253  +++|          CON    0           END OF TABLE
04486  M00S03301.lfm     +++|          TITLE  SUBROUTINES.
Line S00294 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04487  M01S00294.ns22000 +++| CEA      SPACE  4,10
04488  M01S00295.ns22000 +++|**        CEA - CHECK EQUIPMENT ACCESS LEVELS.
04489  M01S00296.ns22000 +++|*
04490  M01S00297.ns22000 +++|*         ENTRY  (EQ) = EST ORDINAL.
04491  M01S00298.ns22000 +++|*                (AL) = 8/, 1/ACCESS LEVEL FLAG, 3/ACCESS LEVEL.
04492  M01S00299.ns22000 +++|*
04493  M01S00300.ns22000 +++|*         EXIT   (A) = 0 IF ACCESS LEVEL IN RANGE FOR EQUIPMENT.
04494  M01S00301.ns22000 +++|*
04495  M01S00302.ns22000 +++|*         USES   CM+1, CM+2, CM+4.
04496  M01S00303.ns22000 +++|*
04497  M01S00304.ns22000 +++|*         MACROS MONITOR.
04498  M01S00305.ns22000 +++|
04499  M01S00306.ns22000 +++|
04500  M01S00307.ns22000 +++| CEA      SUBR               ENTRY/EXIT
04501  M01S00308.ns22000 +++|          LDD    AL          GET ACCESS LEVEL
04502  M01S00309.ns22000 +++|          ZJN    CEAX        IF SYSTEM IS UNSECURED
04503  M01S00310.ns22000 +++|          LPN    7           ACCESS LEVEL
04504  M01S00311.ns22000 +++|          STD    CM+4
04505  M01S00312.ns22000 +++|          LDN    VAES        SET SUBFUNCTION CODE
04506  M01S00313.ns22000 +++|          STD    CM+1
04507  M01S00314.ns22000 +++|          LDD    EQ          EST ORDINAL
04508  M01S00315.ns22000 +++|          STD    CM+2
04509  M01S00316.ns22000 +++|          MONITOR  VSAM      VALIDATE EQUIPMENT ACCESS LEVELS
04510  M01S00317.ns22000 +++|          LDD    CM+1        GET REPLY
04511  M01S00318.ns22000 +++|          UJN    CEAX        RETURN
04512  M00S03302.lfm     +++| CEN      SPACE  4,15
Line S03303 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04513  M01S03303.ns22000 ---|**        CEN - CHECK EQUIPMENT NUMBER.
Line S00319 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04514  M01S00319.ns22000 +++|**        CEN - CHECK EST ORDINAL.
04515  M00S03304.lfm     +++|*
Line S03305 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04516  M01S03305.ns22000 ---|*         ENTRY  (EQ) = EQUIPMENT NUMBER.
Line S00320 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04517  M01S00320.ns22000 +++|*         ENTRY  (EQ) = EST ORDINAL.
04518  M01S00321.ns22000 +++|*                (AL) = 8/, 1/ACCESS LEVEL FLAG, 3/ACCESS LEVEL.
04519  M00S03306.lfm     +++|*
04520  M00S03307.lfm     +++|*         EXIT   (A) = 0 IF AVALIABLE.
04521  M00S03308.lfm     +++|*                (FS - FS+4) = EST ENTRY.
04522  M00S03309.lfm     +++|*
04523  M00S03310.lfm     +++|*         USES   T1, T2, T3, CM - CM+4, FS - FS+4.
04524  M00S03311.lfm     +++|*
Line S03312 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04525  M01S03312.ns22000 ---|*         CALLS  CSJ.
Line S00322 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04526  M01S00322.ns22000 +++|*         CALLS  CEA, CSJ.
04527  M00S03313.lfm     +++|*
Line S03314 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04528  M01S03314.ns22000 ---|*         MACROS GEA.
Line S00323 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04529  M01S00323.ns22000 +++|*         MACROS SFA.
04530  M00S03315.lfm     +++|
04531  M00S03316.lfm     +++|
04532  M00S03317.lfm     +++| CEN      SUBR               ENTRY/EXIT
04533  M00S03318.lfm     +++|          LDN    ESTP        READ EST POINTER
04534  M00S03319.lfm     +++|          CRD    CM
04535  M00S03320.lfm     +++|          LDD    EQ
04536  M00S03321.lfm     +++|          ZJN    CEN2        IF EQUIPMENT 0
Line S03322 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04537  M01S03322.ns22000 ---|          ADD    CM          READ EST ENTRY
Line S00324 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04538  M01S00324.ns22000 +++|          SBD    CM+2
04539  M01S00325.ns22000 +++|          PJN    CEN2        IF NOT IN LEGAL EST RANGE
04540  M01S00326.ns22000 +++|          SFA    EST,EQ      READ EST ENTRY
04541  M01S00327.ns22000 +++|          ADK    EQDE
04542  M00S03323.lfm     +++|          CRD    FS
Line S03324 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04543  M01S03324.ns22000 ---|          SBD    CM+1
04544  M01S03325.ns22000 ---|          PJN    CEN2        IF NOT IN LEGAL EST RANGE
04545  M00S03326.lfm     +++|          LDD    FS+3
04546  M00S03327.lfm     +++|          ZJN    CEN2        IF EQUIPMENT NOT DEFINED
Line S03328 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04547  M01S03328.252l678 ---|          LPC    3777
04548  M01S03329.252l678 ---|          STD    T1
04549  M00S03330.lfm     +++|          LDC    TAEQ+TAEQM-1  SET START OF TABLE
04550  M00S03331.lfm     +++|          STD    T2
04551  M00S03332.lfm     +++|          ADN    TAEQL-TAEQM+1  SET END OF TABLE
04552  M00S03333.lfm     +++|          STD    T3
Line S03334 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04553  M01S03334.v23l617 ---| CEN1     AOD    T2          SEARCH FOR ILLEGAL EQUIPMENT
Line S00089 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04554  M01S00089.v23l617 +++| CEN1     AOD    T2          SEARCH FOR INCORRECT EQUIPMENT
04555  M00S03335.lfm     +++|          LMD    T3
04556  M00S03336.lfm     +++|          ZJN    CEN3        IF END OF TABLE
04557  M00S03337.lfm     +++|          LDI    T2
Line S03338 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04558  M01S03338.252l678 ---|          LMD    T1
Line S00018 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
04559  M01S00018.252l678 +++|          LMD    FS+3
Line S03339 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04560  M01S03339.v23l617 ---|          NJN    CEN1        IF NOT ILLEGAL EQUIPMENT
04561  M01S03340.v23l617 ---| CEN2     LDN    /ERR/IEQ    * ILLEGAL EQUIPMENT.*
Line S00090 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04562  M01S00090.v23l617 +++|          NJN    CEN1        IF NOT INCORRECT EQUIPMENT
04563  M01S00091.v23l617 +++| CEN2     LDN    /ERR/IEQ    * INCORRECT EQUIPMENT.*
04564  M00S03341.lfm     +++|          LJM    ERR         PROCESS ERROR
04565  M00S03342.lfm     +++|
04566  M00S03343.lfm     +++| CEN3     LDD    FS          CHECK EQUIPMENT STATUS
04567  M00S03344.lfm     +++|          SHN    21-13
04568  M00S03345.lfm     +++|          PJN    CEN5        IF NOT MASS STORAGE
04569  M00S03346.lfm     +++|          SHN    13-10
04570  M00S03347.lfm     +++|          PJN    CEN4        IF NOT REMOVABLE DEVICE
04571  M00S03348.lfm     +++|          RJM    CSJ         CHECK FOR SSJ= ENTRY POINT
04572  M00S03349.lfm     +++|          PJN    CEN2        IF JOB NOT SYSTEM ORIGIN
04573  M00S03350.lfm     +++| CEN4     LDD    FS
04574  M00S03351.lfm     +++|          SHN    21-6
04575  M00S03352.lfm     +++|          MJN    CEN2        IF DEVICE UNAVAILABLE
Line S03353 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04576  M01S03353.242l642 ---|          LDD    FS+3
04577  M01S03354.242l642 ---|          SHN    -13
04578  M01S03355.242l642 ---|          NJN    CEN2        IF DEVICE *OFF*
Line S00101 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04579  M01S00101.242l642 +++|          SHN    6-1
04580  M01S00102.242l642 +++|          MJN    CEN2        IF DEVICE OFF
Line S00328 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04581  M01S00328.ns22000 +++|          RJM    CEA         CHECK EQUIPMENT ACCESS LEVELS
04582  M00S03356.lfm     +++|          UJN    CEN6        RETURN WITH EQUIPMENT AVAILABLE STATUS
04583  M00S03357.lfm     +++|
04584  M00S03358.lfm     +++| CEN5     SHN    0-12-21+13
04585  M00S03359.lfm     +++|          LMN    1
04586  M00S03360.lfm     +++|          ZJN    CEN6        IF ALLOCATABLE DEVICE
Line S00329 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04587  M01S00329.ns22000 +++|          RJM    CEA         CHECK EQUIPMENT ACCESS LEVELS
04588  M01S00330.ns22000 +++|          NJN    CEN6        IF ACCESS LEVEL OUT OF RANGE
Line S03361 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04589  M01S03361.ns22000 ---|          GEA    EQ          GET EAT ENTRY
Line S00331 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04590  M01S00331.ns22000 +++|          SFA    EST,EQ      CHECK EQUIPMENT ASSIGNMENT
04591  M01S00332.ns22000 +++|          ADK    EQAE
04592  M00S03362.lfm     +++|          CRD    CM
04593  M00S03363.lfm     +++|          LDD    CM+4        RETURN WITH JOB ASSIGNMENT STATUS
04594  M00S03364.lfm     +++| CEN6     LJM    CENX        RETURN
04595  M00S03365.lfm     +++| COE      SPACE  4,10
04596  M00S03366.lfm     +++|**        COE - CLEAR OR RESET OPERATOR ASSIGNED EQUIPMENT.
04597  M00S03367.lfm     +++|*
04598  M00S03368.lfm     +++|*         ENTRY  (A) = 0 IF TO CLEAR OPERATOR ASSIGNED EQUIPMENT.
04599  M00S03369.lfm     +++|*                    = EQUIPMENT IF TO RESET OPERATOR EQUIPMENT.
04600  M00S03370.lfm     +++|*
04601  M00S03371.lfm     +++|*         EXIT   (A) = OPERATOR ASSIGNED EQUIPMENT BEFORE CLEAR.
04602  M00S03372.lfm     +++|*
04603  M00S03373.lfm     +++|*         USES   T0, CM - CM+5.
04604  M00S03374.lfm     +++|
04605  M00S03375.lfm     +++|
04606  M00S03376.lfm     +++|          QUAL
04607  M00S03377.lfm     +++| COE      EQU    *+1         DEFINE GLOBAL TAG
04608  M00S03378.lfm     +++|          QUAL   *
04609  M00S03379.lfm     +++|
04610  M00S03380.lfm     +++| COE      SUBR               ENTRY/EXIT
04611  M00S03381.lfm     +++|          STD    T0          SAVE NEW VALUE FOR *OAEW*
04612  M00S03382.lfm     +++|          LDD    CP          GET *OAEW* WORD
04613  M00S03383.lfm     +++|          ADN    OAEW
04614  M00S03384.lfm     +++|          CRD    CM+1
04615  M00S03385.lfm     +++|          CRD    CM
04616  M00S03386.lfm     +++|          LDD    T0
04617  M00S03387.lfm     +++|          STD    CM+4
04618  M00S03388.lfm     +++|          ADD    CM+1+4
04619  M00S03389.lfm     +++|          ZJN    COEX        IF NO OPERATOR EQUIPMENT TO CLEAR
04620  M00S03390.lfm     +++|          LDD    CP          CLEAR OR RESET OPERATOR EQUIPMENT
04621  M00S03391.lfm     +++|          ADN    OAEW
04622  M00S03392.lfm     +++|          CWD    CM
04623  M00S03393.lfm     +++|          LDD    CM+1+4      RETURN WITH PRIOR VALUE FROM *OAEW*
04624  M00S03394.lfm     +++|          UJN    COEX        RETURN
04625  M00S03395.lfm     +++| CSJ      SPACE  4,10
04626  M00S03396.lfm     +++|**        CSJ - CHECK FOR SSJ= ENTRY POINT.
04627  M00S03397.lfm     +++|*
04628  M00S03398.lfm     +++|*         EXIT   (A) .LT. 0, IF JOB HAS SSJ= ENTRY POINT.
04629  M00S03399.lfm     +++|*                (CM - CM+4) = *SEPW* WORD FROM CPA.
04630  M00S03400.lfm     +++|*
04631  M00S03401.lfm     +++|*         USES   CM - CM+4.
04632  M00S03402.lfm     +++|
04633  M00S03403.lfm     +++|
04634  M00S03404.lfm     +++| CSJ      SUBR               ENTRY/EXIT
04635  M00S03405.lfm     +++|          LDD    CP
04636  M00S03406.lfm     +++|          ADC    SEPW
04637  M00S03407.lfm     +++|          CRD    CM          READ SPECIAL ENTRY POINT WORD
04638  M00S03408.lfm     +++|          LDD    CM
04639  M00S03409.lfm     +++|          SHN    21-2
04640  M00S03410.lfm     +++|          UJN    CSJX        RETURN
Line S00238 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04641  M01S00238.274l797 +++| CTE      SPACE  4,10
04642  M01S00239.274l797 +++|**        CTE - CHECK FOR TAPE EQUIPMENT.
04643  M01S00240.274l797 +++|*
04644  M01S00241.274l797 +++|*         ENTRY  (A) = EQUIPMENT MNEMONIC.
04645  M01S00242.274l797 +++|*
04646  M01S00243.274l797 +++|*         EXIT   (A) .EQ. 0 = TAPE EQUIPMENT (MT, NT, CT OR AT).
04647  M01S00244.274l797 +++|*                (A) .EQ. 1 = VSN EQUIPMENT (TE).
04648  M01S00245.274l797 +++|*                (A) .LT. 0 = NOT TAPE RELATED EQUIPMENT.
04649  M01S00246.274l797 +++|
04650  M01S00247.274l797 +++|
04651  M01S00248.274l797 +++| CTE1     LDN    1           SET VSN EQUIPMENT
04652  M01S00249.274l797 +++|
04653  M01S00250.274l797 +++| CTE      SUBR               ENTRY/EXIT
04654  M01S00251.274l797 +++|          LPC    3777
04655  M01S00252.274l797 +++|          LMC    2RMT
04656  M01S00253.274l797 +++|          ZJN    CTEX        IF *MT*
04657  M01S00254.274l797 +++|          LMC    2RNT&2RMT
04658  M01S00255.274l797 +++|          ZJN    CTEX        IF *NT*
04659  M01S00256.274l797 +++|          LMC    2RCT&2RNT
04660  M01S00257.274l797 +++|          ZJN    CTEX        IF *CT*
04661  M01S00258.274l797 +++|          LMC    2RAT&2RCT
04662  M01S00259.274l797 +++|          ZJN    CTEX        IF *AT*
04663  M01S00260.274l797 +++|          LMC    2RTE&2RAT
04664  M01S00261.274l797 +++|          ZJN    CTE1        IF *TE*
04665  M01S00262.274l797 +++|          LCN    0           SET NOT TAPE RELATED
04666  M01S00263.274l797 +++|          UJN    CTEX        RETURN
Line S00333 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04667  M01S00333.ns22000 +++| GVA      SPACE  4,10
04668  M01S00334.ns22000 +++|**        GVA - GET AND VALIDATE ACCESS LEVEL.
04669  M01S00335.ns22000 +++|*
04670  M01S00336.ns22000 +++|*         ENTRY  (CN - CN+4) = FET+1.
04671  M01S00337.ns22000 +++|*                (FET+4) = ACCESS LEVEL IN BITS 39-36, IF *SP*
04672  M01S00338.ns22000 +++|*                (BIT 39) SET IN FET+1.
04673  M01S00339.ns22000 +++|*
04674  M01S00340.ns22000 +++|*         EXIT   (AL) = 8/,1/ACCESS LEVEL FLAG,3/ACCESS LEVEL.
04675  M01S00341.ns22000 +++|*                (FET+4) = VALIDATED ACCESS LEVEL IN BITS 39-36.
04676  M01S00342.ns22000 +++|*
04677  M01S00343.ns22000 +++|*         ERROR  TO *ERR* IF SECURITY VIOLATION.
04678  M01S00344.ns22000 +++|*
04679  M01S00345.ns22000 +++|*         USES   AL, CM - CM+4.
04680  M01S00346.ns22000 +++|*
04681  M01S00347.ns22000 +++|*         CALLS  CPA.
04682  M01S00348.ns22000 +++|*
04683  M01S00349.ns22000 +++|*         MACROS MONITOR.
04684  M01S00350.ns22000 +++|
04685  M01S00351.ns22000 +++|
04686  M01S00352.ns22000 +++| GVA1     LDD    CP          GET JOB ACCESS LEVEL
04687  M01S00353.ns22000 +++|          ADK    JSCW
04688  M01S00354.ns22000 +++|          CRD    CM
04689  M01S00355.ns22000 +++|          LDD    CM+1
04690  M01S00356.ns22000 +++|          SHN    -11
04691  M01S00357.ns22000 +++|          STD    AL
04692  M01S00358.ns22000 +++|          RJM    CPA         GET (FET+4)
04693  M01S00359.ns22000 +++|          ADN    4
04694  M01S00360.ns22000 +++|          CRD    CM
04695  M01S00361.ns22000 +++|          LDD    CM+1        SET ACCESS LEVEL IN (FET+4)
04696  M01S00362.ns22000 +++|          SCN    7
04697  M01S00363.ns22000 +++|          LMD    AL
04698  M01S00364.ns22000 +++|          STD    CM+1
04699  M01S00365.ns22000 +++|          RJM    CPA         SAVE (FET+4)
04700  M01S00366.ns22000 +++|          ADN    4
04701  M01S00367.ns22000 +++|          CWD    CM
04702  M01S00368.ns22000 +++| GVA2     LDN    10          SET ACCESS LEVEL FLAG
04703  M01S00369.ns22000 +++|          RAD    AL
04704  M01S00370.ns22000 +++|
04705  M01S00371.ns22000 +++| GVA      SUBR               ENTRY/EXIT
04706  M01S00372.ns22000 +++|          LDK    SSML        CHECK SECURITY MODE
04707  M01S00373.ns22000 +++|          CRD    CM
04708  M01S00374.ns22000 +++|          LDD    CM
04709  M01S00375.ns22000 +++|          LPN    7
04710  M01S00376.ns22000 +++|          ZJN    GVAX        IF SYSTEM IS UNSECURED
04711  M01S00377.ns22000 +++|          LDD    CN+1        CHECK *SP* BIT
04712  M01S00378.ns22000 +++|          SHN    21-3
04713  M01S00379.ns22000 +++|          PJN    GVA1        IF *SP* BIT NOT SET
04714  M01S00380.ns22000 +++|          RJM    CPA         READ ACCESS LEVEL FROM FET+4
04715  M01S00381.ns22000 +++|          ADN    4
04716  M01S00382.ns22000 +++|          CRD    CM
04717  M01S00383.ns22000 +++|          LDD    CM+1
04718  M01S00384.ns22000 +++|          LPN    7
04719  M01S00385.ns22000 +++|          STD    AL
04720  M01S00386.ns22000 +++|          LDN    ZERL        CLEAR WORD
04721  M01S00387.ns22000 +++|          CRD    CM
04722  M01S00388.ns22000 +++|          LDD    AL          SET ACCESS LEVEL FOR *VSAM* CALL
04723  M01S00389.ns22000 +++|          STD    CM+1
04724  M01S00390.ns22000 +++|          LDD    MA          WRITE PARAMETER WORD
04725  M01S00391.ns22000 +++|          CWD    CM
04726  M01S00392.ns22000 +++|          LDN    1           SET TO VALIDATE ACCESS LEVEL
04727  M01S00393.ns22000 +++|          STD    CM+4
04728  M01S00394.ns22000 +++|          LDN    VAJS        SET SUBFUNCTION
04729  M01S00395.ns22000 +++|          STD    CM+1
04730  M01S00396.ns22000 +++|          MONITOR  VSAM      VALIDATE ACCESS LEVEL
04731  M01S00397.ns22000 +++|          LDD    CM+1
04732  M01S00398.ns22000 +++|          ZJP    GVA2        IF VALID ACCESS LEVEL
04733  M01S00399.ns22000 +++|          LDN    /ERR/LNV    * ACCESS LEVEL NOT VALID FOR FILE.*
04734  M01S00400.ns22000 +++|          LJM    ERR         PROCESS ERROR
Line S03411 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
04735  M01S03411.ns2323  ---| RAW      SPACE  4,10
Line S00001 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
04736  M01S00001.ns2323  +++| RAW      SPACE  4,15
04737  M00S03412.lfm     +++|**        RAW - READ ACCESS CONTROL WORD.
04738  M00S03413.lfm     +++|*
04739  M00S03414.lfm     +++|*         EXIT   (CM - CM+4) = USER ACCESS CONTROL WORD FROM CPA
04740  M00S03415.lfm     +++|*                OR FROM SSJ= PARAMETER BLOCK IF SSJ= JOB.
04741  M00S03416.lfm     +++|*                (A) = (CM+4).
04742  M00S03417.lfm     +++|*
04743  M00S03418.lfm     +++|*         USES   CM - CM+4.
04744  M00S03419.lfm     +++|*
04745  M00S03420.lfm     +++|*         CALLS  CSJ.
Line S00002 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
04746  M01S00002.ns2323  +++|*
04747  M01S00003.ns2323  +++|*         MACROS NFA.
04748  M00S03421.lfm     +++|
04749  M00S03422.lfm     +++|
04750  M00S03423.lfm     +++| RAW1     LDD    CP          READ ACCESS CONTROL WORD FROM CPA
04751  M00S03424.lfm     +++|          ADK    AACW
04752  M00S03425.lfm     +++| RAW2     CRD    CM
04753  M00S03426.lfm     +++|          LDD    CM+4
04754  M00S03427.lfm     +++|
04755  M00S03428.lfm     +++| RAW      SUBR               ENTRY/EXIT
04756  M00S03429.lfm     +++|          RJM    CSJ         CHECK FOR SSJ= ENTRY POINT
04757  M00S03430.lfm     +++|          PJN    RAW1        IF NOT SSJ= JOB
04758  M00S03431.lfm     +++|          LDD    CM+3        CHECK IF SSJ= PARAMETER BLOCK PRESENT
04759  M00S03432.lfm     +++|          LPN    37
Line S03433 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
04760  M01S03433.ns2323  ---|          SHN    14
04761  M00S03434.lfm     +++|          ADD    CM+4
04762  M00S03435.lfm     +++|          ZJN    RAW1        IF NO SSJ= PARAMETER BLOCK
Line S03436 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
04763  M01S03436.ns2323  ---|          SHN    14          READ USER,S *AACW* WORD FROM SSJ= BLOCK
04764  M01S03437.ns2323  ---|          ADD    RA
04765  M01S03438.ns2323  ---|          SHN    6
04766  M01S03439.ns2323  ---|          ADN    AACS
Line S00004 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
04767  M01S00004.ns2323  +++|          NFA    SSJN+AACS   READ USER,S *AACW* WORD FROM SSJ= BLOCK
04768  M00S03440.lfm     +++|          UJN    RAW2        READ ACCESS WORD
04769  M00S03441.lfm     +++| REA      SPACE  4,15
04770  M00S03442.lfm     +++|**        REA - REQUEST EQUIPMENT ASSIGNMENT.
04771  M00S03443.lfm     +++|*
04772  M00S03444.lfm     +++|*         ENTRY  (A) = 0, IF PREVIOUS EQUIPMENT TO BE RELEASED.
Line S00401 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04773  M01S00401.ns22000 +++|*                (AL) = 8/, 1/ACCESS LEVEL FLAG, 3/ACCESS LEVEL.
04774  M00S03445.lfm     +++|*                (EQ) = PREVIOUS EQUIPMENT, IF RELEASE REQUIRED.
04775  M00S03446.lfm     +++|*                (CN) = EQUIPMENT TYPE.
04776  M00S03447.lfm     +++|*
04777  M00S03448.lfm     +++|*         EXIT   (EQ) = ASSIGNED EQUIPMENT.
Line S03449 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04778  M01S03449.274l797 ---|*                (A) = 0, IF TAPE EQUIPMENT (MT OR NT).
Line S00264 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04779  M01S00264.274l797 +++|*                (A) = 0, IF TAPE EQUIPMENT (MT, NT, CT OR AT).
04780  M00S03450.lfm     +++|*                (A) .GT. 0, IF VSN EQUIPMENT (TE).
04781  M00S03451.lfm     +++|*                (A) .LT. 0, IF NOT TAPE RELATED EQUIPMENT.
04782  M00S03452.lfm     +++|*                (FS - FS+4) = ASSIGNED EQUIPMENT EST ENTRY.
04783  M00S03453.lfm     +++|*
Line S03454 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04784  M01S03454.ns22000 ---|*         CALLS  DEQ, ROA, VTE.
Line S00402 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04785  M01S00402.ns22000 +++|*         CALLS  CEA, DEQ, ROA, VTE.
Line S00403 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04786  M02S00403.242l642 ---|*
04787  M02S00404.242l642 ---|*         MACROS SFA.
04788  M00S03455.lfm     +++|
04789  M00S03456.lfm     +++|
04790  M00S03457.lfm     +++| REA      SUBR               ENTRY/EXIT
04791  M00S03458.lfm     +++|          NJN    REA2        IF EQUIPMENT RELEASE NOT REQUIRED
04792  M00S03459.lfm     +++| REA1     RJM    DEQ         RELEASE EQUIPMENT
04793  M00S03460.lfm     +++| REA2     RJM    ROA         REQUEST OPERATOR ASSIGNMENT
Line S03461 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04794  M01S03461.ns22000 ---|          LDD    EQ          READ EST ENTRY
04795  M01S03462.ns22000 ---|          ADM    ESTS
Line S00405 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04796  M02S00405.242l642 ---|          SFA    EST,EQ      READ EST ENTRY
04797  M02S00406.242l642 ---|          ADK    EQDE
Line S03463 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04798  M01S03463.242l642 ---|          CRD    FS
Line S00407 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04799  M01S00407.ns22000 +++|          RJM    CEA         CHECK EQUIPMENT ACCESS LEVELS
04800  M01S00408.ns22000 +++|          NJN    REA1        IF ACCESS LEVEL OUT OF RANGE
04801  M00S03464.lfm     +++|          LDD    CN
04802  M00S03465.lfm     +++|          ZJN    REA3        IF NO TYPE REQUESTED
04803  M00S03466.lfm     +++|          LMD    FS+3        CHECK TYPE
04804  M00S03467.lfm     +++|          LPC    3777
04805  M00S03468.lfm     +++|          ZJN    REA3        IF CORRECT TYPE
04806  M00S03469.lfm     +++|          LDD    CN
04807  M00S03470.lfm     +++|          LMC    2RMS
04808  M00S03471.lfm     +++|          NJN    REA1        IF NOT *MS*
04809  M00S03472.lfm     +++|          LDD    FS
04810  M00S03473.lfm     +++|          SHN    21-13
04811  M00S03474.lfm     +++|          PJN    REA1        IF NOT MASS STORAGE EQUIPMENT
04812  M00S03475.lfm     +++| REA3     LDD    FS+3        CHECK FOR *DS*
Line S03476 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04813  M01S03476.274l797 ---|          LPC    3777
04814  M00S03477.lfm     +++|          LMC    2RDS
04815  M00S03478.lfm     +++|          ZJN    REA1        IF *DS*
04816  M00S03479.lfm     +++|          LDD    EQ
04817  M00S03480.lfm     +++|          RJM    VTE         CHECK FOR TAPE EQUIPMENT
04818  M00S03481.lfm     +++|          LJM    REAX        RETURN
04819  M00S03482.lfm     +++| ROA      SPACE  4,20
04820  M00S03483.lfm     +++|**        ROA - REQUEST OPERATOR ASSIGNMENT.
04821  M00S03484.lfm     +++|*
04822  M00S03485.lfm     +++|*         ENTRY  (FN - FN+4) = FILE NAME.
04823  M00S03486.lfm     +++|*                (CN) = EQUIPMENT TYPE.
04824  M00S03487.lfm     +++|*                (CN+2) = DISPLAY CODE FOR DENSITY, IF *NT* EQUIPMENT.
Line S03488 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04825  M01S03488.274l797 ---|*                (VS - VS+2) = VSN, IF *MT* OR *NT* EQUIPMENT.
Line S00265 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04826  M01S00265.274l797 +++|*                (VS - VS+2) = VSN, IF TAPE EQUIPMENT.
04827  M00S03489.lfm     +++|*                (FA) = FNT ADDRESS, IF VSN ENTRY PRESENT.
Line S00103 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04828  M01S00103.242l642 +++|*
04829  M01S00104.242l642 +++|*         EXIT   (EQ) = ASSIGNED EQUIPMENT.
04830  M01S00105.242l642 +++|*                (FS - FS+4) = EST ENTRY OF ASSIGNED EQUIPMENT.
04831  M00S03490.lfm     +++|*
04832  M00S03491.lfm     +++|*         EXIT   TO *RCL*, IF OPERATOR ASSIGNMENT OF EQUIPMENT
04833  M00S03492.lfm     +++|*                STILL PENDING.
04834  M00S03493.lfm     +++|*                (FS - FS+4) = FST ENTRY.
Line S03494 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04835  M01S03494.242l642 ---|*                (EQ) = ASSIGNED EQUIPMENT.
04836  M00S03495.lfm     +++|*
04837  M00S03496.lfm     +++|*         USES   T1, T7, CM - CM+4, FN+3.
04838  M00S03497.lfm     +++|*
04839  M00S03498.lfm     +++|*         CALLS  ACS, COE, SPB.
04840  M00S03499.lfm     +++|*
04841  M00S03500.lfm     +++|*         MACROS MONITOR, NFA.
04842  M00S03501.lfm     +++|
04843  M00S03502.lfm     +++|
04844  M00S03503.lfm     +++| ROA10    STD    CM+1
Line S00106 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04845  M01S00106.242l642 +++|          STD    EQ          SET POSSIBLE EST ORDINAL
04846  M01S00107.242l642 +++|          SFA    EST
04847  M01S00108.242l642 +++|          ADK    EQDE        READ EST ENTRY
04848  M01S00109.242l642 +++|          CRD    FS
Line S00001 Modification History
M01 (Added by) lfm15
Seq #  *Modification Id* Act 
----------------------------+
04849  M01S00001.lfm15   +++|          LDN    TAEQM       CHECK FOR INVALID EQUIPMENT
04850  M01S00002.lfm15   +++|          STD    T1
04851  M01S00003.lfm15   +++| ROA10.1  LDM    TAEQ,T1
04852  M01S00004.lfm15   +++|          LMD    FS+3
Line S00005 Modification History
M01 (Added by) lfm15
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04853  M02S00005.274l797 ---|          LPC    3777
Line S00006 Modification History
M01 (Added by) lfm15
Seq #  *Modification Id* Act 
----------------------------+
04854  M01S00006.lfm15   +++|          ZJN    ROA11       IF INVALID EQUIPMENT
04855  M01S00007.lfm15   +++|          AOD    T1
04856  M01S00008.lfm15   +++|          LMN    TAEQL
04857  M01S00009.lfm15   +++|          NJN    ROA10.1     IF NOT END OF TABLE
Line S00110 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04858  M01S00110.242l642 +++|          LDD    FS          CHECK EQUIPMENT STATUS
04859  M01S00111.242l642 +++|          SHN    21-1
04860  M01S00112.242l642 +++|          MJN    ROA11       IF OFF OR DOWN
04861  M01S00113.242l642 +++|          SHN    2+21-13
04862  M01S00114.242l642 +++|          MJN    ROAX        IF MASS STORAGE
Line S03504 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04863  M01S03504.242l642 ---|          LDN    0           REQUEST ACTIVE EQUIPMENT
Line S00115 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04864  M01S00115.242l642 +++|          LDK    REQS        REQUEST ACTIVE EQUIPMENT
04865  M00S03505.lfm     +++|          STD    CM+2
04866  M00S03506.lfm     +++|          MONITOR REQM
04867  M00S03507.lfm     +++|          LDD    CM+1        CHECK ASSIGNMENT
Line S03508 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04868  M01S03508.242l642 ---|          ZJN    ROA1        IF ASSIGNMENT NOT MADE
Line S00116 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04869  M01S00116.242l642 +++|          NJN    ROAX        IF ASSIGNMENT MADE
04870  M01S00117.242l642 +++| ROA11    LDN    0
04871  M00S03509.lfm     +++|          STD    EQ          SET EQUIPMENT
Line S00118 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04872  M01S00118.242l642 +++|          UJN    ROA1        REQUEST ASSIGNMENT
04873  M00S03510.lfm     +++|
04874  M00S03511.lfm     +++| ROA      SUBR               ENTRY/EXIT
04875  M00S03512.lfm     +++|          LDN    0           CLEAR OPERATOR ASSIGNED EQUIPMENT
04876  M00S03513.lfm     +++|          RJM    COE
Line S03514 Modification History
M01 (Removed by) lfm15
Seq #  *Modification Id* Act 
----------------------------+
04877  M01S03514.lfm15   ---|          NJN    ROA10       IF EQUIPMENT ASSIGNED
Line S00010 Modification History
M01 (Added by) lfm15
Seq #  *Modification Id* Act 
----------------------------+
04878  M01S00010.lfm15   +++|          ZJN    ROA1        IF EQUIPMENT NOT ASSIGNED
04879  M01S00011.lfm15   +++|          LJM    ROA10       PROCESS EQUIPMENT
04880  M01S00012.lfm15   +++|
04881  M00S03515.lfm     +++| ROA1     STD    CM+1
04882  M00S03516.lfm     +++|          LDD    FN+3
04883  M00S03517.lfm     +++|          SCN    77
04884  M00S03518.lfm     +++|          STD    FN+3
04885  M00S03519.lfm     +++|          LDD    FA
04886  M00S03520.lfm     +++|          ZJN    ROA2        IF NO FNT/FST ENTRY
04887  M00S03521.lfm     +++|          NFA    FA,R
04888  M00S03522.lfm     +++|          ADN    FSTL
04889  M00S03523.lfm     +++|          CRD    FS          READ FST ENTRY
04890  M00S03524.lfm     +++| ROA2     LDC    ROAB        INITIALIZE MESSAGE ADDRESS
04891  M00S03525.lfm     +++|          STD    T1
04892  M00S03526.lfm     +++|          LDN    FN          ENTER FILE NAME IN REQUEST MESSAGE
04893  M00S03527.lfm     +++|          RJM    ACS
04894  M00S03528.lfm     +++|          LDD    CN
04895  M00S03529.lfm     +++|          NJN    ROA3        IF DEVICE TYPE SPECIFIED
Line S03530 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04896  M01S03530.v23l617 ---|          LJM    ROA7        CHECK FOR *REQUEST* STATEMENT
Line S00092 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04897  M01S00092.v23l617 +++|          LJM    ROA7        CHECK FOR *REQUEST* COMMAND
04898  M00S03531.lfm     +++|
04899  M00S03532.lfm     +++| ROA3     LDC    =2C,        ADD *, *
04900  M00S03533.lfm     +++|          RJM    ACS
04901  M00S03534.lfm     +++|          LDD    CN
04902  M00S03535.lfm     +++|          LPC    3777        CLEAR NON-ALLOCATABLE BIT
04903  M00S03536.lfm     +++|          STD    CM          SAVE DEVICE TYPE
04904  M00S03537.lfm     +++|          LMC    2RMT
04905  M00S03538.lfm     +++|          ZJN    ROA4        IF *MT*
Line S03539 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04906  M01S03539.274l797 ---|          LMC    2RNT&2RMT
Line S00266 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04907  M01S00266.274l797 +++|          LMC    2RCT&2RMT
04908  M01S00267.274l797 +++|          ZJN    ROA4        IF *CT*
04909  M01S00268.274l797 +++|          LMC    2RAT&2RCT
04910  M01S00269.274l797 +++|          ZJN    ROA4        IF *AT*
04911  M01S00270.274l797 +++|          LMC    2RNT&2RAT
04912  M00S03540.lfm     +++|          NJN    ROA6        IF NOT *NT*
04913  M00S03541.lfm     +++|          LDD    CN+2        GET DISPLAY CODE FOR DENSITY
04914  M00S03542.lfm     +++|          STD    CM
04915  M00S03543.lfm     +++| ROA4     LDN    CM          ENTER DEVICE TYPE OR DENSITY DISPLAY
04916  M00S03544.lfm     +++|          RJM    ACS
04917  M00S03545.lfm     +++|          LDD    VS
04918  M00S03546.lfm     +++|          ZJN    ROA5        IF NO VSN SPECIFIED
04919  M00S03547.lfm     +++|          LDC    =2C,        ADD *, *
04920  M00S03548.lfm     +++|          RJM    ACS
04921  M00S03549.lfm     +++|          LDN    0
04922  M00S03550.lfm     +++|          STD    VS+3        SET END OF VSN
04923  M00S03551.lfm     +++|          LDN    VS          ENTER VSN INTO REQUEST MESSAGE
04924  M00S03552.lfm     +++|          RJM    ACS
04925  M00S03553.lfm     +++| ROA5     LDC    ROAA        SET MESSAGE ADDRESS
04926  M00S03554.lfm     +++|          STD    T7
Line S03555 Modification History
M01 (Removed by) lfm12
Seq #  *Modification Id* Act 
----------------------------+
04927  M01S03555.lfm12   ---|          UJN    ROA9        RECALL
Line S00001 Modification History
M01 (Added by) lfm12
Seq #  *Modification Id* Act 
----------------------------+
04928  M01S00001.lfm12   +++|          LJM    ROA9        RECALL
04929  M00S03556.lfm     +++|
04930  M00S03557.lfm     +++|*         CHECK FOR *REQUEST* CONTROL CARD.
04931  M00S03558.lfm     +++|
04932  M00S03559.lfm     +++| ROA6     LDN    CM          ENTER DEVICE TYPE IN REQUEST MESSAGE
04933  M00S03560.lfm     +++|          RJM    ACS
04934  M00S03561.lfm     +++| ROA7     LDD    CP          CHECK FOR *REQUEST* IN *MS1W*
04935  M00S03562.lfm     +++|          ADN    MS1W
04936  M00S03563.lfm     +++|          CRD    CM
04937  M00S03564.lfm     +++|          LDN    2
04938  M00S03565.lfm     +++|          STD    T1
04939  M00S03566.lfm     +++| ROA8     LDM    CM,T1
04940  M00S03567.lfm     +++|          LMM    ROAA,T1
Line S03568 Modification History
M01 (Removed by) lfm12
Seq #  *Modification Id* Act 
----------------------------+
04941  M01S03568.lfm12   ---|          NJN    ROA5        IF NOT *REQUEST*
04942  M01S03569.lfm12   ---|          SOD    T1
Line S00002 Modification History
M01 (Added by) lfm12
Seq #  *Modification Id* Act 
----------------------------+
04943  M01S00002.lfm12   +++|          ZJN    ROA8.1      IF POSSIBLY *REQUEST*
04944  M01S00003.lfm12   +++|          LMM    ROAC,T1
04945  M01S00004.lfm12   +++|          NJN    ROA5        IF NOT *$REQUEST*
04946  M01S00005.lfm12   +++| ROA8.1   SOD    T1
04947  M00S03570.lfm     +++|          PJN    ROA8        IF MORE CHARACTERS TO CHECK
04948  M00S03571.lfm     +++|          LDD    CM+3
04949  M00S03572.lfm     +++|          LMM    ROAA+3
04950  M00S03573.lfm     +++|          SCN    77
Line S03574 Modification History
M01 (Removed by) lfm12
Seq #  *Modification Id* Act 
----------------------------+
04951  M01S03574.lfm12   ---|          NJN    ROA5        IF NOT *REQUEST*
04952  M01S03575.lfm12   ---|          STD    T7
Line S00006 Modification History
M01 (Added by) lfm12
Seq #  *Modification Id* Act 
----------------------------+
04953  M01S00006.lfm12   +++|          ZJN    ROA8.2      IF *REQUEST*
04954  M01S00007.lfm12   +++|          LMC    2RT &2RS
04955  M01S00008.lfm12   +++|          NJN    ROA5        IF NOT *$REQUEST*
04956  M01S00009.lfm12   +++| ROA8.2   STD    T7
04957  M00S03576.lfm     +++|          LDN    1
04958  M00S03577.lfm     +++|          RJM    SPB         SET PAUSE BIT
04959  M00S03578.lfm     +++| ROA9     LDN    /ERR/WEQ    * EQUIPMENT NOT AVAILABLE.*
04960  M00S03579.lfm     +++|          LJM    RCL         RECALL
04961  M00S03580.lfm     +++|
04962  M00S03581.lfm     +++|
04963  M00S03582.lfm     +++| ROAA     DATA   10HREQUEST -
04964  M00S03583.lfm     +++| ROAB     BSSZ   12
Line S00010 Modification History
M01 (Added by) lfm12
Seq #  *Modification Id* Act 
----------------------------+
04965  M01S00010.lfm12   +++| ROAC     VFD    36/6RREQUES&6R$REQUE
04966  M00S03584.lfm     +++| SEQ      SPACE  4,20
04967  M00S03585.lfm     +++|**        SEQ - SEARCH FOR EQUIPMENT.
04968  M00S03586.lfm     +++|*
04969  M00S03587.lfm     +++|*         ENTRY  (CN) = TYPE.
04970  M00S03588.lfm     +++|*                (IR+2) = FUNCTION CODE.
Line S00409 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04971  M01S00409.ns22000 +++|*                (AL) = 8/, 1/ACCESS LEVEL FLAG, 3/ACCESS LEVEL.
04972  M00S03589.lfm     +++|*
04973  M00S03590.lfm     +++|*         EXIT   (A) .LT. 0, IF MSAL REQUEST.
04974  M00S03591.lfm     +++|*                (A) = 0, IF EQUIPMENT PRESENT IN SYSTEM AND AVAILABLE.
04975  M00S03592.lfm     +++|*                (A) .GT. 0, IF EQUIPMENT PRESENT IN SYSTEM BUT
04976  M00S03593.lfm     +++|*                     UNAVAILABLE.
Line S03594 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04977  M01S03594.ns22000 ---|*                (EQ) = EQUIPMENT NUMBER.
Line S00410 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04978  M01S00410.ns22000 +++|*                (EQ) = EST ORDINAL.
04979  M00S03595.lfm     +++|*                (FS - FS+4) = EST ENTRY.
04980  M00S03596.lfm     +++|*                (ASFA) = *RTCM* DEVICE SELECTION PARAMETER.
04981  M00S03597.lfm     +++|*
04982  M00S03598.lfm     +++|*         ERROR  TO *ERR*, IF EQUIPMENT NOT PRESENT IN SYSTEM.
04983  M00S03599.lfm     +++|*
Line S03600 Modification History
M01 (Removed by) lfm1
Seq #  *Modification Id* Act 
----------------------------+
04984  M01S03600.lfm1    ---|*         USES   CN, CN+2, CN+3, EQ, T0, T1, T2, CM - CM+4,
04985  M01S03601.lfm1    ---|*                FS - FS+4, T3 - T7.
Line S00001 Modification History
M01 (Added by) lfm1
Seq #  *Modification Id* Act 
----------------------------+
04986  M01S00001.lfm1    +++|*         USES   EQ, T0, T1, T2, CM - CM+4, FS - FS+4, T3 - T7.
Line S00411 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04987  M01S00411.ns22000 +++|*
Line S00412 Modification History
M01 (Added by) ns22000
M02 (Removed by) lfm9
Seq #  *Modification Id* Act 
----------------------------+
04988  M02S00412.lfm9    ---|*         CALLS  CEA.
Line S00002 Modification History
M01 (Added by) lfm9
Seq #  *Modification Id* Act 
----------------------------+
04989  M01S00002.lfm9    +++|*         CALLS  CEA, VSO.
Line S00413 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04990  M01S00413.ns22000 +++|*
04991  M01S00414.ns22000 +++|*         MACROS SFA.
04992  M00S03602.lfm     +++|
04993  M00S03603.lfm     +++|
04994  M00S03604.lfm     +++| SEQ11    LDN    TTEQ        SET *TT* EQUIPMENT
04995  M00S03605.lfm     +++|          STD    EQ
Line S03606 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04996  M01S03606.ns22000 ---|          ADD    CM
Line S00415 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04997  M01S00415.ns22000 +++|          SFA    EST
04998  M01S00416.ns22000 +++|          ADK    EQDE
04999  M00S03607.lfm     +++|          CRD    FS          GET EST ENTRY
05000  M00S03608.lfm     +++|          LDN    0           RETURN AVAILABLE STATUS
05001  M00S03609.lfm     +++|
05002  M00S03610.lfm     +++| SEQ      SUBR               ENTRY/EXIT
05003  M00S03611.lfm     +++|          LDN    ESTP        READ EST POINTER
05004  M00S03612.lfm     +++|          CRD    CM
Line S00417 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05005  M01S00417.ns22000 +++|          LDD    CM+2        SAVE HIGHEST EST ORDINAL
05006  M01S00418.ns22000 +++|          STM    SEQB
Line S03613 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05007  M01S03613.ns22000 ---|          LCN    0           CLEAR EQUIPMENT NUMBER
Line S00419 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05008  M01S00419.ns22000 +++|          LDN    NEEQ-1      INITIALIZE EST ORDINAL FOR SEARCH
05009  M00S03614.lfm     +++|          STD    EQ
05010  M00S03615.lfm     +++|          STD    T1          CLEAR TYPE FOUND FLAG
05011  M00S03616.lfm     +++|          LDD    CN          CHECK TYPE
05012  M00S03617.lfm     +++|          LPC    3777
Line S03618 Modification History
M01 (Removed by) lfm1
Seq #  *Modification Id* Act 
----------------------------+
05013  M01S03618.lfm1    ---|          STD    CN+2        SAVE TYPE FOR TABLE COMPARE
05014  M00S03619.lfm     +++|          LMC    2RTT
05015  M00S03620.lfm     +++|          ZJN    SEQ11       IF *TT*
05016  M00S03621.lfm     +++|          LMC    2RDE&2RTT
05017  M00S03622.lfm     +++|          ZJN    SEQ4        IF *DE*
05018  M00S03623.lfm     +++|          LMN    2RDP&2RDE
05019  M00S03624.lfm     +++|          ZJN    SEQ4        IF *DP*
05020  M00S03625.lfm     +++|          LDN    0           INITIALIZE TABLE SEARCH
05021  M00S03626.lfm     +++|          STD    T2
Line S03627 Modification History
M01 (Removed by) lfm1
Seq #  *Modification Id* Act 
----------------------------+
05022  M01S03627.lfm1    ---| SEQ1     LDM    TAEQ,T2     CHECK TABLE FOR MATCH
05023  M01S03628.lfm1    ---|          LMD    CN+2
Line S00002 Modification History
M01 (Added by) lfm1
Seq #  *Modification Id* Act 
----------------------------+
05024  M01S00002.lfm1    +++| SEQ1     LDD    CN          CHECK TABLE FOR MATCH
05025  M01S00003.lfm1    +++|          LPC    3777
Line S00001 Modification History
M01 (Added by) lfm11
Seq #  *Modification Id* Act 
----------------------------+
05026  M01S00001.lfm11   +++|          ZJN    SEQ6        IF FIELD NOT SET
Line S00004 Modification History
M01 (Added by) lfm1
Seq #  *Modification Id* Act 
----------------------------+
05027  M01S00004.lfm1    +++|          LMM    TAEQ,T2
05028  M00S03629.lfm     +++|          ZJN    SEQ2        IF MATCH
05029  M00S03630.lfm     +++|          AOD    T2
05030  M00S03631.lfm     +++|          LMN    TAEQL
05031  M00S03632.lfm     +++|          NJN    SEQ1        IF NOT END OF TABLE
05032  M00S03633.lfm     +++|          UJN    SEQ3        SEARCH EST
05033  M00S03634.lfm     +++|
05034  M00S03635.lfm     +++| SEQ2     LDD    IR+2        CHECK FUNCTION
05035  M00S03636.lfm     +++|          LMN    15
05036  M00S03637.lfm     +++|          NJN    SEQ6        IF NOT FROM *AEQ*
05037  M00S03638.lfm     +++|          LDN    NEEQ
05038  M00S03639.lfm     +++|          STD    EQ
05039  M00S03640.lfm     +++|          LDD    T2          CHECK LOCATION OF EQUIPMENT IN TABLE
05040  M00S03641.lfm     +++|          STM    ASFA        SET FLAG FOR *RTCM* CALL
05041  M00S03642.lfm     +++|          SBN    TAEQM
Line S03643 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05042  M01S03643.v23l617 ---|          PJN    SEQ6        IF ILLEGAL EQUIPMENT
Line S00093 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05043  M01S00093.v23l617 +++|          PJN    SEQ6        IF INCORRECT EQUIPMENT
05044  M00S03644.lfm     +++|          LJM    SEQX        RETURN
05045  M00S03645.lfm     +++|
Line S03646 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05046  M01S03646.v23l617 ---| SEQ3     AOM    SEQA        DO NOT SEARCH FOR ECS TYPE
Line S00094 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05047  M01S00094.v23l617 +++| SEQ3     AOM    SEQA        DO NOT SEARCH FOR EXTENDED MEMORY TYPE
05048  M00S03647.lfm     +++| SEQ4     AOD    EQ
Line S03648 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05049  M01S03648.ns22000 ---|          ADD    CM          READ EST ENTRY
05050  M01S03649.ns22000 ---|          CRD    FS
05051  M01S03650.ns22000 ---|          LMD    CM+1
Line S00420 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05052  M01S00420.ns22000 +++|          LMC    0
05053  M01S00421.ns22000 +++| SEQB     EQU    *-1
05054  M00S03651.lfm     +++|          NJN    SEQ7        IF NOT END OF EST
05055  M00S03652.lfm     +++|          LDD    T1
05056  M00S03653.lfm     +++|          NJN    SEQ6        IF TYPE NOT FOUND
05057  M00S03654.lfm     +++|          LDN    1
05058  M00S03655.lfm     +++| SEQ5     LJM    SEQX        RETURN
05059  M00S03656.lfm     +++|
Line S03657 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05060  M01S03657.v23l617 ---| SEQ6     LDN    /ERR/IEQ    * ILLEGAL EQUIPMENT.*
Line S00095 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05061  M01S00095.v23l617 +++| SEQ6     LDN    /ERR/IEQ    * INCORRECT EQUIPMENT.*
05062  M00S03658.lfm     +++|          LJM    ERR         PROCESS ERROR
05063  M00S03659.lfm     +++|
Line S03660 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05064  M01S03660.ns22000 ---| SEQ7     LDD    FS+3        CHECK TYPE
Line S00422 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05065  M01S00422.ns22000 +++| SEQ7     SFA    EST,EQ      READ EST ENTRY
05066  M01S00423.ns22000 +++|          ADK    EQDE
05067  M01S00424.ns22000 +++|          CRD    FS
05068  M01S00425.ns22000 +++|          LDD    FS+3        CHECK TYPE
05069  M00S03661.lfm     +++|          LMD    CN
05070  M00S03662.lfm     +++|          LPC    3777
05071  M00S03663.lfm     +++|          ZJN    SEQ8        IF MATCH
05072  M00S03664.lfm     +++|          STD    T0
05073  M00S03665.lfm     +++|          LDN    0
05074  M00S03666.lfm     +++| SEQA     EQU    *-1
Line S03667 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05075  M01S03667.v23l617 ---|*         LDN    1           (NOT ECS TYPE)
Line S03668 Modification History
M01 (Removed by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05076  M02S03668.v23l617 ---|          NJN    SEQ4        IF NOT CHECKING FOR ECS TYPE
Line S00426 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05077  M02S00426.v23l617 ---| SEQ7.1   NJN    SEQ4        IF NOT CHECKING FOR ECS TYPE
Line S00096 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05078  M01S00096.v23l617 +++|*         LDN    1           (NOT EXTENDED MEMORY TYPE)
05079  M01S00097.v23l617 +++| SEQ7.1   NJN    SEQ4        IF NOT CHECKING FOR EXTENDED MEMORY TYPE
05080  M00S03669.lfm     +++|          LDD    T0
05081  M00S03670.lfm     +++|          LMN    2RDE&2RDP
05082  M00S03671.lfm     +++|          NJN    SEQ4        IF NO MATCH
05083  M00S03672.lfm     +++| SEQ8     STD    T1          SET TYPE FOUND
Line S03673 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05084  M01S03673.242l642 ---|          LDD    FS+3        CHECK STATUS
05085  M01S03674.242l642 ---|          SHN    21-13
Line S00119 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05086  M01S00119.242l642 +++|          LDD    FS
05087  M01S00120.242l642 +++|          SHN    21-1
05088  M00S03675.lfm     +++|          MJN    SEQ4        IF *OFF*
Line S00427 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05089  M01S00427.ns22000 +++|          RJM    CEA         CHECK EQUIPMENT ACCESS LEVELS
05090  M01S00428.ns22000 +++|          NJN    SEQ7.1      IF ACCESS LEVEL NOT IN RANGE
05091  M00S03676.lfm     +++|          LDD    FS
05092  M00S03677.lfm     +++|          SHN    21-13
05093  M00S03678.lfm     +++|          PJN    SEQ10       IF NOT MASS STORAGE
Line S03679 Modification History
M01 (Removed by) lfm3
Seq #  *Modification Id* Act 
----------------------------+
05094  M01S03679.lfm3    ---|          LPC    50000
Line S00001 Modification History
M01 (Added by) lfm3
Seq #  *Modification Id* Act 
----------------------------+
05095  M01S00001.lfm3    +++|          LDD    FS+4
05096  M01S00002.lfm3    +++|          SHN    3
05097  M01S00003.lfm3    +++|          ADN    ACGL
05098  M01S00004.lfm3    +++|          CRD    T3
05099  M01S00005.lfm3    +++|          ADN    DILL-ACGL
05100  M01S00006.lfm3    +++|          CRD    T2
05101  M01S00007.lfm3    +++|          LDD    T3+4
05102  M01S00008.lfm3    +++|          SHN    21-4
05103  M01S00009.lfm3    +++|          MJN    SEQ9.1      IF ERROR IDLE SET
Line S00010 Modification History
M01 (Added by) lfm3
M02 (Removed by) lfm9
Seq #  *Modification Id* Act 
----------------------------+
05104  M02S00010.lfm9    ---|          LDD    OC
Line S00011 Modification History
M01 (Added by) lfm3
M02 (Removed by) ns22000
M03 (Removed by) lfm9
Seq #  *Modification Id* Act 
----------------------------+
05105  M03S00011.lfm9    ---|          LMN    SYOT
Line S00429 Modification History
M01 (Added by) ns22000
M02 (Removed by) lfm9
Seq #  *Modification Id* Act 
----------------------------+
05106  M02S00429.lfm9    ---|          LMK    SYOT
Line S00012 Modification History
M01 (Added by) lfm3
M02 (Removed by) lfm9
Seq #  *Modification Id* Act 
----------------------------+
05107  M02S00012.lfm9    ---|          ZJN    SEQ8.1      IF *SYOT* SKIP *TEMP* CHECK
Line S00003 Modification History
M01 (Added by) lfm9
Seq #  *Modification Id* Act 
----------------------------+
05108  M01S00003.lfm9    +++|          RJM    VSO         VALIDATE CALLER
05109  M01S00004.lfm9    +++|          ZJN    SEQ8.1      IF JOB HAS PROPER VALIDATION
Line S00013 Modification History
M01 (Added by) lfm3
Seq #  *Modification Id* Act 
----------------------------+
05110  M01S00013.lfm3    +++|          LDD    T2
05111  M01S00014.lfm3    +++|          SHN    21-0
05112  M01S00015.lfm3    +++|          PJN    SEQ9.1      IF NOT *TEMP* DEVICE
05113  M01S00016.lfm3    +++| SEQ8.1   LDD    FS
05114  M01S00017.lfm3    +++|          LPC    500
Line S03680 Modification History
M01 (Removed by) lfm3
Seq #  *Modification Id* Act 
----------------------------+
05115  M01S03680.lfm3    ---| SEQ9     ZJN    SEQ5        IF EQUIPMENT AVAILABLE
05116  M01S03681.lfm3    ---|          LJM    SEQ4        LOOP FOR NEXT EQUIPMENT
Line S00018 Modification History
M01 (Added by) lfm3
Seq #  *Modification Id* Act 
----------------------------+
05117  M01S00018.lfm3    +++| SEQ9     NJN    SEQ9.1      IF EQUIPMENT NOT AVAILABLE
05118  M01S00019.lfm3    +++|          LJM    SEQ5        RETURN
05119  M01S00020.lfm3    +++|
05120  M01S00021.lfm3    +++| SEQ9.1   LJM    SEQ4        LOOP FOR NEXT EQUIPMENT
05121  M00S03682.lfm     +++|
05122  M00S03683.lfm     +++| SEQ10    SHN    0-12-21+13
05123  M00S03684.lfm     +++|          LMN    1
Line S03685 Modification History
M01 (Removed by) lfm3
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05124  M02S03685.ns22000 ---|          ZJN    SEQ5        IF ALLOCATABLE DEVICE
Line S00022 Modification History
M01 (Added by) lfm3
Seq #  *Modification Id* Act 
----------------------------+
05125  M01S00022.lfm3    +++|          ZJN    SEQ9        IF ALLOCATABLE DEVICE
Line S03686 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05126  M01S03686.ns22000 ---|          GEA    EQ          GET EAT ENTRY
Line S00430 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05127  M01S00430.ns22000 +++|          SFA    EST,EQ      CHECK ASSIGNMENT STATUS
05128  M01S00431.ns22000 +++|          ADK    EQAE
05129  M00S03687.lfm     +++|          CRD    T3
05130  M00S03688.lfm     +++|          LDD    T3+4
05131  M00S03689.lfm     +++|          UJN    SEQ9        CHECK ASSIGNMENT STATUS
05132  M00S03690.lfm     +++| TAEQ     SPACE  4,10
05133  M00S03691.lfm     +++|**        TAEQ - TABLE OF EQUIPMENT MNEMONICS.
05134  M00S03692.lfm     +++|*
05135  M00S03693.lfm     +++|*         A MNEMONIC IN THE TABLE BEFORE *TAEQM* IMPLIES IT IS
05136  M00S03694.lfm     +++|*         A SPECIAL MNEMONIC FOR ASSIGNMENT OF *MSAL*
05137  M00S03695.lfm     +++|*         DEVICES.  ANY MNEMONIC AFTER *TAEQM* IN THE TABLE
Line S03696 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05138  M01S03696.v23l617 ---|*         IS AN ILLEGAL DEVICE TYPE.
Line S00098 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05139  M01S00098.v23l617 +++|*         IS AN INCORRECT DEVICE TYPE.
05140  M00S03697.lfm     +++|
05141  M00S03698.lfm     +++|
05142  M00S03699.lfm     +++| TAEQ     INDEX
05143  M00S03700.lfm     +++|
05144  M00S03701.lfm     +++|          INDEX  TMPS,2RTP   TEMP DEVICE
05145  M00S03702.lfm     +++|          INDEX  INPS,2RIN   INPUT DEVICE
05146  M00S03703.lfm     +++|          INDEX  OUTS,2ROT   OUTPUT DEVICE
05147  M00S03704.lfm     +++|          INDEX  PRIS,2RPY   PRIMARY DEVICE
05148  M00S03705.lfm     +++|          INDEX  LOCS,2RLO   LOCAL DEVICE
05149  M00S03706.lfm     +++|          INDEX  LGOS,2RLG   LGO DEVICE
05150  M00S03707.lfm     +++|
05151  M00S03708.lfm     +++|          INDEX  MXRS
05152  M00S03709.lfm     +++|
05153  M00S03710.lfm     +++| TAEQM    EQU    *-TAEQ      FLAG FOR *RTCM* CALL
05154  M00S03711.lfm     +++|          LOC    TAEQM
05155  M00S03712.lfm     +++|
Line S03713 Modification History
M01 (Removed by) lfm15
Seq #  *Modification Id* Act 
----------------------------+
05156  M01S03713.lfm15   ---|          CON    2RCR
05157  M01S03714.lfm15   ---|          CON    2RCP
05158  M01S03715.lfm15   ---|          CON    2RCS
05159  M01S03716.lfm15   ---|          CON    2RCT
05160  M01S03717.lfm15   ---|          CON    2RDS
05161  M01S03718.lfm15   ---|          CON    2RLP
05162  M01S03719.lfm15   ---|          CON    2RLQ
05163  M01S03720.lfm15   ---|          CON    2RLR
05164  M01S03721.lfm15   ---|          CON    2RLS
05165  M01S03722.lfm15   ---|          CON    2RLT
05166  M01S03723.lfm15   ---|          CON    2RRD
Line S00013 Modification History
M01 (Added by) lfm15
M02 (Removed by) lfm15a
Seq #  *Modification Id* Act 
----------------------------+
05167  M02S00013.lfm15a  ---|          CON    2RCC        6683 SATELLITE COUPLER
Line S00014 Modification History
M01 (Added by) lfm15
Seq #  *Modification Id* Act 
----------------------------+
05168  M01S00014.lfm15   +++|          CON    2RCM        CONTROL MODULE
05169  M01S00015.lfm15   +++|          CON    2RCP        CARD PUNCH
05170  M01S00016.lfm15   +++|          CON    2RCR        CARD READER
Line S00017 Modification History
M01 (Added by) lfm15
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05171  M02S00017.274l797 ---|          CON    2RCS        MSS CARTRIDGE SELECTOR
05172  M02S00018.274l797 ---|          CON    2RCT        MSS CARTRIDGE TRANSPORT
Line S00019 Modification History
M01 (Added by) lfm15
Seq #  *Modification Id* Act 
----------------------------+
05173  M01S00019.lfm15   +++|          CON    2RDS        DISPLAY CONSOLE
05174  M01S00020.lfm15   +++|          CON    2RLP        LINE PRINTER
05175  M01S00021.lfm15   +++|          CON    2RLQ        LINE PRINTER
05176  M01S00022.lfm15   +++|          CON    2RLR        LINE PRINTER
05177  M01S00023.lfm15   +++|          CON    2RLS        LINE PRINTER
05178  M01S00024.lfm15   +++|          CON    2RLT        LINE PRINTER
05179  M01S00025.lfm15   +++|          CON    2RLX        5870 NON-IMPACT PRINTER
05180  M01S00026.lfm15   +++|          CON    2RLY        5970 NON-IMPACT PRINTER
05181  M01S00027.lfm15   +++|          CON    2RMP        MAP III/IV
05182  M01S00028.lfm15   +++|          CON    2RNC        NAD
05183  M01S00029.lfm15   +++|          CON    2RND        CDCNET DEVICE INTERFACE (MDI/MTI)
05184  M01S00030.lfm15   +++|          CON    2RNP        255X NETWORK PROCESSING UNIT
05185  M01S00031.lfm15   +++|          CON    2RRD        REDEFINITION DEVICE
05186  M01S00032.lfm15   +++|          CON    2RRM        TWO PORT MULTIPLEXER
05187  M01S00033.lfm15   +++|          CON    2RRP        RING PORT
05188  M01S00034.lfm15   +++|          CON    2RSS        MSE M860 CONTROLLER
05189  M01S00035.lfm15   +++|          CON    2RTT        TIME-SHARING MULTIPLEXER
05190  M00S03724.lfm     +++|          LOC    *O
05191  M00S03725.lfm     +++| TAEQL    EQU    *-TAEQ
Line S00025 Modification History
M01 (Added by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05192  M01S00025.ns2171  +++| UPC      SPACE  4,10
05193  M01S00026.ns2171  +++|**        UPC - UPDATE PRU COUNTER.
05194  M01S00027.ns2171  +++|*
05195  M01S00028.ns2171  +++|*         ENTRY  (CM - CM+4) = EST ENTRY.
05196  M01S00029.ns2171  +++|*
05197  M01S00030.ns2171  +++|*         EXIT   PRU COUNTER UPDATED IN NFL *SSJ=* BLOCK, IF PRESENT.
05198  M01S00031.ns2171  +++|*                OTHERWISE, THE COUNT IS SET FOR THE *UADM*
05199  M01S00032.ns2171  +++|*                FUNCTION TO UPDATE CONTROL POINT AREA WORD *ACLW*.
05200  M01S00033.ns2171  +++|*
05201  M01S00034.ns2171  +++|*         USES   T0, T1, T2, T3, CM - CM+4.
05202  M01S00035.ns2171  +++|*
05203  M01S00036.ns2171  +++|*         MACROS NFA.
05204  M01S00037.ns2171  +++|
05205  M01S00038.ns2171  +++|
05206  M01S00039.ns2171  +++| UPC3     LDD    T1          SET SECTOR COUNT FOR *UADM*
05207  M01S00040.ns2171  +++|          STM    DPPB+1
05208  M01S00041.ns2171  +++|
05209  M01S00042.ns2171  +++| UPC      SUBR               ENTRY/EXIT
05210  M01S00043.ns2171  +++|          LDD    CM+4        READ MST
05211  M01S00044.ns2171  +++|          SHN    3
05212  M01S00045.ns2171  +++|          ADK    MDGL
05213  M01S00046.ns2171  +++|          CRD    CM
05214  M01S00047.ns2171  +++|          LDD    CM+4        SAVE SECTOR LIMIT
05215  M01S00048.ns2171  +++|          STD    T1
05216  M01S00049.ns2171  +++|          LDD    CP          CHECK FOR *SSJ=* BLOCK PRESENT
05217  M01S00050.ns2171  +++|          ADK    SEPW
05218  M01S00051.ns2171  +++|          CRD    CM
05219  M01S00052.ns2171  +++|          LDD    CM
05220  M01S00053.ns2171  +++|          SHN    21-2
05221  M01S00054.ns2171  +++|          PJN    UPC3        IF NO *SSJ=* ENTRY POINT
05222  M01S00055.ns2171  +++|          LDD    CM+3
05223  M01S00056.ns2171  +++|          LPN    37
05224  M01S00057.ns2171  +++|          SHN    14
05225  M01S00058.ns2171  +++|          ADD    CM+4
05226  M01S00059.ns2171  +++|          ZJN    UPC3        IF NO *SSJ=* BLOCK PRESENT
Line S00060 Modification History
M01 (Added by) ns2171
M02 (Removed by) ns2298
Seq #  *Modification Id* Act 
----------------------------+
05227  M02S00060.ns2298  ---|          NFA    SSJN-ACLS   READ NFL COPY OF *SSJ=* BLOCK
Line S00001 Modification History
M01 (Added by) ns2298
Seq #  *Modification Id* Act 
----------------------------+
05228  M01S00001.ns2298  +++|          NFA    SSJN+ACLS   READ NFL COPY OF *SSJ=* BLOCK
Line S00061 Modification History
M01 (Added by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05229  M01S00061.ns2171  +++|          CRD    CM
05230  M01S00062.ns2171  +++|          LDD    CM+3        GET CURRENT PRU COUNT
05231  M01S00063.ns2171  +++|          LPN    77
05232  M01S00064.ns2171  +++|          STD    T2
05233  M01S00065.ns2171  +++|          SHN    14
05234  M01S00066.ns2171  +++|          LMD    CM+4
05235  M01S00067.ns2171  +++|          STD    T3
05236  M01S00068.ns2171  +++|          LMC    777777
05237  M01S00069.ns2171  +++|          ZJN    UPC2        IF UNLIMITED VALIDATION
05238  M01S00070.ns2171  +++|          LDD    T3          CALCULATE NEW PRU COUNT
05239  M01S00071.ns2171  +++|          SBD    T1
05240  M01S00072.ns2171  +++|          STD    T0
05241  M01S00073.ns2171  +++|          PJN    UPC1        IF NO BORROW
05242  M01S00074.ns2171  +++|          SOD    T2
05243  M01S00075.ns2171  +++|          MJN    UPC2        IF RESULT IS NEGATIVE
05244  M01S00076.ns2171  +++|          AOD    T0
05245  M01S00077.ns2171  +++| UPC1     STD    CM+4        SET NEW PRU COUNT
05246  M01S00078.ns2171  +++|          LDD    CM+3
05247  M01S00079.ns2171  +++|          SCN    77
05248  M01S00080.ns2171  +++|          ADD    T2
05249  M01S00081.ns2171  +++|          STD    CM+3
Line S00082 Modification History
M01 (Added by) ns2171
M02 (Removed by) ns2298
Seq #  *Modification Id* Act 
----------------------------+
05250  M02S00082.ns2298  ---|          NFA    SSJN-ACLS
Line S00002 Modification History
M01 (Added by) ns2298
Seq #  *Modification Id* Act 
----------------------------+
05251  M01S00002.ns2298  +++|          NFA    SSJN+ACLS
Line S00083 Modification History
M01 (Added by) ns2171
Seq #  *Modification Id* Act 
----------------------------+
05252  M01S00083.ns2171  +++|          CWD    CM
05253  M01S00084.ns2171  +++| UPC2     LJM    UPCX        RETURN
05254  M00S03726.lfm     +++| VAE      SPACE  4,10
05255  M00S03727.lfm     +++|**        VAE - VALIDATE ASSIGNED EQUIPMENT.
05256  M00S03728.lfm     +++|*
05257  M00S03729.lfm     +++|*         ENTRY  (EQ) = EQUIPMENT EST ORDINAL.
05258  M00S03730.lfm     +++|*
05259  M00S03731.lfm     +++|*         EXIT   RELEASES EQUIPMENT AND EXITS TO *VSJ1*, IF NOT
05260  M00S03732.lfm     +++|*                PROPERLY VALIDATED.
05261  M00S03733.lfm     +++|*
05262  M00S03734.lfm     +++|*         CALLS  DEQ, RAW.
05263  M00S03735.lfm     +++|
05264  M00S03736.lfm     +++|
05265  M00S03737.lfm     +++| VAE      SUBR               ENTRY/EXIT
05266  M00S03738.lfm     +++|          RJM    RAW         READ ACCESS CONTROL WORD
05267  M00S03739.lfm     +++|          SHN    21-6
05268  M00S03740.lfm     +++|          MJN    VAEX        IF PROPERLY VALIDATED FOR ASSIGNED EQUIP
05269  M00S03741.lfm     +++|          RJM    DEQ         RELEASE EQUIPMENT
Line S03742 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05270  M01S03742.v23l617 ---|          UJN    VSJ1        *ILLEGAL USER ACCESS.*
Line S00099 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05271  M01S00099.v23l617 +++|          UJN    VSJ1        * USER ACCESS NOT VALID.*
05272  M00S03743.lfm     +++| VSJ      SPACE  4,15
05273  M00S03744.lfm     +++|**        VSJ - VALIDATE SSJ=.
05274  M00S03745.lfm     +++|*
Line S03746 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05275  M01S03746.v23l617 ---|*         ENTRY  AT *VSJ1*, IF ILLEGAL USER ACCESS ERROR DETECTED.
Line S00100 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05276  M01S00100.v23l617 +++|*         ENTRY  AT *VSJ1*, IF USER ACCESS NOT VALID ERROR DETECTED.
05277  M00S03747.lfm     +++|*
05278  M00S03748.lfm     +++|*         EXIT   (FA) = UNCHANGED, IF NO ERROR.
05279  M00S03749.lfm     +++|*
05280  M00S03750.lfm     +++|*         ERROR  TO *ERR*, IF NOT PROPERLY VALIDATED.
05281  M00S03751.lfm     +++|*
05282  M00S03752.lfm     +++|*         USES   FA.
05283  M00S03753.lfm     +++|*
05284  M00S03754.lfm     +++|*         CALLS  CSJ.
05285  M00S03755.lfm     +++|
05286  M00S03756.lfm     +++|
05287  M00S03757.lfm     +++| VSJ      SUBR               ENTRY/EXIT
05288  M00S03758.lfm     +++|          RJM    CSJ         CHECK FOR SSJ= ENTRY POINT
05289  M00S03759.lfm     +++|          MJN    VSJX        IF JOB HAS SSJ= ENTRY POINT
05290  M00S03760.lfm     +++| VSJ1     LDN    0
05291  M00S03761.lfm     +++|          STD    FA
Line S03762 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05292  M01S03762.v23l617 ---|          LDN    /ERR/IUA    ILLEGAL USER ACCESS
Line S00101 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05293  M01S00101.v23l617 +++|          LDN    /ERR/IUA    * USER ACCESS NOT VALID.*
05294  M00S03763.lfm     +++|          LJM    ERR         PROCESS ERROR
05295  M00S03764.lfm     +++| VSO      SPACE  4,10
05296  M00S03765.lfm     +++|**        VSO - VALIDATE SYSTEM ORIGIN PRIVLEDGES.
05297  M00S03766.lfm     +++|*
05298  M00S03767.lfm     +++|*         ENTRY  (OC) = ORIGIN CODE.
05299  M00S03768.lfm     +++|*
Line S03769 Modification History
M01 (Removed by) lfm9
Seq #  *Modification Id* Act 
----------------------------+
05300  M01S03769.lfm9    ---|*         EXIT   TO *VSJ1*, IF NOT PROPERLY VALIDATED.
Line S00005 Modification History
M01 (Added by) lfm9
Seq #  *Modification Id* Act 
----------------------------+
05301  M01S00005.lfm9    +++|*         EXIT   (A) = 0 IF JOB IS SYSTEM ORIGIN OR HAS SYSTEM
05302  M01S00006.lfm9    +++|*                      ORIGIN PRIVILEGES.
05303  M00S03770.lfm     +++|*
05304  M00S03771.lfm     +++|*         CALLS  RAW.
05305  M00S03772.lfm     +++|
05306  M00S03773.lfm     +++|
05307  M00S03774.lfm     +++| VSO      SUBR               ENTRY/EXIT
05308  M00S03775.lfm     +++|          LDD    OC          CHECK FOR SYOT
Line S03776 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05309  M01S03776.ns22000 ---|          LMN    SYOT
Line S00432 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05310  M01S00432.ns22000 +++|          LMK    SYOT
05311  M00S03777.lfm     +++|          ZJN    VSOX        IF SYOT JOB
05312  M00S03778.lfm     +++|          RJM    RAW         READ ACCESS CONTROL WORD
Line S03779 Modification History
M01 (Removed by) lfm9
Seq #  *Modification Id* Act 
----------------------------+
05313  M01S03779.lfm9    ---|          SHN    21-4
05314  M01S03780.lfm9    ---|          MJN    VSOX        IF SYSTEM ORIGIN PRIVLEDGES
05315  M01S03781.lfm9    ---|          UJN    VSJ1        *ILLEGAL USER ACCESS.*
Line S00007 Modification History
M01 (Added by) lfm9
Seq #  *Modification Id* Act 
----------------------------+
05316  M01S00007.lfm9    +++|          LPN    20
05317  M01S00008.lfm9    +++|          LMN    20
05318  M01S00009.lfm9    +++|          UJN    VSOX        RETURN
05319  M00S03782.lfm     +++| VTE      SPACE  4,10
05320  M00S03783.lfm     +++|**        VTE - VERIFY TAPE ENTRY.
05321  M00S03784.lfm     +++|*
Line S03785 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05322  M01S03785.ns22000 ---|*         ENTRY  (A) = EQUIPMENT NUMBER.
Line S00433 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05323  M01S00433.ns22000 +++|*         ENTRY  (A) = EST ORDINAL.
05324  M00S03786.lfm     +++|*
Line S03787 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05325  M01S03787.274l797 ---|*         EXIT   (A) .EQ. 0 = TAPE EQUIPMENT (MT OR NT).
Line S00271 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05326  M01S00271.274l797 +++|*         EXIT   (A) .EQ. 0 = TAPE EQUIPMENT (MT, NT, CT OR AT).
05327  M00S03788.lfm     +++|*                (A) .EQ. 1 = VSN EQUIPMENT (TE).
05328  M00S03789.lfm     +++|*                (A) .LT. 0 = NOT TAPE RELATED EQUIPMENT.
05329  M00S03790.lfm     +++|*
05330  M00S03791.lfm     +++|*         USES   CM - CM+4.
Line S00434 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05331  M01S00434.ns22000 +++|*
Line S00272 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05332  M01S00272.274l797 +++|*         CALLS  CTE.
05333  M01S00273.274l797 +++|*
Line S00435 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05334  M01S00435.ns22000 +++|*         MACROS SFA.
05335  M00S03792.lfm     +++|
05336  M00S03793.lfm     +++|
Line S03794 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05337  M01S03794.274l797 ---| VTE1     LDN    1           SET VSN EQUIPMENT
05338  M01S03795.274l797 ---|
05339  M00S03796.lfm     +++| VTE      SUBR               ENTRY/EXIT
Line S03797 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05340  M01S03797.ns22000 ---|          ADM    ESTS        READ EST ENTRY
Line S00436 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05341  M01S00436.ns22000 +++|          SFA    EST         READ EST ENTRY
05342  M01S00437.ns22000 +++|          ADK    EQDE
05343  M00S03798.lfm     +++|          CRD    CM
05344  M00S03799.lfm     +++|          LDD    CM+3        CHECK EQUIPMENT TYPE
Line S03800 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
05345  M01S03800.252l678 ---|          LPC    3777
Line S03801 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05346  M01S03801.274l797 ---|          LMC    2RMT
05347  M01S03802.274l797 ---|          ZJN    VTEX        IF *MT*
05348  M01S03803.274l797 ---|          LMC    2RNT&2RMT
05349  M01S03804.274l797 ---|          ZJN    VTEX        IF *NT*
05350  M01S03805.274l797 ---|          LMC    2RTE&2RNT
05351  M01S03806.274l797 ---|          ZJN    VTE1        IF *TE*
05352  M01S03807.274l797 ---|          LCN    0           SET NOT TAPE RELATED
Line S00274 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05353  M01S00274.274l797 +++|          RJM    CTE         CHECK FOR TAPE EQUIPMENT
05354  M00S03808.lfm     +++|          UJN    VTEX        RETURN
05355  M00S03809.lfm     +++|          SPACE  4,10
05356  M00S03810.lfm     +++|**        COMMON DECKS.
05357  M00S03811.lfm     +++|
05358  M00S03812.lfm     +++|
05359  M00S03813.lfm     +++|*CALL     COMPACS
05360  M00S03814.lfm     +++|*CALL     COMPC2D
Line S00017 Modification History
M01 (Added by) lfm17
Seq #  *Modification Id* Act 
----------------------------+
05361  M01S00017.lfm17   +++|          SPACE  4,10
05362  M01S00018.lfm17   +++|          ERRNG  OVL0-*      CODE OVERFLOWS INTO ZERO LEVEL OVERLAYS
05363  M01S00019.lfm17   +++|          OVERFLOW  OVL
Line S03815 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05364  M01S03815.v23l617 ---|          OVERLAY (CONTROL STATEMENT FILE FUNCTIONS.)
Line S00102 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05365  M01S00102.v23l617 +++|          OVERLAY (COMMAND FILE FUNCTIONS.)
Line S00121 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05366  M01S00121.242l642 +++|          SPACE  4,10
Line S00122 Modification History
M01 (Added by) 242l642
M02 (Removed by) lfm19
Seq #  *Modification Id* Act 
----------------------------+
05367  M02S00122.lfm19   ---| MSR      EQU    EER         ERROR PROCESSOR FOR *RNS*
05368  M00S03816.lfm     +++|          SPACE  4,10
05369  M00S03817.lfm     +++|****      ADDITIONAL DIRECT LOCATION ASSIGNMENTS.
05370  M00S03818.lfm     +++|
05371  M00S03819.lfm     +++|
Line S03820 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05372  M01S03820.v23l617 ---| SP       EQU    60 - 64     CONTROL STATEMENT POINTER (5 LOCATIONS)
05373  M01S03821.v23l617 ---| CF       EQU    65          CONTROL STATEMENT FILE FLAGS
05374  M01S03822.v23l617 ---| WO       EQU    66          CONTROL STATEMENT SECTOR WORD COUNT OVERLAP
Line S00103 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05375  M01S00103.v23l617 +++| SP       EQU    60 - 64     COMMAND POINTER (5 LOCATIONS)
05376  M01S00104.v23l617 +++| CF       EQU    65          COMMAND FILE FLAGS
05377  M01S00105.v23l617 +++| WO       EQU    66          COMMAND SECTOR WORD COUNT OVERLAP
05378  M00S03823.lfm     +++|****
05379  M00S03824.lfm     +++| ACS      SPACE  4,20
05380  M00S03825.lfm     +++|***       FUNCTION 21.
Line S03826 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05381  M01S03826.v23l617 ---|*         ATTACH CONTROL CARD FILE UNDER NAME FROM FET.
05382  M01S03827.v23l617 ---|*         ENTER CURRENT CONTROL STATEMENT COUNT IN (FET+6).
Line S00106 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05383  M01S00106.v23l617 +++|*         ATTACH COMMAND FILE UNDER NAME FROM FET.
05384  M01S00107.v23l617 +++|*         ENTER CURRENT COMMAND COUNT IN (FET+6).
05385  M00S03828.lfm     +++|*
05386  M00S03829.lfm     +++|*         ENTRY  (FN - FN+3) = FILE NAME FROM FET+0.
05387  M00S03830.lfm     +++|*
05388  M00S03831.lfm     +++|*T FET+6  1/L,41/,18/ ADDR
Figure FET+6

0171829 ADDR305859L

05389  M00S03832.lfm     +++|*
05390  M00S03833.lfm     +++|*         L = 1 IF FILE MUST BE CREATED AS A LOCKED LIBRARY FILE.
05391  M00S03834.lfm     +++|*         ADDR = IF PRESENT IS ADDRESS TO RECEIVE POSITION INFORMATION.
05392  M00S03835.lfm     +++|*
05393  M00S03836.lfm     +++|*         EXIT -
05394  M00S03837.lfm     +++|*
Line S03838 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05395  M01S03838.v23l617 ---|*T FET+6  42/0, 18/CONTROL STATEMENT COUNT
Figure FET+6

0171829CONTROL STATEMENT COUNT030590


Line S00108 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05396  M01S00108.v23l617 +++|*T FET+6  42/0, 18/COMMAND COUNT
Figure FET+6

0171829COMMAND COUNT030590

05397  M00S03839.lfm     +++|*
05398  M00S03840.lfm     +++|*T ADDR   30/0, 24/CURRENT RANDOM ADDR, 6/WC
Figure ADDR

05629WCCURRENT RANDOM ADDR30590

05399  M00S03841.lfm     +++|*
05400  M00S03842.lfm     +++|*         WC = WORD COUNT POSITION IN CURRECT SECTOR.
05401  M00S03843.lfm     +++|*
05402  M00S03844.lfm     +++|*         ENTRY  (FF) = FET SPECIFIED FNT ADDRESS.
05403  M00S03845.lfm     +++|
05404  M00S03846.lfm     +++|
Line S03847 Modification History
M01 (Removed by) ns2278
Seq #  *Modification Id* Act 
----------------------------+
05405  M01S03847.ns2278  ---|          ENTRY  ACS
05406  M01S03848.ns2278  ---|          LDD    CP          CHECK FOR SSJ= ENTRY POINT
05407  M01S03849.ns2278  ---|          ADC    SEPW
05408  M01S03850.ns2278  ---|          CRD    CM
05409  M01S03851.ns2278  ---|          LDD    CM
05410  M01S03852.ns2278  ---|          SHN    21-2
05411  M01S03853.ns2278  ---|          MJN    ACS1        IF SSJ= ENTRY POINT
Line S03854 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2278
Seq #  *Modification Id* Act 
----------------------------+
05412  M02S03854.ns2278  ---|          LDN    /ERR/IUA    * ILLEGAL USER ACCESS.*
Line S00109 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2278
Seq #  *Modification Id* Act 
----------------------------+
05413  M02S00109.ns2278  ---|          LDN    /ERR/IUA    * USER ACCESS NOT VALID.*
Line S03855 Modification History
M01 (Removed by) ns2278
Seq #  *Modification Id* Act 
----------------------------+
05414  M01S03855.ns2278  ---|          LJM    ERR         PROCESS ERROR
05415  M01S03856.ns2278  ---|
05416  M01S03857.ns2278  ---| ACS1     LDD    FF          SET INITIAL FNT ADDRESS
Line S00014 Modification History
M01 (Added by) ns2278
Seq #  *Modification Id* Act 
----------------------------+
05417  M01S00014.ns2278  +++| ACS1     ENTRY  ACS
05418  M01S00015.ns2278  +++|          LDD    FF          SET INITIAL FNT ADDRESS
05419  M00S03858.lfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
05420  M00S03859.lfm     +++|          ZJN    ACS2        IF NOT FOUND
05421  M00S03860.lfm     +++|          LDN    0           CLEAR FNT ADDRESS
05422  M00S03861.lfm     +++|          STD    FA
05423  M00S03862.lfm     +++|          LDN    /ERR/DFN
05424  M00S03863.lfm     +++|          LJM    ERR         PROCESS ERROR
05425  M00S03864.lfm     +++|
Line S03865 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05426  M01S03865.v23l617 ---| ACS2     LDD    CP          READ CONTROL STATEMENT FST ENTRY
Line S00110 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05427  M01S00110.v23l617 +++| ACS2     LDD    CP          READ COMMAND FST ENTRY
05428  M00S03866.lfm     +++|          ADN    CSSW
05429  M00S03867.lfm     +++|          CRD    CM
05430  M00S03868.lfm     +++|          LDD    CM          CHECK STATUS
05431  M00S03869.lfm     +++|          LPC    777
05432  M00S03870.lfm     +++|          ADD    CM+1
05433  M00S03871.lfm     +++|          NJN    ACS3        IF FILE DEFINED
05434  M00S03872.lfm     +++|          LJM    LFMX        EXIT
05435  M00S03873.lfm     +++|
05436  M00S03874.lfm     +++| ACS3     LDN    NEEQ        SET NULL EQUIPMENT
05437  M00S03875.lfm     +++|          STD    EQ
05438  M00S03876.lfm     +++|          RJM    EFN         ENTER FILE NAME
Line S03877 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05439  M01S03877.v23l617 ---|          LDD    CP          READ CONTROL STATEMENT POINTER
Line S00111 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05440  M01S00111.v23l617 +++|          LDD    CP          READ COMMAND POINTER
05441  M00S03878.lfm     +++|          ADN    CSPW
05442  M00S03879.lfm     +++|          CRD    SP
05443  M00S03880.lfm     +++|          ADN    CSSW-CSPW   READ FST ENTRY
05444  M00S03881.lfm     +++|          CRD    FS
Line S03882 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05445  M01S03882.v23l617 ---|          LDD    FS          SAVE ORIGINAL CONTROL STATEMENT FILE FLAGS
Line S00112 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05446  M01S00112.v23l617 +++|          LDD    FS          SAVE ORIGINAL COMMAND FILE FLAGS
05447  M00S03883.lfm     +++|          STD    CF
Line S03884 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05448  M01S03884.ns22000 ---|          LPC    777         SET EQUIPMENT NUMBER
Line S00438 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05449  M01S00438.ns22000 +++|          LPC    777         SET EST ORDINAL
05450  M00S03885.lfm     +++|          STD    FS
05451  M00S03886.lfm     +++|          STD    T5
05452  M00S03887.lfm     +++|          LDD    FS+4        SAVE SECTOR WORD COUNT OVERLAP
05453  M00S03888.lfm     +++|          LPN    77
05454  M00S03889.lfm     +++|          STD    WO
05455  M00S03890.lfm     +++|          LDN    4           SET EOR OPERATION
05456  M00S03891.lfm     +++|          STD    FS+4
05457  M00S03892.lfm     +++|
05458  M00S03893.lfm     +++|*         CHECK IF POSITION INFORMATION TO BE RETURNED.
05459  M00S03894.lfm     +++|
05460  M00S03895.lfm     +++|          RJM    CPA         READ FET+6
05461  M00S03896.lfm     +++|          ADN    6
05462  M00S03897.lfm     +++|          CRD    CN
05463  M00S03898.lfm     +++|          LDD    CN+3        CHECK IF ADDRESS PRESENT
05464  M00S03899.lfm     +++|          LPN    77
05465  M00S03900.lfm     +++|          STD    CN+3
05466  M00S03901.lfm     +++|          SHN    14
05467  M00S03902.lfm     +++|          LMD    CN+4
05468  M00S03903.lfm     +++|          NJN    ACS4        IF ADDRESS PRESENT
05469  M00S03904.lfm     +++|          LJM    ACS7        CHANGE TO *LIFT* FILE TYPE
05470  M00S03905.lfm     +++|
05471  M00S03906.lfm     +++| ACS4     SHN    -6          CHECK IF ADDRESS WITHIN FL
05472  M00S03907.lfm     +++|          SBD    FL
05473  M00S03908.lfm     +++|          MJN    ACS5        IF WITHIN FL
05474  M00S03909.lfm     +++|          LDN    /ERR/AOR    * ADDRESS OUT OF RANGE.*
05475  M00S03910.lfm     +++|          LJM    ERR         ABORT
05476  M00S03911.lfm     +++|
05477  M00S03912.lfm     +++| ACS5     LDD    CN          SET FILE TYPE OPTION
05478  M00S03913.lfm     +++|          SHN    -13
05479  M00S03914.lfm     +++|          RAM    ACSA
05480  M00S03915.lfm     +++|          LDD    FS+2        CURRENT TRACK
05481  M00S03916.lfm     +++|          STD    T6
05482  M00S03917.lfm     +++|          LDD    FS+3        CURRENT SECTOR
05483  M00S03918.lfm     +++|          STD    T7
05484  M00S03919.lfm     +++|          LDD    FS+1        FIRST TRACK
05485  M00S03920.lfm     +++|          RJM    SRA         SET RANDOM ADDRESS
05486  M00S03921.lfm     +++|          SOD    RI+1        ADJUST ADDRESS TO PREVIOUS SECTOR
05487  M00S03922.lfm     +++|          PJN    ACS6        IF NO UNDERFLOW
05488  M00S03923.lfm     +++|          SOD    RI
05489  M00S03924.lfm     +++|          AOD    RI+1
05490  M00S03925.lfm     +++| ACS6     LDD    RI          RETURN RANDOM ADDRESS
05491  M00S03926.lfm     +++|          SHN    6
05492  M00S03927.lfm     +++|          STD    CM+3
05493  M00S03928.lfm     +++|          SHN    -14
05494  M00S03929.lfm     +++|          STD    CM+2
05495  M00S03930.lfm     +++|          LDD    RI+1
05496  M00S03931.lfm     +++|          SHN    6
05497  M00S03932.lfm     +++|          STD    CM+4
05498  M00S03933.lfm     +++|          SHN    -14
05499  M00S03934.lfm     +++|          RAD    CM+3
05500  M00S03935.lfm     +++|          LDC    CSBN        SET WORD COUNT
05501  M00S03936.lfm     +++|          SBD    SP+3
05502  M00S03937.lfm     +++|          SBD    WO          ADJUST FOR OVERLAP
05503  M00S03938.lfm     +++|          RAD    CM+4
Line S00001 Modification History
M01 (Added by) lfm10
Seq #  *Modification Id* Act 
----------------------------+
05504  M01S00001.lfm10   +++|          SHN    -14
05505  M01S00002.lfm10   +++|          RAD    CM+3
05506  M00S03939.lfm     +++|          LDN    0           RETURN POSITION INFORMATION
05507  M00S03940.lfm     +++|          STD    CM
05508  M00S03941.lfm     +++|          STD    CM+1
05509  M00S03942.lfm     +++|          LDD    CN+3
05510  M00S03943.lfm     +++|          SHN    6
05511  M00S03944.lfm     +++|          ADD    RA
05512  M00S03945.lfm     +++|          SHN    6
05513  M00S03946.lfm     +++|          ADD    CN+4
05514  M00S03947.lfm     +++|          CWD    CM
Line S03948 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05515  M01S03948.v23l617 ---|          LDD    CF          CHECK IF ORIGINAL CONTROL STATEMENT FILE
Line S00113 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05516  M01S00113.v23l617 +++|          LDD    CF          CHECK IF ORIGINAL COMMAND FILE
05517  M00S03949.lfm     +++|          SHN    21-13
05518  M00S03950.lfm     +++|          MJN    ACS7        IF ORIGINAL JOB INPUT FILE
05519  M00S03951.lfm     +++|
05520  M00S03952.lfm     +++|
05521  M00S03953.lfm     +++|*         IF THE USER OF *ACCSF* HAS BIT 59 SET IN FET+6,
Line S03954 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05522  M01S03954.v23l617 ---|*         IT IS NECESSARY FOR THE CONTROL STATEMENT FILE TO BE
Line S00114 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05523  M01S00114.v23l617 +++|*         IT IS NECESSARY FOR THE COMMAND FILE TO BE
05524  M00S03955.lfm     +++|*         ACCESSED AS A LOCKED, READ ONLY, LIBRARY FILE.
05525  M00S03956.lfm     +++|*
05526  M00S03957.lfm     +++|*         *CHKPT* USES THIS OPTION BECAUSE IF THE FILE IS CREATED
05527  M00S03958.lfm     +++|*         AS LOCAL, THE *ENCSF* MACRO CAN BE USED TO RESTORE THE
Line S03959 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05528  M01S03959.v23l617 ---|*         CONTROL STATEMENT FILE AND THE CORRESPONDING POINTERS IN THE
05529  M01S03960.v23l617 ---|*         *CPA*.  WHEN THE CONTROL STATEMENT BUFFER IS SUBSEQUENTLY
Line S00115 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05530  M01S00115.v23l617 +++|*         COMMAND FILE AND THE CORRESPONDING POINTERS IN THE
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/lfm.003.txt ยท Last modified: by 127.0.0.1