cdc:nos2.source:opl.opl871:deck:1mt
Deck 1MT
Library Member Format: MODIFY
Listing Sections
- Deck 1MT Start
- Deck 1MT Part 1 (Line 1462)
- Deck 1MT Part 2 (Line 2674)
- Deck 1MT Part 3 (Line 4017)
- Deck 1MT Part 4 (Line 5073)
- Deck 1MT Part 5 (Line 6369)
- Deck 1MT Part 6 (Line 7796)
- Deck 1MT Part 7 (Line 9269)
- Deck 1MT Part 8 (Line 10478)
- Deck 1MT Part 9 (Line 11579)
- Deck 1MT Part 10 (Line 12640)
- Deck 1MT Part 11 (Line 13801)
- Deck 1MT Part 12 (Line 15216)
- Deck 1MT Part 13 (Line 16607)
- Deck 1MT Part 14 (Line 18062)
- Deck 1MT Part 15 (Line 19541)
- Deck 1MT Part 16 (Line 20933)
- Deck 1MT Part 17 (Line 22793)
- Deck 1MT Part 18 (Line 24082)
- Deck 1MT Part 19 (Line 25232)
- Deck 1MT Part 20 (Line 26664)
- Deck 1MT Part 21 (Line 28010)
- Deck 1MT Part 22 (Line 28907)
- Deck 1MT Part 23 (Line 30276)
- Deck 1MT Part 24 (Line 31850)
- Deck 1MT Part 25 (Line 33112)
- Deck 1MT Part 26 (Line 34430)
- Deck 1MT Part 27 (Line 35774)
- Deck 1MT Part 28 (Line 37108)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.1mt +++| IDENT 1MT,PRS 00002 M00S00002.1mt +++| PERIPH 00003 M00S00003.1mt +++| BASE MIXED 00004 M00S00004.1mt +++| SST 00005 M00S00005.1mt +++|*COMMENT 1MT - PPU MAGNETIC TAPE EXECUTIVE.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.1mt +++| TITLE 1MT - PPU MAGNETIC TAPE EXECUTIVE. 00009 M00S00008.1mt +++| SPACE 4,10 00010 M00S00009.1mt +++|*** 1MT - PPU MAGNETIC TAPE EXECUTIVE. 00011 M00S00010.1mt +++|* R. E. TATE. 73/01/09. 00012 M00S00011.1mt +++|* D. D. SADLER. 74/05/01. (MTS) 00013 M00S00012.1mt +++|* L. C. HAAS. 77/07/15. (BLOCK - ID) 00014 M00S00013.1mt +++|* R. J. PRIEVE. 77/07/15. (ATS)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00015 M01S00001.274l797 +++|* C. D. ROWE. 92/02/03. (CTS) 00016 M00S00014.1mt +++| SPACE 4,10 00017 M00S00015.1mt +++|*** 1MT - PROCESSES VARIOUS TAPE FUNCTIONS FOR *MAGNET*, 00018 M00S00016.1mt +++|* THE CPU MAGNETIC TAPE EXECUTIVE. 00019 M00S00017.1mt +++| SPACE 4,10
| Line S00018 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00020 M01S00018.282l826 ---|*** *MAGNET* INITIALIZATION CALL.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00021 M01S00001.282l826 +++|*** CALL FORMAT. 00022 M00S00019.1mt +++|*
| Line S00020 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00023 M01S00020.282l826 ---|*T, IR 18/ 1MT,6/0,24/ RSPW,12/ IFL
Figure IR
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00024 M01S00002.282l826 +++|* NORMAL CALL - 00025 M00S00021.1mt +++|*
| Line S00022 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00026 M01S00022.282l826 ---|* RSPW *MAGNET* RESPONSE WORD.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00027 M01S00003.282l826 +++|*T, IR 18/ *1MT*,6/0,12/ 0,12/ CH,12/ CSTA
Figure IR
00028 M01S00004.282l826 +++|* 00029 M01S00005.282l826 +++|* CH TAPE CHANNEL NUMBER. 00030 M01S00006.282l826 +++|* CSTA CST ADDRESS. 00031 M01S00007.282l826 +++|* 00032 M01S00008.282l826 +++|* MAGNET INITIALIZATION CALL - 00033 M01S00009.282l826 +++|* 00034 M01S00010.282l826 +++|*T IR 18/ *1MT*,6/0,12/1,24/ ADDR
Figure IR
00035 M01S00011.282l826 +++|* 00036 M01S00012.282l826 +++|* ADDR STATUS WORD ADDRESS. 00037 M01S00013.282l826 +++|* 00038 M01S00014.282l826 +++|* STATUS WORD FORMAT - 00039 M01S00015.282l826 +++|* 00040 M01S00016.282l826 +++|*T 1/A,47/0,12/ IFL
Figure
00041 M01S00017.282l826 +++|* 00042 M01S00018.282l826 +++|* A *1MT* ACTIVE (CLEARED UPON COMPLETION). 00043 M00S00023.1mt +++|* IFL INITIALIZATION FLAGS. 00044 M00S00024.1mt +++|* 1 = *MAGNET* INITIALIZATION. 00045 M00S00025.1mt +++|* 3 = LEVEL 3 RECOVERY.
| Line S00026 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00046 M01S00026.282l826 ---| SPACE 4,10 00047 M01S00027.282l826 ---|*** CALL. 00048 M01S00028.282l826 ---|* 00049 M01S00029.282l826 ---|*T, IR 18/ *1MT*,6/0,12/ FLAGS,3/E4,3/E3,3/E2,3/E1,12/0
Figure IR
00050 M01S00030.282l826 ---|* 00051 M01S00031.282l826 ---|* FLAGS. 00052 M01S00032.282l826 ---|* 13-11 INDEX OF THIS 1MT (1, 3, 5 OR 7). 00053 M01S00033.282l826 ---|* /COMSMTX/UITW-1 + INDEX = IMAGE OF INPUT REGISTER. 00054 M01S00034.282l826 ---|* 10 CHANNEL DOWN INDICATOR. 00055 M01S00035.282l826 ---|* 7,6 CONTROLLER TYPE.
| Line S00036 Modification History | |
|---|---|
M01 (Removed by) | 1mt34 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00056 M02S00036.282l826 ---|* 0 = RESERVED.
| Line S00037 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 1mt34 |
M03 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00057 M03S00037.282l826 ---|* 1 = ATS (67X) OR FSC CONTROLLER.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2466 |
M03 (Removed by) | 1mt34 |
M04 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00058 M04S00001.282l826 ---|* 1 = ATS (67X) OR FSC OR ISMT (639) CONTROLLER.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2466 |
M02 (Removed by) | 1mt34 |
M03 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00059 M03S00001.282l826 ---|* 1 = ATS/FSC/ISMT/CMTS CONTROLLER.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mt34 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00060 M02S00001.282l826 ---|* 0 = ISMT CONTROLLER. 00061 M02S00002.282l826 ---|* 1 = ATS/CMTS/FSC CONTROLLER.
| Line S00038 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00062 M01S00038.282l826 ---|* 2 = MTS (66X) CONTROLLER.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00063 M02S00002.282l826 ---|* 3 = CTS CONTROLLER.
| Line S00039 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00064 M02S00039.282l826 ---|* 3 = MTS CONTROLLER WITH NO BLOCK - ID.
| Line S00040 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00065 M01S00040.282l826 ---|* 5 DEDICATED CHANNEL FLAG. 00066 M01S00041.282l826 ---|* 4-0 CHANNEL NUMBER. 00067 M01S00042.282l826 ---|* 00068 M01S00043.282l826 ---|* E4-E1 EQUIPMENT NUMBERS OF CONTROLLERS ON CHANNEL.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00069 M01S00001.252l678 +++| SPACE 4,10 00070 M01S00002.252l678 +++|*** ERROR MESSAGES. 00071 M01S00003.252l678 +++|* 00072 M01S00004.252l678 +++|* NOTE - MESSAGES ARE ISSUED TO THE ERROR LOG IN THE FORM OF A 00073 M01S00005.252l678 +++|* 3 CHARACTER MNEMONIC. THESE MNEMONICS ARE LISTED IN
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00074 M02S00006.274l797 ---|* PARANTHESES.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00075 M01S00003.274l797 +++|* PARENTHESES.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00076 M01S00007.252l678 +++|* 00077 M01S00008.252l678 +++|* *ERASE LIMIT.* (ERA) 00078 M01S00009.252l678 +++|* 00079 M01S00010.252l678 +++|* THIS MESSAGE IS POSTED IF, (A) IN *PE* OR *GCR* 00080 M01S00011.252l678 +++|* MODE, IF THE CURRENT BLOCK COULD NOT BE RE-WRITTEN PROPERLY 00081 M01S00012.252l678 +++|* AFTER FORTY ERASURES, (APPROXIMATELY 15 FEET OF 00082 M01S00013.252l678 +++|* TAPE), OR (B) IN *NRZI* MODE, THAT THE CURRENT BLOCK 00083 M01S00014.252l678 +++|* COULD NOT BE RE-WRITTEN DUE TO RECEIVING PARITY ERROR(S) 00084 M01S00015.252l678 +++|* AFTER FORTY ATTEMPTS TO ERASE A SINGLE AREA ON TAPE. 00085 M01S00016.252l678 +++|* 00086 M01S00017.252l678 +++|* 00087 M01S00018.252l678 +++|* *MARGINALLY WRITTEN TAPE.* (MWT) 00088 M01S00019.252l678 +++|* 00089 M01S00020.252l678 +++|* THIS MESSAGE IS POSTED IF SOME OR ALL OF THE PREVIOUS GOOD 00090 M01S00021.252l678 +++|* BLOCKS USED TO CREATE THE RECOVERY BLOCK ID WINDOW CANNOT BE 00091 M01S00022.252l678 +++|* READ WITH ERROR CORRECTION ENABLED DURING REPOSITIONING OF 00092 M01S00023.252l678 +++|* THE TAPE FOR WRITE RECOVERY. 00093 M01S00024.252l678 +++|* 00094 M01S00025.252l678 +++|* 00095 M01S00026.252l678 +++|* *POSITION LOST.* (PLO) 00096 M01S00027.252l678 +++|* 00097 M01S00028.252l678 +++|* THIS MESSAGE IS POSTED IF, (A) A BLOCK ID MIS-MATCH 00098 M01S00029.252l678 +++|* OCCURS OR, (B) IF THE BLOCK ID WINDOW IS ALL ONES IT 00099 M01S00030.252l678 +++|* INDICATES THAT A NOS TERMINATOR LABEL MIS-MATCH HAS 00100 M01S00031.252l678 +++|* OCCURRED. IN EITHER CASE, THE POSITION ON THE TAPE CANNOT 00101 M01S00032.252l678 +++|* BE ESTABLISHED AND THE JOB MUST BE TERMINATED. 00102 M01S00033.252l678 +++|* 00103 M01S00034.252l678 +++|* 00104 M01S00035.252l678 +++|* *READ ID BURST FAILURE.* (BFR) 00105 M01S00036.252l678 +++|* 00106 M01S00037.252l678 +++|* THIS MESSAGE IS ISSUED TO THE *E,P* DISPLAY IN THE FORM *READ 00107 M01S00038.252l678 +++|* ID BURST* TO INDICATE THAT THE P.E. OR G.C.R. SPECIAL 00108 M01S00039.252l678 +++|* CHARACTERS TO BE READ BY THE SUBSYSTEM AT LOAD POINT IS NOT 00109 M01S00040.252l678 +++|* POSSIBLE. 00110 M01S00041.252l678 +++|* 00111 M01S00042.252l678 +++|* WHEN THIS MESSAGE APPEARS, THE FOLLOWING ACTIONS SHOULD BE 00112 M01S00043.252l678 +++|* TAKEN. 00113 M01S00044.252l678 +++|* 00114 M01S00045.252l678 +++|* THE OPERATOR SHOULD DISMOUNT THE MAGNETIC TAPE FROM THE 00115 M01S00046.252l678 +++|* UNIT IN QUESTION, CLEAN THE HEAD ASSEMBLY, AND REMOUNT THE 00116 M01S00047.252l678 +++|* MAGNETIC TAPE. THE OPERATOR SHOULD THEN ENTER *RETRY,EST.*. 00117 M01S00048.252l678 +++|* THE SYSTEM WILL THEN RETRY THE ORIGINAL OPERATION FROM LOAD 00118 M01S00049.252l678 +++|* POINT. IF NO ERRORS OCCUR, THE JOB WILL CONTINUE NORMAL 00119 M01S00050.252l678 +++|* PROCESSING. IF THE ORIGINAL PROBLEM PERSISTS, THE MESSAGE 00120 M01S00051.252l678 +++|* *READ ID BURST* WILL AGAIN BE ISSUED TO THE *E,P* DISPLAY. 00121 M01S00052.252l678 +++|* THIS TIME THE OPERATOR OR C.E. SHOULD BE INSTRUCTED TO 00122 M01S00053.252l678 +++|* ENTER *TERMINATE,EST.* TO ABORT THE OPERATION. THE 00123 M01S00054.252l678 +++|* MESSAGE, *READ ID BURST FAILURE*, WILL APPEAR IN THE 00124 M01S00055.252l678 +++|* DAYFILE. 00125 M01S00056.252l678 +++|* 00126 M01S00057.252l678 +++|* 00127 M01S00058.252l678 +++|* *REPOSITION CORRECTED ERROR.* (RCE) 00128 M01S00059.252l678 +++|* 00129 M01S00060.252l678 +++|* THIS ERROR LOG MESSAGE IS USED TO ALERT THE C.E. TO 00130 M01S00061.252l678 +++|* THE FACT THAT THE TRANSPORT IS WRITING IN A MARGINAL 00131 M01S00062.252l678 +++|* STATE. THIS MESSAGE IS INTENDED TO PREVENT THE GENERATION 00132 M01S00063.252l678 +++|* OF MARGINAL TAPE BY THE SUBSYSTEM AND IT-S DEVICES. THIS 00133 M01S00064.252l678 +++|* MESSAGE IS TO BE CONSIDERED A MARGINAL DRIVE INDICATOR 00134 M01S00065.252l678 +++|* (MDI) BY THE C.E. AND APPROPRIATE ACTION SHOULD BE TAKEN 00135 M01S00066.252l678 +++|* IMMEDIATELY. 00136 M01S00067.252l678 +++|* 00137 M01S00068.252l678 +++|* 00138 M01S00069.252l678 +++|* *TAPE CLEANER FAULT.* (TCF) 00139 M01S00070.252l678 +++|* 00140 M01S00071.252l678 +++|* DRIVER DETECTED FAILURE (TRANSPORT ASSIGNED TO JOB) - 00141 M01S00072.252l678 +++|* 00142 M01S00073.252l678 +++|* THIS MESSAGE IS ISSUED TO THE *E,P* DISPLAY IN THE 00143 M01S00074.252l678 +++|* FORM *CLEANER FAULT* TO INDICATE THAT THE TAPE CLEANER 00144 M01S00075.252l678 +++|* WAS NOT IN THE STOWED POSITION AFTER A *LOAD* OR A 00145 M01S00076.252l678 +++|* *REWIND*. THE DRIVER HAS ALREADY UNLOADED THE TRANSPORT 00146 M01S00077.252l678 +++|* AND THE ASSIGNED JOB IS LOOPING WAITING FOR TRANSPORT TO 00147 M01S00078.252l678 +++|* COME *READY* AGAIN AND FOR *RETRY,EST.* TO BE ENTERED AT 00148 M01S00079.252l678 +++|* THE CONSOLE. IF CORRECTIVE ACTION IS NOT POSSIBLE, THE 00149 M01S00080.252l678 +++|* OPERATOR OR C.E. SHOULD ENTER *TERMINATE,EST.* TO 00150 M01S00081.252l678 +++|* ABORT THE OPERATION. THE MESSAGE, *TAPE CLEANER 00151 M01S00082.252l678 +++|* FAULT*, WILL APPEAR IN THE DAYFILE. 00152 M01S00083.252l678 +++|* 00153 M01S00084.252l678 +++|* SCANNER DETECTED FAILURE (TRANSPORT UNASSIGNED) - 00154 M01S00085.252l678 +++|* 00155 M01S00086.252l678 +++|* SINCE NO JOB HAS BEEN ASSIGNED TO THE TRANSPORT AT THIS 00156 M01S00087.252l678 +++|* POINT, CORRECTIVE ACTION CAN BE INITIATED ON THE FAILING 00157 M01S00088.252l678 +++|* UNIT BY CONTACTING A C.E. AND MOVING THE TAPE REEL TO 00158 M01S00089.252l678 +++|* ANOTHER UNASSIGNED TRANSPORT. SINCE THE JOB WAS NEVER 00159 M01S00090.252l678 +++|* ASSIGNED TO THE FAILING TRANSPORT, THIS UNASSIGNED 00160 M01S00091.252l678 +++|* TRANSPORT CAN ASSUME THE DUTIES ORIGINALLY INTENDED FOR 00161 M01S00092.252l678 +++|* THE FAILING DEVICE. IF NO OTHER TRANSPORT IS AVAILABLE, 00162 M01S00093.252l678 +++|* AND CORRECTIVE ACTION IS POSSIBLE, AND COMPLETED, THE 00163 M01S00094.252l678 +++|* TRANSPORT CAN BE RELOADED AND THE JOB SHOULD PROCESS AS 00164 M01S00095.252l678 +++|* IF NO TAPE CLEANER FAULT EVER OCCURRED. 00165 M01S00096.252l678 +++|* 00166 M01S00097.252l678 +++|* 00167 M01S00098.252l678 +++|* *WRITE ID BURST FAILURE.* (BFW) 00168 M01S00099.252l678 +++|* 00169 M01S00100.252l678 +++|* THIS MESSAGE IS ISSUED TO THE *E,P* DISPLAY IN THE FORM 00170 M01S00101.252l678 +++|* *WRITE ID BURST* TO INDICATE THAT THE P.E. OR G.C.R. SPECIAL 00171 M01S00102.252l678 +++|* CHARACTERS TO BE READ BY THE SUBSYSTEM AT LOAD POINT IS NOT 00172 M01S00103.252l678 +++|* POSSIBLE. 00173 M01S00104.252l678 +++|* 00174 M01S00105.252l678 +++|* WHEN THIS MESSAGE APPEARS, THE FOLLOWING ACTIONS SHOULD 00175 M01S00106.252l678 +++|* BE TAKEN. 00176 M01S00107.252l678 +++|* 00177 M01S00108.252l678 +++|* THE OPERATOR SHOULD DISMOUNT THE MAGNETIC TAPE FROM THE 00178 M01S00109.252l678 +++|* UNIT IN QUESTION, CLEAN THE HEAD ASSEMBLY, AND REMOUNT THE 00179 M01S00110.252l678 +++|* MAGNETIC TAPE. THE OPERATOR SHOULD THEN ENTER *RETRY,EST.*. 00180 M01S00111.252l678 +++|* THE SYSTEM WILL THEN RETRY THE ORIGINAL OPERATION FROM LOAD 00181 M01S00112.252l678 +++|* POINT. IF NO ERRORS OCCUR, THE JOB WILL CONTINUE NORMAL 00182 M01S00113.252l678 +++|* PROCESSING. IF THE ORIGINAL PROBLEM PERSISTS, THE MESSAGE 00183 M01S00114.252l678 +++|* *WRITE ID BURST* WILL AGAIN BE ISSUED TO THE *E,P* DISPLAY. 00184 M01S00115.252l678 +++|* THIS TIME THE OPERATOR OR C.E. SHOULD BE INSTRUCTED TO 00185 M01S00116.252l678 +++|* DISMOUNT AND REPLACE THE MAGNETIC TAPE REEL. 00186 M01S00117.252l678 +++|* 00187 M01S00118.252l678 +++|* WHEN THE NEW REPLACEMENT REEL OF TAPE IS MOUNTED ON THE 00188 M01S00119.252l678 +++|* TRANSPORT AND THE UNIT GOES *READY* AND *RETRY,EST.* HAS 00189 M01S00120.252l678 +++|* BEEN ENTERED AT THE CONSOLE, THE LABELS FROM THE DISREGARDED 00190 M01S00121.252l678 +++|* REEL ARE WRITTEN ON THIS NEW REEL IF LABELED TAPE. IN 00191 M01S00122.252l678 +++|* ANY CASE, THE EXTERNAL REEL IDENTIFICATION LABEL MUST BE 00192 M01S00123.252l678 +++|* TRANSFERRED TO THE REPLACEMENT REEL. THE EXTERNAL REEL 00193 M01S00124.252l678 +++|* IDENTIFICATION LABEL ON THE ORIGINAL DEFECTIVE REEL MUST BE 00194 M01S00125.252l678 +++|* REMOVED TO PREVENT DUPLICATE REEL NUMBERS. 00195 M01S00126.252l678 +++|* 00196 M01S00127.252l678 +++|* IF THE ORIGINAL PROBLEM HAS BEEN OVERCOME, PROCESSING WILL 00197 M01S00128.252l678 +++|* CONTINUE AS NORMAL. IF THE PROBLEM PERSISTS, THE OPERATOR 00198 M01S00129.252l678 +++|* OR C.E. SHOULD BE INSTRUCTED TO ENTER *TERMINATE,EST.* TO 00199 M01S00130.252l678 +++|* ABORT THE OPERATION. THE MESSAGE, *WRITE ID BURST 00200 M01S00131.252l678 +++|* FAILURE*, WILL APPEAR IN THE DAYFILE. 00201 M01S00132.252l678 +++|* 00202 M01S00133.252l678 +++|* 00203 M01S00134.252l678 +++|* *WRITE VERIFY FAILURE.* (WVF) 00204 M01S00135.252l678 +++|* 00205 M01S00136.252l678 +++|* THIS MESSAGE IS POSTED IF THE TAPE WAS POSITIONED PROPERLY 00206 M01S00137.252l678 +++|* AND THE BLOCK ID OF THE WINDOW COULD BE READ CORRECTLY, BUT 00207 M01S00138.252l678 +++|* THE GAP AND CURRENT BLOCK CANNOT BE READ. 00208 M00S00044.1mt +++| SPACE 4,10 00209 M00S00045.1mt +++|*** DEFINITIONS AND ABBREVIATIONS. 00210 M00S00046.1mt +++|* 00211 M00S00047.1mt +++|* THE FOLLOWING ARE TERMS THAT WILL BE USED THROUGHOUT 00212 M00S00048.1mt +++|* THIS ROUTINE. 00213 M00S00049.1mt +++|* 00214 M00S00050.1mt +++|* BID BLOCK ID. 00215 M00S00051.1mt +++|* 00216 M00S00052.1mt +++|* BOT BEGINNING OF TAPE. 00217 M00S00053.1mt +++|* 00218 M00S00054.1mt +++|* CHUNK THIS DEFINES THE PORTION OF A BLOCK HANDLED BY EACH 00219 M00S00055.1mt +++|* PPU DURING LONG BLOCK OPERATIONS. 00220 M00S00056.1mt +++|*
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00221 M01S00004.274l797 +++|* CTS CARTRIDGE TAPE SUBSYSTEM. 00222 M01S00005.274l797 +++|* 00223 M00S00057.1mt +++|* EOT END OF TAPE. 00224 M00S00058.1mt +++|* 00225 M00S00059.1mt +++|* LGB LAST GOOD BLOCK. 00226 M00S00060.1mt +++|* 00227 M00S00061.1mt +++|* PCL PROGRAMMABLE CLIPPING LEVEL. 00228 M00S00062.1mt +++|* 00229 M00S00063.1mt +++|* TM TAPE MARK. 00230 M00S00064.1mt +++|* 00231 M00S00065.1mt +++|* SNB SYSTEM NOISE BYTE. 00232 M00S00066.1mt +++|* 00233 M00S00067.1mt +++|* UBC UNUSED BIT COUNT. AS USED TO DEFINE THE EXACT NUMBER 00234 M00S00068.1mt +++|* OF BYTES AND FRAMES TO BE WRITTEN ON OR READ FROM 00235 M00S00069.1mt +++|* TAPE. 00236 M00S00070.1mt +++|* 00237 M00S00071.1mt +++|* UDT UNIT DESCRIPTOR TABLE. THE AREA OF *MAGNET,S* 00238 M00S00072.1mt +++|* FIELD LENGTH WHICH CONTAINS THE INFORMATION DESCRIBING 00239 M00S00073.1mt +++|* EACH TAPE UNIT AND THE CHARACTERISTICS OF THE TAPE 00240 M00S00074.1mt +++|* BEING PROCESSED. 00241 M00S00075.1mt +++|* 00242 M00S00076.1mt +++|* EXPLICIT PROCESSOR. DEFINES A CASE WHERE CERTAIN 00243 M00S00077.1mt +++|* UNITS CAN ONLY BE SERVICED BY CERTAIN COPIES 00244 M00S00078.1mt +++|* 0F *1MT* DUE TO CONFIGURATION RESTRICTIONS. 00245 M00S00079.1mt +++| SPACE 4,10 00246 M00S00080.1mt +++|*** PROGRAMMING CONSIDERATIONS. 00247 M00S00081.1mt +++|* 00248 M00S00082.1mt +++|* IN ORDER TO CONSERVE SPACE, THIS PROGRAM OVERLAYS ITSELF 00249 M00S00083.1mt +++|* EXTENSIVELY. IT IS DESIGNED TO MAKE MAXIMUM USE OF AREAS 00250 M00S00084.1mt +++|* THAT ARE NORMALLY SACRED SUCH AS THE 5 BYTE HEADER 00251 M00S00085.1mt +++|* ON PPU ROUTINES, FOR EXAMPLE. PLEASE TAKE DUE CARE 00252 M00S00086.1mt +++|* WHEN ATTEMPTING MODIFICATIONS. 00253 M00S00087.1mt +++|* 00254 M00S00088.1mt +++|* READ/WRITE OVERLAY GROUPS MUST BE IN THE FOLLOWING ORDER - 00255 M00S00089.1mt +++|* MAIN PROCCESOR. 00256 M00S00090.1mt +++|* LONG BLOCK PROCESSOR. 00257 M00S00091.1mt +++|* LABEL PROCESSOR. 00258 M00S00092.1mt +++|* ERROR PROCESSOR MUST BE LAST. 00259 M00S00093.1mt +++|* 00260 M00S00094.1mt +++|* REMEMBER WHEN READING/WRITING DIRECTLY FROM/TO THE UDT TO BE 00261 M00S00095.1mt +++|* SURE THAT *1MT* IS AT *MAGNET,S* CONTROL POINT. 00262 M00S00096.1mt +++|* 00263 M00S00097.1mt +++|* NOTE THE OVERLAY NAMES OF THE FOLLOWING OVERLAYS ARE HARD 00264 M00S00098.1mt +++|* CODED INTO EXECUTE MACROS. *LOV* CANNOT BE USED TO LOAD 00265 M00S00099.1mt +++|* THESE OVERLAYS BECAUSE THE CHANNEL MAY NOT BE RESERVED 00266 M00S00100.1mt +++|* OR CHANNEL PROBLEMS OCCURRED WHICH MUST BE DIAGNOSED 00267 M00S00101.1mt +++|* BEFORE ATTEMPTING MORE FUNCTIONS. 00268 M00S00102.1mt +++|* 3MA - INITIALIZE TAPE EXECUTIVE.
| Line S00103 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00269 M01S00103.274l797 ---|* 3MB - FUNCTION REJECT PROCESSOR.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00270 M01S00006.274l797 +++|* 3MB - FUNCTION REJECT PROCESSOR (ALL EXCEPT CTS). 00271 M00S00104.1mt +++|* 3MD - ATS/MTS SPECIAL MESSAGE PROCESSOR. 00272 M00S00105.1mt +++|* 00273 M00S00106.1mt +++|* USE THE CROSS REFERENCE TABLES WHEN TAGS ARE SHUFFLED. 00274 M00S00107.1mt +++|* IN PARTICULAR THE TAGS IN READ/WRITE ARE REFERENCED BY LONG 00275 M00S00108.1mt +++|* BLOCK OVERLAYS AT SEVERAL PLACES. 00276 M00S00109.1mt +++| SPACE 4,10 00277 M00S00110.1mt +++|*** RESIDENCY RECOMMENDATIONS. 00278 M00S00111.1mt +++|* 00279 M00S00112.1mt +++|* THE FOLLOWING IS A SUGGESTED ORDER OF PRIORITY FOR MAKING 00280 M00S00113.1mt +++|* ROUTINES CM OR ALTERNATE LIBRARY RESIDENCE. 00281 M00S00114.1mt +++|* 00282 M00S00115.1mt +++|* 1) CONTROL POINT/CODED PRESET. 00283 M00S00116.1mt +++|* 2) READ FUNCTION PROCESSOR. 00284 M00S00117.1mt +++|* 3) WRITE FUNCTION PROCESSOR. 00285 M00S00118.1mt +++|* 4) DROP PPU PROCESSOR. 00286 M00S00119.1mt +++|* 5) 1MT ITSELF. 00287 M00S00120.1mt +++|* 6) *3MB* IF RECOVERY FROM FUNCTION REJECTS DESIRED. 00288 M00S00121.1mt +++| SPACE 4,10 00289 M00S00122.1mt +++|*** DOCUMENTATION CONVENTIONS. 00290 M00S00123.1mt +++|* 00291 M00S00124.1mt +++|* TAG CONVENTIONS. 00292 M00S00125.1mt +++|* ASSUME A ROUTINE NAMED *ABC*. 00293 M00S00126.1mt +++|* *ABCA* - *ABCZ* WOULD BE CONSTANTS AND INSTRUCTIONS MODIFIED 00294 M00S00127.1mt +++|* *.EABC* WOULD BE FOR LOCATIONS REFERENCED BY THE ERROR 00295 M00S00128.1mt +++|* PROCESSOR.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2466 |
Seq # *Modification Id* Act ----------------------------+ 00296 M01S00002.ns2466 +++|* 00297 M01S00003.ns2466 +++|* THE TERM *ATS-TYPE CONTROLLER* MEANS AN ATS, FSC, CMTS OR 00298 M01S00004.ns2466 +++|* ISMT CONTROLLER. IF IT IS NECESSARY TO DISTINGUISH BETWEEN 00299 M01S00005.ns2466 +++|* THESE FOUR TYPES, IT WILL BE EXPLICITLY DOCUMENTED. 00300 M00S00129.1mt +++| SPACE 4,10 00301 M00S00130.1mt +++|** MISCELLANEOUS SYMBOL DEFINITIONS. 00302 M00S00131.1mt +++| 00303 M00S00132.1mt +++|
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00304 M01S00001.261l700 +++|*CALL COMPMAC
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00305 M01S00001.ns21000 +++|*CALL COMSDFS 00306 M00S00133.1mt +++|*CALL COMSMSC 00307 M00S00134.1mt +++| SPACE 4,10 00308 M00S00135.1mt +++|** MICRO DEFINITIONS. 00309 M00S00136.1mt +++| 00310 M00S00137.1mt +++| 00311 M00S00138.1mt +++| VERNUM MICRO 6,3,+"VER170"+ 00312 M00S00139.1mt +++| SPACE 4,10
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00313 M01S00007.274l797 +++|** CCC FUNCTION CODES FOR CTS. 00314 M01S00008.274l797 +++| 00315 M01S00009.274l797 +++| 00316 M01S00010.274l797 +++| F0001 EQU 0001 RELEASE UNIT 00317 M01S00011.274l797 +++| F0002 EQU 0002 CONTINUE 00318 M01S00012.274l797 +++| F0010 EQU 0010 REWIND 00319 M01S00013.274l797 +++| F0110 EQU 0110 REWIND/UNLOAD 00320 M01S00014.274l797 +++| F0012 EQU 0012 GENERAL STATUS 00321 M01S00015.274l797 +++| F0013 EQU 0013 FORESPACE BLOCK 00322 M01S00016.274l797 +++| F0016 EQU 0016 LOCATE BLOCK 00323 M01S00017.274l797 +++| F0113 EQU 0113 BACKSPACE BLOCK 00324 M01S00018.274l797 +++| F0112 EQU 0112 DETAILED STATUS 00325 M01S00019.274l797 +++| F0212 EQU 0212 READ BLOCK ID 00326 M01S00020.274l797 +++| F0312 EQU 0312 READ BUFFERED LOG 00327 M01S00021.274l797 +++| F0020 EQU 0020 CONNECT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2794 |
Seq # *Modification Id* Act ----------------------------+ 00328 M01S00001.ns2794 +++| F0220 EQU 0220 CONNECT AND SELECT DATA COMPRESSION
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00329 M01S00022.274l797 +++| F0040 EQU 0040 READ FORWARD 00330 M01S00023.274l797 +++| F0140 EQU 0140 READ REVERSE 00331 M01S00024.274l797 +++| F0050 EQU 0050 WRITE 00332 M01S00025.274l797 +++| F0250 EQU 0250 SHORT WRITE 00333 M01S00026.274l797 +++| F0051 EQU 0051 WRITE TAPE MARK 00334 M01S00027.274l797 +++| F0414 EQU 0414 AUTOLOAD 00335 M01S00028.274l797 +++| SPACE 4,10 00336 M01S00029.274l797 +++|** TRACE CODE FOR CTS. 00337 M01S00030.274l797 +++| 00338 M01S00031.274l797 +++| TE EQU 0 = 1 TO ENABLE TRACE BUFFER 00339 M01S00032.274l797 +++| SPACE 4,10 00340 M01S00033.274l797 +++|** CCC ERROR CODES FOR CTS. 00341 M01S00034.274l797 +++|
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | ns2794 |
Seq # *Modification Id* Act ----------------------------+ 00342 M02S00035.ns2794 ---| CE01 EQU 01B TRANSPORT NOT ON-LINE 00343 M02S00036.ns2794 ---| CE32 EQU 32B DRIVE BUSY 00344 M02S00037.ns2794 ---| CE33 EQU 33B CONTROL UNIT BUSY
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mt45 |
M02 (Removed by) | ns2794 |
Seq # *Modification Id* Act ----------------------------+ 00345 M02S00001.ns2794 ---| CE51 EQU 51B NO TAPE UNIT CONNECTED
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2794 |
Seq # *Modification Id* Act ----------------------------+ 00346 M01S00002.ns2794 +++| CE001 EQU 1 TRANSPORT NOT ON-LINE 00347 M01S00003.ns2794 +++| CE007 EQU 7 DENSITY MARK/BLOCK ID READ FAILURE 00348 M01S00004.ns2794 +++| CE012 EQU 12 WRITE ERROR AT LOAD POINT 00349 M01S00005.ns2794 +++| CE032 EQU 32 DRIVE BUSY 00350 M01S00006.ns2794 +++| CE033 EQU 33 CONTROL UNIT BUSY 00351 M01S00007.ns2794 +++| CE051 EQU 51 NO TAPE UNIT CONNECTED
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00352 M01S00038.274l797 +++| SPACE 4,10 00353 M01S00039.274l797 +++|** ERPA CODES FOR CTS. 00354 M01S00040.274l797 +++| 00355 M01S00041.274l797 +++| ER33 EQU 0#33 LOAD FAILURE 00356 M01S00042.274l797 +++| SPACE 4,10 00357 M00S00140.1mt +++|** ASSEMBLY CONSTANTS. 00358 M00S00141.1mt +++| 00359 M00S00142.1mt +++| 00360 M00S00143.1mt +++| QUAL$ EQU 1 DEFINE UNQUALIFIED COMMON DECKS 00361 M00S00144.1mt +++| BUFC EQU 2765 BUFFER CONTROL WORD 00362 M00S00145.1mt +++| BUF EQU BUFC+5 FWA DATA BUFFER 00363 M00S00146.1mt +++| BUFL EQU BUF+5000 CONTROL WORD FOR LEVEL NUMBER 00364 M00S00147.1mt +++| LBBY EQU 3600 LONG BLOCK BYTES PER INPUT 00365 M00S00148.1mt +++| BUFB EQU 3750 SEE NOTE
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00366 M01S00043.274l797 +++| LICH EQU 12 LI FULL CHUNK COUNT 00367 M01S00044.274l797 +++| LIRW EQU 400 LI REMAINDER IN WORDS 00368 M00S00149.1mt +++| CH EQU TC TAPE CHANNEL 00369 M00S00150.1mt +++| ERLA EQU 7775-2*500 ERROR PROCESSOR LOAD ADDRESS 00370 M00S00151.1mt +++| ERLB EQU 7775-1*500 SPECIAL ERROR PROCESSOR LOAD ADDRESS 00371 M00S00152.1mt +++| BLKS EQU 40 BLOCKS TO TRANSFER BEFORE REQUEST SWITCH
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00372 M02S00002.274l797 ---| BLKX EQU 3776 BLOCKS TO TRANSFER BEFORE SWITCH (ISMT)
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00373 M01S00045.274l797 +++| BLKX EQU 3776 BLOCKS TO TRANSFER BEFORE SWITCH (ISMT) 00374 M01S00046.274l797 +++| BLKC EQU 100 BLOCKS TO TRANSFER BEFORE SWITCH (CTS) 00375 M00S00153.1mt +++| SBLK EQU 400 BLOCKS TO SKIP BEFORE CHECKING ERROR FLAG
| Line S00154 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00376 M01S00154.274l797 ---| LABL EQU 80D/2 MAXIMUM LENGTH OF ANY LABEL BLOCK 00377 M01S00155.274l797 ---| LABW EQU LABL/5 CM WORDS IN LABEL
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00378 M02S00047.282l826 ---| LABL EQU 80D/2 LABEL LENGTH (DISPLAY CODE)
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00379 M01S00019.282l826 +++| LABL EQU 80D/2 LABEL LENGTH IN BYTES
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00380 M01S00048.274l797 +++| CLBL EQU 81D*8D/12D MAXIMUM LENGTH OF ANY LABEL BLOCK (CTS) 00381 M01S00049.274l797 +++| LABW EQU 80D/2/5 CM WORDS IN LABEL
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00382 M01S00020.282l826 +++| SLBY EQU 2400 SKIP LI FORMAT BYTES PER INPUT
| Line S00156 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00383 M01S00156.252l678 ---| ERAL EQU 20D ERASE LIMIT
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00384 M01S00139.252l678 +++| ERAL EQU 45D ERASE LIMIT SET TO 15 FEET 00385 M00S00157.1mt +++| BCKS EQU 3 NUMBER OF BYTES TO CHECKSUM (POWER OF 2) 00386 M00S00158.1mt +++| LCKS EQU 5000 LENGTH TO USE IN CHECKSUM OF LONG BLOCKS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mt22 |
Seq # *Modification Id* Act ----------------------------+ 00387 M01S00001.1mt22 +++| MXBS EQU 76 MAXIMUM NUMBER OF CONSECUTIVE BACKSPACES 00388 M01S00002.1mt22 +++| ERRPL MXBS-100 MAXIMUM NUMBER OF BACKSPACES TOO LARGE 00389 M00S00159.1mt +++| 00390 M00S00160.1mt +++|* NOTE BUFB IS BUFFER FOR LONG BLOCK READS AND WRITES 00391 M00S00161.1mt +++|* AND ALSO THE ORIGIN ADDRESS FOR READ AND WRITE 00392 M00S00162.1mt +++|* ERROR PROCESSING. INCREASING IT,S VALUE WILL 00393 M00S00163.1mt +++|* INCREASE THE ALLOWABLE SIZE OF THE READ AND WRITE 00394 M00S00164.1mt +++|* LONG BLOCK OVERLAYS AND DECREASE THE MAXIMUM 00395 M00S00165.1mt +++|* LENGTH OF THE ERROR PROCESSORS. 00396 M00S00166.1mt +++| SPACE 4,10 00397 M00S00167.1mt +++|** COMMON DECKS. 00398 M00S00168.1mt +++|
| Line S00169 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00399 M01S00169.261l700 ---|*CALL COMPMAC 00400 M00S00170.1mt +++|*CALL COMPCHI
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00401 M02S00050.282l826 ---| QUAL ATF 00402 M02S00051.282l826 ---|*CALL COMSATF 00403 M02S00052.282l826 ---| QUAL * 00404 M00S00171.1mt +++| QUAL COMSCIO 00405 M00S00172.1mt +++|*CALL COMSCIO 00406 M00S00173.1mt +++| QUAL * 00407 M00S00174.1mt +++| QUAL CPS 00408 M00S00175.1mt +++|*CALL COMSCPS 00409 M00S00176.1mt +++| QUAL * 00410 M00S00177.1mt +++| QUAL EJT 00411 M00S00178.1mt +++|*CALL COMSEJT 00412 M00S00179.1mt +++| QUAL *
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00413 M01S00021.282l826 +++| QUAL EVT 00414 M01S00022.282l826 +++|*CALL COMSEVT 00415 M01S00023.282l826 +++| QUAL *
| Line S00180 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00416 M01S00180.282l826 ---| QUAL EVENT 00417 M01S00181.282l826 ---|*CALL COMSEVT 00418 M01S00182.282l826 ---| QUAL * 00419 M01S00183.282l826 ---|*CALL COMSMSP 00420 M01S00184.282l826 ---|*CALL COMSMST 00421 M00S00185.1mt +++|*CALL COMSPIM 00422 M00S00186.1mt +++| QUAL SRU 00423 M00S00187.1mt +++| MT$ SET 1 ONLY ASSEMBLE MT INCREMENTS 00424 M00S00188.1mt +++|*CALL COMSSRU 00425 M00S00189.1mt +++| QUAL * 00426 M00S00190.1mt +++| QUAL SSD 00427 M00S00191.1mt +++|*CALL COMSSSD 00428 M00S00192.1mt +++| QUAL * 00429 M00S00193.1mt +++|*CALL COMSZOL 00430 M00S00194.1mt +++| LIST X 00431 M00S00195.1mt +++| QUAL MTX 00432 M00S00196.1mt +++|*CALL COMSMTX 00433 M00S00197.1mt +++| QUAL * 00434 M00S00198.1mt +++| LIST * 00435 M00S00199.1mt +++| SPACE 4,10 00436 M00S00200.1mt +++|**** DIRECT LOCATION ASSIGNMENTS. 00437 M00S00201.1mt +++| 00438 M00S00202.1mt +++| 00439 M00S00203.1mt +++| LOC 16 00440 M00S00204.1mt +++| T8 BSS 1 TEMPORARY 00441 M00S00205.1mt +++| T9 BSS 1 TEMPORARY
| Line S00206 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00442 M01S00206.282l826 ---| ED BSS 1 EQUIPMENT AND UNIT 00443 M01S00207.282l826 ---| HP BSS 1 HARDWARE OPTIONS 00444 M01S00208.282l826 ---| EC BSS 1 ERROR CODE
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00445 M01S00024.282l826 +++| ED BSS 1 EQUIPMENT DESCRIPTION 00446 M01S00025.282l826 +++| HP BSS 1 HARDWARE PARAMETERS 00447 M01S00026.282l826 +++| EO BSS 1 EST ORDINAL 00448 M00S00209.1mt +++| ES BSS 1 EXTENDED STATUS 00449 M00S00210.1mt +++| DS BSS 1 DEVICE STATUS 00450 M00S00211.1mt +++| EI BSS 1 ERROR ITERATIONS 00451 M00S00212.1mt +++| WP BSS 1 BID WINDOW POINTER (MTS/ATS) 00452 M00S00213.1mt +++| BL BSS 2 BLOCK COUNT
| Line S00214 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00453 M01S00214.282l826 ---| UP BSS 1 USER OPTIONS
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00454 M01S00027.282l826 +++| UP BSS 1 USER OPTIONS, FLAGS 00455 M00S00215.1mt +++| LG BSS 2 LENGTH OF LAST GOOD RECORD 00456 M00S00216.1mt +++| EP BSS 2 ERROR PARAMETERS
| Line S00217 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00457 M01S00217.282l826 ---| DC BSS 1 DENSITY, CONVERSION
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00458 M01S00028.282l826 +++| EC BSS 1 ERROR CODE 00459 M00S00218.1mt +++|
| Line S00219 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00460 M01S00219.282l826 ---|* NEXT 5 BYTES ARE NOT WRITTEN BACK TO THE UDT 00461 M01S00220.282l826 ---|* UPON NORMAL COMPLETION. THIS IS NOTED BECAUSE SOME 00462 M01S00221.282l826 ---|* OVERLAYS USE THEM AS LOCAL TO OVERLAY CELLS.
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00463 M01S00029.282l826 +++|* THE FOLLOWING FIVE CELLS ARE NOT WRITTEN BACK TO THE UDT ON 00464 M01S00030.282l826 +++|* REQUEST COMPLETION BECAUSE SOME OVERLAYS USE *WC* AND *OV* AS 00465 M01S00031.282l826 +++|* LOCAL CELLS. 00466 M00S00222.1mt +++|
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00467 M01S00032.282l826 +++| LT BSS 1 LABEL TYPE, DEVICE TYPE, REQUESTED DENSITY 00468 M01S00033.282l826 +++| SP BSS 1 SOFTWARE OPTIONS 00469 M01S00034.282l826 +++| FM BSS 1 TAPE FORMAT AND NOISE BYTE DEFINITION 00470 M00S00223.1mt +++| WC BSS 1 CM WORDS PER PRU 00471 M00S00224.1mt +++| OV BSS 1 CHUNK COUNT - LONG BLOCKS
| Line S00225 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00472 M01S00225.ns22000 ---| FM BSS 1 FORMAT 00473 M01S00226.ns22000 ---| EO BSS 0 EST ORDINAL (11 - 6) 00474 M01S00227.ns22000 ---| NB BSS 1 NOISE BYTES (5 - 0)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00475 M02S00001.282l826 ---| EO BSS 1 EST ORDINAL 00476 M02S00002.282l826 ---| NB BSS 1 NOISE BYTES (AND FORMAT - SEE *FM*)
| Line S00228 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00477 M01S00228.282l826 ---| SP BSS 1 SOFTWARE OPTIONS 00478 M00S00229.1mt +++| BSS 1 RESERVED
| Line S00230 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00479 M01S00230.251l664 ---| TB BSS 1 BLOCK TYPE (READ)/READ AHEAD LENGTH (WRITE)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00480 M01S00001.251l664 +++| TB BSS 1 BLOCK TYPE (READ) 00481 M00S00231.1mt +++| CF BSS 1 CHANNEL FLAGS
| Line S00232 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00482 M01S00232.282l826 ---|* 13 - 11 = PROCESSOR NUMBER 00483 M01S00233.282l826 ---|* 10 = RESERVED
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00484 M01S00035.282l826 +++|* 13 - 10 = RESERVED
| Line S00234 Modification History | |
|---|---|
M01 (Removed by) | 1mt34 |
Seq # *Modification Id* Act ----------------------------+ 00485 M01S00234.1mt34 ---|* 7, 6 = 00 - RESERVED
| Line S00235 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 1mt34 |
Seq # *Modification Id* Act ----------------------------+ 00486 M02S00235.1mt34 ---|* = 01 - ATS OR FSC CONTROLLER
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2466 |
M03 (Removed by) | 1mt34 |
Seq # *Modification Id* Act ----------------------------+ 00487 M03S00003.1mt34 ---|* = 01 - ATS OR FSC OR ISMT CONTROLLER
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2466 |
M02 (Removed by) | 1mt34 |
Seq # *Modification Id* Act ----------------------------+ 00488 M02S00006.1mt34 ---|* = 01 - ATS/FSC/ISMT/CMTS CONTROLLER
| Line S00236 Modification History | |
|---|---|
M01 (Removed by) | 1mt34 |
Seq # *Modification Id* Act ----------------------------+ 00489 M01S00236.1mt34 ---|* = 10 - MTS CHANNEL
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 1mt34 |
Seq # *Modification Id* Act ----------------------------+ 00490 M01S00003.1mt34 +++|* 7, 6 = 00 - ISMT CONTROLLER 00491 M01S00004.1mt34 +++|* = 01 - ATS/CMTS/FSC CONTROLLER 00492 M01S00005.1mt34 +++|* = 10 - MTS CONTROLLER
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00493 M01S00053.274l797 +++|* = 11 - CTS CONTROLLER
| Line S00237 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00494 M01S00237.ns21000 ---|* = 11 - MTS CHANNEL WITH NO BLOCK ID
| Line S00238 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00495 M01S00238.282l826 ---|* 5 - 3 = RESERVED 00496 M01S00239.282l826 ---|* 2 = MONITORING IN PROGRESS 00497 M01S00240.282l826 ---|* 1 = MONITORING TO BE INITIATED
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00498 M01S00036.282l826 +++|* 5 - 1 = RESERVED 00499 M00S00241.1mt +++|* 0 = 64 CHARACTER SET FLAG
| Line S00242 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00500 M01S00242.ns22000 ---| RC BSS 1 RECALL CPU FUNCTON
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00501 M02S00003.282l826 ---| FM BSS 1 FORMAT (ALSO IN *NB*)
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00502 M01S00037.282l826 +++| BSS 1 RESERVED 00503 M00S00243.1mt +++| RS BSS 1 RETURN STATUS 00504 M00S00244.1mt +++| FN BSS 1 FUNCTION NUMBER 00505 M00S00245.1mt +++| MD BSS 1 DRIVER MODE FUNCTION 00506 M00S00246.1mt +++| PA BSS 1 PARAMETER 00507 M00S00247.1mt +++| PB BSS 1 PARAMETER 00508 M00S00248.1mt +++| BSS 2 (RA AND FL) 00509 M00S00249.1mt +++| SC BSS 1 SCRATCH
| Line S00250 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00510 M01S00250.274l797 ---| BT BSS 1 BLOCKS TRANSFERED/OVERLAY ENTRY ADDRESS
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00511 M01S00054.274l797 +++| BT BSS 1 BLOCKS TRANSFERRED/OVERLAY ENTRY ADDRESS 00512 M00S00251.1mt +++| BY BSS 1 BYTES TO BE PROCESSED 00513 M00S00252.1mt +++| CN BSS 5 CM BUFFER 00514 M00S00253.1mt +++| DF BSS 1 DROP OUT FLAG (SEE CDO) 00515 M00S00254.1mt +++| LOC *O 00516 M00S00255.1mt +++|**** 00517 M00S00256.1mt +++| TITLE GENERAL USAGE MACROS. 00518 M00S00257.1mt +++| BUFFER SPACE 4,10 00519 M00S00258.1mt +++|** BUFFER - CHECK FOR BUFFER OVERFLOW. 00520 M00S00259.1mt +++|* 00521 M00S00260.1mt +++|* BUFFER B 00522 M00S00261.1mt +++|* B IF DEFINED MEANS CHECK FOR LONG BLOCK BUFFER (BUFB), 00523 M00S00262.1mt +++|* INSTEAD OF *BUF*. 00524 M00S00263.1mt +++| 00525 M00S00264.1mt +++| 00526 M00S00265.1mt +++| PURGMAC BUFFER 00527 M00S00266.1mt +++| BUFFER MACRO B
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00528 M01S00038.282l826 +++| MACREF BUFFER 00529 M00S00267.1mt +++| USE BUFFER 00530 M00S00268.1mt +++| IFC EQ,*B**,4 00531 M00S00269.1mt +++| LIST M 00532 M00S00270.1mt +++| ERRNG BUFC-* OVERFLOWED INTO BUFFER 00533 M00S00271.1mt +++| LIST * 00534 M00S00272.1mt +++| ELSE 3 00535 M00S00273.1mt +++| LIST M 00536 M00S00274.1mt +++| ERRNG BUFB-* OVERFLOWED INTO BUFFER 00537 M00S00275.1mt +++| LIST * 00538 M00S00276.1mt +++| ENDM 00539 M00S00277.1mt +++| CALL SPACE 4,10 00540 M00S00278.1mt +++|** CALL - LOAD AND ENTER OVERLAY AT DEFINED ENTRY POINT. 00541 M00S00279.1mt +++|* 00542 M00S00280.1mt +++|* 00543 M00S00281.1mt +++|* CALL EPR 00544 M00S00282.1mt +++|* ENTRY *EPR* = DESIRED ENTRY POINT AS DEFINED BY ENTRY MACRO. 00545 M00S00283.1mt +++| 00546 M00S00284.1mt +++| 00547 M00S00285.1mt +++| PURGMAC CALL 00548 M00S00286.1mt +++| 00549 M00S00287.1mt +++| CALL MACRO EPR
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00550 M01S00039.282l826 +++| MACREF CALL 00551 M00S00288.1mt +++| LDN EPR/10000 00552 M00S00289.1mt +++| RJM LOV 00553 M00S00290.1mt +++| ENDM 00554 M00S00291.1mt +++| C6364 SPACE 4,10 00555 M00S00292.1mt +++|** C6463 - GENERATE TABLE FOR MODIFICATION OF CONVERSION TABLES 00556 M00S00293.1mt +++|* FROM 64 TO 63 CHARACTER SET. 00557 M00S00294.1mt +++|* 00558 M00S00295.1mt +++|* C6463 MAC,CH,P 00559 M00S00296.1mt +++|* ENTRY *MAC* = MACRO TO BE CALLED TO GENERATE CHARACTERS. 00560 M00S00297.1mt +++|* *CH* = CHARACTER. 00561 M00S00298.1mt +++|* *P* = IF DEFINED, 1 ADDRESS BYTE AND 2 MODIFICATION 00562 M00S00299.1mt +++|* BYTES WILL BE GENERATED AND PLACED IN A SEPARATE TABLE. 00563 M00S00300.1mt +++| 00564 M00S00301.1mt +++| 00565 M00S00302.1mt +++| C6463 MACRO A,B,P 00566 M00S00303.1mt +++| LOCAL C,D 00567 M00S00304.1mt +++| C BSS 0 00568 M00S00305.1mt +++| LOC *O 00569 M00S00306.1mt +++| D BSS 0 00570 M00S00307.1mt +++| LOC C 00571 M00S00308.1mt +++| IFC EQ,*P** 00572 M00S00309.1mt +++| C63 RMT 00573 M00S00310.1mt +++| CON D-1 00574 M00S00311.1mt +++| A B 00575 M00S00312.1mt +++| C63 RMT 00576 M00S00313.1mt +++| ELSE 00577 M00S00314.1mt +++| C63P RMT 00578 M00S00315.1mt +++| CON D-2 00579 M00S00316.1mt +++| A B 00580 M00S00317.1mt +++| C63P RMT 00581 M00S00318.1mt +++| ENDIF 00582 M00S00319.1mt +++| ENDM 00583 M00S00320.1mt +++| ENTRY SPACE 4,10 00584 M00S00321.1mt +++|** ENTRY - DEFINE OVERLAY ENTRY POINT. 00585 M00S00322.1mt +++|* 00586 M00S00323.1mt +++|* 00587 M00S00324.1mt +++|* ENTRY NAME 00588 M00S00325.1mt +++|* ENTRY *NAME* = NAME OF ENTRY ADDRESS. 00589 M00S00326.1mt +++| 00590 M00S00327.1mt +++| 00591 M00S00328.1mt +++| PURGMAC ENTRY 00592 M00S00329.1mt +++| 00593 M00S00330.1mt +++| ENTRY MACRO NAME
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00594 M01S00040.282l826 +++| MACREF ENTRY 00595 M00S00331.1mt +++| QUAL 00596 M00S00332.1mt +++| NAME EQU *+1R".MA"*10000 00597 M00S00333.1mt +++| QUAL ".QNAM" 00598 M00S00334.1mt +++| ENDM 00599 M00S00335.1mt +++| ERROVL SPACE 4,10 00600 M00S00336.1mt +++|** ERROVL - TEST FOR OVERFLOW INTO ERROR PROCESSOR. 00601 M00S00337.1mt +++|* 00602 M00S00338.1mt +++|* ERROVL A 00603 M00S00339.1mt +++|* A IF DEFINED USE INSTEAD OF ORIGIN ADDRESS FOR OVERFLOW. 00604 M00S00340.1mt +++| 00605 M00S00341.1mt +++| PURGMAC ERROVL 00606 M00S00342.1mt +++| 00607 M00S00343.1mt +++| 00608 M00S00344.1mt +++| ERROVL MACRO A
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00609 M01S00041.282l826 +++| MACREF ERROVL 00610 M00S00345.1mt +++| IFC NE,/A// 00611 M00S00346.1mt +++| LIST M 00612 M00S00347.1mt +++| ERRNG ERLA-A OVERFLOWED INTO BUFFER 00613 M00S00348.1mt +++| LIST * 00614 M00S00349.1mt +++| ELSE 00615 M00S00350.1mt +++| LIST M 00616 M00S00351.1mt +++| ERRNG ERLA-* OVERFLOWED INTO BUFFER 00617 M00S00352.1mt +++| LIST * 00618 M00S00353.1mt +++| ENDIF 00619 M00S00354.1mt +++| ENDM 00620 M00S00355.1mt +++| JMP SPACE 4,10 00621 M00S00356.1mt +++|** JMP - THREADED JUMP. 00622 M00S00357.1mt +++|* 00623 M00S00358.1mt +++|* 00624 M00S00359.1mt +++|* JMP ADDR 00625 M00S00360.1mt +++|* ENTRY *ADDR* = JUMP ADDRESS. 00626 M00S00361.1mt +++| 00627 M00S00362.1mt +++| 00628 M00S00363.1mt +++| JMP MACRO ADDR 00629 M00S00364.1mt +++| IF -DEF,.ADDR,1 00630 M00S00365.1mt +++| .ADDR MAX ADDR,*-40 00631 M00S00366.1mt +++| IFGT .ADDR,*-40 00632 M00S00367.1mt +++| UJN .ADDR 00633 M00S00368.1mt +++| .ADDR SET *-1 00634 M00S00369.1mt +++| ELSE 2 00635 M00S00370.1mt +++| .ADDR SET * 00636 M00S00371.1mt +++| LJM ADDR 00637 M00S00372.1mt +++| ENDM 00638 M00S00373.1mt +++| SADT SPACE 4,35 00639 M00S00374.1mt +++|** SADT - SET ADDRESS TABLE MACRO. 00640 M00S00375.1mt +++|* THIS MACRO WILL GENERATE THE TABLE ENTRIES NECESSARY TO 00641 M00S00376.1mt +++|* PROVIDE SETTING ADDRESSES IN THE FOLLOWING 24 BIT 00642 M00S00377.1mt +++|* INSTRUCTION. ONE, TWO, OR THREE SETS OF TABLE ENTRIES 00643 M00S00378.1mt +++|* ARE GENERATED DEPENDING ON THE VALUE OF *.IM*. THE FIRST 00644 M00S00379.1mt +++|* SET OF TABLE ENTRIES IS FOR THE CURRENT OVERLAY. THE ONE OR 00645 M00S00380.1mt +++|* TWO ADDITIONAL ONES WILL BE GENERATED BASED ON THE FOLLOWING- 00646 M00S00381.1mt +++|* 00647 M00S00382.1mt +++|* IF .IM .NE. 0, A SET OF TABLE ENTRIES IS GENERATED FOR THE 00648 M00S00383.1mt +++|* ERROR PROCESSORS THAT FOLLOW. 00649 M00S00384.1mt +++|* 00650 M00S00385.1mt +++|* IF .IM = 2, A SET OF ADDRESSES IS GENERATED FOR THE LONG 00651 M00S00386.1mt +++|* BLOCK ROUTINE THAT FOLLOWS. 00652 M00S00387.1mt +++|* 00653 M00S00388.1mt +++|*SADT MACRO DC,C,BIAS,ABS,SE 00654 M00S00389.1mt +++|* 00655 M00S00390.1mt +++|* DC = DIRECT CELLS WHERE 17 BIT ADDRESS VALUE IS TO BE TAKEN 00656 M00S00391.1mt +++|* FROM. 00657 M00S00392.1mt +++|* CF = IF *C* COMPLEMENT RESULT OF ABOVE. 00658 M00S00393.1mt +++|* BIAS = VALUE TO BE ADDED TO CONTENTS OF DIRECT CELLS. 00659 M00S00394.1mt +++|* (MAXIMUM VALUE IS 7) 00660 M00S00395.1mt +++|* ABS = IF *A* ADD RA TO ADDRESS. 00661 M00S00396.1mt +++|* SE = IF PRESENT, GENERATE ONLY ONE SET OF TABLE ENTRIES. 00662 M00S00397.1mt +++|* 00663 M00S00398.1mt +++|* TABLE FORMAT. 00664 M00S00399.1mt +++|* 2 WORDS PER ENTRY. 00665 M00S00400.1mt +++|* 00666 M00S00401.1mt +++|*T 11/ ADDRESS,1/C,6/ DC,3/ BI,1/A,2/
Figure
00667 M00S00402.1mt +++|* C COMPLEMENT IF SET. 00668 M00S00403.1mt +++|* DC POINTER TO DIRECT CELL CONTAINING VALUE. 00669 M00S00404.1mt +++|* BI BIAS (AMOUNT TO ADD TO VALUE FROM DIRECT CELLS). 00670 M00S00405.1mt +++|* A ABSOLUTE FLAG. 00671 M00S00406.1mt +++| 00672 M00S00407.1mt +++| 00673 M00S00408.1mt +++| SADT MACRO DC,CF,BIAS,ABS,SE 00674 M00S00409.1mt +++| LOCAL Z,X 00675 M00S00410.1mt +++| QUAL 00676 M00S00411.1mt +++| Z BSS 0
| Line S00412 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00677 M01S00412.274l797 ---| ERRNG 3777-Z ADDRESS TO LARGE FOR MODIFICATION TABLE
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00678 M01S00055.274l797 +++| ERRNG 3777-Z ADDRESS TOO LARGE FOR MODIFICATION TABLE 00679 M00S00413.1mt +++| QUAL ".QNAM" 00680 M00S00414.1mt +++| X BSS 0 00681 M00S00415.1mt +++| SADT RMT 00682 M00S00416.1mt +++| VFD 11/X 00683 M00S00417.1mt +++| IFC EQ,*CF*C*,2 00684 M00S00418.1mt +++| VFD 1/1 COMPLEMENT FLAG 00685 M00S00419.1mt +++| ELSE 3 00686 M00S00420.1mt +++| VFD 1/0 00687 M00S00421.1mt +++| IFC NE,*CF**,1
| Line S00422 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00688 M01S00422.v23l617 ---| ERR ILLEGAL COMPLEMENT FLAG
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00689 M01S00004.v23l617 +++| ERR INCORRECT COMPLEMENT FLAG 00690 M00S00423.1mt +++| VFD 6/DC 00691 M00S00424.1mt +++| VFD 3/BIAS 00692 M00S00425.1mt +++| IFC EQ,*ABS*A*,2 00693 M00S00426.1mt +++| VFD 1/1 00694 M00S00427.1mt +++| ELSE 3 00695 M00S00428.1mt +++| VFD 1/0 00696 M00S00429.1mt +++| IFC NE,*ABS**,1
| Line S00430 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00697 M01S00430.v23l617 ---| ERR ILLEGAL ABSOLUTE FLAG
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00698 M01S00005.v23l617 +++| ERR INCORRECT ABSOLUTE FLAG 00699 M00S00431.1mt +++| VFD 2/0 00700 M00S00432.1mt +++| RMT 00701 M00S00433.1mt +++| .L1 IFEQ .IM,2 00702 M00S00434.1mt +++| SLBP RMT 00703 M00S00435.1mt +++| VFD 11/Z 00704 M00S00436.1mt +++| .L2 IFC EQ,*CF*C* 00705 M00S00437.1mt +++| VFD 1/1 COMPLEMENT FLAG 00706 M00S00438.1mt +++| .L2 ELSE 00707 M00S00439.1mt +++| VFD 1/0 00708 M00S00440.1mt +++| .L2 ENDIF 00709 M00S00441.1mt +++| VFD 6/DC 00710 M00S00442.1mt +++| VFD 3/BIAS 00711 M00S00443.1mt +++| .L3 IFC EQ,*ABS*A* 00712 M00S00444.1mt +++| VFD 1/1 00713 M00S00445.1mt +++| .L3 ELSE 00714 M00S00446.1mt +++| VFD 1/0 00715 M00S00447.1mt +++| .L3 ENDIF 00716 M00S00448.1mt +++| VFD 2/0 00717 M00S00449.1mt +++| RMT 00718 M00S00450.1mt +++| .L1 ENDIF 00719 M00S00451.1mt +++| .S1 IFNE .IM,0 00720 M00S00452.1mt +++| .S6 IFC EQ,$SE$$ 00721 M00S00453.1mt +++| 00722 M00S00454.1mt +++|* MAKE ERROR OVERLAY TABLE. 00723 M00S00455.1mt +++| 00724 M00S00456.1mt +++| ERRNG BUFB-Z ADDRESS OVERFLOWS ERROR OVERLAY 00725 M00S00457.1mt +++| SERR RMT 00726 M00S00458.1mt +++| VFD 11/Z 00727 M00S00459.1mt +++| .S2 IFC EQ,*CF*C* 00728 M00S00460.1mt +++| VFD 1/1 COMPLEMENT FLAG 00729 M00S00461.1mt +++| .S2 ELSE 00730 M00S00462.1mt +++| VFD 1/0 00731 M00S00463.1mt +++| .S2 ENDIF 00732 M00S00464.1mt +++| VFD 6/DC 00733 M00S00465.1mt +++| VFD 3/BIAS 00734 M00S00466.1mt +++| .S3 IFC EQ,*ABS*A* 00735 M00S00467.1mt +++| VFD 1/1 00736 M00S00468.1mt +++| .S3 ELSE 00737 M00S00469.1mt +++| VFD 1/0 00738 M00S00470.1mt +++| .S3 ENDIF 00739 M00S00471.1mt +++| VFD 2/0 00740 M00S00472.1mt +++| RMT 00741 M00S00473.1mt +++| 00742 M00S00474.1mt +++|* MAKE MTS ERROR OVERLAY TABLE. 00743 M00S00475.1mt +++| 00744 M00S00476.1mt +++| SMER RMT 00745 M00S00477.1mt +++| VFD 11/Z 00746 M00S00478.1mt +++| .S4 IFC EQ,*CF*C* 00747 M00S00479.1mt +++| VFD 1/1 00748 M00S00480.1mt +++| .S4 ELSE 00749 M00S00481.1mt +++| VFD 1/0 00750 M00S00482.1mt +++| .S4 ENDIF 00751 M00S00483.1mt +++| VFD 6/DC 00752 M00S00484.1mt +++| VFD 3/BIAS 00753 M00S00485.1mt +++| .S5 IFC EQ,*ABS*A* 00754 M00S00486.1mt +++| VFD 1/1 00755 M00S00487.1mt +++| .S5 ELSE 00756 M00S00488.1mt +++| VFD 1/0 00757 M00S00489.1mt +++| .S5 ENDIF 00758 M00S00490.1mt +++| VFD 2/0 00759 M00S00491.1mt +++| RMT 00760 M00S00492.1mt +++| .S6 ENDIF 00761 M00S00493.1mt +++| .S1 ENDIF 00762 M00S00494.1mt +++| ENDM 00763 M00S00495.1mt +++| SPACE 4,10 00764 M00S00496.1mt +++|** THE FOLLOWING CONSTANTS ARE USED IN CALLING THE INSTRUCTION 00765 M00S00497.1mt +++|* MODIFICATION MACRO TO DEFINE THE RELATIVE ADDRESS WHERE THE 00766 M00S00498.1mt +++|* VALUES WILL BE SET. 00767 M00S00499.1mt +++| 00768 M00S00500.1mt +++| LOC T2 00769 M00S00501.1mt +++| .FT BSS 2 FIRST 00770 M00S00502.1mt +++| .LM BSS 2 LIMIT 00771 M00S00503.1mt +++| .FE BSS 2 FET ADDRESS 00772 M00S00504.1mt +++| .LF BSS 2 LIMIT - FIRST 00773 M00S00505.1mt +++| .BS BSS 2 BLOCK SIZE 00774 M00S00506.1mt +++| LOC *O 00775 M00S00507.1mt +++| TSAD SPACE 4,10 00776 M00S00508.1mt +++|** TSAD - DEFINE SET ADDRESS TABLE. 00777 M00S00509.1mt +++|* TABLE IS TERMINATED BY A 0 WORD. 00778 M00S00510.1mt +++|* 00779 M00S00511.1mt +++|* 00780 M00S00512.1mt +++|*LOC TSAD B 00781 M00S00513.1mt +++|* ENTRY *LOC* = FWA OF SET ADDRESS TABLE. 00782 M00S00514.1mt +++|* *B* = IF PRESENT NAME OF REMOTE CODE. 00783 M00S00515.1mt +++| 00784 M00S00516.1mt +++| 00785 M00S00517.1mt +++| MACRO TSAD,A,B 00786 M00S00518.1mt +++| A BSS 0 00787 M00S00519.1mt +++| SADT HERE 00788 M00S00520.1mt +++| IFC NE,*B**,1 00789 M00S00521.1mt +++| B HERE 00790 M00S00522.1mt +++| CON 0 TERMINATE TABLE 00791 M00S00523.1mt +++| ENDM 00792 M00S00524.1mt +++| TITLE OVERLAY COMMUNICATION MACROS. 00793 M00S00525.1mt +++|* OVERLAY CONTROL. 00794 M00S00526.1mt +++| 00795 M00S00527.1mt +++| 00796 M00S00528.1mt +++| .NA SET 0 00797 M00S00529.1mt +++| ADNAM SPACE 4,10 00798 M00S00530.1mt +++|** ADNAM - ADVANCE OVERLAY NAME MACRO. 00799 M00S00531.1mt +++|* ADVANCES OVERLAY NAME. 00800 M00S00532.1mt +++| 00801 M00S00533.1mt +++| 00802 M00S00534.1mt +++| PURGMAC ADNAM 00803 M00S00535.1mt +++| ADNAM MACRO 00804 M00S00536.1mt +++| .NA SET .NA+1 00805 M00S00537.1mt +++| .MA MICRO .NA,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 00806 M00S00538.1mt +++| .OA MICRO 1,3, 3M".MA" 00807 M00S00539.1mt +++| ENDM 00808 M00S00540.1mt +++| OVERLAY SPACE 4,15 00809 M00S00541.1mt +++|** OVERLAY - GENERATE OVERLAY CONSTANTS. 00810 M00S00542.1mt +++|* 00811 M00S00543.1mt +++|* NOTE AT PRESET TIME IN AN OVERLAY THE UNIT MAY OR MAY 00812 M00S00544.1mt +++|* NOT BE CONNECTED DEPENDING ON WHETHER THE CHANNEL 00813 M00S00545.1mt +++|* IS DEDICATED. THUS, NO CHANNEL OPERATIONS CAN BE DONE
| Line S00546 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00814 M01S00546.274l797 ---|* IN PRESET. ALSO ABNORMAL ERROR EXITS MSUT BE DONE
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00815 M01S00056.274l797 +++|* IN PRESET. ALSO ABNORMAL ERROR EXITS MUST BE DONE 00816 M00S00547.1mt +++|* BY FIRST COMPLETING THE OVERLAY LOAD. FOR EXAMPLE 00817 M00S00548.1mt +++|* SEE THE BEGINNING OF PRESET IN THE WRITE OVERLAY. 00818 M00S00549.1mt +++|* 00819 M00S00550.1mt +++|* OVERLAY (TEXT),LDA,PRS,QN 00820 M00S00551.1mt +++|* ENTRY *TEXT* = TEXT OF SUBTITLE. 00821 M00S00552.1mt +++|* *LDA* = LOAD ADDRESS. (IF ABSENT ASSUMES *OVL*. 00822 M00S00553.1mt +++|* *PRS* = IF PRESENT DO NOT GENERATE CALL TO *PRS*. 00823 M00S00554.1mt +++|* *QN* = QUALIFIER NAME. (OVERLAY NAME IF ABSENT.) 00824 M00S00555.1mt +++| 00825 M00S00556.1mt +++| 00826 M00S00557.1mt +++| PURGMAC OVERLAY 00827 M00S00558.1mt +++| 00828 M00S00559.1mt +++| OVERLAY MACRO TEXT,LDA,P,QN 00829 M00S00560.1mt +++| LOCAL A 00830 M00S00561.1mt +++| USE OVERLAY 00831 M00S00562.1mt +++| QUAL 00832 M00S00563.1mt +++| ADNAM ADVANCE OVERLAY NAME 00833 M00S00564.1mt +++| IFC NE,*QN**,3 00834 M00S00565.1mt +++| .QNAM MICRO 1,, QN 00835 M00S00566.1mt +++| QUAL QN 00836 M00S00567.1mt +++| ELSE 2 00837 M00S00568.1mt +++| .QNAM MICRO 1,, ".OA" 00838 M00S00569.1mt +++| QUAL ".OA" 00839 M00S00570.1mt +++| TTL 1MT/".OA" - TEXT 00840 M00S00571.1mt +++| TITLE 00841 M00S00572.1mt +++| LOAD MICRO 1,3,*OVL* 00842 M00S00573.1mt +++| IFC NE,*LDA**,1 00843 M00S00574.1mt +++| LOAD MICRO 1,,*LDA* 00844 M00S00575.1mt +++| IDENT ".OA","LOAD" TEXT 00845 M00S00576.1mt +++|*COMMENT 1MT - TEXT
| Line S00577 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00846 M01S00577.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00847 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00848 M00S00578.1mt +++| ORG "LOAD" 00849 M00S00579.1mt +++| IFC EQ,*P** 00850 M00S00580.1mt +++| PRSX LJM * 00851 M00S00581.1mt +++| LJM PRS 00852 M00S00582.1mt +++| ENDIF 00853 M00S00583.1mt +++| .IM SET 0 DESELECT ERROR PROCESSOR INSTRUCTION LIST 00854 M00S00584.1mt +++| ENDM
| Line S00585 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00855 M01S00585.282l826 ---| CMOT SPACE 4,10 00856 M01S00586.282l826 ---|** CMOT - CREATE CHANNEL TABLE ENTRY FOR MONITORING. 00857 M01S00587.282l826 ---|* 00858 M01S00588.282l826 ---|* CMOT ADDR 00859 M01S00589.282l826 ---|* 00860 M01S00590.282l826 ---|* ENTRY ADDR = ADDRESS TO INSERT IN CHANNEL TABLE. 00861 M01S00591.282l826 ---| 00862 M01S00592.282l826 ---| 00863 M01S00593.282l826 ---| PURGMAC CMOT 00864 M01S00594.282l826 ---| CMOT MACRO A 00865 M01S00595.282l826 ---| LOCAL B 00866 M01S00596.282l826 ---| B EQU A 00867 M01S00597.282l826 ---| CMOT RMT 00868 M01S00598.282l826 ---| CON B 00869 M01S00599.282l826 ---| CMOT RMT 00870 M01S00600.282l826 ---| ENDM 00871 M01S00601.282l826 ---| TMOT SPACE 4,10 00872 M01S00602.282l826 ---|** TMOT - DEFINE CHANNEL TABLE FOR MONITORING. 00873 M01S00603.282l826 ---|* 00874 M01S00604.282l826 ---|*LOC TMOT 00875 M01S00605.282l826 ---|* 00876 M01S00606.282l826 ---|* ENTRY LOC = FWA OF TABLE. 00877 M01S00607.282l826 ---| 00878 M01S00608.282l826 ---| 00879 M01S00609.282l826 ---| PURGMAC TMOT 00880 M01S00610.282l826 ---| MACRO TMOT,A 00881 M01S00611.282l826 ---| A BSS 0 00882 M01S00612.282l826 ---| CMOT HERE 00883 M01S00613.282l826 ---| CON 0 TERMINATE TABLE 00884 M01S00614.282l826 ---| ENDM 00885 M01S00615.282l826 ---| CMMT SPACE 4,10 00886 M01S00616.282l826 ---|** CMMT - CREATE CHANNEL TABLE ENTRY FOR MONITORING 00887 M01S00617.282l826 ---|* IN MAIN CODE. 00888 M01S00618.282l826 ---|* 00889 M01S00619.282l826 ---|* CMMT ADDR 00890 M01S00620.282l826 ---|* 00891 M01S00621.282l826 ---|* ENTRY ADDR = ADDRESS TO INSERT IN CHANNEL TABLE. 00892 M01S00622.282l826 ---| 00893 M01S00623.282l826 ---| 00894 M01S00624.282l826 ---| PURGMAC CMMT 00895 M01S00625.282l826 ---| CMMT MACRO A 00896 M01S00626.282l826 ---| LOCAL B 00897 M01S00627.282l826 ---| B EQU A 00898 M01S00628.282l826 ---| CMMT RMT 00899 M01S00629.282l826 ---| CON B 00900 M01S00630.282l826 ---| CMMT RMT 00901 M01S00631.282l826 ---| ENDM 00902 M00S00632.1mt +++| SPACE 4,10 00903 M00S00633.1mt +++|** MAKE SURE THAT 1MT SYMBOL *LBBY* IS 5 TIMES GREATER 00904 M00S00634.1mt +++|* THAN COMSMTX SYMBOL *LBWD*. 00905 M00S00635.1mt +++| 00906 M00S00636.1mt +++| 00907 M00S00637.1mt +++| ASCK EQU /MTX/LBWD*5 00908 M00S00638.1mt +++| ERRNZ ASCK-LBBY IF LONG BLOCK DEFINITIONS OUT OF SYNC 00909 M00S00639.1mt +++| TITLE MAIN PROGRAM. 00910 M00S00640.1mt +++| 1MT SPACE 4,10 00911 M00S00641.1mt +++|** 1MT - MAIN PROGRAM. 00912 M00S00642.1mt +++| 00913 M00S00643.1mt +++| 00914 M00S00644.1mt +++| ORG PPFW 00915 M00S00645.1mt +++| PRS LJM /PRESET/PRS PRESET MAIN PROGRAM 00916 M00S00646.1mt +++| RET EQU PRS 00917 M00S00647.1mt +++| RET SPACE 4,10 00918 M00S00648.1mt +++|** RET - STANDARD RETURN POINTS. 00919 M00S00649.1mt +++|* 00920 M00S00650.1mt +++|* CALLS CEC, UAD. 00921 M00S00651.1mt +++| 00922 M00S00652.1mt +++| 00923 M00S00653.1mt +++|* RET - SET FET COMPLETE. (A) = FET COMPETION CODE. 00924 M00S00654.1mt +++| 00925 M00S00655.1mt +++|*RET RJM CEC SET FET COMPLETE (SETUP IN PRESET) 00926 M00S00656.1mt +++| 00927 M00S00657.1mt +++|* RET1 - NORMAL COMPLETION. 00928 M00S00658.1mt +++| 00929 M00S00659.1mt +++| RET1 LDN /MTX/NCP 00930 M00S00660.1mt +++| UJN RET5 RETURN NORMAL COMPLETION STATUS 00931 M00S00661.1mt +++| 00932 M00S00662.1mt +++|* RET2 - REQUEUE. 00933 M00S00663.1mt +++| 00934 M00S00664.1mt +++| RET2 LDN 0 00935 M00S00665.1mt +++| UJN RET5 REQUEUE REQUEST 00936 M00S00666.1mt +++| 00937 M00S00667.1mt +++|* RET3 - RETURN WITH ERROR. (A) = ERROR CODE. 00938 M00S00668.1mt +++| 00939 M00S00669.1mt +++| RET3 STD EC 00940 M00S00670.1mt +++| 00941 M00S00671.1mt +++|* RET4 - RETURN WITH ERROR. (EC) = ERROR CODE. 00942 M00S00672.1mt +++| 00943 M00S00673.1mt +++| RET4 LDN /MTX/ERR 00944 M00S00674.1mt +++|* UJN RET5 RETURN ERROR STATUS 00945 M00S00675.1mt +++| 00946 M00S00676.1mt +++|* RET5 - RETURN. (A) = COMPLETION STATUS. 00947 M00S00677.1mt +++| 00948 M00S00678.1mt +++| RET5 STD RS 00949 M00S00679.1mt +++| LDN 0 DO NOT SET FET COMPLETE 00950 M00S00680.1mt +++| RJM CEC CHANGE TO MAGNET CP
| Line S00681 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00951 M01S00681.ns21000 ---| LDN 5 REWRITE STATUS AND BID
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00952 M02S00002.282l826 ---| LDN 6 REWRITE STATUS, BID, AND COUNTERS
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00953 M01S00042.282l826 +++| LDN /MTX/UERC-/MTX/UST5+1 SET WORD COUNT FOR WRITE 00954 M00S00682.1mt +++| STD T2
| Line S00683 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00955 M01S00683.282l826 ---| RJM UAD GET UDT ADDRESS
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00956 M01S00043.282l826 +++| RJM UAD SET UDT ADDRESS 00957 M00S00684.1mt +++| ADN /MTX/UST5
| Line S00685 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00958 M01S00685.282l826 ---| CWM MTDS,T2
| Line S00686 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00959 M02S00686.282l826 ---| SBN -/MTX/UST1+/MTX/UST5+5
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00960 M02S00003.282l826 ---| SBN -/MTX/UST1+/MTX/UST5+6
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00961 M01S00044.282l826 +++| CWM DNCV,T2 00962 M01S00045.282l826 +++| SBN -/MTX/UST1+/MTX/UERC+1 00963 M00S00687.1mt +++| CWM ED,TR 00964 M00S00688.1mt +++| SBN -/MTX/UXRQ+/MTX/UST1+3 00965 M00S00689.1mt +++| CWD RS 00966 M00S00690.1mt +++|* LJM PNR PROCESS NEXT REQUEST 00967 M00S00691.1mt +++| TITLE PROCESS NEXT REQUEST. 00968 M00S00692.1mt +++| PNR SPACE 4,10 00969 M00S00693.1mt +++|** PNR - PROCESS NEXT REQUEST. 00970 M00S00694.1mt +++|* 00971 M00S00695.1mt +++|* ENTRY (BT) = 0.
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00972 M02S00057.282l826 ---|* AT *PNR3.1* IF CTS RELEASE FUNCTION TIMEOUT. 00973 M00S00696.1mt +++|*
| Line S00697 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00974 M01S00697.274l797 ---|* CALLS CDO, CON, *CPP*, *DPP*, FJB, LOV, REL, UAD.
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00975 M02S00058.282l826 ---|* CALLS CDO, CON, *CPP*, *DPP*, FJB, LOV, PIC, REL, UAD.
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00976 M01S00046.282l826 +++|* CALLS CDO, CON, *CPP*, *DPP*, EXR, LOV, PIC, REL, UAD. 00977 M00S00698.1mt +++|* 00978 M00S00699.1mt +++|* MACROS CALL, MONITOR. 00979 M00S00700.1mt +++| 00980 M00S00701.1mt +++| 00981 M00S00702.1mt +++| PNR RJM CDO CHECK DROP OUT CONDITIONS 00982 M00S00703.1mt +++| PNR1 LDN PPAL CHECK PPU AVAILABILITY 00983 M00S00704.1mt +++| CRD CM 00984 M00S00705.1mt +++| LDN /MTX/UNITL UPDATE UDT ADDRESS 00985 M00S00706.1mt +++| PNR2 RAM UADA 00986 M00S00707.1mt +++| LMC * (LWA+1 OF UDT) 00987 M00S00708.1mt +++| PNRA EQU *-1 00988 M00S00709.1mt +++| NJN PNR3 IF NOT END OF UDT 00989 M00S00710.1mt +++| LDC -* - LENGTH OF UDT 00990 M00S00711.1mt +++| PNRB EQU *-1 00991 M00S00712.1mt +++| UJN PNR2 RECYCLE THROUGH UDT,S 00992 M00S00713.1mt +++|
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00993 M01S00047.282l826 +++|* REENTRY FROM ERROR ON CTS UNIT RELEASE. 00994 M01S00048.282l826 +++| 00995 M00S00714.1mt +++| PNR3 RJM REL RELEASE LAST RESERVED UNIT
| Line S00715 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00996 M01S00715.274l797 ---| PNRC LDD CM+4
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00997 M02S00059.282l826 ---| PNR3.1 LDD CM+4
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00998 M01S00049.282l826 +++| LDD CM+4
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00999 M01S00060.274l797 +++| PNRC EQU *-1 01000 M00S00716.1mt +++|* LDN 0 (FORCE DROP OUT)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mt4 |
Seq # *Modification Id* Act ----------------------------+ 01001 M01S00001.1mt4 +++| ZJN PNR5 IF ALL PP-S IN USE
| Line S00717 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01002 M01S00717.ns22000 ---| ZJN PNR5 IF ALL PPU,S IN USE 01003 M00S00718.1mt +++| LDM UADA 01004 M00S00719.1mt +++| LMC * (STARTING UDT ADDRESS) 01005 M00S00720.1mt +++| PNRD EQU *-1 01006 M00S00721.1mt +++| NJN PNR4 IF NOT END OF A PASS 01007 M00S00722.1mt +++| PNRE LDN 0 01008 M00S00723.1mt +++| ZJN PNR5 IF NO ACTIVITIES PERFORMED 01009 M00S00724.1mt +++| SOM PNRE RESET ACTIVITY COUNT 01010 M00S00725.1mt +++| PNR4 LDD DF 01011 M00S00726.1mt +++| ZJN PNR6 IF NO DROP OUT
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01012 M01S00004.ns22000 +++| 01013 M01S00005.ns22000 +++|* ENTER HERE (VIA *RJM*) TO HANG PP. 01014 M01S00006.ns22000 +++| 01015 M01S00007.ns22000 +++| HNG CON 0 ENTRY 01016 M01S00008.ns22000 +++|* MONITOR HNGM HANG PP 01017 M00S00727.1mt +++| 01018 M00S00728.1mt +++|* ENTER HERE TO DROP PPU. 01019 M00S00729.1mt +++| 01020 M00S00730.1mt +++| PNR5 CALL DPP DROP PPU
| Line S00731 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01021 M01S00731.ns22000 ---| 01022 M01S00732.ns22000 ---|* RETURN JUMP HERE TO HANG PPU. 01023 M01S00733.ns22000 ---| 01024 M01S00734.ns22000 ---| HNG CON 0 01025 M01S00735.ns22000 ---| MONITOR HNGM HANG PPU 01026 M01S00736.ns22000 ---| UJN PNR5 DROP PPU 01027 M00S00737.1mt +++| 01028 M00S00738.1mt +++|* PROCESS UNIT. (A) = 0. 01029 M00S00739.1mt +++|* ENTRY MADE HERE FROM PRS. 01030 M00S00740.1mt +++|* IF DROP OUT FORCED THE FOLLOWING CODE UP TO THE START OF 01031 M00S00741.1mt +++|* RESIDENT SUBROUTINES MAY BE OVERLAID. 01032 M00S00742.1mt +++|* 01033 M00S00743.1mt +++|* FIRST 30D BYTES ARE USED FOR FUNCTION REJECT PARAMETERS. 01034 M00S00744.1mt +++| 01035 M00S00745.1mt +++| .OVLR BSS 0 OVERLAY RESIDENT ADDRESS 01036 M00S00746.1mt +++|
| Line S00747 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01037 M01S00747.282l826 ---| PNR6 RJM UAD SET UNIT CONNECT INFORMATION
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01038 M01S00050.282l826 +++| PNR6 STD RS INDICATE NO FUNCTION FOR ERROR PROCESSING 01039 M01S00051.282l826 +++| RJM UAD SET UNIT CONNECT INFORMATION 01040 M00S00748.1mt +++| ADN /MTX/UST1 01041 M00S00749.1mt +++| CRD ED
| Line S00750 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01042 M01S00750.282l826 ---| LDD ED 01043 M01S00751.282l826 ---| SHN 21-10 01044 M01S00752.282l826 ---| MJN PNR7 IF UNIT DOWN 01045 M01S00753.282l826 ---| PNRF SHN 10-4 (SET TO REFLECT PROCESSOR) 01046 M01S00754.282l826 ---| PJN PNR7 IF UNIT NOT AVAILABLE ON THIS CHANNEL
| Line S00755 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01047 M02S00755.282l826 ---| LDD HP CHECK CONTROLLER TYPE 01048 M02S00756.282l826 ---| PNRG LPN 40 01049 M02S00757.282l826 ---|* LPN 20 (ATS CONTROLLER) 01050 M02S00758.282l826 ---| ZJN PNR7 IF NOT MTS CONTROLLER
| Line S00759 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01051 M01S00759.282l826 ---| RJM CON CONNECT UNIT
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01052 M01S00052.282l826 +++| ADK /MTX/UVRI-/MTX/UST1 GET ASSIGNED EJT ORDINAL 01053 M01S00053.282l826 +++| CRD CN 01054 M01S00054.282l826 +++| SFA EST,EO 01055 M01S00055.282l826 +++| ADK EQDE 01056 M01S00056.282l826 +++| CRD CM 01057 M01S00057.282l826 +++| LDD CM 01058 M01S00058.282l826 +++| LPN 3 01059 M01S00059.282l826 +++| LMN /CPS/DWES 01060 M01S00060.282l826 +++| ZJN PNR9 IF UNIT DOWN 01061 M01S00061.282l826 +++| LDD CM+1 CHECK PRIMARY CHANNEL 01062 M01S00062.282l826 +++| CHTE *+1 01063 M01S00063.282l826 +++| LMC CH+4000 01064 M01S00064.282l826 +++| ZJN PNR8 IF UNIT ACCESSIBLE 01065 M01S00065.282l826 +++| PNRF UJN PNR7 CHECK SECONDARY CHANNEL 01066 M01S00066.282l826 +++|* SHN 21-12 (CTS UNIT) 01067 M01S00067.282l826 +++| PJN PNR11 IF PRIMARY CHANNEL NOT DOWN 01068 M01S00068.282l826 +++| PNR7 LDD CM+2 CHECK SECONDARY CHANNEL 01069 M01S00069.282l826 +++| CHTE *+1 01070 M01S00070.282l826 +++| LMC CH+4000 01071 M01S00071.282l826 +++| NJN PNR11 IF UNIT NOT ACCESSIBLE 01072 M01S00072.282l826 +++| PNR8 RJM CON CONNECT UNIT
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01073 M01S00061.274l797 +++| PNRG EQU *-1 01074 M01S00062.274l797 +++|* RJM PIC (CTS)
| Line S00760 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01075 M01S00760.282l826 ---| ZJN PNR7 IF NOT CONNECTED 01076 M01S00761.282l826 ---| RJM UAD CHECK IF REQUEST IN PROGRESS
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01077 M01S00073.282l826 +++| PNR9 ZJN PNR12 IF NOT CONNECTED 01078 M01S00074.282l826 +++| SFA EJT,CN 01079 M01S00075.282l826 +++| ADK JSNE 01080 M01S00076.282l826 +++| CRD CM 01081 M01S00077.282l826 +++| LDD ED CLEAR JOB ROLLED OUT 01082 M01S00078.282l826 +++| SCN 1 01083 M01S00079.282l826 +++| STD ED 01084 M01S00080.282l826 +++| LDD CM+4 01085 M01S00081.282l826 +++| LPC 176 01086 M01S00082.282l826 +++| LMN /EJT/EXJS*2 01087 M01S00083.282l826 +++| ZJN PNR10 IF JOB EXECUTING OR UNIT NOT ASSIGNED 01088 M01S00084.282l826 +++| AOD ED SET JOB ROLLED OUT 01089 M01S00085.282l826 +++| PNR10 RJM UAD 01090 M01S00086.282l826 +++| ADK /MTX/UXRQ GET REQUEST 01091 M00S00762.1mt +++| CRD RS
| Line S00763 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01092 M01S00763.282l826 ---| ADN /MTX/UJID GET JOB IDENTIFICATION
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01093 M01S00087.282l826 +++| ADK /MTX/UST1-/MTX/UXRQ UPDATE UNIT STATUS AND JOB STATUS 01094 M01S00088.282l826 +++| CWD ED 01095 M01S00089.282l826 +++| LDD RS 01096 M01S00090.282l826 +++| PNR11 NJN PNR13 IF REQUEST ALREADY IN PROGRESS OR COMPLETE 01097 M01S00091.282l826 +++| LDD FN 01098 M01S00092.282l826 +++| PNR12 ZJN PNR13 IF NO REQUEST 01099 M01S00093.282l826 +++| LPN 77 01100 M01S00094.282l826 +++| SBN /MTX/MDFN 01101 M01S00095.282l826 +++| PJN PNR13 IF NOT *1MT* REQUEST 01102 M01S00096.282l826 +++| LDM UADA SET UDT ADDRESS 01103 M01S00097.282l826 +++| STD CM+1 01104 M01S00098.282l826 +++| LDD DS SET BUSY STATUS 01105 M01S00099.282l826 +++| STD CM+2 01106 M01S00100.282l826 +++| MONITOR TDRM SET REQUEST IN PROGRESS 01107 M01S00101.282l826 +++| LDD CM+4 01108 M01S00102.282l826 +++| NJN PNR14 IF REQUEST IN PROGRESS SET 01109 M01S00103.282l826 +++| PNR13 LJM PNR1 PROCESS NEXT REQUEST 01110 M01S00104.282l826 +++| 01111 M01S00105.282l826 +++|* CAUTION - THE FOLLOWING CODE DESTROYS SC, BT, AND BY. 01112 M01S00106.282l826 +++|* SC AND BT SHOULD NOT BE REUSED UNTIL AFTER *CPP* PRESET. 01113 M01S00107.282l826 +++| 01114 M01S00108.282l826 +++| PNR14 LDD MA GET FUNCTION TABLE ENTRY 01115 M01S00109.282l826 +++| CRD SC 01116 M01S00110.282l826 +++| ADN 1 GET *ASCM* PARAMETERS 01117 M00S00764.1mt +++| CRD CN
| Line S00765 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01118 M01S00765.282l826 ---| LDD RS 01119 M01S00766.282l826 ---| NJN PNR7 IF REQUEST IN PROGRESS 01120 M01S00767.282l826 ---| .ECON BSS 0 01121 M01S00768.282l826 ---| RJM FJB FIND JOB 01122 M01S00769.282l826 ---| LDD FN 01123 M01S00770.282l826 ---| ZJN PNR9 IF NO FUNCTION PENDING 01124 M01S00771.282l826 ---| LPN 77 01125 M01S00772.282l826 ---| ADN /MTX/TFUN-1 CHECK FUNCTION 01126 M01S00773.282l826 ---| STD T1 01127 M01S00774.282l826 ---| SBN /MTX/TFUN+/MTX/MFUN-1 01128 M01S00775.282l826 ---| MJN PNR8 IF VALID FUNCTION 01129 M01S00776.282l826 ---| PNR7 LJM PNR1 PROCESS NEXT REQUEST 01130 M01S00777.282l826 ---| 01131 M01S00778.282l826 ---| PNR8 LDD RA READ FUNCTION TABLE ENTRY 01132 M01S00779.282l826 ---| SHN 6 01133 M01S00780.282l826 ---| ADD T1 01134 M01S00781.282l826 ---| CRD SC 01135 M01S00782.282l826 ---| 01136 M01S00783.282l826 ---|* CAUTION - ABOVE READ DESTROYS SC, BT, BY, CN AND CN+1. 01137 M01S00784.282l826 ---|* SC AND BT SHOULD NOT BE REUSED UNTIL AFTER *CPP* PRESET. 01138 M01S00785.282l826 ---| 01139 M01S00786.282l826 ---| LDD SC SET OVERLAY REQUEST 01140 M01S00787.282l826 ---| SHN 21-5 01141 M01S00788.282l826 ---| PJN PNR11 IF NOT BUSY NOT REQUIRED 01142 M01S00789.282l826 ---| LDD DS 01143 M01S00790.282l826 ---| LPN 2 01144 M01S00791.282l826 ---| ZJN PNR11 IF NOT BUSY 01145 M01S00792.282l826 ---| LDD HN COUNT BUSY CYCLES 01146 M01S00793.282l826 ---| RAD FN 01147 M01S00794.282l826 ---| SHN -10 01148 M01S00795.282l826 ---| NJN PNR10 IF TIME TO REQUEUE FOR LATER 01149 M01S00796.282l826 ---| RJM UAD REWRITE UPDATED REQUEST 01150 M01S00797.282l826 ---| CWD RS 01151 M01S00798.282l826 ---| PNR9 RJM UAD UPDATE UDT 01152 M01S00799.282l826 ---| ADN /MTX/UST1 01153 M01S00800.282l826 ---| CWD ED 01154 M01S00801.282l826 ---| UJN PNR7 PROCESS NEXT REQUEST 01155 M01S00802.282l826 ---| 01156 M01S00803.282l826 ---| PNR10 LDN /MTX/REQ REQUEUE TO TRY LATER 01157 M01S00804.282l826 ---| LJM RET5 SET RETURN STATUS 01158 M01S00805.282l826 ---| 01159 M01S00806.282l826 ---| PNR11 LDD FN 01160 M01S00807.282l826 ---| LPN 77 01161 M01S00808.282l826 ---| STD FN 01162 M01S00809.282l826 ---| LDD SC 01163 M01S00810.282l826 ---| LPN 20 01164 M01S00811.282l826 ---| ZJN PNR12 IF NO CP CHANGE NEEDED 01165 M01S00812.282l826 ---| LDD CN+2
| Line S00111 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01166 M01S00111.282l826 +++| RJM UAD GET UDT INFORMATION 01167 M01S00112.282l826 +++| ADK /MTX/UXRQ 01168 M01S00113.282l826 +++| CRD RS 01169 M01S00114.282l826 +++| ADK /MTX/UCIB-/MTX/UXRQ 01170 M01S00115.282l826 +++| CRM CIOE,ON 01171 M01S00116.282l826 +++| ADK /MTX/UST2-/MTX/UCIB-1 01172 M01S00117.282l826 +++| CRM EI,TR 01173 M01S00118.282l826 +++| ADK /MTX/UST5-/MTX/UST4-1 01174 M01S00119.282l826 +++| CRM DNCV,ON 01175 M01S00120.282l826 +++| ADK /MTX/UERC-/MTX/UST5-1 01176 M01S00121.282l826 +++| CRM ECNT,ON 01177 M01S00122.282l826 +++| PNRH SBN /MTX/UERC-/MTX/UDS4+1 01178 M01S00123.282l826 +++|* UJN PNR15 (CTS UNIT) 01179 M01S00124.282l826 +++| CRM MTSF,TR 01180 M01S00125.282l826 +++| PNR15 LDD OA SET *ASCM* PARAMETERS FOR *EXR* CALL 01181 M01S00126.282l826 +++| CWD CN 01182 M01S00127.282l826 +++| LDN ZERL CLEAR ADDRESS MODIFICATION LIST 01183 M01S00128.282l826 +++| CRD CN 01184 M01S00129.282l826 +++| LDD SC LOAD OVERLAY 01185 M00S00813.1mt +++| SHN -6
| Line S00814 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01186 M01S00814.282l826 ---| ZJN PNR10 IF JOB NOT FOUND 01187 M01S00815.282l826 ---| PNR12 LDN ZERL CLEAR ADDRESS MODIFICATION LIST 01188 M01S00816.282l826 ---| CRD CN 01189 M01S00817.282l826 ---| AOD RS SET REQUEST IN PROGRESS 01190 M01S00818.282l826 ---| RJM UAD 01191 M01S00819.282l826 ---| CWD RS 01192 M01S00820.282l826 ---| LDD SC LOAD OVERLAY 01193 M01S00821.282l826 ---| SHN -7 01194 M00S00822.1mt +++| RJM LOV 01195 M00S00823.1mt +++| LDD SC 01196 M00S00824.1mt +++| LPN 17
| Line S00825 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01197 M01S00825.282l826 ---| ZJN PNR13 IF NO SECOND OVERLAY
| Line S00130 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01198 M01S00130.282l826 +++| ZJN PNR16 IF NO SECOND OVERLAY 01199 M00S00826.1mt +++| SHN 6 01200 M00S00827.1mt +++| ADM NAME LOAD OVERLAY 01201 M00S00828.1mt +++| SHN -6 01202 M00S00829.1mt +++| RJM LOV
| Line S00830 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01203 M01S00830.282l826 ---| PNR13 CALL CPP LOAD SPECIAL PROCESSOR AND ENTER ROUTINE 01204 M01S00831.282l826 ---| PNRH BSS 0 USED TO DETECT IF *CPP* CALLED FROM HERE 01205 M01S00832.282l826 ---| FJB SPACE 4,15 01206 M01S00833.282l826 ---|** FJB - FIND JOBS. 01207 M01S00834.282l826 ---|* 01208 M01S00835.282l826 ---|* ENTRY (CN - CN+4) = *UJID* WORD OF *UDT*. 01209 M01S00836.282l826 ---|* 01210 M01S00837.282l826 ---|* EXIT (CN+2, BITS 6-11D) = 0, IF JOB NOT FOUND 01211 M01S00838.282l826 ---|* OR JOB IS BEING ADVANCED. 01212 M01S00839.282l826 ---|* (CN+2, BITS 6-11D) = CP NUMBER IF JOB FOUND. 01213 M01S00840.282l826 ---|* UDT INFORMATION IS SET IN DIRECT CELLS. 01214 M01S00841.282l826 ---|* JOB INFORMATION UPDATED. 01215 M01S00842.282l826 ---|* 01216 M01S00843.282l826 ---|* USES CM - CM+5. 01217 M01S00844.282l826 ---|* 01218 M01S00845.282l826 ---|* CALLS UAD. 01219 M01S00846.282l826 ---| 01220 M01S00847.282l826 ---| 01221 M01S00848.282l826 ---| FJB1 RJM UAD READ ADDITIONAL UDT INFORMATION 01222 M01S00849.282l826 ---| ADN /MTX/UCIB 01223 M01S00850.282l826 ---| CRM CIOE,ON 01224 M01S00851.282l826 ---| ADN /MTX/UST2-/MTX/UCIB-1 01225 M01S00852.282l826 ---| CRM EI,TR 01226 M01S00853.282l826 ---| ADN /MTX/UJID-/MTX/UST2-3 UPDATE JOB IDENTIFICATION 01227 M01S00854.282l826 ---| CWD CN
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01228 M02S00009.282l826 ---| LDD NB COPY FORMAT TO *FM* 01229 M02S00010.282l826 ---| SHN -6 01230 M02S00011.282l826 ---| STD FM
| Line S00855 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01231 M01S00855.282l826 ---| 01232 M01S00856.282l826 ---| FJB SUBR ENTRY/EXIT 01233 M01S00857.282l826 ---| LDD CN+2 INDICATE JOB NOT FOUND OR ROLLING 01234 M01S00858.282l826 ---| LPN 77 01235 M01S00859.282l826 ---| STD CN+2 01236 M01S00860.282l826 ---| SHN 14 01237 M01S00861.282l826 ---| ADD CN+3 ABSOLUTE EJT ENTRY ADDRESS 01238 M01S00862.282l826 ---| ZJN FJB1 IF NO JOB 01239 M01S00863.282l826 ---| ERRNZ JSNE CODE DEPENDS ON VALUE 01240 M01S00864.282l826 ---| CRD CM+1 01241 M01S00865.282l826 ---| ADN SCHE-JSNE 01242 M01S00866.282l826 ---| CRD CM 01243 M01S00867.282l826 ---| LDD CM+1+4 CHECK JOB STATUS AND JOB ADVANCE 01244 M01S00868.282l826 ---| LPC 176 01245 M01S00869.282l826 ---| LMN /EJT/EXJS*2
| Line S00870 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01246 M02S00870.282l826 ---| NJN FJB1 IF JOB ROLLING OR NOT AT CONTROL POINT
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01247 M02S00140.282l826 ---| FJB2 NJN FJB1 IF JOB ROLLIN OR NOT AT CONTROL POINT
| Line S00871 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01248 M01S00871.282l826 ---| LDD CM+3 GET JOB CONTROL POINT NUMBER 01249 M01S00872.282l826 ---| SHN 7 01250 M01S00873.282l826 ---| RAD CN+2
| Line S00874 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01251 M02S00874.282l826 ---| UJN FJB1 GET UDT INFORMATION
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 252l678 |
M03 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01252 M03S00012.282l826 ---| LJM FJB1 GET UDT INFORMATION
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01253 M02S00141.282l826 ---| UJN FJB2 GET UDT INFORMATION
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01254 M01S00131.282l826 +++| PNR16 CALL CPP LOAD SPECIAL PROCESSOR AND ENTER ROUTINE 01255 M01S00132.282l826 +++| PNRI BSS 0 USED TO DETECT IF *CPP* CALLED FROM HERE 01256 M00S00875.1mt +++| TITLE RESIDENT SUBROUTINES. 01257 M00S00876.1mt +++| CDO SPACE 4,10 01258 M00S00877.1mt +++|** CDO - CHECK DROP OUT CONDITIONS. 01259 M00S00878.1mt +++|* CHECKS MOVE FLAG, ROLLOUT FLAG, BLOCKS TRANSFERRED, 01260 M00S00879.1mt +++|* AND CHANNEL REQUESTED. 01261 M00S00880.1mt +++|* 01262 M00S00881.1mt +++|* EXIT (A) = (DF) = 0, IF NO DROP OUT NEEDED. 01263 M00S00882.1mt +++|* 01264 M00S00883.1mt +++|* USES CM - CM+4. 01265 M00S00884.1mt +++| 01266 M00S00885.1mt +++| 01267 M00S00886.1mt +++| CDO1 LDN 1 SET DROP OUT 01268 M00S00887.1mt +++| CDO2 STD DF 01269 M00S00888.1mt +++| 01270 M00S00889.1mt +++| CDO SUBR ENTRY/EXIT 01271 M00S00890.1mt +++| LDN CMCL CHECK MOVE FLAG 01272 M00S00891.1mt +++| CRD CM 01273 M00S00892.1mt +++| LDD CM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01274 M01S00001.271l716 +++| SHN 7 01275 M00S00893.1mt +++| LMD CP 01276 M00S00894.1mt +++| ZJN CDO1 IF MOVE FLAG 01277 M00S00895.1mt +++| LDD CP CHECK ROLLOUT FLAG 01278 M00S00896.1mt +++| ADN STSW 01279 M00S00897.1mt +++| CRD CM 01280 M00S00898.1mt +++| LDD CM+2 01281 M00S00899.1mt +++| LPN 1 01282 M00S00900.1mt +++| NJN CDO1 IF ROLLOUT FLAG 01283 M00S00901.1mt +++| LDD BT
| Line S00902 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01284 M01S00902.v23l617 ---| LPN 77 01285 M01S00903.v23l617 ---| SBN BLKS
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01286 M01S00006.v23l617 +++| LPC 3777 01287 M01S00007.v23l617 +++| ADC -BLKS 01288 M01S00008.v23l617 +++| CDOC EQU *-1 01289 M01S00009.v23l617 +++|* ADC -BLKX (FOR ISMT)
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01290 M01S00063.274l797 +++|* ADC -BLKC (FOR CTS) 01291 M00S00904.1mt +++| PJN CDO1 IF MAXIMUM BLOCKS TRANSFERRED 01292 M00S00905.1mt +++| CDOA LDC ** CHECK IF CHANNEL REQUESTED 01293 M00S00906.1mt +++| CRD CM 01294 M00S00907.1mt +++| CDOB LDD CM+** 01295 M00S00908.1mt +++| SHN -13 01296 M00S00909.1mt +++| UJN CDO2 STORE DROP OUT FLAG 01297 M00S00910.1mt +++| CEC SPACE 4,10 01298 M00S00911.1mt +++|** CEC - CHANGE TO MAGNET CONTROL POINT. 01299 M00S00912.1mt +++|* 01300 M00S00913.1mt +++|* ENTRY (A) = FET COMPLETION STATUS.
| Line S00914 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01301 M01S00914.273l780 ---|* (CECC) = MAGNET,S CP ADDRESS ALWAYS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01302 M02S00001.282l826 ---|* (MGCP) = MAGNET,S CP ADDRESS ALWAYS. 01303 M00S00915.1mt +++|* 01304 M00S00916.1mt +++|* EXIT (BT) = 0. 01305 M00S00917.1mt +++|* (CP) = RESTORED TO MAGNET,S CP ADDRESS. 01306 M00S00918.1mt +++|*
| Line S00919 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01307 M01S00919.282l826 ---|* USES CM+1 - CM+4, CN - CN+4.
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01308 M01S00133.282l826 +++|* USES BT, CM+1 - CM+4, CN - CN+4. 01309 M00S00920.1mt +++|* 01310 M00S00921.1mt +++|* MACROS MONITOR. 01311 M00S00922.1mt +++| 01312 M00S00923.1mt +++|
| Line S00924 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01313 M01S00924.282l826 ---| CEC2 SBN 16 DELAY 01314 M01S00925.282l826 ---|* SBN 7 (2X PPU SPEED) 01315 M01S00926.282l826 ---|* SBN 3 (4X PPU SPEED) 01316 M01S00927.282l826 ---| CECD EQU *-1 01317 M01S00928.282l826 ---| PJN *-1 IF MORE DELAY 01318 M01S00929.282l826 ---| CEC3 MONITOR TIOM CHANGE TO MAGNET CONTROL POINT 01319 M01S00930.282l826 ---| LDD CM+1 01320 M01S00931.282l826 ---| NJN CEC2 IF NOT NORMAL COMPLETION 01321 M01S00932.282l826 ---| STD BT CLEAR BLOCKS TRANSFERRED 01322 M01S00933.282l826 ---| SOM CECB CLEAR CP CHANGED FLAG 01323 M01S00934.282l826 ---| 01324 M00S00935.1mt +++| CEC SUBR ENTRY/EXIT 01325 M00S00936.1mt +++| STD CM+4 SAVE FET COMPLETION STATUS 01326 M00S00937.1mt +++| SHN -14 01327 M00S00938.1mt +++| LMC ** INCLUDE SRU INCREMENT VALUE 01328 M00S00939.1mt +++| CECA EQU *-1 01329 M00S00940.1mt +++| STD CM+3 01330 M00S00941.1mt +++| CECB LDN 0
| Line S00942 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01331 M01S00942.282l826 ---| ZJN CECX IF AT MAGNET CP
| Line S00943 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01332 M02S00943.282l826 ---| LDC * RESTORE CP ADDRESS 01333 M02S00944.282l826 ---| CECC EQU *-1 01334 M02S00945.282l826 ---| STD CP
| Line S00946 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01335 M01S00946.282l826 ---| CEC1 LDD OA WAIT OUTPUT REGISTER CLEAR
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01336 M01S00134.282l826 +++| ZJN CEC2 IF AT MAGNET CP 01337 M01S00135.282l826 +++| SOM CECB CLEAR CP CHANGED FLAG 01338 M01S00136.282l826 +++| CEC1 LDD OA CHECK FOR PENDING *DRCM* FUNCTION 01339 M00S00947.1mt +++| CRD CN 01340 M00S00948.1mt +++| LDD CN 01341 M00S00949.1mt +++| NJN CEC1 IF FUNCTION PENDING
| Line S00950 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01342 M01S00950.282l826 ---| LDN ZERL CLEAR FIRST WORD OF MESSAGE BUFFER 01343 M01S00951.282l826 ---| CRD CN 01344 M01S00952.282l826 ---| LDD MA 01345 M01S00953.282l826 ---| CWD CN 01346 M00S00954.1mt +++| LDM UADA SET *UDT* ADDRESS
| Line S00955 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01347 M01S00955.282l826 ---| ADN /MTX/UCIA 01348 M00S00956.1mt +++| STD CM+1 01349 M00S00957.1mt +++| LDD BT SET BLOCKS TRANSFERRED 01350 M00S00958.1mt +++| STD CM+2
| Line S00959 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01351 M01S00959.282l826 ---| LJM CEC3 ISSUE MONITOR FUNCTION
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01352 M01S00137.282l826 +++| MONITOR TIOM CHANGE TO MAGNET CONTROL POINT 01353 M01S00138.282l826 +++|* LDN 0 01354 M01S00139.282l826 +++| CEC2 STD BT CLEAR BLOCKS TRANSFERRED FOR *CDO* CHECK 01355 M01S00140.282l826 +++| UJN CECX RETURN
| Line S00960 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01356 M01S00960.274l797 ---| MCC SPACE 4,10 01357 M01S00961.274l797 ---|** MCC - MASTER CLEAR MTS/ATS CHANNEL. 01358 M01S00962.274l797 ---|* DISCONNECT CHANNEL AND ISSUE STOP TAPE MOTION FUNCTION. 01359 M01S00963.274l797 ---|* 01360 M01S00964.274l797 ---|* ENTRY (A) = ERROR CODE. 01361 M01S00965.274l797 ---|* 01362 M01S00966.274l797 ---|* EXIT (A) = 0. 01363 M01S00967.274l797 ---|* (EC) = ERROR CODE. 01364 M01S00968.274l797 ---|* 01365 M01S00969.274l797 ---|* CALLS FCN. 01366 M01S00970.274l797 ---| 01367 M01S00971.274l797 ---| 01368 M01S00972.274l797 ---| MCC SUBR ENTRY/EXIT 01369 M01S00973.274l797 ---| STD EC SAVE ERROR CODE 01370 M01S00974.274l797 ---| DCN CH+40 01371 M01S00975.274l797 ---| MCCA LDN 11 STOP TAPE MOTION 01372 M01S00976.274l797 ---|* UJN MCCX (PROCESSING FATAL FUNCTION REJECT) 01373 M01S00977.274l797 ---| RJM FCN 01374 M01S00978.274l797 ---| UJN MCCX RETURN 01375 M00S00979.1mt +++| LOV SPACE 4,10 01376 M00S00980.1mt +++|** LOV - LOAD OVERLAY.
| Line S00981 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01377 M01S00981.282l826 ---|* DROPS CHANNEL IF NOT A DEDICATED CHANNEL. 01378 M00S00982.1mt +++|* 01379 M00S00983.1mt +++|* ENTRY (A) = THIRD CHARACTER OF OVERLAY NAME.
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01380 M01S00141.282l826 +++|* *ASCM* FUNCTION PARAMETERS IN OUTPUT REGISTER IF PLD 01381 M01S00142.282l826 +++|* ALREADY SEARCHED. 01382 M00S00984.1mt +++|* 01383 M00S00985.1mt +++|* USES T5, CM - CM+4. 01384 M00S00986.1mt +++|*
| Line S00987 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01385 M01S00987.282l826 ---|* CALLS EXR, REL. 01386 M01S00988.282l826 ---|* 01387 M01S00989.282l826 ---|* MACROS CHTE, DCHAN, RCHAN.
| Line S00143 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01388 M01S00143.282l826 +++|* CALLS EXR. 01389 M00S00990.1mt +++| 01390 M00S00991.1mt +++|
| Line S00992 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01391 M01S00992.282l826 ---| LOV2 LDD T5 LOAD OVERLAY
| Line S00144 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01392 M01S00144.282l826 +++| LOV SUBR ENTRY/EXIT 01393 M01S00145.282l826 +++| STD T5 SAVE OVERLAY NAME 01394 M01S00146.282l826 +++| LOV1 LDD OA CHECK FOR PENDING FUNCTION 01395 M01S00147.282l826 +++| CRD CM 01396 M01S00148.282l826 +++| LDD CM 01397 M01S00149.282l826 +++| SBN ASCM+1 01398 M01S00150.282l826 +++| ERRNZ ASCM-1 01399 M01S00151.282l826 +++| PJN LOV1 IF FUNCTION PENDING 01400 M01S00152.282l826 +++| LDD T5 LOAD OVERLAY 01401 M00S00993.1mt +++| LMC 2L3M 01402 M00S00994.1mt +++| RJM EXR
| Line S00995 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01403 M01S00995.282l826 ---| CHTE * 01404 M01S00996.282l826 ---| LDN CH 01405 M01S00997.282l826 ---| LOVB EQU *-1 01406 M01S00998.282l826 ---|* UJN LOVX (DEDICATED CHANNEL) 01407 M01S00999.282l826 ---| RCHAN 01408 M01S01000.282l826 ---| 01409 M01S01001.282l826 ---| LOV SUBR ENTRY/EXIT 01410 M01S01002.282l826 ---| STD T5 SAVE OVERLAY NAME 01411 M01S01003.282l826 ---| LOV1 LDD OA WAIT OUTPUT REGISTER CLEAR 01412 M01S01004.282l826 ---| CRD CM 01413 M01S01005.282l826 ---| LDD CM (NO DELAY LOOP USED AS MTR SHOULD GET 01414 M01S01006.282l826 ---|* TO REQUEST LONG BEFORE THIS TIME.) 01415 M01S01007.282l826 ---| NJN LOV1 IF RECALL STILL PENDING 01416 M01S01008.282l826 ---| LOVA UJN LOV2 DEDICATED CHANNEL 01417 M01S01009.282l826 ---|* RJM REL (RELEASE UNIT - NON DEDICATED CHANNEL.) 01418 M01S01010.282l826 ---| CON REL 01419 M01S01011.282l826 ---| CHTE * 01420 M01S01012.282l826 ---| LDN CH DROP CHANNEL 01421 M01S01013.282l826 ---| DCHAN 01422 M01S01014.282l826 ---| UJN LOV2 COMPLETE REQUEST
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01423 M01S00153.282l826 +++| UJN LOVX RETURN 01424 M00S01015.1mt +++| MCH SPACE 4,10 01425 M00S01016.1mt +++|** MCH - MODIFY CHANNELS. 01426 M00S01017.1mt +++|* 01427 M00S01018.1mt +++|* ENTRY (A) = ADDRESS OF CHANNEL TABLE. 01428 M00S01019.1mt +++|* 01429 M00S01020.1mt +++|* USES T1, T2. 01430 M00S01021.1mt +++| 01431 M00S01022.1mt +++| 01432 M00S01023.1mt +++| MCH1 STD T2 01433 M00S01024.1mt +++| MCHB LDN 0 (PRESET TO PROPER INCREMENT/DECREMENT) 01434 M00S01025.1mt +++| RAI T2 01435 M00S01026.1mt +++| AOD T1 01436 M00S01027.1mt +++| MCH2 LDI T1 01437 M00S01028.1mt +++| NJN MCH1 IF MORE CHANNELS TO MODIFY 01438 M00S01029.1mt +++| 01439 M00S01030.1mt +++| MCH SUBR ENTRY/EXIT 01440 M00S01031.1mt +++| MCHA STD T1 01441 M00S01032.1mt +++|* UJN MCHX (PRS - NO CHANNEL MODIFICATION REQUIRED) 01442 M00S01033.1mt +++| UJN MCH2 MODIFY CHANNEL INSTRUCTIONS 01443 M00S01034.1mt +++| REL SPACE 4,10 01444 M00S01035.1mt +++|** REL - RELEASE UNIT. 01445 M00S01036.1mt +++|* 01446 M00S01037.1mt +++|* ENTRY (RELA) .NE. 0, UNIT CONNECTED. 01447 M00S01038.1mt +++|* 01448 M00S01039.1mt +++|* CALLS FCN. 01449 M00S01040.1mt +++| 01450 M00S01041.1mt +++| 01451 M00S01042.1mt +++| REL SUBR ENTRY/EXIT
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01452 M01S00010.v23l617 +++| LDC 0 01453 M01S00011.v23l617 +++| RELA EQU *-1 01454 M01S00012.v23l617 +++| ZJN RELX IF NO UNIT CONNECTED
| Line S01043 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01455 M01S01043.ns21000 ---| LDC 0 CONNECT FLAG 01456 M01S01044.ns21000 ---| RELA EQU *-1 01457 M01S01045.ns21000 ---| ZJN RELX IF NO UNIT CONNECTED 01458 M01S01046.ns21000 ---| LDN 0 CLEAR CONNECTED FLAG 01459 M01S01047.ns21000 ---| STM RELA
| Line S01048 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01460 M01S01048.274l797 ---| LDN 1 RELEASE UNIT
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01461 M01S00064.274l797 +++| LDN F0001 RELEASE UNIT
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1mt.txt · Last modified: by 127.0.0.1