cdc:nos2.source:opl.opl871:deck:qmove
Deck QMOVE
Library Member Format: MODIFY
Listing Sections
- Deck QMOVE Start
- Deck QMOVE Part 1 (Line 1661)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.qmove +++| IDENT QMOVE1,OVLA,QMOVE,01,00 00002 M00S00002.qmove +++| ABS 00003 M00S00003.qmove +++| SST 00004 M00S00004.qmove +++| SYSCOM B1 00005 M00S00005.qmove +++|*COMMENT QMOVE - QUEUE MOVE PROCESSOR.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.qmove +++| TITLE QMOVE - QUEUE MOVE PROCESSOR. 00009 M00S00008.qmove +++| SPACE 4 00010 M00S00009.qmove +++|*** QMOVE - QUEUE MOVE PROCESSOR. 00011 M00S00010.qmove +++|* A. J. BEEKMAN. 76/03/11. 00012 M00S00011.qmove +++| SPACE 4 00013 M00S00012.qmove +++|*** *QMOVE* IS A UTILITY PROGRAM THAT MOVES QUEUE FILES FROM ONE 00014 M00S00013.qmove +++|* MASS STORAGE DEVICE TO ANOTHER AND PROVIDES A LIST OF ALL 00015 M00S00014.qmove +++|* FILES MOVED WITH INFORMATION RELATIVE TO EACH. 00016 M00S00015.qmove +++| SPACE 4 00017 M00S00016.qmove +++|*** *QMOVE* MAY BE CALLED FROM THE CONSOLE BY THE QUEUED FILE
| Line S00017 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00018 M01S00017.v23l617 ---|* SUPERVISOR PROGRAM (X.QFSP.) OR BY CONTROL STATEMENT. THE 00019 M01S00018.v23l617 ---|* CONTROL STATEMENT FORMAT IS -
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00020 M01S00001.v23l617 +++|* SUPERVISOR PROGRAM (X.QFSP.) OR BY COMMAND. THE 00021 M01S00002.v23l617 +++|* COMMAND FORMAT IS - 00022 M00S00019.qmove +++|* 00023 M00S00020.qmove +++|* QMOVE(P1=A1,P2=A2,...,PN=AN) 00024 M00S00021.qmove +++|* 00025 M00S00022.qmove +++|* WHERE P1 - PN ARE ANY OF THE FOLLOWING VALID PARAMETERS - 00026 M00S00023.qmove +++|* 00027 M00S00024.qmove +++|* MI = MACHINE ID. 00028 M00S00025.qmove +++|* 00029 M00S00026.qmove +++|* FM = FAMILY NAME TO MOVE FROM. 00030 M00S00027.qmove +++|* 00031 M00S00028.qmove +++|* DN = DEVICE NUMBER (FAMILY MUST BE SPECIFIED FIRST). 00032 M00S00029.qmove +++|* 00033 M00S00030.qmove +++|* THE FM AND DN PARAMETERS ARE USED TO DESCRIBE THE 00034 M00S00031.qmove +++|* FAMILY AND DEVICE OR SET OF FAMILIES OR DEVICES FROM 00035 M00S00032.qmove +++|* WHICH THE QUEUED FILES SHOULD BE MOVED. FM MAY BE 00036 M00S00033.qmove +++|* *ALL*, IN WHICH CASE DN MUST ALSO BE *ALL*. 00037 M00S00034.qmove +++|* 00038 M00S00035.qmove +++|* DF = DESTINATION FAMILY NAME. 00039 M00S00036.qmove +++|* 00040 M00S00037.qmove +++|* DD = DESTINATION DEVICE NUMBER (DESTINATION FAMILY MUST 00041 M00S00038.qmove +++|* BE SPECIFIED FIRST). 00042 M00S00039.qmove +++|* 00043 M00S00040.qmove +++|* THE DF AND DD PARAMETERS ARE USED TO DESCRIBE THE 00044 M00S00041.qmove +++|* FAMILY AND DEVICE TO WHICH THE QUEUED FILES SHOULD BE 00045 M00S00042.qmove +++|* MOVED. *ALL* IS NOT A LEGAL VALUE FOR THESE 00046 M00S00043.qmove +++|* PARAMETERS. 00047 M00S00044.qmove +++|* 00048 M00S00045.qmove +++|* FU = FAMILY NAME FOR USER INDEX. 00049 M00S00046.qmove +++|* 00050 M00S00047.qmove +++|* UI = USER INDEX RANGE (0 - 377777B). 00051 M00S00048.qmove +++|* 00052 M00S00049.qmove +++|* THE FU AND UI PARAMETERS DESCRIBE THE FAMILY AND USER 00053 M00S00050.qmove +++|* INDICIES OF THE QUEUED FILES WHICH ARE TO BE MOVED. 00054 M00S00051.qmove +++|* 00055 M00S00052.qmove +++|* DA = MOVE DATE RANGE. FORM IS YYMMDD WHERE YY IS THE 00056 M00S00053.qmove +++|* YEAR, MM THE MONTH, AND DD THE DAY. IT CAN ALSO BE 00057 M00S00054.qmove +++|* SPECIFIED AS ALL (DA=ALL) WHICH WILL SELECT ALL DATES. 00058 M00S00055.qmove +++|* 00059 M00S00056.qmove +++|* FS = FILE SIZE RANGE IN PRUS (0-777777B). 00060 M00S00057.qmove +++|* IF 777777B IS SPECIFIED, SIZES LARGER ARE ALSO INCLUDED. 00061 M00S00058.qmove +++|* 00062 M00S00059.qmove +++|* JSN = JOB SEQUENCE NUMBERS OF FILES TO MOVE. UP TO 5 00063 M00S00060.qmove +++|* ALLOWED. IF PREVIOUSLY ENTERED, THE JSN WILL BE 00064 M00S00061.qmove +++|* CLEARED. 00065 M00S00062.qmove +++|* 00066 M00S00063.qmove +++|* ID = ID RANGE OF BATCH AND SYSTEM ORIGIN FILES TO MOVE 00067 M00S00064.qmove +++|* (0 - 77B).
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00068 M01S00001.ns22000 +++|* 00069 M01S00002.ns22000 +++|* LA = LOWER SECURITY ACCESS LEVEL (1-7 CHARACTERS). 00070 M01S00003.ns22000 +++|* 00071 M01S00004.ns22000 +++|* UA = UPPER SECURITY ACCESS LEVEL (1-7 CHARACTERS). 00072 M00S00065.qmove +++|*
| Line S00066 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00073 M01S00066.ns22000 ---|* TUI= DESTINATION TUI OF REMOTE BATCH ORIGIN FILES TO MOVE.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00074 M01S00005.ns22000 +++|* TUI= DESITNATION TUI OF REMOTE BATCH FILES TO MOVE 00075 M00S00067.qmove +++|* TUI=0 IMPLIES MOVE ALL REMOTE BATCH FILES. 00076 M00S00068.qmove +++|* 00077 M00S00069.qmove +++|* TF = DESTINATION FAMILY FOR TERMINAL FOR SELECTING FILES 00078 M00S00070.qmove +++|* IN THE REMOTE BATCH QUEUE. 00079 M00S00071.qmove +++|* 00080 M00S00072.qmove +++|* FC = FORMS CODE. MAY BE A SINGLE ENTRY (FC=F1), A LIST 00081 M00S00073.qmove +++|* (FC=F1/F2/F3), OR A RANGE (FC=F1-F2) WHERE F1 IS 00082 M00S00074.qmove +++|* 2 CHARACTERS, ALL, OR NULL (SPECIFIED BY **). 00083 M00S00075.qmove +++|*
| Line S00076 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00084 M01S00076.v23l617 ---|* I = ALTERNATE DIRECTIVE INPUT FILE. THIS IS A CONTROL 00085 M01S00077.v23l617 ---|* STATEMENT PARAMETER SPECIFYING WHAT FILE SHOULD
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00086 M01S00003.v23l617 +++|* I = ALTERNATE DIRECTIVE INPUT FILE. THIS IS A 00087 M01S00004.v23l617 +++|* COMMAND PARAMETER SPECIFYING WHAT FILE SHOULD 00088 M00S00078.qmove +++|* BE READ FOR INPUT DIRECTIVES. THESE DIRECTIVES 00089 M00S00079.qmove +++|* CONSIST OF ANY LEGAL K-DISPLAY INPUT OR COMMANDS. 00090 M00S00080.qmove +++|* THESE DIRECTIVES WILL BE PROCESSED AFTER THE
| Line S00081 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00091 M01S00081.v23l617 ---|* CONTROL STATEMENT DIRECTIVES BUT BEFORE ANY
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00092 M01S00005.v23l617 +++|* COMMAND DIRECTIVES BUT BEFORE ANY 00093 M00S00082.qmove +++|* K-DISPLAY INPUT IS ACCEPTED. 00094 M00S00083.qmove +++|* 00095 M00S00084.qmove +++|* L = FILE NAME TO RECEIVE OUTPUT. 00096 M00S00085.qmove +++|* 00097 M00S00086.qmove +++|* TP = TYPE TO MOVE. 00098 M00S00087.qmove +++|* A - MOVE ACTIVE QUEUE FILES. 00099 M00S00088.qmove +++|* I - MOVE INACTIVE QUEUE FILES. 00100 M00S00089.qmove +++|* ALL - MOVE ACTIVE AND INACTIVE QUEUE FILES. 00101 M00S00090.qmove +++|* 00102 M00S00091.qmove +++|* OP = MOVE OPTION. 00103 M00S00092.qmove +++|* A - LEAVE QUEUE FILES AS ACTIVE FILES. 00104 M00S00093.qmove +++|* I - LEAVE QUEUE FILES AS INACTIVE FILES. 00105 M00S00094.qmove +++|*
| Line S00095 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00106 M01S00095.ns22000 ---|* OT = DT. SELECT ORIGIN TYPE BY DISPOSITION TYPE. MAY BE 00107 M01S00096.ns22000 ---|* ENTERED MORE THAN ONCE. OPTION WILL BE CLEARED
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00108 M01S00006.ns22000 +++|* DS = DT. SELECT FILE DESTINATION BY DISPOSITION TYPE. 00109 M01S00007.ns22000 +++|* MAY BE ENTERED MORE ONCE. OPTION WILL BE CLEARED 00110 M00S00097.qmove +++|* IF PREVIOUSLY SELECTED. 00111 M00S00098.qmove +++|* OT MAY BE -
| Line S00099 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00112 M01S00099.ns22000 ---|* BC - BATCH ORIGIN. 00113 M01S00100.ns22000 ---|* RB - REMOTE BATCH ORIGIN. 00114 M01S00101.ns22000 ---|* SY - SYSTEM ORIGIN.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00115 M01S00008.ns22000 +++|* BC - BATCH. 00116 M01S00009.ns22000 +++|* RB - REMOTE BATCH. 00117 M00S00102.qmove +++|* DT MAY BE - 00118 M00S00103.qmove +++|* SF - SPECIAL INSTALLATION DEFINED QUEUE FILES. 00119 M00S00104.qmove +++|* IN - INPUT. 00120 M00S00105.qmove +++|* PU - PUNCH. 00121 M00S00106.qmove +++|* PL - PLOT. 00122 M00S00107.qmove +++|* PR - PRINT (ANY PRINTER). 00123 M00S00108.qmove +++|* P2 - PRINT (512 PRINTER). 00124 M00S00109.qmove +++|* LR - PRINT (580-12 PRINTER). 00125 M00S00110.qmove +++|* LS - PRINT (580-16 PRINTER). 00126 M00S00111.qmove +++|* LT - PRINT (580-20 PRINTER).
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00127 M01S00001.241l630 +++|* LX - PRINT (5870 NIP). 00128 M01S00002.241l630 +++|* LY - PRINT (5970 NIP). 00129 M00S00112.qmove +++|* WT - WAIT. 00130 M00S00113.qmove +++|* PRINT - ALL PRINT TYPES. 00131 M00S00114.qmove +++|* ALL - ALL TYPES. 00132 M00S00115.qmove +++|* NONE - NO TYPES. 00133 M00S00116.qmove +++|* 00134 M00S00117.qmove +++|* PO = PROCESSING OPTIONS WHERE OPTIONS ARE DEFINED AS 00135 M00S00118.qmove +++|* THE FOLLOWING -
| Line S00119 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00136 M01S00119.v23l617 ---|* N - IF SPECIFIED, ONLY CONTROL STATEMENT DIRECTIVES
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00137 M01S00006.v23l617 +++|* N - IF SPECIFIED, ONLY COMMAND DIRECTIVES 00138 M00S00120.qmove +++|* WILL BE PROCESSED. K-DISPLAY IS AVAILABLE 00139 M00S00121.qmove +++|* FOR MONITORING THE UTILITY PROGRESS, BUT NO 00140 M00S00122.qmove +++|* K-DISPLAY INPUT IS ALLOWED. THE N PARAMETER 00141 M00S00123.qmove +++|* IS IMPLIED ON ALL NON-SYSTEM ORIGIN JOBS. 00142 M00S00124.qmove +++|* E - IF SPECIFIED, ERRORED FILE PROCESSING STATUS 00143 M00S00125.qmove +++|* WILL BE TOGGLED. 00144 M00S00126.qmove +++|* F - IF SPECIFIED, ON ACTIVATE REQUESTS ENTRIES WILL 00145 M00S00127.qmove +++|* BE MADE IN THE FOT FOR THE INACTIVE FAMILIES 00146 M00S00128.qmove +++|* AND THE FILES WILL BE QUEUED. DEFAULT IS TO 00147 M00S00129.qmove +++|* IGNORE THOSE FILES.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2330 |
Seq # *Modification Id* Act ----------------------------+ 00148 M01S00001.ns2330 +++|* I - IF SPECIFIED, INACTIVE INPUT QUEUE FILES WILL BE 00149 M01S00002.ns2330 +++|* ACTIVATED WHEN THE OWNER FAMILY IS NOT PRESENT.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2490 |
Seq # *Modification Id* Act ----------------------------+ 00150 M01S00001.ns2490 +++|* U - IF SPECIFIED, UNCONDITIONALLY LOAD FILES WITHIN 00151 M01S00002.ns2490 +++|* SECURITY RESTRAINTS AND SYSTEM FILE INTEGRITY. 00152 M00S00130.qmove +++|* 00153 M00S00131.qmove +++|* DEFAULT VALUES DEFINED IN *QFSP*. 00154 M00S00132.qmove +++|* 00155 M00S00133.qmove +++|* *K* DISPLAY COMMANDS AVAILABLE TO *QMOVE* ARE - 00156 M00S00134.qmove +++|* 00157 M00S00135.qmove +++|* GO. - PROCEED WITH PROCESSING. 00158 M00S00136.qmove +++|* STOP. - TERMINATE INPUT, END RUN. 00159 M00S00137.qmove +++|* RESET. - RESET PARAMETERS TO DEFAULT VALUES. 00160 M00S00138.qmove +++|* OUT. - RELEASE FILE SPECIFIED BY L PARAMETER TO PRINTER. 00161 M00S00139.qmove +++|* ERROR. - TOGGLE STATUS OF ERRORED FILE PROCESSING. IF SET, 00162 M00S00140.qmove +++|* ERRORED FILES WILL BE MOVED. DEFAULT IS NOT SET. 00163 M00S00141.qmove +++|* FAMILY. - IF SPECIFIED, ON ACTIVATE REQUESTS ENTRIES 00164 M00S00142.qmove +++|* WILL BE MADE IN THE FOT FOR THE INACTIVE FAMILIES 00165 M00S00143.qmove +++|* AND THE FILES WILL BE QUEUED. DEFAULT IS 00166 M00S00144.qmove +++|* TO IGNORE THOSE FILES. 00167 M00S00145.qmove +++| SPACE 4 00168 M00S00146.qmove +++|** ENTRY CONDITIONS. 00169 M00S00147.qmove +++|* 00170 M00S00148.qmove +++|* *QMOVE* IS ENTERED VIA RETURN JUMP FROM *QFSP*. 00171 M00S00149.qmove +++|* 00172 M00S00150.qmove +++|* *TARA* = FWA OF THE PARAMETER TABLE.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00173 M01S00010.ns22000 +++|* *TDAA* = FWA OF DEVICE ACCESS LEVEL TABLE. 00174 M00S00151.qmove +++|* *TEQA* = FWA OF THE MASS STORAGE EQUIPMENT TABLE. 00175 M00S00152.qmove +++|* *QFTA* = *QFTP* WORD FROM CENTRAL MEMORY RESIDENT. 00176 M00S00153.qmove +++|* *FOTA* = FWA OF THE FAMILY ORDINAL TABLE. 00177 M00S00154.qmove +++| SPACE 4 00178 M00S00155.qmove +++|*** DAYFILE MESSAGES. 00179 M00S00156.qmove +++|* 00180 M00S00157.qmove +++|* THE FOLLOWING MESSAGES ARE ISSUED TO THE DAYFILE AND 00181 M00S00158.qmove +++|* THE *K* DISPLAY UNLESS NOTED OTHERWISE. 00182 M00S00159.qmove +++|* 00183 M00S00160.qmove +++|* 00184 M00S00161.qmove +++|* * FOT FULL - FILES IGNORED.* - SOME OF THE QUEUED FILES 00185 M00S00162.qmove +++|* WERE NOT PROCESSED BECAUSE THERE WAS NO FOT ENTRY FOR THE 00186 M00S00163.qmove +++|* CREATION AND/OR THE DESTINATION FAMILY AND THE FOT WAS 00187 M00S00164.qmove +++|* FULL (MESSAGE ISSUED BY *COMCVQF*). (DAYFILE ONLY). 00188 M00S00165.qmove +++|*
| Line S00166 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00189 M01S00166.ns22000 ---|* * JSN EQNN TRACK TTTT LENGTH ERROR.* = THE QUEUE
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00190 M01S00011.ns22000 +++|* * JSN EQNNNN TRACK TTTT LENGTH ERROR.* = THE QUEUE 00191 M00S00167.qmove +++|* FILE ON THE SPECIFIED EQUIPMENT AND TRACK WAS 00192 M00S00168.qmove +++|* DETECTED AS HAVING A LENGTH ERROR AT RECOVERY TIME. 00193 M00S00169.qmove +++|* CONTACT AN ANALYST AND BRING THIS TO HIS ATTENTION. 00194 M00S00170.qmove +++|* (DAYFILE ONLY). 00195 M00S00171.qmove +++|*
| Line S00172 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00196 M01S00172.v23l617 ---|* * ILLEGAL MOVE REQUESTED.* = ONE OF THE FOLLOWING
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00197 M01S00007.v23l617 +++|* * INCORRECT MOVE REQUESTED.* = ONE OF THE FOLLOWING 00198 M00S00173.qmove +++|* CONDITIONS IS TRUE - 00199 M00S00174.qmove +++|* 1) DEVICE SPECIFIED IS NOT MASS STORAGE. 00200 M00S00175.qmove +++|* 2) DESTINATION DEVICE IS REMOVABLE AND OPTION IS A. 00201 M00S00176.qmove +++|* 3) DESTINATION DEVICE HAS ERROR IDLE SET. 00202 M00S00177.qmove +++|* ENTER THE CORRECT PARAMETERS AND RETRY OPERATION.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00203 M01S00012.ns22000 +++|*
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00204 M02S00013.v23l617 ---|* * INVALID DEVICE ACCESS LEVEL.*
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00205 M01S00008.v23l617 +++|* * INCORRECT DEVICE ACCESS LEVEL.*
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00206 M01S00014.ns22000 +++|* THE JOB DOING THE *QMOVE* IS NOT VALIDATED FOR THE 00207 M01S00015.ns22000 +++|* ACCESS LEVELS OF THE DEVICE. 00208 M00S00178.qmove +++|* 00209 M00S00179.qmove +++|* * IQFT FILE ERROR DN XX FAMILY AAAAAAA.* = AN ERROR HAS 00210 M00S00180.qmove +++|* BEEN ENCOUNTERED ATTACHING OR READING THE IQFT FILE. 00211 M00S00181.qmove +++|* THE MESSAGE FOLLOWING THIS MESSAGE IN THE DAYFILE 00212 M00S00182.qmove +++|* DESCRIBES THE ERROR. (DAYFILE ONLY). 00213 M00S00183.qmove +++|* 00214 M00S00184.qmove +++|* * OUTPUT FILE NAME CONFLICT.* = THE SPECIFIED OUTPUT 00215 M00S00185.qmove +++|* FILE NAME CONFLICTS WITH A NAME ALREADY IN USE. 00216 M00S00186.qmove +++|* CHANGE THE OUTPUT FILE NAME AND RETRY. 00217 M00S00187.qmove +++|* 00218 M00S00188.qmove +++|* * QFT THRESHOLD LIMIT.* = THE QFT THRESHOLD FOR THE 00219 M00S00189.qmove +++|* NUMBER OF QUEUE FILES ALLOWED IN THE QFT AS 00220 M00S00190.qmove +++|* A RESULT OF REQUEUING HAS BEEN REACHED. NO 00221 M00S00191.qmove +++|* MORE QUEUE FILES MAY BE ACTIVATED UNTIL SOME OF THESE 00222 M00S00192.qmove +++|* FILES ARE RELEASED. 00223 M00S00193.qmove +++|* 00224 M00S00194.qmove +++|* * QMOVE ABORTED.* = AN ERROR HAS BEEN DETECTED WHICH 00225 M00S00195.qmove +++|* IS NOT PROCESSED BY QMOVE ERROR PROCESSING. ATTEMPTS 00226 M00S00196.qmove +++|* HAVE BEEN MADE TO REMEDY THE SITUATION, BUT DISCRETION 00227 M00S00197.qmove +++|* SHOULD BE USED IN CONTINUED USE OF QMOVE. IN ANY 00228 M00S00198.qmove +++|* CASE, AN ANALYST SHOULD BE CONTACTED. CHECK THE 00229 M00S00199.qmove +++|* DAYFILE FOR THE ERROR THAT CAUSED THE ABORT. 00230 M00S00200.qmove +++|* 00231 M00S00201.qmove +++|* * QUEUE STATUS INDEFINITE.* = QMOVE HAS NOT BEEN ABLE TO 00232 M00S00202.qmove +++|* FINISH THE CLEAN UP AFTER AN ERROR OR ERROR EXIT. THE 00233 M00S00203.qmove +++|* STATUS OF IQFTS AND QUEUED FILES IS UNKNOWN. A LEVEL ZERO 00234 M00S00204.qmove +++|* DEADSTART IS RECOMMENDED TO CLEAN UP THE IQFT FILES.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 00235 M01S00001.ns2099 +++|* 00236 M01S00002.ns2099 +++|* * IQFT NOT FOUND.* = ALL DEVICES SHOULD HAVE 00237 M01S00003.ns2099 +++|* AN IQFT FILE. DEVICE SHOULD BE INITIALIZED TO CREATE 00238 M01S00004.ns2099 +++|* AN IQFT. 00239 M00S00205.qmove +++|* 00240 M00S00206.qmove +++|* * QUEUES UNRECOVERABLE THIS DEVICE.* = THE IQFT FILE 00241 M00S00207.qmove +++|* ON THE SPECIFIED DEVICE CANNOT BE READ PROPERLY. AN 00242 M00S00208.qmove +++|* ANALYST SHOULD BE CONTACTED. (DAYFILE ONLY). 00243 M00S00209.qmove +++|* 00244 M00S00210.qmove +++|* * XXXX FILES ACTIVATED DNYY FM AAAAAAA.* = NUMBER OF 00245 M00S00211.qmove +++|* QUEUED FILES ACTIVATED THIS DEVICE. 00246 M00S00212.qmove +++|* 00247 M00S00213.qmove +++|* * XXXX QUEUE FILES INTERLOCKED.* = NUMBER OF QUEUE FILES 00248 M00S00214.qmove +++|* INTERLOCKED ON THE DESTINATION DEVICE DUE TO 00249 M00S00215.qmove +++|* UNRECOVERABLE WRITE ERRORS OCCURING WHILE WRITING TO THAT 00250 M00S00216.qmove +++|* DEVICE. 00251 M00S00217.qmove +++|* 00252 M00S00218.qmove +++|* * XXXX FILES DEQUEUED DNYY FM AAAAAAA.* = NUMBER OF 00253 M00S00219.qmove +++|* QUEUED FILES DEQUEUED THIS DEVICE. 00254 M00S00220.qmove +++|* 00255 M00S00221.qmove +++|* * XXXX FILES IGNORED DNYY FM AAAAAAA.* = NUMBER OF 00256 M00S00222.qmove +++|* QUEUED FILE IGNORED THIS DEVICE ON THIS OPERATION. 00257 M00S00223.qmove +++|* 00258 M00S00224.qmove +++|* * XXXX FILES MOVED (A) DNYY FM AAAAAAA.* = NUMBER OF 00259 M00S00225.qmove +++|* ACTIVE QUEUED FILES MOVED AND LEFT ACTIVE THIS DEVICE. 00260 M00S00226.qmove +++|* 00261 M00S00227.qmove +++|* * XXXX FILES MOVED (I) DNYY FM AAAAAAA.* = NUMBER OF 00262 M00S00228.qmove +++|* INACTIVE QUEUED FILES MOVED AND LEFT INACTIVE THIS 00263 M00S00229.qmove +++|* DEVICE. 00264 M00S00230.qmove +++| SPACE 4 00265 M00S00231.qmove +++|*** *K* DISPLAY OPERATOR MESSAGES. 00266 M00S00232.qmove +++|* 00267 M00S00233.qmove +++|* * NO OUTPUT FILE EXISTS.* = NO OUTPUT FILE HAS BEEN 00268 M00S00234.qmove +++|* CREATED PREVIOUS TO ENTERING THE *OUT* COMMAND. 00269 M00S00235.qmove +++|* 00270 M00S00236.qmove +++|* * OUTPUT FILE RELEASED.* = OUTPUT FILE RELEASED TO PRINTER. 00271 M00S00237.qmove +++|* 00272 M00S00238.qmove +++|* * QMOVE COMPLETE.* = THE SPECIFIED OPERATION HAS BEEN 00273 M00S00239.qmove +++|* COMPLETED. 00274 M00S00240.qmove +++| SPACE 4 00275 M00S00241.qmove +++|* COMMON DECKS. 00276 M00S00242.qmove +++| 00277 M00S00243.qmove +++|*CALL COMCMAC 00278 M00S00244.qmove +++|*CALL COMCCMD 00279 M00S00245.qmove +++|*CALL COMSACC
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00280 M01S00016.ns22000 +++|*CALL COMSDSP 00281 M00S00246.qmove +++|*CALL COMSJIO 00282 M00S00247.qmove +++| LIST X 00283 M00S00248.qmove +++|*CALL COMSIOQ 00284 M00S00249.qmove +++|*CALL COMSQFS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00285 M01S00001.ns21000 +++|*CALL COMSSFM 00286 M00S00250.qmove +++| LIST -X
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00287 M01S00017.ns22000 +++|*CALL COMSMLS 00288 M01S00018.ns22000 +++|*CALL COMSSCD 00289 M00S00251.qmove +++|*CALL COMSSSE 00290 M00S00252.qmove +++|*CALL COMSSSJ 00291 M00S00253.qmove +++| TITLE ASSEMBLY CONSTANTS. 00292 M00S00254.qmove +++|**** ASSEMBLY CONSTANTS. 00293 M00S00255.qmove +++| 00294 M00S00256.qmove +++| BUFL EQU 1001B FET CIRCULAR BUFFER LENGTH 00295 M00S00257.qmove +++| IBUFL EQU 1001B IQFT BUFFER LENGTH 00296 M00S00258.qmove +++| QBUFL EQU 2041B QUEUED FILE DATA BUFFER LENGTH 00297 M00S00259.qmove +++| SBUFL EQU 101B SYSTEM SECTOR BUFFER LENGTH 00298 M00S00260.qmove +++| WBUFL EQU 110B WORKING BUFFER LENGTH
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00299 M01S00019.ns22000 +++| LNUM EQU TPPA+PPLN LINE NUMBER 00300 M01S00020.ns22000 +++| PDFE EQU TPPA+PPPD PRINT DENSITY FORMAT EFFECTOR 00301 M00S00261.qmove +++|**** 00302 M00S00262.qmove +++| SPACE 4,10 00303 M00S00263.qmove +++|* *DSP* FLAG BIT EQUIVALENCES. 00304 M00S00264.qmove +++| 00305 M00S00265.qmove +++| 00306 M00S00266.qmove +++| FRDC EQU 20B DISPOSITION CODE 00307 M00S00267.qmove +++| TITLE RESERVED LOCATIONS AND FETS. 00308 M00S00268.qmove +++|* RESERVED LOCATIONS. 00309 M00S00269.qmove +++| 00310 M00S00270.qmove +++| ORG OVLA 00311 M00S00271.qmove +++| 00312 M00S00272.qmove +++| QNUM CON 1 QUEUE FILE NUMBER 00313 M00S00273.qmove +++| PNUM CON 1 PAGE NUMBER
| Line S00274 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00314 M01S00274.ns22000 ---| LNUM CON LINP LINE NUMBER 00315 M00S00275.qmove +++| LIST CON 0 OUTPUT PRESENT FLAG 00316 M00S00276.qmove +++| RECF CON 0 LIST ANOTHER RECORD FLAG 00317 M00S00277.qmove +++| DSPB CON 0 TYPE OF FILES TO MOVE 00318 M00S00278.qmove +++| MVCT CON 0 MOVE COUNT OF QUEUE FILES MOVED 00319 M00S00279.qmove +++| IGCT CON 0 COUNT OF QUEUE FILES IGNORED 00320 M00S00280.qmove +++| EFCT CON 0 COUNT OF QUEUE FILES INTERLOCKED 00321 M00S00281.qmove +++| REQF CON O REQUEUE FLAG 00322 M00S00282.qmove +++| SPACE 4 00323 M00S00283.qmove +++|* FETS. 00324 M00S00284.qmove +++| 00325 M00S00285.qmove +++| O BSS 0 OUTPUT FILE 00326 M00S00286.qmove +++| OUTPUT FILEB OBUF,BUFL,(FET=7) 00327 M00S00287.qmove +++| 00328 M00S00288.qmove +++| Q BSS 0 QUEUE FILE 00329 M00S00289.qmove +++| QNAME FILEB QBUF,QBUFL,EPR,(FET=13) 00330 M00S00290.qmove +++|
| Line S00291 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00331 M01S00291.ns21000 ---| S BSS 0 SYSTEM SECTOR 00332 M01S00292.ns21000 ---| SS FILEB SBUF,SBUFL,EPR,(FET=8)
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00333 M01S00002.ns21000 +++| S BSS 0 SYSTEM SECTOR 00334 M01S00003.ns21000 +++| E BSS 0 EOI SECTOR 00335 M01S00004.ns21000 +++| SSEOI FILEB SBUF,SBUFL,EPR,(FET=8) 00336 M00S00293.qmove +++| 00337 M00S00294.qmove +++| D BSS 0 DESTINATION QUEUE FILE 00338 M00S00295.qmove +++| DQFILE FILEB DBUF,QBUFL,EPR,(FET=13) 00339 M00S00296.qmove +++| 00340 M00S00297.qmove +++| IQ BSS 0 OLD IQFT FILE 00341 M00S00298.qmove +++| "RFIQ" FILEB IBUF,IBUFL,EPR,(FET=8) 00342 M00S00299.qmove +++| 00343 M00S00300.qmove +++| NIQ BSS 0 NEW IQFT FILE FOR CURRENT DEVICE 00344 M00S00301.qmove +++| "RFNI" FILEB NBUF,BUFL,(FET=8) 00345 M00S00302.qmove +++| 00346 M00S00303.qmove +++| MIQ BSS 0 NEW IQFT FILE FOR MOVE DEVICE 00347 M00S00304.qmove +++| "RFMI" FILEB MBUF,BUFL,EPR,(FET=8) 00348 M00S00305.qmove +++| 00349 M00S00306.qmove +++| T BSS 0 TEMPORARY IQFT ENTRY BUFFER 00350 M00S00307.qmove +++| TEMP FILEB TBUF,BUFL,EPR,(FET=9) 00351 M00S00308.qmove +++| QMOVE TITLE MAIN ROUTINE. 00352 M00S00309.qmove +++|** QMOVE - MAIN ROUTINE. 00353 M00S00310.qmove +++|* 00354 M00S00311.qmove +++|* CALL PRESET IF NECESSARY, DETERMINE WHETHER *GO* OR 00355 M00S00312.qmove +++|* *OUT* HAS BEEN SPECIFIED, CALL THE ROUTINES TO PROCESS 00356 M00S00313.qmove +++|* THE FUNCTION, THEN CLEAN UP FOR THE RETURN TO *QFSP*. 00357 M00S00314.qmove +++|* 00358 M00S00315.qmove +++|* ENTRY (QFTS) = 0 IF INITIAL CALL TO *QMOVE* FROM *QFSP*. 00359 M00S00316.qmove +++|* .NE. 0 ON ALL FOLLOWING CALLS. 00360 M00S00317.qmove +++|* 00361 M00S00318.qmove +++|* USES X - ALL. 00362 M00S00319.qmove +++|* A - 1, 2, 4, 6, 7. 00363 M00S00320.qmove +++|* B - 1. 00364 M00S00321.qmove +++|* 00365 M00S00322.qmove +++|* CALLS CID, MQF, OFN, OUT, PRS, RAF. 00366 M00S00323.qmove +++|* 00367 M00S00324.qmove +++|* MACROS ABORT, MEMORY, RETURN, SETFS, WRITER. 00368 M00S00325.qmove +++| 00369 M00S00326.qmove +++| 00370 M00S00327.qmove +++| QMOVE SUBR ENTRY/EXIT 00371 M00S00328.qmove +++| SB1 1 00372 M00S00329.qmove +++| SA1 QFTS 00373 M00S00330.qmove +++| SX6 B0+ CLEAR NEW RECORD AND ERROR EXIT FLAGS 00374 M00S00331.qmove +++| SA6 RECF 00375 M00S00332.qmove +++| SA6 ERRC 00376 M00S00333.qmove +++| NZ X1,QMO1 IF PRESET UNNECESSARY 00377 M00S00334.qmove +++| RJ PRS PRESET 00378 M00S00335.qmove +++| QMO1 RJ OFN SET OUTPUT FILE NAME 00379 M00S00336.qmove +++| NZ X5,QMO3 IF FILE NAME CONFLICT 00380 M00S00337.qmove +++| 00381 M00S00338.qmove +++|* DETERMINE FUNCTION. 00382 M00S00339.qmove +++| 00383 M00S00340.qmove +++| SA2 TARA+ARFC CHECK FUNCTION 00384 M00S00341.qmove +++| MX0 -12 00385 M00S00342.qmove +++| BX3 -X0*X2 00386 M00S00343.qmove +++| ZR X3,QMO2 IF *GO* COMMAND 00387 M00S00344.qmove +++| 00388 M00S00345.qmove +++|* PROCESS *OUT* COMMAND. 00389 M00S00346.qmove +++| 00390 M00S00347.qmove +++| RJ OUT DISPOSE OUTPUT FILE 00391 M00S00348.qmove +++| BX2 X2-X2 SET NO *K* DISPLAY BUFFER 00392 M00S00349.qmove +++| EQ QMOVEX RETURN 00393 M00S00350.qmove +++| 00394 M00S00351.qmove +++|* PROCESS *GO* COMMAND. 00395 M00S00352.qmove +++| 00396 M00S00353.qmove +++| QMO2 SA1 TARA+ARTP SET TYPE OF FILES TO MOVE 00397 M00S00354.qmove +++| MX0 -12 00398 M00S00355.qmove +++| BX6 -X0*X1 00399 M00S00356.qmove +++| SA6 DSPB
| Line S00357 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00400 M01S00357.v23l617 ---| RJ CID CHECK FOR ILLEGAL DEVICES
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00401 M01S00009.v23l617 +++| RJ CID CHECK FOR INCORRECT DEVICES 00402 M00S00358.qmove +++| NZ X5,QMO3 IF ERROR 00403 M00S00359.qmove +++| RJ MQF MOVE QUEUED FILES 00404 M00S00360.qmove +++| NZ X5,QMO3 IF ERROR 00405 M00S00361.qmove +++| SX5 MES1 *QMOVE COMPLETE.* 00406 M00S00362.qmove +++| 00407 M00S00363.qmove +++|* RETURN LOCAL FILES AND CLOSE OUTPUT. 00408 M00S00364.qmove +++| 00409 M00S00365.qmove +++| QMO3 RETURN Q,R 00410 M00S00366.qmove +++| RETURN D,R 00411 M00S00367.qmove +++| RETURN S,R 00412 M00S00368.qmove +++| RETURN NIQ,R 00413 M00S00369.qmove +++| RETURN MIQ,R 00414 M00S00370.qmove +++| SETFS O,0 00415 M00S00371.qmove +++| SA1 RECF 00416 M00S00372.qmove +++| ZR X1,QMO4 IF NO NEW OUTPUT RECORD 00417 M00S00373.qmove +++| WRITER O FLUSH BUFFER 00418 M00S00374.qmove +++| 00419 M00S00375.qmove +++|* RESET FIELD LENGTH. 00420 M00S00376.qmove +++|
| Line S00377 Modification History | |
|---|---|
M01 (Removed by) | ns2340 |
Seq # *Modification Id* Act ----------------------------+ 00421 M01S00377.ns2340 ---| QMO4 SX7 BUFFL RESET POINTERS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2340 |
Seq # *Modification Id* Act ----------------------------+ 00422 M01S00001.ns2340 +++| QMO4 SX7 IBUF+IBUFL RESET POINTERS 00423 M00S00378.qmove +++| SA4 IQ+4 RESET *LIMIT* 00424 M00S00379.qmove +++| MX0 42 00425 M00S00380.qmove +++| BX6 X0*X4 00426 M00S00381.qmove +++| BX7 X6+X7
| Line S00382 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00427 M01S00382.ns21000 ---| SA7 A4+
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00428 M01S00005.ns21000 +++| SA7 A4 00429 M00S00383.qmove +++| SX0 X5 SAVE MESSAGE ADDRESS 00430 M00S00384.qmove +++| MEMORY CM,,R,BUFFL RESET ORIGINAL FIELD LENGTH 00431 M00S00385.qmove +++| 00432 M00S00386.qmove +++|* EXIT TO *QFSP*. 00433 M00S00387.qmove +++| 00434 M00S00388.qmove +++| SX3 IQ RETURN ATTACHED IQFT FILE 00435 M00S00389.qmove +++| RJ RAF 00436 M00S00390.qmove +++| SA1 ERRD 00437 M00S00391.qmove +++| NZ X1,QMO5 IF *PO=N* SPECIFIED AND ABORT SET 00438 M00S00392.qmove +++| SX5 X0 00439 M00S00393.qmove +++| BX2 X2-X2 SET NO *K* DISPLAY BUFFER 00440 M00S00394.qmove +++| EQ QMOVEX RETURN 00441 M00S00395.qmove +++| 00442 M00S00396.qmove +++| QMO5 ABORT 00443 M00S00397.qmove +++| CID TITLE PRIMARY SUBROUTINES.
| Line S00398 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00444 M01S00398.v23l617 ---|** CID - CHECK FOR ILLEGAL DEVICES.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00445 M01S00010.v23l617 +++|** CID - CHECK FOR INCORRECT DEVICES. 00446 M00S00399.qmove +++|*
| Line S00400 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00447 M01S00400.v23l617 ---|* ISSUE THE ERROR MESSAGE * ILLEGAL MOVE REQUESTED* IF
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00448 M01S00011.v23l617 +++|* ISSUE THE ERROR MESSAGE * INCORRECT MOVE REQUESTED* IF 00449 M00S00401.qmove +++|* ANY OF THE FOLLOWING CASES IS TRUE - 00450 M00S00402.qmove +++|* 00451 M00S00403.qmove +++|* 1) DEVICE SPECIFIED IS NOT MASS STORAGE. 00452 M00S00404.qmove +++|* 2) DESTINATION DEVICE HAS ERROR IDLE SET. 00453 M00S00405.qmove +++|* 3) DESTINATION DEVICE IS REMOVABLE AND OPTION IS A. 00454 M00S00406.qmove +++|* 00455 M00S00407.qmove +++|* ENTRY (DSPB) = 0, MOVE INACTIVE QUEUES. 00456 M00S00408.qmove +++|* = 1, MOVE ACTIVE QUEUES. 00457 M00S00409.qmove +++|* = 2, MOVE ALL QUEUES. 00458 M00S00410.qmove +++|* 00459 M00S00411.qmove +++|* EXIT (X5) = *K* DISPLAY MESSAGE ADDRESS IF ERROR. 00460 M00S00412.qmove +++|* = 0 IF NO ERROR.
| Line S00413 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00461 M01S00413.ns22000 ---|* (CEQP) = EQUIPMENT NUMBER.
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00462 M01S00021.ns22000 +++|* (CEQP) = EST ORDINAL. 00463 M00S00414.qmove +++|* 00464 M00S00415.qmove +++|* USES X - 0, 1, 2, 5, 6. 00465 M00S00416.qmove +++|* A - 1, 2, 6. 00466 M00S00417.qmove +++|* 00467 M00S00418.qmove +++|* CALLS DND. 00468 M00S00419.qmove +++|* 00469 M00S00420.qmove +++|* MACROS MESSAGE. 00470 M00S00421.qmove +++| 00471 M00S00422.qmove +++|
| Line S00423 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00472 M01S00423.v23l617 ---| CID2 SX5 MES3 * ILLEGAL MOVE REQUESTED.*
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00473 M01S00012.v23l617 +++| CID2 SX5 MES3 * INCORRECT MOVE REQUESTED.* 00474 M00S00424.qmove +++| MESSAGE X5 00475 M00S00425.qmove +++| 00476 M00S00426.qmove +++| CID SUBR ENTRY/EXIT 00477 M00S00427.qmove +++| 00478 M00S00428.qmove +++|* DETERMINE FIRST EQUIPMENT TO MOVE FROM. 00479 M00S00429.qmove +++|
| Line S00430 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00480 M01S00430.ns22000 ---| SX6 -1 PRESET EQUIPMENT NUMBER
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00481 M01S00022.ns22000 +++| SX6 NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 00482 M00S00431.qmove +++| SA6 CEQP 00483 M00S00432.qmove +++| RJ DND DETERMINE FIRST EQUIPMENT 00484 M00S00433.qmove +++| ZR X4,CID2 IF DEVICE NOT IN TABLE (NON-MASS STORAGE) 00485 M00S00434.qmove +++| 00486 M00S00435.qmove +++|* CHECK LEGAL DESTINATION FAMILY. 00487 M00S00436.qmove +++|
| Line S00437 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00488 M01S00437.ns22000 ---| SA1 TARA+ARDD CHECK EQUIPMENT NUMBER
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00489 M01S00023.ns22000 +++| SA1 TARA+ARDD CHECK EST ORDINAL 00490 M00S00438.qmove +++| MX0 -12 00491 M00S00439.qmove +++| BX6 -X0*X1 00492 M00S00440.qmove +++| SA2 TMSA+X6 CHECK FOR ERROR IDLE
| Line S00441 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00493 M01S00441.ns21000 ---| LX2 59-11 00494 M01S00442.ns21000 ---| NG X2,CID2 IF ERROR IDLE ON DEVICE 00495 M01S00443.ns21000 ---| SA2 TEQA+X6 CHECK FOR REMOVABLE DEVICE 00496 M01S00444.ns21000 ---| LX2 59-1 00497 M01S00445.ns21000 ---| PL X2,CID1 IF NOT REMOVABLE DEVICE 00498 M01S00446.ns21000 ---| SA1 TARA+AROP
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00499 M01S00006.ns21000 +++| SA1 TEQA+X6 CHECK FOR REMOVABLE DEVICE 00500 M01S00007.ns21000 +++| LX2 59-11 00501 M01S00008.ns21000 +++| LX1 59-1 00502 M01S00009.ns21000 +++| NG X2,CID2 IF ERROR IDLE ON DEVICE 00503 M01S00010.ns21000 +++| PL X1,CID1 IF NOT REMOVABLE DEVICE 00504 M01S00011.ns21000 +++| SA1 TARA+AROP CHECK MOVE OPTION 00505 M00S00447.qmove +++| NZ X1,CID2 IF LEAVE ACTIVE 00506 M00S00448.qmove +++| CID1 BX5 X5-X5 CLEAR ERROR FLAG 00507 M00S00449.qmove +++| EQ CIDX RETURN 00508 M00S00450.qmove +++| MQF SPACE 4,20 00509 M00S00451.qmove +++|** MQF - MOVE QUEUED FILES. 00510 M00S00452.qmove +++|* 00511 M00S00453.qmove +++|* PRESET OUTPUT AND CALL ROUTINES TO PROCESS THE MOVING 00512 M00S00454.qmove +++|* OF THE QUEUED FILES, PROCESSING THE FILES ONE DEVICE 00513 M00S00455.qmove +++|* AT A TIME. 00514 M00S00456.qmove +++|* 00515 M00S00457.qmove +++|* ENTRY (DSPB) = 0, MOVE INACTIVE QUEUES. 00516 M00S00458.qmove +++|* = 1, MOVE ACTIVE QUEUES. 00517 M00S00459.qmove +++|* = 2, MOVE ALL QUEUES. 00518 M00S00460.qmove +++|* 00519 M00S00461.qmove +++|* EXIT (X5) = 0 IF NO ERROR. 00520 M00S00462.qmove +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR. 00521 M00S00463.qmove +++|* 00522 M00S00464.qmove +++|* USES X - 0, 1, 2, 5, 6, 7. 00523 M00S00465.qmove +++|* A - 0, 1, 2, 6, 7. 00524 M00S00466.qmove +++|* B - 6. 00525 M00S00467.qmove +++|* 00526 M00S00468.qmove +++|* CALLS CTF, DND, IDM, PAQ, PIQ. 00527 M00S00469.qmove +++|* 00528 M00S00470.qmove +++|* MACROS CLOCK, DATE, EREXIT, MEMORY, WRITE. 00529 M00S00471.qmove +++| 00530 M00S00472.qmove +++| 00531 M00S00473.qmove +++| MQF6 NZ X4,MQF4 IF NOT END OF DEVICES 00532 M00S00474.qmove +++| BX5 X5-X5 CLEAR ERROR FLAG 00533 M00S00475.qmove +++| 00534 M00S00476.qmove +++| MQF SUBR ENTRY/EXIT 00535 M00S00477.qmove +++| SX6 B0+ CLEAR FORCED IQFT FLAG 00536 M00S00478.qmove +++| SA6 DEQB 00537 M00S00479.qmove +++| 00538 M00S00480.qmove +++|* SET UP OUTPUT HEADER AND PARAMETERS. 00539 M00S00481.qmove +++| 00540 M00S00482.qmove +++| DATE BOHA1 SET DATE IN HEADER 00541 M00S00483.qmove +++| CLOCK BOHA2 SET TIME IN HEADER 00542 M00S00484.qmove +++| WRITE O,* PRESET WRITE FUNCTION 00543 M00S00485.qmove +++| SX6 B1+ SET QUEUE FILE AND PAGE NUMBERS 00544 M00S00486.qmove +++| SA6 QNUM 00545 M00S00487.qmove +++| SA6 PNUM
| Line S00488 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00546 M01S00488.ns22000 ---| MQF1 SX7 LINP SET LINE NUMBER TO END OF PAGE
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00547 M01S00024.ns22000 +++| SA6 PDFE+1 SET PRINT DENSITY FORMAT CONTROL FLAG 00548 M01S00025.ns22000 +++| MQF1 SX7 99999 FORCE PAGE EJECT 00549 M00S00489.qmove +++| SA7 LNUM 00550 M00S00490.qmove +++| 00551 M00S00491.qmove +++|* PROCESS MOVING OF QUEUE FILES. 00552 M00S00492.qmove +++| 00553 M00S00493.qmove +++| SX6 B0+ PRESET FILE COUNTS 00554 M00S00494.qmove +++| SA6 MVCT 00555 M00S00495.qmove +++| SA6 IGCT 00556 M00S00496.qmove +++| SA6 EFCT 00557 M00S00497.qmove +++| SA6 REQF CLEAR REQUEUE FLAG 00558 M00S00498.qmove +++| SA1 DSPB CHECK TYPE TO MOVE 00559 M00S00499.qmove +++| NZ X1,MQF2 IF MOVING ACTIVE FILES 00560 M00S00500.qmove +++| SA2 TARA+AROP 00561 M00S00501.qmove +++| ZR X2,MQF4 IF LEAVING INACTIVE 00562 M00S00502.qmove +++| RJ CTF CREATE TABLE OF ACTIVE FAMILIES 00563 M00S00503.qmove +++| BX7 X7-X7 CLEAR FOT FULL FLAG 00564 M00S00504.qmove +++| SA7 FOTF 00565 M00S00505.qmove +++| MX6 1 SET REQUEUE FLAG 00566 M00S00506.qmove +++| SA6 REQF 00567 M00S00507.qmove +++| EQ MQF4 PROCESS INACTIVE QUEUE FILES 00568 M00S00508.qmove +++| 00569 M00S00509.qmove +++| MQF2 SX0 B0 SET INITIAL CALL 00570 M00S00510.qmove +++| MQF3 EREXIT ERR SET ERROR EXIT 00571 M00S00511.qmove +++| RJ PAQ PROCESS ACTIVE QUEUE FILES 00572 M00S00512.qmove +++| EQ MQF5 ISSUE MESSAGES 00573 M00S00513.qmove +++| 00574 M00S00514.qmove +++| MQF4 EREXIT ERR SET ERROR EXIT 00575 M00S00515.qmove +++| RJ PIQ PROCESS INACTIVE QUEUE FILES 00576 M00S00516.qmove +++| MQF5 SA0 X5 SAVE ERROR 00577 M00S00517.qmove +++| EREXIT 0 CLEAR ERROR EXIT 00578 M00S00518.qmove +++| RJ IDM ISSUE DAYFILE MESSAGES 00579 M00S00519.qmove +++| SX5 A0+ 00580 M00S00520.qmove +++| NZ X5,MQFX IF ERROR 00581 M00S00521.qmove +++| 00582 M00S00522.qmove +++|* CHECK FOR MORE DEVICES TO PROCESS. 00583 M00S00523.qmove +++| 00584 M00S00524.qmove +++| RJ DND DETERMINE NEXT DEVICE 00585 M00S00525.qmove +++| SA1 DSPB 00586 M00S00526.qmove +++| ZR X1,MQF6 IF MOVING INACTIVE FILES 00587 M00S00527.qmove +++| SB6 RBUF+QFTE SET QFT BUFFER ADDRESS 00588 M00S00528.qmove +++| SX0 B1+ SET NON-INITIAL CALL 00589 M00S00529.qmove +++| NZ X4,MQF3 IF NOT END OF DEVICES 00590 M00S00530.qmove +++| SA1 DSPB 00591 M00S00531.qmove +++| SX5 X1-1 00592 M00S00532.qmove +++| ZR X5,MQFX IF MOVE ONLY ACTIVE FILES 00593 M00S00533.qmove +++| 00594 M00S00534.qmove +++|* SET UP FOR INACTIVE FILE MOVE. 00595 M00S00535.qmove +++| 00596 M00S00536.qmove +++| BX6 X6-X6 SET INACTIVE FILE MOVE 00597 M00S00537.qmove +++| SA6 A1 00598 M00S00538.qmove +++| MEMORY CM,,R,BUFFL RESET FIELD LENGTH 00599 M00S00539.qmove +++| SX7 B1 RESET QUEUE NUMBER 00600 M00S00540.qmove +++| SA7 QNUM
| Line S00541 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00601 M01S00541.ns22000 ---| SX6 -B1 DETERMINE FIRST EQUIPMENT
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00602 M01S00026.ns22000 +++| SX6 NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 00603 M00S00542.qmove +++| SA6 CEQP 00604 M00S00543.qmove +++| RJ DND 00605 M00S00544.qmove +++| EQ MQF1 PROCESS INACTIVE QUEUE FILES 00606 M00S00545.qmove +++| OFN SPACE 4,20 00607 M00S00546.qmove +++|** OFN - SET OUTPUT FILE NAME. 00608 M00S00547.qmove +++|* 00609 M00S00548.qmove +++|* SET UP THE OUTPUT FILE FET. ISSUE AN ERROR MESSAGE 00610 M00S00549.qmove +++|* IF THE OUTPUT FILE NAME SPECIFIED IS QNAME, SS, 00611 M00S00550.qmove +++|* DQFILE, IQF, NIQFT, MIQFT, TEMP OR ANY OTHER NAME 00612 M00S00551.qmove +++|* CURRENTLY EXISTING IN ANOTHER FET. 00613 M00S00552.qmove +++|* 00614 M00S00553.qmove +++|* EXIT (LIST) = 0 IF FILE NAME CHANGED. 00615 M00S00554.qmove +++|* (X5) = 0 IF NO FILE NAME CONFLICT. 00616 M00S00555.qmove +++|* = ADDRESS OF *K* DISPLAY MESSAGE IF CONFLICT. 00617 M00S00556.qmove +++|* 00618 M00S00557.qmove +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 00619 M00S00558.qmove +++|* A - 1, 2, 3, 4, 5, 6. 00620 M00S00559.qmove +++|* 00621 M00S00560.qmove +++|* MACROS MESSAGE. 00622 M00S00561.qmove +++| 00623 M00S00562.qmove +++| 00624 M00S00563.qmove +++| OFN3 SX5 MES4 *OUTPUT FILE NAME CONFLICT.* 00625 M00S00564.qmove +++| MESSAGE X5 00626 M00S00565.qmove +++| 00627 M00S00566.qmove +++| OFN SUBR ENTRY/EXIT 00628 M00S00567.qmove +++| 00629 M00S00568.qmove +++|* COMPARE CURRENT AND SPECIFIED NAMES. 00630 M00S00569.qmove +++| 00631 M00S00570.qmove +++| SA1 O GET CURRENT OUTPUT FILE NAME 00632 M00S00571.qmove +++| SA3 TARA+ARLL CHECK SPECIFIED OUTPUT FILE NAME 00633 M00S00572.qmove +++| MX0 42 00634 M00S00573.qmove +++| BX4 X1-X3 00635 M00S00574.qmove +++| BX2 X0*X4 00636 M00S00575.qmove +++| BX6 X6-X6 INITIALIZE LIST FLAG 00637 M00S00576.qmove +++| ZR X2,OFN2 IF NO FILE NAME CHANGE 00638 M00S00577.qmove +++| SA6 LIST 00639 M00S00578.qmove +++| 00640 M00S00579.qmove +++|* CHECK FOR FILE NAME CONFLICTS. 00641 M00S00580.qmove +++| 00642 M00S00581.qmove +++| SA1 Q QUEUE FILE 00643 M00S00582.qmove +++| BX1 X0*X1 00644 M00S00583.qmove +++| BX1 X1-X3 00645 M00S00584.qmove +++| ZR X1,OFN3 IF FILE NAME CONFLICT 00646 M00S00585.qmove +++| SA2 IQ OLD IQFT FILE 00647 M00S00586.qmove +++| SA4 NIQ NEW IQFT ON CURRENT DEVICE 00648 M00S00587.qmove +++| SA5 MIQ NEW IQFT ON MOVE DEVICE 00649 M00S00588.qmove +++| OFN1 BX2 X0*X2 00650 M00S00589.qmove +++| BX4 X0*X4 00651 M00S00590.qmove +++| BX5 X0*X5 00652 M00S00591.qmove +++| BX2 X2-X3 00653 M00S00592.qmove +++| BX4 X4-X3 00654 M00S00593.qmove +++| BX5 X5-X3 00655 M00S00594.qmove +++| ZR X2,OFN3 IF CONFLICT 00656 M00S00595.qmove +++| ZR X4,OFN3 IF CONFLICT 00657 M00S00596.qmove +++| ZR X5,OFN3 IF CONFLICT 00658 M00S00597.qmove +++| NZ X6,OFN2 IF ALL NAMES CHECKED 00659 M00S00598.qmove +++| SA2 S SYSTEM SECTOR 00660 M00S00599.qmove +++| SA4 D DESTINATION QUEUE FILE 00661 M00S00600.qmove +++| SA5 T TEMPORARY FILE 00662 M00S00601.qmove +++| SX6 B1 00663 M00S00602.qmove +++| EQ OFN1 CHECK REMAINDER OF FET-S 00664 M00S00603.qmove +++| 00665 M00S00604.qmove +++|* SET OUTPUT FILE NAME IN FET. 00666 M00S00605.qmove +++| 00667 M00S00606.qmove +++| OFN2 SX1 3 00668 M00S00607.qmove +++| BX6 X3+X1 00669 M00S00608.qmove +++| BX5 X5-X5 CLEAR ERROR FLAG 00670 M00S00609.qmove +++| SA6 O 00671 M00S00610.qmove +++| EQ OFNX RETURN 00672 M00S00611.qmove +++| OUT SPACE 4,20 00673 M00S00612.qmove +++|** OUT - RELEASE OUTPUT FILE TO PRINTER. 00674 M00S00613.qmove +++|* 00675 M00S00614.qmove +++|* RELEASE THE OUTPUT FILE, IF ONE EXISTS, TO THE PRINTER 00676 M00S00615.qmove +++|* AND ISSUE AN INFORMATIVE MESSAGE AS TO WHETHER OR NOT 00677 M00S00616.qmove +++|* ONE WAS RELEASED. 00678 M00S00617.qmove +++|* 00679 M00S00618.qmove +++|* ENTRY (LIST) .NE. 0 IF OUTPUT FILE WRITTEN. 00680 M00S00619.qmove +++|* 00681 M00S00620.qmove +++|* EXIT (LIST) = 0. 00682 M00S00621.qmove +++|* (X5) = *K* DISPLAY MESSAGE ADDRESS. 00683 M00S00622.qmove +++|* 00684 M00S00623.qmove +++|* USES X - 2, 5, 6. 00685 M00S00624.qmove +++|* A - 2, 6. 00686 M00S00625.qmove +++|* 00687 M00S00626.qmove +++|* CALLS CBL. 00688 M00S00627.qmove +++|* 00689 M00S00628.qmove +++|* MACROS ROUTE. 00690 M00S00629.qmove +++| 00691 M00S00630.qmove +++| 00692 M00S00631.qmove +++| OUT1 SX5 MES7 *NO OUTPUT FILE EXISTS.* 00693 M00S00632.qmove +++| 00694 M00S00633.qmove +++| OUT SUBR ENTRY/EXIT 00695 M00S00634.qmove +++| SA2 LIST CHECK IF OUTPUT EXISTS 00696 M00S00635.qmove +++| ZR X2,OUT1 IF NO OUTPUT FILE 00697 M00S00636.qmove +++| 00698 M00S00637.qmove +++|* RELEASE OUTPUT FILE. 00699 M00S00638.qmove +++| 00700 M00S00639.qmove +++| RJ CBL CLEAR ROUTE BLOCK 00701 M00S00640.qmove +++| SA2 O GET FILE NAME 00702 M00S00641.qmove +++| MX6 42 00703 M00S00642.qmove +++| BX6 X6*X2 00704 M00S00643.qmove +++| SA6 BLOCK *DSP* PARAMETER BLOCK 00705 M00S00644.qmove +++| SA2 OUTA 00706 M00S00645.qmove +++| BX6 X2 00707 M00S00646.qmove +++| SA6 A6+B1 00708 M00S00647.qmove +++| ROUTE BLOCK,RECALL 00709 M00S00648.qmove +++| BX6 X6-X6 CLEAR OUTPUT FLAG 00710 M00S00649.qmove +++| SA6 LIST 00711 M00S00650.qmove +++| SX5 MES8 *OUTPUT FILE RELEASED.* 00712 M00S00651.qmove +++| EQ OUTX RETURN 00713 M00S00652.qmove +++| 00714 M00S00653.qmove +++| 00715 M00S00654.qmove +++| OUTA VFD 24/0,12/2HPR,6/0,18/FRDC 00716 M00S00655.qmove +++| AQF TITLE SECONDARY SUBROUTINES. 00717 M00S00656.qmove +++|** AQF - ATTACH QUEUE FILE AND READ SYSTEM SECTOR. 00718 M00S00657.qmove +++|* 00719 M00S00658.qmove +++|* SEARCH THE IQFT BUFFER UNTIL THE NEXT ENTRY THAT MEETS 00720 M00S00659.qmove +++|* THE REQUIREMENTS SPECIFIED IN THE FET IS FOUND, THEN 00721 M00S00660.qmove +++|* ATTACH THAT FILE TO THE CONTROL POINT, ISSUE A *READ* ON 00722 M00S00661.qmove +++|* THE FILE AND ALSO READ THE SYSTEM SECTOR FOR THE FILE. 00723 M00S00662.qmove +++|* 00724 M00S00663.qmove +++|* ENTRY (X5) = FUNCTION TO ATTACH FILE. 00725 M00S00664.qmove +++|* 00726 M00S00665.qmove +++|* EXIT (X5) = 0 IF NO ERROR. 00727 M00S00666.qmove +++|* .LT. 0, SKIP FILE. 00728 M00S00667.qmove +++|* .GT. 0, *K* DISPLAY MESSAGE ADDRESS. 00729 M00S00668.qmove +++|* (X6) .NE. 0 IF END OF BUFFER. 00730 M00S00669.qmove +++|* (AQFA) .NE. 0 IF READ ERROR. 00731 M00S00670.qmove +++|* (AQFB) .EQ. 0 IF ERROR ATTACHING QUEUED FILE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2156 |
Seq # *Modification Id* Act ----------------------------+ 00732 M01S00001.ns2156 +++|* (RTFC) = ENTRY TIME, IF ACTIVE FILE. 00733 M01S00002.ns2156 +++|* = -1, IF INACTIVE FILE. 00734 M00S00671.qmove +++|* 00735 M00S00672.qmove +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 00736 M00S00673.qmove +++|* A - 0, 1, 2, 3, 5, 6, 7. 00737 M00S00674.qmove +++|* B - 6. 00738 M00S00675.qmove +++|* 00739 M00S00676.qmove +++|* CALLS CER, EPR. 00740 M00S00677.qmove +++|* 00741 M00S00678.qmove +++|* MACROS QCALL, READCW, RENAME, REWIND, WRITECW. 00742 M00S00679.qmove +++| 00743 M00S00680.qmove +++| 00744 M00S00681.qmove +++| AQF SUBR ENTRY/EXIT 00745 M00S00682.qmove +++| BX6 X6-X6 CLEAR FLAGS 00746 M00S00683.qmove +++| SA6 AQFA 00747 M00S00684.qmove +++| SA6 A6+B1
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2156 |
Seq # *Modification Id* Act ----------------------------+ 00748 M01S00003.ns2156 +++| SX7 X5 SAVE FUNCTION 00749 M01S00004.ns2156 +++| SA7 AQFC 00750 M00S00685.qmove +++| REWIND Q,R 00751 M00S00686.qmove +++| REWIND S,R 00752 M00S00687.qmove +++| REWIND D,R 00753 M00S00688.qmove +++| 00754 M00S00689.qmove +++|* ATTACH QUEUE FILE. 00755 M00S00690.qmove +++| 00756 M00S00691.qmove +++| SA0 T ATTACH FILE 00757 M00S00692.qmove +++| QCALL X5,T 00758 M00S00693.qmove +++| RJ CER CHECK FOR ERROR 00759 M00S00694.qmove +++| NZ X5,AQF2 IF ERROR 00760 M00S00695.qmove +++| SA1 T+3 ADVANCE *OUT* POINTER 00761 M00S00696.qmove +++| SA2 A1-B1 00762 M00S00697.qmove +++| IX2 X2-X1 *IN* - *OUT* 00763 M00S00698.qmove +++| SX6 B1+ SET FLAG FOR NO ATTACH 00764 M00S00699.qmove +++| SA6 AQFB 00765 M00S00700.qmove +++| ZR X2,AQFX IF END OF BUFFER 00766 M00S00701.qmove +++| SX7 X1+QFEWL 00767 M00S00702.qmove +++| SA7 A1 00768 M00S00703.qmove +++| MX0 24 00769 M00S00704.qmove +++| SA2 X1+ INSERT QUEUE FILE NAME IN FETS 00770 M00S00705.qmove +++| BX6 X0*X2 00771 M00S00706.qmove +++| MX0 -18 00772 M00S00707.qmove +++| SA3 Q 00773 M00S00708.qmove +++| BX3 -X0*X3 00774 M00S00709.qmove +++| BX7 X6+X3 00775 M00S00710.qmove +++| SA1 S 00776 M00S00711.qmove +++| BX1 -X0*X1 00777 M00S00712.qmove +++| SA7 A3 00778 M00S00713.qmove +++| SA2 D 00779 M00S00714.qmove +++| BX7 X6+X1 00780 M00S00715.qmove +++| SA7 A1 00781 M00S00716.qmove +++| BX2 -X0*X2 00782 M00S00717.qmove +++| BX6 X6+X2 00783 M00S00718.qmove +++| SA6 A2 00784 M00S00719.qmove +++| WRITECW D,* PRESET WRITE FUNCTION 00785 M00S00720.qmove +++| 00786 M00S00721.qmove +++|* READ SYSTEM SECTOR. 00787 M00S00722.qmove +++| 00788 M00S00723.qmove +++| SA0 S 00789 M00S00724.qmove +++| SX7 -1 SET FLAG 00790 M00S00725.qmove +++| SA7 AQFB 00791 M00S00726.qmove +++| QCALL QRSF,S 00792 M00S00727.qmove +++| RJ CER CHECK FOR ERROR 00793 M00S00728.qmove +++| NZ X5,AQF2 IF ERROR
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2156 |
Seq # *Modification Id* Act ----------------------------+ 00794 M01S00005.ns2156 +++| SA2 AQFC 00795 M01S00006.ns2156 +++| SX3 X2-AQFF 00796 M01S00007.ns2156 +++| SX7 -1 00797 M01S00008.ns2156 +++| NZ X3,AQF0.1 IF INACTIVE FILE 00798 M01S00009.ns2156 +++| SA1 S+3 SAVE ENTRY TIME 00799 M01S00010.ns2156 +++| SX2 5 00800 M01S00011.ns2156 +++| SX3 IOSS+ENTQ*5-BFMS-2 00801 M01S00012.ns2156 +++| IX6 X3/X2 00802 M01S00013.ns2156 +++| IX1 X1+X6 00803 M01S00014.ns2156 +++| SA1 X1 00804 M01S00015.ns2156 +++| MX0 -24 00805 M01S00016.ns2156 +++| BX7 -X0*X1 00806 M01S00017.ns2156 +++| AQF0.1 SA7 RTFC 00807 M00S00729.qmove +++| 00808 M00S00730.qmove +++|* RENAME OLD QUEUE FILE. 00809 M00S00731.qmove +++| 00810 M00S00732.qmove +++| AQF1 SA1 =5LQNAME 00811 M00S00733.qmove +++| SA0 Q 00812 M00S00734.qmove +++| RENAME Q,X1 00813 M00S00735.qmove +++| RJ CER CHECK FOR ERROR 00814 M00S00736.qmove +++| SB6 TLEP SET ERROR TABLE ADDRESS 00815 M00S00737.qmove +++| NZ X5,AQF3 IF ERROR 00816 M00S00738.qmove +++| SX7 B1+ SET FLAG FOR NO ATTACH 00817 M00S00739.qmove +++| SA7 AQFB 00818 M00S00740.qmove +++| READCW Q READ QUEUE FILE 00819 M00S00741.qmove +++| BX6 X6-X6 CLEAR END OF BUFFER 00820 M00S00742.qmove +++| EQ AQFX RETURN 00821 M00S00743.qmove +++| 00822 M00S00744.qmove +++|* PROCESS *QFM* ERROR. 00823 M00S00745.qmove +++| 00824 M00S00746.qmove +++| AQF2 SB6 TQEP SET ERROR TABLE ADDRESS 00825 M00S00747.qmove +++| AQF3 RJ EPR PROCESS ERROR 00826 M00S00748.qmove +++| NZ X5,AQFX IF ERROR 00827 M00S00749.qmove +++| SA7 AQFA SAVE READ ERROR MESSAGE ADDRESS 00828 M00S00750.qmove +++| SA7 CPFA 00829 M00S00751.qmove +++| EQ AQF1 RENAME OLD QUEUE FILE 00830 M00S00752.qmove +++| 00831 M00S00753.qmove +++| AQFA CON 0 READ ERROR FLAG 00832 M00S00754.qmove +++| AQFB CON 1 ATTACHING FLAG
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns2156 |
Seq # *Modification Id* Act ----------------------------+ 00833 M01S00018.ns2156 +++| AQFC CON 0 FUNCTION 00834 M00S00755.qmove +++| BOF SPACE 4,20 00835 M00S00756.qmove +++|** BOF - BUILD OUTPUT FILE. 00836 M00S00757.qmove +++|* 00837 M00S00758.qmove +++|* WRITE ONE ENTRY TO THE OUTPUT FILE AND CALL THE 00838 M00S00759.qmove +++|* ROUTINE TO WRITE PAGE HEADERS WHEN NECESSARY. 00839 M00S00760.qmove +++|* 00840 M00S00761.qmove +++|* ENTRY (X7) = DISPOSITION FIELD ADDRESS. 00841 M00S00762.qmove +++|* (LNUM) = CURRENT LINE NUMBER. 00842 M00S00763.qmove +++|* (PNUM) = CURRENT PAGE NUMBER. 00843 M00S00764.qmove +++|* (QNUM) = CURRENT QUEUE FILE NUMBER. 00844 M00S00765.qmove +++|* (CEQP) = CURRENT EQUIPMENT. 00845 M00S00766.qmove +++|* 00846 M00S00767.qmove +++|* EXIT (LNUM) = NEXT LINE NUMBER. 00847 M00S00768.qmove +++|* (PNUM) = NEXT PAGE NUMBER. 00848 M00S00769.qmove +++|* (QNUM) = NEXT QUEUE FILE NUMBER. 00849 M00S00770.qmove +++|* 00850 M00S00771.qmove +++|* USES X - 1, 2, 3, 5, 6, 7. 00851 M00S00772.qmove +++|* A - 1, 2, 3, 5, 6, 7. 00852 M00S00773.qmove +++|* B - 7. 00853 M00S00774.qmove +++|* 00854 M00S00775.qmove +++|* CALLS BOH, FQO. 00855 M00S00776.qmove +++|* 00856 M00S00777.qmove +++|* MACROS WRITEC, WRITEW. 00857 M00S00778.qmove +++| 00858 M00S00779.qmove +++| 00859 M00S00780.qmove +++| BOF SUBR ENTRY/EXIT 00860 M00S00781.qmove +++| SA7 BOFA SAVE DISPOSITION FIELD ADDRESS 00861 M00S00782.qmove +++| SA1 LNUM LINE NUMBER
| Line S00783 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00862 M01S00783.ns22000 ---| SX7 X1-LINP 00863 M01S00784.ns22000 ---| NZ X7,BOF1 IF NOT END OF PAGE
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00864 M01S00027.ns22000 +++| SA2 A1+B1 00865 M01S00028.ns22000 +++| IX7 X1-X2 00866 M01S00029.ns22000 +++| NG X7,BOF1 IF NOT END OF PAGE 00867 M00S00785.qmove +++| 00868 M00S00786.qmove +++|* WRITE HEADER AND SET RECORD FLAGS. 00869 M00S00787.qmove +++| 00870 M00S00788.qmove +++| RJ BOH BUILD OUTPUT PAGE HEADER 00871 M00S00789.qmove +++| SA2 PNUM CHECK PAGE NUMBER 00872 M00S00790.qmove +++| SX6 X2-2 00873 M00S00791.qmove +++| NZ X6,BOF1 IF NOT FIRST PAGE 00874 M00S00792.qmove +++| SA3 LIST INCREMENT OUTPUT FLAG 00875 M00S00793.qmove +++| SX7 X3+B1 00876 M00S00794.qmove +++| SA7 A3 00877 M00S00795.qmove +++| SA7 RECF SET CURRENT RECORD FLAG 00878 M00S00796.qmove +++| 00879 M00S00797.qmove +++|* WRITE ONE LINE TO OUTPUT FILE. 00880 M00S00798.qmove +++| 00881 M00S00799.qmove +++| BOF1 SA3 CEQP CURRENT EQUIPMENT 00882 M00S00800.qmove +++| SB7 TEQA+X3 ADDRESS OF FAMILY/DEVICE 00883 M00S00801.qmove +++| SA1 QNUM INCREMENT QUEUE NUMBER 00884 M00S00802.qmove +++| SX6 X1+B1 00885 M00S00803.qmove +++| SA6 A1 00886 M00S00804.qmove +++| SA2 T+3 IQFT ENTRY ADDRESS
| Line S00805 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00887 M01S00805.ns22000 ---| SX2 X2-QFEWL 00888 M01S00806.ns22000 ---| SA5 BOFA DISPOSITION FIELD ENTRY 00889 M01S00807.ns22000 ---| SA3 X5+
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00890 M01S00030.ns22000 +++| SX5 X2-QFEWL SET IQFT ENTRY ADDRESS 00891 M01S00031.ns22000 +++| SA2 BOFA GET DISPOSITION FIELD ENTRY 00892 M01S00032.ns22000 +++| SA3 X2+ 00893 M00S00808.qmove +++| RJ FQO FORMAT OUTPUT LINE 00894 M00S00809.qmove +++| WRITEW O,B3,B2-2 00895 M00S00810.qmove +++| 00896 M00S00811.qmove +++|* WRITE DISPOSITION FIELD TO OUTPUT. 00897 M00S00812.qmove +++| 00898 M00S00813.qmove +++| SA3 BOFA DISPOSITION FIELD ADDRESS 00899 M00S00814.qmove +++| WRITEC O,X3 00900 M00S00815.qmove +++| SA2 LNUM INCREMENT LINE NUMBER 00901 M00S00816.qmove +++| SX7 X2+B1 00902 M00S00817.qmove +++| SA7 A2 00903 M00S00818.qmove +++| EQ BOFX RETURN 00904 M00S00819.qmove +++| 00905 M00S00820.qmove +++| BOFA CON 0 DISPOSITION FIELD ADDRESS 00906 M00S00821.qmove +++| BOFB DATA C*QFT THRESHOLD - FILE IGNORED* 00907 M00S00822.qmove +++| BOFD DATA C*READ ERROR - FILE IGNORED* 00908 M00S00823.qmove +++| BOFE DATA C*READ ERROR - FILE MOVED* 00909 M00S00824.qmove +++| BOFF DATA C*SYSTEM SECTOR ERROR - FILE IGNORED* 00910 M00S00825.qmove +++| BOFG DATA C*TRACK LIMIT - FILE IGNORED* 00911 M00S00826.qmove +++| BOFH DATA C*DUPLICATE FILE NAME - FILE IGNORED*
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00912 M02S00033.v23l617 ---| BOFI DATA C*INVALID ACCESS LEVEL - FILE IGNORED*
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00913 M01S00013.v23l617 +++| BOFI DATA C*INCORRECT ACCESS LEVEL - FILE IGNORED* 00914 M00S00827.qmove +++| BLANK DATA C* * 00915 M00S00828.qmove +++| BOH SPACE 4,20 00916 M00S00829.qmove +++|** BOH - BUILD OUTPUT FILE PAGE HEADER. 00917 M00S00830.qmove +++|* 00918 M00S00831.qmove +++|* BUILD THE HEADER LINES FOR EACH PAGE AND WRITE THESE 00919 M00S00832.qmove +++|* LINES TO OUTPUT. 00920 M00S00833.qmove +++|* 00921 M00S00834.qmove +++|* ENTRY (PNUM) = PAGE NUMBER. 00922 M00S00835.qmove +++|* (QNUM) = QUEUE NUMBER. 00923 M00S00836.qmove +++|* (DSPB) = DISPOSITION BEFORE MOVE.
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00924 M01S00034.ns22000 +++|* (PDFE+1) = SET IF PRINT DENSITY FORMAT EFFECTOR 00925 M01S00035.ns22000 +++|* NOT YET WRITTEN. 00926 M00S00837.qmove +++|* 00927 M00S00838.qmove +++|* EXIT (PNUM) = NEXT PAGE NUMBER. 00928 M00S00839.qmove +++|* (LNUM) = LINE NUMBER FOLLOWING HEADER. 00929 M00S00840.qmove +++|* 00930 M00S00841.qmove +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 00931 M00S00842.qmove +++|* A - 1, 2, 3, 6, 7. 00932 M00S00843.qmove +++|* 00933 M00S00844.qmove +++|* CALLS CDD, COD, SFN. 00934 M00S00845.qmove +++|* 00935 M00S00846.qmove +++|* MACROS RECALL, WRITEW. 00936 M00S00847.qmove +++| 00937 M00S00848.qmove +++| 00938 M00S00849.qmove +++| BOH SUBR ENTRY/EXIT 00939 M00S00850.qmove +++| 00940 M00S00851.qmove +++|* SET PAGE NUMBER IN HEADER. 00941 M00S00852.qmove +++| 00942 M00S00853.qmove +++| SA1 PNUM INCREMENT PAGE NUMBER 00943 M00S00854.qmove +++| SX6 X1+B1 00944 M00S00855.qmove +++| SA6 A1 00945 M00S00856.qmove +++| RJ CDD CONVERT NUMBER 00946 M00S00857.qmove +++| MX0 36 SET IN HEADER 00947 M00S00858.qmove +++| SA1 BOHA3 00948 M00S00859.qmove +++| BX1 X0*X1 00949 M00S00860.qmove +++| BX6 -X0*X6 00950 M00S00861.qmove +++| BX7 X1+X6 00951 M00S00862.qmove +++| SA7 A1+ 00952 M00S00863.qmove +++| RECALL O 00953 M00S00864.qmove +++| 00954 M00S00865.qmove +++|* WRITE HEADER TO OUTPUT. 00955 M00S00866.qmove +++|
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00956 M01S00036.ns22000 +++| SA1 PDFE+1 GET PRINT DENSITY FORMAT CONTROL FLAG 00957 M01S00037.ns22000 +++| BX7 X7-X7 00958 M01S00038.ns22000 +++| SA7 A1 00959 M01S00039.ns22000 +++| WRITEW O,A1-B1,X1 CONDITIONALLY WRITE FORMAT EFFECTOR 00960 M00S00867.qmove +++| WRITEW O,BOHA,BOHAL 00961 M00S00868.qmove +++| WRITEW O,BOHB,BOHBL 00962 M00S00869.qmove +++| SA1 QNUM QUEUE NUMBER 00963 M00S00870.qmove +++| SX7 X1-1 00964 M00S00871.qmove +++| SX5 B0+ SET NO EXTRA LINES 00965 M00S00872.qmove +++| NZ X7,BOH1 IF NOT FIRST QUEUE 00966 M00S00873.qmove +++| 00967 M00S00874.qmove +++|* PUT DESTINATION FAMILY AND DEVICE IN HEADER. 00968 M00S00875.qmove +++| 00969 M00S00876.qmove +++| SA2 TARA+ARDF DESTINATION FAMILY 00970 M00S00877.qmove +++| MX0 42 00971 M00S00878.qmove +++| BX1 X0*X2 00972 M00S00879.qmove +++| RJ SFN SPACE FILL NAME 00973 M00S00880.qmove +++| SA3 BOHC2 CLEAR PREVIOUS FAMILY 00974 M00S00881.qmove +++| MX0 18 00975 M00S00882.qmove +++| BX3 X0*X3 00976 M00S00883.qmove +++| LX6 -18 00977 M00S00884.qmove +++| BX6 -X0*X6 00978 M00S00885.qmove +++| BX7 X6+X3 00979 M00S00886.qmove +++| SA7 A3 00980 M00S00887.qmove +++| SA1 TARA+ARDD DESTINATION DEVICE 00981 M00S00888.qmove +++| MX0 12 00982 M00S00889.qmove +++| BX1 X0*X1 00983 M00S00890.qmove +++| LX1 12 00984 M00S00891.qmove +++| RJ COD CONVERT TO DISPLAY CODE 00985 M00S00892.qmove +++| SA2 BOHC3 CLEAR PREVIOUS DEVICE 00986 M00S00893.qmove +++| MX0 -12 00987 M00S00894.qmove +++| BX2 X0*X2 00988 M00S00895.qmove +++| BX6 -X0*X6 00989 M00S00896.qmove +++| BX7 X6+X2 00990 M00S00897.qmove +++| SA7 A2+ 00991 M00S00898.qmove +++| 00992 M00S00899.qmove +++|* PUT DISPOSITION BEFORE AND AFTER MOVE IN HEADER. 00993 M00S00900.qmove +++| 00994 M00S00901.qmove +++| SA3 TARA+AROP 00995 M00S00902.qmove +++| SA2 BOHC4A+X3 DISPOSITION AFTER MOVE 00996 M00S00903.qmove +++| SA1 DSPB 00997 M00S00904.qmove +++| SA3 BOHC1A+X1 DISPOSITION BEFORE MOVE 00998 M00S00905.qmove +++| BX6 X2 00999 M00S00906.qmove +++| SA6 BOHC4 01000 M00S00907.qmove +++| BX7 X3 01001 M00S00908.qmove +++| SA7 BOHC1 01002 M00S00909.qmove +++| WRITEW O,BOHC,BOHCL 01003 M00S00910.qmove +++| SX5 2 SET TWO EXTRA LINES 01004 M00S00911.qmove +++| 01005 M00S00912.qmove +++|* FINISH WRITING HEADER. 01006 M00S00913.qmove +++| 01007 M00S00914.qmove +++| BOH1 WRITEW O,BOHD,BOHDL 01008 M00S00915.qmove +++| SX7 X5+8 SET LINE NUMBER 01009 M00S00916.qmove +++| SA7 LNUM 01010 M00S00917.qmove +++| EQ BOHX RETURN 01011 M00S00918.qmove +++| 01012 M00S00919.qmove +++| BOHA DATA C*1 QMOVE PROCESSOR. YY/MM/DD. HH 01013 M00S00920.qmove +++|,.MM.SS. PAGE * 01014 M00S00921.qmove +++| BOHA1 EQU *-4 DATE 01015 M00S00922.qmove +++| BOHA2 EQU *-3 TIME 01016 M00S00923.qmove +++| BOHA3 EQU *-2 PAGE 01017 M00S00924.qmove +++| BOHAL EQU *-BOHA 01018 M00S00925.qmove +++| 01019 M00S00926.qmove +++| BOHB DATA H*0* CARRIAGE CONTROL 01020 M00S00927.qmove +++| DATA H/ *** MOVED QUEUE FILE/ 01021 M00S00928.qmove +++| DATA C/ DISPOSITION ***/ 01022 M00S00929.qmove +++| BOHBL EQU *-BOHB 01023 M00S00930.qmove +++| 01024 M00S00931.qmove +++| BOHC DATA H*0 XXXXXXXX FILES MOVED TO FAMILY AAAAAAA* 01025 M00S00932.qmove +++| DATA C* DEVICE NN AND LEFT YYYYYYYY * 01026 M00S00933.qmove +++| BOHC1 EQU *-8 DISPOSITION BEFORE MOVE 01027 M00S00934.qmove +++| BOHC2 EQU *-5 FAMILY 01028 M00S00935.qmove +++| BOHC3 EQU *-4 DEVICE 01029 M00S00936.qmove +++| BOHC4 EQU *-2 DISPOSITION AFTER MOVE 01030 M00S00937.qmove +++| BOHCL EQU *-BOHC 01031 M00S00938.qmove +++| 01032 M00S00939.qmove +++| BOHC1A DATA H* INACTIVE* 01033 M00S00940.qmove +++| DATA H* ACTIVE* 01034 M00S00941.qmove +++| DATA H* ACTIVE* 01035 M00S00942.qmove +++| BOHC4A DATA H*INACTIVE * 01036 M00S00943.qmove +++| DATA H*ACTIVE * 01037 M00S00944.qmove +++| 01038 M00S00945.qmove +++| BOHD DATA H*0* CARRIAGE CONTROL
| Line S00946 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01039 M01S00946.ns22000 ---| DATA C* 01040 M01S00947.ns22000 ---|,LENGTH*
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01041 M01S00040.ns22000 +++| DATA C* LENGTH 01042 M01S00041.ns22000 +++|,ACCESS* 01043 M00S00948.qmove +++| DATA H* * CARRIAGE CONTROL
| Line S00949 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01044 M01S00949.ns22000 ---| DATA C* NO. JSN MID FAMILY DN DT OT DATE 01045 M01S00950.ns22000 ---|,(PRUS) ERRORS *
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01046 M02S00042.241l630 ---| DATA C* NO. JSNS MID FAMILY DN DT DS DATE (PRUS)
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01047 M01S00003.241l630 +++| DATA C* NUM JSNS MID FAMILY DN DT DS DATE (PRUS)
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01048 M01S00043.ns22000 +++|,LEVEL DISPOSITION ERRORS* 01049 M00S00951.qmove +++| DATA C* * 01050 M00S00952.qmove +++| BOHDL EQU *-BOHD 01051 M00S00953.qmove +++| CDI SPACE 4,20 01052 M00S00954.qmove +++|** CDI - REWRITE CURRENT DEVICE IQFT. 01053 M00S00955.qmove +++|* 01054 M00S00956.qmove +++|* COPY THE REMAINDER OF THE OLD IQFT TO THE NEW CURRENT 01055 M00S00957.qmove +++|* DEVICE IQFT. IF QFT THRESHOLD HAS BEEN REACHED, THE 01056 M00S00958.qmove +++|* ENTRIES ARE VERIFIED AND THOSE MEETING SPECIFICATIONS 01057 M00S00959.qmove +++|* ARE NOTED ON THE OUTPUT FILE. 01058 M00S00960.qmove +++|* 01059 M00S00961.qmove +++|* ENTRY (X7) = DISPOSITION FIELD ADDRESS. 01060 M00S00962.qmove +++|* (IGCT) = COUNT OF FILES IGNORED ON DEVICE. 01061 M00S00963.qmove +++|* (NAQS) .LT. 0 IF THRESHOLD REACHED. 01062 M00S00964.qmove +++|* 01063 M00S00965.qmove +++|* EXIT (IGCT) = UPDATED COUNT OF IGNORED FILES. 01064 M00S00966.qmove +++|* (X5) = 0 IF NO ERROR. 01065 M00S00967.qmove +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR. 01066 M00S00968.qmove +++|*
| Line S00969 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01067 M01S00969.ns22000 ---|* USES X - 0, 1, 2, 5, 6, 7. 01068 M01S00970.ns22000 ---|* A - 1, 2, 7. 01069 M01S00971.ns22000 ---|* 01070 M01S00972.ns22000 ---|* CALLS BOF, VIE.
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01071 M01S00044.ns22000 +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 01072 M01S00045.ns22000 +++|* A - 1, 2, 3, 7. 01073 M01S00046.ns22000 +++|* B - 2. 01074 M01S00047.ns22000 +++|* 01075 M01S00048.ns22000 +++|* CALLS BOF, CAF, VIE. 01076 M00S00973.qmove +++|* 01077 M00S00974.qmove +++|* MACROS READW, WRITEW. 01078 M00S00975.qmove +++| 01079 M00S00976.qmove +++| 01080 M00S00977.qmove +++| CDI SUBR ENTRY/EXIT 01081 M00S00978.qmove +++| SA7 CDIA SAVE ADDRESS 01082 M00S00979.qmove +++| 01083 M00S00980.qmove +++|* READ REMAINDER OF OLD IQFT. 01084 M00S00981.qmove +++| 01085 M00S00982.qmove +++| CDI1 BX5 X5-X5 CLEAR ERROR STATUS 01086 M00S00983.qmove +++| READW IQ,IQFE,QFEWL 01087 M00S00984.qmove +++| NZ X5,CDIX IF MASS STORAGE ERROR 01088 M00S00985.qmove +++| NZ X1,CDIX IF EOF/EOI 01089 M00S00986.qmove +++| 01090 M00S00987.qmove +++|* BUILD OUTPUT FILE IF THRESHOLD REACHED. 01091 M00S00988.qmove +++| 01092 M00S00989.qmove +++| SA2 NAQS 01093 M00S00990.qmove +++| PL X2,CDI2 IF THRESHOLD NOT REACHED 01094 M00S00991.qmove +++| SA1 IQFE+8 01095 M00S00992.qmove +++| NG X1,CDI2 IF LENGTH ERROR
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01096 M01S00049.ns22000 +++| SA1 TARA+AROP SELECT ORIGIN TYPE ACCESS LEVEL CHECK 01097 M01S00050.ns22000 +++| SB2 X1+ 01098 M01S00051.ns22000 +++| SA1 TARA+ARUA SET ACCESS LEVEL LIMITS 01099 M01S00052.ns22000 +++| SA2 TARA+ARLA 01100 M01S00053.ns22000 +++| SA3 IQFE+INSQ GET *INSQ* WORD OF QFT ENTRY 01101 M01S00054.ns22000 +++| RJ CAF CHECK ACCESS LEVEL OF FILE 01102 M01S00055.ns22000 +++| NZ X1,CDI2 IF FILE NOT SELECTED 01103 M00S00993.qmove +++| BX6 X6-X6 01104 M00S00994.qmove +++| RJ VIE VERIFY IQFT ENTRY 01105 M00S00995.qmove +++| NZ X1,CDI2 IF NO MATCH 01106 M00S00996.qmove +++| SX7 TBUF REWIND POINTERS 01107 M00S00997.qmove +++| SA7 T+2 01108 M00S00998.qmove +++| SA7 T+3 01109 M00S00999.qmove +++| SA2 CEQP SET CURRENT EQUIPMENT IN ENTRY 01110 M00S01000.qmove +++| LX2 48 01111 M00S01001.qmove +++| MX0 12 01112 M00S01002.qmove +++| SA1 IQFE+1
| Line S01003 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01113 M01S01003.ns22000 ---| BX6 -X0*X1 CLEAR OLD EQUIPMENT NUMBER
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01114 M01S00056.ns22000 +++| BX6 -X0*X1 CLEAR OLD EST ORDINAL 01115 M00S01004.qmove +++| BX7 X6+X2 01116 M00S01005.qmove +++| SA7 A1 01117 M00S01006.qmove +++| WRITEW T,IQFE,QFEWL MOVE ENTRY TO BUFFER 01118 M00S01007.qmove +++| SA2 T+2 SET *OUT* = *IN* 01119 M00S01008.qmove +++| SX7 X2 01120 M00S01009.qmove +++| SA7 A2+B1 01121 M00S01010.qmove +++| SA1 CDIA SET DISPOSITION FIELD ADDRESS 01122 M00S01011.qmove +++| SX7 X1+ 01123 M00S01012.qmove +++| RJ BOF 01124 M00S01013.qmove +++| 01125 M00S01014.qmove +++|* BUILD NEW IQFT. 01126 M00S01015.qmove +++| 01127 M00S01016.qmove +++| CDI2 WRITEW NIQ,IQFE,QFEWL 01128 M00S01017.qmove +++| SA2 IGCT INCREMENT COUNT 01129 M00S01018.qmove +++| SX7 X2+B1 01130 M00S01019.qmove +++| SA7 A2 01131 M00S01020.qmove +++| EQ CDI1 READ NEXT ENTRY 01132 M00S01021.qmove +++| 01133 M00S01022.qmove +++| CDIA CON 0 DISPOSITION FIELD ADDRESS
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01134 M01S00012.ns21000 +++| CED SPACE 4,15 01135 M01S00013.ns21000 +++|** CED - COPY EOI SECTOR TO DESTINATION DEVICE. 01136 M01S00014.ns21000 +++|* 01137 M01S00015.ns21000 +++|* ENTRY OLD QUEUE FILE HAS BEEN RENAMED AS *QNAME*. 01138 M01S00016.ns21000 +++|* 01139 M01S00017.ns21000 +++|* EXIT EOI WRITTEN FROM OLD FILE TO NEW FILE. 01140 M01S00018.ns21000 +++|* 01141 M01S00019.ns21000 +++|* USES X - 0, 1, 2, 6. 01142 M01S00020.ns21000 +++|* A - 1, 2, 6. 01143 M01S00021.ns21000 +++|* 01144 M01S00022.ns21000 +++|* MACROS QCALL. 01145 M01S00023.ns21000 +++| 01146 M01S00024.ns21000 +++| 01147 M01S00025.ns21000 +++| CED SUBR ENTRY/EXIT 01148 M01S00026.ns21000 +++| SA1 =5LQNAME SET OLD QUEUE FILE NAME INTO FET 01149 M01S00027.ns21000 +++| SA2 E 01150 M01S00028.ns21000 +++| MX0 -18 01151 M01S00029.ns21000 +++| BX2 -X0*X2 01152 M01S00030.ns21000 +++| BX6 X1+X2 01153 M01S00031.ns21000 +++| SA6 A2 01154 M01S00032.ns21000 +++| SA1 A2+B1 REWIND FET 01155 M01S00033.ns21000 +++| SX6 X1 01156 M01S00034.ns21000 +++| SA6 A1+B1 01157 M01S00035.ns21000 +++| SA6 A6+B1 01158 M01S00036.ns21000 +++| QCALL QREF,E READ EOI SECTOR 01159 M01S00037.ns21000 +++| SA1 E SET NEW FILE INTO FET 01160 M01S00038.ns21000 +++| SA2 D 01161 M01S00039.ns21000 +++| MX0 42 01162 M01S00040.ns21000 +++| BX2 X0*X2 01163 M01S00041.ns21000 +++| BX1 -X0*X1 01164 M01S00042.ns21000 +++| BX6 X1+X2 01165 M01S00043.ns21000 +++| SA6 A1 01166 M01S00044.ns21000 +++| QCALL QWEF,E WRITE EOI SECTOR 01167 M01S00045.ns21000 +++| EQ CEDX RETURN 01168 M00S01023.qmove +++| CPF SPACE 4,20 01169 M00S01024.qmove +++|** CPF - COPY FILE TO DESTINATION DEVICE. 01170 M00S01025.qmove +++|* 01171 M00S01026.qmove +++|* COPY ONE QUEUE FILE FROM THE SOURCE DEVICE TO THE 01172 M00S01027.qmove +++|* DESTINATION DEVICE USING CONTROL WORDS. 01173 M00S01028.qmove +++|* 01174 M00S01029.qmove +++|* ENTRY (AQFA) .NE. 0 IF PREVIOUS READ ERROR. 01175 M00S01030.qmove +++|* 01176 M00S01031.qmove +++|* EXIT (X5) = 0 IF NO ERROR. 01177 M00S01032.qmove +++|* .LT. 0, SKIP CURRENT FILE. 01178 M00S01033.qmove +++|* .GT. 0, *K* DISPLAY MESSAGE ADDRESS. 01179 M00S01034.qmove +++|* 01180 M00S01035.qmove +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 01181 M00S01036.qmove +++|* A - 0, 1, 3, 7. 01182 M00S01037.qmove +++|* B - 6. 01183 M00S01038.qmove +++|*
| Line S01039 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01184 M01S01039.ns21000 ---|* CALLS CER, EPR.
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01185 M01S00046.ns21000 +++|* CALLS CED, CER, EPR. 01186 M00S01040.qmove +++|*
| Line S01041 Modification History | |
|---|---|
M01 (Removed by) | ns2349 |
Seq # *Modification Id* Act ----------------------------+ 01187 M01S01041.ns2349 ---|* MACROS READW, WRITECW, WRITEW.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2349 |
Seq # *Modification Id* Act ----------------------------+ 01188 M01S00001.ns2349 +++|* MACROS READW, UTL, WRITECW, WRITEW. 01189 M00S01042.qmove +++| 01190 M00S01043.qmove +++|
| Line S01044 Modification History | |
|---|---|
M01 (Removed by) | ns2349 |
Seq # *Modification Id* Act ----------------------------+ 01191 M01S01044.ns2349 ---| CPF5 SA0 D FLUSH BUFFER
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2349 |
Seq # *Modification Id* Act ----------------------------+ 01192 M01S00002.ns2349 +++| CPF5 UTL CLEAR CLEAR *UTL=* ENTRY POINT IN *SEPW* 01193 M01S00003.ns2349 +++| SA0 D FLUSH BUFFER 01194 M00S01045.qmove +++| WRITECW A0,R 01195 M00S01046.qmove +++| RJ CER CHECK FOR ERROR 01196 M00S01047.qmove +++| NZ X5,CPF3 IF ERROR
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01197 M01S00047.ns21000 +++| RJ CED COPY EOI TO DESTINATION DEVICE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2349 |
Seq # *Modification Id* Act ----------------------------+ 01198 M01S00004.ns2349 +++| UTL SET RESET *UTL=* ENTRY POINT 01199 M00S01048.qmove +++| 01200 M00S01049.qmove +++| CPF SUBR ENTRY/EXIT 01201 M00S01050.qmove +++| SA1 AQFA 01202 M00S01051.qmove +++| NZ X1,CPF1 IF PREVIOUS READ ERROR 01203 M00S01052.qmove +++| SX7 BLANK SAVE NO ERROR DISPOSITION FIELD ADDRESS 01204 M00S01053.qmove +++| SA7 CPFA 01205 M00S01054.qmove +++| 01206 M00S01055.qmove +++|* COPY FILE. 01207 M00S01056.qmove +++|
| Line S01057 Modification History | |
|---|---|
M01 (Removed by) | ns2349 |
Seq # *Modification Id* Act ----------------------------+ 01208 M01S01057.ns2349 ---| CPF1 SA0 Q READ CONTROL WORD
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2349 |
Seq # *Modification Id* Act ----------------------------+ 01209 M01S00005.ns2349 +++| CPF1 UTL SET SET *UTL=* ENTRY POINT 01210 M01S00006.ns2349 +++| SA0 Q READ CONTROL WORD 01211 M00S01058.qmove +++| READW A0,WBUF,B1 01212 M00S01059.qmove +++| NZ X1,CPF5 IF EOI 01213 M00S01060.qmove +++| SA1 WBUF CHECK FOR PARITY ERROR 01214 M00S01061.qmove +++| SX5 TCEPA SET PARITY ERROR CODE 01215 M00S01062.qmove +++| NG X1,CPF4 IF ERROR 01216 M00S01063.qmove +++| RJ CER CHECK FOR OTHER ERROR 01217 M00S01064.qmove +++| ZR X5,CPF2 IF NO ERROR 01218 M00S01065.qmove +++| SX6 X5-TCEPA 01219 M00S01066.qmove +++| NZ X6,CPF3 IF ERROR OTHER THAN PARITY ERROR 01220 M00S01067.qmove +++| CPF2 SA1 WBUF FIND BLOCK SIZE 01221 M00S01068.qmove +++| SX2 5 01222 M00S01069.qmove +++| SX3 X1+4 ROUND UP 01223 M00S01070.qmove +++| IX0 X3/X2 01224 M00S01071.qmove +++| READW Q,WBUF+1,X0+B1 READ REST OF BLOCK
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2349 |
Seq # *Modification Id* Act ----------------------------+ 01225 M01S00007.ns2349 +++| UTL CLEAR CLEAR *UTL=* ENTRY POINT 01226 M00S01072.qmove +++| SA0 D 01227 M00S01073.qmove +++| WRITEW A0,WBUF,X0+2 01228 M00S01074.qmove +++| RJ CER CHECK FOR ERROR 01229 M00S01075.qmove +++| ZR X5,CPF1 IF NO ERROR 01230 M00S01076.qmove +++| 01231 M00S01077.qmove +++|* PROCESS ERROR. 01232 M00S01078.qmove +++| 01233 M00S01079.qmove +++| CPF3 SX7 X5-11B 01234 M00S01080.qmove +++| NZ X7,CPF4 IF NOT SPECIAL MASS STORAGE ERROR 01235 M00S01081.qmove +++| SA3 A0+6 GET ERROR CODE 01236 M00S01082.qmove +++| MX0 -9 01237 M00S01083.qmove +++| BX5 -X0*X3 01238 M00S01084.qmove +++| SX5 X5+11B BIAS ERROR CODE 01239 M00S01085.qmove +++| CPF4 SB6 TCEP SET ERROR TABLE ADDRESS 01240 M00S01086.qmove +++| RJ EPR PROCESS ERROR 01241 M00S01087.qmove +++| NZ X5,CPFX IF ERROR 01242 M00S01088.qmove +++| SA7 CPFA SAVE DISPOSITION FIELD ADDRESS
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2349 |
Seq # *Modification Id* Act ----------------------------+ 01243 M01S00008.ns2349 +++| UTL SET RESET *UTL=* ENTRY POINT 01244 M00S01089.qmove +++| JP B6 CONTINUE PROCESSING 01245 M00S01090.qmove +++| 01246 M00S01091.qmove +++| CPFA CON 0 DISPOSITION FIELD ADDRESS 01247 M00S01092.qmove +++| CUF SPACE 4,20 01248 M00S01093.qmove +++|** CUF - CLEAN UP CURRENT FILE AFTER ERROR. 01249 M00S01094.qmove +++|* 01250 M00S01095.qmove +++|* ASSURE THAT THE CURRENT FILE AND IQFT ENTRY, IF 01251 M00S01096.qmove +++|* NECESSARY, ARE REPLACED ON THE SOURCE DEVICE AFTER 01252 M00S01097.qmove +++|* AN ERROR HAS OCCURED. 01253 M00S01098.qmove +++|* 01254 M00S01099.qmove +++|* ENTRY (X5) = ERROR MESSAGE ADDRESS. 01255 M00S01100.qmove +++|* = 0 IF CURRENTLY PROCESSING AN ERROR. 01256 M00S01101.qmove +++|* (A0) = FET ADDRESS. 01257 M00S01102.qmove +++|* (AQFB) = 0 IF ERROR ATTACHING QUEUED FILE. 01258 M00S01103.qmove +++|* (DSPB) = 0, MOVE INACTIVE QUEUES. 01259 M00S01104.qmove +++|* = 1, MOVE ACTIVE QUEUES. 01260 M00S01105.qmove +++|* = 2, MOVE ALL QUEUES. 01261 M00S01106.qmove +++|* 01262 M00S01107.qmove +++|* EXIT (X4) = ERROR MESSAGE ADDRESS. 01263 M00S01108.qmove +++|* (X5) = 0 IF NO NEW ERROR. 01264 M00S01109.qmove +++|* = MESSAGE ADDRESS IF ERROR RETURNING FILE. 01265 M00S01110.qmove +++|* 01266 M00S01111.qmove +++|* USES X - 1, 4, 5, 6, 7. 01267 M00S01112.qmove +++|* A - 1, 4, 5, 6, 7. 01268 M00S01113.qmove +++|* 01269 M00S01114.qmove +++|* CALLS RTS. 01270 M00S01115.qmove +++|* 01271 M00S01116.qmove +++|* MACROS MOVE, WRITEW. 01272 M00S01117.qmove +++| 01273 M00S01118.qmove +++| 01274 M00S01119.qmove +++| CUF SUBR ENTRY/EXIT 01275 M00S01120.qmove +++| SX6 X5+ SAVE ERROR ADDRESS 01276 M00S01121.qmove +++| SA6 CUFA 01277 M00S01122.qmove +++| SA1 AQFB 01278 M00S01123.qmove +++| NZ X1,CUF1 IF NOT ATTACHING ERROR 01279 M00S01124.qmove +++| SA5 T+3 *OUT* 01280 M00S01125.qmove +++| MOVE QFEWL,X5,IQFE 01281 M00S01126.qmove +++| SX7 X5+QFEWL UPDATE *OUT* POINTER 01282 M00S01127.qmove +++| SA7 A5 01283 M00S01128.qmove +++| BX5 X5-X5 CLEAR ERROR 01284 M00S01129.qmove +++| SA1 DSPB 01285 M00S01130.qmove +++| NZ X1,CUF2 IF MOVING ACTIVE 01286 M00S01131.qmove +++| WRITEW NIQ,IQFE,QFEWL WRITE ENTRY BACK TO IQFT 01287 M00S01132.qmove +++| SA1 IGCT INCREMENT IGNORED COUNT 01288 M00S01133.qmove +++| SX6 X1+B1 01289 M00S01134.qmove +++| SA6 A1 01290 M00S01135.qmove +++| EQ CUF2 RESET ERROR ADDRESS 01291 M00S01136.qmove +++| 01292 M00S01137.qmove +++| CUF1 RJ RTS RETURN QUEUE FILE TO SOURCE DEVICE 01293 M00S01138.qmove +++| CUF2 SA4 CUFA RESET ERROR ADDRESS 01294 M00S01139.qmove +++| EQ CUFX RETURN 01295 M00S01140.qmove +++| 01296 M00S01141.qmove +++| CUFA CON 0 ERROR ADDRESS 01297 M00S01142.qmove +++| DEQ SPACE 4,30 01298 M00S01143.qmove +++|** DEQ - DEQUEUE ACTIVE FILES. 01299 M00S01144.qmove +++|* 01300 M00S01145.qmove +++|* BUILD A NEW IQFT FROM A BUFFER OF PSEUDO IQFT ENTRIES 01301 M00S01146.qmove +++|* AND CALL ROUTINES TO PHYSICALLY MOVE THE FILES FROM 01302 M00S01147.qmove +++|* ONE DEVICE TO ANOTHER. 01303 M00S01148.qmove +++|* 01304 M00S01149.qmove +++|* ENTRY (DEQB) .NE. 0 IF NEW IQFT ALREADY CREATED ON DEVICE. 01305 M00S01150.qmove +++|* (ATTA) .NE. 0 IF IQFT ATTACHED. 01306 M00S01151.qmove +++|* (PAQA) .NE. 0 IF MORE QFT-S TO PROCESS. 01307 M00S01152.qmove +++|* 01308 M00S01153.qmove +++|* EXIT (X5) = 0 IF NO ERROR. 01309 M00S01154.qmove +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR. 01310 M00S01155.qmove +++|* (ATTA) = 0 IF ALL QFT ENTRIES PROCESSED. 01311 M00S01156.qmove +++|* (DEQB) .NE. 0 IF NEW IQFT CREATED. 01312 M00S01157.qmove +++|* 01313 M00S01158.qmove +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 01314 M00S01159.qmove +++|* A - 0, 1, 2, 3, 6, 7. 01315 M00S01160.qmove +++|* B - 6. 01316 M00S01161.qmove +++|*
| Line S01162 Modification History | |
|---|---|
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 01317 M01S01162.ns2099 ---|* CALLS AQF, ATT, BOF, CER, CPF, EPR, 01318 M01S01163.ns2099 ---|* IIM, NIF, RNI, RTD, SFD, SPF.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 01319 M01S00005.ns2099 +++|* CALLS AQF, ATT, BOF, CER, CPF, EPR, IIM, 01320 M01S00006.ns2099 +++|* RNI, RTD, SFD, SPF. 01321 M00S01164.qmove +++|*
| Line S01165 Modification History | |
|---|---|
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 01322 M01S01165.ns2099 ---|* MACROS QCALL, SKIPEI, WRITE, WRITEF.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 01323 M01S00007.ns2099 +++|* MACROS MESSAGE, SKIPEI, WRITE. 01324 M00S01166.qmove +++| 01325 M00S01167.qmove +++| 01326 M00S01168.qmove +++|* CHECK FOR END OF QFT. 01327 M00S01169.qmove +++| 01328 M00S01170.qmove +++| DEQ4 SX5 B0+ CLEAR ERROR FLAG 01329 M00S01171.qmove +++| SA3 PAQA 01330 M00S01172.qmove +++| NZ X3,DEQX IF MORE QFT-S TO PROCESS 01331 M00S01173.qmove +++| DEQ5 RJ RNI RETURN NEW IQFT 01332 M00S01174.qmove +++| SA6 ATTA 01333 M00S01175.qmove +++| 01334 M00S01176.qmove +++| DEQ SUBR ENTRY/EXIT 01335 M00S01177.qmove +++| SA1 ATTA 01336 M00S01178.qmove +++| NZ X1,DEQ2 IF FILE ALREADY ATTACHED 01337 M00S01179.qmove +++| SX6 DTQF PRESET DETACH FUNCTION 01338 M00S01180.qmove +++| SA6 DEQA 01339 M00S01181.qmove +++| 01340 M00S01182.qmove +++|* CHECK FOR IQFT ON DEVICE TO MOVE TO. 01341 M00S01183.qmove +++| 01342 M00S01184.qmove +++| SA2 TARA+ARDD GET EQUIPMENT TO MOVE TO 01343 M00S01185.qmove +++| MX0 -12 01344 M00S01186.qmove +++| BX5 -X0*X2 01345 M00S01187.qmove +++| SA1 TEQA+X5 CHECK FOR IQFT 01346 M00S01188.qmove +++| LX1 59-0 01347 M00S01189.qmove +++| NG X1,DEQ1 IF AN IQFT FILE ON THIS DEVICE 01348 M00S01190.qmove +++| SA2 DEQB 01349 M00S01191.qmove +++| NZ X2,DEQ1 IF FILE PREVIOUSLY FORCED ON DEVICE
| Line S01192 Modification History | |
|---|---|
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 01350 M01S01192.ns2099 ---| 01351 M01S01193.ns2099 ---|* FORCE NEW IQFT ON DEVICE. 01352 M01S01194.ns2099 ---| 01353 M01S01195.ns2099 ---| SX7 PGQF SET PURGE FUNCTION 01354 M01S01196.ns2099 ---| SA7 DEQA 01355 M01S01197.ns2099 ---| SA0 MIQ CREATE NEW IQFT FILE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2043 |
M02 (Removed by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 01356 M02S00001.ns2099 ---| SA1 A0+B1 CLEAR ERROR PROCESSING 01357 M02S00002.ns2099 ---| MX0 1 01358 M02S00003.ns2099 ---| LX0 44-59 01359 M02S00004.ns2099 ---| BX6 -X0*X1 01360 M02S00005.ns2099 ---| SA6 A1
| Line S01198 Modification History | |
|---|---|
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 01361 M01S01198.ns2099 ---| RJ NIF
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2043 |
M02 (Removed by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 01362 M02S00006.ns2099 ---| SA1 A0+B1 RESET ERROR PROCESSING 01363 M02S00007.ns2099 ---| MX0 1 01364 M02S00008.ns2099 ---| LX0 44-59 01365 M02S00009.ns2099 ---| BX6 X0+X1 01366 M02S00010.ns2099 ---| SA6 A1
| Line S01199 Modification History | |
|---|---|
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 01367 M01S01199.ns2099 ---| WRITEF MIQ,R 01368 M01S01200.ns2099 ---| QCALL STQF,MIQ SET NEW IQFT 01369 M01S01201.ns2099 ---| SX6 B1+ SET FILE FORCED ON DEVICE FLAG 01370 M01S01202.ns2099 ---| SA6 DEQB
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 01371 M01S00008.ns2099 +++| SX5 MES11 * IQFT NOT FOUND.* 01372 M01S00009.ns2099 +++| MESSAGE X5 01373 M01S00010.ns2099 +++| EQ DEQ5 EXIT WITH ERROR 01374 M00S01203.qmove +++| 01375 M00S01204.qmove +++|* ATTACH IQFT FILE. 01376 M00S01205.qmove +++|
| Line S01206 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01377 M01S01206.ns22000 ---| DEQ1 SA2 TARA+ARDD EQUIPMENT NUMBER
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01378 M01S00057.ns22000 +++| DEQ1 SA2 TARA+ARDD EST ORDINAL 01379 M00S01207.qmove +++| MX0 -12 01380 M00S01208.qmove +++| BX2 -X0*X2 01381 M00S01209.qmove +++| SX3 MIQ ATTACH IQFT 01382 M00S01210.qmove +++| SA0 X3+ 01383 M00S01211.qmove +++| RJ ATT
| Line S01212 Modification History | |
|---|---|
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 01384 M01S01212.ns2099 ---| SKIPEI X3,R POSITION FILE 01385 M00S01213.qmove +++| WRITE MIQ,* PRESET WRITE FUNCTION 01386 M00S01214.qmove +++| ZR X5,DEQ2 IF NO ERROR 01387 M00S01215.qmove +++| SA2 TARA+ARDD ISSUE IQFT ERROR MESSAGE 01388 M00S01216.qmove +++| MX0 -12 01389 M00S01217.qmove +++| BX2 -X0*X2 01390 M00S01218.qmove +++| RJ IIM 01391 M00S01219.qmove +++| RJ CER CLEAR ERROR 01392 M00S01220.qmove +++| SB6 TQEP SET ERROR TABLE ADDRESS 01393 M00S01221.qmove +++| RJ EPR PROCESS ERROR 01394 M00S01222.qmove +++| EQ DEQX RETURN 01395 M00S01223.qmove +++|
| Line S01224 Modification History | |
|---|---|
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 01396 M01S01224.ns2099 ---| DEQ2 SA1 T SET *QFM* PARAMETERS IN FET
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2099 |
Seq # *Modification Id* Act ----------------------------+ 01397 M01S00011.ns2099 +++| DEQ2 SKIPEI MIQ,R 01398 M01S00012.ns2099 +++| WRITE MIQ,* 01399 M01S00013.ns2099 +++| SA1 T 01400 M00S01225.qmove +++| RJ SPF 01401 M00S01226.qmove +++| 01402 M00S01227.qmove +++|* ATTACH QUEUE FILES THAT MEET ALL SPECIFICATIONS. 01403 M00S01228.qmove +++| 01404 M00S01229.qmove +++| DEQ3 SX5 AQFF SET ATTACH FUNCTION 01405 M00S01230.qmove +++| RJ AQF ATTACH FILE 01406 M00S01231.qmove +++| NG X5,DEQ3 IF SKIP FILE 01407 M00S01232.qmove +++| NZ X5,DEQ5 IF ERROR 01408 M00S01233.qmove +++| NZ X6,DEQ4 IF END OF BUFFER 01409 M00S01234.qmove +++| 01410 M00S01235.qmove +++|* MOVE IQFT ENTRY AND QUEUE FILE TO DESTINATION DEVICE. 01411 M00S01236.qmove +++| 01412 M00S01237.qmove +++| RJ SFD SET FILE ON DESTINATION DEVICE 01413 M00S01238.qmove +++| NG X5,DEQ3 IF SKIP FILE 01414 M00S01239.qmove +++| NZ X5,DEQ5 IF ERROR 01415 M00S01240.qmove +++| RJ CPF COPY FILE TO DESTINATION DEVICE 01416 M00S01241.qmove +++| NG X5,DEQ3 IF SKIP FILE 01417 M00S01242.qmove +++| NZ X5,DEQ5 IF ERROR 01418 M00S01243.qmove +++| RJ RTD RETURN FILES 01419 M00S01244.qmove +++| NG X5,DEQ3 IF SKIP FILE 01420 M00S01245.qmove +++| NZ X5,DEQ5 IF ERROR 01421 M00S01246.qmove +++| RJ BOF BUILD OUTPUT FILE 01422 M00S01247.qmove +++| EQ DEQ3 PROCESS NEXT FILE 01423 M00S01248.qmove +++| 01424 M00S01249.qmove +++| DEQA CON 0 DETACH/PURGE IQFT FUNCTION 01425 M00S01250.qmove +++| DEQB CON 0 IQFT FORCED ON DEVICE FLAG 01426 M00S01251.qmove +++| EPR SPACE 4,30 01427 M00S01252.qmove +++|** EPR - ERROR CODE PROCESSOR. 01428 M00S01253.qmove +++|* 01429 M00S01254.qmove +++|* USE THE GIVEN ERROR CODE TO FIND THE CORRECT ERROR 01430 M00S01255.qmove +++|* MESSAGE OR PROCESSOR IN THE ERROR TABLES. IF A PROCESSOR 01431 M00S01256.qmove +++|* IS NEEDED, IT IS EXECUTED, THEN CONTROL IS SENT BACK TO 01432 M00S01257.qmove +++|* THE CALLING SUBROUTINE. 01433 M00S01258.qmove +++|* 01434 M00S01259.qmove +++|* ENTRY (X5) = ERROR CODE. 01435 M00S01260.qmove +++|* (B6) = ERROR TABLE ADDRESS. 01436 M00S01261.qmove +++|* (A0) = FET ADDRESS. 01437 M00S01262.qmove +++|* (DSPB) = 0, MOVE INACTIVE QUEUES. 01438 M00S01263.qmove +++|* = 1, MOVE ACTIVE QUEUES. 01439 M00S01264.qmove +++|* = 2, MOVE ALL QUEUES. 01440 M00S01265.qmove +++|* (PAQA) = NEXT ENTRY IN QFT BUFFER IF *DSPB* .NE. 0. 01441 M00S01266.qmove +++|* (ERRC) .NE. 0 IF ALREADY PROCESSING AN ERROR EXIT. 01442 M00S01267.qmove +++|* 01443 M00S01268.qmove +++|* EXIT (X5) = 0 IF TO CONTINUE PROCESSING. 01444 M00S01269.qmove +++|* .LT. 0 IF SKIP FILE. 01445 M00S01270.qmove +++|* .GT. 0 IF *K* DISPLAY MESSAGE ADDRESS. 01446 M00S01271.qmove +++|* (X7) = DISPOSITION FIELD ADDRESS. 01447 M00S01272.qmove +++|* (B6) = PROCESSING ADDRESS IF *CIO* ERROR. 01448 M00S01273.qmove +++|* (IGCT) INCREMENTED IF MOVING INACTIVE. 01449 M00S01274.qmove +++|* TO *ERR3* IF PROCESSING AN ERROR EXIT OR SECOND ERROR 01450 M00S01275.qmove +++|* FOUND WHILE PROCESSING FIRST ERROR. 01451 M00S01276.qmove +++|* 01452 M00S01277.qmove +++|* USES X - 1, 2, 3, 5, 6, 7. 01453 M00S01278.qmove +++|* A - 1, 2, 5, 6, 7. 01454 M00S01279.qmove +++|* B - 6, 7. 01455 M00S01280.qmove +++|* 01456 M00S01281.qmove +++|* CALLS BOF, CDI, CER, CUF, PCI, RTS, SFD, SQB. 01457 M00S01282.qmove +++|* 01458 M00S01283.qmove +++|* MACROS MESSAGE, QCALL, READCW, REWIND, WRITECW. 01459 M00S01284.qmove +++| 01460 M00S01285.qmove +++| 01461 M00S01286.qmove +++| EPR SUBR ENTRY/EXIT 01462 M00S01287.qmove +++| SA1 ERRC 01463 M00S01288.qmove +++| NZ X1,ERR3 IF PROCESSING ERROR EXIT 01464 M00S01289.qmove +++| 01465 M00S01290.qmove +++|* CHECK FOR UNKNOWN ERROR CODE. 01466 M00S01291.qmove +++| 01467 M00S01292.qmove +++| SA2 B6-B1 NUMBER OF TABLE ENTRIES 01468 M00S01293.qmove +++| IX6 X5-X2 01469 M00S01294.qmove +++| PL X6,EPR1 IF NOT IN TABLE 01470 M00S01295.qmove +++| 01471 M00S01296.qmove +++|* GET ERROR MESSAGE ADDRESS FROM TABLE. 01472 M00S01297.qmove +++| 01473 M00S01298.qmove +++| SA5 B6+X5 01474 M00S01299.qmove +++| ZR X5,EPR1 IF DEFAULT MESSAGE TO BE USED 01475 M00S01300.qmove +++| NG X5,EPR2 IF PROCESSOR ADDRESS 01476 M00S01301.qmove +++| SB6 A5+ 01477 M00S01302.qmove +++| EPR1 SA5 B6 SET ERROR MESSAGE ADDRESS 01478 M00S01303.qmove +++| MESSAGE X5 01479 M00S01304.qmove +++| SX2 IQ CHECK FOR ATTACH IQFT FILE ERRORS 01480 M00S01305.qmove +++| SX3 MIQ 01481 M00S01306.qmove +++| SX1 A0+ 01482 M00S01307.qmove +++| IX6 X2-X1 01483 M00S01308.qmove +++| IX7 X3-X1 01484 M00S01309.qmove +++| ZR X6,EPRX IF OLD IQFT ERROR 01485 M00S01310.qmove +++| ZR X7,EPRX IF NEW IQFT ERROR 01486 M00S01311.qmove +++| RJ CUF CLEAN UP FILE 01487 M00S01312.qmove +++| NZ X5,ERR3 IF ERROR 01488 M00S01313.qmove +++| SX5 X4+ RESET ORIGINAL ERROR 01489 M00S01314.qmove +++| EQ EPRX RETURN 01490 M00S01315.qmove +++| 01491 M00S01316.qmove +++| EPR2 SB7 X5 SET PROCESSOR ADDRESS 01492 M00S01317.qmove +++| JP B7 JUMP TO PROCESSOR 01493 M00S01318.qmove +++| 01494 M00S01319.qmove +++| EPR3 NZ X5,ERR3 IF ERROR 01495 M00S01320.qmove +++| RJ BOF BUILD OUTPUT FILE 01496 M00S01321.qmove +++| SX5 -B1 SET SKIP FILE 01497 M00S01322.qmove +++| EQ EPRX RETURN
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01498 M01S00058.ns22000 +++| EAL SPACE 4,10
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01499 M02S00059.v23l617 ---|** EAL - PROCESS INVALID ACCESS LEVEL.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01500 M01S00014.v23l617 +++|** EAL - PROCESS INCORRECT ACCESS LEVEL.
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01501 M01S00060.ns22000 +++| 01502 M01S00061.ns22000 +++| 01503 M01S00062.ns22000 +++| EAL BX5 X5-X5 SET NO ERROR MESSAGE 01504 M01S00063.ns22000 +++| RJ CUF CLEAN UP FILE
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01505 M02S00064.v23l617 ---| SX7 BOFI *INVALID ACCESS LEVEL - FILE IGNORED*
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01506 M01S00015.v23l617 +++| SX7 BOFI *INCORRECT ACCESS LEVEL - FILE IGNORED*
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01507 M01S00065.ns22000 +++| EQ EPR3 COMPLETE PROCESSING 01508 M00S01323.qmove +++| EDF SPACE 4 01509 M00S01324.qmove +++|** EDF - PROCESS DUPLICATE FILE NAME. 01510 M00S01325.qmove +++| 01511 M00S01326.qmove +++| 01512 M00S01327.qmove +++| EDF BX5 X5-X5 SET NO ERROR MESSAGE 01513 M00S01328.qmove +++| RJ CUF CLEAN UP FILE 01514 M00S01329.qmove +++| SX7 BOFH *DUPLICATE FILE NAME - FILE IGNORED* 01515 M00S01330.qmove +++| EQ EPR3 COMPLETE PROCESSING 01516 M00S01331.qmove +++| EPE SPACE 4 01517 M00S01332.qmove +++|** EPE - PROCESS WRITE PARITY ERRORS. 01518 M00S01333.qmove +++| 01519 M00S01334.qmove +++| 01520 M00S01335.qmove +++| EPE SX2 Q CHECK IF READ ERROR 01521 M00S01336.qmove +++| SX3 A0 01522 M00S01337.qmove +++| IX6 X2-X3 01523 M00S01338.qmove +++| ZR X6,ERM IF READ MASS STORAGE ERROR 01524 M00S01339.qmove +++| QCALL IQFF,D INTERLOCK QUEUED FILE 01525 M00S01340.qmove +++| RJ CER CHECK FOR ERROR 01526 M00S01341.qmove +++| NZ X5,ERR3 IF ERROR 01527 M00S01342.qmove +++| SA1 EFCT INCREMENT INTERLOCKED FILE COUNT 01528 M00S01343.qmove +++| SX6 X1+B1 01529 M00S01344.qmove +++| SA6 A1 01530 M00S01345.qmove +++| REWIND Q,R 01531 M00S01346.qmove +++| REWIND D,R 01532 M00S01347.qmove +++| RJ SFD SET FILE ON DEVICE 01533 M00S01348.qmove +++| NZ X5,ERR3 IF ERROR OR SKIP FILE 01534 M00S01349.qmove +++| WRITECW D,* PRESET WRITE FUNCTION 01535 M00S01350.qmove +++| READCW Q BEGIN READ 01536 M00S01351.qmove +++| SB6 CPF1 SET PROCESSING ADDRESS 01537 M00S01352.qmove +++| SA2 CPFA RESET CURRENT DISPOSITION FIELD 01538 M00S01353.qmove +++| SX7 X2 01539 M00S01354.qmove +++| EQ EPRX RETURN 01540 M00S01355.qmove +++| ERM SPACE 4 01541 M00S01356.qmove +++|** ERM - PROCESS READ MASS STORAGE ERRORS. 01542 M00S01357.qmove +++| 01543 M00S01358.qmove +++| 01544 M00S01359.qmove +++| ERM SA2 TARA+ARFC CHECK ERRORED FILE PROCESSING STATUS 01545 M00S01360.qmove +++| LX2 59-57 01546 M00S01361.qmove +++| NG X2,ERM1 IF PROCESSING SELECTED 01547 M00S01362.qmove +++| 01548 M00S01363.qmove +++|* PROCESS READ ERRORS WITH ERRORED FILE PROCESSING DESELECTED. 01549 M00S01364.qmove +++| 01550 M00S01365.qmove +++| RJ RTS RETURN FILE TO SOURCE DEVICE 01551 M00S01366.qmove +++| SX7 BOFD *READ ERROR - FILE IGNORED* 01552 M00S01367.qmove +++| EQ EPR3 COMPLETE PROCESSING 01553 M00S01368.qmove +++| 01554 M00S01369.qmove +++|* PROCESS READ ERRORS WITH ERRORED FILE PROCESSING SELECTED. 01555 M00S01370.qmove +++| 01556 M00S01371.qmove +++| ERM1 SX5 B0+ CLEAR ERROR 01557 M00S01372.qmove +++| SB6 CPF2 SET *CPF* PROCESSING ADDRESS 01558 M00S01373.qmove +++| SX7 BOFE *READ ERROR - FILE MOVED* 01559 M00S01374.qmove +++| EQ EPRX RETURN 01560 M00S01375.qmove +++| ESS SPACE 4
| Line S01376 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01561 M01S01376.v23l617 ---|** ESS - PROCESS INVALID SYSTEM SECTOR ERRORS.
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01562 M01S00016.v23l617 +++|** ESS - PROCESS INCORRECT SYSTEM SECTOR ERRORS. 01563 M00S01377.qmove +++| 01564 M00S01378.qmove +++| 01565 M00S01379.qmove +++| ESS BX5 X5-X5 SET NO ERROR MESSAGE 01566 M00S01380.qmove +++| RJ CUF CLEAN UP FILE 01567 M00S01381.qmove +++| SX7 BOFF *SYSTEM SECTOR ERROR - FILE IGNORED* 01568 M00S01382.qmove +++| EQ EPR3 COMPLETE PROCESSING 01569 M00S01383.qmove +++| ETL SPACE 4 01570 M00S01384.qmove +++|** ETL - PROCESS TRACK LIMIT. 01571 M00S01385.qmove +++| 01572 M00S01386.qmove +++| 01573 M00S01387.qmove +++| ETL RJ RTS RETURN QUEUE FILE TO SOURCE DEVICE 01574 M00S01388.qmove +++| NZ X5,ERR3 IF ERROR 01575 M00S01389.qmove +++| SX7 BOFG *TRACK LIMIT - FILE IGNORED* 01576 M00S01390.qmove +++| RJ BOF BUILD OUTPUT FILE 01577 M00S01391.qmove +++| SA2 DSPB 01578 M00S01392.qmove +++| ZR X2,ETL3 IF MOVING INACTIVE 01579 M00S01393.qmove +++| 01580 M00S01394.qmove +++|* EMPTY BUFFER CONTENTS. 01581 M00S01395.qmove +++| 01582 M00S01396.qmove +++| ETL1 SA1 T+2 *IN* 01583 M00S01397.qmove +++| SA5 A1+B1 *OUT* 01584 M00S01398.qmove +++| IX7 X1-X5 01585 M00S01399.qmove +++| ZR X7,ETL2 IF END OF BUFFER 01586 M00S01400.qmove +++| SX6 X5+QFEWL ADVANCE *OUT* 01587 M00S01401.qmove +++| SA6 A5 01588 M00S01402.qmove +++| BX7 X7-X7 ZERO FAMILY/MACHINE ID WORD OF IQFT ENTRY 01589 M00S01403.qmove +++| SA7 X5+9 01590 M00S01404.qmove +++| SX7 BOFG *TRACK LIMIT - FILE IGNORED* 01591 M00S01405.qmove +++| RJ BOF BUILD OUTPUT FILE 01592 M00S01406.qmove +++| EQ ETL1 PROCESS NEXT ENTRY 01593 M00S01407.qmove +++| 01594 M00S01408.qmove +++| ETL2 SA1 PAQA SET NEXT ENTRY ADDRESS 01595 M00S01409.qmove +++| SB6 X1+ 01596 M00S01410.qmove +++| ZR X1,ETL4 IF ALL QFT ENTRIES PROCESSED 01597 M00S01411.qmove +++| RJ SQB SEARCH QFT BUFFER 01598 M00S01412.qmove +++| SA6 PAQA SAVE STATUS 01599 M00S01413.qmove +++| EQ ETL1 PROCESS NEXT ENTRY 01600 M00S01414.qmove +++| 01601 M00S01415.qmove +++|* REWRITE IQFT. 01602 M00S01416.qmove +++| 01603 M00S01417.qmove +++| ETL3 SX6 -1 SET THRESHOLD FLAG 01604 M00S01418.qmove +++| SA6 NAQS 01605 M00S01419.qmove +++| SX7 BOFG *TRACK LIMIT - FILE IGNORED* 01606 M00S01420.qmove +++| RJ CDI COPY OLD TO NEW IQFT 01607 M00S01421.qmove +++| NZ X5,ERR3 IF ERROR 01608 M00S01422.qmove +++| SX6 B0+ CLEAR THRESHOLD AND FLAG 01609 M00S01423.qmove +++| SA6 NAQS 01610 M00S01424.qmove +++| SA6 PIQA 01611 M00S01425.qmove +++| 01612 M00S01426.qmove +++|* SET FOR RETURN. 01613 M00S01427.qmove +++| 01614 M00S01428.qmove +++| ETL4 SX5 MC07 *TRACK LIMIT* 01615 M00S01429.qmove +++| MESSAGE X5 01616 M00S01430.qmove +++| EQ EPRX RETURN 01617 M00S01431.qmove +++| ERP$ SPACE 4,20 01618 M00S01432.qmove +++|** ERP$ - *READW*/*WRITEW* ERROR PROCESSOR. 01619 M00S01433.qmove +++|* 01620 M00S01434.qmove +++|* PROCESS ERRORS FOUND DURING A *READW* OR *WRITEW* CALL. 01621 M00S01435.qmove +++|* 01622 M00S01436.qmove +++|* ENTRY FROM *COMCCIO*. 01623 M00S01437.qmove +++|* (X2) = FET ADDRESS. 01624 M00S01438.qmove +++|* (X7) = ERROR CODE FROM FET. 01625 M00S01439.qmove +++|* 01626 M00S01440.qmove +++|* EXIT (X5) .NE. 0 IF TRACK LIMIT. 01627 M00S01441.qmove +++|* (X5) .EQ. *MES5* IF IQFT READ ERROR. 01628 M00S01442.qmove +++|* (X2) = FET ADDRESS IF READ PARITY ERROR. 01629 M00S01443.qmove +++|* TO *CPFX* IF TRACK LIMIT. 01630 M00S01444.qmove +++|* TO *CPF1* IF WRITE PARITY ERROR. 01631 M00S01445.qmove +++|* TO *ERPX$* IF READ PARITY ERROR. 01632 M00S01446.qmove +++|* TO *RDW=* IF IQFT READ ERROR. 01633 M00S01447.qmove +++|* 01634 M00S01448.qmove +++|* USES X - 1, 2, 3, 5, 6. 01635 M00S01449.qmove +++|* A - 1, 2, 6. 01636 M00S01450.qmove +++|* B - 6. 01637 M00S01451.qmove +++|* 01638 M00S01452.qmove +++|* CALLS CER, EPR, IIM, PCI. 01639 M00S01453.qmove +++|* 01640 M00S01454.qmove +++|* MACROS MESSAGE. 01641 M00S01455.qmove +++| 01642 M00S01456.qmove +++| 01643 M00S01457.qmove +++| ERP$ SX6 X2-Q 01644 M00S01458.qmove +++| ZR X6,ERP1 IF READ PARITY ERROR 01645 M00S01459.qmove +++| SX6 X2-IQ 01646 M00S01460.qmove +++| ZR X6,ERP2 IF IQFT READ ERROR 01647 M00S01461.qmove +++| 01648 M00S01462.qmove +++|* PROCESS WRITE ERRORS. 01649 M00S01463.qmove +++| 01650 M00S01464.qmove +++| SB6 TCEP SET ERROR TABLE ADDRESS 01651 M00S01465.qmove +++| RJ CER CHECK FOR ERROR 01652 M00S01466.qmove +++| RJ EPR PROCESS ERROR 01653 M00S01467.qmove +++| NZ X5,CPFX IF TRACK LIMIT 01654 M00S01468.qmove +++| EQ CPF1 JUMP TO PROCESS WRITE PARITY ERROR 01655 M00S01469.qmove +++| 01656 M00S01470.qmove +++|* CLEAR READ PARITY STATUS IN FET. 01657 M00S01471.qmove +++| 01658 M00S01472.qmove +++| ERP1 SA1 X2 CLEAR ERROR STATUS 01659 M00S01473.qmove +++| SX3 17BS10 01660 M00S01474.qmove +++| BX6 -X3*X1
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/qmove.txt · Last modified: (external edit)