User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:0av

Deck 0AV

12 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.0av     +++|          IDENT  0AV,/REL/VUNX
00002  M01S00002.0av     +++|          PERIPH J
00003  M01S00003.0av     +++|          BASE   MIXED
00004  M01S00004.0av     +++|          SST
00005  M01S00005.0av     +++| IRA$     SET    0           EXTERNAL PRESET OF RANDOM ADDRESSING DECKS
00006  M01S00006.0av     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00007  M01S00007.0av     +++| REL$     SET    1           DEFINE FULL RELOCATION
00008  M01S00008.0av     +++|*COMMENT  0AV - VERIFY USER ACCOUNT NUMBER.
Line S00009 Modification History
M01 (Added by) 0av
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M01S00010.0av     +++|          TITLE  0AV - VERIFY USER NAME.
00012  M01S00011.0av     +++|          SPACE  4
00013  M01S00012.0av     +++|***       0AV - VERIFY USER NAME.
00014  M01S00013.0av     +++|*         C.J.MATULE  71/01/11.
00015  M01S00014.0av     +++|*         R.P. ROHRBOUGH     72/09/07.
00016  M01S00015.0av     +++|          SPACE  4
00017  M01S00016.0av     +++|***              0AV IS A LOCATION FREE ROUTINE WHICH VERIFIES THAT
00018  M01S00017.0av     +++|*         THE SPECIFIED USER NUMBER IS A VALID ONE. THE VALIDATION
00019  M01S00018.0av     +++|*         FILE FOR THE CORRECT FAMILY IS SEARCHED FOR THE GIVEN USER
00020  M01S00019.0av     +++|*         NUMBER AND THE VALID USER INDEX IS RETURNED IF FOUND.
00021  M01S00020.0av     +++|*         THE ACCOUNT RECORD BLOCK IS ALSO SET UP FOR THE CALLER,S USE.
00022  M01S00021.0av     +++|*
00023  M01S00022.0av     +++|*                0AV CAN ALSO BE CALLED TO DECREMENT A GIVEN USER,S
00024  M01S00023.0av     +++|*         SECURITY COUNT AFTER AN ATTEMPTED BREACH OF SECURITY.
00025  M01S00024.0av     +++|*         NOTE - THE SECURITY COUNT MAY NOT BE DECREMENTED IN ALL CASES
00026  M01S00025.0av     +++|*         DUE TO THE AVAILABILITY OF THE VALIDATION FILE. THIS
00027  M01S00026.0av     +++|*         CONDITION WILL BE FLAGGED BY THE ACCOUNT FILE MESSAGE THAT IS
00028  M01S00027.0av     +++|*         ISSUED.
00029  M01S00028.0av     +++|
00030  M01S00029.0av     +++|          SPACE  4
00031  M01S00030.0av     +++|***       ACCOUNT FILE MESSAGES.
00032  M01S00031.0av     +++|*
00033  M01S00032.0av     +++|*         *SISC, NN.*
00034  M01S00033.0av     +++|*         USER,S SECURITY COUNT HAS BEEN DECREMENTED TO THE VALUE NN.
00035  M01S00034.0av     +++|*         WHEN NN EQUALS ZERO, THE USER NUMBER WILL NOT BE ALLOWED
00036  M01S00035.0av     +++|*         ACCESS TO THE SYSTEM.
00037  M01S00036.0av     +++|*
00038  M01S00037.0av     +++|*         *SISC.*
00039  M01S00038.0av     +++|*         THE SYSTEM WAS UNABLE TO DECREMENT THE SECURITY COUNT FOR
Line S00039 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av2
Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00039.0av2    ---|*         THIS USER.
00041  M01S00001.0av2    +++|*         THIS USER FOR ONE OF THE FOLLOWING REASONS
00042  M01S00002.0av2    +++|*                - VALIDATION FILE BUSY.
00043  M01S00003.0av2    +++|*                - SECURITY COUNT ALREADY AT ZERO.
00044  M01S00004.0av2    +++|*                - SECURITY COUNT IS UNLIMITED.
Line S00040 Modification History
M01 (Added by) 0av
M02 (Updated by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00040.ns2553  ---|          SPACE  4
Line S00041 Modification History
M01 (Added by) 0av
M02 (Updated by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00041.ns2553  ---|***       OPERATOR MESSAGES.
Line S00042 Modification History
M01 (Added by) 0av
M02 (Updated by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
00047  M02S00042.ns2553  ---|*
Line S00043 Modification History
M01 (Added by) 0av
M02 (Updated by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00043.ns2553  ---|*
Line S00044 Modification History
M01 (Added by) 0av
M02 (Updated by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00044.ns2553  ---|*                NONE.
00050  M01S00045.0av     +++|          SPACE  4
00051  M01S00046.0av     +++|**        ENTRY CONDITIONS.
00052  M01S00047.0av     +++|*
00053  M01S00048.0av     +++|*
00054  M01S00049.0av     +++|*         (UN - UN+3) = USER NUMBER.
00055  M01S00050.0av     +++|*         (UN+4) = FUNCTION CODE.
00056  M01S00051.0av     +++|*                0 = VALIDATE USER NUMBER.
00057  M01S00052.0av     +++|*                1 = DECREMENT USER,S SECURITY COUNT.
00058  M01S00053.0av     +++|*
00059  M01S00054.0av     +++|*         (CN - CN+4) = FAMILY NAME.
00060  M01S00055.0av     +++|*                = 0 IF NOT AVAILABLE.
00061  M01S00056.0av     +++|          SPACE  4
00062  M01S00057.0av     +++|**        EXIT CONDITIONS.
00063  M01S00058.0av     +++|*
00064  M01S00001.242l642 +++|*
00065  M01S00002.242l642 +++|*         (A) .LT. 0 IF VALIDATION FILE DEVICE INACCESSIBLE.
00066  M01S00001.ns2553  +++|*         (T5) = EST ORDINAL OF VALIDATION FILE DEVICE IF INACCESSIBLE.
00067  M01S00059.0av     +++|*
00068  M01S00060.0av     +++|*         FUNCTION 0. (VALIDATE USER NUMBER)
00069  M01S00061.0av     +++|*                (T1 - T2) = 0 IF THE USER NAME WAS NOT FOUND.
00070  M01S00062.0av     +++|*                (T1 - T2) = USER INDEX IF FOUND.
00071  M01S00063.0av     +++|*                (T3) = FWA OF ACCOUNT RECORD BLOCK.
00072  M01S00064.0av     +++|*                (T4) = 0 IF UI .LT. AUIMX.
00073  M01S00065.0av     +++|*                (T4) = 1 IF UI .GE. AUIMX.
00074  M01S00066.0av     +++|*                (T5) = FAMILY EQUIPMENT.
00075  M01S00067.0av     +++|*                (T6) = SECURITY COUNT.
00076  M01S00068.0av     +++|*                (CN - CN+4) = FAMILY NAME.
00077  M01S00069.0av     +++|*
00078  M01S00070.0av     +++|*         FUNCTION 1. (DECREMENT USER,S SECURITY COUNT.)
00079  M01S00071.0av     +++|*                SECURITY COUNT DECREMENTED.
00080  M01S00072.0av     +++|*                ACCOUNT FILE MESSAGE ISSUED.
00081  M01S00001.ns22000 +++|*                (T6) = DECREMENTED SECURITY COUNT.
00082  M01S00073.0av     +++|          SPACE  4
00083  M01S00074.0av     +++|*CALL     COMPMAC
00084  M01S00075.0av     +++|          LIST   X
00085  M01S00076.0av     +++|*CALL     COMSACC
00086  M01S00077.0av     +++|          LIST   *
00087  M01S00078.0av     +++|*CALL     COMSCPS
Line S00079 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00088  M02S00079.242l642 ---|*CALL     COMSPFM
Line S00080 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00089  M02S00080.242l642 ---|*CALL     COMSZOL
Line S00081 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00081.242l642 ---|*CALL     COMSMSP
00091  M01S00003.242l642 +++|*CALL     COMSMSP
00092  M01S00004.242l642 +++|*CALL     COMSPIM
00093  M01S00005.242l642 +++|*CALL     COMSPFM
00094  M01S00006.242l642 +++|*CALL     COMSZOL
00095  M01S00082.0av     +++|*CALL     COMPRLI
00096  M01S00083.0av     +++|          SPACE  4
00097  M01S00084.0av     +++|****      DIRECT LOCATION ASSIGNMENTS.
00098  M01S00085.0av     +++|
00099  M01S00086.0av     +++|
00100  M01S00087.0av     +++| RI       EQU    16 - 17     RANDOM INDEX (2 LOCATIONS)
00101  M01S00088.0av     +++| CN       EQU    30 - 34     FAMILY NAME (5 LOCATIONS)
00102  M01S00089.0av     +++| UN       EQU    40 - 44     USER NAME (5 LOCATIONS)
00103  M01S00090.0av     +++|****
00104  M01S00091.0av     +++|          SPACE  4
00105  M01S00092.0av     +++|**        CONSTANTS.
00106  M01S00093.0av     +++|
00107  M01S00094.0av     +++|
00108  M01S00095.0av     +++| VFDL     EQU    4000D       DELAY CYCLES WAITING FOR VALIDATION FILE
00109  M01S00096.0av     +++|          SPACE  4
00110  M01S00097.0av     +++|          TITLE  MAIN ROUTINE.
00111  M01S00098.0av     +++| VUN      SPACE  4
00112  M01S00099.0av     +++|**        VUN - MAIN PROGRAM.
00113  M01S00100.0av     +++|
00114  M01S00101.0av     +++|
00115  M01S00102.0av     +++| VUN      SUBR               ENTRY/EXIT
00116  M01S00103.0av     +++| REL$     EQU    1           SET FULL RELOCATION
00117  M01S00104.0av     +++|          RJM.   REL,LA      RELOCATE ADDRESSES
00118  M01S00105.0av     +++|          LJM    IVF         INITIALIZE VALIDATION FILE
00119  M01S00106.0av     +++|
Line S00107 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00120  M02S00107.ns22000 ---| VUN1.0   RJM    SUN         SEARCH FOR USER NUMBER
Line S00108 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00121  M02S00108.ns22000 ---|          ZJN    VUN1        IF USER ACCOUNT BLOCK NOT FOUND
00122  M01S00002.ns22000 +++| VUN1     RJM    SUN         SEARCH FOR USER NAME
00123  M01S00003.ns22000 +++|          ZJN    VUN2        IF USER ACCOUNT BLOCK NOT FOUND
00124  M01S00109.0av     +++|          LDD    UN+4
Line S00110 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00110.ns22000 ---| VUN1     ZJN    VUN1.2      IF VALIDATION FUNCTION
00126  M01S00004.ns22000 +++| VUN2     ZJN    VUN3        IF VALIDATION FUNCTION
00127  M01S00111.0av     +++|
00128  M01S00112.0av     +++|*         UPDATE VALIDATION FILE.
00129  M01S00113.0av     +++|
00130  M01S00114.0av     +++|          LDM    AHSC*5+1,T3
00131  M01S00115.0av     +++|          SHN    -6
Line S00116 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00116.ns22000 ---|          ZJN    VUN1.1      IF SECURITY COUNT EXHAUSTED
00133  M01S00005.ns22000 +++|          ZJN    VUN4        IF SECURITY COUNT EXHAUSTED
00134  M01S00117.0av     +++|          LMN    77
Line S00118 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00135  M02S00118.ns22000 ---|          ZJN    VUN1.1      IF UNLIMITED
00136  M01S00006.ns22000 +++|          ZJN    VUN4        IF UNLIMITED
00137  M01S00119.0av     +++|          LDC    -100
00138  M01S00120.0av     +++|          RAM    AHSC*5+1,T3
00139  M01S00121.0av     +++|          SHN    -6
00140  M01S00007.ns22000 +++|          STM    VUNE
00141  M01S00122.0av     +++|          STD    T1          SET SECURITY COUNT IN MESSAGE
00142  M01S00123.0av     +++|          SHN    3
00143  M01S00124.0av     +++|          LMD    T1
00144  M01S00125.0av     +++|          SCN    70
00145  M01S00126.0av     +++|          RAM    VUNF+3
Line S00127 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00127.242l642 ---|          SETMS  WRITE,RW
00147  M01S00128.0av     +++|          LDC.   BUF-2+WLSF
00148  M01S00129.0av     +++|          RJM    WDS         WRITE DISK
Line S00130 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00149  M02S00130.ns22000 ---|          UJN    VUN1.2      RETURN VALIDATION FILE
00150  M01S00008.ns22000 +++| VUN3     UJN    VUN5        RETURN VALIDATION FILE
00151  M01S00131.0av     +++|
Line S00132 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00152  M02S00132.ns22000 ---| VUN1.1   STM    VUNA        SET NO ACCOUNT FILE MESSAGE
Line S00009 Modification History
M01 (Added by) ns22000
M02 (Updated by) 0av2
Seq #  *Modification Id* Act 
----------------------------+
00153  M02S00009.0av2    ---| VUN4     STM    VUNA        SET NO ACCOUNT FILE MESSAGE
00154  M01S00005.0av2    +++| VUN4     STM    VUNF+3      SET END OF ACCOUNTING MESSAGE
00155  M01S00006.0av2    +++|          LDC    2L .
00156  M01S00007.0av2    +++|          STM    VUNF+2
00157  M01S00133.0av     +++|
00158  M01S00134.0av     +++|*         RETURN VALIDATION FILE.
00159  M01S00135.0av     +++|
Line S00136 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00160  M02S00136.ns22000 ---| VUN1.2   ENDMS              END MASS STORAGE OPERATION
00161  M01S00010.ns22000 +++| VUN5     ENDMS
00162  M01S00137.0av     +++|          LDC    *
00163  M01S00138.0av     +++| VUNB     EQU    *-1         (FNT ORDINAL)
00164  M01S00139.0av     +++|          STD    CM+4
00165  M01S00140.0av     +++|          LDC    0
00166  M01S00141.0av     +++| VUNC     EQU    *-1         (FILE MODE)
00167  M01S00142.0av     +++|          STD    CM+2
00168  M01S00143.0av     +++|          LDN    RFAS        RETURN FAST ATTACH FILE
00169  M01S00144.0av     +++|          RJM    CFA         CHECK FOR LOCAL/GLOBAL FAST ATTACH FILE
Line S00145 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00145.ns22000 ---| VUN2     LDC    0
00171  M01S00011.ns22000 +++| VUN6     LDC    0
Line S00146 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av2
Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00146.0av2    ---|*         LDC    VUNF+ACFN   *SISC,NN.*
00173  M01S00008.0av2    +++|*         LDC    VUNF+ACFN   *SISC,NN.* OR *SISC.*
00174  M01S00147.0av     +++| VUNA     EQU    *-1         (FWA OF ACCOUNT FILE MESSAGE SET BY *IVF*)
Line S00148 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00148.ns22000 ---|          ZJN    VUN3        IF NO ACCOUNT FILE MESSAGE
00176  M01S00012.ns22000 +++|          ZJN    VUN7        IF NO ACCOUNT FILE MESSAGE
00177  M01S00149.0av     +++|          ADC    ACFN
00178  M01S00150.0av     +++|          RJM    DFM
Line S00151 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00179  M02S00151.ns22000 ---| VUN3     LDN    0           SET USER INDEX FLAG
00180  M01S00013.ns22000 +++| VUN7     LDN    0           SET USER INDEX FLAG
00181  M01S00152.0av     +++|*         LDN    1           (UI .GT. *AUIMX*)
00182  M01S00153.0av     +++| VUND     EQU    *-1
00183  M01S00154.0av     +++|          STD    T4
Line S00155 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00184  M02S00155.ns22000 ---|          LDN    0           SET SECURITY COUNT
Line S00156 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00185  M02S00156.ns22000 ---| VUNE     EQU    *-1         (SET BY *SUN*)
Line S00014 Modification History
M01 (Added by) ns22000
M02 (Updated by) 0av3
Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00014.0av3    ---|          LDC    **          SET SECURITY COUNT
00187  M01S00001.0av3    +++|          LDC    1           SET SECURITY COUNT (USE 1 IF FILE BUSY)
00188  M01S00015.ns22000 +++| VUNE     EQU    *-1
00189  M01S00157.0av     +++|          STD    T6
00190  M01S00158.0av     +++|          LJM    VUNX        RETURN
00191  M01S00159.0av     +++|
00192  M01S00160.0av     +++| VUNF     VFD    60/9LSISC, 00.
00193  M01S00161.0av     +++|
00194  M01S00162.0av     +++|*         VFD    60/5LSISC.
00195  M01S00163.0av     +++|          CON    0           END OF MESSAGE
00196  M01S00164.0av     +++|          SPACE  4,10
00197  M01S00165.0av     +++| SUN      SPACE  4
00198  M01S00166.0av     +++|**        SUN - SEARCH FOR USER NUMBER.
00199  M01S00167.0av     +++|*
00200  M01S00168.0av     +++|*         ENTRY  VALIDATION FILE ATTACHED.
00201  M01S00169.0av     +++|*                (UN - UN+3) = USER NUMBER.
00202  M01S00170.0av     +++|*
00203  M01S00171.0av     +++|*         EXIT   (A) = 0, USER BLOCK NOT FOUND.
00204  M01S00172.0av     +++|*                (T1 - T2) = USER INDEX.
00205  M01S00173.0av     +++|*                (T3) = FWA OF USER VALIDATION BLOCK.
00206  M01S00174.0av     +++|*                (T5) = EQUIPMENT.
00207  M01S00175.0av     +++|*                (T6) = TRACK.
00208  M01S00176.0av     +++|*                (T7) = SECTOR.
00209  M01S00177.0av     +++|*
00210  M01S00178.0av     +++|*         CALLS  CAN, RDS, SBL, SIB.
Line S00179 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00211  M02S00179.242l642 ---|*
Line S00180 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00212  M02S00180.242l642 ---|*         MACROS SETMS.
00213  M01S00181.0av     +++|
00214  M01S00182.0av     +++|
00215  M01S00183.0av     +++| SUN3     LDN    0           CLEAR USER INDEX
00216  M01S00184.0av     +++| SUN4     STD    T2          SET USER INDEX
00217  M01S00185.0av     +++|          SHN    -14
00218  M01S00186.0av     +++|          STD    T1
00219  M01S00187.0av     +++|          SHN    14
00220  M01S00188.0av     +++|          LMD    T2
00221  M01S00189.0av     +++|          ZJN    SUNX        IF USER BLOCK NOT FOUND
00222  M01S00190.0av     +++|          ADC    -AUIMX
Line S00191 Modification History
M01 (Added by) 0av
M02 (Updated by) ns2063
Seq #  *Modification Id* Act 
----------------------------+
00223  M02S00191.ns2063  ---|          MJN    SUNX        IF UI LESS OR EQUAL TO AUIMX
Line S00192 Modification History
M01 (Added by) 0av
M02 (Updated by) ns2063
Seq #  *Modification Id* Act 
----------------------------+
00224  M02S00192.ns2063  ---|          AOM    VUND        SET UI GREATER THAN AUIMX FLAG
00225  M01S00001.ns2063  +++|          MJN    SUNX        IF UI LESS THAN AUIMX
00226  M01S00002.ns2063  +++|          AOM    VUND        SET *UI .GE. AUIMX* FLAG
00227  M01S00193.0av     +++|
00228  M01S00194.0av     +++|*         LOCATE PRIMARY LEVEL BLOCK FOR ACCOUNT NUMBER.
00229  M01S00195.0av     +++|
00230  M01S00196.0av     +++| SUN      SUBR               ENTRY/EXIT
00231  M01S00197.0av     +++|          RJM    SIB         SEARCH INDEX BLOCK (LEVEL 0)
00232  M01S00198.0av     +++| SUN1     MJN    SUN3        IF BAD ADDRESS
00233  M01S00199.0av     +++|          RJM    SIB         SEARCH INDEX BLOCK (LEVEL 1)
00234  M01S00200.0av     +++|          MJN    SUN3        IF BAD ADDRESS
Line S00201 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00235  M02S00201.242l642 ---|          SETMS  READ        INSURE CORRECT POSITION
00236  M01S00202.0av     +++|          LDC.   BUF-2       READ DATA BLOCK
00237  M01S00203.0av     +++|          RJM    RDS         READ LEVEL 2 BLOCK
00238  M01S00204.0av     +++|          MJN    SUN3        IF READ ERROR
00239  M01S00205.0av     +++|
00240  M01S00206.0av     +++|*         SEARCH BLOCK FOR ACCOUNT NUMBER.
00241  M01S00207.0av     +++|
00242  M01S00208.0av     +++|          RJM    SBL         SET LIMIT OF DATA IN BUFFER
00243  M01S00209.0av     +++| SUN2     LDC    -ARBS*5
00244  M01S00210.0av     +++|          RAD    T3
00245  M01S00211.0av     +++|          SBD    T1          CHECK FOR LIMIT
00246  M01S00212.0av     +++|          MJN    SUN1        IF NO VALUE HIT
00247  M01S00213.0av     +++|          RJM    CAN         COMPARE ACCOUNT NUMBER
00248  M01S00214.0av     +++|          NJN    SUN2        IF NOT EQUAL
00249  M01S00215.0av     +++|          LDM    AHSC*5+1,T3 SET SECURITY COUNT
00250  M01S00216.0av     +++|          SHN    -6
Line S00217 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00251  M02S00217.ns22000 ---|          RAM    VUNE
00252  M01S00016.ns22000 +++|          STM    VUNE
00253  M01S00218.0av     +++|          LDM    3,T3
00254  M01S00219.0av     +++|          LPN    37
00255  M01S00220.0av     +++|          SHN    14
00256  M01S00221.0av     +++|          LMM    4,T3
00257  M01S00222.0av     +++|          LJM    SUN4        SET USER INDEX
00258  M01S00223.0av     +++| SIB      SPACE  4
00259  M01S00224.0av     +++|**        SIB -  SEARCH INDEX BLOCK.
00260  M01S00225.0av     +++|*
00261  M01S00226.0av     +++|*         ENTRY  (FTOV) = FIRST TRACK.
00262  M01S00227.0av     +++|*                (T6) = TRACK.
00263  M01S00228.0av     +++|*                (T7) = SECTOR.
00264  M01S00229.0av     +++|*
00265  M01S00230.0av     +++|*         EXIT   (A) .LT. 0 IF ERROR.
00266  M01S00231.0av     +++|*
00267  M01S00232.0av     +++|*         USES   T1, T3, RI - RI+1.
00268  M01S00233.0av     +++|*
00269  M01S00234.0av     +++|*         CALLS  CAN, CRA, RDS, SBL, SRI.
00270  M01S00235.0av     +++|*
00271  M01S00236.0av     +++|*         MACROS SETMS.
00272  M01S00237.0av     +++|
00273  M01S00238.0av     +++|
00274  M01S00239.0av     +++| SIB13    LCN    0           SET EXIT CONDITION
00275  M01S00240.0av     +++|
00276  M01S00241.0av     +++| SIB      SUBR               ENTRY/ EXIT
Line S00242 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00277  M02S00242.242l642 ---| SIB1     SETMS  READ        INSURE CORRECT POSITION
Line S00243 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00243.242l642 ---|          LDC.   BUF-2       READ NEXT SECTOR
00279  M01S00007.242l642 +++| SIB1     LDC.   BUF-2       READ NEXT SECTOR
00280  M01S00244.0av     +++|          RJM    RDS
00281  M01S00245.0av     +++|          MJN    SIBX        IF READ ERROR
00282  M01S00008.242l642 +++|          SETMS  POSITION
00283  M01S00246.0av     +++|          RJM    SBL         SET LIMIT OF INDEX ENTRIES IN BUFFER
00284  M01S00247.0av     +++| SIB2     LCN    ANWE*5      DECREMENT ENTRY
00285  M01S00248.0av     +++|          RAD    T3
00286  M01S00249.0av     +++|          SBD    T1
00287  M01S00250.0av     +++|          PJN    SIB5        IF NOT BEFORE FIRST ENTRY IN BLOCK
00288  M01S00251.0av     +++|          LDM    BUF
00289  M01S00252.0av     +++|          ZJN    SIB4        IF LEVEL - 0
00290  M01S00253.0av     +++|          LDM    BUF+5*2+3   CHECK FOR LINK
00291  M01S00254.0av     +++|          LPN    77
00292  M01S00255.0av     +++|          SHN    14
00293  M01S00256.0av     +++|          ADM    BUF+5*2+4
00294  M01S00257.0av     +++| SIB3     ZJN    SIB13       IF NO LINK
00295  M01S00258.0av     +++|          LJM    SIB12       LINK THROUGH BLOCKS
00296  M01S00259.0av     +++|
00297  M01S00260.0av     +++| SIB4     LDC.   0
00298  M01S00261.0av     +++| SIBA     EQU    *-1
00299  M01S00262.0av     +++|          STD    RI
00300  M01S00263.0av     +++|          LDC.   0
00301  M01S00264.0av     +++| SIBB     EQU    *-1
00302  M01S00265.0av     +++|          STD    RI+1
00303  M01S00266.0av     +++|          ADD    RI
00304  M01S00267.0av     +++|          ZJN    SIB3        IF NO LINK
00305  M01S00268.0av     +++|          UJN    SIB6
00306  M01S00269.0av     +++|
00307  M01S00270.0av     +++|*         SET RANDOM INDEX.
00308  M01S00271.0av     +++|
00309  M01S00272.0av     +++| SIB5     LDM    5+3,T3
00310  M01S00273.0av     +++|          STD    RI
00311  M01S00274.0av     +++|          LDM    5+4,T3
00312  M01S00275.0av     +++|          STD    RI+1
00313  M01S00276.0av     +++|          RJM    CAN         COMPARE ACCOUNT NUMBERS
00314  M01S00277.0av     +++|          MJN    SIB8        IF ACCOUNT PAST ENTRY
00315  M01S00278.0av     +++|          ZJN    SIB6        IF MATCH
00316  M01S00279.0av     +++|          LJM    SIB2        DECREMENT ENTRY
00317  M01S00280.0av     +++|
00318  M01S00281.0av     +++| SIB6     LDC    **
00319  M01S00282.0av     +++| FTOV     EQU    *-1         FIRST TRACK OF VALIDATION FILE
00320  M01S00283.0av     +++|          STD    T6
00321  M01S00284.0av     +++|          RJM    CRA         CONVERT RANDOM INDEX
00322  M01S00285.0av     +++| SIB7     LJM    SIBX        RETURN
00323  M01S00286.0av     +++|
00324  M01S00287.0av     +++| SIB8     LDM    BUF+1       CHECK ENTRY
00325  M01S00288.0av     +++|          SBN    2+ANWE
00326  M01S00289.0av     +++|          STD    T0
00327  M01S00290.0av     +++|          SHN    2
00328  M01S00291.0av     +++|          ADD    T0
00329  M01S00292.0av     +++|          ADD    T1
00330  M01S00293.0av     +++|          LMD    T3
00331  M01S00294.0av     +++|          NJN    SIB9        IF NOT LAST
00332  M01S00295.0av     +++|          LDM    BUF+5*2+3   SET LINKED BLOCK
00333  M01S00296.0av     +++|          ADM    BUF+5*2+4
00334  M01S00297.0av     +++|          NJN    SIB11       IF LINK EXISTS
00335  M01S00298.0av     +++| SIB9     LDM    BUF         CHECK LEVEL
00336  M01S00299.0av     +++|          ZJN    SIB6        IF LEVEL-0
00337  M01S00300.0av     +++|          LCN    1
00338  M01S00301.0av     +++| SIB10    UJN    SIB7        RETURN
00339  M01S00302.0av     +++|
00340  M01S00303.0av     +++| SIB11    LDM    BUF         CHECK LEVEL
00341  M01S00304.0av     +++|          NJN    SIB12       IF NOT LEVEL - 0
00342  M01S00305.0av     +++|          LDM    5+3,T3
00343  M01S00306.0av     +++|          STM    SIBA        SAVE RANDOM ADDRESS OF LAST ENTRY
00344  M01S00307.0av     +++|          LDM    5+4,T3
00345  M01S00308.0av     +++|          STM    SIBB
00346  M01S00309.0av     +++| SIB12    LDM    BUF+5*2+3   SET READ OF LINKED BLOCK
00347  M01S00310.0av     +++|          STD    RI
00348  M01S00311.0av     +++|          LDM    BUF+5*2+4
00349  M01S00312.0av     +++|          STD    RI+1
00350  M01S00313.0av     +++|          LDM    FTOV        RESET FIRST TRACK
00351  M01S00314.0av     +++|          STD    T6
00352  M01S00315.0av     +++|          RJM    CRA         CONVERT RANDOM ADDRESS
00353  M01S00316.0av     +++|          MJN    SIB10       IF BAD ADDRESS
00354  M01S00317.0av     +++|          LJM    SIB1        READ BLOCK
00355  M01S00318.0av     +++| CAN      SPACE  4
00356  M01S00319.0av     +++|**        CAN -  COMPARE ACCOUNT NUMBER.
00357  M01S00320.0av     +++|*
00358  M01S00321.0av     +++|*         ENTRY  (T3) = ADDRESS OF ENTRY.
00359  M01S00322.0av     +++|*                (UN - UN+3) = USER NUMBER.
00360  M01S00323.0av     +++|*
00361  M01S00324.0av     +++|*         EXIT   (A) = 0 IF EQUAL.
00362  M01S00325.0av     +++|*                (A) < 0 IF LARGER.
00363  M01S00326.0av     +++|*                (A) > 0 IF VALIDUS ENTRY LARGER.
00364  M01S00327.0av     +++|
00365  M01S00328.0av     +++|
00366  M01S00329.0av     +++| CAN      SUBR
00367  M01S00330.0av     +++|          LDI    T3
00368  M01S00331.0av     +++|          SBD    UN
00369  M01S00332.0av     +++|          NJN    CANX        IF NOT EQUAL
00370  M01S00333.0av     +++|          LDM    1,T3
00371  M01S00334.0av     +++|          SBD    UN+1
00372  M01S00335.0av     +++|          NJN    CANX        IF NOT EQUAL
00373  M01S00336.0av     +++|          LDM    2,T3
00374  M01S00337.0av     +++|          SBD    UN+2
00375  M01S00338.0av     +++|          NJN    CANX        IF NOT EQUAL
00376  M01S00339.0av     +++|          LDM    3,T3
00377  M01S00340.0av     +++|          SCN    77
00378  M01S00341.0av     +++|          SBD    UN+3
00379  M01S00342.0av     +++|          UJN    CANX        EXIT
00380  M01S00343.0av     +++| SBL      SPACE  4
00381  M01S00344.0av     +++|**        SBL - SET BUFFER LIMITS.
00382  M01S00345.0av     +++|*
00383  M01S00346.0av     +++|*         ENTRY  (BUF - BUF+4) = CONTROL WORD FOR BLOCK.
00384  M01S00347.0av     +++|*
00385  M01S00348.0av     +++|*         EXIT   (T1) = FWA OF BLOCK FOR SEARCH.
00386  M01S00349.0av     +++|*                (T3) = LIMIT OF BLOCK FOR SEARCH.
00387  M01S00350.0av     +++|
00388  M01S00351.0av     +++|
00389  M01S00352.0av     +++| SBL      SUBR               ENTRY/ EXIT
00390  M01S00353.0av     +++|          LDM    BUF+4       SET FWA OF ENTRIES
00391  M01S00354.0av     +++|          SHN    2
00392  M01S00355.0av     +++|          ADM    BUF+4
00393  M01S00356.0av     +++|          ADC.   BUF
00394  M01S00357.0av     +++|          STD    T1
00395  M01S00358.0av     +++|          LDM    BUF+1       SET LIMIT OF ENTRIES
00396  M01S00359.0av     +++|          SHN    2
00397  M01S00360.0av     +++|          ADM    BUF+1
00398  M01S00361.0av     +++|          SBN    2*5
00399  M01S00362.0av     +++|          ADD    T1
00400  M01S00363.0av     +++|          STD    T3
00401  M01S00364.0av     +++|          UJN    SBLX        RETURN
00402  M01S00365.0av     +++| CFA      SPACE  4,10
00403  M01S00366.0av     +++|**        CFA - CHECK FAST ATTACH FILE.
00404  M01S00367.0av     +++|*
00405  M01S00368.0av     +++|*         ENTRY  (A) = SUBFUNCTION.
00406  M01S00369.0av     +++|*                (BUF) = FST WORD.
00407  M01S00370.0av     +++|*
00408  M01S00371.0av     +++|*         EXIT   (CM - CM+4) = RESPONSE FROM *AFAM* FUNCTION.
00409  M01S00372.0av     +++|*
00410  M01S00373.0av     +++|*         USES   CM - CM+4.
00411  M01S00374.0av     +++|*
00412  M01S00375.0av     +++|*         MACROS MONITOR.
00413  M01S00376.0av     +++|
00414  M01S00377.0av     +++|
00415  M01S00378.0av     +++| CFA      SUBR               ENTRY/EXIT
00416  M01S00379.0av     +++|          STD    CM+3        STORE SUBFUNCTION
00417  M01S00380.0av     +++| CFAA     LDN    0           (GLOBAL FAFT FLAG)
00418  M01S00381.0av     +++|          ZJN    CFA1        IF NOT GLOBAL FAST ATTACH FILE
00419  M01S00382.0av     +++|          LDD    T5
00420  M01S00002.ns2553  +++| CFAB     ADD    TH          IMMEDIATE RETURN IF INACCESSIBLE DEVICE
00421  M01S00003.ns2553  +++|*         PSN                (AFTER FILE IS ATTACHED)
00422  M01S00383.0av     +++| CFA1     STD    CM+1
00423  M01S00384.0av     +++|          MONITOR AFAM
00424  M01S00385.0av     +++|          UJN    CFAX        RETURN
00425  M01S00386.0av     +++|          SPACE  4,10
00426  M01S00387.0av     +++|*         COMMON DECKS.
00427  M01S00388.0av     +++|
00428  M01S00389.0av     +++|
00429  M01S00390.0av     +++|*CALL     COMPCRA
00430  M01S00391.0av     +++|          SPACE  4
00431  M01S00392.0av     +++|*         BUFFER.
00432  M01S00393.0av     +++|
00433  M01S00394.0av     +++|
00434  M01S00395.0av     +++| BUF      EQU    *+2
00435  M01S00396.0av     +++|          TITLE  PRESET.
Line S00397 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00436  M02S00397.0av1    ---| IVF      SPACE  4
00437  M01S00001.0av1    +++| IVF      SPACE  4,30
00438  M01S00398.0av     +++|**        IVF - INITIALIZE VALIDATION FILE.
00439  M01S00399.0av     +++|*
00440  M01S00400.0av     +++|*         ENTRY  (CN - CN+3) = FAMILY NAME.
00441  M01S00401.0av     +++|*                            = 0 IF NO FAMILY NAME.
Line S00402 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00402.0av1    ---|*                (UN - UN+3) = USER NUMBER.
00443  M01S00002.0av1    +++|*                (UN - UN+3) = USER NAME.
00444  M01S00403.0av     +++|*                (UN+4) = FUNCTION CODE.
00445  M01S00404.0av     +++|*
Line S00405 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00446  M02S00405.0av1    ---|*         EXIT   (T5)  EQUIPMENT.
00447  M01S00003.0av1    +++|*         EXIT   (T5) = EQUIPMENT.
00448  M01S00406.0av     +++|*                (T6) = FIRST TRACK.
00449  M01S00407.0av     +++|*                (T7) = FIRST SECTOR.
00450  M01S00408.0av     +++|*                (FTOV) = FIRST TRACK.
00451  M01S00409.0av     +++|*                *SETMS READ* PERFORMED.
00452  M01S00410.0av     +++|*                VALIDATION FILE ATTACHED.
Line S00411 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00411.0av1    ---|*         TO *VUN2* WITH (T1) = (T2) = (T4) = 0, IF ONE
Line S00004 Modification History
M01 (Added by) 0av1
M02 (Updated by) 0av2
Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00004.0av2    ---|*                TO *VUN2* WITH (T1) = (T2) = (T4) = 0, IF ONE
00455  M01S00009.0av2    +++|*                TO *VUN6* WITH (T1) = (T2) = (T4) = 0, IF ONE
00456  M01S00412.0av     +++|*                OF THE FOLLOWING IS TRUE-
Line S00413 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00457  M02S00413.0av1    ---|*                  -NO USER NUMBER IS PRESENT.
00458  M01S00005.0av1    +++|*                  -NO USER NAME IS PRESENT.
00459  M01S00414.0av     +++|*                  -THE VALIDATION FILE COULD NOT BE FOUND.
00460  M01S00415.0av     +++|*                  -THE VALIDATION FILE IS CURRENTLY BEING USED BY
Line S00416 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00461  M02S00416.0av1    ---|*                  MODVAL.
00462  M01S00006.0av1    +++|*                  *MODVAL*.
00463  M01S00417.0av     +++|*                  -AN *ORET* ERROR FLAG WAS SET WHILE WAITING FOR THE
00464  M01S00418.0av     +++|*                   VALIDATION FILE TO BECOME AVAILABLE.
00465  M01S00419.0av     +++|*
Line S00420 Modification History
M01 (Added by) 0av
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00466  M02S00420.ns21000 ---|*         USES   T1 - T7, CM - CM+4.
00467  M01S00001.ns21000 +++|*         USES   T1 - T7, CM - CM+4, CN - CN+4.
00468  M01S00421.0av     +++|*
00469  M01S00422.0av     +++|*         CALLS  FAT, CFA.
00470  M01S00423.0av     +++|*
Line S00424 Modification History
M01 (Added by) 0av
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00471  M02S00424.ns21000 ---|*         MACROS MONITOR, PAUSE, SETMS.
Line S00002 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00472  M02S00002.ns22000 ---|*         MACROS CFI, MONITOR, PAUSE, SETMS.
00473  M01S00017.ns22000 +++|*         MACROS CFI, MONITOR, PAUSE, SETMS, SFA.
00474  M01S00425.0av     +++|
00475  M01S00426.0av     +++|
00476  M01S00427.0av     +++| IVF      LDD    UN
Line S00428 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00477  M02S00428.0av1    ---|          NJN    IVF0        IF USER NUMBER PRESENT
Line S00429 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00478  M02S00429.0av1    ---|          LJM    IVF5        CLEAR USER INDEX
00479  M01S00007.0av1    +++|          NJN    IVF1        IF USER NAME PRESENT
00480  M01S00008.0av1    +++|          LJM    IVF7        CLEAR USER INDEX
00481  M01S00430.0av     +++|
Line S00431 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00431.0av1    ---| IVF0     LDD    UN+3        CLEAR USER NUMBER
00483  M01S00009.0av1    +++| IVF1     LDD    UN+3        CLEAR USER NAME
00484  M01S00432.0av     +++|          SCN    77
00485  M01S00433.0av     +++|          STD    UN+3
00486  M01S00434.0av     +++|
00487  M01S00435.0av     +++|*         LOCATE CORRECT VALIDATION FILE.
00488  M01S00436.0av     +++|
00489  M01S00437.0av     +++|          LDD    MA          SET FILE NAME
00490  M01S00438.0av     +++|          CWM    IVFB,ON
00491  M01S00439.0av     +++|          SBN    1
00492  M01S00440.0av     +++|          CRD    CM
00493  M01S00441.0av     +++|          LDD    CN
Line S00442 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00494  M02S00442.0av1    ---|          ZJN    IVF1        IF FAMILY NAME NOT SPECIFIED
00495  M01S00010.0av1    +++|          ZJN    IVF2        IF FAMILY NAME NOT SPECIFIED
00496  M01S00443.0av     +++|          SHN    -6
00497  M01S00444.0av     +++|          LMN    1R0
Line S00445 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00445.0av1    ---|          NJN    IVF3        IF NOT BLANK FAMILY NAME
00499  M01S00011.0av1    +++|          NJN    IVF4        IF NOT BLANK FAMILY NAME
00500  M01S00446.0av     +++|          LDC    PFNL
Line S00447 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00501  M02S00447.0av1    ---|          UJN    IVF2        USE SYSTEM DEFAULT FAMILY
00502  M01S00012.0av1    +++|          UJN    IVF3        USE SYSTEM DEFAULT FAMILY
00503  M01S00448.0av     +++|
00504  M01S00449.0av     +++|*         GET FAMILY NAME IF NOT GIVEN.
00505  M01S00450.0av     +++|
Line S00451 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00506  M02S00451.0av1    ---| IVF1     LDD    CP          FETCH FAMILY EQUIPMENT NUMBER
Line S00013 Modification History
M01 (Added by) 0av1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00013.ns22000 ---| IVF2     LDD    CP          FETCH FAMILY EQUIPMENT NUMBER
00508  M01S00018.ns22000 +++| IVF2     LDD    CP          FETCH FAMILY EST ORDINAL
00509  M01S00452.0av     +++|          ADN    PFCW
Line S00453 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00453.0av1    ---| IVF2     CRD    T1
00511  M01S00014.0av1    +++| IVF3     CRD    T1
Line S00454 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00454.ns22000 ---|          LDD    T4          READ EST ENTRY
Line S00455 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00455.ns22000 ---|          ADM    ESTS
00514  M01S00019.ns22000 +++|          SFA    EST,T4      READ EST ENTRY
00515  M01S00020.ns22000 +++|          ADK    EQDE
00516  M01S00456.0av     +++|          CRD    CN
00517  M01S00457.0av     +++|          LDD    CN+4        READ FAMILY NAME
00518  M01S00458.0av     +++|          SHN    3
00519  M01S00459.0av     +++|          ADN    PFGL
00520  M01S00460.0av     +++|          CRD    CN
Line S00461 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00521  M02S00461.0av1    ---| IVF3     RJM    FAT         FIND FAST ATTACH FILE
Line S00462 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00522  M02S00462.0av1    ---|          ZJN    IVF3.5      IF FOUND
Line S00463 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00523  M02S00463.0av1    ---|          LJM    IVF5        CLEAR USER INDEX
00524  M01S00015.0av1    +++| IVF4     RJM    FAT         FIND FAST ATTACH FILE
00525  M01S00016.0av1    +++|          ZJN    IVF5        IF FOUND
00526  M01S00017.0av1    +++|          LJM    IVF7        CLEAR USER INDEX
00527  M01S00464.0av     +++|
Line S00465 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00528  M02S00465.0av1    ---| IVF3.5   LDM    FATB        SET FWA OF FNT
00529  M01S00018.0av1    +++| IVF5     LDM    FATB        SET FWA OF FNT
00530  M01S00466.0av     +++|          STM    IVFA
00531  M01S00467.0av     +++|          LDM    FATB+1
00532  M01S00468.0av     +++|          STM    IVFA+1
00533  M01S00469.0av     +++|          CFI    FNT,T1      READ FST ENTRY
00534  M01S00470.0av     +++| IVFA     ADC    *           (FWA OF FNT)
00535  M01S00471.0av     +++|          CRD    CM
00536  M01S00472.0av     +++|          ADN    FSTG
00537  M01S00473.0av     +++|          CRD    T5
00538  M01S00003.ns21000 +++|          LDD    CM+3
00539  M01S00004.ns21000 +++|          LPN    77
00540  M01S00005.ns21000 +++|          RAM    CFAA
00541  M01S00009.242l642 +++|          SETMS  IO,(NS,RW)
00542  M01S00001.ns2776  +++|          LDM.   MSD
00543  M01S00002.ns2776  +++|          SHN    21-6
00544  M01S00010.242l642 +++|          MJP    VUNX        IF DEVICE INACCESSIBLE
00545  M01S00011.242l642 +++|          LDD    CM+4
00546  M01S00012.242l642 +++|          SHN    3
00547  M01S00013.242l642 +++|          ADN    TRLL        FETCH TRT ADDRESS
00548  M01S00014.242l642 +++|          CRD    CM
00549  M01S00015.242l642 +++|          LDD    CM+3
00550  M01S00016.242l642 +++|          LPN    77
00551  M01S00017.242l642 +++|          SHN    14
00552  M01S00018.242l642 +++|          LMD    CM+4        PRESET *COMPCRA*
00553  M01S00019.242l642 +++|          SBD    TH
00554  M01S00020.242l642 +++|          STM    CRAA+1
00555  M01S00021.242l642 +++|          SHN    -14
00556  M01S00022.242l642 +++|          RAM    CRAA
Line S00474 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00557  M02S00474.0av1    ---| IVF4     LDD    MA          STORE FILE NAME FOR *IAUM*
Line S00475 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00558  M02S00475.0av1    ---|          CWM    IVFB,ON
Line S00476 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00559  M02S00476.0av1    ---|          LDD    T1          SET FNT ORDINAL IN REQUEST
00560  M01S00019.0av1    +++| IVF6     LDD    T1          SET FNT ORDINAL IN REQUEST
00561  M01S00477.0av     +++|          STD    CM+4
00562  M01S00478.0av     +++|          STM    VUNB
Line S00479 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00563  M02S00479.0av1    ---|          LDD    T1          SET FNT ORDINAL IN REQUEST
Line S00480 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00564  M02S00480.0av1    ---|          STD    CM+4
00565  M01S00481.0av     +++|          LDD    UN+4
Line S00482 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00566  M02S00482.0av1    ---|          ZJN    IVF8        IF ATTACH IN READ/ALLOW MODIFY MODE
00567  M01S00020.0av1    +++|          ZJN    IVF9        IF ATTACH IN READ/ALLOW MODIFY MODE
00568  M01S00483.0av     +++|          LMN    1&0
Line S00484 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00569  M02S00484.0av1    ---|          ZJN    IVF7        IF ATTACH IN MODIFY MODE
Line S00021 Modification History
M01 (Added by) 0av1
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00570  M02S00021.ns21000 ---|          ZJN    IVF8        IF ATTACH IN MODIFY MODE
00571  M01S00006.ns21000 +++|          ZJN    IVF8        IF ATTACH IN NON-ROLLABLE UPDATE MODE
Line S00485 Modification History
M01 (Added by) 0av
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00572  M02S00485.241l630 ---|          MONITOR  HNGM      HANG PP
00573  M01S00001.241l630 +++|          LDC.   *           SET ADDRESS WHERE ERROR DETECTED
00574  M01S00002.241l630 +++|          STD    CM+1
00575  M01S00003.241l630 +++|          LDN    0           DO NOT SET AN ERROR FLAG
00576  M01S00004.241l630 +++|          STD    CM+2
00577  M01S00005.241l630 +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
Line S00486 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00578  M02S00486.0av1    ---| IVF5     LDN    ZERL        CLEAR USER INDEX
00579  M01S00022.0av1    +++| IVF7     LDN    ZERL        CLEAR USER INDEX
00580  M01S00487.0av     +++|          CRD    T0
Line S00488 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00581  M02S00488.ns22000 ---|          LJM    VUN2        EXIT
00582  M01S00021.ns22000 +++|          LJM    VUN6        EXIT
00583  M01S00489.0av     +++|
Line S00490 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00584  M02S00490.0av1    ---| IVF7     LDC.   VUNF        SET FWA OF DAYFILE MESSAGE
00585  M01S00023.0av1    +++| IVF8     LDC.   VUNF        SET FWA OF DAYFILE MESSAGE
00586  M01S00491.0av     +++|          STM    VUNA
Line S00492 Modification History
M01 (Added by) 0av
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00587  M02S00492.ns21000 ---|          LDN    PTNM&PTRM
00588  M01S00007.ns21000 +++|          LDC    4000+PTUP&PTRM  REQUEST NON-ROLLABLE UPDATE MODE
Line S00493 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00589  M02S00493.0av1    ---| IVF8     LMN    PTRM
00590  M01S00024.0av1    +++| IVF9     LMN    PTRM
00591  M01S00494.0av     +++|          STD    CM+2
00592  M01S00495.0av     +++|          STM    VUNC        SAVE FILE MODE FOR RETURNING FILE
Line S00496 Modification History
M01 (Added by) 0av
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00593  M02S00496.ns21000 ---|          LDD    CM+3
Line S00497 Modification History
M01 (Added by) 0av
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00497.ns21000 ---|          LPN    77
Line S00498 Modification History
M01 (Added by) 0av
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00595  M02S00498.ns21000 ---|          RAM    CFAA
00596  M01S00499.0av     +++|          LDN    AFAS        SET ATTACH FAST ATTACH FILE
00597  M01S00500.0av     +++|          RJM    CFA         CHECK FOR LOCAL/GLOBAL FAST ATTACH FILE
00598  M01S00501.0av     +++|          LDD    CM+1        CHECK RETURN STATUS
Line S00502 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00599  M02S00502.0av1    ---|          ZJN    IVF11       IF FILE ATTACHED
00600  M01S00025.0av1    +++|          ZJN    IVF12       IF FILE ATTACHED
00601  M01S00004.ns2553  +++|          SHN    21-11
00602  M01S00005.ns2553  +++|          MJP    VUNX        IF DEVICE INACCESSIBLE
00603  M01S00503.0av     +++|          LDD    CM+4
Line S00504 Modification History
M01 (Added by) 0av
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00604  M02S00504.ns21000 ---|          SHN    21-10
Line S00008 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00605  M02S00008.ns22000 ---|          SHN    21-1
Line S00505 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
M03 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00606  M03S00505.ns22000 ---|          PJN    IVF9        IF ATTACHED IN MODIFY MODE BY MODVAL
Line S00026 Modification History
M01 (Added by) 0av1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00607  M02S00026.ns22000 ---|          PJN    IVF10       IF ATTACHED IN MODIFY MODE BY *MODVAL*
00608  M01S00022.ns22000 +++|          LPN    2
00609  M01S00023.ns22000 +++|          ZJN    IVF10       IF ATTACHED IN MODIFY MODE BY *MODVAL*
00610  M01S00506.0av     +++|
00611  M01S00507.0av     +++|*         WAIT FOR OTHER *0AV* TO RELEASE VALIDATION FILE.
00612  M01S00508.0av     +++|
00613  M01S00509.0av     +++|          PAUSE
00614  M01S00510.0av     +++|          LDD    CM+1        CHECK ERROR FLAG
00615  M01S00511.0av     +++|          LMN    ORET
Line S00512 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00616  M02S00512.0av1    ---|          NJN    IVF10       IF NO ERROR
Line S00513 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00617  M02S00513.0av1    ---| IVF9     LDC    2L .        SET END OF ACCOUNTING MESSAGE
00618  M01S00027.0av1    +++|          NJN    IVF11       IF NO ERROR
Line S00028 Modification History
M01 (Added by) 0av1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00028.ns22000 ---| IVF10    LDC    2L .        SET END OF ACCOUNTING MESSAGE
00620  M01S00024.ns22000 +++| IVF10    STM    VUNF+3
00621  M01S00025.ns22000 +++|          LDC    2L .        SET END OF ACCOUNTING MESSAGE
00622  M01S00514.0av     +++|          STM    VUNF+2
Line S00515 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00515.ns22000 ---|          LDN    0
Line S00516 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00624  M02S00516.ns22000 ---|          STM    VUNF+3
Line S00517 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00625  M02S00517.0av1    ---|          LJM    IVF5        CLEAR USER INDEX
00626  M01S00029.0av1    +++|          LJM    IVF7        CLEAR USER INDEX
00627  M01S00518.0av     +++|
Line S00519 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00519.0av1    ---| IVF10    LDC    VFDL/2      DELAY
00629  M01S00030.0av1    +++| IVF11    LDC    VFDL/2      DELAY
00630  M01S00520.0av     +++|          SBN    1
00631  M01S00521.0av     +++|          PJN    *-1         IF NOT END OF DELAY
Line S00522 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00522.0av1    ---|          LJM    IVF4        RETRY ATTACH
00633  M01S00031.0av1    +++|          LJM    IVF6        RETRY ATTACH
00634  M01S00523.0av     +++|
Line S00524 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00524.0av1    ---| IVF11    LDD    T6          SET FIRST TRACK
Line S00032 Modification History
M01 (Added by) 0av1
M02 (Updated by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00032.ns2553  ---| IVF12    LDD    T6          SET FIRST TRACK
00637  M01S00006.ns2553  +++| IVF12    STM    CFAB
00638  M01S00007.ns2553  +++|          LDD    T6          SET FIRST TRACK
00639  M01S00525.0av     +++|          STM    FTOV
Line S00526 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00526.ns22000 ---|          LDD    T5          SET EQUIPMENT NUMBER
00641  M01S00026.ns22000 +++|          LDD    T5          SET EST ORDINAL
00642  M01S00527.0av     +++|          STD    CM+1
Line S00528 Modification History
M01 (Added by) 0av
M02 (Updated by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00528.ns2553  ---|          LDN    UTRS        UPDATE TRT FROM ECS
00644  M01S00008.ns2553  +++|          LDN    UTRS        GET CURRENT TRT
00645  M01S00529.0av     +++|          STD    CM+3
Line S00530 Modification History
M01 (Added by) 0av
M02 (Updated by) 0av1
Seq #  *Modification Id* Act 
----------------------------+
00646  M02S00530.0av1    ---|          MONITOR STBM
00647  M01S00033.0av1    +++|          MONITOR  STBM
Line S00531 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00648  M02S00531.242l642 ---|          SETMS  READ
Line S00532 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00649  M02S00532.242l642 ---|          LDD    CM+4
Line S00533 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00650  M02S00533.242l642 ---|          SHN    3
Line S00534 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
M03 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00651  M03S00534.242l642 ---|          ADN    MSTL
Line S00027 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00652  M02S00027.242l642 ---|          ADN    TRLL        GET FWA OF TRT
Line S00028 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00028.242l642 ---|          CRD    CM
Line S00029 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00654  M02S00029.242l642 ---|          LDD    CM+3
Line S00030 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00030.242l642 ---|          LPN    77
Line S00031 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00031.242l642 ---|          SHN    14
Line S00032 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00657  M02S00032.242l642 ---|          LMD    CM+4
Line S00535 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00658  M02S00535.242l642 ---|          SBD    TH
Line S00536 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00536.242l642 ---|          STM    CRAA+1
Line S00537 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00660  M02S00537.242l642 ---|          SHN    -14
Line S00538 Modification History
M01 (Added by) 0av
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00661  M02S00538.242l642 ---|          RAM    CRAA
00662  M01S00539.0av     +++|          LDN    FSMS        SET SECTOR
00663  M01S00540.0av     +++|          STD    T7
Line S00541 Modification History
M01 (Added by) 0av
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00541.ns22000 ---|          LJM    VUN1.0      RETURN
00665  M01S00033.ns22000 +++|          LJM    VUN1        RETURN
00666  M01S00542.0av     +++|
00667  M01S00543.0av     +++|
00668  M01S00544.0av     +++| IVFB     VFD    42/0L"APFN",6/0
Line S00545 Modification History
M01 (Added by) 0av
M02 (Updated by) ns2602
Seq #  *Modification Id* Act 
----------------------------+
00669  M02S00545.ns2602  ---|          SPACE  4
00670  M01S00001.ns2602  +++|          SPACE  4,10
00671  M01S00546.0av     +++|*         COMMON DECKS.
00672  M01S00547.0av     +++|
00673  M01S00548.0av     +++|
00674  M01S00549.0av     +++|*CALL     COMPFAT
Line S00550 Modification History
M01 (Added by) 0av
M02 (Updated by) ns2602
Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00550.ns2602  ---|          SPACE  4
00676  M01S00002.ns2602  +++|          SPACE  4,10
00677  M01S00003.ns2602  +++|*         ASSEMBLE REMOTE CODE.
00678  M01S00004.ns2602  +++|
00679  M01S00005.ns2602  +++|
00680  M01S00551.0av     +++|          HERE
Line S00552 Modification History
M01 (Added by) 0av
M02 (Updated by) ns2602
Seq #  *Modification Id* Act 
----------------------------+
00681  M02S00552.ns2602  ---|          SPACE  4
Line S00553 Modification History
M01 (Added by) 0av
M02 (Updated by) ns2602
Seq #  *Modification Id* Act 
----------------------------+
00682  M02S00553.ns2602  ---|          OVERFLOW 5,ZAVL
00683  M01S00006.ns2602  +++|          SPACE  4,10
00684  M01S00007.ns2602  +++|*         CHECK FOR OVERFLOW.
00685  M01S00554.0av     +++|
00686  M01S00008.ns2602  +++|
00687  M01S00009.ns2602  +++|          ERRPL  *-ZAVL      *0AV* OVERFLOWS CALLING PROGRAM
00688  M01S00010.ns2602  +++|
00689  M01S00555.0av     +++|          ERRNG  ZAVL-BUF-501 BUFFER OVERFLOWS CALLING PROGRAM
00690  M01S00556.0av     +++|          END
cdc/nos2.source/opl.opl871/deck/0av.txt ยท Last modified: by 127.0.0.1