Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:gtr
Deck GTR
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.gtr +++| IDENT GTR,FET 00002 M00S00002.gtr +++| ABS 00003 M00S00003.gtr +++| ENTRY GTR 00004 M00S00004.gtr +++| ENTRY COPYRF 00005 M00S00005.gtr +++| ENTRY MFL= 00006 M00S00006.gtr +++| SYSCOM B1 DEFINE B1=1 00007 M00S00007.gtr +++|*COMMENT GTR - GET SELECTED RECORDS.
| Line S00008 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1976.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M00S00009.gtr +++| GTR TITLE GTR - GET SELECTED RECORDS. 00011 M00S00010.gtr +++| SPACE 4,10 00012 M00S00011.gtr +++|*** GET SELECTED RECORDS. 00013 M00S00012.gtr +++|* D. A. CAHLANDER. 69/08/30. 00014 M00S00013.gtr +++| SPACE 4 00015 M00S00014.gtr +++|*** GTR SEARCHES FOR SELECTED RECORDS ON A LIBRARY FILE. THE 00016 M00S00015.gtr +++|* SELECTED RECORDS ARE COPIED TO THE NEW FILE. 00017 M00S00016.gtr +++| SPACE 4 00018 M00S00017.gtr +++|*** CONTROL CARD CALL - 00019 M00S00018.gtr +++|*
| Line S00019 Modification History | |
|---|---|
M01 (Removed by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 00020 M01S00019.gtr5 ---|* GTR(OLD,LGO,D/U,NR,S,NA)*SELECTION DIRECTIVES*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 00021 M01S00001.gtr5 +++|* POSITIONAL PARAMETER FORMAT. 00022 M00S00020.gtr +++|*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 00023 M01S00002.gtr5 +++|* GTR(OLD,LGO,DF,NR,S,NA,T)*SELECTION DIRECTIVES* 00024 M01S00003.gtr5 +++|* 00025 M00S00021.gtr +++|* OLD = OLD PROGRAM FILE. 00026 M00S00022.gtr +++|* LGO = NEW FILE.
| Line S00023 Modification History | |
|---|---|
M01 (Removed by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 00027 M01S00023.gtr5 ---|* D = DIRECTORY REQUESTED FLAG. 00028 M01S00024.gtr5 ---|* U = USER LIBRARY HEADER AND CORRESPONDING *OPLD* ONLY.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00025.gtr +++|* NR = NO REWIND FLAG. 00034 M00S00026.gtr +++|* S = SEQUENTIAL FILE PROCESSING. 00035 M00S00027.gtr +++|* NA = NO ABORT FLAG.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00028.gtr +++|* 00054 M00S00029.gtr +++|* SELECTION DIRECTIVES - 00055 M00S00030.gtr +++|* 00056 M00S00031.gtr +++|* LIB/PN 00057 M00S00032.gtr +++|* COPY PROGRAM *PN* (TYPE *LIB*) FROM *OLD* TO *LGO*. 00058 M00S00033.gtr +++|* 00059 M00S00034.gtr +++|* PN 00060 M00S00035.gtr +++|* COPY PROGRAM *PN* (TYPE *TEXT* OR PREVIOUS *LIB*) 00061 M00S00036.gtr +++|* FROM *OLD* TO *LGO*. 00062 M00S00037.gtr +++|* 00063 M00S00038.gtr +++|* * 00064 M00S00039.gtr +++|* COPY ALL PROGRAM OF TYPE *LIB* FROM *OLD* TO *LGO*. 00065 M00S00040.gtr +++|* 00066 M00S00041.gtr +++|* 0 00067 M00S00042.gtr +++|* INSERT 0-LENGTH RECORD ON FILE *LGO*. 00068 M00S00043.gtr +++|* 00069 M00S00044.gtr +++|* LIB/PN1-PN2 00070 M00S00045.gtr +++|* COPY PROGRAM *PN1* THROUGH *PN2* FROM *OLD* TO *LGO*. 00071 M00S00046.gtr +++| COPYRF SPACE 4 00072 M00S00047.gtr +++|*** COPYRF COPIES RECORDS FROM MEDIUM TO MEDIUM AND ADDS 00073 M00S00048.gtr +++|* A RANDOM INDEX ON THE END. 00074 M00S00049.gtr +++| COPYRF SPACE 4 00075 M00S00050.gtr +++|*** CONTROL CARD CALL. 00076 M00S00051.gtr +++|* 00077 M00S00052.gtr +++|* 00078 M00S00053.gtr +++|* COPYRF(IFILE,OFILE) 00079 M00S00054.gtr +++|* IFILE NAME OF INPUT FILE. 00080 M00S00055.gtr +++|* OFILE NAME OF OUTPUT FILE. 00081 M00S00056.gtr +++|* 00082 M00S00057.gtr +++|* ASSUMED PARAMETERS. 00083 M00S00058.gtr +++|* IFILE = *OLD* 00084 M00S00059.gtr +++|* OFILE = *LGO*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 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 +++|*
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 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 +++|*
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00060.gtr +++| SPACE 4 00122 M00S00061.gtr +++|**** ASSEMBLY CONSTANTS. 00123 M00S00062.gtr +++| 00124 M00S00063.gtr +++|
| Line S00064 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00125 M01S00064.274l797 ---| PBUFL EQU 4010B *OLD* BUFFER LENGTH 00126 M01S00065.274l797 ---| BBUFL EQU 4010B *LGO* BUFFER LENGTH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00127 M01S00001.274l797 +++| PBUFL EQU 20041B *OLD* BUFFER LENGTH 00128 M01S00002.274l797 +++| BBUFL EQU 10021B *LGO* BUFFER LENGTH
| Line S00066 Modification History | |
|---|---|
M01 (Removed by) | ns2272 |
Seq # *Modification Id* Act ----------------------------+ 00129 M01S00066.ns2272 ---| WSAL EQU 100B WORKING BUFFER LENGTH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2272 |
Seq # *Modification Id* Act ----------------------------+ 00130 M01S00001.ns2272 +++| WSAL EQU 1000B WORKING BUFFER LENGTH 00131 M00S00067.gtr +++| BUFL EQU 14000B NOMINAL TABLE SPACE REQUIRED
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00132 M01S00003.274l797 +++| ODEBL EQU 20B OPTICAL DISK EXTENSION BUFFER LENGTH 00133 M00S00068.gtr +++|****
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00134 M01S00001.251l664 +++| COMMON SPACE 4,10 00135 M01S00002.251l664 +++|* COMMON DECKS. 00136 M01S00003.251l664 +++| 00137 M01S00004.251l664 +++|
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00138 M01S00001.gtr3 +++|*CALL COMCMAC
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00139 M01S00005.251l664 +++|*CALL COMSSRT 00140 M00S00069.gtr +++| ADDWORD TITLE SUBROUTINES. 00141 M00S00070.gtr +++|** ADDWORD - ADDWORD TO MANAGED TABLE. 00142 M00S00071.gtr +++|* 00143 M00S00072.gtr +++|* ADDWORD TABNAM 00144 M00S00073.gtr +++|* ENTRY (TABNAM) = MANAGED TABLE NAME. 00145 M00S00074.gtr +++| 00146 M00S00075.gtr +++| 00147 M00S00076.gtr +++| ADDWORD MACRO TABNAM 00148 M00S00077.gtr +++| R= A0,TABNAM 00149 M00S00078.gtr +++| RJ ADW 00150 M00S00079.gtr +++| ENDM 00151 M00S00080.gtr +++| ALLOC SPACE 4,5 00152 M00S00081.gtr +++|** ALLOC - ALLOCATE MEMORY. 00153 M00S00082.gtr +++|* 00154 M00S00083.gtr +++|* ALLOC TABLE,INCR 00155 M00S00084.gtr +++|* ENTRY (TABLE) = TABLE NAME. 00156 M00S00085.gtr +++|* (INCR) = TABLE LENGTH INCREMENT. 00157 M00S00086.gtr +++| 00158 M00S00087.gtr +++| 00159 M00S00088.gtr +++| ALLOC MACRO TABLE,INCR 00160 M00S00089.gtr +++| R= A0,TABLE 00161 M00S00090.gtr +++| R= X3,INCR 00162 M00S00091.gtr +++| RJ ATS 00163 M00S00092.gtr +++| ENDM 00164 M00S00093.gtr +++| SEARCH SPACE 4,10 00165 M00S00094.gtr +++|** SEARCH - SEARCH FOR ENTRY IN MANAGED TABLE. 00166 M00S00095.gtr +++|* THIS MACRO SETS UP A CALL TO SEARCH FOR AN ENTRY 00167 M00S00096.gtr +++|* IN A MANAGED TABLE. 00168 M00S00097.gtr +++|* 00169 M00S00098.gtr +++|* SEARCH TABLE,ENTRY,MASK 00170 M00S00099.gtr +++|* ENTRY (TABLE) = NAME OF MANAGED TABLE. 00171 M00S00100.gtr +++|* (ENTRY) = ADDRESS OF ENTRY. 00172 M00S00101.gtr +++|* (MASK) = ADDRESS OF SEARCH MASK. 00173 M00S00102.gtr +++| 00174 M00S00103.gtr +++| 00175 M00S00104.gtr +++| SEARCH MACRO TABLE,ENTRY,MASK 00176 M00S00105.gtr +++| R= A2,ENTRY 00177 M00S00106.gtr +++| IFC EQ,*MASK** 00178 M00S00107.gtr +++| MX3 60 00179 M00S00108.gtr +++| ELSE 1 00180 M00S00109.gtr +++| SA3 MASK 00181 M00S00110.gtr +++| SA1 O.TABLE 00182 M00S00111.gtr +++| RJ SMT 00183 M00S00112.gtr +++| ENDM 00184 M00S00113.gtr +++| TABLE SPACE 4,6 00185 M00S00114.gtr +++|** TABLE - CREATE MANAGED TABLE. 00186 M00S00115.gtr +++|* 00187 M00S00116.gtr +++|* TABLE TNAM 00188 M00S00117.gtr +++|* ENTRY (TNAM) = TABLE NAME. 00189 M00S00118.gtr +++| 00190 M00S00119.gtr +++| 00191 M00S00120.gtr +++| MACRO TABLE,TNAM 00192 M00S00121.gtr +++| TNAM EQU *-TAB 00193 M00S00122.gtr +++| O.TNAM CON BUF 00194 M00S00123.gtr +++| RMT 00195 M00S00124.gtr +++| L.TNAM EQU TNAM+TAB+TABL 00196 M00S00125.gtr +++| RMT 00197 M00S00126.gtr +++| ENDM 00198 M00S00127.gtr +++| FET TITLE CONTROL CELLS. 00199 M00S00128.gtr +++|** FET - FILE ENVIORNMENT TABLES. 00200 M00S00129.gtr +++| 00201 M00S00130.gtr +++| 00202 M00S00131.gtr +++| ORG 110B 00203 M00S00132.gtr +++| FET BSS 0 00204 M00S00133.gtr +++| P BSS 0 PROGRAM LIBRARY
| Line S00134 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00205 M01S00134.274l797 ---| OLD RFILEB PBUF,PBUFL
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00135.gtr +++| 00211 M00S00136.gtr +++| 00212 M00S00137.gtr +++| B BSS 0 NEW FILE
| Line S00138 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00213 M01S00138.274l797 ---| LGO RFILEB BBUF,BBUFL
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00139.gtr +++| FLAGS SPACE 4,3 00224 M00S00140.gtr +++|** CONTROL FLAGS. 00225 M00S00141.gtr +++| 00226 M00S00142.gtr +++| 00227 M00S00143.gtr +++| CP CON 0 CARD POINTER 00228 M00S00144.gtr +++| ID CON 77000016000000000000B 00229 M00S00145.gtr +++| CON 0LNAME 00230 M00S00146.gtr +++| BSSZ 15B 00231 M00S00147.gtr +++| CON 70000000000000000000B 00232 M00S00148.gtr +++| FL CON 0 FIELD LENGTH 00233 M00S00149.gtr +++| ND CON 0 NO DIRECTORY FLAG 00234 M00S00150.gtr +++| NR CON 0 NO REWIND FLAG 00235 M00S00151.gtr +++| SQ CON 0 SEQUENTIAL FILE FLAG 00236 M00S00152.gtr +++| NABT CON 0 NO ABORT FLAG
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 00237 M01S00029.gtr5 +++| TU CON 0 REMOVE RECORD NAMES FLAG 00238 M00S00153.gtr +++| RN CON 0 RECORD NAME
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00239 M01S00002.gtr3 +++| MFL CON 0 MAXIMUM MEMORY 00240 M00S00154.gtr +++| T1 CON 0 TEMPORARY 00241 M00S00155.gtr +++| T2 CON 0 TEMPORARY 00242 M00S00156.gtr +++| T3 CON 0 TEMPORARY 00243 M00S00157.gtr +++| ZR CON 1 ZERO RECORD INSERT FLAG 00244 M00S00158.gtr +++| CPRF CON 0 COPYRF FLAG 00245 M00S00159.gtr +++| ERRF CON 0 ERROR FLAG 00246 M00S00160.gtr +++| RCWF CON 0 RECORDS WRITTEN FLAG 00247 M00S00161.gtr +++| BUFFER SPACE 4,3 00248 M00S00162.gtr +++|** BUFFER SPACE. 00249 M00S00163.gtr +++| 00250 M00S00164.gtr +++| 00251 M00S00165.gtr +++| USE // 00252 M00S00166.gtr +++| WSA BSS WSAL WORKING STORAGE 00253 M00S00167.gtr +++| PBUF BSS PBUFL PROGRAM LIBRARY BUFFER 00254 M00S00168.gtr +++| BBUF BSS BBUFL CORRECTION FILE BUFFER 00255 M00S00169.gtr +++| BUF BSS 0 MANAGED TABLE SPACE 00256 M00S00170.gtr +++| USE * 00257 M00S00171.gtr +++| TABLE TITLE MANAGED TABLES. 00258 M00S00172.gtr +++|** MANAGED TABLES. 00259 M00S00173.gtr +++|* TABLES ARE VARIABLE LENGTH MANAGED TABLES. POINTERS TO 00260 M00S00174.gtr +++|* TABLE *ABC* ARE - 00261 M00S00175.gtr +++|* O.ABC = FWA OF TABLE *ABC*. 00262 M00S00176.gtr +++|* L.ABC = LENGTH OF TABLE *ABC*. 00263 M00S00177.gtr +++| TABLE SPACE 4,11 00264 M00S00178.gtr +++|** IPT - INSERT PROGRAM TABLE. 00265 M00S00179.gtr +++|* 00266 M00S00180.gtr +++|* 42/PROG1,18/TYPE1 00267 M00S00181.gtr +++|* 42/PROG2,18/TYPE2 00268 M00S00182.gtr +++|* 1. PROG1 = PROGRAM NAME FOR START OF INSERT. 00269 M00S00183.gtr +++|* 2. PROG2 = PROGRAM NAME FOR END OF INSERT. 00270 M00S00184.gtr +++|* 3. TYPE = PROGRAM TYPE. 00271 M00S00185.gtr +++| 00272 M00S00186.gtr +++| 00273 M00S00187.gtr +++| TAB BSS 0 00274 M00S00188.gtr +++| IPT TABLE 00275 M00S00189.gtr +++| TABLE SPACE 4,10 00276 M00S00190.gtr +++|** PNT - PROGRAM NAME TABLE. 00277 M00S00191.gtr +++|* 00278 M00S00192.gtr +++|* 42/PROGRAM,18/TYPE 00279 M00S00193.gtr +++|* 60/POSITION 00280 M00S00194.gtr +++|* 1. PROGRAM = PROGRAM NAME LEFT JUSTIFIED. 00281 M00S00195.gtr +++|* 2. POSITION = RNADOM INDEX. 00282 M00S00196.gtr +++|* 3. TYPE = PROGRAM TYPE. 00283 M00S00197.gtr +++| 00284 M00S00198.gtr +++| 00285 M00S00199.gtr +++| PNT TABLE 00286 M00S00200.gtr +++| TABLE SPACE 4,10 00287 M00S00201.gtr +++|** NPT - NEW PROGRAM TABLE. 00288 M00S00202.gtr +++|* 00289 M00S00203.gtr +++|* 42/PROGRAM,18/TYPE 00290 M00S00204.gtr +++|* 60/POSITION 00291 M00S00205.gtr +++|* 1. PROGRAM = PROGRAM NAME LEFT JUSTIFIED. 00292 M00S00206.gtr +++|* 2. POSITION = RNADOM INDEX. 00293 M00S00207.gtr +++|* 3. TYPE = PROGRAM TYPE. 00294 M00S00208.gtr +++| 00295 M00S00209.gtr +++| 00296 M00S00210.gtr +++| NPT TABLE 00297 M00S00211.gtr +++| END TABLE 00298 M00S00212.gtr +++| TABL EQU *-TAB 00299 M00S00213.gtr +++| 00300 M00S00214.gtr +++| BSS TABL TABLE LENGTHS 00301 M00S00215.gtr +++| GTR TITLE MAIN PROGRAM. 00302 M00S00216.gtr +++|*** GTR - GET SELECTED RECORDS. 00303 M00S00217.gtr +++| 00304 M00S00218.gtr +++| 00305 M00S00219.gtr +++| GTR SB1 1 (B1) = 1 00306 M00S00220.gtr +++| RJ PRS PRESET TABLE LENGTHS 00307 M00S00221.gtr +++| RJ ARG PROCESS CONTROL CARD 00308 M00S00222.gtr +++| RJ RCD READ CORRECTION DIRECTIVES 00309 M00S00223.gtr +++| OPEN P,READNR,R 00310 M00S00224.gtr +++| SA1 NR 00311 M00S00225.gtr +++| NZ X1,GTR1 IF NO REWIND 00312 M00S00226.gtr +++| REWIND B 00313 M00S00227.gtr +++| GTR1 SA1 P+1 00314 M00S00228.gtr +++| SA2 SQ 00315 M00S00229.gtr +++| NZ X2,GTR3 IF SEQUENTIAL PROCESSING REQUESTED 00316 M00S00230.gtr +++| 00317 M00S00231.gtr +++| NG X1,GTR3 IF FILE NON-RANDOM 00318 M00S00232.gtr +++| RJ RDD READ DIRECTORY 00319 M00S00233.gtr +++| ZR X1,GTR3 IF NO DIRECTORY 00320 M00S00234.gtr +++| RJ CPP COPY PROGRAMS 00321 M00S00235.gtr +++| GTR2 RJ WND WRITE NEW DIRECTORY 00322 M00S00236.gtr +++| SA2 ERRF 00323 M00S00237.gtr +++| NZ X2,GTR8 IF ERRORS 00324 M00S00238.gtr +++| MESSAGE (=C* EDITING COMPLETE.*) 00325 M00S00239.gtr +++| GTR2.1 ENDRUN 00326 M00S00240.gtr +++| 00327 M00S00241.gtr +++|* PROCESS NON-RANDOM FILE. 00328 M00S00242.gtr +++|
| Line S00243 Modification History | |
|---|---|
M01 (Removed by) | gtr4 |
Seq # *Modification Id* Act ----------------------------+ 00329 M01S00243.gtr4 ---| GTR3 SA1 B SET NEW DIRECTORY RECORD NAME 00330 M01S00244.gtr4 ---| MX0 42 00331 M01S00245.gtr4 ---| BX6 X0*X1 00332 M01S00246.gtr4 ---| SA6 ID+1 00333 M01S00247.gtr4 ---| SA1 NR
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | gtr4 |
Seq # *Modification Id* Act ----------------------------+ 00334 M01S00001.gtr4 +++| GTR3 SA1 NR 00335 M00S00248.gtr +++| NZ X1,GTR4 IF NO REWIND 00336 M00S00249.gtr +++| REWIND P 00337 M00S00250.gtr +++| GTR4 RJ CFE CHECK FOR END OF INSERTS 00338 M00S00251.gtr +++| ZR X1,GTR2 IF END 00339 M00S00252.gtr +++| GTR5 RJ RFR READ FIRST RECORD 00340 M00S00253.gtr +++| NG X1,GTR7 IF EOF 00341 M00S00254.gtr +++| RJ CFI CHECK FOR INSERTS 00342 M00S00255.gtr +++| ZR X7,GTR6 IF INSERT FOUND 00343 M00S00256.gtr +++| RJ SKR SKIP RECORD 00344 M00S00257.gtr +++| EQ GTR5 LOOP 00345 M00S00258.gtr +++| 00346 M00S00259.gtr +++| GTR6 RJ WNR WRITE NEXT RECORD 00347 M00S00260.gtr +++| SA5 ZR 00348 M00S00261.gtr +++| NZ X5,GTR4 IF NO ZERO RECORD INSERT 00349 M00S00262.gtr +++| WRITER B WRITE ZERO RECORD 00350 M00S00263.gtr +++| SX7 B1 00351 M00S00264.gtr +++| SA7 A5 00352 M00S00265.gtr +++| EQ GTR4 LOOP 00353 M00S00266.gtr +++| 00354 M00S00267.gtr +++| GTR7 RJ DMP DISPLAY MISSING PROGRAMS 00355 M00S00268.gtr +++| EQ GTR2 00356 M00S00269.gtr +++| 00357 M00S00270.gtr +++|* ERROR EXIT. 00358 M00S00271.gtr +++|
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | gtr1 |
Seq # *Modification Id* Act ----------------------------+ 00359 M01S00001.gtr1 +++| ERR MESSAGE (=C* FORMAT ERROR.*) 00360 M01S00002.gtr1 +++| 00361 M00S00272.gtr +++| GTR8 SA2 CPRF 00362 M00S00273.gtr +++| NZ X2,GTR9 IF COPYRF 00363 M00S00274.gtr +++| MESSAGE (=C* GTR ERRORS.*) 00364 M00S00275.gtr +++| SA2 NABT 00365 M00S00276.gtr +++| NZ X2,GTR2.1 IF NO ABORT FLAG SET 00366 M00S00277.gtr +++| GTR9 ABORT 00367 M00S00278.gtr +++| COPYRF TITLE MAIN PROGRAM. 00368 M00S00279.gtr +++|** COPYRF - MAIN PROGRAM. 00369 M00S00280.gtr +++| 00370 M00S00281.gtr +++| 00371 M00S00282.gtr +++| COPYRF SB1 1 (B1) = 1 00372 M00S00283.gtr +++| SX6 B1 SET COPYRF FLAG 00373 M00S00284.gtr +++| SA6 CPRF 00374 M00S00285.gtr +++| RJ PRS PRESET TABLE LENGTHS 00375 M00S00286.gtr +++| RJ ARG PROCESS CONTROL CARD
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00376 M01S00017.274l797 +++| OPEN P,READNR,R 00377 M01S00018.274l797 +++| OPEN B,WRITENR,R 00378 M00S00287.gtr +++| SA1 =10H COPYING 00379 M00S00288.gtr +++| BX7 X1 00380 M00S00289.gtr +++| SX6 B1+B1 SELECT DIRECTORY OPTION 00381 M00S00290.gtr +++| SA7 WNRA 00382 M00S00291.gtr +++| SA6 ND 00383 M00S00292.gtr +++| SA6 NR SELECT NO REWIND
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00293.gtr +++| EVICT B,R 00389 M00S00294.gtr +++| CRF1 RJ RFR READ FIRST RECORD 00390 M00S00295.gtr +++| NG X1,CRF2 IF EOF 00391 M00S00296.gtr +++| RECALL B 00392 M00S00297.gtr +++| SA1 RN 00393 M00S00298.gtr +++| ADDWORD NPT 00394 M00S00299.gtr +++| IX6 X3+X4 SET RANDOM RETURN ADDRESS 00395 M00S00300.gtr +++| SX6 X6-1 00396 M00S00301.gtr +++| SA6 B+6 00397 M00S00302.gtr +++| SA1 T1 00398 M00S00303.gtr +++| RJ WNR WRITE NEXT RECORD 00399 M00S00304.gtr +++| EQ CRF1 LOOP 00400 M00S00305.gtr +++| 00401 M00S00306.gtr +++| CRF2 RJ WND WRITE NEW DIRECTORY 00402 M00S00307.gtr +++| MESSAGE (=C* CONVERSION COMPLETE.*),1 00403 M00S00308.gtr +++| ENDRUN 00404 M00S00309.gtr +++| ADW TITLE SUBROUTINES. 00405 M00S00310.gtr +++|** ADW - ADD WORD TO MANAGED TABLE. 00406 M00S00311.gtr +++|* ENTRY (A0) = TABLE INDEX. 00407 M00S00312.gtr +++|* (X1) = ENTRY WORD 1. 00408 M00S00313.gtr +++|* (X2) = ENTRY WORD 2. 00409 M00S00314.gtr +++| 00410 M00S00315.gtr +++| 00411 M00S00316.gtr +++| ADW PS RETURN EXIT 00412 M00S00317.gtr +++| ALLOC A0,2 00413 M00S00318.gtr +++| LX7 X2 STORE ENTRY 00414 M00S00319.gtr +++| IX6 X3+X4 00415 M00S00320.gtr +++| SA7 X6-1 00416 M00S00321.gtr +++| BX6 X1 00417 M00S00322.gtr +++| SA6 A7-B1 00418 M00S00323.gtr +++| EQ ADW RETURN 00419 M00S00324.gtr +++| ATS SPACE 4,7 00420 M00S00325.gtr +++|** ATS - ALLOCATE TABLE SPACE.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00421 M01S00003.gtr3 +++|* 00422 M01S00004.gtr3 +++|* ALLOCATE TABLE SPACE, REQUESTING MEMORY IF NECESSARY. 00423 M01S00005.gtr3 +++|* 00424 M00S00326.gtr +++|* ENTRY (A0) = TABLE INDEX. 00425 M00S00327.gtr +++|* (X3) = INCREMENT.
| Line S00328 Modification History | |
|---|---|
M01 (Removed by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00426 M01S00328.gtr3 ---|* EXIT (X3) = FWA OF TABLE.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00427 M01S00006.gtr3 +++|* 00428 M01S00007.gtr3 +++|* EXIT (X1) = ENTRY VALUE RESTORED. 00429 M01S00008.gtr3 +++|* (X3) = FWA OF TABLE. 00430 M00S00329.gtr +++|* (X4) = LENGTH OF TABLE.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00330.gtr +++| 00440 M00S00331.gtr +++|
| Line S00332 Modification History | |
|---|---|
M01 (Removed by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00441 M01S00332.gtr3 ---| ATS2 SA3 A0+TAB
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00442 M01S00017.gtr3 +++| ATS5 SA3 A0+TAB 00443 M00S00333.gtr +++| SA4 A0+TAB+TABL 00444 M00S00334.gtr +++| 00445 M00S00335.gtr +++| ATS PS RETURN EXIT 00446 M00S00336.gtr +++| SA4 A0+TAB+TABL INCREMENT TABLE LENGTH 00447 M00S00337.gtr +++| IX6 X4+X3 00448 M00S00338.gtr +++| SA6 A4
| Line S00339 Modification History | |
|---|---|
M01 (Removed by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00449 M01S00339.gtr3 ---| SB2 A0+B1 INCREMENT TABLE ORIGINS
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00450 M01S00018.gtr3 +++| SB2 A0+1 INCREMENT TABLE ORIGINS 00451 M00S00340.gtr +++| SB3 TABL 00452 M00S00341.gtr +++| ATS1 SA4 B2+TAB 00453 M00S00342.gtr +++| IX6 X4+X3 00454 M00S00343.gtr +++| SA6 A4
| Line S00344 Modification History | |
|---|---|
M01 (Removed by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00455 M01S00344.gtr3 ---| SB2 B2+B1
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00456 M01S00019.gtr3 +++| SB2 B2+1 00457 M00S00345.gtr +++| NE B2,B3,ATS1 LOOP TO END OF TABLES 00458 M00S00346.gtr +++| SA4 A6+TABL DECREMENT SPACE AVAILABLE 00459 M00S00347.gtr +++| IX7 X4-X3 00460 M00S00348.gtr +++| SA7 A4
| Line S00349 Modification History | |
|---|---|
M01 (Removed by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00461 M01S00349.gtr3 ---| PL X7,ATS2 IF NO OVERFLOW 00462 M01S00350.gtr3 ---| MESSAGE (=C* TABLE OVERFLOW.*)
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00351.gtr +++| EQ GTR8 ERROR EXIT
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00352.gtr +++| CDT SPACE 4,5 00505 M00S00353.gtr +++|** CDT - CHECK DEVICE TYPE. 00506 M00S00354.gtr +++|* 00507 M00S00355.gtr +++|* EXIT (ND) = 0, IF DIRECTORY REQUESTED ON NON MASS 00508 M00S00356.gtr +++|* STORAGE FILE. 00509 M00S00357.gtr +++|* 00510 M00S00358.gtr +++|* USES X - 1, 5, 6. 00511 M00S00359.gtr +++|* A - 1, 6. 00512 M00S00360.gtr +++| 00513 M00S00361.gtr +++| 00514 M00S00362.gtr +++| CDT PS ENTRY/EXIT 00515 M00S00363.gtr +++| SA1 B+1 SET USER ERROR PROCESSING 00516 M00S00364.gtr +++| SX5 B1 00517 M00S00365.gtr +++| LX5 44 00518 M00S00366.gtr +++| BX6 X1+X5 00519 M00S00367.gtr +++| SA6 A1 00520 M00S00368.gtr +++| SA1 B+5 SAVE FET+5, FET+6 00521 M00S00369.gtr +++| BX6 X1 00522 M00S00370.gtr +++| SA1 A1+B1 00523 M00S00371.gtr +++| SA6 CDTA 00524 M00S00372.gtr +++| BX6 X1 00525 M00S00373.gtr +++| SA6 A6+B1 00526 M00S00374.gtr +++| STATUS B,P DETERMINE DEVICE TYPE 00527 M00S00375.gtr +++| SA1 CDTA RESTORE FET+5, FET+6 00528 M00S00376.gtr +++| BX6 X1 00529 M00S00377.gtr +++| SA1 A1+B1 00530 M00S00378.gtr +++| SA6 B+5 00531 M00S00379.gtr +++| BX6 X1 00532 M00S00380.gtr +++| SA6 A6+B1 00533 M00S00381.gtr +++| SA1 B+1 CLEAR ERROR PROCESSING 00534 M00S00382.gtr +++| BX6 X1-X5 00535 M00S00383.gtr +++| SA6 A1 00536 M00S00384.gtr +++| PL X1,CDT IF MASS STORAGE 00537 M00S00385.gtr +++| SX5 =C* MASS STORAGE DIRECTORY NOT WRITTEN.*
| Line S00386 Modification History | |
|---|---|
M01 (Removed by) | gtr2 |
Seq # *Modification Id* Act ----------------------------+ 00538 M01S00386.gtr2 ---| MESSAGE X5,3
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | gtr2 |
Seq # *Modification Id* Act ----------------------------+ 00539 M01S00001.gtr2 +++| MESSAGE X5 00540 M00S00387.gtr +++| BX6 X6-X6 SET NO DIRECTORY 00541 M00S00388.gtr +++| SA6 ND 00542 M00S00389.gtr +++| EQ CDT 00543 M00S00390.gtr +++| 00544 M00S00391.gtr +++| 00545 M00S00392.gtr +++| CDTA BSS 2 SCRATCH 00546 M00S00393.gtr +++| CFE SPACE 4,4 00547 M00S00394.gtr +++|** CFE - CHECK FOR END OF INSERTS. 00548 M00S00395.gtr +++|* EXIT (X1) = 0 IF END OF INSERTS. 00549 M00S00396.gtr +++| 00550 M00S00397.gtr +++| 00551 M00S00398.gtr +++| CFE PS RETURN EXIT 00552 M00S00399.gtr +++| SA2 O.IPT 00553 M00S00400.gtr +++| SA1 L.IPT 00554 M00S00401.gtr +++| ZR X1,CFE IF NO INSERTS 00555 M00S00402.gtr +++| SB7 X1 00556 M00S00403.gtr +++| SA1 X2 00557 M00S00404.gtr +++| SB4 B1+B1 00558 M00S00405.gtr +++| CFE1 NZ X1,CFE IF MORE INSERTS 00559 M00S00406.gtr +++| SB7 B7-B4 00560 M00S00407.gtr +++| SA1 A1+B4 00561 M00S00408.gtr +++| NZ B7,CFE1 LOOP 00562 M00S00409.gtr +++| MX1 0 00563 M00S00410.gtr +++| EQ CFE RETURN 00564 M00S00411.gtr +++| CFI SPACE 4,7 00565 M00S00412.gtr +++|** CFI - CHECK FOR INSERT. 00566 M00S00413.gtr +++|* ENTRY (X1) = EOR INDICATOR. 00567 M00S00414.gtr +++|* EXIT (X7) = 0 IF RECORD TO BE COPIED. 00568 M00S00415.gtr +++|* (X1) = EOR INDICATOR. 00569 M00S00416.gtr +++| 00570 M00S00417.gtr +++| 00571 M00S00418.gtr +++| CFI PS RETURN EXIT 00572 M00S00419.gtr +++| BX7 X1 00573 M00S00420.gtr +++| SA7 T1 00574 M00S00421.gtr +++| RECALL B 00575 M00S00422.gtr +++| SEARCH IPT,(=1L,) 00576 M00S00423.gtr +++| ZR X7,CFI1 IF INSERTING 00577 M00S00424.gtr +++| SA1 RN 00578 M00S00425.gtr +++| SA2 =1L* 00579 M00S00426.gtr +++| SX1 X1 00580 M00S00427.gtr +++| BX2 X1+X2 00581 M00S00428.gtr +++| SEARCH IPT,A2 00582 M00S00429.gtr +++| ZR X7,CFI2 IF INSERTING FULL FILE 00583 M00S00430.gtr +++| SEARCH IPT,RN 00584 M00S00431.gtr +++| SA1 RN 00585 M00S00432.gtr +++| NZ X1,CFI0 IF NOT ZERO RECORD 00586 M00S00433.gtr +++| SX7 B1 00587 M00S00434.gtr +++| CFI0 NZ X7,CFI IF RECORD NOT INSERTED 00588 M00S00435.gtr +++| CFI1 SA1 O.IPT CHECK FOR END OF INSERT 00589 M00S00436.gtr +++| IX0 X1+X6 00590 M00S00437.gtr +++| SA2 X0+B1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | gtr6 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00438.gtr +++| SA1 RN 00598 M00S00439.gtr +++| SA3 =1L, SET INSERTING FLAG
| Line S00440 Modification History | |
|---|---|
M01 (Removed by) | gtr6 |
Seq # *Modification Id* Act ----------------------------+ 00599 M01S00440.gtr6 ---| BX6 X3
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | gtr6 |
Seq # *Modification Id* Act ----------------------------+ 00600 M01S00007.gtr6 +++| CFI1.1 BX6 X3 00601 M00S00441.gtr +++| SA6 X0 00602 M00S00442.gtr +++| BX6 X1-X2 00603 M00S00443.gtr +++| NZ X6,CFI2 IF NOT END OF INSERT 00604 M00S00444.gtr +++| SA6 X0 CLEAR IPT ENTRY 00605 M00S00445.gtr +++| SA6 X0+B1 00606 M00S00446.gtr +++| SA1 A6+B1 CHECK FOR ZERO RECORD INSERT 00607 M00S00447.gtr +++| AX1 42 00608 M00S00448.gtr +++| SX1 X1-1L0 00609 M00S00449.gtr +++| NZ X1,CFI2 IF NO ZERO RECORD 00610 M00S00450.gtr +++| SA6 ZR 00611 M00S00451.gtr +++| CFI2 SA1 RN 00612 M00S00452.gtr +++| BX2 X2-X2 00613 M00S00453.gtr +++| ADDWORD NPT 00614 M00S00454.gtr +++| IX6 X3+X4 SET RANDOM RETURN ADDRESS 00615 M00S00455.gtr +++| SX6 X6-1 00616 M00S00456.gtr +++| SA6 B+6 00617 M00S00457.gtr +++| MX7 0 00618 M00S00458.gtr +++| SA1 T1 00619 M00S00459.gtr +++| EQ CFI RETURN 00620 M00S00460.gtr +++| CIT SPACE 4,5 00621 M00S00461.gtr +++|** CIT - CHECK INSERT TABLE. 00622 M00S00462.gtr +++|* THE INSERT TABLE IS CHECKED AGAINST THE PNT TO DETERMINE 00623 M00S00463.gtr +++|* IF ALL INSERTS ARE LEGAL. 00624 M00S00464.gtr +++| 00625 M00S00465.gtr +++| 00626 M00S00466.gtr +++| CIT PS RETURN EXIT 00627 M00S00467.gtr +++| SX6 B0 SET IPT INDEX 00628 M00S00468.gtr +++| SA6 T1 00629 M00S00469.gtr +++| CIT1 SA1 O.IPT 00630 M00S00470.gtr +++| SA2 L.IPT 00631 M00S00471.gtr +++| SA3 T1 00632 M00S00472.gtr +++| BX6 X3-X2 00633 M00S00473.gtr +++| ZR X6,CIT4 IF END OF IPT 00634 M00S00474.gtr +++| IX1 X1+X3 00635 M00S00475.gtr +++| SA2 X1 00636 M00S00476.gtr +++| BX6 X2 00637 M00S00477.gtr +++| AX6 42 00638 M00S00478.gtr +++| SX7 X6-1L0 00639 M00S00479.gtr +++| ZR X7,CIT3 IF 0-LENGTH RECORD INSERT 00640 M00S00480.gtr +++| SX7 X6-1L* 00641 M00S00481.gtr +++| ZR X7,CIT3 IF FULL FILE ADD 00642 M00S00482.gtr +++| SEARCH PNT,A2 00643 M00S00483.gtr +++| NZ X7,CIT2 IF RECORD NOT FOUND 00644 M00S00484.gtr +++| SA6 T2 00645 M00S00485.gtr +++| SA1 O.IPT 00646 M00S00486.gtr +++| SA2 T1 00647 M00S00487.gtr +++| IX1 X1+X2 00648 M00S00488.gtr +++| SA2 X1+B1 00649 M00S00489.gtr +++| BX6 X2 00650 M00S00490.gtr +++| AX6 42 00651 M00S00491.gtr +++| SX7 X6-1L* 00652 M00S00492.gtr +++| ZR X7,CIT3 IF FULL FILE ADD 00653 M00S00493.gtr +++| SEARCH PNT,A2 00654 M00S00494.gtr +++| NZ X7,CIT2 IF RECORD NOT FOUND 00655 M00S00495.gtr +++| SA1 T2 00656 M00S00496.gtr +++| IX7 X6-X1 00657 M00S00497.gtr +++| PL X7,CIT3 IF LEGAL INSERT 00658 M00S00498.gtr +++| 00659 M00S00499.gtr +++|* BAD INSERT. 00660 M00S00500.gtr +++| 00661 M00S00501.gtr +++| CIT2 RJ DPN DISPLAY PROGRAM NAME 00662 M00S00502.gtr +++| SA1 CITA INCREMENT ERROR COUNT 00663 M00S00503.gtr +++| SX6 X1+B1 00664 M00S00504.gtr +++| SA6 A1 00665 M00S00505.gtr +++| 00666 M00S00506.gtr +++|* ADVANCE TO NEXT ENTRY. 00667 M00S00507.gtr +++| 00668 M00S00508.gtr +++| CIT3 SA1 T1 00669 M00S00509.gtr +++| SX6 X1+2 00670 M00S00510.gtr +++| SA6 A1 00671 M00S00511.gtr +++| EQ CIT1 LOOP 00672 M00S00512.gtr +++| 00673 M00S00513.gtr +++|* CHECK ERROR COUNT. 00674 M00S00514.gtr +++| 00675 M00S00515.gtr +++| CIT4 SA1 CITA 00676 M00S00516.gtr +++| ZR X1,CIT IF NO ERRORS 00677 M00S00517.gtr +++| SX6 B1 SET ERROR FLAG 00678 M00S00518.gtr +++| SA6 ERRF 00679 M00S00519.gtr +++| SA2 NABT 00680 M00S00520.gtr +++| NZ X2,CIT IF NO ABORT FLAG SET 00681 M00S00521.gtr +++| EQ GTR8 ERROR EXIT 00682 M00S00522.gtr +++| 00683 M00S00523.gtr +++| CITA CON 0 ERROR COUNT 00684 M00S00524.gtr +++| COMMON SPACE 4 00685 M00S00525.gtr +++|** COMMON DECKS. 00686 M00S00526.gtr +++| 00687 M00S00527.gtr +++| 00688 M00S00528.gtr +++|*CALL COMCLFM 00689 M00S00529.gtr +++|*CALL COMCSYS 00690 M00S00530.gtr +++|*CALL COMCCIO
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 00691 M01S00060.gtr3 +++|*CALL COMCCPM 00692 M00S00531.gtr +++|*CALL COMCRDW 00693 M00S00532.gtr +++|*CALL COMCWTW 00694 M00S00533.gtr +++|*CALL COMCSRT 00695 M00S00534.gtr +++| CPP SPACE 4,3 00696 M00S00535.gtr +++|** CPP - COPY PROGRAMS. 00697 M00S00536.gtr +++| 00698 M00S00537.gtr +++| 00699 M00S00538.gtr +++| CPP PS RETURN EXIT 00700 M00S00539.gtr +++| RJ CIT CHECK INSERT TABLE 00701 M00S00540.gtr +++| CPP1 SA1 O.IPT 00702 M00S00541.gtr +++| SA2 L.IPT 00703 M00S00542.gtr +++| ZR X2,CPP IF END OF INSERTS 00704 M00S00543.gtr +++| 00705 M00S00544.gtr +++|* CHECK FOR 0-LENGTH RECORD INSERT. 00706 M00S00545.gtr +++| 00707 M00S00546.gtr +++| SA2 X1 00708 M00S00547.gtr +++| AX2 42 00709 M00S00548.gtr +++| SX6 X2-1L0 00710 M00S00549.gtr +++| NZ X6,CPP2 IF NOT 0-LENGTH RECORD
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2037 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00550.gtr +++| WRITER B 00721 M00S00551.gtr +++| EQ CPP7 00722 M00S00552.gtr +++| 00723 M00S00553.gtr +++|* CHECK FOR ENTIRE FILE INSERT. 00724 M00S00554.gtr +++| 00725 M00S00555.gtr +++| CPP2 SX6 X2-1L* 00726 M00S00556.gtr +++| NZ X6,CPP5 IF NOT ENTIRE FILE INSERT 00727 M00S00557.gtr +++| SA6 T1 SET PNT INDEX 00728 M00S00558.gtr +++| CPP3 SA1 O.PNT 00729 M00S00559.gtr +++| SA2 L.PNT 00730 M00S00560.gtr +++| SA3 T1 00731 M00S00561.gtr +++| SB5 X1 00732 M00S00562.gtr +++| SB6 X2 00733 M00S00563.gtr +++| SB4 B1+B1 00734 M00S00564.gtr +++| MX0 42 00735 M00S00565.gtr +++| SB7 X3 00736 M00S00566.gtr +++| CPP4 EQ B6,B7,CPP7 IF END OF PNT 00737 M00S00567.gtr +++| SA2 B5+B7 CHECK PROGRAM TYPE 00738 M00S00568.gtr +++| SA4 O.IPT 00739 M00S00569.gtr +++| SA4 X4 00740 M00S00570.gtr +++| BX7 X4-X2 00741 M00S00571.gtr +++| BX7 -X0*X7 00742 M00S00572.gtr +++| SB7 B7+B4 00743 M00S00573.gtr +++| NZ X7,CPP4 IF NOT CORRECT PROGRAM TYPE 00744 M00S00574.gtr +++| SX6 B7 00745 M00S00575.gtr +++| SA6 T1 00746 M00S00576.gtr +++| SB2 B7-B4 COPY RECORD 00747 M00S00577.gtr +++| RJ CPY 00748 M00S00578.gtr +++| EQ CPP3 LOOP 00749 M00S00579.gtr +++| 00750 M00S00580.gtr +++|* SEARCH PNT FOR START OF INSERT. 00751 M00S00581.gtr +++| 00752 M00S00582.gtr +++| CPP5 SA2 X1 00753 M00S00583.gtr +++| SEARCH PNT,A2 00754 M00S00584.gtr +++| NZ X7,CPP7 IF RECORD NOT FOUND 00755 M00S00585.gtr +++| SA6 T1 00756 M00S00586.gtr +++| 00757 M00S00587.gtr +++|* FIRST PROGRAM FOUND, START COPY. 00758 M00S00588.gtr +++| 00759 M00S00589.gtr +++| CPP6 SA1 T1 00760 M00S00590.gtr +++| SB2 X1 00761 M00S00591.gtr +++| RJ CPY 00762 M00S00592.gtr +++| SA1 O.IPT 00763 M00S00593.gtr +++| SA2 X1 00764 M00S00594.gtr +++| SA4 X1+B1 00765 M00S00595.gtr +++| BX6 X2-X4 00766 M00S00596.gtr +++| ZR X6,CPP7 IF LAST PROGRAM FOUND 00767 M00S00597.gtr +++| BX6 X4 00768 M00S00598.gtr +++| AX6 42 00769 M00S00599.gtr +++| SX6 X6-1L* 00770 M00S00600.gtr +++| SA3 T1 INCREMENT PNT INDEX 00771 M00S00601.gtr +++| SX7 X3+2 00772 M00S00602.gtr +++| SA7 A3 00773 M00S00603.gtr +++| ZR X6,CPP3 IF ADD FULL FILE 00774 M00S00604.gtr +++| SA1 L.PNT 00775 M00S00605.gtr +++| BX2 X1-X7 00776 M00S00606.gtr +++| ZR X2,CPP7 IF END OF PNT 00777 M00S00607.gtr +++| SA1 O.PNT 00778 M00S00608.gtr +++| SB5 X1 00779 M00S00609.gtr +++| SA1 B5+X7 SET CURRENT PROGRAM NAME 00780 M00S00610.gtr +++| BX7 X1 00781 M00S00611.gtr +++| SA2 O.IPT 00782 M00S00612.gtr +++| SA7 X2 00783 M00S00613.gtr +++| EQ CPP6 LOOP 00784 M00S00614.gtr +++| 00785 M00S00615.gtr +++|* ADVANCE TO NEXT IPT ENTRY. 00786 M00S00616.gtr +++| 00787 M00S00617.gtr +++| CPP7 SA1 O.IPT 00788 M00S00618.gtr +++| SA2 L.IPT 00789 M00S00619.gtr +++| SX6 X1+2 00790 M00S00620.gtr +++| SX7 X2-2 00791 M00S00621.gtr +++| SA6 A1 00792 M00S00622.gtr +++| SA7 A2 00793 M00S00623.gtr +++| EQ CPP1 LOOP 00794 M00S00624.gtr +++| CPY SPACE 4,4 00795 M00S00625.gtr +++|** CPY - COPY RECORD TO FILE *LGO*. 00796 M00S00626.gtr +++|* ENTRY (B2) = PNT INDEX. 00797 M00S00627.gtr +++| 00798 M00S00628.gtr +++| 00799 M00S00629.gtr +++| CPY PS RETURN EXIT 00800 M00S00630.gtr +++| SX6 B1 SET RECORDS WRITTEN FLAG 00801 M00S00631.gtr +++| SA6 RCWF 00802 M00S00632.gtr +++| SA1 O.PNT 00803 M00S00633.gtr +++| SA1 X1+B2 00804 M00S00634.gtr +++| SA2 A1+B1 SET RANDOM ADDRESS 00805 M00S00635.gtr +++| BX6 X2 00806 M00S00636.gtr +++| SA6 P+6 00807 M00S00637.gtr +++| BX6 X1 00808 M00S00638.gtr +++| SA6 RN SAVE RECORD NAME 00809 M00S00639.gtr +++| BX2 X2-X2 00810 M00S00640.gtr +++| ADDWORD NPT 00811 M00S00641.gtr +++| READ P 00812 M00S00642.gtr +++| RECALL B 00813 M00S00643.gtr +++| SA3 O.NPT SET RANDOM RETURN ADDRESS 00814 M00S00644.gtr +++| SA4 L.NPT 00815 M00S00645.gtr +++| IX6 X3+X4 00816 M00S00646.gtr +++| SA1 X6-2 00817 M00S00647.gtr +++| SX6 X6-1 00818 M00S00648.gtr +++| SA6 B+6 00819 M00S00649.gtr +++| SA2 WNRA 00820 M00S00650.gtr +++| RJ MSG 00821 M00S00651.gtr +++| SA1 RN CHECK TYPE
| Line S00652 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00822 M01S00652.251l664 ---| SB7 X1-5
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00823 M01S00006.251l664 +++| SB7 X1-ULRT 00824 M00S00653.gtr +++| ZR B7,CPY4 IF *ULIB*
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00654.gtr +++| CPY1 READW P,WSA,WSAL COPY RECORD 00837 M00S00655.gtr +++| NZ X1,CPY2 IF EOR 00838 M00S00656.gtr +++| WRITEW B,WSA,WSAL 00839 M00S00657.gtr +++| EQ CPY1 00840 M00S00658.gtr +++| 00841 M00S00659.gtr +++| CPY2 NG X1,CPY3 IF EOF 00842 M00S00660.gtr +++| WRITEW B,WSA,X1-WSA
| Line S00661 Modification History | |
|---|---|
M01 (Removed by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 00843 M01S00661.gtr5 ---| WRITER B
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 00844 M01S00041.gtr5 +++| CPY2.1 WRITER B 00845 M00S00662.gtr +++| EQ CPY RETURN 00846 M00S00663.gtr +++| 00847 M00S00664.gtr +++| CPY3 MESSAGE (=C* UNUSUAL END-OF-FILE ENCOUNTERED.*) 00848 M00S00665.gtr +++| EQ GTR8 ERROR EXIT 00849 M00S00666.gtr +++| 00850 M00S00667.gtr +++| CPY4 SA1 ND 00851 M00S00668.gtr +++| ZR X1,CPY7 IF DIRECTORY NOT REQUESTED 00852 M00S00669.gtr +++| CPY5 READW P,WSA,WSAL COPY DIRECTORY RECORD 00853 M00S00670.gtr +++| NZ X1,CPY6 IF EOR 00854 M00S00671.gtr +++| WRITEW B,WSA,WSAL 00855 M00S00672.gtr +++| EQ CPY5 LOOP ON COPY 00856 M00S00673.gtr +++| 00857 M00S00674.gtr +++| CPY6 NG X1,CPY3 IF EOF/EOI 00858 M00S00675.gtr +++| WRITEW B,WSA,X1-WSA 00859 M00S00676.gtr +++| WRITER B 00860 M00S00677.gtr +++| CPY7 RJ SKR SKIP RECORD 00861 M00S00678.gtr +++| SA1 RN 00862 M00S00679.gtr +++| SA2 WNRA 00863 M00S00680.gtr +++| RJ MSG 00864 M00S00681.gtr +++| RJ CUL COPY USER LIBRARY 00865 M00S00682.gtr +++| EQ CPY RETURN 00866 M00S00683.gtr +++| CUL SPACE 4 00867 M00S00684.gtr +++|** CUL - COPY USER LIBRARY. 00868 M00S00685.gtr +++|* ENTRY (RN) = CURRENT RECORD NAME. 00869 M00S00686.gtr +++| 00870 M00S00687.gtr +++| 00871 M00S00688.gtr +++| CUL PS RETURN EXIT 00872 M00S00689.gtr +++| CUL1 READ P 00873 M00S00690.gtr +++| RECALL B 00874 M00S00691.gtr +++| READW P,WSA,WSAL 00875 M00S00692.gtr +++| NG X1,CPY3 IF EOF 00876 M00S00693.gtr +++| BX6 X1 00877 M00S00694.gtr +++| SX1 B6 LWA+1 OF DATA READ 00878 M00S00695.gtr +++| SA6 T2 SAVE EOR INDICATOR 00879 M00S00696.gtr +++| SX2 WSA 00880 M00S00697.gtr +++| RJ SRT SET RECORD TYPE 00881 M00S00698.gtr +++| SA6 RN 00882 M00S00699.gtr +++| SA1 T2 00883 M00S00700.gtr +++| NZ X1,CUL3 IF EOR 00884 M00S00701.gtr +++| CUL2 WRITEW B,WSA,WSAL COPY RECORD 00885 M00S00702.gtr +++| READW P,WSA,WSAL 00886 M00S00703.gtr +++| ZR X1,CUL2 IF NOT EOR 00887 M00S00704.gtr +++| NG X1,CPY2 IF EOF/EOI 00888 M00S00705.gtr +++| CUL3 WRITEW B,WSA,X1-WSA 00889 M00S00706.gtr +++| WRITER B 00890 M00S00707.gtr +++| SA1 RN CHECK TYPE
| Line S00708 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00891 M01S00708.251l664 ---| SB7 X1-8
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00892 M01S00007.251l664 +++| SB7 X1-ODRT 00893 M00S00709.gtr +++| NZ B7,CUL1 LOOP TO END OF ULIB 00894 M00S00710.gtr +++| EQ CUL RETURN 00895 M00S00711.gtr +++| DMP SPACE 4,3 00896 M00S00712.gtr +++|** DMP - DISPLAY MISSING PROGRAMS. 00897 M00S00713.gtr +++| 00898 M00S00714.gtr +++| 00899 M00S00715.gtr +++| DMP PS RETURN EXIT 00900 M00S00716.gtr +++| SX6 B0 00901 M00S00717.gtr +++| SA6 T1 00902 M00S00718.gtr +++| DMP1 SA1 O.IPT 00903 M00S00719.gtr +++| SA2 L.IPT 00904 M00S00720.gtr +++| ZR X2,DMP4 IF END OF IPT 00905 M00S00721.gtr +++| SA2 X1 READ ENTRY 00906 M00S00722.gtr +++| BX6 X2 00907 M00S00723.gtr +++| AX6 42 00908 M00S00724.gtr +++| ZR X2,DMP3 IF NO ENTRY 00909 M00S00725.gtr +++| SX7 X6-1L0 00910 M00S00726.gtr +++| ZR X7,DMP3 IF ADD 0-LENGTH RECORD 00911 M00S00727.gtr +++| SX7 X6-1L* 00912 M00S00728.gtr +++| ZR X7,DMP3 IF FULL FILE ADD 00913 M00S00729.gtr +++| SX7 X6-1L, 00914 M00S00730.gtr +++| NZ X7,DMP2 IF INSERT NOT STARTED 00915 M00S00731.gtr +++| SA2 A2+B1 00916 M00S00732.gtr +++| DMP2 SA1 T1 INCREMENT ERROR COUNT 00917 M00S00733.gtr +++| SX6 X1+B1 00918 M00S00734.gtr +++| SA6 A1 00919 M00S00735.gtr +++| RJ DPN DISPLAY PROGRAM NAME 00920 M00S00736.gtr +++| DMP3 SA1 O.IPT ADVANCE TO NEXT INSERT 00921 M00S00737.gtr +++| SA2 L.IPT 00922 M00S00738.gtr +++| SX6 X1+2 00923 M00S00739.gtr +++| SX7 X2-2 00924 M00S00740.gtr +++| SA6 A1 00925 M00S00741.gtr +++| SA7 A2 00926 M00S00742.gtr +++| EQ DMP1 LOOP 00927 M00S00743.gtr +++| 00928 M00S00744.gtr +++| DMP4 SA1 T1 00929 M00S00745.gtr +++| ZR X1,DMP IF NO ERRORS 00930 M00S00746.gtr +++| SX6 B1 SET ERROR FLAG 00931 M00S00747.gtr +++| SA6 ERRF 00932 M00S00748.gtr +++| EQ DMP RETURN 00933 M00S00749.gtr +++| DPN SPACE 4,4 00934 M00S00750.gtr +++|** DPN - DISPLAY PROGRAM NAME.
| Line S00751 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00935 M01S00751.251l664 ---|* ENTRY (X2) = PROGRAM NAME LEFT JUSTIFIED.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00936 M01S00008.251l664 +++|* ENTRY (X2) = 42/PROGRAM NAME LEFT JUSTIFIED, 18/RECORD TYPE. 00937 M00S00752.gtr +++| 00938 M00S00753.gtr +++| 00939 M00S00754.gtr +++| DPN PS RETURN EXIT 00940 M00S00755.gtr +++| MX0 30 00941 M00S00756.gtr +++| SA1 DPNB+X2 00942 M00S00757.gtr +++| LX6 X1 00943 M00S00758.gtr +++| LX2 30 00944 M00S00759.gtr +++| BX1 -X0*X2 00945 M00S00760.gtr +++| MX7 12 00946 M00S00761.gtr +++| BX7 X7*X2 00947 M00S00762.gtr +++| IX6 X6+X1 00948 M00S00763.gtr +++| SA6 DPNA+1 00949 M00S00764.gtr +++| SA7 A6+B1 00950 M00S00765.gtr +++| MESSAGE A6-B1,,R 00951 M00S00766.gtr +++| EQ DPN RETURN 00952 M00S00767.gtr +++| 00953 M00S00768.gtr +++| DPNA DATA 22C MISSING
| Line S00769 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00954 M01S00769.251l664 ---| DPNB CON 5LTEXT/ 00955 M01S00770.251l664 ---| CON 5L PP/ 00956 M01S00771.251l664 ---| CON 0 UNDEFINED RECORD TYPE 00957 M01S00772.251l664 ---| CON 5L REL/ 00958 M01S00773.251l664 ---| CON 5L OVL/ 00959 M01S00774.251l664 ---| CON 5LULIB/ 00960 M01S00775.251l664 ---| CON 5L OPL/ 00961 M01S00776.251l664 ---| CON 5LOPLC/ 00962 M01S00777.251l664 ---| CON 5LOPLD/ 00963 M01S00778.251l664 ---| CON 5L ABS/ 00964 M01S00779.251l664 ---| CON 5L PPU/ 00965 M01S00780.251l664 ---| CON 0 UNDEFINED RECORD TYPE 00966 M01S00781.251l664 ---| CON 0 UNDEFINED RECORD TYPE 00967 M01S00782.251l664 ---| CON 0 UNDEFINED RECORD TYPE 00968 M01S00783.251l664 ---| CON 5L CAP/ 00969 M01S00784.251l664 ---| CON 0 UNDEFINED RECORD TYPE 00970 M01S00785.251l664 ---| CON 5LPROC/
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00786.gtr +++| MSG SPACE 4,5
00980 M00S00787.gtr +++|** MSG - SEND CONSOLE MESSAGE.
00981 M00S00788.gtr +++|* ENTRY (X1) = PROGRAM NAME LEFT JUSTIFIED.
00982 M00S00789.gtr +++|* (X2) = CONSOLE MESSAGE.
00983 M00S00790.gtr +++|
00984 M00S00791.gtr +++|
00985 M00S00792.gtr +++| MSG PS RETURN EXIT
00986 M00S00793.gtr +++| MX0 42
00987 M00S00794.gtr +++| LX6 X2
00988 M00S00795.gtr +++| BX7 X0*X1
00989 M00S00796.gtr +++| SA6 MSGA
00990 M00S00797.gtr +++| SA7 A6+B1
00991 M00S00798.gtr +++| MESSAGE A6,1
00992 M00S00799.gtr +++| EQ MSG RETURN
00993 M00S00800.gtr +++|
00994 M00S00801.gtr +++| MSGA DATA 17C GETTING
00995 M00S00802.gtr +++| RDD SPACE 4,4
00996 M00S00803.gtr +++|** RDD - READ DIRECTORY.
00997 M00S00804.gtr +++|* EXIT (X1) = 0 IF DIRECTORY NOT FOUND.
00998 M00S00805.gtr +++|
00999 M00S00806.gtr +++|
01000 M00S00807.gtr +++| RDD PS RETURN EXIT
01001 M00S00808.gtr +++| SKIPEI P
01002 M00S00809.gtr +++| SKIPB P,2
01003 M00S00810.gtr +++| READ P
01004 M00S00811.gtr +++| READW P,T1,1
01005 M00S00812.gtr +++| NZ X1,RDD1 IF EOR OR EOF
01006 M00S00813.gtr +++| SA1 T1
01007 M00S00814.gtr +++| LX1 18
01008 M00S00815.gtr +++| SX6 X1-770000B
01009 M00S00816.gtr +++| NZ X6,RDD1 IF NO 7700 TABLE
01010 M00S00817.gtr +++| LX1 6
01011 M00S00818.gtr +++| READW P,WSA,X1
01012 M00S00819.gtr +++| SA1 WSA
01013 M00S00820.gtr +++| BX6 X1
01014 M00S00821.gtr +++| SA6 ID+1
01015 M00S00822.gtr +++| READW P,T1,1
01016 M00S00823.gtr +++| SA2 T1
01017 M00S00824.gtr +++| LX2 18
01018 M00S00825.gtr +++| BX3 X2
01019 M00S00826.gtr +++| SX6 X2-700000B
01020 M00S00827.gtr +++| LX3 18
01021 M00S00828.gtr +++| SX3 X3
01022 M00S00829.gtr +++| NZ X3,RDD1 IF NOT OPLD
01023 M00S00830.gtr +++| NZ X6,RDD1 IF NOT OPLD
01024 M00S00831.gtr +++| LX2 -18
01025 M00S00832.gtr +++| ALLOC PNT,X2
01026 M00S00833.gtr +++| READW P,X3,X4
01027 M00S00834.gtr +++| NZ X1,RDD1 IF EOR
01028 M00S00835.gtr +++| READW P,WSA,3
01029 M00S00836.gtr +++| NZ X1,RDD RETURN IF EOR
01030 M00S00837.gtr +++| RDD1 REWIND P
01031 M00S00838.gtr +++| MX1 0
01032 M00S00839.gtr +++| EQ RDD RETURN
01033 M00S00840.gtr +++| RFR SPACE 4,5
01034 M00S00841.gtr +++|** RFR - READ FIRST RECORD.
01035 M00S00842.gtr +++|* EXIT (X1) = EOR INDICATOR.
01036 M00S00843.gtr +++|* (RN) = RECORD NAME AND TYPE.
01037 M00S00844.gtr +++|
01038 M00S00845.gtr +++|
01039 M00S00846.gtr +++| RFR PS RETURN EXIT
01040 M00S00847.gtr +++| RFR1 READ P
01041 M00S00848.gtr +++| READW P,WSA,WSAL
01042 M00S00849.gtr +++| NG X1,RFR EXIT IF EOF
01043 M00S00850.gtr +++| BX6 X1
01044 M00S00851.gtr +++| SX1 B6 LWA+1 OF DATA READ
01045 M00S00852.gtr +++| SA6 T1
01046 M00S00853.gtr +++| SX2 WSA
01047 M00S00854.gtr +++| RJ SRT SET RECORD TYPE
01048 M00S00855.gtr +++| SA6 RN
01049 M00S00856.gtr +++| SA1 T1
| Line S00857 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01050 M01S00857.251l664 ---| SX7 X6-8
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01051 M01S00017.251l664 +++| SX7 X6-ODRT 01052 M00S00858.gtr +++| NZ X7,RFR IF NOT OPLD 01053 M00S00859.gtr +++| NZ X1,RFR1 IF EOR 01054 M00S00860.gtr +++| RFR2 READW P,WSA,WSAL 01055 M00S00861.gtr +++| ZR X1,RFR2 LOOP TO EOR 01056 M00S00862.gtr +++| PL X1,RFR1 IF EOR 01057 M00S00863.gtr +++| EQ RFR 01058 M00S00864.gtr +++| SKR SPACE 4,3 01059 M00S00865.gtr +++|** SKR - SKIP RECORD. 01060 M00S00866.gtr +++| 01061 M00S00867.gtr +++| 01062 M00S00868.gtr +++| SKR PS RETURN EXIT 01063 M00S00869.gtr +++| SA1 RN 01064 M00S00870.gtr +++| SA2 =10H SKIPPING 01065 M00S00871.gtr +++| RJ MSG 01066 M00S00872.gtr +++| SKR1 READW P,WSA,WSAL 01067 M00S00873.gtr +++| ZR X1,SKR1 IF NOT EOR 01068 M00S00874.gtr +++| EQ SKR RETURN 01069 M00S00875.gtr +++| SMT SPACE 4,10 01070 M00S00876.gtr +++|** SMT - SEARCH MANAGED TABLE. 01071 M00S00877.gtr +++|* ENTRY (A1) = ADDRESS OF TABLE ORIGIN. 01072 M00S00878.gtr +++|* (X1) = TABLE ORIGIN. 01073 M00S00879.gtr +++|* (X2) = ENTRY. 01074 M00S00880.gtr +++|* (X3) = MASK. 01075 M00S00881.gtr +++|* EXIT (X2) = ENTRY. 01076 M00S00882.gtr +++|* (X6) = TABLE INDEX. 01077 M00S00883.gtr +++|* (X7) = 0 IF FOUND. 01078 M00S00884.gtr +++| 01079 M00S00885.gtr +++| 01080 M00S00886.gtr +++| SMT PS RETURN EXIT 01081 M00S00887.gtr +++| SB2 X1 01082 M00S00888.gtr +++| SA4 A1+TABL 01083 M00S00889.gtr +++| SB7 X4+B2 01084 M00S00890.gtr +++| MX7 1 01085 M00S00891.gtr +++| SB3 B2 01086 M00S00892.gtr +++| SB4 B1+B1 01087 M00S00893.gtr +++| SMT1 EQ B3,B7,SMT IF END OF TABLE 01088 M00S00894.gtr +++| SA1 B3 01089 M00S00895.gtr +++| BX7 X1-X2 01090 M00S00896.gtr +++| BX7 X3*X7 01091 M00S00897.gtr +++| SB3 B3+B4 01092 M00S00898.gtr +++| NZ X7,SMT1 IF NOT FOUND 01093 M00S00899.gtr +++| SX6 A1-B2 01094 M00S00900.gtr +++| EQ SMT RETURN 01095 M00S00901.gtr +++| WND SPACE 4,3 01096 M00S00902.gtr +++|** WND - WRITE NEW DIRECTORY. 01097 M00S00903.gtr +++| 01098 M00S00904.gtr +++| 01099 M00S00905.gtr +++| WND PS RETURN EXIT 01100 M00S00906.gtr +++| RECALL B
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | gtr2 |
Seq # *Modification Id* Act ----------------------------+ 01101 M01S00002.gtr2 +++| RJ CDT CHECK DEVICE TYPE 01102 M00S00907.gtr +++| SA1 ND 01103 M00S00908.gtr +++| ZR X1,WND1 IF NO DIRECTORY 01104 M00S00909.gtr +++| SX1 X1-1 01105 M00S00910.gtr +++| ZR X1,WND1 IF *U* OPTION SELECTED 01106 M00S00911.gtr +++| SA1 RCWF CHECK RECORDS WRITTEN FLAG 01107 M00S00912.gtr +++| ZR X1,WND1 IF NO RECORDS WRITTEN
| Line S00913 Modification History | |
|---|---|
M01 (Removed by) | gtr2 |
Seq # *Modification Id* Act ----------------------------+ 01108 M01S00913.gtr2 ---| RJ CDT CHECK DEVICE TYPE 01109 M01S00914.gtr2 ---| SA1 ID+1 ADD *NPT* ENTRY FOR NEW OPLD
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | gtr2 |
Seq # *Modification Id* Act ----------------------------+ 01110 M01S00003.gtr2 +++| SA1 ID+1 ADD *NPT* ENTRY FOR NEW OPLD 01111 M00S00915.gtr +++| SX3 8 01112 M00S00916.gtr +++| SA2 B+6 01113 M00S00917.gtr +++| IX1 X1+X3 01114 M00S00918.gtr +++| AX2 30 01115 M00S00919.gtr +++| ADDWORD NPT 01116 M00S00920.gtr +++| SA1 L.NPT 01117 M00S00921.gtr +++| MX6 3 01118 M00S00922.gtr +++| BX6 X6+X1 01119 M00S00923.gtr +++| SA6 ID+17B 01120 M00S00924.gtr +++| WRITEW B,ID,20B 01121 M00S00925.gtr +++| SA1 O.NPT 01122 M00S00926.gtr +++| SA2 L.NPT 01123 M00S00927.gtr +++| WRITEW B,X1,X2 01124 M00S00928.gtr +++| WRITER B 01125 M00S00929.gtr +++| WRITEF B
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00930.gtr +++| BKSP B,R 01131 M00S00931.gtr +++| WND1 SA1 NR 01132 M00S00932.gtr +++| NZ X1,WND IF NO REWIND
| Line S00933 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01133 M01S00933.274l797 ---| REWIND B
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01134 M01S00027.274l797 +++| WND2 REWIND B 01135 M00S00934.gtr +++| REWIND P 01136 M00S00935.gtr +++| EQ WND RETURN 01137 M00S00936.gtr +++| WNR SPACE 4,4 01138 M00S00937.gtr +++|** WNR - WRITE NEXT RECORD. 01139 M00S00938.gtr +++|* ENTRY (X1) = EOR INDICATOR. 01140 M00S00939.gtr +++| 01141 M00S00940.gtr +++| 01142 M00S00941.gtr +++| WNR PS RETURN EXIT 01143 M00S00942.gtr +++| SX6 B1 SET RECORDS WRITTEN FLAG 01144 M00S00943.gtr +++| SA6 RCWF 01145 M00S00944.gtr +++| BX6 X1 01146 M00S00945.gtr +++| SA6 T1 01147 M00S00946.gtr +++| SA1 RN 01148 M00S00947.gtr +++| SA2 WNRA 01149 M00S00948.gtr +++| RJ MSG 01150 M00S00949.gtr +++| SA2 RN CHECK TYPE 01151 M00S00950.gtr +++| SA1 T1
| Line S00951 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01152 M01S00951.251l664 ---| SB7 X2-5
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01153 M01S00018.251l664 +++| SB7 X2-ULRT 01154 M00S00952.gtr +++| ZR B7,WNR3 IF *ULIB*
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | gtr5a |
Seq # *Modification Id* Act ----------------------------+ 01163 M02S00050.gtr5a ---| SB7 X1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | gtr5a |
Seq # *Modification Id* Act ----------------------------+ 01164 M01S00001.gtr5a +++| SB7 X1-WSA
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | gtr5b |
Seq # *Modification Id* Act ----------------------------+ 01165 M01S00001.gtr5b +++| ZR B7,WNR2.1 IF EMPTY RECORD
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01175 M01S00953.gtr5 ---| NZ X1,WNR2 IF EOR
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01176 M01S00060.gtr5 +++| WNR0.2 NZ X1,WNR2 IF AT EOR 01177 M00S00954.gtr +++| WNR1 WRITEW B,WSA,WSAL 01178 M00S00955.gtr +++| READW P,WSA,WSAL 01179 M00S00956.gtr +++| ZR X1,WNR1 IF NOT EOR 01180 M00S00957.gtr +++| NG X1,WNR IF EOF/EOI 01181 M00S00958.gtr +++| WNR2 WRITEW B,WSA,X1-WSA
| Line S00959 Modification History | |
|---|---|
M01 (Removed by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01182 M01S00959.gtr5 ---| WRITER B
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01183 M01S00061.gtr5 +++| WNR2.1 WRITER B 01184 M00S00960.gtr +++| EQ WNR RETURN 01185 M00S00961.gtr +++| 01186 M00S00962.gtr +++| WNR3 SA2 ND 01187 M00S00963.gtr +++| ZR X2,WNR6 IF DIRECTORY NOT REQUESTED 01188 M00S00964.gtr +++| NZ X1,WNR5 IF EOR 01189 M00S00965.gtr +++| WNR4 WRITEW B,WSA,WSAL 01190 M00S00966.gtr +++| READW P,WSA,WSAL 01191 M00S00967.gtr +++| ZR X1,WNR4 IF NOT EOR 01192 M00S00968.gtr +++| NG X1,WNR IF EOF/EOI - RETURN 01193 M00S00969.gtr +++| WNR5 WRITEW B,WSA,X1-WSA 01194 M00S00970.gtr +++| WRITER B 01195 M00S00971.gtr +++| WNR6 RJ SKR SKIP RECORD 01196 M00S00972.gtr +++| SA1 RN 01197 M00S00973.gtr +++| SA2 WNRA 01198 M00S00974.gtr +++| RJ MSG 01199 M00S00975.gtr +++| RJ CUL COPY USER LIBRARY 01200 M00S00976.gtr +++| EQ WNR RETURN 01201 M00S00977.gtr +++| 01202 M00S00978.gtr +++| WNRA DATA 10H GETTING 01203 M00S00979.gtr +++| ENDS BSS 0 END OF SUBROUTINES 01204 M00S00980.gtr +++| APN TITLE CONTROL CARD PROCESSING - OVERLAID CODE. 01205 M00S00981.gtr +++|** APN - ASSEMBLE PROGRAM NAME. 01206 M00S00982.gtr +++|* ASSEMBLE ENTRY OF TYPE *LIB/PN,* 01207 M00S00983.gtr +++|* EXIT (X2) = SEPARATOR CHARACTER 01208 M00S00984.gtr +++|* (X6) = PROGRAM NAME AND TYPE. 01209 M00S00985.gtr +++| 01210 M00S00986.gtr +++| 01211 M00S00987.gtr +++| ORG WSA 01212 M00S00988.gtr +++| SEG 01213 M00S00989.gtr +++| APN PS RETURN EXIT 01214 M00S00990.gtr +++| SA1 CP 01215 M00S00991.gtr +++| SB4 X1+B1 (B4) = STRING BUFFER POINTER 01216 M00S00992.gtr +++| SX6 B0 01217 M00S00993.gtr +++| SB7 60 01218 M00S00994.gtr +++| 01219 M00S00995.gtr +++|* ASSEMBLE FIRST ENTRY. 01220 M00S00996.gtr +++| 01221 M00S00997.gtr +++| APN1 SA2 B4 01222 M00S00998.gtr +++| SB5 X2-1R/ 01223 M00S00999.gtr +++| ZR B5,APN2 IF CHARACTER = */* 01224 M00S01000.gtr +++| SA1 =20000000000004030000B 01225 M00S01001.gtr +++| SB5 X2+B1 01226 M00S01002.gtr +++| LX1 X1,B5 01227 M00S01003.gtr +++| NG X1,APN4 IF CHARACTER = EOL *-* * * *,* 01228 M00S01004.gtr +++| LX6 6 01229 M00S01005.gtr +++| SB7 B7-6 01230 M00S01006.gtr +++| IX6 X6+X2 01231 M00S01007.gtr +++| SB4 B4+B1 01232 M00S01008.gtr +++| EQ APN1 LOOP 01233 M00S01009.gtr +++| 01234 M00S01010.gtr +++|* CHARACTER = */* SET LIBRARY NAME. ASSEMBLE PROGRAM NAME. 01235 M00S01011.gtr +++| 01236 M00S01012.gtr +++| APN2 LX6 X6,B7 01237 M00S01013.gtr +++| SA6 APNA 01238 M00S01014.gtr +++| SX6 B0 01239 M00S01015.gtr +++| SB7 60 01240 M00S01016.gtr +++| SB4 B4+B1 01241 M00S01017.gtr +++| APN3 SA2 B4 01242 M00S01018.gtr +++| SB5 X2-1R/ 01243 M00S01019.gtr +++| ZR B5,ERR IF CHARACTER = */* 01244 M00S01020.gtr +++| SA1 =20000000000004030000B 01245 M00S01021.gtr +++| SB5 X2+B1 01246 M00S01022.gtr +++| LX1 X1,B5 01247 M00S01023.gtr +++| NG X1,APN4 IF CHARACTER = EOL *-* * * *,* 01248 M00S01024.gtr +++| LX6 6 01249 M00S01025.gtr +++| IX6 X6+X2 01250 M00S01026.gtr +++| SB7 B7-6 01251 M00S01027.gtr +++| SB4 B4+B1 01252 M00S01028.gtr +++| EQ APN3 LOOP 01253 M00S01029.gtr +++| 01254 M00S01030.gtr +++|* CHARACTER = EOL *-* * * *,*. STORE PROGRAM NAME. 01255 M00S01031.gtr +++| 01256 M00S01032.gtr +++| APN4 SA1 APNA CHECK LIBRARY TYPE 01257 M00S01033.gtr +++| SA2 APNB 01258 M00S01034.gtr +++| APN5 ZR X2,ERR IF ILLEGAL LIBRARY 01259 M00S01035.gtr +++| BX7 X1-X2 01260 M00S01036.gtr +++| SA2 A2+B1 01261 M00S01037.gtr +++| NZ X7,APN5 IF NOT FOUND 01262 M00S01038.gtr +++| SX7 A2-APNB-1 01263 M00S01039.gtr +++| MX0 -18 SET PROGRAM AND LIBRARY NAMES 01264 M00S01040.gtr +++| LX6 X6,B7 01265 M00S01041.gtr +++| BX2 -X0*X6 01266 M00S01042.gtr +++| NZ X2,ERR IF NAME MORE THAN 7 CHARACTERS 01267 M00S01043.gtr +++| BX6 X0*X6 01268 M00S01044.gtr +++| BX6 X6+X7 01269 M00S01045.gtr +++| SA2 B4 01270 M00S01046.gtr +++| SX7 B4 01271 M00S01047.gtr +++| SA7 CP 01272 M00S01048.gtr +++| EQ APN RETURN 01273 M00S01049.gtr +++|
| Line S01050 Modification History | |
|---|---|
M01 (Removed by) | gtr1 |
Seq # *Modification Id* Act ----------------------------+ 01274 M01S01050.gtr1 ---|* ERROR DETECTED. 01275 M01S01051.gtr1 ---| 01276 M01S01052.gtr1 ---| ERR MESSAGE (=C* FORMAT ERROR.*) 01277 M01S01053.gtr1 ---| EQ GTR8 ERROR EXIT 01278 M00S01054.gtr +++| 01279 M00S01055.gtr +++| APNA CON 0LTEXT LIBRARY NAME
| Line S01056 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01280 M01S01056.251l664 ---| APNB CON 0LTEXT 0 01281 M01S01057.251l664 ---| CON 0LPP 1 01282 M01S01058.251l664 ---| CON 1 2 (UNDEFINED RECORD TYPE) 01283 M01S01059.251l664 ---| CON 0LREL 3 01284 M01S01060.251l664 ---| CON 0LOVL 4 01285 M01S01061.251l664 ---| CON 0LULIB 5 01286 M01S01062.251l664 ---| CON 0LOPL 6 01287 M01S01063.251l664 ---| CON 0LOPLC 7 01288 M01S01064.251l664 ---| CON 0LOPLD 01289 M01S01065.251l664 ---| CON 0LABS 9 01290 M01S01066.251l664 ---| CON 0LPPU 10 01291 M01S01067.251l664 ---| CON 1 11 (UNDEFINED RECORD TYPE) 01292 M01S01068.251l664 ---| CON 1 12 (UNDEFINED RECORD TYPE) 01293 M01S01069.251l664 ---| CON 1 13 (UNDEFINED RECORD TYPE) 01294 M01S01070.251l664 ---| CON 0LCAP 14 01295 M01S01071.251l664 ---| CON 1 15 (UNDEFINED RECORD TYPE) 01296 M01S01072.251l664 ---| CON 0LPROC 16
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
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 M00S01073.gtr +++| CON 0
01306 M00S01074.gtr +++| ARG SPACE 4,3
| Line S01075 Modification History | |
|---|---|
M01 (Removed by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01307 M01S01075.gtr5 ---|** ARG - PROCESS ARGUMENTS ON CONTROL CARD.
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01076.gtr +++| 01325 M00S01077.gtr +++| 01326 M00S01078.gtr +++| ARG3 SA1 P 01327 M00S01079.gtr +++| SA2 B
| Line S01080 Modification History | |
|---|---|
M01 (Removed by) | gtr4 |
Seq # *Modification Id* Act ----------------------------+ 01328 M01S01080.gtr4 ---| IX2 X2-X1
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | gtr4 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01081.gtr +++| BX1 X0*X2 01333 M00S01082.gtr +++| NZ X1,ARG4 IF FILE NAMES DIFFERENT 01334 M00S01083.gtr +++| MESSAGE (=C* FILENAME CONFLICT.*) 01335 M00S01084.gtr +++| EQ GTR8 ERROR EXIT 01336 M00S01085.gtr +++| 01337 M00S01086.gtr +++| ARG4 SA1 ND READ NO DIRECTORY FLAG 01338 M00S01087.gtr +++| ZR X1,ARG IF NO DIRECTORY OPTION SELECTED 01339 M00S01088.gtr +++| SX2 1RU 01340 M00S01089.gtr +++| LX1 5-59 01341 M00S01090.gtr +++| IX6 X2-X1 01342 M00S01091.gtr +++| ZR X6,ARG5 IF *U* OPTION SELECTED 01343 M00S01092.gtr +++| SX6 B1+ 01344 M00S01093.gtr +++| ARG5 SX7 X6+1 SET OPTION AND RETURN 01345 M00S01094.gtr +++| SA7 A1+ 01346 M00S01095.gtr +++| 01347 M00S01096.gtr +++| ARG PS RETURN EXIT 01348 M00S01097.gtr +++| SA1 ACTR SET ARGUMENT COUNT 01349 M00S01098.gtr +++| SA2 CPRF 01350 M00S01099.gtr +++| SB6 B1+B1 COPYRF MAXIMUM NUMBER OF ARGUMENTS 01351 M00S01100.gtr +++| SB7 X1 01352 M00S01101.gtr +++| ZR X2,ARG0 IF NOT COPYRF 01353 M00S01102.gtr +++| LE B7,B6,ARG0 IF 2 OR LESS ARGUMENTS 01354 M00S01103.gtr +++| MESSAGE (=C* TOO MANY PARAMETERS.*) 01355 M00S01104.gtr +++| EQ GTR8 ERROR EXIT 01356 M00S01105.gtr +++| 01357 M00S01106.gtr +++| ARG0 MX0 42 01358 M00S01107.gtr +++| SA1 B6 FIRST ARGUMENT 01359 M00S01108.gtr +++| SA2 ARGA SET LIST OF OPTIONS 01360 M00S01109.gtr +++| ARG1 ZR B7,ARG3 IF END OF ARGUMENTS 01361 M00S01110.gtr +++| BX6 X0*X1 01362 M00S01111.gtr +++| SA3 X2 01363 M00S01112.gtr +++| SB7 B7-B1 01364 M00S01113.gtr +++| BX3 -X0*X3
| Line S01114 Modification History | |
|---|---|
M01 (Removed by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01365 M01S01114.gtr5 ---| ZR X6,ARG2 IF NO FILE NAME
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01366 M01S00078.gtr5 +++| ZR X6,ARG2 IF NULL PARAMETER 01367 M00S01115.gtr +++| BX6 X6+X3 01368 M00S01116.gtr +++| SA6 X2
| Line S01117 Modification History | |
|---|---|
M01 (Removed by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01369 M01S01117.gtr5 ---| ARG2 SA1 A1+B1 READ NEXT PARAMETER
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01118.gtr +++| SA2 A2+B1
| Line S01119 Modification History | |
|---|---|
M01 (Removed by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 01374 M01S01119.gtr5 ---| NZ X2,ARG1 LOOP FOR NEXT PARAMETER
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01120.gtr +++| EQ ARG3 RETURN 01379 M00S01121.gtr +++|
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01122.gtr +++|
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01123.gtr +++| ARGA CON P 01401 M00S01124.gtr +++| CON B 01402 M00S01125.gtr +++| CON ND 01403 M00S01126.gtr +++| CON NR 01404 M00S01127.gtr +++| CON SQ 01405 M00S01128.gtr +++| CON NABT
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | gtr5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01129.gtr +++| CON 0 01419 M00S01130.gtr +++| PRS SPACE 4,4 01420 M00S01131.gtr +++|** PRS - PRESET TABLE LENGTHS. 01421 M00S01132.gtr +++|* ENTRY (A0) = FIELD LENGTH. 01422 M00S01133.gtr +++| 01423 M00S01134.gtr +++| 01424 M00S01135.gtr +++| PRS PS RETURN EXIT 01425 M00S01136.gtr +++| DATE ID+2 01426 M00S01137.gtr +++| SA1 ID+2 POSITION DATE 01427 M00S01138.gtr +++| SX6 TAB SET TABLE POINTER 01428 M00S01139.gtr +++| BX7 X1 01429 M00S01140.gtr +++| SA6 B0 01430 M00S01141.gtr +++| LX7 6 01431 M00S01142.gtr +++| SX6 A0 01432 M00S01143.gtr +++| SA7 A1 01433 M00S01144.gtr +++| SA6 FL 01434 M00S01145.gtr +++| SX6 A0-BUF-10B SET BUFFER LENGTH 01435 M00S01146.gtr +++| SA6 L.END
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | gtr3 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01147.gtr +++| EQ PRS RETURN 01443 M00S01148.gtr +++| 01444 M00S01149.gtr +++| MFL= EQU BUF+BUFL+200000B 01445 M00S01150.gtr +++| RCD SPACE 4,5 01446 M00S01151.gtr +++|** RCD - READ CORRECTION DIRECTIVES. 01447 M00S01152.gtr +++|* ENTRY (CCDR) = CONTROL CARD. 01448 M00S01153.gtr +++|* EXIT (X1) < 0 IF FILE IS NON-RANDOM. 01449 M00S01154.gtr +++| 01450 M00S01155.gtr +++| 01451 M00S01156.gtr +++| RCD PS RETURN EXIT 01452 M00S01157.gtr +++| SB2 CCDR UNPACK CONTROL CARD 01453 M00S01158.gtr +++| SB3 CCDR+10B 01454 M00S01159.gtr +++| SB4 CBUF 01455 M00S01160.gtr +++| MX0 -6 01456 M00S01161.gtr +++| RCD1 SB5 B4+10 01457 M00S01162.gtr +++| SA1 B2
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | gtr7 |
Seq # *Modification Id* Act ----------------------------+ 01458 M01S00001.gtr7 +++| SB2 B2+B1 01459 M00S01163.gtr +++| RCD2 LX1 6 01460 M00S01164.gtr +++| BX6 -X0*X1
| Line S01165 Modification History | |
|---|---|
M01 (Removed by) | gtr7 |
Seq # *Modification Id* Act ----------------------------+ 01461 M01S01165.gtr7 ---| ZR X6,RCD3 IF END OF CARD 01462 M01S01166.gtr7 ---| SA6 B4 01463 M01S01167.gtr7 ---| SB4 B4+B1
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | gtr7 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01168.gtr +++| NE B4,B5,RCD2 LOOP FOR 10-CHARACTERS
| Line S01169 Modification History | |
|---|---|
M01 (Removed by) | gtr7 |
Seq # *Modification Id* Act ----------------------------+ 01473 M01S01169.gtr7 ---| SB2 B2+B1 01474 M01S01170.gtr7 ---| SX6 B0
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | gtr7 |
Seq # *Modification Id* Act ----------------------------+ 01475 M01S00010.gtr7 +++| SX6 B0+ 01476 M00S01171.gtr +++| NE B2,B3,RCD1 LOOP FOR END OF BUFFER 01477 M00S01172.gtr +++| RCD3 SA6 B4 SUPPRESS TRAILING BLANKS 01478 M00S01173.gtr +++| SB4 B4-B1 01479 M00S01174.gtr +++| SA1 B4 01480 M00S01175.gtr +++| SX6 X1-1R 01481 M00S01176.gtr +++| ZR X6,RCD3 IF CHARACTER IS * * 01482 M00S01177.gtr +++|
| Line S01178 Modification History | |
|---|---|
M01 (Removed by) | gtr1 |
Seq # *Modification Id* Act ----------------------------+ 01483 M01S01178.gtr1 ---|* SKIP OVER GET CALL.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | gtr1 |
Seq # *Modification Id* Act ----------------------------+ 01484 M01S00003.gtr1 +++|* SKIP OVER GTR CALL. 01485 M00S01179.gtr +++| 01486 M00S01180.gtr +++| SA1 CBUF 01487 M00S01181.gtr +++| RCD4 SX6 X1-1R. 01488 M00S01182.gtr +++| ZR X6,RCD5 IF *.* TERMINATOR 01489 M00S01183.gtr +++| SX6 X1-1R) 01490 M00S01184.gtr +++| ZR X6,RCD5 IF *)* TERMINATOR 01491 M00S01185.gtr +++| SA1 A1+B1 01492 M00S01186.gtr +++| EQ RCD4 LOOP 01493 M00S01187.gtr +++| 01494 M00S01188.gtr +++| RCD5 SX6 A1 SET CHARACTER POINTER 01495 M00S01189.gtr +++| SA6 CP 01496 M00S01190.gtr +++| 01497 M00S01191.gtr +++|* BUILD INSERT PROGRAM TABLE. 01498 M00S01192.gtr +++| 01499 M00S01193.gtr +++| RCD6 RJ APN
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | gtr1 |
Seq # *Modification Id* Act ----------------------------+ 01500 M01S00004.gtr1 +++| ZR X6,ERR IF NO NAME 01501 M00S01194.gtr +++| SA6 T1 01502 M00S01195.gtr +++| SB5 X2-1R- 01503 M00S01196.gtr +++| SA6 A6+B1 01504 M00S01197.gtr +++| NZ B5,RCD7 IF NO SECOND FIELD 01505 M00S01198.gtr +++| RJ APN 01506 M00S01199.gtr +++| SA6 T2 01507 M00S01200.gtr +++| RCD7 SA1 T1 01508 M00S01201.gtr +++| SA2 A1+B1 01509 M00S01202.gtr +++| ADDWORD IPT 01510 M00S01203.gtr +++| 01511 M00S01204.gtr +++|* PROCESS NEXT FIELD. 01512 M00S01205.gtr +++| 01513 M00S01206.gtr +++| SA1 CP 01514 M00S01207.gtr +++| SA2 X1 01515 M00S01208.gtr +++| SX6 X2-1R 01516 M00S01209.gtr +++| ZR X6,RCD RETURN IF * * 01517 M00S01210.gtr +++| NZ X2,RCD6 IF NOT END-OF-LINE 01518 M00S01211.gtr +++| EQ RCD RETURN 01519 M00S01212.gtr +++| CBUF SPACE 4,3 01520 M00S01213.gtr +++|** CBUF - CARD BUFFER. 01521 M00S01214.gtr +++| 01522 M00S01215.gtr +++| 01523 M00S01216.gtr +++| CBUF BSS 80 01524 M00S01217.gtr +++| SPACE 4 01525 M00S01218.gtr +++| END GTR GET SELECTED RECORDS
cdc/nos2.source/opl.opl871/deck/gtr.txt · Last modified: (external edit)