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