Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.tfm +++| IDENT TFM,TFM
00002 M00S00002.tfm +++| PERIPH J
00003 M00S00003.tfm +++| BASE MIXED
Line S00004 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
00004 M01S00004.nos252 ---| SST
Line S00001 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
00005 M01S00001.nos252 +++| SST PUCW
00006 M00S00005.tfm +++| TITLE TFM - TAPE FILE MANAGER.
00007 M00S00006.tfm +++|*COMMENT TFM - TAPE FILE MANAGER.
Line S00007 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
00008 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1983.
Line S00001 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00010 M00S00008.tfm +++| TFM SPACE 4,10
00011 M00S00009.tfm +++|***** TFM - TAPE FILE MANAGER.
00012 M00S00010.tfm +++|*
00013 M00S00011.tfm +++|* J.P. MOORE. 81/04/01.
00014 M00S00012.tfm +++| SPACE 4
00015 M00S00013.tfm +++|***** *TFM* HAS SUPERVISORY CONTROL OVER THE TMS TAPE CATALOGS,
00016 M00S00014.tfm +++|* AND DIRECTS PROCESSING OF TAPE ASSIGNMENTS AND FINAL
00017 M00S00015.tfm +++|* DISPOSITION. IT ACCEPTS PROCESSING REQUESTS FROM
Line S00016 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
00018 M01S00016.nos252 ---|* RESEX, MAGNET, TFSP AND THE TMS CONTROL STATEMENT
Line S00002 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
00019 M01S00002.nos252 +++|* RESEX, MAGNET, TFSP AND THE TMS COMMAND
00020 M00S00017.tfm +++|* PROCESSOR, TFILES. TFM INTERFACES WITH THE EXTERNAL
00021 M00S00018.tfm +++|* REQUESTS THROUGH FETS, AND MAGNETS UNIT DESCRIPTOR TABLE
00022 M00S00019.tfm +++|* (UDT).
00023 M00S00020.tfm +++|*
00024 M00S00021.tfm +++|* TFM IS A GENERAL PURPOSE FUNCTION PROCESSOR FOR THE TAPE
00025 M00S00022.tfm +++|* FILE MANAGER. TO ADD A NEW FUNCTION TO *TFM* AN
00026 M00S00023.tfm +++|* ENTRY IS MADE IN THE FUNCTION TABLE THAT POINTS TO THE
00027 M00S00024.tfm +++|* APPROPRIATE SET OF CODE. THE FUNCTION TABLE IS NOT ORDER
00028 M00S00025.tfm +++|* DEPENDENT. OVERLAYS ARE AUTOMATICALLY DEFINED BY THE OVERLAY
00029 M00S00026.tfm +++|* MACRO AND THE FUNCTIONS ENTRY POINT BY THE ENTRY MACRO.
00030 M00S00027.tfm +++|* NORMAL RETURN FROM A FUNCTION IS THROUGH A RETURN JUMP
00031 M00S00028.tfm +++|* FROM THE MAIN LOOP. ABNORMAL RETURN IS THROUGH THE ERROR
00032 M00S00029.tfm +++|* PROCESSING OVERLAY.
00033 M00S00030.tfm +++|*
00034 M00S00031.tfm +++|* TFM IS A NON-DEDICATED FUNCTION PROCESSOR. ALL TFM
00035 M00S00032.tfm +++|* REQUESTS ARE VALIDATED AGAINST CRITERIA WHICH IS
00036 M00S00033.tfm +++|* UNIQUE TO THE FUNCTION BEING CALLED. IF THIS CRITERIA
00037 M00S00034.tfm +++|* IS NOT MET, THE CALLING PROGRAM WILL BE ABORTED AS
Line S00035 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
00038 M01S00035.nos252 ---|* A *TFM INVALID REQUEST.*.
Line S00003 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
00039 M01S00003.nos252 +++|* A *TFM INCORRECT REQUEST.*.
00040 M00S00036.tfm +++|*
00041 M00S00037.tfm +++|* TFM IS THE ONLY PROGRAM WHICH HAS DIRECT ACCESS TO THE
00042 M00S00038.tfm +++|* TAPE FILE CATALOGS. CREATION, UPDATE, AND INQUIRY
00043 M00S00039.tfm +++|* REQUESTS ARE MADE TO TFM, AND ANY RETURNS ARE MADE
00044 M00S00040.tfm +++|* THROUGH FETS, BUFFERS, AND/OR THE UDT TABLE IN
00045 M00S00041.tfm +++|* MAGNET.
00046 M00S00042.tfm +++|*
00047 M00S00043.tfm +++|* THE TAPE FILE MANAGER CONSISTS OF FIVE MAIN AREAS
00048 M00S00044.tfm +++|* WHICH ARE STRUCTURED TO MAKE OPTIMAL USE OF AVAILABLE
00049 M00S00045.tfm +++|* PPU MEMORY AND FOR EASE OF MAINTENANCE. THESE ARE-
00050 M00S00046.tfm +++|*
00051 M00S00047.tfm +++|* 1. RESIDENT ROUTINES.
00052 M00S00048.tfm +++|* 2. OVERLAYABLE PRESET.
00053 M00S00049.tfm +++|* 3. PROCESSING OVERLAYS.
00054 M00S00050.tfm +++|* 4. CONDITIONALLY ASSEMBLED SUBROUTINES.
00055 M00S00051.tfm +++|* 5. I/O BUFFER AREAS.
00056 M00S00052.tfm +++|*
00057 M00S00053.tfm +++|*
00058 M00S00054.tfm +++|* RESIDENT ROUTINES CONSIST OF THE MAIN LOOP AND
00059 M00S00055.tfm +++|* SUBROUTINES WHICH ARE LOADED WITH THE PRIMARY
00060 M00S00056.tfm +++|* LOAD AND ARE NOT OVERLAYED AT ANY TIME. THESE
00061 M00S00057.tfm +++|* ROUTINES CAN BE USED BY ALL SUBORDINATE SUB-
00062 M00S00058.tfm +++|* ROUTINES AND OVERLAYS.
00063 M00S00059.tfm +++|*
00064 M00S00060.tfm +++|* OVERLAYABLE PRESET CONSISTS OF THE RA+1 REQUEST
00065 M00S00061.tfm +++|* PROCESSORS, RESIDENT SUBFUNCTION PROCESSORS,
00066 M00S00062.tfm +++|* OVERLAYABLE SUBROUTINES, PRESET, AND PRESET SUB-
00067 M00S00063.tfm +++|* ROUTINES. THIS CODE IS ARRANGED IN SECTIONS,
00068 M00S00064.tfm +++|* DEFINED BY THE OVERLAY LOAD ADDRESS. THE RESIDENT
00069 M00S00065.tfm +++|* SUBFUNCTION PROCESSORS DO NOT REQUIRE A OVERLAY
00070 M00S00066.tfm +++|* LOAD TO NORMALLY COMPLETE, BUT ERROR CONDITIONS
00071 M00S00067.tfm +++|* WILL CAUSE PART OF THIS CODE TO BE OVERLAYED BY
00072 M00S00068.tfm +++|* THE ERROR PROCESSOR.
00073 M00S00069.tfm +++|*
00074 M00S00070.tfm +++|* PROCESSING OVERLAYS ARE THE SUBFUNCTION PROCESSORS
00075 M00S00071.tfm +++|* WHICH ARE NOT AVAILABLE IN THE PRIMARY LOAD. THESE
00076 M00S00072.tfm +++|* OVERLAYS ARE AUTOMATICALLY GENERATED BY THE OVERLAY
00077 M00S00073.tfm +++|* MACRO AND ARE QUALIFIED BY THE THREE CHARACTER
00078 M00S00074.tfm +++|* OVERLAY NAME. EACH OVERLAY CAN DEFINE DIRECT CELLS
00079 M00S00075.tfm +++|* S1 - S3+4 FOR ITS OWN PURPOSES, AS THESE CELLS ARE
00080 M00S00076.tfm +++|* NOT USED BY ANY OTHER ROUTINES.
00081 M00S00077.tfm +++|*
00082 M00S00078.tfm +++|* CONDITIONALLY ASSEMBLED SUBROUTINES ARE CONTAINED
00083 M00S00079.tfm +++|* IN *COMPTFM*. THIS IS A COLLECTION OF SUBROUTINES
00084 M00S00080.tfm +++|* THAT OVERLAYABLE PRESET OR ANY OVERLAY CAN USE.
00085 M00S00081.tfm +++|* ONLY THE SUBROUTINES REQUESTED BY DEFINING XXX$
00086 M00S00082.tfm +++|* (XXX = SUBROUTINE NAME) WILL BE ASSEMBLED. BY
00087 M00S00083.tfm +++|* DEFAULT THE LISTING OF THIS COMMON DECK IS TURNED
00088 M00S00084.tfm +++|* OFF. TO OBTAIN A ASSEMBLED LIST OF *COMPTFM*
00089 M00S00085.tfm +++|* DEFINE LST$.
00090 M00S00086.tfm +++|*
00091 M00S00087.tfm +++|* THERE ARE THREE I/O BUFFERS DEFINED. IN SOME CASES
00092 M00S00088.tfm +++|* THEY ARE OVERLAYED BUT IN GENERAL EXTREME CARE MUST
00093 M00S00089.tfm +++|* BE TAKEN BEFORE USING ANY OF THE BUFFER AREAS FOR
00094 M00S00090.tfm +++|* CODE. SOME TFM SUBROUTINES RANDOMLY SELECT BUFFER
00095 M00S00091.tfm +++|* SPACE.
00096 M00S00092.tfm +++|*
00097 M00S00093.tfm +++|* DIRECT CELLS HAVE BEEN ARRANGED IN SUCH A WAY AS TO
00098 M00S00094.tfm +++|* ALLOW 15D CONTIGUOUS LOCATIONS (THREE CM WORDS) TO
00099 M00S00095.tfm +++|* BE UNIQUELY DEFINED BY EACH OF THE PROCESSING
00100 M00S00096.tfm +++|* OVERLAYS. THE REMAINING DIRECT CELLS ARE COMMON TO
00101 M00S00097.tfm +++|* TFM AS A WHOLE.
00102 M00S00098.tfm +++| SPACE 4,10
00103 M00S00099.tfm +++|*** TFM INPUT REGISTER CALL FORMAT -
00104 M00S00100.tfm +++|*
00105 M00S00101.tfm +++|*T, 18/ *TFM*, 6/40B, 12/FC, 6/0 , 18/FA
Figure
0 17 18 23 24 29 FA 0 FC 30 35 36 41 42 59 FC 40B *TFM*
00106 M00S00102.tfm +++|*
00107 M00S00103.tfm +++|* FC = FUNCTION CODE.
00108 M00S00104.tfm +++|*
00109 M00S00105.tfm +++|* FA = FUNCTION PARAMETER ADDRESS RELATIVE TO
00110 M00S00106.tfm +++|* THE CONTROL POINT (SEE *COMSTFM FOR FORMATS).
00111 M00S00107.tfm +++|*
00112 M00S00108.tfm +++|* CALLS TO TFM ARE MADE WITH THE AUTO-RECALL FLAG SET
00113 M00S00109.tfm +++|* EXCEPT WHEN CALLED BY *MAGNET*.
00114 M00S00110.tfm +++| SPACE 4,10
00115 M00S00111.tfm +++|*** DAYFILE MESSAGES.
00116 M00S00112.tfm +++|*
00117 M00S00113.tfm +++|* (VSN) BUSY.
00118 M00S00114.tfm +++|* THE VSN REQUESTED IS CURRENTLY BUSY.
00119 M00S00115.tfm +++|*
00120 M00S00116.tfm +++|* (LFN) NOT FOUND.
00121 M00S00117.tfm +++|* THE LOCAL FILE NAME REQUESTED IS NOT
00122 M00S00118.tfm +++|* IN THE FNT OR IS NOT ASSIGNED TO THE JOB.
00123 M00S00119.tfm +++|*
00124 M00S00120.tfm +++|* (FILENAME) NOT FOUND.
00125 M00S00121.tfm +++|* THE FILENAME SPECIFIED WHEN ATTEMPTING
00126 M00S00122.tfm +++|* SYMBOLIC ACCESS COULD NOT BE FOUND IN
00127 M00S00123.tfm +++|* THE USERS CATALOG.
00128 M00S00124.tfm +++|*
00129 M00S00125.tfm +++|* (VSN) NOT FOUND.
00130 M00S00126.tfm +++|* THE VSN SPECIFIED WHEN ATTEMPTING VSN
00131 M00S00127.tfm +++|* ACCESS TO A TAPE FILE COULD NOT BE
00132 M00S00128.tfm +++|* FOUND OR WAS NOT ASSIGNED TO THE USER.
00133 M00S00129.tfm +++|*
00134 M00S00130.tfm +++|* (USERNAME) NOT FOUND.
00135 M00S00131.tfm +++|* THE USERNAME IS NOT KNOWN TO TMS.
00136 M00S00132.tfm +++|*
00137 M00S00133.tfm +++|* (LFN) NOT ON MAGNETIC TAPE.
00138 M00S00134.tfm +++|* THE LOCAL FILE REQUESTED IS NOT A
00139 M00S00135.tfm +++|* MAGNETIC TAPE FILE.
00140 M00S00136.tfm +++|*
00141 M00S00137.tfm +++|* (VSN) ALREADY RESERVED.
00142 M00S00138.tfm +++|* ATTEMPT TO RESERVE A VSN THAT IS
00143 M00S00139.tfm +++|* ALREADY RESERVED
00144 M00S00140.tfm +++|*
00145 M00S00141.tfm +++|* (FILENAME) ALREADY RESERVED.
00146 M00S00142.tfm +++|* ATTEMPT TO RESERVE A FILENAME THAT
00147 M00S00143.tfm +++|* IS ALREADY RESERVED TO THE USER.
00148 M00S00144.tfm +++|*
00149 M00S00145.tfm +++|* TFM ABORTED.
00150 M00S00146.tfm +++|* ABNORMAL TERMINATION OF THE TAPE FILE
00151 M00S00147.tfm +++|* MANAGER
00152 M00S00148.tfm +++|*
Line S00149 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
00153 M01S00149.nos252 ---|* TFM INVALID REQUEST.
Line S00004 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
00154 M01S00004.nos252 +++|* TFM INCORRECT REQUEST.
00155 M00S00150.tfm +++|* TFM DETECTED A ERROR IN THE REQUEST.
00156 M00S00151.tfm +++|*
00157 M00S00152.tfm +++|* TMS DISABLED.
00158 M00S00153.tfm +++|* THE TAPE MANAGER IS DISABLED.
00159 M00S00154.tfm +++|*
00160 M00S00155.tfm +++|* MAGNET NOT ACTIVE.
00161 M00S00156.tfm +++|* ATTEMPT TO COMMUNICATED WITH THE MAGNETIC
00162 M00S00157.tfm +++|* TAPE EXECUTIVE WHICH IS CURRENTLY NOT IN
00163 M00S00158.tfm +++|* THE SYSTEM.
00164 M00S00159.tfm +++|*
00165 M00S00160.tfm +++|* ERRONEOUS BUFFER POINTER.
00166 M00S00161.tfm +++|* TFM INTERNAL ERROR.
00167 M00S00162.tfm +++|*
00168 M00S00163.tfm +++|* TMS UTILITY ACTIVE.
00169 M00S00164.tfm +++|* THE TMS UTILITY (TFSP) IS CURRENTLY
00170 M00S00165.tfm +++|* ACTIVE. NO USER ACTIONS ARE POSSIBLE.
00171 M00S00166.tfm +++|*
00172 M00S00167.tfm +++|* BUFFER ARGUMENT ERROR.
00173 M00S00168.tfm +++|* A ERROR WAS DETECTED WHEN VALIDATING
00174 M00S00169.tfm +++|* THE FET.
00175 M00S00170.tfm +++|*
00176 M00S00171.tfm +++|* ERROR IN INDEX DATA.
00177 M00S00172.tfm +++|* A DATA ERROR WAS DISCOVERED IN EITHER
00178 M00S00173.tfm +++|* A VSN OR USERNAME INDEX.
00179 M00S00174.tfm +++|*
00180 M00S00175.tfm +++|* ERROR IN CATALOG DATA.
00181 M00S00176.tfm +++|* A DATA ERROR WAS DISCOVERED IN THE TAPE
00182 M00S00177.tfm +++|* CATALOG ENTRY.
00183 M00S00178.tfm +++|*
00184 M00S00179.tfm +++|* ERROR IN ADMIT DATA.
00185 M00S00180.tfm +++|* A DATA ERROR WAS DISCOVERED IN A ADMIT
00186 M00S00181.tfm +++|* ENTRY FOR THE FILE.
00187 M00S00182.tfm +++|*
00188 M00S00183.tfm +++|* (NNNNNN) RANDOM ADDRESS ERROR.
00189 M00S00184.tfm +++|* ATTEMPT TO WRITE INTO THE SYSTEM SECTOR
00190 M00S00185.tfm +++|* OR BEYOND THE EOI IN THE TAPE CATALOG.
00191 M00S00186.tfm +++|*
00192 M00S00187.tfm +++|* EQXX, DNYY, MASS STORAGE ERROR.
00193 M00S00188.tfm +++|* A UNRECOVERABLE READ/WRITE ERROR HAS
00194 M00S00189.tfm +++|* OCCURRED.
00195 M00S00190.tfm +++|*
00196 M00S00191.tfm +++|* (FAMILY) TAPE CATALOG NOT FOUND.
00197 M00S00192.tfm +++|* NO TAPE CATALOG COULD BE FOUND
00198 M00S00193.tfm +++|* FOR THIS FAMILY.
00199 M00S00194.tfm +++|*
00200 M00S00195.tfm +++|* EMPTY CATALOG.
00201 M00S00196.tfm +++|* NO CATALOG ENTRIES COULD BE FOUND
00202 M00S00197.tfm +++|* FOR THIS USER ON A AUDIT REQUEST.
00203 M00S00198.tfm +++|*
00204 M00S00199.tfm +++|* CATALOG LINKAGE ERROR.
00205 M00S00200.tfm +++|* THE CATALOG LINKAGE HAS BEEN BROKEN.
00206 M00S00201.tfm +++|*
00207 M00S00202.tfm +++|* I/O SEQUENCE ERROR ON CATALOG.
00208 M00S00203.tfm +++|* THE LOCAL FILE CATALOG WAS BUSY.
00209 M00S00204.tfm +++|*
00210 M00S00205.tfm +++|* EOI NOT ON TRACK CHAIN.
00211 M00S00206.tfm +++|* THE EOI ON THE TAPE CATALOG COULD
00212 M00S00207.tfm +++|* NOT BE FOUND.
00213 M00S00208.tfm +++|*
00214 M00S00209.tfm +++|* NO ADMITS.
00215 M00S00210.tfm +++|* NO ADMIT ENTRIES COULD BE FOUND ON
00216 M00S00211.tfm +++|* A AUDIT REQUEST.
00217 M00S00212.tfm +++|*
00218 M00S00213.tfm +++|* TMS PROCESSING INHIBITED.
00219 M00S00214.tfm +++|* TMS CONTROL OVER TAPE FILES IS INHIBITED
00220 M00S00215.tfm +++|* BECAUSE THIS IS A SYSTEM ORIGIN JOB OR
00221 M00S00216.tfm +++|* AS A USER SPECIFIED REQUEST.
00222 M00S00217.tfm +++|*
00223 M00S00218.tfm +++|* ACTIVITY SUSPENDED.
00224 M00S00219.tfm +++|* TMS ACTIVITY IS TEMPORARILY SUSPENDED.
00225 M00S00220.tfm +++|*
00226 M00S00221.tfm +++|* (FAMILY) TAPE CATALOG ERROR.
00227 M00S00222.tfm +++|* THERE IS A FATAL CATALOG ERROR OUTSTANDING
00228 M00S00223.tfm +++|* FOR THIS FAMILY.
00229 M00S00224.tfm +++|*
00230 M00S00225.tfm +++|* WAIT SCRATCH ASSIGNMENT.
00231 M00S00226.tfm +++|* NO SCRATCH TAPES ARE CURRENTLY AVAILABLE
00232 M00S00227.tfm +++|* TO SATISFY THIS REQUEST.
00233 M00S00228.tfm +++|*
00234 M00S00229.tfm +++|* LINKED CATALOG NOT ACCESSIBLE.
00235 M00S00230.tfm +++|* THE LINKED TAPE CATALOG CANNOT BE ACCESSED FROM THE
00236 M00S00231.tfm +++|* CURRENT FAMILY.
00237 M00S00232.tfm +++| SPACE 4,10
00238 M00S00233.tfm +++|*** ACCOUNT FILE MESSAGES.
00239 M00S00234.tfm +++|*
Line S00235 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
00240 M01S00235.nos252 ---|* SMA , FAMNAME, USERNAM, FVSNXX, VSNXXX.
Line S00005 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
00241 M01S00005.nos252 +++|* SDAU, FAMNAME, USERNAM, FVSNXX, VSNXXX.
00242 M00S00236.tfm +++|* RESERVE
00243 M00S00237.tfm +++|*
Line S00238 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
00244 M01S00238.nos252 ---|* SMB , FAMNAME, USERNAM, FVSNXX.
Line S00006 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
00245 M01S00006.nos252 +++|* SDCR, FAMNAME, USERNAM, FVSNXX.
00246 M00S00239.tfm +++|* RELEASE.
00247 M00S00240.tfm +++| SPACE 4,10
00248 M00S00241.tfm +++|*** ASSEMBLY OPTIONS.
00249 M00S00242.tfm +++|
00250 M00S00243.tfm +++|
00251 M00S00244.tfm +++| IRA$ EQU 1 DEFINE RANDOM PROCESSOR INITIALIZATION
Line S00245 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00252 M01S00245.274l797 ---|*LST$ EQU 1 DEFINE *COMPTFM* LIST OPTION
Line S00001 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00253 M01S00001.274l797 +++| LST$ EQU 1 DEFINE *COMPTFM* LIST OPTION
00254 M00S00246.tfm +++|*TRP$ EQU 1 DEFINE TRAP ON ERROR CODES
00255 M00S00247.tfm +++| WEI$ EQU 1 DEFINE EOI BUFFER SPECIFIED
00256 M00S00248.tfm +++| QUAL$ EQU 1 DEFINE UNQUALIFIED COMMON DECKS
00257 M00S00249.tfm +++| SPACE 4,10
00258 M00S00250.tfm +++|*** COMMON DECKS (SYMBOLS/MACROS)
00259 M00S00251.tfm +++|*
00260 M00S00252.tfm +++|
00261 M00S00253.tfm +++|
00262 M00S00254.tfm +++|*CALL COMPMAC
Line S00001 Modification History
M01 (Added by) t2807
Seq # *Modification Id* Act
----------------------------+
00263 M01S00001.t2807 +++| QUAL COMSCPS
00264 M00S00255.tfm +++|*CALL COMSCPS
Line S00002 Modification History
M01 (Added by) t2807
Seq # *Modification Id* Act
----------------------------+
00265 M01S00002.t2807 +++| QUAL *
Line S00001 Modification History
M01 (Added by) 282l826
Seq # *Modification Id* Act
----------------------------+
00266 M01S00001.282l826 +++|*CALL COMSEJT
00267 M00S00256.tfm +++|*CALL COMSMSP
00268 M00S00257.tfm +++|*CALL COMSPIM
00269 M00S00258.tfm +++|*CALL COMSWEI
00270 M00S00259.tfm +++| QUAL EVT
00271 M00S00260.tfm +++|*CALL COMSEVT
00272 M00S00261.tfm +++| QUAL PFM
00273 M00S00262.tfm +++|*CALL COMSPFM
00274 M00S00263.tfm +++| QUAL PRD
00275 M00S00264.tfm +++|*CALL COMSPRD
00276 M00S00265.tfm +++| QUAL SSJ
00277 M00S00266.tfm +++|*CALL COMSSSJ
00278 M00S00267.tfm +++| QUAL UAM
Line S00268 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
00279 M01S00268.nos252 ---|*CALL COMSUAM
00280 M00S00269.tfm +++| QUAL
00281 M00S00270.tfm +++|*CALL COMSSSD
00282 M00S00271.tfm +++| SPACE 4,10
00283 M00S00272.tfm +++|*** MAGNET, RESEX, TFM SYMBOL DEFINITIONS.
00284 M00S00273.tfm +++|*
00285 M00S00274.tfm +++|
00286 M00S00275.tfm +++|
00287 M00S00276.tfm +++| LIST X
00288 M00S00277.tfm +++| QUAL MTX
00289 M00S00278.tfm +++|*CALL COMSMTX
00290 M00S00279.tfm +++| QUAL
00291 M00S00280.tfm +++|*CALL COMSTFM
00292 M00S00281.tfm +++| LIST *
Line S00007 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
00293 M01S00007.nos252 +++| SPACE 4,10
00294 M01S00008.nos252 +++|* VERIFY COMPATIBILITY OF TMS DEFINITIONS IN COMMON DECKS.
00295 M01S00009.nos252 +++|
00296 M01S00010.nos252 +++|
00297 M01S00011.nos252 +++| QUAL TFM
00298 M01S00012.nos252 +++|*CALL COMSTFM
00299 M01S00013.nos252 +++| QUAL *
00300 M00S00282.tfm +++| TITLE TAPE FILE MANAGER EQUIVALENCES.
00301 M00S00283.tfm +++| SPACE 4,10
00302 M00S00284.tfm +++|*** FET PARAMETER BLOCK.
00303 M00S00285.tfm +++|*
00304 M00S00286.tfm +++|* THE FOLLOWING SYMBOLS DEFINE THE FET
00305 M00S00287.tfm +++|* PARAMETERS RELATIVE TO THE FIRST WORD
00306 M00S00288.tfm +++|* OF THE PARAMETER BLOCK.
00307 M00S00289.tfm +++|
00308 M00S00290.tfm +++|
00309 M00S00291.tfm +++| FBES EQU TFES-TFFP EXTERNAL VSN
00310 M00S00292.tfm +++| FBTD EQU TFTD-TFFP TAPE DESCRIPTORS
00311 M00S00293.tfm +++| FBVS EQU TFVS-TFFP INTERNAL VSN
00312 M00S00294.tfm +++| FBFI EQU TFID-TFFP FILE IDENTIFIER
00313 M00S00295.tfm +++| FBSI EQU TFSI-TFFP SET I.D., VERSION, GENERATION
00314 M00S00296.tfm +++| FBNI EQU TFNI-TFFP FILE IDENTIFIER (NEW)
00315 M00S00297.tfm +++| FBCR EQU TFCR-TFFP CREATION/RETENTION DATE
00316 M00S00298.tfm +++| FBAC EQU TFCE-TFFP CE, AN PARAMETERS
00317 M00S00299.tfm +++| FBUN EQU TFUN-TFFP ALTERNATE USER NAME
00318 M00S00300.tfm +++| FBUC EQU TFUC-TFFP USER CONTROL WORD
00319 M00S00301.tfm +++| FBPW EQU TFPW-TFFP FILE PASSWORD
00320 M00S00302.tfm +++| SPACE 4,10
00321 M00S00303.tfm +++|*** BUFFER CONTROL WORD (PP BYTE POSITIONS)
00322 M00S00304.tfm +++|
00323 M00S00305.tfm +++|
00324 M00S00306.tfm +++| CWSC EQU 0 SECTOR COUNT
00325 M00S00307.tfm +++| CWWC EQU 1 SECTOR WORD COUNT
00326 M00S00308.tfm +++| CWRT EQU BWRT*5+0+2 RECORD TYPE,LEVEL NUMBER
00327 M00S00309.tfm +++| CWUW EQU BWRT*5+1+2 UNUSED WORD COUNT (CM WORDS)
00328 M00S00310.tfm +++| CWEL EQU BWRT*5+2+2 DATA ENTRY LENGTH IN CM WORDS
00329 M00S00311.tfm +++| CWNE EQU BWRT*5+3+2 NUMBER OF DATA ENTRIES
00330 M00S00312.tfm +++| CWFE EQU BWRT*5+4+2 FIRST DATA WORD
00331 M00S00313.tfm +++| CWDT EQU BWDT*5+2+2 LAST MODIFICATION DATE/TIME (PACKED)
00332 M00S00314.tfm +++| CWBI EQU BWRI*5+1+2 RANDOM INDEX TO PREVIOUS BLOCK
00333 M00S00315.tfm +++| CWRI EQU BWRI*5+3+2 RANDOM INDEX TO NEXT BLOCK
00334 M00S00316.tfm +++| CWUN EQU BWUN*5+0+2 CATALOG/ADMIT/SYSTEM BLOCK USERNAME
00335 M00S00317.tfm +++| CWMX EQU BWUN*5+3+2 UTILITY MACHINE INDEX (SYSTEM BLOCK)
00336 M00S00318.tfm +++| SPACE 4,10
00337 M00S00319.tfm +++|*** SYSTEM BLOCK LOCATIONS (PP BYTE POSITIONS)
00338 M00S00320.tfm +++|
00339 M00S00321.tfm +++| SBFN EQU TMFM*5+0 FAMILY NAME
00340 M00S00322.tfm +++| SBST EQU TMFM*5+3 CATALOG STATUS
00341 M00S00323.tfm +++| SBID EQU TMID*5+0 MACHINE I.D.
00342 M00S00324.tfm +++| SBHP EQU TMID*5+3 HOLE POINTER
00343 M00S00325.tfm +++| SBTC EQU TMCT*5+1 TRACK COUNT
00344 M00S00326.tfm +++| SBPC EQU TMCT*5+2 SECTOR (PRU) COUNT
Line S00327 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00345 M01S00327.274l797 ---| SBSV EQU TMSV*5+0 FIRST SCRATCH VOLUME
00346 M01S00328.274l797 ---| SBSC EQU TMSV*5+3 SCRATCH COUNT
Line S00002 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00347 M01S00002.274l797 +++| SBSM EQU TMSM*5+0 FIRST *MT*/*NT* SCRATCH VOLUME
00348 M01S00003.274l797 +++| SBCM EQU TMSM*5+3 *MT*/*NT* SCRATCH COUNT
00349 M00S00329.tfm +++| SBLF EQU TMLF*5+0 LINKED FAMILY NAME
00350 M00S00330.tfm +++| SBPF EQU TMPA*5+0 PERMITTED ALTERNATE FAMILY NAMES
Line S00004 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00351 M01S00004.274l797 +++| SBSC EQU TMSC*5+0 FIRST *CT* SCRATCH VOLUME
00352 M01S00005.274l797 +++| SBCC EQU TMSC*5+3 *CT* SCRATCH COUNT
00353 M01S00006.274l797 +++| SBSA EQU TMSA*5+0 FIRST *AT* SCRATCH VOLUME
00354 M01S00007.274l797 +++| SBCA EQU TMSA*5+3 *AT* SCRATCH COUNT
00355 M00S00331.tfm +++| SPACE 4,10
00356 M00S00332.tfm +++|*** VSN ENTRY LOCATIONS (PP BYTE POSITIONS)
00357 M00S00333.tfm +++|
00358 M00S00334.tfm +++|
00359 M00S00335.tfm +++| VBES EQU VEES*5+0 EXTERNAL VSN
00360 M00S00336.tfm +++| VBCI EQU VEES*5+3 CATALOG RANDOM INDEX
00361 M00S00337.tfm +++| VBVS EQU VEVS*5+0 INTERNAL VSN
00362 M00S00338.tfm +++| VBRC EQU VEVS*5+3 REEL COUNT (UPPER 6 BITS)
00363 M00S00339.tfm +++| VBST EQU VEVS*5+3 VSN STATUS (LOWER 18 BITS)
00364 M00S00340.tfm +++| VBFV EQU VEFV*5+0 FIRST VSN OF SET
00365 M00S00341.tfm +++| VBMX EQU VEFV*5+3 VSN BUSY MACHINE INDEX
00366 M00S00342.tfm +++| VBJS EQU VEFV*5+4 EJT ORDINAL
00367 M00S00343.tfm +++| VBNV EQU VENV*5+0 NEXT VSN OF SET
00368 M00S00344.tfm +++| VBUC EQU VENV*5+3 USAGE COUNTER (UPPER 6 BITS)
00369 M00S00345.tfm +++| VBRD EQU VENV*5+3 RELEASE DATE (LOWER 18 BITS)
00370 M00S00346.tfm +++| SPACE 4,10
00371 M00S00347.tfm +++|*** USERNAME INDEX LOCATIONS (PP BYTE POSITIONS)
00372 M00S00348.tfm +++|
00373 M00S00349.tfm +++|
00374 M00S00350.tfm +++| UBUN EQU 0 USERNAME
00375 M00S00351.tfm +++| UBCI EQU UBUN+3 CATALOG INDEX (18 BITS)
00376 M00S00352.tfm +++| SPACE 4,10
00377 M00S00353.tfm +++|*** CATALOG ENTRY LOCATIONS (PP BYTE POSITIONS)
00378 M00S00354.tfm +++|
00379 M00S00355.tfm +++| CBLI EQU CELI*5+0 FILE NAME (102 BITS)
00380 M00S00356.tfm +++| CBST EQU CEST*5+4 STATUS FLAGS (12 BITS)
00381 M00S00357.tfm +++| CBES EQU CEES*5+0 EXTERNAL SERIAL NUMBER (36 BITS)
00382 M00S00358.tfm +++| CBRC EQU CEES*5+4 REEL COUNT (12 BITS)
00383 M00S00359.tfm +++| CBTD EQU CETD*5+0 TAPE FILE DESCRIPTORS (60 BITS)
00384 M00S00360.tfm +++| CBFN EQU CETD*5+2 TAPE FORMAT AND NOISE SIZE
00385 M00S00361.tfm +++| CBSZ EQU CETD*5+3 BLOCK SIZE (24 BITS)
00386 M00S00362.tfm +++| CBVS EQU CEVS*5+0 VOLUME SERIAL NUMBER (36 BITS)
00387 M00S00363.tfm +++| CBFA EQU CEVS*5+3 FILE ACCESSIBILITY (6 BITS)
00388 M00S00364.tfm +++| CBSN EQU CEVS*5+3 SECTION NUMBER (18 BITS)
00389 M00S00365.tfm +++| CBPI EQU CEPI*5+0 PHYSICAL FILE I.D. (102 BITS)
00390 M00S00366.tfm +++| CBQN EQU CESQ*5+3 FILE SEQUENCE NUMBER (18 BITS)
00391 M00S00367.tfm +++| CBSI EQU CESI*5+0 SET IDENTIFIER (36 BITS)
00392 M00S00368.tfm +++| CBVN EQU CESI*5+3 VERSION NUMBER (9 BITS)
00393 M00S00369.tfm +++| CBGN EQU CESI*5+3 GENERATION NUMBER (15 BITS)
00394 M00S00370.tfm +++| CBLD EQU CERC*5+0 LABEL RETENTION/CREATION DATE (60 BITS)
00395 M00S00371.tfm +++| CBPW EQU CEPW*5+0 PASSWORD (42 BITS)
00396 M00S00372.tfm +++| CBCT EQU CEPW*5+4 CATAGORY TYPE (6 BITS)
00397 M00S00373.tfm +++| CBAM EQU CEPW*5+4 ACCESS MODE (6 BITS)
00398 M00S00374.tfm +++| CBNC EQU CECD*5+0 RANDOM INDEX TO CATALOG
00399 M00S00375.tfm +++| CBCD EQU CECD*5+2 CREATION DATE/TIME (36 BITS)
00400 M00S00376.tfm +++| CBAE EQU CEMD*5+0 RANDOM INDEX TO FIRST ADMIT BLOCK
00401 M00S00377.tfm +++| CBMD EQU CEMD*5+2 MODIFICATION DATE/TIME (36 BITS)
00402 M00S00378.tfm +++| CBAC EQU CEAD*5+0 ACCESS COUNT (24 BITS)
00403 M00S00379.tfm +++| CBAD EQU CEAD*5+2 LAST ACCESS DATE/TIME (36 BITS)
00404 M00S00380.tfm +++| CBUC EQU CEUC*5+0 USER CONTROL WORD (60 BITS)
00405 M00S00381.tfm +++| CBCN EQU CECN*5+0 CHARGE NUMBER (60 BITS)
00406 M00S00382.tfm +++| CBPN EQU CEPN*5+0 PROJECT NUMBER (120 BITS)
00407 M00S00383.tfm +++| SPACE 4,10
00408 M00S00384.tfm +++|*** ADMIT ENTRY LOCATIONS (PP BYTE POSITIONS).
00409 M00S00385.tfm +++|
00410 M00S00386.tfm +++| ABUN EQU AEUN*5+0 ALTERNATE USER NAME (42 BITS)
00411 M00S00387.tfm +++| ABAN EQU AEAC*5+0 ACCESS COUNT (18 BITS)
00412 M00S00388.tfm +++| ABAM EQU AEAC*5+1 ACCESS MODE (6 BITS)
00413 M00S00389.tfm +++| ABDT EQU AEAC*5+2 LAST ACCESS DATE/TIME (36 BITS)
00414 M00S00390.tfm +++| SPACE 4,10
00415 M00S00391.tfm +++|*** TFM EVENT SKELETONS.
00416 M00S00392.tfm +++|
00417 M00S00393.tfm +++|
00418 M00S00394.tfm +++| ESVB EQU /EVT/TVBE VSN BUSY OR WAIT SCRATCH
Line S00395 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
00419 M01S00395.nos252 ---| ESUA EQU /EVT/TTUE TFSP UTILITY ACTIVE
Line S00014 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
00420 M01S00014.nos252 +++| ESUA EQU /EVT/TUIE TMS UTILITY INTERLOCK
00421 M00S00396.tfm +++| ESMR EQU /EVT/TRME ROLLOUT FOR MAGNET
00422 M00S00397.tfm +++| ESVR EQU /EVT/VSNE VSN RESOURCE
00423 M00S00398.tfm +++| SPACE 4,10
00424 M00S00399.tfm +++|*** BUFFER ALLOCATION.
00425 M00S00400.tfm +++|
00426 M00S00401.tfm +++|
00427 M00S00402.tfm +++| BUF0 EQU BFMS MASS STORAGE I/O BUFFER
00428 M00S00403.tfm +++| BUF1 EQU BUF0-502 MASS STORAGE I/O BUFFER
00429 M00S00404.tfm +++| BUF2 EQU BUF1-502 MASS STORAGE I/O BUFFER
00430 M00S00405.tfm +++| TITLE MACRO/MICRO DEFINITIONS.
00431 M00S00406.tfm +++|* OVERLAY CONTROL.
00432 M00S00407.tfm +++|
00433 M00S00408.tfm +++|
00434 M00S00409.tfm +++| PREFIX MICRO 1,, 5T BASE OVERLAY NAME
00435 M00S00410.tfm +++| .A. SET 0 SCRATCH
00436 M00S00411.tfm +++| .B. SET 0 SCRATCH
00437 M00S00412.tfm +++| .X. SET 0 OVERLAY GENERATION COUNT
00438 M00S00413.tfm +++| .Y. MICRO 1,, TFM GENERATED OVERLAY NAME
00439 M00S00414.tfm +++| .Z. SET 0 FUNCTION TABLE GENERATION
00440 M00S00415.tfm +++| NOREF .A.,.B.
00441 M00S00416.tfm +++| OP= SPACE 4,10
00442 M00S00417.tfm +++|** OP= - CONDITIONALLY GENERATE INSTRUCTION.
00443 M00S00418.tfm +++|*
00444 M00S00419.tfm +++|* OP= P1,P2,P3
00445 M00S00420.tfm +++|*
00446 M00S00421.tfm +++|* ENTRY P1 = ARGUMENT.
00447 M00S00422.tfm +++|* P2 = INSTRUCTION IF ARGUMENT .LT. 100B.
00448 M00S00423.tfm +++|* P3 = INSTRUCTION IF ARGUMENT .GE. 100B.
00449 M00S00424.tfm +++|
00450 M00S00425.tfm +++|
00451 M00S00426.tfm +++| PURGMAC OP=
00452 M00S00427.tfm +++|
00453 M00S00428.tfm +++| OP= MACRO P1,P2,P3
00454 M00S00429.tfm +++| IF DEF,P1,3
00455 M00S00430.tfm +++| IFLT P1,100B
00456 M00S00431.tfm +++| P2 P1
00457 M00S00432.tfm +++| ELSE
00458 M00S00433.tfm +++| P3 P1
00459 M00S00434.tfm +++| ENDIF
00460 M00S00435.tfm +++| ENDM
00461 M00S00436.tfm +++| CLEAR SPACE 4,10
00462 M00S00437.tfm +++|** CLEAR - CLEAR PP MEMORY.
00463 M00S00438.tfm +++|*
00464 M00S00439.tfm +++|* CLEAR P1,P2,P3,P4
00465 M00S00440.tfm +++|*
00466 M00S00441.tfm +++|* ENTRY P1 = STARTING WORD IN PPU TO BE SET TO ZERO.
00467 M00S00442.tfm +++|* P2 = CELL CONTAINING INDEX TO P1.
00468 M00S00443.tfm +++|* P3 = NUMBER OF CHARACTERS (HALF BYTES) TO
00469 M00S00444.tfm +++|* CLEAR.
00470 M00S00445.tfm +++|* P4 = CELL CONTAINING NUMBER OF CHARACTERS TO CLEAR.
00471 M00S00446.tfm +++|*
00472 M00S00447.tfm +++|* CALLS CPM.
00473 M00S00448.tfm +++|
00474 M00S00449.tfm +++|
00475 M00S00450.tfm +++| PURGMAC CLEAR
00476 M00S00451.tfm +++|
00477 M00S00452.tfm +++| CLEAR MACRO P1,P2,P3,P4
00478 M00S00453.tfm +++| MACREF CLEAR
00479 M00S00454.tfm +++| EVAL P1,P2,T1
00480 M00S00455.tfm +++| EVAL P3,P4
00481 M00S00456.tfm +++| RJM CPM
00482 M00S00457.tfm +++| ENDM
00483 M00S00458.tfm +++| CMOVE SPACE 4,15
00484 M00S00459.tfm +++|** CMOVE - COMPARE/MEMORY MOVE.
00485 M00S00460.tfm +++|*
00486 M00S00461.tfm +++|* CMOVE P1,P2,P3,P4,P5,P6
00487 M00S00462.tfm +++|*
00488 M00S00463.tfm +++|* ENTRY P1 = FWA OF MOVE.
00489 M00S00464.tfm +++|* P2 = MODIFIER TO P1.
00490 M00S00465.tfm +++|* P3 = FWA OF DESTINATION.
00491 M00S00466.tfm +++|* P4 = MODIFIER TO P3.
00492 M00S00467.tfm +++|* P5 = MOVE COUNT IN PP BYTES.
00493 M00S00468.tfm +++|* P6 = MOVE COUNT IN PP BYTES, STORED IN MEMORY.
00494 M00S00469.tfm +++|*
00495 M00S00470.tfm +++|* CALLS CMV.
00496 M00S00471.tfm +++|
00497 M00S00472.tfm +++|
00498 M00S00473.tfm +++| PURGMAC CMOVE
00499 M00S00474.tfm +++|
00500 M00S00475.tfm +++| CMOVE MACRO P1,P2,P3,P4,P5,P6
00501 M00S00476.tfm +++| MACREF CMOVE
00502 M00S00477.tfm +++| EVAL P1,P2,T1
00503 M00S00478.tfm +++| EVAL P3,P4,T2
00504 M00S00479.tfm +++| EVAL P5,P6
00505 M00S00480.tfm +++| RJM CMV
00506 M00S00481.tfm +++| CMV$ EQU 1 DEFINE CMV - COMPARE/MOVE PP BYTE STRING
00507 M00S00482.tfm +++| ENDM
00508 M00S00483.tfm +++| COMPARE SPACE 4,10
00509 M00S00484.tfm +++|** COMPARE - COMPARE CHARACTER STRING.
00510 M00S00485.tfm +++|*
00511 M00S00486.tfm +++|* COMPARE P1,P2,P3,P4,P5,P6
00512 M00S00487.tfm +++|*
00513 M00S00488.tfm +++|* ENTRY P1 = ADDRESS OF STRING 1.
00514 M00S00489.tfm +++|* P2 = CELL CONTAINING INDEX.
00515 M00S00490.tfm +++|* P3 = ADDRESS OF STRING 2.
00516 M00S00491.tfm +++|* P4 = STRING 2 MODIFIER.
00517 M00S00492.tfm +++|* P5 = LENGTH OF COMPARE.
00518 M00S00493.tfm +++|* P6 = CELL CONTAINING LENGTH OF COMPARE.
00519 M00S00494.tfm +++|
00520 M00S00495.tfm +++|
00521 M00S00496.tfm +++| PURGMAC COMPARE
00522 M00S00497.tfm +++|
00523 M00S00498.tfm +++| COMPARE MACRO P1,P2,P3,P4,P5,P6
00524 M00S00499.tfm +++| MACREF COMPARE
00525 M00S00500.tfm +++| EVAL P1,P2,T1
00526 M00S00501.tfm +++| EVAL P3,P4,T2
00527 M00S00502.tfm +++| EVAL P5,P6
00528 M00S00503.tfm +++| RJM CCS
00529 M00S00504.tfm +++| ENDM
00530 M00S00505.tfm +++| EMSG SPACE 4,10
00531 M00S00506.tfm +++|** EMSG - GENERATE ERROR MESSAGE.
00532 M00S00507.tfm +++|*
00533 M00S00508.tfm +++|*
00534 M00S00509.tfm +++|* EMSG P1,P2,(P3)
00535 M00S00510.tfm +++|*
00536 M00S00511.tfm +++|* ENTRY (P1) = ERROR MESSAGE TYPE AND PROCESSING DISPOSITION.
00537 M00S00512.tfm +++|* (P2) = CONTROL WORD FOR MESSAGE DESTINATION.
00538 M00S00513.tfm +++|* (P3) = ERROR MESSAGE.
00539 M00S00514.tfm +++|
00540 M00S00515.tfm +++|
00541 M00S00516.tfm +++| PURGMAC EMSG
00542 M00S00517.tfm +++|
00543 M00S00518.tfm +++| MACRO EMSG,P1,P2,P3,P4
00544 M00S00519.tfm +++| MACREF EMSG
00545 M00S00520.tfm +++| IFC EQ,*P2*BEGIN*,3
00546 M00S00521.tfm +++| P1 BSS 0
00547 M00S00522.tfm +++| QUAL P1
00548 M00S00523.tfm +++| SKIP
00549 M00S00524.tfm +++| IFC EQ,*P2*END*,4
00550 M00S00525.tfm +++| QUAL *
00551 M00S00526.tfm +++| LOC *O
00552 M00S00527.tfm +++| P1_L EQU *-P1
00553 M00S00528.tfm +++| SKIP
00554 M00S00529.tfm +++| .A. MICRO 1,,$P4$
00555 M00S00530.tfm +++| .B. MICCNT .A.
00556 M00S00531.tfm +++| ERRNG 40D-.B. DAYFILE MESSAGE TOO LONG
00557 M00S00532.tfm +++| LOC P1
00558 M00S00533.tfm +++| CON P2,P3,=C$P4$
00559 M00S00534.tfm +++| ENDIF
00560 M00S00535.tfm +++| ENDM
00561 M00S00536.tfm +++| ENTRY SPACE 4,10
00562 M00S00537.tfm +++|** ENTRY - DEFINE OVERLAY ENTRY POINT.
00563 M00S00538.tfm +++|*
00564 M00S00539.tfm +++|* P1 ENTRY
00565 M00S00540.tfm +++|*
00566 M00S00541.tfm +++|* ENTRY P1 = ENTRY/EXIT POINT FOR ROUTINE.
00567 M00S00542.tfm +++|
00568 M00S00543.tfm +++|
00569 M00S00544.tfm +++| PURGMAC ENTRY
00570 M00S00545.tfm +++|
00571 M00S00546.tfm +++| MACRO ENTRY,P1
00572 M00S00547.tfm +++| MACREF ENTRY
00573 M00S00548.tfm +++| P1_X LJP *
00574 M00S00549.tfm +++| IFEQ .X.,0
00575 M00S00550.tfm +++| P1 EQU *-1
00576 M00S00551.tfm +++| ELSE
00577 M00S00552.tfm +++| IFGT *,PPFW,4
00578 M00S00553.tfm +++| QUAL
00579 M00S00554.tfm +++| .A. MICRO 3,1, ".Y."
00580 M00S00555.tfm +++| P1 EQU 1R".A."*10000+*-1
00581 M00S00556.tfm +++| QUAL ".Y."
00582 M00S00557.tfm +++| ENDIF
00583 M00S00558.tfm +++| ENDM
00584 M00S00559.tfm +++| ERROR SPACE 4,10
00585 M00S00560.tfm +++|** ERROR - CALL ERROR PROCESSOR.
00586 M00S00561.tfm +++|*
00587 M00S00562.tfm +++|* ERROR P1
00588 M00S00563.tfm +++|*
00589 M00S00564.tfm +++|* ENTRY P1 = ERROR CODE MNEMONIC.
00590 M00S00565.tfm +++|* IF P1 IS NOT SPECIFIED, THE ACCUMULATOR ALREADY
00591 M00S00566.tfm +++|* CONTAINS THE ERROR CODE MNEMONIC.
00592 M00S00567.tfm +++|*
00593 M00S00568.tfm +++|* EXIT (A) = ERROR CODE.
00594 M00S00569.tfm +++|*
00595 M00S00570.tfm +++|* CALLS ERR.
00596 M00S00571.tfm +++|
00597 M00S00572.tfm +++|
00598 M00S00573.tfm +++| PURGMAC ERROR
00599 M00S00574.tfm +++|
00600 M00S00575.tfm +++| .ERRJP SET 0 INITIALIZE POINTER TO *RJM ERR*
00601 M00S00576.tfm +++|
00602 M00S00577.tfm +++| ERROR MACRO P1
00603 M00S00578.tfm +++| MACREF ERROR
00604 M00S00579.tfm +++| IFC NE,*P1**,1
00605 M00S00580.tfm +++| OP= /EMSG/P1,LDN,LDC
00606 M00S00581.tfm +++| .1 IFLT *-.ERRJP,40B
00607 M00S00582.tfm +++| UJN .ERRJP GO TO *ERR* CALL
00608 M00S00583.tfm +++| .ERRJP SET *-1
00609 M00S00584.tfm +++| .1 ELSE
00610 M00S00585.tfm +++| .ERRJP SET *
00611 M00S00586.tfm +++| RJM ERR
00612 M00S00587.tfm +++| .1 ENDIF
00613 M00S00588.tfm +++| ENDM
00614 M00S00589.tfm +++| EVAL SPACE 4,10
00615 M00S00590.tfm +++|** EVAL - EVALUATE PARAMETER PAIRS.
00616 M00S00591.tfm +++|*
00617 M00S00592.tfm +++|* EVAL P1,P2,P3
00618 M00S00593.tfm +++|*
00619 M00S00594.tfm +++|* ENTRY P1 = CONSTANT.
00620 M00S00595.tfm +++|* P2 = BASE ADDRESS.
00621 M00S00596.tfm +++|* P3 = ADDRESS RESULT TO BE STORED IN.
00622 M00S00597.tfm +++|
00623 M00S00598.tfm +++|
00624 M00S00599.tfm +++| PURGMAC EVAL
00625 M00S00600.tfm +++|
00626 M00S00601.tfm +++| EVAL MACRO P1,P2,P3
00627 M00S00602.tfm +++| IFC NE,?_P2_??,5
00628 M00S00603.tfm +++| OP= P2,LDD,LDM
00629 M00S00604.tfm +++| IFEQ P1,0,1
00630 M00S00605.tfm +++| SKIP 4
00631 M00S00606.tfm +++| OP= P1,ADN,ADC
00632 M00S00607.tfm +++| SKIP 2
00633 M00S00608.tfm +++| IFC NE,?_P1_??,3
00634 M00S00609.tfm +++| OP= P1,LDN,LDC
00635 M00S00610.tfm +++| IFC NE,?_P3_??,1
00636 M00S00611.tfm +++| OP= P3,STD,STM
00637 M00S00612.tfm +++| ENDM
00638 M00S00613.tfm +++| EXOVL SPACE 4,10
00639 M00S00614.tfm +++|** EXOVL - EXECUTE OVERLAY.
00640 M00S00615.tfm +++|*
00641 M00S00616.tfm +++|* EXOVL P1
00642 M00S00617.tfm +++|*
00643 M00S00618.tfm +++|* ENTRY P1 = PROCESSOR ADDRESS.
00644 M00S00619.tfm +++|
00645 M00S00620.tfm +++|
00646 M00S00621.tfm +++| PURGMAC EXOVL
00647 M00S00622.tfm +++|
00648 M00S00623.tfm +++| .EXOVL SET 0 INITIALIZE POINTER TO NEAREST *EXOVL*
00649 M00S00624.tfm +++|
00650 M00S00625.tfm +++| EXOVL MACRO P1
00651 M00S00626.tfm +++| MACREF EXOVL
00652 M00S00627.tfm +++| LDN P1/10000
00653 M00S00628.tfm +++| STM TFMA
00654 M00S00629.tfm +++| LDC P1-P1/10000*10000
00655 M00S00630.tfm +++| .1 IF DEF,.EXOVLO
00656 M00S00631.tfm +++| .2 IFLT *-.EXOVL,40B
00657 M00S00632.tfm +++| .EX SET .EXOVL
00658 M00S00633.tfm +++| UJN .EX GO LOAD OVERLAY
00659 M00S00634.tfm +++| .EXOVL SET *-1
00660 M00S00635.tfm +++| .2 ELSE
00661 M00S00636.tfm +++| LJM .EXOVLO GO LOAD OVERLAY
00662 M00S00637.tfm +++| .EXOVL SET *-2
00663 M00S00638.tfm +++| .2 ENDIF
00664 M00S00639.tfm +++| .1 ELSE
00665 M00S00640.tfm +++| .EXOVLO EQU *
00666 M00S00641.tfm +++| .EXOVL SET *
00667 M00S00642.tfm +++| STM TFMB
00668 M00S00643.tfm +++| LJM TFMA-1 LOAD OVERLAY
00669 M00S00644.tfm +++| .1 ENDIF
00670 M00S00645.tfm +++| ENDM
00671 M00S00646.tfm +++| EXSUB SPACE 4,10
00672 M00S00647.tfm +++|** EXSUB - EXECUTE SUBROUTINE.
00673 M00S00648.tfm +++|*
00674 M00S00649.tfm +++|* EXSUB P1
00675 M00S00650.tfm +++|*
00676 M00S00651.tfm +++|* ENTRY P1 = SUBROUTINE ADDRESS.
00677 M00S00652.tfm +++|
00678 M00S00653.tfm +++|
00679 M00S00654.tfm +++| PURGMAC EXSUB
00680 M00S00655.tfm +++|
00681 M00S00656.tfm +++| EXSUB MACRO P1
00682 M00S00657.tfm +++| MACREF EXSUB
00683 M00S00658.tfm +++| RJM P1-P1/10000*10000
00684 M00S00659.tfm +++| ENDM
00685 M00S00660.tfm +++| FCN SPACE 4,10
00686 M00S00661.tfm +++|** FCN - DEFINE FUNCTION PROCESSOR.
00687 M00S00662.tfm +++|*
00688 M00S00663.tfm +++|* P1 FCN P2,P3,P4,P5
00689 M00S00664.tfm +++|*
00690 M00S00665.tfm +++|* ENTRY P1 = FUNCTION TABLE NAME.
00691 M00S00666.tfm +++|* *BEGIN* FWA OF A TABLE.
00692 M00S00667.tfm +++|* *END* END OF THE TABLE.
00693 M00S00668.tfm +++|* P2 = FUNCTION CODE.
00694 M00S00669.tfm +++|* P3 = PROCESSOR ADDRESS.
00695 M00S00670.tfm +++|* P4 = CATALOG ACCESS MODE.
00696 M00S00671.tfm +++|* 4XXX = NOT ACCESSING CATALOG.
00697 M00S00672.tfm +++|* 2XXX = NOT CHANGING CONTROL POINTS.
00698 M00S00673.tfm +++|* P5 = MINIMUM FET LENGTH.
00699 M00S00674.tfm +++|* 4XXX = NO BUFFER VALIDATION.
00700 M00S00675.tfm +++|
00701 M00S00676.tfm +++|
00702 M00S00677.tfm +++| PURGMAC FCN
00703 M00S00678.tfm +++|
00704 M00S00679.tfm +++| MACRO FCN,P1,P2,P3,P4,P5
00705 M00S00680.tfm +++| MACREF FCN
00706 M00S00681.tfm +++| IFC EQ,*P2*BEGIN*,3
00707 M00S00682.tfm +++| P1 BSS 0
00708 M00S00683.tfm +++| LOC 0
00709 M00S00684.tfm +++| .1 SKIP
00710 M00S00685.tfm +++| IFC EQ,*P2*END*,3
00711 M00S00686.tfm +++| LOC *O
00712 M00S00687.tfm +++| P1_L EQU *-P1
00713 M00S00688.tfm +++| .1 SKIP
00714 M00S00689.tfm +++| LOC P2
00715 M00S00690.tfm +++| CON P3/10000,P3-P3/10000*10000
00716 M00S00691.tfm +++| .2 IFC NE,*P4**
00717 M00S00692.tfm +++| CON P4
00718 M00S00693.tfm +++| .2 ELSE
00719 M00S00694.tfm +++| CON 0
00720 M00S00695.tfm +++| .2 ENDIF
00721 M00S00696.tfm +++| .3 IFC NE,*P5**
00722 M00S00697.tfm +++| CON P5
00723 M00S00698.tfm +++| .3 ELSE
00724 M00S00699.tfm +++| CON 0
00725 M00S00700.tfm +++| .3 ENDIF
00726 M00S00701.tfm +++| .1 ENDIF
00727 M00S00702.tfm +++| ENDM
00728 M00S00703.tfm +++| LIA SPACE 4,10
00729 M00S00704.tfm +++|** LIA - LOAD INDIRECT ADDRESS TO A REGISTER.
00730 M00S00705.tfm +++|*
00731 M00S00706.tfm +++|* LIA P1,P2
00732 M00S00707.tfm +++|*
00733 M00S00708.tfm +++|* ENTRY P1 = BASE ADDRESS OF OPERAND.
00734 M00S00709.tfm +++|* P2 = ADDRESS OF THE INDEX FOR MODIFYING
00735 M00S00710.tfm +++|* THE BASE ADDRESS OF THE OPERAND.
00736 M00S00711.tfm +++|*
00737 M00S00712.tfm +++|* EXIT (A) = P1 + (P2).
00738 M00S00713.tfm +++|
00739 M00S00714.tfm +++|
00740 M00S00715.tfm +++| PURGMAC LIA
00741 M00S00716.tfm +++|
00742 M00S00717.tfm +++| LIA MACRO P1,P2
00743 M00S00718.tfm +++| MACREF LIA
00744 M00S00719.tfm +++| EVAL P1,P2
00745 M00S00720.tfm +++| ENDM
00746 M00S00721.tfm +++| LDA SPACE 4,11
00747 M00S00722.tfm +++|** LDA - LOAD ABSOLUTE/RELATIVE ADDRESS.
00748 M00S00723.tfm +++|*
00749 M00S00724.tfm +++|* LDA P1,P2
00750 M00S00725.tfm +++|*
00751 M00S00726.tfm +++|* ENTRY P1 = TWO CELLS WITH ADDRESS
00752 M00S00727.tfm +++|* P2 = CELL CONTAINING BIAS.
00753 M00S00728.tfm +++|* = *ABS* IF ADDRESS IS ABSOLUTE.
00754 M00S00729.tfm +++|* *REL* IF ADDRESS IS RELATIVE
00755 M00S00730.tfm +++|* TO CONTROL POINT.
00756 M00S00731.tfm +++|*
00757 M00S00732.tfm +++|* EXIT (A) = (P1+(P2))+(P1+1+(P2)).
00758 M00S00733.tfm +++|* (A) = (P1)*4096+(P1+1) IF P2 = *ABS*
00759 M00S00734.tfm +++|* (A) = (P1)*4096+(RA)*64+(P1+1) IF P2 = *REL*.
00760 M00S00735.tfm +++|
00761 M00S00736.tfm +++| PURGMAC LDA
00762 M00S00737.tfm +++|
00763 M00S00738.tfm +++| LDA MACRO P1,P2
00764 M00S00739.tfm +++| MACREF LDA
00765 M00S00740.tfm +++| IFC EQ,*P2*REL*,7
00766 M00S00741.tfm +++| OP= P1,LDD,LDM
00767 M00S00742.tfm +++| LPN 77
00768 M00S00743.tfm +++| SHN 6
00769 M00S00744.tfm +++| ADD RA
00770 M00S00745.tfm +++| SHN 6
00771 M00S00746.tfm +++| OP= P1+1,ADD,ADM
00772 M00S00747.tfm +++| SKIP 10
00773 M00S00748.tfm +++| IFC EQ,*P2*ABS*,5
00774 M00S00749.tfm +++| OP= P1,LDD,LDM
00775 M00S00750.tfm +++| LPN 77
00776 M00S00751.tfm +++| SHN 14
00777 M00S00752.tfm +++| OP= P1+1,LMD,LMM
00778 M00S00753.tfm +++| SKIP 4
00779 M00S00754.tfm +++| LDM P1,P2
00780 M00S00755.tfm +++| LPN 77
00781 M00S00756.tfm +++| SHN 14
00782 M00S00757.tfm +++| LMM P1+1,P2
00783 M00S00758.tfm +++| ENDM
00784 M00S00759.tfm +++| MMOVE SPACE 4,10
00785 M00S00760.tfm +++|** MMOVE - MEMORY MOVE.
00786 M00S00761.tfm +++|*
00787 M00S00762.tfm +++|* MMOVE P1,P2,P3,P4,P5,P6
00788 M00S00763.tfm +++|*
00789 M00S00764.tfm +++|* ENTRY P1 = FWA OF MOVE.
00790 M00S00765.tfm +++|* P2 = MODIFIER TO P1.
00791 M00S00766.tfm +++|* P3 = FWA OF DESTINATION.
00792 M00S00767.tfm +++|* P4 = MODIFIER TO P3.
00793 M00S00768.tfm +++|* P5 = MOVE COUNT IN HALF BYTES.
00794 M00S00769.tfm +++|* P6 = MOVE COUNT IN HALF BYTES, STORED IN MEMORY.
00795 M00S00770.tfm +++|*
00796 M00S00771.tfm +++|* CALLS MPM.
00797 M00S00772.tfm +++|
00798 M00S00773.tfm +++|
00799 M00S00774.tfm +++| PURGMAC MMOVE
00800 M00S00775.tfm +++|
00801 M00S00776.tfm +++| MMOVE MACRO P1,P2,P3,P4,P5,P6
00802 M00S00777.tfm +++| MACREF MMOVE
00803 M00S00778.tfm +++| EVAL P1,P2,T1
00804 M00S00779.tfm +++| EVAL P3,P4,T2
00805 M00S00780.tfm +++| EVAL P5,P6
00806 M00S00781.tfm +++| RJM MPM
00807 M00S00782.tfm +++| ENDM
00808 M00S00783.tfm +++| MULT3 SPACE 4,10
00809 M00S00784.tfm +++|** MULT3 - MULTIPLY BY 3.
00810 M00S00785.tfm +++|*
00811 M00S00786.tfm +++|* MULT3 P1
00812 M00S00787.tfm +++|*
00813 M00S00788.tfm +++|* ENTRY (P1) = DIRECT CELL CONTAINING VALUE TO
00814 M00S00789.tfm +++|* MULTIPLIED BY 3.
00815 M00S00790.tfm +++|*
00816 M00S00791.tfm +++|* EXIT (A) = SPECIFIED VALUE MULTIPLIED BY 3.
00817 M00S00792.tfm +++|
00818 M00S00793.tfm +++|
00819 M00S00794.tfm +++| PURGMAC MULT3
00820 M00S00795.tfm +++|
00821 M00S00796.tfm +++| MULT3 MACRO P1
00822 M00S00797.tfm +++| MACREF MULT3
00823 M00S00798.tfm +++| LDD P1
00824 M00S00799.tfm +++| SHN 1 *2
00825 M00S00800.tfm +++| ADD P1 *3
00826 M00S00801.tfm +++| ENDM
00827 M00S00802.tfm +++| MULT4 SPACE 4,10
00828 M00S00803.tfm +++|** MULT4 - MULTIPLY BY 4.
00829 M00S00804.tfm +++|*
00830 M00S00805.tfm +++|* MULT4
00831 M00S00806.tfm +++|*
00832 M00S00807.tfm +++|* ENTRY (A) = VALUE TO BE MULTIPLIED BY 4.
00833 M00S00808.tfm +++|*
00834 M00S00809.tfm +++|* EXIT (A) = (T1) = SPECIFIED VALUE MULTIPLIED BY 4.
00835 M00S00810.tfm +++|*
00836 M00S00811.tfm +++|* USES T1.
00837 M00S00812.tfm +++|
00838 M00S00813.tfm +++|
00839 M00S00814.tfm +++| PURGMAC MULT4
00840 M00S00815.tfm +++|
00841 M00S00816.tfm +++| MULT4 MACRO
00842 M00S00817.tfm +++| MACREF MULT4
00843 M00S00818.tfm +++| SHN 2 *4
00844 M00S00819.tfm +++| STD T1
00845 M00S00820.tfm +++| ENDM
00846 M00S00821.tfm +++| OVERLAY SPACE 4,10
00847 M00S00822.tfm +++|** OVERLAY - GENERATE OVERLAY CONSTANTS.
00848 M00S00823.tfm +++|*
00849 M00S00824.tfm +++|* OVERLAY (P1),P2
00850 M00S00825.tfm +++|*
00851 M00S00826.tfm +++|* ENTRY P1 = ENTRY OF SUBTITLE.
00852 M00S00827.tfm +++|* P2 = SPECIFIES LOAD ADDRESS.
00853 M00S00828.tfm +++|
00854 M00S00829.tfm +++|
00855 M00S00830.tfm +++| PURGMAC OVERLAY
00856 M00S00831.tfm +++|
00857 M00S00832.tfm +++| OVERLAY MACRO P1,P2
00858 M00S00833.tfm +++| MACREF OVERLAY
00859 M00S00834.tfm +++| QUAL
00860 M00S00835.tfm +++| .X. SET .X.+1
00861 M00S00836.tfm +++| .A. MICRO .X.,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ
00862 M00S00837.tfm +++| .Y. MICRO 1,3, "PREFIX"".A."
00863 M00S00838.tfm +++| QUAL ".Y."
Line S00839 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00864 M01S00839.274l797 ---| TITLE ".Y." - P1
Line S00008 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00865 M01S00008.274l797 +++| TTL TFM/".Y." - P1
00866 M01S00009.274l797 +++| TITLE
00867 M00S00840.tfm +++| IDENT ".Y.",P2+5 P1
00868 M00S00841.tfm +++|*COMMENT TFM - P1
00869 M00S00842.tfm +++| ORG P2+5
00870 M00S00843.tfm +++| .ERRJP SET 0 RESET POINTER TO *RJM ERR*
00871 M00S00844.tfm +++| .EXOVL SET 0 INITIALIZE POINTER TO NEAREST *EXOVL*
00872 M00S00845.tfm +++| LJM *
00873 M00S00846.tfm +++| UJN *-2
00874 M00S00847.tfm +++| ENDM
00875 M00S00848.tfm +++| SAVEP SPACE 4,10
00876 M00S00849.tfm +++|** SAVEP - SAVE CATALOG POINTERS.
00877 M00S00850.tfm +++|*
00878 M00S00851.tfm +++|* SAVEP P1
00879 M00S00852.tfm +++|*
00880 M00S00853.tfm +++|* ENTRY P1 = FWA OF FIVE CONSECUTIVE WORDS
00881 M00S00854.tfm +++|* TO STORE CELLS (BA - BA+4).
00882 M00S00855.tfm +++|
00883 M00S00856.tfm +++|
00884 M00S00857.tfm +++| PURGMAC SAVEP
00885 M00S00858.tfm +++|
00886 M00S00859.tfm +++| SAVEP MACRO P1
00887 M00S00860.tfm +++| MACREF SAVEP
00888 M00S00861.tfm +++| LDD MA
00889 M00S00862.tfm +++| CWD BA
00890 M00S00863.tfm +++| .1 IF DEF,P1
00891 M00S00864.tfm +++| .2 IFLT P1,100B
00892 M00S00865.tfm +++| CRD P1
00893 M00S00866.tfm +++| .2 ELSE
00894 M00S00867.tfm +++| CRM P1,ON
00895 M00S00868.tfm +++| .2 ENDIF
00896 M00S00869.tfm +++| .1 ELSE
00897 M00S00870.tfm +++| CRM P1,ON
00898 M00S00871.tfm +++| .1 ENDIF
00899 M00S00872.tfm +++| ENDM
00900 M00S00873.tfm +++| RESTP SPACE 4,10
00901 M00S00874.tfm +++|** RESTP - RESTORE CATALOG POINTERS.
00902 M00S00875.tfm +++|*
00903 M00S00876.tfm +++|* RESTP P1
00904 M00S00877.tfm +++|*
00905 M00S00878.tfm +++|* ENTRY P1 = FWA OF FIVE CONSECUTIVE BYTES
00906 M00S00879.tfm +++|* TO BE RETURNED TO CELLS BA - BA+4.
00907 M00S00880.tfm +++|
00908 M00S00881.tfm +++|
00909 M00S00882.tfm +++| PURGMAC RESTP
00910 M00S00883.tfm +++| RESTP MACRO P1
00911 M00S00884.tfm +++| MACREF RESTP
00912 M00S00885.tfm +++| LDD MA
00913 M00S00886.tfm +++| .1 IF DEF,P1
00914 M00S00887.tfm +++| .2 IFLT P1,100B
00915 M00S00888.tfm +++| CWD P1
00916 M00S00889.tfm +++| .2 ELSE
00917 M00S00890.tfm +++| CWM P1,ON
00918 M00S00891.tfm +++| SBN 1
00919 M00S00892.tfm +++| .2 ENDIF
00920 M00S00893.tfm +++| .1 ELSE
00921 M00S00894.tfm +++| CWM P1,ON
00922 M00S00895.tfm +++| SBN 1
00923 M00S00896.tfm +++| .1 ENDIF
00924 M00S00897.tfm +++| CRD BA
00925 M00S00898.tfm +++| ENDM
00926 M00S00899.tfm +++| UDTRD SPACE 4,10
00927 M00S00900.tfm +++|** UDTRD - READ UDT WORD(S).
00928 M00S00901.tfm +++|*
00929 M00S00902.tfm +++|* UDTRD P1,P2,P3
00930 M00S00903.tfm +++|*
00931 M00S00904.tfm +++|* ENTRY P1 = ADDRESS OF RECEIVING BUFFER
00932 M00S00905.tfm +++|* P2 = FIRST UDT WORD TO READ.
00933 M00S00906.tfm +++|* P3 = NUMBER OF WORDS TO READ.
00934 M00S00907.tfm +++|*
00935 M00S00908.tfm +++|* CALLS UDT.
00936 M00S00909.tfm +++|
00937 M00S00910.tfm +++|
00938 M00S00911.tfm +++| PURGMAC UDTRD
00939 M00S00912.tfm +++|
00940 M00S00913.tfm +++| UDTRD MACRO P1,P2,P3
00941 M00S00914.tfm +++| MACREF UDTRD
00942 M00S00915.tfm +++| IFC NE,*P1*T1*,2
00943 M00S00916.tfm +++| OP= P1,LDN,LDC
00944 M00S00917.tfm +++| STD T1
00945 M00S00918.tfm +++| LDC P3*10000+P2
00946 M00S00919.tfm +++| RJM UDT
00947 M00S00920.tfm +++| UDT$ EQU 1 DEFINE UDT - READ/WRITE UDT ENTRY.
00948 M00S00921.tfm +++| ENDM
00949 M00S00922.tfm +++| UDTWT SPACE 4,10
00950 M00S00923.tfm +++|** UDTWT - WRITE UDT WORD(S).
00951 M00S00924.tfm +++|*
00952 M00S00925.tfm +++|* UDTWT P1,P2,P3
00953 M00S00926.tfm +++|*
00954 M00S00927.tfm +++|* ENTRY P1 = ADDRESS OF SENDING BUFFER.
00955 M00S00928.tfm +++|* P2 = FIRST UDT WORD TO WRITE.
00956 M00S00929.tfm +++|* P3 = NUMBER OF WORDS TO WRITE.
00957 M00S00930.tfm +++|*
00958 M00S00931.tfm +++|* CALLS UDT.
00959 M00S00932.tfm +++|
00960 M00S00933.tfm +++|
00961 M00S00934.tfm +++| PURGMAC UDTWT
00962 M00S00935.tfm +++|
00963 M00S00936.tfm +++| UDTWT MACRO P1,P2,P3
00964 M00S00937.tfm +++| MACREF UDTWT
00965 M00S00938.tfm +++| IFC NE,*P1*T1*,2
00966 M00S00939.tfm +++| OP= P1,LDN,LDC
00967 M00S00940.tfm +++| STD T1
00968 M00S00941.tfm +++| LDC P3*10000+100000+P2
00969 M00S00942.tfm +++| RJM UDT
00970 M00S00943.tfm +++| UDT$ EQU 1 DEFINE UDT - READ/WRITE UDT ENTRY.
00971 M00S00944.tfm +++| ENDM
00972 M00S00945.tfm +++| TITLE GLOBAL DIRECT CELL LOCATIONS.
00973 M00S00946.tfm +++|*** GLOBAL DIRECT LOCATION ASSIGNMENTS.
00974 M00S00947.tfm +++|*
00975 M00S00948.tfm +++|* THE FOLLOWING DIRECT CELLS ARE DEFINED AND
00976 M00S00949.tfm +++|* USED BY ALL OVERLAYS IN TFM, AND AS SUCH ARE
00977 M00S00950.tfm +++|* INVIOLATE. IN MANY CASES THEY ARE ORDER
00978 M00S00951.tfm +++|* DEPENDENT SO CARE MUST BE USED IF CHANGES
00979 M00S00952.tfm +++|* ARE REQUIRED.
00980 M00S00953.tfm +++|*
00981 M00S00954.tfm +++|* S1, S2, AND S3 ARE DEFINED AS SCRATCH, THAT
00982 M00S00955.tfm +++|* IS THEY CAN AND ARE REDEFINED AND USED BY
00983 M00S00956.tfm +++|* PRESET AND ANY OVERLAY AS REQUIRED. ALL OF
00984 M00S00957.tfm +++|* THE REMAINING DIRECT CELLS ARE USED FOR
00985 M00S00958.tfm +++|* SPECIFIC PURPOSES BY OVERLAYS AND TFM COMMON
00986 M00S00959.tfm +++|* SUBROUTINES.
00987 M00S00960.tfm +++|
00988 M00S00961.tfm +++|
00989 M00S00962.tfm +++| S1 EQU 16 - 22 SCRATCH (5 LOCATIONS)
00990 M00S00963.tfm +++| S2 EQU 23 - 27 SCRATCH (5 LOCATIONS)
00991 M00S00964.tfm +++| S3 EQU 30 - 34 SCRATCH (5 LOCATIONS)
00992 M00S00965.tfm +++| FN EQU 35 - 41 FNT ENTRY (5 LOCATIONS)
00993 M00S00966.tfm +++| FS EQU 42 - 46 FST ENTRY (5 LOCATIONS)
00994 M00S00967.tfm +++| EQ EQU FS EQUIPMENT (FS+0)
00995 M00S00968.tfm +++| TK EQU FS+1 TRACK (FS+1)
00996 M00S00969.tfm +++| SC EQU FS+2 SECTOR (FS+2)
00997 M00S00970.tfm +++| FO EQU 47 FNT ORDINAL
00998 M00S00971.tfm +++| FC EQU IR+2 FUNCTION CODE (REDEFINES IR+2)
Line S00972 Modification History
M01 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
00999 M01S00972.282l826 ---| MC EQU 57 MAGNETS CONTROL POINT NUMBER
01000 M00S00973.tfm +++| BA EQU 60 BUFFER ADDRESS
01001 M00S00974.tfm +++| BP EQU 61 BUFFER POINTER
01002 M00S00975.tfm +++| CI EQU 62 CATALOG INDEX
01003 M00S00976.tfm +++| RI EQU 63 - 64 RANDOM INDEX (2 LOCATIONS)
01004 M00S00977.tfm +++| PB EQU 65 PARAMETER BLOCK ADDRESS
01005 M00S00978.tfm +++| KA EQU 66 KEY ADDRESS
01006 M00S00979.tfm +++| KL EQU 67 KEY LENGTH
01007 M00S00980.tfm +++| EC EQU KL ERROR CODE (REDEFINES KL)
Line S00001 Modification History
M01 (Added by) t5519
Seq # *Modification Id* Act
----------------------------+
01008 M01S00001.t5519 +++| TITLE ASSEMBLED LIST OF *COMPTFM* ROUTINES.
01009 M01S00002.t5519 +++| SPACE 4
01010 M01S00003.t5519 +++| ORG PPFW
01011 M01S00004.t5519 +++| SPACE 4
01012 M01S00005.t5519 +++| QUAL COMPTFM
01013 M01S00006.t5519 +++| COMPTFM SPACE 4,10
01014 M01S00007.t5519 +++|** DEFINE ALL CONDITIONALS FOR *COMPTFM* LIST.
01015 M01S00008.t5519 +++|
01016 M01S00009.t5519 +++|
01017 M01S00010.t5519 +++| ABC$ EQU 1 DEFINE ABC - ADD BLOCK TO CHAIN
01018 M01S00011.t5519 +++| AMD$ EQU 1 DEFINE AMD - AMEND PROCESSING
01019 M01S00012.t5519 +++| AUS$ EQU 1 DEFINE AUS - ALTERNATE USERNAME SEARCH
01020 M01S00013.t5519 +++| BSE$ EQU 1 DEFINE BSE - BACKSPACE ONE ENTRY
01021 M01S00014.t5519 +++| CAA$ EQU 1 DEFINE CAA - CHECK ALTERNATE USER ACCESS
01022 M01S00015.t5519 +++| CCB$ EQU 1 DEFINE CCB - CHECK CURRENT BUFFER
01023 M01S00016.t5519 +++| CIE$ EQU 1 DEFINE CIE - CREATE INDEX ENTRY
01024 M01S00017.t5519 +++| CMV$ EQU 1 DEFINE CMV - COMPARE/MOVE PP BYTE STRING
01025 M01S00018.t5519 +++| CSN$ EQU 1 DEFINE CSN - CONVERT SEQUENCE NUMBER
01026 M01S00019.t5519 +++| CVA$ EQU 1 DEFINE CVA - CLEAR VSN ASSIGNMENT
01027 M01S00020.t5519 +++| DDE$ EQU 1 DEFINE DDE - DELETE DATA ENTRY
01028 M01S00021.t5519 +++| DLB$ EQU 1 DEFINE DLB - DELINK BLOCK
01029 M01S00022.t5519 +++| EOI$ EQU 1 DEFINE EOI - SET END OF INFORMATION
01030 M01S00023.t5519 +++| FAM$ EQU 1 DEFINE FAM - FORMAT ACCOUNT FILE MESSAGE
01031 M01S00024.t5519 +++| FTC$ EQU 1 DEFINE FTC - FIND TAPE CATALOG
01032 M01S00025.t5519 +++| GEP$ EQU 1 DEFINE GEP - GENERATE EMPTY PRU
01033 M01S00026.t5519 +++| GNB$ EQU 1 DEFINE GNB - GET NEXT BLOCK
01034 M01S00027.t5519 +++| GNL$ EQU 1 DEFINE GNL - GET NEXT LINK
01035 M01S00028.t5519 +++| GPL$ EQU 1 DEFINE GPL - GET PREVIOUS BLOCK LINK
01036 M01S00029.t5519 +++| IAM$ EQU 1 DEFINE IAM - ISSUE ACCOUNT FILE MESSAGE
01037 M01S00030.t5519 +++| IBC$ EQU 1 DEFINE IBC - INITIALIZE BLOCK CHAIN
01038 M01S00031.t5519 +++| IDE$ EQU 1 DEFINE IDE - INSERT DATA ENTRY
01039 M01S00032.t5519 +++| IIE$ EQU 1 DEFINE IIE - INSERT INDEX ENTRY
01040 M01S00033.t5519 +++| IRM$ EQU 1 DEFINE IRM - ISSUE RECOVERY MESSAGES.
01041 M01S00034.t5519 +++| IRS$ EQU 1 DEFINE IRS - ISSUE RECOVERY MSG SUBROUTINE
01042 M01S00035.t5519 +++| ISK$ EQU 1 DEFINE ISK - INDEXED SEARCH FOR KEY
01043 M01S00036.t5519 +++| ISP$ EQU 1 DEFINE ISP - INITIALIZE SCRATCH PROCESSOR
01044 M01S00037.t5519 +++| IUC$ EQU 1 DEFINE IUC - INCREASE USAGE COUNTER
01045 M01S00038.t5519 +++| LNB$ EQU 1 DEFINE LNB - LINK NEXT BLOCK
01046 M01S00039.t5519 +++| LTC$ EQU 1 DEFINE FTC - FIND TAPE CATALOG
01047 M01S00040.t5519 +++| MLT$ EQU 1 DEFINE MLT - (A) REGISTER MULTIPLY
01048 M01S00041.t5519 +++| PCE$ EQU 1 DEFINE PCE - PURGE CATALOG ENTRIES
01049 M01S00042.t5519 +++| PLI$ EQU 1 DEFINE PLI - POSITION TO LAST ENTRY
01050 M01S00043.t5519 +++| RCL$ EQU 1 DEFINE RCL - PP RECALL
01051 M01S00044.t5519 +++| RIB$ EQU 1 DEFINE RIB - ROOM IN BLOCK
01052 M01S00045.t5519 +++| RSP$ EQU 1 DEFINE RSP - RELEASE VSNS TO SCRATCH POOL
01053 M01S00046.t5519 +++| SBP$ EQU 1 DEFINE SBP - SET FET BUFFER POINTERS
01054 M01S00047.t5519 +++| SCB$ EQU 1 DEFINE SCB - SEARCH CATALOG BUFFER
01055 M01S00048.t5519 +++| SCC$ EQU 1 DEFINE SCC - SUBSTITUTE CHAR. FOR COLON
01056 M01S00049.t5519 +++| SIB$ EQU 1 DEFINE SIB - SEARCH INDEX BLOCK
01057 M01S00050.t5519 +++| SVB$ EQU 1 DEFINE SVB - SET VSN BUSY
01058 M01S00051.t5519 +++| TBA$ EQU 1 DEFINE TBA - TOGGLE BUFFER ASSIGNMENT
01059 M01S00052.t5519 +++| UDT$ EQU 1 DEFINE UDT - READ/WRITE UDT ENTRY.
01060 M01S00053.t5519 +++| UIS$ EQU 1 DEFINE UIS - USERNAME INDEXED SEARCH
01061 M01S00054.t5519 +++| UOP$ EQU 1 DEFINE UOP - UPDATE OUTPUT POINTER
01062 M01S00055.t5519 +++| UTR$ EQU 1 DEFUNE UTR - UPDATE TRT
01063 M01S00056.t5519 +++| VIS$ EQU 1 DEFINE VIS - VSN INDEXED SEARCH
01064 M01S00057.t5519 +++| VRR$ EQU 1 DEFINE VRR - VERIFY RANDOM REQUEST
01065 M01S00058.t5519 +++| VSP$ EQU 1 DEFINE VSP - VERIFY/SET CATALOG POINTERS
01066 M01S00059.t5519 +++| VUB$ EQU 1 DEFINE VUB - VERIFY USERS BLOCK
01067 M01S00060.t5519 +++| WES$ EQU 1 DEFINE WES - WRITE EOR/EOI SEQUENCE
01068 M01S00061.t5519 +++| COMPTFM SPACE 4,10
01069 M01S00062.t5519 +++|** DEFINE TEMPS FOR *COMPTFM* ASSEMBLY.
01070 M01S00063.t5519 +++|
01071 M01S00064.t5519 +++|
01072 M01S00065.t5519 +++| CT EQU 16 FILE CATAGORY TYPE
01073 M01S00066.t5519 +++| FT EQU 25 FET FIRST POINTER
01074 M01S00067.t5519 +++| IN EQU 27 FET IN POINTER
01075 M01S00068.t5519 +++| LM EQU 33 FET LIMIT POINTER
01076 M01S00069.t5519 +++| MD EQU 17 FILE ACCESS MODE
01077 M01S00070.t5519 +++| OT EQU 31 FET OUTPUT POINTER
01078 M01S00071.t5519 +++| BUFA EQU * ENTRY BUFFER ADDRESS
01079 M01S00072.t5519 +++| BUFB EQU BUFA+12 OVERFLOW BUFFER ADDRESS
01080 M01S00073.t5519 +++| COMMON SPACE 4,10
01081 M01S00074.t5519 +++|** COMMON DECKS FOR *COMPTFM* ASSEMBLY.
01082 M01S00075.t5519 +++|
01083 M01S00076.t5519 +++|
01084 M01S00077.t5519 +++|*CALL COMPC2D
01085 M01S00078.t5519 +++|*CALL COMPWEI
01086 M01S00079.t5519 +++| LIST F,X
01087 M01S00080.t5519 +++|*CALL COMPTFM
01088 M01S00081.t5519 +++| LIST *
01089 M01S00082.t5519 +++| SPACE 4
01090 M01S00083.t5519 +++| QUAL *
01091 M00S00981.tfm +++| TITLE MAIN PROGRAM.
01092 M00S00982.tfm +++| ORG PPFW
01093 M00S00983.tfm +++| SPACE 4
01094 M00S00984.tfm +++|** TFM - MAIN PROGRAM.
01095 M00S00985.tfm +++|*
01096 M00S00986.tfm +++|* THE TFM MAIN LOOP IS THE ONLY ENTRY AND
01097 M00S00987.tfm +++|* EXIT POINT IN TFM. FROM HERE ALL OVERLAYS
01098 M00S00988.tfm +++|* ARE LOADED AND EXECUTED VIA A RETURN JUMP.
01099 M00S00989.tfm +++|*
01100 M00S00990.tfm +++|* ENTRY (TFMC) = 6/ MASS STORAGE ERROR FLAGS,12/ ACCESS FLAGS.
01101 M00S00991.tfm +++|* ACCESS FLAGS = 1/ NA,1/ NC,4/ 0,6/ MD.
01102 M00S00992.tfm +++|* NA = NOT ACCESSING CATALOG.
01103 M00S00993.tfm +++|* NC = NO CONTROL POINT CHANGE.
01104 M00S00994.tfm +++|* MD = FAST ATTACH FILE ACCESS MODE.
01105 M00S00995.tfm +++|* = /PFM/PTLM IF LOCAL FILE MODE.
01106 M00S00996.tfm +++|*
01107 M00S00997.tfm +++|* EXIT CATALOG FILE RETURNED IF FAST ATTACH MODE.
01108 M00S00998.tfm +++|* FST SET COMPLETE IF LOCAL FILE MODE.
01109 M00S00999.tfm +++|* FET OR UDT SET COMPLETE.
01110 M00S01000.tfm +++|*
01111 M00S01001.tfm +++|* USES CM - CM+4.
01112 M00S01002.tfm +++|*
01113 M00S01003.tfm +++|* CALLS PLL, PPR, PRS, TFM SUBFUNCTION
01114 M00S01004.tfm +++|* PROCESSORS.
01115 M00S01005.tfm +++|*
01116 M00S01006.tfm +++|* MACROS LDA, MONITOR, UDTRD, UDTWT.
01117 M00S01007.tfm +++|
01118 M00S01008.tfm +++|
01119 M00S01009.tfm +++|
01120 M00S01010.tfm +++| TFM BSS 0 TFM MAIN ENTRY POINT
01121 M00S01011.tfm +++| RJM /PRESET/PRS PRESET PROGRAM
01122 M00S01012.tfm +++| LDC ** SET OVERLAY NAME
01123 M00S01013.tfm +++| TFMA EQU *-1 (OVERLAY NAME)
01124 M00S01014.tfm +++| ZJN TFM1 IF NO OVERLAY REQUIRED
01125 M00S01015.tfm +++| LMC 2L"PREFIX" LOAD OVERLAY
01126 M00S01016.tfm +++| RJM EXR
01127 M00S01017.tfm +++| TFM1 RJM ** EXECUTE PROCESSOR
01128 M00S01018.tfm +++| TFMB EQU *-1 (PROCESSOR ADDRESS)
01129 M00S01019.tfm +++| LDC ** GET CATALOG ACCESS MODE
01130 M00S01020.tfm +++| TFMC EQU *-1 (MASS STORAGE ERROR FLAG/MODE FLAGS)
01131 M00S01021.tfm +++| PJN TFM2 IF NOT MASS STORAGE ERROR
01132 M00S01022.tfm +++| LDC LDCI+0 CLEAR MASS STORAGE ERROR FLAG
01133 M00S01023.tfm +++| STM TFMC-1
01134 M00S01024.tfm +++| LDD FO
01135 M00S01025.tfm +++| RJM AFA GET ABSOLUTE FST ADDRESS
01136 M00S01026.tfm +++| CRD FS
01137 M00S01027.tfm +++| SBN 1
01138 M00S01028.tfm +++| CRD FN
01139 M00S01029.tfm +++| ERROR MSE *EQXX, DNYY, MASS STORAGE ERROR.*
01140 M00S01030.tfm +++|
01141 M00S01031.tfm +++| TFM2 LPN 77
01142 M00S01032.tfm +++| LMN /PFM/PTLM
01143 M00S01033.tfm +++| NJN TFM3 IF NOT LOCAL FILE MODE
01144 M00S01034.tfm +++| LDD FO
01145 M00S01035.tfm +++| ZJN TFM4 IF NO CATALOG FILE
01146 M00S01036.tfm +++| RJM AFA READ LOCAL FST ENTRY
01147 M00S01037.tfm +++| CRD FS
01148 M00S01038.tfm +++| AOD FS+4 SET FST COMPLETE
01149 M00S01039.tfm +++| LDD FO WRITE FST ENTRY
01150 M00S01040.tfm +++| RJM AFA
01151 M00S01041.tfm +++| CWD FS
01152 M00S01042.tfm +++| UJN TFM4 SET FET COMPLETE
01153 M00S01043.tfm +++|
01154 M00S01044.tfm +++| TFM3 LMN /PFM/PTLM SET ACCESS MODE
01155 M00S01045.tfm +++| STD T2
01156 M00S01046.tfm +++| LDD FO SET FNT ORDINAL
01157 M00S01047.tfm +++| ZJN TFM4 IF CATALOG NOT ATTACHED
01158 M00S01048.tfm +++| STD T1
01159 M00S01049.tfm +++| LDN RFAS SET RETURN FILE
01160 M00S01050.tfm +++| RJM ARF RETURN FAST ATTACH CATALOG
01161 M00S01051.tfm +++| TFM4 LDD FC
01162 M00S01052.tfm +++| LMN MAGF
01163 M00S01053.tfm +++| ZJN TFM6 IF CALLED BY *MAGNET*
01164 M00S01054.tfm +++| LDA IR+3,REL SET FET COMPLETE
01165 M00S01055.tfm +++| CRD CM
01166 M00S01056.tfm +++| LDD CM+4
01167 M00S01057.tfm +++| SCN 1
01168 M00S01058.tfm +++| LMN 1
01169 M00S01059.tfm +++| STD CM+4
01170 M00S01060.tfm +++| LDA IR+3,REL
01171 M00S01061.tfm +++| CWD CM
01172 M00S01062.tfm +++| TFM5 MONITOR DPPM DROP PP
01173 M00S01063.tfm +++| LJM PPR EXIT TO PP RESIDENT
01174 M00S01064.tfm +++|
01175 M00S01065.tfm +++| TFM6 EXOVL CTC COMPLETE *TFM* CALL BY *MAGNET*
01176 M00S01066.tfm +++|* UJN DPP EXIT PATH FROM *CTC*
01177 M00S01067.tfm +++| TITLE TFM RESIDENT SUBROUTINES.
01178 M00S01068.tfm +++| AFA SPACE 4,10
01179 M00S01069.tfm +++|** AFA - GET ABSOLUTE FST ADDRESS.
01180 M00S01070.tfm +++|*
01181 M00S01071.tfm +++|* ENTRY (A) = FNT ORDINAL IF SYSTEM FILE.
01182 M00S01072.tfm +++|*
01183 M00S01073.tfm +++|* EXIT (A) = ABSOLUTE FNT ADDRESS.
01184 M00S01074.tfm +++|*
01185 M00S01075.tfm +++|* MACROS CFI, NFA.
01186 M00S01076.tfm +++|
01187 M00S01077.tfm +++|
01188 M00S01078.tfm +++| AFA SUBR ENTRY/EXIT
01189 M00S01079.tfm +++| AFAA BSS 0
01190 M00S01080.tfm +++|* CFI FNT GET FST ADDRESS FOR SYSTEM FILE
01191 M00S01081.tfm +++|*AFAB ADC **
01192 M00S01082.tfm +++|* ADN FSTG
01193 M00S01083.tfm +++| NFA FO,R GET FST ADDRESS FOR LOCAL FILE
01194 M00S01084.tfm +++| ADN FSTL
01195 M00S01085.tfm +++| AFAAL EQU *-AFAA ROUTINE LENGTH
01196 M00S01086.tfm +++| UJN AFAX RETURN
01197 M00S01087.tfm +++| ARF SPACE 4,10
01198 M00S01088.tfm +++|** ARF - ATTACH/RETURN FAST ATTACH FILE.
01199 M00S01089.tfm +++|*
01200 M00S01090.tfm +++|* ENTRY (A) = AFAS IF ATTACH FILE.
01201 M00S01091.tfm +++|* = RFAS IF RETURN FILE.
01202 M00S01092.tfm +++|* (T1) = SYSTEM FNT ORDINAL.
01203 M00S01093.tfm +++|* (T2) = ACCESS MODE.
01204 M00S01094.tfm +++|*
01205 M00S01095.tfm +++|* EXIT (A) = 0.
01206 M00S01096.tfm +++|* (T1) = FNT ORDINAL.
01207 M00S01097.tfm +++|* (T2) = ACCESS MODE.
01208 M00S01098.tfm +++|*
01209 M00S01099.tfm +++|* USES T1, T2, T3, CM - CM+4.
01210 M00S01100.tfm +++|*
01211 M00S01101.tfm +++|* CALLS AFA.
01212 M00S01102.tfm +++|*
01213 M00S01103.tfm +++|* MACROS DELAY, MONITOR, PAUSE.
01214 M00S01104.tfm +++|
01215 M00S01105.tfm +++|
01216 M00S01106.tfm +++| ARF SUBR ENTRY/EXIT
01217 M00S01107.tfm +++| STD T3 SAVE SUBFUNCTION
01218 M00S01108.tfm +++| ARF1 LDD T1 SET FNT ORDINAL
01219 M00S01109.tfm +++| STD CM+4
01220 M00S01110.tfm +++| RJM AFA READ FST ENTRY
01221 M00S01111.tfm +++| CRD FS
01222 M00S01112.tfm +++| SBN FSTG-FNTG READ FNT ENTRY
01223 M00S01113.tfm +++| CRD FN
01224 M00S01114.tfm +++| LDD FN+3 CHECK FAT/MACHINE INDEX
01225 M00S01115.tfm +++| LPN 77
01226 M00S01116.tfm +++| ZJN ARF2 IF NOT GLOBAL FAST ATTACH FILE
01227 M00S01117.tfm +++| LDD FS SET GLOBAL FAST ATTACH EST ORDINAL
01228 M00S01118.tfm +++| ARF2 STD CM+1 SET GLOBAL FILE FLAG
01229 M00S01119.tfm +++| LDD T2 SET MODE
01230 M00S01120.tfm +++| STD CM+2
01231 M00S01121.tfm +++| LDD T3
01232 M00S01122.tfm +++| STD CM+3
01233 M00S01123.tfm +++| MONITOR AFAM ATTACH OR RELEASE FILE
01234 M00S01124.tfm +++| LDD CM+1
01235 M00S01125.tfm +++| ZJN ARFX IF FUNCTION COMPLETE
Line S01126 Modification History
M01 (Removed by) tfm2
Seq # *Modification Id* Act
----------------------------+
01236 M01S01126.tfm2 ---| DELAY
Line S00001 Modification History
M01 (Added by) tfm2
Seq # *Modification Id* Act
----------------------------+
01237 M01S00001.tfm2 +++| LDC 1400 PRESET DELAY
01238 M01S00002.tfm2 +++| STM T0
01239 M01S00003.tfm2 +++| ARF3 DELAY
01240 M00S01127.tfm +++|* LDN 0 RESET I/O PAUSE COUNTER
01241 M00S01128.tfm +++| STM PFRA
01242 M00S01129.tfm +++| RJM PFR PAUSE FOR RELOCATION
Line S00004 Modification History
M01 (Added by) tfm2
Seq # *Modification Id* Act
----------------------------+
01243 M01S00004.tfm2 +++| SOD T0
01244 M01S00005.tfm2 +++| PJN ARF3 IF MORE DELAY NEEDED
01245 M00S01130.tfm +++| UJP ARF1 REISSUE FUNCTION
01246 M00S01131.tfm +++| CCS SPACE 4,10
01247 M00S01132.tfm +++|** CCS - COMPARE CHARACTER STRING.
01248 M00S01133.tfm +++|*
01249 M00S01134.tfm +++|* ENTRY (A) = COMPARE LENGTH IN CHARACTERS.
01250 M00S01135.tfm +++|* (T1) = SOURCE ADDRESS FOR COMPARE.
01251 M00S01136.tfm +++|* (T2) = OBJECT ADDRESS FOR COMPARE.
01252 M00S01137.tfm +++|*
01253 M00S01138.tfm +++|* EXIT (A) = 0 IF NAME(T1) = NAME(T2).
01254 M00S01139.tfm +++|* (A) .LT. 0 IF NAME(T1) .LT. NAME(T2).
01255 M00S01140.tfm +++|* (A) .GT. 0 IF NAME(T1) .GT. NAME(T2).
01256 M00S01141.tfm +++|*
01257 M00S01142.tfm +++|* USES T0 - T2.
01258 M00S01143.tfm +++|
01259 M00S01144.tfm +++|
01260 M00S01145.tfm +++| CCS2 LDI T1 COMPARE BYTES
01261 M00S01146.tfm +++| SBI T2
01262 M00S01147.tfm +++| NJN CCSX IF BYTE(T1) .NE. BYTE(T2)
01263 M00S01148.tfm +++| AOD T1 INCREMENT TO NEXT BYTE
01264 M00S01149.tfm +++| AOD T2
01265 M00S01150.tfm +++| SOD T0 DECREMENT CHARACTER COUNT
01266 M00S01151.tfm +++| SOD T0
01267 M00S01152.tfm +++| NJN CCS1 IF NAME(T1) .NE. NAME(T2)
01268 M00S01153.tfm +++|
01269 M00S01154.tfm +++| CCS SUBR ENTRY/EXIT
01270 M00S01155.tfm +++| STD T0 SAVE CHARACTER COUNT
01271 M00S01156.tfm +++| CCS1 SBN 1 CHECK FOR ODD COUNT
01272 M00S01157.tfm +++| NJN CCS2 IF NOT ODD CHARACTER COUNT
01273 M00S01158.tfm +++| LDI T1 CHECK TRAILING CHARACTER
01274 M00S01159.tfm +++| SCN 77
01275 M00S01160.tfm +++| LMN 77
01276 M00S01161.tfm +++| SBI T2
01277 M00S01162.tfm +++| SCN 77
01278 M00S01163.tfm +++| UJN CCSX RETURN
01279 M00S01164.tfm +++| CME SPACE 4,10
01280 M00S01165.tfm +++|** CME - CHECK FOR MASS STORAGE ERROR.
01281 M00S01166.tfm +++|*
01282 M00S01167.tfm +++|* ENTRY (A) = MASS STORAGE ERROR, IF PRESENT.
01283 M00S01168.tfm +++|*
01284 M00S01169.tfm +++|* EXIT MASS STORAGE ERROR FLAG HAS BEEN SET IF PRESENT.
01285 M00S01170.tfm +++|*
01286 M00S01171.tfm +++|* CALLS PFR.
01287 M00S01172.tfm +++|*
01288 M00S01173.tfm +++|* MACROS ENDMS.
01289 M00S01174.tfm +++|
01290 M00S01175.tfm +++|
01291 M00S01176.tfm +++| CME SUBR ENTRY/EXIT
01292 M00S01177.tfm +++| PJN CME1 IF NO MASS STORAGE ERROR
01293 M00S01178.tfm +++| LDC LDCI+40 SET MASS STORAGE ERROR FLAG
01294 M00S01179.tfm +++| STM TFMC-1
01295 M00S01180.tfm +++| CME1 ENDMS RELEASE CHANNEL RESERVE
01296 M00S01181.tfm +++| RJM PFR PAUSE FOR RELOCATION
01297 M00S01182.tfm +++| UJN CMEX RETURN
01298 M00S01183.tfm +++| CPM SPACE 4,10
01299 M00S01184.tfm +++|** CPM - CLEAR CONSECUTIVE PP MEMORY.
01300 M00S01185.tfm +++|*
01301 M00S01186.tfm +++|* ENTRY (A) = HALF BYTE COUNT.
01302 M00S01187.tfm +++|* (T1) = FWA OF AREA TO CLEAR.
01303 M00S01188.tfm +++|*
01304 M00S01189.tfm +++|* EXIT (A) = 0.
01305 M00S01190.tfm +++|* AREA FROM (A) TO ((A)+(T1)) SET TO ZERO.
01306 M00S01191.tfm +++|*
01307 M00S01192.tfm +++|* USES T0, T1.
01308 M00S01193.tfm +++|
01309 M00S01194.tfm +++|
01310 M00S01195.tfm +++| CPM2 LDN 0 CLEAR ONE WORD
01311 M00S01196.tfm +++| STI T1
01312 M00S01197.tfm +++| AOD T1
01313 M00S01198.tfm +++| SOD T0
01314 M00S01199.tfm +++| CPM3 SOD T0 CHECK FOR TERMINATION
01315 M00S01200.tfm +++| NJN CPM1 IF MORE TO CLEAR
01316 M00S01201.tfm +++|
01317 M00S01202.tfm +++| CPM SUBR ENTRY/EXIT
01318 M00S01203.tfm +++| STD T0 SET WORD COUNT
01319 M00S01204.tfm +++| CPM1 SBN 1 CHECK FOR ODD COUNT
01320 M00S01205.tfm +++| NJN CPM2 IF NOT LAST CHARACTER
01321 M00S01206.tfm +++| LDI T1 CLEAR UPPER 6 BITS
01322 M00S01207.tfm +++| LPN 77
01323 M00S01208.tfm +++| STI T1
01324 M00S01209.tfm +++| UJN CPM3 DECREMENT COUNT AND RETURN
01325 M00S01210.tfm +++| CTS SPACE 4,10
01326 M00S01211.tfm +++|** CTS - CONVERT TO ABSOLUTE TRACK/SECTOR.
01327 M00S01212.tfm +++|*
01328 M00S01213.tfm +++|* ENTRY (RI - RI+1) = CURRENT RANDOM ADDRESS.
01329 M00S01214.tfm +++|*
01330 M00S01215.tfm +++|* EXIT (T5) = EQUIPMENT.
01331 M00S01216.tfm +++|* (T6) = TRACK (CALCULATED).
01332 M00S01217.tfm +++|* (T7) = SECTOR (CALCULATED).
01333 M00S01218.tfm +++|* (RI - RI+1) = RANDOM ADDRESS (UNCHANGED).
01334 M00S01219.tfm +++|*
01335 M00S01220.tfm +++|* USES T5 - T5+4.
01336 M00S01221.tfm +++|*
01337 M00S01222.tfm +++|* CALLS CRA.
01338 M00S01223.tfm +++|*
01339 M00S01224.tfm +++|* MACROS ENDMS, ERROR, LDA, SETMS.
01340 M00S01225.tfm +++|
01341 M00S01226.tfm +++|
01342 M00S01227.tfm +++| CTS2 LDA CTSA,ABS RESTORE RANDOM ADDRESS
01343 M00S01228.tfm +++| STD RI+1
01344 M00S01229.tfm +++| SHN -14
01345 M00S01230.tfm +++| STD RI
Line S00001 Modification History
M01 (Added by) t5472
M02 (Removed by) t5679
Seq # *Modification Id* Act
----------------------------+
01346 M02S00001.t5679 ---| SETMS IO RESERVE CHANNEL
01347 M00S01231.tfm +++|
01348 M00S01232.tfm +++| CTS SUBR ENTRY/EXIT
01349 M00S01233.tfm +++| LDD FO
01350 M00S01234.tfm +++| RJM AFA GET ABSOLUTE FST ADDRESS
01351 M00S01235.tfm +++| CRD T5
01352 M00S01236.tfm +++| LDA RI,ABS SAVE RANDOM ADDRESS
01353 M00S01237.tfm +++| ZJN CTS1 IF SYSTEM SECTOR
01354 M00S01238.tfm +++| STM CTSA+1
01355 M00S01239.tfm +++| SHN -14
01356 M00S01240.tfm +++| STM CTSA
Line S00001 Modification History
M01 (Added by) t5679
Seq # *Modification Id* Act
----------------------------+
01357 M01S00001.t5679 +++| SETMS IO,RW RESERVE CHANNEL
Line S01241 Modification History
M01 (Removed by) t5472
Seq # *Modification Id* Act
----------------------------+
01358 M01S01241.t5472 ---| SETMS RESERVE CHANNEL
01359 M00S01242.tfm +++| RJM CRA CONVERT RANDOM ADDRESS
01360 M00S01243.tfm +++| PJP CTS2 IF NO RANDOM ADDRESS ERROR
Line S01244 Modification History
M01 (Removed by) t5472
Seq # *Modification Id* Act
----------------------------+
01361 M01S01244.t5472 ---| ENDMS
01362 M00S01245.tfm +++| CTS1 BSS 0
01363 M00S01246.tfm +++| ERROR RAE *RANDOM ADDRESS ERROR.*
01364 M00S01247.tfm +++|
01365 M00S01248.tfm +++| CTSA CON 0,0 RANDOM ADDRESS CELLS
01366 M00S01249.tfm +++| DPP SPACE 4,10
01367 M00S01250.tfm +++|** DPP - DROP PP.
01368 M00S01251.tfm +++|*
01369 M00S01252.tfm +++|* DEFINES THE TFM EXIT LOCATION FOR RELINQUISHING
01370 M00S01253.tfm +++|* THE PPU WITHOUT CHANGING THE COMPLETION STATUS
01371 M00S01254.tfm +++|* FOR THE REQUEST.
01372 M00S01255.tfm +++|
01373 M00S01256.tfm +++|
01374 M00S01257.tfm +++| DPP EQU TFM5 DEFINE DROP PP LOCATION
01375 M00S01258.tfm +++| EDT SPACE 4,10
01376 M00S01259.tfm +++|** EDT - ENTER PACKED DATE/TIME.
01377 M00S01260.tfm +++|*
01378 M00S01261.tfm +++|* ENTRY (A) = ADDRESS OF WORD TO RECEIVE DATE/TIME.
01379 M00S01262.tfm +++|*
01380 M00S01263.tfm +++|* EXIT PACKED DATE/TIME ENTERED IN 3 CONSECUTIVE
01381 M00S01264.tfm +++|* WORDS STARTING AT (A).
01382 M00S01265.tfm +++|*
01383 M00S01266.tfm +++|* USES CM - CM+4, T2.
01384 M00S01267.tfm +++|*
01385 M00S01268.tfm +++|* MACROS MMOVE.
01386 M00S01269.tfm +++|
01387 M00S01270.tfm +++|
01388 M00S01271.tfm +++| EDT SUBR ENTRY/EXIT
01389 M00S01272.tfm +++| STD T2
01390 M00S01273.tfm +++| LDN PDTL
01391 M00S01274.tfm +++| CRD CM
01392 M00S01275.tfm +++| MMOVE CM+2,,,,6
01393 M00S01276.tfm +++| UJN EDTX RETURN
01394 M00S01277.tfm +++| EML SPACE 4,10
01395 M00S01278.tfm +++|** EML - EXIT TO MAIN LOOP.
01396 M00S01279.tfm +++|*
01397 M00S01280.tfm +++|* DEFINES THE TFM EXIT PATH FOR SETTING THE
01398 M00S01281.tfm +++|* COMPLETION STATUS AND DROPPING THE PPU FOR
Line S01282 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01399 M01S01282.274l797 ---|* N SPECIAL CASES AND ABMORMAL TERMINATION.
Line S00010 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01400 M01S00010.274l797 +++|* SPECIAL CASES AND ABNORMAL TERMINATION.
01401 M00S01283.tfm +++|
01402 M00S01284.tfm +++|
01403 M00S01285.tfm +++| EML EQU TFM1+2 DEFINE EXIT TO MAIN LOOP LOCATION
01404 M00S01286.tfm +++| ERR SPACE 4,10
01405 M00S01287.tfm +++|** ERR - CALL ERROR PROCESSING OVERLAY.
01406 M00S01288.tfm +++|*
01407 M00S01289.tfm +++|* *ERR* IS CALLED EITHER DIRECTLY OR BY THE
01408 M00S01290.tfm +++|* *ERROR* MACRO TO ENTER THE ERROR PROCESSING
01409 M00S01291.tfm +++|* OVERLAY. IF TRP$ IS DEFINED, CODE IS ASSEMBLED
01410 M00S01292.tfm +++|* TO ALLOW THE PP TO BE STEPPED ON ANY ERROR
01411 M00S01293.tfm +++|* CONDITION BEFORE THE OVERLAY IS CALLED. THIS
01412 M00S01294.tfm +++|* PROVIDES A WAY TO DUMP THE PP ON A ERROR AND
01413 M00S01295.tfm +++|* INSURE THAT IT HAS NOT BEEN DESTROYED BY THE
01414 M00S01296.tfm +++|* OVERLAY LOAD.
01415 M00S01297.tfm +++|*
01416 M00S01298.tfm +++|* THE FOLLOWING FORMAT WILL STEP THE PP ON ERRORS;
01417 M00S01299.tfm +++|*
01418 M00S01300.tfm +++|* STEP,*RSJM*,3,CODE.
01419 M00S01301.tfm +++|*
01420 M00S01302.tfm +++|* RSJM = THE NUMERIC VALUE FOR THE *RSJM*
01421 M00S01303.tfm +++|* MONITOR FUNCTION.
01422 M00S01304.tfm +++|* CODE = THE TFM ERROR CODE TO BE TRAPPED.
01423 M00S01305.tfm +++|*
01424 M00S01306.tfm +++|* ENTRY (A) = ERROR CODE.
01425 M00S01307.tfm +++|*
01426 M00S01308.tfm +++|* EXIT TO ERROR PROCESSING OVERLAY.
01427 M00S01309.tfm +++|*
01428 M00S01310.tfm +++|* USES EC, CM - CM+4
01429 M00S01311.tfm +++|*
01430 M00S01312.tfm +++|* CALLS OVERLAY 5TA (NO RETURN)
01431 M00S01313.tfm +++|*
01432 M00S01314.tfm +++|* MACROS MONITOR.
01433 M00S01315.tfm +++|
01434 M00S01316.tfm +++|
Line S01317 Modification History
M01 (Removed by) t5472
Seq # *Modification Id* Act
----------------------------+
01435 M01S01317.t5472 ---| ERR SUBR CALL ERROR OVERLAY
Line S00002 Modification History
M01 (Added by) t5472
Seq # *Modification Id* Act
----------------------------+
01436 M01S00002.t5472 +++| ERR SUBR CALL ERROR OVERLAY
01437 M00S01318.tfm +++| STD EC SAVE ERROR CODE
01438 M00S01319.tfm +++| IF DEF,TRP$
01439 M00S01320.tfm +++| LDN ZERL
01440 M00S01321.tfm +++| CRD CM
01441 M00S01322.tfm +++| LDD EC
01442 M00S01323.tfm +++| STD CM+3
01443 M00S01324.tfm +++| LDM ERR
01444 M00S01325.tfm +++| STD CM+4
01445 M00S01326.tfm +++| MONITOR RSJM
01446 M00S01327.tfm +++| ENDIF
01447 M00S01328.tfm +++| EXOVL TME TAPE MANAGER ERROR PROCESSING
01448 M00S01329.tfm +++| GIB SPACE 4,10
01449 M00S01330.tfm +++|** GIB - GET INITIAL BLOCK.
01450 M00S01331.tfm +++|*
01451 M00S01332.tfm +++|* ENTRY (BA) = BUFFER ADDRESS.
01452 M00S01333.tfm +++|* (RI - RI+1) = RANDOM ADDRESS.
01453 M00S01334.tfm +++|*
01454 M00S01335.tfm +++|* EXIT (A) = CURRENT RANDOM ADDRESS.
01455 M00S01336.tfm +++|* (BA) = UNCHANGED.
01456 M00S01337.tfm +++|* (BP) = (BA) + 2.
01457 M00S01338.tfm +++|* (CPRI - CPRI+1) = CURRENT POSITION.
01458 M00S01339.tfm +++|*
01459 M00S01340.tfm +++|* USES BP, CPRI - CPRI+1.
01460 M00S01341.tfm +++|*
01461 M00S01342.tfm +++|* CALLS RRP.
01462 M00S01343.tfm +++|
01463 M00S01344.tfm +++|
01464 M00S01345.tfm +++| GIB SUBR ENTRY/EXIT
01465 M00S01346.tfm +++| RJM RRP READ RANDOM PRU
01466 M00S01347.tfm +++| LDD BA
01467 M00S01348.tfm +++| ADN 2
01468 M00S01349.tfm +++| STD BP
01469 M00S01350.tfm +++| LDD RI SET CURRENT FILE POSITION
01470 M00S01351.tfm +++| STM CPRI
01471 M00S01352.tfm +++| SHN 14
01472 M00S01353.tfm +++| LMD RI+1
01473 M00S01354.tfm +++| STM CPRI+1
01474 M00S01355.tfm +++| UJN GIBX RETURN
01475 M00S01356.tfm +++| MBP SPACE 4,13
01476 M00S01357.tfm +++|** MBP - MOVE BUFFER POINTER.
01477 M00S01358.tfm +++|*
01478 M00S01359.tfm +++|* *MBP* ADVANCES THE BUFFER POINTER (BP) THE NUMBER OF
01479 M00S01360.tfm +++|* CM WORDS REQUESTED.
01480 M00S01361.tfm +++|*
01481 M00S01362.tfm +++|* ENTRY (A) = NUMBER OF CM WORDS TO MOVE.
01482 M00S01363.tfm +++|* (BA) = BUFFER ADDRESS.
01483 M00S01364.tfm +++|* (BP) = ADDRESS OF CURRENT WORD.
01484 M00S01365.tfm +++|*
01485 M00S01366.tfm +++|* EXIT (A) = ADDRESS OF REQUESTED WORD.
01486 M00S01367.tfm +++|* (A) = 777777 IF END OF FILE ENCOUNTERED.
01487 M00S01368.tfm +++|* (BP) = ADDRESS OF REQUESTED WORD.
01488 M00S01369.tfm +++|*
01489 M00S01370.tfm +++|* USES T1, BA, BP.
01490 M00S01371.tfm +++|*
01491 M00S01372.tfm +++|* CALLS RRP.
01492 M00S01373.tfm +++|*
01493 M00S01374.tfm +++|* MACROS ERROR.
01494 M00S01375.tfm +++|
01495 M00S01376.tfm +++|
01496 M00S01377.tfm +++| MBP1 ERROR EBP *ERRONEOUS BUFFER POINTER*
01497 M00S01378.tfm +++|
01498 M00S01379.tfm +++| MBP2 LDD T1 INCREMENT WORD COUNT
01499 M00S01380.tfm +++| RAD BP
01500 M00S01381.tfm +++| LCN 0 SET END OF BUFFER
01501 M00S01382.tfm +++|
01502 M00S01383.tfm +++| MBP SUBR ENTRY/EXIT
01503 M00S01384.tfm +++| STD T1
01504 M00S01385.tfm +++| SHN 2
01505 M00S01386.tfm +++| RAD T1
01506 M00S01387.tfm +++| LDD BP CHECK VALIDITY
01507 M00S01388.tfm +++| SBD BA
01508 M00S01389.tfm +++| MJN MBP1 IF OUT OF RANGE
01509 M00S01390.tfm +++| ADC -502
01510 M00S01391.tfm +++| PJN MBP1 IF OUT OF RANGE
01511 M00S01392.tfm +++| ADD T1
01512 M00S01393.tfm +++| PJN MBP2 IF MOVE OUTSIDE BUFFER
01513 M00S01394.tfm +++| LDD T1
01514 M00S01395.tfm +++| RAD BP SET BUFFER POINTER
01515 M00S01396.tfm +++| UJN MBPX RETURN
01516 M00S01397.tfm +++| MPM SPACE 4,10
01517 M00S01398.tfm +++|** MPM - MOVE CONSECUTIVE PP MEMORY.
01518 M00S01399.tfm +++|*
01519 M00S01400.tfm +++|* MOVE MUST BEGIN ON A WORD BOUNDARY.
01520 M00S01401.tfm +++|*
01521 M00S01402.tfm +++|* ENTRY (A) = MOVE COUNT IN CHARACTERS.
01522 M00S01403.tfm +++|* (T1) = FWA OF AREA TO MOVE.
01523 M00S01404.tfm +++|* (T2) = FWA OF RECEIVING AREA.
01524 M00S01405.tfm +++|*
01525 M00S01406.tfm +++|* EXIT AREA FROM (T1) TO (T2) MOVED.
01526 M00S01407.tfm +++|*
01527 M00S01408.tfm +++|* USES T0 - T2.
01528 M00S01409.tfm +++|
01529 M00S01410.tfm +++|
01530 M00S01411.tfm +++| MPM2 LDI T2 MOVE LAST CHARACTER
01531 M00S01412.tfm +++| LPN 77
01532 M00S01413.tfm +++| STI T2
01533 M00S01414.tfm +++| LDI T1
01534 M00S01415.tfm +++| SCN 77
01535 M00S01416.tfm +++| RAI T2
01536 M00S01417.tfm +++|
01537 M00S01418.tfm +++| MPM SUBR ENTRY/EXIT
01538 M00S01419.tfm +++| MPM1 BSS 0
01539 M00S01420.tfm +++| ZJN MPMX IF NO MOVE COUNT
01540 M00S01421.tfm +++| STD T0
01541 M00S01422.tfm +++| SBN 1 CHECK FOR ODD COUNT
01542 M00S01423.tfm +++| ZJN MPM2 IF LAST MOVE HALF BYTE
01543 M00S01424.tfm +++| LDI T1 MOVE BYTE
01544 M00S01425.tfm +++| STI T2
01545 M00S01426.tfm +++| AOD T1 INCREMENT TO NEXT BYTE
01546 M00S01427.tfm +++| AOD T2
01547 M00S01428.tfm +++| SOD T0 DECREMENT CHARACTER COUNT
01548 M00S01429.tfm +++| SOD T0
01549 M00S01430.tfm +++| UJN MPM1 CHECK IF MOVE COMPLETE
01550 M00S01431.tfm +++| PFR SPACE 4,10
01551 M00S01432.tfm +++|** PFR - PAUSE FOR RELOCATION.
01552 M00S01433.tfm +++|*
01553 M00S01434.tfm +++|* *PFR* CHECKS THE I/O PAUSE LIMIT TO DETERMINE
01554 M00S01435.tfm +++|* IF A PAUSE IS NECESSARY. IF A PAUSE IS REQUIRED
01555 M00S01436.tfm +++|* THE PAUSE FLAG IS SET, AND THE COUNTER IS RESET
01556 M00S01437.tfm +++|* TO *IOPL*.
01557 M00S01438.tfm +++|*
01558 M00S01439.tfm +++|* MACROS PAUSE.
01559 M00S01440.tfm +++|*
01560 M00S01441.tfm +++|
01561 M00S01442.tfm +++|
01562 M00S01443.tfm +++| PFR SUBR ENTRY/EXIT
01563 M00S01444.tfm +++| SOM PFRA DECREMENT PAUSE COUNTER
01564 M00S01445.tfm +++| PJN PFRX IF PAUSE NOT NECESSARY
01565 M00S01446.tfm +++| PAUSE -STSW
01566 M00S01447.tfm +++| LDK IOPL RESET PAUSE COUNTER
01567 M00S01448.tfm +++| STM PFRA
01568 M00S01449.tfm +++| UJN PFRX RETURN
01569 M00S01450.tfm +++|
01570 M00S01451.tfm +++| PFRA CON IOPL PAUSE COUNTER
01571 M00S01452.tfm +++| RRP SPACE 4,10
01572 M00S01453.tfm +++|** RRP - READ RANDOM PRU.
01573 M00S01454.tfm +++|*
01574 M00S01455.tfm +++|* ENTRY (BA) = BUFFER ADDRESS.
01575 M00S01456.tfm +++|* (RI - RI+1) = RANDOM INDEX.
01576 M00S01457.tfm +++|*
01577 M00S01458.tfm +++|* EXIT (BA) = UNCHANGED.
01578 M00S01459.tfm +++|* (BP) = UNCHANGED.
01579 M00S01460.tfm +++|* BUFFER FILLED.
01580 M00S01461.tfm +++|*
01581 M00S01462.tfm +++|* CALLS CME, CTS, RDS.
01582 M00S01463.tfm +++|
01583 M00S01464.tfm +++|
01584 M00S01465.tfm +++| RRP SUBR ENTRY/EXIT
01585 M00S01466.tfm +++| RJM CTS CONVERT TO ABSOLUTE TRACK/SECTOR
01586 M00S01467.tfm +++| LDD BA SET BUFFER
01587 M00S01468.tfm +++| RJM RDS READ SECTOR
01588 M00S01469.tfm +++| RJM CME CHECK FOR MASS STORAGE ERROR
01589 M00S01470.tfm +++| UJN RRPX RETURN
01590 M00S01471.tfm +++| WRP SPACE 4,10
01591 M00S01472.tfm +++|** WRP - WRITE RANDOM PRU.
01592 M00S01473.tfm +++|*
01593 M00S01474.tfm +++|* ENTRY (BA) = BUFFER ADDRESS.
01594 M00S01475.tfm +++|* (RI - RI+1) = RANDOM ADDRESS.
01595 M00S01476.tfm +++|*
01596 M00S01477.tfm +++|* EXIT WRITE OR REWRITE OF PRU.
01597 M00S01478.tfm +++|*
01598 M00S01479.tfm +++|* CALLS CME, CTS, EDT, WDS.
01599 M00S01480.tfm +++|
01600 M00S01481.tfm +++|
01601 M00S01482.tfm +++| WRP SUBR ENTRY/EXIT
01602 M00S01483.tfm +++| RJM CTS CONVERT TO ABSOLUTE TRACK/SECTOR
01603 M00S01484.tfm +++| LIA CWDT,BA
01604 M00S01485.tfm +++| RJM EDT ENTER PACKED DATE/TIME
01605 M00S01486.tfm +++| LDD BA SET BUFFER
01606 M00S01487.tfm +++| RJM WDS WRITE SECTOR
01607 M00S01488.tfm +++| RJM CME CHECK FOR MASS STORAGE ERROR
01608 M00S01489.tfm +++| UJP WRPX RETURN
01609 M00S01490.tfm +++| SPACE 4,10
01610 M00S01491.tfm +++|*** RESIDENT COMMON DECKS.
01611 M00S01492.tfm +++|
01612 M00S01493.tfm +++|
01613 M00S01494.tfm +++|*CALL COMPCRA
01614 M00S01495.tfm +++|*CALL COMPSEI
01615 M00S01496.tfm +++|*CALL COMPSRA
01616 M00S01497.tfm +++| TITLE RESIDENT WORKING STORAGE.
01617 M00S01498.tfm +++| SPACE 4,10
01618 M00S01499.tfm +++|*** WORKING STORAGE.
01619 M00S01500.tfm +++|
01620 M00S01501.tfm +++|
01621 M00S01502.tfm +++| CPRI BSSZ 2 CURRENT POSITION RANDOM INDEX
01622 M00S01503.tfm +++| CPEB BSSZ 2 CURRENT POSITION EMPTY BLOCK
01623 M00S01504.tfm +++| CPSB BSSZ 5 CURRENT POSITION SYSTEM BUFFER
01624 M00S01505.tfm +++| CPPI BSSZ 5 CURRENT POSITION PRIMARY INDEX
01625 M00S01506.tfm +++| CPSI BSSZ 5 CURRENT POSITION SECONDARY INDEX
01626 M00S01507.tfm +++| CPCB BSSZ 5 CURRENT POSITION CATALOG BUFFER
01627 M00S01508.tfm +++| CPAB BSSZ 5 CURRENT POSITION ADMIT BUFFER
01628 M00S01509.tfm +++| CPHP BSSZ 5 CURRENT POSITION HOLE POINTER
01629 M00S01510.tfm +++| UTMS BSSZ 5 *UTMS* FROM *MAGNET*
01630 M00S01511.tfm +++| UDTA CON 0 CURRENT UDT ADDRESS BEING PROCESSED
01631 M00S01512.tfm +++| ISBA CON BUF0,BUF1 INDEXED SEARCH BUFFER ADDRESS
01632 M00S01513.tfm +++| MFID EQU TFM MAINFRAME I.D.
01633 M00S01514.tfm +++| CDMX EQU TFM+1 CATALOG DEVICE MACHINE INDEX-1
01634 M00S01515.tfm +++| DFFO CON 0 RSXDID FILE FNT ORDINAL IF ATTACHED
01635 M00S01516.tfm +++| ERRZR RDFO ORDINAL MUST BE NON-ZERO
Line S00011 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01636 M01S00011.274l797 +++| SCRP CON 0 ADDRESS IN *TMST* OF CORRECT SCRATCH POOL
01637 M00S01517.tfm +++| TFMF SPACE 4,10
01638 M00S01518.tfm +++|*** TFMF - TFM FLAGS.
01639 M00S01519.tfm +++|*
01640 M00S01520.tfm +++|* FLAGS -
01641 M00S01521.tfm +++|* 0010 = NOTIFY OPERATOR ON ANY ERROR.
01642 M00S01522.tfm +++|
01643 M00S01523.tfm +++| TFMF BSS 0
01644 M00S01524.tfm +++| VFD 8/0 RESERVED FOR FUTURE USE
01645 M00S01525.tfm +++| VFD 1/0 NOTIFY OPERATOR ON ERROR
01646 M00S01526.tfm +++| VFD 3/0 RESERVED FOR FUTURE USE
01647 M00S01527.tfm +++|
01648 M00S01528.tfm +++| SPACE 4,10
01649 M00S01529.tfm +++|*** PARAMETER BUFFER.
01650 M00S01530.tfm +++|*
01651 M00S01531.tfm +++|
01652 M00S01532.tfm +++|
01653 M00S01533.tfm +++| PFAM BSSZ 5 FAMILY NAME/INDEX
01654 M00S01534.tfm +++| PBUN BSSZ 5 USERNAME FOR CATALOG SEARCH
01655 M00S01535.tfm +++| PBUF BSSZ TFPL*5 PARAMETER BUFFER
01656 M00S01536.tfm +++| SPACE 4,10
01657 M00S01537.tfm +++|*** FET PARAMETER BUFFER (PP BYTE POSITIONS).
01658 M00S01538.tfm +++|
01659 M00S01539.tfm +++|
01660 M00S01540.tfm +++| PESN EQU FBES*5+PBUF EXTERNAL VOLUME SERIAL NUMBER (36 BITS)
01661 M00S01541.tfm +++| PFLG EQU FBES*5+3+PBUF MISC FLAGS
01662 M00S01542.tfm +++| PFTD EQU FBTD*5+PBUF TAPE DESCRIPTORS (60 BITS)
01663 M00S01543.tfm +++| PVSN EQU FBVS*5+PBUF INTERNAL VOLUME SERIAL NUMBER (36 BITS)
01664 M00S01544.tfm +++| PBFA EQU PVSN+3 FILE ACCESSIBILITY (6 BITS)
01665 M00S01545.tfm +++| PBSN EQU PVSN+3 FILE SECTION NUMBER (18 BITS)
01666 M00S01546.tfm +++| POFI EQU FBFI*5+PBUF FILE IDENTIFIER (OLD - 102 BITS)
01667 M00S01547.tfm +++| PBQN EQU POFI+10B FILE SEQUENCE NUMBER (18 BITS)
01668 M00S01548.tfm +++| PBSI EQU FBSI*5+PBUF SET IDENTIFIER (36 BITS)
01669 M00S01549.tfm +++| PBVN EQU PBSI+3 VERSION NUMBER (9 BITS)
01670 M00S01550.tfm +++| PBGN EQU PBSI+3 GENERATION NUMBER (15 BITS)
01671 M00S01551.tfm +++| PNFI EQU FBNI*5+PBUF FILE IDENTIFIER (NEW - 102 BITS)
01672 M00S01552.tfm +++| PBCE EQU PNFI+11 CLEAR ERROR FLAG (UPPER 6 BITS)
01673 M00S01553.tfm +++| PBAN EQU PNFI+11 CHANGE CHARGE/PROJECT (LOWER 6 BITS)
01674 M00S01554.tfm +++| PBCR EQU FBCR*5+PBUF LABEL CREATION/RETENTION DATE (60 BITS)
01675 M00S01555.tfm +++| PAUN EQU FBUN*5+PBUF ALTERNATE USERNAME (42 BITS)
01676 M00S01556.tfm +++| PBTO EQU PAUN+3 TAPE OPTIONS (LOWER 18 BITS)
01677 M00S01557.tfm +++| PUCW EQU PAUN USER CONTROL WORD (60 BITS)
01678 M00S01558.tfm +++| PPWD EQU FBPW*5+PBUF FILE PASSWORD (42 BITS)
01679 M00S01559.tfm +++| PBAC EQU PPWD+3 AUDIT ACCESS MODE (LOWER 6 BITS)
01680 M00S01560.tfm +++| PBCT EQU PPWD+4 FILE CATEGORY (UPPER 6 BITS)
01681 M00S01561.tfm +++| PBMD EQU PPWD+4 FILE ACCESS MODE (LOWER 6 BITS)
01682 M00S01562.tfm +++| SPACE 4,10
01683 M00S01563.tfm +++|*** VSN PARAMETER BUFFER (PP BYTE POSITIONS).
01684 M00S01564.tfm +++|
01685 M00S01565.tfm +++|
01686 M00S01566.tfm +++| PVES EQU VBES+PBUF EXTERNAL VSN
01687 M00S01567.tfm +++| PVCI EQU VBCI+PBUF CATALOG RANDOM INDEX
01688 M00S01568.tfm +++| PVVS EQU VBVS+PBUF INTERNAL VSN
01689 M00S01569.tfm +++| PVRC EQU VBRC+PBUF REEL COUNT (UPPER 6 BITS)
01690 M00S01570.tfm +++| PVST EQU VBST+PBUF VSN STATUS (I8 BITS)
01691 M00S01571.tfm +++| PVFV EQU VBFV+PBUF FIRST VSN OF SET
01692 M00S01572.tfm +++| PVJS EQU VBJS+PBUF EJT ORDINAL
01693 M00S01573.tfm +++| PVNV EQU VBNV+PBUF NEXT VSN OF SET (36 BITS)
01694 M00S01574.tfm +++| TITLE OVERLAYABLE SUBROUTINES (LEVEL 1).
01695 M00S01575.tfm +++| SPACE 4,10
01696 M00S01576.tfm +++|*** LEVEL 1 OVERLAYS.
01697 M00S01577.tfm +++|*
01698 M00S01578.tfm +++|* LEVEL 1 OVERLAYABLE CODE WILL BE DESTROYED BY
Line S01579 Modification History
M01 (Removed by) ns2763
Seq # *Modification Id* Act
----------------------------+
01699 M01S01579.ns2763 ---|* A OVERLAY LOAD AT *OVL1*.
Line S00001 Modification History
M01 (Added by) ns2763
Seq # *Modification Id* Act
----------------------------+
01700 M01S00001.ns2763 +++|* AN OVERLAY LOAD AT *OVL1*.
01701 M00S01580.tfm +++|
01702 M00S01581.tfm +++|
01703 M00S01582.tfm +++| OVL1 EQU * DEFINE FIRST LEVEL OVERLAY ADDRESS
01704 M00S01583.tfm +++| SPACE 4
01705 M00S01584.tfm +++| QUAL PRESET
01706 M00S01585.tfm +++| SPACE 4,10
01707 M00S01586.tfm +++|** LOCAL DIRECT CELL LOCATIONS.
01708 M00S01587.tfm +++|
01709 M00S01588.tfm +++|
Line S01589 Modification History
M01 (Removed by) tfm20
Seq # *Modification Id* Act
----------------------------+
01710 M01S01589.tfm20 ---| CU EQU S2 CPU PRIORITY * 2
Line S00001 Modification History
M01 (Added by) tfm20
M02 (Removed by) tfm21
Seq # *Modification Id* Act
----------------------------+
01711 M02S00001.tfm21 ---| CU EQU S2 CPU PRIORITY
Line S00001 Modification History
M01 (Added by) tfm21
Seq # *Modification Id* Act
----------------------------+
01712 M01S00001.tfm21 +++| SI EQU S2+2 SUBSYSTEM ID
01713 M00S01590.tfm +++| FT EQU S2+2 - S2+3 FET FIRST POINTER
01714 M00S01591.tfm +++| IN EQU S2+4 - S3+0 FET IN POINTER
01715 M00S01592.tfm +++| OT EQU S3+1 - S3+2 FET OUT POINTER
01716 M00S01593.tfm +++| LM EQU S3+3 - S3+4 FET LIMIT POINTER
01717 M00S01594.tfm +++| CN EQU FN - FN+4 FAMILY NAME (COMPFAT)
01718 M00S01595.tfm +++| FA EQU S1 FNT ORDINAL (COMPSAF)
01719 M00S01596.tfm +++| MAGF SPACE 4,10
01720 M00S01597.tfm +++|*** MAGF - *MAGNET* REQUEST FUNCTION.
01721 M00S01598.tfm +++|*
01722 M00S01599.tfm +++|* THIS FUNCTION CAN ONLY BE CALLED BY *MAGNET*.
01723 M00S01600.tfm +++|* *MAGNET* WILL ISSUE THIS REQUEST WITH A SUB-
01724 M00S01601.tfm +++|* FUNCTION CODE IN BYTE 0 OF UDT+UTMS, AND CALL
01725 M00S01602.tfm +++|* TFM WITHOUT AUTO-RECALL. THIS IS THE ONLY
01726 M00S01603.tfm +++|* TFM RA+1 REQUEST VALIDATED FOR NO AUTO-RECALL.
01727 M00S01604.tfm +++|*
01728 M00S01605.tfm +++|* ENTRY (FC) = MAGF.
01729 M00S01606.tfm +++|* (IR+4) = UDT ADDRESS.
01730 M00S01607.tfm +++|*
01731 M00S01608.tfm +++|* EXIT (TFMA) = OVERLAY NAME.
01732 M00S01609.tfm +++|* (TFMB) = PROCESSOR ADDRESS.
01733 M00S01610.tfm +++|* (TFMC) = CATALOG ACCESS MODE.
01734 M00S01611.tfm +++|* (UDTA) = UDT ADDRESS.
01735 M00S01612.tfm +++|*
01736 M00S01613.tfm +++|* USES CM - CM+4, S1 - S1+4, T1.
01737 M00S01614.tfm +++|*
Line S01615 Modification History
M01 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
01738 M01S01615.282l826 ---|* CALLS CCP, CRS, FUJ, GUO, TTB.
Line S00002 Modification History
M01 (Added by) 282l826
Seq # *Modification Id* Act
----------------------------+
01739 M01S00002.282l826 +++|* CALLS CCP, CRS, GUO, TTB.
01740 M00S01616.tfm +++|*
01741 M00S01617.tfm +++|* MACROS ERROR, FCN, MULT4, UDTRD, UDTWT.
01742 M00S01618.tfm +++|*
01743 M00S01619.tfm +++|
01744 M00S01620.tfm +++|
01745 M00S01621.tfm +++| MAG SUBR ENTRY/EXIT
01746 M00S01622.tfm +++| LDD IR+4
01747 M00S01623.tfm +++| STM UDTA
01748 M00S01624.tfm +++| RJM CRS CHECK RECALL STATUS
01749 M00S01625.tfm +++| NJN MAG1 IF CALLED WITH AUTO-RECALL
Line S01626 Modification History
M01 (Removed by) tfm21
Seq # *Modification Id* Act
----------------------------+
01750 M01S01626.tfm21 ---| LDD CU CHECK CPU PRIORITY
Line S01627 Modification History
M01 (Removed by) tfm20
M02 (Removed by) tfm21
Seq # *Modification Id* Act
----------------------------+
01751 M02S01627.tfm21 ---| SHN -1
Line S01628 Modification History
M01 (Removed by) tfm21
Seq # *Modification Id* Act
----------------------------+
01752 M01S01628.tfm21 ---| LMN /PRD/MTCS
Line S00002 Modification History
M01 (Added by) tfm21
Seq # *Modification Id* Act
----------------------------+
01753 M01S00002.tfm21 +++| LDD SI CHECK SUBSYSTEM ID
01754 M01S00003.tfm21 +++| LMK MTSI
01755 M00S01629.tfm +++| NJN MAG1 IF NOT CALLED BY *MAGNET*
01756 M00S01630.tfm +++| UDTRD UTMS,/MTX/UTMS,1
01757 M00S01631.tfm +++| LDM UTMS+4
01758 M00S01632.tfm +++| LPN RSIL
01759 M00S01633.tfm +++| ZJN MAG1 IF INTERLOCK NOT SET
01760 M00S01634.tfm +++| LDM UTMS SET SUBFUNCTION CODE
Line S01635 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
01761 M01S01635.nos252 ---| ZJN MAG1 IF ILLEGAL FUNCTION
Line S00015 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
01762 M01S00015.nos252 +++| ZJN MAG1 IF INCORRECT FUNCTION
01763 M00S01636.tfm +++| SBN 1
01764 M00S01637.tfm +++| MULT4 MULTIPLY (FUNCTION-1)*4
01765 M00S01638.tfm +++| ADC -MAGAL
01766 M00S01639.tfm +++| MJN MAG2 IF LEGAL FUNCTION
Line S01640 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
01767 M01S01640.nos252 ---| MAG1 ERROR ILR *TFM ILLEGAL REQUEST.*
Line S00016 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
01768 M01S00016.nos252 +++| MAG1 ERROR ILR *TFM INCORRECT REQUEST.*
01769 M00S01641.tfm +++|
01770 M00S01642.tfm +++| MAG2 LDM MAGA,T1 SET OVERLAY NAME
01771 M00S01643.tfm +++| LPN 77
01772 M00S01644.tfm +++| STM TFMA
01773 M00S01645.tfm +++| LDM MAGA+1,T1 SET PROCESSOR ADDRESS
01774 M00S01646.tfm +++| STM TFMB
01775 M00S01647.tfm +++| LDM MAGA+2,T1 SET FILE ACCESS MODE
01776 M00S01648.tfm +++| STM TFMC
01777 M00S01649.tfm +++| UDTRD S1,/MTX/UTCI,1
01778 M00S01650.tfm +++| LDD S1+1
01779 M00S01651.tfm +++| ZJN MAG3 IF NO *POSMF* IN PROGRESS
01780 M00S01652.tfm +++| UDTRD CM,/MTX/UCIB,1
01781 M00S01653.tfm +++| LDD CM
01782 M00S01654.tfm +++| SHN -2
01783 M00S01655.tfm +++| LPC 377
01784 M00S01656.tfm +++| LMN 22
01785 M00S01657.tfm +++| ZJN MAG3 IF *CIO* FUNCTION NOT *POSMF*
01786 M00S01658.tfm +++|* UJN MAG3 (*SKIP SETTING FUNCTION TO *CPPS*)
01787 M00S01659.tfm +++| MAGB EQU *-1
01788 M00S01660.tfm +++| LDM UTMS+4 SET *RE-ISSUE REQUEST*
01789 M00S01661.tfm +++| SCN RSRR
01790 M00S01662.tfm +++| LMN RSRR
01791 M00S01663.tfm +++| STM UTMS+4
01792 M00S01664.tfm +++| LDN CPPS*4-4 SET *CPPS* INTERNAL FUNCTION
01793 M00S01665.tfm +++| STD T1
01794 M00S01666.tfm +++| ISTORE MAGB,(UJN MAG3 ) SKIP SETTING FUNCTION TO *CPPS*
01795 M00S01667.tfm +++| LJM MAG2 RESET FUNCTION
01796 M00S01668.tfm +++|
01797 M00S01669.tfm +++| MAG3 LDM TFMC
01798 M00S01670.tfm +++| SHN 21-12
01799 M00S01671.tfm +++| MJN MAG5 IF NOT CHANGING CONTROL POINTS
Line S01672 Modification History
M01 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
01800 M01S01672.282l826 ---| RJM FUJ FIND USER JOB
01801 M01S01673.282l826 ---| ZJN MAG4 IF NOT AT CONTROL POINT
01802 M01S01674.282l826 ---| LDN S1
01803 M01S01675.282l826 ---| RJM CCP CHANGE CONTROL POINT
01804 M01S01676.282l826 ---| ZJN MAG5 IF JOB AT CONTROL POINT
Line S00003 Modification History
M01 (Added by) 282l826
Seq # *Modification Id* Act
----------------------------+
01805 M01S00003.282l826 +++| RJM CCP CHANGE TO USER CONTROL POINT
01806 M01S00004.282l826 +++| ZJN MAG5 IF CONTROL POINT CHANGED
01807 M00S01677.tfm +++| MAG4 LJM MAG7 JOB NOT AT CONTROL POINT
01808 M00S01678.tfm +++|
01809 M00S01679.tfm +++| MAG5 UDTRD PBUN,/MTX/UUFN,1
01810 M00S01680.tfm +++| UDTRD PESN,/MTX/UESN,1
Line S01681 Modification History
M01 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
01811 M01S01681.282l826 ---| UDTRD PVSN,/MTX/UVSN,1
Line S00005 Modification History
M01 (Added by) 282l826
Seq # *Modification Id* Act
----------------------------+
01812 M01S00005.282l826 +++| UDTRD PVSN,/MTX/UISN,1
01813 M00S01682.tfm +++| LDC 7S12+PBUN
01814 M00S01683.tfm +++| RJM TTB TRIM TRAILING BLANKS
01815 M00S01684.tfm +++| LDM TFMC CHECK IF PARAMETER BLOCK NEEDS UPDATE
01816 M00S01685.tfm +++| SHN 21-11
01817 M00S01686.tfm +++| PJN MAG6 IF NO UPDATE FROM UDT NEEDED
01818 M00S01687.tfm +++| RJM GUO GET USER OPTIONS FROM UDT
01819 M00S01688.tfm +++| MAG6 LJM MAGX RETURN
01820 M00S01689.tfm +++|
Line S01690 Modification History
M01 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
01821 M01S01690.282l826 ---| MAG7 LDM UTMS CHECK REQUEST TYPE
01822 M01S01691.282l826 ---| LMN ROJS
01823 M01S01692.282l826 ---| ZJN MAG8 IF ROLLOUT USER REQUEST
01824 M01S01693.282l826 ---| LDM UTMS+4 SET REISSUE REQUEST
Line S00006 Modification History
M01 (Added by) 282l826
Seq # *Modification Id* Act
----------------------------+
01825 M01S00006.282l826 +++| MAG7 LDM UTMS+4 SET REISSUE REQUEST
01826 M00S01694.tfm +++| SCN RSRR
01827 M00S01695.tfm +++| LMN RSRR
01828 M00S01696.tfm +++| STM UTMS+4
01829 M00S01697.tfm +++| LDM UTMS+3 SET WAIT FOR JOB ROLLIN
01830 M00S01698.tfm +++| SCN WUJR
01831 M00S01699.tfm +++| LMN WUJR
01832 M00S01700.tfm +++| STM UTMS+3
01833 M00S01701.tfm +++| MAG8 LJM EML EXIT TO MAIN LOOP
01834 M00S01702.tfm +++|
01835 M00S01703.tfm +++|
01836 M00S01704.tfm +++| MAGA FCN BEGIN
Line S01705 Modification History
M01 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
01837 M01S01705.282l826 ---| FCN AVSS,AVF,/PFM/PTWR ADVANCE VSN FILE
Line S00007 Modification History
M01 (Added by) 282l826
Seq # *Modification Id* Act
----------------------------+
01838 M01S00007.282l826 +++| FCN AVSS,AVF,2000+/PFM/PTWR ADVANCE VSN FILE
01839 M00S01706.tfm +++| FCN CPPS,CPP,2000+/PFM/PTUP CLEAR *POSMF* CATALOG POINTER
Line S01707 Modification History
M01 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
01840 M01S01707.282l826 ---| FCN RIJS,RIJ,6000 ROLLIN USER JOB
01841 M01S01708.282l826 ---| FCN ROJS,ROJ,4000 ROLLOUT USER JOB
01842 M00S01709.tfm +++| FCN RFVS,AVF,2000+/PFM/PTUP REWIND TO FIRST VOLUME
01843 M00S01710.tfm +++| FCN RTFS,RRF,3000+/PFM/PTUP RETURN/RESERVE TAPE FILE
01844 M00S01711.tfm +++| FCN UCES,UCE,3000+/PFM/PTWR UPDATE CATALOG ENTRY
01845 M00S01712.tfm +++| FCN VMFS,VMF,1000+/PFM/PTWR VALIDATE MULTI-FILE SET
01846 M00S01713.tfm +++| FCN VTLS,VTL,3000+/PFM/PTWR VERIFY TAPE LABELS
01847 M00S01714.tfm +++| MAGA FCN END
01848 M00S01715.tfm +++| RSXF SPACE 4,10
01849 M00S01716.tfm +++|*** RSXF - *RESEX* REQUEST FUNCTION.
01850 M00S01717.tfm +++|*
01851 M00S01718.tfm +++|* THIS FUNCTION IS CALLED ONLY BY *RESEX* ON
01852 M00S01719.tfm +++|* FIRST REEL ASSIGNMENT. IT MUST BE CALLED
01853 M00S01720.tfm +++|* WITH AUTO-RECALL SET BY A JOB WITH AN SSJ=
01854 M00S01721.tfm +++|* ENTRY POINT.
01855 M00S01722.tfm +++|*
01856 M00S01723.tfm +++|* ENTRY (FC) = RSXF.
01857 M00S01724.tfm +++|* (IR+3 - IR+4) = FET ADDRESS.
01858 M00S01725.tfm +++|*
01859 M00S01726.tfm +++|* EXIT (TFMA) = OVERLAY NAME.
01860 M00S01727.tfm +++|* (TFMB) = PROCESSOR ADDRESS.
01861 M00S01728.tfm +++|* (TFMC) = CATALOG ACCESS MODE.
01862 M00S01729.tfm +++|*
01863 M00S01730.tfm +++|* USES CM - CM+4, S1 - S1+4, T1.
01864 M00S01731.tfm +++|*
01865 M00S01732.tfm +++|* CALLS BPB, CFS, SUL.
01866 M00S01733.tfm +++|*
01867 M00S01734.tfm +++|* MACROS ERROR, FCN, LDA, MULT4.
01868 M00S01735.tfm +++|
01869 M00S01736.tfm +++|
01870 M00S01737.tfm +++| RSX SUBR ENTRY/EXIT
Line S01738 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
01871 M01S01738.nos252 ---| LDN TFML CHECK TMS ENABLE/DISABLE STATUS
Line S00017 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
01872 M01S00017.nos252 +++| LDN SSTL CHECK IF TMS IS ENABLED
01873 M00S01739.tfm +++| CRD CM
Line S01740 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
01874 M01S01740.nos252 ---| LDD CM+0
01875 M01S01741.nos252 ---| SHN 21-13
01876 M01S01742.nos252 ---| MJN RSX1 IF TMS ENABLED
Line S00018 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
01877 M01S00018.nos252 +++| LDD CM+2
01878 M01S00019.nos252 +++| SHN 21-0
01879 M01S00020.nos252 +++| PJN RSX1 IF TMS ENABLED
01880 M00S01743.tfm +++| ERROR TMD *TMS DISABLED.*
01881 M00S01744.tfm +++|
01882 M00S01745.tfm +++| RSX1 LDD CP CHECK FOR SSJ=
01883 M00S01746.tfm +++| ADC SEPW
01884 M00S01747.tfm +++| CRD CM
01885 M00S01748.tfm +++| LDD CM