User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:tfm.004

Deck TFM Part 004

23 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00005 Modification History
M01 (Added by) tfm20
Seq #  *Modification Id* Act 
----------------------------+
06921  M01S00005.tfm20   +++|         LPC     177
06922  M00S06157.tfm     +++|          LMN    /PRD/RXCS
06923  M00S06158.tfm     +++|          NJN    PRS2        IF NOT RESEX CP PRIORITY
06924  M00S06159.tfm     +++|          LDM    PRSA        SKIP PASSWORD CHECK
06925  M00S06160.tfm     +++|          STM    CAAB
06926  M00S06161.tfm     +++| PRS2     LJM    PRSX        RETURN
06927  M00S06162.tfm     +++|
06928  M00S06163.tfm     +++| PRSA     BSS    0
06929  M00S06164.tfm     +++|          LOC    CAAB
06930  M00S06165.tfm     +++|          UJN    CAA3        SKIP PASSWORD CHECK
06931  M00S06166.tfm     +++|          LOC    *O
06932  M00S06167.tfm     +++|          SPACE  4
06933  M00S06168.tfm     +++|          ERRNG  BUF1-*
06934  M00S06169.tfm     +++| RLF      SPACE  4,10
06935  M00S06170.tfm     +++|**        READ *HDR1* LABEL FROM USER-S FET.
06936  M00S06171.tfm     +++|*
06937  M00S06172.tfm     +++|*         ENTRY  (UDTA) = UDT ADDRESS.
06938  M00S06173.tfm     +++|*
06939  M00S06174.tfm     +++|*         EXIT   POFI UPDATED FROM USER-S FET.
06940  M00S06175.tfm     +++|*                PBSI UPDATED FROM USER-S FET.
06941  M00S06176.tfm     +++|*                PBQN UPDATED FROM USER-S FET.
06942  M00S06177.tfm     +++|*
06943  M00S06178.tfm     +++|*         USES   T1, T5, T6, T7, CM - CM+4, S1 - S1+4, S2 - S2+4
06944  M00S06179.tfm     +++|*
06945  M00S06180.tfm     +++|*         CALLS  CDB, ELA.
06946  M00S06181.tfm     +++|*
06947  M00S06182.tfm     +++|*         MACROS ERROR, UDTRD.
06948  M00S06183.tfm     +++|
06949  M00S06184.tfm     +++|
06950  M00S06185.tfm     +++| RLF      SUBR               ENTRY/EXIT
06951  M00S06186.tfm     +++|          UDTRD  S1,/MTX/UCIB,1  FET OPTIONS
06952  M00S06187.tfm     +++|          UDTRD  CM,/MTX/UCIA,1  FET ADDRESS
06953  M00S06188.tfm     +++|          LDD    S1+1
06954  M00S06189.tfm     +++|          SHN    21-5
06955  M00S06190.tfm     +++|          PJP    RLF8        IF NOT EXTENDED LABELS
06956  M00S06191.tfm     +++|          LDN    0
06957  M00S06192.tfm     +++|          STD    T6
06958  M00S06193.tfm     +++|          STD    T7
06959  M00S06194.tfm     +++| RLF1     RJM    ELA         SEARCH FOR *HDR1* LABEL
06960  M00S06195.tfm     +++|          ZJN    RLF3        IF END OF LABEL BUFFER
06961  M00S06196.tfm     +++|          CRD    S1
06962  M00S06197.tfm     +++|          ADN    1
06963  M00S06198.tfm     +++|          CRD    S2
06964  M00S06199.tfm     +++|          LDD    S1+4
06965  M00S06200.tfm     +++|          ZJN    RLF3        IF END OF LABELS IN BUFFER
06966  M00S06201.tfm     +++|          LMC    80D
06967  M00S06202.tfm     +++|          NJN    RLF3        IF NOT CORRECT LENGTH
06968  M00S06203.tfm     +++|          LDD    S2
06969  M00S06204.tfm     +++|          LMC    2RHD
06970  M00S06205.tfm     +++|          NJN    RLF2        IF NOT *HDR1* LABEL
06971  M00S06206.tfm     +++|          LDD    S2+1
06972  M00S06207.tfm     +++|          LMC    2RR1
06973  M00S06208.tfm     +++|          ZJN    RLF4        IF LABEL IS *HDR1*
06974  M00S06209.tfm     +++| RLF2     LDN    11          INCREMENT LABEL POINTER
06975  M00S06210.tfm     +++|          RAD    T7
06976  M00S06211.tfm     +++|          SHN    -14
06977  M00S06212.tfm     +++|          RAD    T6
06978  M00S06213.tfm     +++|          UJN    RLF1        CONTINUE SEARCH
06979  M00S06214.tfm     +++|
06980  M00S06215.tfm     +++| RLF3     ERROR  BAE         *BUFFER ARGUMENT ERROR.*
06981  M00S06216.tfm     +++|
06982  M00S06217.tfm     +++| RLF4     LDN    10          READ *HDR1* LABEL
06983  M00S06218.tfm     +++|          STD    T5
06984  M00S06219.tfm     +++|          RJM    ELA         SEARCH FOR *HDR1* LABEL
06985  M00S06220.tfm     +++|          ADN    1           OFFSET RECORD LENGTH
06986  M00S06221.tfm     +++|          CRM    BUF0,T5
06987  M00S06222.tfm     +++|          MMOVE  BUF0+2,,POFI,,FIKL
06988  M00S06223.tfm     +++|          LDN    2           MOVE SET-ID WITH SHIFT
06989  M00S06224.tfm     +++|          STD    T7
06990  M00S06225.tfm     +++| RLF5     LDM    BUF0+10D,T7 HIGH ORDER BYTE
06991  M00S06226.tfm     +++|          LPN    77
06992  M00S06227.tfm     +++|          SHN    14
06993  M00S06228.tfm     +++|          LMM    BUF0+11D,T7 LOW ORDER BYTE
06994  M00S06229.tfm     +++|          SHN    14
06995  M00S06230.tfm     +++|          STM    PBSI,T7
06996  M00S06231.tfm     +++|          SOD    T7
06997  M00S06232.tfm     +++|          PJN    RLF5        IF MOVE NOT COMPLETE
06998  M00S06233.tfm     +++|          LDM    PBQN        CLEAR PBQN
06999  M00S06234.tfm     +++|          SCN    77
07000  M00S06235.tfm     +++|          STM    PBQN
07001  M00S06236.tfm     +++|          LDC    14S12+BUF0+15D
07002  M00S06237.tfm     +++|          RJM    CDB         CONVERT DECIMAL TO BINARY
Line S06238 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07003  M01S06238.274l797 ---| RLS6     STM    PBQN+1      SAVE FILE SEQUENCE NUMBER
Line S00267 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07004  M01S00267.274l797 +++|          STM    PBQN+1      SAVE FILE SEQUENCE NUMBER
07005  M00S06239.tfm     +++|          SHN    -14
07006  M00S06240.tfm     +++|          RAM    PBQN
07007  M00S06241.tfm     +++|          LPN    77
07008  M00S06242.tfm     +++|          SHN    14
07009  M00S06243.tfm     +++|          ADM    PBQN+1
07010  M00S06244.tfm     +++|          LMC    9999D
Line S06245 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07011  M01S06245.274l797 ---|          NJN    RLS7        IF NOT EXTENSION
Line S00268 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07012  M01S00268.274l797 +++|          NJN    RLF7        IF NOT EXTENSION
07013  M00S06246.tfm     +++|          LDM    PBTO+1      SET *TO=A*
07014  M00S06247.tfm     +++|          SCN    1S5
07015  M00S06248.tfm     +++|          LMN    1S5
07016  M00S06249.tfm     +++|          STM    PBTO+1
Line S06250 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07017  M01S06250.274l797 ---| RLS7     LJM    RLFX        RETURN
Line S00269 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07018  M01S00269.274l797 +++| RLF7     LJM    RLFX        RETURN
07019  M00S06251.tfm     +++|
07020  M00S06252.tfm     +++| RLF8     LDN    4
07021  M00S06253.tfm     +++|          STD    T1
07022  M00S06254.tfm     +++|          LDA    CM+3,ABS
07023  M00S06255.tfm     +++|          SBN    2
07024  M00S06256.tfm     +++|          PJN    RLF10       IF FET IN BOUNDS
07025  M00S06257.tfm     +++| RLF9     LJM    RLF3        BUFFER ARGUMENT ERROR
07026  M00S06258.tfm     +++|
07027  M00S06259.tfm     +++| RLF10    ADC    77+2+15
07028  M00S06260.tfm     +++|          SHN    -6
07029  M00S06261.tfm     +++|          SBD    FL
07030  M00S06262.tfm     +++|          PJN    RLF9        IF FET OUT OF BOUNDS
07031  M00S06263.tfm     +++|          LDA    CM+3,REL
07032  M00S06264.tfm     +++|          ADN    11
07033  M00S06265.tfm     +++|          CRM    BUF0,T1
07034  M00S06266.tfm     +++|          MMOVE  BUF0,,POFI,,FIKL
07035  M00S06267.tfm     +++|          MMOVE  BUF0+15,,PBSI,,6
07036  M00S06268.tfm     +++|          LDM    PBQN
07037  M00S06269.tfm     +++|          SCN    77
07038  M00S06270.tfm     +++|          STM    PBQN
07039  M00S06271.tfm     +++|          LDC    13S12+BUF0+8D
07040  M00S06272.tfm     +++|          RJM    CDB         CONVERT DECIMAL TO BINARY
07041  M00S06273.tfm     +++|          ADC    -999D
07042  M00S06274.tfm     +++|          NJN    RLF11       IF NOT *POSMF 9999*
07043  M00S06275.tfm     +++|          LDC    9000D
07044  M00S06276.tfm     +++| RLF11    LJM    RLF5        STORE FILE SEQUENCE NUMBER
07045  M00S06277.tfm     +++|          SPACE  4,10
07046  M00S06278.tfm     +++|          ERRNG  BUF0-*
07047  M00S06279.tfm     +++|          SPACE  4
Line S06280 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07048  M01S06280.274l797 ---|          OVERLAY  (SUBFUNCTIONS UCES, VTLS.),OVL1
Line S00270 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07049  M01S00270.274l797 +++|          OVERLAY (VERIFY TAPE LABELS / UPDATE CATALOG ENTRY.),OVL1
07050  M00S06281.tfm     +++|          SPACE  4,10
07051  M00S06282.tfm     +++|***       DIRECT CELLS.
07052  M00S06283.tfm     +++|
07053  M00S06284.tfm     +++|
07054  M00S06285.tfm     +++| FV       EQU    S1 - S1+2   FIRST VOLUME
07055  M00S06286.tfm     +++| RC       EQU    S1+3        REEL COUNT
07056  M00S06287.tfm     +++| CN       EQU    S2 - S2+4   SCRATCH
07057  M00S06288.tfm     +++| FE       EQU    CN+1 - CN+2 FINAL CATALOG ENTRY
07058  M00S06289.tfm     +++| CB       EQU    CN+3 - CN+4 CURRENT CATALOG ENTRY
07059  M00S06290.tfm     +++| VTL      SPACE  4,10
07060  M00S06291.tfm     +++|***       VTL - VERIFY TAPE LABELS.
07061  M00S06292.tfm     +++|*
07062  M00S06293.tfm     +++|*         VTL COMPARES THE TAPE LABELS WITH THE CATALOG ENTRY TO ENSURE
07063  M00S06294.tfm     +++|*         THAT THE TAPE HAD NOT BEEN MODIFIED IF IT HAD BEEN REMOVED
07064  M00S06295.tfm     +++|*         FROM THE CONTROL OF THE TAPE MANAGEMENT SYSTEM.
07065  M00S06296.tfm     +++|*
07066  M00S06297.tfm     +++|*         ENTRY  PARAMETER BLOCK SET UP BY GUO.
07067  M00S06298.tfm     +++|*
07068  M00S06299.tfm     +++|*         EXIT   CATALOG ENTRY VERIFIED.
07069  M00S06300.tfm     +++|*
07070  M00S06301.tfm     +++|*         CALLS  FCE, MCE, VCE.
07071  M00S06302.tfm     +++|
07072  M00S06303.tfm     +++|
07073  M00S06304.tfm     +++| VTL      ENTRY              ENTRY/EXIT
07074  M00S06305.tfm     +++|          RJM    FCE         FIND CATALOG ENTRY
07075  M00S06306.tfm     +++|          ZJN    VTLX        IF CATALOG NOT FOUND
07076  M00S06307.tfm     +++|          RJM    CPC         CHECK FOR PURGED CATALOGS
07077  M00S06308.tfm     +++|          LDM    CBSI,BP     CHECK FOR ORIGINAL TMS CATALOG ENTRY
07078  M00S06309.tfm     +++|          ZJN    VTL1        IF SETID NOT SPECIFIED
Line S06310 Modification History
M01 (Removed by) t5519
Seq #  *Modification Id* Act 
----------------------------+
07079  M01S06310.t5519   ---|          LDM    CBLD,BP
Line S00084 Modification History
M01 (Added by) t5519
Seq #  *Modification Id* Act 
----------------------------+
07080  M01S00084.t5519   +++|          LDM    CBLD+2,BP   CHECK RETENTION DATE
07081  M01S00085.t5519   +++|          LPN    77
07082  M00S06311.tfm     +++|          ZJN    VTL1        IF RETENTION DATE NOT SPECIFIED
07083  M00S06312.tfm     +++|          LDM    CBST,BP     CHECK FOR RECOVERED FILE
07084  M00S06313.tfm     +++|          LPC    2000
07085  M00S06314.tfm     +++|          ZJN    VTL2        IF NOT RECOVERED FILE
07086  M00S06315.tfm     +++| VTL1     RJM    UCT         UPDATE CATALOG ENTRY FROM TAPE LABEL
07087  M00S06316.tfm     +++|          UJN    VTLX        RETURN
07088  M00S06317.tfm     +++|
07089  M00S06318.tfm     +++| VTL2     RJM    VCE         VERIFY CATALOG ENTRY
07090  M00S06319.tfm     +++|          UJN    VTLX        RETURN
07091  M00S06320.tfm     +++| UCE      SPACE  4,10
07092  M00S06321.tfm     +++|***       UCES - UPDATE CATALOG ENTRY SUBFUNCTION.
07093  M00S06322.tfm     +++|*
07094  M00S06323.tfm     +++|*         UPDATE THE CATALOG ENTRY TO MATCH THE INFORMATION WRITTEN ON
07095  M00S06324.tfm     +++|*         THE TAPE.
07096  M00S06325.tfm     +++|*
07097  M00S06326.tfm     +++|*         ENTRY  PARAMETER BLOCK SET UP BY *GUO*.
07098  M00S06327.tfm     +++|*
07099  M00S06328.tfm     +++|*         EXIT   CATALOG ENTRY UPDATED.
07100  M00S06329.tfm     +++|*
07101  M00S06330.tfm     +++|*         CALLS  FCE, UCT.
07102  M00S06331.tfm     +++|
07103  M00S06332.tfm     +++|
07104  M00S06333.tfm     +++| UCE      ENTRY              ENTRY/EXIT
07105  M00S06334.tfm     +++|          RJM    FCE         FIND CATALOG ENTRY
07106  M00S06335.tfm     +++|          ZJN    UCEX        IF NOT FOUND
07107  M00S06336.tfm     +++|          RJM    UCT         UPDATE CATALOG ENTRY FROM TAPE LABEL
07108  M00S06337.tfm     +++|          UJN    UCEX        RETURN
Line S06338 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07109  M01S06338.274l797 ---|          TITLE  ".Y." - SUBROUTINES.
Line S00271 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07110  M01S00271.274l797 +++|          TITLE  SUBROUTINES.
07111  M00S06339.tfm     +++| CPC      SPACE  4,10
07112  M00S06340.tfm     +++|**        CPC - CHECK TO PURGE CATALOGS.
07113  M00S06341.tfm     +++|*
07114  M00S06342.tfm     +++|*         ENTRY  (UTMS+2) = TAPE WRITTEN ON.
07115  M00S06343.tfm     +++|*                (CI - RI+1) = CURRENT TAPE CATALOG.
07116  M00S06344.tfm     +++|*                (CB - CB+1) = *UTCI* CURRENT CATALOG.
07117  M00S06345.tfm     +++|*
07118  M00S06346.tfm     +++|*         EXIT   TO *RDC* IF TAPE WRITTEN ON AND CURRENT CATALOG
07119  M00S06347.tfm     +++|*                POINTERS DO NOT MATCH.
07120  M00S06348.tfm     +++|*
07121  M00S06349.tfm     +++|*         CALLS  CPF.
07122  M00S06350.tfm     +++|
07123  M00S06351.tfm     +++|
07124  M00S06352.tfm     +++| CPC      SUBR               ENTRY/EXIT
07125  M00S06353.tfm     +++|          LDM    UTMS+2
07126  M00S06354.tfm     +++|          ZJN    CPCX        IF NOT WRITTEN ON
07127  M00S06355.tfm     +++|          LDD    CI          COMPARE CATALOG ENTRIES
07128  M00S06356.tfm     +++|          SHN    6
07129  M00S06357.tfm     +++|          LMD    RI          (A) = CURRENT TAPE CATALOG
07130  M00S06358.tfm     +++|          LMD    CB
07131  M00S06359.tfm     +++|          NJN    CPC1        IF NOT SAME CATALOG
07132  M00S06360.tfm     +++|          LDD    RI+1
07133  M00S06361.tfm     +++|          LMD    CB+1
07134  M00S06362.tfm     +++|          ZJN    CPCX        IF SAME CATALOG
07135  M00S06363.tfm     +++| CPC1     LDM    UTMS+4      RE-ISSUE CURRENT REQUEST
07136  M00S06364.tfm     +++|          SCN    RSRR
07137  M00S06365.tfm     +++|          LMN    RSRR
07138  M00S06366.tfm     +++|          STM    UTMS+4
07139  M00S06367.tfm     +++|          EXOVL  PEC         PURGE EXCESS CATALOG ENTRIES
07140  M00S06368.tfm     +++| CTC      SPACE  4,10
07141  M00S06369.tfm     +++|**        CTC - COMPLETE *MAGNET* *TFM* CALL.
07142  M00S06370.tfm     +++|*
07143  M00S06371.tfm     +++|*         ENTRY  NONE.
07144  M00S06372.tfm     +++|*
07145  M00S06373.tfm     +++|*         EXIT   *TFM* REQUEST FLAG CLEARED, AND NORMAL COMPLETION
07146  M00S06374.tfm     +++|*                SET IN *UDT*.  EXIT IS TO *DPP*.
07147  M00S06375.tfm     +++|*
07148  M00S06376.tfm     +++|*         MACROS UDTWT.
07149  M00S06377.tfm     +++|
07150  M00S06378.tfm     +++|
07151  M00S06379.tfm     +++| CTC      ENTRY              ENTRY
07152  M00S06380.tfm     +++|          LDM    UTMS+4      CLEAR TFM REQUEST FLAG
07153  M00S06381.tfm     +++|          SCN    RSIL
07154  M00S06382.tfm     +++|          STM    UTMS+4
07155  M00S06383.tfm     +++|          UDTWT  UTMS,/MTX/UTMS,1
07156  M00S06384.tfm     +++|          LDN    ZERL        SET NORMAL COMPLETION
07157  M00S06385.tfm     +++|          CRD    CM
07158  M00S06386.tfm     +++|          LDN    /MTX/NCP
07159  M00S06387.tfm     +++|          STD    CM
07160  M00S06388.tfm     +++|          UDTWT  CM,/MTX/UXRQ,1
07161  M00S06389.tfm     +++|          LJM    DPP         EXIT PP
07162  M00S06390.tfm     +++| FCE      SPACE  4,10
07163  M00S06391.tfm     +++|**        FCE - FIND CATALOG ENTRY.
07164  M00S06392.tfm     +++|*
07165  M00S06393.tfm     +++|*         ENTRY  PARAMETER BLOCK SET UP BY *GUO*.
07166  M00S06394.tfm     +++|*
07167  M00S06395.tfm     +++|*         EXIT   (A) = 0 IF CATALOG ENTRY NOT FOUND.
07168  M00S06396.tfm     +++|*                (CB - CB+1) = CURRENT CATALOG ENTRY.
07169  M00S06397.tfm     +++|*                (FE - FE+1) = *POSMF* CATALOG ENTRY.
07170  M00S06398.tfm     +++|*
07171  M00S06399.tfm     +++|*         USES   CI, KA, RC, CM - CM+4, CN - CN+4,
07172  M00S06400.tfm     +++|*                FV - FV+2, R1 - RI+1.
07173  M00S06401.tfm     +++|*
07174  M00S06402.tfm     +++|*         CALLS  RRP, VIS, VSP.
07175  M00S06403.tfm     +++|*
07176  M00S06404.tfm     +++|*         MACROS COMPARE, ERROR, MMOVE, SAVEP, UDTRD.
07177  M00S06405.tfm     +++|
07178  M00S06406.tfm     +++|
07179  M00S06407.tfm     +++| FCE11    LDN    0           CATALOG ENTRY NOT FOUND
07180  M00S06408.tfm     +++|
07181  M00S06409.tfm     +++| FCE      SUBR               ENTRY/EXIT
07182  M00S06410.tfm     +++|          LDC    PESN
07183  M00S06411.tfm     +++|          STD    KA
07184  M00S06412.tfm     +++|          RJM    VIS         VSN INDEXED SEARCH
07185  M00S06413.tfm     +++|          NJN    FCE11       IF NOT FOUND
07186  M00S06414.tfm     +++|          LDM    VBRC,BP
07187  M00S06415.tfm     +++|          SHN    -6
07188  M00S06416.tfm     +++|          STD    RC
07189  M00S06417.tfm     +++|          UDTRD  POFI,/MTX/UFID,2  READ FILE IDENTIFIER
07190  M00S06418.tfm     +++|          UDTRD  CM,/MTX/USID,1  READ SEQUENCE NUMBER
07191  M00S06419.tfm     +++|          LDM    PBQN
07192  M00S06420.tfm     +++|          SCN    77
07193  M00S06421.tfm     +++|          STM    PBQN
07194  M00S06422.tfm     +++|          LDD    CM+3
07195  M00S06423.tfm     +++|          LPN    77
07196  M00S06424.tfm     +++|          RAM    PBQN
07197  M00S06425.tfm     +++|          LDD    CM+4
07198  M00S06426.tfm     +++|          STM    PBQN+1
07199  M00S06427.tfm     +++|          UDTRD  PBCR,/MTX/UDAT,1  READ CREATION AND RETENTION DATES
07200  M00S06428.tfm     +++|          MMOVE  VBFV,BP,FV,,VSKL
07201  M00S06429.tfm     +++|          COMPARE  PESN,,FV,,VSKL
07202  M00S06430.tfm     +++|          ZJN    FCE1        IF FIRST VOLUME
07203  M00S06431.tfm     +++|          LDN    FV          READ FIRST VOLUME
07204  M00S06432.tfm     +++|          STD    KA
07205  M00S06433.tfm     +++|          RJM    VIS         READ FIRST VOLUME
07206  M00S06434.tfm     +++|          NJN    FCE2        IF VSN NOT FOUND
07207  M00S06435.tfm     +++| FCE1     LDM    VBCI,BP     SEARCH FOR CATALOG ENTRY
07208  M00S06436.tfm     +++|          NJN    FCE3        IF CATALOG ENTRY FOUND
07209  M00S06437.tfm     +++| FCE2     ERROR  EID         *ERROR IN INDEX DATA.*
07210  M00S06438.tfm     +++|
07211  M00S06439.tfm     +++| FCE3     SHN    14          SET POINTERS TO CATALOG
07212  M00S06440.tfm     +++|          STD    CI
07213  M00S06441.tfm     +++|          SHN    -14
07214  M00S06442.tfm     +++|          STD    RI
07215  M00S06443.tfm     +++|          LDM    VBCI+1,BP
07216  M00S06444.tfm     +++|          STD    RI+1
07217  M00S06445.tfm     +++|          LDC    BUF2
07218  M00S06446.tfm     +++|          STD    BA
07219  M00S06447.tfm     +++| FCE4     RJM    RRP         GET CATALOG BLOCK
07220  M00S06448.tfm     +++| FCE5     RJM    VSP         VERIFY/SET CATALOG POINTERS
Line S06449 Modification History
M01 (Removed by) nos252
Seq #  *Modification Id* Act 
----------------------------+
07221  M01S06449.nos252  ---|          MJN    FCE2        IF INVALID POINTERS
Line S00061 Modification History
M01 (Added by) nos252
Seq #  *Modification Id* Act 
----------------------------+
07222  M01S00061.nos252  +++|          MJN    FCE2        IF INCORRECT POINTERS
07223  M00S06450.tfm     +++|          LDM    PBQN        CHECK FOR CURRENT CATALOG
07224  M00S06451.tfm     +++|          LMM    CBQN,BP
07225  M00S06452.tfm     +++|          LPN    77
07226  M00S06453.tfm     +++|          NJN    FCE6        IF NOT CURRENT CATALOG
07227  M00S06454.tfm     +++|          LDM    PBQN+1
07228  M00S06455.tfm     +++|          LMM    CBQN+1,BP
07229  M00S06456.tfm     +++|          ZJN    FCE7        IF CURRENT CATALOG (TO FCE10)
07230  M00S06457.tfm     +++| FCE6     LDA    CBQN,BP
07231  M00S06458.tfm     +++|          LMC    9999D
07232  M00S06459.tfm     +++| FCE7     ZJN    FCE10       IF CATALOG CREATED BY *POSMF*
07233  M00S06460.tfm     +++|          LDM    CBNC,BP
07234  M00S06461.tfm     +++|          NJN    FCE8        IF NEXT CATALOG EXISTS
07235  M00S06462.tfm     +++|          ERROR  MPE         *MULTI-FILE PROCESSING ERROR.*
07236  M00S06463.tfm     +++|
07237  M00S06464.tfm     +++| FCE8     SHN    14          SET NEXT CATALOG POINTER
07238  M00S06465.tfm     +++|          STD    CI
07239  M00S06466.tfm     +++|          SHN    -14
07240  M00S06467.tfm     +++|          LMD    RI
07241  M00S06468.tfm     +++|          NJN    FCE9        IF NOT IN CURRENT BLOCK
07242  M00S06469.tfm     +++|          LDM    CBNC+1,BP
07243  M00S06470.tfm     +++|          LMD    RI+1
07244  M00S06471.tfm     +++|          ZJP    FCE5        IF CURRENT BLOCK
07245  M00S06472.tfm     +++| FCE9     LDM    CBNC,BP
07246  M00S06473.tfm     +++|          LPN    77
07247  M00S06474.tfm     +++|          STD    RI
07248  M00S06475.tfm     +++|          LDM    CBNC+1,BP
07249  M00S06476.tfm     +++|          STD    RI+1
07250  M00S06477.tfm     +++|          LJM    FCE4        READ NEXT CATALOG ENTRY
07251  M00S06478.tfm     +++|
07252  M00S06479.tfm     +++| FCE10    UDTRD  CN,/MTX/UTCI,1  READ (FE - FE+1), (CB - CB+1)
07253  M00S06480.tfm     +++|          SAVEP  CPCB        SAVE CATALOG BUFFER POINTERS
07254  M00S06481.tfm     +++|          LJM    FCEX        RETURN
07255  M00S06482.tfm     +++| SBS      SPACE  4,10
07256  M00S06483.tfm     +++|**        SBS - SET BUSY STATUS.
07257  M00S06484.tfm     +++|*
07258  M00S06485.tfm     +++|*         SET CATALOG BUSY ON THE CURRENT CATALOG ENTRY, AND CLEAR
07259  M00S06486.tfm     +++|*         CATALOG BUSY ON THE PREVIOUS CATALOG ENTRY.
07260  M00S06487.tfm     +++|*
07261  M00S06488.tfm     +++|*         ENTRY  (BA - RI+1) = CURRENT CATALOG ENTRY POINTERS.
07262  M00S06489.tfm     +++|*                (CB - CB+1) = LAST CATALOG ENTRY RANDOM INDEX.
07263  M00S06490.tfm     +++|*
07264  M00S06491.tfm     +++|*         EXIT   BUSY STATUS SET.
07265  M00S06492.tfm     +++|*                CATALOG ENTRIES WRITTEN.
07266  M00S06493.tfm     +++|*
07267  M00S06494.tfm     +++|*         USES   CI, CB - CB+1, FE - FE+1, RI - RI+1.
07268  M00S06495.tfm     +++|*
07269  M00S06496.tfm     +++|*         CALLS  RRP, VSP, WRP.
07270  M00S06497.tfm     +++|*
07271  M00S06498.tfm     +++|*         MACROS ERROR, UDTWT.
07272  M00S06499.tfm     +++|
07273  M00S06500.tfm     +++|
07274  M00S06501.tfm     +++| SBS      SUBR               ENTRY/EXIT
07275  M00S06502.tfm     +++|          LDM    CBST,BP     SET BUSY STATUS
07276  M00S06503.tfm     +++|          SCN    1
07277  M00S06504.tfm     +++|          LMN    1
07278  M00S06505.tfm     +++|          STM    CBST,BP
07279  M00S06506.tfm     +++|          LDD    CB
07280  M00S06507.tfm     +++|          LMD    RI
07281  M00S06508.tfm     +++|          LPN    77
07282  M00S06509.tfm     +++|          NJN    SBS1        IF DIFFERENT CATALOG BLOCKS
07283  M00S06510.tfm     +++|          LDD    CB+1
07284  M00S06511.tfm     +++|          LMD    RI+1
07285  M00S06512.tfm     +++|          NJN    SBS1        IF DIFFERENT CATALOG BLOCKS
07286  M00S06513.tfm     +++|          LDD    CB
07287  M00S06514.tfm     +++|          SHN    -6
07288  M00S06515.tfm     +++|          LMD    CI
07289  M00S06516.tfm     +++|          ZJN    SBS4        IF SAME CATALOG ENTRY
07290  M00S06517.tfm     +++|          UJN    SBS2        CLEAR BUSY FLAG
07291  M00S06518.tfm     +++|
07292  M00S06519.tfm     +++| SBS1     RJM    WRP         WRITE RANDOM PRU (CATALOG)
07293  M00S06520.tfm     +++|          LDD    CB+1
07294  M00S06521.tfm     +++|          STM    RI+1
07295  M00S06522.tfm     +++|          LDD    CB
07296  M00S06523.tfm     +++|          LPN    77
07297  M00S06524.tfm     +++|          STD    RI
07298  M00S06525.tfm     +++|          RJM    RRP         GET INITIAL BLOCK (CATALOG)
07299  M00S06526.tfm     +++| SBS2     LDD    CB
07300  M00S06527.tfm     +++|          SHN    -6
07301  M00S06528.tfm     +++|          STD    CI
07302  M00S06529.tfm     +++|          RJM    VSP         VERIFY/SET CATALOG POINTERS
07303  M00S06530.tfm     +++|          PJN    SBS3        IF NO ERROR
07304  M00S06531.tfm     +++|          ERROR  MPE         *MULTI-FILE PROCESSING ERROR.*
07305  M00S06532.tfm     +++|
07306  M00S06533.tfm     +++| SBS3     LDM    CBST,BP
07307  M00S06534.tfm     +++|          SCN    1
07308  M00S06535.tfm     +++|          STM    CBST,BP
07309  M00S06536.tfm     +++| SBS4     RJM    WRP         WRITE RANDOM PRU
07310  M00S06537.tfm     +++|          LDM    CPCB+2      SET NEW CATALOG INDEX
07311  M00S06538.tfm     +++|          SHN    6
07312  M00S06539.tfm     +++|          LMM    CPCB+3
07313  M00S06540.tfm     +++|          STD    CB
07314  M00S06541.tfm     +++|          LDM    CPCB+4
07315  M00S06542.tfm     +++|          STD    CB+1
07316  M00S06543.tfm     +++|          LDD    FE
07317  M00S06544.tfm     +++|          LMD    CB
07318  M00S06545.tfm     +++|          NJN    SBS5        IF *POSMF* NOT COMPLETE
07319  M00S06546.tfm     +++|          LDD    FE+1
07320  M00S06547.tfm     +++|          LMD    CB+1
07321  M00S06548.tfm     +++|          NJN    SBS5        IF *POSMF* NOT COMPLETE
07322  M00S06549.tfm     +++|          STD    FE
07323  M00S06550.tfm     +++|          STD    FE+1
07324  M00S06551.tfm     +++| SBS5     UDTWT  CN,/MTX/UTCI,1  UPDATE CATALOG INDICIES IN UDT
07325  M00S06552.tfm     +++|          LJM    SBSX        RETURN
07326  M00S06553.tfm     +++| UCT      SPACE  4,10
07327  M00S06554.tfm     +++|**        UCT - UPDATE CATALOG ENTRY FROM TAPE LABEL.
07328  M00S06555.tfm     +++|*
07329  M00S06556.tfm     +++|*         ENTRY  (BA - RI+1) = CATALOG ENTRY POINTERS.
07330  M00S06557.tfm     +++|*
07331  M00S06558.tfm     +++|*         EXIT   CATALOG UPDATED.
07332  M00S06559.tfm     +++|*
07333  M00S06560.tfm     +++|*         CALLS  SBS.
07334  M00S06561.tfm     +++|*
07335  M00S06562.tfm     +++|*         MACROS CMOVE, COMPARE, ERROR, RESTP.
07336  M00S06563.tfm     +++|
07337  M00S06564.tfm     +++|
07338  M00S06565.tfm     +++| UCT      SUBR               ENTRY/EXIT
07339  M00S06566.tfm     +++|          LDN    0           CLEAR DIFFERENCES CELL FOR *CMOVE*
07340  M00S06567.tfm     +++|          STD    T3
07341  M00S06568.tfm     +++|          LDM    UTMS+3      CHECK FOR FIRST *HDR1* OF VOLUME
07342  M00S06569.tfm     +++|          LPC    WUFL
07343  M00S06570.tfm     +++|          ZJN    UCT1        IF NOT FIRST LABEL OF VOLUME
07344  M00S06571.tfm     +++|          LMM    UTMS+3      CLEAR FIRST *HDR1* FLAG
07345  M00S06572.tfm     +++|          STM    UTMS+3
07346  M00S06573.tfm     +++|          LJM    UCT2        UPDATE CATALOG
07347  M00S06574.tfm     +++|
07348  M00S06575.tfm     +++| UCT1     LDM    CBSN,BP     SET SEQUENCE NUMBER
07349  M00S06576.tfm     +++|          SCN    77
07350  M00S06577.tfm     +++|          STM    CBSN,BP
07351  M00S06578.tfm     +++|          LDM    PBSN
07352  M00S06579.tfm     +++|          LPN    77
07353  M00S06580.tfm     +++|          RAM    CBSN,BP
07354  M00S06581.tfm     +++|          LDM    PBSN+1
07355  M00S06582.tfm     +++|          STM    CBSN+1,BP
07356  M00S06583.tfm     +++|          CMOVE  PESN,,CBES,BP,VSKL/2  COMPARE/SET EXTERNAL VSN
07357  M00S06584.tfm     +++|          CMOVE  PVSN,,CBVS,BP,VSKL/2  COMPARE/SET INTERNAL VSN
07358  M00S06585.tfm     +++| UCT2     CMOVE  POFI,,CBPI,BP,2*10D   COMPARE/SET FILE ID, SEQ. NUMBER
07359  M00S06586.tfm     +++|          CMOVE  PFTD,,CBTD,BP,5       COMPARE/SET TAPE CHARACTERISTICS
07360  M00S06587.tfm     +++|*         LDD    T3          CHECK TOTAL COMPARE MISMATCHES
07361  M00S06588.tfm     +++|          ZJN    UCT3        IF NO CHANGE DETECTED
07362  M00S06589.tfm     +++|          LDM    CBST,BP     SET *ISSUE RECOVERY MESSAGE* FLAG
07363  M00S06590.tfm     +++|          LPC    7377
07364  M00S06591.tfm     +++|          LMC    400
07365  M00S06592.tfm     +++|          STM    CBST,BP
07366  M00S06593.tfm     +++| UCT3     LDM    CBFA,BP
07367  M00S06594.tfm     +++|          LPN    77
07368  M00S06595.tfm     +++|          STM    CBFA,BP
07369  M00S06596.tfm     +++|          LDM    PBFA
07370  M00S06597.tfm     +++|          SCN    77
07371  M00S06598.tfm     +++|          RAM    CBFA,BP
07372  M00S06599.tfm     +++|          LDM    UTMS        CHECK FUNCTION
07373  M00S06600.tfm     +++|          LMN    UCES
07374  M00S06601.tfm     +++|          NJP    UCT5        IF NOT UPDATE CATALOG
07375  M00S06602.tfm     +++|          LIA    CBES,BP     FIND FIRST VSN
07376  M00S06603.tfm     +++|          STD    KA
07377  M00S06604.tfm     +++|          COMPARE  PESN,,,KA,VSKL
07378  M00S06605.tfm     +++|          ZJN    UCT4        IF FIRST VSN
07379  M00S06606.tfm     +++|          RJM    VIS
07380  M00S06607.tfm     +++|          NJN    UCT6        IF VSN NOT FOUND
07381  M00S06608.tfm     +++|          LDM    VBRC,BP     CALCULATE REEL COUNT
07382  M00S06609.tfm     +++|          SHN    -6
07383  M00S06610.tfm     +++|          STD    T0
07384  M00S06611.tfm     +++|          LDD    RC
07385  M00S06612.tfm     +++|          SBD    T0
07386  M00S06613.tfm     +++| UCT4     ADN    1           FIRST REEL
07387  M00S06614.tfm     +++|          STD    RC
07388  M00S06615.tfm     +++|          RESTP  CPCB        RESTORE CATALOG BUFFER POINTERS
07389  M00S06616.tfm     +++|          LDD    RC
07390  M00S06617.tfm     +++|          STM    CBRC,BP
07391  M00S06618.tfm     +++| UCT5     RJM    SBS         SET CATALOG BUSY STATUS
07392  M00S06619.tfm     +++|          LJM    UCTX        RETURN
07393  M00S06620.tfm     +++|
07394  M00S06621.tfm     +++| UCT6     ERROR  ECD         *ERROR IN CATALOG DATA.*
07395  M00S06622.tfm     +++| VCE      SPACE  4,10
07396  M00S06623.tfm     +++|**        VCE - VERIFY CATALOG ENTRY.
07397  M00S06624.tfm     +++|*
07398  M00S06625.tfm     +++|*         ENTRY  PARAMETER BLOCK SET UP.
07399  M00S06626.tfm     +++|*                (BA) = CATALOG BUFFER POINTER.
07400  M00S06627.tfm     +++|*                (BP) = CATALOG ENTRY POINTER.
07401  M00S06628.tfm     +++|*
07402  M00S06629.tfm     +++|*         EXIT   CATALOG ENTRY VERIFIED.
07403  M00S06630.tfm     +++|*
07404  M00S06631.tfm     +++|*         USES   KA.
07405  M00S06632.tfm     +++|*
07406  M00S06633.tfm     +++|*         CALLS  VIS, WRP.
07407  M00S06634.tfm     +++|*
07408  M00S06635.tfm     +++|*         MACROS COMPARE, ERROR.
07409  M00S06636.tfm     +++|
07410  M00S06637.tfm     +++|
07411  M00S06638.tfm     +++| VCE      SUBR               ENTRY/EXIT
07412  M00S06639.tfm     +++|          LDM    UTMS+3      CHECK FOR FIRST *HDR1* ON VOLUME
07413  M00S06640.tfm     +++|          LPC    WUFL
07414  M00S06641.tfm     +++|          ZJP    VCE3        IF NOT FIRST LABEL OF VOLUME
07415  M00S06642.tfm     +++|          LMM    UTMS+3      CLEAR FIRST LABEL FLAG
07416  M00S06643.tfm     +++|          STM    UTMS+3
07417  M00S06644.tfm     +++|          LIA    CBES,BP     DETERMINE CORRECT SECTION NUMBER
07418  M00S06645.tfm     +++|          STD    KA
07419  M00S06646.tfm     +++|          LDI    KA
07420  M00S06647.tfm     +++|          NJN    VCE2        IF EXTERNAL VSN FOUND
07421  M00S06648.tfm     +++| VCE1     ERROR  ECD         ERROR IN CATALOG DATA
07422  M00S06649.tfm     +++|
07423  M00S06650.tfm     +++| VCE2     RJM    VIS         VSN INDEXED SEARCH
07424  M00S06651.tfm     +++|          NJN    VCE1        IF VSN NOT FOUND
07425  M00S06652.tfm     +++|          LDM    VBRC,BP     GET REEL COUNT FROM FIRST VOLUME OF FILE
07426  M00S06653.tfm     +++|          SHN    -6
07427  M00S06654.tfm     +++|          STD    T0
07428  M00S06655.tfm     +++|          LDM    PBSN        ADJUST SECTION NUMBER
07429  M00S06656.tfm     +++|          LPN    7
07430  M00S06657.tfm     +++|          SHN    14
07431  M00S06658.tfm     +++|          ADM    PBSN+1
07432  M00S06659.tfm     +++|          SBD    RC          CURRENT REEL
07433  M00S06660.tfm     +++|          ADD    T0          FIRST REEL
07434  M00S06661.tfm     +++|          STM    PBSN+1
07435  M00S06662.tfm     +++|          SHN    -14
07436  M00S06663.tfm     +++|          LPN    7
07437  M00S06664.tfm     +++|          STD    T0
07438  M00S06665.tfm     +++|          LDM    PBSN
07439  M00S06666.tfm     +++|          SCN    7
07440  M00S06667.tfm     +++|          LMD    T0
07441  M00S06668.tfm     +++|          STM    PBSN
07442  M00S06669.tfm     +++|          RESTP  CPCB        RESTORE CATALOG POINTERS
07443  M00S06670.tfm     +++|          UJN    VCE4        COMPARE SECTION NUMBERS
07444  M00S06671.tfm     +++|
07445  M00S06672.tfm     +++| VCE3     COMPARE  PESN,,CBES,BP,VSKL
07446  M00S06673.tfm     +++|          NJN    VCE5        IF NO MATCH
07447  M00S06674.tfm     +++|          COMPARE  PVSN,,CBVS,BP,VSKL
07448  M00S06675.tfm     +++|          NJN    VCE7        IF NO MATCH
07449  M00S06676.tfm     +++| VCE4     LDM    PBSN        COMPARE FILE SECTION NUMBERS
07450  M00S06677.tfm     +++|          LMM    CBSN,BP
07451  M00S06678.tfm     +++|          LPN    7
07452  M00S06679.tfm     +++| VCE5     NJN    VCE7        IF NO MATCH
07453  M00S06680.tfm     +++|          LDM    PBSN+1
07454  M00S06681.tfm     +++|          LMM    CBSN+1,BP
07455  M00S06682.tfm     +++|          NJN    VCE7        IF NO MATCH
07456  M00S06683.tfm     +++| VCE6     COMPARE  POFI,,CBPI,BP,4*10D
07457  M00S06684.tfm     +++|          ZJN    VCE8        IF CATALOG DATA MATCHES PHYSICAL DATA
07458  M00S06685.tfm     +++| VCE7     LDM    CBST,BP     SET CATALOG ERROR
07459  M00S06686.tfm     +++|          SCN    2
07460  M00S06687.tfm     +++|          LMN    2
07461  M00S06688.tfm     +++|          STM    CBST,BP
07462  M00S06689.tfm     +++|          RJM    WRP         WRITE RANDOM PRU
07463  M00S06690.tfm     +++|          ERROR  MPE         *MULTI-FILE PROCESSING ERROR.*
07464  M00S06691.tfm     +++|
07465  M00S06692.tfm     +++| VCE8     RJM    SBS         SET BUSY STATUS
07466  M00S06693.tfm     +++|          LJM    VCEX        RETURN
07467  M00S06694.tfm     +++|          SPACE  4,10
07468  M00S06695.tfm     +++|***       COMMON DECKS
07469  M00S06696.tfm     +++|
07470  M00S06697.tfm     +++|
07471  M00S06698.tfm     +++| BSE$     EQU    1           DEFINE BSE - BACK SPACE ONE ENTRY
07472  M00S06699.tfm     +++| GNB$     EQU    1           DEFINE GNB - GET NEXT BLOCK
07473  M00S06700.tfm     +++| GNL$     EQU    1           DEFINE GNL - GET NEXT LINK
07474  M00S06701.tfm     +++| GPL$     EQU    1           DEFINE GPL - GET PREVIOUS LINK
07475  M00S06702.tfm     +++| ISK$     EQU    1           DEFINE ISK - INDEX SEARCH FOR KEY
07476  M00S06703.tfm     +++| PLI$     EQU    1           DEFINE PLI - POSITION TO LAST INDEX
07477  M00S06704.tfm     +++| SIB$     EQU    1           DEFINE SIB - SEARCH IN BLOCK
07478  M00S06705.tfm     +++| TBA$     EQU    1           DEFINE TBA - TOGGLE BUFFER ASSIGNMENT
07479  M00S06706.tfm     +++| VIS$     EQU    1           DEFINE VIS - VSN INDEXED SEARCH
07480  M00S06707.tfm     +++| VSP$     EQU    1           DEFINE VSP - VERIFY/SET CATALOG POINTERS
07481  M00S06708.tfm     +++|
07482  M00S06709.tfm     +++|*CALL     COMPTFM
07483  M00S06710.tfm     +++|          SPACE  4,10
07484  M00S06711.tfm     +++|***       BUFFERS.
07485  M00S06712.tfm     +++|          SPACE  4,10
07486  M00S06713.tfm     +++|          ERRNG  BUF2-*
07487  M00S06714.tfm     +++|          OVERLAY (ENTER CATALOG IMAGE.),OVL1
07488  M00S06715.tfm     +++|          SPACE  4,10
07489  M00S06716.tfm     +++|**        LOCAL DIRECT CELL LOCATIONS.
07490  M00S06717.tfm     +++|
07491  M00S06718.tfm     +++|
07492  M00S06719.tfm     +++| CN       EQU    S1 - S1+4   SCRATCH (5 LOCATIONS)
07493  M00S06720.tfm     +++| CB       EQU    /PMF/CB     CATALOG BUFFER POINTER
07494  M00S06721.tfm     +++| ECIS     SPACE  4,10
07495  M00S06722.tfm     +++|**        ECIS - ENTER CATALOG IMAGE.
07496  M00S06723.tfm     +++|*
07497  M00S06724.tfm     +++|*         *ECIS* IS A INTERNAL FUNCTION USED TO
07498  M00S06725.tfm     +++|*         CREATE THE TAPE CATALOG AND THE USERNAME
07499  M00S06726.tfm     +++|*         INDEX (IF REQUIRED).
07500  M00S06727.tfm     +++|*
07501  M00S06728.tfm     +++|*         ENTRY  NONE.
07502  M00S06729.tfm     +++|*
07503  M00S06730.tfm     +++|*         EXIT   (CPCB - CPCB+4) = CATALOG POINTERS.
07504  M00S06731.tfm     +++|*                USERNAME INDEX CREATED IF REQUIRED.
07505  M00S06732.tfm     +++|*                CATALOG IMAGE CREATED.
07506  M00S06733.tfm     +++|*
07507  M00S06734.tfm     +++|*         USES   BA, CI, CM - CM+4, KA, PB, RI - RI+1,
07508  M00S06735.tfm     +++|*                T1.
07509  M00S06736.tfm     +++|*
Line S06737 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07510  M01S06737.274l797 ---|*         CALLS  ABC, ASR, CAC, CCT, CFM, EDT, IBC, PRS, RRP, WRP.
Line S00272 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07511  M01S00272.274l797 +++|*         CALLS  ABC, ASR, CAC, CCT, CFM, EDT, IBC, PRS, RRP, SSP, WRP.
07512  M00S06738.tfm     +++|*
07513  M00S06739.tfm     +++|*         MACROS CLEAR, ERROR, EXOVL, LIA, LDA, MMOVE,
07514  M00S06740.tfm     +++|*                RESTP, SAVEP.
07515  M00S06741.tfm     +++|
07516  M00S06742.tfm     +++|
07517  M00S06743.tfm     +++| ECI      ENTRY              ENTRY/EXIT
07518  M00S06744.tfm     +++|          LDC    PBUN
07519  M00S06745.tfm     +++|          STD    KA
07520  M00S06746.tfm     +++|          RJM    UIS         USERNAME INDEXED SEARCH
07521  M00S06747.tfm     +++|          ZJP    ECI2        IF USERNAME FOUND
07522  M00S06748.tfm     +++|          LDC    BUFA
07523  M00S06749.tfm     +++| ECI1     STD    PB          CREATE/UPDATE USERNAME INDEX
07524  M00S06750.tfm     +++|          LDC    BUF2
07525  M00S06751.tfm     +++|          STD    BA
07526  M00S06752.tfm     +++|          RJM    IBC         INITIALIZE BLOCK CHAIN
07527  M00S06753.tfm     +++|          SAVEP  CPCB        SAVE CATALOG POINTERS
07528  M00S06754.tfm     +++|          RESTP  CPSI        RESTORE INDEX POINTERS
07529  M00S06755.tfm     +++|          LDM    CPCB+3
07530  M00S06756.tfm     +++|          STM    UBCI,PB
07531  M00S06757.tfm     +++|          LDM    CPCB+4
07532  M00S06758.tfm     +++|          STM    UBCI+1,PB
07533  M00S06759.tfm     +++|          MMOVE  ,KA,,PB,UNKL
07534  M00S06760.tfm     +++|          RJM    CIE         CREATE INDEXED ENTRY
07535  M00S06761.tfm     +++| ECIA     EQU    *-1         (RJM TO *WRP* IF UPDATE)
07536  M00S06762.tfm     +++|          RESTP  CPCB        RESTORE CATALOG POINTERS
07537  M00S06763.tfm     +++|          LJM    ECI7        ENTER CATALOG IMAGE
07538  M00S06764.tfm     +++|
07539  M00S06765.tfm     +++| ECI2     LDM    UBCI,BP     SET FIRST CATALOG BLOCK
07540  M00S06766.tfm     +++|          LPN    77
07541  M00S06767.tfm     +++|          STD    RI
07542  M00S06768.tfm     +++|          SHN    14
07543  M00S06769.tfm     +++|          LMM    UBCI+1,BP
07544  M00S06770.tfm     +++|          STD    RI+1
07545  M00S06771.tfm     +++|          NJN    ECI3        IF CATALOG INDEX
07546  M00S06772.tfm     +++|          LDC    WRP
07547  M00S06773.tfm     +++|          STM    ECIA
07548  M00S06774.tfm     +++|          LDD    BP
07549  M00S06775.tfm     +++|          LJM    ECI1        UPDATE USERNAME INDEX
07550  M00S06776.tfm     +++|
07551  M00S06777.tfm     +++| ECI3     LDM    PBTO+1      CHECK ACCESS TYPE
07552  M00S06778.tfm     +++|          LPN    4
07553  M00S06779.tfm     +++|          ZJN    ECI4        IF NOT SYMBOLIC ACCESS
07554  M00S06780.tfm     +++|          LDC    POFI
07555  M00S06781.tfm     +++| ECI4     STD    KA          SET SEARCH TYPE
07556  M00S06782.tfm     +++|          LDC    BUF2        SET CATALOG BUFFER
07557  M00S06783.tfm     +++|          STD    BA
07558  M00S06784.tfm     +++|          RJM    SCB         SEARCH CATALOG BUFFER
07559  M00S06785.tfm     +++|          ZJN    ECI5        IF FILE NOT FOUND
07560  M00S06786.tfm     +++|          ERROR  FAR         *(FILENAME) ALREADY RESERVED.*
07561  M00S06787.tfm     +++|
07562  M00S06788.tfm     +++| ECI5     LDM    CPHP        CHECK IF HOLE FOUND
07563  M00S06789.tfm     +++|          ZJN    ECI6        IF HOLE NOT FOUND
07564  M00S06790.tfm     +++|          RESTP  CPHP        RESTORE HOLE POINTERS
07565  M00S06791.tfm     +++|          RJM    RRP         READ RANDOM PRU
07566  M00S06792.tfm     +++|          UJN    ECI8        CREATE CATALOG IMAGE
07567  M00S06793.tfm     +++|
07568  M00S06794.tfm     +++| ECI6     LDC    BUF2        DEFINE CATALOG BUFFER
07569  M00S06795.tfm     +++|          STD    BA
07570  M00S06796.tfm     +++|          LDN    CWRI        EXTEND CATALOG FILE
07571  M00S06797.tfm     +++|          RJM    ABC         ADD BLOCK TO CHAIN
07572  M00S06798.tfm     +++| ECI7     LDC    RTCB*100    SET RECORD TYPE/LEVEL
07573  M00S06799.tfm     +++|          STM    CWRT,BA
07574  M00S06800.tfm     +++|          LDN    TCEL
07575  M00S06801.tfm     +++|          STM    CWEL,BA
07576  M00S06802.tfm     +++|          MMOVE  PBUN,,CWUN,BA,UNKL
07577  M00S06803.tfm     +++|          LDM    CWFE,BA
07578  M00S06804.tfm     +++|          RJM    MBP         MOVE BUFFER POINTER
07579  M00S06805.tfm     +++|          LDN    1
07580  M00S06806.tfm     +++|          STD    CI
07581  M00S06807.tfm     +++| ECI8     SAVEP  CPCB        SAVE CATALOG POINTERS
07582  M00S06808.tfm     +++|          LDM    CWUW,BA     CREATE CATALOG IMAGE
07583  M00S06809.tfm     +++|          SBN    TCEL
07584  M00S06810.tfm     +++|          STM    CWUW,BA
07585  M00S06811.tfm     +++|          AOM    CWNE,BA
07586  M00S06812.tfm     +++|          RJM    DCE         BUILD DEFAULT CATALOG ENTRY
07587  M00S06813.tfm     +++|          RJM    CAC         CHANGE ALTERNATE CATALOG LIST ATTRIBUTE
07588  M00S06814.tfm     +++|          RJM    CCT         CHANGE FILE CATEGORY
07589  M00S06815.tfm     +++|          RJM    CFM         CHANGE FILE MODE
07590  M00S06816.tfm     +++|          RJM    WRP         WRITE RANDOM PRU
07591  M00S06817.tfm     +++|          LDM    UDTA
07592  M00S06818.tfm     +++|          NJP    ECI9        IF MULTI-FILE
07593  M00S06819.tfm     +++|          LDN    ZERL        UPDATE FET
07594  M00S06820.tfm     +++|          CRD    CM
07595  M00S06821.tfm     +++|          LDD    CI
07596  M00S06822.tfm     +++|          LPN    77
07597  M00S06823.tfm     +++|          SHN    6
07598  M00S06824.tfm     +++|          LMD    RI
07599  M00S06825.tfm     +++|          STD    CM+3
07600  M00S06826.tfm     +++|          LDD    RI+1
07601  M00S06827.tfm     +++|          STD    CM+4
07602  M00S06828.tfm     +++|          LDA    IR+3,REL
07603  M00S06829.tfm     +++|          ADN    TFRR
07604  M00S06830.tfm     +++|          CWM    CM,ON
07605  M00S06831.tfm     +++|          CWM    PESN,TR
07606  M00S06832.tfm     +++|          CWM    POFI,TR
07607  M00S06833.tfm     +++|          CLEAR  PVES,,TSVL*10D
Line S00273 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07608  M01S00273.274l797 +++|          LDM    CBTD,BP     DETERMINE TAPE TYPE
07609  M01S00274.274l797 +++|          SHN    -7
07610  M01S00275.274l797 +++|          LPN    3
07611  M01S00276.274l797 +++|          RJM    SSP         SET SCRATCH POOL ADDRESS
07612  M00S06834.tfm     +++|          EXOVL  ASR         ASSIGN SCRATCH VOLUME (NO RETURN)
07613  M00S06835.tfm     +++|
07614  M00S06836.tfm     +++| ECI9     LDD    CB          GET ASSIGNED CATALOG
07615  M00S06837.tfm     +++|          SHN    14
07616  M00S06838.tfm     +++|          STD    CI
07617  M00S06839.tfm     +++|          SCN    77
07618  M00S06840.tfm     +++|          LMD    CB+1
07619  M00S06841.tfm     +++|          ZJP    ECIX        IF NOT ASSIGNED
07620  M00S06842.tfm     +++|          STD    RI+1
07621  M00S06843.tfm     +++|          SHN    -14
07622  M00S06844.tfm     +++|          STD    RI
07623  M00S06845.tfm     +++|          RJM    RRP         GET INITIAL BLOCK
07624  M00S06846.tfm     +++|          RJM    VSP         VERIFY/SET CATALOG POINTER
07625  M00S06847.tfm     +++|          UDTRD  CN,/MTX/UTCI,1
07626  M00S06848.tfm     +++|          LDM    CPCB+2      SET MULTI-FILE LINKAGE
07627  M00S06849.tfm     +++|          SHN    6
07628  M00S06850.tfm     +++|          LMM    CPCB+3
07629  M00S06851.tfm     +++|          STD    CN+1
07630  M00S06852.tfm     +++|          STM    CBNC,BP
07631  M00S06853.tfm     +++|          LDM    CPCB+4
07632  M00S06854.tfm     +++|          STD    CN+2
07633  M00S06855.tfm     +++|          STM    CBNC+1,BP
07634  M00S06856.tfm     +++|          RJM    WRP         WRITE RANDOM PRU (CATALOG)
07635  M00S06857.tfm     +++|          UDTWT  CN,/MTX/UTCI,1
07636  M00S06858.tfm     +++|          LJM    ECIX        RETURN
Line S06859 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07637  M01S06859.274l797 ---|          TITLE  ".Y." SUBROUTINES.
Line S00277 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07638  M01S00277.274l797 +++|          TITLE  SUBROUTINES.
07639  M00S06860.tfm     +++| CAC      SPACE  4,10
07640  M00S06861.tfm     +++|**        CAC - CHANGE ALTERNATE CATALOG LIST ATTRIBUTE
07641  M00S06862.tfm     +++|*
07642  M00S06863.tfm     +++|*         ENTRY  (PPWD+3) = ALTERNATE LIST ATTRIBUTE.
07643  M00S06864.tfm     +++|*
07644  M00S06865.tfm     +++|*         EXIT   LIST ATTRIBUTE CHANGED AS REQUIRED.
07645  M00S06866.tfm     +++|*
07646  M00S06867.tfm     +++|*         USES   T1.
07647  M00S06868.tfm     +++|
07648  M00S06869.tfm     +++|
07649  M00S06870.tfm     +++| CAC1     LDM    CBST,BP     CHANGE CATALOG LIST ATTRIBUTE
07650  M00S06871.tfm     +++|          SHN    0-13+22
07651  M00S06872.tfm     +++|          SCN    1
07652  M00S06873.tfm     +++|          LMD    T1
07653  M00S06874.tfm     +++|          LMN    1
07654  M00S06875.tfm     +++|          SHN    13-0
07655  M00S06876.tfm     +++|          STM    CBST,BP
07656  M00S06877.tfm     +++|
07657  M00S06878.tfm     +++| CAC      SUBR               ENTRY/EXIT
07658  M00S06879.tfm     +++|          LDM    PBAC
07659  M00S06880.tfm     +++|          LPN    77
07660  M00S06881.tfm     +++|          ZJN    CACX        IF ATTRIBUTE NOT SPECIFIED
07661  M00S06882.tfm     +++|          SBN    FAYS
07662  M00S06883.tfm     +++|          STD    T1
07663  M00S06884.tfm     +++|          SBN    FANO
07664  M00S06885.tfm     +++|          MJN    CAC1        IF VALID ATTRIBUTE
07665  M00S06886.tfm     +++|          UJN    CACX        RETURN
07666  M00S06887.tfm     +++| CCT      SPACE  4,10
07667  M00S06888.tfm     +++|**        CCT - CHANGE CATEGORY TYPE.
07668  M00S06889.tfm     +++|*
07669  M00S06890.tfm     +++|*         ENTRY  (PBCT) = FILE CATEGORY.
07670  M00S06891.tfm     +++|*
07671  M00S06892.tfm     +++|*         EXIT   FILE CATEGORY CHANGED AS REQUIRED.
07672  M00S06893.tfm     +++|*
07673  M00S06894.tfm     +++|*         USES   T1.
07674  M00S06895.tfm     +++|
07675  M00S06896.tfm     +++|
07676  M00S06897.tfm     +++| CCT1     LDM    CBCT,BP     CHANGE FILE CATEGORY
07677  M00S06898.tfm     +++|          LPN    77
07678  M00S06899.tfm     +++|          LMD    T1
07679  M00S06900.tfm     +++|          STM    CBCT,BP
07680  M00S06901.tfm     +++|
07681  M00S06902.tfm     +++| CCT      SUBR               ENTRY/EXIT
07682  M00S06903.tfm     +++|          LDM    PBCT
07683  M00S06904.tfm     +++|          SCN    77
07684  M00S06905.tfm     +++|          ZJN    CCTX        IF CATEGORY NOT SPECIFIED
07685  M00S06906.tfm     +++|          STD    T1
07686  M00S06907.tfm     +++|          SHN    -6
07687  M00S06908.tfm     +++|          SBN    FCMX
07688  M00S06909.tfm     +++|          MJN    CCT1        IF VALID CATEGORY TYPE
07689  M00S06910.tfm     +++|          UJN    CCTX        RETURN
07690  M00S06911.tfm     +++| CFM      SPACE  4,10
07691  M00S06912.tfm     +++|**        CFM - CHANGE FILE MODE.
07692  M00S06913.tfm     +++|*
07693  M00S06914.tfm     +++|*         ENTRY  (PBMD) = FILE ASSESS MODE.
07694  M00S06915.tfm     +++|*
07695  M00S06916.tfm     +++|*         EXIT   FILE MODE CHANGED AS REQUIRED.
07696  M00S06917.tfm     +++|*
07697  M00S06918.tfm     +++|*         USES   T1.
07698  M00S06919.tfm     +++|
07699  M00S06920.tfm     +++|
07700  M00S06921.tfm     +++| CFM1     LDM    CBCT,BP     CHANGE FILE MODE
07701  M00S06922.tfm     +++|          SCN    77
07702  M00S06923.tfm     +++|          LMD    T1
07703  M00S06924.tfm     +++|          STM    CBCT,BP
07704  M00S06925.tfm     +++|
07705  M00S06926.tfm     +++| CFM      SUBR               ENTRY/EXIT
07706  M00S06927.tfm     +++|          LDM    PBMD
07707  M00S06928.tfm     +++|          LPN    77
07708  M00S06929.tfm     +++|          ZJN    CFMX        IF MODE NOT SPECIFIED
07709  M00S06930.tfm     +++|          STD    T1
07710  M00S06931.tfm     +++|          SBN    FMMX
07711  M00S06932.tfm     +++|          MJN    CFM1        IF VALID FILE MODE
07712  M00S06933.tfm     +++|          UJN    CFMX        RETURN
07713  M00S06934.tfm     +++| DCE      SPACE  4,10
07714  M00S06935.tfm     +++|**        DCE - BUILD DEFAULT CATALOG IMAGE.
07715  M00S06936.tfm     +++|*
07716  M00S06937.tfm     +++|*         ENTRY  (BA) = BUFFER ADDRESS (CATALOG).
07717  M00S06938.tfm     +++|*                (BP) = BUFFER POINTER (CATALOG).
07718  M00S06939.tfm     +++|*                (UDTA) NON-ZERO IF MULTI-FILE.
07719  M00S06940.tfm     +++|*
07720  M00S06941.tfm     +++|*         EXIT   CATALOG ENTRY BUILT FROM THE FET
07721  M00S06942.tfm     +++|*                PARAMETERS AND UDT IF MULTI-FILE.
07722  M00S06943.tfm     +++|*
07723  M00S06944.tfm     +++|*         USES   CM - CM+4.
07724  M00S06945.tfm     +++|*
07725  M00S06946.tfm     +++|*         CALLS  EDT.
07726  M00S06947.tfm     +++|*
07727  M00S06948.tfm     +++|*         MACROS CLEAR, LDA, LIA, MMOVE, UDTRD, ZJM.
07728  M00S06949.tfm     +++|
07729  M00S06950.tfm     +++|
07730  M00S06951.tfm     +++| DCE      SUBR               ENTRY/EXIT
07731  M00S06952.tfm     +++|          CLEAR  ,BP,TCEL*10D
07732  M00S06953.tfm     +++|          MMOVE  POFI,,CBLI,BP,FIKL
07733  M00S06954.tfm     +++|          LDC    1401        SET CATALOG STATUS FLAGS
07734  M00S06955.tfm     +++|          STM    CBST,BP
07735  M00S06956.tfm     +++|          LDM    PBTO+1      SET SYMBOLIC ACCESS IF REQUIRED
07736  M00S06957.tfm     +++|          LPN    4
07737  M00S06958.tfm     +++|          RAM    CBST,BP
07738  M00S06959.tfm     +++|          LDM    PFTD
07739  M00S06960.tfm     +++|          SHN    21-12
07740  M00S06961.tfm     +++|          MJN    DCE1        IF LABEL TAPE FILE
07741  M00S06962.tfm     +++|          CLEAR  POFI,,FIKL
07742  M00S06963.tfm     +++| DCE1     LDM    PBQN        CONVERT SEQUENCE NUMBER TO DISPLAY CODE
07743  M00S06964.tfm     +++|          LPN    77
07744  M00S06965.tfm     +++|          ADM    PBQN+1
07745  M00S06966.tfm     +++|          NJN    DCE2        IF SPECIFIED
07746  M00S06967.tfm     +++|          LDN    1
07747  M00S06968.tfm     +++|          STM    PBQN+1
07748  M00S06969.tfm     +++|          LDM    PBTO
07749  M00S06970.tfm     +++|          SHN    21-2
07750  M00S06971.tfm     +++|          PJN    DCE2        IF NOT SYMBOLIC ACCESS
07751  M00S06972.tfm     +++|          LDC    9999D       SET MULTI-FILE EXTENSION
07752  M00S06973.tfm     +++|          STM    PBQN+1
07753  M00S06974.tfm     +++|          SHN    -14
07754  M00S06975.tfm     +++|          RAM    PBQN
07755  M00S06976.tfm     +++| DCE2     LDM    PBGN        SET GENERATION NUMBER
07756  M00S06977.tfm     +++|          LPN    7
07757  M00S06978.tfm     +++|          ADM    PBGN+1
07758  M00S06979.tfm     +++|          NJN    DCE3        IF SPECIFIED
07759  M00S06980.tfm     +++|          LDN    1
07760  M00S06981.tfm     +++|          STM    PBGN+1
07761  M00S06982.tfm     +++| DCE3     MMOVE  PBUF,,CBES,BP,6*10D
07762  M00S06983.tfm     +++|          LDN    0
07763  M00S06984.tfm     +++|          STM    CBTD+1,BP
Line S06985 Modification History
M01 (Removed by) t5519
Seq #  *Modification Id* Act 
----------------------------+
07764  M01S06985.t5519   ---|          LIA    CBLD,BP
07765  M01S06986.t5519   ---|          STM    DCEA
07766  M01S06987.t5519   ---|          LDN    JDAL
07767  M01S06988.t5519   ---|          CRM    **,ON
07768  M01S06989.t5519   ---| DCEA     EQU    *-1         (ADDRESS OF LABEL DATES)
07769  M01S06990.t5519   ---|          MMOVE  PBCR,,CBLD,BP,5
Line S00086 Modification History
M01 (Added by) t5519
Seq #  *Modification Id* Act 
----------------------------+
07770  M01S00086.t5519   +++|          MMOVE  PBCR+2,,CBLD+2,BP,6  SET RETENTION DATE
07771  M01S00087.t5519   +++|          LDN    JDAL        GET CREATION DATE
07772  M01S00088.t5519   +++|          CRD    CM
07773  M01S00089.t5519   +++|          LDD    CM+2        SET CREATION DATE
07774  M01S00090.t5519   +++|          SHN    6
07775  M01S00091.t5519   +++|          STM    CBLD+0,BP
07776  M01S00092.t5519   +++|          LDD    CM+3
07777  M01S00093.t5519   +++|          SHN    -6
07778  M01S00094.t5519   +++|          RAM    CBLD+0,BP
07779  M01S00095.t5519   +++|          LDD    CM+3
07780  M01S00096.t5519   +++|          SHN    6
07781  M01S00097.t5519   +++|          STM    CBLD+1,BP
07782  M01S00098.t5519   +++|          LDD    CM+4
07783  M01S00099.t5519   +++|          SHN    -6
07784  M01S00100.t5519   +++|          RAM    CBLD+1,BP
07785  M01S00101.t5519   +++|          LDM    CBLD+2,BP
07786  M01S00102.t5519   +++|          LPN    77
07787  M01S00103.t5519   +++|          SHN    14
07788  M01S00104.t5519   +++|          ADD    CM+4
07789  M01S00105.t5519   +++|          SHN    6
07790  M01S00106.t5519   +++|          STM    CBLD+2,BP
07791  M00S06991.tfm     +++|          MMOVE  PPWD,,CBPW,BP,10D
07792  M00S06992.tfm     +++|          LDC    FCPR*100+FMRE  FILE CATEGORY AND MODE DEFAULTS
07793  M00S06993.tfm     +++|          STM    CBCT,BP
07794  M00S06994.tfm     +++|          LIA    CBCD,BP
07795  M00S06995.tfm     +++|          RJM    EDT         ENTER PACKED DATE/TIME
07796  M00S06996.tfm     +++|          LIA    CBMD,BP
07797  M00S06997.tfm     +++|          RJM    EDT         ENTER PACKED DATE/TIME
07798  M00S06998.tfm     +++|          LIA    CBAD,BP
07799  M00S06999.tfm     +++|          RJM    EDT         ENTER PACKED DATE/TIME
07800  M00S07000.tfm     +++|          LDN    1
07801  M00S07001.tfm     +++|          STM    CBAC+1,BP   INITIALIZE ACCESS COUNT
07802  M00S07002.tfm     +++|          LDM    UDTA
07803  M00S07003.tfm     +++|          ZJP    DCE4        IF NOT MULTI-FILE
07804  M00S07004.tfm     +++|          LDN    1           INITIALIZE REEL COUNT
07805  M00S07005.tfm     +++|          STM    CBRC,BP
07806  M00S07006.tfm     +++| DCE4     LDN    2
07807  M00S07007.tfm     +++|          STD    T1
07808  M00S07008.tfm     +++|          LIA    CBCN,BP
07809  M00S07009.tfm     +++|          STM    DCEB
07810  M00S07010.tfm     +++|          LIA    CBPN,BP
07811  M00S07011.tfm     +++|          STM    DCEC
07812  M00S07012.tfm     +++|          NFA    CHGN
07813  M00S07013.tfm     +++|          CRM    **,ON
07814  M00S07014.tfm     +++| DCEB     EQU    *-1
07815  M00S07015.tfm     +++|          NFA    PJ1N
07816  M00S07016.tfm     +++|          CRM    **,T1
07817  M00S07017.tfm     +++| DCEC     EQU    *-1
07818  M00S07018.tfm     +++|          LDM    PFTD+1      INSURE PO=W
07819  M00S07019.tfm     +++|          SCN    30
07820  M00S07020.tfm     +++|          LMN    20
07821  M00S07021.tfm     +++|          STM    PFTD+1
07822  M00S07022.tfm     +++|          LDM    PFTD
07823  M00S07023.tfm     +++|          SHN    21-12
07824  M00S07024.tfm     +++|          PJN    DCE5        IF UNLABELED FILE
07825  M00S07025.tfm     +++|          SCN    1           INSURE WRITE LABEL SET
07826  M00S07026.tfm     +++|          LMN    1
07827  M00S07027.tfm     +++|          SHN    13-0
07828  M00S07028.tfm     +++|          STM    PFTD
07829  M00S07029.tfm     +++| DCE5     LDM    CBST,BP
07830  M00S07030.tfm     +++|          SHN    21-2
07831  M00S07031.tfm     +++|          MJN    DCE6        IF SYMBOLIC ACCESS
07832  M00S07032.tfm     +++|          LDM    CBQN,BP     SET SEQUENCE NUMBER TO 1
07833  M00S07033.tfm     +++|          SCN    77
07834  M00S07034.tfm     +++|          STM    CBQN,BP
07835  M00S07035.tfm     +++|          LDN    1
07836  M00S07036.tfm     +++|          STM    CBQN+1,BP
07837  M00S07037.tfm     +++| DCE6     LJM    DCEX        RETURN
07838  M00S07038.tfm     +++|          SPACE  4,10
07839  M00S07039.tfm     +++|**        LOCAL COMMON DECKS.
07840  M00S07040.tfm     +++|
07841  M00S07041.tfm     +++|
07842  M00S07042.tfm     +++| BSE$     EQU    1           DEFINE BSE - BACKSPACE ONE ENTRY
07843  M00S07043.tfm     +++| CIE$     EQU    1           DEFINE CIE - CREATE INDEXED ENTRY
07844  M00S07044.tfm     +++| IBC$     EQU    1           DEFINE IBC - INITIALIZE BLOCK CHAIN
07845  M00S07045.tfm     +++| ISK$     EQU    1           DEFINE ISK - INDEXED SEARCH FOR KEY
07846  M00S07046.tfm     +++| SCB$     EQU    1           DEFINE SCB - SEARCH CATALOG BUFFER
07847  M00S07047.tfm     +++| SIB$     EQU    1           DEFINE SIB - SEARCH INDEX BUFFER
Line S00278 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07848  M01S00278.274l797 +++| SSP$     EQU    1           DEFINE SSP - SET SCRATCH POOL ADDRESS
07849  M00S07048.tfm     +++| UIS$     EQU    1           DEFINE UIS - USERNAME INDEXED SEARCH
07850  M00S07049.tfm     +++| VSP$     EQU    1           DEFINE VSP - VERIFY/SET CATALOG POINTERS
07851  M00S07050.tfm     +++|*CALL     COMPTFM
07852  M00S07051.tfm     +++|*CALL     COMPWEI
07853  M00S07052.tfm     +++|          SPACE  4
07854  M00S07053.tfm     +++|**        BUFFERS.
07855  M00S07054.tfm     +++|
07856  M00S07055.tfm     +++|
07857  M00S07056.tfm     +++| BUFA     BSS    TSVL*5
07858  M00S07057.tfm     +++| BUFB     BSS    TSVL*5
07859  M00S07058.tfm     +++|          SPACE  4,10
07860  M00S07059.tfm     +++|          ERRNG  BUF2-*      BYTES LEFT BEFORE OVERFLOW
Line S07060 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07861  M01S07060.274l797 ---|          OVERLAY (SUBFUNCTION ASRS, AVSS, CSAS, GNSS.),OVL1
Line S00279 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07862  M01S00279.274l797 +++|          OVERLAY (ASSIGN SCRATCH TAPE.),OVL1
07863  M00S07061.tfm     +++|          SPACE  4,10
07864  M00S07062.tfm     +++|***       COMMON SYMBOL DEFINITIONS.
07865  M00S07063.tfm     +++|
07866  M00S07064.tfm     +++|
Line S07065 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07867  M01S07065.274l797 ---| RSX      EQU    *
07868  M00S07066.tfm     +++|          QUAL   RSX
07869  M00S07067.tfm     +++|*CALL     COMSRSX
07870  M00S07068.tfm     +++|          QUAL   *
Line S07069 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07871  M01S07069.274l797 ---|          ORG    RSX
Line S00280 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07872  M01S00280.274l797 +++|
07873  M01S00281.274l797 +++| .RJID    EQU    /RSX/RJID*5
07874  M01S00282.274l797 +++|          ERRPL  /RSX/RJID-100  MUST BE IN 1ST PRU OF DEMAND FILE ENTRY
07875  M01S00283.274l797 +++|
Line S00284 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07876  M02S00284.282l826 ---| .RQPF    EQU    /RSX/RQPF*5-500
07877  M02S00285.282l826 ---|          ERRNG  /RSX/RQPF-100  MUST BE IN 2ND PRU OF DEMAND FILE ENTRY
Line S00066 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07878  M01S00066.282l826 +++| .RREQ    EQU    /RSX/RREQ*5-500
07879  M01S00067.282l826 +++|          ERRNG  /RSX/RREQ-100  MUST BE IN 2ND PRU OF DEMAND FILE ENTRY
Line S00286 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07880  M01S00286.274l797 +++|
Line S00287 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07881  M02S00287.282l826 ---| .RQPD    EQU    /RSX/RQPD*5-500
07882  M02S00288.282l826 ---|          ERRNG  /RSX/RQPD-100  MUST BE IN 2ND PRU OF DEMAND FILE ENTRY
Line S00068 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07883  M01S00068.282l826 +++| .RQPV    EQU    /RSX/RQPV*5-500
07884  M01S00069.282l826 +++|          ERRNG  /RSX/RQPV-100  MUST BE IN 2ND PRU OF DEMAND FILE ENTRY
07885  M00S07070.tfm     +++|          SPACE  4,10
07886  M00S07071.tfm     +++|***       DIRECT CELL LOCATIONS.
07887  M00S07072.tfm     +++|
07888  M00S07073.tfm     +++|
07889  M00S07074.tfm     +++| CN       EQU    S1 - S1+4
07890  M00S07075.tfm     +++| DE       EQU    S1+1        DEMAND FILE EQUIPMENT
07891  M00S07076.tfm     +++| DT       EQU    S1+2        DEMAND FILE TRACK
07892  M00S07077.tfm     +++| DS       EQU    S1+3        DEMAND FILE SECTOR
07893  M00S07078.tfm     +++| IL       EQU    S2+1        INTERLOCK FLAG
07894  M00S07079.tfm     +++| FT       EQU    S2+2 - S2+3 FET FIRST POINTER
07895  M00S07080.tfm     +++| IN       EQU    S2+4 - S3+0 FET IN POINTER
07896  M00S07081.tfm     +++| OT       EQU    S3+1 - S3+2 FET OUT POINTER
07897  M00S07082.tfm     +++| LM       EQU    S3+3 - S3+4 FET LIMIT POINTER
07898  M00S07083.tfm     +++| ASRS     SPACE  4,10
07899  M00S07084.tfm     +++|**        ASRS - ASSIGN SCRATCH REEL.
07900  M00S07085.tfm     +++|*
07901  M00S07086.tfm     +++|*         ENTRY  (CPCB - CPCB+4) = CATALOG POINTERS.
07902  M00S07087.tfm     +++|*                (CPAB - CPAB+4) = PREVIOUS VSN INDEX.
Line S00289 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07903  M01S00289.274l797 +++|*                (SCRP) = ADDRESS IN *TMST* OF CORRECT SCRATCH POOL.
07904  M00S07088.tfm     +++|*
07905  M00S07089.tfm     +++|*         EXIT   SCRATCH TAPE ASSIGNED TO THE JOB.
07906  M00S07090.tfm     +++|*
Line S07091 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07907  M01S07091.274l797 ---|*         USES   BA, CM - CM+4, EC, FP - FP+4, KA,
07908  M01S07092.274l797 ---|*                PB, RI - RI+1.
Line S00290 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07909  M01S00290.274l797 +++|*         USES   BA, EC, KA, PB, T3, CM - CM+4, FP - FP+4, RI - RI+1.
07910  M00S07093.tfm     +++|*
Line S07094 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07911  M01S07094.274l797 ---|*         CALLS  ARF, CIE, DEE, DLB, EDT, ERR, MBP,
07912  M01S07095.274l797 ---|*                RRP, SAC, VIS, WRP.
Line S00291 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07913  M01S00291.274l797 +++|*         CALLS  ARF, CIE, DEE, DLB, EDT, ERR, MBP, RRP, SAC, VIS, WRP.
07914  M00S07096.tfm     +++|*
07915  M00S07097.tfm     +++|*         MACROS LDA, MMOVE, RESTP, SAVEP, UDTRD, UDTWT.
07916  M00S07098.tfm     +++|
07917  M00S07099.tfm     +++|
07918  M00S07100.tfm     +++| ASR      ENTRY              ENTRY/EXIT
Line S00292 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07919  M01S00292.274l797 +++|          LDM    SCRP        SET SCRATCH POOL ADDRESS
07920  M01S00293.274l797 +++|          STM    ASRB
07921  M00S07101.tfm     +++| ASR1     RESTP  CPSB        RESTORE TMST BUFFER POINTERS
07922  M00S07102.tfm     +++|          LDM    CPCB        DEFINE TMST BUFFER = CATALOG BUFFER
07923  M00S07103.tfm     +++|          STD    BA
07924  M00S07104.tfm     +++|          RJM    GIB         GET INITIAL BLOCK (TMST)
07925  M00S07105.tfm     +++|          LDM    CWFE,BA
07926  M00S07106.tfm     +++|          RJM    MBP         MOVE BUFFER POINTER
07927  M00S07107.tfm     +++|          SAVEP  CPSB        SAVE BUFFER POINTERS (TMST)
Line S07108 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07928  M01S07108.274l797 ---|          LDM    SBSV,BP
Line S00294 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07929  M01S00294.274l797 +++|          LDM    SBSM,BP     CHECK SCRATCH POOL
07930  M01S00295.274l797 +++| ASRB     EQU    *-1         (ADDRESS IN *TMST* OF CORRECT SCRATCH POOL)
07931  M00S07109.tfm     +++|          LMC    7777
07932  M00S07110.tfm     +++|          NJN    ASR4        IF SCRATCH AVAILABLE
07933  M00S07111.tfm     +++|          LDM    SBST,BP
07934  M00S07112.tfm     +++|          LPN    FFTS/10000
07935  M00S07113.tfm     +++|          NJN    ASR2        IF FOREIGN FAMILY
07936  M00S07114.tfm     +++|          EXOVL  GSP         SEARCH GLOBAL SCRATCH POOLS (NO RETURN)
07937  M00S07115.tfm     +++|
07938  M00S07116.tfm     +++| ASR2     ERROR  WSA         *WAIT SCRATCH ASSIGNMENT.*
07939  M00S07117.tfm     +++|
07940  M00S07118.tfm     +++| ASR3     ERROR  EID         *ERROR IN INDEX DATA.*
07941  M00S07119.tfm     +++|
07942  M00S07120.tfm     +++| ASR4     LDC    PVNV        LOCATE SCRATCH
07943  M00S07121.tfm     +++|          STD    KA
Line S07122 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07944  M01S07122.274l797 ---|          MMOVE  SBSV,BP,,KA,VSKL
Line S00296 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07945  M01S00296.274l797 +++|          LDM    SCRP        GET ADDRESS OF CORRECT SCRATCH POOL
07946  M01S00297.274l797 +++|          ADD    BP
07947  M01S00298.274l797 +++|          STD    T1
07948  M01S00299.274l797 +++|          MMOVE  ,,,KA,VSKL
07949  M00S07123.tfm     +++|          RJM    VIS         VSN INDEXED SEARCH
07950  M00S07124.tfm     +++|          NJN    ASR3        IF NOT FOUND
07951  M00S07125.tfm     +++|          LDM    VBST,BP
07952  M00S07126.tfm     +++|          LPN    ASVS/10000
07953  M00S07127.tfm     +++|          ZJN    ASR3        IF SCRATCH NOT FOUND
07954  M00S07128.tfm     +++|          LDM    VBST,BP
07955  M00S07129.tfm     +++|          LPN    RTVS/10000
07956  M00S07130.tfm     +++|          NJN    ASR3        IF TAPE RESERVED
07957  M00S07131.tfm     +++|          LDM    VBST,BP
07958  M00S07132.tfm     +++|          LPN    HMVS/10000+UOVS/10000
07959  M00S07133.tfm     +++|          STM    ASRA
07960  M00S07134.tfm     +++|          NJN    ASR5        IF NOT AVAILABLE
07961  M00S07135.tfm     +++|          LDM    VBST+1,BP
07962  M00S07136.tfm     +++|          LPN    TVVS+MVVS+ERVS+VIVS
07963  M00S07137.tfm     +++|          STM    ASRA
07964  M00S07138.tfm     +++| ASR5     RESTP  CPSB        RESTORE TMST BUFFER POINTERS
Line S07139 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07965  M01S07139.274l797 ---|          MMOVE  VBNV,CPSI+1,SBSV,BP,VSKL
07966  M01S07140.274l797 ---|          LDA    SBSC,BP
Line S00300 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07967  M01S00300.274l797 +++|          LDM    SCRP        GET ADDRESS OF CORRECT SCRATCH POOL WORD
07968  M01S00301.274l797 +++|          ADD    BP
07969  M01S00302.274l797 +++|          STD    T3
07970  M01S00303.274l797 +++|          MMOVE  VBNV,CPSI+1,,T3,VSKL  SET NEW VSN IN SCRATCH POOL WORD
07971  M01S00304.274l797 +++|          LDA    3,T3        DECREMENT SCRATCH COUNT
07972  M00S07141.tfm     +++|          SBN    1
Line S07142 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07973  M01S07142.274l797 ---|          STM    SBSC+1,BP
Line S00305 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07974  M01S00305.274l797 +++|          STM    4,T3
07975  M00S07143.tfm     +++|          SHN    -14
Line S07144 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07976  M01S07144.274l797 ---|          STM    SBSC,BP
Line S00306 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07977  M01S00306.274l797 +++|          STM    3,T3
07978  M00S07145.tfm     +++|          RJM    WRP         WRITE RANDOM PRU (TMST)
07979  M00S07146.tfm     +++|          LDC    0
07980  M00S07147.tfm     +++| ASRA     EQU    *-1
07981  M00S07148.tfm     +++|          ZJN    ASR7        IF THIS SCRATCH VSN ACCEPTABLE
07982  M00S07149.tfm     +++|          RESTP  CPSI        RESTORE SECONDARY VSN POINTERS
07983  M00S07150.tfm     +++|          LDM    VBST+1,BP
07984  M00S07151.tfm     +++|          LPN    VIVS
07985  M00S07152.tfm     +++|          NJN    ASR6        IF VSN INTERLOCKED
07986  M00S07153.tfm     +++|          CLEAR  VBNV,BP,VSKL  CLEAR NEXT VOLUME
07987  M00S07154.tfm     +++|          RJM    WRP
07988  M00S07155.tfm     +++| ASR6     LJM    ASR1        GET NEXT SCRATCH TAPE
07989  M00S07156.tfm     +++|
07990  M00S07157.tfm     +++| ASR7     EXSUB  CSA         COMPLETE SCRATCH ASSIGNMENT
07991  M00S07158.tfm     +++|          LJM    ASRX        RETURN
07992  M00S07159.tfm     +++| AVSS     SPACE  4,10
07993  M00S07160.tfm     +++|**        AVSS - ADVANCE VSN FILE.
07994  M00S07161.tfm     +++|*
Line S07162 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07995  M01S07162.274l797 ---|*         CALLED BY *MAGNET* TO SET THE NEXT VOLUME
07996  M01S07163.274l797 ---|*         OF TAPE IN THE UDT.
Line S00307 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07997  M01S00307.274l797 +++|*         CALLED BY *MAGNET* TO SET THE NEXT VOLUME OF TAPE IN THE UDT.
07998  M00S07164.tfm     +++|*
Line S07165 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07999  M01S07165.274l797 ---|*         ENTRY  NONE.
Line S00308 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08000  M01S00308.274l797 +++|*         EXIT   IF THERE IS A NEXT VOLUME, IT IS RETURNED.
08001  M01S00309.274l797 +++|*                IF THERE IS NOT A NEXT VOLUME AND THIS IS A WRITE
08002  M01S00310.274l797 +++|*                   REQUEST, A SCRATCH VOLUME WILL BE ASSIGNED.
08003  M00S07166.tfm     +++|*
Line S07167 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08004  M01S07167.274l797 ---|*         EXIT   IF THERE IS A NEXT VOLUME IT IS RETURNED
08005  M01S07168.274l797 ---|*                IF THERE IS NOT A NEXT VOLUME AND THIS IS
08006  M01S07169.274l797 ---|*                IF WRITE REQUEST A SCRATCH VOLUME WILL BE
08007  M01S07170.274l797 ---|*                ASSIGNED.
Line S00311 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08008  M01S00311.274l797 +++|*         USES   BA, CI, CM - CM+4, KA, RI - RI+1.
08009  M00S07171.tfm     +++|*
Line S07172 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08010  M01S07172.274l797 ---|*         USES   BA, CI, CM - CM+4, KA, RI - RI+1.
08011  M01S07173.274l797 ---|*
08012  M01S07174.274l797 ---|*         CALLS  ASR, IEP, PRS, VIS, VSP, WRP.
Line S00312 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08013  M02S00312.282l826 ---|*         CALLS  ASR, IEP, PRS, SSP, VIS, VSP, WRP.
Line S00070 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08014  M01S00070.282l826 +++|*         CALLS  ASR, PRS, SSP, VIS, VSP, WRP.
08015  M00S07175.tfm     +++|*
08016  M00S07176.tfm     +++|*         MACROS ERROR, EXOVL, MMOVE, UDTRD, UDTWT.
08017  M00S07177.tfm     +++|
08018  M00S07178.tfm     +++|
08019  M00S07179.tfm     +++| AVS      ENTRY              ENTRY/EXIT
08020  M00S07180.tfm     +++|          RJM    PRS         PRESET
08021  M00S07181.tfm     +++|          ZJN    AVSX        IF NO CATALOG ENTRY
08022  M00S07182.tfm     +++|          RJM    RRP         GET CATALOG
08023  M00S07183.tfm     +++|          RJM    VSP         VERIFY/SET CATALOG POINTERS
08024  M00S07184.tfm     +++|          MJN    AVSX        IF ERROR
08025  M00S07185.tfm     +++|          SAVEP  CPCB
08026  M00S07186.tfm     +++|          RESTP  CPSI        RESTORE VSN SECONDARY INDEX POINTERS
08027  M00S07187.tfm     +++|          LDM    UTMS+3
08028  M00S07188.tfm     +++|          LPN    WURF
08029  M00S07189.tfm     +++|          NJP    AVS6        IF REWIND FILE
08030  M00S07190.tfm     +++|          LDM    VBRC,BP     CHECK FOR LAST VOLUME
08031  M00S07191.tfm     +++|          SHN    -6
08032  M00S07192.tfm     +++|          LMM    UTMS+2
08033  M00S07193.tfm     +++|          NJN    AVS1        IF NOT LAST VOLUME
08034  M00S07194.tfm     +++|          LDM    VBST,BP     CLEAR EOI VOLUME STATUS
08035  M00S07195.tfm     +++|          SCN    EOIV/1S12
08036  M00S07196.tfm     +++|          STM    VBST,BP
08037  M00S07197.tfm     +++| AVS1     RJM    WRP         WRITE RANDOM PRU (VSN INDEX)
08038  M00S07198.tfm     +++|          MMOVE  VBNV,BP,,KA,VSKL
08039  M00S07199.tfm     +++|          LDI    KA
08040  M00S07200.tfm     +++|          ZJN    AVS4        IF END OF ASSIGNED VOLUMES
08041  M00S07201.tfm     +++|          RJM    VIS         VSN INDEXED SEARCH
08042  M00S07202.tfm     +++|          NJN    AVS3        IF VOLUME NOT FOUND
08043  M00S07203.tfm     +++|          LDM    VBRC,BP     CHECK FOR LAST VOLUME
08044  M00S07204.tfm     +++|          SHN    -6
08045  M00S07205.tfm     +++|          STD    T0
08046  M00S07206.tfm     +++|          LDM    UTMS+2
08047  M00S07207.tfm     +++|          ZJN    AVS2        IF NOT WRITTEN TO
08048  M00S07208.tfm     +++|          SBD    T0
08049  M00S07209.tfm     +++|          SBN    1
08050  M00S07210.tfm     +++|          NJN    AVS2        IF NOT LAST VOLUME
08051  M00S07211.tfm     +++|          LDM    VBST,BP     SET EOI VOLUME STATUS
08052  M00S07212.tfm     +++|          SCN    EOIV/1S12
08053  M00S07213.tfm     +++|          LMN    EOIV/1S12
08054  M00S07214.tfm     +++|          STM    VBST,BP
08055  M00S07215.tfm     +++| AVS2     RJM    IUC         INCREASE USAGE COUNTER
08056  M00S07216.tfm     +++|          RJM    WRP         WRITE RANDOM PRU (VSN INDEX)
08057  M00S07217.tfm     +++|          LJM    AVS7        UPDATE UDT
08058  M00S07218.tfm     +++|
08059  M00S07219.tfm     +++| AVS3     ERROR  EID         *ERROR IN INDEX DATA.*
08060  M00S07220.tfm     +++|
08061  M00S07221.tfm     +++| AVS4     LDM    UTMS+4      CHECK VOLUME EXTENSION
08062  M00S07222.tfm     +++|          SHN    21-12
Line S07223 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08063  M01S07223.274l797 ---|          MJN    AVS5        IF USER OWNED FILE
Line S00313 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08064  M01S00313.274l797 +++|          MJP    AVS5        IF USER OWNED FILE
08065  M00S07224.tfm     +++|          SAVEP  CPAB        SAVE BUFFER POINTERS (VSN INDEX)
08066  M00S07225.tfm     +++|          MMOVE  VBFV,BP,PVFV,,VSKL
08067  M00S07226.tfm     +++|          LDM    VBRC,BP
08068  M00S07227.tfm     +++|          SCN    77
08069  M00S07228.tfm     +++|          STD    T0
08070  M00S07229.tfm     +++|          LDM    PVRC
08071  M00S07230.tfm     +++|          LPN    77
08072  M00S07231.tfm     +++|          LMD    T0
08073  M00S07232.tfm     +++|          STM    PVRC        SAVE REEL COUNT
Line S00314 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08074  M01S00314.274l797 +++|          LDM    VBST+1,BP   DETERMINE TAPE TYPE
08075  M01S00315.274l797 +++|          SHN    -5
08076  M01S00316.274l797 +++|          LPN    3
08077  M01S00317.274l797 +++|          RJM    SSP         SET SCRATCH POOL ADDRESS
08078  M00S07233.tfm     +++|          EXSUB  ASR         ASSIGN SCRATCH REEL
08079  M00S07234.tfm     +++|          LJM    AVSX        RETURN
08080  M00S07235.tfm     +++|
08081  M00S07236.tfm     +++| AVS5     ERROR  NEU         *NO EXTEND ON USER OWNED FILE.*
08082  M00S07237.tfm     +++|
08083  M00S07238.tfm     +++| AVS6     LMM    UTMS+3      CLEAR REWIND FLAG
08084  M00S07239.tfm     +++|          STM    UTMS+3
08085  M00S07240.tfm     +++|          COMPARE CBES,CPCB+1,VBES,BP,VSKL
08086  M00S07241.tfm     +++|          ZJP    AVSX        IF REWIND CURRENT VOLUME
08087  M00S07242.tfm     +++|          RJM    WRP         WRITE RANDOM PRU (VSN INDEX)
08088  M00S07243.tfm     +++|          LDC    PVES
08089  M00S07244.tfm     +++|          STD    KA
08090  M00S07245.tfm     +++|          MMOVE  CBES,CPCB+1,,KA,VSKL
08091  M00S07246.tfm     +++|          RJM    VIS         VSN INDEXED SEARCH
08092  M00S07247.tfm     +++|          NJP    AVS3        IF VSN NOT FOUND
08093  M00S07248.tfm     +++|          RJM    IUC         INCREASE USAGE COUNTER
08094  M00S07249.tfm     +++| AVS7     MMOVE  VBES,BP,,KA,VSKL
Line S07250 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08095  M01S07250.282l826 ---|          UDTWT  PVES,/MTX/UESN,1
08096  M01S07251.282l826 ---|          UDTRD  CM,/MTX/UVSN,1
08097  M01S07252.282l826 ---|          MMOVE  VBVS,BP,CM,,VSKL
08098  M01S07253.282l826 ---|          LDD    CM+3
08099  M01S07254.282l826 ---|          LPC    -171
08100  M01S07255.282l826 ---|          LMC    /MTX/MNT*10+1
Line S00071 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08101  M01S00071.282l826 +++|          UDTRD  CM,/MTX/UESN,1
08102  M01S00072.282l826 +++|          MMOVE  PVES,,CM,,VSKL  SET EXTERNAL VSN
08103  M01S00073.282l826 +++|          UDTWT  CM,/MTX/UESN,1
08104  M01S00074.282l826 +++|          UDTRD  CM,/MTX/UISN,1
08105  M01S00075.282l826 +++|          MMOVE  VBVS,BP,CM,,VSKL  SET INTERNAL VSN
08106  M01S00076.282l826 +++|          UDTWT  CM,/MTX/UISN,1
08107  M01S00077.282l826 +++|          UDTRD  CM,/MTX/UVRI,1
08108  M01S00078.282l826 +++|          LDM    VBRC,BP     SET REEL NUMBER
08109  M01S00079.282l826 +++|          SHN    -6
08110  M01S00080.282l826 +++|          SBN    1
08111  M00S07256.tfm     +++|          STD    CM+3
Line S07257 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08112  M01S07257.282l826 ---|          LDM    VBRC,BP
08113  M01S07258.282l826 ---|          SHN    -6
08114  M01S07259.282l826 ---|          SBN    1
08115  M01S07260.282l826 ---|          STD    CM+4
08116  M01S07261.282l826 ---|          UDTWT  CM,/MTX/UVSN,1
08117  M01S07262.282l826 ---|          RJM    IEP         ISSUE E,P MESSAGE
Line S00081 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08118  M01S00081.282l826 +++|          UDTWT  CM,/MTX/UVRI,1
08119  M00S07263.tfm     +++|          LJM    AVSX        RETURN
08120  M00S07264.tfm     +++| CSAS     SPACE  4,10
08121  M00S07265.tfm     +++|**        CSAS - COMPLETE SCRATCH ASSIGNMENT.
08122  M00S07266.tfm     +++|*
08123  M00S07267.tfm     +++|*         ENTRY  (CPSI - CPSI+1) = VSN INDEX POINTERS.
08124  M00S07268.tfm     +++|*                (CPCB - CPCB+4) = CATALOG POINTERS.
08125  M00S07269.tfm     +++|*
08126  M00S07270.tfm     +++|*         USES   CM - CM+4, KA, PB, T3.
08127  M00S07271.tfm     +++|*
Line S07272 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08128  M01S07272.282l826 ---|*         CALLS  COB, CVS, IEP, RBB, RRP, SBP, SVB, WRP.
Line S00082 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08129  M01S00082.282l826 +++|*         CALLS  COB, CVS, RBB, RRP, SBP, SVB, WRP.
08130  M00S07273.tfm     +++|*
08131  M00S07274.tfm     +++|*         MACROS CLEAR, MMOVE, RESTP, UDTRD, UDTWT.
08132  M00S07275.tfm     +++|
08133  M00S07276.tfm     +++|
08134  M00S07277.tfm     +++| CSA      ENTRY              ENTRY/EXIT
08135  M00S07278.tfm     +++|          RESTP  CPSI        RESTORE BUFFER POINTERS (VSN INDEX)
08136  M00S07279.tfm     +++|          MMOVE  VBES,BP,PVES,,VSKL
08137  M00S07280.tfm     +++|          MMOVE  VBVS,BP,PVVS,,VSKL
08138  M00S07281.tfm     +++|          MMOVE  VBES,BP,VBVS,BP,VSKL
08139  M00S07282.tfm     +++|          MMOVE  PVES,,VBFV,BP,VSKL
08140  M00S07283.tfm     +++|          CLEAR  VBNV,BP,VSKL
08141  M00S07284.tfm     +++|          LDM    CPCB+2      SET CATALOG INDEX
08142  M00S07285.tfm     +++|          LPN    77
08143  M00S07286.tfm     +++|          SHN    6
08144  M00S07287.tfm     +++|          LMM    CPCB+3
08145  M00S07288.tfm     +++|          STM    VBCI,BP
08146  M00S07289.tfm     +++|          LDM    CPCB+4
08147  M00S07290.tfm     +++|          STM    VBCI+1,BP
08148  M00S07291.tfm     +++|          RJM    SVB         SET VSN BUSY
08149  M00S07292.tfm     +++|          LDM    VBST,BP     SET EOI VOLUME STATUS
08150  M00S07293.tfm     +++|          SCN    EOIV/1S12
08151  M00S07294.tfm     +++|          LMN    EOIV/1S12
08152  M00S07295.tfm     +++|          STM    VBST,BP
08153  M00S07296.tfm     +++|          LDC    100         INCREMENT REEL COUNT
08154  M00S07297.tfm     +++|          RAM    PVRC
08155  M00S07298.tfm     +++|          SCN    77
08156  M00S07299.tfm     +++|          RAM    VBRC,BP
08157  M00S07300.tfm     +++|          SHN    -6
08158  M00S07301.tfm     +++|          SBN    1
08159  M00S07302.tfm     +++|          ZJN    CSA1        IF FIRST VOLUME OF SET
08160  M00S07303.tfm     +++|          MMOVE  PVFV,,VBFV,BP,VSKL
08161  M00S07304.tfm     +++| CSA1     LDD    FC
08162  M00S07305.tfm     +++|          LMN    SSJF
08163  M00S07306.tfm     +++|          NJP    CSA2        IF NOT CALLED BY TFSP
08164  M00S07307.tfm     +++|          LDA    IR+3,REL
08165  M00S07308.tfm     +++|          RJM    SBP         SET BUFFER POINTERS
08166  M00S07309.tfm     +++|          RJM    COB         CHECK OUTPUT BUFFER
08167  M00S07310.tfm     +++|          LDN    TSVL
08168  M00S07311.tfm     +++|          STD    T3
08169  M00S07312.tfm     +++|          LDC    BUFA
08170  M00S07313.tfm     +++|          STD    PB
08171  M00S07314.tfm     +++|          STD    KA
08172  M00S07315.tfm     +++|          RJM    RBB         READ BINARY BUFFER
08173  M00S07316.tfm     +++|          MMOVE  VBJS,PB,VBJS,BP,2  SET *EJTO*
08174  M00S07317.tfm     +++| CSA2     RJM    WRP         WRITE RANDOM PRU
08175  M00S07318.tfm     +++|          RESTP  CPAB        RESTORE BUFFER POINTERS (VSN INDEX)
08176  M00S07319.tfm     +++|          LDD    BA
08177  M00S07320.tfm     +++|          ZJN    CSA3        IF NOT FIRST REEL
08178  M00S07321.tfm     +++|          RJM    RRP         READ RANDOM PRU (VSN INDEX)
08179  M00S07322.tfm     +++|          MMOVE  PVES,,VBNV,BP,VSKL
08180  M00S07323.tfm     +++|          RJM    WRP         WRITE RANDOM PRU (VSN INDEX)
08181  M00S07324.tfm     +++| CSA3     RESTP  CPCB        RESTORE BUFFER POINTERS (CATALOG)
08182  M00S07325.tfm     +++|          RJM    RRP         READ RANDOM PRU
08183  M00S07326.tfm     +++|          LDD    FC
08184  M00S07327.tfm     +++|          LMN    RSXF
08185  M00S07328.tfm     +++|          ZJN    CSA4        IF CALLED BY RESEX
08186  M00S07329.tfm     +++|          LMN    SSJF&RSXF
08187  M00S07330.tfm     +++|          NJP    CSA5        IF NOT CALLED BY TFSP
08188  M00S07331.tfm     +++|          RJM    CVS         COMPLETE VSN SWITCH
08189  M00S07332.tfm     +++|          LJM    CSA7        RETURN
08190  M00S07333.tfm     +++|
08191  M00S07334.tfm     +++| CSA4     MMOVE  PVES,,CBES,BP,VSKL
08192  M00S07335.tfm     +++|          MMOVE  PVES,,CBVS,BP,VSKL
08193  M00S07336.tfm     +++|          LDM    PVRC
08194  M00S07337.tfm     +++|          SHN    -6
08195  M00S07338.tfm     +++|          STM    CBSN+1,BP
08196  M00S07339.tfm     +++|          SBN    1
08197  M00S07340.tfm     +++|          STM    PVES+4      SET REEL NUMBER TO BE PASSED TO *MAGNET*
08198  M00S07341.tfm     +++|          LDA    IR+3,REL    RESTORE *FA* AND *SN*
08199  M00S07342.tfm     +++|          ADN    TFVS
08200  M00S07343.tfm     +++|          CRD    CM
08201  M00S07344.tfm     +++|          LDD    CM+3
08202  M00S07345.tfm     +++|          STM    PVVS+3
08203  M00S07346.tfm     +++|          LDD    CM+4
08204  M00S07347.tfm     +++|          STM    PVVS+4
08205  M00S07348.tfm     +++|          LDM    PFLG        SET BLANK LABEL REQUIRED FLAG
08206  M00S07349.tfm     +++|          LPC    3777
Line S07350 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08207  M01S07350.282l826 ---|          LMBC   PBLR
Line S00083 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08208  M01S00083.282l826 +++|          LMC    4000
08209  M00S07351.tfm     +++|          STM    PFLG
08210  M00S07352.tfm     +++|          LDA    IR+3,REL    UPDATE FET
08211  M00S07353.tfm     +++|          ADN    TFES
08212  M00S07354.tfm     +++|          CWM    PVES,ON
08213  M00S07355.tfm     +++|          ADN    TFVS-TFES-1
08214  M00S07356.tfm     +++|          CWM    PVVS,ON
08215  M00S07357.tfm     +++|          LJM    CSA6        COMPLETE REQUEST
08216  M00S07358.tfm     +++|
08217  M00S07359.tfm     +++| CSA5     UDTRD  CM,/MTX/UESN,1
Line S07360 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08218  M01S07360.282l826 ---|          MMOVE  PVES,,CM,,VSKL
Line S00084 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08219  M01S00084.282l826 +++|          MMOVE  PVES,,CM,,VSKL  SET EXTERNAL VSN
08220  M00S07361.tfm     +++|          UDTWT  CM,/MTX/UESN,1
Line S07362 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08221  M01S07362.282l826 ---|          UDTRD  CM,/MTX/UVSN,1
08222  M01S07363.282l826 ---|          MMOVE  PVVS,,CM,,VSKL
08223  M01S07364.282l826 ---|          LDD    CM+3
08224  M01S07365.282l826 ---|          LPC    -171
08225  M01S07366.282l826 ---|          LMC    /MTX/MNT*10+1
08226  M01S07367.282l826 ---|          STD    CM+3
Line S00085 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08227  M01S00085.282l826 +++|          UDTRD  CM,/MTX/UISN,1
08228  M01S00086.282l826 +++|          MMOVE  PVVS,,CM,,VSKL  SET INTERNAL VSN
08229  M01S00087.282l826 +++|          UDTWT  CM,/MTX/UISN,1
08230  M01S00088.282l826 +++|          UDTRD  CM,/MTX/UVRI,1
08231  M00S07368.tfm     +++|          LDM    PVRC        SET REEL NUMBER
08232  M00S07369.tfm     +++|          SHN    -6
08233  M00S07370.tfm     +++|          SBN    1
Line S07371 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08234  M01S07371.282l826 ---|          STD    CM+4
08235  M01S07372.282l826 ---|          UDTWT  CM,/MTX/UVSN,1
Line S00089 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08236  M01S00089.282l826 +++|          STD    CM+3
08237  M01S00090.282l826 +++|          UDTWT  CM,/MTX/UVRI,1
08238  M00S07373.tfm     +++|          LDM    UTMS+3      SET AUTO-BLANK LABEL
08239  M00S07374.tfm     +++|          SCN    WUBL
08240  M00S07375.tfm     +++|          LMN    WUBL
08241  M00S07376.tfm     +++|          STM    UTMS+3
08242  M00S07377.tfm     +++| CSA6     AOM    CBRC,BP     INCREMENT REEL COUNT
08243  M00S07378.tfm     +++| CSA7     RJM    WRP         WRITE RANDOM PRU
Line S07379 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08244  M01S07379.282l826 ---|          RJM    IEP         ISSUE E,P MESSAGE
08245  M00S07380.tfm     +++|          LJM    CSAX        RETURN
08246  M00S07381.tfm     +++| CVS      SPACE  4,20
08247  M00S07382.tfm     +++|**        CVS - COMPLETE VSN SWITCH.
08248  M00S07383.tfm     +++|*
08249  M00S07384.tfm     +++|*         CVS COMPLETES ASSIGNMENT OF NEXT VSN AND CLEARS
08250  M00S07385.tfm     +++|*         ASSIGNMENT FIELDS IN CURRENT VSN, WHICH IS BEING
08251  M00S07386.tfm     +++|*         FLAGGED BY FUNCTION *GNSS*.  *CVS* IS CALLED BY
08252  M00S07387.tfm     +++|*         *CSA* IF THE FUNCTION CALLED IS *SSJF*.  (TFSP)
08253  M00S07388.tfm     +++|*
08254  M00S07389.tfm     +++|*         ENTRY  (PVES) = NEW VSN.
08255  M00S07390.tfm     +++|*                (DA) = DEMAND FILE FST ADDRESS.
08256  M00S07391.tfm     +++|*                (DE) = DEMAND FILE EQUIPMENT.
08257  M00S07392.tfm     +++|*                (DT) = DEMAND FILE TRACK.
08258  M00S07393.tfm     +++|*                (DS) = DEMAND FILE SECTOR.
08259  M00S07394.tfm     +++|*                IF FIRST REEL, *RSXDID* FILE ATTACHED
08260  M00S07395.tfm     +++|*
08261  M00S07396.tfm     +++|*         EXIT   NEW VSN SET IN UDT OR RSXDID FILE.
08262  M00S07397.tfm     +++|*                IF FIRST REEL, NEW VSN SET IN CATALOG.
08263  M00S07398.tfm     +++|*
08264  M00S07399.tfm     +++|*         USES   CM - CM+4, FS - FS+4, FN - FN+4, T1, T5,
08265  M00S07400.tfm     +++|*                T6, T7.
08266  M00S07401.tfm     +++|*
08267  M00S07402.tfm     +++|*         CALLS  RDS, WBB, WDS.
08268  M00S07403.tfm     +++|*
08269  M00S07404.tfm     +++|*         MACROS CLEAR, ENDMS, ERROR, MMOVE, MONITOR,
08270  M00S07405.tfm     +++|*                SETMS, UDTRD, UDTWT.
08271  M00S07406.tfm     +++|
08272  M00S07407.tfm     +++|
08273  M00S07408.tfm     +++| CVS      SUBR               ENTRY/EXIT
08274  M00S07409.tfm     +++|          LDN    0
08275  M00S07410.tfm     +++|          STM    VBCI,PB     CLEAR CATALOG INDEX
08276  M00S07411.tfm     +++|          STM    VBCI+1,PB
08277  M00S07412.tfm     +++|          LDM    VBRC,PB     CLEAR REEL COUNT
08278  M00S07413.tfm     +++|          LPN    77
08279  M00S07414.tfm     +++|          STM    VBRC,PB
08280  M00S07415.tfm     +++|          LDM    VBST+1,PB   CLEAR BUSY FLAG
08281  M00S07416.tfm     +++|          SCN    VIVS
08282  M00S07417.tfm     +++|          STM    VBST+1,PB
08283  M00S07418.tfm     +++|          CLEAR  VBFV,PB,10D CLEAR FIRST VSN AND JSN
08284  M00S07419.tfm     +++|          LDN    TSVL        WRITE BUFFER TO FET
08285  M00S07420.tfm     +++|          STD    T1
08286  M00S07421.tfm     +++|          LDC    BUFA
08287  M00S07422.tfm     +++|          RJM    WBB         WRITE BINARY BUFFER
08288  M00S07423.tfm     +++|          LDM    UDTA
08289  M00S07424.tfm     +++|          NJP    CVS3        IF REEL EXTENSION
08290  M00S07425.tfm     +++|          MMOVE  PVES,,CBES,BP,VSKL  UPDATE CATALOG
08291  M00S07426.tfm     +++|          MMOVE  PVVS,,CBVS,BP,VSKL
08292  M00S07427.tfm     +++|          LDD    DE          SET EQUIPMENT
08293  M00S07428.tfm     +++|          STD    T5
08294  M00S07429.tfm     +++|          LDD    DT          SET TRACK
08295  M00S07430.tfm     +++|          STD    T6
08296  M00S07431.tfm     +++|          LDD    DS          SET SECTOR
08297  M00S07432.tfm     +++|          STD    T7
Line S07433 Modification History
M01 (Removed by) t5472
Seq #  *Modification Id* Act 
----------------------------+
08298  M01S07433.t5472   ---|          SETMS  ,RW
Line S00050 Modification History
M01 (Added by) t5472
Seq #  *Modification Id* Act 
----------------------------+
08299  M01S00050.t5472   +++|          SETMS  IO,RW
08300  M00S07434.tfm     +++|          LDC    BUF0
08301  M00S07435.tfm     +++|          RJM    RDS         READ SECTOR
08302  M00S07436.tfm     +++|          PJN    CVS2        IF NOT READ ERROR
08303  M00S07437.tfm     +++| CVS1     ERROR  MSE         *EQXX, DNYY, MASS STORAGE ERROR*
08304  M00S07438.tfm     +++|
Line S07439 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08305  M01S07439.274l797 ---| CVS2     MMOVE  PVES,,BUF0+2+/RSX/RQCW*5,,VSKL  SET NEW VSN
08306  M01S07440.274l797 ---|          MMOVE  PVVS,,BUF0+2+/RSX/RQPD*5,,VSKL  SET NEW PRN
Line S00318 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08307  M02S00318.282l826 ---| CVS2     MMOVE  PVES,,BUF0+2+.RQPF,,VSKL  SET NEW VSN
08308  M02S00319.282l826 ---|          MMOVE  PVVS,,BUF0+2+.RQPD,,VSKL  SET NEW PRN
Line S00091 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08309  M01S00091.282l826 +++| CVS2     MMOVE  PVES,,BUF0+2+.RQPV+5*/RSX/PVSN,,VSKL  SET NEW VSN
08310  M01S00092.282l826 +++|          MMOVE  PVVS,,BUF0+2+.RQPV+5*/RSX/PVSI,,VSKL  SET NEW PRN
08311  M00S07441.tfm     +++|          LDC    BUF0
08312  M00S07442.tfm     +++|          RJM    WDS         WRITE SECTOR
08313  M00S07443.tfm     +++|          MJP    CVS1        IF WRITE ERROR
08314  M00S07444.tfm     +++|          ENDMS              DROP CHANNEL
08315  M00S07445.tfm     +++|          LDN    RDFO        SET DEMAND FILE ORDINAL
08316  M00S07446.tfm     +++|          STD    T1
08317  M00S07447.tfm     +++|          LDN    /PFM/PTUP   SET MODE
08318  M00S07448.tfm     +++|          STD    T2
08319  M00S07449.tfm     +++|          LDN    RFAS        RETURN DEMAND FILE
08320  M00S07450.tfm     +++|          RJM    ARF
08321  M00S07451.tfm     +++|*         LDN    0           SET DEMAND FILE NOT ATTACHED
08322  M00S07452.tfm     +++|          STM    DFFO
08323  M00S07453.tfm     +++|          LDN    ZERL        ISSUE RESOURCE EVENT
08324  M00S07454.tfm     +++|          CRD    CM
08325  M00S07455.tfm     +++|          LDM    VBVS,PB     HASH VSN
08326  M00S07456.tfm     +++|          ADM    VBVS+1,PB
08327  M00S07457.tfm     +++|          ADM    VBVS+2,PB
08328  M00S07458.tfm     +++|          SHN    6
08329  M00S07459.tfm     +++|          SCN    77
08330  M00S07460.tfm     +++|          SHN    14
08331  M00S07461.tfm     +++|          ADC    ESVR        ENTER RESOURCE EVENT
08332  M00S07462.tfm     +++|          STD    CM+4
08333  M00S07463.tfm     +++|          SHN    -14
08334  M00S07464.tfm     +++|          STD    CM+3
08335  M00S07465.tfm     +++|          MONITOR EATM
08336  M00S07466.tfm     +++|          LJM    CVSX        RETURN
08337  M00S07467.tfm     +++|
08338  M00S07468.tfm     +++| CVS3     UDTRD  CM,/MTX/UESN,1  UPDATE VSN-S IN *UDT*
08339  M00S07469.tfm     +++|          MMOVE  PVES,,CM,,VSKL
08340  M00S07470.tfm     +++|          UDTWT  CM,/MTX/UESN,1  WRITE *UDT*
Line S07471 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08341  M01S07471.282l826 ---|          UDTRD  CM,/MTX/UVSN,1
Line S00093 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08342  M01S00093.282l826 +++|          UDTRD  CM,/MTX/UISN,1
08343  M00S07472.tfm     +++|          MMOVE  PVVS,,CM,,VSKL
Line S07473 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08344  M01S07473.282l826 ---|          UDTWT  CM,/MTX/UVSN,1
Line S00094 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08345  M01S00094.282l826 +++|          UDTWT  CM,/MTX/UISN,1
08346  M00S07474.tfm     +++|          LJM    CVSX        RETURN
Line S07475 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08347  M01S07475.274l797 ---| GNSS     SPACE  4,10
Line S00320 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08348  M01S00320.274l797 +++| GNSS     SPACE  4,15
08349  M00S07476.tfm     +++|**        GNSS - GET NEXT SCRATCH.
08350  M00S07477.tfm     +++|*
08351  M00S07478.tfm     +++|*         ENTRY  (IR+3 - IR+4) ADDRESS OF VSN ENTRY BUFFER.
08352  M00S07479.tfm     +++|*
08353  M00S07480.tfm     +++|*         EXIT   *VSN* ENTRY IN BUFFER UPDATED.
08354  M00S07481.tfm     +++|*                NEXT SCRATCH *VSN* ASSIGNED TO THE JOB.
08355  M00S07482.tfm     +++|*
Line S07483 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08356  M01S07483.274l797 ---|*         CALLS  ASR, SFV.
Line S00321 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08357  M01S00321.274l797 +++|*         CALLS  ASR, SFV, SSP.
08358  M00S07484.tfm     +++|*
08359  M00S07485.tfm     +++|*         MACROS EXSUB.
08360  M00S07486.tfm     +++|
08361  M00S07487.tfm     +++|
08362  M00S07488.tfm     +++| GNS      ENTRY
08363  M00S07489.tfm     +++|          RJM    SFV         PRESET
08364  M00S07490.tfm     +++|          LDC    BUF2        SET BUFFER POINTERS
08365  M00S07491.tfm     +++|          STD    BA
Line S00322 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08366  M01S00322.274l797 +++|          LDM    VBST+1,PB   DETERMINE TAPE TYPE
08367  M01S00323.274l797 +++|          SHN    -5
08368  M01S00324.274l797 +++|          LPN    3
08369  M01S00325.274l797 +++|          RJM    SSP         SET SCRATCH POOL ADDRESS
08370  M00S07492.tfm     +++|          LDM    VBCI,PB
08371  M00S07493.tfm     +++|          SHN    14
08372  M00S07494.tfm     +++|          STD    CI          SET CATALOG INDEX
08373  M00S07495.tfm     +++|          SHN    -14
08374  M00S07496.tfm     +++|          STD    RI          SET RANDOM INDEX
08375  M00S07497.tfm     +++|          LDM    VBCI+1,PB
08376  M00S07498.tfm     +++|          STD    RI+1
08377  M00S07499.tfm     +++|          RJM    GIB         GET INITIAL BLOCK
08378  M00S07500.tfm     +++|          RJM    VSP         VERIFY/SET POINTERS
08379  M00S07501.tfm     +++|          PJN    GNS1        IF VALID CATALOG POINTERS
08380  M00S07502.tfm     +++|          ERROR  EID         *ERROR IN INDEX DATA*
08381  M00S07503.tfm     +++|
08382  M00S07504.tfm     +++| GNS1     SAVEP  CPCB        SAVE CATALOG BUFFER POINTERS
08383  M00S07505.tfm     +++|          EXSUB  ASR         ASSIGN SCRATCH REEL
08384  M00S07506.tfm     +++|          LJM    GNSX        RETURN
Line S07507 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08385  M01S07507.274l797 ---|          TITLE  ".Y." SUBROUTINES.
Line S00326 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08386  M01S00326.274l797 +++|          TITLE  SUBROUTINES.
Line S07508 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08387  M01S07508.282l826 ---| IEP      SPACE  4,10
08388  M01S07509.282l826 ---|**        IEP - ISSUE E,P MESSAGE.
08389  M01S07510.282l826 ---|*
08390  M01S07511.282l826 ---|*         POSTS *CHECK E,P DISPLAY* AT *MAGNETS* CONTROL POINT.
08391  M01S07512.282l826 ---|*
08392  M01S07513.282l826 ---|*         ENTRY  NONE.
08393  M01S07514.282l826 ---|*
08394  M01S07515.282l826 ---|*         EXIT   MESSAGE WRITTEN TO *MS2W* AT MAGNETS CP.
08395  M01S07516.282l826 ---|*
08396  M01S07517.282l826 ---|*         USES   CM - CM+4.
08397  M01S07518.282l826 ---|
08398  M01S07519.282l826 ---|
08399  M01S07520.282l826 ---| IEP      SUBR               ENTRY/EXIT
08400  M01S07521.282l826 ---|          LDD    MC
08401  M01S07522.282l826 ---|          ZJN    IEPX        IF *MAGNET* NOT UP
08402  M01S07523.282l826 ---|          SHN    7
08403  M01S07524.282l826 ---|          SCN    1
08404  M01S07525.282l826 ---|          ADN    MS2W
Line S07526 Modification History
M01 (Removed by) nos252
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08405  M02S07526.282l826 ---|          CWM    IEPA,ON
Line S00062 Modification History
M01 (Added by) nos252
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08406  M02S00062.282l826 ---|          CWM    IEPA,TR     +$CHECK *TMSDIS,PRE.*+
Line S07527 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08407  M01S07527.282l826 ---|          UJN    IEPX        RETURN
08408  M01S07528.282l826 ---|
Line S07529 Modification History
M01 (Removed by) nos252
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08409  M02S07529.282l826 ---| IEPA     DATA   10H$   CHECK
Line S00063 Modification History
M01 (Added by) nos252
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08410  M02S00063.282l826 ---| IEPA     DATA   C+$CHECK *TMSDIS,PRE.*+
08411  M02S00064.282l826 ---|          ERRNG  3*5-*+IEPA  MESSAGE TOO LONG
08412  M00S07530.tfm     +++|          SPACE  4
08413  M00S07531.tfm     +++|**        LOCAL COMMON DECKS.
08414  M00S07532.tfm     +++|
08415  M00S07533.tfm     +++|
08416  M00S07534.tfm     +++| BSE$     EQU    1           BSE - BACKSPACE ONE ENTRY
08417  M00S07535.tfm     +++| GNB$     EQU    1           DEFINE GNB - GET NEXT BLOCK
08418  M00S07536.tfm     +++| GNL$     EQU    1           DEFINE GNL - GET NEXT LINK
08419  M00S07537.tfm     +++| GPL$     EQU    1           DEFINE GPL - GET PREVIOUS LINK
08420  M00S07538.tfm     +++| ISK$     EQU    1           DEFINE ISK - INDEXED SEARCH FOR KEY
08421  M00S07539.tfm     +++| PLI$     EQU    1           DEFINE PLI - POSITION TO LAST INDEX
08422  M00S07540.tfm     +++| SBP$     EQU    1           DEFINE SBP - SET FET BUFFER POINTERS
08423  M00S07541.tfm     +++| SIB$     EQU    1           DEFINE SIB - SEARCH INDEX BUFFER
Line S00327 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08424  M01S00327.274l797 +++| SSP$     EQU    1           DEFINE SSP - SET SCRATCH POOL ADDRESS
08425  M00S07542.tfm     +++| SVB$     EQU    1           DEFINE SVB - SET VSN BUSY
08426  M00S07543.tfm     +++| TBA$     EQU    1           DEFINE TBA - TOGGLE BUFFER ASSIGNMENT
08427  M00S07544.tfm     +++| UTR$     EQU    1           DEFINE UTR - UPDATE TRT
08428  M00S07545.tfm     +++| VIS$     EQU    1           DEFINE VIS - VSN INDEXED SEARCH
08429  M00S07546.tfm     +++| VSP$     EQU    1           DEFINE VSP - VERIFY/SET CATALOG POINTERS
08430  M00S07547.tfm     +++| IUC$     EQU    1           DEFINE IUC - INCREASE USAGE COUNTER
08431  M00S07548.tfm     +++|*CALL     COMPCOB
08432  M00S07549.tfm     +++|*CALL     COMPRBB
08433  M00S07550.tfm     +++|*CALL     COMPTFM
08434  M00S07551.tfm     +++|*CALL     COMPWBB
08435  M00S07552.tfm     +++|
08436  M00S07553.tfm     +++|
08437  M00S07554.tfm     +++| BUFA     BSS    TSVL*5      VSN BUFFER
08438  M00S07555.tfm     +++|          SPACE  4
08439  M00S07556.tfm     +++|          ERRNG  BUF2-*      BYTES LEFT BEFORE BUFFER OVERFLOW
Line S00328 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08440  M01S00328.274l797 +++|          TITLE  PRESET.
08441  M00S07557.tfm     +++| PRS      SPACE  4,10
08442  M00S07558.tfm     +++|**        PRS - PRESET FOR FUNCTION AVSS.
08443  M00S07559.tfm     +++|*
08444  M00S07560.tfm     +++|*         ENTRY  NONE.
08445  M00S07561.tfm     +++|*
08446  M00S07562.tfm     +++|*         EXIT   (A) = 0 IF NO CATALOG INDEX.
08447  M00S07563.tfm     +++|*                (CPCB - CPCB+4) = CATALOG POINTERS.
08448  M00S07564.tfm     +++|*
08449  M00S07565.tfm     +++|*         USES   KA, (CN - CN+4).
08450  M00S07566.tfm     +++|*
08451  M00S07567.tfm     +++|*         CALLS  VIS.
08452  M00S07568.tfm     +++|*
08453  M00S07569.tfm     +++|*         MACROS ERROR, RESTP.
08454  M00S07570.tfm     +++|
08455  M00S07571.tfm     +++|
08456  M00S07572.tfm     +++| PRS      SUBR               ENTRY/EXIT
08457  M00S07573.tfm     +++|          UDTRD  CN,/MTX/UTCI,1
08458  M00S07574.tfm     +++|          LDM    UTMS+3      SET FIRST *HDR1* LABEL FLAG
08459  M00S07575.tfm     +++|          LPC    -WUFL
08460  M00S07576.tfm     +++|          LMC    WUFL
08461  M00S07577.tfm     +++|          STM    UTMS+3
08462  M00S07578.tfm     +++|          LPN    WURF
08463  M00S07579.tfm     +++|          ZJN    PRS1        IF NOT REWIND
08464  M00S07580.tfm     +++|          LDD    CN+1
08465  M00S07581.tfm     +++|          ZJN    PRS1        IF NOT POSMF IN PROGRESS
08466  M00S07582.tfm     +++|          LDD    CN+2
08467  M00S07583.tfm     +++|          STM    CPCB+4
08468  M00S07584.tfm     +++|          LDD    CN+1
08469  M00S07585.tfm     +++|          UJN    PRS2        SET CATALOG POINTERS
08470  M00S07586.tfm     +++|
08471  M00S07587.tfm     +++| PRS1     LDD    CN+4
08472  M00S07588.tfm     +++|          STM    CPCB+4
08473  M00S07589.tfm     +++|          LDD    CN+3        SET CATALOG POINTERS
08474  M00S07590.tfm     +++| PRS2     ZJN    PRSX        IF NO CATALOG POINTERS
08475  M00S07591.tfm     +++|          SHN    14
08476  M00S07592.tfm     +++|          STM    CPCB+2
08477  M00S07593.tfm     +++|          SHN    -14
08478  M00S07594.tfm     +++|          STM    CPCB+3
08479  M00S07595.tfm     +++|          LDC    BUF2
08480  M00S07596.tfm     +++|          STM    CPCB
08481  M00S07597.tfm     +++|          LDC    PESN        FIND CURRENT VSN
08482  M00S07598.tfm     +++|          STD    KA
08483  M00S07599.tfm     +++|          RJM    VIS         VSN INDEXED SEARCH
08484  M00S07600.tfm     +++|          ZJN    PRS3        IF VSN FOUND
08485  M00S07601.tfm     +++|          ERROR  EID         *ERROR IN INDEX DATA.*
08486  M00S07602.tfm     +++|
Line S07603 Modification History
M01 (Removed by) t5492
Seq #  *Modification Id* Act 
----------------------------+
08487  M01S07603.t5492   ---| PRS3     LDM    VBST+1,BP   CLEAR VOLUME BUSY
Line S00001 Modification History
M01 (Added by) t5492
Seq #  *Modification Id* Act 
----------------------------+
08488  M01S00001.t5492   +++| PRS3     LDM    VBRC,BP     CHECK REEL COUNT
08489  M01S00002.t5492   +++|          SHN    -6
08490  M01S00003.t5492   +++|          SBN    2
08491  M01S00004.t5492   +++|          MJN    PRS3.1      IF FIRST REEL
08492  M01S00005.t5492   +++|          LDM    VBST+1,BP   CLEAR VOLUME BUSY
08493  M00S07604.tfm     +++|          SCN    VIVS
08494  M00S07605.tfm     +++|          STM    VBST+1,BP
Line S00006 Modification History
M01 (Added by) t5492
Seq #  *Modification Id* Act 
----------------------------+
08495  M01S00006.t5492   +++| PRS3.1   BSS    0
08496  M00S07606.tfm     +++|          RESTP  CPCB        RESTORE CATALOG BUFFER
08497  M00S07607.tfm     +++|          LDD    RI
08498  M00S07608.tfm     +++|          ADD    RI+1
08499  M00S07609.tfm     +++|          LJM    PRSX        RETURN
08500  M00S07610.tfm     +++|          SPACE  4
08501  M00S07611.tfm     +++|          ERRNG  BUF1-*      BYTES LEFT BEFORE BUFFER OVERFLOW
Line S07612 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08502  M01S07612.274l797 ---| SFV      TITLE  ".Y." - SUBROUTINES (OVERLAYED BY BUF2).
Line S00329 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08503  M01S00329.274l797 +++|          TITLE  SUBROUTINES (OVERLAYED BY BUF2).
08504  M01S00330.274l797 +++| SFV      SPACE  4,20
08505  M00S07613.tfm     +++|***       SFV - SEARCH FOR VSN.
08506  M00S07614.tfm     +++|*
08507  M00S07615.tfm     +++|*         *SFV* IS CALLED BY THE *GNSS* FUNCTION.  IT MAY BE
08508  M00S07616.tfm     +++|*         OVERLAYED BY BUF2.  *SFV* SEARCHES THE *UDT-S* AND
08509  M00S07617.tfm     +++|*         THE *RSXDID* FILE FOR THE VSN BEING REQUESTED.
08510  M00S07618.tfm     +++|*
08511  M00S07619.tfm     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
08512  M00S07620.tfm     +++|*
08513  M00S07621.tfm     +++|*         EXIT   (CPAB - CPAB+4) = CATALOG BUFFER POINTERS.
08514  M00S07622.tfm     +++|*                IF FIRST REEL, (RESEX)
08515  M00S07623.tfm     +++|*                   (DE) = DEMAND FILE EQUIPMENT.
08516  M00S07624.tfm     +++|*                   (DT) = DEMAND FILE TRACK.
08517  M00S07625.tfm     +++|*                   (DS) = DEMAND FILE SECTOR.
08518  M00S07626.tfm     +++|*                   (DA) = FST ADDRESS OF RSXDID FILE.
08519  M00S07627.tfm     +++|*                   (UDTA) = 0.
08520  M00S07628.tfm     +++|*                   RSXD(ID) IS LEFT BUSY.
08521  M00S07629.tfm     +++|*                IF REEL EXTENSION, (MAGNET)
08522  M00S07630.tfm     +++|*                   (CPAB - CPAB+4) = BUFFER POINTERS TO
08523  M00S07631.tfm     +++|*                                     PREVIOUS VSN.
08524  M00S07632.tfm     +++|*                   (PVFV) = FIRST VSN.
08525  M00S07633.tfm     +++|*                   (UDTA) = *FWA* OF UDT ENTRY.
08526  M00S07634.tfm     +++|*
08527  M00S07635.tfm     +++|*         USES   CM - CM+4, CN - CN+4, DE, DT, DS, KA, PB, T3, T5, T6,
08528  M00S07636.tfm     +++|*                T7.
08529  M00S07637.tfm     +++|*
08530  M00S07638.tfm     +++|*         CALLS  COB, FAT, RBB, RND, SBP, VIS.
08531  M00S07639.tfm     +++|*
Line S07640 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08532  M01S07640.274l797 ---|*         MACROS COMPARE, ENDMS, ERROR, MONITOR, MMOVE, SAVEP, SETMS,
08533  M01S07641.274l797 ---|*                UDTRD.
Line S00331 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08534  M01S00331.274l797 +++|*         MACROS COMPARE, ENDMS, ERROR, MONITOR, MMOVE, PAUSE, SAVEP,
08535  M01S00332.274l797 +++|*                SETMS, UDTRD.
08536  M00S07642.tfm     +++|
08537  M00S07643.tfm     +++|
08538  M00S07644.tfm     +++| SFV16    SAVEP  CPAB        SAVE BUFFER POINTERS
08539  M00S07645.tfm     +++|          MMOVE  VBFV,PB,PVFV,,VSKL  SAVE FIRST VSN
08540  M00S07646.tfm     +++|          LDM    VBRC,BP     SAVE REEL COUNT
08541  M00S07647.tfm     +++|          STM    PVRC
08542  M00S07648.tfm     +++|          UJN    SFVX        RETURN
08543  M00S07649.tfm     +++|
08544  M00S07650.tfm     +++| SFV17    ENDMS
08545  M00S07651.tfm     +++|
08546  M00S07652.tfm     +++| SFV      SUBR               ENTRY/EXIT
08547  M00S07653.tfm     +++|          LDA    IR+3,REL
08548  M00S07654.tfm     +++|          RJM    SBP         SET FET BUFFER POINTERS
08549  M00S07655.tfm     +++|          RJM    COB         CHECK OUTPUT BUFFERS
08550  M00S07656.tfm     +++|          PJN    SFV1        IF NO ERROR
08551  M00S07657.tfm     +++|          ERROR  BAE         *BUFFER ARGUMENT ERROR*
08552  M00S07658.tfm     +++|
08553  M00S07659.tfm     +++| SFV1     LDN    TSVL        PROCESS REQUEST
08554  M00S07660.tfm     +++|          STD    T3
08555  M00S07661.tfm     +++|          LDC    BUFA        SET UP BUFFER POINTER
08556  M00S07662.tfm     +++|          STD    PB
08557  M00S07663.tfm     +++|          STD    KA
08558  M00S07664.tfm     +++|          RJM    RBB         READ BINARY BUFFER
08559  M00S07665.tfm     +++|          LDC    PVES
08560  M00S07666.tfm     +++|          STD    KA
08561  M00S07667.tfm     +++|          MMOVE  VBES,PB,,KA,VSKL
08562  M00S07668.tfm     +++|          RJM    VIS         VSN INDEXED SEARCH
08563  M00S07669.tfm     +++|          NJP    SFV8        IF VSN NOT FOUND
08564  M00S07670.tfm     +++|          LDM    VBNV,BP     CHECK FOR NEXT VSN
08565  M00S07671.tfm     +++|          NJP    SFV5        IF NEXT VSN
Line S07672 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08566  M01S07672.274l797 ---| SFV2     LDN    0           GET FIRST AND LAST ADDRESS OF *UDT-S*
Line S00333 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08567  M01S00333.274l797 +++| SFV2     PAUSE              ALLOW MOVE / CHECK FOR ERROR
08568  M01S00334.274l797 +++|          LDD    CM+1
08569  M01S00335.274l797 +++|          LMN    ORET
08570  M01S00336.274l797 +++|          ZJN    SFV2.1      IF OVERRIDE ERROR
08571  M01S00337.274l797 +++|          LDN    0           GET FIRST AND LAST ADDRESS OF *UDT-S*
08572  M00S07673.tfm     +++|          STD    CM+1
08573  M00S07674.tfm     +++|          LDC    MTSI        SET *MAGNET* SUBSYSTEM ID
08574  M00S07675.tfm     +++|          STD    CM+2
08575  M00S07676.tfm     +++|          LDC    /MTX/UBUF   SET BUFFER ADDRESS
08576  M00S07677.tfm     +++|          STD    CM+4
08577  M00S07678.tfm     +++|          SHN    -14
08578  M00S07679.tfm     +++|          ADC    100         SET WORD COUNT
08579  M00S07680.tfm     +++|          STD    CM+3
08580  M00S07681.tfm     +++|          MONITOR  TDAM
08581  M00S07682.tfm     +++|          LDD    CM+1
08582  M00S07683.tfm     +++|          ZJN    SFV3        IF COMPLETE
08583  M00S07684.tfm     +++|          SCN    3
08584  M00S07685.tfm     +++|          ZJN    SFV2        IF MAGNET BUSY, RETRY
Line S07686 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08585  M01S07686.274l797 ---|          ERROR  MNA         *MAGNET NOT ACTIVE*
Line S00338 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08586  M01S00338.274l797 +++| SFV2.1   ERROR  MNA         *MAGNET NOT ACTIVE*
08587  M00S07687.tfm     +++|
08588  M00S07688.tfm     +++| SFV3     LDD    MA          SET *FWA* OF UDT
08589  M00S07689.tfm     +++|          CRD    CN
08590  M00S07690.tfm     +++|          LDD    CN+4
08591  M00S07691.tfm     +++|          SBN    /MTX/UNITL
08592  M00S07692.tfm     +++|          STM    UDTA
Line S00095 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08593  M01S00095.282l826 +++|          LDD    CN+2        SET LWA+1 OF UDT
08594  M01S00096.282l826 +++|          STD    T5
08595  M00S07693.tfm     +++| SFV4     LDN    /MTX/UNITL  SEARCH UDT FOR JOB
08596  M00S07694.tfm     +++|          RAM    UDTA
Line S07695 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08597  M01S07695.282l826 ---|          SBD    CN+2        CHECK FOR END OF UDTS
Line S00097 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08598  M01S00097.282l826 +++|          SBD    T5
08599  M00S07696.tfm     +++|          PJP    SFV9        IF END OF *UDT-S*
Line S07697 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08600  M01S07697.282l826 ---|          UDTRD  CM,/MTX/UJID,1  READ *EJTO* FROM *UDT*
08601  M01S07698.282l826 ---|          COMPARE CM+4,,VBJS,PB,2
Line S00098 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08602  M01S00098.282l826 +++|          UDTRD  CN,/MTX/UVRI,1  READ EJT ORDINAL AND FLAGS
08603  M01S00099.282l826 +++|          COMPARE CN,,VBJS,PB,2
08604  M00S07699.tfm     +++|          NJN    SFV4        IF NO MATCH
08605  M00S07700.tfm     +++|          UDTRD  CM,/MTX/UESN,1  READ *VSN* FROM *UDT*
08606  M00S07701.tfm     +++|          COMPARE CM,,VBES,PB,4
08607  M00S07702.tfm     +++|          NJP    SFV4        IF NOT FOUND
Line S07703 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08608  M01S07703.282l826 ---|          UDTRD  CM,/MTX/UVSN,1  CHECK FOR MOUNT FLAG
08609  M01S07704.282l826 ---|          LDD    CM+3
08610  M01S07705.282l826 ---|          LPC    171
08611  M01S07706.282l826 ---|          LMC    /MTX/MNT*10+1
08612  M01S07707.282l826 ---|          ZJN    SFV6        IF NOT ALREADY ASSIGNED
Line S00100 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08613  M01S00100.282l826 +++|          LDD    CN+4
08614  M01S00101.282l826 +++|          LPN    21
08615  M01S00102.282l826 +++|          LMN    1
08616  M01S00103.282l826 +++|          ZJN    SFV6        IF MOUNT REQUEST FOR VSN
08617  M00S07708.tfm     +++| SFV5     ERROR  VBS         *VSN BUSY*
08618  M00S07709.tfm     +++|
08619  M00S07710.tfm     +++| SFV6     LDC    PVES        SET FIRST VSN
08620  M00S07711.tfm     +++|          STD    KA
08621  M00S07712.tfm     +++|          MMOVE  VBFV,PB,,KA,VSKL
08622  M00S07713.tfm     +++| SFV7     RJM    VIS         VSN INDEXED SEARCH
08623  M00S07714.tfm     +++|          NJN    SFV8        IF NOT FOUND
08624  M00S07715.tfm     +++|          COMPARE  VBES,PB,VBNV,BP,VSKL
08625  M00S07716.tfm     +++|          ZJP    SFV16       IF NEXT VSN POINTS TO THIS VSN
08626  M00S07717.tfm     +++|          MMOVE  VBNV,BP,,KA,VSKL
08627  M00S07718.tfm     +++|          LDI    KA
08628  M00S07719.tfm     +++|          NJN    SFV7        IF NO NEXT VSN
08629  M00S07720.tfm     +++| SFV8     ERROR  EID         ERROR IN INDEX DATA
08630  M00S07721.tfm     +++|
08631  M00S07722.tfm     +++| SFV9     LDN    RDFO        SET DEMAND FILE FNT ORDINAL
08632  M00S07723.tfm     +++|          STD    T1
08633  M00S07724.tfm     +++|          STM    DFFO
08634  M00S07725.tfm     +++|          LDN    /PFM/PTUP   SET MODE
08635  M00S07726.tfm     +++|          STD    T2
Line S07727 Modification History
M01 (Removed by) t2807
Seq #  *Modification Id* Act 
----------------------------+
08636  M01S07727.t2807   ---|          LDN    AFAS        ATTACH DEMAND FILE
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/tfm.004.txt ยท Last modified: (external edit)