cdc:nos2.source:opl.opl871:deck:restart
Deck RESTART
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.restart +++| IDENT RESTART,FETS 00002 M00S00002.restart +++| ABS 00003 M00S00003.restart +++| SST 00004 M00S00004.restart +++| SYSCOM B1 00005 M00S00005.restart +++| ENTRY RESTART
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | resta7 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00001.resta7 +++| ENTRY LIB= 00007 M00S00006.restart +++| ENTRY DMP= 00008 M00S00007.restart +++| ENTRY RFL= 00009 M00S00008.restart +++| ENTRY SSJ= 00010 M00S00009.restart +++| TITLE RESTART - RESTART CHECKPOINTED JOB. 00011 M00S00010.restart +++|*COMMENT RESTART - RESTART CHECKPOINTED JOB.
| Line S00011 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00011.281l803 ---| COMMENT COPYRIGHT CONTROL DATE CORP. 1973.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00013 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00014 M00S00012.restart +++| SPACE 4 00015 M00S00013.restart +++|*** RESTART - RESTARTS A JOB FROM INFORMATION ON A 00016 M00S00014.restart +++|* CHECKPOINT FILE. 00017 M00S00015.restart +++|* V.A. WALSH. 72/06/01. 00018 M00S00016.restart +++|* K.R. COMBS. 73/06/01. 00019 M00S00017.restart +++|* M.S. CARTER. 76/06/01. 00020 M00S00018.restart +++| SPACE 4 00021 M00S00019.restart +++|*** CONTROL CARD FORMAT - 00022 M00S00020.restart +++|* 00023 M00S00021.restart +++|* RESTART(FILE,N,RI,NA,FC) 00024 M00S00022.restart +++|* *FILE* = FILENAME OF CHECKPOINT FILE. 00025 M00S00023.restart +++|* *N* = NUMBER OF CHECKPOINT TO USE. IF N=*, THE 00026 M00S00024.restart +++|* LAST CHECKPOINT ON THE FILE WILL BE USED. 00027 M00S00025.restart +++|* IF NOT PRESENT, SYSTEM ASSUMES 1. 00028 M00S00026.restart +++|* *RI* = REPLACE INPUT OPTION. IF PRESENT, THE INPUT 00029 M00S00027.restart +++|* FILE OF THE CHECKPOINT JOB WONT BE RESTORED. 00030 M00S00028.restart +++|* *NA* = NO ABORT OPTION. IF PRESENT, RESTART WILL 00031 M00S00029.restart +++|* NOT ABORT IF ALL FILES NEEDED ARE NOT PRESENT. 00032 M00S00030.restart +++|* IF A PARITY ERROR IS ENCOUNTERED, CHECKPOINT 00033 M00S00031.restart +++|* N-1 WILL BE RESTARTED IF AVAILABLE. 00034 M00S00032.restart +++|* *FC* = FILE CHECK OPTION. IF SET, RESTART WILL 00035 M00S00033.restart +++|* CHECK IF FILE IS PRESENT AND WILL NOT 00036 M00S00034.restart +++|* REPLACE THE FILE IF IT IS THERE ALREADY. 00037 M00S00035.restart +++| SPACE 4 00038 M00S00036.restart +++|*** DAYFILE MESSAGES 00039 M00S00037.restart +++|* 00040 M00S00038.restart +++|* * CHECKPOINT NOT FOUND.* = SPECIFIED CHECKPOINT NOT FOUND. 00041 M00S00039.restart +++|* 00042 M00S00040.restart +++|* * CHECKPOINT FILE ERROR.* = ILLEGAL FORMAT ON FILE. 00043 M00S00041.restart +++|* 00044 M00S00042.restart +++|* * ERROR IN ARGUMENTS.* = RESTART PARAMETERS INCORRECT. 00045 M00S00043.restart +++|* 00046 M00S00044.restart +++|* * FILENAM NOT FOUND.* = FILE COULD NOT BE FOUND OR RETRIEVED. 00047 M00S00045.restart +++|* 00048 M00S00046.restart +++|* * FILE ERROR FILENAM.* = ILLEGAL ADDRESS ON FILE *FILENAM*. 00049 M00S00047.restart +++|*
| Line S00048 Modification History | |
|---|---|
M01 (Removed by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 00050 M01S00048.resta2 ---|* * JOBNAME RESTARTED FROM YY/MM/DD HH.MM.SS* = JOB WAS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 00051 M01S00001.resta2 +++|* * JSNN RESTARTED FROM YY/MM/DD. HH.MM.SS.* = JOB WAS 00052 M00S00049.restart +++|* RESTARTED FROM CHECKPOINT OF GIVEN DATE. 00053 M00S00050.restart +++|* 00054 M00S00051.restart +++|* * PARITY ERROR - RESTARTED FROM NN.* = JOB WAS RESTARTED 00055 M00S00052.restart +++|* CHECKPOINT NN WHEN ERROR AS ENCOUNTERED. 00056 M00S00053.restart +++| SPACE 4 00057 M00S00054.restart +++|*** CHECKPOINT FILE FORMAT. 00058 M00S00055.restart +++|* 00059 M00S00056.restart +++|*T 60/10002B HEADER
Figure
00060 M00S00057.restart +++|*T 6/0,18/DATE,18/TIME,6/CK,12/CKP NO.
Figure
| Line S00058 Modification History | |
|---|---|
M01 (Removed by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 00061 M01S00058.resta2 ---|*T 42/JOBNAME,18/0
Figure
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 00062 M01S00002.resta2 +++|*T 24/JSN,36/0
Figure
00063 M00S00059.restart +++|* 00064 M00S00060.restart +++|*T 60/20NNNB FILE TABLE
Figure
00065 M00S00061.restart +++|*
| Line S00062 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00066 M01S00062.ns21000 ---|*T 42/FILENAM,3/M,2/I,1/W,6/FILE TYPE,6/FILE STATUS
Figure
00067 M01S00063.ns21000 ---|*T 24/FL,24/RB,3/COPY TYPE,5/,3/RS,1/L
Figure
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00068 M01S00001.ns21000 +++|*T 42/FILENAM,3/,2/I,1/W,6/FILE TYPE,6/FILE STATUS
Figure
00069 M01S00002.ns21000 +++|*T 24/FL,24/RB,3/COPY TYPE,1/,4/M,3/RS,1/L
Figure
00070 M00S00064.restart +++|* . 00071 M00S00065.restart +++|* . 00072 M00S00066.restart +++|* . 00073 M00S00067.restart +++|*T 60/0 END OF TABLE
Figure
00074 M00S00068.restart +++|* 00075 M00S00069.restart +++|*T 60/P30NNNB FILE COPIES
Figure
00076 M00S00070.restart +++|* 00077 M00S00071.restart +++|* FILE 1 00078 M00S00072.restart +++|* 00079 M00S00073.restart +++|*T 60/P31NNNB EOR FLAG
Figure
00080 M00S00074.restart +++|* 00081 M00S00075.restart +++|*T 60/P33NNNB EOI FLAG
Figure
00082 M00S00076.restart +++|* 00083 M00S00077.restart +++|* FILE 2 00084 M00S00078.restart +++|* 00085 M00S00079.restart +++|*T 60/P30NNNB DATA
Figure
00086 M00S00080.restart +++|* 00087 M00S00081.restart +++|*T 60/P32000B EOF FLAG
Figure
00088 M00S00082.restart +++|* 00089 M00S00083.restart +++|*T 60/P33000B EOI FLAG
Figure
00090 M00S00084.restart +++|* . 00091 M00S00085.restart +++|* . 00092 M00S00086.restart +++|* . 00093 M00S00087.restart +++|* FILE N 00094 M00S00088.restart +++|* 00095 M00S00089.restart +++|*T 60/P30NNNB DATA
Figure
00096 M00S00090.restart +++|* 00097 M00S00091.restart +++|*T 60/P33000B EOI FLAG
Figure
00098 M00S00092.restart +++|* 00099 M00S00093.restart +++|*T 60/40NNNB DUMP FILE
Figure
00100 M00S00094.restart +++|* 00101 M00S00095.restart +++|* CONTENTS OF DM* 00102 M00S00096.restart +++|* 00103 M00S00097.restart +++|*T 60/50000B END OF CHECKPOINT FILE
Figure
00104 M00S00098.restart +++|* 00105 M00S00099.restart +++|* EOR 00106 M00S00100.restart +++|* 00107 M00S00101.restart +++|* CHECKPOINT CONTROL WORD 00108 M00S00102.restart +++|*T 6/0,18/DATE,18/TIME,6/CK,12/CKP NO.
Figure
00109 M00S00103.restart +++|* 00110 M00S00104.restart +++|* EOR 00111 M00S00105.restart +++|* 00112 M00S00106.restart +++|* 00113 M00S00107.restart +++|* 00114 M00S00108.restart +++|* P - PARITY BIT IF CODED FILE. 00115 M00S00109.restart +++|* CK - CHECKPOINT MODE 00116 M00S00110.restart +++|* NNN - NUMBER OF WORDS IN NEXT BLOCK. 00117 M00S00111.restart +++|* M - MODE OF USE ALLOWED. 00118 M00S00112.restart +++|* I - TYPE OF FILE. 00119 M00S00113.restart +++|* W - SET IF WRITE LOCKOUT. 00120 M00S00114.restart +++|* FL - FILE LENGTH (0 IF NOT MS) 00121 M00S00115.restart +++|* RB - RANDOM INDEX (IF MS). 00122 M00S00116.restart +++|* BLOCK COUNT (IF TAPE). 00123 M00S00117.restart +++|* RS - READ STATUS. 00124 M00S00118.restart +++|* L - SET IF LAST OPERATION WAS WRITE. 00125 M00S00119.restart +++| SPACE 4 00126 M00S00120.restart +++|* ASSEMBLY CONSTANTS 00127 M00S00121.restart +++| 00128 M00S00122.restart +++| BUFL EQU 1001B 00129 M00S00123.restart +++| IBUFL EQU 2001B
| Line S00124 Modification History | |
|---|---|
M01 (Removed by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00130 M01S00124.ns2039 ---| OBUFL EQU 2001B
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00131 M01S00001.ns2039 +++| OBUFL EQU 4011B 00132 M00S00125.restart +++| SBUFL EQU 401B 00133 M00S00126.restart +++| TBUFL EQU 1003B LENGTH OF TAPE BUFFER
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | resta7 |
Seq # *Modification Id* Act ----------------------------+ 00134 M01S00002.resta7 +++| LIB= EQU 0 READ EXECUTE-ONLY FILES 00135 M00S00127.restart +++| SPACE 4 00136 M00S00128.restart +++|** READX - REDEFINE MACRO TO READ CONTROL WORDS. 00137 M00S00129.restart +++|* 00138 M00S00130.restart +++|* FORMAT READX F,S,N 00139 M00S00131.restart +++|* 00140 M00S00132.restart +++|* WHERE F = FET ADDRESS. 00141 M00S00133.restart +++|* S = BUFFER ADDRESS. 00142 M00S00134.restart +++|* N = LENGTH OF BUFFER IN WORDS. 00143 M00S00135.restart +++| 00144 M00S00136.restart +++| 00145 M00S00137.restart +++| READX MACRO F,S,N 00146 M00S00138.restart +++| R= B6,S 00147 M00S00139.restart +++| R= B7,N 00148 M00S00140.restart +++| R= X2,F 00149 M00S00141.restart +++| RJ RDA 00150 M00S00142.restart +++| ENDM 00151 M00S00143.restart +++| 00152 M00S00144.restart +++| 00153 M00S00145.restart +++|*CALL COMCMAC
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00154 M01S00001.ns2081 +++|*CALL COMCCMD
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00155 M01S00002.ns2039 +++|*CALL COMSLFM 00156 M01S00003.ns2039 +++| QUAL MTX 00157 M01S00004.ns2039 +++|*CALL COMSMTX 00158 M01S00005.ns2039 +++| QUAL * 00159 M00S00146.restart +++|*CALL COMSPFM
| Line S00147 Modification History | |
|---|---|
M01 (Removed by) | ns2685 |
Seq # *Modification Id* Act ----------------------------+ 00160 M01S00147.ns2685 ---|*CALL COMSSFM 00161 M00S00148.restart +++|*CALL COMSSSJ 00162 M00S00149.restart +++| TITLE STORAGE ASSIGNMENT. 00163 M00S00150.restart +++| ORG 101B 00164 M00S00151.restart +++| FETS BSS 0 00165 M00S00152.restart +++| I BSS 0 00166 M00S00153.restart +++| CCCCCCX FILEB IBUF,IBUFL,EPR 00167 M00S00154.restart +++| BSS 2 00168 M00S00155.restart +++| O BSS 0 00169 M00S00156.restart +++| CCCCCCY FILEB OBUF,OBUFL,EPR,(FET=12) 00170 M00S00157.restart +++| P BSS 0 00171 M00S00158.restart +++| CCCCCCZ RFILEB 2,1,(FET=12),EPR
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00172 M01S00002.ns2081 +++| SPACE 4,10 00173 M01S00003.ns2081 +++|** LISTS OF CCL FILE NAMES AND NOS SCRATCH FILE 00174 M01S00004.ns2081 +++|* NAMES USED TO TEMPORARILY SAVE CCL FILES WHEN *RI* 00175 M01S00005.ns2081 +++|* IS NOT SPECIFIED. EACH ENTRY IS IN THE FORM - 00176 M01S00006.ns2081 +++|* 00177 M01S00007.ns2081 +++|*T 42/FILENAM,17/0,1/P.
Figure
00178 M01S00008.ns2081 +++|* 00179 M01S00009.ns2081 +++|* WHERE P = 1 IF THE FILE IS TO BE PROCESSED. 00180 M01S00010.ns2081 +++| 00181 M01S00011.ns2081 +++| 00182 M01S00012.ns2081 +++| CCLF VFD 42/0LZZZZZC0,17/0,1/1 00183 M01S00013.ns2081 +++| VFD 42/0LZZZZZC1,17/0,1/1 00184 M01S00014.ns2081 +++| VFD 42/0LZZZZZC2,17/0,1/1 00185 M01S00015.ns2081 +++| CCLFL EQU *-CCLF 00186 M01S00016.ns2081 +++| CON 0 END OF CCL FILES 00187 M01S00017.ns2081 +++| SCRF VFD 42/0LZZZZZG0,17/0,1/0 00188 M01S00018.ns2081 +++| VFD 42/0LZZZZZG1,17/0,1/0 00189 M01S00019.ns2081 +++| VFD 42/0LZZZZZG2,17/0,1/0 00190 M01S00020.ns2081 +++| CON 0 END OF SCRATCH FILES 00191 M00S00159.restart +++| SPACE 4 00192 M00S00160.restart +++|* PARAMETER FLAG LOCATIONS. 00193 M00S00161.restart +++| 00194 M00S00162.restart +++| CKNO CON 1 CHECKPOINT NUMBER 00195 M00S00163.restart +++| RIFL BSSZ 1 REPLACE INPUT FLAG 00196 M00S00164.restart +++| NAFL BSSZ 1 NO ABORT FLAG 00197 M00S00165.restart +++| FCFL BSSZ 1 FILE CHECK FLAG 00198 M00S00166.restart +++| DTYP BSSZ 1 DATA TYPE 00199 M00S00167.restart +++| HDRB BSSZ 1 HEADER STORAGE WORD 00200 M00S00168.restart +++| FIID BSS 1 DATA FILE ID 00201 M00S00169.restart +++| 00202 M00S00170.restart +++| 00203 M00S00171.restart +++|* SPECIAL ENTRY POINTS. 00204 M00S00172.restart +++| 00205 M00S00173.restart +++| DMP= EQU 450000B CREATE EMPTY DUMP FILE 00206 M00S00174.restart +++| SSJ= EQU SSJD SSJ= DROP FILES OPTION 00207 M00S00175.restart +++| TITLE MAIN PROGRAM. 00208 M00S00176.restart +++|** RESTART - MAIN LOOP. 00209 M00S00177.restart +++| 00210 M00S00178.restart +++| 00211 M00S00179.restart +++| RESTART RJ PRS PRESET PROGRAM
| Line S00180 Modification History | |
|---|---|
M01 (Removed by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00212 M01S00180.ns2081 ---|
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00213 M01S00021.ns2081 +++| SB4 CCLF FWA OF CCL FILE LIST 00214 M01S00022.ns2081 +++| SB5 SCRF FWA OF SCRATCH FILE LIST 00215 M01S00023.ns2081 +++| SB3 B0 SELECT RENAME FUNCTION 00216 M01S00024.ns2081 +++| RJ RCC RENAME/RETURN CCL FILES 00217 M00S00181.restart +++| RJ PRT PROCESS FILE TABLE 00218 M00S00182.restart +++| 00219 M00S00183.restart +++| SA1 =C/DM*/ SET UP DM* FILE 00220 M00S00184.restart +++| SX3 3 00221 M00S00185.restart +++| BX6 X1+X3 00222 M00S00186.restart +++| SA6 O 00223 M00S00187.restart +++| REWIND O,R 00224 M00S00188.restart +++| READO I 00225 M00S00189.restart +++| MX0 -9 00226 M00S00190.restart +++| BX0 -X0*X6 GET BLOCK LENGTH 00227 M00S00191.restart +++| MX3 -3 00228 M00S00192.restart +++| AX6 9 00229 M00S00193.restart +++| BX6 -X3*X6 GET BLOCK TYPE FLAG 00230 M00S00194.restart +++| SA0 X6 SAVE BLOCK TYPE FLAG 00231 M00S00195.restart +++| READW I,BUF,X0
| Line S00196 Modification History | |
|---|---|
M01 (Removed by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00232 M01S00196.ns2081 ---| SA1 BUF+2
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00233 M01S00025.ns2081 +++| SX5 BUF+2 00234 M01S00026.ns2081 +++| RJ IWB INSURE WORD IN BUFFER 00235 M01S00027.ns2081 +++| SA1 X5+ 00236 M00S00197.restart +++| MX6 30B 00237 M00S00198.restart +++| BX6 X6*X1 00238 M00S00199.restart +++| AX6 6 00239 M00S00200.restart +++| SA6 MEMR 00240 M00S00201.restart +++| AX6 30 00241 M00S00202.restart +++| SX6 X6-PRS
| Line S00203 Modification History | |
|---|---|
M01 (Removed by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00242 M01S00203.ns2081 ---| PL X6,RST0 IF FIELD LENGTH BIG ENOUGH FOR RESTART
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00243 M01S00028.ns2081 +++| PL X6,RST1 IF FIELD LENGTH BIG ENOUGH FOR RESTART 00244 M00S00204.restart +++| SX6 PRS 00245 M00S00205.restart +++| LX6 30 00246 M00S00206.restart +++| SA6 A6
| Line S00207 Modification History | |
|---|---|
M01 (Removed by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00247 M01S00207.ns2081 ---| RST0 SA1 BUF+ECSW GET ECS FL/1000B
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00248 M01S00029.ns2081 +++| RST1 SX5 X5-2+ECSW 00249 M01S00030.ns2081 +++| RJ IWB INSURE WORD IN BUFFER
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00250 M01S00001.252l678 +++| SA2 UESC
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
M02 (Removed by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00251 M02S00031.ns2184 ---| SA1 X5 GET ECS FL/1000B
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00252 M01S00001.ns2184 +++| SA1 X5 GET ECS FL/*UEBS*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00253 M01S00002.252l678 +++| SB2 X2+39 00254 M00S00208.restart +++| MX6 -12 00255 M00S00209.restart +++| BX6 -X6*X1
| Line S00210 Modification History | |
|---|---|
M01 (Removed by) | ns2184 |
Seq # *Modification Id* Act ----------------------------+ 00256 M01S00210.ns2184 ---| LX6 39 FORM ECS FL FOR MEMORY MACRO
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2184 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00257 M02S00002.252l678 ---| LX6 39+UESF FORM ECS FL FOR THE MEMORY MACRO
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00258 M01S00003.252l678 +++| LX6 B2 FORM EM FL FOR MEMORY MACRO 00259 M00S00211.restart +++| SA6 MEME STORE ECS FIELD LENGTH
| Line S00212 Modification History | |
|---|---|
M01 (Removed by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00260 M01S00212.ns2081 ---| SX6 4 SET UP RETURN JUMP 00261 M01S00213.ns2081 ---| LX6 54 00262 M01S00214.ns2081 ---| SX1 RST1
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00263 M01S00032.ns2081 +++| SA1 RIFL CHECK FOR *RI* 00264 M01S00033.ns2081 +++| ZR X1,RST2 IF OLD CONTROL STATEMENTS TO BE USED 00265 M01S00034.ns2081 +++| GETJCI RSTA GET CCL PARAMETERS 00266 M01S00035.ns2081 +++| SX5 X5-ECSW+JCDW 00267 M01S00036.ns2081 +++| RJ IWB INSURE WORD IN BUFFER 00268 M01S00037.ns2081 +++| SA1 RSTA 00269 M01S00038.ns2081 +++| BX6 X1 00270 M01S00039.ns2081 +++| SA6 X5 00271 M01S00040.ns2081 +++| SX5 X5-JCDW+JCRW 00272 M01S00041.ns2081 +++| RJ IWB INSURE WORD IN BUFFER 00273 M01S00042.ns2081 +++| SA1 RSTA+1 00274 M01S00043.ns2081 +++| BX6 X1 00275 M01S00044.ns2081 +++| SA6 X5 00276 M01S00045.ns2081 +++| RST2 SX6 4 SET UP RETURN JUMP 00277 M01S00046.ns2081 +++| SX1 RST3 00278 M01S00047.ns2081 +++| LX6 54 00279 M00S00215.restart +++| LX1 30 00280 M00S00216.restart +++| BX6 X1+X6 00281 M00S00217.restart +++| SA6 CPY 00282 M00S00218.restart +++| SX6 4 SET START OF (DM*) FILE BLOCK TYPE FLAG 00283 M00S00219.restart +++| SA6 DTYP 00284 M00S00220.restart +++| EQ CPY0.5
| Line S00221 Modification History | |
|---|---|
M01 (Removed by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00285 M01S00221.ns2081 ---| RST1 REWIND O,R
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00286 M01S00048.ns2081 +++| 00287 M01S00049.ns2081 +++| RST3 REWIND O,R 00288 M00S00222.restart +++| 00289 M00S00223.restart +++|* POSITION FILE IN CASE OF SUBSEQUENT CHECKPOINT 00290 M00S00224.restart +++| 00291 M00S00225.restart +++| READO I GET TO EOR 00292 M00S00226.restart +++| SA1 HDRB GET HEADER WORD 00293 M00S00227.restart +++| BX6 X1 00294 M00S00228.restart +++| MX0 1 00295 M00S00229.restart +++| BX6 -X0*X6 CLEAR TOP BIT 00296 M00S00230.restart +++| BX6 X0+X6 SET TOP BIT TO SHOW LAST CHKPT 00297 M00S00231.restart +++| WRITEO I 00298 M00S00232.restart +++| WRITER I,R 00299 M00S00233.restart +++| BKSP I,R POSITION FOR SUBSEQUENT CHECKPOINT 00300 M00S00234.restart +++| 00301 M00S00235.restart +++| MESSAGE MSGB,,R
| Line S00236 Modification History | |
|---|---|
M01 (Removed by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 00302 M01S00236.resta2 ---| MESSAGE MSGC,,R 00303 M00S00237.restart +++| 00304 M00S00238.restart +++| MEMORY CM,MEMR,R GET MEMORY NEEDED FOR RESTARTED JOB 00305 M00S00239.restart +++| MEMORY ECS,MEME,R GET ECS NEEDED FOR RESTARTED JOB 00306 M00S00240.restart +++| RECALL O
| Line S00241 Modification History | |
|---|---|
M01 (Removed by) | ns2685 |
Seq # *Modification Id* Act ----------------------------+ 00307 M01S00241.ns2685 ---| SYSTEM SFM,R,O,CDRF*100B CHANGE (DM*) FILE TO TYPE *ROFT*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2685 |
Seq # *Modification Id* Act ----------------------------+ 00308 M01S00001.ns2685 +++| LOCK O,R LOCK DM* FILE TO INDICATE RESTART COMPLETE
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00309 M01S00050.ns2081 +++| 00310 M01S00051.ns2081 +++|* RETURN SCRATCH FILES IF NEEDED. 00311 M01S00052.ns2081 +++| 00312 M01S00053.ns2081 +++| SB3 B1+ SELECT RETURN FUNCTION 00313 M01S00054.ns2081 +++| SB4 SCRF 00314 M01S00055.ns2081 +++| RJ RCC RENAME/RETURN CCL FILES 00315 M00S00242.restart +++| ENDRUN 00316 M00S00243.restart +++|
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00317 M01S00056.ns2081 +++| RSTA BSS 2 *GETJCI* PARAMETER RETURN BLOCK 00318 M00S00244.restart +++| MEMR BSS 1 NEEDED FL FROM DM* FILE 00319 M00S00245.restart +++| MEME BSS 1 NEEDED ECS FROM EXCHANGE PACKAGE
| Line S00246 Modification History | |
|---|---|
M01 (Removed by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 00320 M01S00246.resta2 ---| MSGB DATA C* RESTARTED FROM* 00321 M01S00247.resta2 ---| MSGC DATA C* *
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 00322 M01S00003.resta2 +++| MSGB DATA C* ++++ RESTARTED FROM(((((((((())))))))))* 00323 M00S00248.restart +++| TITLE SUBROUTINES 00324 M00S00249.restart +++| ERP$ SPACE 4 00325 M00S00250.restart +++|** ERP$ - ERROR PROCESSING ROUTINE. 00326 M00S00251.restart +++|* 00327 M00S00252.restart +++|* ENTRY TAPE ERROR. 00328 M00S00253.restart +++|* 00329 M00S00254.restart +++|* EXIT ABORT IF FIRST CHECKPOINT 00330 M00S00255.restart +++|* RESTART RESTART AT PREVIOUS CHECKPOINT. 00331 M00S00256.restart +++|* 00332 M00S00257.restart +++|* CALLS NONE. 00333 M00S00258.restart +++|* 00334 M00S00259.restart +++|* USES A - 2,7. 00335 M00S00260.restart +++|* B - NONE. 00336 M00S00261.restart +++|* X - 2,3,7. 00337 M00S00262.restart +++| 00338 M00S00263.restart +++| 00339 M00S00264.restart +++| ERP$ SA2 NAFL 00340 M00S00265.restart +++| ZR X2,CPY5 IF ABORT SET 00341 M00S00266.restart +++| SA2 CKNO 00342 M00S00267.restart +++| SX7 X2-1 00343 M00S00268.restart +++| ZR X2,CPY5 ABORT 00344 M00S00269.restart +++| SA7 CKNO 00345 M00S00270.restart +++| SA7 MSGE+3 00346 M00S00271.restart +++| SKIPB I,3 POSITION TO N-1 00347 M00S00272.restart +++| SA2 I 00348 M00S00273.restart +++| MX3 -3 00349 M00S00274.restart +++| AX2 3 00350 M00S00275.restart +++| SX2 X2-5 00351 M00S00276.restart +++| BX3 -X3*X2 00352 M00S00277.restart +++| ZR X2,CPY5 ABORT 00353 M00S00278.restart +++| MESSAGE MSGE,,R 00354 M00S00279.restart +++| EQ PRS4 START AGAIN 00355 M00S00280.restart +++| 00356 M00S00281.restart +++| MSGE DATA C* PARITY ERROR - RESTARTED FROM NN.*
| Line S00282 Modification History | |
|---|---|
M01 (Removed by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00357 M01S00282.ns2081 ---| CPY SPACE 4
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00358 M01S00057.ns2081 +++| CPY SPACE 4,15 00359 M00S00283.restart +++|** CPY - COPY FILE. 00360 M00S00284.restart +++|* 00361 M00S00285.restart +++|* ENTRY FILE NAME SET IN FET I. 00362 M00S00286.restart +++|* (X6) = DATA TYPE. 00363 M00S00287.restart +++|* 00364 M00S00288.restart +++|* EXIT FILE WRITTEN FROM FET O. 00365 M00S00289.restart +++|*
| Line S00290 Modification History | |
|---|---|
M01 (Removed by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00366 M01S00290.ns2081 ---|* CALLS NONE. 00367 M01S00291.ns2081 ---|* 00368 M00S00292.restart +++|* USES A - 0, 1, 2, 3, 4, 6, 7. 00369 M00S00293.restart +++|* X - 0, 1, 2, 3, 4, 6, 7. 00370 M00S00294.restart +++|* B - ALL.
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00371 M01S00058.ns2081 +++|* 00372 M01S00059.ns2081 +++|* CALLS RCC. 00373 M01S00060.ns2081 +++|* 00374 M01S00061.ns2081 +++|* MACROS ABORT, MESSAGE, RECALL, READO, READW, WRITEF, WRITEF, 00375 M01S00062.ns2081 +++|* WRITEW. 00376 M00S00295.restart +++| 00377 M00S00296.restart +++| 00378 M00S00297.restart +++| CPY SUBR ENTRY/EXIT 00379 M00S00298.restart +++| SA6 DTYP SAVE DATA TYPE 00380 M00S00299.restart +++| CPY0 READO I 00381 M00S00300.restart +++| MX0 -9 00382 M00S00301.restart +++| BX0 -X0*X6 GET BLOCK LENGTH 00383 M00S00302.restart +++| SA1 DTYP CHECK FOR VALID BLOCK TYPE 00384 M00S00303.restart +++| MX3 -3 00385 M00S00304.restart +++| AX6 9 00386 M00S00305.restart +++| BX4 -X3*X6 GET BLOCK TYPE FLAG 00387 M00S00306.restart +++| AX6 3 00388 M00S00307.restart +++| SA0 X4 00389 M00S00308.restart +++| BX4 -X3*X6 DATA TYPE 00390 M00S00309.restart +++| BX2 X3*X6 PARITY BIT 00391 M00S00310.restart +++| BX4 X4-X1 00392 M00S00311.restart +++| NZ X4,CPY4 IF ILLEGAL DATA TYPE 00393 M00S00312.restart +++| ZR X2,CPY0.1 IF NO CHANGE (BINARY) 00394 M00S00313.restart +++| RECALL O 00395 M00S00314.restart +++| SA1 O 00396 M00S00315.restart +++| SX2 B1 00397 M00S00316.restart +++| BX6 X3*X1 00398 M00S00317.restart +++| BX6 X6+X2 00399 M00S00318.restart +++| SA6 A1 00400 M00S00319.restart +++| CPY0.1 ZR X0,CPY1 IF NO DATA 00401 M00S00320.restart +++| READW I,BUF,X0 00402 M00S00321.restart +++| CPY0.5 WRITEW O,BUF,X0 00403 M00S00322.restart +++| SX6 A0 CHECK BLOCK TYPE FLAG 00404 M00S00323.restart +++| ZR X6,CPY0 IF NOT EOR 00405 M00S00324.restart +++| CPY1 SB2 A0-B1 CHECK BLOCK TYPE FLAG 00406 M00S00325.restart +++| NZ B2,CPY2 IF NOT EOR 00407 M00S00326.restart +++| WRITER O,R 00408 M00S00327.restart +++| EQ CPY0 LOOP TIL END OF RECORD 00409 M00S00328.restart +++| 00410 M00S00329.restart +++|* IF END OF FILE. 00411 M00S00330.restart +++| 00412 M00S00331.restart +++| CPY2 SX6 A0-2 CHECK BLOCK TYPE FLAG 00413 M00S00332.restart +++| ZR X6,CPY3 IF EOF
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | resta4 |
Seq # *Modification Id* Act ----------------------------+ 00414 M01S00001.resta4 +++| WRITE O,R 00415 M00S00333.restart +++| SA1 O+2 00416 M00S00334.restart +++| SA2 A1+B1 00417 M00S00335.restart +++| IX2 X1-X2 00418 M00S00336.restart +++| SX2 X2 00419 M00S00337.restart +++| ZR X2,CPYX IF NO DATA 00420 M00S00338.restart +++| CPY3 WRITEF O,R 00421 M00S00339.restart +++| SX6 A0-3 CHECK BLOCK TYPE FLAG 00422 M00S00340.restart +++| ZR X6,CPYX IF EOI 00423 M00S00341.restart +++| EQ CPY0 LOOP TIL END OF INFORMATION 00424 M00S00342.restart +++| 00425 M00S00343.restart +++| CPY4 MESSAGE (=C* CHECKPOINT FILE ERROR.*)
| Line S00344 Modification History | |
|---|---|
M01 (Removed by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00426 M01S00344.ns2081 ---| CPY5 ABORT 00427 M01S00345.ns2081 ---| PSF SPACE 4,15
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00428 M01S00063.ns2081 +++| CPY5 SB4 SCRF FWA OF SCRATCH FILE LIST 00429 M01S00064.ns2081 +++| SB5 CCLF FWA OF CCL FILE LIST 00430 M01S00065.ns2081 +++| SB3 B0 SELECT RENAME FUNCTION 00431 M01S00066.ns2081 +++| RJ RCC RENAME/RETURN CCL FILES 00432 M01S00067.ns2081 +++| ABORT 00433 M01S00068.ns2081 +++| IWB SPACE 4,15 00434 M01S00069.ns2081 +++|** IWB - INSURE WORD IN BUFFER. 00435 M01S00070.ns2081 +++|* 00436 M01S00071.ns2081 +++|* IWB INSURES THAT THE DESIRED WORD IS ACTUALLY IN THE 00437 M01S00072.ns2081 +++|* BUFFER. IF IT IS NOT IN THE PRESENT BLOCK, THEN THE 00438 M01S00073.ns2081 +++|* PRESENT BLOCK IS COPIED AND THE NEXT BLOCK IS OBTAINED. 00439 M01S00074.ns2081 +++|* 00440 M01S00075.ns2081 +++|* ENTRY (X0) = NUMBER OF WORDS IN BLOCK TO BE WRITTEN. 00441 M01S00076.ns2081 +++|* (X5) = BUF + DESIRED WORD.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | resta6 |
Seq # *Modification Id* Act ----------------------------+ 00442 M01S00001.resta6 +++|* (A0) = BLOCK TYPE.
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00443 M01S00077.ns2081 +++|* 00444 M01S00078.ns2081 +++|* EXIT (X0) = NUMBER OF WORDS IN NEW BLOCK. 00445 M01S00079.ns2081 +++|* (X5) = LOCATION OF DESIRED WORD.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | resta6 |
Seq # *Modification Id* Act ----------------------------+ 00446 M01S00002.resta6 +++|* (A0) = NEW BLOCK TYPE IF DATA TRANSFERED.
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00447 M01S00080.ns2081 +++|* 00448 M01S00081.ns2081 +++|* USES X - 0, 2, 3, 4, 5, 6. 00449 M01S00082.ns2081 +++|* 00450 M01S00083.ns2081 +++|* MACROS READO, READW, WRITEW. 00451 M01S00084.ns2081 +++| 00452 M01S00085.ns2081 +++| 00453 M01S00086.ns2081 +++| IWB SUBR ENTRY/EXIT 00454 M01S00087.ns2081 +++| SX2 X5-BUF+1 00455 M01S00088.ns2081 +++| IX2 X0-X2 00456 M01S00089.ns2081 +++| PL X2,IWBX IF WORD IN BUFFER 00457 M01S00090.ns2081 +++| IX5 X5-X0 00458 M01S00091.ns2081 +++| WRITEW O,BUF,X0 00459 M01S00092.ns2081 +++| READO I 00460 M01S00093.ns2081 +++| MX0 -9 GET BLOCK LENGTH 00461 M01S00094.ns2081 +++| BX0 -X0*X6
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
M02 (Removed by) | resta6 |
Seq # *Modification Id* Act ----------------------------+ 00462 M02S00095.resta6 ---| MX3 -3 CHECK FOR VALID BLOCK TYPE 00463 M02S00096.resta6 ---| AX6 12 00464 M02S00097.resta6 ---| BX4 -X3*X6
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | resta6 |
Seq # *Modification Id* Act ----------------------------+ 00465 M01S00003.resta6 +++| MX3 -3 GET BLOCK TYPE 00466 M01S00004.resta6 +++| AX6 9 00467 M01S00005.resta6 +++| BX4 -X3*X6 BLOCK TYPE 00468 M01S00006.resta6 +++| AX6 3 00469 M01S00007.resta6 +++| SA0 X4 00470 M01S00008.resta6 +++| BX4 -X3*X6 DATA TYPE
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00471 M01S00098.ns2081 +++| SX4 X4-4 00472 M01S00099.ns2081 +++| NZ X4,CPY4 IF INCORRECT DATA TYPE 00473 M01S00100.ns2081 +++| ZR X0,CPY4 IF -DM*- FILE TOO SHORT 00474 M01S00101.ns2081 +++| READW I,BUF,X0 00475 M01S00102.ns2081 +++| EQ IWBX RETURN 00476 M00S00346.restart +++| PSF SPACE 4,15 00477 M00S00347.restart +++|** PSF - POSITION FILE. 00478 M00S00348.restart +++|* 00479 M00S00349.restart +++|* ENTRY FILE NAME IN FETS O AND P. 00480 M00S00350.restart +++|* USES FET P FOR DISK FILES, POSITIONING BY RANDOM ADDR. 00481 M00S00351.restart +++|* USED FET O FOR TAPE FILES, POSITIONING BY CONTROL WORD. 00482 M00S00352.restart +++|* 00483 M00S00353.restart +++|* CALLS NONE. 00484 M00S00354.restart +++|* 00485 M00S00355.restart +++|* EXIT FILE POSITIONED. 00486 M00S00356.restart +++|* 00487 M00S00357.restart +++|* USES A - 0, 1, 2, 3, 4, 6. 00488 M00S00358.restart +++|* X - ALL. 00489 M00S00359.restart +++|*
| Line S00360 Modification History | |
|---|---|
M01 (Removed by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00490 M01S00360.ns2039 ---|* MACROS BKSPRU, MESSAGE, READ, READCW, READX, RECALL, REWIND.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00491 M01S00006.ns2039 +++|* MACROS BKSPRU, FILINFO, MESSAGE, READ, READCW, READX, RECALL, 00492 M01S00007.ns2039 +++|* REWIND, SKIPF. 00493 M00S00361.restart +++| 00494 M00S00362.restart +++|
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | resta5 |
Seq # *Modification Id* Act ----------------------------+ 00495 M01S00001.resta5 +++| PSF9 REWIND P POSITION FOR COPY TYPE 1 00496 M01S00002.resta5 +++| 00497 M00S00363.restart +++| PSF SUBR ENTRY/EXIT 00498 M00S00364.restart +++| RECALL O 00499 M00S00365.restart +++| RECALL P 00500 M00S00366.restart +++| 00501 M00S00367.restart +++| SA1 O 00502 M00S00368.restart +++| AX1 10 00503 M00S00369.restart +++| MX3 -4 00504 M00S00370.restart +++| BX4 -X3*X1 00505 M00S00371.restart +++| NZ X4,PRT16 IF ERROR 00506 M00S00372.restart +++| 00507 M00S00373.restart +++| SA1 P 00508 M00S00374.restart +++| AX1 10 00509 M00S00375.restart +++| BX4 -X3*X1 00510 M00S00376.restart +++| NZ X4,PRT16 IF ERROR 00511 M00S00377.restart +++| 00512 M00S00378.restart +++| SA1 O+9 00513 M00S00379.restart +++| MX0 -3 00514 M00S00380.restart +++| LX1 2-11 00515 M00S00381.restart +++| BX3 -X0*X1 00516 M00S00382.restart +++| SX3 X3-1
| Line S00383 Modification History | |
|---|---|
M01 (Removed by) | resta5 |
Seq # *Modification Id* Act ----------------------------+ 00517 M01S00383.resta5 ---| ZR X3,PSFX IF COPY TYPE 1
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | resta5 |
Seq # *Modification Id* Act ----------------------------+ 00518 M01S00003.resta5 +++| ZR X3,PSF9 IF COPY TYPE 1 00519 M00S00384.restart +++| 00520 M00S00385.restart +++| SA1 O+8 00521 M00S00386.restart +++| AX1 13 00522 M00S00387.restart +++| MX3 -2 00523 M00S00388.restart +++| BX4 -X3*X1 00524 M00S00389.restart +++| SX2 X4-1 00525 M00S00390.restart +++| ZR X2,PSF3 IF TAPE FILE 00526 M00S00391.restart +++| SX4 X4-2 00527 M00S00392.restart +++| ZR X4,PSFX IF TTY FILE 00528 M00S00393.restart +++| 00529 M00S00394.restart +++|* POSITION MASS STORAGE. 00530 M00S00395.restart +++| 00531 M00S00396.restart +++| REWIND P,R 00532 M00S00397.restart +++| SA1 O+9 SET RANDOM ADDRESS 00533 M00S00398.restart +++| AX1 12
| Line S00399 Modification History | |
|---|---|
M01 (Removed by) | resta1 |
Seq # *Modification Id* Act ----------------------------+ 00534 M01S00399.resta1 ---| MX3 -12
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | resta1 |
Seq # *Modification Id* Act ----------------------------+ 00535 M01S00001.resta1 +++| MX3 -24 00536 M00S00400.restart +++| BX6 -X3*X1
| Line S00401 Modification History | |
|---|---|
M01 (Removed by) | resta1 |
Seq # *Modification Id* Act ----------------------------+ 00537 M01S00401.resta1 ---| SX1 X6-1 ACCOUNT FOR RANDOM POSITIONING
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | resta1 |
Seq # *Modification Id* Act ----------------------------+ 00538 M01S00002.resta1 +++| SX1 B1+ 00539 M01S00003.resta1 +++| IX1 X6-X1 ACCOUNT FOR RANDOM POSITIONING 00540 M00S00402.restart +++| ZR X1,PSFX IF BOI DESIRED 00541 M00S00403.restart +++| PSF1 SA6 P+6 00542 M00S00404.restart +++| READ P,R DO RANDOM READ 00543 M00S00405.restart +++| SA1 P 00544 M00S00406.restart +++| AX1 10 00545 M00S00407.restart +++| MX0 -4 00546 M00S00408.restart +++| BX0 -X0*X1 00547 M00S00409.restart +++| ZR X0,PSFX IF NO ERROR OCCURRED 00548 M00S00410.restart +++| 00549 M00S00411.restart +++|* DISPLAY ERROR MESSAGE 00550 M00S00412.restart +++| 00551 M00S00413.restart +++| PSF2 SA1 O 00552 M00S00414.restart +++| MX0 42 00553 M00S00415.restart +++| BX6 X0*X1 ISOLATE FILE NAME 00554 M00S00416.restart +++| SA1 MSGD+1 00555 M00S00417.restart +++| MX0 12 00556 M00S00418.restart +++| BX1 X0*X1 00557 M00S00419.restart +++| LX6 -18 00558 M00S00420.restart +++| BX6 X1+X6 MASK INTO MESSAGE 00559 M00S00421.restart +++| SA6 A1 00560 M00S00422.restart +++| MESSAGE MSGD 00561 M00S00423.restart +++| EQ PSFX RETURN 00562 M00S00424.restart +++| 00563 M00S00425.restart +++|* POSITION TAPES. 00564 M00S00426.restart +++| 00565 M00S00427.restart +++| PSF3 REWIND O,R 00566 M00S00428.restart +++| SA1 O+9 GET BLOCK COUNT 00567 M00S00429.restart +++| AX1 12 00568 M00S00430.restart +++| MX3 -24 00569 M00S00431.restart +++| BX5 -X3*X1 DESIRED BLOCK COUNT 00570 M00S00432.restart +++| ZR X5,PSFX IF REWOUND
| Line S00433 Modification History | |
|---|---|
M01 (Removed by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00571 M01S00433.ns2039 ---| SX0 B0 PRESET BLOCK COUNT
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00572 M01S00008.ns2039 +++| MX0 42 FORMAT *FILINFO* REQUEST 00573 M01S00009.ns2039 +++| SA1 O FILE NAME 00574 M01S00010.ns2039 +++| SX2 PSFAL*10000B+1 LENGTH AND COMPLETE BIT 00575 M01S00011.ns2039 +++| BX6 X0*X1 00576 M01S00012.ns2039 +++| BX6 X6+X2 00577 M01S00013.ns2039 +++| SA6 PSFA 00578 M01S00014.ns2039 +++| FILINFO PSFA GET TAPE FORMAT 00579 M01S00015.ns2039 +++| SA1 PSFA+5 00580 M01S00016.ns2039 +++| AX1 6 00581 M01S00017.ns2039 +++| SX7 X1-/MTX/TFF 00582 M01S00018.ns2039 +++| PL X7,PSF8 IF *F*, *S* OR *L* TAPE FORMAT 00583 M01S00019.ns2039 +++| 00584 M01S00020.ns2039 +++|* PROCESS *I* AND *SI* FORMAT TAPES. 00585 M01S00021.ns2039 +++| 00586 M01S00022.ns2039 +++| SX0 B0+ PRESET BLOCK COUNT 00587 M00S00434.restart +++| PSF3.1 MX6 1 SET FIRST READ 00588 M00S00435.restart +++| SA6 O-2 00589 M00S00436.restart +++| READCW O 00590 M00S00437.restart +++| PSF4 READX O,TBUF,TBUFL 00591 M00S00438.restart +++| SX1 X1+2 00592 M00S00439.restart +++| ZR X1,PSFX IF EOI 00593 M00S00440.restart +++| IX3 X0-X5 00594 M00S00441.restart +++| PL X3,PSF4.1 IF AT POSITION 00595 M00S00442.restart +++| SX1 X1-1 00596 M00S00443.restart +++| ZR X1,PSF3.1 IF EOF 00597 M00S00444.restart +++| EQ PSF4 00598 M00S00445.restart +++| 00599 M00S00446.restart +++| PSF4.1 RECALL O 00600 M00S00447.restart +++| SA1 O CHECK STATUS IN FET 00601 M00S00448.restart +++| LX1 59-9 00602 M00S00449.restart +++| NG X1,PSFX IF END OF INFORMATION 00603 M00S00450.restart +++| SA1 O+2 GET IN 00604 M00S00451.restart +++| SA2 A1+1 GET OUT 00605 M00S00452.restart +++| IX3 X1-X2 IN-OUT 00606 M00S00453.restart +++| SA4 A1-B1 GET FIRST 00607 M00S00454.restart +++| SX4 X4 00608 M00S00455.restart +++| IX4 X1-X4 IN-FIRST 00609 M00S00456.restart +++| ZR X3,PSFX IF EMPTY BUFFER
| Line S00457 Modification History | |
|---|---|
M01 (Removed by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00610 M01S00457.ns2039 ---| PL X3,PSF5 IF IN .GT. OUT
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00611 M01S00023.ns2039 +++| PL X3,PSF4.2 IF IN .GE. OUT 00612 M00S00458.restart +++| SA3 A2+1 00613 M00S00459.restart +++| SX3 X3+ 00614 M00S00460.restart +++| IX3 X3-X2 LIMIT-OUT 00615 M00S00461.restart +++| IX3 X4+X3 NUMBER OF WORDS IN BUFFER
| Line S00462 Modification History | |
|---|---|
M01 (Removed by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00616 M01S00462.ns2039 ---| PSF5 SA1 X2 GET NEXT CONTROL WORD
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00617 M01S00024.ns2039 +++| PSF4.2 SA1 O-2 00618 M01S00025.ns2039 +++| NG X1,PSF5 IF AT END OF CURRENT BLOCK 00619 M01S00026.ns2039 +++| SX2 X2+B1 00620 M01S00027.ns2039 +++| SX4 B1+ 00621 M01S00028.ns2039 +++| IX3 X3-X4 00622 M01S00029.ns2039 +++| ZR X1,PSF5 IF NO MORE WORDS IN CURRENT BLOCK 00623 M01S00030.ns2039 +++| IX6 X3-X1 00624 M01S00031.ns2039 +++| BX7 X1 00625 M01S00032.ns2039 +++| ZR X6,PSFX IF AT POSITION 00626 M01S00033.ns2039 +++| EQ PSF5.1 COMPUTE NEXT OUT 00627 M01S00034.ns2039 +++| 00628 M01S00035.ns2039 +++| PSF5 SA1 X2+ GET NEXT CONTROL WORD 00629 M00S00463.restart +++| SX7 5 00630 M00S00464.restart +++| SX4 X1+16B ACCOUNT FOR CONTROL WORDS AND EXTRA BYTES 00631 M00S00465.restart +++| IX7 X4/X7 GET NUMBER OF WORDS IN BLOCK 00632 M00S00466.restart +++| IX6 X3-X7 COMPARE TO NUMBER OF WORDS IN BUFFER 00633 M00S00467.restart +++| SX0 X0+B1 INCREMENT BLOCK COUNT 00634 M00S00468.restart +++| ZR X6,PSF6 IF 1 BLOCK
| Line S00469 Modification History | |
|---|---|
M01 (Removed by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00635 M01S00469.ns2039 ---| SX3 X6 WORDS BEYOND BLOCK
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00636 M01S00036.ns2039 +++| PSF5.1 SX3 X6 WORDS BEYOND BLOCK 00637 M00S00470.restart +++| IX2 X2+X7 NEW OUT (NEXT CONTROL WORD) 00638 M00S00471.restart +++| SA1 O+4 00639 M00S00472.restart +++| SX1 X1 00640 M00S00473.restart +++| IX1 X2-X1 COMPARE TO LIMIT 00641 M00S00474.restart +++| NG X1,PSF5 IF NO END AROUND 00642 M00S00475.restart +++| SA2 A4 GET FIRST 00643 M00S00476.restart +++| SX2 X2+ 00644 M00S00477.restart +++| IX2 X2+X1 SET NEW OUT 00645 M00S00478.restart +++| EQ PSF5 00646 M00S00479.restart +++| 00647 M00S00480.restart +++| PSF6 IX3 X0-X5 00648 M00S00481.restart +++| ZR X3,PSFX IF AT POSITION 00649 M00S00482.restart +++| BKSPRU O,X3,R
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00650 M01S00037.ns2039 +++| PSF7 SA1 O CHECK FOR ERROR 00651 M01S00038.ns2039 +++| MX0 -4 00652 M01S00039.ns2039 +++| AX1 10 00653 M01S00040.ns2039 +++| BX0 -X0*X1 00654 M01S00041.ns2039 +++| NZ X0,PSF2 IF ERROR ON I/O 00655 M00S00483.restart +++| EQ PSFX RETURN
| Line S00484 Modification History | |
|---|---|
M01 (Removed by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00656 M01S00484.ns2039 ---|
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00657 M01S00042.ns2039 +++| 00658 M01S00043.ns2039 +++|* PROCESS *F*, *S* AND *L* FORMAT TAPES. 00659 M01S00044.ns2039 +++| 00660 M01S00045.ns2039 +++| PSF8 SKIPF O,X5,R 00661 M01S00046.ns2039 +++| EQ PSF7 CHECK FOR ERROR 00662 M01S00047.ns2039 +++| 00663 M01S00048.ns2039 +++| PSFA BSSZ 5 STANDARD *FILINFO* PARAMETER BLOCK 00664 M01S00049.ns2039 +++| VFD 48/0,6/0,6/FMTK TAPE FORMAT 00665 M01S00050.ns2039 +++| PSFAL EQU *-PSFA LENGTH OF PARAMETER BLOCK 00666 M00S00485.restart +++| MSGD DATA C* FILE ERROR .* 00667 M00S00486.restart +++| DATA 0
| Line S00487 Modification History | |
|---|---|
M01 (Removed by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00668 M01S00487.ns2081 ---| PRT SPACE 4
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00669 M01S00103.ns2081 +++| PRT SPACE 4,15 00670 M00S00488.restart +++|** PRT - PROCESS FILE TABLE. 00671 M00S00489.restart +++|*
| Line S00490 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00672 M01S00490.ns21000 ---|* ENTRY NONE.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00673 M01S00003.ns21000 +++|* EXIT ALL FILES IN THE FILE TABLE ARE RECOVERED FROM 00674 M01S00004.ns21000 +++|* THE CHECKPOINT FILE. 00675 M00S00491.restart +++|*
| Line S00492 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00676 M01S00492.ns21000 ---|* EXIT ALL FILES IN FILE TABLE RECOVER FROM CHECKPOINT FILE. 00677 M01S00493.ns21000 ---|* 00678 M01S00494.ns21000 ---|* CALLS CPY,PSF,SMD.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00679 M01S00005.ns21000 +++|* USES X - ALL.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00680 M02S00006.ns2081 ---|* A - 1, 2, 5, 6, 7.
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00681 M01S00104.ns2081 +++|* A - 1, 2, 3, 4, 5, 6, 7. 00682 M01S00105.ns2081 +++|* B - 2.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00683 M01S00007.ns21000 +++|* 00684 M01S00008.ns21000 +++|* CALLS CPY, PSF, SFN, SMD. 00685 M00S00495.restart +++|*
| Line S00496 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00686 M01S00496.ns21000 ---|* USES A - ALL. 00687 M01S00497.ns21000 ---|* X - ALL. 00688 M01S00498.ns21000 ---|* B - ALL. 00689 M01S00499.ns21000 ---|* 00690 M01S00500.ns21000 ---|* MACROS ASSIGN, ATTACH, ENCSF, MESSAGE, READO, READW, RETURN, 00691 M01S00501.ns21000 ---|* REWIND, SETID, STATUS.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00692 M01S00009.ns21000 +++|* MACROS ASSIGN, ATTACH, ENCSF, GET, MESSAGE, READO, READW, 00693 M01S00010.ns21000 +++|* RETURN, REWIND, SETFS, STATUS. 00694 M00S00502.restart +++| 00695 M00S00503.restart +++| 00696 M00S00504.restart +++| PRT SUBR ENTRY/EXIT 00697 M00S00505.restart +++| READO I READ FILE TABLE HEADER 00698 M00S00506.restart +++| MX0 -9 00699 M00S00507.restart +++| BX4 -X0*X6 GET LENGTH 00700 M00S00508.restart +++| AX6 12 00701 M00S00509.restart +++| SX3 X6-2 00702 M00S00510.restart +++| NZ X3,CPY4 IF WRONG DATA TYPE 00703 M00S00511.restart +++| READW I,SBUF,X4 READ FILE TABLE 00704 M00S00512.restart +++| 00705 M00S00513.restart +++| SA5 SBUF-2 00706 M00S00514.restart +++| PRT0 SA5 A5+2 GET FIRST WORD TABLE ENTRY 00707 M00S00515.restart +++| ZR X5,PRT17 IF END OF TABLE 00708 M00S00516.restart +++| SX7 3 DEFAULT ID BINARY FILE 00709 M00S00517.restart +++| MX0 42 00710 M00S00518.restart +++| BX6 X0*X5 ISOLATE FILE NAME 00711 M00S00519.restart +++| BX6 X6+X7 00712 M00S00520.restart +++| SA6 P SET FILENAME IN FET
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00713 M01S00106.ns2081 +++| SB2 B0 CLEAR CCL FILE FLAG 00714 M00S00521.restart +++| SA6 O SET FILENAME IN FET 00715 M00S00522.restart +++| SA2 A5+B1 GET WORD 2 OF TABLE ENTRY 00716 M00S00523.restart +++| BX6 X5 00717 M00S00524.restart +++| BX7 X2 00718 M00S00525.restart +++| SA6 O+8 PLACE FNT ENTRY IN FET 00719 M00S00526.restart +++| SA7 A6+B1 PLACE FST ENTRY IN FET 00720 M00S00527.restart +++| SA1 =C*CCCCCCO* 00721 M00S00528.restart +++| BX3 X1-X5 00722 M00S00529.restart +++| BX3 X0*X3
| Line S00530 Modification History | |
|---|---|
M01 (Removed by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00723 M01S00530.ns2081 ---| NZ X3,PRT5 IF NOT *CCCCCCO*
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00724 M01S00107.ns2081 +++| NZ X3,PRT1 IF NOT *CCCCCCO* 00725 M00S00531.restart +++| SA1 RIFL CHECK FOR RI PARAMETER 00726 M00S00532.restart +++| NZ X1,PRT10 IF NEW FILE WANTED 00727 M00S00533.restart +++| MX0 -6 CONSTRUCT *ENCSF* CALL WORD 00728 M00S00534.restart +++| BX5 -X0*X5 00729 M00S00535.restart +++| MX0 -24 00730 M00S00536.restart +++| AX2 6 00731 M00S00537.restart +++| LX0 6 00732 M00S00538.restart +++| BX6 -X0*X2 GET RANDOM ADDRESS 00733 M00S00539.restart +++| BX6 X6+X5 00734 M00S00540.restart +++| SA6 PRTA 00735 M00S00541.restart +++| REWIND O,R 00736 M00S00542.restart +++| SX6 3 00737 M00S00543.restart +++| RJ CPY GET OLD CONTROL STATEMENT FILE 00738 M00S00544.restart +++| REWIND O,R 00739 M00S00545.restart +++| ENCSF O,PRTA ENTER AND POSITION CONTROL STATEMENT FILE 00740 M00S00546.restart +++| EQ PRT0 LOOP FOR REMAINING FILES
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00741 M01S00108.ns2081 +++| 00742 M01S00109.ns2081 +++|* PREPARE FOR PROCESSING CCL FILES. 00743 M01S00110.ns2081 +++| 00744 M01S00111.ns2081 +++| PRT1 SA3 CCLF *ZZZZZC0* 00745 M01S00112.ns2081 +++| BX1 X0*X5 00746 M01S00113.ns2081 +++| BX3 X0*X3 00747 M01S00114.ns2081 +++| SA4 CCLF+CCLFL-1 *ZZZZZC2* 00748 M01S00115.ns2081 +++| BX4 X0*X4 00749 M01S00116.ns2081 +++| IX3 X1-X3 00750 M01S00117.ns2081 +++| NG X3,PRT5 IF NOT CCL FILE 00751 M01S00118.ns2081 +++| IX4 X4-X1 00752 M01S00119.ns2081 +++| NG X4,PRT5 IF NOT CCL FILE 00753 M01S00120.ns2081 +++| SB2 B1+ SET CCL FILE FLAG 00754 M00S00547.restart +++| 00755 M00S00548.restart +++|* CHECK COPY TYPE. 00756 M00S00549.restart +++| 00757 M00S00550.restart +++| PRT5 MX3 -3 00758 M00S00551.restart +++| BX4 X2 00759 M00S00552.restart +++| LX4 2-11 00760 M00S00553.restart +++| BX3 -X3*X4 GET COPY TYPE 00761 M00S00554.restart +++| SX4 X3-4 00762 M00S00555.restart +++| MX3 -6 00763 M00S00556.restart +++| BX6 -X3*X5 00764 M00S00557.restart +++| SA6 FIID SAVE STATUS
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00765 M01S00121.ns2081 +++| NE B2,PRT5.1 IF CCL FILE 00766 M00S00558.restart +++| SA1 FCFL CHECK FILE CHECK FLAG 00767 M00S00559.restart +++| NZ X1,PRT9 IF SET 00768 M00S00560.restart +++| SA1 =C*INPUT* 00769 M00S00561.restart +++| BX6 X1-X5 00770 M00S00562.restart +++| BX6 X0*X6 00771 M00S00563.restart +++| NZ X6,PRT6 IF NOT INPUT 00772 M00S00564.restart +++| RETURN O,R RETURN BEFORE CREATING 00773 M00S00565.restart +++| EQ PRT7
| Line S00566 Modification History | |
|---|---|
M01 (Removed by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00774 M01S00566.ns2081 ---|
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00775 M01S00122.ns2081 +++| 00776 M01S00123.ns2081 +++| PRT5.1 SA1 RIFL CHECK FOR *RI* PARAMETER 00777 M01S00124.ns2081 +++| NZ X1,PRT10 IF NEW CONTROL STATEMENTS WANTED 00778 M00S00567.restart +++| PRT6 REWIND O,R 00779 M00S00568.restart +++| PRT7 ZR X4,PRT11 IF NO FILE COPY 00780 M00S00569.restart +++| SX6 3 00781 M00S00570.restart +++| RJ CPY COPY FILE 00782 M00S00571.restart +++| PRT8 RJ PSF POSITION THE FILE 00783 M00S00572.restart +++| SA2 FIID 00784 M00S00573.restart +++| SETFS O,X2 00785 M00S00574.restart +++| EQ PRT0 LOOP FOR REMAINING FILES 00786 M00S00575.restart +++| 00787 M00S00576.restart +++|* CHECK IF FILE ALREADY PRESENT. 00788 M00S00577.restart +++| 00789 M00S00578.restart +++| PRT9 STATUS O 00790 M00S00579.restart +++| SA1 O 00791 M00S00580.restart +++| SX3 X1-1 00792 M00S00581.restart +++| ZR X3,PRT7 IF NOT FOUND
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | resta3 |
Seq # *Modification Id* Act ----------------------------+ 00793 M01S00001.resta3 +++| SA2 A2 WORD 2 OF TABLE ENTRY
| Line S00582 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00794 M01S00582.ns21000 ---| MX1 -3 00795 M01S00583.ns21000 ---| LX5 2-16 00796 M01S00584.ns21000 ---| BX1 -X1*X5
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00797 M01S00011.ns21000 +++| MX1 -4 00798 M01S00012.ns21000 +++| LX2 -4 00799 M01S00013.ns21000 +++| BX1 -X1*X2 00800 M00S00585.restart +++| SX1 X1-4
| Line S00586 Modification History | |
|---|---|
M01 (Removed by) | resta7 |
Seq # *Modification Id* Act ----------------------------+ 00801 M01S00586.resta7 ---| ZR X1,PRT0 IF EXECUTE-ONLY 00802 M01S00587.resta7 ---| ZR X4,PRT0 IF NO FILE COPY ON CHECKPOINT FILE
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | resta7 |
Seq # *Modification Id* Act ----------------------------+ 00803 M01S00003.resta7 +++| ZR X1,PRT8 IF EXECUTE-ONLY 00804 M01S00004.resta7 +++| ZR X4,PRT8 IF NO FILE COPY ON CHECKPOINT FILE 00805 M00S00588.restart +++| 00806 M00S00589.restart +++|* COPY FILE TO BE RID OF IT 00807 M00S00590.restart +++| 00808 M00S00591.restart +++| PRT10 SA1 =C*CCCCCCM* 00809 M00S00592.restart +++| SX3 3 00810 M00S00593.restart +++| BX6 X1+X3 00811 M00S00594.restart +++| SA6 O 00812 M00S00595.restart +++| SX6 3 00813 M00S00596.restart +++| RJ CPY COPY OLD FILE TO NEW HOME 00814 M00S00597.restart +++| REWIND O,R 00815 M00S00598.restart +++| EQ PRT0 LOOP FOR REMAINING FILES 00816 M00S00599.restart +++| 00817 M00S00600.restart +++|* IF NO FILE COPY. 00818 M00S00601.restart +++| 00819 M00S00602.restart +++| PRT11 MX3 -24 00820 M00S00603.restart +++| LX3 12 00821 M00S00604.restart +++| SA2 A2 WORD 2 OF TABLE ENTRY 00822 M00S00605.restart +++| BX4 -X3*X2 ISOLATE RANDOM INDEX 00823 M00S00606.restart +++| MX3 -6 CHECK FILE TYPE 00824 M00S00607.restart +++| ZR X4,PRT0 IF EMPTY FILE 00825 M00S00608.restart +++| AX5 6 00826 M00S00609.restart +++| BX4 -X3*X5 00827 M00S00610.restart +++| SX3 X4-LIFT 00828 M00S00611.restart +++| NZ X3,PRT13 IF NOT LIBRARY FILE 00829 M00S00612.restart +++| ASSIGN P REASSIGN SYSTEM FILE 00830 M00S00613.restart +++| EQ PRT8 LOOP FOR REMAINING FILES 00831 M00S00614.restart +++| 00832 M00S00615.restart +++| PRT13 SX3 X4-PMFT 00833 M00S00616.restart +++| NZ X3,PRT14 IF NOT DIRECT ACCESS FILE 00834 M00S00617.restart +++| 00835 M00S00618.restart +++|* CHECK MODE. 00836 M00S00619.restart +++|
| Line S00620 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00837 M01S00620.ns21000 ---| SA5 A5
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00838 M01S00014.ns21000 +++| SA2 A5+B1 00839 M00S00621.restart +++| RJ SMD SET MODE 00840 M00S00622.restart +++| ATTACH P,,,,MODA,,,,NF 00841 M00S00623.restart +++| EQ PRT8 LOOP FOR REMAINING FILES 00842 M00S00624.restart +++| 00843 M00S00625.restart +++| PRT14 SX3 X4-LOFT 00844 M00S00626.restart +++| NZ X3,PRT16 IF ILLEGAL FILE TYPE 00845 M00S00627.restart +++| SA1 O+8 00846 M00S00628.restart +++| MX3 -2 00847 M00S00629.restart +++| AX1 13 00848 M00S00630.restart +++| BX1 -X3*X1 00849 M00S00631.restart +++| SX3 X1-1 00850 M00S00632.restart +++| ZR X3,PRT8 IF TAPE FILE 00851 M00S00633.restart +++| PRT15 GET P 00852 M00S00634.restart +++| EQ PRT8 LOOP FOR REMAINING FILES 00853 M00S00635.restart +++| 00854 M00S00636.restart +++|* IF FILE NOT FOUND. 00855 M00S00637.restart +++| 00856 M00S00638.restart +++| PRT16 MX0 42 00857 M00S00639.restart +++| SA1 O 00858 M00S00640.restart +++| BX1 X0*X1 00859 M00S00641.restart +++| RJ SFN SPACE FILL FILE NAME 00860 M00S00642.restart +++| LX6 -6 00861 M00S00643.restart +++| SA6 MSGA 00862 M00S00644.restart +++| MESSAGE A6 00863 M00S00645.restart +++| 00864 M00S00646.restart +++|* CHECK NO ABORT FLAG. 00865 M00S00647.restart +++| 00866 M00S00648.restart +++| SA2 NAFL 00867 M00S00649.restart +++| NZ X2,PRT0 IF NO ABORT, LOOP FOR REMAINING FILES 00868 M00S00650.restart +++| EQ CPY5 00869 M00S00651.restart +++| 00870 M00S00652.restart +++|* RETURN *CCCCCCM* AND EXIT. 00871 M00S00653.restart +++| 00872 M00S00654.restart +++| PRT17 SA1 =C*CCCCCCM* 00873 M00S00655.restart +++| SX3 3 00874 M00S00656.restart +++| BX6 X1+X3 00875 M00S00657.restart +++| SA6 O 00876 M00S00658.restart +++| RETURN O,R 00877 M00S00659.restart +++| EQ PRTX RETURN 00878 M00S00660.restart +++| 00879 M00S00661.restart +++| 00880 M00S00662.restart +++| PRTA BSS 1 PARAMETER AREA FOR *ENCSF* CALL 00881 M00S00663.restart +++| 00882 M00S00664.restart +++| MSGA DATA C* NOT FOUND.*
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00883 M01S00125.ns2081 +++| RCC SPACE 4,15 00884 M01S00126.ns2081 +++|** RCC - RENAME/RETURN CCL FILES. 00885 M01S00127.ns2081 +++|* 00886 M01S00128.ns2081 +++|* ENTRY (B3) = 0, IF RENAME FUNCTION. 00887 M01S00129.ns2081 +++|* = 1, IF RETURN FUCNTION. 00888 M01S00130.ns2081 +++|* (B4) = FWA OF LIST OF FILES TO BE RENAMED/RETURNED. 00889 M01S00131.ns2081 +++|* (B5) = FWA OF LIST OF FILE NAMES TO USE FOR RENAME. 00890 M01S00132.ns2081 +++|* 00891 M01S00133.ns2081 +++|* USES X - 0, 1, 2, 5, 6. 00892 M01S00134.ns2081 +++|* A - 1, 5, 6. 00893 M01S00135.ns2081 +++|* B - 2. 00894 M01S00136.ns2081 +++|* 00895 M01S00137.ns2081 +++|* MACROS RENAME, RETURN. 00896 M01S00138.ns2081 +++| 00897 M01S00139.ns2081 +++| 00898 M01S00140.ns2081 +++| RCC3 BX6 X6-X6 00899 M01S00141.ns2081 +++| SA6 O+6 00900 M01S00142.ns2081 +++| 00901 M01S00143.ns2081 +++| RCC SUBR ENTRY/EXIT 00902 M01S00144.ns2081 +++| SA1 RIFL 00903 M01S00145.ns2081 +++| NZ X1,RCCX IF PROCESSING NOT NEEDED 00904 M01S00146.ns2081 +++| SB2 -1 00905 M01S00147.ns2081 +++| RCC1 SB2 B2+1 00906 M01S00148.ns2081 +++| SA5 B4+B2 GET NEXT FILE NAME TO PROCESS 00907 M01S00149.ns2081 +++| SX2 B1 00908 M01S00150.ns2081 +++| ZR X5,RCC3 IF ALL FILES PROCESSED 00909 M01S00151.ns2081 +++| BX6 X5+X2 00910 M01S00152.ns2081 +++| LX5 59-0 00911 M01S00153.ns2081 +++| PL X5,RCC1 IF NOT TO PROCESS FILE 00912 M01S00154.ns2081 +++| SA6 O 00913 M01S00155.ns2081 +++| EQ B3,B1,RCC2 IF *RETURN* FUNCTION SELECTED 00914 M01S00156.ns2081 +++| RENAME O,B5+B2 00915 M01S00157.ns2081 +++| SA1 O 00916 M01S00158.ns2081 +++| MX0 -8 00917 M01S00159.ns2081 +++| LX1 7-17 00918 M01S00160.ns2081 +++| BX2 -X0*X1 00919 M01S00161.ns2081 +++| SA5 B5+B2 00920 M01S00162.ns2081 +++| NZ X2,RCC1 IF FILE NOT RENAMED 00921 M01S00163.ns2081 +++| SX6 B1 SET FILE RENAMED INDICATOR 00922 M01S00164.ns2081 +++| BX6 X5+X6 00923 M01S00165.ns2081 +++| SA6 A5+ 00924 M01S00166.ns2081 +++| EQ RCC1 PROCESS NEXT SELECTED FILE 00925 M01S00167.ns2081 +++| 00926 M01S00168.ns2081 +++| RCC2 RETURN O,R 00927 M01S00169.ns2081 +++| EQ RCC1 PROCESS NEXT SELECTED FILE 00928 M00S00665.restart +++| RDA SPACE 4 00929 M00S00666.restart +++|** RDA - READ DATA. 00930 M00S00667.restart +++|* PROCESSES CALLS TO READ WORDS (RDW=). 00931 M00S00668.restart +++|* DEBLOCKS DATA FROM CONTROL WORD READS FOR TAPE POSITIONING. 00932 M00S00669.restart +++|*
| Line S00670 Modification History | |
|---|---|
M01 (Removed by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00933 M01S00670.ns2039 ---|* ENTRY X2 = FET ADDRESS 00934 M01S00671.ns2039 ---|* B6 = ADDRESS TO READ TO 00935 M01S00672.ns2039 ---|* B7 = NUMBER OF WORDS TO READ 00936 M01S00673.ns2039 ---|* 00937 M01S00674.ns2039 ---|* EXIT WORDS READ
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00938 M01S00051.ns2039 +++|* ENTRY (X0) = BLOCK COUNT. 00939 M01S00052.ns2039 +++|* (X2) = FET ADDRESS. 00940 M01S00053.ns2039 +++|* (B6) = ADDRESS TO READ TO. 00941 M01S00054.ns2039 +++|* (B7) = NUMBER OF WORDS TO READ. 00942 M01S00055.ns2039 +++|* 00943 M01S00056.ns2039 +++|* EXIT (X0) = BLOCK COUNT UPDATED. 00944 M01S00057.ns2039 +++|* ((X2)-2) = NUMBER OF WORDS REMAINING IN CURRENT 00945 M01S00058.ns2039 +++|* BLOCK IF POSITION IS NOT AT EOR/EOF/EOI. 00946 M00S00675.restart +++|* 00947 M00S00676.restart +++|* CALLS RDW= 00948 M00S00677.restart +++|* 00949 M00S00678.restart +++|* USES A - 1,3,6,7 00950 M00S00679.restart +++|* B - 5,6,7 00951 M00S00680.restart +++|* X - 0,1,2,3,6,7 00952 M00S00681.restart +++|* 00953 M00S00682.restart +++| 00954 M00S00683.restart +++| 00955 M00S00684.restart +++| RDA5 SX6 B5-B7 UPDATE WORDS REMAINING 00956 M00S00685.restart +++| SA6 A1 00957 M00S00686.restart +++| 00958 M00S00687.restart +++| RJ RDW= READ WORDS 00959 M00S00688.restart +++| 00960 M00S00689.restart +++| RDA PS ENTRY/EXIT 00961 M00S00690.restart +++| RDA1 SA1 X2-2 GET NUMBER OF WORDS BEFORE CONTROL WORD 00962 M00S00691.restart +++| SB5 X1+ 00963 M00S00692.restart +++| PL X1,RDA2 IF NOT FIRST READ 00964 M00S00693.restart +++| SX7 B7+ SET WORDS NEEDED 00965 M00S00694.restart +++| SA7 RDAA 00966 M00S00695.restart +++| JP RDA4 00967 M00S00696.restart +++| 00968 M00S00697.restart +++| RDA2 GE B5,B7,RDA5 IF ENOUGH DATA TO FILL BUFFER 00969 M00S00698.restart +++| SA3 X2-1 CHECK EOR FLAG 00970 M00S00699.restart +++| PL X3,RDA3 IF NOT EOR ON FILE 00971 M00S00700.restart +++| MX6 1 SET NEW READ FLAG 00972 M00S00701.restart +++| SB7 B5+B1 SET WORDS TO READ 00973 M00S00702.restart +++| SA6 A3 00974 M00S00703.restart +++| SA6 A1 00975 M00S00704.restart +++| RJ RDW= READ WORDS 00976 M00S00705.restart +++| SX1 B6-B1 SET EOR INDICATION 00977 M00S00706.restart +++| SB6 B6-B1 BACK UP LWA TO ALLOW FOR CONTROL WORD 00978 M00S00707.restart +++| JP RDA RETURN 00979 M00S00708.restart +++| 00980 M00S00709.restart +++| RDA3 SX6 B7-B5 SAVE ADDITIONAL WORDS NEEDED 00981 M00S00710.restart +++| SA6 RDAA 00982 M00S00711.restart +++| SB7 B5+B1 SET WORDS TO TRANSFER 00983 M00S00712.restart +++| RJ RDW= READ WORDS 00984 M00S00713.restart +++| SB6 B6-1 BACK UP OVER LAST CONTROL WORD 00985 M00S00714.restart +++| RDA4 SB7 B1 READ CONTROL WORD 00986 M00S00715.restart +++| RJ RDW= 00987 M00S00716.restart +++| NG X1,RDA IF EOF/EOI 00988 M00S00717.restart +++| SB6 B6-B1 BACK UP WORKING BUFFER 00989 M00S00718.restart +++| SA1 B6 CONTROL WORD 00990 M00S00719.restart +++| SX7 5 00991 M00S00720.restart +++| SX4 X1+4 ROUND UP 00992 M00S00721.restart +++| AX1 36 EXTRACT BLOCK SIZE 00993 M00S00722.restart +++| SX3 X1 00994 M00S00723.restart +++| IX7 X4/X7 WORDS IN BLOCK 00995 M00S00724.restart +++| IX6 X7-X3 SAVE EOR FLAG 00996 M00S00725.restart +++| SA7 X2-2 STORE WORD COUNT 00997 M00S00726.restart +++| SA6 X2-1 EOR FLAG 00998 M00S00727.restart +++| SA1 RDAA RESET WORDS NEEDED 00999 M00S00728.restart +++| SB7 X1 01000 M00S00729.restart +++| SX0 X0+1 INCREMENT BLOCK COUNT 01001 M00S00730.restart +++| JP RDA1 LOOP 01002 M00S00731.restart +++| 01003 M00S00732.restart +++| RDAA CON 0 NUMBER OF WORDS NEED TO READ 01004 M00S00733.restart +++| SMD SPACE 4 01005 M00S00734.restart +++|** SMD - SET FILE ACCESS MODE. 01006 M00S00735.restart +++|*
| Line S00736 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01007 M01S00736.ns21000 ---|* ENTRY (X5) = FNT.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01008 M01S00015.ns21000 +++|* ENTRY (X2) = WORD 2 OF TABLE ENTRY (REFORMATTED FST). 01009 M00S00737.restart +++|* 01010 M00S00738.restart +++|* EXIT (MODA) = MODE. 01011 M00S00739.restart +++|*
| Line S00740 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01012 M01S00740.ns21000 ---|* CALLS NONE. 01013 M01S00741.ns21000 ---|* 01014 M01S00742.ns21000 ---|* USES A - 3, 6. 01015 M01S00743.ns21000 ---|* B - NONE. 01016 M01S00744.ns21000 ---|* X - 1, 3, 4, 5, 6.
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01017 M01S00016.ns21000 +++|* USES X - 1, 2, 3, 4, 6. 01018 M01S00017.ns21000 +++|* A - 3, 6. 01019 M00S00745.restart +++| 01020 M00S00746.restart +++| 01021 M00S00747.restart +++| SMD SUBR ENTRY/EXIT
| Line S00748 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01022 M01S00748.ns21000 ---| LX5 42 01023 M01S00749.ns21000 ---| MX4 5 01024 M01S00750.ns21000 ---| SX6 B1+B1 CLEAR TAPE BIT 01025 M01S00751.ns21000 ---| BX6 -X6*X5
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01026 M01S00018.ns21000 +++| LX2 59-7 01027 M01S00019.ns21000 +++| MX4 4 01028 M00S00752.restart +++| SA3 MODE SET TABLE ADDRESS
| Line S00753 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01029 M01S00753.ns21000 ---| SMD1 BX1 X3-X6
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01030 M01S00020.ns21000 +++| SMD1 BX1 X3-X2 01031 M00S00754.restart +++| BX1 X4*X1 01032 M00S00755.restart +++| ZR X1,SMD2 IF FOUND 01033 M00S00756.restart +++| SA3 A3+B1 01034 M00S00757.restart +++| NZ X3,SMD1 LOOP 01035 M00S00758.restart +++| SX6 PTRD SET READ MODE DEFAULT 01036 M00S00759.restart +++| SA6 MODA 01037 M00S00760.restart +++| EQ SMDX RETURN 01038 M00S00761.restart +++| 01039 M00S00762.restart +++| SMD2 SX6 X3 01040 M00S00763.restart +++| SA6 MODA 01041 M00S00764.restart +++| EQ SMDX RETURN 01042 M00S00765.restart +++| 01043 M00S00766.restart +++| 01044 M00S00767.restart +++| MODE BSS 0 MODE TABLE
| Line S00768 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01045 M01S00768.ns21000 ---| VFD 6/0,54/PTWR WRITE 01046 M01S00769.ns21000 ---| VFD 6/1,54/PTRD READ 01047 M01S00770.ns21000 ---| VFD 6/14B,54/PTAP APPEND 01048 M01S00771.ns21000 ---| VFD 6/20B,54/PTEX EXECUTE 01049 M01S00772.ns21000 ---| VFD 6/10B,54/PTMD MODIFY 01050 M01S00773.ns21000 ---| VFD 6/31B,54/PTRM READ/MODIFY 01051 M01S00774.ns21000 ---| VFD 6/15B,54/PTRA READ APPEND
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01052 M01S00021.ns21000 +++| VFD 4/1,56/PTWR WRITE 01053 M01S00022.ns21000 +++| VFD 4/0,56/PTRD READ 01054 M01S00023.ns21000 +++| VFD 4/3,56/PTAP APPEND 01055 M01S00024.ns21000 +++| VFD 4/4,56/PTEX EXECUTE 01056 M01S00025.ns21000 +++| VFD 4/2,56/PTMD MODIFY 01057 M01S00026.ns21000 +++| VFD 4/5,56/PTRM READ/MODIFY 01058 M01S00027.ns21000 +++| VFD 4/6,56/PTRA READ/APPEND 01059 M01S00028.ns21000 +++| VFD 4/7,56/PTUP UPDATE 01060 M01S00029.ns21000 +++| VFD 4/10B,56/PTRU READ/UPDATE 01061 M00S00775.restart +++| CON 0 01062 M00S00776.restart +++| 01063 M00S00777.restart +++| MODA CON 0 FILE ACCESS MODE 01064 M00S00778.restart +++| TITLE COMMON DECKS AND BUFFERS. 01065 M00S00779.restart +++| COM SPACE 4 01066 M00S00780.restart +++|* COMMON DECKS. 01067 M00S00781.restart +++| 01068 M00S00782.restart +++| 01069 M00S00783.restart +++|*CALL COMCARG 01070 M00S00784.restart +++|*CALL COMCCDD 01071 M00S00785.restart +++|*CALL COMCCIO 01072 M00S00786.restart +++|*CALL COMCCPM 01073 M00S00787.restart +++|*CALL COMCDXB 01074 M00S00788.restart +++|*CALL COMCEDT 01075 M00S00789.restart +++|*CALL COMCLFM 01076 M00S00790.restart +++|*CALL COMCPFM 01077 M00S00791.restart +++|*CALL COMCRDC 01078 M00S00792.restart +++|*CALL COMCRDO 01079 M00S00793.restart +++|*CALL COMCRDW 01080 M00S00794.restart +++|*CALL COMCSFN
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 01081 M01S00004.resta2 +++|*CALL COMCSNM 01082 M00S00795.restart +++|*CALL COMCSYS 01083 M00S00796.restart +++|*CALL COMCWTO 01084 M00S00797.restart +++|*CALL COMCWTW 01085 M00S00798.restart +++| SPACE 4 01086 M00S00799.restart +++| TITLE PRESET. 01087 M00S00800.restart +++| PRS SPACE 4 01088 M00S00801.restart +++|** PRS PRESET ROUTINE. 01089 M00S00802.restart +++|* 01090 M00S00803.restart +++|* ENTRY NONE. 01091 M00S00804.restart +++|* 01092 M00S00805.restart +++|* EXIT FILE POSITIONED TO CORRECT CHECKPOINT. 01093 M00S00806.restart +++|* 01094 M00S00807.restart +++|* CALLS ARG,DXB. 01095 M00S00808.restart +++|* 01096 M00S00809.restart +++|* USES A - 1,2,4,5,6,7. 01097 M00S00810.restart +++|* B - 2,4,5. 01098 M00S00811.restart +++|* X - ALL. 01099 M00S00812.restart +++| 01100 M00S00813.restart +++| 01101 M00S00814.restart +++| PRS SUBR ENTRY/EXIT 01102 M00S00815.restart +++| SB1 1 01103 M00S00816.restart +++| 01104 M00S00817.restart +++|* PROCESS ARGUMENTS. 01105 M00S00818.restart +++| 01106 M00S00819.restart +++| SA1 ACTR 01107 M00S00820.restart +++| SB2 X1 01108 M00S00821.restart +++| ZR B2,PRS7 IF NO ARGUMENTS 01109 M00S00822.restart +++| SA1 ARGR 01110 M00S00823.restart +++| ZR X1,PRS7 IF ERROR 01111 M00S00824.restart +++| SX3 3 01112 M00S00825.restart +++| BX6 X1+X3 01113 M00S00826.restart +++| SB2 B2-B1 01114 M00S00827.restart +++| SA6 I SET FILE NAME 01115 M00S00828.restart +++| REWIND I 01116 M00S00829.restart +++| ZR B2,PRS2 IF END OF ARGUMENTS 01117 M00S00830.restart +++| SA1 ARGR+1 01118 M00S00831.restart +++| ZR X1,PRS1 IF NOT SET 01119 M00S00832.restart +++| BX6 X1 01120 M00S00833.restart +++| SA6 CKNO SET CHECKPOINT NUMBER 01121 M00S00834.restart +++| PRS1 SB4 B2-B1 01122 M00S00835.restart +++| ZR B4,PRS2 IF END OF ARGUMENTS 01123 M00S00836.restart +++| SA4 A1+B1 01124 M00S00837.restart +++| SB5 TARG 01125 M00S00838.restart +++| RJ ARG 01126 M00S00839.restart +++| 01127 M00S00840.restart +++| NZ X1,PRS7 IF ERROR IN ARGUMENT 01128 M00S00841.restart +++| PRS2 SA5 CKNO GET CHECKPOINT NUMBER 01129 M00S00842.restart +++| SX4 X5-1 01130 M00S00843.restart +++| ZR X4,PRS3 IF DEFAULT SET 01131 M00S00844.restart +++| SA4 ASK 01132 M00S00845.restart +++| BX4 X4-X5 01133 M00S00846.restart +++| ZR X4,PRS3 IF LAST CHECKPOINT DESIRED 01134 M00S00847.restart +++| SB7 B1 CONVERT TO BINARY ASSUMING DECIMAL NUMBER 01135 M00S00848.restart +++| RJ DXB 01136 M00S00849.restart +++| NZ X4,PRS7 IF ERROR 01137 M00S00850.restart +++| SA6 CKNO SET NO. OF CHECKPOINT DESIRED 01138 M00S00851.restart +++| 01139 M00S00852.restart +++|* POSITION FILE TO CHECKPOINT RECORD. 01140 M00S00853.restart +++| 01141 M00S00854.restart +++| PRS3 READSKP I,,R SKIP TO END OF RECORD 01142 M00S00855.restart +++| SA1 X2 CHECK STATUS 01143 M00S00856.restart +++| LX1 59-3 01144 M00S00857.restart +++| NG X1,CPY4 IF EOF/EOI 01145 M00S00858.restart +++| SA1 IBUF LOOK AT FIRST WORD OF BUFFER 01146 M00S00859.restart +++| SX1 X1-10002B CHECK FOR HEADER WORD 01147 M00S00860.restart +++| NZ X1,PRS3 IF NOT HEADER 01148 M00S00861.restart +++| BKSP I,R 01149 M00S00862.restart +++| PRS4 SA1 I+1 SET IN = OUT = FIRST 01150 M00S00863.restart +++| SX6 X1 01151 M00S00864.restart +++| SA6 A1+B1 01152 M00S00865.restart +++| SA6 A6+B1 01153 M00S00866.restart +++| 01154 M00S00867.restart +++|* SEARCH FOR CORRECT CHECKPOINT. 01155 M00S00868.restart +++| 01156 M00S00869.restart +++| READ I 01157 M00S00870.restart +++| READO I READ HEADER WORD 1 01158 M00S00871.restart +++| NZ X1,CPY4 IF EOR OR EOF 01159 M00S00872.restart +++| ZR X6,CPY4 IF NO DATA 01160 M00S00873.restart +++| SX1 X6-10002B 01161 M00S00874.restart +++| NZ X1,CPY4 IF WRONG DATA TYPE 01162 M00S00875.restart +++| READO I READ HEADER WORD 2 01163 M00S00876.restart +++| MX0 -12 01164 M00S00877.restart +++| BX3 -X0*X6 GET NO. OF THIS CHECKPOINT 01165 M00S00878.restart +++| SA2 CKNO 01166 M00S00879.restart +++| SA4 ASK 01167 M00S00880.restart +++| BX4 X4-X2 01168 M00S00881.restart +++| IX1 X2-X3 01169 M00S00882.restart +++| ZR X4,PRS5 IF LAST CHECKPOINT WANTED 01170 M00S00883.restart +++| NG X1,CPY4 IF ERROR 01171 M00S00884.restart +++| ZR X1,PRS6 IF CORRECT CHECKPOINT NUMBER 01172 M00S00885.restart +++| 01173 M00S00886.restart +++|* CHECK CHECKPOINT CODE WORD. 01174 M00S00887.restart +++| 01175 M00S00888.restart +++| PRS5 SKIPF I,1,R SKIP RECORD 01176 M00S00889.restart +++| SA1 I+1 SET IN = OUT = FIRST 01177 M00S00890.restart +++| SX6 X1 01178 M00S00891.restart +++| SA6 A1+B1 01179 M00S00892.restart +++| SA6 A6+B1 01180 M00S00893.restart +++| READ I 01181 M00S00894.restart +++| READO I READ HEADER WORD 1 01182 M00S00895.restart +++| PL X6,PRS4 IF NOT LAST CHECKPOINT 01183 M00S00896.restart +++| SA2 CKNO 01184 M00S00897.restart +++| SA4 ASK 01185 M00S00898.restart +++| BX4 X2-X4 01186 M00S00899.restart +++| NZ X4,PRS8 IF ERROR 01187 M00S00900.restart +++| 01188 M00S00901.restart +++|* POSITION TO START OF CHECKPOINT RECORD. 01189 M00S00902.restart +++| 01190 M00S00903.restart +++| SKIPB I,2 POSITION FILE 01191 M00S00904.restart +++| SA1 I+1 SET IN = OUT = FIRST 01192 M00S00905.restart +++| SX6 X1 01193 M00S00906.restart +++| SA6 A1+B1 01194 M00S00907.restart +++| SA6 A6+B1 01195 M00S00908.restart +++| READ I 01196 M00S00909.restart +++| READO I READ HEADER WORD 1 01197 M00S00910.restart +++| READO I READ HEADER WORD 2 01198 M00S00911.restart +++| MX0 -12 01199 M00S00912.restart +++| BX7 -X0*X6 01200 M00S00913.restart +++| SA7 CKNO SET CHECKPOINT NUMBER 01201 M00S00914.restart +++| 01202 M00S00915.restart +++|* GET CHECKPOINT DATE AND TIME. 01203 M00S00916.restart +++| 01204 M00S00917.restart +++| PRS6 SA6 HDRB SAVE HEADER WORD 01205 M00S00918.restart +++| AX6 18 01206 M00S00919.restart +++| BX5 X6 01207 M00S00920.restart +++| SX1 X6 01208 M00S00921.restart +++| ETIME X1 CONVERT TIME
| Line S00922 Modification History | |
|---|---|
M01 (Removed by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 01209 M01S00922.resta2 ---| SA6 MSGC+1
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 01210 M01S00005.resta2 +++| SB2 1R) 01211 M01S00006.resta2 +++| SB5 MSGB 01212 M01S00007.resta2 +++| BX1 X6 01213 M01S00008.resta2 +++| RJ SNM SET TIME IN MESSAGE 01214 M00S00923.restart +++| AX5 18 01215 M00S00924.restart +++| SX1 X5 01216 M00S00925.restart +++| EDATE X1 CONVERT DATE
| Line S00926 Modification History | |
|---|---|
M01 (Removed by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 01217 M01S00926.resta2 ---| SA6 MSGC
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 01218 M01S00009.resta2 +++| SB2 1R( 01219 M01S00010.resta2 +++| SB5 MSGB 01220 M01S00011.resta2 +++| BX1 X6 01221 M01S00012.resta2 +++| RJ SNM SET DATE IN MESSAGE 01222 M00S00927.restart +++| READO I READ HEADER WORD 3
| Line S00928 Modification History | |
|---|---|
M01 (Removed by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 01223 M01S00928.resta2 ---| SA1 MSGB 01224 M01S00929.resta2 ---| MX0 42 01225 M01S00930.resta2 ---| BX6 X0*X6 GET JOBNAME 01226 M01S00931.resta2 ---| BX0 -X0*X1 01227 M01S00932.resta2 ---| BX6 X0+X6 01228 M01S00933.resta2 ---| LX6 -6 01229 M01S00934.resta2 ---| SA6 A1
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | resta2 |
Seq # *Modification Id* Act ----------------------------+ 01230 M01S00013.resta2 +++| SB2 1R+ 01231 M01S00014.resta2 +++| SB5 MSGB 01232 M01S00015.resta2 +++| BX1 X6 01233 M01S00016.resta2 +++| RJ SNM SET JSN IN MESSAGE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01234 M01S00004.252l678 +++| 01235 M01S00005.252l678 +++|* GET USER EM SHIFT COUNT. 01236 M01S00006.252l678 +++| 01237 M01S00007.252l678 +++| SYSTEM RSB,R,PRSA 01238 M01S00008.252l678 +++| SA1 UESC 01239 M01S00009.252l678 +++| MX0 -3 01240 M01S00010.252l678 +++| LX1 0-33 01241 M01S00011.252l678 +++| BX6 -X0*X1 01242 M01S00012.252l678 +++| SA6 A1 01243 M00S00935.restart +++| EQ PRSX RETURN 01244 M00S00936.restart +++| 01245 M00S00937.restart +++| PRS7 MESSAGE (=C* ERROR IN ARGUMENTS.*) 01246 M00S00938.restart +++| EQ CPY5 01247 M00S00939.restart +++| 01248 M00S00940.restart +++| PRS8 MESSAGE (=C* CHECKPOINT NOT FOUND.*) 01249 M00S00941.restart +++| EQ CPY5 01250 M00S00942.restart +++| 01251 M00S00943.restart +++| ASK DATA 1L*
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01252 M01S00013.252l678 +++| PRSA VFD 24/1,18/MEFL,18/UESC 01253 M01S00014.252l678 +++| UESC VFD 1/1,59/0 USER EXTENDED MEMORY SHIFT COUNT 01254 M00S00944.restart +++| 01255 M00S00945.restart +++| TARG BSS 0 01256 M00S00946.restart +++| RI ARG =-1,RIFL 01257 M00S00947.restart +++| NA ARG =-1,NAFL 01258 M00S00948.restart +++| FC ARG =-1,FCFL 01259 M00S00949.restart +++| CON 0 01260 M00S00950.restart +++| 01261 M00S00951.restart +++|* BUFFER ASSIGNMENTS 01262 M00S00952.restart +++| 01263 M00S00953.restart +++| USE BUFFERS 01264 M00S00954.restart +++| BUF EQU * 01265 M00S00955.restart +++| IBUF EQU BUF+BUFL 01266 M00S00956.restart +++| OBUF EQU IBUF+IBUFL 01267 M00S00957.restart +++| SBUF EQU OBUF+OBUFL 01268 M00S00958.restart +++| TBUF EQU SBUF+SBUFL 01269 M00S00959.restart +++| RFL= EQU TBUF+TBUFL+4 01270 M00S00960.restart +++| 01271 M00S00961.restart +++| END
cdc/nos2.source/opl.opl871/deck/restart.txt · Last modified: by 127.0.0.1