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