cdc:nos2.source:opl.opl871:deck:tfm
Deck TFM
Library Member Format: MODIFY
Listing Sections
- Deck TFM Start
- Deck TFM Part 1 (Line 1895)
- Deck TFM Part 2 (Line 3697)
- Deck TFM Part 3 (Line 5211)
- Deck TFM Part 4 (Line 6998)
- Deck TFM Part 5 (Line 8686)
- Deck TFM Part 6 (Line 10310)
- Deck TFM Part 7 (Line 12010)
Source
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
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 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 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 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 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 01886 M00S01749.tfm +++| SHN 21-2 01887 M00S01750.tfm +++| PJN RSX2 IF NO SSJ= ENTRY POINT 01888 M00S01751.tfm +++| LDA IR+3,REL SET SUBFUNCTION CODE 01889 M00S01752.tfm +++| CRD S1 01890 M00S01753.tfm +++| LDD S1+4 01891 M00S01754.tfm +++| SHN -3 01892 M00S01755.tfm +++| LPN 77
| Line S01756 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01893 M01S01756.nos252 ---| ZJN RSX2 IF ILLEGAL FUNCTION
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01894 M01S00021.nos252 +++| ZJN RSX2 IF INCORRECT FUNCTION
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/tfm.txt · Last modified: (external edit)