Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.restart +++| IDENT RESTART,FETS
00002 M01S00002.restart +++| ABS
00003 M01S00003.restart +++| SST
00004 M01S00004.restart +++| SYSCOM B1
00005 M01S00005.restart +++| ENTRY RESTART
00006 M01S00001.resta7 +++| ENTRY LIB=
00007 M01S00006.restart +++| ENTRY DMP=
00008 M01S00007.restart +++| ENTRY RFL=
00009 M01S00008.restart +++| ENTRY SSJ=
00010 M01S00009.restart +++| TITLE RESTART - RESTART CHECKPOINTED JOB.
00011 M01S00010.restart +++|*COMMENT RESTART - RESTART CHECKPOINTED JOB.
Line S00011 Modification History
M01 (Added by) restart
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00012 M02S00011.281l803 ---| COMMENT COPYRIGHT CONTROL DATE CORP. 1973.
00013 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00014 M01S00012.restart +++| SPACE 4
00015 M01S00013.restart +++|*** RESTART - RESTARTS A JOB FROM INFORMATION ON A
00016 M01S00014.restart +++|* CHECKPOINT FILE.
00017 M01S00015.restart +++|* V.A. WALSH. 72/06/01.
00018 M01S00016.restart +++|* K.R. COMBS. 73/06/01.
00019 M01S00017.restart +++|* M.S. CARTER. 76/06/01.
00020 M01S00018.restart +++| SPACE 4
00021 M01S00019.restart +++|*** CONTROL CARD FORMAT -
00022 M01S00020.restart +++|*
00023 M01S00021.restart +++|* RESTART(FILE,N,RI,NA,FC)
00024 M01S00022.restart +++|* *FILE* = FILENAME OF CHECKPOINT FILE.
00025 M01S00023.restart +++|* *N* = NUMBER OF CHECKPOINT TO USE. IF N=*, THE
00026 M01S00024.restart +++|* LAST CHECKPOINT ON THE FILE WILL BE USED.
00027 M01S00025.restart +++|* IF NOT PRESENT, SYSTEM ASSUMES 1.
00028 M01S00026.restart +++|* *RI* = REPLACE INPUT OPTION. IF PRESENT, THE INPUT
00029 M01S00027.restart +++|* FILE OF THE CHECKPOINT JOB WONT BE RESTORED.
00030 M01S00028.restart +++|* *NA* = NO ABORT OPTION. IF PRESENT, RESTART WILL
00031 M01S00029.restart +++|* NOT ABORT IF ALL FILES NEEDED ARE NOT PRESENT.
00032 M01S00030.restart +++|* IF A PARITY ERROR IS ENCOUNTERED, CHECKPOINT
00033 M01S00031.restart +++|* N-1 WILL BE RESTARTED IF AVAILABLE.
00034 M01S00032.restart +++|* *FC* = FILE CHECK OPTION. IF SET, RESTART WILL
00035 M01S00033.restart +++|* CHECK IF FILE IS PRESENT AND WILL NOT
00036 M01S00034.restart +++|* REPLACE THE FILE IF IT IS THERE ALREADY.
00037 M01S00035.restart +++| SPACE 4
00038 M01S00036.restart +++|*** DAYFILE MESSAGES
00039 M01S00037.restart +++|*
00040 M01S00038.restart +++|* * CHECKPOINT NOT FOUND.* = SPECIFIED CHECKPOINT NOT FOUND.
00041 M01S00039.restart +++|*
00042 M01S00040.restart +++|* * CHECKPOINT FILE ERROR.* = ILLEGAL FORMAT ON FILE.
00043 M01S00041.restart +++|*
00044 M01S00042.restart +++|* * ERROR IN ARGUMENTS.* = RESTART PARAMETERS INCORRECT.
00045 M01S00043.restart +++|*
00046 M01S00044.restart +++|* * FILENAM NOT FOUND.* = FILE COULD NOT BE FOUND OR RETRIEVED.
00047 M01S00045.restart +++|*
00048 M01S00046.restart +++|* * FILE ERROR FILENAM.* = ILLEGAL ADDRESS ON FILE *FILENAM*.
00049 M01S00047.restart +++|*
Line S00048 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
00050 M02S00048.resta2 ---|* * JOBNAME RESTARTED FROM YY/MM/DD HH.MM.SS* = JOB WAS
00051 M01S00001.resta2 +++|* * JSNN RESTARTED FROM YY/MM/DD. HH.MM.SS.* = JOB WAS
00052 M01S00049.restart +++|* RESTARTED FROM CHECKPOINT OF GIVEN DATE.
00053 M01S00050.restart +++|*
00054 M01S00051.restart +++|* * PARITY ERROR - RESTARTED FROM NN.* = JOB WAS RESTARTED
00055 M01S00052.restart +++|* CHECKPOINT NN WHEN ERROR AS ENCOUNTERED.
00056 M01S00053.restart +++| SPACE 4
00057 M01S00054.restart +++|*** CHECKPOINT FILE FORMAT.
00058 M01S00055.restart +++|*
00059 M01S00056.restart +++|*T 60/10002B HEADER
Figure
0 29 10002B HEADER 30 59 10002B HEADER
00060 M01S00057.restart +++|*T 6/0,18/DATE,18/TIME,6/CK,12/CKP NO.
Figure
0 11 12 17 18 29 CKP NO. CK TIME 30 35 36 53 54 59 TIME DATE 0
Line S00058 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
00061 M02S00058.resta2 ---|*T 42/JOBNAME,18/0
Figure
0 17 18 29 0 JOBNAME 30 59 JOBNAME
00062 M01S00002.resta2 +++|*T 24/JSN,36/0
00063 M01S00059.restart +++|*
00064 M01S00060.restart +++|*T 60/20NNNB FILE TABLE
Figure
0 29 20NNNB FILE TABLE 30 59 20NNNB FILE TABLE
00065 M01S00061.restart +++|*
Line S00062 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00066 M02S00062.ns21000 ---|*T 42/FILENAM,3/M,2/I,1/W,6/FILE TYPE,6/FILE STATUS
Figure
0 5 6 11 12 13 14 15 17 18 29 FILE STATUS FILE TYPE W I M FILENAM 30 59 FILENAM
Line S00063 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00067 M02S00063.ns21000 ---|*T 24/FL,24/RB,3/COPY TYPE,5/,3/RS,1/L
Figure
0 1 3 4 8 9 11 12 29 L RS COPY TYPE RB 30 35 36 59 RB FL
00068 M01S00001.ns21000 +++|*T 42/FILENAM,3/,2/I,1/W,6/FILE TYPE,6/FILE STATUS
Figure
0 5 6 11 12 13 14 15 17 18 29 FILE STATUS FILE TYPE W I FILENAM 30 59 FILENAM
00069 M01S00002.ns21000 +++|*T 24/FL,24/RB,3/COPY TYPE,1/,4/M,3/RS,1/L
Figure
0 1 3 4 7 8 9 11 12 29 L RS M COPY TYPE RB 30 35 36 59 RB FL
00070 M01S00064.restart +++|* .
00071 M01S00065.restart +++|* .
00072 M01S00066.restart +++|* .
00073 M01S00067.restart +++|*T 60/0 END OF TABLE
Figure
0 29 0 END OF TABLE 30 59 0 END OF TABLE
00074 M01S00068.restart +++|*
00075 M01S00069.restart +++|*T 60/P30NNNB FILE COPIES
Figure
0 29 P30NNNB FILE COPIES 30 59 P30NNNB FILE COPIES
00076 M01S00070.restart +++|*
00077 M01S00071.restart +++|* FILE 1
00078 M01S00072.restart +++|*
00079 M01S00073.restart +++|*T 60/P31NNNB EOR FLAG
Figure
0 29 P31NNNB EOR FLAG 30 59 P31NNNB EOR FLAG
00080 M01S00074.restart +++|*
00081 M01S00075.restart +++|*T 60/P33NNNB EOI FLAG
Figure
0 29 P33NNNB EOI FLAG 30 59 P33NNNB EOI FLAG
00082 M01S00076.restart +++|*
00083 M01S00077.restart +++|* FILE 2
00084 M01S00078.restart +++|*
00085 M01S00079.restart +++|*T 60/P30NNNB DATA
Figure
0 29 P30NNNB DATA 30 59 P30NNNB DATA
00086 M01S00080.restart +++|*
00087 M01S00081.restart +++|*T 60/P32000B EOF FLAG
Figure
0 29 P32000B EOF FLAG 30 59 P32000B EOF FLAG
00088 M01S00082.restart +++|*
00089 M01S00083.restart +++|*T 60/P33000B EOI FLAG
Figure
0 29 P33000B EOI FLAG 30 59 P33000B EOI FLAG
00090 M01S00084.restart +++|* .
00091 M01S00085.restart +++|* .
00092 M01S00086.restart +++|* .
00093 M01S00087.restart +++|* FILE N
00094 M01S00088.restart +++|*
00095 M01S00089.restart +++|*T 60/P30NNNB DATA
Figure
0 29 P30NNNB DATA 30 59 P30NNNB DATA
00096 M01S00090.restart +++|*
00097 M01S00091.restart +++|*T 60/P33000B EOI FLAG
Figure
0 29 P33000B EOI FLAG 30 59 P33000B EOI FLAG
00098 M01S00092.restart +++|*
00099 M01S00093.restart +++|*T 60/40NNNB DUMP FILE
Figure
0 29 40NNNB DUMP FILE 30 59 40NNNB DUMP FILE
00100 M01S00094.restart +++|*
00101 M01S00095.restart +++|* CONTENTS OF DM*
00102 M01S00096.restart +++|*
00103 M01S00097.restart +++|*T 60/50000B END OF CHECKPOINT FILE
Figure
0 29 50000B END OF CHECKPOINT FILE 30 59 50000B END OF CHECKPOINT FILE
00104 M01S00098.restart +++|*
00105 M01S00099.restart +++|* EOR
00106 M01S00100.restart +++|*
00107 M01S00101.restart +++|* CHECKPOINT CONTROL WORD
00108 M01S00102.restart +++|*T 6/0,18/DATE,18/TIME,6/CK,12/CKP NO.
Figure
0 11 12 17 18 29 CKP NO. CK TIME 30 35 36 53 54 59 TIME DATE 0
00109 M01S00103.restart +++|*
00110 M01S00104.restart +++|* EOR
00111 M01S00105.restart +++|*
00112 M01S00106.restart +++|*
00113 M01S00107.restart +++|*
00114 M01S00108.restart +++|* P - PARITY BIT IF CODED FILE.
00115 M01S00109.restart +++|* CK - CHECKPOINT MODE
00116 M01S00110.restart +++|* NNN - NUMBER OF WORDS IN NEXT BLOCK.
00117 M01S00111.restart +++|* M - MODE OF USE ALLOWED.
00118 M01S00112.restart +++|* I - TYPE OF FILE.
00119 M01S00113.restart +++|* W - SET IF WRITE LOCKOUT.
00120 M01S00114.restart +++|* FL - FILE LENGTH (0 IF NOT MS)
00121 M01S00115.restart +++|* RB - RANDOM INDEX (IF MS).
00122 M01S00116.restart +++|* BLOCK COUNT (IF TAPE).
00123 M01S00117.restart +++|* RS - READ STATUS.
00124 M01S00118.restart +++|* L - SET IF LAST OPERATION WAS WRITE.
00125 M01S00119.restart +++| SPACE 4
00126 M01S00120.restart +++|* ASSEMBLY CONSTANTS
00127 M01S00121.restart +++|
00128 M01S00122.restart +++| BUFL EQU 1001B
00129 M01S00123.restart +++| IBUFL EQU 2001B
Line S00124 Modification History
M01 (Added by) restart
M02 (Updated by) ns2039
Seq # *Modification Id* Act
----------------------------+
00130 M02S00124.ns2039 ---| OBUFL EQU 2001B
00131 M01S00001.ns2039 +++| OBUFL EQU 4011B
00132 M01S00125.restart +++| SBUFL EQU 401B
00133 M01S00126.restart +++| TBUFL EQU 1003B LENGTH OF TAPE BUFFER
00134 M01S00002.resta7 +++| LIB= EQU 0 READ EXECUTE-ONLY FILES
00135 M01S00127.restart +++| SPACE 4
00136 M01S00128.restart +++|** READX - REDEFINE MACRO TO READ CONTROL WORDS.
00137 M01S00129.restart +++|*
00138 M01S00130.restart +++|* FORMAT READX F,S,N
00139 M01S00131.restart +++|*
00140 M01S00132.restart +++|* WHERE F = FET ADDRESS.
00141 M01S00133.restart +++|* S = BUFFER ADDRESS.
00142 M01S00134.restart +++|* N = LENGTH OF BUFFER IN WORDS.
00143 M01S00135.restart +++|
00144 M01S00136.restart +++|
00145 M01S00137.restart +++| READX MACRO F,S,N
00146 M01S00138.restart +++| R= B6,S
00147 M01S00139.restart +++| R= B7,N
00148 M01S00140.restart +++| R= X2,F
00149 M01S00141.restart +++| RJ RDA
00150 M01S00142.restart +++| ENDM
00151 M01S00143.restart +++|
00152 M01S00144.restart +++|
00153 M01S00145.restart +++|*CALL COMCMAC
00154 M01S00001.ns2081 +++|*CALL COMCCMD
00155 M01S00002.ns2039 +++|*CALL COMSLFM
00156 M01S00003.ns2039 +++| QUAL MTX
00157 M01S00004.ns2039 +++|*CALL COMSMTX
00158 M01S00005.ns2039 +++| QUAL *
00159 M01S00146.restart +++|*CALL COMSPFM
Line S00147 Modification History
M01 (Added by) restart
M02 (Updated by) ns2685
Seq # *Modification Id* Act
----------------------------+
00160 M02S00147.ns2685 ---|*CALL COMSSFM
00161 M01S00148.restart +++|*CALL COMSSSJ
00162 M01S00149.restart +++| TITLE STORAGE ASSIGNMENT.
00163 M01S00150.restart +++| ORG 101B
00164 M01S00151.restart +++| FETS BSS 0
00165 M01S00152.restart +++| I BSS 0
00166 M01S00153.restart +++| CCCCCCX FILEB IBUF,IBUFL,EPR
00167 M01S00154.restart +++| BSS 2
00168 M01S00155.restart +++| O BSS 0
00169 M01S00156.restart +++| CCCCCCY FILEB OBUF,OBUFL,EPR,(FET=12)
00170 M01S00157.restart +++| P BSS 0
00171 M01S00158.restart +++| CCCCCCZ RFILEB 2,1,(FET=12),EPR
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
0 1 17 18 29 P. 0 FILENAM 30 59 FILENAM
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 M01S00159.restart +++| SPACE 4
00192 M01S00160.restart +++|* PARAMETER FLAG LOCATIONS.
00193 M01S00161.restart +++|
00194 M01S00162.restart +++| CKNO CON 1 CHECKPOINT NUMBER
00195 M01S00163.restart +++| RIFL BSSZ 1 REPLACE INPUT FLAG
00196 M01S00164.restart +++| NAFL BSSZ 1 NO ABORT FLAG
00197 M01S00165.restart +++| FCFL BSSZ 1 FILE CHECK FLAG
00198 M01S00166.restart +++| DTYP BSSZ 1 DATA TYPE
00199 M01S00167.restart +++| HDRB BSSZ 1 HEADER STORAGE WORD
00200 M01S00168.restart +++| FIID BSS 1 DATA FILE ID
00201 M01S00169.restart +++|
00202 M01S00170.restart +++|
00203 M01S00171.restart +++|* SPECIAL ENTRY POINTS.
00204 M01S00172.restart +++|
00205 M01S00173.restart +++| DMP= EQU 450000B CREATE EMPTY DUMP FILE
00206 M01S00174.restart +++| SSJ= EQU SSJD SSJ= DROP FILES OPTION
00207 M01S00175.restart +++| TITLE MAIN PROGRAM.
00208 M01S00176.restart +++|** RESTART - MAIN LOOP.
00209 M01S00177.restart +++|
00210 M01S00178.restart +++|
00211 M01S00179.restart +++| RESTART RJ PRS PRESET PROGRAM
Line S00180 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00212 M02S00180.ns2081 ---|
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 M01S00181.restart +++| RJ PRT PROCESS FILE TABLE
00218 M01S00182.restart +++|
00219 M01S00183.restart +++| SA1 =C/DM*/ SET UP DM* FILE
00220 M01S00184.restart +++| SX3 3
00221 M01S00185.restart +++| BX6 X1+X3
00222 M01S00186.restart +++| SA6 O
00223 M01S00187.restart +++| REWIND O,R
00224 M01S00188.restart +++| READO I
00225 M01S00189.restart +++| MX0 -9
00226 M01S00190.restart +++| BX0 -X0*X6 GET BLOCK LENGTH
00227 M01S00191.restart +++| MX3 -3
00228 M01S00192.restart +++| AX6 9
00229 M01S00193.restart +++| BX6 -X3*X6 GET BLOCK TYPE FLAG
00230 M01S00194.restart +++| SA0 X6 SAVE BLOCK TYPE FLAG
00231 M01S00195.restart +++| READW I,BUF,X0
Line S00196 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00232 M02S00196.ns2081 ---| SA1 BUF+2
00233 M01S00025.ns2081 +++| SX5 BUF+2
00234 M01S00026.ns2081 +++| RJ IWB INSURE WORD IN BUFFER
00235 M01S00027.ns2081 +++| SA1 X5+
00236 M01S00197.restart +++| MX6 30B
00237 M01S00198.restart +++| BX6 X6*X1
00238 M01S00199.restart +++| AX6 6
00239 M01S00200.restart +++| SA6 MEMR
00240 M01S00201.restart +++| AX6 30
00241 M01S00202.restart +++| SX6 X6-PRS
Line S00203 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00242 M02S00203.ns2081 ---| PL X6,RST0 IF FIELD LENGTH BIG ENOUGH FOR RESTART
00243 M01S00028.ns2081 +++| PL X6,RST1 IF FIELD LENGTH BIG ENOUGH FOR RESTART
00244 M01S00204.restart +++| SX6 PRS
00245 M01S00205.restart +++| LX6 30
00246 M01S00206.restart +++| SA6 A6
Line S00207 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00247 M02S00207.ns2081 ---| RST0 SA1 BUF+ECSW GET ECS FL/1000B
00248 M01S00029.ns2081 +++| RST1 SX5 X5-2+ECSW
00249 M01S00030.ns2081 +++| RJ IWB INSURE WORD IN BUFFER
00250 M01S00001.252l678 +++| SA2 UESC
Line S00031 Modification History
M01 (Added by) ns2081
M02 (Updated by) ns2184
Seq # *Modification Id* Act
----------------------------+
00251 M02S00031.ns2184 ---| SA1 X5 GET ECS FL/1000B
00252 M01S00001.ns2184 +++| SA1 X5 GET ECS FL/*UEBS*
00253 M01S00002.252l678 +++| SB2 X2+39
00254 M01S00208.restart +++| MX6 -12
00255 M01S00209.restart +++| BX6 -X6*X1
Line S00210 Modification History
M01 (Added by) restart
M02 (Updated by) ns2184
Seq # *Modification Id* Act
----------------------------+
00256 M02S00210.ns2184 ---| LX6 39 FORM ECS FL FOR MEMORY MACRO
Line S00002 Modification History
M01 (Added by) ns2184
M02 (Updated by) 252l678
Seq # *Modification Id* Act
----------------------------+
00257 M02S00002.252l678 ---| LX6 39+UESF FORM ECS FL FOR THE MEMORY MACRO
00258 M01S00003.252l678 +++| LX6 B2 FORM EM FL FOR MEMORY MACRO
00259 M01S00211.restart +++| SA6 MEME STORE ECS FIELD LENGTH
Line S00212 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00260 M02S00212.ns2081 ---| SX6 4 SET UP RETURN JUMP
Line S00213 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00261 M02S00213.ns2081 ---| LX6 54
Line S00214 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00262 M02S00214.ns2081 ---| SX1 RST1
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 M01S00215.restart +++| LX1 30
00280 M01S00216.restart +++| BX6 X1+X6
00281 M01S00217.restart +++| SA6 CPY
00282 M01S00218.restart +++| SX6 4 SET START OF (DM*) FILE BLOCK TYPE FLAG
00283 M01S00219.restart +++| SA6 DTYP
00284 M01S00220.restart +++| EQ CPY0.5
Line S00221 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00285 M02S00221.ns2081 ---| RST1 REWIND O,R
00286 M01S00048.ns2081 +++|
00287 M01S00049.ns2081 +++| RST3 REWIND O,R
00288 M01S00222.restart +++|
00289 M01S00223.restart +++|* POSITION FILE IN CASE OF SUBSEQUENT CHECKPOINT
00290 M01S00224.restart +++|
00291 M01S00225.restart +++| READO I GET TO EOR
00292 M01S00226.restart +++| SA1 HDRB GET HEADER WORD
00293 M01S00227.restart +++| BX6 X1
00294 M01S00228.restart +++| MX0 1
00295 M01S00229.restart +++| BX6 -X0*X6 CLEAR TOP BIT
00296 M01S00230.restart +++| BX6 X0+X6 SET TOP BIT TO SHOW LAST CHKPT
00297 M01S00231.restart +++| WRITEO I
00298 M01S00232.restart +++| WRITER I,R
00299 M01S00233.restart +++| BKSP I,R POSITION FOR SUBSEQUENT CHECKPOINT
00300 M01S00234.restart +++|
00301 M01S00235.restart +++| MESSAGE MSGB,,R
Line S00236 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
00302 M02S00236.resta2 ---| MESSAGE MSGC,,R
00303 M01S00237.restart +++|
00304 M01S00238.restart +++| MEMORY CM,MEMR,R GET MEMORY NEEDED FOR RESTARTED JOB
00305 M01S00239.restart +++| MEMORY ECS,MEME,R GET ECS NEEDED FOR RESTARTED JOB
00306 M01S00240.restart +++| RECALL O
Line S00241 Modification History
M01 (Added by) restart
M02 (Updated by) ns2685
Seq # *Modification Id* Act
----------------------------+
00307 M02S00241.ns2685 ---| SYSTEM SFM,R,O,CDRF*100B CHANGE (DM*) FILE TO TYPE *ROFT*
00308 M01S00001.ns2685 +++| LOCK O,R LOCK DM* FILE TO INDICATE RESTART COMPLETE
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 M01S00242.restart +++| ENDRUN
00316 M01S00243.restart +++|
00317 M01S00056.ns2081 +++| RSTA BSS 2 *GETJCI* PARAMETER RETURN BLOCK
00318 M01S00244.restart +++| MEMR BSS 1 NEEDED FL FROM DM* FILE
00319 M01S00245.restart +++| MEME BSS 1 NEEDED ECS FROM EXCHANGE PACKAGE
Line S00246 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
00320 M02S00246.resta2 ---| MSGB DATA C* RESTARTED FROM*
Line S00247 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
00321 M02S00247.resta2 ---| MSGC DATA C* *
00322 M01S00003.resta2 +++| MSGB DATA C* ++++ RESTARTED FROM(((((((((())))))))))*
00323 M01S00248.restart +++| TITLE SUBROUTINES
00324 M01S00249.restart +++| ERP$ SPACE 4
00325 M01S00250.restart +++|** ERP$ - ERROR PROCESSING ROUTINE.
00326 M01S00251.restart +++|*
00327 M01S00252.restart +++|* ENTRY TAPE ERROR.
00328 M01S00253.restart +++|*
00329 M01S00254.restart +++|* EXIT ABORT IF FIRST CHECKPOINT
00330 M01S00255.restart +++|* RESTART RESTART AT PREVIOUS CHECKPOINT.
00331 M01S00256.restart +++|*
00332 M01S00257.restart +++|* CALLS NONE.
00333 M01S00258.restart +++|*
00334 M01S00259.restart +++|* USES A - 2,7.
00335 M01S00260.restart +++|* B - NONE.
00336 M01S00261.restart +++|* X - 2,3,7.
00337 M01S00262.restart +++|
00338 M01S00263.restart +++|
00339 M01S00264.restart +++| ERP$ SA2 NAFL
00340 M01S00265.restart +++| ZR X2,CPY5 IF ABORT SET
00341 M01S00266.restart +++| SA2 CKNO
00342 M01S00267.restart +++| SX7 X2-1
00343 M01S00268.restart +++| ZR X2,CPY5 ABORT
00344 M01S00269.restart +++| SA7 CKNO
00345 M01S00270.restart +++| SA7 MSGE+3
00346 M01S00271.restart +++| SKIPB I,3 POSITION TO N-1
00347 M01S00272.restart +++| SA2 I
00348 M01S00273.restart +++| MX3 -3
00349 M01S00274.restart +++| AX2 3
00350 M01S00275.restart +++| SX2 X2-5
00351 M01S00276.restart +++| BX3 -X3*X2
00352 M01S00277.restart +++| ZR X2,CPY5 ABORT
00353 M01S00278.restart +++| MESSAGE MSGE,,R
00354 M01S00279.restart +++| EQ PRS4 START AGAIN
00355 M01S00280.restart +++|
00356 M01S00281.restart +++| MSGE DATA C* PARITY ERROR - RESTARTED FROM NN.*
Line S00282 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00357 M02S00282.ns2081 ---| CPY SPACE 4
00358 M01S00057.ns2081 +++| CPY SPACE 4,15
00359 M01S00283.restart +++|** CPY - COPY FILE.
00360 M01S00284.restart +++|*
00361 M01S00285.restart +++|* ENTRY FILE NAME SET IN FET I.
00362 M01S00286.restart +++|* (X6) = DATA TYPE.
00363 M01S00287.restart +++|*
00364 M01S00288.restart +++|* EXIT FILE WRITTEN FROM FET O.
00365 M01S00289.restart +++|*
Line S00290 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00366 M02S00290.ns2081 ---|* CALLS NONE.
Line S00291 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00367 M02S00291.ns2081 ---|*
00368 M01S00292.restart +++|* USES A - 0, 1, 2, 3, 4, 6, 7.
00369 M01S00293.restart +++|* X - 0, 1, 2, 3, 4, 6, 7.
00370 M01S00294.restart +++|* B - ALL.
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 M01S00295.restart +++|
00377 M01S00296.restart +++|
00378 M01S00297.restart +++| CPY SUBR ENTRY/EXIT
00379 M01S00298.restart +++| SA6 DTYP SAVE DATA TYPE
00380 M01S00299.restart +++| CPY0 READO I
00381 M01S00300.restart +++| MX0 -9
00382 M01S00301.restart +++| BX0 -X0*X6 GET BLOCK LENGTH
00383 M01S00302.restart +++| SA1 DTYP CHECK FOR VALID BLOCK TYPE
00384 M01S00303.restart +++| MX3 -3
00385 M01S00304.restart +++| AX6 9
00386 M01S00305.restart +++| BX4 -X3*X6 GET BLOCK TYPE FLAG
00387 M01S00306.restart +++| AX6 3
00388 M01S00307.restart +++| SA0 X4
00389 M01S00308.restart +++| BX4 -X3*X6 DATA TYPE
00390 M01S00309.restart +++| BX2 X3*X6 PARITY BIT
00391 M01S00310.restart +++| BX4 X4-X1
00392 M01S00311.restart +++| NZ X4,CPY4 IF ILLEGAL DATA TYPE
00393 M01S00312.restart +++| ZR X2,CPY0.1 IF NO CHANGE (BINARY)
00394 M01S00313.restart +++| RECALL O
00395 M01S00314.restart +++| SA1 O
00396 M01S00315.restart +++| SX2 B1
00397 M01S00316.restart +++| BX6 X3*X1
00398 M01S00317.restart +++| BX6 X6+X2
00399 M01S00318.restart +++| SA6 A1
00400 M01S00319.restart +++| CPY0.1 ZR X0,CPY1 IF NO DATA
00401 M01S00320.restart +++| READW I,BUF,X0
00402 M01S00321.restart +++| CPY0.5 WRITEW O,BUF,X0
00403 M01S00322.restart +++| SX6 A0 CHECK BLOCK TYPE FLAG
00404 M01S00323.restart +++| ZR X6,CPY0 IF NOT EOR
00405 M01S00324.restart +++| CPY1 SB2 A0-B1 CHECK BLOCK TYPE FLAG
00406 M01S00325.restart +++| NZ B2,CPY2 IF NOT EOR
00407 M01S00326.restart +++| WRITER O,R
00408 M01S00327.restart +++| EQ CPY0 LOOP TIL END OF RECORD
00409 M01S00328.restart +++|
00410 M01S00329.restart +++|* IF END OF FILE.
00411 M01S00330.restart +++|
00412 M01S00331.restart +++| CPY2 SX6 A0-2 CHECK BLOCK TYPE FLAG
00413 M01S00332.restart +++| ZR X6,CPY3 IF EOF
00414 M01S00001.resta4 +++| WRITE O,R
00415 M01S00333.restart +++| SA1 O+2
00416 M01S00334.restart +++| SA2 A1+B1
00417 M01S00335.restart +++| IX2 X1-X2
00418 M01S00336.restart +++| SX2 X2
00419 M01S00337.restart +++| ZR X2,CPYX IF NO DATA
00420 M01S00338.restart +++| CPY3 WRITEF O,R
00421 M01S00339.restart +++| SX6 A0-3 CHECK BLOCK TYPE FLAG
00422 M01S00340.restart +++| ZR X6,CPYX IF EOI
00423 M01S00341.restart +++| EQ CPY0 LOOP TIL END OF INFORMATION
00424 M01S00342.restart +++|
00425 M01S00343.restart +++| CPY4 MESSAGE (=C* CHECKPOINT FILE ERROR.*)
Line S00344 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00426 M02S00344.ns2081 ---| CPY5 ABORT
Line S00345 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00427 M02S00345.ns2081 ---| PSF SPACE 4,15
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.
00442 M01S00001.resta6 +++|* (A0) = BLOCK TYPE.
00443 M01S00077.ns2081 +++|*
00444 M01S00078.ns2081 +++|* EXIT (X0) = NUMBER OF WORDS IN NEW BLOCK.
00445 M01S00079.ns2081 +++|* (X5) = LOCATION OF DESIRED WORD.
00446 M01S00002.resta6 +++|* (A0) = NEW BLOCK TYPE IF DATA TRANSFERED.
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 (Updated by) resta6
Seq # *Modification Id* Act
----------------------------+
00462 M02S00095.resta6 ---| MX3 -3 CHECK FOR VALID BLOCK TYPE
Line S00096 Modification History
M01 (Added by) ns2081
M02 (Updated by) resta6
Seq # *Modification Id* Act
----------------------------+
00463 M02S00096.resta6 ---| AX6 12
Line S00097 Modification History
M01 (Added by) ns2081
M02 (Updated by) resta6
Seq # *Modification Id* Act
----------------------------+
00464 M02S00097.resta6 ---| BX4 -X3*X6
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
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 M01S00346.restart +++| PSF SPACE 4,15
00477 M01S00347.restart +++|** PSF - POSITION FILE.
00478 M01S00348.restart +++|*
00479 M01S00349.restart +++|* ENTRY FILE NAME IN FETS O AND P.
00480 M01S00350.restart +++|* USES FET P FOR DISK FILES, POSITIONING BY RANDOM ADDR.
00481 M01S00351.restart +++|* USED FET O FOR TAPE FILES, POSITIONING BY CONTROL WORD.
00482 M01S00352.restart +++|*
00483 M01S00353.restart +++|* CALLS NONE.
00484 M01S00354.restart +++|*
00485 M01S00355.restart +++|* EXIT FILE POSITIONED.
00486 M01S00356.restart +++|*
00487 M01S00357.restart +++|* USES A - 0, 1, 2, 3, 4, 6.
00488 M01S00358.restart +++|* X - ALL.
00489 M01S00359.restart +++|*
Line S00360 Modification History
M01 (Added by) restart
M02 (Updated by) ns2039
Seq # *Modification Id* Act
----------------------------+
00490 M02S00360.ns2039 ---|* MACROS BKSPRU, MESSAGE, READ, READCW, READX, RECALL, REWIND.
00491 M01S00006.ns2039 +++|* MACROS BKSPRU, FILINFO, MESSAGE, READ, READCW, READX, RECALL,
00492 M01S00007.ns2039 +++|* REWIND, SKIPF.
00493 M01S00361.restart +++|
00494 M01S00362.restart +++|
00495 M01S00001.resta5 +++| PSF9 REWIND P POSITION FOR COPY TYPE 1
00496 M01S00002.resta5 +++|
00497 M01S00363.restart +++| PSF SUBR ENTRY/EXIT
00498 M01S00364.restart +++| RECALL O
00499 M01S00365.restart +++| RECALL P
00500 M01S00366.restart +++|
00501 M01S00367.restart +++| SA1 O
00502 M01S00368.restart +++| AX1 10
00503 M01S00369.restart +++| MX3 -4
00504 M01S00370.restart +++| BX4 -X3*X1
00505 M01S00371.restart +++| NZ X4,PRT16 IF ERROR
00506 M01S00372.restart +++|
00507 M01S00373.restart +++| SA1 P
00508 M01S00374.restart +++| AX1 10
00509 M01S00375.restart +++| BX4 -X3*X1
00510 M01S00376.restart +++| NZ X4,PRT16 IF ERROR
00511 M01S00377.restart +++|
00512 M01S00378.restart +++| SA1 O+9
00513 M01S00379.restart +++| MX0 -3
00514 M01S00380.restart +++| LX1 2-11
00515 M01S00381.restart +++| BX3 -X0*X1
00516 M01S00382.restart +++| SX3 X3-1
Line S00383 Modification History
M01 (Added by) restart
M02 (Updated by) resta5
Seq # *Modification Id* Act
----------------------------+
00517 M02S00383.resta5 ---| ZR X3,PSFX IF COPY TYPE 1
00518 M01S00003.resta5 +++| ZR X3,PSF9 IF COPY TYPE 1
00519 M01S00384.restart +++|
00520 M01S00385.restart +++| SA1 O+8
00521 M01S00386.restart +++| AX1 13
00522 M01S00387.restart +++| MX3 -2
00523 M01S00388.restart +++| BX4 -X3*X1
00524 M01S00389.restart +++| SX2 X4-1
00525 M01S00390.restart +++| ZR X2,PSF3 IF TAPE FILE
00526 M01S00391.restart +++| SX4 X4-2
00527 M01S00392.restart +++| ZR X4,PSFX IF TTY FILE
00528 M01S00393.restart +++|
00529 M01S00394.restart +++|* POSITION MASS STORAGE.
00530 M01S00395.restart +++|
00531 M01S00396.restart +++| REWIND P,R
00532 M01S00397.restart +++| SA1 O+9 SET RANDOM ADDRESS
00533 M01S00398.restart +++| AX1 12
Line S00399 Modification History
M01 (Added by) restart
M02 (Updated by) resta1
Seq # *Modification Id* Act
----------------------------+
00534 M02S00399.resta1 ---| MX3 -12
00535 M01S00001.resta1 +++| MX3 -24
00536 M01S00400.restart +++| BX6 -X3*X1
Line S00401 Modification History
M01 (Added by) restart
M02 (Updated by) resta1
Seq # *Modification Id* Act
----------------------------+
00537 M02S00401.resta1 ---| SX1 X6-1 ACCOUNT FOR RANDOM POSITIONING
00538 M01S00002.resta1 +++| SX1 B1+
00539 M01S00003.resta1 +++| IX1 X6-X1 ACCOUNT FOR RANDOM POSITIONING
00540 M01S00402.restart +++| ZR X1,PSFX IF BOI DESIRED
00541 M01S00403.restart +++| PSF1 SA6 P+6
00542 M01S00404.restart +++| READ P,R DO RANDOM READ
00543 M01S00405.restart +++| SA1 P
00544 M01S00406.restart +++| AX1 10
00545 M01S00407.restart +++| MX0 -4
00546 M01S00408.restart +++| BX0 -X0*X1
00547 M01S00409.restart +++| ZR X0,PSFX IF NO ERROR OCCURRED
00548 M01S00410.restart +++|
00549 M01S00411.restart +++|* DISPLAY ERROR MESSAGE
00550 M01S00412.restart +++|
00551 M01S00413.restart +++| PSF2 SA1 O
00552 M01S00414.restart +++| MX0 42
00553 M01S00415.restart +++| BX6 X0*X1 ISOLATE FILE NAME
00554 M01S00416.restart +++| SA1 MSGD+1
00555 M01S00417.restart +++| MX0 12
00556 M01S00418.restart +++| BX1 X0*X1
00557 M01S00419.restart +++| LX6 -18
00558 M01S00420.restart +++| BX6 X1+X6 MASK INTO MESSAGE
00559 M01S00421.restart +++| SA6 A1
00560 M01S00422.restart +++| MESSAGE MSGD
00561 M01S00423.restart +++| EQ PSFX RETURN
00562 M01S00424.restart +++|
00563 M01S00425.restart +++|* POSITION TAPES.
00564 M01S00426.restart +++|
00565 M01S00427.restart +++| PSF3 REWIND O,R
00566 M01S00428.restart +++| SA1 O+9 GET BLOCK COUNT
00567 M01S00429.restart +++| AX1 12
00568 M01S00430.restart +++| MX3 -24
00569 M01S00431.restart +++| BX5 -X3*X1 DESIRED BLOCK COUNT
00570 M01S00432.restart +++| ZR X5,PSFX IF REWOUND
Line S00433 Modification History
M01 (Added by) restart
M02 (Updated by) ns2039
Seq # *Modification Id* Act
----------------------------+
00571 M02S00433.ns2039 ---| SX0 B0 PRESET BLOCK COUNT
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 M01S00434.restart +++| PSF3.1 MX6 1 SET FIRST READ
00588 M01S00435.restart +++| SA6 O-2
00589 M01S00436.restart +++| READCW O
00590 M01S00437.restart +++| PSF4 READX O,TBUF,TBUFL
00591 M01S00438.restart +++| SX1 X1+2
00592 M01S00439.restart +++| ZR X1,PSFX IF EOI
00593 M01S00440.restart +++| IX3 X0-X5
00594 M01S00441.restart +++| PL X3,PSF4.1 IF AT POSITION
00595 M01S00442.restart +++| SX1 X1-1
00596 M01S00443.restart +++| ZR X1,PSF3.1 IF EOF
00597 M01S00444.restart +++| EQ PSF4
00598 M01S00445.restart +++|
00599 M01S00446.restart +++| PSF4.1 RECALL O
00600 M01S00447.restart +++| SA1 O CHECK STATUS IN FET
00601 M01S00448.restart +++| LX1 59-9
00602 M01S00449.restart +++| NG X1,PSFX IF END OF INFORMATION
00603 M01S00450.restart +++| SA1 O+2 GET IN
00604 M01S00451.restart +++| SA2 A1+1 GET OUT
00605 M01S00452.restart +++| IX3 X1-X2 IN-OUT
00606 M01S00453.restart +++| SA4 A1-B1 GET FIRST
00607 M01S00454.restart +++| SX4 X4
00608 M01S00455.restart +++| IX4 X1-X4 IN-FIRST
00609 M01S00456.restart +++| ZR X3,PSFX IF EMPTY BUFFER
Line S00457 Modification History
M01 (Added by) restart
M02 (Updated by) ns2039
Seq # *Modification Id* Act
----------------------------+
00610 M02S00457.ns2039 ---| PL X3,PSF5 IF IN .GT. OUT
00611 M01S00023.ns2039 +++| PL X3,PSF4.2 IF IN .GE. OUT
00612 M01S00458.restart +++| SA3 A2+1
00613 M01S00459.restart +++| SX3 X3+
00614 M01S00460.restart +++| IX3 X3-X2 LIMIT-OUT
00615 M01S00461.restart +++| IX3 X4+X3 NUMBER OF WORDS IN BUFFER
Line S00462 Modification History
M01 (Added by) restart
M02 (Updated by) ns2039
Seq # *Modification Id* Act
----------------------------+
00616 M02S00462.ns2039 ---| PSF5 SA1 X2 GET NEXT CONTROL WORD
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 M01S00463.restart +++| SX7 5
00630 M01S00464.restart +++| SX4 X1+16B ACCOUNT FOR CONTROL WORDS AND EXTRA BYTES
00631 M01S00465.restart +++| IX7 X4/X7 GET NUMBER OF WORDS IN BLOCK
00632 M01S00466.restart +++| IX6 X3-X7 COMPARE TO NUMBER OF WORDS IN BUFFER
00633 M01S00467.restart +++| SX0 X0+B1 INCREMENT BLOCK COUNT
00634 M01S00468.restart +++| ZR X6,PSF6 IF 1 BLOCK
Line S00469 Modification History
M01 (Added by) restart
M02 (Updated by) ns2039
Seq # *Modification Id* Act
----------------------------+
00635 M02S00469.ns2039 ---| SX3 X6 WORDS BEYOND BLOCK
00636 M01S00036.ns2039 +++| PSF5.1 SX3 X6 WORDS BEYOND BLOCK
00637 M01S00470.restart +++| IX2 X2+X7 NEW OUT (NEXT CONTROL WORD)
00638 M01S00471.restart +++| SA1 O+4
00639 M01S00472.restart +++| SX1 X1
00640 M01S00473.restart +++| IX1 X2-X1 COMPARE TO LIMIT
00641 M01S00474.restart +++| NG X1,PSF5 IF NO END AROUND
00642 M01S00475.restart +++| SA2 A4 GET FIRST
00643 M01S00476.restart +++| SX2 X2+
00644 M01S00477.restart +++| IX2 X2+X1 SET NEW OUT
00645 M01S00478.restart +++| EQ PSF5
00646 M01S00479.restart +++|
00647 M01S00480.restart +++| PSF6 IX3 X0-X5
00648 M01S00481.restart +++| ZR X3,PSFX IF AT POSITION
00649 M01S00482.restart +++| BKSPRU O,X3,R
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 M01S00483.restart +++| EQ PSFX RETURN
Line S00484 Modification History
M01 (Added by) restart
M02 (Updated by) ns2039
Seq # *Modification Id* Act
----------------------------+
00656 M02S00484.ns2039 ---|
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 M01S00485.restart +++| MSGD DATA C* FILE ERROR .*
00667 M01S00486.restart +++| DATA 0
Line S00487 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00668 M02S00487.ns2081 ---| PRT SPACE 4
00669 M01S00103.ns2081 +++| PRT SPACE 4,15
00670 M01S00488.restart +++|** PRT - PROCESS FILE TABLE.
00671 M01S00489.restart +++|*
Line S00490 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00672 M02S00490.ns21000 ---|* ENTRY NONE.
00673 M01S00003.ns21000 +++|* EXIT ALL FILES IN THE FILE TABLE ARE RECOVERED FROM
00674 M01S00004.ns21000 +++|* THE CHECKPOINT FILE.
00675 M01S00491.restart +++|*
Line S00492 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00676 M02S00492.ns21000 ---|* EXIT ALL FILES IN FILE TABLE RECOVER FROM CHECKPOINT FILE.
Line S00493 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00677 M02S00493.ns21000 ---|*
Line S00494 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00678 M02S00494.ns21000 ---|* CALLS CPY,PSF,SMD.
00679 M01S00005.ns21000 +++|* USES X - ALL.
Line S00006 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00680 M02S00006.ns2081 ---|* A - 1, 2, 5, 6, 7.
00681 M01S00104.ns2081 +++|* A - 1, 2, 3, 4, 5, 6, 7.
00682 M01S00105.ns2081 +++|* B - 2.
00683 M01S00007.ns21000 +++|*
00684 M01S00008.ns21000 +++|* CALLS CPY, PSF, SFN, SMD.
00685 M01S00495.restart +++|*
Line S00496 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00686 M02S00496.ns21000 ---|* USES A - ALL.
Line S00497 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00687 M02S00497.ns21000 ---|* X - ALL.
Line S00498 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00688 M02S00498.ns21000 ---|* B - ALL.
Line S00499 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00689 M02S00499.ns21000 ---|*
Line S00500 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00690 M02S00500.ns21000 ---|* MACROS ASSIGN, ATTACH, ENCSF, MESSAGE, READO, READW, RETURN,
Line S00501 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00691 M02S00501.ns21000 ---|* REWIND, SETID, STATUS.
00692 M01S00009.ns21000 +++|* MACROS ASSIGN, ATTACH, ENCSF, GET, MESSAGE, READO, READW,
00693 M01S00010.ns21000 +++|* RETURN, REWIND, SETFS, STATUS.
00694 M01S00502.restart +++|
00695 M01S00503.restart +++|
00696 M01S00504.restart +++| PRT SUBR ENTRY/EXIT
00697 M01S00505.restart +++| READO I READ FILE TABLE HEADER
00698 M01S00506.restart +++| MX0 -9
00699 M01S00507.restart +++| BX4 -X0*X6 GET LENGTH
00700 M01S00508.restart +++| AX6 12
00701 M01S00509.restart +++| SX3 X6-2
00702 M01S00510.restart +++| NZ X3,CPY4 IF WRONG DATA TYPE
00703 M01S00511.restart +++| READW I,SBUF,X4 READ FILE TABLE
00704 M01S00512.restart +++|
00705 M01S00513.restart +++| SA5 SBUF-2
00706 M01S00514.restart +++| PRT0 SA5 A5+2 GET FIRST WORD TABLE ENTRY
00707 M01S00515.restart +++| ZR X5,PRT17 IF END OF TABLE
00708 M01S00516.restart +++| SX7 3 DEFAULT ID BINARY FILE
00709 M01S00517.restart +++| MX0 42
00710 M01S00518.restart +++| BX6 X0*X5 ISOLATE FILE NAME
00711 M01S00519.restart +++| BX6 X6+X7
00712 M01S00520.restart +++| SA6 P SET FILENAME IN FET
00713 M01S00106.ns2081 +++| SB2 B0 CLEAR CCL FILE FLAG
00714 M01S00521.restart +++| SA6 O SET FILENAME IN FET
00715 M01S00522.restart +++| SA2 A5+B1 GET WORD 2 OF TABLE ENTRY
00716 M01S00523.restart +++| BX6 X5
00717 M01S00524.restart +++| BX7 X2
00718 M01S00525.restart +++| SA6 O+8 PLACE FNT ENTRY IN FET
00719 M01S00526.restart +++| SA7 A6+B1 PLACE FST ENTRY IN FET
00720 M01S00527.restart +++| SA1 =C*CCCCCCO*
00721 M01S00528.restart +++| BX3 X1-X5
00722 M01S00529.restart +++| BX3 X0*X3
Line S00530 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00723 M02S00530.ns2081 ---| NZ X3,PRT5 IF NOT *CCCCCCO*
00724 M01S00107.ns2081 +++| NZ X3,PRT1 IF NOT *CCCCCCO*
00725 M01S00531.restart +++| SA1 RIFL CHECK FOR RI PARAMETER
00726 M01S00532.restart +++| NZ X1,PRT10 IF NEW FILE WANTED
00727 M01S00533.restart +++| MX0 -6 CONSTRUCT *ENCSF* CALL WORD
00728 M01S00534.restart +++| BX5 -X0*X5
00729 M01S00535.restart +++| MX0 -24
00730 M01S00536.restart +++| AX2 6
00731 M01S00537.restart +++| LX0 6
00732 M01S00538.restart +++| BX6 -X0*X2 GET RANDOM ADDRESS
00733 M01S00539.restart +++| BX6 X6+X5
00734 M01S00540.restart +++| SA6 PRTA
00735 M01S00541.restart +++| REWIND O,R
00736 M01S00542.restart +++| SX6 3
00737 M01S00543.restart +++| RJ CPY GET OLD CONTROL STATEMENT FILE
00738 M01S00544.restart +++| REWIND O,R
00739 M01S00545.restart +++| ENCSF O,PRTA ENTER AND POSITION CONTROL STATEMENT FILE
00740 M01S00546.restart +++| EQ PRT0 LOOP FOR REMAINING FILES
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 M01S00547.restart +++|
00755 M01S00548.restart +++|* CHECK COPY TYPE.
00756 M01S00549.restart +++|
00757 M01S00550.restart +++| PRT5 MX3 -3
00758 M01S00551.restart +++| BX4 X2
00759 M01S00552.restart +++| LX4 2-11
00760 M01S00553.restart +++| BX3 -X3*X4 GET COPY TYPE
00761 M01S00554.restart +++| SX4 X3-4
00762 M01S00555.restart +++| MX3 -6
00763 M01S00556.restart +++| BX6 -X3*X5
00764 M01S00557.restart +++| SA6 FIID SAVE STATUS
00765 M01S00121.ns2081 +++| NE B2,PRT5.1 IF CCL FILE
00766 M01S00558.restart +++| SA1 FCFL CHECK FILE CHECK FLAG
00767 M01S00559.restart +++| NZ X1,PRT9 IF SET
00768 M01S00560.restart +++| SA1 =C*INPUT*
00769 M01S00561.restart +++| BX6 X1-X5
00770 M01S00562.restart +++| BX6 X0*X6
00771 M01S00563.restart +++| NZ X6,PRT6 IF NOT INPUT
00772 M01S00564.restart +++| RETURN O,R RETURN BEFORE CREATING
00773 M01S00565.restart +++| EQ PRT7
Line S00566 Modification History
M01 (Added by) restart
M02 (Updated by) ns2081
Seq # *Modification Id* Act
----------------------------+
00774 M02S00566.ns2081 ---|
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 M01S00567.restart +++| PRT6 REWIND O,R
00779 M01S00568.restart +++| PRT7 ZR X4,PRT11 IF NO FILE COPY
00780 M01S00569.restart +++| SX6 3
00781 M01S00570.restart +++| RJ CPY COPY FILE
00782 M01S00571.restart +++| PRT8 RJ PSF POSITION THE FILE
00783 M01S00572.restart +++| SA2 FIID
00784 M01S00573.restart +++| SETFS O,X2
00785 M01S00574.restart +++| EQ PRT0 LOOP FOR REMAINING FILES
00786 M01S00575.restart +++|
00787 M01S00576.restart +++|* CHECK IF FILE ALREADY PRESENT.
00788 M01S00577.restart +++|
00789 M01S00578.restart +++| PRT9 STATUS O
00790 M01S00579.restart +++| SA1 O
00791 M01S00580.restart +++| SX3 X1-1
00792 M01S00581.restart +++| ZR X3,PRT7 IF NOT FOUND
00793 M01S00001.resta3 +++| SA2 A2 WORD 2 OF TABLE ENTRY
Line S00582 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00794 M02S00582.ns21000 ---| MX1 -3
Line S00583 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00795 M02S00583.ns21000 ---| LX5 2-16
Line S00584 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00796 M02S00584.ns21000 ---| BX1 -X1*X5
00797 M01S00011.ns21000 +++| MX1 -4
00798 M01S00012.ns21000 +++| LX2 -4
00799 M01S00013.ns21000 +++| BX1 -X1*X2
00800 M01S00585.restart +++| SX1 X1-4
Line S00586 Modification History
M01 (Added by) restart
M02 (Updated by) resta7
Seq # *Modification Id* Act
----------------------------+
00801 M02S00586.resta7 ---| ZR X1,PRT0 IF EXECUTE-ONLY
Line S00587 Modification History
M01 (Added by) restart
M02 (Updated by) resta7
Seq # *Modification Id* Act
----------------------------+
00802 M02S00587.resta7 ---| ZR X4,PRT0 IF NO FILE COPY ON CHECKPOINT FILE
00803 M01S00003.resta7 +++| ZR X1,PRT8 IF EXECUTE-ONLY
00804 M01S00004.resta7 +++| ZR X4,PRT8 IF NO FILE COPY ON CHECKPOINT FILE
00805 M01S00588.restart +++|
00806 M01S00589.restart +++|* COPY FILE TO BE RID OF IT
00807 M01S00590.restart +++|
00808 M01S00591.restart +++| PRT10 SA1 =C*CCCCCCM*
00809 M01S00592.restart +++| SX3 3
00810 M01S00593.restart +++| BX6 X1+X3
00811 M01S00594.restart +++| SA6 O
00812 M01S00595.restart +++| SX6 3
00813 M01S00596.restart +++| RJ CPY COPY OLD FILE TO NEW HOME
00814 M01S00597.restart +++| REWIND O,R
00815 M01S00598.restart +++| EQ PRT0 LOOP FOR REMAINING FILES
00816 M01S00599.restart +++|
00817 M01S00600.restart +++|* IF NO FILE COPY.
00818 M01S00601.restart +++|
00819 M01S00602.restart +++| PRT11 MX3 -24
00820 M01S00603.restart +++| LX3 12
00821 M01S00604.restart +++| SA2 A2 WORD 2 OF TABLE ENTRY
00822 M01S00605.restart +++| BX4 -X3*X2 ISOLATE RANDOM INDEX
00823 M01S00606.restart +++| MX3 -6 CHECK FILE TYPE
00824 M01S00607.restart +++| ZR X4,PRT0 IF EMPTY FILE
00825 M01S00608.restart +++| AX5 6
00826 M01S00609.restart +++| BX4 -X3*X5
00827 M01S00610.restart +++| SX3 X4-LIFT
00828 M01S00611.restart +++| NZ X3,PRT13 IF NOT LIBRARY FILE
00829 M01S00612.restart +++| ASSIGN P REASSIGN SYSTEM FILE
00830 M01S00613.restart +++| EQ PRT8 LOOP FOR REMAINING FILES
00831 M01S00614.restart +++|
00832 M01S00615.restart +++| PRT13 SX3 X4-PMFT
00833 M01S00616.restart +++| NZ X3,PRT14 IF NOT DIRECT ACCESS FILE
00834 M01S00617.restart +++|
00835 M01S00618.restart +++|* CHECK MODE.
00836 M01S00619.restart +++|
Line S00620 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00837 M02S00620.ns21000 ---| SA5 A5
00838 M01S00014.ns21000 +++| SA2 A5+B1
00839 M01S00621.restart +++| RJ SMD SET MODE
00840 M01S00622.restart +++| ATTACH P,,,,MODA,,,,NF
00841 M01S00623.restart +++| EQ PRT8 LOOP FOR REMAINING FILES
00842 M01S00624.restart +++|
00843 M01S00625.restart +++| PRT14 SX3 X4-LOFT
00844 M01S00626.restart +++| NZ X3,PRT16 IF ILLEGAL FILE TYPE
00845 M01S00627.restart +++| SA1 O+8
00846 M01S00628.restart +++| MX3 -2
00847 M01S00629.restart +++| AX1 13
00848 M01S00630.restart +++| BX1 -X3*X1
00849 M01S00631.restart +++| SX3 X1-1
00850 M01S00632.restart +++| ZR X3,PRT8 IF TAPE FILE
00851 M01S00633.restart +++| PRT15 GET P
00852 M01S00634.restart +++| EQ PRT8 LOOP FOR REMAINING FILES
00853 M01S00635.restart +++|
00854 M01S00636.restart +++|* IF FILE NOT FOUND.
00855 M01S00637.restart +++|
00856 M01S00638.restart +++| PRT16 MX0 42
00857 M01S00639.restart +++| SA1 O
00858 M01S00640.restart +++| BX1 X0*X1
00859 M01S00641.restart +++| RJ SFN SPACE FILL FILE NAME
00860 M01S00642.restart +++| LX6 -6
00861 M01S00643.restart +++| SA6 MSGA
00862 M01S00644.restart +++| MESSAGE A6
00863 M01S00645.restart +++|
00864 M01S00646.restart +++|* CHECK NO ABORT FLAG.
00865 M01S00647.restart +++|
00866 M01S00648.restart +++| SA2 NAFL
00867 M01S00649.restart +++| NZ X2,PRT0 IF NO ABORT, LOOP FOR REMAINING FILES
00868 M01S00650.restart +++| EQ CPY5
00869 M01S00651.restart +++|
00870 M01S00652.restart +++|* RETURN *CCCCCCM* AND EXIT.
00871 M01S00653.restart +++|
00872 M01S00654.restart +++| PRT17 SA1 =C*CCCCCCM*
00873 M01S00655.restart +++| SX3 3
00874 M01S00656.restart +++| BX6 X1+X3
00875 M01S00657.restart +++| SA6 O
00876 M01S00658.restart +++| RETURN O,R
00877 M01S00659.restart +++| EQ PRTX RETURN
00878 M01S00660.restart +++|
00879 M01S00661.restart +++|
00880 M01S00662.restart +++| PRTA BSS 1 PARAMETER AREA FOR *ENCSF* CALL
00881 M01S00663.restart +++|
00882 M01S00664.restart +++| MSGA DATA C* NOT FOUND.*
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 M01S00665.restart +++| RDA SPACE 4
00929 M01S00666.restart +++|** RDA - READ DATA.
00930 M01S00667.restart +++|* PROCESSES CALLS TO READ WORDS (RDW=).
00931 M01S00668.restart +++|* DEBLOCKS DATA FROM CONTROL WORD READS FOR TAPE POSITIONING.
00932 M01S00669.restart +++|*
Line S00670 Modification History
M01 (Added by) restart
M02 (Updated by) ns2039
Seq # *Modification Id* Act
----------------------------+
00933 M02S00670.ns2039 ---|* ENTRY X2 = FET ADDRESS
Line S00671 Modification History
M01 (Added by) restart
M02 (Updated by) ns2039
Seq # *Modification Id* Act
----------------------------+
00934 M02S00671.ns2039 ---|* B6 = ADDRESS TO READ TO
Line S00672 Modification History
M01 (Added by) restart
M02 (Updated by) ns2039
Seq # *Modification Id* Act
----------------------------+
00935 M02S00672.ns2039 ---|* B7 = NUMBER OF WORDS TO READ
Line S00673 Modification History
M01 (Added by) restart
M02 (Updated by) ns2039
Seq # *Modification Id* Act
----------------------------+
00936 M02S00673.ns2039 ---|*
Line S00674 Modification History
M01 (Added by) restart
M02 (Updated by) ns2039
Seq # *Modification Id* Act
----------------------------+
00937 M02S00674.ns2039 ---|* EXIT WORDS READ
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 M01S00675.restart +++|*
00947 M01S00676.restart +++|* CALLS RDW=
00948 M01S00677.restart +++|*
00949 M01S00678.restart +++|* USES A - 1,3,6,7
00950 M01S00679.restart +++|* B - 5,6,7
00951 M01S00680.restart +++|* X - 0,1,2,3,6,7
00952 M01S00681.restart +++|*
00953 M01S00682.restart +++|
00954 M01S00683.restart +++|
00955 M01S00684.restart +++| RDA5 SX6 B5-B7 UPDATE WORDS REMAINING
00956 M01S00685.restart +++| SA6 A1
00957 M01S00686.restart +++|
00958 M01S00687.restart +++| RJ RDW= READ WORDS
00959 M01S00688.restart +++|
00960 M01S00689.restart +++| RDA PS ENTRY/EXIT
00961 M01S00690.restart +++| RDA1 SA1 X2-2 GET NUMBER OF WORDS BEFORE CONTROL WORD
00962 M01S00691.restart +++| SB5 X1+
00963 M01S00692.restart +++| PL X1,RDA2 IF NOT FIRST READ
00964 M01S00693.restart +++| SX7 B7+ SET WORDS NEEDED
00965 M01S00694.restart +++| SA7 RDAA
00966 M01S00695.restart +++| JP RDA4
00967 M01S00696.restart +++|
00968 M01S00697.restart +++| RDA2 GE B5,B7,RDA5 IF ENOUGH DATA TO FILL BUFFER
00969 M01S00698.restart +++| SA3 X2-1 CHECK EOR FLAG
00970 M01S00699.restart +++| PL X3,RDA3 IF NOT EOR ON FILE
00971 M01S00700.restart +++| MX6 1 SET NEW READ FLAG
00972 M01S00701.restart +++| SB7 B5+B1 SET WORDS TO READ
00973 M01S00702.restart +++| SA6 A3
00974 M01S00703.restart +++| SA6 A1
00975 M01S00704.restart +++| RJ RDW= READ WORDS
00976 M01S00705.restart +++| SX1 B6-B1 SET EOR INDICATION
00977 M01S00706.restart +++| SB6 B6-B1 BACK UP LWA TO ALLOW FOR CONTROL WORD
00978 M01S00707.restart +++| JP RDA RETURN
00979 M01S00708.restart +++|
00980 M01S00709.restart +++| RDA3 SX6 B7-B5 SAVE ADDITIONAL WORDS NEEDED
00981 M01S00710.restart +++| SA6 RDAA
00982 M01S00711.restart +++| SB7 B5+B1 SET WORDS TO TRANSFER
00983 M01S00712.restart +++| RJ RDW= READ WORDS
00984 M01S00713.restart +++| SB6 B6-1 BACK UP OVER LAST CONTROL WORD
00985 M01S00714.restart +++| RDA4 SB7 B1 READ CONTROL WORD
00986 M01S00715.restart +++| RJ RDW=
00987 M01S00716.restart +++| NG X1,RDA IF EOF/EOI
00988 M01S00717.restart +++| SB6 B6-B1 BACK UP WORKING BUFFER
00989 M01S00718.restart +++| SA1 B6 CONTROL WORD
00990 M01S00719.restart +++| SX7 5
00991 M01S00720.restart +++| SX4 X1+4 ROUND UP
00992 M01S00721.restart +++| AX1 36 EXTRACT BLOCK SIZE
00993 M01S00722.restart +++| SX3 X1
00994 M01S00723.restart +++| IX7 X4/X7 WORDS IN BLOCK
00995 M01S00724.restart +++| IX6 X7-X3 SAVE EOR FLAG
00996 M01S00725.restart +++| SA7 X2-2 STORE WORD COUNT
00997 M01S00726.restart +++| SA6 X2-1 EOR FLAG
00998 M01S00727.restart +++| SA1 RDAA RESET WORDS NEEDED
00999 M01S00728.restart +++| SB7 X1
01000 M01S00729.restart +++| SX0 X0+1 INCREMENT BLOCK COUNT
01001 M01S00730.restart +++| JP RDA1 LOOP
01002 M01S00731.restart +++|
01003 M01S00732.restart +++| RDAA CON 0 NUMBER OF WORDS NEED TO READ
01004 M01S00733.restart +++| SMD SPACE 4
01005 M01S00734.restart +++|** SMD - SET FILE ACCESS MODE.
01006 M01S00735.restart +++|*
Line S00736 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01007 M02S00736.ns21000 ---|* ENTRY (X5) = FNT.
01008 M01S00015.ns21000 +++|* ENTRY (X2) = WORD 2 OF TABLE ENTRY (REFORMATTED FST).
01009 M01S00737.restart +++|*
01010 M01S00738.restart +++|* EXIT (MODA) = MODE.
01011 M01S00739.restart +++|*
Line S00740 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01012 M02S00740.ns21000 ---|* CALLS NONE.
Line S00741 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01013 M02S00741.ns21000 ---|*
Line S00742 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01014 M02S00742.ns21000 ---|* USES A - 3, 6.
Line S00743 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01015 M02S00743.ns21000 ---|* B - NONE.
Line S00744 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01016 M02S00744.ns21000 ---|* X - 1, 3, 4, 5, 6.
01017 M01S00016.ns21000 +++|* USES X - 1, 2, 3, 4, 6.
01018 M01S00017.ns21000 +++|* A - 3, 6.
01019 M01S00745.restart +++|
01020 M01S00746.restart +++|
01021 M01S00747.restart +++| SMD SUBR ENTRY/EXIT
Line S00748 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01022 M02S00748.ns21000 ---| LX5 42
Line S00749 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01023 M02S00749.ns21000 ---| MX4 5
Line S00750 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01024 M02S00750.ns21000 ---| SX6 B1+B1 CLEAR TAPE BIT
Line S00751 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01025 M02S00751.ns21000 ---| BX6 -X6*X5
01026 M01S00018.ns21000 +++| LX2 59-7
01027 M01S00019.ns21000 +++| MX4 4
01028 M01S00752.restart +++| SA3 MODE SET TABLE ADDRESS
Line S00753 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01029 M02S00753.ns21000 ---| SMD1 BX1 X3-X6
01030 M01S00020.ns21000 +++| SMD1 BX1 X3-X2
01031 M01S00754.restart +++| BX1 X4*X1
01032 M01S00755.restart +++| ZR X1,SMD2 IF FOUND
01033 M01S00756.restart +++| SA3 A3+B1
01034 M01S00757.restart +++| NZ X3,SMD1 LOOP
01035 M01S00758.restart +++| SX6 PTRD SET READ MODE DEFAULT
01036 M01S00759.restart +++| SA6 MODA
01037 M01S00760.restart +++| EQ SMDX RETURN
01038 M01S00761.restart +++|
01039 M01S00762.restart +++| SMD2 SX6 X3
01040 M01S00763.restart +++| SA6 MODA
01041 M01S00764.restart +++| EQ SMDX RETURN
01042 M01S00765.restart +++|
01043 M01S00766.restart +++|
01044 M01S00767.restart +++| MODE BSS 0 MODE TABLE
Line S00768 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01045 M02S00768.ns21000 ---| VFD 6/0,54/PTWR WRITE
Line S00769 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01046 M02S00769.ns21000 ---| VFD 6/1,54/PTRD READ
Line S00770 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01047 M02S00770.ns21000 ---| VFD 6/14B,54/PTAP APPEND
Line S00771 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01048 M02S00771.ns21000 ---| VFD 6/20B,54/PTEX EXECUTE
Line S00772 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01049 M02S00772.ns21000 ---| VFD 6/10B,54/PTMD MODIFY
Line S00773 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01050 M02S00773.ns21000 ---| VFD 6/31B,54/PTRM READ/MODIFY
Line S00774 Modification History
M01 (Added by) restart
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
01051 M02S00774.ns21000 ---| VFD 6/15B,54/PTRA READ APPEND
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 M01S00775.restart +++| CON 0
01062 M01S00776.restart +++|
01063 M01S00777.restart +++| MODA CON 0 FILE ACCESS MODE
01064 M01S00778.restart +++| TITLE COMMON DECKS AND BUFFERS.
01065 M01S00779.restart +++| COM SPACE 4
01066 M01S00780.restart +++|* COMMON DECKS.
01067 M01S00781.restart +++|
01068 M01S00782.restart +++|
01069 M01S00783.restart +++|*CALL COMCARG
01070 M01S00784.restart +++|*CALL COMCCDD
01071 M01S00785.restart +++|*CALL COMCCIO
01072 M01S00786.restart +++|*CALL COMCCPM
01073 M01S00787.restart +++|*CALL COMCDXB
01074 M01S00788.restart +++|*CALL COMCEDT
01075 M01S00789.restart +++|*CALL COMCLFM
01076 M01S00790.restart +++|*CALL COMCPFM
01077 M01S00791.restart +++|*CALL COMCRDC
01078 M01S00792.restart +++|*CALL COMCRDO
01079 M01S00793.restart +++|*CALL COMCRDW
01080 M01S00794.restart +++|*CALL COMCSFN
01081 M01S00004.resta2 +++|*CALL COMCSNM
01082 M01S00795.restart +++|*CALL COMCSYS
01083 M01S00796.restart +++|*CALL COMCWTO
01084 M01S00797.restart +++|*CALL COMCWTW
01085 M01S00798.restart +++| SPACE 4
01086 M01S00799.restart +++| TITLE PRESET.
01087 M01S00800.restart +++| PRS SPACE 4
01088 M01S00801.restart +++|** PRS PRESET ROUTINE.
01089 M01S00802.restart +++|*
01090 M01S00803.restart +++|* ENTRY NONE.
01091 M01S00804.restart +++|*
01092 M01S00805.restart +++|* EXIT FILE POSITIONED TO CORRECT CHECKPOINT.
01093 M01S00806.restart +++|*
01094 M01S00807.restart +++|* CALLS ARG,DXB.
01095 M01S00808.restart +++|*
01096 M01S00809.restart +++|* USES A - 1,2,4,5,6,7.
01097 M01S00810.restart +++|* B - 2,4,5.
01098 M01S00811.restart +++|* X - ALL.
01099 M01S00812.restart +++|
01100 M01S00813.restart +++|
01101 M01S00814.restart +++| PRS SUBR ENTRY/EXIT
01102 M01S00815.restart +++| SB1 1
01103 M01S00816.restart +++|
01104 M01S00817.restart +++|* PROCESS ARGUMENTS.
01105 M01S00818.restart +++|
01106 M01S00819.restart +++| SA1 ACTR
01107 M01S00820.restart +++| SB2 X1
01108 M01S00821.restart +++| ZR B2,PRS7 IF NO ARGUMENTS
01109 M01S00822.restart +++| SA1 ARGR
01110 M01S00823.restart +++| ZR X1,PRS7 IF ERROR
01111 M01S00824.restart +++| SX3 3
01112 M01S00825.restart +++| BX6 X1+X3
01113 M01S00826.restart +++| SB2 B2-B1
01114 M01S00827.restart +++| SA6 I SET FILE NAME
01115 M01S00828.restart +++| REWIND I
01116 M01S00829.restart +++| ZR B2,PRS2 IF END OF ARGUMENTS
01117 M01S00830.restart +++| SA1 ARGR+1
01118 M01S00831.restart +++| ZR X1,PRS1 IF NOT SET
01119 M01S00832.restart +++| BX6 X1
01120 M01S00833.restart +++| SA6 CKNO SET CHECKPOINT NUMBER
01121 M01S00834.restart +++| PRS1 SB4 B2-B1
01122 M01S00835.restart +++| ZR B4,PRS2 IF END OF ARGUMENTS
01123 M01S00836.restart +++| SA4 A1+B1
01124 M01S00837.restart +++| SB5 TARG
01125 M01S00838.restart +++| RJ ARG
01126 M01S00839.restart +++|
01127 M01S00840.restart +++| NZ X1,PRS7 IF ERROR IN ARGUMENT
01128 M01S00841.restart +++| PRS2 SA5 CKNO GET CHECKPOINT NUMBER
01129 M01S00842.restart +++| SX4 X5-1
01130 M01S00843.restart +++| ZR X4,PRS3 IF DEFAULT SET
01131 M01S00844.restart +++| SA4 ASK
01132 M01S00845.restart +++| BX4 X4-X5
01133 M01S00846.restart +++| ZR X4,PRS3 IF LAST CHECKPOINT DESIRED
01134 M01S00847.restart +++| SB7 B1 CONVERT TO BINARY ASSUMING DECIMAL NUMBER
01135 M01S00848.restart +++| RJ DXB
01136 M01S00849.restart +++| NZ X4,PRS7 IF ERROR
01137 M01S00850.restart +++| SA6 CKNO SET NO. OF CHECKPOINT DESIRED
01138 M01S00851.restart +++|
01139 M01S00852.restart +++|* POSITION FILE TO CHECKPOINT RECORD.
01140 M01S00853.restart +++|
01141 M01S00854.restart +++| PRS3 READSKP I,,R SKIP TO END OF RECORD
01142 M01S00855.restart +++| SA1 X2 CHECK STATUS
01143 M01S00856.restart +++| LX1 59-3
01144 M01S00857.restart +++| NG X1,CPY4 IF EOF/EOI
01145 M01S00858.restart +++| SA1 IBUF LOOK AT FIRST WORD OF BUFFER
01146 M01S00859.restart +++| SX1 X1-10002B CHECK FOR HEADER WORD
01147 M01S00860.restart +++| NZ X1,PRS3 IF NOT HEADER
01148 M01S00861.restart +++| BKSP I,R
01149 M01S00862.restart +++| PRS4 SA1 I+1 SET IN = OUT = FIRST
01150 M01S00863.restart +++| SX6 X1
01151 M01S00864.restart +++| SA6 A1+B1
01152 M01S00865.restart +++| SA6 A6+B1
01153 M01S00866.restart +++|
01154 M01S00867.restart +++|* SEARCH FOR CORRECT CHECKPOINT.
01155 M01S00868.restart +++|
01156 M01S00869.restart +++| READ I
01157 M01S00870.restart +++| READO I READ HEADER WORD 1
01158 M01S00871.restart +++| NZ X1,CPY4 IF EOR OR EOF
01159 M01S00872.restart +++| ZR X6,CPY4 IF NO DATA
01160 M01S00873.restart +++| SX1 X6-10002B
01161 M01S00874.restart +++| NZ X1,CPY4 IF WRONG DATA TYPE
01162 M01S00875.restart +++| READO I READ HEADER WORD 2
01163 M01S00876.restart +++| MX0 -12
01164 M01S00877.restart +++| BX3 -X0*X6 GET NO. OF THIS CHECKPOINT
01165 M01S00878.restart +++| SA2 CKNO
01166 M01S00879.restart +++| SA4 ASK
01167 M01S00880.restart +++| BX4 X4-X2
01168 M01S00881.restart +++| IX1 X2-X3
01169 M01S00882.restart +++| ZR X4,PRS5 IF LAST CHECKPOINT WANTED
01170 M01S00883.restart +++| NG X1,CPY4 IF ERROR
01171 M01S00884.restart +++| ZR X1,PRS6 IF CORRECT CHECKPOINT NUMBER
01172 M01S00885.restart +++|
01173 M01S00886.restart +++|* CHECK CHECKPOINT CODE WORD.
01174 M01S00887.restart +++|
01175 M01S00888.restart +++| PRS5 SKIPF I,1,R SKIP RECORD
01176 M01S00889.restart +++| SA1 I+1 SET IN = OUT = FIRST
01177 M01S00890.restart +++| SX6 X1
01178 M01S00891.restart +++| SA6 A1+B1
01179 M01S00892.restart +++| SA6 A6+B1
01180 M01S00893.restart +++| READ I
01181 M01S00894.restart +++| READO I READ HEADER WORD 1
01182 M01S00895.restart +++| PL X6,PRS4 IF NOT LAST CHECKPOINT
01183 M01S00896.restart +++| SA2 CKNO
01184 M01S00897.restart +++| SA4 ASK
01185 M01S00898.restart +++| BX4 X2-X4
01186 M01S00899.restart +++| NZ X4,PRS8 IF ERROR
01187 M01S00900.restart +++|
01188 M01S00901.restart +++|* POSITION TO START OF CHECKPOINT RECORD.
01189 M01S00902.restart +++|
01190 M01S00903.restart +++| SKIPB I,2 POSITION FILE
01191 M01S00904.restart +++| SA1 I+1 SET IN = OUT = FIRST
01192 M01S00905.restart +++| SX6 X1
01193 M01S00906.restart +++| SA6 A1+B1
01194 M01S00907.restart +++| SA6 A6+B1
01195 M01S00908.restart +++| READ I
01196 M01S00909.restart +++| READO I READ HEADER WORD 1
01197 M01S00910.restart +++| READO I READ HEADER WORD 2
01198 M01S00911.restart +++| MX0 -12
01199 M01S00912.restart +++| BX7 -X0*X6
01200 M01S00913.restart +++| SA7 CKNO SET CHECKPOINT NUMBER
01201 M01S00914.restart +++|
01202 M01S00915.restart +++|* GET CHECKPOINT DATE AND TIME.
01203 M01S00916.restart +++|
01204 M01S00917.restart +++| PRS6 SA6 HDRB SAVE HEADER WORD
01205 M01S00918.restart +++| AX6 18
01206 M01S00919.restart +++| BX5 X6
01207 M01S00920.restart +++| SX1 X6
01208 M01S00921.restart +++| ETIME X1 CONVERT TIME
Line S00922 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
01209 M02S00922.resta2 ---| SA6 MSGC+1
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 M01S00923.restart +++| AX5 18
01215 M01S00924.restart +++| SX1 X5
01216 M01S00925.restart +++| EDATE X1 CONVERT DATE
Line S00926 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
01217 M02S00926.resta2 ---| SA6 MSGC
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 M01S00927.restart +++| READO I READ HEADER WORD 3
Line S00928 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
01223 M02S00928.resta2 ---| SA1 MSGB
Line S00929 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
01224 M02S00929.resta2 ---| MX0 42
Line S00930 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
01225 M02S00930.resta2 ---| BX6 X0*X6 GET JOBNAME
Line S00931 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
01226 M02S00931.resta2 ---| BX0 -X0*X1
Line S00932 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
01227 M02S00932.resta2 ---| BX6 X0+X6
Line S00933 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
01228 M02S00933.resta2 ---| LX6 -6
Line S00934 Modification History
M01 (Added by) restart
M02 (Updated by) resta2
Seq # *Modification Id* Act
----------------------------+
01229 M02S00934.resta2 ---| SA6 A1
01230 M01S00013.resta2 +++| SB2 1R+
01231 M01S00014.resta2 +++| SB5 MSGB
01232 M01S00015.resta2 +++| BX1 X6
01233 M01S00016.resta2 +++| RJ SNM SET JSN IN MESSAGE
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 M01S00935.restart +++| EQ PRSX RETURN
01244 M01S00936.restart +++|
01245 M01S00937.restart +++| PRS7 MESSAGE (=C* ERROR IN ARGUMENTS.*)
01246 M01S00938.restart +++| EQ CPY5
01247 M01S00939.restart +++|
01248 M01S00940.restart +++| PRS8 MESSAGE (=C* CHECKPOINT NOT FOUND.*)
01249 M01S00941.restart +++| EQ CPY5
01250 M01S00942.restart +++|
01251 M01S00943.restart +++| ASK DATA 1L*
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 M01S00944.restart +++|
01255 M01S00945.restart +++| TARG BSS 0
01256 M01S00946.restart +++| RI ARG =-1,RIFL
01257 M01S00947.restart +++| NA ARG =-1,NAFL
01258 M01S00948.restart +++| FC ARG =-1,FCFL
01259 M01S00949.restart +++| CON 0
01260 M01S00950.restart +++|
01261 M01S00951.restart +++|* BUFFER ASSIGNMENTS
01262 M01S00952.restart +++|
01263 M01S00953.restart +++| USE BUFFERS
01264 M01S00954.restart +++| BUF EQU *
01265 M01S00955.restart +++| IBUF EQU BUF+BUFL
01266 M01S00956.restart +++| OBUF EQU IBUF+IBUFL
01267 M01S00957.restart +++| SBUF EQU OBUF+OBUFL
01268 M01S00958.restart +++| TBUF EQU SBUF+SBUFL
01269 M01S00959.restart +++| RFL= EQU TBUF+TBUFL+4
01270 M01S00960.restart +++|
01271 M01S00961.restart +++| END