cdc:nos2.source:opl.opl871:deck:chkpt
Deck CHKPT
5 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.chkpt +++| IDENT CHKPT,FETS 00002 M01S00002.chkpt +++| ABS 00003 M01S00003.chkpt +++| SST 00004 M01S00004.chkpt +++| SYSCOM B1 00005 M01S00005.chkpt +++| ENTRY CKP 00006 M01S00006.chkpt +++| ENTRY SFP 00007 M01S00007.chkpt +++| ENTRY DMP= 00008 M01S00008.chkpt +++| ENTRY RFL= 00009 M01S00009.chkpt +++| ENTRY SSJ= 00010 M01S00010.chkpt +++| TITLE CHKPT - CENTRAL MEMORY CHECKPOINT. 00011 M01S00011.chkpt +++|*COMMENT CHKPT - CENTRAL MEMORY CHECKPOINT.
Line S00012 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M02S00012.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982. 00013 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00014 M01S00013.chkpt +++| SPACE 4 00015 M01S00014.chkpt +++|*** CHKPT - CENTRAL MEMORY CHECKPOINT. 00016 M01S00015.chkpt +++|* V.A. WALSH. 72/05/05. 00017 M01S00016.chkpt +++|* K.R. COMBS. 73/06/01. 00018 M01S00017.chkpt +++|* M.S. CARTER. 76/10/08. 00019 M01S00018.chkpt +++| SPACE 4 00020 M01S00019.chkpt +++|*** *CHKPT* PERFORMS THE CENTRAL MEMORY PORTION OF CHECKPOINT. 00021 M01S00020.chkpt +++|* THE CONTROL POINT AREA AND THE USER FIELD LENGTH ARE 00022 M01S00021.chkpt +++|* EXPECTED TO BE WRITTEN ON FILE DM* BEFORE *CHKPT* EXECUTION. 00023 M01S00022.chkpt +++|* *CHKPT* CREATES A CHECKPOINT FILE CONTAINING INFORMATION 00024 M01S00023.chkpt +++|* ABOUT THE USER FILE AS WELL AS A COPY OF THE DM* FILE. 00025 M01S00024.chkpt +++|* 00026 M01S00025.chkpt +++|* 00027 M01S00026.chkpt +++|* OPERATOR COMMAND- 00028 M01S00027.chkpt +++|* 00029 M01S00028.chkpt +++|* CKP. CHECKPOINT ALL LOCAL FILES. 00030 M01S00029.chkpt +++|* 00031 M01S00030.chkpt +++|* CONTROL STATEMENT CALL- 00032 M01S00031.chkpt +++|* 00033 M01S00032.chkpt +++|* CKP. CHECKPOINT ALL LOCAL FILES. 00034 M01S00033.chkpt +++|* 00035 M01S00034.chkpt +++|* CKP(LFN1,LFN2,...,LFNN) CHECKPOINT ONLY THOSE FILES 00036 M01S00035.chkpt +++|* SPECIFIED BY LFNI. 00037 M01S00036.chkpt +++|* CONTINUATION CARDS WILL NOT BE PROCESSED. 00038 M01S00037.chkpt +++|* 00039 M01S00038.chkpt +++|* MACRO CALL- 00040 M01S00039.chkpt +++|* 00041 M01S00040.chkpt +++|* CHECKPT ADDR,SP 00042 M01S00041.chkpt +++|* ADDR - ADDRESS OF PARAMETER LIST. 00043 M01S00042.chkpt +++|* SP - SELECTIVE CHECKPOINT FLAG. 00044 M01S00043.chkpt +++|* IF NULL - CHECKPOINT LOCAL FILES (DEFAULT). 00045 M01S00044.chkpt +++|* IF NOT NULL - CHECKPOINT SPECIFIED FILES. 00046 M01S00045.chkpt +++|* 00047 M01S00046.chkpt +++|* PARAMETER LIST FORMAT. 00048 M01S00047.chkpt +++|* 00049 M01S00048.chkpt +++|*T,ADDR 12/CN,30/0,6/N,11/0,1/C
Figure ADDR
00050 M01S00049.chkpt +++|*T,ADDR+1 42/LFN1,6/F,12/0
Figure ADDR+1
00051 M01S00050.chkpt +++|*T,ADDR+2 42/LFN2,6/F,12/0
Figure ADDR+2
00052 M01S00051.chkpt +++|* . 00053 M01S00052.chkpt +++|* . 00054 M01S00053.chkpt +++|* . 00055 M01S00054.chkpt +++|*T,ADDR+N 42/LFNN,6/F,12/0
Figure ADDR+N
00056 M01S00055.chkpt +++|* 00057 M01S00056.chkpt +++|* CN = CURRENT CHECKPOINT NUMBER. 00058 M01S00057.chkpt +++|* N = NUMBER OF ENTRIES IN TABLE. 00059 M01S00058.chkpt +++|* C = COMPLETION BIT SET BY CHKPT. 00060 M01S00059.chkpt +++|* LFNI = LOCAL FILE NAME. 00061 M01S00060.chkpt +++|* F = COPY TYPE. 00062 M01S00061.chkpt +++|* 0 - BOI TO PRESENT POSITION. 00063 M01S00062.chkpt +++|* 1 - PRESENT POSITION TO EOI. 00064 M01S00063.chkpt +++|* 2 - ENTIRE FILE. 00065 M01S00064.chkpt +++|* 3 - LAST OPERATION ON FILE WILL 00066 M01S00065.chkpt +++|* DETERMINE THE COPY TYPE. 00067 M01S00066.chkpt +++|* 4 - NO COPY BUT INFORMATION TABLE 00068 M01S00067.chkpt +++|* ON FILE IS COPIED. 00069 M01S00068.chkpt +++| SPACE 4 00070 M01S00069.chkpt +++|*** DAYFILE MESSAGES - 00071 M01S00070.chkpt +++|* 00072 M01S00071.chkpt +++|* * CHECKPOINT FILE ERROR.* = CHECKPOINT FILE(S) NOT 00073 M01S00072.chkpt +++|* SPECIFIED CORRECTLY. 00074 M01S00073.chkpt +++|* 00075 M01S00074.chkpt +++|* * SECURE FILES - CHECKPOINT ABORT.* = FILE SECURITY SPECIFIED 00076 M01S00075.chkpt +++|* ON FILE(S) BEING CHECKPOINTED, ABORT CHECKPOINT. 00077 M01S00076.chkpt +++|* 00078 M01S00077.chkpt +++|* * CHECKPOINT NNNN COMPLETE.* = CHECKPOINT NNNN HAS COMPLETED. 00079 M01S00078.chkpt +++|* 00080 M01S00079.chkpt +++|* * CHECKPOINT NNNN COMPLETED TO XXXXXXX.* = CHECKPOINT NNNN 00081 M01S00080.chkpt +++|* HAS BEEN COMPLETED TO FILE XXXXXXX. 00082 M01S00081.chkpt +++|* (ISSUED ON ALTERNATE CB FILES ONLY) 00083 M01S00082.chkpt +++|* 00084 M01S00083.chkpt +++|* * CHKPT UNABLE TO READ TAPE.* = ERRORS HAVE OCCURRED 00085 M01S00084.chkpt +++|* WHILE READING A TAPE FILE WHICH CHKPT CANNOT PROCESS. 00086 M01S00085.chkpt +++|* 00087 M01S00086.chkpt +++|* * CKP REQUEST.* = A CHECKPOINT HAS BEEN INITIATED. 00088 M01S00087.chkpt +++|* 00089 M01S00088.chkpt +++|* * POSITION ERROR ON--XXXXXXX.* = AN ADDRESS ERROR PREVENTED 00090 M01S00089.chkpt +++|* FILE XXXXXXX FROM BEING REPOSITIONED AFTER BEING CHECKPOINTED. 00091 M01S00090.chkpt +++|* 00092 M01S00091.chkpt +++|* * ERROR - FILE(S) NOT PROCESSED.* = FILE(S) HAD ERROR IN 00093 M01S00092.chkpt +++|* PRESET, THEREFORE NOT CHECKPOINTED. 00094 M01S00001.ns2039 +++|* 00095 M01S00002.ns2039 +++|* * CONTENTS NOT CHECKPOINTED FOR FILE XXXXXXX.* = FOR FILE 00096 M01S00003.ns2039 +++|* XXXXXXX THE USER SELECTED OTHER THAN OPTION 4 00097 M01S00004.ns2039 +++|* (INFORMATION TABLE ONLY). THE USER REQUEST HAS BEEN 00098 M01S00005.ns2039 +++|* IGNORED AND ONLY THE INFORMATION TABLE WAS COPIED TO THE 00099 M01S00006.ns2039 +++|* CHECKPOINT FILE. 00100 M01S00001.ns22000 +++|* 00101 M01S00002.ns22000 +++|* * CHECKPOINT FILE ACCESS LEVEL ERROR.* = IN A SECURE 00102 M01S00003.ns22000 +++|* SYSTEM, THE CHECKPOINT FILE ACCESS LEVEL IS NOT THE 00103 M01S00004.ns22000 +++|* SAME AS THE JOB ACCESS LEVEL LIMIT. THIS MUST BE THE 00104 M01S00005.ns22000 +++|* CASE TO INSURE THAT THE CHECKPOINT FILE IS SECURE 00105 M01S00006.ns22000 +++|* ENOUGH TO CONTAIN ALL LOCAL FILES. THE ACCESS LEVEL 00106 M01S00007.ns22000 +++|* OF THE CHECKPOINT FILE IS NOT CHANGED TO THIS LEVEL 00107 M01S00008.ns22000 +++|* SINCE THIS IS NOT POSSIBLE FOR MAGNETIC TAPE FILES OR 00108 M01S00009.ns22000 +++|* DIRECT ACCESS PERMANENT FILES, AND THESE ARE THE USUAL 00109 M01S00010.ns22000 +++|* FILE TYPES USED FOR CHECKPOINT FILES. WHEN THE 00110 M01S00011.ns22000 +++|* CHECKPOINT FILE IS ASSIGNED IT SHOULD BE ASSIGNED AT 00111 M01S00012.ns22000 +++|* THE JOB ACCESS LEVEL LIMIT. 00112 M01S00093.chkpt +++| TITLE CHKPT - DEFINITIONS. 00113 M01S00094.chkpt +++| SPACE 4 00114 M01S00095.chkpt +++|* ASSEMBLY CONSTANTS. 00115 M01S00096.chkpt +++| 00116 M01S00097.chkpt +++| BUFL EQU 1000B 00117 M01S00098.chkpt +++| IBUFL EQU 2001B 00118 M01S00099.chkpt +++| OBUFL EQU 2001B 00119 M01S00100.chkpt +++| SBUFL EQU 402B 00120 M01S00101.chkpt +++| TBUFL EQU 1001B 00121 M01S00102.chkpt +++| SPACE 4 00122 M01S00103.chkpt +++|** READC - REDEFINE MACRO TO READ CONTROL WORDS. 00123 M01S00104.chkpt +++|* 00124 M01S00105.chkpt +++|* FORMAT READC F,S,N 00125 M01S00106.chkpt +++|* 00126 M01S00107.chkpt +++|* WHERE F = ADDRESS OF FET 00127 M01S00108.chkpt +++|* S = ADDRESS OF BUFFER 00128 M01S00109.chkpt +++|* N = LENGTH OF BUFFER IN WORDS 00129 M01S00110.chkpt +++|* 00130 M01S00111.chkpt +++|* USES X - 2. 00131 M01S00112.chkpt +++|* B - 6, 7. 00132 M01S00113.chkpt +++|* 00133 M01S00114.chkpt +++|* CALLS RDA. 00134 M01S00115.chkpt +++| 00135 M01S00116.chkpt +++| 00136 M01S00117.chkpt +++| PURGMAC READC 00137 M01S00118.chkpt +++| 00138 M01S00119.chkpt +++| READC MACRO F,S,N 00139 M01S00120.chkpt +++| MACREF READC 00140 M01S00121.chkpt +++| R= B6,S 00141 M01S00122.chkpt +++| R= B7,N 00142 M01S00123.chkpt +++| R= X2,F 00143 M01S00124.chkpt +++| RJ RDA 00144 M01S00125.chkpt +++| ENDM 00145 M01S00126.chkpt +++| TITLE STORAGE ASSIGNMENT. 00146 M01S00127.chkpt +++| ORG 101B 00147 M01S00128.chkpt +++| FETS BSS 0 00148 M01S00129.chkpt +++| BSS 2 STORAGE FOR READC CONTROLS 00149 M01S00130.chkpt +++| I BSS 0 00150 M01S00131.chkpt +++| INPUT FILEB IBUF,IBUFL,EPR,(FET=14) 00151 M01S00132.chkpt +++| O BSS 0 00152 M01S00133.chkpt +++| CCCCCCC FILEB OBUF,OBUFL,(FET=10) 00153 M01S00134.chkpt +++| P BSS 0 00154 M01S00135.chkpt +++| CCCCCCM RFILEB 2,1,(FET=8) 00155 M01S00136.chkpt +++| SPACE 4 00156 M01S00137.chkpt +++|* PARAMETER FLAG LOCATIONS. 00157 M01S00138.chkpt +++| 00158 M01S00139.chkpt +++| CKNO CON 1 CHECKPOINT NUMBER 00159 M01S00140.chkpt +++| MDFL CON CKST MODE FLAG 00160 M01S00141.chkpt +++| TICF CON 0 TERMINAL INTERRUPT CONTROL FLAG WORD 00161 M01S00142.chkpt +++| SPFL BSSZ 1 SELECTIVE CHECKPOINT FLAG 00162 M01S00143.chkpt +++| PTR BSSZ 1 POINTER FOR BLOCKED COPY(PTS TO BLOCK WORD) 00163 M01S00144.chkpt +++| HDRB BSSZ 1 HEADER STORAGE WORD 00164 M01S00145.chkpt +++| CSFP BSSZ 1 CONTROL STATEMENT FILE POSITION 00165 M01S00146.chkpt +++| PAR BSS 101B FILE LIST AREA 00166 M01S00147.chkpt +++| SPACE 4,10 00167 M01S00148.chkpt +++|* COMMON DECKS. 00168 M01S00013.ns22000 +++| 00169 M01S00014.ns22000 +++| 00170 M01S00149.chkpt +++|*CALL COMCMAC 00171 M01S00150.chkpt +++|*CALL COMSLFD 00172 M01S00015.ns22000 +++|*CALL COMSSFM 00173 M01S00151.chkpt +++|*CALL COMSSSJ 00174 M01S00152.chkpt +++| SPACE 4,10 00175 M01S00153.chkpt +++|* SPECIAL ENTRY POINTS. 00176 M01S00154.chkpt +++| 00177 M01S00155.chkpt +++| 00178 M01S00156.chkpt +++| DMP= EQU 0 DUMP ENTIRE FIELD LENGTH 00179 M01S00157.chkpt +++| SFP EQU 0 ENTRY POINT FOR SFP CALL 00180 M01S00158.chkpt +++| SSJ= BSSZ SSJL SPECIAL SYSTEM JOB AREA 00181 M01S00159.chkpt +++| TITLE MAIN PROGRAM. 00182 M01S00160.chkpt +++|** CKP - MAIN LOOP. 00183 M01S00161.chkpt +++|* 00184 M01S00162.chkpt +++|* ENTRY - DM* FILE CONTAINS FIELD LENGTH AND CONTROL 00185 M01S00163.chkpt +++|* POINT DUMP. 00186 M01S00164.chkpt +++| 00187 M01S00165.chkpt +++| 00188 M01S00166.chkpt +++| CKP RJ PRS PRESET PROGRAM 00189 M01S00167.chkpt +++| RECALL O 00190 M01S00168.chkpt +++| RJ HDR WRITE HEADER ON CHKPT FILE 00191 M01S00169.chkpt +++| RJ WRT WRITE FILE TABLE TO CHKPT FILE 00192 M01S00170.chkpt +++| RJ CPF COPY LOCAL FILES TO CHKPT FILE 00193 M01S00171.chkpt +++| 00194 M01S00172.chkpt +++|* COPY DM* FILE TO CHKPT FILE. 00195 M01S00173.chkpt +++| 00196 M01S00174.chkpt +++| SA1 =C/DM*/ 00197 M01S00175.chkpt +++| SX3 3 00198 M01S00176.chkpt +++| BX6 X1+X3 SET FILE NAME TO DM* 00199 M01S00177.chkpt +++| MX5 0 00200 M01S00178.chkpt +++| SA6 I 00201 M01S00179.chkpt +++| REWIND I 00202 M01S00180.chkpt +++| SX6 40000B SET DATA TYPE 00203 M01S00181.chkpt +++| SB5 B1 00204 M01S00182.chkpt +++| RJ BLO COPY DM* FILE TO CHKPT FILE 00205 M01S00183.chkpt +++| 00206 M01S00184.chkpt +++|* PROCESS END OF CHECKPOINT. 00207 M01S00185.chkpt +++| 00208 M01S00186.chkpt +++| SX6 50000B SET END OF CKP 00209 M01S00187.chkpt +++| SA6 A6+ 00210 M01S00188.chkpt +++| WRITEW O,BUF,A6-BUF+1 00211 M01S00189.chkpt +++| WRITER O,R 00212 M01S00190.chkpt +++| SA1 CKNO GET NUMBER OF THIS CHECKPOINT 00213 M01S00191.chkpt +++| RJ CDD CONVERT TO DISPLAY CODE 00214 M01S00192.chkpt +++| SA2 CKPA+1 00215 M01S00193.chkpt +++| MX0 -24 00216 M01S00194.chkpt +++| BX7 -X0*X6 00217 M01S00195.chkpt +++| SA1 HDRB CONTROL WORD FOR LAST WRITE TO CKP FILE 00218 M01S00196.chkpt +++| LX7 24 00219 M01S00197.chkpt +++| MX6 1 00220 M01S00198.chkpt +++| BX7 X7+X2 ADD CHECKPOINT NUMBER TO DAYFILE MESSAGE 00221 M01S00199.chkpt +++| SA7 A2+ 00222 M01S00200.chkpt +++| BX6 X1+X6 00223 M01S00201.chkpt +++| WRITEO O 00224 M01S00202.chkpt +++| WRITER O,R 00225 M01S00203.chkpt +++| BKSP O BACKSPACE TO BE READY FOR NEXT CHKPT 00226 M01S00204.chkpt +++| SA1 SPPR+1 SET COMPLETION BIT IN PARAMETER TABLE 00227 M01S00205.chkpt +++| MX0 12 00228 M01S00206.chkpt +++| SA2 CKNO GET NUMBER OF THIS CHECKPOINT 00229 M01S00207.chkpt +++| LX2 48 00230 M01S00208.chkpt +++| BX6 -X0*X1 MASK NEW NUMBER IN RESPONSE 00231 M01S00209.chkpt +++| SX7 B1 00232 M01S00210.chkpt +++| BX6 X6+X7 ADD COMPLETION BIT 00233 M01S00211.chkpt +++| BX6 X6+X2 ADD NEW CHECKPOINT NUMBER 00234 M01S00212.chkpt +++| SA6 A1 RESTORE PARAMETER WORD 00235 M01S00213.chkpt +++| SX6 3 00236 M01S00214.chkpt +++| SA1 =C*CCCCCCO* RETURN CONTROL STATEMENT FILE 00237 M01S00215.chkpt +++| BX6 X1+X6 00238 M01S00216.chkpt +++| SA6 I 00239 M01S00217.chkpt +++| RETURN A6 00240 M01S00218.chkpt +++| MESSAGE CKPA CHECKPOINT COMPLETE MESSAGE 00241 M01S00219.chkpt +++| ENDRUN 00242 M01S00220.chkpt +++| 00243 M01S00221.chkpt +++| CKPA DATA 10H CHECKPOIN 00244 M01S00222.chkpt +++| VFD 12/2HT ,24/0,24/4H COM 00245 M01S00223.chkpt +++| DATA 6LPLETE. 00246 M01S00224.chkpt +++| CKPB DATA 10HPLETED TO SCRATCH WORD-USED IF ALTERNATE CB FILES 00247 M01S00225.chkpt +++| TITLE SUBROUTINES 00248 M01S00226.chkpt +++| BLO SPACE 4 00249 M01S00227.chkpt +++|** BLO - COPY FILE TO CHKPT FILE IN BLOCKED MODE. 00250 M01S00228.chkpt +++|* 00251 M01S00229.chkpt +++|* ENTRY (X6) = DATA TYPE. 00252 M01S00230.chkpt +++|* (X5) = -1 IF COPY TO POSITION. 00253 M01S00231.chkpt +++|* (B5) = 0 IF EMPTY FILE. 00254 M01S00232.chkpt +++|* 00255 M01S00233.chkpt +++|* EXIT FILE IN FET I COPIED TO FILE IN FET O 00256 M01S00234.chkpt +++|* 00257 M01S00235.chkpt +++|* CALLS NONE. 00258 M01S00236.chkpt +++|* 00259 M01S00237.chkpt +++|* USES A - 1, 2, 3, 4, 6, 7. 00260 M01S00238.chkpt +++|* B - 2, 5, 6. 00261 M01S00239.chkpt +++|* X - 1, 2, 3, 4, 6, 7. 00262 M01S00240.chkpt +++|* 00263 M01S00241.chkpt +++|* MACROS READ, READW, RECALL, WRITEW. 00264 M01S00242.chkpt +++| 00265 M01S00243.chkpt +++| 00266 M01S00244.chkpt +++| BLO SUBR ENTRY/EXIT 00267 M01S00245.chkpt +++| SA6 REC STORE DATA TYPE 00268 M01S00246.chkpt +++| ZR B5,BLO6 IF CONTROL WORD NEEDED FOR EMPTY FILE 00269 M01S00247.chkpt +++| SX7 BLO1 SET ERROR PROCESSING RETURN ADDRESS 00270 M01S00248.chkpt +++| SA7 ERPA 00271 M01S00249.chkpt +++| PL X5,BLO1 IF NOT COPY TO POSITION 00272 M01S00250.chkpt +++| SA2 I+1 SET RANDOM FILE BIT 00273 M01S00251.chkpt +++| MX1 1 00274 M01S00252.chkpt +++| LX1 60-12 00275 M01S00253.chkpt +++| BX6 X1+X2 00276 M01S00254.chkpt +++| SA6 A2 00277 M01S00255.chkpt +++| BX6 X6-X6 00278 M01S00256.chkpt +++| SA6 I+6 CLEAR RANDOM ADDRESS RETURN 00279 M01S00257.chkpt +++| BLO1 READ I 00280 M01S00258.chkpt +++| PL X5,BLO2 IF NOT COPY TO POSITION 00281 M01S00259.chkpt +++| SA1 I+6 00282 M01S00260.chkpt +++| AX1 30 00283 M01S00261.chkpt +++| SA2 I+9 00284 M01S00262.chkpt +++| AX2 12 00285 M01S00263.chkpt +++| IX3 X2-X1 00286 M01S00264.chkpt +++| MX1 -24 00287 M01S00265.chkpt +++| BX3 -X1*X3 00288 M01S00266.chkpt +++| SB5 B0 00289 M01S00267.chkpt +++| PL X3,BLO2 IF NOT PAST POSITION 00290 M01S00268.chkpt +++| EQ BLO6 00291 M01S00269.chkpt +++| 00292 M01S00270.chkpt +++| BLO2 SA1 PTR RETRIEVE BLOCK WORD 00293 M01S00271.chkpt +++| SA2 X1 00294 M01S00272.chkpt +++| MX3 -9 00295 M01S00273.chkpt +++| BX3 -X3*X2 00296 M01S00274.chkpt +++| SA4 REC SET DATA TYPE 00297 M01S00275.chkpt +++| BX6 X3+X4 00298 M01S00276.chkpt +++| SA6 X1 UPDATE BLOCK WORD 00299 M01S00277.chkpt +++| READW I,(X1+B1),X3 READ DATA IN AFTER CONTROL WORD 00300 M01S00278.chkpt +++| NZ X1,BLO3 IF EOR OR EOF 00301 M01S00279.chkpt +++| RECALL I 00302 M01S00280.chkpt +++| WRITEW O,BUF,BUFL 00303 M01S00281.chkpt +++| SX6 777B 00304 M01S00282.chkpt +++| SA6 BUF RESET BLOCK WORD 00305 M01S00283.chkpt +++| SX7 A6 00306 M01S00284.chkpt +++| SA7 PTR RESET LOCATION POINTER 00307 M01S00285.chkpt +++| EQ BLO2 LOOP 00308 M01S00286.chkpt +++| 00309 M01S00287.chkpt +++|* IF END OF RECORD. 00310 M01S00288.chkpt +++| 00311 M01S00289.chkpt +++| BLO3 SA2 PTR UPDATE POINTERS 00312 M01S00290.chkpt +++| SB5 X2 CONTROL WORD ADDRESS 00313 M01S00291.chkpt +++| SB5 B6-B5 NEW ADDRESS - OLD ONE 00314 M01S00292.chkpt +++| SA4 REC 00315 M01S00293.chkpt +++| SX4 X4+1000B SET EOR FLAG 00316 M01S00294.chkpt +++| SB5 B5-B1 NUMBER OF WORDS READ 00317 M01S00295.chkpt +++| SX6 X4+B5 00318 M01S00296.chkpt +++| SB2 BUF+777B END OF BUFFER ADDRESS 00319 M01S00297.chkpt +++| SA6 X2 UPDATE BLOCK WORD 00320 M01S00298.chkpt +++| SX6 B2-B6 NUMBER WORDS LEFT IN BUF 00321 M01S00299.chkpt +++| NG X1,BLO4 IF EOF OR EOI 00322 M01S00300.chkpt +++| SA6 B6 00323 M01S00301.chkpt +++| SX7 A6 CURRENT POSITION 00324 M01S00302.chkpt +++| SA7 PTR UPDATE LOCATION POINTER 00325 M01S00303.chkpt +++| NZ X6,BLO1 IF NOT END OF BUFFER 00326 M01S00304.chkpt +++| WRITEW O,BUF,BUFL-1 00327 M01S00305.chkpt +++| SX6 777B 00328 M01S00306.chkpt +++| SA6 BUF RESET BLOCK WORD 00329 M01S00307.chkpt +++| EQ BLO5 LOOP 00330 M01S00308.chkpt +++| 00331 M01S00309.chkpt +++|* IF END OF FILE. 00332 M01S00310.chkpt +++| 00333 M01S00311.chkpt +++| BLO4 SA1 PTR 00334 M01S00312.chkpt +++| SA2 X1 RETRIEVE BLOCK WORD 00335 M01S00313.chkpt +++| SX6 X2+1000B SET EOF FLAG 00336 M01S00314.chkpt +++| SA4 I 00337 M01S00315.chkpt +++| LX4 59-9 00338 M01S00316.chkpt +++| SA6 X1 00339 M01S00317.chkpt +++| NG X4,BLO6 IF EOI 00340 M01S00318.chkpt +++| SX6 B2-B6 00341 M01S00319.chkpt +++| SA6 B6 SET NEW BLOCK WORD 00342 M01S00320.chkpt +++| NZ X6,BLO5 IF NOT AT END 00343 M01S00321.chkpt +++| WRITEW O,BUF,BUFL-1 00344 M01S00322.chkpt +++| SX6 777B 00345 M01S00323.chkpt +++| SA6 BUF RESET BLOCK WORD 00346 M01S00324.chkpt +++| BLO5 SX7 A6 00347 M01S00325.chkpt +++| SA7 PTR RESET LOCATION POINTER 00348 M01S00326.chkpt +++| EQ BLO1 LOOP 00349 M01S00327.chkpt +++| 00350 M01S00328.chkpt +++|* IF EOI. 00351 M01S00329.chkpt +++| 00352 M01S00330.chkpt +++| BLO6 SA1 PTR 00353 M01S00331.chkpt +++| SA3 REC GET DATA TYPE 00354 M01S00332.chkpt +++| SX6 X3+3000B SET EOI FLAG 00355 M01S00333.chkpt +++| SX6 X6+B5 SET LENGTH OF BLOCK 00356 M01S00334.chkpt +++| SA6 X1 00357 M01S00335.chkpt +++| SB2 A6+B5 ADDRESS OF LAST WORD READ 00358 M01S00336.chkpt +++| SB6 BUF+777B 00359 M01S00337.chkpt +++| SB6 B6-B2 NUMBER WORDS LEFT IN BUF 00360 M01S00338.chkpt +++| SX6 B6-B1 00361 M01S00339.chkpt +++| SA6 B2+B1 SET NEW BLOCK WORD 00362 M01S00340.chkpt +++| NZ X6,BLO7 IF NOT AT END 00363 M01S00341.chkpt +++| WRITEW O,BUF,BUFL-1 00364 M01S00342.chkpt +++| SX6 777B 00365 M01S00343.chkpt +++| SA6 BUF 00366 M01S00344.chkpt +++| BLO7 SX7 A6 00367 M01S00345.chkpt +++| SA7 PTR RESET OR UPDATE LOCATION POINTER 00368 M01S00346.chkpt +++| 00369 M01S00347.chkpt +++| SA1 I+1 00370 M01S00348.chkpt +++| MX2 1 00371 M01S00349.chkpt +++| LX2 60-12 00372 M01S00350.chkpt +++| BX7 -X2*X1 00373 M01S00351.chkpt +++| SA7 A1 CLEAR RANDOM PROCESSING BIT 00374 M01S00352.chkpt +++| EQ BLOX RETURN 00375 M01S00353.chkpt +++| ERP$ SPACE 4,10 00376 M01S00354.chkpt +++|** ERP$ - TAPE ERROR PROCESSING ROUTINE. 00377 M01S00355.chkpt +++|* 00378 M01S00356.chkpt +++|* ENTRY RETURN ADDRESS SET IN (ERPA). 00379 M01S00357.chkpt +++|* 00380 M01S00358.chkpt +++|* EXIT TO ADDRESS IN (ERPA) IF PARITY OR WRONG PARITY ERROR 00381 M01S00359.chkpt +++|* OTHERWISE ABORT. ALSO ABORT IF SECOND OCCURRANCE 00382 M01S00360.chkpt +++|* OF WRONG PARITY ERROR. 00383 M01S00361.chkpt +++|* 00384 M01S00362.chkpt +++|* USES A - 1, 2, 3, 6, 7. 00385 M01S00363.chkpt +++|* B - 3. 00386 M01S00364.chkpt +++|* X - 1, 2, 3, 6, 7. 00387 M01S00365.chkpt +++|* 00388 M01S00366.chkpt +++|* MACROS ABORT, MESSAGE, REWIND. 00389 M01S00367.chkpt +++| 00390 M01S00368.chkpt +++| 00391 M01S00369.chkpt +++| ERP$ SX2 37000B 00392 M01S00370.chkpt +++| SA1 I 00393 M01S00371.chkpt +++| BX3 X2*X1 00394 M01S00372.chkpt +++| AX3 9 00395 M01S00373.chkpt +++| SX2 X3-2 00396 M01S00374.chkpt +++| ZR X2,ERP2 IF PARITY ERROR 00397 M01S00375.chkpt +++| SX3 X2-2 00398 M01S00376.chkpt +++| ZR X3,ERP3 IF WRONG PARITY 00399 M01S00377.chkpt +++| ERP1 MESSAGE (=C* CHKPT UNABLE TO READ TAPE.*) 00400 M01S00378.chkpt +++| ABORT 00401 M01S00379.chkpt +++| 00402 M01S00380.chkpt +++|* PARITY ERROR PROCESSING. 00403 M01S00381.chkpt +++| 00404 M01S00382.chkpt +++| ERP2 SX2 740777B CLEAR ERROR RETURN 00405 M01S00383.chkpt +++| SA3 ERPA 00406 M01S00384.chkpt +++| BX6 X2*X1 00407 M01S00385.chkpt +++| SA6 A1 00408 M01S00386.chkpt +++| SB3 X3 00409 M01S00387.chkpt +++| JP B3 RETURN TO CALLER 00410 M01S00388.chkpt +++| 00411 M01S00389.chkpt +++|* WRONG PARITY PROCESSING. 00412 M01S00390.chkpt +++| 00413 M01S00391.chkpt +++| ERP3 SX3 100000B 00414 M01S00392.chkpt +++| SA2 REC SET PARITY BIT FOR CONTROL WORD 00415 M01S00393.chkpt +++| BX6 X2+X3 00416 M01S00394.chkpt +++| SA3 ERPA CHECK IF FIRST ERROR 00417 M01S00395.chkpt +++| SA6 A2 00418 M01S00396.chkpt +++| NG X3,ERP1 IF SECOND TRY 00419 M01S00397.chkpt +++| MX2 1 FLAG SECOND TRY 00420 M01S00398.chkpt +++| BX7 X2+X3 00421 M01S00399.chkpt +++| SX2 2 TOGGLE PARITY BIT 00422 M01S00400.chkpt +++| SA7 A3 00423 M01S00401.chkpt +++| BX1 X2-X1 00424 M01S00402.chkpt +++| SX2 740777B CLEAR ERROR CODE RETURNED 00425 M01S00403.chkpt +++| BX6 X2*X1 00426 M01S00404.chkpt +++| SA6 A1 00427 M01S00405.chkpt +++| SB3 X3+ 00428 M01S00406.chkpt +++| REWIND A1,R 00429 M01S00407.chkpt +++| JP B3 RETURN TO CALLER 00430 M01S00408.chkpt +++| 00431 M01S00409.chkpt +++| ERPA BSS 1 RETURN ADDRESS FOR ERROR PROCESSING 00432 M01S00410.chkpt +++| 00433 M01S00411.chkpt +++| REC BSSZ 1 00434 M01S00412.chkpt +++| CPF SPACE 4 00435 M01S00413.chkpt +++|** CPF - COPY FILES. 00436 M01S00414.chkpt +++|* 00437 M01S00415.chkpt +++|* ENTRY NONE. 00438 M01S00416.chkpt +++|* 00439 M01S00417.chkpt +++|* EXIT FILES IN FILE TABLE COPIED TO CHECKPOINT FILE 00440 M01S00418.chkpt +++|* AND REPOSITIONED. 00441 M01S00419.chkpt +++|* 00442 M01S00420.chkpt +++|* CALLS BLO, POF. 00443 M01S00421.chkpt +++|* 00444 M01S00422.chkpt +++|* USES A - 0, 1, 2, 3, 6. 00445 M01S00423.chkpt +++|* B - 5. 00446 M01S00424.chkpt +++|* X - 0, 1, 2, 3, 4, 5, 6. 00447 M01S00425.chkpt +++|* 00448 M01S00426.chkpt +++|* MACROS REWIND. 00449 M01S00427.chkpt +++| 00450 M01S00428.chkpt +++| 00451 M01S00429.chkpt +++| CPF SUBR ENTRY/EXIT 00452 M01S00430.chkpt +++| SA0 SBUF-2 SET TABLE ENTRY 00453 M01S00431.chkpt +++| CPF1 MX3 -12 00454 M01S00432.chkpt +++| SB5 B0 PRESET EMPTY FILE FLAG 00455 M01S00433.chkpt +++| SA0 A0+2 00456 M01S00434.chkpt +++| SA1 A0 GET TABLE ENTRY 00457 M01S00435.chkpt +++| SA2 A1+B1 00458 M01S00436.chkpt +++| ZR X1,CPFX RETURN IF END OF TABLE 00459 M01S00437.chkpt +++| SX5 B1+B1 PRESET COPY TYPE 00460 M01S00438.chkpt +++| MX0 42 00461 M01S00439.chkpt +++| BX7 X1 00462 M01S00440.chkpt +++| BX6 X6-X6 00463 M01S00441.chkpt +++| SA6 I+7 00464 M01S00442.chkpt +++| SA7 A6+B1 SAVE FNT 00465 M01S00443.chkpt +++| BX6 X2 00466 M01S00444.chkpt +++| SA6 A7+B1 SAVE FST 00467 M01S00445.chkpt +++| MX4 -24 00468 M01S00446.chkpt +++| LX4 12 00469 M01S00447.chkpt +++| BX4 -X4*X2 ISOLATE RANDOM ADDRESS 00470 M01S00448.chkpt +++| BX3 X4 00471 M01S00449.chkpt +++| ZR X4,CPF2 IF EMPTY FILE 00472 M01S00450.chkpt +++| SA4 =C*CCCCCCO* 00473 M01S00451.chkpt +++| BX4 X4-X1 00474 M01S00452.chkpt +++| BX6 X0*X4 00475 M01S00453.chkpt +++| SX3 3 SET DEFAULT OF BINARY 00476 M01S00454.chkpt +++| ZR X6,CPF3 IF CONTROL STATEMENT FILE 00477 M01S00455.chkpt +++| CPF2 MX5 -3 00478 M01S00456.chkpt +++| BX4 X2 00479 M01S00457.chkpt +++| AX4 9 00480 M01S00458.chkpt +++| BX5 -X5*X4 00481 M01S00459.chkpt +++| SX4 X5-4 00482 M01S00460.chkpt +++| ZR X4,CPF1 IF NO COPY 00483 M01S00461.chkpt +++| ZR X3,CPF4 IF EMPTY BUT COPY TYPE ALREADY SPECIFIED 00484 M01S00462.chkpt +++| CPF3 BX4 X0*X1 SET NAME AND STATUS IF FET 00485 M01S00463.chkpt +++| BX6 X4+X3 00486 M01S00464.chkpt +++| SA6 I 00487 M01S00465.chkpt +++| SX5 X5-1 00488 M01S00466.chkpt +++| SB5 B1 CLEAR EMPTY FILE FLAG 00489 M01S00467.chkpt +++| ZR X5,CPF4 IF NO REWIND REQUIRED 00490 M01S00468.chkpt +++| REWIND I,R 00491 M01S00469.chkpt +++| CPF4 SX6 30000B SET DATA TYPE 00492 M01S00470.chkpt +++| RJ BLO COPY FILE IN BLOCKED MODE 00493 M01S00471.chkpt +++| REWIND I,R 00494 M01S00472.chkpt +++| RJ POF POSITION FILE 00495 M01S00473.chkpt +++| EQ CPF1 LOOP 00496 M01S00474.chkpt +++| HDR SPACE 4 00497 M01S00475.chkpt +++|** HDR - WRITE HEADER. 00498 M01S00476.chkpt +++|* 00499 M01S00477.chkpt +++|* ENTRY NONE. 00500 M01S00478.chkpt +++|* 00501 M01S00479.chkpt +++|* EXIT HEADER WRITTEN ON CHECKPOINT FILE. 00502 M01S00480.chkpt +++|* 00503 M01S00481.chkpt +++|* CALLS NONE. 00504 M01S00482.chkpt +++|* 00505 M01S00483.chkpt +++|* USES A - 1, 2, 6. 00506 M01S00484.chkpt +++|* X - 1, 2, 6, 7. 00507 M01S00485.chkpt +++|* B - NONE. 00508 M01S00486.chkpt +++|* 00509 M01S00487.chkpt +++|* MACROS GETJN, PDATE, WRITEW. 00510 M01S00488.chkpt +++| 00511 M01S00489.chkpt +++| 00512 M01S00490.chkpt +++| HDR SUBR ENTRY/EXIT 00513 M01S00491.chkpt +++| PDATE I+7 GET DATE AND TIME 00514 M01S00492.chkpt +++| SX6 10002B SET CODE WORD 00515 M01S00493.chkpt +++| SA6 BUF 00516 M01S00494.chkpt +++| SA2 CKNO GET CHECKPOINT NUMBER 00517 M01S00495.chkpt +++| SA1 MDFL GET MODE FLAG 00518 M01S00496.chkpt +++| LX1 12 00519 M01S00497.chkpt +++| BX6 X1+X2 00520 M01S00498.chkpt +++| SA2 I+7 00521 M01S00499.chkpt +++| LX2 18 00522 M01S00500.chkpt +++| BX6 X2+X6 00523 M01S00501.chkpt +++| SA6 A6+B1 00524 M01S00502.chkpt +++| SA6 HDRB STORE HEADER 00525 M01S00503.chkpt +++| GETJN BUF+2 GET JSN 00526 M01S00504.chkpt +++| WRITEW O,BUF,3 00527 M01S00505.chkpt +++| SX6 777B 00528 M01S00506.chkpt +++| SA6 BUF 00529 M01S00507.chkpt +++| SX6 A6 00530 M01S00508.chkpt +++| SA6 PTR 00531 M01S00509.chkpt +++| EQ HDRX RETURN
Line S00510 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00532 M02S00510.ns2039 ---| POF SPACE 4 00533 M01S00007.ns2039 +++| POF SPACE 4,15 00534 M01S00511.chkpt +++|** POF - POSITION FILE. 00535 M01S00512.chkpt +++|*
Line S00513 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00536 M02S00513.ns2039 ---|* ENTRY FILE REWOUND. 00537 M01S00008.ns2039 +++|* ENTRY MASS STORAGE FILE REWOUND. 00538 M01S00514.chkpt +++|*
Line S00515 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00539 M02S00515.ns2039 ---|* EXIT FILE POSITIONED. 00540 M01S00009.ns2039 +++|* EXIT MASS STORAGE FILE REPOSITIONED TO RANDOM INDEX 00541 M01S00010.ns2039 +++|* VALUE AT TIME OF CHECKPOINT REQUEST UNLESS AN ERROR 00542 M01S00011.ns2039 +++|* OCCURRED. 00543 M01S00516.chkpt +++|*
Line S00517 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00544 M02S00517.ns2039 ---|* CALLS NONE.
Line S00518 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00545 M02S00518.ns2039 ---|*
Line S00519 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00546 M02S00519.ns2039 ---|* USES A - 1, 2, 3, 6.
Line S00520 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00547 M02S00520.ns2039 ---|* B - 2.
Line S00521 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00548 M02S00521.ns2039 ---|* X - 0, 1, 2, 3, 4, 7.
Line S00522 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00549 M02S00522.ns2039 ---|*
Line S00523 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00550 M02S00523.ns2039 ---|* MACROS BKSPRU, EREXIT, MESSAGE, READ,
Line S00524 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00551 M02S00524.ns2039 ---|* READC, READCW, RECALL. 00552 M01S00012.ns2039 +++|* USES X - 0, 1, 4, 6, 7. 00553 M01S00013.ns2039 +++|* A - 1, 6. 00554 M01S00014.ns2039 +++|* B - 3. 00555 M01S00015.ns2039 +++|* 00556 M01S00016.ns2039 +++|* MACROS EREXIT, MESSAGE, READ. 00557 M01S00525.chkpt +++| 00558 M01S00526.chkpt +++| 00559 M01S00527.chkpt +++| POF SUBR ENTRY/EXIT
Line S00528 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00560 M02S00528.ns2039 ---| SA1 I+8 GET FNT
Line S00529 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00561 M02S00529.ns2039 ---| MX0 -2
Line S00530 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00562 M02S00530.ns2039 ---| AX1 13
Line S00531 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00563 M02S00531.ns2039 ---| BX2 -X0*X1
Line S00532 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00564 M02S00532.ns2039 ---| SX3 X2-1
Line S00533 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00565 M02S00533.ns2039 ---| ZR X3,POF2 IF TAPE FILE
Line S00534 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00566 M02S00534.ns2039 ---|
Line S00535 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00567 M02S00535.ns2039 ---|* POSITION MASS STORAGE.
Line S00536 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00568 M02S00536.ns2039 ---| 00569 M01S00537.chkpt +++| SA1 I+9 SET RANDOM ADDRESS 00570 M01S00538.chkpt +++| AX1 12 00571 M01S00539.chkpt +++| MX0 -24 00572 M01S00540.chkpt +++| BX6 -X0*X1 00573 M01S00541.chkpt +++| ZR X6,POFX IF NO RANDOM ADDRESS 00574 M01S00542.chkpt +++| SA6 P+6 00575 M01S00543.chkpt +++| SA1 I 00576 M01S00544.chkpt +++| BX6 X1 00577 M01S00545.chkpt +++| SA6 P SET FILE NAME 00578 M01S00546.chkpt +++| EREXIT POF1 00579 M01S00547.chkpt +++| READ P,R 00580 M01S00548.chkpt +++| EREXIT 0 00581 M01S00549.chkpt +++| EQ POFX RETURN 00582 M01S00550.chkpt +++| 00583 M01S00551.chkpt +++| POF1 MX0 42 00584 M01S00552.chkpt +++| SA1 I 00585 M01S00553.chkpt +++| BX1 X0*X1 FILE NAME 00586 M01S00554.chkpt +++| SX4 1R. 00587 M01S00555.chkpt +++| RJ SFN GENERATE BIT MASK FOR FILE NAME 00588 M01S00556.chkpt +++| CX7 X7 NUMBER OF BITS IN FILE NAME 00589 M01S00557.chkpt +++| BX7 -X7 00590 M01S00558.chkpt +++| SB3 X7+54 SHIFT COUNT TO POSITION PERIOD 00591 M01S00559.chkpt +++| LX4 X4,B3 00592 M01S00560.chkpt +++| BX6 X1+X4 INSERT FILE NAME INTO DAYFILE MESSAGE 00593 M01S00561.chkpt +++| SA6 POFA+2 00594 M01S00562.chkpt +++| MESSAGE POFA * POSITION ERROR ON--XXXXXXX.* 00595 M01S00563.chkpt +++| EREXIT 0 00596 M01S00564.chkpt +++| EQ POFX RETURN
Line S00565 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00597 M02S00565.ns2039 ---|
Line S00566 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00598 M02S00566.ns2039 ---|* POSITION TAPES.
Line S00567 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00599 M02S00567.ns2039 ---|
Line S00568 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00600 M02S00568.ns2039 ---| POF2 SX7 POF3 SET RETURN ADDRESS FOR ERROR PROCESSING
Line S00569 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00601 M02S00569.ns2039 ---| SA7 ERPA
Line S00570 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00602 M02S00570.ns2039 ---| SA1 I+9 GET BLOCK COUNT
Line S00571 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00603 M02S00571.ns2039 ---| AX1 12
Line S00572 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00604 M02S00572.ns2039 ---| MX3 -24
Line S00573 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00605 M02S00573.ns2039 ---| BX5 -X3*X1
Line S00574 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00606 M02S00574.ns2039 ---| ZR X5,POFX IF REWOUND
Line S00575 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00607 M02S00575.ns2039 ---| SX0 B0 PRESET ZERO BLOCK COUNT
Line S00576 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00608 M02S00576.ns2039 ---| POF3 MX6 1
Line S00577 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00609 M02S00577.ns2039 ---| SA6 I-2
Line S00578 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00610 M02S00578.ns2039 ---| READCW I
Line S00579 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00611 M02S00579.ns2039 ---| POF4 READC I,TBUF,TBUFL
Line S00580 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00612 M02S00580.ns2039 ---| SX1 X1+2
Line S00581 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00613 M02S00581.ns2039 ---| ZR X1,POFX IF EOI
Line S00582 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00614 M02S00582.ns2039 ---| IX3 X0-X5
Line S00583 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00615 M02S00583.ns2039 ---| PL X3,POF5 IF AT POSITION
Line S00584 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00616 M02S00584.ns2039 ---| SX1 X1-1
Line S00585 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00617 M02S00585.ns2039 ---| ZR X1,POF3 IF EOF
Line S00586 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00618 M02S00586.ns2039 ---| EQ POF4
Line S00587 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00619 M02S00587.ns2039 ---|
Line S00588 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00620 M02S00588.ns2039 ---| POF5 RECALL I
Line S00589 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00621 M02S00589.ns2039 ---| SA1 I CHECK STATUS IN FET
Line S00590 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00622 M02S00590.ns2039 ---| MX2 -10
Line S00591 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00623 M02S00591.ns2039 ---| BX3 -X2*X1
Line S00592 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00624 M02S00592.ns2039 ---| SX1 X3-1033B
Line S00593 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00625 M02S00593.ns2039 ---| ZR X1,POFX IF END OF INFORMATION
Line S00594 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00626 M02S00594.ns2039 ---| SA1 I+2
Line S00595 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00627 M02S00595.ns2039 ---| SA2 A1+B1 GET WORDS IN BUFFER
Line S00596 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00628 M02S00596.ns2039 ---| IX3 X1-X2
Line S00597 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00629 M02S00597.ns2039 ---| SA4 A1-B1 GET FIRST
Line S00598 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00630 M02S00598.ns2039 ---| ZR X3,POFX IF EMPTY BUFFER
Line S00599 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00631 M02S00599.ns2039 ---| PL X3,POF6 IF IN .GT. OUT
Line S00600 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00632 M02S00600.ns2039 ---| SA3 A2+B1 GET LIMIT
Line S00601 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00633 M02S00601.ns2039 ---| SX4 X4
Line S00602 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00634 M02S00602.ns2039 ---| SX3 X3
Line S00603 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00635 M02S00603.ns2039 ---| IX3 X3-X2
Line S00604 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00636 M02S00604.ns2039 ---| IX4 X1-X4
Line S00605 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00637 M02S00605.ns2039 ---| IX3 X4+X3
Line S00606 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00638 M02S00606.ns2039 ---| POF6 SA1 X2 GET CONTROL WORD
Line S00607 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00639 M02S00607.ns2039 ---| SX7 5
Line S00608 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00640 M02S00608.ns2039 ---| SX4 X1+16B ACCOUNT FOR CONTROL WORDS AND EXTRA BYTES
Line S00609 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00641 M02S00609.ns2039 ---| IX7 X4/X7 NUMBER OF WORDS IN WHOLE BLOCK
Line S00610 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00642 M02S00610.ns2039 ---| IX6 X3-X7 NUMBER OF WORDS LEFT IN BUFFER
Line S00611 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00643 M02S00611.ns2039 ---| SX0 X0+B1 INCREMENT BLOCK COUNT
Line S00612 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00644 M02S00612.ns2039 ---| ZR X6,POF7 IF 1 BLOCK EVEN
Line S00613 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00645 M02S00613.ns2039 ---| SX3 X6
Line S00614 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00646 M02S00614.ns2039 ---| IX2 X2+X7 NEW OUT
Line S00615 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00647 M02S00615.ns2039 ---| SA1 I+4
Line S00616 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00648 M02S00616.ns2039 ---| SX1 X1
Line S00617 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00649 M02S00617.ns2039 ---| IX1 X2-X1 COMPARE TO LIMIT
Line S00618 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00650 M02S00618.ns2039 ---| NG X1,POF6 IF NO END AROUND
Line S00619 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00651 M02S00619.ns2039 ---| SA2 A4 GET FIRST
Line S00620 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00652 M02S00620.ns2039 ---| IX2 X2+X1 NEW OUT
Line S00621 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00653 M02S00621.ns2039 ---| EQ POF6
Line S00622 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00654 M02S00622.ns2039 ---|
Line S00623 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00655 M02S00623.ns2039 ---| POF7 IX3 X0-X5
Line S00624 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00656 M02S00624.ns2039 ---| ZR X3,POFX IF AT POSITION
Line S00625 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00657 M02S00625.ns2039 ---| BKSPRU I,X3,R
Line S00626 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00658 M02S00626.ns2039 ---| EQ POFX RETURN 00659 M01S00627.chkpt +++| 00660 M01S00628.chkpt +++| POFA DATA C* POSITION ERROR ON--XXXXXXX.* 00661 M01S00629.chkpt +++| RDA SPACE 4 00662 M01S00630.chkpt +++|** RDA - READ DATA. 00663 M01S00631.chkpt +++|* PROCESSES CALLS TO READ WORDS (RDW=). 00664 M01S00632.chkpt +++|* DEBLOCKS DATA IF CONTROL WORD READS. 00665 M01S00633.chkpt +++|* 00666 M01S00634.chkpt +++|* ENTRY B6 = BUFFER ADDRESS. 00667 M01S00635.chkpt +++|* B7 = NUMBER OF WORDS NEEDED. 00668 M01S00636.chkpt +++|* X0 = BLOCK COUNT. 00669 M01S00637.chkpt +++|* X2 = FET ADDRESS. 00670 M01S00638.chkpt +++|* 00671 M01S00639.chkpt +++|* EXIT FET-2 CONTAINS NUMBER OF WORDS REMAINING IF BUFFER 00672 M01S00640.chkpt +++|* FILLED. 00673 M01S00641.chkpt +++|* XO = BLOCK COUNT (UPDATED). 00674 M01S00642.chkpt +++|* X1 = -2 IF EOI. 00675 M01S00643.chkpt +++|* 00676 M01S00644.chkpt +++|* CALLS RDW=. 00677 M01S00645.chkpt +++|* 00678 M01S00646.chkpt +++|* USES A - 1, 3, 6, 7. 00679 M01S00647.chkpt +++|* B - 5, 6, 7. 00680 M01S00648.chkpt +++|* X - 0, 1, 4, 6, 7. 00681 M01S00649.chkpt +++| 00682 M01S00650.chkpt +++| 00683 M01S00651.chkpt +++| RDA5 SX6 B5-B7 UPDATE WORDS REMAINING 00684 M01S00652.chkpt +++| SA6 A1 00685 M01S00653.chkpt +++| 00686 M01S00654.chkpt +++| RJ RDW= READ WORDS 00687 M01S00655.chkpt +++| RDA PS ENTRY/EXIT 00688 M01S00656.chkpt +++| RDA1 SA1 X2-2 GET NUMBER OF WORDS BEFORE CONTROL WORD 00689 M01S00657.chkpt +++| SB5 X1+ 00690 M01S00658.chkpt +++| PL X1,RDA2 IF NOT FIRST READ 00691 M01S00659.chkpt +++| SX7 B7+ SET WORDS NEEDED 00692 M01S00660.chkpt +++| SA7 RDAA 00693 M01S00661.chkpt +++| JP RDA4 00694 M01S00662.chkpt +++| 00695 M01S00663.chkpt +++| RDA2 GE B5,B7,RDA5 IF ENOUGH DATA TO FILL BUFFER 00696 M01S00664.chkpt +++| SA3 X2-1 CHECK EOR FLAG 00697 M01S00665.chkpt +++| PL X3,RDA3 IF NOT EOR ON FILE 00698 M01S00666.chkpt +++| MX6 1 SET NEW READ FLAG 00699 M01S00667.chkpt +++| SB7 B5+B1 SET WORDS TO READ 00700 M01S00668.chkpt +++| SA6 A3 00701 M01S00669.chkpt +++| SA6 A1 00702 M01S00670.chkpt +++| RJ RDW= READ WORDS 00703 M01S00671.chkpt +++| SX1 B6-B1 SET EOR INDICATION 00704 M01S00672.chkpt +++| SB6 B6-B1 BACK UP LWA TO ALLOW FOR CONTROL WORD 00705 M01S00673.chkpt +++| JP RDA RETURN 00706 M01S00674.chkpt +++| 00707 M01S00675.chkpt +++| RDA3 SX6 B7-B5 SAVE ADDITIONAL WORDS NEEDED 00708 M01S00676.chkpt +++| SA6 RDAA 00709 M01S00677.chkpt +++| SB7 B5+B1 SET WORDS TO TRANSFER 00710 M01S00678.chkpt +++| RJ RDW= READ WORDS 00711 M01S00679.chkpt +++| SB6 B6-B1 BACK UP OVER LAST CONTROL WORD 00712 M01S00680.chkpt +++| RDA4 SB7 B1 READ CONTROL WORD 00713 M01S00681.chkpt +++| RJ RDW= 00714 M01S00682.chkpt +++| NG X1,RDA IF EOF/EOI 00715 M01S00683.chkpt +++| SB6 B6-B1 BACK UP WORKING BUFFER 00716 M01S00684.chkpt +++| SA1 B6 CONTROL WORD 00717 M01S00685.chkpt +++| SX7 5 00718 M01S00686.chkpt +++| SX4 X1+4 ROUND UP 00719 M01S00687.chkpt +++| AX1 36 EXTRACT BLOCK SIZE 00720 M01S00688.chkpt +++| SX3 X1 00721 M01S00689.chkpt +++| IX7 X4/X7 WORDS IN BLOCK 00722 M01S00690.chkpt +++| IX6 X7-X3 SAVE EOR FLAG 00723 M01S00691.chkpt +++| SA7 X2-2 STORE WORD COUNT 00724 M01S00692.chkpt +++| SA6 X2-1 EOR FLAG 00725 M01S00693.chkpt +++| SA1 RDAA RESET WORDS NEEDED 00726 M01S00694.chkpt +++| SB7 X1 00727 M01S00695.chkpt +++| SX0 X0+B1 INCREMENT BLOCK COUNT 00728 M01S00696.chkpt +++| JP RDA1 LOOP 00729 M01S00697.chkpt +++| 00730 M01S00698.chkpt +++| RDAA CON 0 00731 M01S00699.chkpt +++| WRT SPACE 4 00732 M01S00700.chkpt +++|** WRT - WRITE TABLE. 00733 M01S00701.chkpt +++|* 00734 M01S00702.chkpt +++|* ENTRY NONE. 00735 M01S00703.chkpt +++|* 00736 M01S00704.chkpt +++|* EXIT FILE TABLE WRITTEN ON CHECKPOINT FILE. 00737 M01S00705.chkpt +++|*
Line S00706 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00738 M02S00706.ns21000 ---|* CALLS NONE.
Line S00707 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00739 M02S00707.ns21000 ---|*
Line S00708 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00740 M02S00708.ns21000 ---|* USES A - ALL.
Line S00709 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00741 M02S00709.ns21000 ---|* B - ALL.
Line S00710 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00742 M02S00710.ns21000 ---|* X - ALL.
Line S00711 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00743 M02S00711.ns21000 ---|*
Line S00712 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00744 M02S00712.ns21000 ---|* MACROS ABORT, MESSAGE, WRITEO, WRITEW. 00745 M01S00001.ns21000 +++|* USES X - ALL. 00746 M01S00002.ns21000 +++|* A - ALL. 00747 M01S00003.ns21000 +++|* B - 2, 5. 00748 M01S00004.ns21000 +++|* 00749 M01S00005.ns21000 +++|* MACROS ABORT, MESSAGE, MOVE, WRITEO, WRITEW. 00750 M01S00713.chkpt +++| 00751 M01S00714.chkpt +++| 00752 M01S00715.chkpt +++| WRT SUBR ENTRY/EXIT 00753 M01S00716.chkpt +++| MX0 42 00754 M01S00717.chkpt +++| SX6 20000B SET DATA TYPE 00755 M01S00718.chkpt +++| SA6 REC 00756 M01S00719.chkpt +++| SA5 BUF SET BUFFER ADDRESS 00757 M01S00720.chkpt +++| SB2 B1+B1 00758 M01S00721.chkpt +++| 00759 M01S00722.chkpt +++|* SEARCH FILE LIST. 00760 M01S00723.chkpt +++| 00761 M01S00724.chkpt +++| SA0 SBUF-1 SET FNT TABLE ADDRESS 00762 M01S00725.chkpt +++| WRT1 SA0 A0+B2 00763 M01S00726.chkpt +++| SA1 A0 00764 M01S00727.chkpt +++| ZR X1,WRT15 IF END OF FNT TABLE 00765 M01S00017.ns2039 +++| MX6 -2 SET FILE TYPE INDICATOR TO ZERO IF TAPE 00766 M01S00018.ns2039 +++| BX3 X1 00767 M01S00019.ns2039 +++| AX3 13 00768 M01S00020.ns2039 +++| BX3 -X6*X3 00769 M01S00021.ns2039 +++| SB3 X3-1 00770 M01S00728.chkpt +++| SA3 =C*CCCCCCO* 00771 M01S00729.chkpt +++| BX2 X1-X3 00772 M01S00730.chkpt +++| BX2 X0*X2
Line S00731 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00773 M02S00731.ns2081 ---| NZ X2,WRT2 IF NOT CONTROL STATEMENT FILE 00774 M01S00001.ns2081 +++| NZ X2,WRT1.1 IF NOT CONTROL STATEMENT FILE 00775 M01S00732.chkpt +++| SA2 CSFP GET CONTROL STATEMENT FILE POSITION 00776 M01S00733.chkpt +++| MX6 -6 SAVE WORD COUNT 00777 M01S00734.chkpt +++| BX6 -X6*X2 00778 M01S00735.chkpt +++| BX6 X6+X3 00779 M01S00736.chkpt +++| MX3 -24 SAVE PRU NUMBER 00780 M01S00737.chkpt +++| LX3 6 00781 M01S00738.chkpt +++| BX3 -X3*X2 00782 M01S00739.chkpt +++| LX3 6 00783 M01S00740.chkpt +++| BX7 X3 00784 M01S00741.chkpt +++| SA6 A5 STORE ENTRY 00785 M01S00742.chkpt +++| SA7 A6+B1 00786 M01S00743.chkpt +++| SA5 A5+B2 00787 M01S00744.chkpt +++| EQ WRT1 LOOP FOR ALL FNT ENTRIES 00788 M01S00002.ns2081 +++| 00789 M01S00003.ns2081 +++|* CHECK FOR CCL FILES. 00790 M01S00004.ns2081 +++| 00791 M01S00005.ns2081 +++| WRT1.1 SA3 WRTD *ZZZZZC0* 00792 M01S00006.ns2081 +++| SA4 WRTE *ZZZZZC2* 00793 M01S00007.ns2081 +++| BX7 X0*X1 00794 M01S00008.ns2081 +++| IX3 X7-X3 00795 M01S00009.ns2081 +++| NG X3,WRT2 IF NOT CCL FILE 00796 M01S00010.ns2081 +++| IX4 X4-X7 00797 M01S00011.ns2081 +++| NG X4,WRT2 IF NOT CCL FILE 00798 M01S00012.ns2081 +++| SX7 4 00799 M01S00013.ns2081 +++| EQ B3,WRT7 IF TAPE 00800 M01S00014.ns2081 +++| R= X7,2 00801 M01S00015.ns2081 +++| EQ WRT7 MAKE TABLE ENTRY 00802 M01S00745.chkpt +++| 00803 M01S00746.chkpt +++| WRT2 SA3 PAR SET FILE LIST ADDRESS 00804 M01S00747.chkpt +++| MX6 -30 00805 M01S00748.chkpt +++| BX3 -X6*X3 00806 M01S00749.chkpt +++| ZR X3,WRT11 IF NO TABLE 00807 M01S00750.chkpt +++| AX3 12 GET NUMBER OF FILES IN LIST 00808 M01S00751.chkpt +++| SB5 X3 00809 M01S00752.chkpt +++| WRT3 SA3 A3+B1 00810 M01S00753.chkpt +++| BX6 X1-X3 00811 M01S00754.chkpt +++| BX6 X0*X6 00812 M01S00755.chkpt +++| ZR X6,WRT5 IF FOUND IN LIST 00813 M01S00756.chkpt +++| SB5 B5-B1 00814 M01S00757.chkpt +++| NZ B5,WRT3 LOOP ALL FILE ENTRIES 00815 M01S00758.chkpt +++| SA3 SPFL CHECK IF SELECTIVE CHECKPOINT 00816 M01S00759.chkpt +++| ZR X3,WRT11 IF ALL FILES REQUIRED
Line S00760 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00817 M02S00760.ns2081 ---| SA3 FILE CHECK FOR SYSTEM FILES 00818 M01S00016.ns2081 +++| SA3 WRTC CHECK FOR SYSTEM FILES 00819 M01S00761.chkpt +++| WRT4 BX6 X1-X3 00820 M01S00762.chkpt +++| BX2 X0*X6
Line S00763 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00821 M02S00763.ns2039 ---| ZR X2,WRT6 IF SYSTEM FILE 00822 M01S00022.ns2039 +++| ZR X2,WRT4.1 IF SYSTEM FILE 00823 M01S00764.chkpt +++| SA3 A3+B1 00824 M01S00765.chkpt +++| NZ X3,WRT4 LOOP 00825 M01S00766.chkpt +++| BX1 X0*X1
Line S00767 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 00826 M02S00767.ns2081 ---| SA3 CCLF 00827 M01S00017.ns2081 +++| SA3 WRTF *ZZCCLAA* 00828 M01S00768.chkpt +++| IX6 X3-X1
Line S00769 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00829 M02S00769.ns2039 ---| ZR X6,WRT6 IF SPECIAL CCL FILE 00830 M01S00023.ns2039 +++| ZR X6,WRT4.1 IF SPECIAL CCL FILE 00831 M01S00770.chkpt +++| PL X6,WRT1 IF NOT SPECIAL CCL FILE 00832 M01S00771.chkpt +++| SA3 A3+B1 00833 M01S00772.chkpt +++| IX2 X3-X1
Line S00773 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00834 M02S00773.ns2039 ---| PL X2,WRT6 IF SPECIAL CCL FILE
Line S00774 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00835 M02S00774.ns2039 ---| EQ WRT1 LOOP ALL FNT ENTRIES 00836 M01S00024.ns2039 +++| NG X2,WRT1 IF NOT SPECIAL CCL FILE 00837 M01S00025.ns2039 +++| WRT4.1 NZ B3,WRT6 IF NOT TAPE 00838 M01S00026.ns2039 +++| SX7 4 00839 M01S00027.ns2039 +++| EQ WRT7 STORE IN TABLE 00840 M01S00775.chkpt +++| 00841 M01S00776.chkpt +++| WRT5 SX7 X3 GET COPY TYPE 00842 M01S00777.chkpt +++| AX7 12
Line S00778 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00843 M02S00778.ns2039 ---| SX2 X7-3 00844 M01S00028.ns2039 +++| NZ B3,WRT5.1 IF NOT TAPE 00845 M01S00029.ns2039 +++| SX2 X7-4 00846 M01S00030.ns2039 +++| ZR X2,WRT7 IF COPY TYPE IS CORRECT FOR TAPE 00847 M01S00031.ns2039 +++| SA3 PGNR 00848 M01S00032.ns2039 +++| NZ X3,WRT4.1 IF CONTROL CARD CALL 00849 M01S00033.ns2039 +++| 00850 M01S00034.ns2039 +++|* ISSUE WARNING MESSAGE AND FORCE SELECTION OF COPY TYPE 4 00851 M01S00035.ns2039 +++|* FOR MAGNETIC TAPE. 00852 M01S00036.ns2039 +++| 00853 M01S00037.ns2039 +++| SB6 A1+ SAVE FNT ADDRESS 00854 M01S00038.ns2039 +++| SB2 1R+ 00855 M01S00039.ns2039 +++| SB3 WRTB ASSEMBLY AREA 00856 M01S00040.ns2039 +++| SB5 -WRTA 00857 M01S00041.ns2039 +++| BX1 X0*X1 00858 M01S00042.ns2039 +++| RJ SNM SET NAME IN MESSAGE 00859 M01S00043.ns2039 +++| MESSAGE WRTB,3,R 00860 M01S00044.ns2039 +++| SA1 B6 RESTORE FNT ENTRY 00861 M01S00045.ns2039 +++| R= B2,2 00862 M01S00046.ns2039 +++| SX7 4 FORCE COPY TYPE 00863 M01S00047.ns2039 +++| EQ WRT7 CONTINUE WITH PROCESSING 00864 M01S00048.ns2039 +++| 00865 M01S00049.ns2039 +++| WRT5.1 SX2 X7-3 00866 M01S00779.chkpt +++| NZ X2,WRT7 IF NO STATUS CHECK NEEDED 00867 M01S00780.chkpt +++| 00868 M01S00781.chkpt +++|* CHECK STATUS FOR COPY TYPE. 00869 M01S00782.chkpt +++| 00870 M01S00783.chkpt +++| WRT6 SA3 A1+B1 GET FST
Line S00784 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00871 M02S00784.ns2039 ---| SX7 B0 SET COPY TYPE 00872 M01S00050.ns2039 +++| SX7 B0+ SET COPY TYPE 00873 M01S00785.chkpt +++| LX3 59-0 00874 M01S00786.chkpt +++| NG X3,WRT7 IF FILE WRITTEN 00875 M01S00787.chkpt +++| MX4 -3 00876 M01S00788.chkpt +++| BX4 -X4*X3 00877 M01S00789.chkpt +++| SX3 X4-3 00878 M01S00790.chkpt +++| ZR X3,WRT7 IF EOI 00879 M01S00791.chkpt +++| SX7 2 SET COPY TYPE 00880 M01S00792.chkpt +++| 00881 M01S00793.chkpt +++|* STORE IN TABLE. 00882 M01S00794.chkpt +++|
Line S00795 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00883 M02S00795.ns21000 ---| WRT7 MX2 -3
Line S00796 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00884 M02S00796.ns21000 ---| SA1 A1 GET FNT/FST 00885 M01S00006.ns21000 +++| WRT7 SA1 A1 GET FNT/FST 00886 M01S00797.chkpt +++| SA3 A1+B1
Line S00798 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00887 M02S00798.ns21000 ---| BX6 X1
Line S00799 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00888 M02S00799.ns21000 ---| LX6 2-16 00889 M01S00007.ns21000 +++| MX2 -4 00890 M01S00008.ns21000 +++| BX6 X3 00891 M01S00009.ns21000 +++| LX6 -4 00892 M01S00800.chkpt +++| BX4 -X2*X6 00893 M01S00801.chkpt +++| SX4 X4-4 00894 M01S00802.chkpt +++| NZ X4,WRT8 IF NOT EXECUTE-ONLY 00895 M01S00803.chkpt +++| SX7 4 00896 M01S00804.chkpt +++| WRT8 MX2 -6 00897 M01S00805.chkpt +++| BX4 -X2*X1 EXTRACT FILE STATUS 00898 M01S00806.chkpt +++| SX2 X4-UPST 00899 M01S00807.chkpt +++| ZR X2,WRT16 IF SECURE FILES 00900 M01S00808.chkpt +++| MX4 -24 00901 M01S00809.chkpt +++| LX4 12 00902 M01S00810.chkpt +++| BX4 -X4*X3 00903 M01S00811.chkpt +++| NZ X4,WRT10 IF NOT EMPTY FILE 00904 M01S00812.chkpt +++| SX7 4 SET NO COPY 00905 M01S00813.chkpt +++| WRT10 BX6 X1
Line S00814 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00906 M02S00814.ns21000 ---| MX0 48
Line S00815 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00907 M02S00815.ns21000 ---| BX4 X0*X3 00908 M01S00010.ns21000 +++| MX0 3 00909 M01S00816.chkpt +++| LX7 9
Line S00817 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00910 M02S00817.ns21000 ---| MX0 -4
Line S00818 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00911 M02S00818.ns21000 ---| BX7 X7+X4 00912 M01S00011.ns21000 +++| LX0 11-59 00913 M01S00819.chkpt +++| BX4 -X0*X3 00914 M01S00820.chkpt +++| BX7 X7+X4 00915 M01S00821.chkpt +++| SA6 A5 00916 M01S00822.chkpt +++| MX0 42 00917 M01S00823.chkpt +++| SA7 A6+B1 00918 M01S00824.chkpt +++| SA5 A5+B2 UPDATE LOCATION POINTER 00919 M01S00825.chkpt +++| EQ WRT1 LOOP ALL FNT ENTRIES 00920 M01S00826.chkpt +++| 00921 M01S00827.chkpt +++| WRT11 SA3 TSSF CHECK FOR SPECIAL SYSTEM FILES 00922 M01S00828.chkpt +++| MX4 42 00923 M01S00829.chkpt +++| WRT12 BX6 X3-X1 00924 M01S00830.chkpt +++| BX6 X4*X6 00925 M01S00831.chkpt +++| ZR X6,WRT1 IF SPECIAL SYSTEM FILE 00926 M01S00832.chkpt +++| SA3 A3+B1 00927 M01S00833.chkpt +++| NZ X3,WRT12 IF NOT END OF TABLE 00928 M01S00834.chkpt +++| 00929 M01S00835.chkpt +++|* CHECK FOR TAPE FILE. 00930 M01S00836.chkpt +++|
Line S00837 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00931 M02S00837.ns2039 ---| MX6 -2
Line S00838 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00932 M02S00838.ns2039 ---| BX3 X1
Line S00839 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00933 M02S00839.ns2039 ---| AX3 13
Line S00840 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00934 M02S00840.ns2039 ---| BX3 -X6*X3
Line S00841 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00935 M02S00841.ns2039 ---| SX6 X3-1
Line S00842 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2039 |
Seq # *Modification Id* Act ----------------------------+ 00936 M02S00842.ns2039 ---| ZR X6,WRT14 IF TAPE FILE 00937 M01S00051.ns2039 +++| EQ B3,WRT14 IF TAPE FILE 00938 M01S00843.chkpt +++| 00939 M01S00844.chkpt +++|* CHECK FILE TYPE. 00940 M01S00845.chkpt +++| 00941 M01S00846.chkpt +++| WRT13 MX4 -12 CHECK FILE TYPE 00942 M01S00847.chkpt +++| BX4 -X4*X1 00943 M01S00848.chkpt +++| AX4 6 00944 M01S00849.chkpt +++| SX6 X4-LOFT 00945 M01S00850.chkpt +++| ZR X6,WRT6 IF LOCAL 00946 M01S00851.chkpt +++| SX6 X4-LIFT 00947 M01S00852.chkpt +++| ZR X6,WRT14 IF LIBRARY 00948 M01S00853.chkpt +++| SX6 X4-PTFT 00949 M01S00854.chkpt +++| ZR X6,WRT6 IF PRIMARY TERMINAL 00950 M01S00855.chkpt +++| SX6 X4-QFFT 00951 M01S00856.chkpt +++| ZR X6,WRT6 IF QUEUE FILE 00952 M01S00857.chkpt +++| SX6 X4-INFT 00953 M01S00858.chkpt +++| ZR X6,WRT6 IF INPUT FILE 00954 M01S00859.chkpt +++| SX6 X4-PMFT 00955 M01S00860.chkpt +++| NZ X6,WRT1 LOOP IF NOT DIRECT ACCESS FILE
Line S00861 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00956 M02S00861.ns21000 ---| BX7 X1 IF DIRECT ACCESS 00957 M01S00012.ns21000 +++| BX7 X1 CHECK WRITE LOCKOUT FLAG 00958 M01S00862.chkpt +++| LX7 59-12 00959 M01S00863.chkpt +++| PL X7,WRT6 IF NOT READ ONLY
Line S00864 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00960 M02S00864.ns21000 ---| MX4 -3
Line S00865 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00961 M02S00865.ns21000 ---| AX7 2
Line S00866 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00962 M02S00866.ns21000 ---| BX4 -X4*X7
Line S00867 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00963 M02S00867.ns21000 ---| SX6 X4-3 00964 M01S00013.ns21000 +++| SA3 A1+B1 CHECK FILE MODE 00965 M01S00014.ns21000 +++| MX4 -4 00966 M01S00015.ns21000 +++| AX3 4 00967 M01S00016.ns21000 +++| BX4 -X4*X3 00968 M01S00017.ns21000 +++| SX6 X4-10B 00969 M01S00018.ns21000 +++| ZR X6,WRT6 IF READ/UPDATE 00970 M01S00019.ns21000 +++| SX6 X4-6 00971 M01S00868.chkpt +++| ZR X6,WRT6 IF READ/APPEND
Line S00869 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 00972 M02S00869.ns21000 ---| SX6 X4-2 00973 M01S00020.ns21000 +++| SX6 X4-5 00974 M01S00870.chkpt +++| ZR X6,WRT6 IF READ/MODIFY 00975 M01S00871.chkpt +++| WRT14 SX7 4 SET COPY TYPE 00976 M01S00872.chkpt +++| EQ WRT7 00977 M01S00873.chkpt +++| 00978 M01S00874.chkpt +++|* END TABLE. 00979 M01S00875.chkpt +++| 00980 M01S00876.chkpt +++| WRT15 BX6 X6-X6 SET ZERO WORD 00981 M01S00877.chkpt +++| SA6 A5 00982 M01S00878.chkpt +++| 00983 M01S00879.chkpt +++| SA4 REC 00984 M01S00880.chkpt +++| SX5 A6-BUF+1 00985 M01S00881.chkpt +++| BX6 X4+X5 00986 M01S00882.chkpt +++| WRITEO O WRITE CODE WORD 00987 M01S00883.chkpt +++| WRITEW O,BUF,X5 WRITE TABLE 00988 M01S00884.chkpt +++| MOVE X5,BUF,SBUF 00989 M01S00885.chkpt +++| SX6 777B RESET POINTERS 00990 M01S00886.chkpt +++| SA6 BUF 00991 M01S00887.chkpt +++| SX7 A6 00992 M01S00888.chkpt +++| SA7 PTR 00993 M01S00889.chkpt +++| EQ WRTX RETURN 00994 M01S00890.chkpt +++| 00995 M01S00891.chkpt +++| WRT16 MESSAGE (=C* SECURE FILES - CHECKPOINT ABORT.*) 00996 M01S00892.chkpt +++| ABORT 00997 M01S00052.ns2039 +++| 00998 M01S00053.ns2039 +++| WRTA DATA C* CONTENTS NOT CHECKPOINTED FOR FILE +++++++.* 00999 M01S00054.ns2039 +++| WRTB BSSZ 5 ASSEMBLY AREA 01000 M01S00893.chkpt +++| 01001 M01S00894.chkpt +++|* LIST OF FILES TO BE CHECKPOINTED. 01002 M01S00895.chkpt +++|
Line S00896 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 01003 M02S00896.ns2081 ---| FILE DATA C*INPUT* 01004 M01S00018.ns2081 +++| WRTC DATA C*INPUT* 01005 M01S00897.chkpt +++| DATA C*OUTPUT* 01006 M01S00898.chkpt +++| DATA C*LGO* 01007 M01S00899.chkpt +++| DATA C*PUNCH* 01008 M01S00900.chkpt +++| DATA C*PUNCHB* 01009 M01S00901.chkpt +++| DATA C*P8* 01010 M01S00902.chkpt +++| DATA C*CCCCCCO*
Line S00903 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 01011 M02S00903.ns2081 ---| DATA C*ZZZZZC0*
Line S00904 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 01012 M02S00904.ns2081 ---| DATA C*ZZZZZC1*
Line S00905 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 01013 M02S00905.ns2081 ---| DATA C*ZZZZZC2*
Line S00906 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 01014 M02S00906.ns2081 ---| DATA 0
Line S00907 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 01015 M02S00907.ns2081 ---| CCLF DATA C*ZZCCLAA*
Line S00908 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns2081 |
Seq # *Modification Id* Act ----------------------------+ 01016 M02S00908.ns2081 ---| DATA C*ZZCCLZZ* 01017 M01S00019.ns2081 +++| CON 0 01018 M01S00020.ns2081 +++| WRTD DATA C*ZZZZZC0* 01019 M01S00021.ns2081 +++| WRTE DATA C*ZZZZZC2* 01020 M01S00022.ns2081 +++| WRTF DATA C*ZZCCLAA* 01021 M01S00023.ns2081 +++| DATA C*ZZCCLZZ* 01022 M01S00909.chkpt +++| 01023 M01S00910.chkpt +++|* LIST OF FILES NOT TO BE CHECKPOINTED. 01024 M01S00911.chkpt +++| 01025 M01S00912.chkpt +++| TSSF BSS 0 01026 M01S00913.chkpt +++| VFD 36/6LINPUT*,24/0 01027 M01S00914.chkpt +++| VFD 18/3LDM*,42/0 01028 M01S00915.chkpt +++| VFD 42/7LCCCCCCC,18/0 01029 M01S00916.chkpt +++| CON 0 01030 M01S00917.chkpt +++| COM SPACE 4 01031 M01S00918.chkpt +++| TITLE COMMON DECKS AND BUFFERS. 01032 M01S00919.chkpt +++|* COMMON DECKS. 01033 M01S00920.chkpt +++| 01034 M01S00921.chkpt +++| 01035 M01S00922.chkpt +++|*CALL COMCCDD 01036 M01S00923.chkpt +++|*CALL COMCCIO 01037 M01S00924.chkpt +++|*CALL COMCCPM 01038 M01S00925.chkpt +++|*CALL COMCDXB 01039 M01S00926.chkpt +++|*CALL COMCLFM 01040 M01S00927.chkpt +++|*CALL COMCMVE 01041 M01S00928.chkpt +++|*CALL COMCRDO 01042 M01S00929.chkpt +++|*CALL COMCRDW 01043 M01S00930.chkpt +++|*CALL COMCSFN 01044 M01S00055.ns2039 +++|*CALL COMCSNM 01045 M01S00931.chkpt +++|*CALL COMCSYS 01046 M01S00932.chkpt +++|*CALL COMCWTO 01047 M01S00933.chkpt +++|*CALL COMCWTW 01048 M01S00934.chkpt +++| BUF SPACE 4 01049 M01S00935.chkpt +++|* BUFFER ASSIGNMENTS. 01050 M01S00936.chkpt +++| 01051 M01S00937.chkpt +++| 01052 M01S00938.chkpt +++| USE BUFFERS 01053 M01S00939.chkpt +++| BUF EQU * 01054 M01S00940.chkpt +++| IBUF EQU BUF+BUFL 01055 M01S00941.chkpt +++| OBUF EQU IBUF+IBUFL 01056 M01S00942.chkpt +++| SBUF EQU OBUF+OBUFL 01057 M01S00943.chkpt +++| TBUF EQU SBUF+SBUFL 01058 M01S00944.chkpt +++| RFL= EQU TBUF+TBUFL 01059 M01S00945.chkpt +++| TITLE PRESET. 01060 M01S00946.chkpt +++| PRS SPACE 4 01061 M01S00947.chkpt +++|** PRESET ROUTINE. 01062 M01S00948.chkpt +++|* 01063 M01S00949.chkpt +++|* ENTRY FILE /DM*/ PRESENT. 01064 M01S00950.chkpt +++|* 01065 M01S00951.chkpt +++|* EXIT CHECKPOINT FILE POSITIONED. 01066 M01S00952.chkpt +++|* FILE LIST IN PAR. 01067 M01S00953.chkpt +++|* FNT LIST IN SBUF. 01068 M01S00954.chkpt +++|* CONTROL STATEMENT FILE ATTACHED. 01069 M01S00955.chkpt +++|* CHECKPOINTED NUMBER INCREMENTED. 01070 M01S00956.chkpt +++|*
Line S00957 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01071 M02S00957.ns22000 ---|* CALLS NONE. 01072 M01S00016.ns22000 +++|* CALLS VAL. 01073 M01S00958.chkpt +++|* 01074 M01S00959.chkpt +++|* USES A - 1, 2, 3, 4, 5, 6, 7. 01075 M01S00960.chkpt +++|* B - 1, 2, 4. 01076 M01S00961.chkpt +++|* X - ALL. 01077 M01S00962.chkpt +++|* 01078 M01S00963.chkpt +++|* MACROS ABORT, ACCSF, BKSP, BKSPRU, DISTC, 01079 M01S00964.chkpt +++|* GETFNT, MESSAGE, MOVE, READ, READO, 01080 M01S00965.chkpt +++|* READW, REWIND, SETFS, SKIPEI, STATUS, 01081 M01S00966.chkpt +++|* WRITEO, WRITEW. 01082 M01S00967.chkpt +++| 01083 M01S00968.chkpt +++| 01084 M01S00969.chkpt +++| ORG BUF+1 01085 M01S00970.chkpt +++| PRS SUBR ENTRY/EXIT 01086 M01S00971.chkpt +++| SB1 1 01087 M01S00972.chkpt +++| SA1 JOPR CHECK JOB ORIGIN TYPE 01088 M01S00973.chkpt +++| AX1 24 01089 M01S00974.chkpt +++| SX2 X1-TXOT 01090 M01S00975.chkpt +++| NZ X2,PRS1 IF NOT TXOT ORIGIN TYPE 01091 M01S00976.chkpt +++| DISTC ON,TICF SET DISABLE TERMINAL CONTROL 01092 M01S00977.chkpt +++| PRS1 SA1 PGNR CHECK FOR CONTROL CARD CALL 01093 M01S00978.chkpt +++| NZ X1,PRS2 IF CONTROL CARD 01094 M01S00979.chkpt +++| SA4 SPPR 01095 M01S00980.chkpt +++| MX0 -18 01096 M01S00981.chkpt +++| BX5 -X0*X4 01097 M01S00982.chkpt +++| ZR X5,PRS4 IF NO LIST ADDRESS 01098 M01S00983.chkpt +++| MOVE 20B,(SPPR+1),PAR GET LIST 01099 M01S00984.chkpt +++| SA1 SPPR 01100 M01S00985.chkpt +++| AX1 18 01101 M01S00986.chkpt +++| SX6 X1 01102 M01S00987.chkpt +++| SA6 SPFL SET SELECTIVE CHECKPOINT 01103 M01S00988.chkpt +++| SA1 PAR 01104 M01S00989.chkpt +++| AX1 12 01105 M01S00990.chkpt +++| SX1 X1-20B 01106 M01S00991.chkpt +++| NG X1,PRS4 IF CONTAINS ENTIRE LIST 01107 M01S00992.chkpt +++| 01108 M01S00993.chkpt +++|* GET FILE LIST FROM DM* FILE SINCE TOO LONG FOR CONTROL PT AREA 01109 M01S00994.chkpt +++| 01110 M01S00995.chkpt +++| SA3 =C/DM*/ 01111 M01S00996.chkpt +++| SX4 3 01112 M01S00997.chkpt +++| BX6 X3+X4 01113 M01S00998.chkpt +++| SA6 I 01114 M01S00999.chkpt +++| READ I 01115 M01S01000.chkpt +++| READW I,PAR,100B 01116 M01S01001.chkpt +++| SA1 PAR+20B 01117 M01S01002.chkpt +++| MX0 -12 01118 M01S01003.chkpt +++| BX0 -X0*X1 01119 M01S01004.chkpt +++| SB2 6 SET SHIFT COUNT 01120 M01S01005.chkpt +++| AX4 B2,X5 01121 M01S01006.chkpt +++| IX0 X0-X4 GET PRU,S TO BACKSPACE 01122 M01S01007.chkpt +++| SKIPEI I 01123 M01S01008.chkpt +++| BKSPRU I,X0,R 01124 M01S01009.chkpt +++| MX0 -6 01125 M01S01010.chkpt +++| BX5 -X0*X5 01126 M01S01011.chkpt +++| SA1 I+1 SET IN = OUT = FIRST 01127 M01S01012.chkpt +++| SX6 X1 01128 M01S01013.chkpt +++| SA6 A1+B1 01129 M01S01014.chkpt +++| SA6 A6+B1 01130 M01S01015.chkpt +++| READ I 01131 M01S01016.chkpt +++| READW I,PAR,X5 01132 M01S01017.chkpt +++| 01133 M01S01018.chkpt +++|* READ LIST INTO PAR. 01134 M01S01019.chkpt +++| 01135 M01S01020.chkpt +++| READW I,PAR,100B (ONLY 77B FILES ALLOWED) 01136 M01S01021.chkpt +++| REWIND I 01137 M01S01022.chkpt +++| EQ PRS4 REQUEST CHECKPOINT 01138 M01S01023.chkpt +++| 01139 M01S01024.chkpt +++|* PROCESS CONTROL CARD CALL. 01140 M01S01025.chkpt +++| 01141 M01S01026.chkpt +++|* CREATE LIST. 01142 M01S01027.chkpt +++| 01143 M01S01028.chkpt +++| PRS2 SA1 ACTR 01144 M01S01029.chkpt +++| SB4 X1 01145 M01S01030.chkpt +++| SX6 X1 01146 M01S01031.chkpt +++| ZR B4,PRS4 IF NO ARGUMENTS 01147 M01S01032.chkpt +++| LX6 12 01148 M01S01033.chkpt +++| SA6 SPFL SET SELECTIVE CHECKPOINT FLAG 01149 M01S01034.chkpt +++| SA6 PAR SET NUMBER OF FILES 01150 M01S01035.chkpt +++| SA1 ARGR GET FIRST FILE NAME 01151 M01S01036.chkpt +++| SX3 30000B SET COPY TYPE 01152 M01S01037.chkpt +++| PRS3 BX6 X1+X3 01153 M01S01038.chkpt +++| SA6 A6+B1 01154 M01S01039.chkpt +++| SB4 B4-B1 01155 M01S01040.chkpt +++| SA1 A1+B1 GET NEXT FILE 01156 M01S01041.chkpt +++| NZ B4,PRS3 IF MORE FILES, LOOP 01157 M01S01042.chkpt +++| 01158 M01S01043.chkpt +++| PRS4 MESSAGE (=C* CKP REQUEST.*) 01159 M01S01044.chkpt +++| SA1 SPFL 01160 M01S01045.chkpt +++| ZR X1,PRS5 IF NOT SELECTIVE CHECKPOINT 01161 M01S01046.chkpt +++| SA3 PAR SET FILE LIST ADDRESS 01162 M01S01047.chkpt +++| SX6 X3 01163 M01S01048.chkpt +++| SA6 A1 01164 M01S01049.chkpt +++| PRS5 SX6 777B PRESET POINTERS 01165 M01S01050.chkpt +++| SA6 BUF 01166 M01S01051.chkpt +++| SX7 A6+ 01167 M01S01052.chkpt +++| SA7 PTR 01168 M01S01053.chkpt +++| 01169 M01S01054.chkpt +++|* GET CONTROL STATEMENT FILE. 01170 M01S01055.chkpt +++| 01171 M01S01056.chkpt +++| SX6 3 01172 M01S01057.chkpt +++| SA5 =C*CCCCCCO* 01173 M01S01058.chkpt +++| BX6 X5+X6 01174 M01S01059.chkpt +++| SA6 I SET NAME IN FET 01175 M01S01060.chkpt +++| STATUS I 01176 M01S01061.chkpt +++| SA1 I 01177 M01S01062.chkpt +++| SX1 X1-1 01178 M01S01063.chkpt +++| NZ X1,PRS6 IF ALREADY PRESENT 01179 M01S01064.chkpt +++| ACCSF I,CSFP,LOCK ATTACH FILE WITH POSITION RETURNED 01180 M01S01065.chkpt +++| 01181 M01S01066.chkpt +++|* GET LIST OF ALL FILES. 01182 M01S01067.chkpt +++| 01183 M01S01068.chkpt +++| PRS6 SX6 B0 SET INITIAL CALL 01184 M01S01069.chkpt +++| SA6 SBUF 01185 M01S01070.chkpt +++| SA1 PRSC 01186 M01S01071.chkpt +++| BX6 X1 01187 M01S01072.chkpt +++| SA6 I+8 01188 M01S01073.chkpt +++| GETFNT I 01189 M01S01074.chkpt +++| SA1 SBUF 01190 M01S01075.chkpt +++| NZ X1,PRS7 IF NOT ALL FILES RETURNED 01191 M01S01076.chkpt +++| SA1 I+8 01192 M01S01077.chkpt +++| PL X1,PRS8 IF NO ERROR 01193 M01S01078.chkpt +++| PRS7 MESSAGE (=C* ERROR - FILE(S) NOT PROCESSED.*) 01194 M01S01079.chkpt +++| 01195 M01S01080.chkpt +++|* PROCESS CHECKPOINT FILE(S). 01196 M01S01081.chkpt +++| 01197 M01S01082.chkpt +++| PRS8 SA1 I+9 01198 M01S01083.chkpt +++| ZR X1,PRS16 IF NO CHECKPOINT FILE 01199 M01S01084.chkpt +++| NG X1,PRS17 IF MORE THAN TWO FILES 01200 M01S01085.chkpt +++| SX3 3 01201 M01S01086.chkpt +++| SA2 A1+1 FST ENTRY FOR FILE O 01202 M01S01087.chkpt +++| MX0 42 01203 M01S01088.chkpt +++| BX4 X0*X1 01204 M01S01089.chkpt +++| BX6 X4+X3 01205 M01S01090.chkpt +++| SA6 O PUT CHECKPOINT FILE NAME IN FET 01206 M01S01091.chkpt +++| MX7 -6 01207 M01S01092.chkpt +++| BX6 -X7*X1 01208 M01S01093.chkpt +++| SA6 MDFL SAVE MODE OF FILE (CB OR CK) 01209 M01S01094.chkpt +++| MX3 -24 01210 M01S01095.chkpt +++| AX2 12 01211 M01S01096.chkpt +++| BX0 -X3*X2 SAVE RANDOM INDEX OR BLOCK NUMBER 01212 M01S01097.chkpt +++| SA1 A2+B1 01213 M01S01098.chkpt +++| ZR X1,PRS10 IF NO ALTERNATE FILE 01214 M01S01099.chkpt +++| SA2 A1+1 ALTERNATE FILE FST ENTRY 01215 M01S01100.chkpt +++| BX4 -X7*X1 01216 M01S01101.chkpt +++| SX7 X4-CKST 01217 M01S01102.chkpt +++| ZR X7,PRS17 IF CK FILE AMONG ALTERNATE FILES 01218 M01S01103.chkpt +++| BX6 X4-X6 01219 M01S01104.chkpt +++| MX4 42 01220 M01S01105.chkpt +++| NZ X6,PRS17 IF CK FILE AMONG ALTERNATE FILES 01221 M01S01106.chkpt +++| SX6 3 01222 M01S01107.chkpt +++| BX4 X4*X1 01223 M01S01108.chkpt +++| BX7 X6+X4 01224 M01S01109.chkpt +++| SA7 I SET ALTERNATE FILE NAME IN SCRATCH FET 01225 M01S01110.chkpt +++| SX6 77B 01226 M01S01111.chkpt +++| SA6 MDFL SET MODE FLAG FOR ALTERNATE FILES 01227 M01S01112.chkpt +++| AX2 12 01228 M01S01113.chkpt +++| BX6 -X3*X2 01229 M01S01114.chkpt +++| ZR X6,PRS9 IF ALTERNATE FILE EMPTY AND LOCAL 01230 M01S01115.chkpt +++| SX6 X6-1 01231 M01S01116.chkpt +++| ZR X6,PRS10 IF ALTERNATE FILE EMPTY OR REWOUND 01232 M01S01117.chkpt +++| READ I 01233 M01S01118.chkpt +++| READO I 01234 M01S01119.chkpt +++| NG X1,PRS10 IF EOF/EOI - NO DATA ON FILE 01235 M01S01120.chkpt +++| PL X6,PRS10 IF NOT CODE WORD CANT BE CHECKPOINT FILE 01236 M01S01121.chkpt +++| SA6 PRSA SAVE CODE WORD 01237 M01S01122.chkpt +++| BKSP I,R 01238 M01S01123.chkpt +++| SA1 X2+B1 SET IN = OUT = FIRST 01239 M01S01124.chkpt +++| SX6 X1 01240 M01S01125.chkpt +++| SA6 A1+B1 01241 M01S01126.chkpt +++| SA6 A6+B1 01242 M01S01127.chkpt +++| EQ PRS10 DO NOT REWIND *I* 01243 M01S01128.chkpt +++| 01244 M01S01129.chkpt +++|* THE REWIND ON *I* TAKES PLACE TO ENSURE THE FILE IS 01245 M01S01130.chkpt +++|* POSITIONED AT BOI. THIS IS NECESSARY FOR TAPE 01246 M01S01131.chkpt +++|* FILES ON WHICH AN OPEN/WRITE WAS JUST PERFORMED. 01247 M01S01132.chkpt +++| 01248 M01S01133.chkpt +++| PRS9 REWIND I POSITION CHECKPOINT FILE TO BOI 01249 M01S01134.chkpt +++| PRS10 ZR X0,PRS14 IF CHECKPOINT FILE EMPTY AND LOCAL 01250 M01S01135.chkpt +++| SX6 X0-1 01251 M01S01136.chkpt +++| ZR X6,PRS15 IF CHECKPOINT FILE EMPTY OR REWOUND 01252 M01S01137.chkpt +++| READ O 01253 M01S01138.chkpt +++| READO O 01254 M01S01139.chkpt +++| NG X1,PRS15 IF EOF/EOI - NO DATA ON FILE 01255 M01S01140.chkpt +++| PL X6,PRS14 IF CHECKPOINT FILE MISPOSITIONED 01256 M01S01141.chkpt +++| SA6 PRSB SAVE CODE WORD 01257 M01S01142.chkpt +++| BKSP O,R 01258 M01S01143.chkpt +++| SA1 X2+B1 SET IN = OUT = FIRST 01259 M01S01144.chkpt +++| SX7 X1 01260 M01S01145.chkpt +++| SA7 A1+B1 01261 M01S01146.chkpt +++| SA7 A7+B1 01262 M01S01147.chkpt +++| SA5 PRSB RETRIEVE CODE WORD 01263 M01S01148.chkpt +++| MX0 -12 01264 M01S01149.chkpt +++| SA1 MDFL 01265 M01S01150.chkpt +++| SX1 X1-77B 01266 M01S01151.chkpt +++| BX5 -X0*X5 01267 M01S01152.chkpt +++| NZ X1,PRS12 IF NO ALTERNATE FILE 01268 M01S01153.chkpt +++| SX4 X5 01269 M01S01154.chkpt +++| SA5 PRSA 01270 M01S01155.chkpt +++| BX5 -X0*X5 01271 M01S01156.chkpt +++| IX7 X4-X5 COMPARE CHECKPOINT NUMBERS 01272 M01S01157.chkpt +++| NG X7,PRS11 IF NO NEED TO SWITCH FILES 01273 M01S01158.chkpt +++| SA2 O SWITCH FILE NAMES 01274 M01S01159.chkpt +++| SX5 X4 01275 M01S01160.chkpt +++| SA1 I 01276 M01S01161.chkpt +++| BX6 X1 01277 M01S01162.chkpt +++| SA6 O 01278 M01S01163.chkpt +++| BX6 X2 01279 M01S01164.chkpt +++| SA6 A1 01280 M01S01165.chkpt +++| PRS11 MX3 42 01281 M01S01166.chkpt +++| SA1 O FILE NAME 01282 M01S01167.chkpt +++| BX1 X3*X1 01283 M01S01168.chkpt +++| SX4 1R. 01284 M01S01169.chkpt +++| RJ SFN GENERATE BIT MASK FOR FILE NAME 01285 M01S01170.chkpt +++| CX7 X7 NUMBER OF BITS IN FILE NAME 01286 M01S01171.chkpt +++| SA2 CKPB 01287 M01S01172.chkpt +++| BX7 -X7 01288 M01S01173.chkpt +++| SB3 X7+54 SHIFT COUNT TO POSITION PERIOD 01289 M01S01174.chkpt +++| BX7 X2 01290 M01S01175.chkpt +++| LX4 X4,B3 01291 M01S01176.chkpt +++| SA7 A2-1 GENERATE DAYFILE MESSAGE 01292 M01S01177.chkpt +++| BX6 X1+X4 01293 M01S01178.chkpt +++| SA6 A2 01294 M01S01179.chkpt +++| PRS12 SX6 X5+B1 INCREMENT CHECKPOINT NUMBER 01295 M01S01180.chkpt +++| LX6 47 01296 M01S01181.chkpt +++| PL X6,PRS13 IF CHECKPOINT NUMBER LIMIT NOT REACHED 01297 M01S01182.chkpt +++| MX6 1 01298 M01S01183.chkpt +++| LX6 -12 01299 M01S01184.chkpt +++| PRS13 LX6 -47 01300 M01S01185.chkpt +++| BX1 X6 01301 M01S01186.chkpt +++| SA6 CKNO SAVE CHECKPOINT NUMBER 01302 M01S00017.ns22000 +++| RJ VAL VALIDATE ACCESS LEVEL 01303 M01S01187.chkpt +++| READ O 01304 M01S01188.chkpt +++| READO O 01305 M01S01189.chkpt +++| BX5 X6 01306 M01S01190.chkpt +++| BKSP O 01307 M01S01191.chkpt +++| MX0 -59 01308 M01S01192.chkpt +++| BX6 -X0*X5 CLEAR LAST CHECKPOINT FLAG 01309 M01S01193.chkpt +++| WRITEO O 01310 M01S01194.chkpt +++| WRITER O,R 01311 M01S01195.chkpt +++| SA1 MDFL CHECK MODE FLAG 01312 M01S01196.chkpt +++| SX1 X1-CKST 01313 M01S01197.chkpt +++| ZR X1,PRSX IF CK FILE, CONTINUE CHECKPOINT AT EOI 01314 M01S01198.chkpt +++| REWIND O WRITE OVER NEXT TO LAST CHECKPOINT FILE 01315 M01S01199.chkpt +++| EQ PRSX RETURN 01316 M01S01200.chkpt +++| 01317 M01S01201.chkpt +++| PRS14 REWIND O 01318 M01S01202.chkpt +++| PRS15 SA1 MDFL MODE FLAG 01319 M01S01203.chkpt +++| SX1 X1-CKST CHECK FOR CK ON 1 CB FILE
Line S01204 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01320 M02S01204.ns22000 ---| ZR X1,PRSX IF CK TYPE FILE
Line S01205 Modification History | |
---|---|
M01 (Added by) | chkpt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01321 M02S01205.ns22000 ---| NG X1,PRSX IF ONLY 1 CB FILE 01322 M01S00018.ns22000 +++| ZR X1,PRS16.1 IF CK TYPE FILE 01323 M01S00019.ns22000 +++| NG X1,PRS16.1 IF ONLY 1 CB FILE 01324 M01S01206.chkpt +++| SA1 PRSA 01325 M01S01207.chkpt +++| SA2 A1+B1 01326 M01S01208.chkpt +++| BX1 X1+X2 CHECK IF EITHER FILE HAS BEEN USED 01327 M01S01209.chkpt +++| ZR X1,PRS11 IF NEITHER FILE HAS BEEN USED 01328 M01S01210.chkpt +++| SX5 1 SET CHECKPOINT NUMBER TWO 01329 M01S01211.chkpt +++| JP PRS11 LOOP 01330 M01S01212.chkpt +++| 01331 M01S01213.chkpt +++| PRS16 SETFS O,CKST SET FILE CCCCCCC STATUS TO CK 01332 M01S00020.ns22000 +++| PRS16.1 RJ VAL VALIDATE ACCESS LEVEL 01333 M01S01214.chkpt +++| EQ PRSX 01334 M01S01215.chkpt +++| 01335 M01S01216.chkpt +++| PRS17 MESSAGE (=C* CHECKPOINT FILE ERROR.*) 01336 M01S01217.chkpt +++| ABORT 01337 M01S01218.chkpt +++| 01338 M01S01219.chkpt +++| PRSA BSSZ 1 TEMPORARY STORAGE FOR FILE I 01339 M01S01220.chkpt +++| PRSB BSSZ 1 TEMPORARY STORAGE FOR FILE O 01340 M01S01221.chkpt +++| PRSC VFD 38/0,1/1,3/0,18/SBUF *GETFNT* CONTROL WORD 01341 M01S00021.ns22000 +++| VAL SPACE 4,15 01342 M01S00022.ns22000 +++|** VAL - VALIDATE ACCESS LEVEL. 01343 M01S00023.ns22000 +++|* 01344 M01S00024.ns22000 +++|* ENTRY CHECKPOINT FILE CREATED AND NAME IN FET. 01345 M01S00025.ns22000 +++|* 01346 M01S00026.ns22000 +++|* EXIT ABORT, IF SECURE SYSTEM AND CHECKPOINT 01347 M01S00027.ns22000 +++|* FILE ACCESS LEVEL IS NOT JOB ACCESS LEVEL 01348 M01S00028.ns22000 +++|* LIMIT. 01349 M01S00029.ns22000 +++|* 01350 M01S00030.ns22000 +++|* USES X - 0, 1, 3, 6, 7. 01351 M01S00031.ns22000 +++|* A - 1, 7. 01352 M01S00032.ns22000 +++|* 01353 M01S00033.ns22000 +++|* MACROS ABORT, GETJAL, GETSSL, MESSAGE, STATUS. 01354 M01S00034.ns22000 +++| 01355 M01S00035.ns22000 +++| 01356 M01S00036.ns22000 +++| VAL SUBR ENTRY/EXIT 01357 M01S00037.ns22000 +++| GETSSL VALA GET SYSTEM SECURITY MODE 01358 M01S00038.ns22000 +++| SA1 VALA 01359 M01S00039.ns22000 +++| MX0 -3 01360 M01S00040.ns22000 +++| LX1 12 01361 M01S00041.ns22000 +++| BX6 -X0*X1 01362 M01S00042.ns22000 +++| ZR X6,VALX IF NOT SECURE SYSTEM 01363 M01S00043.ns22000 +++| GETJAL VALA GET JOB ACCESS LEVEL LIMIT 01364 M01S00044.ns22000 +++| SA1 VALA 01365 M01S00045.ns22000 +++| LX1 -6 01366 M01S00046.ns22000 +++| BX3 -X0*X1 01367 M01S00047.ns22000 +++| SX6 B1 SET SECURITY PROCESSING BIT 01368 M01S00048.ns22000 +++| LX6 39-0 01369 M01S00049.ns22000 +++| SA1 O+1 01370 M01S00050.ns22000 +++| BX7 X1+X6 01371 M01S00051.ns22000 +++| SA7 A1 01372 M01S00052.ns22000 +++| STATUS O,P GET FILE ACCESS LEVEL 01373 M01S00053.ns22000 +++| SA1 O+4 01374 M01S00054.ns22000 +++| LX1 -36 01375 M01S00055.ns22000 +++| BX2 -X0*X1 01376 M01S00056.ns22000 +++| IX6 X2-X3 01377 M01S00057.ns22000 +++| ZR X6,VALX IF ACCESS LEVELS ARE EQUAL 01378 M01S00058.ns22000 +++| MESSAGE (=C* CHECKPOINT FILE ACCESS LEVEL ERROR.*) 01379 M01S00059.ns22000 +++| ABORT 01380 M01S00060.ns22000 +++| 01381 M01S00061.ns22000 +++| VALA CON 0 REPLY WORD 01382 M01S00062.ns22000 +++| SPACE 4,10 01383 M01S01222.chkpt +++| ERRNG IBUF-*+1 01384 M01S01223.chkpt +++| 01385 M01S01224.chkpt +++| END
cdc/nos2.source/opl.opl871/deck/chkpt.txt · Last modified: by 127.0.0.1