cdc:nos2.source:opl.opl871:deck:fcopy
Deck FCOPY
10 Modifications
Listing Sections
- Deck FCOPY Start
- Deck FCOPY Part 1 (Line 1866)
- Deck FCOPY Part 2 (Line 3344)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.fcopy +++| IDENT FCOPY,FETS,FCOPY 00002 M01S00002.fcopy +++| ABS 00003 M01S00003.fcopy +++| ENTRY FCOPY 00004 M01S00004.fcopy +++| ENTRY RFL= 00005 M01S00005.fcopy +++| SYSCOM B1 00006 M01S00006.fcopy +++|*COMMENT FCOPY - FILE COPY.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979. 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.fcopy +++| TITLE FCOPY - FILE COPY. 00010 M01S00009.fcopy +++| SPACE 4,10 00011 M01S00010.fcopy +++|*** FCOPY - FILE COPY. 00012 M01S00011.fcopy +++|* D. R. HILGREN 79/01/15. 00013 M01S00012.fcopy +++|* J. HOLLISTER 82/02/22. 00014 M01S00013.fcopy +++| SPACE 4,10 00015 M01S00014.fcopy +++|*** *FCOPY* CONVERTS A FILE FROM ONE CODE SET FORMAT 00016 M01S00015.fcopy +++|* TO ANOTHER CODE SET FORMAT. 00017 M01S00016.fcopy +++| SPACE 4,20 00018 M01S00017.fcopy +++|*** COMMAND. 00019 M01S00018.fcopy +++|*
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00020 M02S00019.fcopy4 ---|* FCOPY(P=LFN1,N=LFN2,PC=IC1,NC=IC2,PL=LT1,NL=LT2,FL=L,LB=N,R) 00021 M01S00001.fcopy4 +++|* FCOPY(P=LFN1,N=LFN2,PC=IC1,NC=IC2,PL=LT1,NL=LT2,FL=L,LB=N,R,A) 00022 M01S00020.fcopy +++|* 00023 M01S00021.fcopy +++|* LFN1 FILE TO BE CONVERTED (DEFAULT IS *OLD*). LFN1 00024 M01S00022.fcopy +++|* IS NOT REWOUND BEFORE OR AFTER THE OPERATION. 00025 M01S00023.fcopy +++|* 00026 M01S00024.fcopy +++|* LFN2 FILE WRITTEN IN NEW FORMAT (DEFAULT IS *NEW*). 00027 M01S00025.fcopy +++|* LFN2 IS NOT REWOUND BEFORE OR AFTER THE OPERATION. 00028 M01S00026.fcopy +++|* 00029 M01S00027.fcopy +++|* IC1 INTERNAL CHARACTERISTIC OF LFN1 (DEFAULT IS 00030 M01S00028.fcopy +++|* *ASCII*). 00031 M01S00029.fcopy +++|* 00032 M01S00030.fcopy +++|* IC2 INTERNAL CHARACTERISTIC OF LFN2 (DEFAULT IS 00033 M01S00031.fcopy +++|* *ASCII8*). 00034 M01S00032.fcopy +++|* 00035 M01S00033.fcopy +++|* DIS = 6 BIT DISPLAY CODE BASED ON EITHER 63 OR 64 00036 M01S00034.fcopy +++|* CHARACTER SET, WHICHEVER IS IN USE IN THE 00037 M01S00035.fcopy +++|* RESIDENT SYSTEM. 00038 M01S00036.fcopy +++|* 00039 M01S00037.fcopy +++|* DIS63 = 6 BIT DISPLAY CODE, BASED ON 63 00040 M01S00038.fcopy +++|* CHARACTER SET. 00041 M01S00039.fcopy +++|* 00042 M01S00040.fcopy +++|* DIS64 = 6 BIT DISPLAY CODE, BASED ON 64 00043 M01S00041.fcopy +++|* CHARACTER SET. 00044 M01S00042.fcopy +++|* 00045 M01S00043.fcopy +++|* ASCII = 6/12 DISPLAY CODE BASED ON EITHER 63 OR 64 00046 M01S00044.fcopy +++|* CHARACTER SET. 00047 M01S00045.fcopy +++|* 00048 M01S00046.fcopy +++|* ASCII63 = 6/12 DISPLAY CODE BASED ON THE 63 CHARACTER 00049 M01S00047.fcopy +++|* SET. 00050 M01S00048.fcopy +++|* 00051 M01S00049.fcopy +++|* ASCII64 = 6/12 DISPLAY CODE, BASED ON THE 64 CHARACTER 00052 M01S00050.fcopy +++|* SET. 00053 M01S00051.fcopy +++|* 00054 M01S00052.fcopy +++|* ASCII8 = 7 BIT SUBSET OF 8 BIT ASCII, RIGHT 00055 M01S00053.fcopy +++|* JUSTIFIED IN 12 BITS. 00056 M01S00054.fcopy +++|* 00057 M01S00055.fcopy +++|* ASCII88 = FULL 8 BIT ASCII CHARACTER SET IN 8 BITS. 00058 M01S00056.fcopy +++|* 00059 M01S00057.fcopy +++|* ASCFL = FULL 8 BIT ASCII, IN FIXED LENGTH LINES 00060 M01S00058.fcopy +++|* WITHOUT LINE TERMINATORS (STRANGER TAPES 00061 M01S00059.fcopy +++|* ONLY). 00062 M01S00060.fcopy +++|* 00063 M01S00061.fcopy +++|* EBCFL = 8 BIT EBCDIC, IN FIXED LENGTH LINES 00064 M01S00062.fcopy +++|* WITHOUT LINE TERMINATORS (STRANGER TAPES 00065 M01S00063.fcopy +++|* ONLY). 00066 M01S00064.fcopy +++|* 00067 M01S00065.fcopy +++|* LT1 LINE TERMINATOR OF LFN1 (DEFAULT IS ZERO BYTE). 00068 M01S00066.fcopy +++|* 00069 M01S00067.fcopy +++|* LT2 LINE TERMINATOR OF LFN2 (DEFAULT IS ZERO BYTE). 00070 M01S00068.fcopy +++|* 00071 M01S00069.fcopy +++|* ZB = ZERO BYTE. 00072 M01S00070.fcopy +++|* CR = CARRIAGE RETURN. 00073 M01S00071.fcopy +++|* FF = FORM FEED. 00074 M01S00072.fcopy +++|* LF = LINE FEED. 00075 M01S00073.fcopy +++|* US = UNIT SEPARATOR. 00076 M01S00074.fcopy +++|* RS = RECORD SEPARATOR. 00077 M01S00075.fcopy +++|* CRLF = CARRIAGE RETURN-LINE FEED. 00078 M01S00076.fcopy +++|* LFCR = LINE FEED-CARRIAGE RETURN. 00079 M01S00077.fcopy +++|* NN = SPECIFIED OCTAL VALUE. 00080 M01S00078.fcopy +++|* 00081 M01S00079.fcopy +++|* THE FOLLOWING TABLE SPECIFIES THE LEGAL COMBINATIONS 00082 M01S00080.fcopy +++|* OF CODE SETS (INTERNAL CHARACTERISTICS) AND LINE 00083 M01S00081.fcopy +++|* TERMINATORS. 00084 M01S00082.fcopy +++|* 00085 M01S00083.fcopy +++|* 00086 M01S00084.fcopy +++|* * LINE TERMINATOR 00087 M01S00085.fcopy +++|* CODE SET * 00088 M01S00086.fcopy +++|* * ZB CR FF LF US RS CRLF LFCR NN 00089 M01S00087.fcopy +++|* ****************************************************** 00090 M01S00088.fcopy +++|* DIS * Y N N N N N N N 0-77B 00091 M01S00089.fcopy +++|* * 00092 M01S00090.fcopy +++|* DIS63 * Y N N N N N N N 0-77B 00093 M01S00091.fcopy +++|* * 00094 M01S00092.fcopy +++|* DIS64 * Y N N N N N N N 0-77B 00095 M01S00093.fcopy +++|* * 00096 M01S00094.fcopy +++|* ASCII * Y Y Y Y Y Y N N 0-77B * 00097 M01S00095.fcopy +++|* * 00098 M01S00096.fcopy +++|* ASCII63 * Y Y Y Y Y Y N N 0-77B * 00099 M01S00097.fcopy +++|* * 00100 M01S00098.fcopy +++|* ASCII64 * Y Y Y Y Y Y N N 0-77B * 00101 M01S00099.fcopy +++|* * 00102 M01S00100.fcopy +++|* ASCII8 * Y Y Y Y Y Y Y Y 0-377B 00103 M01S00101.fcopy +++|* * 00104 M01S00102.fcopy +++|* ASCII88 * N Y Y Y Y Y Y Y 0-377B 00105 M01S00103.fcopy +++|* * 00106 M01S00104.fcopy +++|* ASCFL * N N N N N N N N N 00107 M01S00105.fcopy +++|* * 00108 M01S00106.fcopy +++|* EBCFL * N N N N N N N N N 00109 M01S00107.fcopy +++|* 00110 M01S00108.fcopy +++|* * +7400B OR 7700B, IF DESIRED. 00111 M01S00109.fcopy +++|* 00112 M01S00110.fcopy +++|* L FIXED LENGTH LINE LENGTH. THIS PARAMETER IS ONLY 00113 M01S00111.fcopy +++|* USED ON STRANGER TAPES. (DEFAULT IS 80) 00114 M01S00112.fcopy +++|*
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00115 M02S00113.fcopy9 ---|* N LINES PER BLOCK ON STRANGER TAPE. THE PRODUCT OF THE
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00116 M02S00114.fcopy9 ---|* FIXED LINE LENGTH AND THE BLOCK LENGTH MUST BE LESS
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00117 M02S00115.fcopy9 ---|* THAN OR EQUAL TO 3840. (DEFAULT IS 3840 DIVIDED BY
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00118 M02S00116.fcopy9 ---|* FIXED LENGTH LINE LENGTH) 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 M01S00117.fcopy +++|* 00125 M01S00118.fcopy +++|* R - IF SPECIFIED, LFN1 AND LFN2 ARE REWOUND BEFORE AND 00126 M01S00119.fcopy +++|* AFTER THE OPERATION. 00127 M01S00002.fcopy4 +++|* 00128 M01S00003.fcopy4 +++|* A - IF SPECIFIED, ABORT AFTER THE OPERATION IF ERRORS 00129 M01S00004.fcopy4 +++|* OCCURRED. 00130 M01S00120.fcopy +++| SPACE 4,15 00131 M01S00121.fcopy +++|*** DAYFILE MESSAGES. 00132 M01S00122.fcopy +++|* 00133 M01S00123.fcopy +++|* * BAD FCOPY CONVERSION TABLE.* - FCOPY TABLES 00134 M01S00124.fcopy +++|* ARE IN ERROR. CONSULT SITE ANALYST. 00135 M01S00125.fcopy +++|* 00136 M01S00126.fcopy +++|* * ERROR IN FCOPY ARGUMENTS.* - ERROR DETECTED IN 00137 M01S00127.fcopy +++|* COMMAND ARGUMENTS. 00138 M01S00128.fcopy +++|* 00139 M01S00129.fcopy +++|* * ERROR LIMIT. XXXXXX ADDITIONAL ERRORS FOUND.* - MORE 00140 M01S00130.fcopy +++|* THAN 20 ERRORS WERE FOUND DURING CONVERSION. 00141 M01S00131.fcopy +++|* 00142 M01S00132.fcopy +++|* * FCOPY COMPLETE.* - INFORMATIVE MESSAGE INDICATING 00143 M01S00133.fcopy +++|* *FCOPY* COMPLETION. 00144 M01S00134.fcopy +++|* 00145 M01S00135.fcopy +++|* * FILE NAME CONFLICT.* - LFN1 CAN NOT BE THE SAME 00146 M01S00136.fcopy +++|* FILE NAME AS LFN2. 00147 M01S00137.fcopy +++|* 00148 M01S00138.fcopy +++|* * UNKNOWN CODE CCCC, FILE XXXX, RECORD YYYY, LINE 00149 M01S00139.fcopy +++|* ZZZZZZ.* - CODE IS NOT A VALID CHARACTER IN THE INPUT 00150 M01S00140.fcopy +++|* CHARACTER SET. 00151 M01S00141.fcopy +++|* 00152 M01S00142.fcopy +++|* * INPUT FILE NOT FOUND.* - LFN1 MUST BE AN EXISTING 00153 M01S00143.fcopy +++|* LOCAL OR ATTACHED DIRECT ACCESS FILE. 00154 M01S00144.fcopy +++|* 00155 M01S00145.fcopy +++|* * UNRECOGNIZED CODE SET PARAMETER.* - *PC* OR *NC* 00156 M01S00146.fcopy +++|* PARAMETER SPECIFIES UNSUPPORTED CONVERSION. 00157 M01S00147.fcopy +++|* 00158 M01S00148.fcopy +++|* *UNRECOGNIZED LINE TERMINATOR PARAMETER.* - *PL* OR *NL* 00159 M01S00149.fcopy +++|* PARAMETER SPECIFIES AN UNSUPPORTED LINE TERMINATOR. 00160 M01S00150.fcopy +++|* 00161 M01S00151.fcopy +++|* *CODE SET LINE TERMINATOR CONFLICT.* - THE LINE TERMINATOR 00162 M01S00152.fcopy +++|* SPECIFIED ON THE *PL* OR *NL* PARAMETER IS NOT SUPPORTED BY 00163 M01S00153.fcopy +++|* THE CODE SET SPECIFIED ON THE *PC* OR *NC* PARAMETER. 00164 M01S00154.fcopy +++|* 00165 M01S00155.fcopy +++|* * XXXXXX LINES TRUNCATED.* - THE NUMBER OF LINES INDICATED 00166 M01S00156.fcopy +++|* WERE TOO LONG FOR THE SPECIFIED FIXED LENGTH LINE ON A COPY 00167 M01S00157.fcopy +++|* TO A STRANGER TAPE. 00168 M01S00158.fcopy +++|*
| Line S00159 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00169 M02S00159.fcopy9 ---|* * BLOCK TOO LARGE FOR BUFFERS.* - THE PRODUCT OF THE FIXED
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00170 M02S00160.fcopy9 ---|* LINE LENGTH AND BLOCK LENGTH SPECIFIED WAS GREATER THAN
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00171 M02S00161.fcopy9 ---|* THE LIMIT OF 3840.
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00172 M02S00162.fcopy9 ---|* 00173 M01S00163.fcopy +++|* * INCORRECT FILE TYPE FOR SPECIFIED CHARACTER SET.* - EITHER 00174 M01S00164.fcopy +++|* YOU SPECIFIED *ASCFL* OR *EBCFL* AS THE CHARACTER SET FOR A 00175 M01S00165.fcopy +++|* FILE NOT RESIDING ON A STRANGER TAPE, OR SOME OTHER CHARACTER 00176 M01S00166.fcopy +++|* SET FOR A FILE ON A STRANGER TAPE. 00177 M01S00167.fcopy +++|* 00178 M01S00168.fcopy +++|* * LINE TERMINATORS NOT USED ON A STRANGER TAPE.* - YOU 00179 M01S00169.fcopy +++|* SPECIFIED A LINE TERMINATOR FOR A STRANGER TAPE FILE. 00180 M01S00170.fcopy +++| TITLE SYMBOL DEFINITIONS. 00181 M01S00171.fcopy +++| SPACE 4,10 00182 M01S00172.fcopy +++|**** ASSEMBLY CONSTANTS. 00183 M01S00173.fcopy +++| 00184 M01S00174.fcopy +++|
| Line S00175 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00185 M02S00175.274l797 ---| PBUFL EQU 2002B OLD BUFFER LENGTH
| Line S00176 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00186 M02S00176.274l797 ---| NBUFL EQU 2002B NEW BUFFER LENGTH 00187 M01S00001.274l797 +++| PBUFL EQU 20041B OLD BUFFER LENGTH 00188 M01S00002.274l797 +++| NBUFL EQU 20041B NEW BUFFER LENGTH 00189 M01S00177.fcopy +++| WBUFL EQU 101B WORKING WRITE BUFFER 00190 M01S00003.274l797 +++| FETODL EQU 16 OPTICAL DISK FET EXTENSION LENGTH 00191 M01S00178.fcopy +++| BLNK EQU 55B DISPLAY CHARACTER BLANK 00192 M01S00179.fcopy +++| ZBCH EQU 400B INTERNAL ZERO BYTE CHARACTER 00193 M01S00180.fcopy +++| EORC EQU 401B INTERNAL EOR CHARACTER 00194 M01S00181.fcopy +++| EOFC EQU 402B INTERNAL EOF CHARACTER 00195 M01S00182.fcopy +++| EOIC EQU 403B INTERNAL EOI CHARACTER 00196 M01S00183.fcopy +++| TLEN EQU 403B CONVERSION BASE TABLE LENGTH 00197 M01S00184.fcopy +++| MCVTL EQU 1006B MAXIMUM CONVERSION TABLE LENGTH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Updated by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 00198 M02S00001.fcopy9 ---| MXCB EQU 7400B MAXIMUM CHARACTERS/BLOCK, STRANGER TAPE 00199 M01S00006.fcopy9 +++| MXCB EQU 3840D MAXIMUM CHARACTERS/BLOCK, S-FORMAT TAPE 00200 M01S00185.fcopy +++| 00201 M01S00186.fcopy +++|**** 00202 M01S00187.fcopy +++| SPACE 4,10 00203 M01S00188.fcopy +++|* COMMON DECKS. 00204 M01S00189.fcopy +++| 00205 M01S00190.fcopy +++| 00206 M01S00191.fcopy +++|*CALL COMCMAC 00207 M01S00192.fcopy +++|*CALL COMCCMD 00208 M01S00193.fcopy +++|*CALL COMSLFM 00209 M01S00194.fcopy +++| QUAL COMSMTX 00210 M01S00195.fcopy +++|*CALL COMSMTX 00211 M01S00196.fcopy +++| QUAL * 00212 M01S00197.fcopy +++| SPACE 4,10 00213 M01S00198.fcopy +++|** CONV - GENERATE CONVERSION BASE TABLE ENTRY. 00214 M01S00199.fcopy +++|* 00215 M01S00200.fcopy +++|* CONV X,Y 00216 M01S00201.fcopy +++|* 00217 M01S00202.fcopy +++|* ENTRY X = NUMERIC VALUE. 00218 M01S00203.fcopy +++|* Y = NUMERIC VALUE. 00219 M01S00204.fcopy +++|* 00220 M01S00205.fcopy +++|*T 24/0, 18/X, 18/Y
Figure
00221 M01S00206.fcopy +++| 00222 M01S00207.fcopy +++| PURGMAC CONV 00223 M01S00208.fcopy +++| 00224 M01S00209.fcopy +++| CONV MACRO X,Y 00225 M01S00210.fcopy +++| VFD 24D/0,18D/X,18D/Y 00226 M01S00211.fcopy +++| CONV ENDM 00227 M01S00212.fcopy +++| TITLE WORKING STORAGE. 00228 M01S00213.fcopy +++| SPACE 4,10 00229 M01S00214.fcopy +++|* FET DEFINITIONS. 00230 M01S00215.fcopy +++| 00231 M01S00216.fcopy +++| 00232 M01S00217.fcopy +++| ORG 110B 00233 M01S00218.fcopy +++| FETS BSS 0 00234 M01S00219.fcopy +++| 00235 M01S00220.fcopy +++| P BSS 0 OLD FILE
| Line S00221 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00236 M02S00221.274l797 ---| OLD FILEB PBUF,PBUFL,FET=7 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 M01S00222.fcopy +++| 00242 M01S00223.fcopy +++| 00243 M01S00224.fcopy +++| N BSS 0 NEW FILE
| Line S00225 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00244 M02S00225.274l797 ---| NEW FILEB NBUF,NBUFL,FET=7 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 M01S00226.fcopy +++| 00250 M01S00227.fcopy +++| 00251 M01S00228.fcopy +++|* INPUT PARAMETERS. 00252 M01S00229.fcopy +++| 00253 M01S00230.fcopy +++| 00254 M01S00231.fcopy +++| PC VFD 42/0LASCII,18/0 DEFAULT *PC* VALUE 00255 M01S00232.fcopy +++| NC VFD 42/0LASCII8,18/0 DEFAULT *NC* VALUE 00256 M01S00233.fcopy +++| PL CON 0 OLD FILE LINE TERMINATOR 00257 M01S00234.fcopy +++| NL CON 0 NEW FILE LINE TERMINATOR
| Line S00235 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 00258 M02S00235.fcopy3 ---| FL VFD 42/0L80,18/0 CHARACTERS PER FIXED LENGTH LINE
| Line S00236 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 00259 M02S00236.fcopy3 ---| LB VFD 42/0L48,18/0 LINES PER STRANGER TAPE BLOCK 00260 M01S00002.fcopy3 +++| FL CON 0 CHARACTERS PER LINE, STRANGER TAPE 00261 M01S00003.fcopy3 +++| LB CON 0 LINES PER BLOCK, STRANGER TAPE 00262 M01S00237.fcopy +++| R CON 0 REWIND FLAG 00263 M01S00005.fcopy4 +++| A CON 0 ABORT FLAG 00264 M01S00238.fcopy +++| SPACE 4,10 00265 M01S00239.fcopy +++|* GLOBAL VARIABLES. 00266 M01S00240.fcopy +++| 00267 M01S00241.fcopy +++|
| Line S00242 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00268 M02S00242.fcopy4 ---| ASV CON 1 NO REWIND INDICATOR 00269 M01S00006.fcopy4 +++| ASV CON 1 ASSUMED VALUE FOR *A* AND *R* PARAMETERS 00270 M01S00243.fcopy +++| CLNF CON 0 6 BIT COLON FOUND FLAG 00271 M01S00244.fcopy +++| ENDF CON 0 EOI DETECTED FLAG 00272 M01S00245.fcopy +++| ERCT CON 0 ERROR COUNT 00273 M01S00246.fcopy +++| ERLM CON 20D ERROR LIMIT 00274 M01S00247.fcopy +++| FILE CON 1 FILE NUMBER 00275 M01S00248.fcopy +++| IBHW CON 0 FULL SIZED INPUT BLOCK HEADER WORD 00276 M01S00249.fcopy +++| ILCC CON 0 INPUT LINE CHARACTER COUNT 00277 M01S00250.fcopy +++| ILCT CON 0 INPUT LINES REMAINING IN BLOCK 00278 M01S00251.fcopy +++| INDX CON 0 OFFSET TO SPECIAL SECTION OF TABLE 00279 M01S00252.fcopy +++| IPTR CON 0 LOCATION TO STORE HEADER WORD ON OUTPUT 00280 M01S00253.fcopy +++| IWRD CON 0 CURRENT INPUT WORD 00281 M01S00254.fcopy +++| LINE CON 1 CURRENT LINE 00282 M01S00255.fcopy +++| OBHW CON 0 FULL SIZED OUTPUT BLOCK HEADER WORD 00283 M01S00256.fcopy +++| OLCC CON 0 OUTPUT LINE CHARACTER COUNT 00284 M01S00257.fcopy +++| OLCT CON 0 OUTPUT LINES REMAINING IN BLOCK 00285 M01S00258.fcopy +++| OWRD CON 0 CURRENT OUTPUT WORD 00286 M01S00259.fcopy +++| RAHD CON -1 READ AHEAD CHARACTER 00287 M01S00260.fcopy +++| RCRD CON 1 RECORD NUMBER 00288 M01S00261.fcopy +++| SPAC CON 40B BLANK OUTPUT CHARACTER CODE 00289 M01S00262.fcopy +++| STPI CON 0 NON-ZERO IF INPUT FILE IS STRANGER TAPE 00290 M01S00263.fcopy +++| STPO CON 0 NON-ZERO IF OUTPUT FILE IS STRANGER TAPE 00291 M01S00264.fcopy +++| TCVTL CON TLEN CONVERSION TABLE LENGTH 00292 M01S00265.fcopy +++| TRNC CON 0 TRUNCATED LINE COUNT 00293 M01S00012.274l797 +++| UBC CON 0 UNUSED BIT COUNT 00294 M01S00266.fcopy +++| 00295 M01S00267.fcopy +++| SPACE 4,10 00296 M01S00268.fcopy +++|* DAYFILE MESSAGES. 00297 M01S00269.fcopy +++| 00298 M01S00270.fcopy +++| 00299 M01S00271.fcopy +++| MSGA DATA C* FCOPY COMPLETE.* 00300 M01S00272.fcopy +++| MSGB DATA C* BAD FCOPY CONVERSION TABLE.* 00301 M01S00273.fcopy +++| MSGC DATA 50H UNKNOWN CODE CCCC, FILE XXXX, RECORD YYYY, LIN 00302 M01S00274.fcopy +++| DATA C*E ZZZZZZ.* 00303 M01S00275.fcopy +++| MSGD DATA C* ERROR LIMIT. XXXXXX ADDITIONAL ERRORS FOUND.* 00304 M01S00276.fcopy +++| MSGE DATA C* ERRORS OCCURRED IN FCOPY. SEE DAYFILE.* 00305 M01S00277.fcopy +++| MSGF DATA C* XXXXXX LINES TRUNCATED.* 00306 M01S00278.fcopy +++| MSGG DATA C* 1 LINE TRUNCATED.* 00307 M01S00279.fcopy +++| 00308 M01S00280.fcopy +++| 00309 M01S00281.fcopy +++| TITLE MAIN ROUTINE. 00310 M01S00282.fcopy +++| FCOPY SB1 1 ENTRY 00311 M01S00283.fcopy +++| RJ PRS PRESET PROGRAM 00312 M01S00284.fcopy +++| SA1 R 00313 M01S00285.fcopy +++| ZR X1,FCO0 IF NO REWIND OF FILES 00314 M01S00286.fcopy +++| REWIND P 00315 M01S00287.fcopy +++| REWIND N 00316 M01S00288.fcopy +++| FCO0 SB7 A0+ 00317 M01S00289.fcopy +++| NZ B7,FCO1 IF FILES NOT OF LIKE TYPE 00318 M01S00290.fcopy +++| RJ CLF COPY LIKE FILES 00319 M01S00291.fcopy +++| EQ FCO4 TERMINATE COPY 00320 M01S00292.fcopy +++| 00321 M01S00293.fcopy +++| FCO1 RECALL N,R 00322 M01S00294.fcopy +++| SA1 STPO 00323 M01S00295.fcopy +++| ZR X1,FCO1.3 IF OUTPUT FILE NOT STRANGER TAPE 00324 M01S00296.fcopy +++| WRITEO N RESERVE WORD FOR FIRST BLOCK HEADER WORD 00325 M01S00297.fcopy +++| FCO1.3 SA1 STPI 00326 M01S00298.fcopy +++| ZR X1,FCO1.5 IF INPUT FILE NOT STRANGER TAPE 00327 M01S00299.fcopy +++| READN P,R READ STRANGER TAPE 00328 M01S00300.fcopy +++| RJ STB START FIRST STRANGER TAPE BLOCK 00329 M01S00301.fcopy +++| EQ FCO2 START CONVERSION 00330 M01S00302.fcopy +++| 00331 M01S00303.fcopy +++| FCO1.5 READ P,R READ NORMAL FILE 00332 M01S00304.fcopy +++| FCO2 RJ GCH GET NEXT CHARACTER 00333 M01S00305.fcopy +++| RJ TCH TRANSLATE CHARACTER 00334 M01S00306.fcopy +++| NG X2,FCO3 IF CHARACTER IGNORED 00335 M01S00307.fcopy +++| RJ PCH OUTPUT CHARACTER 00336 M01S00308.fcopy +++| FCO3 SA2 ENDF CHECK FOR EOI 00337 M01S00309.fcopy +++| ZR X2,FCO2 IF NOT EOI 00338 M01S00310.fcopy +++| FCO4 RJ PFE PRINT FINAL ERROR MESSAGES
| Line S00311 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00339 M02S00311.fcopy4 ---| FCO5 SA1 R
| Line S00312 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00340 M02S00312.fcopy4 ---| ZR X1,FCO6 IF NO REWIND OF FILES 00341 M01S00007.fcopy4 +++| SA1 R 00342 M01S00008.fcopy4 +++| ZR X1,FCO5 IF NO REWIND OF FILES 00343 M01S00313.fcopy +++| REWIND P 00344 M01S00314.fcopy +++| REWIND N
| Line S00315 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00345 M02S00315.fcopy4 ---| FCO6 MESSAGE X5,3 PRINT TERMINATION MESSAGE
| Line S00316 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00346 M02S00316.fcopy4 ---|
| Line S00317 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 00347 M02S00317.fcopy4 ---| ENDRUN 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 M01S00318.fcopy +++| TITLE SUBROUTINES. 00358 M01S00319.fcopy +++| SPACE 4,10 00359 M01S00320.fcopy +++|** CLF - COPY FILE WITHOUT CONVERSION (SPECIAL CASE). 00360 M01S00321.fcopy +++|* 00361 M01S00322.fcopy +++|* ENTRY FET SET TO READ INPUT FILE. 00362 M01S00323.fcopy +++|* 00363 M01S00324.fcopy +++|* EXIT FILE COPIED. 00364 M01S00325.fcopy +++|* 00365 M01S00326.fcopy +++|* USES X - 1, 2, 6. 00366 M01S00327.fcopy +++|* A - 1, 6. 00367 M01S00328.fcopy +++|* B - 6, 7. 00368 M01S00329.fcopy +++|* 00369 M01S00330.fcopy +++|* CALLS WTW= 00370 M01S00331.fcopy +++|* 00371 M01S00332.fcopy +++|* MACROS READ, READW, WRITER, WRITEF. 00372 M01S00333.fcopy +++| 00373 M01S00334.fcopy +++| 00374 M01S00335.fcopy +++| CLF SUBR ENTRY/EXIT 00375 M01S00336.fcopy +++| CLF1 READ P,R 00376 M01S00337.fcopy +++| CLF2 READW P,WBUF,WBUFL COPY TO WORKING BUFFER 00377 M01S00338.fcopy +++| BX6 X1 SAVE STATUS 00378 M01S00339.fcopy +++| SA6 CLFS 00379 M01S00340.fcopy +++| SB7 B6-WBUF PRESET WTW PARAMETERS 00380 M01S00341.fcopy +++| SB6 WBUF 00381 M01S00342.fcopy +++| SX2 N 00382 M01S00343.fcopy +++| RJ =XWTW= EMPTY WORKING FILE TO NEW FILE 00383 M01S00344.fcopy +++| SA1 CLFS GET READ STATUS 00384 M01S00345.fcopy +++| NG X1,CLF4 IF EOF/EOI 00385 M01S00346.fcopy +++| ZR X1,CLF2 IF NOT EOR 00386 M01S00347.fcopy +++| WRITER N,R 00387 M01S00348.fcopy +++| EQ CLF1 CONTINUE COPY 00388 M01S00349.fcopy +++| 00389 M01S00350.fcopy +++| CLF4 SX1 X1+1 00390 M01S00351.fcopy +++| NG X1,CLFX IF EOI 00391 M01S00352.fcopy +++| WRITEF N,R 00392 M01S00353.fcopy +++| EQ CLF1 CONTINUE COPY 00393 M01S00354.fcopy +++| 00394 M01S00355.fcopy +++| CLFS CON 0 READ STATUS 00395 M01S00356.fcopy +++| FBH SPACE 4,15 00396 M01S00357.fcopy +++|** FBH - FORM BLOCK HEADER WORD. 00397 M01S00358.fcopy +++|* 00398 M01S00359.fcopy +++|* FORMS THE BLOCK HEADER WORD NEEDED FOR STRANGER TAPE OUTPUT. 00399 M01S00360.fcopy +++|* 00400 M01S00361.fcopy +++|* ENTRY (X1) = OUTPUT LINE CHARACTER COUNT. 00401 M01S00362.fcopy +++|* (X2) = LINES IN BLOCK. 00402 M01S00363.fcopy +++|* (B7) = BITS PER CHARACTER. 00403 M01S00364.fcopy +++|* 00404 M01S00365.fcopy +++|* EXIT (X6) = BLOCK HEADER WORD. 00405 M01S00366.fcopy +++|* 00406 M01S00367.fcopy +++|* USES X - 1, 2, 3, 4, 5, 6. 00407 M01S00368.fcopy +++|* A - NONE. 00408 M01S00369.fcopy +++|* B - B7. 00409 M01S00370.fcopy +++| 00410 M01S00371.fcopy +++| 00411 M01S00372.fcopy +++| FBH SUBR ENTRY/EXIT 00412 M01S00373.fcopy +++| IX3 X1*X2 COMPUTE CHARACTERS IN BLOCK 00413 M01S00374.fcopy +++| SX4 B7+ 00414 M01S00375.fcopy +++| IX3 X3*X4 BITS IN BLOCK 00415 M01S00376.fcopy +++| SX5 60D 00416 M01S00377.fcopy +++| BX4 X3 00417 M01S00378.fcopy +++| BX6 X5 00418 M01S00379.fcopy +++| IX1 X4/X6 CYBER WORDS IN BLOCK, TRUNCATED 00419 M01S00380.fcopy +++| IX2 X1*X5 CYBER BITS 00420 M01S00381.fcopy +++| IX6 X3-X2 BITS USED IN LAST WORD 00421 M01S00382.fcopy +++| ZR X6,FBH1 IF NO UNUSED BITS 00422 M01S00383.fcopy +++| IX6 X5-X6 UNUSED BIT COUNT 00423 M01S00384.fcopy +++| SX1 X1+B1 ROUND UP WORD COUNT 00424 M01S00385.fcopy +++| LX6 24 00425 M01S00386.fcopy +++| FBH1 BX6 X6+X1 FORM BLOCK HEADER WORD 00426 M01S00387.fcopy +++| EQ FBHX RETURN 00427 M01S00388.fcopy +++| SPACE 4,20 00428 M01S00389.fcopy +++|** GCH - GET CHARACTER. 00429 M01S00390.fcopy +++|* 00430 M01S00391.fcopy +++|* ENTRY (B2) = CURRENT POSITION IN INPUT WORD. 00431 M01S00392.fcopy +++|* (B4) = INPUT CHARACTER LENGTH. 00432 M01S00393.fcopy +++|* (IWRD) = CURRENT INPUT WORD. 00433 M01S00394.fcopy +++|* (RAHD) = READ AHEAD CHARACTER. 00434 M01S00395.fcopy +++|* = -1 IF NONE. 00435 M01S00396.fcopy +++|* 00436 M01S00397.fcopy +++|* EXIT (X2) = CHARACTER TO PROCESS. 00437 M01S00398.fcopy +++|* (B2) = NEW POSITION IN INPUT WORD. 00438 M01S00399.fcopy +++|* (RAHD) = NEW READ AHEAD CHARACTER. 00439 M01S00400.fcopy +++|* = -1 IF NONE. 00440 M01S00401.fcopy +++|* IN FILES NOT USING THE ZERO BYTE LINE TERMINATOR, 00441 M01S00402.fcopy +++|* ZERO CHARACTERS OCCURRING BETWEEN AN EOR, EOF OR EOI 00442 M01S00403.fcopy +++|* AND THE LAST LINE TERMINATOR PRECEDING IT ARE IGNORED. 00443 M01S00404.fcopy +++|* 00444 M01S00405.fcopy +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 00445 M01S00406.fcopy +++|* A - 1, 2, 3, 6, 7. 00446 M01S00407.fcopy +++|* B - 2, 6, 7. 00447 M01S00408.fcopy +++|* 00448 M01S00409.fcopy +++|* CALLS PCH, RCH, TCH. 00449 M01S00410.fcopy +++| 00450 M01S00411.fcopy +++| 00451 M01S00412.fcopy +++| GCH SUBR ENTRY/EXIT 00452 M01S00413.fcopy +++| SA2 RAHD GET READ AHEAD WORD 00453 M01S00414.fcopy +++| SX6 -B1 CLEAR READ AHEAD 00454 M01S00415.fcopy +++| SA6 A2 00455 M01S00416.fcopy +++| PL X2,GCHX IF CHARACTER ALREADY READ 00456 M01S00417.fcopy +++| RJ RCH READ CHARACTER 00457 M01S00418.fcopy +++| NZ X2,GCHX IF NOT ZERO CHARACTER 00458 M01S00419.fcopy +++| SA1 IWRD GET INPUT WORD 00459 M01S00420.fcopy +++| NZ X1,GCHX IF MORE CHARACTERS IN WORD 00460 M01S00421.fcopy +++| SA3 PL GET INPUT LINE TERMINATOR 00461 M01S00422.fcopy +++| SX3 X3-ZBCH 00462 M01S00423.fcopy +++| NZ X3,GCH3 IF INPUT LINE TERMINATOR NOT ZERO BYTE 00463 M01S00001.fcop2 +++| SA1 INDX GET INDEX 00464 M01S00002.fcop2 +++| NZ X1,GCHX IF UNCOMPLETED DOUBLE LENGTH CHARACTER 00465 M01S00424.fcopy +++| 00466 M01S00425.fcopy +++|* CHECK FOR ZERO BYTE. 00467 M01S00426.fcopy +++| 00468 M01S00427.fcopy +++| SB7 B2+B4 00469 M01S00428.fcopy +++| SB6 12D 00470 M01S00429.fcopy +++| LT B7,B6,GCH1 IF NO ROOM FOR ZERO BYTE 00471 M01S00430.fcopy +++| SX2 ZBCH SET ZERO BYTE CHARACTER 00472 M01S00431.fcopy +++| SB2 B0+ SET CURRENT INPUT WORD EMPTY 00473 M01S00432.fcopy +++| EQ GCHX RETURN 00474 M01S00433.fcopy +++| 00475 M01S00434.fcopy +++| GCH1 RJ RCH READ NEXT CHARACTER 00476 M01S00435.fcopy +++| SA1 IWRD GET NEW INPUT WORD 00477 M01S00436.fcopy +++| NZ X2,GCH2 IF NOT ZERO CHARACTER 00478 M01S00437.fcopy +++| NZ X1,GCH2 IF NOT ZERO BYTE 00479 M01S00438.fcopy +++| SX2 ZBCH SET ZERO BYTE CHARACTER 00480 M01S00439.fcopy +++| SB2 B0+ INPUT WORD IS EMPTY 00481 M01S00440.fcopy +++| EQ GCHX RETURN 00482 M01S00441.fcopy +++| 00483 M01S00442.fcopy +++| GCH2 SX6 X2 SET READ AHEAD CHARACTER 00484 M01S00443.fcopy +++| SA6 RAHD 00485 M01S00444.fcopy +++| BX2 X2-X2 RESET CHARACTER TO ZERO 00486 M01S00445.fcopy +++| EQ GCHX RETURN 00487 M01S00446.fcopy +++| 00488 M01S00447.fcopy +++|* CHECK FOR EXTRANEOUS ZERO CHARACTERS. 00489 M01S00448.fcopy +++| 00490 M01S00449.fcopy +++| GCH3 SX5 B2 COMPUTE NUMBER OF CHARACTERS LEFT IN WORD 00491 M01S00450.fcopy +++| SX4 B4 00492 M01S00451.fcopy +++| IX6 X5/X4 00493 M01S00452.fcopy +++| SX4 B4 00494 M01S00453.fcopy +++| IX4 X4*X6 COMPUTE LEFTOVER BITS 00495 M01S00454.fcopy +++| SX6 X6+1 00496 M01S00455.fcopy +++| IX5 X5-X4 00497 M01S00456.fcopy +++| SA6 GCHA 00498 M01S00457.fcopy +++| SB2 X5 00499 M01S00458.fcopy +++| RJ RCH READ NEXT CHARACTER FROM NEW WORD 00500 M01S00459.fcopy +++| SX4 X2-EOIC-1 00501 M01S00460.fcopy +++| SX5 X2-EORC 00502 M01S00461.fcopy +++| PL X4,GCH4 IF NOT EOR, EOF, OR EOI 00503 M01S00462.fcopy +++| PL X5,GCHX IF CHARACTER IS EOR, EOF OR EOI 00504 M01S00463.fcopy +++| GCH4 SX6 X2 SAVE CHARACTER 00505 M01S00464.fcopy +++| SA6 GCHB 00506 M01S00465.fcopy +++| GCH5 SA1 GCHA CHECK ZERO CHARACTER COUNT 00507 M01S00466.fcopy +++| SX7 X1-1 DECREMENT CHARACTER COUNT 00508 M01S00467.fcopy +++| NG X7,GCH6 IF NO MORE ZERO CHARACTERS TO PROCESS 00509 M01S00468.fcopy +++| BX2 X2-X2 00510 M01S00469.fcopy +++| SA7 GCHA SAVE COUNT 00511 M01S00470.fcopy +++| RJ TCH TRANSLATE ZERO CHARACTER 00512 M01S00471.fcopy +++| NG X2,GCH5 IF CHARACTER IS TO BE IGNORED 00513 M01S00472.fcopy +++| RJ PCH OUTPUT CHARACTER 00514 M01S00473.fcopy +++| EQ GCH5 CONTINUE 00515 M01S00474.fcopy +++| 00516 M01S00475.fcopy +++| GCH6 SA2 GCHB RESTORE FINAL CHARACTER 00517 M01S00476.fcopy +++| EQ GCHX RETURN 00518 M01S00477.fcopy +++| 00519 M01S00478.fcopy +++| 00520 M01S00479.fcopy +++| GCHA CON 0 ZERO CHARACTER COUNT 00521 M01S00480.fcopy +++| GCHB CON 0 TEMPORARY CHARACTER STORAGE 00522 M01S00481.fcopy +++| PCH SPACE 4,20 00523 M01S00482.fcopy +++|** PCH - OUTPUT CHARACTER. 00524 M01S00483.fcopy +++|* 00525 M01S00484.fcopy +++|* ENTRY (X2) = CHARACTER TO WRITE. 00526 M01S00485.fcopy +++|* (B3) = CURRENT POSITION IN OUTPUT WORD. 00527 M01S00486.fcopy +++|* (B5) = OUTPUT CHARACTER LENGTH. 00528 M01S00487.fcopy +++|* (X6) = CHARACTER COUNT. 00529 M01S00488.fcopy +++|* 00530 M01S00489.fcopy +++|* EXIT (B3) = NEW POSITION IN OUTPUT WORD. 00531 M01S00490.fcopy +++|* (CLNF) = 1 IF CHARACTER WRITTEN WAS A 00532 M01S00491.fcopy +++|* 6 BIT DISPLAY CODE COLON. 00533 M01S00492.fcopy +++|* (ENDF) = 1 IF EOI DETECTED. 00534 M01S00493.fcopy +++|* 00535 M01S00494.fcopy +++|* USES X - 1, 2, 3, 5, 6, 7. 00536 M01S00495.fcopy +++|* A - 1, 3, 7. 00537 M01S00496.fcopy +++|* B - 6, 7. 00538 M01S00497.fcopy +++|* 00539 M01S00498.fcopy +++|* CALLS GCH, WCH, WTB, WZB. 00540 M01S00499.fcopy +++|* 00541 M01S00500.fcopy +++|* MACROS WRITEO. 00542 M01S00501.fcopy +++| 00543 M01S00502.fcopy +++| 00544 M01S00503.fcopy +++| PCH SUBR ENTRY/EXIT 00545 M01S00504.fcopy +++| SX3 B5 SET BIT COUNT 00546 M01S00505.fcopy +++| IX6 X3*X6 00547 M01S00506.fcopy +++| SA1 NL CHECK FOR EOL 00548 M01S00507.fcopy +++| SB7 X6 00549 M01S00508.fcopy +++| BX1 X1-X2 00550 M01S00509.fcopy +++| SA3 STPO 00551 M01S00510.fcopy +++| NZ X1,PCH3 IF NOT EOL 00552 M01S00511.fcopy +++| SA1 LINE INCREMENT LINE COUNT 00553 M01S00512.fcopy +++| SX7 X1+B1 00554 M01S00513.fcopy +++| SA7 A1 00555 M01S00514.fcopy +++| NZ X3,PCH7 IF OUTPUT FILE IS STRANGER TAPE 00556 M01S00515.fcopy +++| 00557 M01S00516.fcopy +++|* PROCESS DISPLAY CODE COLON. 00558 M01S00517.fcopy +++| 00559 M01S00518.fcopy +++| PCH1 SX5 X2-ZBCH 00560 M01S00519.fcopy +++| SA3 CLNF GET COLON FLAG 00561 M01S00520.fcopy +++| NZ X5,PCH3 IF NOT ZERO BYTE EOL 00562 M01S00521.fcopy +++| ZR X3,PCH2 IF COLON FLAG NOT SET 00563 M01S00522.fcopy +++| SX2 BLNK SET BLANK TO GUARD COLON 00564 M01S00523.fcopy +++| RJ WCH WRITE BLANK CHARACTER 00565 M01S00524.fcopy +++| BX7 X7-X7 CLEAR COLON FLAG 00566 M01S00525.fcopy +++| SA7 CLNF 00567 M01S00526.fcopy +++| PCH2 RJ WZB WRITE ZERO BYTE 00568 M01S00527.fcopy +++| EQ PCHX RETURN 00569 M01S00528.fcopy +++| 00570 M01S00529.fcopy +++|* WRITE CHARACTER. 00571 M01S00530.fcopy +++| 00572 M01S00531.fcopy +++| PCH3 BX7 X7-X7 CLEAR COLON FLAG 00573 M01S00532.fcopy +++| SB6 6 00574 M01S00533.fcopy +++| NZ X2,PCH4 IF NOT ZERO CHARACTER 00575 M01S00534.fcopy +++| NE B6,B7,PCH4 IF ZERO CHARACTER NOT 6 BIT COLON 00576 M01S00535.fcopy +++| SX7 B1+ SET COLON FLAG 00577 M01S00536.fcopy +++| PCH4 SA7 CLNF SAVE COLON FLAG 00578 M01S00537.fcopy +++| ZR X3,PCH5 IF OUTPUT FILE IS NOT STRANGER TAPE 00579 M01S00538.fcopy +++| SA3 OLCC 00580 M01S00539.fcopy +++| ZR X3,PCH6 IF RECORD (LINE) FULL 00581 M01S00540.fcopy +++| SX7 X3-1 DECREMENT OUTPUT LINE CHARACTER COUNT 00582 M01S00541.fcopy +++| SA7 A3 00583 M01S00542.fcopy +++| PCH5 RJ WCH WRITE CHARACTER 00584 M01S00543.fcopy +++| SA1 STPO 00585 M01S00544.fcopy +++| ZR X1,PCHX IF OUTPUT FILE NOT STRANGER TAPE, RETURN 00586 M01S00545.fcopy +++| SA1 ENDF 00587 M01S00546.fcopy +++| ZR X1,PCHX IF NOT EOI 00588 M01S00547.fcopy +++| RJ WTB WRITE TAPE BLOCK 00589 M01S00548.fcopy +++| EQ PCHX RETURN 00590 M01S00549.fcopy +++| 00591 M01S00550.fcopy +++|* TRUNCATE LONG LINE. 00592 M01S00551.fcopy +++| 00593 M01S00552.fcopy +++| PCH6 RJ GCH READ NEXT INPUT FILE CHARACTER 00594 M01S00553.fcopy +++| SA1 PL CHECK FOR LINE TERMINATOR 00595 M01S00554.fcopy +++| BX1 X2-X1 00596 M01S00555.fcopy +++| NZ X1,PCH6 IF NOT LINE TERMINATOR 00597 M01S00556.fcopy +++| SA1 TRNC INCREMENT TRUNCATION COUNT 00598 M01S00557.fcopy +++| SX6 X1+B1 00599 M01S00558.fcopy +++| SA6 A1 00600 M01S00559.fcopy +++| EQ PCH8 START A NEW LINE 00601 M01S00560.fcopy +++| 00602 M01S00561.fcopy +++|* BLANK FILL REMAINDER OF A SHORT LINE. 00603 M01S00562.fcopy +++| 00604 M01S00563.fcopy +++| PCH7 SA3 OLCC CHECK CHARACTER COUNT 00605 M01S00564.fcopy +++| ZR X3,PCH8 IF NO MORE ROOM IN LINE 00606 M01S00565.fcopy +++| SX7 X3-1 DECREMENT CHARACTER COUNT 00607 M01S00566.fcopy +++| SA2 SPAC ADD ANOTHER BLANK TO LINE 00608 M01S00567.fcopy +++| SB7 B5 00609 M01S00568.fcopy +++| SA7 A3 00610 M01S00569.fcopy +++| RJ WCH 00611 M01S00570.fcopy +++| EQ PCH7 CHECK IF LINE IS FULL 00612 M01S00571.fcopy +++| 00613 M01S00572.fcopy +++| PCH8 SA1 FL RESET OUTPUT LINE CHARACTER COUNT 00614 M01S00573.fcopy +++| BX6 X1 00615 M01S00574.fcopy +++| SA6 OLCC 00616 M01S00575.fcopy +++| SA1 OLCT DECREMENT OUTPUT LINE COUNT 00617 M01S00576.fcopy +++| SX7 X1-1 00618 M01S00577.fcopy +++| SA7 A1 00619 M01S00578.fcopy +++| NZ X7,PCHX IF NOT END OF BLOCK, RETURN 00620 M01S00579.fcopy +++| 00621 M01S00580.fcopy +++|* WRITE CURRENT STRANGER TAPE BLOCK. 00622 M01S00581.fcopy +++| 00623 M01S00582.fcopy +++| SA3 OWRD WRITE LAST WORD OF BLOCK 00624 M01S00583.fcopy +++| BX7 X7-X7 CLEAR OUTPUT WORD 00625 M01S00584.fcopy +++| BX6 X3 00626 M01S00585.fcopy +++| SA7 A3 00627 M01S00586.fcopy +++| WRITEO N 00628 M01S00587.fcopy +++| SB3 60D RESET OUTPUT WORD POINTER 00629 M01S00588.fcopy +++| RJ WTB WRITE STRANGER TAPE BLOCK 00630 M01S00589.fcopy +++| EQ PCHX RETURN 00631 M01S00590.fcopy +++| PFE SPACE 4,20 00632 M01S00591.fcopy +++|** PFE - PRINT FINAL ERROR MESSAGES. 00633 M01S00592.fcopy +++|* 00634 M01S00593.fcopy +++|* ENTRY (ERCT) = TRANSLATION ERROR COUNT. 00635 M01S00594.fcopy +++|* (ERLM) = TRANSLATION ERROR LIMIT. 00636 M01S00595.fcopy +++|* (TRNC) = TRUNCATED LINE COUNT. 00637 M01S00596.fcopy +++|* 00638 M01S00597.fcopy +++|* EXIT (X5) = ADDRESS OF TERMINATION MESSAGE. 00639 M01S00598.fcopy +++|* ERROR MESSAGES PRINTED, IF APPROPRIATE. 00640 M01S00599.fcopy +++|* 00641 M01S00600.fcopy +++|* USES X - 0, 1, 2, 5, 6. 00642 M01S00601.fcopy +++|* A - 1, 2, 6. 00643 M01S00602.fcopy +++|* B - 5. 00644 M01S00603.fcopy +++|* 00645 M01S00604.fcopy +++|* CALLS CDD. 00646 M01S00605.fcopy +++|* 00647 M01S00606.fcopy +++|* MACROS MESSAGE. 00648 M01S00607.fcopy +++| 00649 M01S00608.fcopy +++| 00650 M01S00609.fcopy +++| PFE SUBR ENTRY/EXIT 00651 M01S00610.fcopy +++| 00652 M01S00611.fcopy +++|* PROCESS LINE TRUNCATION COUNT. 00653 M01S00612.fcopy +++| 00654 M01S00613.fcopy +++| SX5 MSGA SET NORMAL TERMINATION MESSAGE 00655 M01S00614.fcopy +++| SA1 TRNC 00656 M01S00615.fcopy +++| SB5 X1 00657 M01S00616.fcopy +++| ZR X1,PFE2 IF NO LINES TRUNCATED 00658 M01S00617.fcopy +++| SX5 MSGE SET ABNORMAL TERMINATION MESSAGE 00659 M01S00618.fcopy +++| NE B5,B1,PFE0 IF MORE THAN ONE LINE TRUNCATED 00660 M01S00619.fcopy +++| SX2 MSGG 00661 M01S00620.fcopy +++| EQ PFE1 PRINT ERROR MESSAGE 00662 M01S00621.fcopy +++| 00663 M01S00622.fcopy +++| PFE0 RJ CDD CONVERT TRUNCATION COUNT TO DISPLAY 00664 M01S00623.fcopy +++| MX0 -18 00665 M01S00624.fcopy +++| SA1 MSGF 00666 M01S00625.fcopy +++| SX2 A1 00667 M01S00626.fcopy +++| LX6 18 POSITION COUNT FOR MESSAGE 00668 M01S00627.fcopy +++| BX1 -X0*X1 CLEAR PLACE FOR COUNT 00669 M01S00628.fcopy +++| BX6 X0*X6 REMOVE EXTRANEOUS BLANKS 00670 M01S00629.fcopy +++| BX6 X1+X6 SET COUNT IN MESSAGE 00671 M01S00630.fcopy +++| SA6 A1+ 00672 M01S00631.fcopy +++| PFE1 MESSAGE X2,3 * XXXXXX LINES TRUNCATED.* 00673 M01S00632.fcopy +++| 00674 M01S00633.fcopy +++|* PROCESS TRANSLATION ERROR COUNT. 00675 M01S00634.fcopy +++| 00676 M01S00635.fcopy +++| PFE2 SA2 ERCT GET ERROR COUNT 00677 M01S00636.fcopy +++| SA1 ERLM GET ERROR LIMIT 00678 M01S00637.fcopy +++| IX1 X2-X1 00679 M01S00638.fcopy +++| ZR X2,PFEX IF NO TRANSLATION ERRORS, RETURN 00680 M01S00639.fcopy +++| SX5 MSGE SET ABNORMAL TERMINATION MESSAGE 00681 M01S00640.fcopy +++| NG X1,PFEX IF ERROR LIMIT NOT REACHED 00682 M01S00641.fcopy +++| RJ CDD CONVERT EXCESS ERROR COUNT TO DISPLAY 00683 M01S00642.fcopy +++| SA1 MSGD+1 00684 M01S00643.fcopy +++| MX0 -36 00685 M01S00644.fcopy +++| BX1 X0*X1 CLEAR SPACE FOR COUNT 00686 M01S00645.fcopy +++| BX6 -X0*X6 REMOVE EXTRA BLANKS 00687 M01S00646.fcopy +++| BX6 X1+X6 SET COUNT IN MESSAGE 00688 M01S00647.fcopy +++| SA6 A1+ 00689 M01S00648.fcopy +++| MESSAGE MSGD,3 * ERROR LIMIT. ...* 00690 M01S00649.fcopy +++| EQ PFEX RETURN 00691 M01S00650.fcopy +++| SPACE 4,15 00692 M01S00651.fcopy +++|** PTE - PROCESS TRANSLATION ERROR. 00693 M01S00652.fcopy +++|* 00694 M01S00653.fcopy +++|* ENTRY (X2) = CHARACTER CODE, RIGHT JUSTIFIED. 00695 M01S00654.fcopy +++|* (X5) = INDEX VALUE FOR 6/12 CHARACTERS. 00696 M01S00655.fcopy +++|* 00697 M01S00656.fcopy +++|* USES X - 0, 1, 3, 4, 5, 6. 00698 M01S00657.fcopy +++|* A - 1, 3, 5, 6. 00699 M01S00658.fcopy +++|* B - 6, 7. 00700 M01S00659.fcopy +++|* 00701 M01S00660.fcopy +++|* CALLS CDD, COD. 00702 M01S00661.fcopy +++|* 00703 M01S00662.fcopy +++|* MACROS MESSAGE. 00704 M01S00663.fcopy +++| 00705 M01S00664.fcopy +++| 00706 M01S00665.fcopy +++| PTE SUBR ENTRY/EXIT 00707 M01S00666.fcopy +++| SA1 ERCT GET ERROR COUNT 00708 M01S00667.fcopy +++| SA3 ERLM GET ERROR LIMIT 00709 M01S00668.fcopy +++| SX6 X1+B1 INCREMENT ERROR COUNT 00710 M01S00669.fcopy +++| SA6 A1+ 00711 M01S00670.fcopy +++| IX6 X3-X6 00712 M01S00671.fcopy +++| NG X6,PTEX IF ERROR LIMIT EXCEEDED, RETURN 00713 M01S00672.fcopy +++| SX6 B4 SAVE (B) REGISTERS 00714 M01S00673.fcopy +++| SB6 B2 00715 M01S00674.fcopy +++| SB7 B3 00716 M01S00675.fcopy +++| SA6 PTEA 00717 M01S00676.fcopy +++| MX0 -24 00718 M01S00677.fcopy +++| 00719 M01S00678.fcopy +++|* PUT CHARACTER CODE IN MESSAGE. 00720 M01S00679.fcopy +++| 00721 M01S00680.fcopy +++| SX4 X5-200B 00722 M01S00681.fcopy +++| SX6 X5-300B 00723 M01S00682.fcopy +++| NZ X4,PTE1 IF NOT 12 BIT 6/12 CHAR STARTING WITH 74 00724 M01S00683.fcopy +++| SX5 7400B 00725 M01S00684.fcopy +++| PTE1 NZ X6,PTE2 IF NOT 12 BIT 6/12 CHAR STARTING WITH 76 00726 M01S00685.fcopy +++| SX5 7600B 00727 M01S00686.fcopy +++| PTE2 IX1 X2+X5 FORM FULL 12 BIT CHARACTER 00728 M01S00687.fcopy +++| SA5 MSGC+1 00729 M01S00688.fcopy +++| RJ COD CONVERT CODE TO DISPLAY 00730 M01S00689.fcopy +++| BX6 -X0*X6 00731 M01S00690.fcopy +++| LX0 12 00732 M01S00691.fcopy +++| LX6 12 00733 M01S00692.fcopy +++| BX5 X0*X5 CLEAR SPACE FOR CODE 00734 M01S00693.fcopy +++| BX6 X5+X6 PUT CODE IN MESSAGE 00735 M01S00694.fcopy +++| SA5 MSGC+2 00736 M01S00695.fcopy +++| SA6 MSGC+1 00737 M01S00696.fcopy +++| 00738 M01S00697.fcopy +++|* PUT FILE NUMBER IN MESSAGE. 00739 M01S00698.fcopy +++| 00740 M01S00699.fcopy +++| SA1 FILE GET FILE NUMBER 00741 M01S00700.fcopy +++| MX0 -24 00742 M01S00701.fcopy +++| RJ CDD CONVERT FILE NUMBER TO DISPLAY 00743 M01S00702.fcopy +++| BX6 -X0*X6 00744 M01S00703.fcopy +++| BX5 X0*X5 CLEAR PLACE FOR FILE NUMBER 00745 M01S00704.fcopy +++| BX6 X5+X6 SET FILE NUMBER IN MESSAGE 00746 M01S00705.fcopy +++| SA5 MSGC+4 00747 M01S00706.fcopy +++| SA6 MSGC+2 00748 M01S00707.fcopy +++| 00749 M01S00708.fcopy +++|* PUT RECORD NUMBER IN MESSAGE. 00750 M01S00709.fcopy +++| 00751 M01S00710.fcopy +++| SA1 RCRD GET RECORD NUMBER 00752 M01S00711.fcopy +++| RJ CDD CONVERT RECORD NUMBER TO DISPLAY 00753 M01S00712.fcopy +++| BX6 -X0*X6 00754 M01S00713.fcopy +++| MX0 -36 00755 M01S00714.fcopy +++| LX6 36D POSITION RECORD NUMBER 00756 M01S00715.fcopy +++| BX5 -X0*X5 CLEAR PLACE FOR RECORD NUMBER 00757 M01S00716.fcopy +++| BX6 X6+X5 SET RECORD NUMBER IN MESSAGE 00758 M01S00717.fcopy +++| SA5 MSGC+5 00759 M01S00718.fcopy +++| SA6 MSGC+4 00760 M01S00719.fcopy +++| 00761 M01S00720.fcopy +++|* PUT LINE NUMBER IN MESSAGE. 00762 M01S00721.fcopy +++| 00763 M01S00722.fcopy +++| SA1 LINE GET LINE NUMBER 00764 M01S00723.fcopy +++| RJ CDD CONVERT LINE NUMBER TO DISPLAY 00765 M01S00724.fcopy +++| BX6 -X0*X6 REMOVE EXTRA BLANKS 00766 M01S00725.fcopy +++| LX0 12 00767 M01S00726.fcopy +++| LX6 12 00768 M01S00727.fcopy +++| BX5 X0*X5 CLEAR POSITION FOR LINE NUMBER 00769 M01S00728.fcopy +++| BX6 X5+X6 SET LINE NUMBER IN MESSAGE 00770 M01S00729.fcopy +++| SA6 MSGC+5 00771 M01S00730.fcopy +++| 00772 M01S00731.fcopy +++|* WRITE MESSAGE TO DAYFILE. 00773 M01S00732.fcopy +++| 00774 M01S00733.fcopy +++| MESSAGE MSGC,3 * UNKNOWN CODE CCCC, FILE XXXX,... * 00775 M01S00734.fcopy +++| SA1 PTEA RESTORE SAVED (B) REGISTERS 00776 M01S00735.fcopy +++| SB2 B6 00777 M01S00736.fcopy +++| SB3 B7 00778 M01S00737.fcopy +++| SB4 X1+ 00779 M01S00738.fcopy +++| EQ PTEX RETURN 00780 M01S00739.fcopy +++| 00781 M01S00740.fcopy +++| PTEA DATA 0 B REGISTER STORAGE 00782 M01S00741.fcopy +++| SPACE 4,10 00783 M01S00742.fcopy +++|** RCH - READ CHARACTER. 00784 M01S00743.fcopy +++|* 00785 M01S00744.fcopy +++|* ENTRY (B2) = CURRENT POSITION IN INPUT WORD. 00786 M01S00745.fcopy +++|* (B4) = INPUT CHARACTER LENGTH. 00787 M01S00746.fcopy +++|* (IWRD) = CURRENT INPUT WORD. 00788 M01S00747.fcopy +++|* 00789 M01S00748.fcopy +++|* EXIT (X2) = CHARACTER READ, RIGHT JUSTIFIED. 00790 M01S00749.fcopy +++|* (B2) = NEW POSITION IN INPUT WORD. 00791 M01S00750.fcopy +++|* (IWRD) = CURRENT INPUT WORD. 00792 M01S00751.fcopy +++|* 00793 M01S00752.fcopy +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 00794 M01S00753.fcopy +++|* A - 1, 2, 3, 6, 7. 00795 M01S00754.fcopy +++|* B - 2, 6, 7. 00796 M01S00755.fcopy +++|* 00797 M01S00756.fcopy +++|* CALLS STB. 00798 M01S00757.fcopy +++|* 00799 M01S00758.fcopy +++|* MACROS READ, READO, RECALL. 00800 M01S00759.fcopy +++| 00801 M01S00760.fcopy +++| 00802 M01S00761.fcopy +++| RCH SUBR ENTRY/EXIT 00803 M01S00762.fcopy +++| SA3 STPI 00804 M01S00763.fcopy +++| ZR X3,RCH0 IF INPUT FILE NOT STRANGER TAPE 00805 M01S00764.fcopy +++| SA3 ILCC DECREMENT INPUT LINE CHARACTER COUNT 00806 M01S00765.fcopy +++| SX7 X3-1 00807 M01S00766.fcopy +++| SA7 A3+ 00808 M01S00767.fcopy +++| NZ X3,RCH0 IF NOT END OF LINE 00809 M01S00768.fcopy +++| SA1 FL RESET INPUT LINE CHARACTER COUNT 00810 M01S00769.fcopy +++| SA2 PL SET EOL CHARACTER 00811 M01S00770.fcopy +++| BX7 X1 00812 M01S00771.fcopy +++| SA7 A3 00813 M01S00772.fcopy +++| SA1 ILCT DECREMENT INPUT LINE COUNT 00814 M01S00773.fcopy +++| SX7 X1-1 00815 M01S00774.fcopy +++| ZR X7,RCH6 IF NO MORE ROOM IN BLOCK 00816 M01S00775.fcopy +++| SA7 A1+ 00817 M01S00776.fcopy +++| EQ RCHX RETURN 00818 M01S00777.fcopy +++| 00819 M01S00778.fcopy +++| RCH0 GT B4,B2,RCH1 IF NO WHOLE CHARACTERS LEFT IN WORD 00820 M01S00779.fcopy +++| MX0 1 BUILD MASK 00821 M01S00780.fcopy +++| SB7 B4-B1 00822 M01S00781.fcopy +++| SA1 IWRD GET INPUT WORD 00823 M01S00782.fcopy +++| AX0 B7 00824 M01S00783.fcopy +++| BX2 X0*X1 EXTRACT CHARACTER 00825 M01S00784.fcopy +++| BX6 -X0*X1 DELETE CHARACTER FROM INPUT WORD 00826 M01S00785.fcopy +++| LX2 B4 00827 M01S00786.fcopy +++| LX6 B4 00828 M01S00787.fcopy +++| SB2 B2-B4 00829 M01S00788.fcopy +++| SA6 A1+ SAVE INPUT WORD 00830 M01S00789.fcopy +++| EQ RCHX RETURN 00831 M01S00790.fcopy +++| 00832 M01S00791.fcopy +++| RCH1 SB6 B4 00833 M01S00792.fcopy +++| BX5 X5-X5 00834 M01S00793.fcopy +++| ZR B2,RCH2 IF INPUT WORD EMPTY 00835 M01S00794.fcopy +++| SA1 IWRD GET INPUT WORD 00836 M01S00795.fcopy +++| SB6 B4-B2 COMPUTE REMAINDER 00837 M01S00796.fcopy +++| LX5 X1,B4 SET PARTIAL CHARACTER 00838 M01S00797.fcopy +++| RCH2 READO P READ NEXT WORD 00839 M01S00798.fcopy +++| NZ X1,RCH3 IF EOR, EOF, OR EOI 00840 M01S00799.fcopy +++| MX0 1 BUILD MASK 00841 M01S00800.fcopy +++| SB7 B6-B1 00842 M01S00801.fcopy +++| AX0 B7 00843 M01S00802.fcopy +++| BX2 X0*X6 EXTRACT PARTIAL CHARACTER 00844 M01S00803.fcopy +++| BX6 -X0*X6 DELETE USED BITS 00845 M01S00804.fcopy +++| LX2 B6 00846 M01S00805.fcopy +++| LX6 B6 00847 M01S00806.fcopy +++| BX2 X5+X2 00848 M01S00807.fcopy +++| SB2 60D RESET CURRENT POSTION 00849 M01S00808.fcopy +++| SA6 IWRD SAVE INPUT WORD 00850 M01S00809.fcopy +++| SB2 B2-B6 00851 M01S00810.fcopy +++| EQ RCHX RETURN 00852 M01S00811.fcopy +++| 00853 M01S00812.fcopy +++| RCH3 SA2 STPI 00854 M01S00813.fcopy +++| NZ X2,RCH5 IF INPUT FILE ON STRANGER TAPE 00855 M01S00001.fcopy11 +++| SA2 STPO 00856 M01S00814.fcopy +++| NG X1,RCH4 IF EOF OR EOI 00857 M01S00002.fcopy11 +++| NZ X2,RCH3.1 IF OUTPUT FILE ON STRANGER TAPE 00858 M01S00815.fcopy +++| READ P,R 00859 M01S00816.fcopy +++| RECALL N,R
| Line S00817 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy11 |
Seq # *Modification Id* Act ----------------------------+ 00860 M02S00817.fcopy11 ---| SX2 EORC SET EOR CHARACTER 00861 M01S00003.fcopy11 +++| RCH3.1 SX2 EORC SET EOR CHARACTER 00862 M01S00818.fcopy +++| SB2 B0+ SET CURRENT INPUT WORD EMPTY 00863 M01S00819.fcopy +++| EQ RCHX RETURN 00864 M01S00820.fcopy +++| 00865 M01S00821.fcopy +++| RCH4 SX1 X1+1 00866 M01S00822.fcopy +++| NG X1,RCH5 IF EOI 00867 M01S00004.fcopy11 +++| NZ X2,RCH4.1 IF OUTPUT FILE ON STRANGER TAPE 00868 M01S00823.fcopy +++| READ P,R 00869 M01S00824.fcopy +++| RECALL N,R
| Line S00825 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | fcopy11 |
Seq # *Modification Id* Act ----------------------------+ 00870 M02S00825.fcopy11 ---| SX2 EOFC SET EOF CHARACTER 00871 M01S00005.fcopy11 +++| RCH4.1 SX2 EOFC SET EOF CHARACTER 00872 M01S00826.fcopy +++| SB2 B0+ SET CURRENT INPUT WORD EMPTY 00873 M01S00827.fcopy +++| EQ RCHX RETURN 00874 M01S00828.fcopy +++| 00875 M01S00829.fcopy +++| RCH5 SX2 EOIC SET EOI CHARACTER 00876 M01S00830.fcopy +++| EQ RCHX RETURN 00877 M01S00831.fcopy +++| 00878 M01S00832.fcopy +++| RCH6 RJ STB START NEW STRANGER TAPE BLOCK 00879 M01S00833.fcopy +++| SA2 PL SET LINE TERMINATOR AS OUTPUT CHARACTER 00880 M01S00834.fcopy +++| ZR X1,RCHX IF NOT EOI 00881 M01S00835.fcopy +++| SX7 EOIC SET EOI AS NEXT CHARACTER READ 00882 M01S00836.fcopy +++| SA7 RAHD 00883 M01S00837.fcopy +++| EQ RCHX RETURN 00884 M01S00838.fcopy +++| SPACE 4,20 00885 M01S00839.fcopy +++|** STB - START STRANGER TAPE BLOCK. 00886 M01S00840.fcopy +++|* 00887 M01S00841.fcopy +++|* ENTRY (IBHW) = INPUT BLOCK HEADER WORD FOR FULL BLOCK. 00888 M01S00842.fcopy +++|* (FL) = FIXED LENGTH LINE LENGTH. 00889 M01S00843.fcopy +++|* (LB) = LINES PER BLOCK. 00890 M01S00844.fcopy +++|* 00891 M01S00845.fcopy +++|* EXIT (X1) = NONZERO IF EOI REACHED. 00892 M01S00846.fcopy +++|* NEW BLOCK STARTED IF NOT EOI. 00893 M01S00847.fcopy +++|* (ILCC) RESET FOR NEW LINE. 00894 M01S00848.fcopy +++|* (ILCT) RESET FOR NEW BLOCK. 00895 M01S00849.fcopy +++|* 00896 M01S00850.fcopy +++|* USES X - 0, 1, 3, 6, 7. 00897 M01S00851.fcopy +++|* A - 1, 3, 7. 00898 M01S00852.fcopy +++|* B - 2, 7. 00899 M01S00853.fcopy +++|* 00900 M01S00854.fcopy +++|* MACROS READN, READO, RECALL. 00901 M01S00855.fcopy +++| 00902 M01S00856.fcopy +++| 00903 M01S00857.fcopy +++| STB SUBR ENTRY/EXIT 00904 M01S00858.fcopy +++| STB1 READO P READ BLOCK HEADER WORD 00905 M01S00859.fcopy +++| SB7 X1 00906 M01S00860.fcopy +++| LT B7,B1,STB2 IF NEW READ DOES NOT NEED TO BE ISSUED 00907 M01S00861.fcopy +++| READN P,R READ TAPE 00908 M01S00862.fcopy +++| RECALL N,R 00909 M01S00863.fcopy +++| EQ STB1 GET HEADER WORD 00910 M01S00864.fcopy +++| 00911 M01S00865.fcopy +++| STB2 NZ X1,STBX IF END OF TAPE 00912 M01S00866.fcopy +++| SA1 IBHW 00913 M01S00867.fcopy +++| SA3 LB GET LINE COUNT FOR FULL TAPE BLOCK 00914 M01S00868.fcopy +++| IX1 X1-X6 00915 M01S00869.fcopy +++| BX7 X3 00916 M01S00870.fcopy +++| ZR X1,STB3 IF FULL SIZE BLOCK 00917 M01S00871.fcopy +++| SX3 X6+ NUMBER OF 60 BIT WORDS IN BLOCK 00918 M01S00872.fcopy +++| SX0 60D 00919 M01S00873.fcopy +++| AX6 24 UNUSED BIT COUNT 00920 M01S00874.fcopy +++| IX3 X3*X0 COMPUTE BITS IN BLOCK 00921 M01S00875.fcopy +++| SX1 B4+ 00922 M01S00876.fcopy +++| IX3 X3-X6 00923 M01S00877.fcopy +++| IX7 X3/X1 COMPUTE NUMBER OF CHARACTERS IN BLOCK 00924 M01S00878.fcopy +++| SA1 FL COMPUTE NUMBER OF LINES IN BLOCK 00925 M01S00879.fcopy +++| IX7 X7/X1 00926 M01S00880.fcopy +++| STB3 SA7 ILCT SAVE INPUT LINE COUNT 00927 M01S00881.fcopy +++| SA1 FL RESET INPUT CHARACTER COUNT 00928 M01S00882.fcopy +++| SB2 B0 SET TO START NEW INPUT WORD 00929 M01S00883.fcopy +++| BX7 X1 00930 M01S00884.fcopy +++| SA7 ILCC 00931 M01S00885.fcopy +++| SX1 B0+ SET EXIT CONDITION 00932 M01S00886.fcopy +++| EQ STBX RETURN 00933 M01S00887.fcopy +++| SPACE 4,20 00934 M01S00888.fcopy +++|** TCH - TRANSLATE CHARACTER. 00935 M01S00889.fcopy +++|* 00936 M01S00890.fcopy +++|* ENTRY (X2) = CHARACTER TO TRANSLATE. 00937 M01S00891.fcopy +++|* (A0) = CONVERSION TABLE FWA. 00938 M01S00892.fcopy +++|* 00939 M01S00893.fcopy +++|* EXIT (X2) = NEW CHARACTER(S), RIGHT JUSTIFIED. 00940 M01S00894.fcopy +++|* = -1 IF CHARACTER IS TO BE IGNORED. 00941 M01S00895.fcopy +++|* (X6) = CHARACTER COUNT. 00942 M01S00896.fcopy +++|* 00943 M01S00897.fcopy +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 00944 M01S00898.fcopy +++|* A - 1, 5, 6. 00945 M01S00899.fcopy +++|* B - 6, 7. 00946 M01S00900.fcopy +++|* 00947 M01S00901.fcopy +++|* CALLS PTE. 00948 M01S00902.fcopy +++|* 00949 M01S00903.fcopy +++|* MACROS ABORT, MESSAGE. 00950 M01S00904.fcopy +++| 00951 M01S00905.fcopy +++| 00952 M01S00906.fcopy +++| TCH SUBR ENTRY/EXIT 00953 M01S00907.fcopy +++| SA5 INDX GET INDEX 00954 M01S00908.fcopy +++| MX0 -9 00955 M01S00909.fcopy +++| BX2 -X0*X2 TRUNCATE TOP 3 BITS 00956 M01S00910.fcopy +++| BX6 X6-X6 CLEAR INDEX 00957 M01S00911.fcopy +++| SB7 X2 00958 M01S00912.fcopy +++| SA1 TCVTL GET TABLE LENGTH 00959 M01S00913.fcopy +++| SB6 X1 00960 M01S00914.fcopy +++| SA6 A5+ 00961 M01S00915.fcopy +++| SB7 B7+X5 COMPUTE ENTRY NUMBER 00962 M01S00916.fcopy +++| LE B7,B6,TCH1 IF ENTRY NEEDED IS WITHIN TABLE BOUNDS 00963 M01S00917.fcopy +++| SX2 B7+ 00964 M01S00918.fcopy +++| RJ PTE GENERATE ERROR 00965 M01S00919.fcopy +++| SX2 -B1 IGNORE CHARACTER 00966 M01S00920.fcopy +++| EQ TCHX RETURN 00967 M01S00921.fcopy +++| 00968 M01S00922.fcopy +++| TCH1 SA1 A0+B7 GET CONVERSION TABLE ENTRY 00969 M01S00923.fcopy +++| MX0 -36 EXTRACT DATA ITEM 00970 M01S00924.fcopy +++| BX4 -X0*X1 00971 M01S00925.fcopy +++| MX0 -3 00972 M01S00926.fcopy +++| LX1 59-53 00973 M01S00927.fcopy +++| BX6 -X0*X1 GET COUNT 00974 M01S00928.fcopy +++| MX0 -2 00975 M01S00929.fcopy +++| AX1 4 00976 M01S00930.fcopy +++| BX3 -X0*X1 EXTRACT OPTION 00977 M01S00931.fcopy +++| NZ X3,TCH3 IF NOT NORMAL CONVERSION 00978 M01S00932.fcopy +++| BX2 X4 SET NEW CHARACTER 00979 M01S00933.fcopy +++| EQ TCHX RETURN 00980 M01S00934.fcopy +++| 00981 M01S00935.fcopy +++| TCH3 SX3 X3-1 00982 M01S00936.fcopy +++| NZ X3,TCH5 IF NOT NO-CONVERSION OPTION 00983 M01S00937.fcopy +++| ZR X4,TCH4 IF NOT AN ERROR 00984 M01S00938.fcopy +++| RJ PTE PROCESS ERROR 00985 M01S00939.fcopy +++| TCH4 SX2 -B1 IGNORE CHARACTER 00986 M01S00940.fcopy +++| EQ TCHX RETURN 00987 M01S00941.fcopy +++| 00988 M01S00942.fcopy +++| TCH5 SX3 X3-1 00989 M01S00943.fcopy +++| NZ X3,TCH6 IF NOT SET INDEX OPTION 00990 M01S00944.fcopy +++| BX6 X4 SET INDEX 00991 M01S00945.fcopy +++| SA6 INDX 00992 M01S00946.fcopy +++| SX2 -B1 IGNORE CHARACTER 00993 M01S00947.fcopy +++| EQ TCHX RETURN 00994 M01S00948.fcopy +++| 00995 M01S00949.fcopy +++| TCH6 MESSAGE MSGB,3 * BAD FCOPY CONVERSION TABLE.* 00996 M01S00950.fcopy +++| ABORT 00997 M01S00951.fcopy +++| WCH SPACE 4,15 00998 M01S00952.fcopy +++|** WCH - WRITE CHARACTER. 00999 M01S00953.fcopy +++|* 01000 M01S00954.fcopy +++|* ENTRY (X2) = CHARACTER TO WRITE. 01001 M01S00955.fcopy +++|* (B3) = CURRENT POSITION IN OUTPUT WORD. 01002 M01S00956.fcopy +++|* (B7) = CHARACTER LENGTH. 01003 M01S00957.fcopy +++|* 01004 M01S00958.fcopy +++|* EXIT (B3) = NEW POSITION IN OUTPUT WORD. 01005 M01S00959.fcopy +++|* (ENDF) = 1 IF EOI DETECTED. 01006 M01S00960.fcopy +++|* 01007 M01S00961.fcopy +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 01008 M01S00962.fcopy +++|* A - 1, 2, 3, 5, 6, 7. 01009 M01S00963.fcopy +++|* B - 3, 6, 7. 01010 M01S00964.fcopy +++|* 01011 M01S00965.fcopy +++|* MACROS WRITEF, WRITEO, WRITER. 01012 M01S00966.fcopy +++| 01013 M01S00967.fcopy +++| 01014 M01S00968.fcopy +++| WCH10 SX7 B1+ SET END FLAG 01015 M01S00969.fcopy +++| SA7 ENDF 01016 M01S00970.fcopy +++| 01017 M01S00971.fcopy +++| WCH SUBR ENTRY/EXIT 01018 M01S00972.fcopy +++| SA1 TCVTL 01019 M01S00973.fcopy +++| SX1 X1+B1 01020 M01S00974.fcopy +++| IX6 X2-X1 01021 M01S00975.fcopy +++| SX5 X2-EORC 01022 M01S00976.fcopy +++| SA1 OWRD GET OUTPUT WORD 01023 M01S00977.fcopy +++| PL X6,WCH7 IF 12 BIT CHARACTER 01024 M01S00978.fcopy +++| NG X5,WCH7 IF NOT EOR, EOF, OR EOI 01025 M01S00979.fcopy +++| SB6 B3-60D 01026 M01S00013.274l797 +++| SX6 B3 01027 M01S00014.274l797 +++| SA6 UBC 01028 M01S00980.fcopy +++| ZR B6,WCH4 IF OUTPUT WORD EMPTY 01029 M01S00981.fcopy +++| BX6 X1 01030 M01S00982.fcopy +++| SB3 60 RESET CURRENT POSITION 01031 M01S00983.fcopy +++| WRITEO N 01032 M01S00984.fcopy +++| BX7 X7-X7 CLEAR OUTPUT WORD 01033 M01S00985.fcopy +++| SA7 OWRD 01034 M01S00986.fcopy +++| WCH4 SA1 STPO 01035 M01S00987.fcopy +++| NZ X1,WCH10 IF OUTPUT FILE ON STRANGER TAPE 01036 M01S00988.fcopy +++| 01037 M01S00989.fcopy +++|* PROCESS EOR. 01038 M01S00990.fcopy +++| 01039 M01S00991.fcopy +++| NZ X5,WCH5 IF NOT EOR 01040 M01S00992.fcopy +++| SA5 RCRD GET RECORD NUMBER
| Line S00993 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01041 M02S00993.274l797 ---| WRITER N,R 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 M01S00994.fcopy +++| SX7 X5+B1 INCREMENT RECORD NUMBER 01055 M01S00995.fcopy +++| SA7 A5 01056 M01S00996.fcopy +++| SX6 B1+ RESET LINE NUMBER 01057 M01S00997.fcopy +++| SA6 LINE 01058 M01S00998.fcopy +++| EQ WCHX RETURN 01059 M01S00999.fcopy +++| 01060 M01S01000.fcopy +++|* PROCESS EOF. 01061 M01S01001.fcopy +++| 01062 M01S01002.fcopy +++| WCH5 SX5 X5-1 01063 M01S01003.fcopy +++| NZ X5,WCH6 IF NOT EOF 01064 M01S01004.fcopy +++| SA5 FILE GET FILE NUMBER 01065 M01S01005.fcopy +++| WRITEF N,R 01066 M01S01006.fcopy +++| SX7 X5+B1 INCREMENT FILE NUMBER 01067 M01S01007.fcopy +++| SX6 B1+ RESET LINE AND RECORD NUMBERS 01068 M01S01008.fcopy +++| SA7 A5 01069 M01S01009.fcopy +++| SA6 LINE 01070 M01S01010.fcopy +++| SA6 RCRD 01071 M01S01011.fcopy +++| EQ WCHX RETURN 01072 M01S01012.fcopy +++| 01073 M01S01013.fcopy +++|* PROCESS EOI. 01074 M01S01014.fcopy +++| 01075 M01S01015.fcopy +++| WCH6 RECALL N 01076 M01S01016.fcopy +++| SA3 N+2 GET *IN* POINTER 01077 M01S01017.fcopy +++| SA2 N+3 GET *OUT* POINTER 01078 M01S01018.fcopy +++| IX3 X3-X2 01079 M01S01019.fcopy +++| ZR X3,WCH10 IF NO MORE WORDS TO WRITE 01080 M01S01020.fcopy +++| WRITER N FLUSH BUFFER 01081 M01S01021.fcopy +++| EQ WCH10 SET END FLAG 01082 M01S01022.fcopy +++| 01083 M01S01023.fcopy +++|* WRITE CHARACTER. 01084 M01S01024.fcopy +++| 01085 M01S01025.fcopy +++| WCH7 GT B7,B3,WCH8 IF NOT ENOUGH ROOM FOR CHARACTER IN WORD 01086 M01S01026.fcopy +++| SB3 B3-B7 DECREMENT CURRENT POSITION 01087 M01S01027.fcopy +++| LX2 B3 01088 M01S01028.fcopy +++| BX6 X1+X2 01089 M01S01029.fcopy +++| SA6 OWRD SAVE OUTPUT WORD 01090 M01S01030.fcopy +++| EQ WCHX RETURN 01091 M01S01031.fcopy +++| 01092 M01S01032.fcopy +++|* START A NEW OUTPUT WORD. 01093 M01S01033.fcopy +++| 01094 M01S01034.fcopy +++| WCH8 SB6 B7 SET DEFAULT REMAINDER 01095 M01S01035.fcopy +++| BX6 X1 01096 M01S01036.fcopy +++| ZR B3,WCH9 IF NO ROOM IN WORD 01097 M01S01037.fcopy +++| SB6 B7-B3 FORM AND INSERT PARTIAL CHARACTER 01098 M01S01038.fcopy +++| AX3 X2,B6 01099 M01S01039.fcopy +++| BX6 X1+X3 01100 M01S01040.fcopy +++| WCH9 SB3 60D RESET CURRENT POSITION 01101 M01S01041.fcopy +++| SB3 B3-B6 DECREMENT CURRENT POSITION 01102 M01S01042.fcopy +++| LX2 B3 01103 M01S01043.fcopy +++| MX0 1 01104 M01S01044.fcopy +++| SB7 B6-B1 01105 M01S01045.fcopy +++| AX0 X0,B7 01106 M01S01046.fcopy +++| BX7 X0*X2 SET NEW OUTPUT WORD 01107 M01S01047.fcopy +++| SA7 OWRD 01108 M01S01048.fcopy +++| WRITEO N WRITE OLD OUTPUT WORD 01109 M01S01049.fcopy +++| EQ WCHX RETURN 01110 M01S01050.fcopy +++| WTB SPACE 4,20 01111 M01S01051.fcopy +++|** WTB - WRITE TAPE BLOCK. 01112 M01S01052.fcopy +++|* 01113 M01S01053.fcopy +++|* ENTRY (B7) = OUTPUT CHARACTER SIZE. 01114 M01S01054.fcopy +++|* (IPTR) = ADDRESS TO USE FOR BLOCK HEADER WORD. 01115 M01S01055.fcopy +++|* (ENDF) = SET IF EOI REACHED IN INPUT FILE. 01116 M01S01056.fcopy +++|* (OBHW) = OUTPUT BLOCK HEADER WORD FOR FULL BLOCK. 01117 M01S01057.fcopy +++|* (OLCT) = COUNT OF REMAINING LINES IN OUTPUT BLOCK. 01118 M01S01058.fcopy +++|* 01119 M01S01059.fcopy +++|* EXIT BLOCK WRITTEN TO STRANGER TAPE. 01120 M01S01060.fcopy +++|* (IPTR) UPDATED. 01121 M01S01061.fcopy +++|* (OLCT) RESET. 01122 M01S01062.fcopy +++|* 01123 M01S01063.fcopy +++|* USES X - 1, 2, 3, 6. 01124 M01S01064.fcopy +++|* A - 1, 2, 3, 6. 01125 M01S01065.fcopy +++|* B - NONE. 01126 M01S01066.fcopy +++|* 01127 M01S01067.fcopy +++|* CALLS FBH. 01128 M01S01068.fcopy +++|* 01129 M01S01069.fcopy +++|* MACROS WRITEN, WRITEO. 01130 M01S01070.fcopy +++| 01131 M01S01071.fcopy +++| 01132 M01S01072.fcopy +++| WTB SUBR ENTRY/EXIT 01133 M01S01073.fcopy +++| SA3 OBHW GET FULL SIZE OUTPUT BLOCK HEADER WORD 01134 M01S01074.fcopy +++| SA2 OLCT 01135 M01S01075.fcopy +++| SA1 FL 01136 M01S01076.fcopy +++| BX6 X3 01137 M01S01077.fcopy +++| ZR X2,WTB1 IF BLOCK FULL SIZE 01138 M01S01078.fcopy +++| SA3 LB 01139 M01S01079.fcopy +++| IX2 X3-X2 COMPUTE LINES USED IN BLOCK 01140 M01S01080.fcopy +++| ZR X2,WTB2 IF EMPTY BLOCK 01141 M01S01081.fcopy +++| RJ FBH FORM BLOCK HEADER WORD 01142 M01S01082.fcopy +++| WTB1 SA2 IPTR SET HEADER WORD IN BLOCK 01143 M01S01083.fcopy +++| SA6 X2+ 01144 M01S01084.fcopy +++| WRITEN N,R WRITE BLOCK 01145 M01S01085.fcopy +++| WTB2 SA1 ENDF 01146 M01S01086.fcopy +++| NZ X1,WTBX IF END OF INFORMATION, RETURN 01147 M01S01087.fcopy +++| 01148 M01S01088.fcopy +++|* START NEW BLOCK. 01149 M01S01089.fcopy +++| 01150 M01S01090.fcopy +++| SA3 N+2 GET LOCATION FOR NEXT BLOCK HEADER WORD 01151 M01S01091.fcopy +++| BX6 X3 01152 M01S01092.fcopy +++| SA6 IPTR 01153 M01S01093.fcopy +++| WRITEO N RESERVE WORD FOR BLOCK HEADER WORD 01154 M01S01094.fcopy +++| SA1 LB RESET OUTPUT LINE COUNT 01155 M01S01095.fcopy +++| BX6 X1 01156 M01S01096.fcopy +++| SA6 OLCT 01157 M01S01097.fcopy +++| EQ WTBX RETURN 01158 M01S01098.fcopy +++| WZB SPACE 4,15 01159 M01S01099.fcopy +++|** WZB - WRITE ZERO BYTE. 01160 M01S01100.fcopy +++|* 01161 M01S01101.fcopy +++|* ENTRY (B3) = POSITION IN OUTPUT WORD. 01162 M01S01102.fcopy +++|* 01163 M01S01103.fcopy +++|* EXIT (B3) UPDATED. 01164 M01S01104.fcopy +++|* 01165 M01S01105.fcopy +++|* USES X - 1, 6, 7. 01166 M01S01106.fcopy +++|* A - 1, 6, 7. 01167 M01S01107.fcopy +++|* B - 3. 01168 M01S01108.fcopy +++|* 01169 M01S01109.fcopy +++|* MACROS WRITEO. 01170 M01S01110.fcopy +++| 01171 M01S01111.fcopy +++| 01172 M01S01112.fcopy +++| WZB SUBR ENTRY/EXIT 01173 M01S01113.fcopy +++| SA1 OWRD GET OUTPUT WORD 01174 M01S01114.fcopy +++| SB6 12D 01175 M01S01115.fcopy +++| BX6 X1 01176 M01S01116.fcopy +++| WRITEO N 01177 M01S01117.fcopy +++| GE B3,B6,WZB1 IF WORD WRITTEN WAS PROPER ZERO BYTE 01178 M01S01118.fcopy +++| SX6 B0+ 01179 M01S01119.fcopy +++| WRITEO N 01180 M01S01120.fcopy +++| WZB1 BX7 X7-X7 ZERO OUTPUT WORD 01181 M01S01121.fcopy +++| SA7 OWRD 01182 M01S01122.fcopy +++| SB3 60D RESET CURRENT POSITION 01183 M01S01123.fcopy +++| EQ WZBX RETURN 01184 M01S01124.fcopy +++| SPACE 4,10 01185 M01S01125.fcopy +++|* COMMON DECKS. 01186 M01S01126.fcopy +++| 01187 M01S01127.fcopy +++| 01188 M01S01128.fcopy +++|*CALL COMCCDD 01189 M01S01129.fcopy +++|*CALL,COMCCOD 01190 M01S01130.fcopy +++|*CALL COMCCIO 01191 M01S01131.fcopy +++|*CALL,COMCLFM 01192 M01S01132.fcopy +++|*CALL,COMCRDO 01193 M01S01133.fcopy +++|*CALL COMCRDW 01194 M01S01134.fcopy +++|*CALL COMCSYS 01195 M01S01135.fcopy +++|*CALL,COMCWTO 01196 M01S01136.fcopy +++|*CALL COMCWTW 01197 M01S01137.fcopy +++|*CALL,COMTCVT 01198 M01S01138.fcopy +++| TITLE CONVERSION BASE TABLES 01199 M01S01139.fcopy +++| SPACE 4,10 01200 M01S01140.fcopy +++|* BUFFERS. 01201 M01S01141.fcopy +++| 01202 M01S01142.fcopy +++| 01203 M01S01143.fcopy +++| USE BUFFERS 01204 M01S01144.fcopy +++| 01205 M01S01145.fcopy +++| TCVT BSSZ MCVTL CONVERSION TABLE 01206 M01S01146.fcopy +++| WBUF BSSZ WBUFL WORKING WRITE BUFFER 01207 M01S01147.fcopy +++| BUF BSS 0 01208 M01S01148.fcopy +++| PBUF EQU BUF OLD BUFFER 01209 M01S01149.fcopy +++| NBUF EQU PBUF+PBUFL NEW BUFFER
| Line S01150 Modification History | |
|---|---|
M01 (Added by) | fcopy |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01210 M02S01150.274l797 ---| RFL= EQU NBUF+NBUFL+500B 01211 M01S00027.274l797 +++| RFL= EQU NBUF+NBUFL+4500B 01212 M01S01151.fcopy +++| SPACE 4,10 01213 M01S01152.fcopy +++|** CONVERSION BASE TABLES. 01214 M01S01153.fcopy +++| 01215 M01S01154.fcopy +++| 01216 M01S01155.fcopy +++| BASE O 01217 M01S01156.fcopy +++| SPACE 4,10 01218 M01S01157.fcopy +++| TD64 BSS 0 64 CHARACTER DISPLAY CODE 01219 M01S01158.fcopy +++| QUAL COMTCVT 01220 M01S01159.fcopy +++| LOC 0 01221 M01S01160.fcopy +++| 01222 M01S01161.fcopy +++|* TO FROM 01223 M01S01162.fcopy +++|* DIS64 DIS64 01224 M01S01163.fcopy +++| 01225 M01S01164.fcopy +++| CONV T64D000,F64D000 : 01226 M01S01165.fcopy +++| CONV T64D001,F64D001 A 01227 M01S01166.fcopy +++| CONV T64D002,F64D002 B 01228 M01S01167.fcopy +++| CONV T64D003,F64D003 C 01229 M01S01168.fcopy +++| CONV T64D004,F64D004 D 01230 M01S01169.fcopy +++| CONV T64D005,F64D005 E 01231 M01S01170.fcopy +++| CONV T64D006,F64D006 F 01232 M01S01171.fcopy +++| CONV T64D007,F64D007 G 01233 M01S01172.fcopy +++| CONV T64D010,F64D010 H 01234 M01S01173.fcopy +++| CONV T64D011,F64D011 I 01235 M01S01174.fcopy +++| CONV T64D012,F64D012 J 01236 M01S01175.fcopy +++| CONV T64D013,F64D013 K 01237 M01S01176.fcopy +++| CONV T64D014,F64D014 L 01238 M01S01177.fcopy +++| CONV T64D015,F64D015 M 01239 M01S01178.fcopy +++| CONV T64D016,F64D016 N 01240 M01S01179.fcopy +++| CONV T64D017,F64D017 O 01241 M01S01180.fcopy +++| CONV T64D020,F64D020 P 01242 M01S01181.fcopy +++| CONV T64D021,F64D021 Q 01243 M01S01182.fcopy +++| CONV T64D022,F64D022 R 01244 M01S01183.fcopy +++| CONV T64D023,F64D023 S 01245 M01S01184.fcopy +++| CONV T64D024,F64D024 T 01246 M01S01185.fcopy +++| CONV T64D025,F64D025 U 01247 M01S01186.fcopy +++| CONV T64D026,F64D026 V 01248 M01S01187.fcopy +++| CONV T64D027,F64D027 W 01249 M01S01188.fcopy +++| CONV T64D030,F64D030 X 01250 M01S01189.fcopy +++| CONV T64D031,F64D031 Y 01251 M01S01190.fcopy +++| CONV T64D032,F64D032 Z 01252 M01S01191.fcopy +++| CONV T64D033,F64D033 0 01253 M01S01192.fcopy +++| CONV T64D034,F64D034 1 01254 M01S01193.fcopy +++| CONV T64D035,F64D035 2 01255 M01S01194.fcopy +++| CONV T64D036,F64D036 3 01256 M01S01195.fcopy +++| CONV T64D037,F64D037 4 01257 M01S01196.fcopy +++| CONV T64D040,F64D040 BLANK 5 01258 M01S01197.fcopy +++| CONV T64D041,F64D041 ! 6 01259 M01S01198.fcopy +++| CONV T64D042,F64D042 " 7 01260 M01S01199.fcopy +++| CONV T64D043,F64D043 # 8 01261 M01S01200.fcopy +++| CONV T64D044,F64D044 $ 9 01262 M01S01201.fcopy +++| CONV T64D045,F64D045 % + 01263 M01S01202.fcopy +++| CONV T64D046,F64D046 & - 01264 M01S01203.fcopy +++| CONV T64D047,F64D047 ' * 01265 M01S01204.fcopy +++| CONV T64D050,F64D050 ( / 01266 M01S01205.fcopy +++| CONV T64D051,F64D051 ) ( 01267 M01S01206.fcopy +++| CONV T64D052,F64D052 * ) 01268 M01S01207.fcopy +++| CONV T64D053,F64D053 + $ 01269 M01S01208.fcopy +++| CONV T64D054,F64D054 , = 01270 M01S01209.fcopy +++| CONV T64D055,F64D055 - BLANK 01271 M01S01210.fcopy +++| CONV T64D056,F64D056 . , 01272 M01S01211.fcopy +++| CONV T64D057,F64D057 / . 01273 M01S01212.fcopy +++| CONV T64D060,F64D060 0 # 01274 M01S01213.fcopy +++| CONV T64D061,F64D061 1 [ 01275 M01S01214.fcopy +++| CONV T64D062,F64D062 2 ] 01276 M01S01215.fcopy +++| CONV T64D063,F64D063 3 % 01277 M01S01216.fcopy +++| CONV T64D064,F64D064 4 " 01278 M01S01217.fcopy +++| CONV T64D065,F64D065 5 _ 01279 M01S01218.fcopy +++| CONV T64D066,F64D066 6 ! 01280 M01S01219.fcopy +++| CONV T64D067,F64D067 7 & 01281 M01S01220.fcopy +++| CONV T64D070,F64D070 8 ' 01282 M01S01221.fcopy +++| CONV T64D071,F64D071 9 ? 01283 M01S01222.fcopy +++| CONV T64D072,F64D072 : < 01284 M01S01223.fcopy +++| CONV T64D073,F64D073 ; > 01285 M01S01224.fcopy +++| CONV T64D074,F64D074 < 01286 M01S01225.fcopy +++| CONV T64D075,F64D075 = \ 01287 M01S01226.fcopy +++| CONV T64D076,F64D076 > 01288 M01S01227.fcopy +++| CONV T64D077,F64D077 ? ; 01289 M01S01228.fcopy +++| CONV T64D100,F64D100 01290 M01S01229.fcopy +++| CONV T64D101,F64D101 A 01291 M01S01230.fcopy +++| CONV T64D102,F64D102 B 01292 M01S01231.fcopy +++| CONV T64D103,F64D103 C 01293 M01S01232.fcopy +++| CONV T64D104,F64D104 D 01294 M01S01233.fcopy +++| CONV T64D105,F64D105 E 01295 M01S01234.fcopy +++| CONV T64D106,F64D106 F 01296 M01S01235.fcopy +++| CONV T64D107,F64D107 G 01297 M01S01236.fcopy +++| CONV T64D110,F64D110 H 01298 M01S01237.fcopy +++| CONV T64D111,F64D111 I 01299 M01S01238.fcopy +++| CONV T64D112,F64D112 J 01300 M01S01239.fcopy +++| CONV T64D113,F64D113 K 01301 M01S01240.fcopy +++| CONV T64D114,F64D114 L 01302 M01S01241.fcopy +++| CONV T64D115,F64D115 M 01303 M01S01242.fcopy +++| CONV T64D116,F64D116 N 01304 M01S01243.fcopy +++| CONV T64D117,F64D117 O 01305 M01S01244.fcopy +++| CONV T64D120,F64D120 P 01306 M01S01245.fcopy +++| CONV T64D121,F64D121 Q 01307 M01S01246.fcopy +++| CONV T64D122,F64D122 R 01308 M01S01247.fcopy +++| CONV T64D123,F64D123 S 01309 M01S01248.fcopy +++| CONV T64D124,F64D124 T 01310 M01S01249.fcopy +++| CONV T64D125,F64D125 U 01311 M01S01250.fcopy +++| CONV T64D126,F64D126 V 01312 M01S01251.fcopy +++| CONV T64D127,F64D127 W 01313 M01S01252.fcopy +++| CONV T64D130,F64D130 X 01314 M01S01253.fcopy +++| CONV T64D131,F64D131 Y 01315 M01S01254.fcopy +++| CONV T64D132,F64D132 Z 01316 M01S01255.fcopy +++| CONV T64D133,F64D133 [ 01317 M01S01256.fcopy +++| CONV T64D134,F64D134 \ 01318 M01S01257.fcopy +++| CONV T64D135,F64D135 ] 01319 M01S01258.fcopy +++| CONV T64D136,F64D136 01320 M01S01259.fcopy +++| CONV T64D137,F64D137 _ 01321 M01S01260.fcopy +++| CONV T64D140,F64D140 01322 M01S01261.fcopy +++| CONV T64D141,F64D141 A 01323 M01S01262.fcopy +++| CONV T64D142,F64D142 B 01324 M01S01263.fcopy +++| CONV T64D143,F64D143 C 01325 M01S01264.fcopy +++| CONV T64D144,F64D144 D 01326 M01S01265.fcopy +++| CONV T64D145,F64D145 E 01327 M01S01266.fcopy +++| CONV T64D146,F64D146 F 01328 M01S01267.fcopy +++| CONV T64D147,F64D147 G 01329 M01S01268.fcopy +++| CONV T64D150,F64D150 H 01330 M01S01269.fcopy +++| CONV T64D151,F64D151 I 01331 M01S01270.fcopy +++| CONV T64D152,F64D152 J 01332 M01S01271.fcopy +++| CONV T64D153,F64D153 K 01333 M01S01272.fcopy +++| CONV T64D154,F64D154 L 01334 M01S01273.fcopy +++| CONV T64D155,F64D155 M 01335 M01S01274.fcopy +++| CONV T64D156,F64D156 N 01336 M01S01275.fcopy +++| CONV T64D157,F64D157 O 01337 M01S01276.fcopy +++| CONV T64D160,F64D160 P 01338 M01S01277.fcopy +++| CONV T64D161,F64D161 Q 01339 M01S01278.fcopy +++| CONV T64D162,F64D162 R 01340 M01S01279.fcopy +++| CONV T64D163,F64D163 S 01341 M01S01280.fcopy +++| CONV T64D164,F64D164 T 01342 M01S01281.fcopy +++| CONV T64D165,F64D165 U 01343 M01S01282.fcopy +++| CONV T64D166,F64D166 V 01344 M01S01283.fcopy +++| CONV T64D167,F64D167 W 01345 M01S01284.fcopy +++| CONV T64D170,F64D170 X 01346 M01S01285.fcopy +++| CONV T64D171,F64D171 Y 01347 M01S01286.fcopy +++| CONV T64D172,F64D172 Z 01348 M01S01287.fcopy +++| CONV T64D173,F64D173 [ 01349 M01S01288.fcopy +++| CONV T64D174,F64D174 \ 01350 M01S01289.fcopy +++| CONV T64D175,F64D175 ] 01351 M01S01290.fcopy +++| CONV T64D176,F64D176 01352 M01S01291.fcopy +++| CONV T64D177,F64D177 01353 M01S01292.fcopy +++| 01354 M01S01293.fcopy +++| CONV T64D200,F64D200 01355 M01S01294.fcopy +++| CONV T64D201,F64D201 01356 M01S01295.fcopy +++| CONV T64D202,F64D202 01357 M01S01296.fcopy +++| CONV T64D203,F64D203 01358 M01S01297.fcopy +++| CONV T64D204,F64D204 01359 M01S01298.fcopy +++| CONV T64D205,F64D205 01360 M01S01299.fcopy +++| CONV T64D206,F64D206 01361 M01S01300.fcopy +++| CONV T64D207,F64D207 01362 M01S01301.fcopy +++| CONV T64D210,F64D210 01363 M01S01302.fcopy +++| CONV T64D211,F64D211 01364 M01S01303.fcopy +++| CONV T64D212,F64D212 01365 M01S01304.fcopy +++| CONV T64D213,F64D213 01366 M01S01305.fcopy +++| CONV T64D214,F64D214 01367 M01S01306.fcopy +++| CONV T64D215,F64D215 01368 M01S01307.fcopy +++| CONV T64D216,F64D216 01369 M01S01308.fcopy +++| CONV T64D217,F64D217 01370 M01S01309.fcopy +++| CONV T64D220,F64D220 01371 M01S01310.fcopy +++| CONV T64D221,F64D221 01372 M01S01311.fcopy +++| CONV T64D222,F64D222 01373 M01S01312.fcopy +++| CONV T64D223,F64D223 01374 M01S01313.fcopy +++| CONV T64D224,F64D224 01375 M01S01314.fcopy +++| CONV T64D225,F64D225 01376 M01S01315.fcopy +++| CONV T64D226,F64D226 01377 M01S01316.fcopy +++| CONV T64D227,F64D227 01378 M01S01317.fcopy +++| CONV T64D230,F64D230 01379 M01S01318.fcopy +++| CONV T64D231,F64D231 01380 M01S01319.fcopy +++| CONV T64D232,F64D232 01381 M01S01320.fcopy +++| CONV T64D233,F64D233 01382 M01S01321.fcopy +++| CONV T64D234,F64D234 01383 M01S01322.fcopy +++| CONV T64D235,F64D235 01384 M01S01323.fcopy +++| CONV T64D236,F64D236 01385 M01S01324.fcopy +++| CONV T64D237,F64D237 01386 M01S01325.fcopy +++| CONV T64D240,F64D240 BLANK 01387 M01S01326.fcopy +++| CONV T64D241,F64D241 ! 01388 M01S01327.fcopy +++| CONV T64D242,F64D242 " 01389 M01S01328.fcopy +++| CONV T64D243,F64D243 # 01390 M01S01329.fcopy +++| CONV T64D244,F64D244 $ 01391 M01S01330.fcopy +++| CONV T64D245,F64D245 % 01392 M01S01331.fcopy +++| CONV T64D246,F64D246 & 01393 M01S01332.fcopy +++| CONV T64D247,F64D247 ' 01394 M01S01333.fcopy +++| CONV T64D250,F64D250 ( 01395 M01S01334.fcopy +++| CONV T64D251,F64D251 ) 01396 M01S01335.fcopy +++| CONV T64D252,F64D252 * 01397 M01S01336.fcopy +++| CONV T64D253,F64D253 + 01398 M01S01337.fcopy +++| CONV T64D254,F64D254 , 01399 M01S01338.fcopy +++| CONV T64D255,F64D255 - 01400 M01S01339.fcopy +++| CONV T64D256,F64D256 . 01401 M01S01340.fcopy +++| CONV T64D257,F64D257 / 01402 M01S01341.fcopy +++| CONV T64D260,F64D260 0 01403 M01S01342.fcopy +++| CONV T64D261,F64D261 1 01404 M01S01343.fcopy +++| CONV T64D262,F64D262 2 01405 M01S01344.fcopy +++| CONV T64D263,F64D263 3 01406 M01S01345.fcopy +++| CONV T64D264,F64D264 4 01407 M01S01346.fcopy +++| CONV T64D265,F64D265 5 01408 M01S01347.fcopy +++| CONV T64D266,F64D266 6 01409 M01S01348.fcopy +++| CONV T64D267,F64D267 7 01410 M01S01349.fcopy +++| CONV T64D270,F64D270 8 01411 M01S01350.fcopy +++| CONV T64D271,F64D271 9 01412 M01S01351.fcopy +++| CONV T64D272,F64D272 : 01413 M01S01352.fcopy +++| CONV T64D273,F64D273 ; 01414 M01S01353.fcopy +++| CONV T64D274,F64D274 < 01415 M01S01354.fcopy +++| CONV T64D275,F64D275 = 01416 M01S01355.fcopy +++| CONV T64D276,F64D276 > 01417 M01S01356.fcopy +++| CONV T64D277,F64D277 ? 01418 M01S01357.fcopy +++| CONV T64D300,F64D300 01419 M01S01358.fcopy +++| CONV T64D301,F64D301 A 01420 M01S01359.fcopy +++| CONV T64D302,F64D302 B 01421 M01S01360.fcopy +++| CONV T64D303,F64D303 C 01422 M01S01361.fcopy +++| CONV T64D304,F64D304 D 01423 M01S01362.fcopy +++| CONV T64D305,F64D305 E 01424 M01S01363.fcopy +++| CONV T64D306,F64D306 F 01425 M01S01364.fcopy +++| CONV T64D307,F64D307 G 01426 M01S01365.fcopy +++| CONV T64D310,F64D310 H 01427 M01S01366.fcopy +++| CONV T64D311,F64D311 I 01428 M01S01367.fcopy +++| CONV T64D312,F64D312 J 01429 M01S01368.fcopy +++| CONV T64D313,F64D313 K 01430 M01S01369.fcopy +++| CONV T64D314,F64D314 L 01431 M01S01370.fcopy +++| CONV T64D315,F64D315 M 01432 M01S01371.fcopy +++| CONV T64D316,F64D316 N 01433 M01S01372.fcopy +++| CONV T64D317,F64D317 O 01434 M01S01373.fcopy +++| CONV T64D320,F64D320 P 01435 M01S01374.fcopy +++| CONV T64D321,F64D321 Q 01436 M01S01375.fcopy +++| CONV T64D322,F64D322 R 01437 M01S01376.fcopy +++| CONV T64D323,F64D323 S 01438 M01S01377.fcopy +++| CONV T64D324,F64D324 T 01439 M01S01378.fcopy +++| CONV T64D325,F64D325 U 01440 M01S01379.fcopy +++| CONV T64D326,F64D326 V 01441 M01S01380.fcopy +++| CONV T64D327,F64D327 W 01442 M01S01381.fcopy +++| CONV T64D330,F64D330 X 01443 M01S01382.fcopy +++| CONV T64D331,F64D331 Y 01444 M01S01383.fcopy +++| CONV T64D332,F64D332 Z 01445 M01S01384.fcopy +++| CONV T64D333,F64D333 [ 01446 M01S01385.fcopy +++| CONV T64D334,F64D334 \ 01447 M01S01386.fcopy +++| CONV T64D335,F64D335 ] 01448 M01S01387.fcopy +++| CONV T64D336,F64D336 01449 M01S01388.fcopy +++| CONV T64D337,F64D337 _ 01450 M01S01389.fcopy +++| CONV T64D340,F64D340 01451 M01S01390.fcopy +++| CONV T64D341,F64D341 A 01452 M01S01391.fcopy +++| CONV T64D342,F64D342 B 01453 M01S01392.fcopy +++| CONV T64D343,F64D343 C 01454 M01S01393.fcopy +++| CONV T64D344,F64D344 D 01455 M01S01394.fcopy +++| CONV T64D345,F64D345 E 01456 M01S01395.fcopy +++| CONV T64D346,F64D346 F 01457 M01S01396.fcopy +++| CONV T64D347,F64D347 G 01458 M01S01397.fcopy +++| CONV T64D350,F64D350 H 01459 M01S01398.fcopy +++| CONV T64D351,F64D351 I 01460 M01S01399.fcopy +++| CONV T64D352,F64D352 J 01461 M01S01400.fcopy +++| CONV T64D353,F64D353 K 01462 M01S01401.fcopy +++| CONV T64D354,F64D354 L 01463 M01S01402.fcopy +++| CONV T64D355,F64D355 M 01464 M01S01403.fcopy +++| CONV T64D356,F64D356 N 01465 M01S01404.fcopy +++| CONV T64D357,F64D357 O 01466 M01S01405.fcopy +++| CONV T64D360,F64D360 P 01467 M01S01406.fcopy +++| CONV T64D361,F64D361 Q 01468 M01S01407.fcopy +++| CONV T64D362,F64D362 R 01469 M01S01408.fcopy +++| CONV T64D363,F64D363 S 01470 M01S01409.fcopy +++| CONV T64D364,F64D364 T 01471 M01S01410.fcopy +++| CONV T64D365,F64D365 U 01472 M01S01411.fcopy +++| CONV T64D366,F64D366 V 01473 M01S01412.fcopy +++| CONV T64D367,F64D367 W 01474 M01S01413.fcopy +++| CONV T64D370,F64D370 X 01475 M01S01414.fcopy +++| CONV T64D371,F64D371 Y 01476 M01S01415.fcopy +++| CONV T64D372,F64D372 Z 01477 M01S01416.fcopy +++| CONV T64D373,F64D373 [ 01478 M01S01417.fcopy +++| CONV T64D374,F64D374 \ 01479 M01S01418.fcopy +++| CONV T64D375,F64D375 ] 01480 M01S01419.fcopy +++| CONV T64D376,F64D376 01481 M01S01420.fcopy +++| CONV T64D377,F64D377 01482 M01S01421.fcopy +++| 01483 M01S01422.fcopy +++| CONV ZBCH,ZBCH ZB ZB 01484 M01S01423.fcopy +++| CONV EORC,EORC EOR EOR 01485 M01S01424.fcopy +++| CONV EOFC,EOFC EOF EOF 01486 M01S01425.fcopy +++| CONV EOIC,EOIC EOI EOI 01487 M01S01426.fcopy +++| 01488 M01S01427.fcopy +++| LOC *O 01489 M01S01428.fcopy +++| QUAL * 01490 M01S01429.fcopy +++| SPACE 4,10 01491 M01S01430.fcopy +++| TD63 BSS 0 63 CHARACTER DISPLAY CODE 01492 M01S01431.fcopy +++| QUAL COMTCVT 01493 M01S01432.fcopy +++| LOC 0 01494 M01S01433.fcopy +++| 01495 M01S01434.fcopy +++|* TO FROM 01496 M01S01435.fcopy +++|* DIS63 DIS63 01497 M01S01436.fcopy +++| 01498 M01S01437.fcopy +++| CONV T63D000,F63D000 01499 M01S01438.fcopy +++| CONV T63D001,F63D001 A 01500 M01S01439.fcopy +++| CONV T63D002,F63D002 B 01501 M01S01440.fcopy +++| CONV T63D003,F63D003 C 01502 M01S01441.fcopy +++| CONV T63D004,F63D004 D 01503 M01S01442.fcopy +++| CONV T63D005,F63D005 E 01504 M01S01443.fcopy +++| CONV T63D006,F63D006 F 01505 M01S01444.fcopy +++| CONV T63D007,F63D007 G 01506 M01S01445.fcopy +++| CONV T63D010,F63D010 H 01507 M01S01446.fcopy +++| CONV T63D011,F63D011 I 01508 M01S01447.fcopy +++| CONV T63D012,F63D012 J 01509 M01S01448.fcopy +++| CONV T63D013,F63D013 K 01510 M01S01449.fcopy +++| CONV T63D014,F63D014 L 01511 M01S01450.fcopy +++| CONV T63D015,F63D015 M 01512 M01S01451.fcopy +++| CONV T63D016,F63D016 N 01513 M01S01452.fcopy +++| CONV T63D017,F63D017 O 01514 M01S01453.fcopy +++| CONV T63D020,F63D020 P 01515 M01S01454.fcopy +++| CONV T63D021,F63D021 Q 01516 M01S01455.fcopy +++| CONV T63D022,F63D022 R 01517 M01S01456.fcopy +++| CONV T63D023,F63D023 S 01518 M01S01457.fcopy +++| CONV T63D024,F63D024 T 01519 M01S01458.fcopy +++| CONV T63D025,F63D025 U 01520 M01S01459.fcopy +++| CONV T63D026,F63D026 V 01521 M01S01460.fcopy +++| CONV T63D027,F63D027 W 01522 M01S01461.fcopy +++| CONV T63D030,F63D030 X 01523 M01S01462.fcopy +++| CONV T63D031,F63D031 Y 01524 M01S01463.fcopy +++| CONV T63D032,F63D032 Z 01525 M01S01464.fcopy +++| CONV T63D033,F63D033 0 01526 M01S01465.fcopy +++| CONV T63D034,F63D034 1 01527 M01S01466.fcopy +++| CONV T63D035,F63D035 2 01528 M01S01467.fcopy +++| CONV T63D036,F63D036 3 01529 M01S01468.fcopy +++| CONV T63D037,F63D037 4 01530 M01S01469.fcopy +++| CONV T63D040,F63D040 BLANK 5 01531 M01S01470.fcopy +++| CONV T63D041,F63D041 ! 6 01532 M01S01471.fcopy +++| CONV T63D042,F63D042 " 7 01533 M01S01472.fcopy +++| CONV T63D043,F63D043 # 8 01534 M01S01473.fcopy +++| CONV T63D044,F63D044 $ 9 01535 M01S01474.fcopy +++| CONV T63D045,F63D045 BLANK 01536 M01S01475.fcopy +++| CONV T63D046,F63D046 & - 01537 M01S01476.fcopy +++| CONV T63D047,F63D047 ' * 01538 M01S01477.fcopy +++| CONV T63D050,F63D050 ( / 01539 M01S01478.fcopy +++| CONV T63D051,F63D051 ) ( 01540 M01S01479.fcopy +++| CONV T63D052,F63D052 * ) 01541 M01S01480.fcopy +++| CONV T63D053,F63D053 + $ 01542 M01S01481.fcopy +++| CONV T63D054,F63D054 , = 01543 M01S01482.fcopy +++| CONV T63D055,F63D055 - BLANK 01544 M01S01483.fcopy +++| CONV T63D056,F63D056 . , 01545 M01S01484.fcopy +++| CONV T63D057,F63D057 / . 01546 M01S01485.fcopy +++| CONV T63D060,F63D060 0 # 01547 M01S01486.fcopy +++| CONV T63D061,F63D061 1 [ 01548 M01S01487.fcopy +++| CONV T63D062,F63D062 2 ] 01549 M01S01488.fcopy +++| CONV T63D063,F63D063 3 % 01550 M01S01489.fcopy +++| CONV T63D064,F63D064 4 " 01551 M01S01490.fcopy +++| CONV T63D065,F63D065 5 _ 01552 M01S01491.fcopy +++| CONV T63D066,F63D066 6 ! 01553 M01S01492.fcopy +++| CONV T63D067,F63D067 7 & 01554 M01S01493.fcopy +++| CONV T63D070,F63D070 8 ' 01555 M01S01494.fcopy +++| CONV T63D071,F63D071 9 ? 01556 M01S01495.fcopy +++| CONV T63D072,F63D072 : < 01557 M01S01496.fcopy +++| CONV T63D073,F63D073 ; > 01558 M01S01497.fcopy +++| CONV T63D074,F63D074 < 01559 M01S01498.fcopy +++| CONV T63D075,F63D075 = \ 01560 M01S01499.fcopy +++| CONV T63D076,F63D076 > 01561 M01S01500.fcopy +++| CONV T63D077,F63D077 ? ; 01562 M01S01501.fcopy +++| CONV T63D100,F63D100 01563 M01S01502.fcopy +++| CONV T63D101,F63D101 A 01564 M01S01503.fcopy +++| CONV T63D102,F63D102 B 01565 M01S01504.fcopy +++| CONV T63D103,F63D103 C 01566 M01S01505.fcopy +++| CONV T63D104,F63D104 D 01567 M01S01506.fcopy +++| CONV T63D105,F63D105 E 01568 M01S01507.fcopy +++| CONV T63D106,F63D106 F 01569 M01S01508.fcopy +++| CONV T63D107,F63D107 G 01570 M01S01509.fcopy +++| CONV T63D110,F63D110 H 01571 M01S01510.fcopy +++| CONV T63D111,F63D111 I 01572 M01S01511.fcopy +++| CONV T63D112,F63D112 J 01573 M01S01512.fcopy +++| CONV T63D113,F63D113 K 01574 M01S01513.fcopy +++| CONV T63D114,F63D114 L 01575 M01S01514.fcopy +++| CONV T63D115,F63D115 M 01576 M01S01515.fcopy +++| CONV T63D116,F63D116 N 01577 M01S01516.fcopy +++| CONV T63D117,F63D117 O 01578 M01S01517.fcopy +++| CONV T63D120,F63D120 P 01579 M01S01518.fcopy +++| CONV T63D121,F63D121 Q 01580 M01S01519.fcopy +++| CONV T63D122,F63D122 R 01581 M01S01520.fcopy +++| CONV T63D123,F63D123 S 01582 M01S01521.fcopy +++| CONV T63D124,F63D124 T 01583 M01S01522.fcopy +++| CONV T63D125,F63D125 U 01584 M01S01523.fcopy +++| CONV T63D126,F63D126 V 01585 M01S01524.fcopy +++| CONV T63D127,F63D127 W 01586 M01S01525.fcopy +++| CONV T63D130,F63D130 X 01587 M01S01526.fcopy +++| CONV T63D131,F63D131 Y 01588 M01S01527.fcopy +++| CONV T63D132,F63D132 Z 01589 M01S01528.fcopy +++| CONV T63D133,F63D133 [ 01590 M01S01529.fcopy +++| CONV T63D134,F63D134 \ 01591 M01S01530.fcopy +++| CONV T63D135,F63D135 ] 01592 M01S01531.fcopy +++| CONV T63D136,F63D136 01593 M01S01532.fcopy +++| CONV T63D137,F63D137 _ 01594 M01S01533.fcopy +++| CONV T63D140,F63D140 01595 M01S01534.fcopy +++| CONV T63D141,F63D141 A 01596 M01S01535.fcopy +++| CONV T63D142,F63D142 B 01597 M01S01536.fcopy +++| CONV T63D143,F63D143 C 01598 M01S01537.fcopy +++| CONV T63D144,F63D144 D 01599 M01S01538.fcopy +++| CONV T63D145,F63D145 E 01600 M01S01539.fcopy +++| CONV T63D146,F63D146 F 01601 M01S01540.fcopy +++| CONV T63D147,F63D147 G 01602 M01S01541.fcopy +++| CONV T63D150,F63D150 H 01603 M01S01542.fcopy +++| CONV T63D151,F63D151 I 01604 M01S01543.fcopy +++| CONV T63D152,F63D152 J 01605 M01S01544.fcopy +++| CONV T63D153,F63D153 K 01606 M01S01545.fcopy +++| CONV T63D154,F63D154 L 01607 M01S01546.fcopy +++| CONV T63D155,F63D155 M 01608 M01S01547.fcopy +++| CONV T63D156,F63D156 N 01609 M01S01548.fcopy +++| CONV T63D157,F63D157 O 01610 M01S01549.fcopy +++| CONV T63D160,F63D160 P 01611 M01S01550.fcopy +++| CONV T63D161,F63D161 Q 01612 M01S01551.fcopy +++| CONV T63D162,F63D162 R 01613 M01S01552.fcopy +++| CONV T63D163,F63D163 S 01614 M01S01553.fcopy +++| CONV T63D164,F63D164 T 01615 M01S01554.fcopy +++| CONV T63D165,F63D165 U 01616 M01S01555.fcopy +++| CONV T63D166,F63D166 V 01617 M01S01556.fcopy +++| CONV T63D167,F63D167 W 01618 M01S01557.fcopy +++| CONV T63D170,F63D170 X 01619 M01S01558.fcopy +++| CONV T63D171,F63D171 Y 01620 M01S01559.fcopy +++| CONV T63D172,F63D172 Z 01621 M01S01560.fcopy +++| CONV T63D173,F63D173 [ 01622 M01S01561.fcopy +++| CONV T63D174,F63D174 \ 01623 M01S01562.fcopy +++| CONV T63D175,F63D175 ] 01624 M01S01563.fcopy +++| CONV T63D176,F63D176 01625 M01S01564.fcopy +++| CONV T63D177,F63D177 01626 M01S01565.fcopy +++| 01627 M01S01566.fcopy +++| CONV T63D200,F63D200 01628 M01S01567.fcopy +++| CONV T63D201,F63D201 01629 M01S01568.fcopy +++| CONV T63D202,F63D202 01630 M01S01569.fcopy +++| CONV T63D203,F63D203 01631 M01S01570.fcopy +++| CONV T63D204,F63D204 01632 M01S01571.fcopy +++| CONV T63D205,F63D205 01633 M01S01572.fcopy +++| CONV T63D206,F63D206 01634 M01S01573.fcopy +++| CONV T63D207,F63D207 01635 M01S01574.fcopy +++| CONV T63D210,F63D210 01636 M01S01575.fcopy +++| CONV T63D211,F63D211 01637 M01S01576.fcopy +++| CONV T63D212,F63D212 01638 M01S01577.fcopy +++| CONV T63D213,F63D213 01639 M01S01578.fcopy +++| CONV T63D214,F63D214 01640 M01S01579.fcopy +++| CONV T63D215,F63D215 01641 M01S01580.fcopy +++| CONV T63D216,F63D216 01642 M01S01581.fcopy +++| CONV T63D217,F63D217 01643 M01S01582.fcopy +++| CONV T63D220,F63D220 01644 M01S01583.fcopy +++| CONV T63D221,F63D221 01645 M01S01584.fcopy +++| CONV T63D222,F63D222 01646 M01S01585.fcopy +++| CONV T63D223,F63D223 01647 M01S01586.fcopy +++| CONV T63D224,F63D224 01648 M01S01587.fcopy +++| CONV T63D225,F63D225 01649 M01S01588.fcopy +++| CONV T63D226,F63D226 01650 M01S01589.fcopy +++| CONV T63D227,F63D227 01651 M01S01590.fcopy +++| CONV T63D230,F63D230 01652 M01S01591.fcopy +++| CONV T63D231,F63D231 01653 M01S01592.fcopy +++| CONV T63D232,F63D232 01654 M01S01593.fcopy +++| CONV T63D233,F63D233 01655 M01S01594.fcopy +++| CONV T63D234,F63D234 01656 M01S01595.fcopy +++| CONV T63D235,F63D235 01657 M01S01596.fcopy +++| CONV T63D236,F63D236 01658 M01S01597.fcopy +++| CONV T63D237,F63D237 01659 M01S01598.fcopy +++| CONV T63D240,F63D240 BLANK 01660 M01S01599.fcopy +++| CONV T63D241,F63D241 ! 01661 M01S01600.fcopy +++| CONV T63D242,F63D242 " 01662 M01S01601.fcopy +++| CONV T63D243,F63D243 # 01663 M01S01602.fcopy +++| CONV T63D244,F63D244 $ 01664 M01S01603.fcopy +++| CONV T63D245,F63D245 BLANK 01665 M01S01604.fcopy +++| CONV T63D246,F63D246 & 01666 M01S01605.fcopy +++| CONV T63D247,F63D247 ' 01667 M01S01606.fcopy +++| CONV T63D250,F63D250 ( 01668 M01S01607.fcopy +++| CONV T63D251,F63D251 ) 01669 M01S01608.fcopy +++| CONV T63D252,F63D252 * 01670 M01S01609.fcopy +++| CONV T63D253,F63D253 + 01671 M01S01610.fcopy +++| CONV T63D254,F63D254 , 01672 M01S01611.fcopy +++| CONV T63D255,F63D255 - 01673 M01S01612.fcopy +++| CONV T63D256,F63D256 . 01674 M01S01613.fcopy +++| CONV T63D257,F63D257 / 01675 M01S01614.fcopy +++| CONV T63D260,F63D260 0 01676 M01S01615.fcopy +++| CONV T63D261,F63D261 1 01677 M01S01616.fcopy +++| CONV T63D262,F63D262 2 01678 M01S01617.fcopy +++| CONV T63D263,F63D263 3 01679 M01S01618.fcopy +++| CONV T63D264,F63D264 4 01680 M01S01619.fcopy +++| CONV T63D265,F63D265 5 01681 M01S01620.fcopy +++| CONV T63D266,F63D266 6 01682 M01S01621.fcopy +++| CONV T63D267,F63D267 7 01683 M01S01622.fcopy +++| CONV T63D270,F63D270 8 01684 M01S01623.fcopy +++| CONV T63D271,F63D271 9 01685 M01S01624.fcopy +++| CONV T63D272,F63D272 : 01686 M01S01625.fcopy +++| CONV T63D273,F63D273 ; 01687 M01S01626.fcopy +++| CONV T63D274,F63D274 < 01688 M01S01627.fcopy +++| CONV T63D275,F63D275 = 01689 M01S01628.fcopy +++| CONV T63D276,F63D276 > 01690 M01S01629.fcopy +++| CONV T63D277,F63D277 ? 01691 M01S01630.fcopy +++| CONV T63D300,F63D300 01692 M01S01631.fcopy +++| CONV T63D301,F63D301 A 01693 M01S01632.fcopy +++| CONV T63D302,F63D302 B 01694 M01S01633.fcopy +++| CONV T63D303,F63D303 C 01695 M01S01634.fcopy +++| CONV T63D304,F63D304 D 01696 M01S01635.fcopy +++| CONV T63D305,F63D305 E 01697 M01S01636.fcopy +++| CONV T63D306,F63D306 F 01698 M01S01637.fcopy +++| CONV T63D307,F63D307 G 01699 M01S01638.fcopy +++| CONV T63D310,F63D310 H 01700 M01S01639.fcopy +++| CONV T63D311,F63D311 I 01701 M01S01640.fcopy +++| CONV T63D312,F63D312 J 01702 M01S01641.fcopy +++| CONV T63D313,F63D313 K 01703 M01S01642.fcopy +++| CONV T63D314,F63D314 L 01704 M01S01643.fcopy +++| CONV T63D315,F63D315 M 01705 M01S01644.fcopy +++| CONV T63D316,F63D316 N 01706 M01S01645.fcopy +++| CONV T63D317,F63D317 O 01707 M01S01646.fcopy +++| CONV T63D320,F63D320 P 01708 M01S01647.fcopy +++| CONV T63D321,F63D321 Q 01709 M01S01648.fcopy +++| CONV T63D322,F63D322 R 01710 M01S01649.fcopy +++| CONV T63D323,F63D323 S 01711 M01S01650.fcopy +++| CONV T63D324,F63D324 T 01712 M01S01651.fcopy +++| CONV T63D325,F63D325 U 01713 M01S01652.fcopy +++| CONV T63D326,F63D326 V 01714 M01S01653.fcopy +++| CONV T63D327,F63D327 W 01715 M01S01654.fcopy +++| CONV T63D330,F63D330 X 01716 M01S01655.fcopy +++| CONV T63D331,F63D331 Y 01717 M01S01656.fcopy +++| CONV T63D332,F63D332 Z 01718 M01S01657.fcopy +++| CONV T63D333,F63D333 [ 01719 M01S01658.fcopy +++| CONV T63D334,F63D334 \ 01720 M01S01659.fcopy +++| CONV T63D335,F63D335 ] 01721 M01S01660.fcopy +++| CONV T63D336,F63D336 01722 M01S01661.fcopy +++| CONV T63D337,F63D337 _ 01723 M01S01662.fcopy +++| CONV T63D340,F63D340 01724 M01S01663.fcopy +++| CONV T63D341,F63D341 A 01725 M01S01664.fcopy +++| CONV T63D342,F63D342 B 01726 M01S01665.fcopy +++| CONV T63D343,F63D343 C 01727 M01S01666.fcopy +++| CONV T63D344,F63D344 D 01728 M01S01667.fcopy +++| CONV T63D345,F63D345 E 01729 M01S01668.fcopy +++| CONV T63D346,F63D346 F 01730 M01S01669.fcopy +++| CONV T63D347,F63D347 G 01731 M01S01670.fcopy +++| CONV T63D350,F63D350 H 01732 M01S01671.fcopy +++| CONV T63D351,F63D351 I 01733 M01S01672.fcopy +++| CONV T63D352,F63D352 J 01734 M01S01673.fcopy +++| CONV T63D353,F63D353 K 01735 M01S01674.fcopy +++| CONV T63D354,F63D354 L 01736 M01S01675.fcopy +++| CONV T63D355,F63D355 M 01737 M01S01676.fcopy +++| CONV T63D356,F63D356 N 01738 M01S01677.fcopy +++| CONV T63D357,F63D357 O 01739 M01S01678.fcopy +++| CONV T63D360,F63D360 P 01740 M01S01679.fcopy +++| CONV T63D361,F63D361 Q 01741 M01S01680.fcopy +++| CONV T63D362,F63D362 R 01742 M01S01681.fcopy +++| CONV T63D363,F63D363 S 01743 M01S01682.fcopy +++| CONV T63D364,F63D364 T 01744 M01S01683.fcopy +++| CONV T63D365,F63D365 U 01745 M01S01684.fcopy +++| CONV T63D366,F63D366 V 01746 M01S01685.fcopy +++| CONV T63D367,F63D367 W 01747 M01S01686.fcopy +++| CONV T63D370,F63D370 X 01748 M01S01687.fcopy +++| CONV T63D371,F63D371 Y 01749 M01S01688.fcopy +++| CONV T63D372,F63D372 Z 01750 M01S01689.fcopy +++| CONV T63D373,F63D373 [ 01751 M01S01690.fcopy +++| CONV T63D374,F63D374 \ 01752 M01S01691.fcopy +++| CONV T63D375,F63D375 ] 01753 M01S01692.fcopy +++| CONV T63D376,F63D376 01754 M01S01693.fcopy +++| CONV T63D377,F63D377 01755 M01S01694.fcopy +++| 01756 M01S01695.fcopy +++| CONV ZBCH,ZBCH ZB ZB 01757 M01S01696.fcopy +++| CONV EORC,EORC EOR EOR 01758 M01S01697.fcopy +++| CONV EOFC,EOFC EOF EOF 01759 M01S01698.fcopy +++| CONV EOIC,EOIC EOI EOI 01760 M01S01699.fcopy +++| 01761 M01S01700.fcopy +++| LOC *O 01762 M01S01701.fcopy +++| QUAL * 01763 M01S01702.fcopy +++| SPACE 4,10 01764 M01S01703.fcopy +++| TA64 BSS 0 64 CHARACTER ASCII 6/12 01765 M01S01704.fcopy +++| QUAL COMTCVT 01766 M01S01705.fcopy +++| LOC 0 01767 M01S01706.fcopy +++| 01768 M01S01707.fcopy +++|* TO FROM 01769 M01S01708.fcopy +++|* ASCII64 ASCII64 01770 M01S01709.fcopy +++| 01771 M01S01710.fcopy +++| CONV T64A000,F64A000 NUL : 01772 M01S01711.fcopy +++| CONV T64A001,F64A001 SOH A 01773 M01S01712.fcopy +++| CONV T64A002,F64A002 STX B 01774 M01S01713.fcopy +++| CONV T64A003,F64A003 ETX C 01775 M01S01714.fcopy +++| CONV T64A004,F64A004 EOT D 01776 M01S01715.fcopy +++| CONV T64A005,F64A005 ENQ E 01777 M01S01716.fcopy +++| CONV T64A006,F64A006 ACK F 01778 M01S01717.fcopy +++| CONV T64A007,F64A007 BEL G 01779 M01S01718.fcopy +++| CONV T64A010,F64A010 BS H 01780 M01S01719.fcopy +++| CONV T64A011,F64A011 HT I 01781 M01S01720.fcopy +++| CONV T64A012,F64A012 LF J 01782 M01S01721.fcopy +++| CONV T64A013,F64A013 VT K 01783 M01S01722.fcopy +++| CONV T64A014,F64A014 FF L 01784 M01S01723.fcopy +++| CONV T64A015,F64A015 CR M 01785 M01S01724.fcopy +++| CONV T64A016,F64A016 SO N 01786 M01S01725.fcopy +++| CONV T64A017,F64A017 SI O 01787 M01S01726.fcopy +++| CONV T64A020,F64A020 DLE P 01788 M01S01727.fcopy +++| CONV T64A021,F64A021 DC1 Q 01789 M01S01728.fcopy +++| CONV T64A022,F64A022 DC2 R 01790 M01S01729.fcopy +++| CONV T64A023,F64A023 DC3 S 01791 M01S01730.fcopy +++| CONV T64A024,F64A024 DC4 T 01792 M01S01731.fcopy +++| CONV T64A025,F64A025 NAK U 01793 M01S01732.fcopy +++| CONV T64A026,F64A026 SYN V 01794 M01S01733.fcopy +++| CONV T64A027,F64A027 ETB W 01795 M01S01734.fcopy +++| CONV T64A030,F64A030 CAN X 01796 M01S01735.fcopy +++| CONV T64A031,F64A031 EM Y 01797 M01S01736.fcopy +++| CONV T64A032,F64A032 SUB Z 01798 M01S01737.fcopy +++| CONV T64A033,F64A033 ESC 0 01799 M01S01738.fcopy +++| CONV T64A034,F64A034 FS 1 01800 M01S01739.fcopy +++| CONV T64A035,F64A035 GS 2 01801 M01S01740.fcopy +++| CONV T64A036,F64A036 RS 3 01802 M01S01741.fcopy +++| CONV T64A037,F64A037 US 4 01803 M01S01742.fcopy +++| CONV T64A040,F64A040 BLANK 5 01804 M01S01743.fcopy +++| CONV T64A041,F64A041 ! 6 01805 M01S01744.fcopy +++| CONV T64A042,F64A042 " 7 01806 M01S01745.fcopy +++| CONV T64A043,F64A043 # 8 01807 M01S01746.fcopy +++| CONV T64A044,F64A044 $ 9 01808 M01S01747.fcopy +++| CONV T64A045,F64A045 % + 01809 M01S01748.fcopy +++| CONV T64A046,F64A046 & - 01810 M01S01749.fcopy +++| CONV T64A047,F64A047 ' * 01811 M01S01750.fcopy +++| CONV T64A050,F64A050 ( / 01812 M01S01751.fcopy +++| CONV T64A051,F64A051 ) ( 01813 M01S01752.fcopy +++| CONV T64A052,F64A052 * ) 01814 M01S01753.fcopy +++| CONV T64A053,F64A053 + $ 01815 M01S01754.fcopy +++| CONV T64A054,F64A054 , = 01816 M01S01755.fcopy +++| CONV T64A055,F64A055 - BLANK 01817 M01S01756.fcopy +++| CONV T64A056,F64A056 . , 01818 M01S01757.fcopy +++| CONV T64A057,F64A057 / . 01819 M01S01758.fcopy +++| CONV T64A060,F64A060 0 # 01820 M01S01759.fcopy +++| CONV T64A061,F64A061 1 [ 01821 M01S01760.fcopy +++| CONV T64A062,F64A062 2 ] 01822 M01S01761.fcopy +++| CONV T64A063,F64A063 3 % 01823 M01S01762.fcopy +++| CONV T64A064,F64A064 4 " 01824 M01S01763.fcopy +++| CONV T64A065,F64A065 5 _ 01825 M01S01764.fcopy +++| CONV T64A066,F64A066 6 ! 01826 M01S01765.fcopy +++| CONV T64A067,F64A067 7 & 01827 M01S01766.fcopy +++| CONV T64A070,F64A070 8 ' 01828 M01S01767.fcopy +++| CONV T64A071,F64A071 9 ? 01829 M01S01768.fcopy +++| CONV T64A072,F64A072 : < 01830 M01S01769.fcopy +++| CONV T64A073,F64A073 ; > 01831 M01S01770.fcopy +++| CONV T64A074,F64A074 < 01832 M01S01771.fcopy +++| CONV T64A075,F64A075 = \ 01833 M01S01772.fcopy +++| CONV T64A076,F64A076 > 01834 M01S01773.fcopy +++| CONV T64A077,F64A077 ? ; 01835 M01S01774.fcopy +++| CONV T64A100,F64A100 01836 M01S01775.fcopy +++| CONV T64A101,F64A101 A 01837 M01S01776.fcopy +++| CONV T64A102,F64A102 B 01838 M01S01777.fcopy +++| CONV T64A103,F64A103 C 01839 M01S01778.fcopy +++| CONV T64A104,F64A104 D 01840 M01S01779.fcopy +++| CONV T64A105,F64A105 E 01841 M01S01780.fcopy +++| CONV T64A106,F64A106 F 01842 M01S01781.fcopy +++| CONV T64A107,F64A107 G 01843 M01S01782.fcopy +++| CONV T64A110,F64A110 H 01844 M01S01783.fcopy +++| CONV T64A111,F64A111 I 01845 M01S01784.fcopy +++| CONV T64A112,F64A112 J 01846 M01S01785.fcopy +++| CONV T64A113,F64A113 K 01847 M01S01786.fcopy +++| CONV T64A114,F64A114 L 01848 M01S01787.fcopy +++| CONV T64A115,F64A115 M 01849 M01S01788.fcopy +++| CONV T64A116,F64A116 N 01850 M01S01789.fcopy +++| CONV T64A117,F64A117 O 01851 M01S01790.fcopy +++| CONV T64A120,F64A120 P 01852 M01S01791.fcopy +++| CONV T64A121,F64A121 Q 01853 M01S01792.fcopy +++| CONV T64A122,F64A122 R 01854 M01S01793.fcopy +++| CONV T64A123,F64A123 S 01855 M01S01794.fcopy +++| CONV T64A124,F64A124 T 01856 M01S01795.fcopy +++| CONV T64A125,F64A125 U 01857 M01S01796.fcopy +++| CONV T64A126,F64A126 V 01858 M01S01797.fcopy +++| CONV T64A127,F64A127 W 01859 M01S01798.fcopy +++| CONV T64A130,F64A130 X 01860 M01S01799.fcopy +++| CONV T64A131,F64A131 Y 01861 M01S01800.fcopy +++| CONV T64A132,F64A132 Z 01862 M01S01801.fcopy +++| CONV T64A133,F64A133 [ 01863 M01S01802.fcopy +++| CONV T64A134,F64A134 \ 01864 M01S01803.fcopy +++| CONV T64A135,F64A135 ] 01865 M01S01804.fcopy +++| CONV T64A136,F64A136
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/fcopy.txt · Last modified: by 127.0.0.1