User Tools

Site Tools


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

Deck TFM Part 005

23 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
07760  M01S06981.tfm     +++|          STM    PBGN+1
07761  M01S06982.tfm     +++| DCE3     MMOVE  PBUF,,CBES,BP,6*10D
07762  M01S06983.tfm     +++|          LDN    0
07763  M01S06984.tfm     +++|          STM    CBTD+1,BP
Line S06985 Modification History
M01 (Added by) tfm
M02 (Updated by) t5519
Seq #  *Modification Id* Act 
----------------------------+
07764  M02S06985.t5519   ---|          LIA    CBLD,BP
Line S06986 Modification History
M01 (Added by) tfm
M02 (Updated by) t5519
Seq #  *Modification Id* Act 
----------------------------+
07765  M02S06986.t5519   ---|          STM    DCEA
Line S06987 Modification History
M01 (Added by) tfm
M02 (Updated by) t5519
Seq #  *Modification Id* Act 
----------------------------+
07766  M02S06987.t5519   ---|          LDN    JDAL
Line S06988 Modification History
M01 (Added by) tfm
M02 (Updated by) t5519
Seq #  *Modification Id* Act 
----------------------------+
07767  M02S06988.t5519   ---|          CRM    **,ON
Line S06989 Modification History
M01 (Added by) tfm
M02 (Updated by) t5519
Seq #  *Modification Id* Act 
----------------------------+
07768  M02S06989.t5519   ---| DCEA     EQU    *-1         (ADDRESS OF LABEL DATES)
Line S06990 Modification History
M01 (Added by) tfm
M02 (Updated by) t5519
Seq #  *Modification Id* Act 
----------------------------+
07769  M02S06990.t5519   ---|          MMOVE  PBCR,,CBLD,BP,5
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  M01S06991.tfm     +++|          MMOVE  PPWD,,CBPW,BP,10D
07792  M01S06992.tfm     +++|          LDC    FCPR*100+FMRE  FILE CATEGORY AND MODE DEFAULTS
07793  M01S06993.tfm     +++|          STM    CBCT,BP
07794  M01S06994.tfm     +++|          LIA    CBCD,BP
07795  M01S06995.tfm     +++|          RJM    EDT         ENTER PACKED DATE/TIME
07796  M01S06996.tfm     +++|          LIA    CBMD,BP
07797  M01S06997.tfm     +++|          RJM    EDT         ENTER PACKED DATE/TIME
07798  M01S06998.tfm     +++|          LIA    CBAD,BP
07799  M01S06999.tfm     +++|          RJM    EDT         ENTER PACKED DATE/TIME
07800  M01S07000.tfm     +++|          LDN    1
07801  M01S07001.tfm     +++|          STM    CBAC+1,BP   INITIALIZE ACCESS COUNT
07802  M01S07002.tfm     +++|          LDM    UDTA
07803  M01S07003.tfm     +++|          ZJP    DCE4        IF NOT MULTI-FILE
07804  M01S07004.tfm     +++|          LDN    1           INITIALIZE REEL COUNT
07805  M01S07005.tfm     +++|          STM    CBRC,BP
07806  M01S07006.tfm     +++| DCE4     LDN    2
07807  M01S07007.tfm     +++|          STD    T1
07808  M01S07008.tfm     +++|          LIA    CBCN,BP
07809  M01S07009.tfm     +++|          STM    DCEB
07810  M01S07010.tfm     +++|          LIA    CBPN,BP
07811  M01S07011.tfm     +++|          STM    DCEC
07812  M01S07012.tfm     +++|          NFA    CHGN
07813  M01S07013.tfm     +++|          CRM    **,ON
07814  M01S07014.tfm     +++| DCEB     EQU    *-1
07815  M01S07015.tfm     +++|          NFA    PJ1N
07816  M01S07016.tfm     +++|          CRM    **,T1
07817  M01S07017.tfm     +++| DCEC     EQU    *-1
07818  M01S07018.tfm     +++|          LDM    PFTD+1      INSURE PO=W
07819  M01S07019.tfm     +++|          SCN    30
07820  M01S07020.tfm     +++|          LMN    20
07821  M01S07021.tfm     +++|          STM    PFTD+1
07822  M01S07022.tfm     +++|          LDM    PFTD
07823  M01S07023.tfm     +++|          SHN    21-12
07824  M01S07024.tfm     +++|          PJN    DCE5        IF UNLABELED FILE
07825  M01S07025.tfm     +++|          SCN    1           INSURE WRITE LABEL SET
07826  M01S07026.tfm     +++|          LMN    1
07827  M01S07027.tfm     +++|          SHN    13-0
07828  M01S07028.tfm     +++|          STM    PFTD
07829  M01S07029.tfm     +++| DCE5     LDM    CBST,BP
07830  M01S07030.tfm     +++|          SHN    21-2
07831  M01S07031.tfm     +++|          MJN    DCE6        IF SYMBOLIC ACCESS
07832  M01S07032.tfm     +++|          LDM    CBQN,BP     SET SEQUENCE NUMBER TO 1
07833  M01S07033.tfm     +++|          SCN    77
07834  M01S07034.tfm     +++|          STM    CBQN,BP
07835  M01S07035.tfm     +++|          LDN    1
07836  M01S07036.tfm     +++|          STM    CBQN+1,BP
07837  M01S07037.tfm     +++| DCE6     LJM    DCEX        RETURN
07838  M01S07038.tfm     +++|          SPACE  4,10
07839  M01S07039.tfm     +++|**        LOCAL COMMON DECKS.
07840  M01S07040.tfm     +++|
07841  M01S07041.tfm     +++|
07842  M01S07042.tfm     +++| BSE$     EQU    1           DEFINE BSE - BACKSPACE ONE ENTRY
07843  M01S07043.tfm     +++| CIE$     EQU    1           DEFINE CIE - CREATE INDEXED ENTRY
07844  M01S07044.tfm     +++| IBC$     EQU    1           DEFINE IBC - INITIALIZE BLOCK CHAIN
07845  M01S07045.tfm     +++| ISK$     EQU    1           DEFINE ISK - INDEXED SEARCH FOR KEY
07846  M01S07046.tfm     +++| SCB$     EQU    1           DEFINE SCB - SEARCH CATALOG BUFFER
07847  M01S07047.tfm     +++| SIB$     EQU    1           DEFINE SIB - SEARCH INDEX BUFFER
07848  M01S00278.274l797 +++| SSP$     EQU    1           DEFINE SSP - SET SCRATCH POOL ADDRESS
07849  M01S07048.tfm     +++| UIS$     EQU    1           DEFINE UIS - USERNAME INDEXED SEARCH
07850  M01S07049.tfm     +++| VSP$     EQU    1           DEFINE VSP - VERIFY/SET CATALOG POINTERS
07851  M01S07050.tfm     +++|*CALL     COMPTFM
07852  M01S07051.tfm     +++|*CALL     COMPWEI
07853  M01S07052.tfm     +++|          SPACE  4
07854  M01S07053.tfm     +++|**        BUFFERS.
07855  M01S07054.tfm     +++|
07856  M01S07055.tfm     +++|
07857  M01S07056.tfm     +++| BUFA     BSS    TSVL*5
07858  M01S07057.tfm     +++| BUFB     BSS    TSVL*5
07859  M01S07058.tfm     +++|          SPACE  4,10
07860  M01S07059.tfm     +++|          ERRNG  BUF2-*      BYTES LEFT BEFORE OVERFLOW
Line S07060 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07861  M02S07060.274l797 ---|          OVERLAY (SUBFUNCTION ASRS, AVSS, CSAS, GNSS.),OVL1
07862  M01S00279.274l797 +++|          OVERLAY (ASSIGN SCRATCH TAPE.),OVL1
07863  M01S07061.tfm     +++|          SPACE  4,10
07864  M01S07062.tfm     +++|***       COMMON SYMBOL DEFINITIONS.
07865  M01S07063.tfm     +++|
07866  M01S07064.tfm     +++|
Line S07065 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07867  M02S07065.274l797 ---| RSX      EQU    *
07868  M01S07066.tfm     +++|          QUAL   RSX
07869  M01S07067.tfm     +++|*CALL     COMSRSX
07870  M01S07068.tfm     +++|          QUAL   *
Line S07069 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07871  M02S07069.274l797 ---|          ORG    RSX
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 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07876  M02S00284.282l826 ---| .RQPF    EQU    /RSX/RQPF*5-500
Line S00285 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07877  M02S00285.282l826 ---|          ERRNG  /RSX/RQPF-100  MUST BE IN 2ND PRU OF DEMAND FILE ENTRY
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
07880  M01S00286.274l797 +++|
Line S00287 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07881  M02S00287.282l826 ---| .RQPD    EQU    /RSX/RQPD*5-500
Line S00288 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07882  M02S00288.282l826 ---|          ERRNG  /RSX/RQPD-100  MUST BE IN 2ND PRU OF DEMAND FILE ENTRY
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  M01S07070.tfm     +++|          SPACE  4,10
07886  M01S07071.tfm     +++|***       DIRECT CELL LOCATIONS.
07887  M01S07072.tfm     +++|
07888  M01S07073.tfm     +++|
07889  M01S07074.tfm     +++| CN       EQU    S1 - S1+4
07890  M01S07075.tfm     +++| DE       EQU    S1+1        DEMAND FILE EQUIPMENT
07891  M01S07076.tfm     +++| DT       EQU    S1+2        DEMAND FILE TRACK
07892  M01S07077.tfm     +++| DS       EQU    S1+3        DEMAND FILE SECTOR
07893  M01S07078.tfm     +++| IL       EQU    S2+1        INTERLOCK FLAG
07894  M01S07079.tfm     +++| FT       EQU    S2+2 - S2+3 FET FIRST POINTER
07895  M01S07080.tfm     +++| IN       EQU    S2+4 - S3+0 FET IN POINTER
07896  M01S07081.tfm     +++| OT       EQU    S3+1 - S3+2 FET OUT POINTER
07897  M01S07082.tfm     +++| LM       EQU    S3+3 - S3+4 FET LIMIT POINTER
07898  M01S07083.tfm     +++| ASRS     SPACE  4,10
07899  M01S07084.tfm     +++|**        ASRS - ASSIGN SCRATCH REEL.
07900  M01S07085.tfm     +++|*
07901  M01S07086.tfm     +++|*         ENTRY  (CPCB - CPCB+4) = CATALOG POINTERS.
07902  M01S07087.tfm     +++|*                (CPAB - CPAB+4) = PREVIOUS VSN INDEX.
07903  M01S00289.274l797 +++|*                (SCRP) = ADDRESS IN *TMST* OF CORRECT SCRATCH POOL.
07904  M01S07088.tfm     +++|*
07905  M01S07089.tfm     +++|*         EXIT   SCRATCH TAPE ASSIGNED TO THE JOB.
07906  M01S07090.tfm     +++|*
Line S07091 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07907  M02S07091.274l797 ---|*         USES   BA, CM - CM+4, EC, FP - FP+4, KA,
Line S07092 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07908  M02S07092.274l797 ---|*                PB, RI - RI+1.
07909  M01S00290.274l797 +++|*         USES   BA, EC, KA, PB, T3, CM - CM+4, FP - FP+4, RI - RI+1.
07910  M01S07093.tfm     +++|*
Line S07094 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07911  M02S07094.274l797 ---|*         CALLS  ARF, CIE, DEE, DLB, EDT, ERR, MBP,
Line S07095 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07912  M02S07095.274l797 ---|*                RRP, SAC, VIS, WRP.
07913  M01S00291.274l797 +++|*         CALLS  ARF, CIE, DEE, DLB, EDT, ERR, MBP, RRP, SAC, VIS, WRP.
07914  M01S07096.tfm     +++|*
07915  M01S07097.tfm     +++|*         MACROS LDA, MMOVE, RESTP, SAVEP, UDTRD, UDTWT.
07916  M01S07098.tfm     +++|
07917  M01S07099.tfm     +++|
07918  M01S07100.tfm     +++| ASR      ENTRY              ENTRY/EXIT
07919  M01S00292.274l797 +++|          LDM    SCRP        SET SCRATCH POOL ADDRESS
07920  M01S00293.274l797 +++|          STM    ASRB
07921  M01S07101.tfm     +++| ASR1     RESTP  CPSB        RESTORE TMST BUFFER POINTERS
07922  M01S07102.tfm     +++|          LDM    CPCB        DEFINE TMST BUFFER = CATALOG BUFFER
07923  M01S07103.tfm     +++|          STD    BA
07924  M01S07104.tfm     +++|          RJM    GIB         GET INITIAL BLOCK (TMST)
07925  M01S07105.tfm     +++|          LDM    CWFE,BA
07926  M01S07106.tfm     +++|          RJM    MBP         MOVE BUFFER POINTER
07927  M01S07107.tfm     +++|          SAVEP  CPSB        SAVE BUFFER POINTERS (TMST)
Line S07108 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07928  M02S07108.274l797 ---|          LDM    SBSV,BP
07929  M01S00294.274l797 +++|          LDM    SBSM,BP     CHECK SCRATCH POOL
07930  M01S00295.274l797 +++| ASRB     EQU    *-1         (ADDRESS IN *TMST* OF CORRECT SCRATCH POOL)
07931  M01S07109.tfm     +++|          LMC    7777
07932  M01S07110.tfm     +++|          NJN    ASR4        IF SCRATCH AVAILABLE
07933  M01S07111.tfm     +++|          LDM    SBST,BP
07934  M01S07112.tfm     +++|          LPN    FFTS/10000
07935  M01S07113.tfm     +++|          NJN    ASR2        IF FOREIGN FAMILY
07936  M01S07114.tfm     +++|          EXOVL  GSP         SEARCH GLOBAL SCRATCH POOLS (NO RETURN)
07937  M01S07115.tfm     +++|
07938  M01S07116.tfm     +++| ASR2     ERROR  WSA         *WAIT SCRATCH ASSIGNMENT.*
07939  M01S07117.tfm     +++|
07940  M01S07118.tfm     +++| ASR3     ERROR  EID         *ERROR IN INDEX DATA.*
07941  M01S07119.tfm     +++|
07942  M01S07120.tfm     +++| ASR4     LDC    PVNV        LOCATE SCRATCH
07943  M01S07121.tfm     +++|          STD    KA
Line S07122 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07944  M02S07122.274l797 ---|          MMOVE  SBSV,BP,,KA,VSKL
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  M01S07123.tfm     +++|          RJM    VIS         VSN INDEXED SEARCH
07950  M01S07124.tfm     +++|          NJN    ASR3        IF NOT FOUND
07951  M01S07125.tfm     +++|          LDM    VBST,BP
07952  M01S07126.tfm     +++|          LPN    ASVS/10000
07953  M01S07127.tfm     +++|          ZJN    ASR3        IF SCRATCH NOT FOUND
07954  M01S07128.tfm     +++|          LDM    VBST,BP
07955  M01S07129.tfm     +++|          LPN    RTVS/10000
07956  M01S07130.tfm     +++|          NJN    ASR3        IF TAPE RESERVED
07957  M01S07131.tfm     +++|          LDM    VBST,BP
07958  M01S07132.tfm     +++|          LPN    HMVS/10000+UOVS/10000
07959  M01S07133.tfm     +++|          STM    ASRA
07960  M01S07134.tfm     +++|          NJN    ASR5        IF NOT AVAILABLE
07961  M01S07135.tfm     +++|          LDM    VBST+1,BP
07962  M01S07136.tfm     +++|          LPN    TVVS+MVVS+ERVS+VIVS
07963  M01S07137.tfm     +++|          STM    ASRA
07964  M01S07138.tfm     +++| ASR5     RESTP  CPSB        RESTORE TMST BUFFER POINTERS
Line S07139 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07965  M02S07139.274l797 ---|          MMOVE  VBNV,CPSI+1,SBSV,BP,VSKL
Line S07140 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07966  M02S07140.274l797 ---|          LDA    SBSC,BP
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  M01S07141.tfm     +++|          SBN    1
Line S07142 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07973  M02S07142.274l797 ---|          STM    SBSC+1,BP
07974  M01S00305.274l797 +++|          STM    4,T3
07975  M01S07143.tfm     +++|          SHN    -14
Line S07144 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07976  M02S07144.274l797 ---|          STM    SBSC,BP
07977  M01S00306.274l797 +++|          STM    3,T3
07978  M01S07145.tfm     +++|          RJM    WRP         WRITE RANDOM PRU (TMST)
07979  M01S07146.tfm     +++|          LDC    0
07980  M01S07147.tfm     +++| ASRA     EQU    *-1
07981  M01S07148.tfm     +++|          ZJN    ASR7        IF THIS SCRATCH VSN ACCEPTABLE
07982  M01S07149.tfm     +++|          RESTP  CPSI        RESTORE SECONDARY VSN POINTERS
07983  M01S07150.tfm     +++|          LDM    VBST+1,BP
07984  M01S07151.tfm     +++|          LPN    VIVS
07985  M01S07152.tfm     +++|          NJN    ASR6        IF VSN INTERLOCKED
07986  M01S07153.tfm     +++|          CLEAR  VBNV,BP,VSKL  CLEAR NEXT VOLUME
07987  M01S07154.tfm     +++|          RJM    WRP
07988  M01S07155.tfm     +++| ASR6     LJM    ASR1        GET NEXT SCRATCH TAPE
07989  M01S07156.tfm     +++|
07990  M01S07157.tfm     +++| ASR7     EXSUB  CSA         COMPLETE SCRATCH ASSIGNMENT
07991  M01S07158.tfm     +++|          LJM    ASRX        RETURN
07992  M01S07159.tfm     +++| AVSS     SPACE  4,10
07993  M01S07160.tfm     +++|**        AVSS - ADVANCE VSN FILE.
07994  M01S07161.tfm     +++|*
Line S07162 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07995  M02S07162.274l797 ---|*         CALLED BY *MAGNET* TO SET THE NEXT VOLUME
Line S07163 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07996  M02S07163.274l797 ---|*         OF TAPE IN THE UDT.
07997  M01S00307.274l797 +++|*         CALLED BY *MAGNET* TO SET THE NEXT VOLUME OF TAPE IN THE UDT.
07998  M01S07164.tfm     +++|*
Line S07165 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07999  M02S07165.274l797 ---|*         ENTRY  NONE.
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  M01S07166.tfm     +++|*
Line S07167 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08004  M02S07167.274l797 ---|*         EXIT   IF THERE IS A NEXT VOLUME IT IS RETURNED
Line S07168 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08005  M02S07168.274l797 ---|*                IF THERE IS NOT A NEXT VOLUME AND THIS IS
Line S07169 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08006  M02S07169.274l797 ---|*                IF WRITE REQUEST A SCRATCH VOLUME WILL BE
Line S07170 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08007  M02S07170.274l797 ---|*                ASSIGNED.
08008  M01S00311.274l797 +++|*         USES   BA, CI, CM - CM+4, KA, RI - RI+1.
08009  M01S07171.tfm     +++|*
Line S07172 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08010  M02S07172.274l797 ---|*         USES   BA, CI, CM - CM+4, KA, RI - RI+1.
Line S07173 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08011  M02S07173.274l797 ---|*
Line S07174 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08012  M02S07174.274l797 ---|*         CALLS  ASR, IEP, PRS, VIS, VSP, WRP.
Line S00312 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08013  M02S00312.282l826 ---|*         CALLS  ASR, IEP, PRS, SSP, VIS, VSP, WRP.
08014  M01S00070.282l826 +++|*         CALLS  ASR, PRS, SSP, VIS, VSP, WRP.
08015  M01S07175.tfm     +++|*
08016  M01S07176.tfm     +++|*         MACROS ERROR, EXOVL, MMOVE, UDTRD, UDTWT.
08017  M01S07177.tfm     +++|
08018  M01S07178.tfm     +++|
08019  M01S07179.tfm     +++| AVS      ENTRY              ENTRY/EXIT
08020  M01S07180.tfm     +++|          RJM    PRS         PRESET
08021  M01S07181.tfm     +++|          ZJN    AVSX        IF NO CATALOG ENTRY
08022  M01S07182.tfm     +++|          RJM    RRP         GET CATALOG
08023  M01S07183.tfm     +++|          RJM    VSP         VERIFY/SET CATALOG POINTERS
08024  M01S07184.tfm     +++|          MJN    AVSX        IF ERROR
08025  M01S07185.tfm     +++|          SAVEP  CPCB
08026  M01S07186.tfm     +++|          RESTP  CPSI        RESTORE VSN SECONDARY INDEX POINTERS
08027  M01S07187.tfm     +++|          LDM    UTMS+3
08028  M01S07188.tfm     +++|          LPN    WURF
08029  M01S07189.tfm     +++|          NJP    AVS6        IF REWIND FILE
08030  M01S07190.tfm     +++|          LDM    VBRC,BP     CHECK FOR LAST VOLUME
08031  M01S07191.tfm     +++|          SHN    -6
08032  M01S07192.tfm     +++|          LMM    UTMS+2
08033  M01S07193.tfm     +++|          NJN    AVS1        IF NOT LAST VOLUME
08034  M01S07194.tfm     +++|          LDM    VBST,BP     CLEAR EOI VOLUME STATUS
08035  M01S07195.tfm     +++|          SCN    EOIV/1S12
08036  M01S07196.tfm     +++|          STM    VBST,BP
08037  M01S07197.tfm     +++| AVS1     RJM    WRP         WRITE RANDOM PRU (VSN INDEX)
08038  M01S07198.tfm     +++|          MMOVE  VBNV,BP,,KA,VSKL
08039  M01S07199.tfm     +++|          LDI    KA
08040  M01S07200.tfm     +++|          ZJN    AVS4        IF END OF ASSIGNED VOLUMES
08041  M01S07201.tfm     +++|          RJM    VIS         VSN INDEXED SEARCH
08042  M01S07202.tfm     +++|          NJN    AVS3        IF VOLUME NOT FOUND
08043  M01S07203.tfm     +++|          LDM    VBRC,BP     CHECK FOR LAST VOLUME
08044  M01S07204.tfm     +++|          SHN    -6
08045  M01S07205.tfm     +++|          STD    T0
08046  M01S07206.tfm     +++|          LDM    UTMS+2
08047  M01S07207.tfm     +++|          ZJN    AVS2        IF NOT WRITTEN TO
08048  M01S07208.tfm     +++|          SBD    T0
08049  M01S07209.tfm     +++|          SBN    1
08050  M01S07210.tfm     +++|          NJN    AVS2        IF NOT LAST VOLUME
08051  M01S07211.tfm     +++|          LDM    VBST,BP     SET EOI VOLUME STATUS
08052  M01S07212.tfm     +++|          SCN    EOIV/1S12
08053  M01S07213.tfm     +++|          LMN    EOIV/1S12
08054  M01S07214.tfm     +++|          STM    VBST,BP
08055  M01S07215.tfm     +++| AVS2     RJM    IUC         INCREASE USAGE COUNTER
08056  M01S07216.tfm     +++|          RJM    WRP         WRITE RANDOM PRU (VSN INDEX)
08057  M01S07217.tfm     +++|          LJM    AVS7        UPDATE UDT
08058  M01S07218.tfm     +++|
08059  M01S07219.tfm     +++| AVS3     ERROR  EID         *ERROR IN INDEX DATA.*
08060  M01S07220.tfm     +++|
08061  M01S07221.tfm     +++| AVS4     LDM    UTMS+4      CHECK VOLUME EXTENSION
08062  M01S07222.tfm     +++|          SHN    21-12
Line S07223 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08063  M02S07223.274l797 ---|          MJN    AVS5        IF USER OWNED FILE
08064  M01S00313.274l797 +++|          MJP    AVS5        IF USER OWNED FILE
08065  M01S07224.tfm     +++|          SAVEP  CPAB        SAVE BUFFER POINTERS (VSN INDEX)
08066  M01S07225.tfm     +++|          MMOVE  VBFV,BP,PVFV,,VSKL
08067  M01S07226.tfm     +++|          LDM    VBRC,BP
08068  M01S07227.tfm     +++|          SCN    77
08069  M01S07228.tfm     +++|          STD    T0
08070  M01S07229.tfm     +++|          LDM    PVRC
08071  M01S07230.tfm     +++|          LPN    77
08072  M01S07231.tfm     +++|          LMD    T0
08073  M01S07232.tfm     +++|          STM    PVRC        SAVE REEL COUNT
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  M01S07233.tfm     +++|          EXSUB  ASR         ASSIGN SCRATCH REEL
08079  M01S07234.tfm     +++|          LJM    AVSX        RETURN
08080  M01S07235.tfm     +++|
08081  M01S07236.tfm     +++| AVS5     ERROR  NEU         *NO EXTEND ON USER OWNED FILE.*
08082  M01S07237.tfm     +++|
08083  M01S07238.tfm     +++| AVS6     LMM    UTMS+3      CLEAR REWIND FLAG
08084  M01S07239.tfm     +++|          STM    UTMS+3
08085  M01S07240.tfm     +++|          COMPARE CBES,CPCB+1,VBES,BP,VSKL
08086  M01S07241.tfm     +++|          ZJP    AVSX        IF REWIND CURRENT VOLUME
08087  M01S07242.tfm     +++|          RJM    WRP         WRITE RANDOM PRU (VSN INDEX)
08088  M01S07243.tfm     +++|          LDC    PVES
08089  M01S07244.tfm     +++|          STD    KA
08090  M01S07245.tfm     +++|          MMOVE  CBES,CPCB+1,,KA,VSKL
08091  M01S07246.tfm     +++|          RJM    VIS         VSN INDEXED SEARCH
08092  M01S07247.tfm     +++|          NJP    AVS3        IF VSN NOT FOUND
08093  M01S07248.tfm     +++|          RJM    IUC         INCREASE USAGE COUNTER
08094  M01S07249.tfm     +++| AVS7     MMOVE  VBES,BP,,KA,VSKL
Line S07250 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08095  M02S07250.282l826 ---|          UDTWT  PVES,/MTX/UESN,1
Line S07251 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08096  M02S07251.282l826 ---|          UDTRD  CM,/MTX/UVSN,1
Line S07252 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08097  M02S07252.282l826 ---|          MMOVE  VBVS,BP,CM,,VSKL
Line S07253 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08098  M02S07253.282l826 ---|          LDD    CM+3
Line S07254 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08099  M02S07254.282l826 ---|          LPC    -171
Line S07255 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08100  M02S07255.282l826 ---|          LMC    /MTX/MNT*10+1
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  M01S07256.tfm     +++|          STD    CM+3
Line S07257 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08112  M02S07257.282l826 ---|          LDM    VBRC,BP
Line S07258 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08113  M02S07258.282l826 ---|          SHN    -6
Line S07259 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08114  M02S07259.282l826 ---|          SBN    1
Line S07260 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08115  M02S07260.282l826 ---|          STD    CM+4
Line S07261 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08116  M02S07261.282l826 ---|          UDTWT  CM,/MTX/UVSN,1
Line S07262 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08117  M02S07262.282l826 ---|          RJM    IEP         ISSUE E,P MESSAGE
08118  M01S00081.282l826 +++|          UDTWT  CM,/MTX/UVRI,1
08119  M01S07263.tfm     +++|          LJM    AVSX        RETURN
08120  M01S07264.tfm     +++| CSAS     SPACE  4,10
08121  M01S07265.tfm     +++|**        CSAS - COMPLETE SCRATCH ASSIGNMENT.
08122  M01S07266.tfm     +++|*
08123  M01S07267.tfm     +++|*         ENTRY  (CPSI - CPSI+1) = VSN INDEX POINTERS.
08124  M01S07268.tfm     +++|*                (CPCB - CPCB+4) = CATALOG POINTERS.
08125  M01S07269.tfm     +++|*
08126  M01S07270.tfm     +++|*         USES   CM - CM+4, KA, PB, T3.
08127  M01S07271.tfm     +++|*
Line S07272 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08128  M02S07272.282l826 ---|*         CALLS  COB, CVS, IEP, RBB, RRP, SBP, SVB, WRP.
08129  M01S00082.282l826 +++|*         CALLS  COB, CVS, RBB, RRP, SBP, SVB, WRP.
08130  M01S07273.tfm     +++|*
08131  M01S07274.tfm     +++|*         MACROS CLEAR, MMOVE, RESTP, UDTRD, UDTWT.
08132  M01S07275.tfm     +++|
08133  M01S07276.tfm     +++|
08134  M01S07277.tfm     +++| CSA      ENTRY              ENTRY/EXIT
08135  M01S07278.tfm     +++|          RESTP  CPSI        RESTORE BUFFER POINTERS (VSN INDEX)
08136  M01S07279.tfm     +++|          MMOVE  VBES,BP,PVES,,VSKL
08137  M01S07280.tfm     +++|          MMOVE  VBVS,BP,PVVS,,VSKL
08138  M01S07281.tfm     +++|          MMOVE  VBES,BP,VBVS,BP,VSKL
08139  M01S07282.tfm     +++|          MMOVE  PVES,,VBFV,BP,VSKL
08140  M01S07283.tfm     +++|          CLEAR  VBNV,BP,VSKL
08141  M01S07284.tfm     +++|          LDM    CPCB+2      SET CATALOG INDEX
08142  M01S07285.tfm     +++|          LPN    77
08143  M01S07286.tfm     +++|          SHN    6
08144  M01S07287.tfm     +++|          LMM    CPCB+3
08145  M01S07288.tfm     +++|          STM    VBCI,BP
08146  M01S07289.tfm     +++|          LDM    CPCB+4
08147  M01S07290.tfm     +++|          STM    VBCI+1,BP
08148  M01S07291.tfm     +++|          RJM    SVB         SET VSN BUSY
08149  M01S07292.tfm     +++|          LDM    VBST,BP     SET EOI VOLUME STATUS
08150  M01S07293.tfm     +++|          SCN    EOIV/1S12
08151  M01S07294.tfm     +++|          LMN    EOIV/1S12
08152  M01S07295.tfm     +++|          STM    VBST,BP
08153  M01S07296.tfm     +++|          LDC    100         INCREMENT REEL COUNT
08154  M01S07297.tfm     +++|          RAM    PVRC
08155  M01S07298.tfm     +++|          SCN    77
08156  M01S07299.tfm     +++|          RAM    VBRC,BP
08157  M01S07300.tfm     +++|          SHN    -6
08158  M01S07301.tfm     +++|          SBN    1
08159  M01S07302.tfm     +++|          ZJN    CSA1        IF FIRST VOLUME OF SET
08160  M01S07303.tfm     +++|          MMOVE  PVFV,,VBFV,BP,VSKL
08161  M01S07304.tfm     +++| CSA1     LDD    FC
08162  M01S07305.tfm     +++|          LMN    SSJF
08163  M01S07306.tfm     +++|          NJP    CSA2        IF NOT CALLED BY TFSP
08164  M01S07307.tfm     +++|          LDA    IR+3,REL
08165  M01S07308.tfm     +++|          RJM    SBP         SET BUFFER POINTERS
08166  M01S07309.tfm     +++|          RJM    COB         CHECK OUTPUT BUFFER
08167  M01S07310.tfm     +++|          LDN    TSVL
08168  M01S07311.tfm     +++|          STD    T3
08169  M01S07312.tfm     +++|          LDC    BUFA
08170  M01S07313.tfm     +++|          STD    PB
08171  M01S07314.tfm     +++|          STD    KA
08172  M01S07315.tfm     +++|          RJM    RBB         READ BINARY BUFFER
08173  M01S07316.tfm     +++|          MMOVE  VBJS,PB,VBJS,BP,2  SET *EJTO*
08174  M01S07317.tfm     +++| CSA2     RJM    WRP         WRITE RANDOM PRU
08175  M01S07318.tfm     +++|          RESTP  CPAB        RESTORE BUFFER POINTERS (VSN INDEX)
08176  M01S07319.tfm     +++|          LDD    BA
08177  M01S07320.tfm     +++|          ZJN    CSA3        IF NOT FIRST REEL
08178  M01S07321.tfm     +++|          RJM    RRP         READ RANDOM PRU (VSN INDEX)
08179  M01S07322.tfm     +++|          MMOVE  PVES,,VBNV,BP,VSKL
08180  M01S07323.tfm     +++|          RJM    WRP         WRITE RANDOM PRU (VSN INDEX)
08181  M01S07324.tfm     +++| CSA3     RESTP  CPCB        RESTORE BUFFER POINTERS (CATALOG)
08182  M01S07325.tfm     +++|          RJM    RRP         READ RANDOM PRU
08183  M01S07326.tfm     +++|          LDD    FC
08184  M01S07327.tfm     +++|          LMN    RSXF
08185  M01S07328.tfm     +++|          ZJN    CSA4        IF CALLED BY RESEX
08186  M01S07329.tfm     +++|          LMN    SSJF&RSXF
08187  M01S07330.tfm     +++|          NJP    CSA5        IF NOT CALLED BY TFSP
08188  M01S07331.tfm     +++|          RJM    CVS         COMPLETE VSN SWITCH
08189  M01S07332.tfm     +++|          LJM    CSA7        RETURN
08190  M01S07333.tfm     +++|
08191  M01S07334.tfm     +++| CSA4     MMOVE  PVES,,CBES,BP,VSKL
08192  M01S07335.tfm     +++|          MMOVE  PVES,,CBVS,BP,VSKL
08193  M01S07336.tfm     +++|          LDM    PVRC
08194  M01S07337.tfm     +++|          SHN    -6
08195  M01S07338.tfm     +++|          STM    CBSN+1,BP
08196  M01S07339.tfm     +++|          SBN    1
08197  M01S07340.tfm     +++|          STM    PVES+4      SET REEL NUMBER TO BE PASSED TO *MAGNET*
08198  M01S07341.tfm     +++|          LDA    IR+3,REL    RESTORE *FA* AND *SN*
08199  M01S07342.tfm     +++|          ADN    TFVS
08200  M01S07343.tfm     +++|          CRD    CM
08201  M01S07344.tfm     +++|          LDD    CM+3
08202  M01S07345.tfm     +++|          STM    PVVS+3
08203  M01S07346.tfm     +++|          LDD    CM+4
08204  M01S07347.tfm     +++|          STM    PVVS+4
08205  M01S07348.tfm     +++|          LDM    PFLG        SET BLANK LABEL REQUIRED FLAG
08206  M01S07349.tfm     +++|          LPC    3777
Line S07350 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08207  M02S07350.282l826 ---|          LMBC   PBLR
08208  M01S00083.282l826 +++|          LMC    4000
08209  M01S07351.tfm     +++|          STM    PFLG
08210  M01S07352.tfm     +++|          LDA    IR+3,REL    UPDATE FET
08211  M01S07353.tfm     +++|          ADN    TFES
08212  M01S07354.tfm     +++|          CWM    PVES,ON
08213  M01S07355.tfm     +++|          ADN    TFVS-TFES-1
08214  M01S07356.tfm     +++|          CWM    PVVS,ON
08215  M01S07357.tfm     +++|          LJM    CSA6        COMPLETE REQUEST
08216  M01S07358.tfm     +++|
08217  M01S07359.tfm     +++| CSA5     UDTRD  CM,/MTX/UESN,1
Line S07360 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08218  M02S07360.282l826 ---|          MMOVE  PVES,,CM,,VSKL
08219  M01S00084.282l826 +++|          MMOVE  PVES,,CM,,VSKL  SET EXTERNAL VSN
08220  M01S07361.tfm     +++|          UDTWT  CM,/MTX/UESN,1
Line S07362 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08221  M02S07362.282l826 ---|          UDTRD  CM,/MTX/UVSN,1
Line S07363 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08222  M02S07363.282l826 ---|          MMOVE  PVVS,,CM,,VSKL
Line S07364 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08223  M02S07364.282l826 ---|          LDD    CM+3
Line S07365 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08224  M02S07365.282l826 ---|          LPC    -171
Line S07366 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08225  M02S07366.282l826 ---|          LMC    /MTX/MNT*10+1
Line S07367 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08226  M02S07367.282l826 ---|          STD    CM+3
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  M01S07368.tfm     +++|          LDM    PVRC        SET REEL NUMBER
08232  M01S07369.tfm     +++|          SHN    -6
08233  M01S07370.tfm     +++|          SBN    1
Line S07371 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08234  M02S07371.282l826 ---|          STD    CM+4
Line S07372 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08235  M02S07372.282l826 ---|          UDTWT  CM,/MTX/UVSN,1
08236  M01S00089.282l826 +++|          STD    CM+3
08237  M01S00090.282l826 +++|          UDTWT  CM,/MTX/UVRI,1
08238  M01S07373.tfm     +++|          LDM    UTMS+3      SET AUTO-BLANK LABEL
08239  M01S07374.tfm     +++|          SCN    WUBL
08240  M01S07375.tfm     +++|          LMN    WUBL
08241  M01S07376.tfm     +++|          STM    UTMS+3
08242  M01S07377.tfm     +++| CSA6     AOM    CBRC,BP     INCREMENT REEL COUNT
08243  M01S07378.tfm     +++| CSA7     RJM    WRP         WRITE RANDOM PRU
Line S07379 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08244  M02S07379.282l826 ---|          RJM    IEP         ISSUE E,P MESSAGE
08245  M01S07380.tfm     +++|          LJM    CSAX        RETURN
08246  M01S07381.tfm     +++| CVS      SPACE  4,20
08247  M01S07382.tfm     +++|**        CVS - COMPLETE VSN SWITCH.
08248  M01S07383.tfm     +++|*
08249  M01S07384.tfm     +++|*         CVS COMPLETES ASSIGNMENT OF NEXT VSN AND CLEARS
08250  M01S07385.tfm     +++|*         ASSIGNMENT FIELDS IN CURRENT VSN, WHICH IS BEING
08251  M01S07386.tfm     +++|*         FLAGGED BY FUNCTION *GNSS*.  *CVS* IS CALLED BY
08252  M01S07387.tfm     +++|*         *CSA* IF THE FUNCTION CALLED IS *SSJF*.  (TFSP)
08253  M01S07388.tfm     +++|*
08254  M01S07389.tfm     +++|*         ENTRY  (PVES) = NEW VSN.
08255  M01S07390.tfm     +++|*                (DA) = DEMAND FILE FST ADDRESS.
08256  M01S07391.tfm     +++|*                (DE) = DEMAND FILE EQUIPMENT.
08257  M01S07392.tfm     +++|*                (DT) = DEMAND FILE TRACK.
08258  M01S07393.tfm     +++|*                (DS) = DEMAND FILE SECTOR.
08259  M01S07394.tfm     +++|*                IF FIRST REEL, *RSXDID* FILE ATTACHED
08260  M01S07395.tfm     +++|*
08261  M01S07396.tfm     +++|*         EXIT   NEW VSN SET IN UDT OR RSXDID FILE.
08262  M01S07397.tfm     +++|*                IF FIRST REEL, NEW VSN SET IN CATALOG.
08263  M01S07398.tfm     +++|*
08264  M01S07399.tfm     +++|*         USES   CM - CM+4, FS - FS+4, FN - FN+4, T1, T5,
08265  M01S07400.tfm     +++|*                T6, T7.
08266  M01S07401.tfm     +++|*
08267  M01S07402.tfm     +++|*         CALLS  RDS, WBB, WDS.
08268  M01S07403.tfm     +++|*
08269  M01S07404.tfm     +++|*         MACROS CLEAR, ENDMS, ERROR, MMOVE, MONITOR,
08270  M01S07405.tfm     +++|*                SETMS, UDTRD, UDTWT.
08271  M01S07406.tfm     +++|
08272  M01S07407.tfm     +++|
08273  M01S07408.tfm     +++| CVS      SUBR               ENTRY/EXIT
08274  M01S07409.tfm     +++|          LDN    0
08275  M01S07410.tfm     +++|          STM    VBCI,PB     CLEAR CATALOG INDEX
08276  M01S07411.tfm     +++|          STM    VBCI+1,PB
08277  M01S07412.tfm     +++|          LDM    VBRC,PB     CLEAR REEL COUNT
08278  M01S07413.tfm     +++|          LPN    77
08279  M01S07414.tfm     +++|          STM    VBRC,PB
08280  M01S07415.tfm     +++|          LDM    VBST+1,PB   CLEAR BUSY FLAG
08281  M01S07416.tfm     +++|          SCN    VIVS
08282  M01S07417.tfm     +++|          STM    VBST+1,PB
08283  M01S07418.tfm     +++|          CLEAR  VBFV,PB,10D CLEAR FIRST VSN AND JSN
08284  M01S07419.tfm     +++|          LDN    TSVL        WRITE BUFFER TO FET
08285  M01S07420.tfm     +++|          STD    T1
08286  M01S07421.tfm     +++|          LDC    BUFA
08287  M01S07422.tfm     +++|          RJM    WBB         WRITE BINARY BUFFER
08288  M01S07423.tfm     +++|          LDM    UDTA
08289  M01S07424.tfm     +++|          NJP    CVS3        IF REEL EXTENSION
08290  M01S07425.tfm     +++|          MMOVE  PVES,,CBES,BP,VSKL  UPDATE CATALOG
08291  M01S07426.tfm     +++|          MMOVE  PVVS,,CBVS,BP,VSKL
08292  M01S07427.tfm     +++|          LDD    DE          SET EQUIPMENT
08293  M01S07428.tfm     +++|          STD    T5
08294  M01S07429.tfm     +++|          LDD    DT          SET TRACK
08295  M01S07430.tfm     +++|          STD    T6
08296  M01S07431.tfm     +++|          LDD    DS          SET SECTOR
08297  M01S07432.tfm     +++|          STD    T7
Line S07433 Modification History
M01 (Added by) tfm
M02 (Updated by) t5472
Seq #  *Modification Id* Act 
----------------------------+
08298  M02S07433.t5472   ---|          SETMS  ,RW
08299  M01S00050.t5472   +++|          SETMS  IO,RW
08300  M01S07434.tfm     +++|          LDC    BUF0
08301  M01S07435.tfm     +++|          RJM    RDS         READ SECTOR
08302  M01S07436.tfm     +++|          PJN    CVS2        IF NOT READ ERROR
08303  M01S07437.tfm     +++| CVS1     ERROR  MSE         *EQXX, DNYY, MASS STORAGE ERROR*
08304  M01S07438.tfm     +++|
Line S07439 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08305  M02S07439.274l797 ---| CVS2     MMOVE  PVES,,BUF0+2+/RSX/RQCW*5,,VSKL  SET NEW VSN
Line S07440 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08306  M02S07440.274l797 ---|          MMOVE  PVVS,,BUF0+2+/RSX/RQPD*5,,VSKL  SET NEW PRN
Line S00318 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08307  M02S00318.282l826 ---| CVS2     MMOVE  PVES,,BUF0+2+.RQPF,,VSKL  SET NEW VSN
Line S00319 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08308  M02S00319.282l826 ---|          MMOVE  PVVS,,BUF0+2+.RQPD,,VSKL  SET NEW PRN
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  M01S07441.tfm     +++|          LDC    BUF0
08312  M01S07442.tfm     +++|          RJM    WDS         WRITE SECTOR
08313  M01S07443.tfm     +++|          MJP    CVS1        IF WRITE ERROR
08314  M01S07444.tfm     +++|          ENDMS              DROP CHANNEL
08315  M01S07445.tfm     +++|          LDN    RDFO        SET DEMAND FILE ORDINAL
08316  M01S07446.tfm     +++|          STD    T1
08317  M01S07447.tfm     +++|          LDN    /PFM/PTUP   SET MODE
08318  M01S07448.tfm     +++|          STD    T2
08319  M01S07449.tfm     +++|          LDN    RFAS        RETURN DEMAND FILE
08320  M01S07450.tfm     +++|          RJM    ARF
08321  M01S07451.tfm     +++|*         LDN    0           SET DEMAND FILE NOT ATTACHED
08322  M01S07452.tfm     +++|          STM    DFFO
08323  M01S07453.tfm     +++|          LDN    ZERL        ISSUE RESOURCE EVENT
08324  M01S07454.tfm     +++|          CRD    CM
08325  M01S07455.tfm     +++|          LDM    VBVS,PB     HASH VSN
08326  M01S07456.tfm     +++|          ADM    VBVS+1,PB
08327  M01S07457.tfm     +++|          ADM    VBVS+2,PB
08328  M01S07458.tfm     +++|          SHN    6
08329  M01S07459.tfm     +++|          SCN    77
08330  M01S07460.tfm     +++|          SHN    14
08331  M01S07461.tfm     +++|          ADC    ESVR        ENTER RESOURCE EVENT
08332  M01S07462.tfm     +++|          STD    CM+4
08333  M01S07463.tfm     +++|          SHN    -14
08334  M01S07464.tfm     +++|          STD    CM+3
08335  M01S07465.tfm     +++|          MONITOR EATM
08336  M01S07466.tfm     +++|          LJM    CVSX        RETURN
08337  M01S07467.tfm     +++|
08338  M01S07468.tfm     +++| CVS3     UDTRD  CM,/MTX/UESN,1  UPDATE VSN-S IN *UDT*
08339  M01S07469.tfm     +++|          MMOVE  PVES,,CM,,VSKL
08340  M01S07470.tfm     +++|          UDTWT  CM,/MTX/UESN,1  WRITE *UDT*
Line S07471 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08341  M02S07471.282l826 ---|          UDTRD  CM,/MTX/UVSN,1
08342  M01S00093.282l826 +++|          UDTRD  CM,/MTX/UISN,1
08343  M01S07472.tfm     +++|          MMOVE  PVVS,,CM,,VSKL
Line S07473 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08344  M02S07473.282l826 ---|          UDTWT  CM,/MTX/UVSN,1
08345  M01S00094.282l826 +++|          UDTWT  CM,/MTX/UISN,1
08346  M01S07474.tfm     +++|          LJM    CVSX        RETURN
Line S07475 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08347  M02S07475.274l797 ---| GNSS     SPACE  4,10
08348  M01S00320.274l797 +++| GNSS     SPACE  4,15
08349  M01S07476.tfm     +++|**        GNSS - GET NEXT SCRATCH.
08350  M01S07477.tfm     +++|*
08351  M01S07478.tfm     +++|*         ENTRY  (IR+3 - IR+4) ADDRESS OF VSN ENTRY BUFFER.
08352  M01S07479.tfm     +++|*
08353  M01S07480.tfm     +++|*         EXIT   *VSN* ENTRY IN BUFFER UPDATED.
08354  M01S07481.tfm     +++|*                NEXT SCRATCH *VSN* ASSIGNED TO THE JOB.
08355  M01S07482.tfm     +++|*
Line S07483 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08356  M02S07483.274l797 ---|*         CALLS  ASR, SFV.
08357  M01S00321.274l797 +++|*         CALLS  ASR, SFV, SSP.
08358  M01S07484.tfm     +++|*
08359  M01S07485.tfm     +++|*         MACROS EXSUB.
08360  M01S07486.tfm     +++|
08361  M01S07487.tfm     +++|
08362  M01S07488.tfm     +++| GNS      ENTRY
08363  M01S07489.tfm     +++|          RJM    SFV         PRESET
08364  M01S07490.tfm     +++|          LDC    BUF2        SET BUFFER POINTERS
08365  M01S07491.tfm     +++|          STD    BA
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  M01S07492.tfm     +++|          LDM    VBCI,PB
08371  M01S07493.tfm     +++|          SHN    14
08372  M01S07494.tfm     +++|          STD    CI          SET CATALOG INDEX
08373  M01S07495.tfm     +++|          SHN    -14
08374  M01S07496.tfm     +++|          STD    RI          SET RANDOM INDEX
08375  M01S07497.tfm     +++|          LDM    VBCI+1,PB
08376  M01S07498.tfm     +++|          STD    RI+1
08377  M01S07499.tfm     +++|          RJM    GIB         GET INITIAL BLOCK
08378  M01S07500.tfm     +++|          RJM    VSP         VERIFY/SET POINTERS
08379  M01S07501.tfm     +++|          PJN    GNS1        IF VALID CATALOG POINTERS
08380  M01S07502.tfm     +++|          ERROR  EID         *ERROR IN INDEX DATA*
08381  M01S07503.tfm     +++|
08382  M01S07504.tfm     +++| GNS1     SAVEP  CPCB        SAVE CATALOG BUFFER POINTERS
08383  M01S07505.tfm     +++|          EXSUB  ASR         ASSIGN SCRATCH REEL
08384  M01S07506.tfm     +++|          LJM    GNSX        RETURN
Line S07507 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08385  M02S07507.274l797 ---|          TITLE  ".Y." SUBROUTINES.
08386  M01S00326.274l797 +++|          TITLE  SUBROUTINES.
Line S07508 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08387  M02S07508.282l826 ---| IEP      SPACE  4,10
Line S07509 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08388  M02S07509.282l826 ---|**        IEP - ISSUE E,P MESSAGE.
Line S07510 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08389  M02S07510.282l826 ---|*
Line S07511 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08390  M02S07511.282l826 ---|*         POSTS *CHECK E,P DISPLAY* AT *MAGNETS* CONTROL POINT.
Line S07512 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08391  M02S07512.282l826 ---|*
Line S07513 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08392  M02S07513.282l826 ---|*         ENTRY  NONE.
Line S07514 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08393  M02S07514.282l826 ---|*
Line S07515 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08394  M02S07515.282l826 ---|*         EXIT   MESSAGE WRITTEN TO *MS2W* AT MAGNETS CP.
Line S07516 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08395  M02S07516.282l826 ---|*
Line S07517 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08396  M02S07517.282l826 ---|*         USES   CM - CM+4.
Line S07518 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08397  M02S07518.282l826 ---|
Line S07519 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08398  M02S07519.282l826 ---|
Line S07520 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08399  M02S07520.282l826 ---| IEP      SUBR               ENTRY/EXIT
Line S07521 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08400  M02S07521.282l826 ---|          LDD    MC
Line S07522 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08401  M02S07522.282l826 ---|          ZJN    IEPX        IF *MAGNET* NOT UP
Line S07523 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08402  M02S07523.282l826 ---|          SHN    7
Line S07524 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08403  M02S07524.282l826 ---|          SCN    1
Line S07525 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08404  M02S07525.282l826 ---|          ADN    MS2W
Line S07526 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08405  M03S07526.282l826 ---|          CWM    IEPA,ON
Line S00062 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08406  M02S00062.282l826 ---|          CWM    IEPA,TR     +$CHECK *TMSDIS,PRE.*+
Line S07527 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08407  M02S07527.282l826 ---|          UJN    IEPX        RETURN
Line S07528 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08408  M02S07528.282l826 ---|
Line S07529 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08409  M03S07529.282l826 ---| IEPA     DATA   10H$   CHECK
Line S00063 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08410  M02S00063.282l826 ---| IEPA     DATA   C+$CHECK *TMSDIS,PRE.*+
Line S00064 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08411  M02S00064.282l826 ---|          ERRNG  3*5-*+IEPA  MESSAGE TOO LONG
08412  M01S07530.tfm     +++|          SPACE  4
08413  M01S07531.tfm     +++|**        LOCAL COMMON DECKS.
08414  M01S07532.tfm     +++|
08415  M01S07533.tfm     +++|
08416  M01S07534.tfm     +++| BSE$     EQU    1           BSE - BACKSPACE ONE ENTRY
08417  M01S07535.tfm     +++| GNB$     EQU    1           DEFINE GNB - GET NEXT BLOCK
08418  M01S07536.tfm     +++| GNL$     EQU    1           DEFINE GNL - GET NEXT LINK
08419  M01S07537.tfm     +++| GPL$     EQU    1           DEFINE GPL - GET PREVIOUS LINK
08420  M01S07538.tfm     +++| ISK$     EQU    1           DEFINE ISK - INDEXED SEARCH FOR KEY
08421  M01S07539.tfm     +++| PLI$     EQU    1           DEFINE PLI - POSITION TO LAST INDEX
08422  M01S07540.tfm     +++| SBP$     EQU    1           DEFINE SBP - SET FET BUFFER POINTERS
08423  M01S07541.tfm     +++| SIB$     EQU    1           DEFINE SIB - SEARCH INDEX BUFFER
08424  M01S00327.274l797 +++| SSP$     EQU    1           DEFINE SSP - SET SCRATCH POOL ADDRESS
08425  M01S07542.tfm     +++| SVB$     EQU    1           DEFINE SVB - SET VSN BUSY
08426  M01S07543.tfm     +++| TBA$     EQU    1           DEFINE TBA - TOGGLE BUFFER ASSIGNMENT
08427  M01S07544.tfm     +++| UTR$     EQU    1           DEFINE UTR - UPDATE TRT
08428  M01S07545.tfm     +++| VIS$     EQU    1           DEFINE VIS - VSN INDEXED SEARCH
08429  M01S07546.tfm     +++| VSP$     EQU    1           DEFINE VSP - VERIFY/SET CATALOG POINTERS
08430  M01S07547.tfm     +++| IUC$     EQU    1           DEFINE IUC - INCREASE USAGE COUNTER
08431  M01S07548.tfm     +++|*CALL     COMPCOB
08432  M01S07549.tfm     +++|*CALL     COMPRBB
08433  M01S07550.tfm     +++|*CALL     COMPTFM
08434  M01S07551.tfm     +++|*CALL     COMPWBB
08435  M01S07552.tfm     +++|
08436  M01S07553.tfm     +++|
08437  M01S07554.tfm     +++| BUFA     BSS    TSVL*5      VSN BUFFER
08438  M01S07555.tfm     +++|          SPACE  4
08439  M01S07556.tfm     +++|          ERRNG  BUF2-*      BYTES LEFT BEFORE BUFFER OVERFLOW
08440  M01S00328.274l797 +++|          TITLE  PRESET.
08441  M01S07557.tfm     +++| PRS      SPACE  4,10
08442  M01S07558.tfm     +++|**        PRS - PRESET FOR FUNCTION AVSS.
08443  M01S07559.tfm     +++|*
08444  M01S07560.tfm     +++|*         ENTRY  NONE.
08445  M01S07561.tfm     +++|*
08446  M01S07562.tfm     +++|*         EXIT   (A) = 0 IF NO CATALOG INDEX.
08447  M01S07563.tfm     +++|*                (CPCB - CPCB+4) = CATALOG POINTERS.
08448  M01S07564.tfm     +++|*
08449  M01S07565.tfm     +++|*         USES   KA, (CN - CN+4).
08450  M01S07566.tfm     +++|*
08451  M01S07567.tfm     +++|*         CALLS  VIS.
08452  M01S07568.tfm     +++|*
08453  M01S07569.tfm     +++|*         MACROS ERROR, RESTP.
08454  M01S07570.tfm     +++|
08455  M01S07571.tfm     +++|
08456  M01S07572.tfm     +++| PRS      SUBR               ENTRY/EXIT
08457  M01S07573.tfm     +++|          UDTRD  CN,/MTX/UTCI,1
08458  M01S07574.tfm     +++|          LDM    UTMS+3      SET FIRST *HDR1* LABEL FLAG
08459  M01S07575.tfm     +++|          LPC    -WUFL
08460  M01S07576.tfm     +++|          LMC    WUFL
08461  M01S07577.tfm     +++|          STM    UTMS+3
08462  M01S07578.tfm     +++|          LPN    WURF
08463  M01S07579.tfm     +++|          ZJN    PRS1        IF NOT REWIND
08464  M01S07580.tfm     +++|          LDD    CN+1
08465  M01S07581.tfm     +++|          ZJN    PRS1        IF NOT POSMF IN PROGRESS
08466  M01S07582.tfm     +++|          LDD    CN+2
08467  M01S07583.tfm     +++|          STM    CPCB+4
08468  M01S07584.tfm     +++|          LDD    CN+1
08469  M01S07585.tfm     +++|          UJN    PRS2        SET CATALOG POINTERS
08470  M01S07586.tfm     +++|
08471  M01S07587.tfm     +++| PRS1     LDD    CN+4
08472  M01S07588.tfm     +++|          STM    CPCB+4
08473  M01S07589.tfm     +++|          LDD    CN+3        SET CATALOG POINTERS
08474  M01S07590.tfm     +++| PRS2     ZJN    PRSX        IF NO CATALOG POINTERS
08475  M01S07591.tfm     +++|          SHN    14
08476  M01S07592.tfm     +++|          STM    CPCB+2
08477  M01S07593.tfm     +++|          SHN    -14
08478  M01S07594.tfm     +++|          STM    CPCB+3
08479  M01S07595.tfm     +++|          LDC    BUF2
08480  M01S07596.tfm     +++|          STM    CPCB
08481  M01S07597.tfm     +++|          LDC    PESN        FIND CURRENT VSN
08482  M01S07598.tfm     +++|          STD    KA
08483  M01S07599.tfm     +++|          RJM    VIS         VSN INDEXED SEARCH
08484  M01S07600.tfm     +++|          ZJN    PRS3        IF VSN FOUND
08485  M01S07601.tfm     +++|          ERROR  EID         *ERROR IN INDEX DATA.*
08486  M01S07602.tfm     +++|
Line S07603 Modification History
M01 (Added by) tfm
M02 (Updated by) t5492
Seq #  *Modification Id* Act 
----------------------------+
08487  M02S07603.t5492   ---| PRS3     LDM    VBST+1,BP   CLEAR VOLUME BUSY
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  M01S07604.tfm     +++|          SCN    VIVS
08494  M01S07605.tfm     +++|          STM    VBST+1,BP
08495  M01S00006.t5492   +++| PRS3.1   BSS    0
08496  M01S07606.tfm     +++|          RESTP  CPCB        RESTORE CATALOG BUFFER
08497  M01S07607.tfm     +++|          LDD    RI
08498  M01S07608.tfm     +++|          ADD    RI+1
08499  M01S07609.tfm     +++|          LJM    PRSX        RETURN
08500  M01S07610.tfm     +++|          SPACE  4
08501  M01S07611.tfm     +++|          ERRNG  BUF1-*      BYTES LEFT BEFORE BUFFER OVERFLOW
Line S07612 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08502  M02S07612.274l797 ---| SFV      TITLE  ".Y." - SUBROUTINES (OVERLAYED BY BUF2).
08503  M01S00329.274l797 +++|          TITLE  SUBROUTINES (OVERLAYED BY BUF2).
08504  M01S00330.274l797 +++| SFV      SPACE  4,20
08505  M01S07613.tfm     +++|***       SFV - SEARCH FOR VSN.
08506  M01S07614.tfm     +++|*
08507  M01S07615.tfm     +++|*         *SFV* IS CALLED BY THE *GNSS* FUNCTION.  IT MAY BE
08508  M01S07616.tfm     +++|*         OVERLAYED BY BUF2.  *SFV* SEARCHES THE *UDT-S* AND
08509  M01S07617.tfm     +++|*         THE *RSXDID* FILE FOR THE VSN BEING REQUESTED.
08510  M01S07618.tfm     +++|*
08511  M01S07619.tfm     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
08512  M01S07620.tfm     +++|*
08513  M01S07621.tfm     +++|*         EXIT   (CPAB - CPAB+4) = CATALOG BUFFER POINTERS.
08514  M01S07622.tfm     +++|*                IF FIRST REEL, (RESEX)
08515  M01S07623.tfm     +++|*                   (DE) = DEMAND FILE EQUIPMENT.
08516  M01S07624.tfm     +++|*                   (DT) = DEMAND FILE TRACK.
08517  M01S07625.tfm     +++|*                   (DS) = DEMAND FILE SECTOR.
08518  M01S07626.tfm     +++|*                   (DA) = FST ADDRESS OF RSXDID FILE.
08519  M01S07627.tfm     +++|*                   (UDTA) = 0.
08520  M01S07628.tfm     +++|*                   RSXD(ID) IS LEFT BUSY.
08521  M01S07629.tfm     +++|*                IF REEL EXTENSION, (MAGNET)
08522  M01S07630.tfm     +++|*                   (CPAB - CPAB+4) = BUFFER POINTERS TO
08523  M01S07631.tfm     +++|*                                     PREVIOUS VSN.
08524  M01S07632.tfm     +++|*                   (PVFV) = FIRST VSN.
08525  M01S07633.tfm     +++|*                   (UDTA) = *FWA* OF UDT ENTRY.
08526  M01S07634.tfm     +++|*
08527  M01S07635.tfm     +++|*         USES   CM - CM+4, CN - CN+4, DE, DT, DS, KA, PB, T3, T5, T6,
08528  M01S07636.tfm     +++|*                T7.
08529  M01S07637.tfm     +++|*
08530  M01S07638.tfm     +++|*         CALLS  COB, FAT, RBB, RND, SBP, VIS.
08531  M01S07639.tfm     +++|*
Line S07640 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08532  M02S07640.274l797 ---|*         MACROS COMPARE, ENDMS, ERROR, MONITOR, MMOVE, SAVEP, SETMS,
Line S07641 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08533  M02S07641.274l797 ---|*                UDTRD.
08534  M01S00331.274l797 +++|*         MACROS COMPARE, ENDMS, ERROR, MONITOR, MMOVE, PAUSE, SAVEP,
08535  M01S00332.274l797 +++|*                SETMS, UDTRD.
08536  M01S07642.tfm     +++|
08537  M01S07643.tfm     +++|
08538  M01S07644.tfm     +++| SFV16    SAVEP  CPAB        SAVE BUFFER POINTERS
08539  M01S07645.tfm     +++|          MMOVE  VBFV,PB,PVFV,,VSKL  SAVE FIRST VSN
08540  M01S07646.tfm     +++|          LDM    VBRC,BP     SAVE REEL COUNT
08541  M01S07647.tfm     +++|          STM    PVRC
08542  M01S07648.tfm     +++|          UJN    SFVX        RETURN
08543  M01S07649.tfm     +++|
08544  M01S07650.tfm     +++| SFV17    ENDMS
08545  M01S07651.tfm     +++|
08546  M01S07652.tfm     +++| SFV      SUBR               ENTRY/EXIT
08547  M01S07653.tfm     +++|          LDA    IR+3,REL
08548  M01S07654.tfm     +++|          RJM    SBP         SET FET BUFFER POINTERS
08549  M01S07655.tfm     +++|          RJM    COB         CHECK OUTPUT BUFFERS
08550  M01S07656.tfm     +++|          PJN    SFV1        IF NO ERROR
08551  M01S07657.tfm     +++|          ERROR  BAE         *BUFFER ARGUMENT ERROR*
08552  M01S07658.tfm     +++|
08553  M01S07659.tfm     +++| SFV1     LDN    TSVL        PROCESS REQUEST
08554  M01S07660.tfm     +++|          STD    T3
08555  M01S07661.tfm     +++|          LDC    BUFA        SET UP BUFFER POINTER
08556  M01S07662.tfm     +++|          STD    PB
08557  M01S07663.tfm     +++|          STD    KA
08558  M01S07664.tfm     +++|          RJM    RBB         READ BINARY BUFFER
08559  M01S07665.tfm     +++|          LDC    PVES
08560  M01S07666.tfm     +++|          STD    KA
08561  M01S07667.tfm     +++|          MMOVE  VBES,PB,,KA,VSKL
08562  M01S07668.tfm     +++|          RJM    VIS         VSN INDEXED SEARCH
08563  M01S07669.tfm     +++|          NJP    SFV8        IF VSN NOT FOUND
08564  M01S07670.tfm     +++|          LDM    VBNV,BP     CHECK FOR NEXT VSN
08565  M01S07671.tfm     +++|          NJP    SFV5        IF NEXT VSN
Line S07672 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08566  M02S07672.274l797 ---| SFV2     LDN    0           GET FIRST AND LAST ADDRESS OF *UDT-S*
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  M01S07673.tfm     +++|          STD    CM+1
08573  M01S07674.tfm     +++|          LDC    MTSI        SET *MAGNET* SUBSYSTEM ID
08574  M01S07675.tfm     +++|          STD    CM+2
08575  M01S07676.tfm     +++|          LDC    /MTX/UBUF   SET BUFFER ADDRESS
08576  M01S07677.tfm     +++|          STD    CM+4
08577  M01S07678.tfm     +++|          SHN    -14
08578  M01S07679.tfm     +++|          ADC    100         SET WORD COUNT
08579  M01S07680.tfm     +++|          STD    CM+3
08580  M01S07681.tfm     +++|          MONITOR  TDAM
08581  M01S07682.tfm     +++|          LDD    CM+1
08582  M01S07683.tfm     +++|          ZJN    SFV3        IF COMPLETE
08583  M01S07684.tfm     +++|          SCN    3
08584  M01S07685.tfm     +++|          ZJN    SFV2        IF MAGNET BUSY, RETRY
Line S07686 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08585  M02S07686.274l797 ---|          ERROR  MNA         *MAGNET NOT ACTIVE*
08586  M01S00338.274l797 +++| SFV2.1   ERROR  MNA         *MAGNET NOT ACTIVE*
08587  M01S07687.tfm     +++|
08588  M01S07688.tfm     +++| SFV3     LDD    MA          SET *FWA* OF UDT
08589  M01S07689.tfm     +++|          CRD    CN
08590  M01S07690.tfm     +++|          LDD    CN+4
08591  M01S07691.tfm     +++|          SBN    /MTX/UNITL
08592  M01S07692.tfm     +++|          STM    UDTA
08593  M01S00095.282l826 +++|          LDD    CN+2        SET LWA+1 OF UDT
08594  M01S00096.282l826 +++|          STD    T5
08595  M01S07693.tfm     +++| SFV4     LDN    /MTX/UNITL  SEARCH UDT FOR JOB
08596  M01S07694.tfm     +++|          RAM    UDTA
Line S07695 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08597  M02S07695.282l826 ---|          SBD    CN+2        CHECK FOR END OF UDTS
08598  M01S00097.282l826 +++|          SBD    T5
08599  M01S07696.tfm     +++|          PJP    SFV9        IF END OF *UDT-S*
Line S07697 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08600  M02S07697.282l826 ---|          UDTRD  CM,/MTX/UJID,1  READ *EJTO* FROM *UDT*
Line S07698 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08601  M02S07698.282l826 ---|          COMPARE CM+4,,VBJS,PB,2
08602  M01S00098.282l826 +++|          UDTRD  CN,/MTX/UVRI,1  READ EJT ORDINAL AND FLAGS
08603  M01S00099.282l826 +++|          COMPARE CN,,VBJS,PB,2
08604  M01S07699.tfm     +++|          NJN    SFV4        IF NO MATCH
08605  M01S07700.tfm     +++|          UDTRD  CM,/MTX/UESN,1  READ *VSN* FROM *UDT*
08606  M01S07701.tfm     +++|          COMPARE CM,,VBES,PB,4
08607  M01S07702.tfm     +++|          NJP    SFV4        IF NOT FOUND
Line S07703 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08608  M02S07703.282l826 ---|          UDTRD  CM,/MTX/UVSN,1  CHECK FOR MOUNT FLAG
Line S07704 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08609  M02S07704.282l826 ---|          LDD    CM+3
Line S07705 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08610  M02S07705.282l826 ---|          LPC    171
Line S07706 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08611  M02S07706.282l826 ---|          LMC    /MTX/MNT*10+1
Line S07707 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08612  M02S07707.282l826 ---|          ZJN    SFV6        IF NOT ALREADY ASSIGNED
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  M01S07708.tfm     +++| SFV5     ERROR  VBS         *VSN BUSY*
08618  M01S07709.tfm     +++|
08619  M01S07710.tfm     +++| SFV6     LDC    PVES        SET FIRST VSN
08620  M01S07711.tfm     +++|          STD    KA
08621  M01S07712.tfm     +++|          MMOVE  VBFV,PB,,KA,VSKL
08622  M01S07713.tfm     +++| SFV7     RJM    VIS         VSN INDEXED SEARCH
08623  M01S07714.tfm     +++|          NJN    SFV8        IF NOT FOUND
08624  M01S07715.tfm     +++|          COMPARE  VBES,PB,VBNV,BP,VSKL
08625  M01S07716.tfm     +++|          ZJP    SFV16       IF NEXT VSN POINTS TO THIS VSN
08626  M01S07717.tfm     +++|          MMOVE  VBNV,BP,,KA,VSKL
08627  M01S07718.tfm     +++|          LDI    KA
08628  M01S07719.tfm     +++|          NJN    SFV7        IF NO NEXT VSN
08629  M01S07720.tfm     +++| SFV8     ERROR  EID         ERROR IN INDEX DATA
08630  M01S07721.tfm     +++|
08631  M01S07722.tfm     +++| SFV9     LDN    RDFO        SET DEMAND FILE FNT ORDINAL
08632  M01S07723.tfm     +++|          STD    T1
08633  M01S07724.tfm     +++|          STM    DFFO
08634  M01S07725.tfm     +++|          LDN    /PFM/PTUP   SET MODE
08635  M01S07726.tfm     +++|          STD    T2
Line S07727 Modification History
M01 (Added by) tfm
M02 (Updated by) t2807
Seq #  *Modification Id* Act 
----------------------------+
08636  M02S07727.t2807   ---|          LDN    AFAS        ATTACH DEMAND FILE
08637  M01S00081.t2807   +++|          LDN    /COMSCPS/AFAS  ATTACH DEMAND FILE
08638  M01S07728.tfm     +++|          RJM    ARF
08639  M01S07729.tfm     +++|          LDD    FN          COMPARE FILE NAMES
08640  M01S07730.tfm     +++|          LMC    2RRS
08641  M01S07731.tfm     +++|          LMD    FN+1
08642  M01S07732.tfm     +++|          LMC    2RXD
08643  M01S07733.tfm     +++|          LMD    FN+2
08644  M01S07734.tfm     +++|          LMM    MFID
08645  M01S07735.tfm     +++|          ZJN    SFV10       IF *RSXDID* FILE
Line S07736 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
08646  M02S07736.nos252  ---|          ERROR  ILR         *TFM INVALID REQUEST*
08647  M01S00065.nos252  +++|          ERROR  ILR         *TFM INCORRECT REQUEST*
08648  M01S07737.tfm     +++|
08649  M01S07738.tfm     +++| SFV10    STM    UDTA        CLEAR UDT ADDRESS
08650  M01S07739.tfm     +++|          LDD    FS          SET EQUIPMENT
08651  M01S07740.tfm     +++|          LPC    777
08652  M01S07741.tfm     +++|          STD    DE
08653  M01S07742.tfm     +++|          STD    T5
08654  M01S07743.tfm     +++|          LDD    FS+1        SET FIRST TRACK
08655  M01S07744.tfm     +++|          STD    T6
08656  M01S07745.tfm     +++|          LDN    FSMS        SET FIRST SECTOR
08657  M01S07746.tfm     +++|          STD    T7
Line S07747 Modification History
M01 (Added by) tfm
M02 (Updated by) t5472
Seq #  *Modification Id* Act 
----------------------------+
08658  M02S07747.t5472   ---|          SETMS
08659  M01S00051.t5472   +++|          SETMS  IO
Line S07748 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08660  M02S07748.274l797 ---| SFV11    LDD    T6          SAVE CURRENT TRACK
08661  M01S00339.274l797 +++| SFV11    RJM    RND         READ FIRST SECTOR OF DEMAND FILE ENTRY
08662  M01S00340.274l797 +++|          LDM    BUF0+2+.RJID+4  SAVE JOB EJT ORDINAL
08663  M01S00341.274l797 +++|          STM    SFVB
08664  M01S00342.274l797 +++|          LDD    T6          SAVE TRACK FOR SECOND SECTOR OF ENTRY
08665  M01S07749.tfm     +++|          STD    DT
Line S07750 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08666  M02S07750.274l797 ---|          LDD    T7          SAVE CURRENT SECTOR
08667  M01S00343.274l797 +++|          LDD    T7          SAVE SECTOR FOR SECOND SECTOR OF ENTRY
08668  M01S07751.tfm     +++|          STD    DS
08669  M01S00344.274l797 +++|          RJM    RND         READ SECOND SECTOR OF DEMAND FILE ENTRY
08670  M01S00345.274l797 +++|          LDM    VBJS,PB     CHECK JOB EJT ORDINAL
08671  M01S00346.274l797 +++|          LMM    SFVB
08672  M01S00347.274l797 +++|          NJN    SFV11       IF NOT THIS ENTRY
Line S00348 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08673  M02S00348.282l826 ---|          COMPARE  VBES,PB,BUF0+2+.RQPF,,VSKL  CHECK VSN
Line S00349 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08674  M02S00349.282l826 ---|          NJN    SFV11       IF NOT THIS ENTRY
08675  M01S00104.282l826 +++|          LDM    BUF0+2+.RREQ
08676  M01S00105.282l826 +++|          ADM    BUF0+2+.RREQ+1
08677  M01S00106.282l826 +++|          ADM    BUF0+2+.RREQ+2
08678  M01S00107.282l826 +++|          ADM    BUF0+2+.RREQ+3
08679  M01S00108.282l826 +++|          ADM    BUF0+2+.RREQ+4
08680  M01S00109.282l826 +++|          NJN    SFV11       IF NO REQUEST
08681  M01S00110.282l826 +++|          COMPARE  VBES,PB,BUF0+2+.RQPV+5*/RSX/PVSN,,VSKL  CHECK VSN
08682  M01S00111.282l826 +++|          NJN    SFV15.1     IF NOT THIS ENTRY
08683  M01S00350.274l797 +++|          LDN    SFVAL       GET LENGTH OF LIST
08684  M01S00351.274l797 +++|          STD    T1
Line S00352 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08685  M02S00352.282l826 ---|          LDM    BUF0+2+.RQPD+3  GET RESOURCE TYPE
Line S00353 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08686  M02S00353.282l826 ---|          LPN    37
Line S00354 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08687  M02S00354.282l826 ---|          SHN    14
Line S00355 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08688  M02S00355.282l826 ---|          ADM    BUF0+2+.RQPD+4
Line S00356 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08689  M02S00356.282l826 ---|          SHN    -6
Line S00357 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08690  M02S00357.282l826 ---|          STD    T2
08691  M01S00358.274l797 +++| SFV15    LDM    SFVA,T1     CHECK FOR MATCHING RESOURCE
Line S00359 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08692  M02S00359.282l826 ---|          SBD    T2
08693  M01S00112.282l826 +++|          LMM    BUF0+2+.RQPV+5*/RSX/PRES+3
08694  M01S00360.274l797 +++|          ZJP    SFV17       IF FOUND
08695  M01S00361.274l797 +++|          SOD    T1
08696  M01S00362.274l797 +++|          PJN    SFV15       IF NOT END OF LIST
Line S00363 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08697  M02S00363.282l826 ---|          UJP    SFV11       READ NEXT SECTOR
08698  M01S00113.282l826 +++| SFV15.1  LJM    SFV11       READ NEXT SECTOR
08699  M01S00364.274l797 +++|
08700  M01S00365.274l797 +++|
08701  M01S00366.274l797 +++| SFVA     BSS    0           RESOURCE TABLE
08702  M01S00367.274l797 +++|          VFD    12/0RMT     7 TRACK TAPE
08703  M01S00368.274l797 +++|          VFD    12/0RNT     9 TRACK TAPE
08704  M01S00369.274l797 +++|          VFD    12/0RPE     1600 BPI 9 TRACK TAPE
08705  M01S00370.274l797 +++|          VFD    12/0RHD     800 BPI 9 TRACK TAPE
08706  M01S00371.274l797 +++|          VFD    12/0RGE     6250 BPI 9 TRACK TAPE
08707  M01S00372.274l797 +++|          VFD    12/0RCT     CTS CARTRIDGE TAPE
08708  M01S00373.274l797 +++|          VFD    12/0RAT     ACS CARTRIDGE TAPE
08709  M01S00374.274l797 +++| SFVAL    EQU    *-SFVA-1    LENGTH OF RESOURCE TABLE
08710  M01S00375.274l797 +++|
08711  M01S00376.274l797 +++| SFVB     BSS    1           EJT ORDINAL FROM DEMAND FILE ENTRY
08712  M01S00377.274l797 +++| RND      SPACE  4,15
08713  M01S00378.274l797 +++|**        RND - READ NEXT DEMAND FILE SECTOR.
08714  M01S00379.274l797 +++|*
08715  M01S00380.274l797 +++|*         ENTRY  (T5 - T7) = EST ORDINAL, TRACK AND SECTOR.
08716  M01S00381.274l797 +++|*
08717  M01S00382.274l797 +++|*         EXIT   SPECIFIED SECTOR READ.
08718  M01S00383.274l797 +++|*                (T6 - T7) ADVANCED TO NEXT SECTOR.
08719  M01S00384.274l797 +++|*
08720  M01S00385.274l797 +++|*         ERROR  TO *ERR* IF MASS STORAGE ERROR, OR IF EOI ENCOUNTERED.
08721  M01S00386.274l797 +++|*
08722  M01S00387.274l797 +++|*         USES   T3, T6, T7.
08723  M01S00388.274l797 +++|*
08724  M01S00389.274l797 +++|*         CALLS  RDS.
08725  M01S00390.274l797 +++|*
08726  M01S00391.274l797 +++|*         MACROS ENDMS, ERROR.
08727  M01S00392.274l797 +++|
08728  M01S00393.274l797 +++|
08729  M01S00394.274l797 +++| RND      SUBR               ENTRY/EXIT
08730  M01S07752.tfm     +++|          LDC    BUF0
08731  M01S07753.tfm     +++|          STD    T3
08732  M01S07754.tfm     +++|          RJM    RDS         READ SECTOR
Line S07755 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08733  M02S07755.274l797 ---|          PJN    SFV12       IF NOT READ ERROR
Line S07756 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08734  M02S07756.274l797 ---|          ENDMS
08735  M01S00395.274l797 +++|          PJN    RND1        IF NOT READ ERROR
08736  M01S07757.tfm     +++|          ERROR  MSE         *EQXX, DNYY, MASS STORAGE ERROR*
08737  M01S07758.tfm     +++|
Line S07759 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08738  M02S07759.274l797 ---| SFV12    LDI    T3          CHECK FIRST CONTROL BYTE
Line S07760 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08739  M02S07760.274l797 ---|          NJN    SFV13       IF NOT EOF
08740  M01S00396.274l797 +++| RND1     LDI    T3          CHECK FIRST CONTROL BYTE
08741  M01S00397.274l797 +++|          NJN    RND2        IF NOT EOF
08742  M01S07761.tfm     +++|          LDM    1,T3        CHECK NEXT CONTROL BYTE
Line S07762 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08743  M02S07762.274l797 ---|          NJN    SFV13       IF NOT EOI
08744  M01S00398.274l797 +++|          NJN    RND2        IF NOT EOI
08745  M01S07763.tfm     +++|          ENDMS
08746  M01S07764.tfm     +++|          ERROR  VNF         *VSN NOT FOUND*
08747  M01S07765.tfm     +++|
Line S07766 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08748  M02S07766.274l797 ---| SFV13    STD    T7          SET NEXT SECTOR
08749  M01S00399.274l797 +++| RND2     STD    T7          SET NEXT SECTOR
08750  M01S07767.tfm     +++|          SHN    6
Line S07768 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08751  M02S07768.274l797 ---|          PJN    SFV14       IF NOT NEW TRACK
08752  M01S00400.274l797 +++|          PJN    RNDX        IF NOT NEW TRACK
08753  M01S07769.tfm     +++|          SHN    -6
08754  M01S07770.tfm     +++|          STD    T6
08755  M01S07771.tfm     +++|          LDN    0           CLEAR SECTOR
08756  M01S07772.tfm     +++|          STD    T7
Line S07773 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08757  M02S07773.274l797 ---| SFV14    COMPARE VBJS,PB,BUF0+2+/RSX/RJID*5+4,,2
Line S07774 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08758  M02S07774.274l797 ---|          NJP    SFV11       IF NOT THIS ENTRY
Line S07775 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08759  M02S07775.274l797 ---|          COMPARE  VBES,PB,BUF0+2+/RSX/RQCW*5,,VSKL  CHECK VSN
Line S07776 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08760  M02S07776.274l797 ---|          NJP    SFV11       IF NOT THIS ENTRY
Line S07777 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08761  M02S07777.274l797 ---|          LDN    SFVAL       GET LENGTH OF LIST
Line S07778 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08762  M02S07778.274l797 ---|          STD    T1
Line S07779 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08763  M02S07779.274l797 ---|          LDM    BUF0+2+/RSX/RQPD*5+3  GET RESOURCE TYPE
Line S07780 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08764  M02S07780.274l797 ---|          LPN    37
Line S07781 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08765  M02S07781.274l797 ---|          SHN    14
Line S07782 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08766  M02S07782.274l797 ---|          ADM    BUF0+2+/RSX/RQPD*5+4
Line S07783 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08767  M02S07783.274l797 ---|          SHN    -6
Line S07784 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08768  M02S07784.274l797 ---|          STD    T2
Line S07785 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08769  M02S07785.274l797 ---| SFV15    LDM    SFVA,T1     CHECK FOR MATCHING RESOURCE
Line S07786 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08770  M02S07786.274l797 ---|          SBD    T2
Line S07787 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08771  M02S07787.274l797 ---|          ZJP    SFV17       IF FOUND
Line S07788 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08772  M02S07788.274l797 ---|          SOD    T1
Line S07789 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08773  M02S07789.274l797 ---|          PJN    SFV15       IF NOT END OF LIST
Line S07790 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08774  M02S07790.274l797 ---|          LJM    SFV11       READ NEXT SECTOR
Line S07791 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08775  M02S07791.274l797 ---|
Line S07792 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08776  M02S07792.274l797 ---| SFVA     BSS    0           RESOURCE TABLE
Line S07793 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08777  M02S07793.274l797 ---|          VFD    12/0RMT     7-TRACK
Line S07794 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08778  M02S07794.274l797 ---|          VFD    12/0RNT     9-TRACK
Line S07795 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08779  M02S07795.274l797 ---|          VFD    12/0RPE     1600 BPI 9-TRACK
Line S07796 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08780  M02S07796.274l797 ---|          VFD    12/0RHD     800 BPI 9-TRACK
Line S07797 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08781  M02S07797.274l797 ---|          VFD    12/0RGE     6250 BPI 9-TRACK
Line S07798 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08782  M02S07798.274l797 ---| SFVAL    EQU    *-SFVA-1    LENGTH OF RESOURCE TABLE
Line S07799 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08783  M02S07799.274l797 ---|
Line S07800 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08784  M02S07800.274l797 ---|
08785  M01S00401.274l797 +++|          UJN    RNDX        RETURN
08786  M01S00402.274l797 +++|          SPACE  4,10
08787  M01S07801.tfm     +++|          OVERFLOW  OVL1,BUF1
08788  M01S07802.tfm     +++|          OVERLAY (SEARCH GLOBAL SCRATCH POOL.),OVL1
08789  M01S07803.tfm     +++|          SPACE  4,10
Line S07804 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08790  M02S07804.274l797 ---|** '      LOCAL DIRECT CELLS.
08791  M01S00403.274l797 +++|**        LOCAL DIRECT CELLS.
08792  M01S07805.tfm     +++|
08793  M01S07806.tfm     +++|
08794  M01S07807.tfm     +++| FP       EQU    S3 - S3+4   FNT SEARCH POINTERS (5 LOCATIONS)
08795  M01S07808.tfm     +++| GSPS     SPACE  4,10
08796  M01S07809.tfm     +++|**        GSP - SEARCH GLOBAL SCRATCH POOL(S).
08797  M01S07810.tfm     +++|*
08798  M01S07811.tfm     +++|*         CALLED TO LOCATE A SCRATCH TAPE IN ANOTHER FAMILY-S
08799  M01S07812.tfm     +++|*         CATALOG. ONLY FAMILY-S DESIGNATED AS GLOBAL WILL BE
08800  M01S07813.tfm     +++|*         SEARCHED. IF A SCRATCH TAPE IS FOUND, IT IS DELETED
08801  M01S07814.tfm     +++|*         FROM THE FAMILY CATALOG AND RE-ENTERED INTO THE
08802  M01S07815.tfm     +++|*         REQUESTING FAMILY CATALOG TO HONOR USER JOB SCRATCH
08803  M01S07816.tfm     +++|*         REQUEST.
08804  M01S07817.tfm     +++|*
08805  M01S07818.tfm     +++|*         ENTRY  (FO) = FAMILY TAPE CATALOG FNT ORDINAL.
08806  M01S07819.tfm     +++|*                (PFAM - PFAM+3) = FAMILY NAME.
08807  M01S00404.274l797 +++|*                (SCRP) = ADDRESS IN TMST OF CORRECT SCRATCH POOL WORD.
08808  M01S07820.tfm     +++|*
08809  M01S07821.tfm     +++|*         EXIT   (FO) = RESET.
08810  M01S07822.tfm     +++|*                (PFAM - PFAM+3) =RESET.
08811  M01S07823.tfm     +++|*                TO CSA - COMPLETE SCRATCH ASSIGNMENT.
08812  M01S07824.tfm     +++|*
08813  M01S07825.tfm     +++|*         USES   FP - FP+4, PB, T1, T2, KA.
08814  M01S07826.tfm     +++|*
08815  M01S07827.tfm     +++|*         CALLS  ARF, CIE, CSA, DDE, DLB, LSV, PRP, ROC, RRP, SAC,
08816  M01S07828.tfm     +++|*                VIS, WRP.
08817  M01S07829.tfm     +++|*
08818  M01S07830.tfm     +++|*         MACROS ERROR, EXOVL, MMOVE, RESTP.
08819  M01S07831.tfm     +++|
08820  M01S07832.tfm     +++|
08821  M01S07833.tfm     +++| GSP      ENTRY              ENTRY/EXIT
08822  M01S07834.tfm     +++|          LDN    FNTP        INITIALIZE FNT POINTERS
08823  M01S07835.tfm     +++|          CRD    FP
08824  M01S07836.tfm     +++|          MMOVE  PFAM,,GSPA,,PFKL
08825  M01S07837.tfm     +++|          LDD    FO
08826  M01S07838.tfm     +++|          STD    FP+3
08827  M01S07839.tfm     +++|          STM    GSPA+4
08828  M01S07840.tfm     +++|          LDN    0           PRESET FNT ORDINAL
08829  M01S07841.tfm     +++|          STD    FP
08830  M01S07842.tfm     +++|          UJP    GSP2        ENTER SEARCH LOOP
08831  M01S07843.tfm     +++|
08832  M01S07844.tfm     +++| GSP1     RJM    ROC         RESET ORIGINAL CATALOG
08833  M01S07845.tfm     +++|          ERROR  WSA         *WAIT SCRATCH ASSIGNMENT.*
08834  M01S07846.tfm     +++|
08835  M01S07847.tfm     +++| GSP2     LDD    FO          SET FNT ORDINAL
08836  M01S07848.tfm     +++|          STD    T1
08837  M01S07849.tfm     +++|          LDN    /PFM/PTWR   SET MODE
08838  M01S07850.tfm     +++|          STD    T2
08839  M01S07851.tfm     +++|          LDN    RFAS        RETURN CATALOG
08840  M01S07852.tfm     +++|          RJM    ARF
08841  M01S07853.tfm     +++|          RJM    SAC         SEARCH FOR ALTERNATE CATALOG
08842  M01S07854.tfm     +++|          ZJP    GSP1        IF END OF SEARCH
08843  M01S07855.tfm     +++|          RESTP  CPSB        SWAP TO SYSTEM BLOCK BUFFER
08844  M01S07856.tfm     +++|          RJM    RRP         READ RANDOM PRU (TMST)
08845  M01S07857.tfm     +++|          LDM    SBST,BP
08846  M01S07858.tfm     +++|          LPN    GFTS/10000
08847  M01S07859.tfm     +++|          ZJN    GSP2        IF NOT GLOBAL FAMILY
08848  M01S07860.tfm     +++|          LDM    SBST+1,BP
08849  M01S07861.tfm     +++|          LPN    FETS+SATS+UITS
08850  M01S07862.tfm     +++|          NJP    GSP2        IF ERROR, SUSPEND OR UTILITY ACTIVE
08851  M01S07863.tfm     +++|          RJM    LSV         LOCATE SCRATCH VOLUME
08852  M01S07864.tfm     +++|          NJP    GSP2        IF SCRATCH NOT FOUND OR ERROR
08853  M01S07865.tfm     +++|          MMOVE  ,BP,BUFA,,TSVL*10D
08854  M01S07866.tfm     +++|          RJM    DDE         DELETE DATA ENTRY (SECONDARY INDEX)
08855  M01S07867.tfm     +++|          LDM    CWNE,BA
08856  M01S07868.tfm     +++|          NJN    GSP3        IF BLOCK NOT EMPTY
08857  M01S07869.tfm     +++|          RJM    DLB         DELINK BLOCK (SECONDARY INDEX)
08858  M01S07870.tfm     +++|          RESTP  CPPI        SWAP TO PRIMARY INDEX BUFFER
08859  M01S07871.tfm     +++|          RJM    DDE         DELETE DATA ENTRY (PRIMARY INDEX)
08860  M01S07872.tfm     +++|          LDM    CWNE,BA
08861  M01S07873.tfm     +++|          ZJN    GSP3        IF BLOCK NOT EMPTY
08862  M01S07874.tfm     +++|          RJM    DLB         DELINK BLOCK (PRIMARY INDEX)
08863  M01S07875.tfm     +++|          UJN    GSP4        UPDATE SCRATCH VOLUME/COUNT
08864  M01S07876.tfm     +++|
08865  M01S07877.tfm     +++| GSP3     RJM    WRP         WRITE RANDOM PRU (PRIMARY VSN INDEX)
08866  M01S07878.tfm     +++| GSP4     RESTP  CPSB        SWAP TO SYSTEM BLOCK
Line S07879 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08867  M02S07879.274l797 ---|          MMOVE  BUFA+VBNV,,SBSV,BP,VSKL
Line S07880 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08868  M02S07880.274l797 ---|          LDA    SBSC,BP     DECREMENT SCRATCH COUNT
08869  M01S00405.274l797 +++|          LDM    SCRP        SET ADDRESS OF SCRATCH POOL WORD
08870  M01S00406.274l797 +++|          ADD    BP
08871  M01S00407.274l797 +++|          STD    T3
08872  M01S00408.274l797 +++|          MMOVE  BUFA+VBNV,,,T3,VSKL
08873  M01S00409.274l797 +++|          LDA    3,T3        DECREMENT SCRATCH COUNT
08874  M01S07881.tfm     +++|          SBN    1
Line S07882 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08875  M02S07882.274l797 ---|          STM    SBSC+1,BP
08876  M01S00410.274l797 +++|          STM    4,T3
08877  M01S07883.tfm     +++|          SHN    -14
Line S07884 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08878  M02S07884.274l797 ---|          STM    SBSC,BP
08879  M01S00411.274l797 +++|          STM    3,T3
08880  M01S07885.tfm     +++|          RJM    WRP         WRITE RANDOM PRU
08881  M01S07886.tfm     +++|          LDD    FO          SET FNT ORDINAL
08882  M01S07887.tfm     +++|          STD    T1
08883  M01S07888.tfm     +++|          LDN    /PFM/PTWR   SET MODE
08884  M01S07889.tfm     +++|          STD    T2
08885  M01S07890.tfm     +++|          LDN    RFAS        RETURN CATALOG
08886  M01S07891.tfm     +++|          RJM    ARF
08887  M01S07892.tfm     +++|          RJM    ROC         RESET ORIGINAL CATALOG
08888  M01S07893.tfm     +++|          LDC    BUFA
08889  M01S07894.tfm     +++|          STD    PB
08890  M01S07895.tfm     +++|          STD    KA
08891  M01S07896.tfm     +++|          MMOVE  BUFA,,BUFC,,VSKL
08892  M01S07897.tfm     +++|          RJM    VIS         VSN INDEXED SEARCH
08893  M01S07898.tfm     +++|          ZJP    GSP2        IF VSN FOUND
08894  M01S07899.tfm     +++|          RJM    CIE         CREATE INDEX ENTRY (VSN)
08895  M01S07900.tfm     +++|          LDC    BUFC
08896  M01S07901.tfm     +++|          STD    KA
08897  M01S07902.tfm     +++|          RJM    VIS         FIND NEWLY CREATED VSN INDEX
08898  M01S07903.tfm     +++|          NJN    GSP5        IF NOT FOUND
08899  M01S07904.tfm     +++|          EXOVL  CSA         COMPLETE SCRATCH ASSIGNMENT (NO RETURN)
08900  M01S07905.tfm     +++|
08901  M01S07906.tfm     +++| GSP5     ERROR  EID         *ERROR IN INDEX DATA.*
08902  M01S07907.tfm     +++|
08903  M01S07908.tfm     +++| GSPA     BSSZ   5           42/ FAMILY,6/ 0,12/ FNT ORDINAL
Line S07909 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08904  M02S07909.274l797 ---|          TITLE  ".Y." SUBROUTINES.
08905  M01S00412.274l797 +++|          TITLE  SUBROUTINES.
08906  M01S07910.tfm     +++| LSV      SPACE  4,10
08907  M01S07911.tfm     +++|**        LSV - LOCATE SCRATCH VOLUME.
08908  M01S07912.tfm     +++|*
08909  M01S07913.tfm     +++|*         ENTRY  (PESN - PESN+3) = EXTERNAL VSN.
08910  M01S00413.274l797 +++|*                (SCRP) = ADDRESS IN TMST OF CORRECT SCRATCH POOL WORD.
08911  M01S07914.tfm     +++|*
08912  M01S07915.tfm     +++|*         EXIT   (A) = 0 IF FOUND.
08913  M01S07916.tfm     +++|*                (A) = ERROR CODE IF NOT FOUND.
08914  M01S07917.tfm     +++|*
08915  M01S07918.tfm     +++|*         USES   KA, T2.
08916  M01S07919.tfm     +++|*
08917  M01S07920.tfm     +++|*         CALLS  VIS.
08918  M01S07921.tfm     +++|*
08919  M01S07922.tfm     +++|*         MACROS MMOVE.
08920  M01S07923.tfm     +++|
08921  M01S07924.tfm     +++|
08922  M01S07925.tfm     +++| LSV3     LDN    0           INDICATE SCRATCH FOUND
08923  M01S07926.tfm     +++|
08924  M01S07927.tfm     +++| LSV      SUBR               ENTRY/EXIT
08925  M01S07928.tfm     +++|          LDC    PESN
08926  M01S07929.tfm     +++|          STD    KA
Line S07930 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08927  M02S07930.274l797 ---|          LDM    SBSV,BP
08928  M01S00414.274l797 +++|          LDM    SCRP        GET ADDRESS OF SCRATCH POOL WORD
08929  M01S00415.274l797 +++|          ADD    BP
08930  M01S00416.274l797 +++|          STD    T3
08931  M01S00417.274l797 +++|          LDI    T3          CHECK SCRATCH POOL
08932  M01S07931.tfm     +++|          LMC    7777
08933  M01S07932.tfm     +++|          NJN    LSV1        IF SCRATCH AVAILABLE
08934  M01S07933.tfm     +++|          LDN    /EMSG/WSA   *WAIT SCRATCH ASSIGNMENT.*
08935  M01S07934.tfm     +++|          UJN    LSVX        RETURN
08936  M01S07935.tfm     +++|
Line S07936 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08937  M02S07936.274l797 ---| LSV1     MMOVE  SBSV,BP,,KA,VSKL
08938  M01S00418.274l797 +++| LSV1     MMOVE  ,T3,,KA,VSKL
08939  M01S07937.tfm     +++|          RJM    VIS         VSN INDEXED SEARCH
08940  M01S07938.tfm     +++|          NJN    LSV2        IF NOT FOUND
08941  M01S07939.tfm     +++|          LDM    VBST,BP
08942  M01S07940.tfm     +++|          LPN    ASVS/10000
08943  M01S07941.tfm     +++|          NJN    LSV3        INDICATE SCRATCH FOUND
08944  M01S07942.tfm     +++| LSV2     LDN    /EMSG/EID   *ERROR IN INDEX DATA.*
08945  M01S07943.tfm     +++|          UJN    LSVX        RETURN
08946  M01S07944.tfm     +++| PRP      SPACE  4,10
08947  M01S07945.tfm     +++|**        PRP - PRESET RANDOM PROCESSORS.
08948  M01S07946.tfm     +++|*
08949  M01S07947.tfm     +++|*         EXIT   RANDOM PROCESSORS INITIALIZED
08950  M01S07948.tfm     +++|*
08951  M01S07949.tfm     +++|*         USES   T5 - T5+4.
08952  M01S07950.tfm     +++|*
08953  M01S07951.tfm     +++|*         CALLS  IRA.
08954  M01S07952.tfm     +++|
08955  M01S07953.tfm     +++|
08956  M01S07954.tfm     +++| PRP      SUBR               ENTRY/EXIT
08957  M01S07955.tfm     +++|          LDD    FO
08958  M01S07956.tfm     +++|          RJM    AFA         GET ABSOLUTE FST ADDRESS
08959  M01S07957.tfm     +++|          CRD    T5
08960  M01S07958.tfm     +++|          LDD    T5          ISOLATE EQUIPMENT
08961  M01S07959.tfm     +++|          LPC    777
08962  M01S07960.tfm     +++|          STD    T5
08963  M01S07961.tfm     +++|          RJM    IRA         INITIALIZE RANDOM PROCESSORS
08964  M01S07962.tfm     +++|          UJN    PRPX        RETURN
08965  M01S07963.tfm     +++| ROC      SPACE  4,10
08966  M01S07964.tfm     +++|**        ROC - RESET ORIGINAL CATALOG.
08967  M01S07965.tfm     +++|*
08968  M01S07966.tfm     +++|*         ENTRY  (GSPA - GSPA+3) = ORIGINAL FAMILY NAME.
08969  M01S07967.tfm     +++|*                (GSPA+4 = ORIGINAL CATALOG FNT ORDINAL.
08970  M01S07968.tfm     +++|*
08971  M01S07969.tfm     +++|*         EXIT   (PFAM - PFAM+3) = ORIGINAL FAMILY NAME.
08972  M01S07970.tfm     +++|*                (FO) = ORIGINAL FAMILY ORDINAL.
08973  M01S07971.tfm     +++|*                ORIGINAL CATALOG ATTACHED IN WRITE MODE AND RANDOM
08974  M01S07972.tfm     +++|*                PROCESSORS PRESET.
08975  M01S07973.tfm     +++|*
08976  M01S07974.tfm     +++|*         USES   T1, T2.
08977  M01S07975.tfm     +++|*
08978  M01S07976.tfm     +++|*         CALLS  ARF, PRP, UTR.
08979  M01S07977.tfm     +++|*
08980  M01S07978.tfm     +++|*         MACROS MMOVE.
08981  M01S07979.tfm     +++|
08982  M01S07980.tfm     +++|
08983  M01S07981.tfm     +++| ROC      SUBR               ENTRY/EXIT
08984  M01S07982.tfm     +++|          MMOVE  GSPA,,PFAM,,PFKL  RESET FAMILY NAME
08985  M01S07983.tfm     +++|          LDM    GSPA+4      SET FNT ORDINAL
08986  M01S07984.tfm     +++|          STD    FO
08987  M01S07985.tfm     +++|          STD    T1
08988  M01S07986.tfm     +++|          LDN    /PFM/PTWR   SET WRITE MODE
08989  M01S07987.tfm     +++|          STD    T2
Line S07988 Modification History
M01 (Added by) tfm
M02 (Updated by) t2807
Seq #  *Modification Id* Act 
----------------------------+
08990  M02S07988.t2807   ---|          LDN    AFAS        ATTACH CATALOG
08991  M01S00082.t2807   +++|          LDN    /COMSCPS/AFAS  ATTACH CATALOG
08992  M01S07989.tfm     +++|          RJM    ARF
08993  M01S07990.tfm     +++|          RJM    UTR         UPDATE TRT
08994  M01S07991.tfm     +++|          RJM    PRP         PRESET RANDOM PROCESSORS
08995  M01S07992.tfm     +++|          UJN    ROCX        RETURN
08996  M01S07993.tfm     +++| SAC      SPACE  4,10
08997  M01S07994.tfm     +++|**        SAC - SEARCH FOR ALTERNATE CATALOG.
08998  M01S07995.tfm     +++|*
08999  M01S07996.tfm     +++|*         ENTRY  (FP) = LAST FNT ORDINAL CHECKED.
09000  M01S07997.tfm     +++|*                (FP+2) = MAXIMUM NUMBER OF FNT ENTRIES.
09001  M01S07998.tfm     +++|*                (FP+3) = FNT ORDINAL OF FAMILY ENTERED.
09002  M01S07999.tfm     +++|*
09003  M01S08000.tfm     +++|*         EXIT   (A) .NE. 0 IF CATALOG FOUND.
09004  M01S08001.tfm     +++|*                (A) = 0 IF CATALOG NOT FOUND.
09005  M01S08002.tfm     +++|*                (FN - FN+4) = FAMILY NAME.
09006  M01S08003.tfm     +++|*                (FO) = FNT ORDINAL.
09007  M01S08004.tfm     +++|*                (FP) = FNT ORDINAL.
09008  M01S08005.tfm     +++|*
09009  M01S08006.tfm     +++|*         USES   CM - CM+4, FN - FN+4, FO, FS - FS+4, T1, T2.
09010  M01S08007.tfm     +++|*
09011  M01S08008.tfm     +++|*         CALLS  AFA, ARF, UTR.
09012  M01S08009.tfm     +++|*
09013  M01S08010.tfm     +++|*         MACROS COMPARE.
09014  M01S08011.tfm     +++|
09015  M01S08012.tfm     +++|
09016  M01S08013.tfm     +++| SAC      SUBR               ENTRY/EXIT
09017  M01S08014.tfm     +++| SAC1     AOD    FP          ADVANCE POINTER
09018  M01S08015.tfm     +++|          RJM    AFA         GET ABSOLUTE FST ADDRESS
09019  M01S08016.tfm     +++|          SBN    FSTG-FNTG
09020  M01S08017.tfm     +++|          CRD    FN          READ FNT ENTRY
09021  M01S08018.tfm     +++|          LDD    FP
09022  M01S08019.tfm     +++|          LMD    FP+2
09023  M01S08020.tfm     +++|          ZJN    SACX        IF END OF FNT
09024  M01S08021.tfm     +++|          LDD    FN
09025  M01S08022.tfm     +++|          ZJN    SAC1        IF EMPTY ENTRY
09026  M01S08023.tfm     +++|          LDD    FN+4        CHECK FILE TYPE
09027  M01S08024.tfm     +++|          SHN    -6
09028  M01S08025.tfm     +++|          LMN    FAFT
09029  M01S08026.tfm     +++|          NJN    SAC1        IF NOT CORRECT FILE TYPE
09030  M01S08027.tfm     +++|          COMPARE SACA,,FN,,PFKL
09031  M01S08028.tfm     +++|          NJN    SAC1        IF NOT CATALOG
09032  M01S08029.tfm     +++|          LDD    FP
09033  M01S08030.tfm     +++|          RJM    AFA         GET ABSOLUTE FST ADDRESS
09034  M01S08031.tfm     +++|          CRD    FS          READ FST OF FAST ATTACH FILE
09035  M01S08032.tfm     +++|          LDD    FP
09036  M01S08033.tfm     +++|          LMD    FP+3
09037  M01S08034.tfm     +++|          ZJN    SAC1        IF FAMILY ENTERED
09038  M01S08035.tfm     +++|          SFA    EST,FS
09039  M01S08036.tfm     +++|          CRD    FS          READ EST ENTRY
09040  M01S08037.tfm     +++|          LDD    FS
09041  M01S08038.tfm     +++|          SHN    21-13
09042  M01S08039.tfm     +++|          PJP    SAC1        IF NOT MASS STORAGE DEVICE
09043  M01S08040.tfm     +++|          SHN    21-6-21+13
09044  M01S08041.tfm     +++|          MJP    SAC1        IF DEVICE UNAVAILABLE
09045  M01S08042.tfm     +++|          LDD    FS+3
09046  M01S08043.tfm     +++|          SHN    21-13
09047  M01S08044.tfm     +++|          MJP    SAC1        IF ACCESS NOT ALLOWED
09048  M01S08045.tfm     +++|          LDD    FS+4
09049  M01S08046.tfm     +++|          SHN    3
09050  M01S08047.tfm     +++|          ADN    PFGL
09051  M01S08048.tfm     +++|          CRM    PFAM,ON
09052  M01S08049.tfm     +++|          ADN    STLL-PFGL-1
09053  M01S08050.tfm     +++|          CRD    CM          GET INITIALIZE REQUESTS
09054  M01S08051.tfm     +++|          LDD    CM          CHECK INITIALIZE AND UNLOAD REQUESTS
09055  M01S08052.tfm     +++|          LPC    1030
09056  M01S08053.tfm     +++|          NJP    SAC1        IF REQUESTS PENDING
09057  M01S08054.tfm     +++|          LDD    FP          SET CATALOG FNT ORDINAL
09058  M01S08055.tfm     +++|          STD    FO
09059  M01S08056.tfm     +++|          STD    T1
09060  M01S08057.tfm     +++|          LDN    /PFM/PTWR   SET MODE
09061  M01S08058.tfm     +++|          STD    T2
Line S08059 Modification History
M01 (Added by) tfm
M02 (Updated by) t2807
Seq #  *Modification Id* Act 
----------------------------+
09062  M02S08059.t2807   ---|          LDN    AFAS        ATTACH CATALOG
09063  M01S00083.t2807   +++|          LDN    /COMSCPS/AFAS  ATTACH CATALOG
09064  M01S08060.tfm     +++|          RJM    ARF
09065  M01S08061.tfm     +++|          RJM    UTR         UPDATE TRT
09066  M01S08062.tfm     +++|          RJM    PRP         PRESET RANDOM PROCESSORS
09067  M01S08063.tfm     +++|          LDN    1           SET CATALOG FOUND
09068  M01S08064.tfm     +++|          LJM    SACX        RETURN
09069  M01S08065.tfm     +++|
09070  M01S08066.tfm     +++| SACA     VFD    48D/0L"TMFC"  TMS CATALOG NAME
09071  M01S08067.tfm     +++|          SPACE  4,10
09072  M01S08068.tfm     +++|**        LOCAL COMMON DECKS.
09073  M01S08069.tfm     +++|
09074  M01S08070.tfm     +++|
09075  M01S08071.tfm     +++| BSE$     EQU    1           DEFINE BSE - BACKSPACE ONE ENTRY
09076  M01S08072.tfm     +++| CIE$     EQU    1           DEFINE CIE - CREATE INDEXED ENTRY
09077  M01S08073.tfm     +++| DDE$     EQU    1           DEFINE DDE - DELETE DATA ENTRY
09078  M01S08074.tfm     +++| DLB$     EQU    1           DEFINE DLB - DELINK DATA BLOCK
09079  M01S08075.tfm     +++| GNB$     EQU    1           DEFINE GNB - GET NEXT BLOCK
09080  M01S08076.tfm     +++| ISK$     EQU    1           DEFINE ISK - INDEXED SEARCH FOR KEY
09081  M01S08077.tfm     +++| SIB$     EQU    1           DEFINE SIB - SEARCH INDEX BUFFER
09082  M01S08078.tfm     +++| TBA$     EQU    1           DEFINE TBA - TOGGLE BUFFER ASSIGNMENT
09083  M01S08079.tfm     +++| UTR$     EQU    1           DEFUNE UTR - UPDATE TRT
09084  M01S08080.tfm     +++| VIS$     EQU    1           DEFINE VIS - VSN INDEXED SEARCH
Line S08081 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09085  M02S08081.282l826 ---|*CALL     COMPGFP
09086  M01S08082.tfm     +++|*CALL     COMPIRA
09087  M01S08083.tfm     +++|*CALL     COMPTFM
09088  M01S08084.tfm     +++|*CALL     COMPWEI
09089  M01S08085.tfm     +++|          SPACE  4,10
09090  M01S08086.tfm     +++|**        BUFFERS.
09091  M01S08087.tfm     +++|
09092  M01S08088.tfm     +++|
09093  M01S08089.tfm     +++| BUFA     BSS    TSVL*5
09094  M01S08090.tfm     +++| BUFB     BSS    TSVL*5
09095  M01S08091.tfm     +++| BUFC     BSS    4
09096  M01S08092.tfm     +++|          SPACE  4
09097  M01S08093.tfm     +++|          ERRNG  BUF2-*      BYTES LEFT BEFORE BUFFER OVERFLOW
Line S08094 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09098  M02S08094.274l797 ---|          OVERLAY (SUBFUNCTION ADMS.),OVL1
09099  M01S00419.274l797 +++|          OVERLAY (ADMIT ALTERNATE USERS.),OVL1
09100  M01S08095.tfm     +++| ADMS     SPACE  4,10
09101  M01S08096.tfm     +++|***       ADMS - ADMIT ALTERNATE USERS.
09102  M01S08097.tfm     +++|*
09103  M01S08098.tfm     +++|*         THE ADMIT OVERLAY GRANTS PERMISSION FOR USERS OTHER
Line S08099 Modification History
M01 (Added by) tfm
M02 (Updated by) ns2763
Seq #  *Modification Id* Act 
----------------------------+
09104  M02S08099.ns2763  ---|*         THEN THE FILE CREATOR TO ACCESS A PRIVATE FILE.
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/tfm.005.txt ยท Last modified: by 127.0.0.1