cdc:nos2.source:opl.opl871:deck:tfm
Deck TFM
23 Modifications
Listing Sections
- Deck TFM Start
- Deck TFM Part 1 (Line 1907)
- Deck TFM Part 2 (Line 3122)
- Deck TFM Part 3 (Line 4465)
- Deck TFM Part 4 (Line 5778)
- Deck TFM Part 5 (Line 7760)
- Deck TFM Part 6 (Line 9105)
- Deck TFM Part 7 (Line 10810)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.tfm +++| IDENT TFM,TFM 00002 M01S00002.tfm +++| PERIPH J 00003 M01S00003.tfm +++| BASE MIXED
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00004 M02S00004.nos252 ---| SST 00005 M01S00001.nos252 +++| SST PUCW 00006 M01S00005.tfm +++| TITLE TFM - TAPE FILE MANAGER. 00007 M01S00006.tfm +++|*COMMENT TFM - TAPE FILE MANAGER.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1983. 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M01S00008.tfm +++| TFM SPACE 4,10 00011 M01S00009.tfm +++|***** TFM - TAPE FILE MANAGER. 00012 M01S00010.tfm +++|* 00013 M01S00011.tfm +++|* J.P. MOORE. 81/04/01. 00014 M01S00012.tfm +++| SPACE 4 00015 M01S00013.tfm +++|***** *TFM* HAS SUPERVISORY CONTROL OVER THE TMS TAPE CATALOGS, 00016 M01S00014.tfm +++|* AND DIRECTS PROCESSING OF TAPE ASSIGNMENTS AND FINAL 00017 M01S00015.tfm +++|* DISPOSITION. IT ACCEPTS PROCESSING REQUESTS FROM
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00018 M02S00016.nos252 ---|* RESEX, MAGNET, TFSP AND THE TMS CONTROL STATEMENT 00019 M01S00002.nos252 +++|* RESEX, MAGNET, TFSP AND THE TMS COMMAND 00020 M01S00017.tfm +++|* PROCESSOR, TFILES. TFM INTERFACES WITH THE EXTERNAL 00021 M01S00018.tfm +++|* REQUESTS THROUGH FETS, AND MAGNETS UNIT DESCRIPTOR TABLE 00022 M01S00019.tfm +++|* (UDT). 00023 M01S00020.tfm +++|* 00024 M01S00021.tfm +++|* TFM IS A GENERAL PURPOSE FUNCTION PROCESSOR FOR THE TAPE 00025 M01S00022.tfm +++|* FILE MANAGER. TO ADD A NEW FUNCTION TO *TFM* AN 00026 M01S00023.tfm +++|* ENTRY IS MADE IN THE FUNCTION TABLE THAT POINTS TO THE 00027 M01S00024.tfm +++|* APPROPRIATE SET OF CODE. THE FUNCTION TABLE IS NOT ORDER 00028 M01S00025.tfm +++|* DEPENDENT. OVERLAYS ARE AUTOMATICALLY DEFINED BY THE OVERLAY 00029 M01S00026.tfm +++|* MACRO AND THE FUNCTIONS ENTRY POINT BY THE ENTRY MACRO. 00030 M01S00027.tfm +++|* NORMAL RETURN FROM A FUNCTION IS THROUGH A RETURN JUMP 00031 M01S00028.tfm +++|* FROM THE MAIN LOOP. ABNORMAL RETURN IS THROUGH THE ERROR 00032 M01S00029.tfm +++|* PROCESSING OVERLAY. 00033 M01S00030.tfm +++|* 00034 M01S00031.tfm +++|* TFM IS A NON-DEDICATED FUNCTION PROCESSOR. ALL TFM 00035 M01S00032.tfm +++|* REQUESTS ARE VALIDATED AGAINST CRITERIA WHICH IS 00036 M01S00033.tfm +++|* UNIQUE TO THE FUNCTION BEING CALLED. IF THIS CRITERIA 00037 M01S00034.tfm +++|* IS NOT MET, THE CALLING PROGRAM WILL BE ABORTED AS
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00038 M02S00035.nos252 ---|* A *TFM INVALID REQUEST.*. 00039 M01S00003.nos252 +++|* A *TFM INCORRECT REQUEST.*. 00040 M01S00036.tfm +++|* 00041 M01S00037.tfm +++|* TFM IS THE ONLY PROGRAM WHICH HAS DIRECT ACCESS TO THE 00042 M01S00038.tfm +++|* TAPE FILE CATALOGS. CREATION, UPDATE, AND INQUIRY 00043 M01S00039.tfm +++|* REQUESTS ARE MADE TO TFM, AND ANY RETURNS ARE MADE 00044 M01S00040.tfm +++|* THROUGH FETS, BUFFERS, AND/OR THE UDT TABLE IN 00045 M01S00041.tfm +++|* MAGNET. 00046 M01S00042.tfm +++|* 00047 M01S00043.tfm +++|* THE TAPE FILE MANAGER CONSISTS OF FIVE MAIN AREAS 00048 M01S00044.tfm +++|* WHICH ARE STRUCTURED TO MAKE OPTIMAL USE OF AVAILABLE 00049 M01S00045.tfm +++|* PPU MEMORY AND FOR EASE OF MAINTENANCE. THESE ARE- 00050 M01S00046.tfm +++|* 00051 M01S00047.tfm +++|* 1. RESIDENT ROUTINES. 00052 M01S00048.tfm +++|* 2. OVERLAYABLE PRESET. 00053 M01S00049.tfm +++|* 3. PROCESSING OVERLAYS. 00054 M01S00050.tfm +++|* 4. CONDITIONALLY ASSEMBLED SUBROUTINES. 00055 M01S00051.tfm +++|* 5. I/O BUFFER AREAS. 00056 M01S00052.tfm +++|* 00057 M01S00053.tfm +++|* 00058 M01S00054.tfm +++|* RESIDENT ROUTINES CONSIST OF THE MAIN LOOP AND 00059 M01S00055.tfm +++|* SUBROUTINES WHICH ARE LOADED WITH THE PRIMARY 00060 M01S00056.tfm +++|* LOAD AND ARE NOT OVERLAYED AT ANY TIME. THESE 00061 M01S00057.tfm +++|* ROUTINES CAN BE USED BY ALL SUBORDINATE SUB- 00062 M01S00058.tfm +++|* ROUTINES AND OVERLAYS. 00063 M01S00059.tfm +++|* 00064 M01S00060.tfm +++|* OVERLAYABLE PRESET CONSISTS OF THE RA+1 REQUEST 00065 M01S00061.tfm +++|* PROCESSORS, RESIDENT SUBFUNCTION PROCESSORS, 00066 M01S00062.tfm +++|* OVERLAYABLE SUBROUTINES, PRESET, AND PRESET SUB- 00067 M01S00063.tfm +++|* ROUTINES. THIS CODE IS ARRANGED IN SECTIONS, 00068 M01S00064.tfm +++|* DEFINED BY THE OVERLAY LOAD ADDRESS. THE RESIDENT 00069 M01S00065.tfm +++|* SUBFUNCTION PROCESSORS DO NOT REQUIRE A OVERLAY 00070 M01S00066.tfm +++|* LOAD TO NORMALLY COMPLETE, BUT ERROR CONDITIONS 00071 M01S00067.tfm +++|* WILL CAUSE PART OF THIS CODE TO BE OVERLAYED BY 00072 M01S00068.tfm +++|* THE ERROR PROCESSOR. 00073 M01S00069.tfm +++|* 00074 M01S00070.tfm +++|* PROCESSING OVERLAYS ARE THE SUBFUNCTION PROCESSORS 00075 M01S00071.tfm +++|* WHICH ARE NOT AVAILABLE IN THE PRIMARY LOAD. THESE 00076 M01S00072.tfm +++|* OVERLAYS ARE AUTOMATICALLY GENERATED BY THE OVERLAY 00077 M01S00073.tfm +++|* MACRO AND ARE QUALIFIED BY THE THREE CHARACTER 00078 M01S00074.tfm +++|* OVERLAY NAME. EACH OVERLAY CAN DEFINE DIRECT CELLS 00079 M01S00075.tfm +++|* S1 - S3+4 FOR ITS OWN PURPOSES, AS THESE CELLS ARE 00080 M01S00076.tfm +++|* NOT USED BY ANY OTHER ROUTINES. 00081 M01S00077.tfm +++|* 00082 M01S00078.tfm +++|* CONDITIONALLY ASSEMBLED SUBROUTINES ARE CONTAINED 00083 M01S00079.tfm +++|* IN *COMPTFM*. THIS IS A COLLECTION OF SUBROUTINES 00084 M01S00080.tfm +++|* THAT OVERLAYABLE PRESET OR ANY OVERLAY CAN USE. 00085 M01S00081.tfm +++|* ONLY THE SUBROUTINES REQUESTED BY DEFINING XXX$ 00086 M01S00082.tfm +++|* (XXX = SUBROUTINE NAME) WILL BE ASSEMBLED. BY 00087 M01S00083.tfm +++|* DEFAULT THE LISTING OF THIS COMMON DECK IS TURNED 00088 M01S00084.tfm +++|* OFF. TO OBTAIN A ASSEMBLED LIST OF *COMPTFM* 00089 M01S00085.tfm +++|* DEFINE LST$. 00090 M01S00086.tfm +++|* 00091 M01S00087.tfm +++|* THERE ARE THREE I/O BUFFERS DEFINED. IN SOME CASES 00092 M01S00088.tfm +++|* THEY ARE OVERLAYED BUT IN GENERAL EXTREME CARE MUST 00093 M01S00089.tfm +++|* BE TAKEN BEFORE USING ANY OF THE BUFFER AREAS FOR 00094 M01S00090.tfm +++|* CODE. SOME TFM SUBROUTINES RANDOMLY SELECT BUFFER 00095 M01S00091.tfm +++|* SPACE. 00096 M01S00092.tfm +++|* 00097 M01S00093.tfm +++|* DIRECT CELLS HAVE BEEN ARRANGED IN SUCH A WAY AS TO 00098 M01S00094.tfm +++|* ALLOW 15D CONTIGUOUS LOCATIONS (THREE CM WORDS) TO 00099 M01S00095.tfm +++|* BE UNIQUELY DEFINED BY EACH OF THE PROCESSING 00100 M01S00096.tfm +++|* OVERLAYS. THE REMAINING DIRECT CELLS ARE COMMON TO 00101 M01S00097.tfm +++|* TFM AS A WHOLE. 00102 M01S00098.tfm +++| SPACE 4,10 00103 M01S00099.tfm +++|*** TFM INPUT REGISTER CALL FORMAT - 00104 M01S00100.tfm +++|* 00105 M01S00101.tfm +++|*T, 18/ *TFM*, 6/40B, 12/FC, 6/0 , 18/FA
Figure
00106 M01S00102.tfm +++|* 00107 M01S00103.tfm +++|* FC = FUNCTION CODE. 00108 M01S00104.tfm +++|* 00109 M01S00105.tfm +++|* FA = FUNCTION PARAMETER ADDRESS RELATIVE TO 00110 M01S00106.tfm +++|* THE CONTROL POINT (SEE *COMSTFM FOR FORMATS). 00111 M01S00107.tfm +++|* 00112 M01S00108.tfm +++|* CALLS TO TFM ARE MADE WITH THE AUTO-RECALL FLAG SET 00113 M01S00109.tfm +++|* EXCEPT WHEN CALLED BY *MAGNET*. 00114 M01S00110.tfm +++| SPACE 4,10 00115 M01S00111.tfm +++|*** DAYFILE MESSAGES. 00116 M01S00112.tfm +++|* 00117 M01S00113.tfm +++|* (VSN) BUSY. 00118 M01S00114.tfm +++|* THE VSN REQUESTED IS CURRENTLY BUSY. 00119 M01S00115.tfm +++|* 00120 M01S00116.tfm +++|* (LFN) NOT FOUND. 00121 M01S00117.tfm +++|* THE LOCAL FILE NAME REQUESTED IS NOT 00122 M01S00118.tfm +++|* IN THE FNT OR IS NOT ASSIGNED TO THE JOB. 00123 M01S00119.tfm +++|* 00124 M01S00120.tfm +++|* (FILENAME) NOT FOUND. 00125 M01S00121.tfm +++|* THE FILENAME SPECIFIED WHEN ATTEMPTING 00126 M01S00122.tfm +++|* SYMBOLIC ACCESS COULD NOT BE FOUND IN 00127 M01S00123.tfm +++|* THE USERS CATALOG. 00128 M01S00124.tfm +++|* 00129 M01S00125.tfm +++|* (VSN) NOT FOUND. 00130 M01S00126.tfm +++|* THE VSN SPECIFIED WHEN ATTEMPTING VSN 00131 M01S00127.tfm +++|* ACCESS TO A TAPE FILE COULD NOT BE 00132 M01S00128.tfm +++|* FOUND OR WAS NOT ASSIGNED TO THE USER. 00133 M01S00129.tfm +++|* 00134 M01S00130.tfm +++|* (USERNAME) NOT FOUND. 00135 M01S00131.tfm +++|* THE USERNAME IS NOT KNOWN TO TMS. 00136 M01S00132.tfm +++|* 00137 M01S00133.tfm +++|* (LFN) NOT ON MAGNETIC TAPE. 00138 M01S00134.tfm +++|* THE LOCAL FILE REQUESTED IS NOT A 00139 M01S00135.tfm +++|* MAGNETIC TAPE FILE. 00140 M01S00136.tfm +++|* 00141 M01S00137.tfm +++|* (VSN) ALREADY RESERVED. 00142 M01S00138.tfm +++|* ATTEMPT TO RESERVE A VSN THAT IS 00143 M01S00139.tfm +++|* ALREADY RESERVED 00144 M01S00140.tfm +++|* 00145 M01S00141.tfm +++|* (FILENAME) ALREADY RESERVED. 00146 M01S00142.tfm +++|* ATTEMPT TO RESERVE A FILENAME THAT 00147 M01S00143.tfm +++|* IS ALREADY RESERVED TO THE USER. 00148 M01S00144.tfm +++|* 00149 M01S00145.tfm +++|* TFM ABORTED. 00150 M01S00146.tfm +++|* ABNORMAL TERMINATION OF THE TAPE FILE 00151 M01S00147.tfm +++|* MANAGER 00152 M01S00148.tfm +++|*
| Line S00149 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00153 M02S00149.nos252 ---|* TFM INVALID REQUEST. 00154 M01S00004.nos252 +++|* TFM INCORRECT REQUEST. 00155 M01S00150.tfm +++|* TFM DETECTED A ERROR IN THE REQUEST. 00156 M01S00151.tfm +++|* 00157 M01S00152.tfm +++|* TMS DISABLED. 00158 M01S00153.tfm +++|* THE TAPE MANAGER IS DISABLED. 00159 M01S00154.tfm +++|* 00160 M01S00155.tfm +++|* MAGNET NOT ACTIVE. 00161 M01S00156.tfm +++|* ATTEMPT TO COMMUNICATED WITH THE MAGNETIC 00162 M01S00157.tfm +++|* TAPE EXECUTIVE WHICH IS CURRENTLY NOT IN 00163 M01S00158.tfm +++|* THE SYSTEM. 00164 M01S00159.tfm +++|* 00165 M01S00160.tfm +++|* ERRONEOUS BUFFER POINTER. 00166 M01S00161.tfm +++|* TFM INTERNAL ERROR. 00167 M01S00162.tfm +++|* 00168 M01S00163.tfm +++|* TMS UTILITY ACTIVE. 00169 M01S00164.tfm +++|* THE TMS UTILITY (TFSP) IS CURRENTLY 00170 M01S00165.tfm +++|* ACTIVE. NO USER ACTIONS ARE POSSIBLE. 00171 M01S00166.tfm +++|* 00172 M01S00167.tfm +++|* BUFFER ARGUMENT ERROR. 00173 M01S00168.tfm +++|* A ERROR WAS DETECTED WHEN VALIDATING 00174 M01S00169.tfm +++|* THE FET. 00175 M01S00170.tfm +++|* 00176 M01S00171.tfm +++|* ERROR IN INDEX DATA. 00177 M01S00172.tfm +++|* A DATA ERROR WAS DISCOVERED IN EITHER 00178 M01S00173.tfm +++|* A VSN OR USERNAME INDEX. 00179 M01S00174.tfm +++|* 00180 M01S00175.tfm +++|* ERROR IN CATALOG DATA. 00181 M01S00176.tfm +++|* A DATA ERROR WAS DISCOVERED IN THE TAPE 00182 M01S00177.tfm +++|* CATALOG ENTRY. 00183 M01S00178.tfm +++|* 00184 M01S00179.tfm +++|* ERROR IN ADMIT DATA. 00185 M01S00180.tfm +++|* A DATA ERROR WAS DISCOVERED IN A ADMIT 00186 M01S00181.tfm +++|* ENTRY FOR THE FILE. 00187 M01S00182.tfm +++|* 00188 M01S00183.tfm +++|* (NNNNNN) RANDOM ADDRESS ERROR. 00189 M01S00184.tfm +++|* ATTEMPT TO WRITE INTO THE SYSTEM SECTOR 00190 M01S00185.tfm +++|* OR BEYOND THE EOI IN THE TAPE CATALOG. 00191 M01S00186.tfm +++|* 00192 M01S00187.tfm +++|* EQXX, DNYY, MASS STORAGE ERROR. 00193 M01S00188.tfm +++|* A UNRECOVERABLE READ/WRITE ERROR HAS 00194 M01S00189.tfm +++|* OCCURRED. 00195 M01S00190.tfm +++|* 00196 M01S00191.tfm +++|* (FAMILY) TAPE CATALOG NOT FOUND. 00197 M01S00192.tfm +++|* NO TAPE CATALOG COULD BE FOUND 00198 M01S00193.tfm +++|* FOR THIS FAMILY. 00199 M01S00194.tfm +++|* 00200 M01S00195.tfm +++|* EMPTY CATALOG. 00201 M01S00196.tfm +++|* NO CATALOG ENTRIES COULD BE FOUND 00202 M01S00197.tfm +++|* FOR THIS USER ON A AUDIT REQUEST. 00203 M01S00198.tfm +++|* 00204 M01S00199.tfm +++|* CATALOG LINKAGE ERROR. 00205 M01S00200.tfm +++|* THE CATALOG LINKAGE HAS BEEN BROKEN. 00206 M01S00201.tfm +++|* 00207 M01S00202.tfm +++|* I/O SEQUENCE ERROR ON CATALOG. 00208 M01S00203.tfm +++|* THE LOCAL FILE CATALOG WAS BUSY. 00209 M01S00204.tfm +++|* 00210 M01S00205.tfm +++|* EOI NOT ON TRACK CHAIN. 00211 M01S00206.tfm +++|* THE EOI ON THE TAPE CATALOG COULD 00212 M01S00207.tfm +++|* NOT BE FOUND. 00213 M01S00208.tfm +++|* 00214 M01S00209.tfm +++|* NO ADMITS. 00215 M01S00210.tfm +++|* NO ADMIT ENTRIES COULD BE FOUND ON 00216 M01S00211.tfm +++|* A AUDIT REQUEST. 00217 M01S00212.tfm +++|* 00218 M01S00213.tfm +++|* TMS PROCESSING INHIBITED. 00219 M01S00214.tfm +++|* TMS CONTROL OVER TAPE FILES IS INHIBITED 00220 M01S00215.tfm +++|* BECAUSE THIS IS A SYSTEM ORIGIN JOB OR 00221 M01S00216.tfm +++|* AS A USER SPECIFIED REQUEST. 00222 M01S00217.tfm +++|* 00223 M01S00218.tfm +++|* ACTIVITY SUSPENDED. 00224 M01S00219.tfm +++|* TMS ACTIVITY IS TEMPORARILY SUSPENDED. 00225 M01S00220.tfm +++|* 00226 M01S00221.tfm +++|* (FAMILY) TAPE CATALOG ERROR. 00227 M01S00222.tfm +++|* THERE IS A FATAL CATALOG ERROR OUTSTANDING 00228 M01S00223.tfm +++|* FOR THIS FAMILY. 00229 M01S00224.tfm +++|* 00230 M01S00225.tfm +++|* WAIT SCRATCH ASSIGNMENT. 00231 M01S00226.tfm +++|* NO SCRATCH TAPES ARE CURRENTLY AVAILABLE 00232 M01S00227.tfm +++|* TO SATISFY THIS REQUEST. 00233 M01S00228.tfm +++|* 00234 M01S00229.tfm +++|* LINKED CATALOG NOT ACCESSIBLE. 00235 M01S00230.tfm +++|* THE LINKED TAPE CATALOG CANNOT BE ACCESSED FROM THE 00236 M01S00231.tfm +++|* CURRENT FAMILY. 00237 M01S00232.tfm +++| SPACE 4,10 00238 M01S00233.tfm +++|*** ACCOUNT FILE MESSAGES. 00239 M01S00234.tfm +++|*
| Line S00235 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00240 M02S00235.nos252 ---|* SMA , FAMNAME, USERNAM, FVSNXX, VSNXXX. 00241 M01S00005.nos252 +++|* SDAU, FAMNAME, USERNAM, FVSNXX, VSNXXX. 00242 M01S00236.tfm +++|* RESERVE 00243 M01S00237.tfm +++|*
| Line S00238 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00244 M02S00238.nos252 ---|* SMB , FAMNAME, USERNAM, FVSNXX. 00245 M01S00006.nos252 +++|* SDCR, FAMNAME, USERNAM, FVSNXX. 00246 M01S00239.tfm +++|* RELEASE. 00247 M01S00240.tfm +++| SPACE 4,10 00248 M01S00241.tfm +++|*** ASSEMBLY OPTIONS. 00249 M01S00242.tfm +++| 00250 M01S00243.tfm +++| 00251 M01S00244.tfm +++| IRA$ EQU 1 DEFINE RANDOM PROCESSOR INITIALIZATION
| Line S00245 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00252 M02S00245.274l797 ---|*LST$ EQU 1 DEFINE *COMPTFM* LIST OPTION 00253 M01S00001.274l797 +++| LST$ EQU 1 DEFINE *COMPTFM* LIST OPTION 00254 M01S00246.tfm +++|*TRP$ EQU 1 DEFINE TRAP ON ERROR CODES 00255 M01S00247.tfm +++| WEI$ EQU 1 DEFINE EOI BUFFER SPECIFIED 00256 M01S00248.tfm +++| QUAL$ EQU 1 DEFINE UNQUALIFIED COMMON DECKS 00257 M01S00249.tfm +++| SPACE 4,10 00258 M01S00250.tfm +++|*** COMMON DECKS (SYMBOLS/MACROS) 00259 M01S00251.tfm +++|* 00260 M01S00252.tfm +++| 00261 M01S00253.tfm +++| 00262 M01S00254.tfm +++|*CALL COMPMAC 00263 M01S00001.t2807 +++| QUAL COMSCPS 00264 M01S00255.tfm +++|*CALL COMSCPS 00265 M01S00002.t2807 +++| QUAL * 00266 M01S00001.282l826 +++|*CALL COMSEJT 00267 M01S00256.tfm +++|*CALL COMSMSP 00268 M01S00257.tfm +++|*CALL COMSPIM 00269 M01S00258.tfm +++|*CALL COMSWEI 00270 M01S00259.tfm +++| QUAL EVT 00271 M01S00260.tfm +++|*CALL COMSEVT 00272 M01S00261.tfm +++| QUAL PFM 00273 M01S00262.tfm +++|*CALL COMSPFM 00274 M01S00263.tfm +++| QUAL PRD 00275 M01S00264.tfm +++|*CALL COMSPRD 00276 M01S00265.tfm +++| QUAL SSJ 00277 M01S00266.tfm +++|*CALL COMSSSJ 00278 M01S00267.tfm +++| QUAL UAM
| Line S00268 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00279 M02S00268.nos252 ---|*CALL COMSUAM 00280 M01S00269.tfm +++| QUAL 00281 M01S00270.tfm +++|*CALL COMSSSD 00282 M01S00271.tfm +++| SPACE 4,10 00283 M01S00272.tfm +++|*** MAGNET, RESEX, TFM SYMBOL DEFINITIONS. 00284 M01S00273.tfm +++|* 00285 M01S00274.tfm +++| 00286 M01S00275.tfm +++| 00287 M01S00276.tfm +++| LIST X 00288 M01S00277.tfm +++| QUAL MTX 00289 M01S00278.tfm +++|*CALL COMSMTX 00290 M01S00279.tfm +++| QUAL 00291 M01S00280.tfm +++|*CALL COMSTFM 00292 M01S00281.tfm +++| LIST * 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 M01S00282.tfm +++| TITLE TAPE FILE MANAGER EQUIVALENCES. 00301 M01S00283.tfm +++| SPACE 4,10 00302 M01S00284.tfm +++|*** FET PARAMETER BLOCK. 00303 M01S00285.tfm +++|* 00304 M01S00286.tfm +++|* THE FOLLOWING SYMBOLS DEFINE THE FET 00305 M01S00287.tfm +++|* PARAMETERS RELATIVE TO THE FIRST WORD 00306 M01S00288.tfm +++|* OF THE PARAMETER BLOCK. 00307 M01S00289.tfm +++| 00308 M01S00290.tfm +++| 00309 M01S00291.tfm +++| FBES EQU TFES-TFFP EXTERNAL VSN 00310 M01S00292.tfm +++| FBTD EQU TFTD-TFFP TAPE DESCRIPTORS 00311 M01S00293.tfm +++| FBVS EQU TFVS-TFFP INTERNAL VSN 00312 M01S00294.tfm +++| FBFI EQU TFID-TFFP FILE IDENTIFIER 00313 M01S00295.tfm +++| FBSI EQU TFSI-TFFP SET I.D., VERSION, GENERATION 00314 M01S00296.tfm +++| FBNI EQU TFNI-TFFP FILE IDENTIFIER (NEW) 00315 M01S00297.tfm +++| FBCR EQU TFCR-TFFP CREATION/RETENTION DATE 00316 M01S00298.tfm +++| FBAC EQU TFCE-TFFP CE, AN PARAMETERS 00317 M01S00299.tfm +++| FBUN EQU TFUN-TFFP ALTERNATE USER NAME 00318 M01S00300.tfm +++| FBUC EQU TFUC-TFFP USER CONTROL WORD 00319 M01S00301.tfm +++| FBPW EQU TFPW-TFFP FILE PASSWORD 00320 M01S00302.tfm +++| SPACE 4,10 00321 M01S00303.tfm +++|*** BUFFER CONTROL WORD (PP BYTE POSITIONS) 00322 M01S00304.tfm +++| 00323 M01S00305.tfm +++| 00324 M01S00306.tfm +++| CWSC EQU 0 SECTOR COUNT 00325 M01S00307.tfm +++| CWWC EQU 1 SECTOR WORD COUNT 00326 M01S00308.tfm +++| CWRT EQU BWRT*5+0+2 RECORD TYPE,LEVEL NUMBER 00327 M01S00309.tfm +++| CWUW EQU BWRT*5+1+2 UNUSED WORD COUNT (CM WORDS) 00328 M01S00310.tfm +++| CWEL EQU BWRT*5+2+2 DATA ENTRY LENGTH IN CM WORDS 00329 M01S00311.tfm +++| CWNE EQU BWRT*5+3+2 NUMBER OF DATA ENTRIES 00330 M01S00312.tfm +++| CWFE EQU BWRT*5+4+2 FIRST DATA WORD 00331 M01S00313.tfm +++| CWDT EQU BWDT*5+2+2 LAST MODIFICATION DATE/TIME (PACKED) 00332 M01S00314.tfm +++| CWBI EQU BWRI*5+1+2 RANDOM INDEX TO PREVIOUS BLOCK 00333 M01S00315.tfm +++| CWRI EQU BWRI*5+3+2 RANDOM INDEX TO NEXT BLOCK 00334 M01S00316.tfm +++| CWUN EQU BWUN*5+0+2 CATALOG/ADMIT/SYSTEM BLOCK USERNAME 00335 M01S00317.tfm +++| CWMX EQU BWUN*5+3+2 UTILITY MACHINE INDEX (SYSTEM BLOCK) 00336 M01S00318.tfm +++| SPACE 4,10 00337 M01S00319.tfm +++|*** SYSTEM BLOCK LOCATIONS (PP BYTE POSITIONS) 00338 M01S00320.tfm +++| 00339 M01S00321.tfm +++| SBFN EQU TMFM*5+0 FAMILY NAME 00340 M01S00322.tfm +++| SBST EQU TMFM*5+3 CATALOG STATUS 00341 M01S00323.tfm +++| SBID EQU TMID*5+0 MACHINE I.D. 00342 M01S00324.tfm +++| SBHP EQU TMID*5+3 HOLE POINTER 00343 M01S00325.tfm +++| SBTC EQU TMCT*5+1 TRACK COUNT 00344 M01S00326.tfm +++| SBPC EQU TMCT*5+2 SECTOR (PRU) COUNT
| Line S00327 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00345 M02S00327.274l797 ---| SBSV EQU TMSV*5+0 FIRST SCRATCH VOLUME
| Line S00328 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00346 M02S00328.274l797 ---| SBSC EQU TMSV*5+3 SCRATCH COUNT 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 M01S00329.tfm +++| SBLF EQU TMLF*5+0 LINKED FAMILY NAME 00350 M01S00330.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 M01S00331.tfm +++| SPACE 4,10 00356 M01S00332.tfm +++|*** VSN ENTRY LOCATIONS (PP BYTE POSITIONS) 00357 M01S00333.tfm +++| 00358 M01S00334.tfm +++| 00359 M01S00335.tfm +++| VBES EQU VEES*5+0 EXTERNAL VSN 00360 M01S00336.tfm +++| VBCI EQU VEES*5+3 CATALOG RANDOM INDEX 00361 M01S00337.tfm +++| VBVS EQU VEVS*5+0 INTERNAL VSN 00362 M01S00338.tfm +++| VBRC EQU VEVS*5+3 REEL COUNT (UPPER 6 BITS) 00363 M01S00339.tfm +++| VBST EQU VEVS*5+3 VSN STATUS (LOWER 18 BITS) 00364 M01S00340.tfm +++| VBFV EQU VEFV*5+0 FIRST VSN OF SET 00365 M01S00341.tfm +++| VBMX EQU VEFV*5+3 VSN BUSY MACHINE INDEX 00366 M01S00342.tfm +++| VBJS EQU VEFV*5+4 EJT ORDINAL 00367 M01S00343.tfm +++| VBNV EQU VENV*5+0 NEXT VSN OF SET 00368 M01S00344.tfm +++| VBUC EQU VENV*5+3 USAGE COUNTER (UPPER 6 BITS) 00369 M01S00345.tfm +++| VBRD EQU VENV*5+3 RELEASE DATE (LOWER 18 BITS) 00370 M01S00346.tfm +++| SPACE 4,10 00371 M01S00347.tfm +++|*** USERNAME INDEX LOCATIONS (PP BYTE POSITIONS) 00372 M01S00348.tfm +++| 00373 M01S00349.tfm +++| 00374 M01S00350.tfm +++| UBUN EQU 0 USERNAME 00375 M01S00351.tfm +++| UBCI EQU UBUN+3 CATALOG INDEX (18 BITS) 00376 M01S00352.tfm +++| SPACE 4,10 00377 M01S00353.tfm +++|*** CATALOG ENTRY LOCATIONS (PP BYTE POSITIONS) 00378 M01S00354.tfm +++| 00379 M01S00355.tfm +++| CBLI EQU CELI*5+0 FILE NAME (102 BITS) 00380 M01S00356.tfm +++| CBST EQU CEST*5+4 STATUS FLAGS (12 BITS) 00381 M01S00357.tfm +++| CBES EQU CEES*5+0 EXTERNAL SERIAL NUMBER (36 BITS) 00382 M01S00358.tfm +++| CBRC EQU CEES*5+4 REEL COUNT (12 BITS) 00383 M01S00359.tfm +++| CBTD EQU CETD*5+0 TAPE FILE DESCRIPTORS (60 BITS) 00384 M01S00360.tfm +++| CBFN EQU CETD*5+2 TAPE FORMAT AND NOISE SIZE 00385 M01S00361.tfm +++| CBSZ EQU CETD*5+3 BLOCK SIZE (24 BITS) 00386 M01S00362.tfm +++| CBVS EQU CEVS*5+0 VOLUME SERIAL NUMBER (36 BITS) 00387 M01S00363.tfm +++| CBFA EQU CEVS*5+3 FILE ACCESSIBILITY (6 BITS) 00388 M01S00364.tfm +++| CBSN EQU CEVS*5+3 SECTION NUMBER (18 BITS) 00389 M01S00365.tfm +++| CBPI EQU CEPI*5+0 PHYSICAL FILE I.D. (102 BITS) 00390 M01S00366.tfm +++| CBQN EQU CESQ*5+3 FILE SEQUENCE NUMBER (18 BITS) 00391 M01S00367.tfm +++| CBSI EQU CESI*5+0 SET IDENTIFIER (36 BITS) 00392 M01S00368.tfm +++| CBVN EQU CESI*5+3 VERSION NUMBER (9 BITS) 00393 M01S00369.tfm +++| CBGN EQU CESI*5+3 GENERATION NUMBER (15 BITS) 00394 M01S00370.tfm +++| CBLD EQU CERC*5+0 LABEL RETENTION/CREATION DATE (60 BITS) 00395 M01S00371.tfm +++| CBPW EQU CEPW*5+0 PASSWORD (42 BITS) 00396 M01S00372.tfm +++| CBCT EQU CEPW*5+4 CATAGORY TYPE (6 BITS) 00397 M01S00373.tfm +++| CBAM EQU CEPW*5+4 ACCESS MODE (6 BITS) 00398 M01S00374.tfm +++| CBNC EQU CECD*5+0 RANDOM INDEX TO CATALOG 00399 M01S00375.tfm +++| CBCD EQU CECD*5+2 CREATION DATE/TIME (36 BITS) 00400 M01S00376.tfm +++| CBAE EQU CEMD*5+0 RANDOM INDEX TO FIRST ADMIT BLOCK 00401 M01S00377.tfm +++| CBMD EQU CEMD*5+2 MODIFICATION DATE/TIME (36 BITS) 00402 M01S00378.tfm +++| CBAC EQU CEAD*5+0 ACCESS COUNT (24 BITS) 00403 M01S00379.tfm +++| CBAD EQU CEAD*5+2 LAST ACCESS DATE/TIME (36 BITS) 00404 M01S00380.tfm +++| CBUC EQU CEUC*5+0 USER CONTROL WORD (60 BITS) 00405 M01S00381.tfm +++| CBCN EQU CECN*5+0 CHARGE NUMBER (60 BITS) 00406 M01S00382.tfm +++| CBPN EQU CEPN*5+0 PROJECT NUMBER (120 BITS) 00407 M01S00383.tfm +++| SPACE 4,10 00408 M01S00384.tfm +++|*** ADMIT ENTRY LOCATIONS (PP BYTE POSITIONS). 00409 M01S00385.tfm +++| 00410 M01S00386.tfm +++| ABUN EQU AEUN*5+0 ALTERNATE USER NAME (42 BITS) 00411 M01S00387.tfm +++| ABAN EQU AEAC*5+0 ACCESS COUNT (18 BITS) 00412 M01S00388.tfm +++| ABAM EQU AEAC*5+1 ACCESS MODE (6 BITS) 00413 M01S00389.tfm +++| ABDT EQU AEAC*5+2 LAST ACCESS DATE/TIME (36 BITS) 00414 M01S00390.tfm +++| SPACE 4,10 00415 M01S00391.tfm +++|*** TFM EVENT SKELETONS. 00416 M01S00392.tfm +++| 00417 M01S00393.tfm +++| 00418 M01S00394.tfm +++| ESVB EQU /EVT/TVBE VSN BUSY OR WAIT SCRATCH
| Line S00395 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00419 M02S00395.nos252 ---| ESUA EQU /EVT/TTUE TFSP UTILITY ACTIVE 00420 M01S00014.nos252 +++| ESUA EQU /EVT/TUIE TMS UTILITY INTERLOCK 00421 M01S00396.tfm +++| ESMR EQU /EVT/TRME ROLLOUT FOR MAGNET 00422 M01S00397.tfm +++| ESVR EQU /EVT/VSNE VSN RESOURCE 00423 M01S00398.tfm +++| SPACE 4,10 00424 M01S00399.tfm +++|*** BUFFER ALLOCATION. 00425 M01S00400.tfm +++| 00426 M01S00401.tfm +++| 00427 M01S00402.tfm +++| BUF0 EQU BFMS MASS STORAGE I/O BUFFER 00428 M01S00403.tfm +++| BUF1 EQU BUF0-502 MASS STORAGE I/O BUFFER 00429 M01S00404.tfm +++| BUF2 EQU BUF1-502 MASS STORAGE I/O BUFFER 00430 M01S00405.tfm +++| TITLE MACRO/MICRO DEFINITIONS. 00431 M01S00406.tfm +++|* OVERLAY CONTROL. 00432 M01S00407.tfm +++| 00433 M01S00408.tfm +++| 00434 M01S00409.tfm +++| PREFIX MICRO 1,, 5T BASE OVERLAY NAME 00435 M01S00410.tfm +++| .A. SET 0 SCRATCH 00436 M01S00411.tfm +++| .B. SET 0 SCRATCH 00437 M01S00412.tfm +++| .X. SET 0 OVERLAY GENERATION COUNT 00438 M01S00413.tfm +++| .Y. MICRO 1,, TFM GENERATED OVERLAY NAME 00439 M01S00414.tfm +++| .Z. SET 0 FUNCTION TABLE GENERATION 00440 M01S00415.tfm +++| NOREF .A.,.B. 00441 M01S00416.tfm +++| OP= SPACE 4,10 00442 M01S00417.tfm +++|** OP= - CONDITIONALLY GENERATE INSTRUCTION. 00443 M01S00418.tfm +++|* 00444 M01S00419.tfm +++|* OP= P1,P2,P3 00445 M01S00420.tfm +++|* 00446 M01S00421.tfm +++|* ENTRY P1 = ARGUMENT. 00447 M01S00422.tfm +++|* P2 = INSTRUCTION IF ARGUMENT .LT. 100B. 00448 M01S00423.tfm +++|* P3 = INSTRUCTION IF ARGUMENT .GE. 100B. 00449 M01S00424.tfm +++| 00450 M01S00425.tfm +++| 00451 M01S00426.tfm +++| PURGMAC OP= 00452 M01S00427.tfm +++| 00453 M01S00428.tfm +++| OP= MACRO P1,P2,P3 00454 M01S00429.tfm +++| IF DEF,P1,3 00455 M01S00430.tfm +++| IFLT P1,100B 00456 M01S00431.tfm +++| P2 P1 00457 M01S00432.tfm +++| ELSE 00458 M01S00433.tfm +++| P3 P1 00459 M01S00434.tfm +++| ENDIF 00460 M01S00435.tfm +++| ENDM 00461 M01S00436.tfm +++| CLEAR SPACE 4,10 00462 M01S00437.tfm +++|** CLEAR - CLEAR PP MEMORY. 00463 M01S00438.tfm +++|* 00464 M01S00439.tfm +++|* CLEAR P1,P2,P3,P4 00465 M01S00440.tfm +++|* 00466 M01S00441.tfm +++|* ENTRY P1 = STARTING WORD IN PPU TO BE SET TO ZERO. 00467 M01S00442.tfm +++|* P2 = CELL CONTAINING INDEX TO P1. 00468 M01S00443.tfm +++|* P3 = NUMBER OF CHARACTERS (HALF BYTES) TO 00469 M01S00444.tfm +++|* CLEAR. 00470 M01S00445.tfm +++|* P4 = CELL CONTAINING NUMBER OF CHARACTERS TO CLEAR. 00471 M01S00446.tfm +++|* 00472 M01S00447.tfm +++|* CALLS CPM. 00473 M01S00448.tfm +++| 00474 M01S00449.tfm +++| 00475 M01S00450.tfm +++| PURGMAC CLEAR 00476 M01S00451.tfm +++| 00477 M01S00452.tfm +++| CLEAR MACRO P1,P2,P3,P4 00478 M01S00453.tfm +++| MACREF CLEAR 00479 M01S00454.tfm +++| EVAL P1,P2,T1 00480 M01S00455.tfm +++| EVAL P3,P4 00481 M01S00456.tfm +++| RJM CPM 00482 M01S00457.tfm +++| ENDM 00483 M01S00458.tfm +++| CMOVE SPACE 4,15 00484 M01S00459.tfm +++|** CMOVE - COMPARE/MEMORY MOVE. 00485 M01S00460.tfm +++|* 00486 M01S00461.tfm +++|* CMOVE P1,P2,P3,P4,P5,P6 00487 M01S00462.tfm +++|* 00488 M01S00463.tfm +++|* ENTRY P1 = FWA OF MOVE. 00489 M01S00464.tfm +++|* P2 = MODIFIER TO P1. 00490 M01S00465.tfm +++|* P3 = FWA OF DESTINATION. 00491 M01S00466.tfm +++|* P4 = MODIFIER TO P3. 00492 M01S00467.tfm +++|* P5 = MOVE COUNT IN PP BYTES. 00493 M01S00468.tfm +++|* P6 = MOVE COUNT IN PP BYTES, STORED IN MEMORY. 00494 M01S00469.tfm +++|* 00495 M01S00470.tfm +++|* CALLS CMV. 00496 M01S00471.tfm +++| 00497 M01S00472.tfm +++| 00498 M01S00473.tfm +++| PURGMAC CMOVE 00499 M01S00474.tfm +++| 00500 M01S00475.tfm +++| CMOVE MACRO P1,P2,P3,P4,P5,P6 00501 M01S00476.tfm +++| MACREF CMOVE 00502 M01S00477.tfm +++| EVAL P1,P2,T1 00503 M01S00478.tfm +++| EVAL P3,P4,T2 00504 M01S00479.tfm +++| EVAL P5,P6 00505 M01S00480.tfm +++| RJM CMV 00506 M01S00481.tfm +++| CMV$ EQU 1 DEFINE CMV - COMPARE/MOVE PP BYTE STRING 00507 M01S00482.tfm +++| ENDM 00508 M01S00483.tfm +++| COMPARE SPACE 4,10 00509 M01S00484.tfm +++|** COMPARE - COMPARE CHARACTER STRING. 00510 M01S00485.tfm +++|* 00511 M01S00486.tfm +++|* COMPARE P1,P2,P3,P4,P5,P6 00512 M01S00487.tfm +++|* 00513 M01S00488.tfm +++|* ENTRY P1 = ADDRESS OF STRING 1. 00514 M01S00489.tfm +++|* P2 = CELL CONTAINING INDEX. 00515 M01S00490.tfm +++|* P3 = ADDRESS OF STRING 2. 00516 M01S00491.tfm +++|* P4 = STRING 2 MODIFIER. 00517 M01S00492.tfm +++|* P5 = LENGTH OF COMPARE. 00518 M01S00493.tfm +++|* P6 = CELL CONTAINING LENGTH OF COMPARE. 00519 M01S00494.tfm +++| 00520 M01S00495.tfm +++| 00521 M01S00496.tfm +++| PURGMAC COMPARE 00522 M01S00497.tfm +++| 00523 M01S00498.tfm +++| COMPARE MACRO P1,P2,P3,P4,P5,P6 00524 M01S00499.tfm +++| MACREF COMPARE 00525 M01S00500.tfm +++| EVAL P1,P2,T1 00526 M01S00501.tfm +++| EVAL P3,P4,T2 00527 M01S00502.tfm +++| EVAL P5,P6 00528 M01S00503.tfm +++| RJM CCS 00529 M01S00504.tfm +++| ENDM 00530 M01S00505.tfm +++| EMSG SPACE 4,10 00531 M01S00506.tfm +++|** EMSG - GENERATE ERROR MESSAGE. 00532 M01S00507.tfm +++|* 00533 M01S00508.tfm +++|* 00534 M01S00509.tfm +++|* EMSG P1,P2,(P3) 00535 M01S00510.tfm +++|* 00536 M01S00511.tfm +++|* ENTRY (P1) = ERROR MESSAGE TYPE AND PROCESSING DISPOSITION. 00537 M01S00512.tfm +++|* (P2) = CONTROL WORD FOR MESSAGE DESTINATION. 00538 M01S00513.tfm +++|* (P3) = ERROR MESSAGE. 00539 M01S00514.tfm +++| 00540 M01S00515.tfm +++| 00541 M01S00516.tfm +++| PURGMAC EMSG 00542 M01S00517.tfm +++| 00543 M01S00518.tfm +++| MACRO EMSG,P1,P2,P3,P4 00544 M01S00519.tfm +++| MACREF EMSG 00545 M01S00520.tfm +++| IFC EQ,*P2*BEGIN*,3 00546 M01S00521.tfm +++| P1 BSS 0 00547 M01S00522.tfm +++| QUAL P1 00548 M01S00523.tfm +++| SKIP 00549 M01S00524.tfm +++| IFC EQ,*P2*END*,4 00550 M01S00525.tfm +++| QUAL * 00551 M01S00526.tfm +++| LOC *O 00552 M01S00527.tfm +++| P1_L EQU *-P1 00553 M01S00528.tfm +++| SKIP 00554 M01S00529.tfm +++| .A. MICRO 1,,$P4$ 00555 M01S00530.tfm +++| .B. MICCNT .A. 00556 M01S00531.tfm +++| ERRNG 40D-.B. DAYFILE MESSAGE TOO LONG 00557 M01S00532.tfm +++| LOC P1 00558 M01S00533.tfm +++| CON P2,P3,=C$P4$ 00559 M01S00534.tfm +++| ENDIF 00560 M01S00535.tfm +++| ENDM 00561 M01S00536.tfm +++| ENTRY SPACE 4,10 00562 M01S00537.tfm +++|** ENTRY - DEFINE OVERLAY ENTRY POINT. 00563 M01S00538.tfm +++|* 00564 M01S00539.tfm +++|* P1 ENTRY 00565 M01S00540.tfm +++|* 00566 M01S00541.tfm +++|* ENTRY P1 = ENTRY/EXIT POINT FOR ROUTINE. 00567 M01S00542.tfm +++| 00568 M01S00543.tfm +++| 00569 M01S00544.tfm +++| PURGMAC ENTRY 00570 M01S00545.tfm +++| 00571 M01S00546.tfm +++| MACRO ENTRY,P1 00572 M01S00547.tfm +++| MACREF ENTRY 00573 M01S00548.tfm +++| P1_X LJP * 00574 M01S00549.tfm +++| IFEQ .X.,0 00575 M01S00550.tfm +++| P1 EQU *-1 00576 M01S00551.tfm +++| ELSE 00577 M01S00552.tfm +++| IFGT *,PPFW,4 00578 M01S00553.tfm +++| QUAL 00579 M01S00554.tfm +++| .A. MICRO 3,1, ".Y." 00580 M01S00555.tfm +++| P1 EQU 1R".A."*10000+*-1 00581 M01S00556.tfm +++| QUAL ".Y." 00582 M01S00557.tfm +++| ENDIF 00583 M01S00558.tfm +++| ENDM 00584 M01S00559.tfm +++| ERROR SPACE 4,10 00585 M01S00560.tfm +++|** ERROR - CALL ERROR PROCESSOR. 00586 M01S00561.tfm +++|* 00587 M01S00562.tfm +++|* ERROR P1 00588 M01S00563.tfm +++|* 00589 M01S00564.tfm +++|* ENTRY P1 = ERROR CODE MNEMONIC. 00590 M01S00565.tfm +++|* IF P1 IS NOT SPECIFIED, THE ACCUMULATOR ALREADY 00591 M01S00566.tfm +++|* CONTAINS THE ERROR CODE MNEMONIC. 00592 M01S00567.tfm +++|* 00593 M01S00568.tfm +++|* EXIT (A) = ERROR CODE. 00594 M01S00569.tfm +++|* 00595 M01S00570.tfm +++|* CALLS ERR. 00596 M01S00571.tfm +++| 00597 M01S00572.tfm +++| 00598 M01S00573.tfm +++| PURGMAC ERROR 00599 M01S00574.tfm +++| 00600 M01S00575.tfm +++| .ERRJP SET 0 INITIALIZE POINTER TO *RJM ERR* 00601 M01S00576.tfm +++| 00602 M01S00577.tfm +++| ERROR MACRO P1 00603 M01S00578.tfm +++| MACREF ERROR 00604 M01S00579.tfm +++| IFC NE,*P1**,1 00605 M01S00580.tfm +++| OP= /EMSG/P1,LDN,LDC 00606 M01S00581.tfm +++| .1 IFLT *-.ERRJP,40B 00607 M01S00582.tfm +++| UJN .ERRJP GO TO *ERR* CALL 00608 M01S00583.tfm +++| .ERRJP SET *-1 00609 M01S00584.tfm +++| .1 ELSE 00610 M01S00585.tfm +++| .ERRJP SET * 00611 M01S00586.tfm +++| RJM ERR 00612 M01S00587.tfm +++| .1 ENDIF 00613 M01S00588.tfm +++| ENDM 00614 M01S00589.tfm +++| EVAL SPACE 4,10 00615 M01S00590.tfm +++|** EVAL - EVALUATE PARAMETER PAIRS. 00616 M01S00591.tfm +++|* 00617 M01S00592.tfm +++|* EVAL P1,P2,P3 00618 M01S00593.tfm +++|* 00619 M01S00594.tfm +++|* ENTRY P1 = CONSTANT. 00620 M01S00595.tfm +++|* P2 = BASE ADDRESS. 00621 M01S00596.tfm +++|* P3 = ADDRESS RESULT TO BE STORED IN. 00622 M01S00597.tfm +++| 00623 M01S00598.tfm +++| 00624 M01S00599.tfm +++| PURGMAC EVAL 00625 M01S00600.tfm +++| 00626 M01S00601.tfm +++| EVAL MACRO P1,P2,P3 00627 M01S00602.tfm +++| IFC NE,?_P2_??,5 00628 M01S00603.tfm +++| OP= P2,LDD,LDM 00629 M01S00604.tfm +++| IFEQ P1,0,1 00630 M01S00605.tfm +++| SKIP 4 00631 M01S00606.tfm +++| OP= P1,ADN,ADC 00632 M01S00607.tfm +++| SKIP 2 00633 M01S00608.tfm +++| IFC NE,?_P1_??,3 00634 M01S00609.tfm +++| OP= P1,LDN,LDC 00635 M01S00610.tfm +++| IFC NE,?_P3_??,1 00636 M01S00611.tfm +++| OP= P3,STD,STM 00637 M01S00612.tfm +++| ENDM 00638 M01S00613.tfm +++| EXOVL SPACE 4,10 00639 M01S00614.tfm +++|** EXOVL - EXECUTE OVERLAY. 00640 M01S00615.tfm +++|* 00641 M01S00616.tfm +++|* EXOVL P1 00642 M01S00617.tfm +++|* 00643 M01S00618.tfm +++|* ENTRY P1 = PROCESSOR ADDRESS. 00644 M01S00619.tfm +++| 00645 M01S00620.tfm +++| 00646 M01S00621.tfm +++| PURGMAC EXOVL 00647 M01S00622.tfm +++| 00648 M01S00623.tfm +++| .EXOVL SET 0 INITIALIZE POINTER TO NEAREST *EXOVL* 00649 M01S00624.tfm +++| 00650 M01S00625.tfm +++| EXOVL MACRO P1 00651 M01S00626.tfm +++| MACREF EXOVL 00652 M01S00627.tfm +++| LDN P1/10000 00653 M01S00628.tfm +++| STM TFMA 00654 M01S00629.tfm +++| LDC P1-P1/10000*10000 00655 M01S00630.tfm +++| .1 IF DEF,.EXOVLO 00656 M01S00631.tfm +++| .2 IFLT *-.EXOVL,40B 00657 M01S00632.tfm +++| .EX SET .EXOVL 00658 M01S00633.tfm +++| UJN .EX GO LOAD OVERLAY 00659 M01S00634.tfm +++| .EXOVL SET *-1 00660 M01S00635.tfm +++| .2 ELSE 00661 M01S00636.tfm +++| LJM .EXOVLO GO LOAD OVERLAY 00662 M01S00637.tfm +++| .EXOVL SET *-2 00663 M01S00638.tfm +++| .2 ENDIF 00664 M01S00639.tfm +++| .1 ELSE 00665 M01S00640.tfm +++| .EXOVLO EQU * 00666 M01S00641.tfm +++| .EXOVL SET * 00667 M01S00642.tfm +++| STM TFMB 00668 M01S00643.tfm +++| LJM TFMA-1 LOAD OVERLAY 00669 M01S00644.tfm +++| .1 ENDIF 00670 M01S00645.tfm +++| ENDM 00671 M01S00646.tfm +++| EXSUB SPACE 4,10 00672 M01S00647.tfm +++|** EXSUB - EXECUTE SUBROUTINE. 00673 M01S00648.tfm +++|* 00674 M01S00649.tfm +++|* EXSUB P1 00675 M01S00650.tfm +++|* 00676 M01S00651.tfm +++|* ENTRY P1 = SUBROUTINE ADDRESS. 00677 M01S00652.tfm +++| 00678 M01S00653.tfm +++| 00679 M01S00654.tfm +++| PURGMAC EXSUB 00680 M01S00655.tfm +++| 00681 M01S00656.tfm +++| EXSUB MACRO P1 00682 M01S00657.tfm +++| MACREF EXSUB 00683 M01S00658.tfm +++| RJM P1-P1/10000*10000 00684 M01S00659.tfm +++| ENDM 00685 M01S00660.tfm +++| FCN SPACE 4,10 00686 M01S00661.tfm +++|** FCN - DEFINE FUNCTION PROCESSOR. 00687 M01S00662.tfm +++|* 00688 M01S00663.tfm +++|* P1 FCN P2,P3,P4,P5 00689 M01S00664.tfm +++|* 00690 M01S00665.tfm +++|* ENTRY P1 = FUNCTION TABLE NAME. 00691 M01S00666.tfm +++|* *BEGIN* FWA OF A TABLE. 00692 M01S00667.tfm +++|* *END* END OF THE TABLE. 00693 M01S00668.tfm +++|* P2 = FUNCTION CODE. 00694 M01S00669.tfm +++|* P3 = PROCESSOR ADDRESS. 00695 M01S00670.tfm +++|* P4 = CATALOG ACCESS MODE. 00696 M01S00671.tfm +++|* 4XXX = NOT ACCESSING CATALOG. 00697 M01S00672.tfm +++|* 2XXX = NOT CHANGING CONTROL POINTS. 00698 M01S00673.tfm +++|* P5 = MINIMUM FET LENGTH. 00699 M01S00674.tfm +++|* 4XXX = NO BUFFER VALIDATION. 00700 M01S00675.tfm +++| 00701 M01S00676.tfm +++| 00702 M01S00677.tfm +++| PURGMAC FCN 00703 M01S00678.tfm +++| 00704 M01S00679.tfm +++| MACRO FCN,P1,P2,P3,P4,P5 00705 M01S00680.tfm +++| MACREF FCN 00706 M01S00681.tfm +++| IFC EQ,*P2*BEGIN*,3 00707 M01S00682.tfm +++| P1 BSS 0 00708 M01S00683.tfm +++| LOC 0 00709 M01S00684.tfm +++| .1 SKIP 00710 M01S00685.tfm +++| IFC EQ,*P2*END*,3 00711 M01S00686.tfm +++| LOC *O 00712 M01S00687.tfm +++| P1_L EQU *-P1 00713 M01S00688.tfm +++| .1 SKIP 00714 M01S00689.tfm +++| LOC P2 00715 M01S00690.tfm +++| CON P3/10000,P3-P3/10000*10000 00716 M01S00691.tfm +++| .2 IFC NE,*P4** 00717 M01S00692.tfm +++| CON P4 00718 M01S00693.tfm +++| .2 ELSE 00719 M01S00694.tfm +++| CON 0 00720 M01S00695.tfm +++| .2 ENDIF 00721 M01S00696.tfm +++| .3 IFC NE,*P5** 00722 M01S00697.tfm +++| CON P5 00723 M01S00698.tfm +++| .3 ELSE 00724 M01S00699.tfm +++| CON 0 00725 M01S00700.tfm +++| .3 ENDIF 00726 M01S00701.tfm +++| .1 ENDIF 00727 M01S00702.tfm +++| ENDM 00728 M01S00703.tfm +++| LIA SPACE 4,10 00729 M01S00704.tfm +++|** LIA - LOAD INDIRECT ADDRESS TO A REGISTER. 00730 M01S00705.tfm +++|* 00731 M01S00706.tfm +++|* LIA P1,P2 00732 M01S00707.tfm +++|* 00733 M01S00708.tfm +++|* ENTRY P1 = BASE ADDRESS OF OPERAND. 00734 M01S00709.tfm +++|* P2 = ADDRESS OF THE INDEX FOR MODIFYING 00735 M01S00710.tfm +++|* THE BASE ADDRESS OF THE OPERAND. 00736 M01S00711.tfm +++|* 00737 M01S00712.tfm +++|* EXIT (A) = P1 + (P2). 00738 M01S00713.tfm +++| 00739 M01S00714.tfm +++| 00740 M01S00715.tfm +++| PURGMAC LIA 00741 M01S00716.tfm +++| 00742 M01S00717.tfm +++| LIA MACRO P1,P2 00743 M01S00718.tfm +++| MACREF LIA 00744 M01S00719.tfm +++| EVAL P1,P2 00745 M01S00720.tfm +++| ENDM 00746 M01S00721.tfm +++| LDA SPACE 4,11 00747 M01S00722.tfm +++|** LDA - LOAD ABSOLUTE/RELATIVE ADDRESS. 00748 M01S00723.tfm +++|* 00749 M01S00724.tfm +++|* LDA P1,P2 00750 M01S00725.tfm +++|* 00751 M01S00726.tfm +++|* ENTRY P1 = TWO CELLS WITH ADDRESS 00752 M01S00727.tfm +++|* P2 = CELL CONTAINING BIAS. 00753 M01S00728.tfm +++|* = *ABS* IF ADDRESS IS ABSOLUTE. 00754 M01S00729.tfm +++|* *REL* IF ADDRESS IS RELATIVE 00755 M01S00730.tfm +++|* TO CONTROL POINT. 00756 M01S00731.tfm +++|* 00757 M01S00732.tfm +++|* EXIT (A) = (P1+(P2))+(P1+1+(P2)). 00758 M01S00733.tfm +++|* (A) = (P1)*4096+(P1+1) IF P2 = *ABS* 00759 M01S00734.tfm +++|* (A) = (P1)*4096+(RA)*64+(P1+1) IF P2 = *REL*. 00760 M01S00735.tfm +++| 00761 M01S00736.tfm +++| PURGMAC LDA 00762 M01S00737.tfm +++| 00763 M01S00738.tfm +++| LDA MACRO P1,P2 00764 M01S00739.tfm +++| MACREF LDA 00765 M01S00740.tfm +++| IFC EQ,*P2*REL*,7 00766 M01S00741.tfm +++| OP= P1,LDD,LDM 00767 M01S00742.tfm +++| LPN 77 00768 M01S00743.tfm +++| SHN 6 00769 M01S00744.tfm +++| ADD RA 00770 M01S00745.tfm +++| SHN 6 00771 M01S00746.tfm +++| OP= P1+1,ADD,ADM 00772 M01S00747.tfm +++| SKIP 10 00773 M01S00748.tfm +++| IFC EQ,*P2*ABS*,5 00774 M01S00749.tfm +++| OP= P1,LDD,LDM 00775 M01S00750.tfm +++| LPN 77 00776 M01S00751.tfm +++| SHN 14 00777 M01S00752.tfm +++| OP= P1+1,LMD,LMM 00778 M01S00753.tfm +++| SKIP 4 00779 M01S00754.tfm +++| LDM P1,P2 00780 M01S00755.tfm +++| LPN 77 00781 M01S00756.tfm +++| SHN 14 00782 M01S00757.tfm +++| LMM P1+1,P2 00783 M01S00758.tfm +++| ENDM 00784 M01S00759.tfm +++| MMOVE SPACE 4,10 00785 M01S00760.tfm +++|** MMOVE - MEMORY MOVE. 00786 M01S00761.tfm +++|* 00787 M01S00762.tfm +++|* MMOVE P1,P2,P3,P4,P5,P6 00788 M01S00763.tfm +++|* 00789 M01S00764.tfm +++|* ENTRY P1 = FWA OF MOVE. 00790 M01S00765.tfm +++|* P2 = MODIFIER TO P1. 00791 M01S00766.tfm +++|* P3 = FWA OF DESTINATION. 00792 M01S00767.tfm +++|* P4 = MODIFIER TO P3. 00793 M01S00768.tfm +++|* P5 = MOVE COUNT IN HALF BYTES. 00794 M01S00769.tfm +++|* P6 = MOVE COUNT IN HALF BYTES, STORED IN MEMORY. 00795 M01S00770.tfm +++|* 00796 M01S00771.tfm +++|* CALLS MPM. 00797 M01S00772.tfm +++| 00798 M01S00773.tfm +++| 00799 M01S00774.tfm +++| PURGMAC MMOVE 00800 M01S00775.tfm +++| 00801 M01S00776.tfm +++| MMOVE MACRO P1,P2,P3,P4,P5,P6 00802 M01S00777.tfm +++| MACREF MMOVE 00803 M01S00778.tfm +++| EVAL P1,P2,T1 00804 M01S00779.tfm +++| EVAL P3,P4,T2 00805 M01S00780.tfm +++| EVAL P5,P6 00806 M01S00781.tfm +++| RJM MPM 00807 M01S00782.tfm +++| ENDM 00808 M01S00783.tfm +++| MULT3 SPACE 4,10 00809 M01S00784.tfm +++|** MULT3 - MULTIPLY BY 3. 00810 M01S00785.tfm +++|* 00811 M01S00786.tfm +++|* MULT3 P1 00812 M01S00787.tfm +++|* 00813 M01S00788.tfm +++|* ENTRY (P1) = DIRECT CELL CONTAINING VALUE TO 00814 M01S00789.tfm +++|* MULTIPLIED BY 3. 00815 M01S00790.tfm +++|* 00816 M01S00791.tfm +++|* EXIT (A) = SPECIFIED VALUE MULTIPLIED BY 3. 00817 M01S00792.tfm +++| 00818 M01S00793.tfm +++| 00819 M01S00794.tfm +++| PURGMAC MULT3 00820 M01S00795.tfm +++| 00821 M01S00796.tfm +++| MULT3 MACRO P1 00822 M01S00797.tfm +++| MACREF MULT3 00823 M01S00798.tfm +++| LDD P1 00824 M01S00799.tfm +++| SHN 1 *2 00825 M01S00800.tfm +++| ADD P1 *3 00826 M01S00801.tfm +++| ENDM 00827 M01S00802.tfm +++| MULT4 SPACE 4,10 00828 M01S00803.tfm +++|** MULT4 - MULTIPLY BY 4. 00829 M01S00804.tfm +++|* 00830 M01S00805.tfm +++|* MULT4 00831 M01S00806.tfm +++|* 00832 M01S00807.tfm +++|* ENTRY (A) = VALUE TO BE MULTIPLIED BY 4. 00833 M01S00808.tfm +++|* 00834 M01S00809.tfm +++|* EXIT (A) = (T1) = SPECIFIED VALUE MULTIPLIED BY 4. 00835 M01S00810.tfm +++|* 00836 M01S00811.tfm +++|* USES T1. 00837 M01S00812.tfm +++| 00838 M01S00813.tfm +++| 00839 M01S00814.tfm +++| PURGMAC MULT4 00840 M01S00815.tfm +++| 00841 M01S00816.tfm +++| MULT4 MACRO 00842 M01S00817.tfm +++| MACREF MULT4 00843 M01S00818.tfm +++| SHN 2 *4 00844 M01S00819.tfm +++| STD T1 00845 M01S00820.tfm +++| ENDM 00846 M01S00821.tfm +++| OVERLAY SPACE 4,10 00847 M01S00822.tfm +++|** OVERLAY - GENERATE OVERLAY CONSTANTS. 00848 M01S00823.tfm +++|* 00849 M01S00824.tfm +++|* OVERLAY (P1),P2 00850 M01S00825.tfm +++|* 00851 M01S00826.tfm +++|* ENTRY P1 = ENTRY OF SUBTITLE. 00852 M01S00827.tfm +++|* P2 = SPECIFIES LOAD ADDRESS. 00853 M01S00828.tfm +++| 00854 M01S00829.tfm +++| 00855 M01S00830.tfm +++| PURGMAC OVERLAY 00856 M01S00831.tfm +++| 00857 M01S00832.tfm +++| OVERLAY MACRO P1,P2 00858 M01S00833.tfm +++| MACREF OVERLAY 00859 M01S00834.tfm +++| QUAL 00860 M01S00835.tfm +++| .X. SET .X.+1 00861 M01S00836.tfm +++| .A. MICRO .X.,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ 00862 M01S00837.tfm +++| .Y. MICRO 1,3, "PREFIX"".A." 00863 M01S00838.tfm +++| QUAL ".Y."
| Line S00839 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00864 M02S00839.274l797 ---| TITLE ".Y." - P1 00865 M01S00008.274l797 +++| TTL TFM/".Y." - P1 00866 M01S00009.274l797 +++| TITLE 00867 M01S00840.tfm +++| IDENT ".Y.",P2+5 P1 00868 M01S00841.tfm +++|*COMMENT TFM - P1 00869 M01S00842.tfm +++| ORG P2+5 00870 M01S00843.tfm +++| .ERRJP SET 0 RESET POINTER TO *RJM ERR* 00871 M01S00844.tfm +++| .EXOVL SET 0 INITIALIZE POINTER TO NEAREST *EXOVL* 00872 M01S00845.tfm +++| LJM * 00873 M01S00846.tfm +++| UJN *-2 00874 M01S00847.tfm +++| ENDM 00875 M01S00848.tfm +++| SAVEP SPACE 4,10 00876 M01S00849.tfm +++|** SAVEP - SAVE CATALOG POINTERS. 00877 M01S00850.tfm +++|* 00878 M01S00851.tfm +++|* SAVEP P1 00879 M01S00852.tfm +++|* 00880 M01S00853.tfm +++|* ENTRY P1 = FWA OF FIVE CONSECUTIVE WORDS 00881 M01S00854.tfm +++|* TO STORE CELLS (BA - BA+4). 00882 M01S00855.tfm +++| 00883 M01S00856.tfm +++| 00884 M01S00857.tfm +++| PURGMAC SAVEP 00885 M01S00858.tfm +++| 00886 M01S00859.tfm +++| SAVEP MACRO P1 00887 M01S00860.tfm +++| MACREF SAVEP 00888 M01S00861.tfm +++| LDD MA 00889 M01S00862.tfm +++| CWD BA 00890 M01S00863.tfm +++| .1 IF DEF,P1 00891 M01S00864.tfm +++| .2 IFLT P1,100B 00892 M01S00865.tfm +++| CRD P1 00893 M01S00866.tfm +++| .2 ELSE 00894 M01S00867.tfm +++| CRM P1,ON 00895 M01S00868.tfm +++| .2 ENDIF 00896 M01S00869.tfm +++| .1 ELSE 00897 M01S00870.tfm +++| CRM P1,ON 00898 M01S00871.tfm +++| .1 ENDIF 00899 M01S00872.tfm +++| ENDM 00900 M01S00873.tfm +++| RESTP SPACE 4,10 00901 M01S00874.tfm +++|** RESTP - RESTORE CATALOG POINTERS. 00902 M01S00875.tfm +++|* 00903 M01S00876.tfm +++|* RESTP P1 00904 M01S00877.tfm +++|* 00905 M01S00878.tfm +++|* ENTRY P1 = FWA OF FIVE CONSECUTIVE BYTES 00906 M01S00879.tfm +++|* TO BE RETURNED TO CELLS BA - BA+4. 00907 M01S00880.tfm +++| 00908 M01S00881.tfm +++| 00909 M01S00882.tfm +++| PURGMAC RESTP 00910 M01S00883.tfm +++| RESTP MACRO P1 00911 M01S00884.tfm +++| MACREF RESTP 00912 M01S00885.tfm +++| LDD MA 00913 M01S00886.tfm +++| .1 IF DEF,P1 00914 M01S00887.tfm +++| .2 IFLT P1,100B 00915 M01S00888.tfm +++| CWD P1 00916 M01S00889.tfm +++| .2 ELSE 00917 M01S00890.tfm +++| CWM P1,ON 00918 M01S00891.tfm +++| SBN 1 00919 M01S00892.tfm +++| .2 ENDIF 00920 M01S00893.tfm +++| .1 ELSE 00921 M01S00894.tfm +++| CWM P1,ON 00922 M01S00895.tfm +++| SBN 1 00923 M01S00896.tfm +++| .1 ENDIF 00924 M01S00897.tfm +++| CRD BA 00925 M01S00898.tfm +++| ENDM 00926 M01S00899.tfm +++| UDTRD SPACE 4,10 00927 M01S00900.tfm +++|** UDTRD - READ UDT WORD(S). 00928 M01S00901.tfm +++|* 00929 M01S00902.tfm +++|* UDTRD P1,P2,P3 00930 M01S00903.tfm +++|* 00931 M01S00904.tfm +++|* ENTRY P1 = ADDRESS OF RECEIVING BUFFER 00932 M01S00905.tfm +++|* P2 = FIRST UDT WORD TO READ. 00933 M01S00906.tfm +++|* P3 = NUMBER OF WORDS TO READ. 00934 M01S00907.tfm +++|* 00935 M01S00908.tfm +++|* CALLS UDT. 00936 M01S00909.tfm +++| 00937 M01S00910.tfm +++| 00938 M01S00911.tfm +++| PURGMAC UDTRD 00939 M01S00912.tfm +++| 00940 M01S00913.tfm +++| UDTRD MACRO P1,P2,P3 00941 M01S00914.tfm +++| MACREF UDTRD 00942 M01S00915.tfm +++| IFC NE,*P1*T1*,2 00943 M01S00916.tfm +++| OP= P1,LDN,LDC 00944 M01S00917.tfm +++| STD T1 00945 M01S00918.tfm +++| LDC P3*10000+P2 00946 M01S00919.tfm +++| RJM UDT 00947 M01S00920.tfm +++| UDT$ EQU 1 DEFINE UDT - READ/WRITE UDT ENTRY. 00948 M01S00921.tfm +++| ENDM 00949 M01S00922.tfm +++| UDTWT SPACE 4,10 00950 M01S00923.tfm +++|** UDTWT - WRITE UDT WORD(S). 00951 M01S00924.tfm +++|* 00952 M01S00925.tfm +++|* UDTWT P1,P2,P3 00953 M01S00926.tfm +++|* 00954 M01S00927.tfm +++|* ENTRY P1 = ADDRESS OF SENDING BUFFER. 00955 M01S00928.tfm +++|* P2 = FIRST UDT WORD TO WRITE. 00956 M01S00929.tfm +++|* P3 = NUMBER OF WORDS TO WRITE. 00957 M01S00930.tfm +++|* 00958 M01S00931.tfm +++|* CALLS UDT. 00959 M01S00932.tfm +++| 00960 M01S00933.tfm +++| 00961 M01S00934.tfm +++| PURGMAC UDTWT 00962 M01S00935.tfm +++| 00963 M01S00936.tfm +++| UDTWT MACRO P1,P2,P3 00964 M01S00937.tfm +++| MACREF UDTWT 00965 M01S00938.tfm +++| IFC NE,*P1*T1*,2 00966 M01S00939.tfm +++| OP= P1,LDN,LDC 00967 M01S00940.tfm +++| STD T1 00968 M01S00941.tfm +++| LDC P3*10000+100000+P2 00969 M01S00942.tfm +++| RJM UDT 00970 M01S00943.tfm +++| UDT$ EQU 1 DEFINE UDT - READ/WRITE UDT ENTRY. 00971 M01S00944.tfm +++| ENDM 00972 M01S00945.tfm +++| TITLE GLOBAL DIRECT CELL LOCATIONS. 00973 M01S00946.tfm +++|*** GLOBAL DIRECT LOCATION ASSIGNMENTS. 00974 M01S00947.tfm +++|* 00975 M01S00948.tfm +++|* THE FOLLOWING DIRECT CELLS ARE DEFINED AND 00976 M01S00949.tfm +++|* USED BY ALL OVERLAYS IN TFM, AND AS SUCH ARE 00977 M01S00950.tfm +++|* INVIOLATE. IN MANY CASES THEY ARE ORDER 00978 M01S00951.tfm +++|* DEPENDENT SO CARE MUST BE USED IF CHANGES 00979 M01S00952.tfm +++|* ARE REQUIRED. 00980 M01S00953.tfm +++|* 00981 M01S00954.tfm +++|* S1, S2, AND S3 ARE DEFINED AS SCRATCH, THAT 00982 M01S00955.tfm +++|* IS THEY CAN AND ARE REDEFINED AND USED BY 00983 M01S00956.tfm +++|* PRESET AND ANY OVERLAY AS REQUIRED. ALL OF 00984 M01S00957.tfm +++|* THE REMAINING DIRECT CELLS ARE USED FOR 00985 M01S00958.tfm +++|* SPECIFIC PURPOSES BY OVERLAYS AND TFM COMMON 00986 M01S00959.tfm +++|* SUBROUTINES. 00987 M01S00960.tfm +++| 00988 M01S00961.tfm +++| 00989 M01S00962.tfm +++| S1 EQU 16 - 22 SCRATCH (5 LOCATIONS) 00990 M01S00963.tfm +++| S2 EQU 23 - 27 SCRATCH (5 LOCATIONS) 00991 M01S00964.tfm +++| S3 EQU 30 - 34 SCRATCH (5 LOCATIONS) 00992 M01S00965.tfm +++| FN EQU 35 - 41 FNT ENTRY (5 LOCATIONS) 00993 M01S00966.tfm +++| FS EQU 42 - 46 FST ENTRY (5 LOCATIONS) 00994 M01S00967.tfm +++| EQ EQU FS EQUIPMENT (FS+0) 00995 M01S00968.tfm +++| TK EQU FS+1 TRACK (FS+1) 00996 M01S00969.tfm +++| SC EQU FS+2 SECTOR (FS+2) 00997 M01S00970.tfm +++| FO EQU 47 FNT ORDINAL 00998 M01S00971.tfm +++| FC EQU IR+2 FUNCTION CODE (REDEFINES IR+2)
| Line S00972 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00999 M02S00972.282l826 ---| MC EQU 57 MAGNETS CONTROL POINT NUMBER 01000 M01S00973.tfm +++| BA EQU 60 BUFFER ADDRESS 01001 M01S00974.tfm +++| BP EQU 61 BUFFER POINTER 01002 M01S00975.tfm +++| CI EQU 62 CATALOG INDEX 01003 M01S00976.tfm +++| RI EQU 63 - 64 RANDOM INDEX (2 LOCATIONS) 01004 M01S00977.tfm +++| PB EQU 65 PARAMETER BLOCK ADDRESS 01005 M01S00978.tfm +++| KA EQU 66 KEY ADDRESS 01006 M01S00979.tfm +++| KL EQU 67 KEY LENGTH 01007 M01S00980.tfm +++| EC EQU KL ERROR CODE (REDEFINES KL) 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 M01S00981.tfm +++| TITLE MAIN PROGRAM. 01092 M01S00982.tfm +++| ORG PPFW 01093 M01S00983.tfm +++| SPACE 4 01094 M01S00984.tfm +++|** TFM - MAIN PROGRAM. 01095 M01S00985.tfm +++|* 01096 M01S00986.tfm +++|* THE TFM MAIN LOOP IS THE ONLY ENTRY AND 01097 M01S00987.tfm +++|* EXIT POINT IN TFM. FROM HERE ALL OVERLAYS 01098 M01S00988.tfm +++|* ARE LOADED AND EXECUTED VIA A RETURN JUMP. 01099 M01S00989.tfm +++|* 01100 M01S00990.tfm +++|* ENTRY (TFMC) = 6/ MASS STORAGE ERROR FLAGS,12/ ACCESS FLAGS. 01101 M01S00991.tfm +++|* ACCESS FLAGS = 1/ NA,1/ NC,4/ 0,6/ MD. 01102 M01S00992.tfm +++|* NA = NOT ACCESSING CATALOG. 01103 M01S00993.tfm +++|* NC = NO CONTROL POINT CHANGE. 01104 M01S00994.tfm +++|* MD = FAST ATTACH FILE ACCESS MODE. 01105 M01S00995.tfm +++|* = /PFM/PTLM IF LOCAL FILE MODE. 01106 M01S00996.tfm +++|* 01107 M01S00997.tfm +++|* EXIT CATALOG FILE RETURNED IF FAST ATTACH MODE. 01108 M01S00998.tfm +++|* FST SET COMPLETE IF LOCAL FILE MODE. 01109 M01S00999.tfm +++|* FET OR UDT SET COMPLETE. 01110 M01S01000.tfm +++|* 01111 M01S01001.tfm +++|* USES CM - CM+4. 01112 M01S01002.tfm +++|* 01113 M01S01003.tfm +++|* CALLS PLL, PPR, PRS, TFM SUBFUNCTION 01114 M01S01004.tfm +++|* PROCESSORS. 01115 M01S01005.tfm +++|* 01116 M01S01006.tfm +++|* MACROS LDA, MONITOR, UDTRD, UDTWT. 01117 M01S01007.tfm +++| 01118 M01S01008.tfm +++| 01119 M01S01009.tfm +++| 01120 M01S01010.tfm +++| TFM BSS 0 TFM MAIN ENTRY POINT 01121 M01S01011.tfm +++| RJM /PRESET/PRS PRESET PROGRAM 01122 M01S01012.tfm +++| LDC ** SET OVERLAY NAME 01123 M01S01013.tfm +++| TFMA EQU *-1 (OVERLAY NAME) 01124 M01S01014.tfm +++| ZJN TFM1 IF NO OVERLAY REQUIRED 01125 M01S01015.tfm +++| LMC 2L"PREFIX" LOAD OVERLAY 01126 M01S01016.tfm +++| RJM EXR 01127 M01S01017.tfm +++| TFM1 RJM ** EXECUTE PROCESSOR 01128 M01S01018.tfm +++| TFMB EQU *-1 (PROCESSOR ADDRESS) 01129 M01S01019.tfm +++| LDC ** GET CATALOG ACCESS MODE 01130 M01S01020.tfm +++| TFMC EQU *-1 (MASS STORAGE ERROR FLAG/MODE FLAGS) 01131 M01S01021.tfm +++| PJN TFM2 IF NOT MASS STORAGE ERROR 01132 M01S01022.tfm +++| LDC LDCI+0 CLEAR MASS STORAGE ERROR FLAG 01133 M01S01023.tfm +++| STM TFMC-1 01134 M01S01024.tfm +++| LDD FO 01135 M01S01025.tfm +++| RJM AFA GET ABSOLUTE FST ADDRESS 01136 M01S01026.tfm +++| CRD FS 01137 M01S01027.tfm +++| SBN 1 01138 M01S01028.tfm +++| CRD FN 01139 M01S01029.tfm +++| ERROR MSE *EQXX, DNYY, MASS STORAGE ERROR.* 01140 M01S01030.tfm +++| 01141 M01S01031.tfm +++| TFM2 LPN 77 01142 M01S01032.tfm +++| LMN /PFM/PTLM 01143 M01S01033.tfm +++| NJN TFM3 IF NOT LOCAL FILE MODE 01144 M01S01034.tfm +++| LDD FO 01145 M01S01035.tfm +++| ZJN TFM4 IF NO CATALOG FILE 01146 M01S01036.tfm +++| RJM AFA READ LOCAL FST ENTRY 01147 M01S01037.tfm +++| CRD FS 01148 M01S01038.tfm +++| AOD FS+4 SET FST COMPLETE 01149 M01S01039.tfm +++| LDD FO WRITE FST ENTRY 01150 M01S01040.tfm +++| RJM AFA 01151 M01S01041.tfm +++| CWD FS 01152 M01S01042.tfm +++| UJN TFM4 SET FET COMPLETE 01153 M01S01043.tfm +++| 01154 M01S01044.tfm +++| TFM3 LMN /PFM/PTLM SET ACCESS MODE 01155 M01S01045.tfm +++| STD T2 01156 M01S01046.tfm +++| LDD FO SET FNT ORDINAL 01157 M01S01047.tfm +++| ZJN TFM4 IF CATALOG NOT ATTACHED 01158 M01S01048.tfm +++| STD T1 01159 M01S01049.tfm +++| LDN RFAS SET RETURN FILE 01160 M01S01050.tfm +++| RJM ARF RETURN FAST ATTACH CATALOG 01161 M01S01051.tfm +++| TFM4 LDD FC 01162 M01S01052.tfm +++| LMN MAGF 01163 M01S01053.tfm +++| ZJN TFM6 IF CALLED BY *MAGNET* 01164 M01S01054.tfm +++| LDA IR+3,REL SET FET COMPLETE 01165 M01S01055.tfm +++| CRD CM 01166 M01S01056.tfm +++| LDD CM+4 01167 M01S01057.tfm +++| SCN 1 01168 M01S01058.tfm +++| LMN 1 01169 M01S01059.tfm +++| STD CM+4 01170 M01S01060.tfm +++| LDA IR+3,REL 01171 M01S01061.tfm +++| CWD CM 01172 M01S01062.tfm +++| TFM5 MONITOR DPPM DROP PP 01173 M01S01063.tfm +++| LJM PPR EXIT TO PP RESIDENT 01174 M01S01064.tfm +++| 01175 M01S01065.tfm +++| TFM6 EXOVL CTC COMPLETE *TFM* CALL BY *MAGNET* 01176 M01S01066.tfm +++|* UJN DPP EXIT PATH FROM *CTC* 01177 M01S01067.tfm +++| TITLE TFM RESIDENT SUBROUTINES. 01178 M01S01068.tfm +++| AFA SPACE 4,10 01179 M01S01069.tfm +++|** AFA - GET ABSOLUTE FST ADDRESS. 01180 M01S01070.tfm +++|* 01181 M01S01071.tfm +++|* ENTRY (A) = FNT ORDINAL IF SYSTEM FILE. 01182 M01S01072.tfm +++|* 01183 M01S01073.tfm +++|* EXIT (A) = ABSOLUTE FNT ADDRESS. 01184 M01S01074.tfm +++|* 01185 M01S01075.tfm +++|* MACROS CFI, NFA. 01186 M01S01076.tfm +++| 01187 M01S01077.tfm +++| 01188 M01S01078.tfm +++| AFA SUBR ENTRY/EXIT 01189 M01S01079.tfm +++| AFAA BSS 0 01190 M01S01080.tfm +++|* CFI FNT GET FST ADDRESS FOR SYSTEM FILE 01191 M01S01081.tfm +++|*AFAB ADC ** 01192 M01S01082.tfm +++|* ADN FSTG 01193 M01S01083.tfm +++| NFA FO,R GET FST ADDRESS FOR LOCAL FILE 01194 M01S01084.tfm +++| ADN FSTL 01195 M01S01085.tfm +++| AFAAL EQU *-AFAA ROUTINE LENGTH 01196 M01S01086.tfm +++| UJN AFAX RETURN 01197 M01S01087.tfm +++| ARF SPACE 4,10 01198 M01S01088.tfm +++|** ARF - ATTACH/RETURN FAST ATTACH FILE. 01199 M01S01089.tfm +++|* 01200 M01S01090.tfm +++|* ENTRY (A) = AFAS IF ATTACH FILE. 01201 M01S01091.tfm +++|* = RFAS IF RETURN FILE. 01202 M01S01092.tfm +++|* (T1) = SYSTEM FNT ORDINAL. 01203 M01S01093.tfm +++|* (T2) = ACCESS MODE. 01204 M01S01094.tfm +++|* 01205 M01S01095.tfm +++|* EXIT (A) = 0. 01206 M01S01096.tfm +++|* (T1) = FNT ORDINAL. 01207 M01S01097.tfm +++|* (T2) = ACCESS MODE. 01208 M01S01098.tfm +++|* 01209 M01S01099.tfm +++|* USES T1, T2, T3, CM - CM+4. 01210 M01S01100.tfm +++|* 01211 M01S01101.tfm +++|* CALLS AFA. 01212 M01S01102.tfm +++|* 01213 M01S01103.tfm +++|* MACROS DELAY, MONITOR, PAUSE. 01214 M01S01104.tfm +++| 01215 M01S01105.tfm +++| 01216 M01S01106.tfm +++| ARF SUBR ENTRY/EXIT 01217 M01S01107.tfm +++| STD T3 SAVE SUBFUNCTION 01218 M01S01108.tfm +++| ARF1 LDD T1 SET FNT ORDINAL 01219 M01S01109.tfm +++| STD CM+4 01220 M01S01110.tfm +++| RJM AFA READ FST ENTRY 01221 M01S01111.tfm +++| CRD FS 01222 M01S01112.tfm +++| SBN FSTG-FNTG READ FNT ENTRY 01223 M01S01113.tfm +++| CRD FN 01224 M01S01114.tfm +++| LDD FN+3 CHECK FAT/MACHINE INDEX 01225 M01S01115.tfm +++| LPN 77 01226 M01S01116.tfm +++| ZJN ARF2 IF NOT GLOBAL FAST ATTACH FILE 01227 M01S01117.tfm +++| LDD FS SET GLOBAL FAST ATTACH EST ORDINAL 01228 M01S01118.tfm +++| ARF2 STD CM+1 SET GLOBAL FILE FLAG 01229 M01S01119.tfm +++| LDD T2 SET MODE 01230 M01S01120.tfm +++| STD CM+2 01231 M01S01121.tfm +++| LDD T3 01232 M01S01122.tfm +++| STD CM+3 01233 M01S01123.tfm +++| MONITOR AFAM ATTACH OR RELEASE FILE 01234 M01S01124.tfm +++| LDD CM+1 01235 M01S01125.tfm +++| ZJN ARFX IF FUNCTION COMPLETE
| Line S01126 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | tfm2 |
Seq # *Modification Id* Act ----------------------------+ 01236 M02S01126.tfm2 ---| DELAY 01237 M01S00001.tfm2 +++| LDC 1400 PRESET DELAY 01238 M01S00002.tfm2 +++| STM T0 01239 M01S00003.tfm2 +++| ARF3 DELAY 01240 M01S01127.tfm +++|* LDN 0 RESET I/O PAUSE COUNTER 01241 M01S01128.tfm +++| STM PFRA 01242 M01S01129.tfm +++| RJM PFR PAUSE FOR RELOCATION 01243 M01S00004.tfm2 +++| SOD T0 01244 M01S00005.tfm2 +++| PJN ARF3 IF MORE DELAY NEEDED 01245 M01S01130.tfm +++| UJP ARF1 REISSUE FUNCTION 01246 M01S01131.tfm +++| CCS SPACE 4,10 01247 M01S01132.tfm +++|** CCS - COMPARE CHARACTER STRING. 01248 M01S01133.tfm +++|* 01249 M01S01134.tfm +++|* ENTRY (A) = COMPARE LENGTH IN CHARACTERS. 01250 M01S01135.tfm +++|* (T1) = SOURCE ADDRESS FOR COMPARE. 01251 M01S01136.tfm +++|* (T2) = OBJECT ADDRESS FOR COMPARE. 01252 M01S01137.tfm +++|* 01253 M01S01138.tfm +++|* EXIT (A) = 0 IF NAME(T1) = NAME(T2). 01254 M01S01139.tfm +++|* (A) .LT. 0 IF NAME(T1) .LT. NAME(T2). 01255 M01S01140.tfm +++|* (A) .GT. 0 IF NAME(T1) .GT. NAME(T2). 01256 M01S01141.tfm +++|* 01257 M01S01142.tfm +++|* USES T0 - T2. 01258 M01S01143.tfm +++| 01259 M01S01144.tfm +++| 01260 M01S01145.tfm +++| CCS2 LDI T1 COMPARE BYTES 01261 M01S01146.tfm +++| SBI T2 01262 M01S01147.tfm +++| NJN CCSX IF BYTE(T1) .NE. BYTE(T2) 01263 M01S01148.tfm +++| AOD T1 INCREMENT TO NEXT BYTE 01264 M01S01149.tfm +++| AOD T2 01265 M01S01150.tfm +++| SOD T0 DECREMENT CHARACTER COUNT 01266 M01S01151.tfm +++| SOD T0 01267 M01S01152.tfm +++| NJN CCS1 IF NAME(T1) .NE. NAME(T2) 01268 M01S01153.tfm +++| 01269 M01S01154.tfm +++| CCS SUBR ENTRY/EXIT 01270 M01S01155.tfm +++| STD T0 SAVE CHARACTER COUNT 01271 M01S01156.tfm +++| CCS1 SBN 1 CHECK FOR ODD COUNT 01272 M01S01157.tfm +++| NJN CCS2 IF NOT ODD CHARACTER COUNT 01273 M01S01158.tfm +++| LDI T1 CHECK TRAILING CHARACTER 01274 M01S01159.tfm +++| SCN 77 01275 M01S01160.tfm +++| LMN 77 01276 M01S01161.tfm +++| SBI T2 01277 M01S01162.tfm +++| SCN 77 01278 M01S01163.tfm +++| UJN CCSX RETURN 01279 M01S01164.tfm +++| CME SPACE 4,10 01280 M01S01165.tfm +++|** CME - CHECK FOR MASS STORAGE ERROR. 01281 M01S01166.tfm +++|* 01282 M01S01167.tfm +++|* ENTRY (A) = MASS STORAGE ERROR, IF PRESENT. 01283 M01S01168.tfm +++|* 01284 M01S01169.tfm +++|* EXIT MASS STORAGE ERROR FLAG HAS BEEN SET IF PRESENT. 01285 M01S01170.tfm +++|* 01286 M01S01171.tfm +++|* CALLS PFR. 01287 M01S01172.tfm +++|* 01288 M01S01173.tfm +++|* MACROS ENDMS. 01289 M01S01174.tfm +++| 01290 M01S01175.tfm +++| 01291 M01S01176.tfm +++| CME SUBR ENTRY/EXIT 01292 M01S01177.tfm +++| PJN CME1 IF NO MASS STORAGE ERROR 01293 M01S01178.tfm +++| LDC LDCI+40 SET MASS STORAGE ERROR FLAG 01294 M01S01179.tfm +++| STM TFMC-1 01295 M01S01180.tfm +++| CME1 ENDMS RELEASE CHANNEL RESERVE 01296 M01S01181.tfm +++| RJM PFR PAUSE FOR RELOCATION 01297 M01S01182.tfm +++| UJN CMEX RETURN 01298 M01S01183.tfm +++| CPM SPACE 4,10 01299 M01S01184.tfm +++|** CPM - CLEAR CONSECUTIVE PP MEMORY. 01300 M01S01185.tfm +++|* 01301 M01S01186.tfm +++|* ENTRY (A) = HALF BYTE COUNT. 01302 M01S01187.tfm +++|* (T1) = FWA OF AREA TO CLEAR. 01303 M01S01188.tfm +++|* 01304 M01S01189.tfm +++|* EXIT (A) = 0. 01305 M01S01190.tfm +++|* AREA FROM (A) TO ((A)+(T1)) SET TO ZERO. 01306 M01S01191.tfm +++|* 01307 M01S01192.tfm +++|* USES T0, T1. 01308 M01S01193.tfm +++| 01309 M01S01194.tfm +++| 01310 M01S01195.tfm +++| CPM2 LDN 0 CLEAR ONE WORD 01311 M01S01196.tfm +++| STI T1 01312 M01S01197.tfm +++| AOD T1 01313 M01S01198.tfm +++| SOD T0 01314 M01S01199.tfm +++| CPM3 SOD T0 CHECK FOR TERMINATION 01315 M01S01200.tfm +++| NJN CPM1 IF MORE TO CLEAR 01316 M01S01201.tfm +++| 01317 M01S01202.tfm +++| CPM SUBR ENTRY/EXIT 01318 M01S01203.tfm +++| STD T0 SET WORD COUNT 01319 M01S01204.tfm +++| CPM1 SBN 1 CHECK FOR ODD COUNT 01320 M01S01205.tfm +++| NJN CPM2 IF NOT LAST CHARACTER 01321 M01S01206.tfm +++| LDI T1 CLEAR UPPER 6 BITS 01322 M01S01207.tfm +++| LPN 77 01323 M01S01208.tfm +++| STI T1 01324 M01S01209.tfm +++| UJN CPM3 DECREMENT COUNT AND RETURN 01325 M01S01210.tfm +++| CTS SPACE 4,10 01326 M01S01211.tfm +++|** CTS - CONVERT TO ABSOLUTE TRACK/SECTOR. 01327 M01S01212.tfm +++|* 01328 M01S01213.tfm +++|* ENTRY (RI - RI+1) = CURRENT RANDOM ADDRESS. 01329 M01S01214.tfm +++|* 01330 M01S01215.tfm +++|* EXIT (T5) = EQUIPMENT. 01331 M01S01216.tfm +++|* (T6) = TRACK (CALCULATED). 01332 M01S01217.tfm +++|* (T7) = SECTOR (CALCULATED). 01333 M01S01218.tfm +++|* (RI - RI+1) = RANDOM ADDRESS (UNCHANGED). 01334 M01S01219.tfm +++|* 01335 M01S01220.tfm +++|* USES T5 - T5+4. 01336 M01S01221.tfm +++|* 01337 M01S01222.tfm +++|* CALLS CRA. 01338 M01S01223.tfm +++|* 01339 M01S01224.tfm +++|* MACROS ENDMS, ERROR, LDA, SETMS. 01340 M01S01225.tfm +++| 01341 M01S01226.tfm +++| 01342 M01S01227.tfm +++| CTS2 LDA CTSA,ABS RESTORE RANDOM ADDRESS 01343 M01S01228.tfm +++| STD RI+1 01344 M01S01229.tfm +++| SHN -14 01345 M01S01230.tfm +++| STD RI
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Updated by) | t5679 |
Seq # *Modification Id* Act ----------------------------+ 01346 M02S00001.t5679 ---| SETMS IO RESERVE CHANNEL 01347 M01S01231.tfm +++| 01348 M01S01232.tfm +++| CTS SUBR ENTRY/EXIT 01349 M01S01233.tfm +++| LDD FO 01350 M01S01234.tfm +++| RJM AFA GET ABSOLUTE FST ADDRESS 01351 M01S01235.tfm +++| CRD T5 01352 M01S01236.tfm +++| LDA RI,ABS SAVE RANDOM ADDRESS 01353 M01S01237.tfm +++| ZJN CTS1 IF SYSTEM SECTOR 01354 M01S01238.tfm +++| STM CTSA+1 01355 M01S01239.tfm +++| SHN -14 01356 M01S01240.tfm +++| STM CTSA 01357 M01S00001.t5679 +++| SETMS IO,RW RESERVE CHANNEL
| Line S01241 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01358 M02S01241.t5472 ---| SETMS RESERVE CHANNEL 01359 M01S01242.tfm +++| RJM CRA CONVERT RANDOM ADDRESS 01360 M01S01243.tfm +++| PJP CTS2 IF NO RANDOM ADDRESS ERROR
| Line S01244 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01361 M02S01244.t5472 ---| ENDMS 01362 M01S01245.tfm +++| CTS1 BSS 0 01363 M01S01246.tfm +++| ERROR RAE *RANDOM ADDRESS ERROR.* 01364 M01S01247.tfm +++| 01365 M01S01248.tfm +++| CTSA CON 0,0 RANDOM ADDRESS CELLS 01366 M01S01249.tfm +++| DPP SPACE 4,10 01367 M01S01250.tfm +++|** DPP - DROP PP. 01368 M01S01251.tfm +++|* 01369 M01S01252.tfm +++|* DEFINES THE TFM EXIT LOCATION FOR RELINQUISHING 01370 M01S01253.tfm +++|* THE PPU WITHOUT CHANGING THE COMPLETION STATUS 01371 M01S01254.tfm +++|* FOR THE REQUEST. 01372 M01S01255.tfm +++| 01373 M01S01256.tfm +++| 01374 M01S01257.tfm +++| DPP EQU TFM5 DEFINE DROP PP LOCATION 01375 M01S01258.tfm +++| EDT SPACE 4,10 01376 M01S01259.tfm +++|** EDT - ENTER PACKED DATE/TIME. 01377 M01S01260.tfm +++|* 01378 M01S01261.tfm +++|* ENTRY (A) = ADDRESS OF WORD TO RECEIVE DATE/TIME. 01379 M01S01262.tfm +++|* 01380 M01S01263.tfm +++|* EXIT PACKED DATE/TIME ENTERED IN 3 CONSECUTIVE 01381 M01S01264.tfm +++|* WORDS STARTING AT (A). 01382 M01S01265.tfm +++|* 01383 M01S01266.tfm +++|* USES CM - CM+4, T2. 01384 M01S01267.tfm +++|* 01385 M01S01268.tfm +++|* MACROS MMOVE. 01386 M01S01269.tfm +++| 01387 M01S01270.tfm +++| 01388 M01S01271.tfm +++| EDT SUBR ENTRY/EXIT 01389 M01S01272.tfm +++| STD T2 01390 M01S01273.tfm +++| LDN PDTL 01391 M01S01274.tfm +++| CRD CM 01392 M01S01275.tfm +++| MMOVE CM+2,,,,6 01393 M01S01276.tfm +++| UJN EDTX RETURN 01394 M01S01277.tfm +++| EML SPACE 4,10 01395 M01S01278.tfm +++|** EML - EXIT TO MAIN LOOP. 01396 M01S01279.tfm +++|* 01397 M01S01280.tfm +++|* DEFINES THE TFM EXIT PATH FOR SETTING THE 01398 M01S01281.tfm +++|* COMPLETION STATUS AND DROPPING THE PPU FOR
| Line S01282 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01399 M02S01282.274l797 ---|* N SPECIAL CASES AND ABMORMAL TERMINATION. 01400 M01S00010.274l797 +++|* SPECIAL CASES AND ABNORMAL TERMINATION. 01401 M01S01283.tfm +++| 01402 M01S01284.tfm +++| 01403 M01S01285.tfm +++| EML EQU TFM1+2 DEFINE EXIT TO MAIN LOOP LOCATION 01404 M01S01286.tfm +++| ERR SPACE 4,10 01405 M01S01287.tfm +++|** ERR - CALL ERROR PROCESSING OVERLAY. 01406 M01S01288.tfm +++|* 01407 M01S01289.tfm +++|* *ERR* IS CALLED EITHER DIRECTLY OR BY THE 01408 M01S01290.tfm +++|* *ERROR* MACRO TO ENTER THE ERROR PROCESSING 01409 M01S01291.tfm +++|* OVERLAY. IF TRP$ IS DEFINED, CODE IS ASSEMBLED 01410 M01S01292.tfm +++|* TO ALLOW THE PP TO BE STEPPED ON ANY ERROR 01411 M01S01293.tfm +++|* CONDITION BEFORE THE OVERLAY IS CALLED. THIS 01412 M01S01294.tfm +++|* PROVIDES A WAY TO DUMP THE PP ON A ERROR AND 01413 M01S01295.tfm +++|* INSURE THAT IT HAS NOT BEEN DESTROYED BY THE 01414 M01S01296.tfm +++|* OVERLAY LOAD. 01415 M01S01297.tfm +++|* 01416 M01S01298.tfm +++|* THE FOLLOWING FORMAT WILL STEP THE PP ON ERRORS; 01417 M01S01299.tfm +++|* 01418 M01S01300.tfm +++|* STEP,*RSJM*,3,CODE. 01419 M01S01301.tfm +++|* 01420 M01S01302.tfm +++|* RSJM = THE NUMERIC VALUE FOR THE *RSJM* 01421 M01S01303.tfm +++|* MONITOR FUNCTION. 01422 M01S01304.tfm +++|* CODE = THE TFM ERROR CODE TO BE TRAPPED. 01423 M01S01305.tfm +++|* 01424 M01S01306.tfm +++|* ENTRY (A) = ERROR CODE. 01425 M01S01307.tfm +++|* 01426 M01S01308.tfm +++|* EXIT TO ERROR PROCESSING OVERLAY. 01427 M01S01309.tfm +++|* 01428 M01S01310.tfm +++|* USES EC, CM - CM+4 01429 M01S01311.tfm +++|* 01430 M01S01312.tfm +++|* CALLS OVERLAY 5TA (NO RETURN) 01431 M01S01313.tfm +++|* 01432 M01S01314.tfm +++|* MACROS MONITOR. 01433 M01S01315.tfm +++| 01434 M01S01316.tfm +++|
| Line S01317 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01435 M02S01317.t5472 ---| ERR SUBR CALL ERROR OVERLAY 01436 M01S00002.t5472 +++| ERR SUBR CALL ERROR OVERLAY 01437 M01S01318.tfm +++| STD EC SAVE ERROR CODE 01438 M01S01319.tfm +++| IF DEF,TRP$ 01439 M01S01320.tfm +++| LDN ZERL 01440 M01S01321.tfm +++| CRD CM 01441 M01S01322.tfm +++| LDD EC 01442 M01S01323.tfm +++| STD CM+3 01443 M01S01324.tfm +++| LDM ERR 01444 M01S01325.tfm +++| STD CM+4 01445 M01S01326.tfm +++| MONITOR RSJM 01446 M01S01327.tfm +++| ENDIF 01447 M01S01328.tfm +++| EXOVL TME TAPE MANAGER ERROR PROCESSING 01448 M01S01329.tfm +++| GIB SPACE 4,10 01449 M01S01330.tfm +++|** GIB - GET INITIAL BLOCK. 01450 M01S01331.tfm +++|* 01451 M01S01332.tfm +++|* ENTRY (BA) = BUFFER ADDRESS. 01452 M01S01333.tfm +++|* (RI - RI+1) = RANDOM ADDRESS. 01453 M01S01334.tfm +++|* 01454 M01S01335.tfm +++|* EXIT (A) = CURRENT RANDOM ADDRESS. 01455 M01S01336.tfm +++|* (BA) = UNCHANGED. 01456 M01S01337.tfm +++|* (BP) = (BA) + 2. 01457 M01S01338.tfm +++|* (CPRI - CPRI+1) = CURRENT POSITION. 01458 M01S01339.tfm +++|* 01459 M01S01340.tfm +++|* USES BP, CPRI - CPRI+1. 01460 M01S01341.tfm +++|* 01461 M01S01342.tfm +++|* CALLS RRP. 01462 M01S01343.tfm +++| 01463 M01S01344.tfm +++| 01464 M01S01345.tfm +++| GIB SUBR ENTRY/EXIT 01465 M01S01346.tfm +++| RJM RRP READ RANDOM PRU 01466 M01S01347.tfm +++| LDD BA 01467 M01S01348.tfm +++| ADN 2 01468 M01S01349.tfm +++| STD BP 01469 M01S01350.tfm +++| LDD RI SET CURRENT FILE POSITION 01470 M01S01351.tfm +++| STM CPRI 01471 M01S01352.tfm +++| SHN 14 01472 M01S01353.tfm +++| LMD RI+1 01473 M01S01354.tfm +++| STM CPRI+1 01474 M01S01355.tfm +++| UJN GIBX RETURN 01475 M01S01356.tfm +++| MBP SPACE 4,13 01476 M01S01357.tfm +++|** MBP - MOVE BUFFER POINTER. 01477 M01S01358.tfm +++|* 01478 M01S01359.tfm +++|* *MBP* ADVANCES THE BUFFER POINTER (BP) THE NUMBER OF 01479 M01S01360.tfm +++|* CM WORDS REQUESTED. 01480 M01S01361.tfm +++|* 01481 M01S01362.tfm +++|* ENTRY (A) = NUMBER OF CM WORDS TO MOVE. 01482 M01S01363.tfm +++|* (BA) = BUFFER ADDRESS. 01483 M01S01364.tfm +++|* (BP) = ADDRESS OF CURRENT WORD. 01484 M01S01365.tfm +++|* 01485 M01S01366.tfm +++|* EXIT (A) = ADDRESS OF REQUESTED WORD. 01486 M01S01367.tfm +++|* (A) = 777777 IF END OF FILE ENCOUNTERED. 01487 M01S01368.tfm +++|* (BP) = ADDRESS OF REQUESTED WORD. 01488 M01S01369.tfm +++|* 01489 M01S01370.tfm +++|* USES T1, BA, BP. 01490 M01S01371.tfm +++|* 01491 M01S01372.tfm +++|* CALLS RRP. 01492 M01S01373.tfm +++|* 01493 M01S01374.tfm +++|* MACROS ERROR. 01494 M01S01375.tfm +++| 01495 M01S01376.tfm +++| 01496 M01S01377.tfm +++| MBP1 ERROR EBP *ERRONEOUS BUFFER POINTER* 01497 M01S01378.tfm +++| 01498 M01S01379.tfm +++| MBP2 LDD T1 INCREMENT WORD COUNT 01499 M01S01380.tfm +++| RAD BP 01500 M01S01381.tfm +++| LCN 0 SET END OF BUFFER 01501 M01S01382.tfm +++| 01502 M01S01383.tfm +++| MBP SUBR ENTRY/EXIT 01503 M01S01384.tfm +++| STD T1 01504 M01S01385.tfm +++| SHN 2 01505 M01S01386.tfm +++| RAD T1 01506 M01S01387.tfm +++| LDD BP CHECK VALIDITY 01507 M01S01388.tfm +++| SBD BA 01508 M01S01389.tfm +++| MJN MBP1 IF OUT OF RANGE 01509 M01S01390.tfm +++| ADC -502 01510 M01S01391.tfm +++| PJN MBP1 IF OUT OF RANGE 01511 M01S01392.tfm +++| ADD T1 01512 M01S01393.tfm +++| PJN MBP2 IF MOVE OUTSIDE BUFFER 01513 M01S01394.tfm +++| LDD T1 01514 M01S01395.tfm +++| RAD BP SET BUFFER POINTER 01515 M01S01396.tfm +++| UJN MBPX RETURN 01516 M01S01397.tfm +++| MPM SPACE 4,10 01517 M01S01398.tfm +++|** MPM - MOVE CONSECUTIVE PP MEMORY. 01518 M01S01399.tfm +++|* 01519 M01S01400.tfm +++|* MOVE MUST BEGIN ON A WORD BOUNDARY. 01520 M01S01401.tfm +++|* 01521 M01S01402.tfm +++|* ENTRY (A) = MOVE COUNT IN CHARACTERS. 01522 M01S01403.tfm +++|* (T1) = FWA OF AREA TO MOVE. 01523 M01S01404.tfm +++|* (T2) = FWA OF RECEIVING AREA. 01524 M01S01405.tfm +++|* 01525 M01S01406.tfm +++|* EXIT AREA FROM (T1) TO (T2) MOVED. 01526 M01S01407.tfm +++|* 01527 M01S01408.tfm +++|* USES T0 - T2. 01528 M01S01409.tfm +++| 01529 M01S01410.tfm +++| 01530 M01S01411.tfm +++| MPM2 LDI T2 MOVE LAST CHARACTER 01531 M01S01412.tfm +++| LPN 77 01532 M01S01413.tfm +++| STI T2 01533 M01S01414.tfm +++| LDI T1 01534 M01S01415.tfm +++| SCN 77 01535 M01S01416.tfm +++| RAI T2 01536 M01S01417.tfm +++| 01537 M01S01418.tfm +++| MPM SUBR ENTRY/EXIT 01538 M01S01419.tfm +++| MPM1 BSS 0 01539 M01S01420.tfm +++| ZJN MPMX IF NO MOVE COUNT 01540 M01S01421.tfm +++| STD T0 01541 M01S01422.tfm +++| SBN 1 CHECK FOR ODD COUNT 01542 M01S01423.tfm +++| ZJN MPM2 IF LAST MOVE HALF BYTE 01543 M01S01424.tfm +++| LDI T1 MOVE BYTE 01544 M01S01425.tfm +++| STI T2 01545 M01S01426.tfm +++| AOD T1 INCREMENT TO NEXT BYTE 01546 M01S01427.tfm +++| AOD T2 01547 M01S01428.tfm +++| SOD T0 DECREMENT CHARACTER COUNT 01548 M01S01429.tfm +++| SOD T0 01549 M01S01430.tfm +++| UJN MPM1 CHECK IF MOVE COMPLETE 01550 M01S01431.tfm +++| PFR SPACE 4,10 01551 M01S01432.tfm +++|** PFR - PAUSE FOR RELOCATION. 01552 M01S01433.tfm +++|* 01553 M01S01434.tfm +++|* *PFR* CHECKS THE I/O PAUSE LIMIT TO DETERMINE 01554 M01S01435.tfm +++|* IF A PAUSE IS NECESSARY. IF A PAUSE IS REQUIRED 01555 M01S01436.tfm +++|* THE PAUSE FLAG IS SET, AND THE COUNTER IS RESET 01556 M01S01437.tfm +++|* TO *IOPL*. 01557 M01S01438.tfm +++|* 01558 M01S01439.tfm +++|* MACROS PAUSE. 01559 M01S01440.tfm +++|* 01560 M01S01441.tfm +++| 01561 M01S01442.tfm +++| 01562 M01S01443.tfm +++| PFR SUBR ENTRY/EXIT 01563 M01S01444.tfm +++| SOM PFRA DECREMENT PAUSE COUNTER 01564 M01S01445.tfm +++| PJN PFRX IF PAUSE NOT NECESSARY 01565 M01S01446.tfm +++| PAUSE -STSW 01566 M01S01447.tfm +++| LDK IOPL RESET PAUSE COUNTER 01567 M01S01448.tfm +++| STM PFRA 01568 M01S01449.tfm +++| UJN PFRX RETURN 01569 M01S01450.tfm +++| 01570 M01S01451.tfm +++| PFRA CON IOPL PAUSE COUNTER 01571 M01S01452.tfm +++| RRP SPACE 4,10 01572 M01S01453.tfm +++|** RRP - READ RANDOM PRU. 01573 M01S01454.tfm +++|* 01574 M01S01455.tfm +++|* ENTRY (BA) = BUFFER ADDRESS. 01575 M01S01456.tfm +++|* (RI - RI+1) = RANDOM INDEX. 01576 M01S01457.tfm +++|* 01577 M01S01458.tfm +++|* EXIT (BA) = UNCHANGED. 01578 M01S01459.tfm +++|* (BP) = UNCHANGED. 01579 M01S01460.tfm +++|* BUFFER FILLED. 01580 M01S01461.tfm +++|* 01581 M01S01462.tfm +++|* CALLS CME, CTS, RDS. 01582 M01S01463.tfm +++| 01583 M01S01464.tfm +++| 01584 M01S01465.tfm +++| RRP SUBR ENTRY/EXIT 01585 M01S01466.tfm +++| RJM CTS CONVERT TO ABSOLUTE TRACK/SECTOR 01586 M01S01467.tfm +++| LDD BA SET BUFFER 01587 M01S01468.tfm +++| RJM RDS READ SECTOR 01588 M01S01469.tfm +++| RJM CME CHECK FOR MASS STORAGE ERROR 01589 M01S01470.tfm +++| UJN RRPX RETURN 01590 M01S01471.tfm +++| WRP SPACE 4,10 01591 M01S01472.tfm +++|** WRP - WRITE RANDOM PRU. 01592 M01S01473.tfm +++|* 01593 M01S01474.tfm +++|* ENTRY (BA) = BUFFER ADDRESS. 01594 M01S01475.tfm +++|* (RI - RI+1) = RANDOM ADDRESS. 01595 M01S01476.tfm +++|* 01596 M01S01477.tfm +++|* EXIT WRITE OR REWRITE OF PRU. 01597 M01S01478.tfm +++|* 01598 M01S01479.tfm +++|* CALLS CME, CTS, EDT, WDS. 01599 M01S01480.tfm +++| 01600 M01S01481.tfm +++| 01601 M01S01482.tfm +++| WRP SUBR ENTRY/EXIT 01602 M01S01483.tfm +++| RJM CTS CONVERT TO ABSOLUTE TRACK/SECTOR 01603 M01S01484.tfm +++| LIA CWDT,BA 01604 M01S01485.tfm +++| RJM EDT ENTER PACKED DATE/TIME 01605 M01S01486.tfm +++| LDD BA SET BUFFER 01606 M01S01487.tfm +++| RJM WDS WRITE SECTOR 01607 M01S01488.tfm +++| RJM CME CHECK FOR MASS STORAGE ERROR 01608 M01S01489.tfm +++| UJP WRPX RETURN 01609 M01S01490.tfm +++| SPACE 4,10 01610 M01S01491.tfm +++|*** RESIDENT COMMON DECKS. 01611 M01S01492.tfm +++| 01612 M01S01493.tfm +++| 01613 M01S01494.tfm +++|*CALL COMPCRA 01614 M01S01495.tfm +++|*CALL COMPSEI 01615 M01S01496.tfm +++|*CALL COMPSRA 01616 M01S01497.tfm +++| TITLE RESIDENT WORKING STORAGE. 01617 M01S01498.tfm +++| SPACE 4,10 01618 M01S01499.tfm +++|*** WORKING STORAGE. 01619 M01S01500.tfm +++| 01620 M01S01501.tfm +++| 01621 M01S01502.tfm +++| CPRI BSSZ 2 CURRENT POSITION RANDOM INDEX 01622 M01S01503.tfm +++| CPEB BSSZ 2 CURRENT POSITION EMPTY BLOCK 01623 M01S01504.tfm +++| CPSB BSSZ 5 CURRENT POSITION SYSTEM BUFFER 01624 M01S01505.tfm +++| CPPI BSSZ 5 CURRENT POSITION PRIMARY INDEX 01625 M01S01506.tfm +++| CPSI BSSZ 5 CURRENT POSITION SECONDARY INDEX 01626 M01S01507.tfm +++| CPCB BSSZ 5 CURRENT POSITION CATALOG BUFFER 01627 M01S01508.tfm +++| CPAB BSSZ 5 CURRENT POSITION ADMIT BUFFER 01628 M01S01509.tfm +++| CPHP BSSZ 5 CURRENT POSITION HOLE POINTER 01629 M01S01510.tfm +++| UTMS BSSZ 5 *UTMS* FROM *MAGNET* 01630 M01S01511.tfm +++| UDTA CON 0 CURRENT UDT ADDRESS BEING PROCESSED 01631 M01S01512.tfm +++| ISBA CON BUF0,BUF1 INDEXED SEARCH BUFFER ADDRESS 01632 M01S01513.tfm +++| MFID EQU TFM MAINFRAME I.D. 01633 M01S01514.tfm +++| CDMX EQU TFM+1 CATALOG DEVICE MACHINE INDEX-1 01634 M01S01515.tfm +++| DFFO CON 0 RSXDID FILE FNT ORDINAL IF ATTACHED 01635 M01S01516.tfm +++| ERRZR RDFO ORDINAL MUST BE NON-ZERO 01636 M01S00011.274l797 +++| SCRP CON 0 ADDRESS IN *TMST* OF CORRECT SCRATCH POOL 01637 M01S01517.tfm +++| TFMF SPACE 4,10 01638 M01S01518.tfm +++|*** TFMF - TFM FLAGS. 01639 M01S01519.tfm +++|* 01640 M01S01520.tfm +++|* FLAGS - 01641 M01S01521.tfm +++|* 0010 = NOTIFY OPERATOR ON ANY ERROR. 01642 M01S01522.tfm +++| 01643 M01S01523.tfm +++| TFMF BSS 0 01644 M01S01524.tfm +++| VFD 8/0 RESERVED FOR FUTURE USE 01645 M01S01525.tfm +++| VFD 1/0 NOTIFY OPERATOR ON ERROR 01646 M01S01526.tfm +++| VFD 3/0 RESERVED FOR FUTURE USE 01647 M01S01527.tfm +++| 01648 M01S01528.tfm +++| SPACE 4,10 01649 M01S01529.tfm +++|*** PARAMETER BUFFER. 01650 M01S01530.tfm +++|* 01651 M01S01531.tfm +++| 01652 M01S01532.tfm +++| 01653 M01S01533.tfm +++| PFAM BSSZ 5 FAMILY NAME/INDEX 01654 M01S01534.tfm +++| PBUN BSSZ 5 USERNAME FOR CATALOG SEARCH 01655 M01S01535.tfm +++| PBUF BSSZ TFPL*5 PARAMETER BUFFER 01656 M01S01536.tfm +++| SPACE 4,10 01657 M01S01537.tfm +++|*** FET PARAMETER BUFFER (PP BYTE POSITIONS). 01658 M01S01538.tfm +++| 01659 M01S01539.tfm +++| 01660 M01S01540.tfm +++| PESN EQU FBES*5+PBUF EXTERNAL VOLUME SERIAL NUMBER (36 BITS) 01661 M01S01541.tfm +++| PFLG EQU FBES*5+3+PBUF MISC FLAGS 01662 M01S01542.tfm +++| PFTD EQU FBTD*5+PBUF TAPE DESCRIPTORS (60 BITS) 01663 M01S01543.tfm +++| PVSN EQU FBVS*5+PBUF INTERNAL VOLUME SERIAL NUMBER (36 BITS) 01664 M01S01544.tfm +++| PBFA EQU PVSN+3 FILE ACCESSIBILITY (6 BITS) 01665 M01S01545.tfm +++| PBSN EQU PVSN+3 FILE SECTION NUMBER (18 BITS) 01666 M01S01546.tfm +++| POFI EQU FBFI*5+PBUF FILE IDENTIFIER (OLD - 102 BITS) 01667 M01S01547.tfm +++| PBQN EQU POFI+10B FILE SEQUENCE NUMBER (18 BITS) 01668 M01S01548.tfm +++| PBSI EQU FBSI*5+PBUF SET IDENTIFIER (36 BITS) 01669 M01S01549.tfm +++| PBVN EQU PBSI+3 VERSION NUMBER (9 BITS) 01670 M01S01550.tfm +++| PBGN EQU PBSI+3 GENERATION NUMBER (15 BITS) 01671 M01S01551.tfm +++| PNFI EQU FBNI*5+PBUF FILE IDENTIFIER (NEW - 102 BITS) 01672 M01S01552.tfm +++| PBCE EQU PNFI+11 CLEAR ERROR FLAG (UPPER 6 BITS) 01673 M01S01553.tfm +++| PBAN EQU PNFI+11 CHANGE CHARGE/PROJECT (LOWER 6 BITS) 01674 M01S01554.tfm +++| PBCR EQU FBCR*5+PBUF LABEL CREATION/RETENTION DATE (60 BITS) 01675 M01S01555.tfm +++| PAUN EQU FBUN*5+PBUF ALTERNATE USERNAME (42 BITS) 01676 M01S01556.tfm +++| PBTO EQU PAUN+3 TAPE OPTIONS (LOWER 18 BITS) 01677 M01S01557.tfm +++| PUCW EQU PAUN USER CONTROL WORD (60 BITS) 01678 M01S01558.tfm +++| PPWD EQU FBPW*5+PBUF FILE PASSWORD (42 BITS) 01679 M01S01559.tfm +++| PBAC EQU PPWD+3 AUDIT ACCESS MODE (LOWER 6 BITS) 01680 M01S01560.tfm +++| PBCT EQU PPWD+4 FILE CATEGORY (UPPER 6 BITS) 01681 M01S01561.tfm +++| PBMD EQU PPWD+4 FILE ACCESS MODE (LOWER 6 BITS) 01682 M01S01562.tfm +++| SPACE 4,10 01683 M01S01563.tfm +++|*** VSN PARAMETER BUFFER (PP BYTE POSITIONS). 01684 M01S01564.tfm +++| 01685 M01S01565.tfm +++| 01686 M01S01566.tfm +++| PVES EQU VBES+PBUF EXTERNAL VSN 01687 M01S01567.tfm +++| PVCI EQU VBCI+PBUF CATALOG RANDOM INDEX 01688 M01S01568.tfm +++| PVVS EQU VBVS+PBUF INTERNAL VSN 01689 M01S01569.tfm +++| PVRC EQU VBRC+PBUF REEL COUNT (UPPER 6 BITS) 01690 M01S01570.tfm +++| PVST EQU VBST+PBUF VSN STATUS (I8 BITS) 01691 M01S01571.tfm +++| PVFV EQU VBFV+PBUF FIRST VSN OF SET 01692 M01S01572.tfm +++| PVJS EQU VBJS+PBUF EJT ORDINAL 01693 M01S01573.tfm +++| PVNV EQU VBNV+PBUF NEXT VSN OF SET (36 BITS) 01694 M01S01574.tfm +++| TITLE OVERLAYABLE SUBROUTINES (LEVEL 1). 01695 M01S01575.tfm +++| SPACE 4,10 01696 M01S01576.tfm +++|*** LEVEL 1 OVERLAYS. 01697 M01S01577.tfm +++|* 01698 M01S01578.tfm +++|* LEVEL 1 OVERLAYABLE CODE WILL BE DESTROYED BY
| Line S01579 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01699 M02S01579.ns2763 ---|* A OVERLAY LOAD AT *OVL1*. 01700 M01S00001.ns2763 +++|* AN OVERLAY LOAD AT *OVL1*. 01701 M01S01580.tfm +++| 01702 M01S01581.tfm +++| 01703 M01S01582.tfm +++| OVL1 EQU * DEFINE FIRST LEVEL OVERLAY ADDRESS 01704 M01S01583.tfm +++| SPACE 4 01705 M01S01584.tfm +++| QUAL PRESET 01706 M01S01585.tfm +++| SPACE 4,10 01707 M01S01586.tfm +++|** LOCAL DIRECT CELL LOCATIONS. 01708 M01S01587.tfm +++| 01709 M01S01588.tfm +++|
| Line S01589 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | tfm20 |
Seq # *Modification Id* Act ----------------------------+ 01710 M02S01589.tfm20 ---| CU EQU S2 CPU PRIORITY * 2
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | tfm20 |
M02 (Updated by) | tfm21 |
Seq # *Modification Id* Act ----------------------------+ 01711 M02S00001.tfm21 ---| CU EQU S2 CPU PRIORITY 01712 M01S00001.tfm21 +++| SI EQU S2+2 SUBSYSTEM ID 01713 M01S01590.tfm +++| FT EQU S2+2 - S2+3 FET FIRST POINTER 01714 M01S01591.tfm +++| IN EQU S2+4 - S3+0 FET IN POINTER 01715 M01S01592.tfm +++| OT EQU S3+1 - S3+2 FET OUT POINTER 01716 M01S01593.tfm +++| LM EQU S3+3 - S3+4 FET LIMIT POINTER 01717 M01S01594.tfm +++| CN EQU FN - FN+4 FAMILY NAME (COMPFAT) 01718 M01S01595.tfm +++| FA EQU S1 FNT ORDINAL (COMPSAF) 01719 M01S01596.tfm +++| MAGF SPACE 4,10 01720 M01S01597.tfm +++|*** MAGF - *MAGNET* REQUEST FUNCTION. 01721 M01S01598.tfm +++|* 01722 M01S01599.tfm +++|* THIS FUNCTION CAN ONLY BE CALLED BY *MAGNET*. 01723 M01S01600.tfm +++|* *MAGNET* WILL ISSUE THIS REQUEST WITH A SUB- 01724 M01S01601.tfm +++|* FUNCTION CODE IN BYTE 0 OF UDT+UTMS, AND CALL 01725 M01S01602.tfm +++|* TFM WITHOUT AUTO-RECALL. THIS IS THE ONLY 01726 M01S01603.tfm +++|* TFM RA+1 REQUEST VALIDATED FOR NO AUTO-RECALL. 01727 M01S01604.tfm +++|* 01728 M01S01605.tfm +++|* ENTRY (FC) = MAGF. 01729 M01S01606.tfm +++|* (IR+4) = UDT ADDRESS. 01730 M01S01607.tfm +++|* 01731 M01S01608.tfm +++|* EXIT (TFMA) = OVERLAY NAME. 01732 M01S01609.tfm +++|* (TFMB) = PROCESSOR ADDRESS. 01733 M01S01610.tfm +++|* (TFMC) = CATALOG ACCESS MODE. 01734 M01S01611.tfm +++|* (UDTA) = UDT ADDRESS. 01735 M01S01612.tfm +++|* 01736 M01S01613.tfm +++|* USES CM - CM+4, S1 - S1+4, T1. 01737 M01S01614.tfm +++|*
| Line S01615 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01738 M02S01615.282l826 ---|* CALLS CCP, CRS, FUJ, GUO, TTB. 01739 M01S00002.282l826 +++|* CALLS CCP, CRS, GUO, TTB. 01740 M01S01616.tfm +++|* 01741 M01S01617.tfm +++|* MACROS ERROR, FCN, MULT4, UDTRD, UDTWT. 01742 M01S01618.tfm +++|* 01743 M01S01619.tfm +++| 01744 M01S01620.tfm +++| 01745 M01S01621.tfm +++| MAG SUBR ENTRY/EXIT 01746 M01S01622.tfm +++| LDD IR+4 01747 M01S01623.tfm +++| STM UDTA 01748 M01S01624.tfm +++| RJM CRS CHECK RECALL STATUS 01749 M01S01625.tfm +++| NJN MAG1 IF CALLED WITH AUTO-RECALL
| Line S01626 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | tfm21 |
Seq # *Modification Id* Act ----------------------------+ 01750 M02S01626.tfm21 ---| LDD CU CHECK CPU PRIORITY
| Line S01627 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | tfm20 |
M03 (Updated by) | tfm21 |
Seq # *Modification Id* Act ----------------------------+ 01751 M03S01627.tfm21 ---| SHN -1
| Line S01628 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | tfm21 |
Seq # *Modification Id* Act ----------------------------+ 01752 M02S01628.tfm21 ---| LMN /PRD/MTCS 01753 M01S00002.tfm21 +++| LDD SI CHECK SUBSYSTEM ID 01754 M01S00003.tfm21 +++| LMK MTSI 01755 M01S01629.tfm +++| NJN MAG1 IF NOT CALLED BY *MAGNET* 01756 M01S01630.tfm +++| UDTRD UTMS,/MTX/UTMS,1 01757 M01S01631.tfm +++| LDM UTMS+4 01758 M01S01632.tfm +++| LPN RSIL 01759 M01S01633.tfm +++| ZJN MAG1 IF INTERLOCK NOT SET 01760 M01S01634.tfm +++| LDM UTMS SET SUBFUNCTION CODE
| Line S01635 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01761 M02S01635.nos252 ---| ZJN MAG1 IF ILLEGAL FUNCTION 01762 M01S00015.nos252 +++| ZJN MAG1 IF INCORRECT FUNCTION 01763 M01S01636.tfm +++| SBN 1 01764 M01S01637.tfm +++| MULT4 MULTIPLY (FUNCTION-1)*4 01765 M01S01638.tfm +++| ADC -MAGAL 01766 M01S01639.tfm +++| MJN MAG2 IF LEGAL FUNCTION
| Line S01640 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01767 M02S01640.nos252 ---| MAG1 ERROR ILR *TFM ILLEGAL REQUEST.* 01768 M01S00016.nos252 +++| MAG1 ERROR ILR *TFM INCORRECT REQUEST.* 01769 M01S01641.tfm +++| 01770 M01S01642.tfm +++| MAG2 LDM MAGA,T1 SET OVERLAY NAME 01771 M01S01643.tfm +++| LPN 77 01772 M01S01644.tfm +++| STM TFMA 01773 M01S01645.tfm +++| LDM MAGA+1,T1 SET PROCESSOR ADDRESS 01774 M01S01646.tfm +++| STM TFMB 01775 M01S01647.tfm +++| LDM MAGA+2,T1 SET FILE ACCESS MODE 01776 M01S01648.tfm +++| STM TFMC 01777 M01S01649.tfm +++| UDTRD S1,/MTX/UTCI,1 01778 M01S01650.tfm +++| LDD S1+1 01779 M01S01651.tfm +++| ZJN MAG3 IF NO *POSMF* IN PROGRESS 01780 M01S01652.tfm +++| UDTRD CM,/MTX/UCIB,1 01781 M01S01653.tfm +++| LDD CM 01782 M01S01654.tfm +++| SHN -2 01783 M01S01655.tfm +++| LPC 377 01784 M01S01656.tfm +++| LMN 22 01785 M01S01657.tfm +++| ZJN MAG3 IF *CIO* FUNCTION NOT *POSMF* 01786 M01S01658.tfm +++|* UJN MAG3 (*SKIP SETTING FUNCTION TO *CPPS*) 01787 M01S01659.tfm +++| MAGB EQU *-1 01788 M01S01660.tfm +++| LDM UTMS+4 SET *RE-ISSUE REQUEST* 01789 M01S01661.tfm +++| SCN RSRR 01790 M01S01662.tfm +++| LMN RSRR 01791 M01S01663.tfm +++| STM UTMS+4 01792 M01S01664.tfm +++| LDN CPPS*4-4 SET *CPPS* INTERNAL FUNCTION 01793 M01S01665.tfm +++| STD T1 01794 M01S01666.tfm +++| ISTORE MAGB,(UJN MAG3 ) SKIP SETTING FUNCTION TO *CPPS* 01795 M01S01667.tfm +++| LJM MAG2 RESET FUNCTION 01796 M01S01668.tfm +++| 01797 M01S01669.tfm +++| MAG3 LDM TFMC 01798 M01S01670.tfm +++| SHN 21-12 01799 M01S01671.tfm +++| MJN MAG5 IF NOT CHANGING CONTROL POINTS
| Line S01672 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01800 M02S01672.282l826 ---| RJM FUJ FIND USER JOB
| Line S01673 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01801 M02S01673.282l826 ---| ZJN MAG4 IF NOT AT CONTROL POINT
| Line S01674 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01802 M02S01674.282l826 ---| LDN S1
| Line S01675 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01803 M02S01675.282l826 ---| RJM CCP CHANGE CONTROL POINT
| Line S01676 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01804 M02S01676.282l826 ---| ZJN MAG5 IF JOB AT CONTROL POINT 01805 M01S00003.282l826 +++| RJM CCP CHANGE TO USER CONTROL POINT 01806 M01S00004.282l826 +++| ZJN MAG5 IF CONTROL POINT CHANGED 01807 M01S01677.tfm +++| MAG4 LJM MAG7 JOB NOT AT CONTROL POINT 01808 M01S01678.tfm +++| 01809 M01S01679.tfm +++| MAG5 UDTRD PBUN,/MTX/UUFN,1 01810 M01S01680.tfm +++| UDTRD PESN,/MTX/UESN,1
| Line S01681 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01811 M02S01681.282l826 ---| UDTRD PVSN,/MTX/UVSN,1 01812 M01S00005.282l826 +++| UDTRD PVSN,/MTX/UISN,1 01813 M01S01682.tfm +++| LDC 7S12+PBUN 01814 M01S01683.tfm +++| RJM TTB TRIM TRAILING BLANKS 01815 M01S01684.tfm +++| LDM TFMC CHECK IF PARAMETER BLOCK NEEDS UPDATE 01816 M01S01685.tfm +++| SHN 21-11 01817 M01S01686.tfm +++| PJN MAG6 IF NO UPDATE FROM UDT NEEDED 01818 M01S01687.tfm +++| RJM GUO GET USER OPTIONS FROM UDT 01819 M01S01688.tfm +++| MAG6 LJM MAGX RETURN 01820 M01S01689.tfm +++|
| Line S01690 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01821 M02S01690.282l826 ---| MAG7 LDM UTMS CHECK REQUEST TYPE
| Line S01691 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01822 M02S01691.282l826 ---| LMN ROJS
| Line S01692 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01823 M02S01692.282l826 ---| ZJN MAG8 IF ROLLOUT USER REQUEST
| Line S01693 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01824 M02S01693.282l826 ---| LDM UTMS+4 SET REISSUE REQUEST 01825 M01S00006.282l826 +++| MAG7 LDM UTMS+4 SET REISSUE REQUEST 01826 M01S01694.tfm +++| SCN RSRR 01827 M01S01695.tfm +++| LMN RSRR 01828 M01S01696.tfm +++| STM UTMS+4 01829 M01S01697.tfm +++| LDM UTMS+3 SET WAIT FOR JOB ROLLIN 01830 M01S01698.tfm +++| SCN WUJR 01831 M01S01699.tfm +++| LMN WUJR 01832 M01S01700.tfm +++| STM UTMS+3 01833 M01S01701.tfm +++| MAG8 LJM EML EXIT TO MAIN LOOP 01834 M01S01702.tfm +++| 01835 M01S01703.tfm +++| 01836 M01S01704.tfm +++| MAGA FCN BEGIN
| Line S01705 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01837 M02S01705.282l826 ---| FCN AVSS,AVF,/PFM/PTWR ADVANCE VSN FILE 01838 M01S00007.282l826 +++| FCN AVSS,AVF,2000+/PFM/PTWR ADVANCE VSN FILE 01839 M01S01706.tfm +++| FCN CPPS,CPP,2000+/PFM/PTUP CLEAR *POSMF* CATALOG POINTER
| Line S01707 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01840 M02S01707.282l826 ---| FCN RIJS,RIJ,6000 ROLLIN USER JOB
| Line S01708 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01841 M02S01708.282l826 ---| FCN ROJS,ROJ,4000 ROLLOUT USER JOB 01842 M01S01709.tfm +++| FCN RFVS,AVF,2000+/PFM/PTUP REWIND TO FIRST VOLUME 01843 M01S01710.tfm +++| FCN RTFS,RRF,3000+/PFM/PTUP RETURN/RESERVE TAPE FILE 01844 M01S01711.tfm +++| FCN UCES,UCE,3000+/PFM/PTWR UPDATE CATALOG ENTRY 01845 M01S01712.tfm +++| FCN VMFS,VMF,1000+/PFM/PTWR VALIDATE MULTI-FILE SET 01846 M01S01713.tfm +++| FCN VTLS,VTL,3000+/PFM/PTWR VERIFY TAPE LABELS 01847 M01S01714.tfm +++| MAGA FCN END 01848 M01S01715.tfm +++| RSXF SPACE 4,10 01849 M01S01716.tfm +++|*** RSXF - *RESEX* REQUEST FUNCTION. 01850 M01S01717.tfm +++|* 01851 M01S01718.tfm +++|* THIS FUNCTION IS CALLED ONLY BY *RESEX* ON 01852 M01S01719.tfm +++|* FIRST REEL ASSIGNMENT. IT MUST BE CALLED 01853 M01S01720.tfm +++|* WITH AUTO-RECALL SET BY A JOB WITH AN SSJ= 01854 M01S01721.tfm +++|* ENTRY POINT. 01855 M01S01722.tfm +++|* 01856 M01S01723.tfm +++|* ENTRY (FC) = RSXF. 01857 M01S01724.tfm +++|* (IR+3 - IR+4) = FET ADDRESS. 01858 M01S01725.tfm +++|* 01859 M01S01726.tfm +++|* EXIT (TFMA) = OVERLAY NAME. 01860 M01S01727.tfm +++|* (TFMB) = PROCESSOR ADDRESS. 01861 M01S01728.tfm +++|* (TFMC) = CATALOG ACCESS MODE. 01862 M01S01729.tfm +++|* 01863 M01S01730.tfm +++|* USES CM - CM+4, S1 - S1+4, T1. 01864 M01S01731.tfm +++|* 01865 M01S01732.tfm +++|* CALLS BPB, CFS, SUL. 01866 M01S01733.tfm +++|* 01867 M01S01734.tfm +++|* MACROS ERROR, FCN, LDA, MULT4. 01868 M01S01735.tfm +++| 01869 M01S01736.tfm +++| 01870 M01S01737.tfm +++| RSX SUBR ENTRY/EXIT
| Line S01738 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01871 M02S01738.nos252 ---| LDN TFML CHECK TMS ENABLE/DISABLE STATUS 01872 M01S00017.nos252 +++| LDN SSTL CHECK IF TMS IS ENABLED 01873 M01S01739.tfm +++| CRD CM
| Line S01740 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01874 M02S01740.nos252 ---| LDD CM+0
| Line S01741 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01875 M02S01741.nos252 ---| SHN 21-13
| Line S01742 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01876 M02S01742.nos252 ---| MJN RSX1 IF TMS ENABLED 01877 M01S00018.nos252 +++| LDD CM+2 01878 M01S00019.nos252 +++| SHN 21-0 01879 M01S00020.nos252 +++| PJN RSX1 IF TMS ENABLED 01880 M01S01743.tfm +++| ERROR TMD *TMS DISABLED.* 01881 M01S01744.tfm +++| 01882 M01S01745.tfm +++| RSX1 LDD CP CHECK FOR SSJ= 01883 M01S01746.tfm +++| ADC SEPW 01884 M01S01747.tfm +++| CRD CM 01885 M01S01748.tfm +++| LDD CM 01886 M01S01749.tfm +++| SHN 21-2 01887 M01S01750.tfm +++| PJN RSX2 IF NO SSJ= ENTRY POINT 01888 M01S01751.tfm +++| LDA IR+3,REL SET SUBFUNCTION CODE 01889 M01S01752.tfm +++| CRD S1 01890 M01S01753.tfm +++| LDD S1+4 01891 M01S01754.tfm +++| SHN -3 01892 M01S01755.tfm +++| LPN 77
| Line S01756 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01893 M02S01756.nos252 ---| ZJN RSX2 IF ILLEGAL FUNCTION 01894 M01S00021.nos252 +++| ZJN RSX2 IF INCORRECT FUNCTION 01895 M01S01757.tfm +++| SBN 1 01896 M01S01758.tfm +++| MULT4 MULTIPLY (FUNCTION-1)*4 01897 M01S01759.tfm +++| ADC -RSXAL 01898 M01S01760.tfm +++| MJN RSX3 IF LEGAL FUNCTION
| Line S01761 Modification History | |
|---|---|
M01 (Added by) | tfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01899 M02S01761.nos252 ---| RSX2 ERROR ILR *TFM INVALID REQUEST.* 01900 M01S00022.nos252 +++| RSX2 ERROR ILR *TFM INCORRECT REQUEST.* 01901 M01S01762.tfm +++| 01902 M01S01763.tfm +++| RSX3 LDM RSXA,T1 SET OVERLAY NAME 01903 M01S01764.tfm +++| LPN 77 01904 M01S01765.tfm +++| STM TFMA 01905 M01S01766.tfm +++| LDM RSXA+1,T1 SET PROCESSOR ADDRESS 01906 M01S01767.tfm +++| ZJN RSX2 IF NOT DEFINED
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/tfm.txt · Last modified: by 127.0.0.1