cdc:nos2.source:opl.opl871:deck:fcopy
Deck FCOPY
Library Member Format: MODIFY
Listing Sections
- Deck FCOPY Start
- Deck FCOPY Part 1 (Line 1853)
- Deck FCOPY Part 2 (Line 3337)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.fcopy +++| IDENT FCOPY,FETS,FCOPY 00002 M00S00002.fcopy +++| ABS 00003 M00S00003.fcopy +++| ENTRY FCOPY 00004 M00S00004.fcopy +++| ENTRY RFL= 00005 M00S00005.fcopy +++| SYSCOM B1 00006 M00S00006.fcopy +++|*COMMENT FCOPY - FILE COPY.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M00S00008.fcopy +++| TITLE FCOPY - FILE COPY. 00010 M00S00009.fcopy +++| SPACE 4,10 00011 M00S00010.fcopy +++|*** FCOPY - FILE COPY. 00012 M00S00011.fcopy +++|* D. R. HILGREN 79/01/15. 00013 M00S00012.fcopy +++|* J. HOLLISTER 82/02/22. 00014 M00S00013.fcopy +++| SPACE 4,10 00015 M00S00014.fcopy +++|*** *FCOPY* CONVERTS A FILE FROM ONE CODE SET FORMAT 00016 M00S00015.fcopy +++|* TO ANOTHER CODE SET FORMAT. 00017 M00S00016.fcopy +++| SPACE 4,20 00018 M00S00017.fcopy +++|*** COMMAND. 00019 M00S00018.fcopy +++|*
| Line S00019 Modification History | |
|---|---|
M01 (Removed by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00020 M01S00019.fcopy4 ---|* FCOPY(P=LFN1,N=LFN2,PC=IC1,NC=IC2,PL=LT1,NL=LT2,FL=L,LB=N,R)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00021 M01S00001.fcopy4 +++|* FCOPY(P=LFN1,N=LFN2,PC=IC1,NC=IC2,PL=LT1,NL=LT2,FL=L,LB=N,R,A) 00022 M00S00020.fcopy +++|* 00023 M00S00021.fcopy +++|* LFN1 FILE TO BE CONVERTED (DEFAULT IS *OLD*). LFN1 00024 M00S00022.fcopy +++|* IS NOT REWOUND BEFORE OR AFTER THE OPERATION. 00025 M00S00023.fcopy +++|* 00026 M00S00024.fcopy +++|* LFN2 FILE WRITTEN IN NEW FORMAT (DEFAULT IS *NEW*). 00027 M00S00025.fcopy +++|* LFN2 IS NOT REWOUND BEFORE OR AFTER THE OPERATION. 00028 M00S00026.fcopy +++|* 00029 M00S00027.fcopy +++|* IC1 INTERNAL CHARACTERISTIC OF LFN1 (DEFAULT IS 00030 M00S00028.fcopy +++|* *ASCII*). 00031 M00S00029.fcopy +++|* 00032 M00S00030.fcopy +++|* IC2 INTERNAL CHARACTERISTIC OF LFN2 (DEFAULT IS 00033 M00S00031.fcopy +++|* *ASCII8*). 00034 M00S00032.fcopy +++|* 00035 M00S00033.fcopy +++|* DIS = 6 BIT DISPLAY CODE BASED ON EITHER 63 OR 64 00036 M00S00034.fcopy +++|* CHARACTER SET, WHICHEVER IS IN USE IN THE 00037 M00S00035.fcopy +++|* RESIDENT SYSTEM. 00038 M00S00036.fcopy +++|* 00039 M00S00037.fcopy +++|* DIS63 = 6 BIT DISPLAY CODE, BASED ON 63 00040 M00S00038.fcopy +++|* CHARACTER SET. 00041 M00S00039.fcopy +++|* 00042 M00S00040.fcopy +++|* DIS64 = 6 BIT DISPLAY CODE, BASED ON 64 00043 M00S00041.fcopy +++|* CHARACTER SET. 00044 M00S00042.fcopy +++|* 00045 M00S00043.fcopy +++|* ASCII = 6/12 DISPLAY CODE BASED ON EITHER 63 OR 64 00046 M00S00044.fcopy +++|* CHARACTER SET. 00047 M00S00045.fcopy +++|* 00048 M00S00046.fcopy +++|* ASCII63 = 6/12 DISPLAY CODE BASED ON THE 63 CHARACTER 00049 M00S00047.fcopy +++|* SET. 00050 M00S00048.fcopy +++|* 00051 M00S00049.fcopy +++|* ASCII64 = 6/12 DISPLAY CODE, BASED ON THE 64 CHARACTER 00052 M00S00050.fcopy +++|* SET. 00053 M00S00051.fcopy +++|* 00054 M00S00052.fcopy +++|* ASCII8 = 7 BIT SUBSET OF 8 BIT ASCII, RIGHT 00055 M00S00053.fcopy +++|* JUSTIFIED IN 12 BITS. 00056 M00S00054.fcopy +++|* 00057 M00S00055.fcopy +++|* ASCII88 = FULL 8 BIT ASCII CHARACTER SET IN 8 BITS. 00058 M00S00056.fcopy +++|* 00059 M00S00057.fcopy +++|* ASCFL = FULL 8 BIT ASCII, IN FIXED LENGTH LINES 00060 M00S00058.fcopy +++|* WITHOUT LINE TERMINATORS (STRANGER TAPES 00061 M00S00059.fcopy +++|* ONLY). 00062 M00S00060.fcopy +++|* 00063 M00S00061.fcopy +++|* EBCFL = 8 BIT EBCDIC, IN FIXED LENGTH LINES 00064 M00S00062.fcopy +++|* WITHOUT LINE TERMINATORS (STRANGER TAPES 00065 M00S00063.fcopy +++|* ONLY). 00066 M00S00064.fcopy +++|* 00067 M00S00065.fcopy +++|* LT1 LINE TERMINATOR OF LFN1 (DEFAULT IS ZERO BYTE). 00068 M00S00066.fcopy +++|* 00069 M00S00067.fcopy +++|* LT2 LINE TERMINATOR OF LFN2 (DEFAULT IS ZERO BYTE). 00070 M00S00068.fcopy +++|* 00071 M00S00069.fcopy +++|* ZB = ZERO BYTE. 00072 M00S00070.fcopy +++|* CR = CARRIAGE RETURN. 00073 M00S00071.fcopy +++|* FF = FORM FEED. 00074 M00S00072.fcopy +++|* LF = LINE FEED. 00075 M00S00073.fcopy +++|* US = UNIT SEPARATOR. 00076 M00S00074.fcopy +++|* RS = RECORD SEPARATOR. 00077 M00S00075.fcopy +++|* CRLF = CARRIAGE RETURN-LINE FEED. 00078 M00S00076.fcopy +++|* LFCR = LINE FEED-CARRIAGE RETURN. 00079 M00S00077.fcopy +++|* NN = SPECIFIED OCTAL VALUE. 00080 M00S00078.fcopy +++|* 00081 M00S00079.fcopy +++|* THE FOLLOWING TABLE SPECIFIES THE LEGAL COMBINATIONS 00082 M00S00080.fcopy +++|* OF CODE SETS (INTERNAL CHARACTERISTICS) AND LINE 00083 M00S00081.fcopy +++|* TERMINATORS. 00084 M00S00082.fcopy +++|* 00085 M00S00083.fcopy +++|* 00086 M00S00084.fcopy +++|* * LINE TERMINATOR 00087 M00S00085.fcopy +++|* CODE SET * 00088 M00S00086.fcopy +++|* * ZB CR FF LF US RS CRLF LFCR NN 00089 M00S00087.fcopy +++|* ****************************************************** 00090 M00S00088.fcopy +++|* DIS * Y N N N N N N N 0-77B 00091 M00S00089.fcopy +++|* * 00092 M00S00090.fcopy +++|* DIS63 * Y N N N N N N N 0-77B 00093 M00S00091.fcopy +++|* * 00094 M00S00092.fcopy +++|* DIS64 * Y N N N N N N N 0-77B 00095 M00S00093.fcopy +++|* * 00096 M00S00094.fcopy +++|* ASCII * Y Y Y Y Y Y N N 0-77B * 00097 M00S00095.fcopy +++|* * 00098 M00S00096.fcopy +++|* ASCII63 * Y Y Y Y Y Y N N 0-77B * 00099 M00S00097.fcopy +++|* * 00100 M00S00098.fcopy +++|* ASCII64 * Y Y Y Y Y Y N N 0-77B * 00101 M00S00099.fcopy +++|* * 00102 M00S00100.fcopy +++|* ASCII8 * Y Y Y Y Y Y Y Y 0-377B 00103 M00S00101.fcopy +++|* * 00104 M00S00102.fcopy +++|* ASCII88 * N Y Y Y Y Y Y Y 0-377B 00105 M00S00103.fcopy +++|* * 00106 M00S00104.fcopy +++|* ASCFL * N N N N N N N N N 00107 M00S00105.fcopy +++|* * 00108 M00S00106.fcopy +++|* EBCFL * N N N N N N N N N 00109 M00S00107.fcopy +++|* 00110 M00S00108.fcopy +++|* * +7400B OR 7700B, IF DESIRED. 00111 M00S00109.fcopy +++|* 00112 M00S00110.fcopy +++|* L FIXED LENGTH LINE LENGTH. THIS PARAMETER IS ONLY 00113 M00S00111.fcopy +++|* USED ON STRANGER TAPES. (DEFAULT IS 80) 00114 M00S00112.fcopy +++|*
| Line S00113 Modification History | |
|---|---|
M01 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00115 M01S00113.fcopy9 ---|* N LINES PER BLOCK ON STRANGER TAPE. THE PRODUCT OF THE 00116 M01S00114.fcopy9 ---|* FIXED LINE LENGTH AND THE BLOCK LENGTH MUST BE LESS 00117 M01S00115.fcopy9 ---|* THAN OR EQUAL TO 3840. (DEFAULT IS 3840 DIVIDED BY 00118 M01S00116.fcopy9 ---|* FIXED LENGTH LINE LENGTH)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00119 M01S00001.fcopy9 +++|* N LINES PER BLOCK ON STRANGER TAPE. FOR S-FORMAT 00120 M01S00002.fcopy9 +++|* STRANGER TAPE, THE PRODUCT OF THE FIXED LINE LENGTH 00121 M01S00003.fcopy9 +++|* AND THE BLOCK LENGTH MUST BE LESS THAN OR EQUAL TO 00122 M01S00004.fcopy9 +++|* 3840. (DEFAULT IS 3840 DIVIDED BY FIXED LENGTH LINE 00123 M01S00005.fcopy9 +++|* LENGTH) 00124 M00S00117.fcopy +++|* 00125 M00S00118.fcopy +++|* R - IF SPECIFIED, LFN1 AND LFN2 ARE REWOUND BEFORE AND 00126 M00S00119.fcopy +++|* AFTER THE OPERATION.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00127 M01S00002.fcopy4 +++|* 00128 M01S00003.fcopy4 +++|* A - IF SPECIFIED, ABORT AFTER THE OPERATION IF ERRORS 00129 M01S00004.fcopy4 +++|* OCCURRED. 00130 M00S00120.fcopy +++| SPACE 4,15 00131 M00S00121.fcopy +++|*** DAYFILE MESSAGES. 00132 M00S00122.fcopy +++|* 00133 M00S00123.fcopy +++|* * BAD FCOPY CONVERSION TABLE.* - FCOPY TABLES 00134 M00S00124.fcopy +++|* ARE IN ERROR. CONSULT SITE ANALYST. 00135 M00S00125.fcopy +++|* 00136 M00S00126.fcopy +++|* * ERROR IN FCOPY ARGUMENTS.* - ERROR DETECTED IN 00137 M00S00127.fcopy +++|* COMMAND ARGUMENTS. 00138 M00S00128.fcopy +++|* 00139 M00S00129.fcopy +++|* * ERROR LIMIT. XXXXXX ADDITIONAL ERRORS FOUND.* - MORE 00140 M00S00130.fcopy +++|* THAN 20 ERRORS WERE FOUND DURING CONVERSION. 00141 M00S00131.fcopy +++|* 00142 M00S00132.fcopy +++|* * FCOPY COMPLETE.* - INFORMATIVE MESSAGE INDICATING 00143 M00S00133.fcopy +++|* *FCOPY* COMPLETION. 00144 M00S00134.fcopy +++|* 00145 M00S00135.fcopy +++|* * FILE NAME CONFLICT.* - LFN1 CAN NOT BE THE SAME 00146 M00S00136.fcopy +++|* FILE NAME AS LFN2. 00147 M00S00137.fcopy +++|* 00148 M00S00138.fcopy +++|* * UNKNOWN CODE CCCC, FILE XXXX, RECORD YYYY, LINE 00149 M00S00139.fcopy +++|* ZZZZZZ.* - CODE IS NOT A VALID CHARACTER IN THE INPUT 00150 M00S00140.fcopy +++|* CHARACTER SET. 00151 M00S00141.fcopy +++|* 00152 M00S00142.fcopy +++|* * INPUT FILE NOT FOUND.* - LFN1 MUST BE AN EXISTING 00153 M00S00143.fcopy +++|* LOCAL OR ATTACHED DIRECT ACCESS FILE. 00154 M00S00144.fcopy +++|* 00155 M00S00145.fcopy +++|* * UNRECOGNIZED CODE SET PARAMETER.* - *PC* OR *NC* 00156 M00S00146.fcopy +++|* PARAMETER SPECIFIES UNSUPPORTED CONVERSION. 00157 M00S00147.fcopy +++|* 00158 M00S00148.fcopy +++|* *UNRECOGNIZED LINE TERMINATOR PARAMETER.* - *PL* OR *NL* 00159 M00S00149.fcopy +++|* PARAMETER SPECIFIES AN UNSUPPORTED LINE TERMINATOR. 00160 M00S00150.fcopy +++|* 00161 M00S00151.fcopy +++|* *CODE SET LINE TERMINATOR CONFLICT.* - THE LINE TERMINATOR 00162 M00S00152.fcopy +++|* SPECIFIED ON THE *PL* OR *NL* PARAMETER IS NOT SUPPORTED BY 00163 M00S00153.fcopy +++|* THE CODE SET SPECIFIED ON THE *PC* OR *NC* PARAMETER. 00164 M00S00154.fcopy +++|* 00165 M00S00155.fcopy +++|* * XXXXXX LINES TRUNCATED.* - THE NUMBER OF LINES INDICATED 00166 M00S00156.fcopy +++|* WERE TOO LONG FOR THE SPECIFIED FIXED LENGTH LINE ON A COPY 00167 M00S00157.fcopy +++|* TO A STRANGER TAPE. 00168 M00S00158.fcopy +++|*
| Line S00159 Modification History | |
|---|---|
M01 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00169 M01S00159.fcopy9 ---|* * BLOCK TOO LARGE FOR BUFFERS.* - THE PRODUCT OF THE FIXED 00170 M01S00160.fcopy9 ---|* LINE LENGTH AND BLOCK LENGTH SPECIFIED WAS GREATER THAN 00171 M01S00161.fcopy9 ---|* THE LIMIT OF 3840. 00172 M01S00162.fcopy9 ---|* 00173 M00S00163.fcopy +++|* * INCORRECT FILE TYPE FOR SPECIFIED CHARACTER SET.* - EITHER 00174 M00S00164.fcopy +++|* YOU SPECIFIED *ASCFL* OR *EBCFL* AS THE CHARACTER SET FOR A 00175 M00S00165.fcopy +++|* FILE NOT RESIDING ON A STRANGER TAPE, OR SOME OTHER CHARACTER 00176 M00S00166.fcopy +++|* SET FOR A FILE ON A STRANGER TAPE. 00177 M00S00167.fcopy +++|* 00178 M00S00168.fcopy +++|* * LINE TERMINATORS NOT USED ON A STRANGER TAPE.* - YOU 00179 M00S00169.fcopy +++|* SPECIFIED A LINE TERMINATOR FOR A STRANGER TAPE FILE. 00180 M00S00170.fcopy +++| TITLE SYMBOL DEFINITIONS. 00181 M00S00171.fcopy +++| SPACE 4,10 00182 M00S00172.fcopy +++|**** ASSEMBLY CONSTANTS. 00183 M00S00173.fcopy +++| 00184 M00S00174.fcopy +++|
| Line S00175 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00185 M01S00175.274l797 ---| PBUFL EQU 2002B OLD BUFFER LENGTH 00186 M01S00176.274l797 ---| NBUFL EQU 2002B NEW BUFFER LENGTH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00187 M01S00001.274l797 +++| PBUFL EQU 20041B OLD BUFFER LENGTH 00188 M01S00002.274l797 +++| NBUFL EQU 20041B NEW BUFFER LENGTH 00189 M00S00177.fcopy +++| WBUFL EQU 101B WORKING WRITE BUFFER
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00190 M01S00003.274l797 +++| FETODL EQU 16 OPTICAL DISK FET EXTENSION LENGTH 00191 M00S00178.fcopy +++| BLNK EQU 55B DISPLAY CHARACTER BLANK 00192 M00S00179.fcopy +++| ZBCH EQU 400B INTERNAL ZERO BYTE CHARACTER 00193 M00S00180.fcopy +++| EORC EQU 401B INTERNAL EOR CHARACTER 00194 M00S00181.fcopy +++| EOFC EQU 402B INTERNAL EOF CHARACTER 00195 M00S00182.fcopy +++| EOIC EQU 403B INTERNAL EOI CHARACTER 00196 M00S00183.fcopy +++| TLEN EQU 403B CONVERSION BASE TABLE LENGTH 00197 M00S00184.fcopy +++| MCVTL EQU 1006B MAXIMUM CONVERSION TABLE LENGTH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00198 M02S00001.fcopy9 ---| MXCB EQU 7400B MAXIMUM CHARACTERS/BLOCK, STRANGER TAPE
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00199 M01S00006.fcopy9 +++| MXCB EQU 3840D MAXIMUM CHARACTERS/BLOCK, S-FORMAT TAPE 00200 M00S00185.fcopy +++| 00201 M00S00186.fcopy +++|**** 00202 M00S00187.fcopy +++| SPACE 4,10 00203 M00S00188.fcopy +++|* COMMON DECKS. 00204 M00S00189.fcopy +++| 00205 M00S00190.fcopy +++| 00206 M00S00191.fcopy +++|*CALL COMCMAC 00207 M00S00192.fcopy +++|*CALL COMCCMD 00208 M00S00193.fcopy +++|*CALL COMSLFM 00209 M00S00194.fcopy +++| QUAL COMSMTX 00210 M00S00195.fcopy +++|*CALL COMSMTX 00211 M00S00196.fcopy +++| QUAL * 00212 M00S00197.fcopy +++| SPACE 4,10 00213 M00S00198.fcopy +++|** CONV - GENERATE CONVERSION BASE TABLE ENTRY. 00214 M00S00199.fcopy +++|* 00215 M00S00200.fcopy +++|* CONV X,Y 00216 M00S00201.fcopy +++|* 00217 M00S00202.fcopy +++|* ENTRY X = NUMERIC VALUE. 00218 M00S00203.fcopy +++|* Y = NUMERIC VALUE. 00219 M00S00204.fcopy +++|* 00220 M00S00205.fcopy +++|*T 24/0, 18/X, 18/Y
Figure
00221 M00S00206.fcopy +++| 00222 M00S00207.fcopy +++| PURGMAC CONV 00223 M00S00208.fcopy +++| 00224 M00S00209.fcopy +++| CONV MACRO X,Y 00225 M00S00210.fcopy +++| VFD 24D/0,18D/X,18D/Y 00226 M00S00211.fcopy +++| CONV ENDM 00227 M00S00212.fcopy +++| TITLE WORKING STORAGE. 00228 M00S00213.fcopy +++| SPACE 4,10 00229 M00S00214.fcopy +++|* FET DEFINITIONS. 00230 M00S00215.fcopy +++| 00231 M00S00216.fcopy +++| 00232 M00S00217.fcopy +++| ORG 110B 00233 M00S00218.fcopy +++| FETS BSS 0 00234 M00S00219.fcopy +++| 00235 M00S00220.fcopy +++| P BSS 0 OLD FILE
| Line S00221 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00236 M01S00221.274l797 ---| OLD FILEB PBUF,PBUFL,FET=7
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00237 M01S00004.274l797 +++| OLD FILEB PBUF,PBUFL,FET=10 00238 M01S00005.274l797 +++| ORG P+11B 00239 M01S00006.274l797 +++| VFD 30/0,12/FETODL,18/P+12B 00240 M01S00007.274l797 +++| BSSZ FETODL OPTICAL DISK FET EXTENSION 00241 M00S00222.fcopy +++| 00242 M00S00223.fcopy +++| 00243 M00S00224.fcopy +++| N BSS 0 NEW FILE
| Line S00225 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00244 M01S00225.274l797 ---| NEW FILEB NBUF,NBUFL,FET=7
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00245 M01S00008.274l797 +++| NEW FILEB NBUF,NBUFL,FET=10 00246 M01S00009.274l797 +++| ORG N+11B 00247 M01S00010.274l797 +++| VFD 30/0,12/FETODL,18/N+12B 00248 M01S00011.274l797 +++| BSSZ FETODL OPTICAL DISK FET EXTENSION 00249 M00S00226.fcopy +++| 00250 M00S00227.fcopy +++| 00251 M00S00228.fcopy +++|* INPUT PARAMETERS. 00252 M00S00229.fcopy +++| 00253 M00S00230.fcopy +++| 00254 M00S00231.fcopy +++| PC VFD 42/0LASCII,18/0 DEFAULT *PC* VALUE 00255 M00S00232.fcopy +++| NC VFD 42/0LASCII8,18/0 DEFAULT *NC* VALUE 00256 M00S00233.fcopy +++| PL CON 0 OLD FILE LINE TERMINATOR 00257 M00S00234.fcopy +++| NL CON 0 NEW FILE LINE TERMINATOR
| Line S00235 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 00258 M01S00235.fcopy3 ---| FL VFD 42/0L80,18/0 CHARACTERS PER FIXED LENGTH LINE 00259 M01S00236.fcopy3 ---| LB VFD 42/0L48,18/0 LINES PER STRANGER TAPE BLOCK
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 00260 M01S00002.fcopy3 +++| FL CON 0 CHARACTERS PER LINE, STRANGER TAPE 00261 M01S00003.fcopy3 +++| LB CON 0 LINES PER BLOCK, STRANGER TAPE 00262 M00S00237.fcopy +++| R CON 0 REWIND FLAG
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00263 M01S00005.fcopy4 +++| A CON 0 ABORT FLAG 00264 M00S00238.fcopy +++| SPACE 4,10 00265 M00S00239.fcopy +++|* GLOBAL VARIABLES. 00266 M00S00240.fcopy +++| 00267 M00S00241.fcopy +++|
| Line S00242 Modification History | |
|---|---|
M01 (Removed by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00268 M01S00242.fcopy4 ---| ASV CON 1 NO REWIND INDICATOR
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00269 M01S00006.fcopy4 +++| ASV CON 1 ASSUMED VALUE FOR *A* AND *R* PARAMETERS 00270 M00S00243.fcopy +++| CLNF CON 0 6 BIT COLON FOUND FLAG 00271 M00S00244.fcopy +++| ENDF CON 0 EOI DETECTED FLAG 00272 M00S00245.fcopy +++| ERCT CON 0 ERROR COUNT 00273 M00S00246.fcopy +++| ERLM CON 20D ERROR LIMIT 00274 M00S00247.fcopy +++| FILE CON 1 FILE NUMBER 00275 M00S00248.fcopy +++| IBHW CON 0 FULL SIZED INPUT BLOCK HEADER WORD 00276 M00S00249.fcopy +++| ILCC CON 0 INPUT LINE CHARACTER COUNT 00277 M00S00250.fcopy +++| ILCT CON 0 INPUT LINES REMAINING IN BLOCK 00278 M00S00251.fcopy +++| INDX CON 0 OFFSET TO SPECIAL SECTION OF TABLE 00279 M00S00252.fcopy +++| IPTR CON 0 LOCATION TO STORE HEADER WORD ON OUTPUT 00280 M00S00253.fcopy +++| IWRD CON 0 CURRENT INPUT WORD 00281 M00S00254.fcopy +++| LINE CON 1 CURRENT LINE 00282 M00S00255.fcopy +++| OBHW CON 0 FULL SIZED OUTPUT BLOCK HEADER WORD 00283 M00S00256.fcopy +++| OLCC CON 0 OUTPUT LINE CHARACTER COUNT 00284 M00S00257.fcopy +++| OLCT CON 0 OUTPUT LINES REMAINING IN BLOCK 00285 M00S00258.fcopy +++| OWRD CON 0 CURRENT OUTPUT WORD 00286 M00S00259.fcopy +++| RAHD CON -1 READ AHEAD CHARACTER 00287 M00S00260.fcopy +++| RCRD CON 1 RECORD NUMBER 00288 M00S00261.fcopy +++| SPAC CON 40B BLANK OUTPUT CHARACTER CODE 00289 M00S00262.fcopy +++| STPI CON 0 NON-ZERO IF INPUT FILE IS STRANGER TAPE 00290 M00S00263.fcopy +++| STPO CON 0 NON-ZERO IF OUTPUT FILE IS STRANGER TAPE 00291 M00S00264.fcopy +++| TCVTL CON TLEN CONVERSION TABLE LENGTH 00292 M00S00265.fcopy +++| TRNC CON 0 TRUNCATED LINE COUNT
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00293 M01S00012.274l797 +++| UBC CON 0 UNUSED BIT COUNT 00294 M00S00266.fcopy +++| 00295 M00S00267.fcopy +++| SPACE 4,10 00296 M00S00268.fcopy +++|* DAYFILE MESSAGES. 00297 M00S00269.fcopy +++| 00298 M00S00270.fcopy +++| 00299 M00S00271.fcopy +++| MSGA DATA C* FCOPY COMPLETE.* 00300 M00S00272.fcopy +++| MSGB DATA C* BAD FCOPY CONVERSION TABLE.* 00301 M00S00273.fcopy +++| MSGC DATA 50H UNKNOWN CODE CCCC, FILE XXXX, RECORD YYYY, LIN 00302 M00S00274.fcopy +++| DATA C*E ZZZZZZ.* 00303 M00S00275.fcopy +++| MSGD DATA C* ERROR LIMIT. XXXXXX ADDITIONAL ERRORS FOUND.* 00304 M00S00276.fcopy +++| MSGE DATA C* ERRORS OCCURRED IN FCOPY. SEE DAYFILE.* 00305 M00S00277.fcopy +++| MSGF DATA C* XXXXXX LINES TRUNCATED.* 00306 M00S00278.fcopy +++| MSGG DATA C* 1 LINE TRUNCATED.* 00307 M00S00279.fcopy +++| 00308 M00S00280.fcopy +++| 00309 M00S00281.fcopy +++| TITLE MAIN ROUTINE. 00310 M00S00282.fcopy +++| FCOPY SB1 1 ENTRY 00311 M00S00283.fcopy +++| RJ PRS PRESET PROGRAM 00312 M00S00284.fcopy +++| SA1 R 00313 M00S00285.fcopy +++| ZR X1,FCO0 IF NO REWIND OF FILES 00314 M00S00286.fcopy +++| REWIND P 00315 M00S00287.fcopy +++| REWIND N 00316 M00S00288.fcopy +++| FCO0 SB7 A0+ 00317 M00S00289.fcopy +++| NZ B7,FCO1 IF FILES NOT OF LIKE TYPE 00318 M00S00290.fcopy +++| RJ CLF COPY LIKE FILES 00319 M00S00291.fcopy +++| EQ FCO4 TERMINATE COPY 00320 M00S00292.fcopy +++| 00321 M00S00293.fcopy +++| FCO1 RECALL N,R 00322 M00S00294.fcopy +++| SA1 STPO 00323 M00S00295.fcopy +++| ZR X1,FCO1.3 IF OUTPUT FILE NOT STRANGER TAPE 00324 M00S00296.fcopy +++| WRITEO N RESERVE WORD FOR FIRST BLOCK HEADER WORD 00325 M00S00297.fcopy +++| FCO1.3 SA1 STPI 00326 M00S00298.fcopy +++| ZR X1,FCO1.5 IF INPUT FILE NOT STRANGER TAPE 00327 M00S00299.fcopy +++| READN P,R READ STRANGER TAPE 00328 M00S00300.fcopy +++| RJ STB START FIRST STRANGER TAPE BLOCK 00329 M00S00301.fcopy +++| EQ FCO2 START CONVERSION 00330 M00S00302.fcopy +++| 00331 M00S00303.fcopy +++| FCO1.5 READ P,R READ NORMAL FILE 00332 M00S00304.fcopy +++| FCO2 RJ GCH GET NEXT CHARACTER 00333 M00S00305.fcopy +++| RJ TCH TRANSLATE CHARACTER 00334 M00S00306.fcopy +++| NG X2,FCO3 IF CHARACTER IGNORED 00335 M00S00307.fcopy +++| RJ PCH OUTPUT CHARACTER 00336 M00S00308.fcopy +++| FCO3 SA2 ENDF CHECK FOR EOI 00337 M00S00309.fcopy +++| ZR X2,FCO2 IF NOT EOI 00338 M00S00310.fcopy +++| FCO4 RJ PFE PRINT FINAL ERROR MESSAGES
| Line S00311 Modification History | |
|---|---|
M01 (Removed by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00339 M01S00311.fcopy4 ---| FCO5 SA1 R 00340 M01S00312.fcopy4 ---| ZR X1,FCO6 IF NO REWIND OF FILES
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00341 M01S00007.fcopy4 +++| SA1 R 00342 M01S00008.fcopy4 +++| ZR X1,FCO5 IF NO REWIND OF FILES 00343 M00S00313.fcopy +++| REWIND P 00344 M00S00314.fcopy +++| REWIND N
| Line S00315 Modification History | |
|---|---|
M01 (Removed by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00345 M01S00315.fcopy4 ---| FCO6 MESSAGE X5,3 PRINT TERMINATION MESSAGE 00346 M01S00316.fcopy4 ---| 00347 M01S00317.fcopy4 ---| ENDRUN
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00348 M01S00009.fcopy4 +++| FCO5 MESSAGE X5,3 PRINT TERMINATION MESSAGE 00349 M01S00010.fcopy4 +++| SA1 A 00350 M01S00011.fcopy4 +++| ZR X1,FCO6 IF *A* PARAMETER NOT SPECIFIED 00351 M01S00012.fcopy4 +++| SX1 MSGA ADDRESS OF TERMINATION MESSAGE 00352 M01S00013.fcopy4 +++| BX1 X5-X1 00353 M01S00014.fcopy4 +++| ZR X1,FCO6 IF NORMAL TERMINATION 00354 M01S00015.fcopy4 +++| ABORT 00355 M01S00016.fcopy4 +++| 00356 M01S00017.fcopy4 +++| FCO6 ENDRUN 00357 M00S00318.fcopy +++| TITLE SUBROUTINES. 00358 M00S00319.fcopy +++| SPACE 4,10 00359 M00S00320.fcopy +++|** CLF - COPY FILE WITHOUT CONVERSION (SPECIAL CASE). 00360 M00S00321.fcopy +++|* 00361 M00S00322.fcopy +++|* ENTRY FET SET TO READ INPUT FILE. 00362 M00S00323.fcopy +++|* 00363 M00S00324.fcopy +++|* EXIT FILE COPIED. 00364 M00S00325.fcopy +++|* 00365 M00S00326.fcopy +++|* USES X - 1, 2, 6. 00366 M00S00327.fcopy +++|* A - 1, 6. 00367 M00S00328.fcopy +++|* B - 6, 7. 00368 M00S00329.fcopy +++|* 00369 M00S00330.fcopy +++|* CALLS WTW= 00370 M00S00331.fcopy +++|* 00371 M00S00332.fcopy +++|* MACROS READ, READW, WRITER, WRITEF. 00372 M00S00333.fcopy +++| 00373 M00S00334.fcopy +++| 00374 M00S00335.fcopy +++| CLF SUBR ENTRY/EXIT 00375 M00S00336.fcopy +++| CLF1 READ P,R 00376 M00S00337.fcopy +++| CLF2 READW P,WBUF,WBUFL COPY TO WORKING BUFFER 00377 M00S00338.fcopy +++| BX6 X1 SAVE STATUS 00378 M00S00339.fcopy +++| SA6 CLFS 00379 M00S00340.fcopy +++| SB7 B6-WBUF PRESET WTW PARAMETERS 00380 M00S00341.fcopy +++| SB6 WBUF 00381 M00S00342.fcopy +++| SX2 N 00382 M00S00343.fcopy +++| RJ =XWTW= EMPTY WORKING FILE TO NEW FILE 00383 M00S00344.fcopy +++| SA1 CLFS GET READ STATUS 00384 M00S00345.fcopy +++| NG X1,CLF4 IF EOF/EOI 00385 M00S00346.fcopy +++| ZR X1,CLF2 IF NOT EOR 00386 M00S00347.fcopy +++| WRITER N,R 00387 M00S00348.fcopy +++| EQ CLF1 CONTINUE COPY 00388 M00S00349.fcopy +++| 00389 M00S00350.fcopy +++| CLF4 SX1 X1+1 00390 M00S00351.fcopy +++| NG X1,CLFX IF EOI 00391 M00S00352.fcopy +++| WRITEF N,R 00392 M00S00353.fcopy +++| EQ CLF1 CONTINUE COPY 00393 M00S00354.fcopy +++| 00394 M00S00355.fcopy +++| CLFS CON 0 READ STATUS 00395 M00S00356.fcopy +++| FBH SPACE 4,15 00396 M00S00357.fcopy +++|** FBH - FORM BLOCK HEADER WORD. 00397 M00S00358.fcopy +++|* 00398 M00S00359.fcopy +++|* FORMS THE BLOCK HEADER WORD NEEDED FOR STRANGER TAPE OUTPUT. 00399 M00S00360.fcopy +++|* 00400 M00S00361.fcopy +++|* ENTRY (X1) = OUTPUT LINE CHARACTER COUNT. 00401 M00S00362.fcopy +++|* (X2) = LINES IN BLOCK. 00402 M00S00363.fcopy +++|* (B7) = BITS PER CHARACTER. 00403 M00S00364.fcopy +++|* 00404 M00S00365.fcopy +++|* EXIT (X6) = BLOCK HEADER WORD. 00405 M00S00366.fcopy +++|* 00406 M00S00367.fcopy +++|* USES X - 1, 2, 3, 4, 5, 6. 00407 M00S00368.fcopy +++|* A - NONE. 00408 M00S00369.fcopy +++|* B - B7. 00409 M00S00370.fcopy +++| 00410 M00S00371.fcopy +++| 00411 M00S00372.fcopy +++| FBH SUBR ENTRY/EXIT 00412 M00S00373.fcopy +++| IX3 X1*X2 COMPUTE CHARACTERS IN BLOCK 00413 M00S00374.fcopy +++| SX4 B7+ 00414 M00S00375.fcopy +++| IX3 X3*X4 BITS IN BLOCK 00415 M00S00376.fcopy +++| SX5 60D 00416 M00S00377.fcopy +++| BX4 X3 00417 M00S00378.fcopy +++| BX6 X5 00418 M00S00379.fcopy +++| IX1 X4/X6 CYBER WORDS IN BLOCK, TRUNCATED 00419 M00S00380.fcopy +++| IX2 X1*X5 CYBER BITS 00420 M00S00381.fcopy +++| IX6 X3-X2 BITS USED IN LAST WORD 00421 M00S00382.fcopy +++| ZR X6,FBH1 IF NO UNUSED BITS 00422 M00S00383.fcopy +++| IX6 X5-X6 UNUSED BIT COUNT 00423 M00S00384.fcopy +++| SX1 X1+B1 ROUND UP WORD COUNT 00424 M00S00385.fcopy +++| LX6 24 00425 M00S00386.fcopy +++| FBH1 BX6 X6+X1 FORM BLOCK HEADER WORD 00426 M00S00387.fcopy +++| EQ FBHX RETURN 00427 M00S00388.fcopy +++| SPACE 4,20 00428 M00S00389.fcopy +++|** GCH - GET CHARACTER. 00429 M00S00390.fcopy +++|* 00430 M00S00391.fcopy +++|* ENTRY (B2) = CURRENT POSITION IN INPUT WORD. 00431 M00S00392.fcopy +++|* (B4) = INPUT CHARACTER LENGTH. 00432 M00S00393.fcopy +++|* (IWRD) = CURRENT INPUT WORD. 00433 M00S00394.fcopy +++|* (RAHD) = READ AHEAD CHARACTER. 00434 M00S00395.fcopy +++|* = -1 IF NONE. 00435 M00S00396.fcopy +++|* 00436 M00S00397.fcopy +++|* EXIT (X2) = CHARACTER TO PROCESS. 00437 M00S00398.fcopy +++|* (B2) = NEW POSITION IN INPUT WORD. 00438 M00S00399.fcopy +++|* (RAHD) = NEW READ AHEAD CHARACTER. 00439 M00S00400.fcopy +++|* = -1 IF NONE. 00440 M00S00401.fcopy +++|* IN FILES NOT USING THE ZERO BYTE LINE TERMINATOR, 00441 M00S00402.fcopy +++|* ZERO CHARACTERS OCCURRING BETWEEN AN EOR, EOF OR EOI 00442 M00S00403.fcopy +++|* AND THE LAST LINE TERMINATOR PRECEDING IT ARE IGNORED. 00443 M00S00404.fcopy +++|* 00444 M00S00405.fcopy +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 00445 M00S00406.fcopy +++|* A - 1, 2, 3, 6, 7. 00446 M00S00407.fcopy +++|* B - 2, 6, 7. 00447 M00S00408.fcopy +++|* 00448 M00S00409.fcopy +++|* CALLS PCH, RCH, TCH. 00449 M00S00410.fcopy +++| 00450 M00S00411.fcopy +++| 00451 M00S00412.fcopy +++| GCH SUBR ENTRY/EXIT 00452 M00S00413.fcopy +++| SA2 RAHD GET READ AHEAD WORD 00453 M00S00414.fcopy +++| SX6 -B1 CLEAR READ AHEAD 00454 M00S00415.fcopy +++| SA6 A2 00455 M00S00416.fcopy +++| PL X2,GCHX IF CHARACTER ALREADY READ 00456 M00S00417.fcopy +++| RJ RCH READ CHARACTER 00457 M00S00418.fcopy +++| NZ X2,GCHX IF NOT ZERO CHARACTER 00458 M00S00419.fcopy +++| SA1 IWRD GET INPUT WORD 00459 M00S00420.fcopy +++| NZ X1,GCHX IF MORE CHARACTERS IN WORD 00460 M00S00421.fcopy +++| SA3 PL GET INPUT LINE TERMINATOR 00461 M00S00422.fcopy +++| SX3 X3-ZBCH 00462 M00S00423.fcopy +++| NZ X3,GCH3 IF INPUT LINE TERMINATOR NOT ZERO BYTE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | fcop2 |
Seq # *Modification Id* Act ----------------------------+ 00463 M01S00001.fcop2 +++| SA1 INDX GET INDEX 00464 M01S00002.fcop2 +++| NZ X1,GCHX IF UNCOMPLETED DOUBLE LENGTH CHARACTER 00465 M00S00424.fcopy +++| 00466 M00S00425.fcopy +++|* CHECK FOR ZERO BYTE. 00467 M00S00426.fcopy +++| 00468 M00S00427.fcopy +++| SB7 B2+B4 00469 M00S00428.fcopy +++| SB6 12D 00470 M00S00429.fcopy +++| LT B7,B6,GCH1 IF NO ROOM FOR ZERO BYTE 00471 M00S00430.fcopy +++| SX2 ZBCH SET ZERO BYTE CHARACTER 00472 M00S00431.fcopy +++| SB2 B0+ SET CURRENT INPUT WORD EMPTY 00473 M00S00432.fcopy +++| EQ GCHX RETURN 00474 M00S00433.fcopy +++| 00475 M00S00434.fcopy +++| GCH1 RJ RCH READ NEXT CHARACTER 00476 M00S00435.fcopy +++| SA1 IWRD GET NEW INPUT WORD 00477 M00S00436.fcopy +++| NZ X2,GCH2 IF NOT ZERO CHARACTER 00478 M00S00437.fcopy +++| NZ X1,GCH2 IF NOT ZERO BYTE 00479 M00S00438.fcopy +++| SX2 ZBCH SET ZERO BYTE CHARACTER 00480 M00S00439.fcopy +++| SB2 B0+ INPUT WORD IS EMPTY 00481 M00S00440.fcopy +++| EQ GCHX RETURN 00482 M00S00441.fcopy +++| 00483 M00S00442.fcopy +++| GCH2 SX6 X2 SET READ AHEAD CHARACTER 00484 M00S00443.fcopy +++| SA6 RAHD 00485 M00S00444.fcopy +++| BX2 X2-X2 RESET CHARACTER TO ZERO 00486 M00S00445.fcopy +++| EQ GCHX RETURN 00487 M00S00446.fcopy +++| 00488 M00S00447.fcopy +++|* CHECK FOR EXTRANEOUS ZERO CHARACTERS. 00489 M00S00448.fcopy +++| 00490 M00S00449.fcopy +++| GCH3 SX5 B2 COMPUTE NUMBER OF CHARACTERS LEFT IN WORD 00491 M00S00450.fcopy +++| SX4 B4 00492 M00S00451.fcopy +++| IX6 X5/X4 00493 M00S00452.fcopy +++| SX4 B4 00494 M00S00453.fcopy +++| IX4 X4*X6 COMPUTE LEFTOVER BITS 00495 M00S00454.fcopy +++| SX6 X6+1 00496 M00S00455.fcopy +++| IX5 X5-X4 00497 M00S00456.fcopy +++| SA6 GCHA 00498 M00S00457.fcopy +++| SB2 X5 00499 M00S00458.fcopy +++| RJ RCH READ NEXT CHARACTER FROM NEW WORD 00500 M00S00459.fcopy +++| SX4 X2-EOIC-1 00501 M00S00460.fcopy +++| SX5 X2-EORC 00502 M00S00461.fcopy +++| PL X4,GCH4 IF NOT EOR, EOF, OR EOI 00503 M00S00462.fcopy +++| PL X5,GCHX IF CHARACTER IS EOR, EOF OR EOI 00504 M00S00463.fcopy +++| GCH4 SX6 X2 SAVE CHARACTER 00505 M00S00464.fcopy +++| SA6 GCHB 00506 M00S00465.fcopy +++| GCH5 SA1 GCHA CHECK ZERO CHARACTER COUNT 00507 M00S00466.fcopy +++| SX7 X1-1 DECREMENT CHARACTER COUNT 00508 M00S00467.fcopy +++| NG X7,GCH6 IF NO MORE ZERO CHARACTERS TO PROCESS 00509 M00S00468.fcopy +++| BX2 X2-X2 00510 M00S00469.fcopy +++| SA7 GCHA SAVE COUNT 00511 M00S00470.fcopy +++| RJ TCH TRANSLATE ZERO CHARACTER 00512 M00S00471.fcopy +++| NG X2,GCH5 IF CHARACTER IS TO BE IGNORED 00513 M00S00472.fcopy +++| RJ PCH OUTPUT CHARACTER 00514 M00S00473.fcopy +++| EQ GCH5 CONTINUE 00515 M00S00474.fcopy +++| 00516 M00S00475.fcopy +++| GCH6 SA2 GCHB RESTORE FINAL CHARACTER 00517 M00S00476.fcopy +++| EQ GCHX RETURN 00518 M00S00477.fcopy +++| 00519 M00S00478.fcopy +++| 00520 M00S00479.fcopy +++| GCHA CON 0 ZERO CHARACTER COUNT 00521 M00S00480.fcopy +++| GCHB CON 0 TEMPORARY CHARACTER STORAGE 00522 M00S00481.fcopy +++| PCH SPACE 4,20 00523 M00S00482.fcopy +++|** PCH - OUTPUT CHARACTER. 00524 M00S00483.fcopy +++|* 00525 M00S00484.fcopy +++|* ENTRY (X2) = CHARACTER TO WRITE. 00526 M00S00485.fcopy +++|* (B3) = CURRENT POSITION IN OUTPUT WORD. 00527 M00S00486.fcopy +++|* (B5) = OUTPUT CHARACTER LENGTH. 00528 M00S00487.fcopy +++|* (X6) = CHARACTER COUNT. 00529 M00S00488.fcopy +++|* 00530 M00S00489.fcopy +++|* EXIT (B3) = NEW POSITION IN OUTPUT WORD. 00531 M00S00490.fcopy +++|* (CLNF) = 1 IF CHARACTER WRITTEN WAS A 00532 M00S00491.fcopy +++|* 6 BIT DISPLAY CODE COLON. 00533 M00S00492.fcopy +++|* (ENDF) = 1 IF EOI DETECTED. 00534 M00S00493.fcopy +++|* 00535 M00S00494.fcopy +++|* USES X - 1, 2, 3, 5, 6, 7. 00536 M00S00495.fcopy +++|* A - 1, 3, 7. 00537 M00S00496.fcopy +++|* B - 6, 7. 00538 M00S00497.fcopy +++|* 00539 M00S00498.fcopy +++|* CALLS GCH, WCH, WTB, WZB. 00540 M00S00499.fcopy +++|* 00541 M00S00500.fcopy +++|* MACROS WRITEO. 00542 M00S00501.fcopy +++| 00543 M00S00502.fcopy +++| 00544 M00S00503.fcopy +++| PCH SUBR ENTRY/EXIT 00545 M00S00504.fcopy +++| SX3 B5 SET BIT COUNT 00546 M00S00505.fcopy +++| IX6 X3*X6 00547 M00S00506.fcopy +++| SA1 NL CHECK FOR EOL 00548 M00S00507.fcopy +++| SB7 X6 00549 M00S00508.fcopy +++| BX1 X1-X2 00550 M00S00509.fcopy +++| SA3 STPO 00551 M00S00510.fcopy +++| NZ X1,PCH3 IF NOT EOL 00552 M00S00511.fcopy +++| SA1 LINE INCREMENT LINE COUNT 00553 M00S00512.fcopy +++| SX7 X1+B1 00554 M00S00513.fcopy +++| SA7 A1 00555 M00S00514.fcopy +++| NZ X3,PCH7 IF OUTPUT FILE IS STRANGER TAPE 00556 M00S00515.fcopy +++| 00557 M00S00516.fcopy +++|* PROCESS DISPLAY CODE COLON. 00558 M00S00517.fcopy +++| 00559 M00S00518.fcopy +++| PCH1 SX5 X2-ZBCH 00560 M00S00519.fcopy +++| SA3 CLNF GET COLON FLAG 00561 M00S00520.fcopy +++| NZ X5,PCH3 IF NOT ZERO BYTE EOL 00562 M00S00521.fcopy +++| ZR X3,PCH2 IF COLON FLAG NOT SET 00563 M00S00522.fcopy +++| SX2 BLNK SET BLANK TO GUARD COLON 00564 M00S00523.fcopy +++| RJ WCH WRITE BLANK CHARACTER 00565 M00S00524.fcopy +++| BX7 X7-X7 CLEAR COLON FLAG 00566 M00S00525.fcopy +++| SA7 CLNF 00567 M00S00526.fcopy +++| PCH2 RJ WZB WRITE ZERO BYTE 00568 M00S00527.fcopy +++| EQ PCHX RETURN 00569 M00S00528.fcopy +++| 00570 M00S00529.fcopy +++|* WRITE CHARACTER. 00571 M00S00530.fcopy +++| 00572 M00S00531.fcopy +++| PCH3 BX7 X7-X7 CLEAR COLON FLAG 00573 M00S00532.fcopy +++| SB6 6 00574 M00S00533.fcopy +++| NZ X2,PCH4 IF NOT ZERO CHARACTER 00575 M00S00534.fcopy +++| NE B6,B7,PCH4 IF ZERO CHARACTER NOT 6 BIT COLON 00576 M00S00535.fcopy +++| SX7 B1+ SET COLON FLAG 00577 M00S00536.fcopy +++| PCH4 SA7 CLNF SAVE COLON FLAG 00578 M00S00537.fcopy +++| ZR X3,PCH5 IF OUTPUT FILE IS NOT STRANGER TAPE 00579 M00S00538.fcopy +++| SA3 OLCC 00580 M00S00539.fcopy +++| ZR X3,PCH6 IF RECORD (LINE) FULL 00581 M00S00540.fcopy +++| SX7 X3-1 DECREMENT OUTPUT LINE CHARACTER COUNT 00582 M00S00541.fcopy +++| SA7 A3 00583 M00S00542.fcopy +++| PCH5 RJ WCH WRITE CHARACTER 00584 M00S00543.fcopy +++| SA1 STPO 00585 M00S00544.fcopy +++| ZR X1,PCHX IF OUTPUT FILE NOT STRANGER TAPE, RETURN 00586 M00S00545.fcopy +++| SA1 ENDF 00587 M00S00546.fcopy +++| ZR X1,PCHX IF NOT EOI 00588 M00S00547.fcopy +++| RJ WTB WRITE TAPE BLOCK 00589 M00S00548.fcopy +++| EQ PCHX RETURN 00590 M00S00549.fcopy +++| 00591 M00S00550.fcopy +++|* TRUNCATE LONG LINE. 00592 M00S00551.fcopy +++| 00593 M00S00552.fcopy +++| PCH6 RJ GCH READ NEXT INPUT FILE CHARACTER 00594 M00S00553.fcopy +++| SA1 PL CHECK FOR LINE TERMINATOR 00595 M00S00554.fcopy +++| BX1 X2-X1 00596 M00S00555.fcopy +++| NZ X1,PCH6 IF NOT LINE TERMINATOR 00597 M00S00556.fcopy +++| SA1 TRNC INCREMENT TRUNCATION COUNT 00598 M00S00557.fcopy +++| SX6 X1+B1 00599 M00S00558.fcopy +++| SA6 A1 00600 M00S00559.fcopy +++| EQ PCH8 START A NEW LINE 00601 M00S00560.fcopy +++| 00602 M00S00561.fcopy +++|* BLANK FILL REMAINDER OF A SHORT LINE. 00603 M00S00562.fcopy +++| 00604 M00S00563.fcopy +++| PCH7 SA3 OLCC CHECK CHARACTER COUNT 00605 M00S00564.fcopy +++| ZR X3,PCH8 IF NO MORE ROOM IN LINE 00606 M00S00565.fcopy +++| SX7 X3-1 DECREMENT CHARACTER COUNT 00607 M00S00566.fcopy +++| SA2 SPAC ADD ANOTHER BLANK TO LINE 00608 M00S00567.fcopy +++| SB7 B5 00609 M00S00568.fcopy +++| SA7 A3 00610 M00S00569.fcopy +++| RJ WCH 00611 M00S00570.fcopy +++| EQ PCH7 CHECK IF LINE IS FULL 00612 M00S00571.fcopy +++| 00613 M00S00572.fcopy +++| PCH8 SA1 FL RESET OUTPUT LINE CHARACTER COUNT 00614 M00S00573.fcopy +++| BX6 X1 00615 M00S00574.fcopy +++| SA6 OLCC 00616 M00S00575.fcopy +++| SA1 OLCT DECREMENT OUTPUT LINE COUNT 00617 M00S00576.fcopy +++| SX7 X1-1 00618 M00S00577.fcopy +++| SA7 A1 00619 M00S00578.fcopy +++| NZ X7,PCHX IF NOT END OF BLOCK, RETURN 00620 M00S00579.fcopy +++| 00621 M00S00580.fcopy +++|* WRITE CURRENT STRANGER TAPE BLOCK. 00622 M00S00581.fcopy +++| 00623 M00S00582.fcopy +++| SA3 OWRD WRITE LAST WORD OF BLOCK 00624 M00S00583.fcopy +++| BX7 X7-X7 CLEAR OUTPUT WORD 00625 M00S00584.fcopy +++| BX6 X3 00626 M00S00585.fcopy +++| SA7 A3 00627 M00S00586.fcopy +++| WRITEO N 00628 M00S00587.fcopy +++| SB3 60D RESET OUTPUT WORD POINTER 00629 M00S00588.fcopy +++| RJ WTB WRITE STRANGER TAPE BLOCK 00630 M00S00589.fcopy +++| EQ PCHX RETURN 00631 M00S00590.fcopy +++| PFE SPACE 4,20 00632 M00S00591.fcopy +++|** PFE - PRINT FINAL ERROR MESSAGES. 00633 M00S00592.fcopy +++|* 00634 M00S00593.fcopy +++|* ENTRY (ERCT) = TRANSLATION ERROR COUNT. 00635 M00S00594.fcopy +++|* (ERLM) = TRANSLATION ERROR LIMIT. 00636 M00S00595.fcopy +++|* (TRNC) = TRUNCATED LINE COUNT. 00637 M00S00596.fcopy +++|* 00638 M00S00597.fcopy +++|* EXIT (X5) = ADDRESS OF TERMINATION MESSAGE. 00639 M00S00598.fcopy +++|* ERROR MESSAGES PRINTED, IF APPROPRIATE. 00640 M00S00599.fcopy +++|* 00641 M00S00600.fcopy +++|* USES X - 0, 1, 2, 5, 6. 00642 M00S00601.fcopy +++|* A - 1, 2, 6. 00643 M00S00602.fcopy +++|* B - 5. 00644 M00S00603.fcopy +++|* 00645 M00S00604.fcopy +++|* CALLS CDD. 00646 M00S00605.fcopy +++|* 00647 M00S00606.fcopy +++|* MACROS MESSAGE. 00648 M00S00607.fcopy +++| 00649 M00S00608.fcopy +++| 00650 M00S00609.fcopy +++| PFE SUBR ENTRY/EXIT 00651 M00S00610.fcopy +++| 00652 M00S00611.fcopy +++|* PROCESS LINE TRUNCATION COUNT. 00653 M00S00612.fcopy +++| 00654 M00S00613.fcopy +++| SX5 MSGA SET NORMAL TERMINATION MESSAGE 00655 M00S00614.fcopy +++| SA1 TRNC 00656 M00S00615.fcopy +++| SB5 X1 00657 M00S00616.fcopy +++| ZR X1,PFE2 IF NO LINES TRUNCATED 00658 M00S00617.fcopy +++| SX5 MSGE SET ABNORMAL TERMINATION MESSAGE 00659 M00S00618.fcopy +++| NE B5,B1,PFE0 IF MORE THAN ONE LINE TRUNCATED 00660 M00S00619.fcopy +++| SX2 MSGG 00661 M00S00620.fcopy +++| EQ PFE1 PRINT ERROR MESSAGE 00662 M00S00621.fcopy +++| 00663 M00S00622.fcopy +++| PFE0 RJ CDD CONVERT TRUNCATION COUNT TO DISPLAY 00664 M00S00623.fcopy +++| MX0 -18 00665 M00S00624.fcopy +++| SA1 MSGF 00666 M00S00625.fcopy +++| SX2 A1 00667 M00S00626.fcopy +++| LX6 18 POSITION COUNT FOR MESSAGE 00668 M00S00627.fcopy +++| BX1 -X0*X1 CLEAR PLACE FOR COUNT 00669 M00S00628.fcopy +++| BX6 X0*X6 REMOVE EXTRANEOUS BLANKS 00670 M00S00629.fcopy +++| BX6 X1+X6 SET COUNT IN MESSAGE 00671 M00S00630.fcopy +++| SA6 A1+ 00672 M00S00631.fcopy +++| PFE1 MESSAGE X2,3 * XXXXXX LINES TRUNCATED.* 00673 M00S00632.fcopy +++| 00674 M00S00633.fcopy +++|* PROCESS TRANSLATION ERROR COUNT. 00675 M00S00634.fcopy +++| 00676 M00S00635.fcopy +++| PFE2 SA2 ERCT GET ERROR COUNT 00677 M00S00636.fcopy +++| SA1 ERLM GET ERROR LIMIT 00678 M00S00637.fcopy +++| IX1 X2-X1 00679 M00S00638.fcopy +++| ZR X2,PFEX IF NO TRANSLATION ERRORS, RETURN 00680 M00S00639.fcopy +++| SX5 MSGE SET ABNORMAL TERMINATION MESSAGE 00681 M00S00640.fcopy +++| NG X1,PFEX IF ERROR LIMIT NOT REACHED 00682 M00S00641.fcopy +++| RJ CDD CONVERT EXCESS ERROR COUNT TO DISPLAY 00683 M00S00642.fcopy +++| SA1 MSGD+1 00684 M00S00643.fcopy +++| MX0 -36 00685 M00S00644.fcopy +++| BX1 X0*X1 CLEAR SPACE FOR COUNT 00686 M00S00645.fcopy +++| BX6 -X0*X6 REMOVE EXTRA BLANKS 00687 M00S00646.fcopy +++| BX6 X1+X6 SET COUNT IN MESSAGE 00688 M00S00647.fcopy +++| SA6 A1+ 00689 M00S00648.fcopy +++| MESSAGE MSGD,3 * ERROR LIMIT. ...* 00690 M00S00649.fcopy +++| EQ PFEX RETURN 00691 M00S00650.fcopy +++| SPACE 4,15 00692 M00S00651.fcopy +++|** PTE - PROCESS TRANSLATION ERROR. 00693 M00S00652.fcopy +++|* 00694 M00S00653.fcopy +++|* ENTRY (X2) = CHARACTER CODE, RIGHT JUSTIFIED. 00695 M00S00654.fcopy +++|* (X5) = INDEX VALUE FOR 6/12 CHARACTERS. 00696 M00S00655.fcopy +++|* 00697 M00S00656.fcopy +++|* USES X - 0, 1, 3, 4, 5, 6. 00698 M00S00657.fcopy +++|* A - 1, 3, 5, 6. 00699 M00S00658.fcopy +++|* B - 6, 7. 00700 M00S00659.fcopy +++|* 00701 M00S00660.fcopy +++|* CALLS CDD, COD. 00702 M00S00661.fcopy +++|* 00703 M00S00662.fcopy +++|* MACROS MESSAGE. 00704 M00S00663.fcopy +++| 00705 M00S00664.fcopy +++| 00706 M00S00665.fcopy +++| PTE SUBR ENTRY/EXIT 00707 M00S00666.fcopy +++| SA1 ERCT GET ERROR COUNT 00708 M00S00667.fcopy +++| SA3 ERLM GET ERROR LIMIT 00709 M00S00668.fcopy +++| SX6 X1+B1 INCREMENT ERROR COUNT 00710 M00S00669.fcopy +++| SA6 A1+ 00711 M00S00670.fcopy +++| IX6 X3-X6 00712 M00S00671.fcopy +++| NG X6,PTEX IF ERROR LIMIT EXCEEDED, RETURN 00713 M00S00672.fcopy +++| SX6 B4 SAVE (B) REGISTERS 00714 M00S00673.fcopy +++| SB6 B2 00715 M00S00674.fcopy +++| SB7 B3 00716 M00S00675.fcopy +++| SA6 PTEA 00717 M00S00676.fcopy +++| MX0 -24 00718 M00S00677.fcopy +++| 00719 M00S00678.fcopy +++|* PUT CHARACTER CODE IN MESSAGE. 00720 M00S00679.fcopy +++| 00721 M00S00680.fcopy +++| SX4 X5-200B 00722 M00S00681.fcopy +++| SX6 X5-300B 00723 M00S00682.fcopy +++| NZ X4,PTE1 IF NOT 12 BIT 6/12 CHAR STARTING WITH 74 00724 M00S00683.fcopy +++| SX5 7400B 00725 M00S00684.fcopy +++| PTE1 NZ X6,PTE2 IF NOT 12 BIT 6/12 CHAR STARTING WITH 76 00726 M00S00685.fcopy +++| SX5 7600B 00727 M00S00686.fcopy +++| PTE2 IX1 X2+X5 FORM FULL 12 BIT CHARACTER 00728 M00S00687.fcopy +++| SA5 MSGC+1 00729 M00S00688.fcopy +++| RJ COD CONVERT CODE TO DISPLAY 00730 M00S00689.fcopy +++| BX6 -X0*X6 00731 M00S00690.fcopy +++| LX0 12 00732 M00S00691.fcopy +++| LX6 12 00733 M00S00692.fcopy +++| BX5 X0*X5 CLEAR SPACE FOR CODE 00734 M00S00693.fcopy +++| BX6 X5+X6 PUT CODE IN MESSAGE 00735 M00S00694.fcopy +++| SA5 MSGC+2 00736 M00S00695.fcopy +++| SA6 MSGC+1 00737 M00S00696.fcopy +++| 00738 M00S00697.fcopy +++|* PUT FILE NUMBER IN MESSAGE. 00739 M00S00698.fcopy +++| 00740 M00S00699.fcopy +++| SA1 FILE GET FILE NUMBER 00741 M00S00700.fcopy +++| MX0 -24 00742 M00S00701.fcopy +++| RJ CDD CONVERT FILE NUMBER TO DISPLAY 00743 M00S00702.fcopy +++| BX6 -X0*X6 00744 M00S00703.fcopy +++| BX5 X0*X5 CLEAR PLACE FOR FILE NUMBER 00745 M00S00704.fcopy +++| BX6 X5+X6 SET FILE NUMBER IN MESSAGE 00746 M00S00705.fcopy +++| SA5 MSGC+4 00747 M00S00706.fcopy +++| SA6 MSGC+2 00748 M00S00707.fcopy +++| 00749 M00S00708.fcopy +++|* PUT RECORD NUMBER IN MESSAGE. 00750 M00S00709.fcopy +++| 00751 M00S00710.fcopy +++| SA1 RCRD GET RECORD NUMBER 00752 M00S00711.fcopy +++| RJ CDD CONVERT RECORD NUMBER TO DISPLAY 00753 M00S00712.fcopy +++| BX6 -X0*X6 00754 M00S00713.fcopy +++| MX0 -36 00755 M00S00714.fcopy +++| LX6 36D POSITION RECORD NUMBER 00756 M00S00715.fcopy +++| BX5 -X0*X5 CLEAR PLACE FOR RECORD NUMBER 00757 M00S00716.fcopy +++| BX6 X6+X5 SET RECORD NUMBER IN MESSAGE 00758 M00S00717.fcopy +++| SA5 MSGC+5 00759 M00S00718.fcopy +++| SA6 MSGC+4 00760 M00S00719.fcopy +++| 00761 M00S00720.fcopy +++|* PUT LINE NUMBER IN MESSAGE. 00762 M00S00721.fcopy +++| 00763 M00S00722.fcopy +++| SA1 LINE GET LINE NUMBER 00764 M00S00723.fcopy +++| RJ CDD CONVERT LINE NUMBER TO DISPLAY 00765 M00S00724.fcopy +++| BX6 -X0*X6 REMOVE EXTRA BLANKS 00766 M00S00725.fcopy +++| LX0 12 00767 M00S00726.fcopy +++| LX6 12 00768 M00S00727.fcopy +++| BX5 X0*X5 CLEAR POSITION FOR LINE NUMBER 00769 M00S00728.fcopy +++| BX6 X5+X6 SET LINE NUMBER IN MESSAGE 00770 M00S00729.fcopy +++| SA6 MSGC+5 00771 M00S00730.fcopy +++| 00772 M00S00731.fcopy +++|* WRITE MESSAGE TO DAYFILE. 00773 M00S00732.fcopy +++| 00774 M00S00733.fcopy +++| MESSAGE MSGC,3 * UNKNOWN CODE CCCC, FILE XXXX,... * 00775 M00S00734.fcopy +++| SA1 PTEA RESTORE SAVED (B) REGISTERS 00776 M00S00735.fcopy +++| SB2 B6 00777 M00S00736.fcopy +++| SB3 B7 00778 M00S00737.fcopy +++| SB4 X1+ 00779 M00S00738.fcopy +++| EQ PTEX RETURN 00780 M00S00739.fcopy +++| 00781 M00S00740.fcopy +++| PTEA DATA 0 B REGISTER STORAGE 00782 M00S00741.fcopy +++| SPACE 4,10 00783 M00S00742.fcopy +++|** RCH - READ CHARACTER. 00784 M00S00743.fcopy +++|* 00785 M00S00744.fcopy +++|* ENTRY (B2) = CURRENT POSITION IN INPUT WORD. 00786 M00S00745.fcopy +++|* (B4) = INPUT CHARACTER LENGTH. 00787 M00S00746.fcopy +++|* (IWRD) = CURRENT INPUT WORD. 00788 M00S00747.fcopy +++|* 00789 M00S00748.fcopy +++|* EXIT (X2) = CHARACTER READ, RIGHT JUSTIFIED. 00790 M00S00749.fcopy +++|* (B2) = NEW POSITION IN INPUT WORD. 00791 M00S00750.fcopy +++|* (IWRD) = CURRENT INPUT WORD. 00792 M00S00751.fcopy +++|* 00793 M00S00752.fcopy +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 00794 M00S00753.fcopy +++|* A - 1, 2, 3, 6, 7. 00795 M00S00754.fcopy +++|* B - 2, 6, 7. 00796 M00S00755.fcopy +++|* 00797 M00S00756.fcopy +++|* CALLS STB. 00798 M00S00757.fcopy +++|* 00799 M00S00758.fcopy +++|* MACROS READ, READO, RECALL. 00800 M00S00759.fcopy +++| 00801 M00S00760.fcopy +++| 00802 M00S00761.fcopy +++| RCH SUBR ENTRY/EXIT 00803 M00S00762.fcopy +++| SA3 STPI 00804 M00S00763.fcopy +++| ZR X3,RCH0 IF INPUT FILE NOT STRANGER TAPE 00805 M00S00764.fcopy +++| SA3 ILCC DECREMENT INPUT LINE CHARACTER COUNT 00806 M00S00765.fcopy +++| SX7 X3-1 00807 M00S00766.fcopy +++| SA7 A3+ 00808 M00S00767.fcopy +++| NZ X3,RCH0 IF NOT END OF LINE 00809 M00S00768.fcopy +++| SA1 FL RESET INPUT LINE CHARACTER COUNT 00810 M00S00769.fcopy +++| SA2 PL SET EOL CHARACTER 00811 M00S00770.fcopy +++| BX7 X1 00812 M00S00771.fcopy +++| SA7 A3 00813 M00S00772.fcopy +++| SA1 ILCT DECREMENT INPUT LINE COUNT 00814 M00S00773.fcopy +++| SX7 X1-1 00815 M00S00774.fcopy +++| ZR X7,RCH6 IF NO MORE ROOM IN BLOCK 00816 M00S00775.fcopy +++| SA7 A1+ 00817 M00S00776.fcopy +++| EQ RCHX RETURN 00818 M00S00777.fcopy +++| 00819 M00S00778.fcopy +++| RCH0 GT B4,B2,RCH1 IF NO WHOLE CHARACTERS LEFT IN WORD 00820 M00S00779.fcopy +++| MX0 1 BUILD MASK 00821 M00S00780.fcopy +++| SB7 B4-B1 00822 M00S00781.fcopy +++| SA1 IWRD GET INPUT WORD 00823 M00S00782.fcopy +++| AX0 B7 00824 M00S00783.fcopy +++| BX2 X0*X1 EXTRACT CHARACTER 00825 M00S00784.fcopy +++| BX6 -X0*X1 DELETE CHARACTER FROM INPUT WORD 00826 M00S00785.fcopy +++| LX2 B4 00827 M00S00786.fcopy +++| LX6 B4 00828 M00S00787.fcopy +++| SB2 B2-B4 00829 M00S00788.fcopy +++| SA6 A1+ SAVE INPUT WORD 00830 M00S00789.fcopy +++| EQ RCHX RETURN 00831 M00S00790.fcopy +++| 00832 M00S00791.fcopy +++| RCH1 SB6 B4 00833 M00S00792.fcopy +++| BX5 X5-X5 00834 M00S00793.fcopy +++| ZR B2,RCH2 IF INPUT WORD EMPTY 00835 M00S00794.fcopy +++| SA1 IWRD GET INPUT WORD 00836 M00S00795.fcopy +++| SB6 B4-B2 COMPUTE REMAINDER 00837 M00S00796.fcopy +++| LX5 X1,B4 SET PARTIAL CHARACTER 00838 M00S00797.fcopy +++| RCH2 READO P READ NEXT WORD 00839 M00S00798.fcopy +++| NZ X1,RCH3 IF EOR, EOF, OR EOI 00840 M00S00799.fcopy +++| MX0 1 BUILD MASK 00841 M00S00800.fcopy +++| SB7 B6-B1 00842 M00S00801.fcopy +++| AX0 B7 00843 M00S00802.fcopy +++| BX2 X0*X6 EXTRACT PARTIAL CHARACTER 00844 M00S00803.fcopy +++| BX6 -X0*X6 DELETE USED BITS 00845 M00S00804.fcopy +++| LX2 B6 00846 M00S00805.fcopy +++| LX6 B6 00847 M00S00806.fcopy +++| BX2 X5+X2 00848 M00S00807.fcopy +++| SB2 60D RESET CURRENT POSTION 00849 M00S00808.fcopy +++| SA6 IWRD SAVE INPUT WORD 00850 M00S00809.fcopy +++| SB2 B2-B6 00851 M00S00810.fcopy +++| EQ RCHX RETURN 00852 M00S00811.fcopy +++| 00853 M00S00812.fcopy +++| RCH3 SA2 STPI 00854 M00S00813.fcopy +++| NZ X2,RCH5 IF INPUT FILE ON STRANGER TAPE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | fcopy11 |
Seq # *Modification Id* Act ----------------------------+ 00855 M01S00001.fcopy11 +++| SA2 STPO 00856 M00S00814.fcopy +++| NG X1,RCH4 IF EOF OR EOI
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | fcopy11 |
Seq # *Modification Id* Act ----------------------------+ 00857 M01S00002.fcopy11 +++| NZ X2,RCH3.1 IF OUTPUT FILE ON STRANGER TAPE 00858 M00S00815.fcopy +++| READ P,R 00859 M00S00816.fcopy +++| RECALL N,R
| Line S00817 Modification History | |
|---|---|
M01 (Removed by) | fcopy11 |
Seq # *Modification Id* Act ----------------------------+ 00860 M01S00817.fcopy11 ---| SX2 EORC SET EOR CHARACTER
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | fcopy11 |
Seq # *Modification Id* Act ----------------------------+ 00861 M01S00003.fcopy11 +++| RCH3.1 SX2 EORC SET EOR CHARACTER 00862 M00S00818.fcopy +++| SB2 B0+ SET CURRENT INPUT WORD EMPTY 00863 M00S00819.fcopy +++| EQ RCHX RETURN 00864 M00S00820.fcopy +++| 00865 M00S00821.fcopy +++| RCH4 SX1 X1+1 00866 M00S00822.fcopy +++| NG X1,RCH5 IF EOI
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | fcopy11 |
Seq # *Modification Id* Act ----------------------------+ 00867 M01S00004.fcopy11 +++| NZ X2,RCH4.1 IF OUTPUT FILE ON STRANGER TAPE 00868 M00S00823.fcopy +++| READ P,R 00869 M00S00824.fcopy +++| RECALL N,R
| Line S00825 Modification History | |
|---|---|
M01 (Removed by) | fcopy11 |
Seq # *Modification Id* Act ----------------------------+ 00870 M01S00825.fcopy11 ---| SX2 EOFC SET EOF CHARACTER
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | fcopy11 |
Seq # *Modification Id* Act ----------------------------+ 00871 M01S00005.fcopy11 +++| RCH4.1 SX2 EOFC SET EOF CHARACTER 00872 M00S00826.fcopy +++| SB2 B0+ SET CURRENT INPUT WORD EMPTY 00873 M00S00827.fcopy +++| EQ RCHX RETURN 00874 M00S00828.fcopy +++| 00875 M00S00829.fcopy +++| RCH5 SX2 EOIC SET EOI CHARACTER 00876 M00S00830.fcopy +++| EQ RCHX RETURN 00877 M00S00831.fcopy +++| 00878 M00S00832.fcopy +++| RCH6 RJ STB START NEW STRANGER TAPE BLOCK 00879 M00S00833.fcopy +++| SA2 PL SET LINE TERMINATOR AS OUTPUT CHARACTER 00880 M00S00834.fcopy +++| ZR X1,RCHX IF NOT EOI 00881 M00S00835.fcopy +++| SX7 EOIC SET EOI AS NEXT CHARACTER READ 00882 M00S00836.fcopy +++| SA7 RAHD 00883 M00S00837.fcopy +++| EQ RCHX RETURN 00884 M00S00838.fcopy +++| SPACE 4,20 00885 M00S00839.fcopy +++|** STB - START STRANGER TAPE BLOCK. 00886 M00S00840.fcopy +++|* 00887 M00S00841.fcopy +++|* ENTRY (IBHW) = INPUT BLOCK HEADER WORD FOR FULL BLOCK. 00888 M00S00842.fcopy +++|* (FL) = FIXED LENGTH LINE LENGTH. 00889 M00S00843.fcopy +++|* (LB) = LINES PER BLOCK. 00890 M00S00844.fcopy +++|* 00891 M00S00845.fcopy +++|* EXIT (X1) = NONZERO IF EOI REACHED. 00892 M00S00846.fcopy +++|* NEW BLOCK STARTED IF NOT EOI. 00893 M00S00847.fcopy +++|* (ILCC) RESET FOR NEW LINE. 00894 M00S00848.fcopy +++|* (ILCT) RESET FOR NEW BLOCK. 00895 M00S00849.fcopy +++|* 00896 M00S00850.fcopy +++|* USES X - 0, 1, 3, 6, 7. 00897 M00S00851.fcopy +++|* A - 1, 3, 7. 00898 M00S00852.fcopy +++|* B - 2, 7. 00899 M00S00853.fcopy +++|* 00900 M00S00854.fcopy +++|* MACROS READN, READO, RECALL. 00901 M00S00855.fcopy +++| 00902 M00S00856.fcopy +++| 00903 M00S00857.fcopy +++| STB SUBR ENTRY/EXIT 00904 M00S00858.fcopy +++| STB1 READO P READ BLOCK HEADER WORD 00905 M00S00859.fcopy +++| SB7 X1 00906 M00S00860.fcopy +++| LT B7,B1,STB2 IF NEW READ DOES NOT NEED TO BE ISSUED 00907 M00S00861.fcopy +++| READN P,R READ TAPE 00908 M00S00862.fcopy +++| RECALL N,R 00909 M00S00863.fcopy +++| EQ STB1 GET HEADER WORD 00910 M00S00864.fcopy +++| 00911 M00S00865.fcopy +++| STB2 NZ X1,STBX IF END OF TAPE 00912 M00S00866.fcopy +++| SA1 IBHW 00913 M00S00867.fcopy +++| SA3 LB GET LINE COUNT FOR FULL TAPE BLOCK 00914 M00S00868.fcopy +++| IX1 X1-X6 00915 M00S00869.fcopy +++| BX7 X3 00916 M00S00870.fcopy +++| ZR X1,STB3 IF FULL SIZE BLOCK 00917 M00S00871.fcopy +++| SX3 X6+ NUMBER OF 60 BIT WORDS IN BLOCK 00918 M00S00872.fcopy +++| SX0 60D 00919 M00S00873.fcopy +++| AX6 24 UNUSED BIT COUNT 00920 M00S00874.fcopy +++| IX3 X3*X0 COMPUTE BITS IN BLOCK 00921 M00S00875.fcopy +++| SX1 B4+ 00922 M00S00876.fcopy +++| IX3 X3-X6 00923 M00S00877.fcopy +++| IX7 X3/X1 COMPUTE NUMBER OF CHARACTERS IN BLOCK 00924 M00S00878.fcopy +++| SA1 FL COMPUTE NUMBER OF LINES IN BLOCK 00925 M00S00879.fcopy +++| IX7 X7/X1 00926 M00S00880.fcopy +++| STB3 SA7 ILCT SAVE INPUT LINE COUNT 00927 M00S00881.fcopy +++| SA1 FL RESET INPUT CHARACTER COUNT 00928 M00S00882.fcopy +++| SB2 B0 SET TO START NEW INPUT WORD 00929 M00S00883.fcopy +++| BX7 X1 00930 M00S00884.fcopy +++| SA7 ILCC 00931 M00S00885.fcopy +++| SX1 B0+ SET EXIT CONDITION 00932 M00S00886.fcopy +++| EQ STBX RETURN 00933 M00S00887.fcopy +++| SPACE 4,20 00934 M00S00888.fcopy +++|** TCH - TRANSLATE CHARACTER. 00935 M00S00889.fcopy +++|* 00936 M00S00890.fcopy +++|* ENTRY (X2) = CHARACTER TO TRANSLATE. 00937 M00S00891.fcopy +++|* (A0) = CONVERSION TABLE FWA. 00938 M00S00892.fcopy +++|* 00939 M00S00893.fcopy +++|* EXIT (X2) = NEW CHARACTER(S), RIGHT JUSTIFIED. 00940 M00S00894.fcopy +++|* = -1 IF CHARACTER IS TO BE IGNORED. 00941 M00S00895.fcopy +++|* (X6) = CHARACTER COUNT. 00942 M00S00896.fcopy +++|* 00943 M00S00897.fcopy +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 00944 M00S00898.fcopy +++|* A - 1, 5, 6. 00945 M00S00899.fcopy +++|* B - 6, 7. 00946 M00S00900.fcopy +++|* 00947 M00S00901.fcopy +++|* CALLS PTE. 00948 M00S00902.fcopy +++|* 00949 M00S00903.fcopy +++|* MACROS ABORT, MESSAGE. 00950 M00S00904.fcopy +++| 00951 M00S00905.fcopy +++| 00952 M00S00906.fcopy +++| TCH SUBR ENTRY/EXIT 00953 M00S00907.fcopy +++| SA5 INDX GET INDEX 00954 M00S00908.fcopy +++| MX0 -9 00955 M00S00909.fcopy +++| BX2 -X0*X2 TRUNCATE TOP 3 BITS 00956 M00S00910.fcopy +++| BX6 X6-X6 CLEAR INDEX 00957 M00S00911.fcopy +++| SB7 X2 00958 M00S00912.fcopy +++| SA1 TCVTL GET TABLE LENGTH 00959 M00S00913.fcopy +++| SB6 X1 00960 M00S00914.fcopy +++| SA6 A5+ 00961 M00S00915.fcopy +++| SB7 B7+X5 COMPUTE ENTRY NUMBER 00962 M00S00916.fcopy +++| LE B7,B6,TCH1 IF ENTRY NEEDED IS WITHIN TABLE BOUNDS 00963 M00S00917.fcopy +++| SX2 B7+ 00964 M00S00918.fcopy +++| RJ PTE GENERATE ERROR 00965 M00S00919.fcopy +++| SX2 -B1 IGNORE CHARACTER 00966 M00S00920.fcopy +++| EQ TCHX RETURN 00967 M00S00921.fcopy +++| 00968 M00S00922.fcopy +++| TCH1 SA1 A0+B7 GET CONVERSION TABLE ENTRY 00969 M00S00923.fcopy +++| MX0 -36 EXTRACT DATA ITEM 00970 M00S00924.fcopy +++| BX4 -X0*X1 00971 M00S00925.fcopy +++| MX0 -3 00972 M00S00926.fcopy +++| LX1 59-53 00973 M00S00927.fcopy +++| BX6 -X0*X1 GET COUNT 00974 M00S00928.fcopy +++| MX0 -2 00975 M00S00929.fcopy +++| AX1 4 00976 M00S00930.fcopy +++| BX3 -X0*X1 EXTRACT OPTION 00977 M00S00931.fcopy +++| NZ X3,TCH3 IF NOT NORMAL CONVERSION 00978 M00S00932.fcopy +++| BX2 X4 SET NEW CHARACTER 00979 M00S00933.fcopy +++| EQ TCHX RETURN 00980 M00S00934.fcopy +++| 00981 M00S00935.fcopy +++| TCH3 SX3 X3-1 00982 M00S00936.fcopy +++| NZ X3,TCH5 IF NOT NO-CONVERSION OPTION 00983 M00S00937.fcopy +++| ZR X4,TCH4 IF NOT AN ERROR 00984 M00S00938.fcopy +++| RJ PTE PROCESS ERROR 00985 M00S00939.fcopy +++| TCH4 SX2 -B1 IGNORE CHARACTER 00986 M00S00940.fcopy +++| EQ TCHX RETURN 00987 M00S00941.fcopy +++| 00988 M00S00942.fcopy +++| TCH5 SX3 X3-1 00989 M00S00943.fcopy +++| NZ X3,TCH6 IF NOT SET INDEX OPTION 00990 M00S00944.fcopy +++| BX6 X4 SET INDEX 00991 M00S00945.fcopy +++| SA6 INDX 00992 M00S00946.fcopy +++| SX2 -B1 IGNORE CHARACTER 00993 M00S00947.fcopy +++| EQ TCHX RETURN 00994 M00S00948.fcopy +++| 00995 M00S00949.fcopy +++| TCH6 MESSAGE MSGB,3 * BAD FCOPY CONVERSION TABLE.* 00996 M00S00950.fcopy +++| ABORT 00997 M00S00951.fcopy +++| WCH SPACE 4,15 00998 M00S00952.fcopy +++|** WCH - WRITE CHARACTER. 00999 M00S00953.fcopy +++|* 01000 M00S00954.fcopy +++|* ENTRY (X2) = CHARACTER TO WRITE. 01001 M00S00955.fcopy +++|* (B3) = CURRENT POSITION IN OUTPUT WORD. 01002 M00S00956.fcopy +++|* (B7) = CHARACTER LENGTH. 01003 M00S00957.fcopy +++|* 01004 M00S00958.fcopy +++|* EXIT (B3) = NEW POSITION IN OUTPUT WORD. 01005 M00S00959.fcopy +++|* (ENDF) = 1 IF EOI DETECTED. 01006 M00S00960.fcopy +++|* 01007 M00S00961.fcopy +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 01008 M00S00962.fcopy +++|* A - 1, 2, 3, 5, 6, 7. 01009 M00S00963.fcopy +++|* B - 3, 6, 7. 01010 M00S00964.fcopy +++|* 01011 M00S00965.fcopy +++|* MACROS WRITEF, WRITEO, WRITER. 01012 M00S00966.fcopy +++| 01013 M00S00967.fcopy +++| 01014 M00S00968.fcopy +++| WCH10 SX7 B1+ SET END FLAG 01015 M00S00969.fcopy +++| SA7 ENDF 01016 M00S00970.fcopy +++| 01017 M00S00971.fcopy +++| WCH SUBR ENTRY/EXIT 01018 M00S00972.fcopy +++| SA1 TCVTL 01019 M00S00973.fcopy +++| SX1 X1+B1 01020 M00S00974.fcopy +++| IX6 X2-X1 01021 M00S00975.fcopy +++| SX5 X2-EORC 01022 M00S00976.fcopy +++| SA1 OWRD GET OUTPUT WORD 01023 M00S00977.fcopy +++| PL X6,WCH7 IF 12 BIT CHARACTER 01024 M00S00978.fcopy +++| NG X5,WCH7 IF NOT EOR, EOF, OR EOI 01025 M00S00979.fcopy +++| SB6 B3-60D
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01026 M01S00013.274l797 +++| SX6 B3 01027 M01S00014.274l797 +++| SA6 UBC 01028 M00S00980.fcopy +++| ZR B6,WCH4 IF OUTPUT WORD EMPTY 01029 M00S00981.fcopy +++| BX6 X1 01030 M00S00982.fcopy +++| SB3 60 RESET CURRENT POSITION 01031 M00S00983.fcopy +++| WRITEO N 01032 M00S00984.fcopy +++| BX7 X7-X7 CLEAR OUTPUT WORD 01033 M00S00985.fcopy +++| SA7 OWRD 01034 M00S00986.fcopy +++| WCH4 SA1 STPO 01035 M00S00987.fcopy +++| NZ X1,WCH10 IF OUTPUT FILE ON STRANGER TAPE 01036 M00S00988.fcopy +++| 01037 M00S00989.fcopy +++|* PROCESS EOR. 01038 M00S00990.fcopy +++| 01039 M00S00991.fcopy +++| NZ X5,WCH5 IF NOT EOR 01040 M00S00992.fcopy +++| SA5 RCRD GET RECORD NUMBER
| Line S00993 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01041 M01S00993.274l797 ---| WRITER N,R
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01042 M01S00015.274l797 +++| SA3 N+1 FET+1 01043 M01S00016.274l797 +++| AX3 48 01044 M01S00017.274l797 +++| SX3 X3-2ROD OPTICAL DISK DEVICE TYPE 01045 M01S00018.274l797 +++| NZ X3,WCH4.1 IF NOT *OD* 01046 M01S00019.274l797 +++| SA3 N+6 FET+6 01047 M01S00020.274l797 +++| SA2 UBC UNUSED BIT COUNT 01048 M01S00021.274l797 +++| MX0 30 01049 M01S00022.274l797 +++| LX2 24 01050 M01S00023.274l797 +++| BX3 X0*X3 01051 M01S00024.274l797 +++| BX6 X2+X3 01052 M01S00025.274l797 +++| SA6 N+6 01053 M01S00026.274l797 +++| WCH4.1 WRITER N,R 01054 M00S00994.fcopy +++| SX7 X5+B1 INCREMENT RECORD NUMBER 01055 M00S00995.fcopy +++| SA7 A5 01056 M00S00996.fcopy +++| SX6 B1+ RESET LINE NUMBER 01057 M00S00997.fcopy +++| SA6 LINE 01058 M00S00998.fcopy +++| EQ WCHX RETURN 01059 M00S00999.fcopy +++| 01060 M00S01000.fcopy +++|* PROCESS EOF. 01061 M00S01001.fcopy +++| 01062 M00S01002.fcopy +++| WCH5 SX5 X5-1 01063 M00S01003.fcopy +++| NZ X5,WCH6 IF NOT EOF 01064 M00S01004.fcopy +++| SA5 FILE GET FILE NUMBER 01065 M00S01005.fcopy +++| WRITEF N,R 01066 M00S01006.fcopy +++| SX7 X5+B1 INCREMENT FILE NUMBER 01067 M00S01007.fcopy +++| SX6 B1+ RESET LINE AND RECORD NUMBERS 01068 M00S01008.fcopy +++| SA7 A5 01069 M00S01009.fcopy +++| SA6 LINE 01070 M00S01010.fcopy +++| SA6 RCRD 01071 M00S01011.fcopy +++| EQ WCHX RETURN 01072 M00S01012.fcopy +++| 01073 M00S01013.fcopy +++|* PROCESS EOI. 01074 M00S01014.fcopy +++| 01075 M00S01015.fcopy +++| WCH6 RECALL N 01076 M00S01016.fcopy +++| SA3 N+2 GET *IN* POINTER 01077 M00S01017.fcopy +++| SA2 N+3 GET *OUT* POINTER 01078 M00S01018.fcopy +++| IX3 X3-X2 01079 M00S01019.fcopy +++| ZR X3,WCH10 IF NO MORE WORDS TO WRITE 01080 M00S01020.fcopy +++| WRITER N FLUSH BUFFER 01081 M00S01021.fcopy +++| EQ WCH10 SET END FLAG 01082 M00S01022.fcopy +++| 01083 M00S01023.fcopy +++|* WRITE CHARACTER. 01084 M00S01024.fcopy +++| 01085 M00S01025.fcopy +++| WCH7 GT B7,B3,WCH8 IF NOT ENOUGH ROOM FOR CHARACTER IN WORD 01086 M00S01026.fcopy +++| SB3 B3-B7 DECREMENT CURRENT POSITION 01087 M00S01027.fcopy +++| LX2 B3 01088 M00S01028.fcopy +++| BX6 X1+X2 01089 M00S01029.fcopy +++| SA6 OWRD SAVE OUTPUT WORD 01090 M00S01030.fcopy +++| EQ WCHX RETURN 01091 M00S01031.fcopy +++| 01092 M00S01032.fcopy +++|* START A NEW OUTPUT WORD. 01093 M00S01033.fcopy +++| 01094 M00S01034.fcopy +++| WCH8 SB6 B7 SET DEFAULT REMAINDER 01095 M00S01035.fcopy +++| BX6 X1 01096 M00S01036.fcopy +++| ZR B3,WCH9 IF NO ROOM IN WORD 01097 M00S01037.fcopy +++| SB6 B7-B3 FORM AND INSERT PARTIAL CHARACTER 01098 M00S01038.fcopy +++| AX3 X2,B6 01099 M00S01039.fcopy +++| BX6 X1+X3 01100 M00S01040.fcopy +++| WCH9 SB3 60D RESET CURRENT POSITION 01101 M00S01041.fcopy +++| SB3 B3-B6 DECREMENT CURRENT POSITION 01102 M00S01042.fcopy +++| LX2 B3 01103 M00S01043.fcopy +++| MX0 1 01104 M00S01044.fcopy +++| SB7 B6-B1 01105 M00S01045.fcopy +++| AX0 X0,B7 01106 M00S01046.fcopy +++| BX7 X0*X2 SET NEW OUTPUT WORD 01107 M00S01047.fcopy +++| SA7 OWRD 01108 M00S01048.fcopy +++| WRITEO N WRITE OLD OUTPUT WORD 01109 M00S01049.fcopy +++| EQ WCHX RETURN 01110 M00S01050.fcopy +++| WTB SPACE 4,20 01111 M00S01051.fcopy +++|** WTB - WRITE TAPE BLOCK. 01112 M00S01052.fcopy +++|* 01113 M00S01053.fcopy +++|* ENTRY (B7) = OUTPUT CHARACTER SIZE. 01114 M00S01054.fcopy +++|* (IPTR) = ADDRESS TO USE FOR BLOCK HEADER WORD. 01115 M00S01055.fcopy +++|* (ENDF) = SET IF EOI REACHED IN INPUT FILE. 01116 M00S01056.fcopy +++|* (OBHW) = OUTPUT BLOCK HEADER WORD FOR FULL BLOCK. 01117 M00S01057.fcopy +++|* (OLCT) = COUNT OF REMAINING LINES IN OUTPUT BLOCK. 01118 M00S01058.fcopy +++|* 01119 M00S01059.fcopy +++|* EXIT BLOCK WRITTEN TO STRANGER TAPE. 01120 M00S01060.fcopy +++|* (IPTR) UPDATED. 01121 M00S01061.fcopy +++|* (OLCT) RESET. 01122 M00S01062.fcopy +++|* 01123 M00S01063.fcopy +++|* USES X - 1, 2, 3, 6. 01124 M00S01064.fcopy +++|* A - 1, 2, 3, 6. 01125 M00S01065.fcopy +++|* B - NONE. 01126 M00S01066.fcopy +++|* 01127 M00S01067.fcopy +++|* CALLS FBH. 01128 M00S01068.fcopy +++|* 01129 M00S01069.fcopy +++|* MACROS WRITEN, WRITEO. 01130 M00S01070.fcopy +++| 01131 M00S01071.fcopy +++| 01132 M00S01072.fcopy +++| WTB SUBR ENTRY/EXIT 01133 M00S01073.fcopy +++| SA3 OBHW GET FULL SIZE OUTPUT BLOCK HEADER WORD 01134 M00S01074.fcopy +++| SA2 OLCT 01135 M00S01075.fcopy +++| SA1 FL 01136 M00S01076.fcopy +++| BX6 X3 01137 M00S01077.fcopy +++| ZR X2,WTB1 IF BLOCK FULL SIZE 01138 M00S01078.fcopy +++| SA3 LB 01139 M00S01079.fcopy +++| IX2 X3-X2 COMPUTE LINES USED IN BLOCK 01140 M00S01080.fcopy +++| ZR X2,WTB2 IF EMPTY BLOCK 01141 M00S01081.fcopy +++| RJ FBH FORM BLOCK HEADER WORD 01142 M00S01082.fcopy +++| WTB1 SA2 IPTR SET HEADER WORD IN BLOCK 01143 M00S01083.fcopy +++| SA6 X2+ 01144 M00S01084.fcopy +++| WRITEN N,R WRITE BLOCK 01145 M00S01085.fcopy +++| WTB2 SA1 ENDF 01146 M00S01086.fcopy +++| NZ X1,WTBX IF END OF INFORMATION, RETURN 01147 M00S01087.fcopy +++| 01148 M00S01088.fcopy +++|* START NEW BLOCK. 01149 M00S01089.fcopy +++| 01150 M00S01090.fcopy +++| SA3 N+2 GET LOCATION FOR NEXT BLOCK HEADER WORD 01151 M00S01091.fcopy +++| BX6 X3 01152 M00S01092.fcopy +++| SA6 IPTR 01153 M00S01093.fcopy +++| WRITEO N RESERVE WORD FOR BLOCK HEADER WORD 01154 M00S01094.fcopy +++| SA1 LB RESET OUTPUT LINE COUNT 01155 M00S01095.fcopy +++| BX6 X1 01156 M00S01096.fcopy +++| SA6 OLCT 01157 M00S01097.fcopy +++| EQ WTBX RETURN 01158 M00S01098.fcopy +++| WZB SPACE 4,15 01159 M00S01099.fcopy +++|** WZB - WRITE ZERO BYTE. 01160 M00S01100.fcopy +++|* 01161 M00S01101.fcopy +++|* ENTRY (B3) = POSITION IN OUTPUT WORD. 01162 M00S01102.fcopy +++|* 01163 M00S01103.fcopy +++|* EXIT (B3) UPDATED. 01164 M00S01104.fcopy +++|* 01165 M00S01105.fcopy +++|* USES X - 1, 6, 7. 01166 M00S01106.fcopy +++|* A - 1, 6, 7. 01167 M00S01107.fcopy +++|* B - 3. 01168 M00S01108.fcopy +++|* 01169 M00S01109.fcopy +++|* MACROS WRITEO. 01170 M00S01110.fcopy +++| 01171 M00S01111.fcopy +++| 01172 M00S01112.fcopy +++| WZB SUBR ENTRY/EXIT 01173 M00S01113.fcopy +++| SA1 OWRD GET OUTPUT WORD 01174 M00S01114.fcopy +++| SB6 12D 01175 M00S01115.fcopy +++| BX6 X1 01176 M00S01116.fcopy +++| WRITEO N 01177 M00S01117.fcopy +++| GE B3,B6,WZB1 IF WORD WRITTEN WAS PROPER ZERO BYTE 01178 M00S01118.fcopy +++| SX6 B0+ 01179 M00S01119.fcopy +++| WRITEO N 01180 M00S01120.fcopy +++| WZB1 BX7 X7-X7 ZERO OUTPUT WORD 01181 M00S01121.fcopy +++| SA7 OWRD 01182 M00S01122.fcopy +++| SB3 60D RESET CURRENT POSITION 01183 M00S01123.fcopy +++| EQ WZBX RETURN 01184 M00S01124.fcopy +++| SPACE 4,10 01185 M00S01125.fcopy +++|* COMMON DECKS. 01186 M00S01126.fcopy +++| 01187 M00S01127.fcopy +++| 01188 M00S01128.fcopy +++|*CALL COMCCDD 01189 M00S01129.fcopy +++|*CALL,COMCCOD 01190 M00S01130.fcopy +++|*CALL COMCCIO 01191 M00S01131.fcopy +++|*CALL,COMCLFM 01192 M00S01132.fcopy +++|*CALL,COMCRDO 01193 M00S01133.fcopy +++|*CALL COMCRDW 01194 M00S01134.fcopy +++|*CALL COMCSYS 01195 M00S01135.fcopy +++|*CALL,COMCWTO 01196 M00S01136.fcopy +++|*CALL COMCWTW 01197 M00S01137.fcopy +++|*CALL,COMTCVT 01198 M00S01138.fcopy +++| TITLE CONVERSION BASE TABLES 01199 M00S01139.fcopy +++| SPACE 4,10 01200 M00S01140.fcopy +++|* BUFFERS. 01201 M00S01141.fcopy +++| 01202 M00S01142.fcopy +++| 01203 M00S01143.fcopy +++| USE BUFFERS 01204 M00S01144.fcopy +++| 01205 M00S01145.fcopy +++| TCVT BSSZ MCVTL CONVERSION TABLE 01206 M00S01146.fcopy +++| WBUF BSSZ WBUFL WORKING WRITE BUFFER 01207 M00S01147.fcopy +++| BUF BSS 0 01208 M00S01148.fcopy +++| PBUF EQU BUF OLD BUFFER 01209 M00S01149.fcopy +++| NBUF EQU PBUF+PBUFL NEW BUFFER
| Line S01150 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01210 M01S01150.274l797 ---| RFL= EQU NBUF+NBUFL+500B
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01211 M01S00027.274l797 +++| RFL= EQU NBUF+NBUFL+4500B 01212 M00S01151.fcopy +++| SPACE 4,10 01213 M00S01152.fcopy +++|** CONVERSION BASE TABLES. 01214 M00S01153.fcopy +++| 01215 M00S01154.fcopy +++| 01216 M00S01155.fcopy +++| BASE O 01217 M00S01156.fcopy +++| SPACE 4,10 01218 M00S01157.fcopy +++| TD64 BSS 0 64 CHARACTER DISPLAY CODE 01219 M00S01158.fcopy +++| QUAL COMTCVT 01220 M00S01159.fcopy +++| LOC 0 01221 M00S01160.fcopy +++| 01222 M00S01161.fcopy +++|* TO FROM 01223 M00S01162.fcopy +++|* DIS64 DIS64 01224 M00S01163.fcopy +++| 01225 M00S01164.fcopy +++| CONV T64D000,F64D000 : 01226 M00S01165.fcopy +++| CONV T64D001,F64D001 A 01227 M00S01166.fcopy +++| CONV T64D002,F64D002 B 01228 M00S01167.fcopy +++| CONV T64D003,F64D003 C 01229 M00S01168.fcopy +++| CONV T64D004,F64D004 D 01230 M00S01169.fcopy +++| CONV T64D005,F64D005 E 01231 M00S01170.fcopy +++| CONV T64D006,F64D006 F 01232 M00S01171.fcopy +++| CONV T64D007,F64D007 G 01233 M00S01172.fcopy +++| CONV T64D010,F64D010 H 01234 M00S01173.fcopy +++| CONV T64D011,F64D011 I 01235 M00S01174.fcopy +++| CONV T64D012,F64D012 J 01236 M00S01175.fcopy +++| CONV T64D013,F64D013 K 01237 M00S01176.fcopy +++| CONV T64D014,F64D014 L 01238 M00S01177.fcopy +++| CONV T64D015,F64D015 M 01239 M00S01178.fcopy +++| CONV T64D016,F64D016 N 01240 M00S01179.fcopy +++| CONV T64D017,F64D017 O 01241 M00S01180.fcopy +++| CONV T64D020,F64D020 P 01242 M00S01181.fcopy +++| CONV T64D021,F64D021 Q 01243 M00S01182.fcopy +++| CONV T64D022,F64D022 R 01244 M00S01183.fcopy +++| CONV T64D023,F64D023 S 01245 M00S01184.fcopy +++| CONV T64D024,F64D024 T 01246 M00S01185.fcopy +++| CONV T64D025,F64D025 U 01247 M00S01186.fcopy +++| CONV T64D026,F64D026 V 01248 M00S01187.fcopy +++| CONV T64D027,F64D027 W 01249 M00S01188.fcopy +++| CONV T64D030,F64D030 X 01250 M00S01189.fcopy +++| CONV T64D031,F64D031 Y 01251 M00S01190.fcopy +++| CONV T64D032,F64D032 Z 01252 M00S01191.fcopy +++| CONV T64D033,F64D033 0 01253 M00S01192.fcopy +++| CONV T64D034,F64D034 1 01254 M00S01193.fcopy +++| CONV T64D035,F64D035 2 01255 M00S01194.fcopy +++| CONV T64D036,F64D036 3 01256 M00S01195.fcopy +++| CONV T64D037,F64D037 4 01257 M00S01196.fcopy +++| CONV T64D040,F64D040 BLANK 5 01258 M00S01197.fcopy +++| CONV T64D041,F64D041 ! 6 01259 M00S01198.fcopy +++| CONV T64D042,F64D042 " 7 01260 M00S01199.fcopy +++| CONV T64D043,F64D043 # 8 01261 M00S01200.fcopy +++| CONV T64D044,F64D044 $ 9 01262 M00S01201.fcopy +++| CONV T64D045,F64D045 % + 01263 M00S01202.fcopy +++| CONV T64D046,F64D046 & - 01264 M00S01203.fcopy +++| CONV T64D047,F64D047 ' * 01265 M00S01204.fcopy +++| CONV T64D050,F64D050 ( / 01266 M00S01205.fcopy +++| CONV T64D051,F64D051 ) ( 01267 M00S01206.fcopy +++| CONV T64D052,F64D052 * ) 01268 M00S01207.fcopy +++| CONV T64D053,F64D053 + $ 01269 M00S01208.fcopy +++| CONV T64D054,F64D054 , = 01270 M00S01209.fcopy +++| CONV T64D055,F64D055 - BLANK 01271 M00S01210.fcopy +++| CONV T64D056,F64D056 . , 01272 M00S01211.fcopy +++| CONV T64D057,F64D057 / . 01273 M00S01212.fcopy +++| CONV T64D060,F64D060 0 # 01274 M00S01213.fcopy +++| CONV T64D061,F64D061 1 [ 01275 M00S01214.fcopy +++| CONV T64D062,F64D062 2 ] 01276 M00S01215.fcopy +++| CONV T64D063,F64D063 3 % 01277 M00S01216.fcopy +++| CONV T64D064,F64D064 4 " 01278 M00S01217.fcopy +++| CONV T64D065,F64D065 5 _ 01279 M00S01218.fcopy +++| CONV T64D066,F64D066 6 ! 01280 M00S01219.fcopy +++| CONV T64D067,F64D067 7 & 01281 M00S01220.fcopy +++| CONV T64D070,F64D070 8 ' 01282 M00S01221.fcopy +++| CONV T64D071,F64D071 9 ? 01283 M00S01222.fcopy +++| CONV T64D072,F64D072 : < 01284 M00S01223.fcopy +++| CONV T64D073,F64D073 ; > 01285 M00S01224.fcopy +++| CONV T64D074,F64D074 < 01286 M00S01225.fcopy +++| CONV T64D075,F64D075 = \ 01287 M00S01226.fcopy +++| CONV T64D076,F64D076 > 01288 M00S01227.fcopy +++| CONV T64D077,F64D077 ? ; 01289 M00S01228.fcopy +++| CONV T64D100,F64D100 01290 M00S01229.fcopy +++| CONV T64D101,F64D101 A 01291 M00S01230.fcopy +++| CONV T64D102,F64D102 B 01292 M00S01231.fcopy +++| CONV T64D103,F64D103 C 01293 M00S01232.fcopy +++| CONV T64D104,F64D104 D 01294 M00S01233.fcopy +++| CONV T64D105,F64D105 E 01295 M00S01234.fcopy +++| CONV T64D106,F64D106 F 01296 M00S01235.fcopy +++| CONV T64D107,F64D107 G 01297 M00S01236.fcopy +++| CONV T64D110,F64D110 H 01298 M00S01237.fcopy +++| CONV T64D111,F64D111 I 01299 M00S01238.fcopy +++| CONV T64D112,F64D112 J 01300 M00S01239.fcopy +++| CONV T64D113,F64D113 K 01301 M00S01240.fcopy +++| CONV T64D114,F64D114 L 01302 M00S01241.fcopy +++| CONV T64D115,F64D115 M 01303 M00S01242.fcopy +++| CONV T64D116,F64D116 N 01304 M00S01243.fcopy +++| CONV T64D117,F64D117 O 01305 M00S01244.fcopy +++| CONV T64D120,F64D120 P 01306 M00S01245.fcopy +++| CONV T64D121,F64D121 Q 01307 M00S01246.fcopy +++| CONV T64D122,F64D122 R 01308 M00S01247.fcopy +++| CONV T64D123,F64D123 S 01309 M00S01248.fcopy +++| CONV T64D124,F64D124 T 01310 M00S01249.fcopy +++| CONV T64D125,F64D125 U 01311 M00S01250.fcopy +++| CONV T64D126,F64D126 V 01312 M00S01251.fcopy +++| CONV T64D127,F64D127 W 01313 M00S01252.fcopy +++| CONV T64D130,F64D130 X 01314 M00S01253.fcopy +++| CONV T64D131,F64D131 Y 01315 M00S01254.fcopy +++| CONV T64D132,F64D132 Z 01316 M00S01255.fcopy +++| CONV T64D133,F64D133 [ 01317 M00S01256.fcopy +++| CONV T64D134,F64D134 \ 01318 M00S01257.fcopy +++| CONV T64D135,F64D135 ] 01319 M00S01258.fcopy +++| CONV T64D136,F64D136 01320 M00S01259.fcopy +++| CONV T64D137,F64D137 _ 01321 M00S01260.fcopy +++| CONV T64D140,F64D140 01322 M00S01261.fcopy +++| CONV T64D141,F64D141 A 01323 M00S01262.fcopy +++| CONV T64D142,F64D142 B 01324 M00S01263.fcopy +++| CONV T64D143,F64D143 C 01325 M00S01264.fcopy +++| CONV T64D144,F64D144 D 01326 M00S01265.fcopy +++| CONV T64D145,F64D145 E 01327 M00S01266.fcopy +++| CONV T64D146,F64D146 F 01328 M00S01267.fcopy +++| CONV T64D147,F64D147 G 01329 M00S01268.fcopy +++| CONV T64D150,F64D150 H 01330 M00S01269.fcopy +++| CONV T64D151,F64D151 I 01331 M00S01270.fcopy +++| CONV T64D152,F64D152 J 01332 M00S01271.fcopy +++| CONV T64D153,F64D153 K 01333 M00S01272.fcopy +++| CONV T64D154,F64D154 L 01334 M00S01273.fcopy +++| CONV T64D155,F64D155 M 01335 M00S01274.fcopy +++| CONV T64D156,F64D156 N 01336 M00S01275.fcopy +++| CONV T64D157,F64D157 O 01337 M00S01276.fcopy +++| CONV T64D160,F64D160 P 01338 M00S01277.fcopy +++| CONV T64D161,F64D161 Q 01339 M00S01278.fcopy +++| CONV T64D162,F64D162 R 01340 M00S01279.fcopy +++| CONV T64D163,F64D163 S 01341 M00S01280.fcopy +++| CONV T64D164,F64D164 T 01342 M00S01281.fcopy +++| CONV T64D165,F64D165 U 01343 M00S01282.fcopy +++| CONV T64D166,F64D166 V 01344 M00S01283.fcopy +++| CONV T64D167,F64D167 W 01345 M00S01284.fcopy +++| CONV T64D170,F64D170 X 01346 M00S01285.fcopy +++| CONV T64D171,F64D171 Y 01347 M00S01286.fcopy +++| CONV T64D172,F64D172 Z 01348 M00S01287.fcopy +++| CONV T64D173,F64D173 [ 01349 M00S01288.fcopy +++| CONV T64D174,F64D174 \ 01350 M00S01289.fcopy +++| CONV T64D175,F64D175 ] 01351 M00S01290.fcopy +++| CONV T64D176,F64D176 01352 M00S01291.fcopy +++| CONV T64D177,F64D177 01353 M00S01292.fcopy +++| 01354 M00S01293.fcopy +++| CONV T64D200,F64D200 01355 M00S01294.fcopy +++| CONV T64D201,F64D201 01356 M00S01295.fcopy +++| CONV T64D202,F64D202 01357 M00S01296.fcopy +++| CONV T64D203,F64D203 01358 M00S01297.fcopy +++| CONV T64D204,F64D204 01359 M00S01298.fcopy +++| CONV T64D205,F64D205 01360 M00S01299.fcopy +++| CONV T64D206,F64D206 01361 M00S01300.fcopy +++| CONV T64D207,F64D207 01362 M00S01301.fcopy +++| CONV T64D210,F64D210 01363 M00S01302.fcopy +++| CONV T64D211,F64D211 01364 M00S01303.fcopy +++| CONV T64D212,F64D212 01365 M00S01304.fcopy +++| CONV T64D213,F64D213 01366 M00S01305.fcopy +++| CONV T64D214,F64D214 01367 M00S01306.fcopy +++| CONV T64D215,F64D215 01368 M00S01307.fcopy +++| CONV T64D216,F64D216 01369 M00S01308.fcopy +++| CONV T64D217,F64D217 01370 M00S01309.fcopy +++| CONV T64D220,F64D220 01371 M00S01310.fcopy +++| CONV T64D221,F64D221 01372 M00S01311.fcopy +++| CONV T64D222,F64D222 01373 M00S01312.fcopy +++| CONV T64D223,F64D223 01374 M00S01313.fcopy +++| CONV T64D224,F64D224 01375 M00S01314.fcopy +++| CONV T64D225,F64D225 01376 M00S01315.fcopy +++| CONV T64D226,F64D226 01377 M00S01316.fcopy +++| CONV T64D227,F64D227 01378 M00S01317.fcopy +++| CONV T64D230,F64D230 01379 M00S01318.fcopy +++| CONV T64D231,F64D231 01380 M00S01319.fcopy +++| CONV T64D232,F64D232 01381 M00S01320.fcopy +++| CONV T64D233,F64D233 01382 M00S01321.fcopy +++| CONV T64D234,F64D234 01383 M00S01322.fcopy +++| CONV T64D235,F64D235 01384 M00S01323.fcopy +++| CONV T64D236,F64D236 01385 M00S01324.fcopy +++| CONV T64D237,F64D237 01386 M00S01325.fcopy +++| CONV T64D240,F64D240 BLANK 01387 M00S01326.fcopy +++| CONV T64D241,F64D241 ! 01388 M00S01327.fcopy +++| CONV T64D242,F64D242 " 01389 M00S01328.fcopy +++| CONV T64D243,F64D243 # 01390 M00S01329.fcopy +++| CONV T64D244,F64D244 $ 01391 M00S01330.fcopy +++| CONV T64D245,F64D245 % 01392 M00S01331.fcopy +++| CONV T64D246,F64D246 & 01393 M00S01332.fcopy +++| CONV T64D247,F64D247 ' 01394 M00S01333.fcopy +++| CONV T64D250,F64D250 ( 01395 M00S01334.fcopy +++| CONV T64D251,F64D251 ) 01396 M00S01335.fcopy +++| CONV T64D252,F64D252 * 01397 M00S01336.fcopy +++| CONV T64D253,F64D253 + 01398 M00S01337.fcopy +++| CONV T64D254,F64D254 , 01399 M00S01338.fcopy +++| CONV T64D255,F64D255 - 01400 M00S01339.fcopy +++| CONV T64D256,F64D256 . 01401 M00S01340.fcopy +++| CONV T64D257,F64D257 / 01402 M00S01341.fcopy +++| CONV T64D260,F64D260 0 01403 M00S01342.fcopy +++| CONV T64D261,F64D261 1 01404 M00S01343.fcopy +++| CONV T64D262,F64D262 2 01405 M00S01344.fcopy +++| CONV T64D263,F64D263 3 01406 M00S01345.fcopy +++| CONV T64D264,F64D264 4 01407 M00S01346.fcopy +++| CONV T64D265,F64D265 5 01408 M00S01347.fcopy +++| CONV T64D266,F64D266 6 01409 M00S01348.fcopy +++| CONV T64D267,F64D267 7 01410 M00S01349.fcopy +++| CONV T64D270,F64D270 8 01411 M00S01350.fcopy +++| CONV T64D271,F64D271 9 01412 M00S01351.fcopy +++| CONV T64D272,F64D272 : 01413 M00S01352.fcopy +++| CONV T64D273,F64D273 ; 01414 M00S01353.fcopy +++| CONV T64D274,F64D274 < 01415 M00S01354.fcopy +++| CONV T64D275,F64D275 = 01416 M00S01355.fcopy +++| CONV T64D276,F64D276 > 01417 M00S01356.fcopy +++| CONV T64D277,F64D277 ? 01418 M00S01357.fcopy +++| CONV T64D300,F64D300 01419 M00S01358.fcopy +++| CONV T64D301,F64D301 A 01420 M00S01359.fcopy +++| CONV T64D302,F64D302 B 01421 M00S01360.fcopy +++| CONV T64D303,F64D303 C 01422 M00S01361.fcopy +++| CONV T64D304,F64D304 D 01423 M00S01362.fcopy +++| CONV T64D305,F64D305 E 01424 M00S01363.fcopy +++| CONV T64D306,F64D306 F 01425 M00S01364.fcopy +++| CONV T64D307,F64D307 G 01426 M00S01365.fcopy +++| CONV T64D310,F64D310 H 01427 M00S01366.fcopy +++| CONV T64D311,F64D311 I 01428 M00S01367.fcopy +++| CONV T64D312,F64D312 J 01429 M00S01368.fcopy +++| CONV T64D313,F64D313 K 01430 M00S01369.fcopy +++| CONV T64D314,F64D314 L 01431 M00S01370.fcopy +++| CONV T64D315,F64D315 M 01432 M00S01371.fcopy +++| CONV T64D316,F64D316 N 01433 M00S01372.fcopy +++| CONV T64D317,F64D317 O 01434 M00S01373.fcopy +++| CONV T64D320,F64D320 P 01435 M00S01374.fcopy +++| CONV T64D321,F64D321 Q 01436 M00S01375.fcopy +++| CONV T64D322,F64D322 R 01437 M00S01376.fcopy +++| CONV T64D323,F64D323 S 01438 M00S01377.fcopy +++| CONV T64D324,F64D324 T 01439 M00S01378.fcopy +++| CONV T64D325,F64D325 U 01440 M00S01379.fcopy +++| CONV T64D326,F64D326 V 01441 M00S01380.fcopy +++| CONV T64D327,F64D327 W 01442 M00S01381.fcopy +++| CONV T64D330,F64D330 X 01443 M00S01382.fcopy +++| CONV T64D331,F64D331 Y 01444 M00S01383.fcopy +++| CONV T64D332,F64D332 Z 01445 M00S01384.fcopy +++| CONV T64D333,F64D333 [ 01446 M00S01385.fcopy +++| CONV T64D334,F64D334 \ 01447 M00S01386.fcopy +++| CONV T64D335,F64D335 ] 01448 M00S01387.fcopy +++| CONV T64D336,F64D336 01449 M00S01388.fcopy +++| CONV T64D337,F64D337 _ 01450 M00S01389.fcopy +++| CONV T64D340,F64D340 01451 M00S01390.fcopy +++| CONV T64D341,F64D341 A 01452 M00S01391.fcopy +++| CONV T64D342,F64D342 B 01453 M00S01392.fcopy +++| CONV T64D343,F64D343 C 01454 M00S01393.fcopy +++| CONV T64D344,F64D344 D 01455 M00S01394.fcopy +++| CONV T64D345,F64D345 E 01456 M00S01395.fcopy +++| CONV T64D346,F64D346 F 01457 M00S01396.fcopy +++| CONV T64D347,F64D347 G 01458 M00S01397.fcopy +++| CONV T64D350,F64D350 H 01459 M00S01398.fcopy +++| CONV T64D351,F64D351 I 01460 M00S01399.fcopy +++| CONV T64D352,F64D352 J 01461 M00S01400.fcopy +++| CONV T64D353,F64D353 K 01462 M00S01401.fcopy +++| CONV T64D354,F64D354 L 01463 M00S01402.fcopy +++| CONV T64D355,F64D355 M 01464 M00S01403.fcopy +++| CONV T64D356,F64D356 N 01465 M00S01404.fcopy +++| CONV T64D357,F64D357 O 01466 M00S01405.fcopy +++| CONV T64D360,F64D360 P 01467 M00S01406.fcopy +++| CONV T64D361,F64D361 Q 01468 M00S01407.fcopy +++| CONV T64D362,F64D362 R 01469 M00S01408.fcopy +++| CONV T64D363,F64D363 S 01470 M00S01409.fcopy +++| CONV T64D364,F64D364 T 01471 M00S01410.fcopy +++| CONV T64D365,F64D365 U 01472 M00S01411.fcopy +++| CONV T64D366,F64D366 V 01473 M00S01412.fcopy +++| CONV T64D367,F64D367 W 01474 M00S01413.fcopy +++| CONV T64D370,F64D370 X 01475 M00S01414.fcopy +++| CONV T64D371,F64D371 Y 01476 M00S01415.fcopy +++| CONV T64D372,F64D372 Z 01477 M00S01416.fcopy +++| CONV T64D373,F64D373 [ 01478 M00S01417.fcopy +++| CONV T64D374,F64D374 \ 01479 M00S01418.fcopy +++| CONV T64D375,F64D375 ] 01480 M00S01419.fcopy +++| CONV T64D376,F64D376 01481 M00S01420.fcopy +++| CONV T64D377,F64D377 01482 M00S01421.fcopy +++| 01483 M00S01422.fcopy +++| CONV ZBCH,ZBCH ZB ZB 01484 M00S01423.fcopy +++| CONV EORC,EORC EOR EOR 01485 M00S01424.fcopy +++| CONV EOFC,EOFC EOF EOF 01486 M00S01425.fcopy +++| CONV EOIC,EOIC EOI EOI 01487 M00S01426.fcopy +++| 01488 M00S01427.fcopy +++| LOC *O 01489 M00S01428.fcopy +++| QUAL * 01490 M00S01429.fcopy +++| SPACE 4,10 01491 M00S01430.fcopy +++| TD63 BSS 0 63 CHARACTER DISPLAY CODE 01492 M00S01431.fcopy +++| QUAL COMTCVT 01493 M00S01432.fcopy +++| LOC 0 01494 M00S01433.fcopy +++| 01495 M00S01434.fcopy +++|* TO FROM 01496 M00S01435.fcopy +++|* DIS63 DIS63 01497 M00S01436.fcopy +++| 01498 M00S01437.fcopy +++| CONV T63D000,F63D000 01499 M00S01438.fcopy +++| CONV T63D001,F63D001 A 01500 M00S01439.fcopy +++| CONV T63D002,F63D002 B 01501 M00S01440.fcopy +++| CONV T63D003,F63D003 C 01502 M00S01441.fcopy +++| CONV T63D004,F63D004 D 01503 M00S01442.fcopy +++| CONV T63D005,F63D005 E 01504 M00S01443.fcopy +++| CONV T63D006,F63D006 F 01505 M00S01444.fcopy +++| CONV T63D007,F63D007 G 01506 M00S01445.fcopy +++| CONV T63D010,F63D010 H 01507 M00S01446.fcopy +++| CONV T63D011,F63D011 I 01508 M00S01447.fcopy +++| CONV T63D012,F63D012 J 01509 M00S01448.fcopy +++| CONV T63D013,F63D013 K 01510 M00S01449.fcopy +++| CONV T63D014,F63D014 L 01511 M00S01450.fcopy +++| CONV T63D015,F63D015 M 01512 M00S01451.fcopy +++| CONV T63D016,F63D016 N 01513 M00S01452.fcopy +++| CONV T63D017,F63D017 O 01514 M00S01453.fcopy +++| CONV T63D020,F63D020 P 01515 M00S01454.fcopy +++| CONV T63D021,F63D021 Q 01516 M00S01455.fcopy +++| CONV T63D022,F63D022 R 01517 M00S01456.fcopy +++| CONV T63D023,F63D023 S 01518 M00S01457.fcopy +++| CONV T63D024,F63D024 T 01519 M00S01458.fcopy +++| CONV T63D025,F63D025 U 01520 M00S01459.fcopy +++| CONV T63D026,F63D026 V 01521 M00S01460.fcopy +++| CONV T63D027,F63D027 W 01522 M00S01461.fcopy +++| CONV T63D030,F63D030 X 01523 M00S01462.fcopy +++| CONV T63D031,F63D031 Y 01524 M00S01463.fcopy +++| CONV T63D032,F63D032 Z 01525 M00S01464.fcopy +++| CONV T63D033,F63D033 0 01526 M00S01465.fcopy +++| CONV T63D034,F63D034 1 01527 M00S01466.fcopy +++| CONV T63D035,F63D035 2 01528 M00S01467.fcopy +++| CONV T63D036,F63D036 3 01529 M00S01468.fcopy +++| CONV T63D037,F63D037 4 01530 M00S01469.fcopy +++| CONV T63D040,F63D040 BLANK 5 01531 M00S01470.fcopy +++| CONV T63D041,F63D041 ! 6 01532 M00S01471.fcopy +++| CONV T63D042,F63D042 " 7 01533 M00S01472.fcopy +++| CONV T63D043,F63D043 # 8 01534 M00S01473.fcopy +++| CONV T63D044,F63D044 $ 9 01535 M00S01474.fcopy +++| CONV T63D045,F63D045 BLANK 01536 M00S01475.fcopy +++| CONV T63D046,F63D046 & - 01537 M00S01476.fcopy +++| CONV T63D047,F63D047 ' * 01538 M00S01477.fcopy +++| CONV T63D050,F63D050 ( / 01539 M00S01478.fcopy +++| CONV T63D051,F63D051 ) ( 01540 M00S01479.fcopy +++| CONV T63D052,F63D052 * ) 01541 M00S01480.fcopy +++| CONV T63D053,F63D053 + $ 01542 M00S01481.fcopy +++| CONV T63D054,F63D054 , = 01543 M00S01482.fcopy +++| CONV T63D055,F63D055 - BLANK 01544 M00S01483.fcopy +++| CONV T63D056,F63D056 . , 01545 M00S01484.fcopy +++| CONV T63D057,F63D057 / . 01546 M00S01485.fcopy +++| CONV T63D060,F63D060 0 # 01547 M00S01486.fcopy +++| CONV T63D061,F63D061 1 [ 01548 M00S01487.fcopy +++| CONV T63D062,F63D062 2 ] 01549 M00S01488.fcopy +++| CONV T63D063,F63D063 3 % 01550 M00S01489.fcopy +++| CONV T63D064,F63D064 4 " 01551 M00S01490.fcopy +++| CONV T63D065,F63D065 5 _ 01552 M00S01491.fcopy +++| CONV T63D066,F63D066 6 ! 01553 M00S01492.fcopy +++| CONV T63D067,F63D067 7 & 01554 M00S01493.fcopy +++| CONV T63D070,F63D070 8 ' 01555 M00S01494.fcopy +++| CONV T63D071,F63D071 9 ? 01556 M00S01495.fcopy +++| CONV T63D072,F63D072 : < 01557 M00S01496.fcopy +++| CONV T63D073,F63D073 ; > 01558 M00S01497.fcopy +++| CONV T63D074,F63D074 < 01559 M00S01498.fcopy +++| CONV T63D075,F63D075 = \ 01560 M00S01499.fcopy +++| CONV T63D076,F63D076 > 01561 M00S01500.fcopy +++| CONV T63D077,F63D077 ? ; 01562 M00S01501.fcopy +++| CONV T63D100,F63D100 01563 M00S01502.fcopy +++| CONV T63D101,F63D101 A 01564 M00S01503.fcopy +++| CONV T63D102,F63D102 B 01565 M00S01504.fcopy +++| CONV T63D103,F63D103 C 01566 M00S01505.fcopy +++| CONV T63D104,F63D104 D 01567 M00S01506.fcopy +++| CONV T63D105,F63D105 E 01568 M00S01507.fcopy +++| CONV T63D106,F63D106 F 01569 M00S01508.fcopy +++| CONV T63D107,F63D107 G 01570 M00S01509.fcopy +++| CONV T63D110,F63D110 H 01571 M00S01510.fcopy +++| CONV T63D111,F63D111 I 01572 M00S01511.fcopy +++| CONV T63D112,F63D112 J 01573 M00S01512.fcopy +++| CONV T63D113,F63D113 K 01574 M00S01513.fcopy +++| CONV T63D114,F63D114 L 01575 M00S01514.fcopy +++| CONV T63D115,F63D115 M 01576 M00S01515.fcopy +++| CONV T63D116,F63D116 N 01577 M00S01516.fcopy +++| CONV T63D117,F63D117 O 01578 M00S01517.fcopy +++| CONV T63D120,F63D120 P 01579 M00S01518.fcopy +++| CONV T63D121,F63D121 Q 01580 M00S01519.fcopy +++| CONV T63D122,F63D122 R 01581 M00S01520.fcopy +++| CONV T63D123,F63D123 S 01582 M00S01521.fcopy +++| CONV T63D124,F63D124 T 01583 M00S01522.fcopy +++| CONV T63D125,F63D125 U 01584 M00S01523.fcopy +++| CONV T63D126,F63D126 V 01585 M00S01524.fcopy +++| CONV T63D127,F63D127 W 01586 M00S01525.fcopy +++| CONV T63D130,F63D130 X 01587 M00S01526.fcopy +++| CONV T63D131,F63D131 Y 01588 M00S01527.fcopy +++| CONV T63D132,F63D132 Z 01589 M00S01528.fcopy +++| CONV T63D133,F63D133 [ 01590 M00S01529.fcopy +++| CONV T63D134,F63D134 \ 01591 M00S01530.fcopy +++| CONV T63D135,F63D135 ] 01592 M00S01531.fcopy +++| CONV T63D136,F63D136 01593 M00S01532.fcopy +++| CONV T63D137,F63D137 _ 01594 M00S01533.fcopy +++| CONV T63D140,F63D140 01595 M00S01534.fcopy +++| CONV T63D141,F63D141 A 01596 M00S01535.fcopy +++| CONV T63D142,F63D142 B 01597 M00S01536.fcopy +++| CONV T63D143,F63D143 C 01598 M00S01537.fcopy +++| CONV T63D144,F63D144 D 01599 M00S01538.fcopy +++| CONV T63D145,F63D145 E 01600 M00S01539.fcopy +++| CONV T63D146,F63D146 F 01601 M00S01540.fcopy +++| CONV T63D147,F63D147 G 01602 M00S01541.fcopy +++| CONV T63D150,F63D150 H 01603 M00S01542.fcopy +++| CONV T63D151,F63D151 I 01604 M00S01543.fcopy +++| CONV T63D152,F63D152 J 01605 M00S01544.fcopy +++| CONV T63D153,F63D153 K 01606 M00S01545.fcopy +++| CONV T63D154,F63D154 L 01607 M00S01546.fcopy +++| CONV T63D155,F63D155 M 01608 M00S01547.fcopy +++| CONV T63D156,F63D156 N 01609 M00S01548.fcopy +++| CONV T63D157,F63D157 O 01610 M00S01549.fcopy +++| CONV T63D160,F63D160 P 01611 M00S01550.fcopy +++| CONV T63D161,F63D161 Q 01612 M00S01551.fcopy +++| CONV T63D162,F63D162 R 01613 M00S01552.fcopy +++| CONV T63D163,F63D163 S 01614 M00S01553.fcopy +++| CONV T63D164,F63D164 T 01615 M00S01554.fcopy +++| CONV T63D165,F63D165 U 01616 M00S01555.fcopy +++| CONV T63D166,F63D166 V 01617 M00S01556.fcopy +++| CONV T63D167,F63D167 W 01618 M00S01557.fcopy +++| CONV T63D170,F63D170 X 01619 M00S01558.fcopy +++| CONV T63D171,F63D171 Y 01620 M00S01559.fcopy +++| CONV T63D172,F63D172 Z 01621 M00S01560.fcopy +++| CONV T63D173,F63D173 [ 01622 M00S01561.fcopy +++| CONV T63D174,F63D174 \ 01623 M00S01562.fcopy +++| CONV T63D175,F63D175 ] 01624 M00S01563.fcopy +++| CONV T63D176,F63D176 01625 M00S01564.fcopy +++| CONV T63D177,F63D177 01626 M00S01565.fcopy +++| 01627 M00S01566.fcopy +++| CONV T63D200,F63D200 01628 M00S01567.fcopy +++| CONV T63D201,F63D201 01629 M00S01568.fcopy +++| CONV T63D202,F63D202 01630 M00S01569.fcopy +++| CONV T63D203,F63D203 01631 M00S01570.fcopy +++| CONV T63D204,F63D204 01632 M00S01571.fcopy +++| CONV T63D205,F63D205 01633 M00S01572.fcopy +++| CONV T63D206,F63D206 01634 M00S01573.fcopy +++| CONV T63D207,F63D207 01635 M00S01574.fcopy +++| CONV T63D210,F63D210 01636 M00S01575.fcopy +++| CONV T63D211,F63D211 01637 M00S01576.fcopy +++| CONV T63D212,F63D212 01638 M00S01577.fcopy +++| CONV T63D213,F63D213 01639 M00S01578.fcopy +++| CONV T63D214,F63D214 01640 M00S01579.fcopy +++| CONV T63D215,F63D215 01641 M00S01580.fcopy +++| CONV T63D216,F63D216 01642 M00S01581.fcopy +++| CONV T63D217,F63D217 01643 M00S01582.fcopy +++| CONV T63D220,F63D220 01644 M00S01583.fcopy +++| CONV T63D221,F63D221 01645 M00S01584.fcopy +++| CONV T63D222,F63D222 01646 M00S01585.fcopy +++| CONV T63D223,F63D223 01647 M00S01586.fcopy +++| CONV T63D224,F63D224 01648 M00S01587.fcopy +++| CONV T63D225,F63D225 01649 M00S01588.fcopy +++| CONV T63D226,F63D226 01650 M00S01589.fcopy +++| CONV T63D227,F63D227 01651 M00S01590.fcopy +++| CONV T63D230,F63D230 01652 M00S01591.fcopy +++| CONV T63D231,F63D231 01653 M00S01592.fcopy +++| CONV T63D232,F63D232 01654 M00S01593.fcopy +++| CONV T63D233,F63D233 01655 M00S01594.fcopy +++| CONV T63D234,F63D234 01656 M00S01595.fcopy +++| CONV T63D235,F63D235 01657 M00S01596.fcopy +++| CONV T63D236,F63D236 01658 M00S01597.fcopy +++| CONV T63D237,F63D237 01659 M00S01598.fcopy +++| CONV T63D240,F63D240 BLANK 01660 M00S01599.fcopy +++| CONV T63D241,F63D241 ! 01661 M00S01600.fcopy +++| CONV T63D242,F63D242 " 01662 M00S01601.fcopy +++| CONV T63D243,F63D243 # 01663 M00S01602.fcopy +++| CONV T63D244,F63D244 $ 01664 M00S01603.fcopy +++| CONV T63D245,F63D245 BLANK 01665 M00S01604.fcopy +++| CONV T63D246,F63D246 & 01666 M00S01605.fcopy +++| CONV T63D247,F63D247 ' 01667 M00S01606.fcopy +++| CONV T63D250,F63D250 ( 01668 M00S01607.fcopy +++| CONV T63D251,F63D251 ) 01669 M00S01608.fcopy +++| CONV T63D252,F63D252 * 01670 M00S01609.fcopy +++| CONV T63D253,F63D253 + 01671 M00S01610.fcopy +++| CONV T63D254,F63D254 , 01672 M00S01611.fcopy +++| CONV T63D255,F63D255 - 01673 M00S01612.fcopy +++| CONV T63D256,F63D256 . 01674 M00S01613.fcopy +++| CONV T63D257,F63D257 / 01675 M00S01614.fcopy +++| CONV T63D260,F63D260 0 01676 M00S01615.fcopy +++| CONV T63D261,F63D261 1 01677 M00S01616.fcopy +++| CONV T63D262,F63D262 2 01678 M00S01617.fcopy +++| CONV T63D263,F63D263 3 01679 M00S01618.fcopy +++| CONV T63D264,F63D264 4 01680 M00S01619.fcopy +++| CONV T63D265,F63D265 5 01681 M00S01620.fcopy +++| CONV T63D266,F63D266 6 01682 M00S01621.fcopy +++| CONV T63D267,F63D267 7 01683 M00S01622.fcopy +++| CONV T63D270,F63D270 8 01684 M00S01623.fcopy +++| CONV T63D271,F63D271 9 01685 M00S01624.fcopy +++| CONV T63D272,F63D272 : 01686 M00S01625.fcopy +++| CONV T63D273,F63D273 ; 01687 M00S01626.fcopy +++| CONV T63D274,F63D274 < 01688 M00S01627.fcopy +++| CONV T63D275,F63D275 = 01689 M00S01628.fcopy +++| CONV T63D276,F63D276 > 01690 M00S01629.fcopy +++| CONV T63D277,F63D277 ? 01691 M00S01630.fcopy +++| CONV T63D300,F63D300 01692 M00S01631.fcopy +++| CONV T63D301,F63D301 A 01693 M00S01632.fcopy +++| CONV T63D302,F63D302 B 01694 M00S01633.fcopy +++| CONV T63D303,F63D303 C 01695 M00S01634.fcopy +++| CONV T63D304,F63D304 D 01696 M00S01635.fcopy +++| CONV T63D305,F63D305 E 01697 M00S01636.fcopy +++| CONV T63D306,F63D306 F 01698 M00S01637.fcopy +++| CONV T63D307,F63D307 G 01699 M00S01638.fcopy +++| CONV T63D310,F63D310 H 01700 M00S01639.fcopy +++| CONV T63D311,F63D311 I 01701 M00S01640.fcopy +++| CONV T63D312,F63D312 J 01702 M00S01641.fcopy +++| CONV T63D313,F63D313 K 01703 M00S01642.fcopy +++| CONV T63D314,F63D314 L 01704 M00S01643.fcopy +++| CONV T63D315,F63D315 M 01705 M00S01644.fcopy +++| CONV T63D316,F63D316 N 01706 M00S01645.fcopy +++| CONV T63D317,F63D317 O 01707 M00S01646.fcopy +++| CONV T63D320,F63D320 P 01708 M00S01647.fcopy +++| CONV T63D321,F63D321 Q 01709 M00S01648.fcopy +++| CONV T63D322,F63D322 R 01710 M00S01649.fcopy +++| CONV T63D323,F63D323 S 01711 M00S01650.fcopy +++| CONV T63D324,F63D324 T 01712 M00S01651.fcopy +++| CONV T63D325,F63D325 U 01713 M00S01652.fcopy +++| CONV T63D326,F63D326 V 01714 M00S01653.fcopy +++| CONV T63D327,F63D327 W 01715 M00S01654.fcopy +++| CONV T63D330,F63D330 X 01716 M00S01655.fcopy +++| CONV T63D331,F63D331 Y 01717 M00S01656.fcopy +++| CONV T63D332,F63D332 Z 01718 M00S01657.fcopy +++| CONV T63D333,F63D333 [ 01719 M00S01658.fcopy +++| CONV T63D334,F63D334 \ 01720 M00S01659.fcopy +++| CONV T63D335,F63D335 ] 01721 M00S01660.fcopy +++| CONV T63D336,F63D336 01722 M00S01661.fcopy +++| CONV T63D337,F63D337 _ 01723 M00S01662.fcopy +++| CONV T63D340,F63D340 01724 M00S01663.fcopy +++| CONV T63D341,F63D341 A 01725 M00S01664.fcopy +++| CONV T63D342,F63D342 B 01726 M00S01665.fcopy +++| CONV T63D343,F63D343 C 01727 M00S01666.fcopy +++| CONV T63D344,F63D344 D 01728 M00S01667.fcopy +++| CONV T63D345,F63D345 E 01729 M00S01668.fcopy +++| CONV T63D346,F63D346 F 01730 M00S01669.fcopy +++| CONV T63D347,F63D347 G 01731 M00S01670.fcopy +++| CONV T63D350,F63D350 H 01732 M00S01671.fcopy +++| CONV T63D351,F63D351 I 01733 M00S01672.fcopy +++| CONV T63D352,F63D352 J 01734 M00S01673.fcopy +++| CONV T63D353,F63D353 K 01735 M00S01674.fcopy +++| CONV T63D354,F63D354 L 01736 M00S01675.fcopy +++| CONV T63D355,F63D355 M 01737 M00S01676.fcopy +++| CONV T63D356,F63D356 N 01738 M00S01677.fcopy +++| CONV T63D357,F63D357 O 01739 M00S01678.fcopy +++| CONV T63D360,F63D360 P 01740 M00S01679.fcopy +++| CONV T63D361,F63D361 Q 01741 M00S01680.fcopy +++| CONV T63D362,F63D362 R 01742 M00S01681.fcopy +++| CONV T63D363,F63D363 S 01743 M00S01682.fcopy +++| CONV T63D364,F63D364 T 01744 M00S01683.fcopy +++| CONV T63D365,F63D365 U 01745 M00S01684.fcopy +++| CONV T63D366,F63D366 V 01746 M00S01685.fcopy +++| CONV T63D367,F63D367 W 01747 M00S01686.fcopy +++| CONV T63D370,F63D370 X 01748 M00S01687.fcopy +++| CONV T63D371,F63D371 Y 01749 M00S01688.fcopy +++| CONV T63D372,F63D372 Z 01750 M00S01689.fcopy +++| CONV T63D373,F63D373 [ 01751 M00S01690.fcopy +++| CONV T63D374,F63D374 \ 01752 M00S01691.fcopy +++| CONV T63D375,F63D375 ] 01753 M00S01692.fcopy +++| CONV T63D376,F63D376 01754 M00S01693.fcopy +++| CONV T63D377,F63D377 01755 M00S01694.fcopy +++| 01756 M00S01695.fcopy +++| CONV ZBCH,ZBCH ZB ZB 01757 M00S01696.fcopy +++| CONV EORC,EORC EOR EOR 01758 M00S01697.fcopy +++| CONV EOFC,EOFC EOF EOF 01759 M00S01698.fcopy +++| CONV EOIC,EOIC EOI EOI 01760 M00S01699.fcopy +++| 01761 M00S01700.fcopy +++| LOC *O 01762 M00S01701.fcopy +++| QUAL * 01763 M00S01702.fcopy +++| SPACE 4,10 01764 M00S01703.fcopy +++| TA64 BSS 0 64 CHARACTER ASCII 6/12 01765 M00S01704.fcopy +++| QUAL COMTCVT 01766 M00S01705.fcopy +++| LOC 0 01767 M00S01706.fcopy +++| 01768 M00S01707.fcopy +++|* TO FROM 01769 M00S01708.fcopy +++|* ASCII64 ASCII64 01770 M00S01709.fcopy +++| 01771 M00S01710.fcopy +++| CONV T64A000,F64A000 NUL : 01772 M00S01711.fcopy +++| CONV T64A001,F64A001 SOH A 01773 M00S01712.fcopy +++| CONV T64A002,F64A002 STX B 01774 M00S01713.fcopy +++| CONV T64A003,F64A003 ETX C 01775 M00S01714.fcopy +++| CONV T64A004,F64A004 EOT D 01776 M00S01715.fcopy +++| CONV T64A005,F64A005 ENQ E 01777 M00S01716.fcopy +++| CONV T64A006,F64A006 ACK F 01778 M00S01717.fcopy +++| CONV T64A007,F64A007 BEL G 01779 M00S01718.fcopy +++| CONV T64A010,F64A010 BS H 01780 M00S01719.fcopy +++| CONV T64A011,F64A011 HT I 01781 M00S01720.fcopy +++| CONV T64A012,F64A012 LF J 01782 M00S01721.fcopy +++| CONV T64A013,F64A013 VT K 01783 M00S01722.fcopy +++| CONV T64A014,F64A014 FF L 01784 M00S01723.fcopy +++| CONV T64A015,F64A015 CR M 01785 M00S01724.fcopy +++| CONV T64A016,F64A016 SO N 01786 M00S01725.fcopy +++| CONV T64A017,F64A017 SI O 01787 M00S01726.fcopy +++| CONV T64A020,F64A020 DLE P 01788 M00S01727.fcopy +++| CONV T64A021,F64A021 DC1 Q 01789 M00S01728.fcopy +++| CONV T64A022,F64A022 DC2 R 01790 M00S01729.fcopy +++| CONV T64A023,F64A023 DC3 S 01791 M00S01730.fcopy +++| CONV T64A024,F64A024 DC4 T 01792 M00S01731.fcopy +++| CONV T64A025,F64A025 NAK U 01793 M00S01732.fcopy +++| CONV T64A026,F64A026 SYN V 01794 M00S01733.fcopy +++| CONV T64A027,F64A027 ETB W 01795 M00S01734.fcopy +++| CONV T64A030,F64A030 CAN X 01796 M00S01735.fcopy +++| CONV T64A031,F64A031 EM Y 01797 M00S01736.fcopy +++| CONV T64A032,F64A032 SUB Z 01798 M00S01737.fcopy +++| CONV T64A033,F64A033 ESC 0 01799 M00S01738.fcopy +++| CONV T64A034,F64A034 FS 1 01800 M00S01739.fcopy +++| CONV T64A035,F64A035 GS 2 01801 M00S01740.fcopy +++| CONV T64A036,F64A036 RS 3 01802 M00S01741.fcopy +++| CONV T64A037,F64A037 US 4 01803 M00S01742.fcopy +++| CONV T64A040,F64A040 BLANK 5 01804 M00S01743.fcopy +++| CONV T64A041,F64A041 ! 6 01805 M00S01744.fcopy +++| CONV T64A042,F64A042 " 7 01806 M00S01745.fcopy +++| CONV T64A043,F64A043 # 8 01807 M00S01746.fcopy +++| CONV T64A044,F64A044 $ 9 01808 M00S01747.fcopy +++| CONV T64A045,F64A045 % + 01809 M00S01748.fcopy +++| CONV T64A046,F64A046 & - 01810 M00S01749.fcopy +++| CONV T64A047,F64A047 ' * 01811 M00S01750.fcopy +++| CONV T64A050,F64A050 ( / 01812 M00S01751.fcopy +++| CONV T64A051,F64A051 ) ( 01813 M00S01752.fcopy +++| CONV T64A052,F64A052 * ) 01814 M00S01753.fcopy +++| CONV T64A053,F64A053 + $ 01815 M00S01754.fcopy +++| CONV T64A054,F64A054 , = 01816 M00S01755.fcopy +++| CONV T64A055,F64A055 - BLANK 01817 M00S01756.fcopy +++| CONV T64A056,F64A056 . , 01818 M00S01757.fcopy +++| CONV T64A057,F64A057 / . 01819 M00S01758.fcopy +++| CONV T64A060,F64A060 0 # 01820 M00S01759.fcopy +++| CONV T64A061,F64A061 1 [ 01821 M00S01760.fcopy +++| CONV T64A062,F64A062 2 ] 01822 M00S01761.fcopy +++| CONV T64A063,F64A063 3 % 01823 M00S01762.fcopy +++| CONV T64A064,F64A064 4 " 01824 M00S01763.fcopy +++| CONV T64A065,F64A065 5 _ 01825 M00S01764.fcopy +++| CONV T64A066,F64A066 6 ! 01826 M00S01765.fcopy +++| CONV T64A067,F64A067 7 & 01827 M00S01766.fcopy +++| CONV T64A070,F64A070 8 ' 01828 M00S01767.fcopy +++| CONV T64A071,F64A071 9 ? 01829 M00S01768.fcopy +++| CONV T64A072,F64A072 : < 01830 M00S01769.fcopy +++| CONV T64A073,F64A073 ; > 01831 M00S01770.fcopy +++| CONV T64A074,F64A074 < 01832 M00S01771.fcopy +++| CONV T64A075,F64A075 = \ 01833 M00S01772.fcopy +++| CONV T64A076,F64A076 > 01834 M00S01773.fcopy +++| CONV T64A077,F64A077 ? ; 01835 M00S01774.fcopy +++| CONV T64A100,F64A100 01836 M00S01775.fcopy +++| CONV T64A101,F64A101 A 01837 M00S01776.fcopy +++| CONV T64A102,F64A102 B 01838 M00S01777.fcopy +++| CONV T64A103,F64A103 C 01839 M00S01778.fcopy +++| CONV T64A104,F64A104 D 01840 M00S01779.fcopy +++| CONV T64A105,F64A105 E 01841 M00S01780.fcopy +++| CONV T64A106,F64A106 F 01842 M00S01781.fcopy +++| CONV T64A107,F64A107 G 01843 M00S01782.fcopy +++| CONV T64A110,F64A110 H 01844 M00S01783.fcopy +++| CONV T64A111,F64A111 I 01845 M00S01784.fcopy +++| CONV T64A112,F64A112 J 01846 M00S01785.fcopy +++| CONV T64A113,F64A113 K 01847 M00S01786.fcopy +++| CONV T64A114,F64A114 L 01848 M00S01787.fcopy +++| CONV T64A115,F64A115 M 01849 M00S01788.fcopy +++| CONV T64A116,F64A116 N 01850 M00S01789.fcopy +++| CONV T64A117,F64A117 O 01851 M00S01790.fcopy +++| CONV T64A120,F64A120 P 01852 M00S01791.fcopy +++| CONV T64A121,F64A121 Q
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/fcopy.txt · Last modified: by 127.0.0.1