cdc:nos2.source:opl.opl871:deck:gtr
Deck GTR
15 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.gtr +++| IDENT GTR,FET 00002 M01S00002.gtr +++| ABS 00003 M01S00003.gtr +++| ENTRY GTR 00004 M01S00004.gtr +++| ENTRY COPYRF 00005 M01S00005.gtr +++| ENTRY MFL= 00006 M01S00006.gtr +++| SYSCOM B1 DEFINE B1=1 00007 M01S00007.gtr +++|*COMMENT GTR - GET SELECTED RECORDS.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M02S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1976. 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M01S00009.gtr +++| GTR TITLE GTR - GET SELECTED RECORDS. 00011 M01S00010.gtr +++| SPACE 4,10 00012 M01S00011.gtr +++|*** GET SELECTED RECORDS. 00013 M01S00012.gtr +++|* D. A. CAHLANDER. 69/08/30. 00014 M01S00013.gtr +++| SPACE 4 00015 M01S00014.gtr +++|*** GTR SEARCHES FOR SELECTED RECORDS ON A LIBRARY FILE. THE 00016 M01S00015.gtr +++|* SELECTED RECORDS ARE COPIED TO THE NEW FILE. 00017 M01S00016.gtr +++| SPACE 4 00018 M01S00017.gtr +++|*** CONTROL CARD CALL - 00019 M01S00018.gtr +++|*
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 00020 M02S00019.gtr5 ---|* GTR(OLD,LGO,D/U,NR,S,NA)*SELECTION DIRECTIVES* 00021 M01S00001.gtr5 +++|* POSITIONAL PARAMETER FORMAT. 00022 M01S00020.gtr +++|* 00023 M01S00002.gtr5 +++|* GTR(OLD,LGO,DF,NR,S,NA,T)*SELECTION DIRECTIVES* 00024 M01S00003.gtr5 +++|* 00025 M01S00021.gtr +++|* OLD = OLD PROGRAM FILE. 00026 M01S00022.gtr +++|* LGO = NEW FILE.
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 00027 M02S00023.gtr5 ---|* D = DIRECTORY REQUESTED FLAG.
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 00028 M02S00024.gtr5 ---|* U = USER LIBRARY HEADER AND CORRESPONDING *OPLD* ONLY. 00029 M01S00004.gtr5 +++|* DF = DIRECTORY FLAG. 00030 M01S00005.gtr5 +++|* *D* = BUILD DIRECTORY FOR NEW FILE, AND 00031 M01S00006.gtr5 +++|* INCLUDE USER LIBRARY DIRECTORIES. 00032 M01S00007.gtr5 +++|* *U* = COPY USER LIBRARY HEADER AND *OPLD* ONLY. 00033 M01S00025.gtr +++|* NR = NO REWIND FLAG. 00034 M01S00026.gtr +++|* S = SEQUENTIAL FILE PROCESSING. 00035 M01S00027.gtr +++|* NA = NO ABORT FLAG. 00036 M01S00008.gtr5 +++|* T = REMOVE RECORD NAME FROM SELECTED TEXT RECORDS. 00037 M01S00009.gtr5 +++|* 00038 M01S00010.gtr5 +++|* POSITION-INDEPENDENT PARAMETER FORMAT. 00039 M01S00011.gtr5 +++|* 00040 M01S00012.gtr5 +++|* GTR(OLD,LGO/P1,...,PN)*SELECTION DIRECTIVES* 00041 M01S00013.gtr5 +++|* 00042 M01S00014.gtr5 +++|* OLD = OLD PROGRAM FILE (POSITIONAL). 00043 M01S00015.gtr5 +++|* LGO = NEW FILE (POSITIONAL). 00044 M01S00016.gtr5 +++|* P1 - PN = OPTIONAL PARAMETERS IN ANY ORDER. 00045 M01S00017.gtr5 +++|* *D* = BUILD DIRECTORY FOR NEW FILE, AND 00046 M01S00018.gtr5 +++|* INCLUDE USER LIBRARY DIRECTORIES. 00047 M01S00019.gtr5 +++|* *U* = COPY USER LIBRARY HEADER AND *OPLD*. 00048 M01S00020.gtr5 +++|* *NR* = DO NOT REWIND NEW FILE. 00049 M01S00021.gtr5 +++|* *S* = SEQUENTIAL FILE PROCESSING. 00050 M01S00022.gtr5 +++|* *NA* = DO NOT ABORT ON ERRORS. 00051 M01S00023.gtr5 +++|* *T* = REMOVE RECORD NAME FROM 00052 M01S00024.gtr5 +++|* SELECTED TEXT RECORDS. 00053 M01S00028.gtr +++|* 00054 M01S00029.gtr +++|* SELECTION DIRECTIVES - 00055 M01S00030.gtr +++|* 00056 M01S00031.gtr +++|* LIB/PN 00057 M01S00032.gtr +++|* COPY PROGRAM *PN* (TYPE *LIB*) FROM *OLD* TO *LGO*. 00058 M01S00033.gtr +++|* 00059 M01S00034.gtr +++|* PN 00060 M01S00035.gtr +++|* COPY PROGRAM *PN* (TYPE *TEXT* OR PREVIOUS *LIB*) 00061 M01S00036.gtr +++|* FROM *OLD* TO *LGO*. 00062 M01S00037.gtr +++|* 00063 M01S00038.gtr +++|* * 00064 M01S00039.gtr +++|* COPY ALL PROGRAM OF TYPE *LIB* FROM *OLD* TO *LGO*. 00065 M01S00040.gtr +++|* 00066 M01S00041.gtr +++|* 0 00067 M01S00042.gtr +++|* INSERT 0-LENGTH RECORD ON FILE *LGO*. 00068 M01S00043.gtr +++|* 00069 M01S00044.gtr +++|* LIB/PN1-PN2 00070 M01S00045.gtr +++|* COPY PROGRAM *PN1* THROUGH *PN2* FROM *OLD* TO *LGO*. 00071 M01S00046.gtr +++| COPYRF SPACE 4 00072 M01S00047.gtr +++|*** COPYRF COPIES RECORDS FROM MEDIUM TO MEDIUM AND ADDS 00073 M01S00048.gtr +++|* A RANDOM INDEX ON THE END. 00074 M01S00049.gtr +++| COPYRF SPACE 4 00075 M01S00050.gtr +++|*** CONTROL CARD CALL. 00076 M01S00051.gtr +++|* 00077 M01S00052.gtr +++|* 00078 M01S00053.gtr +++|* COPYRF(IFILE,OFILE) 00079 M01S00054.gtr +++|* IFILE NAME OF INPUT FILE. 00080 M01S00055.gtr +++|* OFILE NAME OF OUTPUT FILE. 00081 M01S00056.gtr +++|* 00082 M01S00057.gtr +++|* ASSUMED PARAMETERS. 00083 M01S00058.gtr +++|* IFILE = *OLD* 00084 M01S00059.gtr +++|* OFILE = *LGO* 00085 M01S00001.ns21000 +++| SPACE 4,10 00086 M01S00002.ns21000 +++|*** DAYFILE MESSAGES. 00087 M01S00003.ns21000 +++|* 00088 M01S00004.ns21000 +++|* 00089 M01S00005.ns21000 +++|* * FILENAME CONFLICT.* 00090 M01S00006.ns21000 +++|* THE FIRST TWO PARAMETERS OF THE *GTR* COMMAND 00091 M01S00007.ns21000 +++|* ARE IDENTICAL. 00092 M01S00008.ns21000 +++|* 00093 M01S00009.ns21000 +++|* * FORMAT ERROR.* 00094 M01S00010.ns21000 +++|* INDICATES ONE OF THE FOLLOWING: 00095 M01S00011.ns21000 +++|* 1. THE *GTR* COMMAND FORMAT WAS INCORRECT. 00096 M01S00012.ns21000 +++|* 2. AN INCORRECT LIBRARY TYPE WAS SPECIFIED. 00097 M01S00013.ns21000 +++|* 3. A RECORD NAME LONGER THAN SEVEN CHARACTERS 00098 M01S00014.ns21000 +++|* WAS SPECIFIED. 00099 M01S00015.ns21000 +++|* 00100 M01S00016.ns21000 +++|* * GTR ERRORS.* 00101 M01S00017.ns21000 +++|* THERE ARE ERRORS ON THE *GTR* COMMAND. 00102 M01S00018.ns21000 +++|* 00103 M01S00025.gtr5 +++|* * INCORRECT PARAMETER. * 00104 M01S00026.gtr5 +++|* A KEYWORD FORMAT COMMAND PARAMETER CONTAINED A VALUE 00105 M01S00027.gtr5 +++|* OTHER THAN ONE OF THE RECOGNIZED KEYWORDS. 00106 M01S00028.gtr5 +++|* 00107 M01S00019.ns21000 +++|* * MASS STORAGE DIRECTORY NOT WRITTEN.* 00108 M01S00020.ns21000 +++|* A REQUEST WAS MADE TO WRITE A MASS STORAGE 00109 M01S00021.ns21000 +++|* DIRECTORY ON A NON-MASS STORAGE FILE. 00110 M01S00022.ns21000 +++|* 00111 M01S00023.ns21000 +++|* * TABLE OVERFLOW.* 00112 M01S00024.ns21000 +++|* THE JOB FIELD LENGTH IS TOO SMALL TO HOLD THE 00113 M01S00025.ns21000 +++|* TABLES FOR PROCESSING THE *GTR* COMMAND. 00114 M01S00026.ns21000 +++|* 00115 M01S00027.ns21000 +++|* * TOO MANY PARAMETERS.* 00116 M01S00028.ns21000 +++|* MORE PARAMETERS WERE ENTERED (INCLUDING NULL 00117 M01S00029.ns21000 +++|* PARAMETERS) THAN ARE ALLOWED FOR THE COMMAND. 00118 M01S00030.ns21000 +++|* 00119 M01S00031.ns21000 +++|* * UNUSUAL END-OF-FILE ENCOUNTERED.* 00120 M01S00032.ns21000 +++|* *GTR* DETECTED AN EOF NOT PRECEDED BY AN EOR. 00121 M01S00060.gtr +++| SPACE 4 00122 M01S00061.gtr +++|**** ASSEMBLY CONSTANTS. 00123 M01S00062.gtr +++| 00124 M01S00063.gtr +++|
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00125 M02S00064.274l797 ---| PBUFL EQU 4010B *OLD* BUFFER LENGTH
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00126 M02S00065.274l797 ---| BBUFL EQU 4010B *LGO* BUFFER LENGTH 00127 M01S00001.274l797 +++| PBUFL EQU 20041B *OLD* BUFFER LENGTH 00128 M01S00002.274l797 +++| BBUFL EQU 10021B *LGO* BUFFER LENGTH
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | ns2272 |
Seq # *Modification Id* Act ----------------------------+ 00129 M02S00066.ns2272 ---| WSAL EQU 100B WORKING BUFFER LENGTH 00130 M01S00001.ns2272 +++| WSAL EQU 1000B WORKING BUFFER LENGTH 00131 M01S00067.gtr +++| BUFL EQU 14000B NOMINAL TABLE SPACE REQUIRED 00132 M01S00003.274l797 +++| ODEBL EQU 20B OPTICAL DISK EXTENSION BUFFER LENGTH 00133 M01S00068.gtr +++|**** 00134 M01S00001.251l664 +++| COMMON SPACE 4,10 00135 M01S00002.251l664 +++|* COMMON DECKS. 00136 M01S00003.251l664 +++| 00137 M01S00004.251l664 +++| 00138 M01S00001.gtr3 +++|*CALL COMCMAC 00139 M01S00005.251l664 +++|*CALL COMSSRT 00140 M01S00069.gtr +++| ADDWORD TITLE SUBROUTINES. 00141 M01S00070.gtr +++|** ADDWORD - ADDWORD TO MANAGED TABLE. 00142 M01S00071.gtr +++|* 00143 M01S00072.gtr +++|* ADDWORD TABNAM 00144 M01S00073.gtr +++|* ENTRY (TABNAM) = MANAGED TABLE NAME. 00145 M01S00074.gtr +++| 00146 M01S00075.gtr +++| 00147 M01S00076.gtr +++| ADDWORD MACRO TABNAM 00148 M01S00077.gtr +++| R= A0,TABNAM 00149 M01S00078.gtr +++| RJ ADW 00150 M01S00079.gtr +++| ENDM 00151 M01S00080.gtr +++| ALLOC SPACE 4,5 00152 M01S00081.gtr +++|** ALLOC - ALLOCATE MEMORY. 00153 M01S00082.gtr +++|* 00154 M01S00083.gtr +++|* ALLOC TABLE,INCR 00155 M01S00084.gtr +++|* ENTRY (TABLE) = TABLE NAME. 00156 M01S00085.gtr +++|* (INCR) = TABLE LENGTH INCREMENT. 00157 M01S00086.gtr +++| 00158 M01S00087.gtr +++| 00159 M01S00088.gtr +++| ALLOC MACRO TABLE,INCR 00160 M01S00089.gtr +++| R= A0,TABLE 00161 M01S00090.gtr +++| R= X3,INCR 00162 M01S00091.gtr +++| RJ ATS 00163 M01S00092.gtr +++| ENDM 00164 M01S00093.gtr +++| SEARCH SPACE 4,10 00165 M01S00094.gtr +++|** SEARCH - SEARCH FOR ENTRY IN MANAGED TABLE. 00166 M01S00095.gtr +++|* THIS MACRO SETS UP A CALL TO SEARCH FOR AN ENTRY 00167 M01S00096.gtr +++|* IN A MANAGED TABLE. 00168 M01S00097.gtr +++|* 00169 M01S00098.gtr +++|* SEARCH TABLE,ENTRY,MASK 00170 M01S00099.gtr +++|* ENTRY (TABLE) = NAME OF MANAGED TABLE. 00171 M01S00100.gtr +++|* (ENTRY) = ADDRESS OF ENTRY. 00172 M01S00101.gtr +++|* (MASK) = ADDRESS OF SEARCH MASK. 00173 M01S00102.gtr +++| 00174 M01S00103.gtr +++| 00175 M01S00104.gtr +++| SEARCH MACRO TABLE,ENTRY,MASK 00176 M01S00105.gtr +++| R= A2,ENTRY 00177 M01S00106.gtr +++| IFC EQ,*MASK** 00178 M01S00107.gtr +++| MX3 60 00179 M01S00108.gtr +++| ELSE 1 00180 M01S00109.gtr +++| SA3 MASK 00181 M01S00110.gtr +++| SA1 O.TABLE 00182 M01S00111.gtr +++| RJ SMT 00183 M01S00112.gtr +++| ENDM 00184 M01S00113.gtr +++| TABLE SPACE 4,6 00185 M01S00114.gtr +++|** TABLE - CREATE MANAGED TABLE. 00186 M01S00115.gtr +++|* 00187 M01S00116.gtr +++|* TABLE TNAM 00188 M01S00117.gtr +++|* ENTRY (TNAM) = TABLE NAME. 00189 M01S00118.gtr +++| 00190 M01S00119.gtr +++| 00191 M01S00120.gtr +++| MACRO TABLE,TNAM 00192 M01S00121.gtr +++| TNAM EQU *-TAB 00193 M01S00122.gtr +++| O.TNAM CON BUF 00194 M01S00123.gtr +++| RMT 00195 M01S00124.gtr +++| L.TNAM EQU TNAM+TAB+TABL 00196 M01S00125.gtr +++| RMT 00197 M01S00126.gtr +++| ENDM 00198 M01S00127.gtr +++| FET TITLE CONTROL CELLS. 00199 M01S00128.gtr +++|** FET - FILE ENVIORNMENT TABLES. 00200 M01S00129.gtr +++| 00201 M01S00130.gtr +++| 00202 M01S00131.gtr +++| ORG 110B 00203 M01S00132.gtr +++| FET BSS 0 00204 M01S00133.gtr +++| P BSS 0 PROGRAM LIBRARY
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00205 M02S00134.274l797 ---| OLD RFILEB PBUF,PBUFL 00206 M01S00004.274l797 +++| OLD RFILEB PBUF,PBUFL,FET=10 00207 M01S00005.274l797 +++| ORG P+11B 00208 M01S00006.274l797 +++| VFD 36/,6/ODEBL,18/PODEB POINTER TO *OD* EXT. BUFFER 00209 M01S00007.274l797 +++| ORG P+10 00210 M01S00135.gtr +++| 00211 M01S00136.gtr +++| 00212 M01S00137.gtr +++| B BSS 0 NEW FILE
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00213 M02S00138.274l797 ---| LGO RFILEB BBUF,BBUFL 00214 M01S00008.274l797 +++| LGO RFILEB BBUF,BBUFL,FET=10 00215 M01S00009.274l797 +++| ORG B+11B 00216 M01S00010.274l797 +++| VFD 36/,6/ODEBL,18/BODEB POINTER TO *OD* EXT. BUFFER 00217 M01S00011.274l797 +++| ORG B+10 00218 M01S00012.274l797 +++| 00219 M01S00013.274l797 +++|* OPTICAL DISK EXTENSION BUFFERS. 00220 M01S00014.274l797 +++| 00221 M01S00015.274l797 +++| PODEB BSSZ ODEBL *OLD* 00222 M01S00016.274l797 +++| BODEB BSSZ ODEBL *LGO* 00223 M01S00139.gtr +++| FLAGS SPACE 4,3 00224 M01S00140.gtr +++|** CONTROL FLAGS. 00225 M01S00141.gtr +++| 00226 M01S00142.gtr +++| 00227 M01S00143.gtr +++| CP CON 0 CARD POINTER 00228 M01S00144.gtr +++| ID CON 77000016000000000000B 00229 M01S00145.gtr +++| CON 0LNAME 00230 M01S00146.gtr +++| BSSZ 15B 00231 M01S00147.gtr +++| CON 70000000000000000000B 00232 M01S00148.gtr +++| FL CON 0 FIELD LENGTH 00233 M01S00149.gtr +++| ND CON 0 NO DIRECTORY FLAG 00234 M01S00150.gtr +++| NR CON 0 NO REWIND FLAG 00235 M01S00151.gtr +++| SQ CON 0 SEQUENTIAL FILE FLAG 00236 M01S00152.gtr +++| NABT CON 0 NO ABORT FLAG 00237 M01S00029.gtr5 +++| TU CON 0 REMOVE RECORD NAMES FLAG 00238 M01S00153.gtr +++| RN CON 0 RECORD NAME 00239 M01S00002.gtr3 +++| MFL CON 0 MAXIMUM MEMORY 00240 M01S00154.gtr +++| T1 CON 0 TEMPORARY 00241 M01S00155.gtr +++| T2 CON 0 TEMPORARY 00242 M01S00156.gtr +++| T3 CON 0 TEMPORARY 00243 M01S00157.gtr +++| ZR CON 1 ZERO RECORD INSERT FLAG 00244 M01S00158.gtr +++| CPRF CON 0 COPYRF FLAG 00245 M01S00159.gtr +++| ERRF CON 0 ERROR FLAG 00246 M01S00160.gtr +++| RCWF CON 0 RECORDS WRITTEN FLAG 00247 M01S00161.gtr +++| BUFFER SPACE 4,3 00248 M01S00162.gtr +++|** BUFFER SPACE. 00249 M01S00163.gtr +++| 00250 M01S00164.gtr +++| 00251 M01S00165.gtr +++| USE // 00252 M01S00166.gtr +++| WSA BSS WSAL WORKING STORAGE 00253 M01S00167.gtr +++| PBUF BSS PBUFL PROGRAM LIBRARY BUFFER 00254 M01S00168.gtr +++| BBUF BSS BBUFL CORRECTION FILE BUFFER 00255 M01S00169.gtr +++| BUF BSS 0 MANAGED TABLE SPACE 00256 M01S00170.gtr +++| USE * 00257 M01S00171.gtr +++| TABLE TITLE MANAGED TABLES. 00258 M01S00172.gtr +++|** MANAGED TABLES. 00259 M01S00173.gtr +++|* TABLES ARE VARIABLE LENGTH MANAGED TABLES. POINTERS TO 00260 M01S00174.gtr +++|* TABLE *ABC* ARE - 00261 M01S00175.gtr +++|* O.ABC = FWA OF TABLE *ABC*. 00262 M01S00176.gtr +++|* L.ABC = LENGTH OF TABLE *ABC*. 00263 M01S00177.gtr +++| TABLE SPACE 4,11 00264 M01S00178.gtr +++|** IPT - INSERT PROGRAM TABLE. 00265 M01S00179.gtr +++|* 00266 M01S00180.gtr +++|* 42/PROG1,18/TYPE1 00267 M01S00181.gtr +++|* 42/PROG2,18/TYPE2 00268 M01S00182.gtr +++|* 1. PROG1 = PROGRAM NAME FOR START OF INSERT. 00269 M01S00183.gtr +++|* 2. PROG2 = PROGRAM NAME FOR END OF INSERT. 00270 M01S00184.gtr +++|* 3. TYPE = PROGRAM TYPE. 00271 M01S00185.gtr +++| 00272 M01S00186.gtr +++| 00273 M01S00187.gtr +++| TAB BSS 0 00274 M01S00188.gtr +++| IPT TABLE 00275 M01S00189.gtr +++| TABLE SPACE 4,10 00276 M01S00190.gtr +++|** PNT - PROGRAM NAME TABLE. 00277 M01S00191.gtr +++|* 00278 M01S00192.gtr +++|* 42/PROGRAM,18/TYPE 00279 M01S00193.gtr +++|* 60/POSITION 00280 M01S00194.gtr +++|* 1. PROGRAM = PROGRAM NAME LEFT JUSTIFIED. 00281 M01S00195.gtr +++|* 2. POSITION = RNADOM INDEX. 00282 M01S00196.gtr +++|* 3. TYPE = PROGRAM TYPE. 00283 M01S00197.gtr +++| 00284 M01S00198.gtr +++| 00285 M01S00199.gtr +++| PNT TABLE 00286 M01S00200.gtr +++| TABLE SPACE 4,10 00287 M01S00201.gtr +++|** NPT - NEW PROGRAM TABLE. 00288 M01S00202.gtr +++|* 00289 M01S00203.gtr +++|* 42/PROGRAM,18/TYPE 00290 M01S00204.gtr +++|* 60/POSITION 00291 M01S00205.gtr +++|* 1. PROGRAM = PROGRAM NAME LEFT JUSTIFIED. 00292 M01S00206.gtr +++|* 2. POSITION = RNADOM INDEX. 00293 M01S00207.gtr +++|* 3. TYPE = PROGRAM TYPE. 00294 M01S00208.gtr +++| 00295 M01S00209.gtr +++| 00296 M01S00210.gtr +++| NPT TABLE 00297 M01S00211.gtr +++| END TABLE 00298 M01S00212.gtr +++| TABL EQU *-TAB 00299 M01S00213.gtr +++| 00300 M01S00214.gtr +++| BSS TABL TABLE LENGTHS 00301 M01S00215.gtr +++| GTR TITLE MAIN PROGRAM. 00302 M01S00216.gtr +++|*** GTR - GET SELECTED RECORDS. 00303 M01S00217.gtr +++| 00304 M01S00218.gtr +++| 00305 M01S00219.gtr +++| GTR SB1 1 (B1) = 1 00306 M01S00220.gtr +++| RJ PRS PRESET TABLE LENGTHS 00307 M01S00221.gtr +++| RJ ARG PROCESS CONTROL CARD 00308 M01S00222.gtr +++| RJ RCD READ CORRECTION DIRECTIVES 00309 M01S00223.gtr +++| OPEN P,READNR,R 00310 M01S00224.gtr +++| SA1 NR 00311 M01S00225.gtr +++| NZ X1,GTR1 IF NO REWIND 00312 M01S00226.gtr +++| REWIND B 00313 M01S00227.gtr +++| GTR1 SA1 P+1 00314 M01S00228.gtr +++| SA2 SQ 00315 M01S00229.gtr +++| NZ X2,GTR3 IF SEQUENTIAL PROCESSING REQUESTED 00316 M01S00230.gtr +++| 00317 M01S00231.gtr +++| NG X1,GTR3 IF FILE NON-RANDOM 00318 M01S00232.gtr +++| RJ RDD READ DIRECTORY 00319 M01S00233.gtr +++| ZR X1,GTR3 IF NO DIRECTORY 00320 M01S00234.gtr +++| RJ CPP COPY PROGRAMS 00321 M01S00235.gtr +++| GTR2 RJ WND WRITE NEW DIRECTORY 00322 M01S00236.gtr +++| SA2 ERRF 00323 M01S00237.gtr +++| NZ X2,GTR8 IF ERRORS 00324 M01S00238.gtr +++| MESSAGE (=C* EDITING COMPLETE.*) 00325 M01S00239.gtr +++| GTR2.1 ENDRUN 00326 M01S00240.gtr +++| 00327 M01S00241.gtr +++|* PROCESS NON-RANDOM FILE. 00328 M01S00242.gtr +++|
| Line S00243 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr4 |
Seq # *Modification Id* Act ----------------------------+ 00329 M02S00243.gtr4 ---| GTR3 SA1 B SET NEW DIRECTORY RECORD NAME
| Line S00244 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr4 |
Seq # *Modification Id* Act ----------------------------+ 00330 M02S00244.gtr4 ---| MX0 42
| Line S00245 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr4 |
Seq # *Modification Id* Act ----------------------------+ 00331 M02S00245.gtr4 ---| BX6 X0*X1
| Line S00246 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr4 |
Seq # *Modification Id* Act ----------------------------+ 00332 M02S00246.gtr4 ---| SA6 ID+1
| Line S00247 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr4 |
Seq # *Modification Id* Act ----------------------------+ 00333 M02S00247.gtr4 ---| SA1 NR 00334 M01S00001.gtr4 +++| GTR3 SA1 NR 00335 M01S00248.gtr +++| NZ X1,GTR4 IF NO REWIND 00336 M01S00249.gtr +++| REWIND P 00337 M01S00250.gtr +++| GTR4 RJ CFE CHECK FOR END OF INSERTS 00338 M01S00251.gtr +++| ZR X1,GTR2 IF END 00339 M01S00252.gtr +++| GTR5 RJ RFR READ FIRST RECORD 00340 M01S00253.gtr +++| NG X1,GTR7 IF EOF 00341 M01S00254.gtr +++| RJ CFI CHECK FOR INSERTS 00342 M01S00255.gtr +++| ZR X7,GTR6 IF INSERT FOUND 00343 M01S00256.gtr +++| RJ SKR SKIP RECORD 00344 M01S00257.gtr +++| EQ GTR5 LOOP 00345 M01S00258.gtr +++| 00346 M01S00259.gtr +++| GTR6 RJ WNR WRITE NEXT RECORD 00347 M01S00260.gtr +++| SA5 ZR 00348 M01S00261.gtr +++| NZ X5,GTR4 IF NO ZERO RECORD INSERT 00349 M01S00262.gtr +++| WRITER B WRITE ZERO RECORD 00350 M01S00263.gtr +++| SX7 B1 00351 M01S00264.gtr +++| SA7 A5 00352 M01S00265.gtr +++| EQ GTR4 LOOP 00353 M01S00266.gtr +++| 00354 M01S00267.gtr +++| GTR7 RJ DMP DISPLAY MISSING PROGRAMS 00355 M01S00268.gtr +++| EQ GTR2 00356 M01S00269.gtr +++| 00357 M01S00270.gtr +++|* ERROR EXIT. 00358 M01S00271.gtr +++| 00359 M01S00001.gtr1 +++| ERR MESSAGE (=C* FORMAT ERROR.*) 00360 M01S00002.gtr1 +++| 00361 M01S00272.gtr +++| GTR8 SA2 CPRF 00362 M01S00273.gtr +++| NZ X2,GTR9 IF COPYRF 00363 M01S00274.gtr +++| MESSAGE (=C* GTR ERRORS.*) 00364 M01S00275.gtr +++| SA2 NABT 00365 M01S00276.gtr +++| NZ X2,GTR2.1 IF NO ABORT FLAG SET 00366 M01S00277.gtr +++| GTR9 ABORT 00367 M01S00278.gtr +++| COPYRF TITLE MAIN PROGRAM. 00368 M01S00279.gtr +++|** COPYRF - MAIN PROGRAM. 00369 M01S00280.gtr +++| 00370 M01S00281.gtr +++| 00371 M01S00282.gtr +++| COPYRF SB1 1 (B1) = 1 00372 M01S00283.gtr +++| SX6 B1 SET COPYRF FLAG 00373 M01S00284.gtr +++| SA6 CPRF 00374 M01S00285.gtr +++| RJ PRS PRESET TABLE LENGTHS 00375 M01S00286.gtr +++| RJ ARG PROCESS CONTROL CARD 00376 M01S00017.274l797 +++| OPEN P,READNR,R 00377 M01S00018.274l797 +++| OPEN B,WRITENR,R 00378 M01S00287.gtr +++| SA1 =10H COPYING 00379 M01S00288.gtr +++| BX7 X1 00380 M01S00289.gtr +++| SX6 B1+B1 SELECT DIRECTORY OPTION 00381 M01S00290.gtr +++| SA7 WNRA 00382 M01S00291.gtr +++| SA6 ND 00383 M01S00292.gtr +++| SA6 NR SELECT NO REWIND 00384 M01S00019.274l797 +++| SA1 B+1 00385 M01S00020.274l797 +++| AX1 48 00386 M01S00021.274l797 +++| SX3 X1-2ROD 00387 M01S00022.274l797 +++| ZR X3,CRF1 IF OPTICAL DISK FILE 00388 M01S00293.gtr +++| EVICT B,R 00389 M01S00294.gtr +++| CRF1 RJ RFR READ FIRST RECORD 00390 M01S00295.gtr +++| NG X1,CRF2 IF EOF 00391 M01S00296.gtr +++| RECALL B 00392 M01S00297.gtr +++| SA1 RN 00393 M01S00298.gtr +++| ADDWORD NPT 00394 M01S00299.gtr +++| IX6 X3+X4 SET RANDOM RETURN ADDRESS 00395 M01S00300.gtr +++| SX6 X6-1 00396 M01S00301.gtr +++| SA6 B+6 00397 M01S00302.gtr +++| SA1 T1 00398 M01S00303.gtr +++| RJ WNR WRITE NEXT RECORD 00399 M01S00304.gtr +++| EQ CRF1 LOOP 00400 M01S00305.gtr +++| 00401 M01S00306.gtr +++| CRF2 RJ WND WRITE NEW DIRECTORY 00402 M01S00307.gtr +++| MESSAGE (=C* CONVERSION COMPLETE.*),1 00403 M01S00308.gtr +++| ENDRUN 00404 M01S00309.gtr +++| ADW TITLE SUBROUTINES. 00405 M01S00310.gtr +++|** ADW - ADD WORD TO MANAGED TABLE. 00406 M01S00311.gtr +++|* ENTRY (A0) = TABLE INDEX. 00407 M01S00312.gtr +++|* (X1) = ENTRY WORD 1. 00408 M01S00313.gtr +++|* (X2) = ENTRY WORD 2. 00409 M01S00314.gtr +++| 00410 M01S00315.gtr +++| 00411 M01S00316.gtr +++| ADW PS RETURN EXIT 00412 M01S00317.gtr +++| ALLOC A0,2 00413 M01S00318.gtr +++| LX7 X2 STORE ENTRY 00414 M01S00319.gtr +++| IX6 X3+X4 00415 M01S00320.gtr +++| SA7 X6-1 00416 M01S00321.gtr +++| BX6 X1 00417 M01S00322.gtr +++| SA6 A7-B1 00418 M01S00323.gtr +++| EQ ADW RETURN 00419 M01S00324.gtr +++| ATS SPACE 4,7 00420 M01S00325.gtr +++|** ATS - ALLOCATE TABLE SPACE. 00421 M01S00003.gtr3 +++|* 00422 M01S00004.gtr3 +++|* ALLOCATE TABLE SPACE, REQUESTING MEMORY IF NECESSARY. 00423 M01S00005.gtr3 +++|* 00424 M01S00326.gtr +++|* ENTRY (A0) = TABLE INDEX. 00425 M01S00327.gtr +++|* (X3) = INCREMENT.
| Line S00328 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00426 M02S00328.gtr3 ---|* EXIT (X3) = FWA OF TABLE. 00427 M01S00006.gtr3 +++|* 00428 M01S00007.gtr3 +++|* EXIT (X1) = ENTRY VALUE RESTORED. 00429 M01S00008.gtr3 +++|* (X3) = FWA OF TABLE. 00430 M01S00329.gtr +++|* (X4) = LENGTH OF TABLE. 00431 M01S00009.gtr3 +++|* 00432 M01S00010.gtr3 +++|* ERROR TO *GTR8*. 00433 M01S00011.gtr3 +++|* 00434 M01S00012.gtr3 +++|* USES X - 1, 3, 4, 6, 7. 00435 M01S00013.gtr3 +++|* A - 1, 3, 4, 6, 7. 00436 M01S00014.gtr3 +++|* B - 2, 3. 00437 M01S00015.gtr3 +++|* 00438 M01S00016.gtr3 +++|* MACROS MEMORY, MESSAGE. 00439 M01S00330.gtr +++| 00440 M01S00331.gtr +++|
| Line S00332 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00441 M02S00332.gtr3 ---| ATS2 SA3 A0+TAB 00442 M01S00017.gtr3 +++| ATS5 SA3 A0+TAB 00443 M01S00333.gtr +++| SA4 A0+TAB+TABL 00444 M01S00334.gtr +++| 00445 M01S00335.gtr +++| ATS PS RETURN EXIT 00446 M01S00336.gtr +++| SA4 A0+TAB+TABL INCREMENT TABLE LENGTH 00447 M01S00337.gtr +++| IX6 X4+X3 00448 M01S00338.gtr +++| SA6 A4
| Line S00339 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00449 M02S00339.gtr3 ---| SB2 A0+B1 INCREMENT TABLE ORIGINS 00450 M01S00018.gtr3 +++| SB2 A0+1 INCREMENT TABLE ORIGINS 00451 M01S00340.gtr +++| SB3 TABL 00452 M01S00341.gtr +++| ATS1 SA4 B2+TAB 00453 M01S00342.gtr +++| IX6 X4+X3 00454 M01S00343.gtr +++| SA6 A4
| Line S00344 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00455 M02S00344.gtr3 ---| SB2 B2+B1 00456 M01S00019.gtr3 +++| SB2 B2+1 00457 M01S00345.gtr +++| NE B2,B3,ATS1 LOOP TO END OF TABLES 00458 M01S00346.gtr +++| SA4 A6+TABL DECREMENT SPACE AVAILABLE 00459 M01S00347.gtr +++| IX7 X4-X3 00460 M01S00348.gtr +++| SA7 A4
| Line S00349 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00461 M02S00349.gtr3 ---| PL X7,ATS2 IF NO OVERFLOW
| Line S00350 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00462 M02S00350.gtr3 ---| MESSAGE (=C* TABLE OVERFLOW.*) 00463 M01S00020.gtr3 +++| PL X7,ATS5 IF NO OVERFLOW 00464 M01S00021.gtr3 +++| BX7 -X7 00465 M01S00022.gtr3 +++| BX6 X1 PRESERVE (X1) ENTRY VALUE 00466 M01S00023.gtr3 +++| SA6 ATSA 00467 M01S00024.gtr3 +++| SX7 X7+77B ROUND TO NEXT EVEN 100B 00468 M01S00025.gtr3 +++| AX7 6 00469 M01S00026.gtr3 +++| LX7 6 00470 M01S00027.gtr3 +++| SA7 ATSC MINIMUM ADDITIONAL WORDS REQUIRED 00471 M01S00028.gtr3 +++| SX4 1000B MINIMUM DESIRABLE REQUEST 00472 M01S00029.gtr3 +++| SA1 FL 00473 M01S00030.gtr3 +++| IX6 X4-X7 00474 M01S00031.gtr3 +++| PL X6,ATS2 IF REQUIRED .LT. DESIRABLE 00475 M01S00032.gtr3 +++| BX4 X7 00476 M01S00033.gtr3 +++| ATS2 SA3 MFL MAXIMUM MEMORY 00477 M01S00034.gtr3 +++| IX6 X1+X4 00478 M01S00035.gtr3 +++| IX7 X6-X3 00479 M01S00036.gtr3 +++| NG X7,ATS3 IF MAXIMUM IS SUFFICIENT 00480 M01S00037.gtr3 +++| SA4 ATSC MINIMUM WORDS REQUIRED 00481 M01S00038.gtr3 +++| IX6 X1+X4 00482 M01S00039.gtr3 +++| IX1 X6-X3 00483 M01S00040.gtr3 +++| PL X1,ATS4 IF MAXIMUM IS INSUFFICIENT 00484 M01S00041.gtr3 +++| ATS3 SA6 FL NEW FL 00485 M01S00042.gtr3 +++| SA1 L.END SPACE AVAILABLE 00486 M01S00043.gtr3 +++| LX6 30 00487 M01S00044.gtr3 +++| SA6 ATSB MEMORY REQUEST STATUS WORD 00488 M01S00045.gtr3 +++| IX6 X1+X4 00489 M01S00046.gtr3 +++| SA6 A1+ NEW SPACE AVAILABLE 00490 M01S00047.gtr3 +++| MEMORY CM,ATSB,R,,NA 00491 M01S00048.gtr3 +++| SA4 ATSB 00492 M01S00049.gtr3 +++| SA1 FL 00493 M01S00050.gtr3 +++| AX4 30 00494 M01S00051.gtr3 +++| IX3 X4-X1 00495 M01S00052.gtr3 +++| SA1 ATSA RESTORE (X1) 00496 M01S00053.gtr3 +++| PL X3,ATS5 IF FL OBTAINED 00497 M01S00054.gtr3 +++| ATS4 MESSAGE (=C* TABLE OVERFLOW.*) 00498 M01S00351.gtr +++| EQ GTR8 ERROR EXIT 00499 M01S00055.gtr3 +++| 00500 M01S00056.gtr3 +++| 00501 M01S00057.gtr3 +++| ATSA CON 0 STORAGE FOR (X1) 00502 M01S00058.gtr3 +++| ATSB CON 0 MEMORY REQUEST STATUS WORD 00503 M01S00059.gtr3 +++| ATSC CON 0 MINIMUM MEMORY REQUIRED 00504 M01S00352.gtr +++| CDT SPACE 4,5 00505 M01S00353.gtr +++|** CDT - CHECK DEVICE TYPE. 00506 M01S00354.gtr +++|* 00507 M01S00355.gtr +++|* EXIT (ND) = 0, IF DIRECTORY REQUESTED ON NON MASS 00508 M01S00356.gtr +++|* STORAGE FILE. 00509 M01S00357.gtr +++|* 00510 M01S00358.gtr +++|* USES X - 1, 5, 6. 00511 M01S00359.gtr +++|* A - 1, 6. 00512 M01S00360.gtr +++| 00513 M01S00361.gtr +++| 00514 M01S00362.gtr +++| CDT PS ENTRY/EXIT 00515 M01S00363.gtr +++| SA1 B+1 SET USER ERROR PROCESSING 00516 M01S00364.gtr +++| SX5 B1 00517 M01S00365.gtr +++| LX5 44 00518 M01S00366.gtr +++| BX6 X1+X5 00519 M01S00367.gtr +++| SA6 A1 00520 M01S00368.gtr +++| SA1 B+5 SAVE FET+5, FET+6 00521 M01S00369.gtr +++| BX6 X1 00522 M01S00370.gtr +++| SA1 A1+B1 00523 M01S00371.gtr +++| SA6 CDTA 00524 M01S00372.gtr +++| BX6 X1 00525 M01S00373.gtr +++| SA6 A6+B1 00526 M01S00374.gtr +++| STATUS B,P DETERMINE DEVICE TYPE 00527 M01S00375.gtr +++| SA1 CDTA RESTORE FET+5, FET+6 00528 M01S00376.gtr +++| BX6 X1 00529 M01S00377.gtr +++| SA1 A1+B1 00530 M01S00378.gtr +++| SA6 B+5 00531 M01S00379.gtr +++| BX6 X1 00532 M01S00380.gtr +++| SA6 A6+B1 00533 M01S00381.gtr +++| SA1 B+1 CLEAR ERROR PROCESSING 00534 M01S00382.gtr +++| BX6 X1-X5 00535 M01S00383.gtr +++| SA6 A1 00536 M01S00384.gtr +++| PL X1,CDT IF MASS STORAGE 00537 M01S00385.gtr +++| SX5 =C* MASS STORAGE DIRECTORY NOT WRITTEN.*
| Line S00386 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr2 |
Seq # *Modification Id* Act ----------------------------+ 00538 M02S00386.gtr2 ---| MESSAGE X5,3 00539 M01S00001.gtr2 +++| MESSAGE X5 00540 M01S00387.gtr +++| BX6 X6-X6 SET NO DIRECTORY 00541 M01S00388.gtr +++| SA6 ND 00542 M01S00389.gtr +++| EQ CDT 00543 M01S00390.gtr +++| 00544 M01S00391.gtr +++| 00545 M01S00392.gtr +++| CDTA BSS 2 SCRATCH 00546 M01S00393.gtr +++| CFE SPACE 4,4 00547 M01S00394.gtr +++|** CFE - CHECK FOR END OF INSERTS. 00548 M01S00395.gtr +++|* EXIT (X1) = 0 IF END OF INSERTS. 00549 M01S00396.gtr +++| 00550 M01S00397.gtr +++| 00551 M01S00398.gtr +++| CFE PS RETURN EXIT 00552 M01S00399.gtr +++| SA2 O.IPT 00553 M01S00400.gtr +++| SA1 L.IPT 00554 M01S00401.gtr +++| ZR X1,CFE IF NO INSERTS 00555 M01S00402.gtr +++| SB7 X1 00556 M01S00403.gtr +++| SA1 X2 00557 M01S00404.gtr +++| SB4 B1+B1 00558 M01S00405.gtr +++| CFE1 NZ X1,CFE IF MORE INSERTS 00559 M01S00406.gtr +++| SB7 B7-B4 00560 M01S00407.gtr +++| SA1 A1+B4 00561 M01S00408.gtr +++| NZ B7,CFE1 LOOP 00562 M01S00409.gtr +++| MX1 0 00563 M01S00410.gtr +++| EQ CFE RETURN 00564 M01S00411.gtr +++| CFI SPACE 4,7 00565 M01S00412.gtr +++|** CFI - CHECK FOR INSERT. 00566 M01S00413.gtr +++|* ENTRY (X1) = EOR INDICATOR. 00567 M01S00414.gtr +++|* EXIT (X7) = 0 IF RECORD TO BE COPIED. 00568 M01S00415.gtr +++|* (X1) = EOR INDICATOR. 00569 M01S00416.gtr +++| 00570 M01S00417.gtr +++| 00571 M01S00418.gtr +++| CFI PS RETURN EXIT 00572 M01S00419.gtr +++| BX7 X1 00573 M01S00420.gtr +++| SA7 T1 00574 M01S00421.gtr +++| RECALL B 00575 M01S00422.gtr +++| SEARCH IPT,(=1L,) 00576 M01S00423.gtr +++| ZR X7,CFI1 IF INSERTING 00577 M01S00424.gtr +++| SA1 RN 00578 M01S00425.gtr +++| SA2 =1L* 00579 M01S00426.gtr +++| SX1 X1 00580 M01S00427.gtr +++| BX2 X1+X2 00581 M01S00428.gtr +++| SEARCH IPT,A2 00582 M01S00429.gtr +++| ZR X7,CFI2 IF INSERTING FULL FILE 00583 M01S00430.gtr +++| SEARCH IPT,RN 00584 M01S00431.gtr +++| SA1 RN 00585 M01S00432.gtr +++| NZ X1,CFI0 IF NOT ZERO RECORD 00586 M01S00433.gtr +++| SX7 B1 00587 M01S00434.gtr +++| CFI0 NZ X7,CFI IF RECORD NOT INSERTED 00588 M01S00435.gtr +++| CFI1 SA1 O.IPT CHECK FOR END OF INSERT 00589 M01S00436.gtr +++| IX0 X1+X6 00590 M01S00437.gtr +++| SA2 X0+B1 00591 M01S00001.gtr6 +++| SA3 =1L* CHECK FOR NEXT PARAMETER BEING +*+ 00592 M01S00002.gtr6 +++| BX1 X2-X3 00593 M01S00003.gtr6 +++| BX3 X2 00594 M01S00004.gtr6 +++| MX6 42 MASK OFF RECORD TYPE 00595 M01S00005.gtr6 +++| BX1 X6*X1 00596 M01S00006.gtr6 +++| ZR X1,CFI1.1 IF INSERT FULL FILE FROM NOW ON 00597 M01S00438.gtr +++| SA1 RN 00598 M01S00439.gtr +++| SA3 =1L, SET INSERTING FLAG
| Line S00440 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr6 |
Seq # *Modification Id* Act ----------------------------+ 00599 M02S00440.gtr6 ---| BX6 X3 00600 M01S00007.gtr6 +++| CFI1.1 BX6 X3 00601 M01S00441.gtr +++| SA6 X0 00602 M01S00442.gtr +++| BX6 X1-X2 00603 M01S00443.gtr +++| NZ X6,CFI2 IF NOT END OF INSERT 00604 M01S00444.gtr +++| SA6 X0 CLEAR IPT ENTRY 00605 M01S00445.gtr +++| SA6 X0+B1 00606 M01S00446.gtr +++| SA1 A6+B1 CHECK FOR ZERO RECORD INSERT 00607 M01S00447.gtr +++| AX1 42 00608 M01S00448.gtr +++| SX1 X1-1L0 00609 M01S00449.gtr +++| NZ X1,CFI2 IF NO ZERO RECORD 00610 M01S00450.gtr +++| SA6 ZR 00611 M01S00451.gtr +++| CFI2 SA1 RN 00612 M01S00452.gtr +++| BX2 X2-X2 00613 M01S00453.gtr +++| ADDWORD NPT 00614 M01S00454.gtr +++| IX6 X3+X4 SET RANDOM RETURN ADDRESS 00615 M01S00455.gtr +++| SX6 X6-1 00616 M01S00456.gtr +++| SA6 B+6 00617 M01S00457.gtr +++| MX7 0 00618 M01S00458.gtr +++| SA1 T1 00619 M01S00459.gtr +++| EQ CFI RETURN 00620 M01S00460.gtr +++| CIT SPACE 4,5 00621 M01S00461.gtr +++|** CIT - CHECK INSERT TABLE. 00622 M01S00462.gtr +++|* THE INSERT TABLE IS CHECKED AGAINST THE PNT TO DETERMINE 00623 M01S00463.gtr +++|* IF ALL INSERTS ARE LEGAL. 00624 M01S00464.gtr +++| 00625 M01S00465.gtr +++| 00626 M01S00466.gtr +++| CIT PS RETURN EXIT 00627 M01S00467.gtr +++| SX6 B0 SET IPT INDEX 00628 M01S00468.gtr +++| SA6 T1 00629 M01S00469.gtr +++| CIT1 SA1 O.IPT 00630 M01S00470.gtr +++| SA2 L.IPT 00631 M01S00471.gtr +++| SA3 T1 00632 M01S00472.gtr +++| BX6 X3-X2 00633 M01S00473.gtr +++| ZR X6,CIT4 IF END OF IPT 00634 M01S00474.gtr +++| IX1 X1+X3 00635 M01S00475.gtr +++| SA2 X1 00636 M01S00476.gtr +++| BX6 X2 00637 M01S00477.gtr +++| AX6 42 00638 M01S00478.gtr +++| SX7 X6-1L0 00639 M01S00479.gtr +++| ZR X7,CIT3 IF 0-LENGTH RECORD INSERT 00640 M01S00480.gtr +++| SX7 X6-1L* 00641 M01S00481.gtr +++| ZR X7,CIT3 IF FULL FILE ADD 00642 M01S00482.gtr +++| SEARCH PNT,A2 00643 M01S00483.gtr +++| NZ X7,CIT2 IF RECORD NOT FOUND 00644 M01S00484.gtr +++| SA6 T2 00645 M01S00485.gtr +++| SA1 O.IPT 00646 M01S00486.gtr +++| SA2 T1 00647 M01S00487.gtr +++| IX1 X1+X2 00648 M01S00488.gtr +++| SA2 X1+B1 00649 M01S00489.gtr +++| BX6 X2 00650 M01S00490.gtr +++| AX6 42 00651 M01S00491.gtr +++| SX7 X6-1L* 00652 M01S00492.gtr +++| ZR X7,CIT3 IF FULL FILE ADD 00653 M01S00493.gtr +++| SEARCH PNT,A2 00654 M01S00494.gtr +++| NZ X7,CIT2 IF RECORD NOT FOUND 00655 M01S00495.gtr +++| SA1 T2 00656 M01S00496.gtr +++| IX7 X6-X1 00657 M01S00497.gtr +++| PL X7,CIT3 IF LEGAL INSERT 00658 M01S00498.gtr +++| 00659 M01S00499.gtr +++|* BAD INSERT. 00660 M01S00500.gtr +++| 00661 M01S00501.gtr +++| CIT2 RJ DPN DISPLAY PROGRAM NAME 00662 M01S00502.gtr +++| SA1 CITA INCREMENT ERROR COUNT 00663 M01S00503.gtr +++| SX6 X1+B1 00664 M01S00504.gtr +++| SA6 A1 00665 M01S00505.gtr +++| 00666 M01S00506.gtr +++|* ADVANCE TO NEXT ENTRY. 00667 M01S00507.gtr +++| 00668 M01S00508.gtr +++| CIT3 SA1 T1 00669 M01S00509.gtr +++| SX6 X1+2 00670 M01S00510.gtr +++| SA6 A1 00671 M01S00511.gtr +++| EQ CIT1 LOOP 00672 M01S00512.gtr +++| 00673 M01S00513.gtr +++|* CHECK ERROR COUNT. 00674 M01S00514.gtr +++| 00675 M01S00515.gtr +++| CIT4 SA1 CITA 00676 M01S00516.gtr +++| ZR X1,CIT IF NO ERRORS 00677 M01S00517.gtr +++| SX6 B1 SET ERROR FLAG 00678 M01S00518.gtr +++| SA6 ERRF 00679 M01S00519.gtr +++| SA2 NABT 00680 M01S00520.gtr +++| NZ X2,CIT IF NO ABORT FLAG SET 00681 M01S00521.gtr +++| EQ GTR8 ERROR EXIT 00682 M01S00522.gtr +++| 00683 M01S00523.gtr +++| CITA CON 0 ERROR COUNT 00684 M01S00524.gtr +++| COMMON SPACE 4 00685 M01S00525.gtr +++|** COMMON DECKS. 00686 M01S00526.gtr +++| 00687 M01S00527.gtr +++| 00688 M01S00528.gtr +++|*CALL COMCLFM 00689 M01S00529.gtr +++|*CALL COMCSYS 00690 M01S00530.gtr +++|*CALL COMCCIO 00691 M01S00060.gtr3 +++|*CALL COMCCPM 00692 M01S00531.gtr +++|*CALL COMCRDW 00693 M01S00532.gtr +++|*CALL COMCWTW 00694 M01S00533.gtr +++|*CALL COMCSRT 00695 M01S00534.gtr +++| CPP SPACE 4,3 00696 M01S00535.gtr +++|** CPP - COPY PROGRAMS. 00697 M01S00536.gtr +++| 00698 M01S00537.gtr +++| 00699 M01S00538.gtr +++| CPP PS RETURN EXIT 00700 M01S00539.gtr +++| RJ CIT CHECK INSERT TABLE 00701 M01S00540.gtr +++| CPP1 SA1 O.IPT 00702 M01S00541.gtr +++| SA2 L.IPT 00703 M01S00542.gtr +++| ZR X2,CPP IF END OF INSERTS 00704 M01S00543.gtr +++| 00705 M01S00544.gtr +++|* CHECK FOR 0-LENGTH RECORD INSERT. 00706 M01S00545.gtr +++| 00707 M01S00546.gtr +++| SA2 X1 00708 M01S00547.gtr +++| AX2 42 00709 M01S00548.gtr +++| SX6 X2-1L0 00710 M01S00549.gtr +++| NZ X6,CPP2 IF NOT 0-LENGTH RECORD 00711 M01S00001.ns2037 +++| BX1 X1-X1 MAKE *OPLD* ENTRY 00712 M01S00002.ns2037 +++| BX2 X2-X2 00713 M01S00003.ns2037 +++| ADDWORD NPT 00714 M01S00004.ns2037 +++| RECALL B 00715 M01S00005.ns2037 +++| SA1 O.NPT SET RANDOM RETURN ADDRESS 00716 M01S00006.ns2037 +++| SA2 L.NPT 00717 M01S00007.ns2037 +++| IX6 X1+X2 00718 M01S00008.ns2037 +++| SX6 X6-1 00719 M01S00009.ns2037 +++| SA6 B+6 00720 M01S00550.gtr +++| WRITER B 00721 M01S00551.gtr +++| EQ CPP7 00722 M01S00552.gtr +++| 00723 M01S00553.gtr +++|* CHECK FOR ENTIRE FILE INSERT. 00724 M01S00554.gtr +++| 00725 M01S00555.gtr +++| CPP2 SX6 X2-1L* 00726 M01S00556.gtr +++| NZ X6,CPP5 IF NOT ENTIRE FILE INSERT 00727 M01S00557.gtr +++| SA6 T1 SET PNT INDEX 00728 M01S00558.gtr +++| CPP3 SA1 O.PNT 00729 M01S00559.gtr +++| SA2 L.PNT 00730 M01S00560.gtr +++| SA3 T1 00731 M01S00561.gtr +++| SB5 X1 00732 M01S00562.gtr +++| SB6 X2 00733 M01S00563.gtr +++| SB4 B1+B1 00734 M01S00564.gtr +++| MX0 42 00735 M01S00565.gtr +++| SB7 X3 00736 M01S00566.gtr +++| CPP4 EQ B6,B7,CPP7 IF END OF PNT 00737 M01S00567.gtr +++| SA2 B5+B7 CHECK PROGRAM TYPE 00738 M01S00568.gtr +++| SA4 O.IPT 00739 M01S00569.gtr +++| SA4 X4 00740 M01S00570.gtr +++| BX7 X4-X2 00741 M01S00571.gtr +++| BX7 -X0*X7 00742 M01S00572.gtr +++| SB7 B7+B4 00743 M01S00573.gtr +++| NZ X7,CPP4 IF NOT CORRECT PROGRAM TYPE 00744 M01S00574.gtr +++| SX6 B7 00745 M01S00575.gtr +++| SA6 T1 00746 M01S00576.gtr +++| SB2 B7-B4 COPY RECORD 00747 M01S00577.gtr +++| RJ CPY 00748 M01S00578.gtr +++| EQ CPP3 LOOP 00749 M01S00579.gtr +++| 00750 M01S00580.gtr +++|* SEARCH PNT FOR START OF INSERT. 00751 M01S00581.gtr +++| 00752 M01S00582.gtr +++| CPP5 SA2 X1 00753 M01S00583.gtr +++| SEARCH PNT,A2 00754 M01S00584.gtr +++| NZ X7,CPP7 IF RECORD NOT FOUND 00755 M01S00585.gtr +++| SA6 T1 00756 M01S00586.gtr +++| 00757 M01S00587.gtr +++|* FIRST PROGRAM FOUND, START COPY. 00758 M01S00588.gtr +++| 00759 M01S00589.gtr +++| CPP6 SA1 T1 00760 M01S00590.gtr +++| SB2 X1 00761 M01S00591.gtr +++| RJ CPY 00762 M01S00592.gtr +++| SA1 O.IPT 00763 M01S00593.gtr +++| SA2 X1 00764 M01S00594.gtr +++| SA4 X1+B1 00765 M01S00595.gtr +++| BX6 X2-X4 00766 M01S00596.gtr +++| ZR X6,CPP7 IF LAST PROGRAM FOUND 00767 M01S00597.gtr +++| BX6 X4 00768 M01S00598.gtr +++| AX6 42 00769 M01S00599.gtr +++| SX6 X6-1L* 00770 M01S00600.gtr +++| SA3 T1 INCREMENT PNT INDEX 00771 M01S00601.gtr +++| SX7 X3+2 00772 M01S00602.gtr +++| SA7 A3 00773 M01S00603.gtr +++| ZR X6,CPP3 IF ADD FULL FILE 00774 M01S00604.gtr +++| SA1 L.PNT 00775 M01S00605.gtr +++| BX2 X1-X7 00776 M01S00606.gtr +++| ZR X2,CPP7 IF END OF PNT 00777 M01S00607.gtr +++| SA1 O.PNT 00778 M01S00608.gtr +++| SB5 X1 00779 M01S00609.gtr +++| SA1 B5+X7 SET CURRENT PROGRAM NAME 00780 M01S00610.gtr +++| BX7 X1 00781 M01S00611.gtr +++| SA2 O.IPT 00782 M01S00612.gtr +++| SA7 X2 00783 M01S00613.gtr +++| EQ CPP6 LOOP 00784 M01S00614.gtr +++| 00785 M01S00615.gtr +++|* ADVANCE TO NEXT IPT ENTRY. 00786 M01S00616.gtr +++| 00787 M01S00617.gtr +++| CPP7 SA1 O.IPT 00788 M01S00618.gtr +++| SA2 L.IPT 00789 M01S00619.gtr +++| SX6 X1+2 00790 M01S00620.gtr +++| SX7 X2-2 00791 M01S00621.gtr +++| SA6 A1 00792 M01S00622.gtr +++| SA7 A2 00793 M01S00623.gtr +++| EQ CPP1 LOOP 00794 M01S00624.gtr +++| CPY SPACE 4,4 00795 M01S00625.gtr +++|** CPY - COPY RECORD TO FILE *LGO*. 00796 M01S00626.gtr +++|* ENTRY (B2) = PNT INDEX. 00797 M01S00627.gtr +++| 00798 M01S00628.gtr +++| 00799 M01S00629.gtr +++| CPY PS RETURN EXIT 00800 M01S00630.gtr +++| SX6 B1 SET RECORDS WRITTEN FLAG 00801 M01S00631.gtr +++| SA6 RCWF 00802 M01S00632.gtr +++| SA1 O.PNT 00803 M01S00633.gtr +++| SA1 X1+B2 00804 M01S00634.gtr +++| SA2 A1+B1 SET RANDOM ADDRESS 00805 M01S00635.gtr +++| BX6 X2 00806 M01S00636.gtr +++| SA6 P+6 00807 M01S00637.gtr +++| BX6 X1 00808 M01S00638.gtr +++| SA6 RN SAVE RECORD NAME 00809 M01S00639.gtr +++| BX2 X2-X2 00810 M01S00640.gtr +++| ADDWORD NPT 00811 M01S00641.gtr +++| READ P 00812 M01S00642.gtr +++| RECALL B 00813 M01S00643.gtr +++| SA3 O.NPT SET RANDOM RETURN ADDRESS 00814 M01S00644.gtr +++| SA4 L.NPT 00815 M01S00645.gtr +++| IX6 X3+X4 00816 M01S00646.gtr +++| SA1 X6-2 00817 M01S00647.gtr +++| SX6 X6-1 00818 M01S00648.gtr +++| SA6 B+6 00819 M01S00649.gtr +++| SA2 WNRA 00820 M01S00650.gtr +++| RJ MSG 00821 M01S00651.gtr +++| SA1 RN CHECK TYPE
| Line S00652 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00822 M02S00652.251l664 ---| SB7 X1-5 00823 M01S00006.251l664 +++| SB7 X1-ULRT 00824 M01S00653.gtr +++| ZR B7,CPY4 IF *ULIB* 00825 M01S00030.gtr5 +++| SB7 X1-TXRT 00826 M01S00031.gtr5 +++| NZ B7,CPY1 IF NOT A TEXT RECORD 00827 M01S00032.gtr5 +++| SA1 TU 00828 M01S00033.gtr5 +++| ZR X1,CPY1 IF NOT REMOVING RECORD NAMES 00829 M01S00034.gtr5 +++| MX0 -12 00830 M01S00035.gtr5 +++| CPY0 READW P,WSA,1 SKIP RECORD NAME LINE 00831 M01S00036.gtr5 +++| NG X1,CPY3 IF EOF/EOI ENCOUNTERED 00832 M01S00037.gtr5 +++| NZ X1,CPY2.1 IF EOR ENCOUNTERED 00833 M01S00038.gtr5 +++| SA1 WSA 00834 M01S00039.gtr5 +++| BX1 -X0*X1 00835 M01S00040.gtr5 +++| NZ X1,CPY0 IF NOT END OF LINE 00836 M01S00654.gtr +++| CPY1 READW P,WSA,WSAL COPY RECORD 00837 M01S00655.gtr +++| NZ X1,CPY2 IF EOR 00838 M01S00656.gtr +++| WRITEW B,WSA,WSAL 00839 M01S00657.gtr +++| EQ CPY1 00840 M01S00658.gtr +++| 00841 M01S00659.gtr +++| CPY2 NG X1,CPY3 IF EOF 00842 M01S00660.gtr +++| WRITEW B,WSA,X1-WSA
| Line S00661 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 00843 M02S00661.gtr5 ---| WRITER B 00844 M01S00041.gtr5 +++| CPY2.1 WRITER B 00845 M01S00662.gtr +++| EQ CPY RETURN 00846 M01S00663.gtr +++| 00847 M01S00664.gtr +++| CPY3 MESSAGE (=C* UNUSUAL END-OF-FILE ENCOUNTERED.*) 00848 M01S00665.gtr +++| EQ GTR8 ERROR EXIT 00849 M01S00666.gtr +++| 00850 M01S00667.gtr +++| CPY4 SA1 ND 00851 M01S00668.gtr +++| ZR X1,CPY7 IF DIRECTORY NOT REQUESTED 00852 M01S00669.gtr +++| CPY5 READW P,WSA,WSAL COPY DIRECTORY RECORD 00853 M01S00670.gtr +++| NZ X1,CPY6 IF EOR 00854 M01S00671.gtr +++| WRITEW B,WSA,WSAL 00855 M01S00672.gtr +++| EQ CPY5 LOOP ON COPY 00856 M01S00673.gtr +++| 00857 M01S00674.gtr +++| CPY6 NG X1,CPY3 IF EOF/EOI 00858 M01S00675.gtr +++| WRITEW B,WSA,X1-WSA 00859 M01S00676.gtr +++| WRITER B 00860 M01S00677.gtr +++| CPY7 RJ SKR SKIP RECORD 00861 M01S00678.gtr +++| SA1 RN 00862 M01S00679.gtr +++| SA2 WNRA 00863 M01S00680.gtr +++| RJ MSG 00864 M01S00681.gtr +++| RJ CUL COPY USER LIBRARY 00865 M01S00682.gtr +++| EQ CPY RETURN 00866 M01S00683.gtr +++| CUL SPACE 4 00867 M01S00684.gtr +++|** CUL - COPY USER LIBRARY. 00868 M01S00685.gtr +++|* ENTRY (RN) = CURRENT RECORD NAME. 00869 M01S00686.gtr +++| 00870 M01S00687.gtr +++| 00871 M01S00688.gtr +++| CUL PS RETURN EXIT 00872 M01S00689.gtr +++| CUL1 READ P 00873 M01S00690.gtr +++| RECALL B 00874 M01S00691.gtr +++| READW P,WSA,WSAL 00875 M01S00692.gtr +++| NG X1,CPY3 IF EOF 00876 M01S00693.gtr +++| BX6 X1 00877 M01S00694.gtr +++| SX1 B6 LWA+1 OF DATA READ 00878 M01S00695.gtr +++| SA6 T2 SAVE EOR INDICATOR 00879 M01S00696.gtr +++| SX2 WSA 00880 M01S00697.gtr +++| RJ SRT SET RECORD TYPE 00881 M01S00698.gtr +++| SA6 RN 00882 M01S00699.gtr +++| SA1 T2 00883 M01S00700.gtr +++| NZ X1,CUL3 IF EOR 00884 M01S00701.gtr +++| CUL2 WRITEW B,WSA,WSAL COPY RECORD 00885 M01S00702.gtr +++| READW P,WSA,WSAL 00886 M01S00703.gtr +++| ZR X1,CUL2 IF NOT EOR 00887 M01S00704.gtr +++| NG X1,CPY2 IF EOF/EOI 00888 M01S00705.gtr +++| CUL3 WRITEW B,WSA,X1-WSA 00889 M01S00706.gtr +++| WRITER B 00890 M01S00707.gtr +++| SA1 RN CHECK TYPE
| Line S00708 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00891 M02S00708.251l664 ---| SB7 X1-8 00892 M01S00007.251l664 +++| SB7 X1-ODRT 00893 M01S00709.gtr +++| NZ B7,CUL1 LOOP TO END OF ULIB 00894 M01S00710.gtr +++| EQ CUL RETURN 00895 M01S00711.gtr +++| DMP SPACE 4,3 00896 M01S00712.gtr +++|** DMP - DISPLAY MISSING PROGRAMS. 00897 M01S00713.gtr +++| 00898 M01S00714.gtr +++| 00899 M01S00715.gtr +++| DMP PS RETURN EXIT 00900 M01S00716.gtr +++| SX6 B0 00901 M01S00717.gtr +++| SA6 T1 00902 M01S00718.gtr +++| DMP1 SA1 O.IPT 00903 M01S00719.gtr +++| SA2 L.IPT 00904 M01S00720.gtr +++| ZR X2,DMP4 IF END OF IPT 00905 M01S00721.gtr +++| SA2 X1 READ ENTRY 00906 M01S00722.gtr +++| BX6 X2 00907 M01S00723.gtr +++| AX6 42 00908 M01S00724.gtr +++| ZR X2,DMP3 IF NO ENTRY 00909 M01S00725.gtr +++| SX7 X6-1L0 00910 M01S00726.gtr +++| ZR X7,DMP3 IF ADD 0-LENGTH RECORD 00911 M01S00727.gtr +++| SX7 X6-1L* 00912 M01S00728.gtr +++| ZR X7,DMP3 IF FULL FILE ADD 00913 M01S00729.gtr +++| SX7 X6-1L, 00914 M01S00730.gtr +++| NZ X7,DMP2 IF INSERT NOT STARTED 00915 M01S00731.gtr +++| SA2 A2+B1 00916 M01S00732.gtr +++| DMP2 SA1 T1 INCREMENT ERROR COUNT 00917 M01S00733.gtr +++| SX6 X1+B1 00918 M01S00734.gtr +++| SA6 A1 00919 M01S00735.gtr +++| RJ DPN DISPLAY PROGRAM NAME 00920 M01S00736.gtr +++| DMP3 SA1 O.IPT ADVANCE TO NEXT INSERT 00921 M01S00737.gtr +++| SA2 L.IPT 00922 M01S00738.gtr +++| SX6 X1+2 00923 M01S00739.gtr +++| SX7 X2-2 00924 M01S00740.gtr +++| SA6 A1 00925 M01S00741.gtr +++| SA7 A2 00926 M01S00742.gtr +++| EQ DMP1 LOOP 00927 M01S00743.gtr +++| 00928 M01S00744.gtr +++| DMP4 SA1 T1 00929 M01S00745.gtr +++| ZR X1,DMP IF NO ERRORS 00930 M01S00746.gtr +++| SX6 B1 SET ERROR FLAG 00931 M01S00747.gtr +++| SA6 ERRF 00932 M01S00748.gtr +++| EQ DMP RETURN 00933 M01S00749.gtr +++| DPN SPACE 4,4 00934 M01S00750.gtr +++|** DPN - DISPLAY PROGRAM NAME.
| Line S00751 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00935 M02S00751.251l664 ---|* ENTRY (X2) = PROGRAM NAME LEFT JUSTIFIED. 00936 M01S00008.251l664 +++|* ENTRY (X2) = 42/PROGRAM NAME LEFT JUSTIFIED, 18/RECORD TYPE. 00937 M01S00752.gtr +++| 00938 M01S00753.gtr +++| 00939 M01S00754.gtr +++| DPN PS RETURN EXIT 00940 M01S00755.gtr +++| MX0 30 00941 M01S00756.gtr +++| SA1 DPNB+X2 00942 M01S00757.gtr +++| LX6 X1 00943 M01S00758.gtr +++| LX2 30 00944 M01S00759.gtr +++| BX1 -X0*X2 00945 M01S00760.gtr +++| MX7 12 00946 M01S00761.gtr +++| BX7 X7*X2 00947 M01S00762.gtr +++| IX6 X6+X1 00948 M01S00763.gtr +++| SA6 DPNA+1 00949 M01S00764.gtr +++| SA7 A6+B1 00950 M01S00765.gtr +++| MESSAGE A6-B1,,R 00951 M01S00766.gtr +++| EQ DPN RETURN 00952 M01S00767.gtr +++| 00953 M01S00768.gtr +++| DPNA DATA 22C MISSING
| Line S00769 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00954 M02S00769.251l664 ---| DPNB CON 5LTEXT/
| Line S00770 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00955 M02S00770.251l664 ---| CON 5L PP/
| Line S00771 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00956 M02S00771.251l664 ---| CON 0 UNDEFINED RECORD TYPE
| Line S00772 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00957 M02S00772.251l664 ---| CON 5L REL/
| Line S00773 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00958 M02S00773.251l664 ---| CON 5L OVL/
| Line S00774 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00959 M02S00774.251l664 ---| CON 5LULIB/
| Line S00775 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00960 M02S00775.251l664 ---| CON 5L OPL/
| Line S00776 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00961 M02S00776.251l664 ---| CON 5LOPLC/
| Line S00777 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00962 M02S00777.251l664 ---| CON 5LOPLD/
| Line S00778 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00963 M02S00778.251l664 ---| CON 5L ABS/
| Line S00779 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00964 M02S00779.251l664 ---| CON 5L PPU/
| Line S00780 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00965 M02S00780.251l664 ---| CON 0 UNDEFINED RECORD TYPE
| Line S00781 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00966 M02S00781.251l664 ---| CON 0 UNDEFINED RECORD TYPE
| Line S00782 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00967 M02S00782.251l664 ---| CON 0 UNDEFINED RECORD TYPE
| Line S00783 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00968 M02S00783.251l664 ---| CON 5L CAP/
| Line S00784 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00969 M02S00784.251l664 ---| CON 0 UNDEFINED RECORD TYPE
| Line S00785 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00970 M02S00785.251l664 ---| CON 5LPROC/
00971 M01S00009.251l664 +++| DPNB BSS 0
00972 M01S00010.251l664 +++| .E ECHO ,RT=("RTMIC")
00973 M01S00011.251l664 +++| .A IFC NE,/RT//
00974 M01S00012.251l664 +++| VFD 24/0A_RT,36/1L/
00975 M01S00013.251l664 +++| .A ELSE
00976 M01S00014.251l664 +++| DATA 0
00977 M01S00015.251l664 +++| .A ENDIF
00978 M01S00016.251l664 +++| .E ENDD
00979 M01S00786.gtr +++| MSG SPACE 4,5
00980 M01S00787.gtr +++|** MSG - SEND CONSOLE MESSAGE.
00981 M01S00788.gtr +++|* ENTRY (X1) = PROGRAM NAME LEFT JUSTIFIED.
00982 M01S00789.gtr +++|* (X2) = CONSOLE MESSAGE.
00983 M01S00790.gtr +++|
00984 M01S00791.gtr +++|
00985 M01S00792.gtr +++| MSG PS RETURN EXIT
00986 M01S00793.gtr +++| MX0 42
00987 M01S00794.gtr +++| LX6 X2
00988 M01S00795.gtr +++| BX7 X0*X1
00989 M01S00796.gtr +++| SA6 MSGA
00990 M01S00797.gtr +++| SA7 A6+B1
00991 M01S00798.gtr +++| MESSAGE A6,1
00992 M01S00799.gtr +++| EQ MSG RETURN
00993 M01S00800.gtr +++|
00994 M01S00801.gtr +++| MSGA DATA 17C GETTING
00995 M01S00802.gtr +++| RDD SPACE 4,4
00996 M01S00803.gtr +++|** RDD - READ DIRECTORY.
00997 M01S00804.gtr +++|* EXIT (X1) = 0 IF DIRECTORY NOT FOUND.
00998 M01S00805.gtr +++|
00999 M01S00806.gtr +++|
01000 M01S00807.gtr +++| RDD PS RETURN EXIT
01001 M01S00808.gtr +++| SKIPEI P
01002 M01S00809.gtr +++| SKIPB P,2
01003 M01S00810.gtr +++| READ P
01004 M01S00811.gtr +++| READW P,T1,1
01005 M01S00812.gtr +++| NZ X1,RDD1 IF EOR OR EOF
01006 M01S00813.gtr +++| SA1 T1
01007 M01S00814.gtr +++| LX1 18
01008 M01S00815.gtr +++| SX6 X1-770000B
01009 M01S00816.gtr +++| NZ X6,RDD1 IF NO 7700 TABLE
01010 M01S00817.gtr +++| LX1 6
01011 M01S00818.gtr +++| READW P,WSA,X1
01012 M01S00819.gtr +++| SA1 WSA
01013 M01S00820.gtr +++| BX6 X1
01014 M01S00821.gtr +++| SA6 ID+1
01015 M01S00822.gtr +++| READW P,T1,1
01016 M01S00823.gtr +++| SA2 T1
01017 M01S00824.gtr +++| LX2 18
01018 M01S00825.gtr +++| BX3 X2
01019 M01S00826.gtr +++| SX6 X2-700000B
01020 M01S00827.gtr +++| LX3 18
01021 M01S00828.gtr +++| SX3 X3
01022 M01S00829.gtr +++| NZ X3,RDD1 IF NOT OPLD
01023 M01S00830.gtr +++| NZ X6,RDD1 IF NOT OPLD
01024 M01S00831.gtr +++| LX2 -18
01025 M01S00832.gtr +++| ALLOC PNT,X2
01026 M01S00833.gtr +++| READW P,X3,X4
01027 M01S00834.gtr +++| NZ X1,RDD1 IF EOR
01028 M01S00835.gtr +++| READW P,WSA,3
01029 M01S00836.gtr +++| NZ X1,RDD RETURN IF EOR
01030 M01S00837.gtr +++| RDD1 REWIND P
01031 M01S00838.gtr +++| MX1 0
01032 M01S00839.gtr +++| EQ RDD RETURN
01033 M01S00840.gtr +++| RFR SPACE 4,5
01034 M01S00841.gtr +++|** RFR - READ FIRST RECORD.
01035 M01S00842.gtr +++|* EXIT (X1) = EOR INDICATOR.
01036 M01S00843.gtr +++|* (RN) = RECORD NAME AND TYPE.
01037 M01S00844.gtr +++|
01038 M01S00845.gtr +++|
01039 M01S00846.gtr +++| RFR PS RETURN EXIT
01040 M01S00847.gtr +++| RFR1 READ P
01041 M01S00848.gtr +++| READW P,WSA,WSAL
01042 M01S00849.gtr +++| NG X1,RFR EXIT IF EOF
01043 M01S00850.gtr +++| BX6 X1
01044 M01S00851.gtr +++| SX1 B6 LWA+1 OF DATA READ
01045 M01S00852.gtr +++| SA6 T1
01046 M01S00853.gtr +++| SX2 WSA
01047 M01S00854.gtr +++| RJ SRT SET RECORD TYPE
01048 M01S00855.gtr +++| SA6 RN
01049 M01S00856.gtr +++| SA1 T1
| Line S00857 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01050 M02S00857.251l664 ---| SX7 X6-8 01051 M01S00017.251l664 +++| SX7 X6-ODRT 01052 M01S00858.gtr +++| NZ X7,RFR IF NOT OPLD 01053 M01S00859.gtr +++| NZ X1,RFR1 IF EOR 01054 M01S00860.gtr +++| RFR2 READW P,WSA,WSAL 01055 M01S00861.gtr +++| ZR X1,RFR2 LOOP TO EOR 01056 M01S00862.gtr +++| PL X1,RFR1 IF EOR 01057 M01S00863.gtr +++| EQ RFR 01058 M01S00864.gtr +++| SKR SPACE 4,3 01059 M01S00865.gtr +++|** SKR - SKIP RECORD. 01060 M01S00866.gtr +++| 01061 M01S00867.gtr +++| 01062 M01S00868.gtr +++| SKR PS RETURN EXIT 01063 M01S00869.gtr +++| SA1 RN 01064 M01S00870.gtr +++| SA2 =10H SKIPPING 01065 M01S00871.gtr +++| RJ MSG 01066 M01S00872.gtr +++| SKR1 READW P,WSA,WSAL 01067 M01S00873.gtr +++| ZR X1,SKR1 IF NOT EOR 01068 M01S00874.gtr +++| EQ SKR RETURN 01069 M01S00875.gtr +++| SMT SPACE 4,10 01070 M01S00876.gtr +++|** SMT - SEARCH MANAGED TABLE. 01071 M01S00877.gtr +++|* ENTRY (A1) = ADDRESS OF TABLE ORIGIN. 01072 M01S00878.gtr +++|* (X1) = TABLE ORIGIN. 01073 M01S00879.gtr +++|* (X2) = ENTRY. 01074 M01S00880.gtr +++|* (X3) = MASK. 01075 M01S00881.gtr +++|* EXIT (X2) = ENTRY. 01076 M01S00882.gtr +++|* (X6) = TABLE INDEX. 01077 M01S00883.gtr +++|* (X7) = 0 IF FOUND. 01078 M01S00884.gtr +++| 01079 M01S00885.gtr +++| 01080 M01S00886.gtr +++| SMT PS RETURN EXIT 01081 M01S00887.gtr +++| SB2 X1 01082 M01S00888.gtr +++| SA4 A1+TABL 01083 M01S00889.gtr +++| SB7 X4+B2 01084 M01S00890.gtr +++| MX7 1 01085 M01S00891.gtr +++| SB3 B2 01086 M01S00892.gtr +++| SB4 B1+B1 01087 M01S00893.gtr +++| SMT1 EQ B3,B7,SMT IF END OF TABLE 01088 M01S00894.gtr +++| SA1 B3 01089 M01S00895.gtr +++| BX7 X1-X2 01090 M01S00896.gtr +++| BX7 X3*X7 01091 M01S00897.gtr +++| SB3 B3+B4 01092 M01S00898.gtr +++| NZ X7,SMT1 IF NOT FOUND 01093 M01S00899.gtr +++| SX6 A1-B2 01094 M01S00900.gtr +++| EQ SMT RETURN 01095 M01S00901.gtr +++| WND SPACE 4,3 01096 M01S00902.gtr +++|** WND - WRITE NEW DIRECTORY. 01097 M01S00903.gtr +++| 01098 M01S00904.gtr +++| 01099 M01S00905.gtr +++| WND PS RETURN EXIT 01100 M01S00906.gtr +++| RECALL B 01101 M01S00002.gtr2 +++| RJ CDT CHECK DEVICE TYPE 01102 M01S00907.gtr +++| SA1 ND 01103 M01S00908.gtr +++| ZR X1,WND1 IF NO DIRECTORY 01104 M01S00909.gtr +++| SX1 X1-1 01105 M01S00910.gtr +++| ZR X1,WND1 IF *U* OPTION SELECTED 01106 M01S00911.gtr +++| SA1 RCWF CHECK RECORDS WRITTEN FLAG 01107 M01S00912.gtr +++| ZR X1,WND1 IF NO RECORDS WRITTEN
| Line S00913 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr2 |
Seq # *Modification Id* Act ----------------------------+ 01108 M02S00913.gtr2 ---| RJ CDT CHECK DEVICE TYPE
| Line S00914 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr2 |
Seq # *Modification Id* Act ----------------------------+ 01109 M02S00914.gtr2 ---| SA1 ID+1 ADD *NPT* ENTRY FOR NEW OPLD 01110 M01S00003.gtr2 +++| SA1 ID+1 ADD *NPT* ENTRY FOR NEW OPLD 01111 M01S00915.gtr +++| SX3 8 01112 M01S00916.gtr +++| SA2 B+6 01113 M01S00917.gtr +++| IX1 X1+X3 01114 M01S00918.gtr +++| AX2 30 01115 M01S00919.gtr +++| ADDWORD NPT 01116 M01S00920.gtr +++| SA1 L.NPT 01117 M01S00921.gtr +++| MX6 3 01118 M01S00922.gtr +++| BX6 X6+X1 01119 M01S00923.gtr +++| SA6 ID+17B 01120 M01S00924.gtr +++| WRITEW B,ID,20B 01121 M01S00925.gtr +++| SA1 O.NPT 01122 M01S00926.gtr +++| SA2 L.NPT 01123 M01S00927.gtr +++| WRITEW B,X1,X2 01124 M01S00928.gtr +++| WRITER B 01125 M01S00929.gtr +++| WRITEF B 01126 M01S00023.274l797 +++| SA1 B+1 01127 M01S00024.274l797 +++| AX1 48 01128 M01S00025.274l797 +++| SX3 X1-2ROD 01129 M01S00026.274l797 +++| ZR X3,WND2 IF OPTICAL DISK FILE 01130 M01S00930.gtr +++| BKSP B,R 01131 M01S00931.gtr +++| WND1 SA1 NR 01132 M01S00932.gtr +++| NZ X1,WND IF NO REWIND
| Line S00933 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01133 M02S00933.274l797 ---| REWIND B 01134 M01S00027.274l797 +++| WND2 REWIND B 01135 M01S00934.gtr +++| REWIND P 01136 M01S00935.gtr +++| EQ WND RETURN 01137 M01S00936.gtr +++| WNR SPACE 4,4 01138 M01S00937.gtr +++|** WNR - WRITE NEXT RECORD. 01139 M01S00938.gtr +++|* ENTRY (X1) = EOR INDICATOR. 01140 M01S00939.gtr +++| 01141 M01S00940.gtr +++| 01142 M01S00941.gtr +++| WNR PS RETURN EXIT 01143 M01S00942.gtr +++| SX6 B1 SET RECORDS WRITTEN FLAG 01144 M01S00943.gtr +++| SA6 RCWF 01145 M01S00944.gtr +++| BX6 X1 01146 M01S00945.gtr +++| SA6 T1 01147 M01S00946.gtr +++| SA1 RN 01148 M01S00947.gtr +++| SA2 WNRA 01149 M01S00948.gtr +++| RJ MSG 01150 M01S00949.gtr +++| SA2 RN CHECK TYPE 01151 M01S00950.gtr +++| SA1 T1
| Line S00951 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01152 M02S00951.251l664 ---| SB7 X2-5 01153 M01S00018.251l664 +++| SB7 X2-ULRT 01154 M01S00952.gtr +++| ZR B7,WNR3 IF *ULIB* 01155 M01S00042.gtr5 +++| SB7 X2-TXRT 01156 M01S00043.gtr5 +++| NZ B7,WNR0.2 IF NOT A TEXT RECORD 01157 M01S00044.gtr5 +++| SA2 TU 01158 M01S00045.gtr5 +++| ZR X2,WNR0.2 IF NOT REMOVING RECORD NAMES 01159 M01S00046.gtr5 +++| SA2 WSA 01160 M01S00047.gtr5 +++| SB7 WSAL 01161 M01S00048.gtr5 +++| MX0 -12 01162 M01S00049.gtr5 +++| ZR X1,WNR0.1 IF NOT AT EOR
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
M02 (Updated by) | gtr5a |
Seq # *Modification Id* Act ----------------------------+ 01163 M02S00050.gtr5a ---| SB7 X1 01164 M01S00001.gtr5a +++| SB7 X1-WSA 01165 M01S00001.gtr5b +++| ZR B7,WNR2.1 IF EMPTY RECORD 01166 M01S00051.gtr5 +++| WNR0.1 SB7 B7-B1 01167 M01S00052.gtr5 +++| ZR B7,WNR2.1 IF EMPTY RECORD 01168 M01S00053.gtr5 +++| BX6 -X0*X2 01169 M01S00054.gtr5 +++| SA2 A2+B1 01170 M01S00055.gtr5 +++| NZ X6,WNR0.1 IF NOT AT END OF LINE 01171 M01S00056.gtr5 +++| BX0 X1 01172 M01S00057.gtr5 +++| WRITEW B,A2,B7 01173 M01S00058.gtr5 +++| NZ X0,WNR2.1 IF AT EOR 01174 M01S00059.gtr5 +++| READW P,WSA,WSAL
| Line S00953 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01175 M02S00953.gtr5 ---| NZ X1,WNR2 IF EOR 01176 M01S00060.gtr5 +++| WNR0.2 NZ X1,WNR2 IF AT EOR 01177 M01S00954.gtr +++| WNR1 WRITEW B,WSA,WSAL 01178 M01S00955.gtr +++| READW P,WSA,WSAL 01179 M01S00956.gtr +++| ZR X1,WNR1 IF NOT EOR 01180 M01S00957.gtr +++| NG X1,WNR IF EOF/EOI 01181 M01S00958.gtr +++| WNR2 WRITEW B,WSA,X1-WSA
| Line S00959 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01182 M02S00959.gtr5 ---| WRITER B 01183 M01S00061.gtr5 +++| WNR2.1 WRITER B 01184 M01S00960.gtr +++| EQ WNR RETURN 01185 M01S00961.gtr +++| 01186 M01S00962.gtr +++| WNR3 SA2 ND 01187 M01S00963.gtr +++| ZR X2,WNR6 IF DIRECTORY NOT REQUESTED 01188 M01S00964.gtr +++| NZ X1,WNR5 IF EOR 01189 M01S00965.gtr +++| WNR4 WRITEW B,WSA,WSAL 01190 M01S00966.gtr +++| READW P,WSA,WSAL 01191 M01S00967.gtr +++| ZR X1,WNR4 IF NOT EOR 01192 M01S00968.gtr +++| NG X1,WNR IF EOF/EOI - RETURN 01193 M01S00969.gtr +++| WNR5 WRITEW B,WSA,X1-WSA 01194 M01S00970.gtr +++| WRITER B 01195 M01S00971.gtr +++| WNR6 RJ SKR SKIP RECORD 01196 M01S00972.gtr +++| SA1 RN 01197 M01S00973.gtr +++| SA2 WNRA 01198 M01S00974.gtr +++| RJ MSG 01199 M01S00975.gtr +++| RJ CUL COPY USER LIBRARY 01200 M01S00976.gtr +++| EQ WNR RETURN 01201 M01S00977.gtr +++| 01202 M01S00978.gtr +++| WNRA DATA 10H GETTING 01203 M01S00979.gtr +++| ENDS BSS 0 END OF SUBROUTINES 01204 M01S00980.gtr +++| APN TITLE CONTROL CARD PROCESSING - OVERLAID CODE. 01205 M01S00981.gtr +++|** APN - ASSEMBLE PROGRAM NAME. 01206 M01S00982.gtr +++|* ASSEMBLE ENTRY OF TYPE *LIB/PN,* 01207 M01S00983.gtr +++|* EXIT (X2) = SEPARATOR CHARACTER 01208 M01S00984.gtr +++|* (X6) = PROGRAM NAME AND TYPE. 01209 M01S00985.gtr +++| 01210 M01S00986.gtr +++| 01211 M01S00987.gtr +++| ORG WSA 01212 M01S00988.gtr +++| SEG 01213 M01S00989.gtr +++| APN PS RETURN EXIT 01214 M01S00990.gtr +++| SA1 CP 01215 M01S00991.gtr +++| SB4 X1+B1 (B4) = STRING BUFFER POINTER 01216 M01S00992.gtr +++| SX6 B0 01217 M01S00993.gtr +++| SB7 60 01218 M01S00994.gtr +++| 01219 M01S00995.gtr +++|* ASSEMBLE FIRST ENTRY. 01220 M01S00996.gtr +++| 01221 M01S00997.gtr +++| APN1 SA2 B4 01222 M01S00998.gtr +++| SB5 X2-1R/ 01223 M01S00999.gtr +++| ZR B5,APN2 IF CHARACTER = */* 01224 M01S01000.gtr +++| SA1 =20000000000004030000B 01225 M01S01001.gtr +++| SB5 X2+B1 01226 M01S01002.gtr +++| LX1 X1,B5 01227 M01S01003.gtr +++| NG X1,APN4 IF CHARACTER = EOL *-* * * *,* 01228 M01S01004.gtr +++| LX6 6 01229 M01S01005.gtr +++| SB7 B7-6 01230 M01S01006.gtr +++| IX6 X6+X2 01231 M01S01007.gtr +++| SB4 B4+B1 01232 M01S01008.gtr +++| EQ APN1 LOOP 01233 M01S01009.gtr +++| 01234 M01S01010.gtr +++|* CHARACTER = */* SET LIBRARY NAME. ASSEMBLE PROGRAM NAME. 01235 M01S01011.gtr +++| 01236 M01S01012.gtr +++| APN2 LX6 X6,B7 01237 M01S01013.gtr +++| SA6 APNA 01238 M01S01014.gtr +++| SX6 B0 01239 M01S01015.gtr +++| SB7 60 01240 M01S01016.gtr +++| SB4 B4+B1 01241 M01S01017.gtr +++| APN3 SA2 B4 01242 M01S01018.gtr +++| SB5 X2-1R/ 01243 M01S01019.gtr +++| ZR B5,ERR IF CHARACTER = */* 01244 M01S01020.gtr +++| SA1 =20000000000004030000B 01245 M01S01021.gtr +++| SB5 X2+B1 01246 M01S01022.gtr +++| LX1 X1,B5 01247 M01S01023.gtr +++| NG X1,APN4 IF CHARACTER = EOL *-* * * *,* 01248 M01S01024.gtr +++| LX6 6 01249 M01S01025.gtr +++| IX6 X6+X2 01250 M01S01026.gtr +++| SB7 B7-6 01251 M01S01027.gtr +++| SB4 B4+B1 01252 M01S01028.gtr +++| EQ APN3 LOOP 01253 M01S01029.gtr +++| 01254 M01S01030.gtr +++|* CHARACTER = EOL *-* * * *,*. STORE PROGRAM NAME. 01255 M01S01031.gtr +++| 01256 M01S01032.gtr +++| APN4 SA1 APNA CHECK LIBRARY TYPE 01257 M01S01033.gtr +++| SA2 APNB 01258 M01S01034.gtr +++| APN5 ZR X2,ERR IF ILLEGAL LIBRARY 01259 M01S01035.gtr +++| BX7 X1-X2 01260 M01S01036.gtr +++| SA2 A2+B1 01261 M01S01037.gtr +++| NZ X7,APN5 IF NOT FOUND 01262 M01S01038.gtr +++| SX7 A2-APNB-1 01263 M01S01039.gtr +++| MX0 -18 SET PROGRAM AND LIBRARY NAMES 01264 M01S01040.gtr +++| LX6 X6,B7 01265 M01S01041.gtr +++| BX2 -X0*X6 01266 M01S01042.gtr +++| NZ X2,ERR IF NAME MORE THAN 7 CHARACTERS 01267 M01S01043.gtr +++| BX6 X0*X6 01268 M01S01044.gtr +++| BX6 X6+X7 01269 M01S01045.gtr +++| SA2 B4 01270 M01S01046.gtr +++| SX7 B4 01271 M01S01047.gtr +++| SA7 CP 01272 M01S01048.gtr +++| EQ APN RETURN 01273 M01S01049.gtr +++|
| Line S01050 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr1 |
Seq # *Modification Id* Act ----------------------------+ 01274 M02S01050.gtr1 ---|* ERROR DETECTED.
| Line S01051 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr1 |
Seq # *Modification Id* Act ----------------------------+ 01275 M02S01051.gtr1 ---|
| Line S01052 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr1 |
Seq # *Modification Id* Act ----------------------------+ 01276 M02S01052.gtr1 ---| ERR MESSAGE (=C* FORMAT ERROR.*)
| Line S01053 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr1 |
Seq # *Modification Id* Act ----------------------------+ 01277 M02S01053.gtr1 ---| EQ GTR8 ERROR EXIT 01278 M01S01054.gtr +++| 01279 M01S01055.gtr +++| APNA CON 0LTEXT LIBRARY NAME
| Line S01056 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01280 M02S01056.251l664 ---| APNB CON 0LTEXT 0
| Line S01057 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01281 M02S01057.251l664 ---| CON 0LPP 1
| Line S01058 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01282 M02S01058.251l664 ---| CON 1 2 (UNDEFINED RECORD TYPE)
| Line S01059 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01283 M02S01059.251l664 ---| CON 0LREL 3
| Line S01060 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01284 M02S01060.251l664 ---| CON 0LOVL 4
| Line S01061 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01285 M02S01061.251l664 ---| CON 0LULIB 5
| Line S01062 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01286 M02S01062.251l664 ---| CON 0LOPL 6
| Line S01063 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01287 M02S01063.251l664 ---| CON 0LOPLC 7
| Line S01064 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01288 M02S01064.251l664 ---| CON 0LOPLD
| Line S01065 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01289 M02S01065.251l664 ---| CON 0LABS 9
| Line S01066 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01290 M02S01066.251l664 ---| CON 0LPPU 10
| Line S01067 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01291 M02S01067.251l664 ---| CON 1 11 (UNDEFINED RECORD TYPE)
| Line S01068 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01292 M02S01068.251l664 ---| CON 1 12 (UNDEFINED RECORD TYPE)
| Line S01069 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01293 M02S01069.251l664 ---| CON 1 13 (UNDEFINED RECORD TYPE)
| Line S01070 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01294 M02S01070.251l664 ---| CON 0LCAP 14
| Line S01071 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01295 M02S01071.251l664 ---| CON 1 15 (UNDEFINED RECORD TYPE)
| Line S01072 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
01296 M02S01072.251l664 ---| CON 0LPROC 16
01297 M01S00019.251l664 +++| APNB BSS 0
01298 M01S00020.251l664 +++| .E ECHO ,RT=("RTMIC")
01299 M01S00021.251l664 +++| .A IFC NE,/RT//
01300 M01S00022.251l664 +++| DATA L/RT/
01301 M01S00023.251l664 +++| .A ELSE
01302 M01S00024.251l664 +++| DATA 1
01303 M01S00025.251l664 +++| .A ENDIF
01304 M01S00026.251l664 +++| .E ENDD
01305 M01S01073.gtr +++| CON 0
01306 M01S01074.gtr +++| ARG SPACE 4,3
| Line S01075 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01307 M02S01075.gtr5 ---|** ARG - PROCESS ARGUMENTS ON CONTROL CARD. 01308 M01S00062.gtr5 +++|** ARG - PROCESS ARGUMENTS ON COMMAND. 01309 M01S00063.gtr5 +++|* 01310 M01S00064.gtr5 +++|* ARG SETS FILE NAMES AND FLAGS BASED ON COMMAND PARAMETERS. 01311 M01S00065.gtr5 +++|* 01312 M01S00066.gtr5 +++|* ENTRY COMMAND PARAMETERS ARE IN JOB COMMUNICATION AREA. 01313 M01S00067.gtr5 +++|* 01314 M01S00068.gtr5 +++|* EXIT FILE NAMES AND SELECTED OPTION FLAGS ARE SET UP. 01315 M01S00069.gtr5 +++|* 01316 M01S00070.gtr5 +++|* ERROR TO *GTR8* IF FILE NAME CONFLICT, TOO MANY PARAMETERS, 01317 M01S00071.gtr5 +++|* OR INCORRECT PARAMETER. 01318 M01S00072.gtr5 +++|* 01319 M01S00073.gtr5 +++|* USES X - 0, 1, 2, 3, 6, 7. 01320 M01S00074.gtr5 +++|* A - 1, 2, 3, 6, 7. 01321 M01S00075.gtr5 +++|* B - 6, 7. 01322 M01S00076.gtr5 +++|* 01323 M01S00077.gtr5 +++|* MACROS MESSAGE. 01324 M01S01076.gtr +++| 01325 M01S01077.gtr +++| 01326 M01S01078.gtr +++| ARG3 SA1 P 01327 M01S01079.gtr +++| SA2 B
| Line S01080 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr4 |
Seq # *Modification Id* Act ----------------------------+ 01328 M02S01080.gtr4 ---| IX2 X2-X1 01329 M01S00002.gtr4 +++| BX6 X0*X2 SET NEW LFN AS NEW DIRECTORY NAME 01330 M01S00003.gtr4 +++| SA6 ID+1 01331 M01S00004.gtr4 +++| BX2 X2-X1 01332 M01S01081.gtr +++| BX1 X0*X2 01333 M01S01082.gtr +++| NZ X1,ARG4 IF FILE NAMES DIFFERENT 01334 M01S01083.gtr +++| MESSAGE (=C* FILENAME CONFLICT.*) 01335 M01S01084.gtr +++| EQ GTR8 ERROR EXIT 01336 M01S01085.gtr +++| 01337 M01S01086.gtr +++| ARG4 SA1 ND READ NO DIRECTORY FLAG 01338 M01S01087.gtr +++| ZR X1,ARG IF NO DIRECTORY OPTION SELECTED 01339 M01S01088.gtr +++| SX2 1RU 01340 M01S01089.gtr +++| LX1 5-59 01341 M01S01090.gtr +++| IX6 X2-X1 01342 M01S01091.gtr +++| ZR X6,ARG5 IF *U* OPTION SELECTED 01343 M01S01092.gtr +++| SX6 B1+ 01344 M01S01093.gtr +++| ARG5 SX7 X6+1 SET OPTION AND RETURN 01345 M01S01094.gtr +++| SA7 A1+ 01346 M01S01095.gtr +++| 01347 M01S01096.gtr +++| ARG PS RETURN EXIT 01348 M01S01097.gtr +++| SA1 ACTR SET ARGUMENT COUNT 01349 M01S01098.gtr +++| SA2 CPRF 01350 M01S01099.gtr +++| SB6 B1+B1 COPYRF MAXIMUM NUMBER OF ARGUMENTS 01351 M01S01100.gtr +++| SB7 X1 01352 M01S01101.gtr +++| ZR X2,ARG0 IF NOT COPYRF 01353 M01S01102.gtr +++| LE B7,B6,ARG0 IF 2 OR LESS ARGUMENTS 01354 M01S01103.gtr +++| MESSAGE (=C* TOO MANY PARAMETERS.*) 01355 M01S01104.gtr +++| EQ GTR8 ERROR EXIT 01356 M01S01105.gtr +++| 01357 M01S01106.gtr +++| ARG0 MX0 42 01358 M01S01107.gtr +++| SA1 B6 FIRST ARGUMENT 01359 M01S01108.gtr +++| SA2 ARGA SET LIST OF OPTIONS 01360 M01S01109.gtr +++| ARG1 ZR B7,ARG3 IF END OF ARGUMENTS 01361 M01S01110.gtr +++| BX6 X0*X1 01362 M01S01111.gtr +++| SA3 X2 01363 M01S01112.gtr +++| SB7 B7-B1 01364 M01S01113.gtr +++| BX3 -X0*X3
| Line S01114 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01365 M02S01114.gtr5 ---| ZR X6,ARG2 IF NO FILE NAME 01366 M01S00078.gtr5 +++| ZR X6,ARG2 IF NULL PARAMETER 01367 M01S01115.gtr +++| BX6 X6+X3 01368 M01S01116.gtr +++| SA6 X2
| Line S01117 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01369 M02S01117.gtr5 ---| ARG2 SA1 A1+B1 READ NEXT PARAMETER 01370 M01S00079.gtr5 +++| ARG2 SX3 X1-3 CHECK FOR */* SEPARATOR 01371 M01S00080.gtr5 +++| SX6 X1-1R/ 01372 M01S00081.gtr5 +++| SA1 A1+B1 READ NEXT PARAMETER 01373 M01S01118.gtr +++| SA2 A2+B1
| Line S01119 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01374 M02S01119.gtr5 ---| NZ X2,ARG1 LOOP FOR NEXT PARAMETER 01375 M01S00082.gtr5 +++| ZR X3,ARG2.1 IF NON-POSITIONAL PARAMETERS FOLLOW 01376 M01S00083.gtr5 +++| ZR X6,ARG2.1 IF NON-POSITIONAL PARAMETERS FOLLOW 01377 M01S00084.gtr5 +++| NZ X2,ARG1 IF MORE PARAMETERS TO PROCESS 01378 M01S01120.gtr +++| EQ ARG3 RETURN 01379 M01S01121.gtr +++| 01380 M01S00085.gtr5 +++| ARG2.1 ZR B7,ARG3 IF END OF PARAMETERS 01381 M01S00086.gtr5 +++| BX6 X0*X1 01382 M01S00087.gtr5 +++| ZR X6,ARG2.3 IF NULL PARAMETER 01383 M01S00088.gtr5 +++| SA2 ARGB-1 01384 M01S00089.gtr5 +++| ARG2.2 SA2 A2+B1 01385 M01S00090.gtr5 +++| ZR X2,ARG2.4 IF NO MATCH IN ARGUMENT TABLE 01386 M01S00091.gtr5 +++| BX1 X0*X2 01387 M01S00092.gtr5 +++| BX1 X1-X6 01388 M01S00093.gtr5 +++| NZ X1,ARG2.2 IF NOT THIS ARGUMENT 01389 M01S00094.gtr5 +++| SA6 X2 01390 M01S00095.gtr5 +++| ARG2.3 SB7 B7-B1 01391 M01S00096.gtr5 +++| SA1 A1+B1 01392 M01S00097.gtr5 +++| EQ ARG2.1 PROCESS NEXT PARAMETER 01393 M01S01122.gtr +++| 01394 M01S00098.gtr5 +++| ARG2.4 MESSAGE (=C* INCORRECT PARAMETER.*) 01395 M01S00099.gtr5 +++| EQ GTR8 ERROR EXIT 01396 M01S00100.gtr5 +++| 01397 M01S00101.gtr5 +++| 01398 M01S00102.gtr5 +++|* POSITIONAL PARAMETER ARGUMENT TABLE. 01399 M01S00103.gtr5 +++| 01400 M01S01123.gtr +++| ARGA CON P 01401 M01S01124.gtr +++| CON B 01402 M01S01125.gtr +++| CON ND 01403 M01S01126.gtr +++| CON NR 01404 M01S01127.gtr +++| CON SQ 01405 M01S01128.gtr +++| CON NABT 01406 M01S00104.gtr5 +++| CON TU 01407 M01S00105.gtr5 +++| CON 0 01408 M01S00106.gtr5 +++| 01409 M01S00107.gtr5 +++| 01410 M01S00108.gtr5 +++|* POSITION-INDEPENDENT PARAMETER ARGUMENT TABLE. 01411 M01S00109.gtr5 +++| 01412 M01S00110.gtr5 +++| ARGB VFD 42/0LD,18/ND 01413 M01S00111.gtr5 +++| VFD 42/0LU,18/ND 01414 M01S00112.gtr5 +++| VFD 42/0LNR,18/NR 01415 M01S00113.gtr5 +++| VFD 42/0LS,18/SQ 01416 M01S00114.gtr5 +++| VFD 42/0LNA,18/NABT 01417 M01S00115.gtr5 +++| VFD 42/0LT,18/TU 01418 M01S01129.gtr +++| CON 0 01419 M01S01130.gtr +++| PRS SPACE 4,4 01420 M01S01131.gtr +++|** PRS - PRESET TABLE LENGTHS. 01421 M01S01132.gtr +++|* ENTRY (A0) = FIELD LENGTH. 01422 M01S01133.gtr +++| 01423 M01S01134.gtr +++| 01424 M01S01135.gtr +++| PRS PS RETURN EXIT 01425 M01S01136.gtr +++| DATE ID+2 01426 M01S01137.gtr +++| SA1 ID+2 POSITION DATE 01427 M01S01138.gtr +++| SX6 TAB SET TABLE POINTER 01428 M01S01139.gtr +++| BX7 X1 01429 M01S01140.gtr +++| SA6 B0 01430 M01S01141.gtr +++| LX7 6 01431 M01S01142.gtr +++| SX6 A0 01432 M01S01143.gtr +++| SA7 A1 01433 M01S01144.gtr +++| SA6 FL 01434 M01S01145.gtr +++| SX6 A0-BUF-10B SET BUFFER LENGTH 01435 M01S01146.gtr +++| SA6 L.END 01436 M01S00061.gtr3 +++| GETFLC MFL GET MAXIMUM MEMORY AND OTHER DATA 01437 M01S00062.gtr3 +++| SA1 MFL 01438 M01S00063.gtr3 +++| MX6 12 01439 M01S00064.gtr3 +++| BX6 X6*X1 ISOLATE AND SAVE MAXIMUM MEMORY 01440 M01S00065.gtr3 +++| LX6 17-59 01441 M01S00066.gtr3 +++| SA6 A1 01442 M01S01147.gtr +++| EQ PRS RETURN 01443 M01S01148.gtr +++| 01444 M01S01149.gtr +++| MFL= EQU BUF+BUFL+200000B 01445 M01S01150.gtr +++| RCD SPACE 4,5 01446 M01S01151.gtr +++|** RCD - READ CORRECTION DIRECTIVES. 01447 M01S01152.gtr +++|* ENTRY (CCDR) = CONTROL CARD. 01448 M01S01153.gtr +++|* EXIT (X1) < 0 IF FILE IS NON-RANDOM. 01449 M01S01154.gtr +++| 01450 M01S01155.gtr +++| 01451 M01S01156.gtr +++| RCD PS RETURN EXIT 01452 M01S01157.gtr +++| SB2 CCDR UNPACK CONTROL CARD 01453 M01S01158.gtr +++| SB3 CCDR+10B 01454 M01S01159.gtr +++| SB4 CBUF 01455 M01S01160.gtr +++| MX0 -6 01456 M01S01161.gtr +++| RCD1 SB5 B4+10 01457 M01S01162.gtr +++| SA1 B2 01458 M01S00001.gtr7 +++| SB2 B2+B1 01459 M01S01163.gtr +++| RCD2 LX1 6 01460 M01S01164.gtr +++| BX6 -X0*X1
| Line S01165 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr7 |
Seq # *Modification Id* Act ----------------------------+ 01461 M02S01165.gtr7 ---| ZR X6,RCD3 IF END OF CARD
| Line S01166 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr7 |
Seq # *Modification Id* Act ----------------------------+ 01462 M02S01166.gtr7 ---| SA6 B4
| Line S01167 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr7 |
Seq # *Modification Id* Act ----------------------------+ 01463 M02S01167.gtr7 ---| SB4 B4+B1 01464 M01S00002.gtr7 +++| SA6 B4 01465 M01S00003.gtr7 +++| SB4 B4+B1 01466 M01S00004.gtr7 +++| NZ X1,RCD2.1 IF NON-ZERO BYTES LEFT IN WORD 01467 M01S00005.gtr7 +++| NE B4,B5,RCD3 IF MULTIPLE ZERO BYTES AT END OF WORD 01468 M01S00006.gtr7 +++| EQ B2,B3,RCD3 IF END OF COMMAND LINE 01469 M01S00007.gtr7 +++| SA2 B2+ CHECK NEXT WORD 01470 M01S00008.gtr7 +++| ZR X2,RCD3 IF END OF COMMAND 01471 M01S00009.gtr7 +++| RCD2.1 BX1 X1-X6 01472 M01S01168.gtr +++| NE B4,B5,RCD2 LOOP FOR 10-CHARACTERS
| Line S01169 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr7 |
Seq # *Modification Id* Act ----------------------------+ 01473 M02S01169.gtr7 ---| SB2 B2+B1
| Line S01170 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr7 |
Seq # *Modification Id* Act ----------------------------+ 01474 M02S01170.gtr7 ---| SX6 B0 01475 M01S00010.gtr7 +++| SX6 B0+ 01476 M01S01171.gtr +++| NE B2,B3,RCD1 LOOP FOR END OF BUFFER 01477 M01S01172.gtr +++| RCD3 SA6 B4 SUPPRESS TRAILING BLANKS 01478 M01S01173.gtr +++| SB4 B4-B1 01479 M01S01174.gtr +++| SA1 B4 01480 M01S01175.gtr +++| SX6 X1-1R 01481 M01S01176.gtr +++| ZR X6,RCD3 IF CHARACTER IS * * 01482 M01S01177.gtr +++|
| Line S01178 Modification History | |
|---|---|
M01 (Added by) | gtr |
M02 (Updated by) | gtr1 |
Seq # *Modification Id* Act ----------------------------+ 01483 M02S01178.gtr1 ---|* SKIP OVER GET CALL. 01484 M01S00003.gtr1 +++|* SKIP OVER GTR CALL. 01485 M01S01179.gtr +++| 01486 M01S01180.gtr +++| SA1 CBUF 01487 M01S01181.gtr +++| RCD4 SX6 X1-1R. 01488 M01S01182.gtr +++| ZR X6,RCD5 IF *.* TERMINATOR 01489 M01S01183.gtr +++| SX6 X1-1R) 01490 M01S01184.gtr +++| ZR X6,RCD5 IF *)* TERMINATOR 01491 M01S01185.gtr +++| SA1 A1+B1 01492 M01S01186.gtr +++| EQ RCD4 LOOP 01493 M01S01187.gtr +++| 01494 M01S01188.gtr +++| RCD5 SX6 A1 SET CHARACTER POINTER 01495 M01S01189.gtr +++| SA6 CP 01496 M01S01190.gtr +++| 01497 M01S01191.gtr +++|* BUILD INSERT PROGRAM TABLE. 01498 M01S01192.gtr +++| 01499 M01S01193.gtr +++| RCD6 RJ APN 01500 M01S00004.gtr1 +++| ZR X6,ERR IF NO NAME 01501 M01S01194.gtr +++| SA6 T1 01502 M01S01195.gtr +++| SB5 X2-1R- 01503 M01S01196.gtr +++| SA6 A6+B1 01504 M01S01197.gtr +++| NZ B5,RCD7 IF NO SECOND FIELD 01505 M01S01198.gtr +++| RJ APN 01506 M01S01199.gtr +++| SA6 T2 01507 M01S01200.gtr +++| RCD7 SA1 T1 01508 M01S01201.gtr +++| SA2 A1+B1 01509 M01S01202.gtr +++| ADDWORD IPT 01510 M01S01203.gtr +++| 01511 M01S01204.gtr +++|* PROCESS NEXT FIELD. 01512 M01S01205.gtr +++| 01513 M01S01206.gtr +++| SA1 CP 01514 M01S01207.gtr +++| SA2 X1 01515 M01S01208.gtr +++| SX6 X2-1R 01516 M01S01209.gtr +++| ZR X6,RCD RETURN IF * * 01517 M01S01210.gtr +++| NZ X2,RCD6 IF NOT END-OF-LINE 01518 M01S01211.gtr +++| EQ RCD RETURN 01519 M01S01212.gtr +++| CBUF SPACE 4,3 01520 M01S01213.gtr +++|** CBUF - CARD BUFFER. 01521 M01S01214.gtr +++| 01522 M01S01215.gtr +++| 01523 M01S01216.gtr +++| CBUF BSS 80 01524 M01S01217.gtr +++| SPACE 4 01525 M01S01218.gtr +++| END GTR GET SELECTED RECORDS
cdc/nos2.source/opl.opl871/deck/gtr.txt · Last modified: by 127.0.0.1