ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020
Source File: \w1dfcnv.asm
DFCNV-DISK FILE CONVERSION PROGRAM
2 | *************************************************** W1L00020
3 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * W1L00030
4 | * * W1L00040
5 | *FUNCTION/OPERATION - * W1L00050
6 | * * THE PROGRAM CONVERTS ONE AND ONLY ONE 1130 * W1L00060
7 | * FORTRAN AND/OR COMMERCIAL SUBROUTINE * W1L00070
8 | * PACKAGE(CSP) DISK DATA FILE TO ONE * W1L00080
9 | * AND ONLY ONE 1130 RPG DISK DATA FILE. * W1L00090
10 | * FORTRAN FILES CREATED USING LOGICAL UNIT * W1L00100
11 | * NO. 10 CANNOT BE CONVERTED BY DFCNV. * W1L00110
12 | * CONVERTED FILES CANNOT BE PROCESSED AS ISAM * W1L00120
13 | * FILES. * W1L00130
14 | * * THE PROGRAM CAN OPERATE IN A STACKED JOB * W1L00140
15 | * ENVIRONMENT. * W1L00150
16 | * * THE BASIC OPERATION OF THE PROGRAM IS AS * W1L00160
17 | * FOLLOWS - * W1L00170
18 | * A PARTIAL SLET SEARCH IS PERFORMED AND THE * W1L00180
19 | * SYSTEM DEVICE SUBROUTINES FOR THE PRINCIPAL * W1L00190
20 | * INPUT AND PRINT DEVICES ARE LOADED. THE * W1L00200
21 | * PERTINENT INTERRUPT POINTERS ARE SET. THE * W1L00210
22 | * DFCNV CONTROL CARDS ARE READ,PRINTED AND * W1L00220
23 | * DIAGNOSED FOR ERRORS. A COMPRESSION OF * W1L00230
24 | * FIELD SPECIFICATIONS IS BUILT AS THE * W1L00240
25 | * CONTROL CARDS ARE PROCESSED. FOLLOWING * W1L00250
26 | * SUCCESSFUL PROCESSING OF DFCNV CONTROL * W1L00260
27 | * CARDS,CONVERSION IS INITIATED. DATA TO BE * W1L00270
28 | * CONVERTED IS READ INTO CORE AS IT IS NEEDED,* W1L00280
29 | * 320 WORDS AT A TIME-EACH FIELD IS CONVERTED,* W1L00290
30 | * TEMPORARILY,SAVED IN A WORK AREA,THEN * W1L00300
31 | * INSERTED INTO THE RPG OUTPUT BUFFER AS * W1L00310
32 | * SPECIFIED.THE OUTPUT BUFFER IS TRANSFERRED * W1L00320
33 | * TO DISK AS IT IS FILLED.FOLLOWING COMPLETE * W1L00330
34 | * CONVERSION,A COMPLETION MESSAGE IS PRINTED * W1L00340
35 | * AND CONTROL IS RETURNED TO THE SUPERVISOR * W1L00350
36 | * VIA AN EXIT STATEMENT. * W1L00360
37 | *ENTRY POINTS - * W1L00370
38 | * * PROGRAM START - FC000 * W1L00380
39 | *INPUT - * W1L00390
40 | * * DFCNV CONTROL CARDS - * W1L00400
41 | * ONE AND ONLY ONE FILE DESCRIPTION CARD * W1L00410
42 | * WHICH MUST BE THE FIRST RECOGNIZABLE DFCNV * W1L00420
43 | * CONTROL FOLLOWING THE // XEQ DFCNV CARD. * W1L00430
44 | * THE CARD FORMAT IS DESCRIBED IN FORM * W1L00440
45 | * C26-3717. * W1L00450
46 | * ONE OR MORE FIELD SPECIFICATIONS CARDS.THE * W1L00460
47 | * CARD FORMAT IS DESCRIBED IN FORM C26-3717. * W1L00470
48 | * ONE CSP A3 TRANSLATION TABLE WHICH MUST * W1L00480
49 | * BE PRESENT IF CSP-A3 FIELDS ARE TO BE * W1L00490
50 | * CONVERTED.THE CARD FORMAT IS DESCRIBED * W1L00500
51 | * IN FORM C26-3717. * W1L00510
52 | * /* CARD FOLLOWING LAST LAST DFCNV CONTROL * W1L00520
53 | * CARD. * W1L00530
54 | * * THE INPUT DISK DATA FILE OR THE CORRESPOND- * W1L00540
55 | * ING CARDS PRODUCED BY A DUP DUMPDATA OPERA- * W1L00550
56 | * TION. CARD INPUT DECK MUST IMMEDIATELY * W1L00560
57 | * FOLLOW THE /* CARD. ACCEPTABLE INPUT DATA * W1L00570
58 | * FORMATS ARE ALL FORTRAN AND CSP DISK DATA * W1L00580
59 | * FORMATS AND TWO WORD INTEGERS. * W1L00590
60 | *OUTPUT - * W1L00600
61 | * * THE DFCNV CONTROL CARDS,ANY DIAGNOSTIC * W1L00610
62 | * MESSAGES,AND THE COMPLETION MESSAGE ARE * W1L00620
63 | * PRINTED ON THE PRINCIPAL PRINT DEVICE. * W1L00630
64 | * * THE CONVERTED RPG DISK DATA FILE IN * W1L00640
65 | * ACCEPTABLE RPG DISK DATA FORMAT IS THE * W1L00650
66 | * PRINCIPAL OUTPUT OF THE PROGRAM. * W1L00660
67 | *EXTERNAL REFERENCES * W1L00670
68 | * * SUBROUTINES - * W1L00680
69 | * * DISK1 DISK SUBROUTINE * W1L00690
70 | * * FLD SUBROUTINE TO LOAD STANDARD * W1L00700
71 | * PRECISION FLOATNG POINT NO. * W1L00710
72 | * INTO FAC. * W1L00720
73 | * * ELD SUBROUTINE TO LOAD EXTENDED * W1L00730
74 | * PRECISION FLOATING POINT NO. * W1L00740
75 | * INTO FAC. * W1L00750
76 | * * NORM SUBROUTINE TO NORMALIZE NO. * W1L00760
77 | * IN FAC. * W1L00770
78 | * * COMMUNICATIONS AREA - * W1L00780
79 | * THE FOLLOWING COMMA WORDS ARE * W1L00790
80 | * REFERENCED - * W1L00800
81 | * $KCSW KB,CONSOLE PTR SWITCH * W1L00810
82 | * $PST4 LVL 4 I/O ERROR TRAP ADDR * W1L00820
83 | * $LEV4 LVL 4 INTERRUPT BRANCH ADDRESS * W1L00825
84 | * $IBT4 LVL 4 INTERRUPT BRANCH TABLE * W1L00830
85 | * $IBSY INPUT DEVC BUSY INDR * W1L00840
86 | * $LAST LAST CARD SWITCH * W1L00850
87 | * $LEV0 INTERRUPT BRANCH WORD-LVL 0 * W1L00860
88 | * $LEV0+1 INTERRUPT BRANCH WORD-LVL 1 * W1L00870
89 | * $CTSW CONTROL CARD SWITCH * W1L00880
90 | * $PBSY PRINCIPAL PRINT DEVC BUSY INDR * W1L00890
91 | * $I410 ADDR OF ILS04 RESTORE SUBR * W1L00900
92 | * $IREQ INTERRUPT REQUEST ADDR * W1L00910
93 | * $FPAD-$FPAD+4 FILE PROT ADDR TABLE * W1L00920
94 | * $ULET-$ULET+4 LET ADDR TABLE * W1L00930
95 | * FAC FLOATING ACCUMULATOR * W1L00940
96 | *EXITS - * W1L00950
97 | * * NORMAL - SEE NOTES * W1L00960
98 | * * ABNORMAL - SEE NOTES * W1L00970
99 | *TABLES/WORK AREAS - * W1L00980
100 | * THE FOLLOWING ARE IMPORTANT INTERNAL TABLES - * W1L00990
101 | * * A3TAB 40 CHAR CSP A3 TRANSLATION TABLE * W1L01000
102 | * * COMPR FLD SPEC COMPRESSION AREA * W1L01010
103 | * * LOG I/O SYST DEVC SUBR PHASE ID TABLE* W1L01020
104 | * * FC006 LVL 4 ERROR BRANCH ADDR TABLE * W1L01030
105 | * * TABLJ 2 WD ITG ADJUSTMENT VALUE TABLE * W1L01040
106 | * * TABL5 2 WD ITG READJUSTMENT VALUE TABLE* W1L01050
107 | * THE FOLLOWING ARE IMPORTANT INTERNAL BUFFER - * W1L01060
108 | * * BUF00 LOAD AREA FOR I/P DEVC SUBR * W1L01070
109 | * * BUF01 LOAD AREA FOR I/P CONVERSION SUBR* W1L01080
110 | * * BUF02 LOAD AREA FOR O/P DEVC SUBR * W1L01090
111 | * * BUF03 CARD INPUT AREA * W1L01100
112 | * * BUF04 CARD PRINT AREA * W1L01110
113 | * * BUF05 O/P DATA CONVERSION AREA * W1L01120
114 | * * BUF06 I/P DATA CONVERSION AREA * W1L01130
115 | * THE FOLLOWING ARE IMPORTANT INTERNAL WORK * W1L01140
116 | * AREAS - * W1L01150
117 | * * WORK1 31 WORD WORK AREA * W1L01160
118 | * * WORK2 200 WORD WORK AREA * W1L01170
119 | *INTERNAL REFERNCES - W1L01180
120 | * THE FOLLOWING LABELS REFER TO MAJOR PORTIONS W1L01190
121 | * OF PROGRAM CODE - W1L01200
122 | * * FC015 READ (AND PRINT) A CARD W1L01210
123 | * FC026 PERFORM FINAL DIAGNOSTIC CHECKS W1L01220
124 | * FC360 ACTUAL DATA CONVERSION INITIATED W1L01230
125 | * CDDSK CARD CODE FMT CONVERT TO DISK W1L01240
126 | * DATA FMT * W1L01250
127 | * * FILEC FILE DESCRIPTION CARD CONVERTED * W1L01260
128 | * AND DIAGNOSED * W1L01270
129 | * * SEARC LET/FLET SEARCH SUBR * W1L01280
130 | * * CONVT VAR LNG DECML FLD CONVERTED TO * W1L01290
131 | * BINARY NO. * W1L01300
132 | * * FC016 FIELD SPEC CARD CONVERTED AND * W1L01310
133 | * DIAGNOSED * W1L01320
134 | * * BFLD COMPRESSION SUBR FOR B-FLD TYPE * W1L01330
135 | * * CFLD COMPRESSION SUBR FOR C-FLD TYPE * W1L01340
136 | * * DFLD COMPRESSION SUBR FOR D-FLD TYPE * W1L01350
137 | * * EFLD COMPRESSION SUBR FOR E-FLD TYPE * W1L01360
138 | * * FFLD COMPRESSION SUBR FOR F-FLD TYPE * W1L01370
139 | * * IFLD COMPRESSION SUBR FOR I-FLD TYPE * W1L01380
140 | * * JFLD COMPRESSION SUBR FOR J-FLD TYPE * W1L01390
141 | * * RFLD COMPRESSION SUBR FOR R-FLD TYPE * W1L01400
142 | * * XFLD COMPRESSION SUBR FOR X-FLD TYPE * W1L01410
143 | * * BCNVT CONVERSION SUBR FOR B-FLD TYPE * W1L01420
144 | * * CCNVT CONVERSION SUBR FOR C-FLD TYPE * W1L01430
145 | * * DCNVT CONVERSION SUBR FOR D-FLD TYPE * W1L01440
146 | * * ECNVT CONVERSION SUBR FOR E-FLD TYPE * W1L01450
147 | * * FCNVT CONVERSION SUBR FOR F-FLD TYPE * W1L01460
148 | * * ICNVT CONVERSION SUBR FOR I-FLD TYPE * W1L01470
149 | * * JCNVT CONVERSION SUBR FOR J-FLD TYPE * W1L01480
150 | * * RCNVT CONVERSION SUBR FOR R-FLD TYPE * W1L01490
151 | * * XCNVT CONVERSION SUBR FOR X-FLD TYPE * W1L01500
152 | * * INSRT SUBR TO INSERT CONVERTED FLD * W1L01510
153 | * INTO O/P BUFFER * W1L01520
154 | *ATTRIBUTES - * W1L01530
155 | * * RELOCATABLE * W1L01540
156 | *NOTES - * W1L01550
157 | * * ERROR PROCEDURES - * W1L01560
158 | * * ALL DIAGNOSED ERRORS CAUSE PROGRAM * W1L01570
159 | * TERMINATION PRIOR TO DATA FILE CONVERSION.* W1L01580
160 | * ANY FILE DESCRIPTION CARD ERROR CAUSES * W1L01590
161 | * IMMEDIATE TERMINATION - NO OTHER DFCNV * W1L01600
162 | * CARDS ARE ANALYZED. A FEW DIAGNOSED * W1L01610
163 | * ERRORS ARE WARNING CONDITIONS ONLY - NO * W1L01620
164 | * TERMINATION RESULTS. SEE FORM C26-3717 * W1L01630
165 | * FOR A MORE COMPLETE DESCRIPTION OF DFCNV/ * W1L01640
166 | * DIAGNOSTIC CAPABILITIES. * W1L01650
167 | * * FILE PROTECTION ADDRESS DELIMITERS $FPAD- * W1L01660
168 | * $FPAD+4 OF COMMA ARE TEMPORARILY MODIFIED * W1L01670
169 | * DURING THE CONVERSION PORTION OF DFCNV * W1L01680
170 | * AS IS $IREQ. IF UNFORSEEN ERROR OCCUR * W1L01690
171 | * DURING ACTUAL FILE CONVERSION,THESE WORDS * W1L01700
172 | * MUST BE RESTORED OR A COLD START PERFORM- * W1L01710
173 | * ED. RESTORE THE FILE PROTECTION ADDR SAVED* W1L01720
174 | * AT FC311+1 WITH CONTENTS OF FC311+2,$IREQ * W1L01730
175 | * WITH CONTENTS OF FC364. * W1L01740
176 | * * W1L01750
******************** 177 | ************************************************** W1L01760
178 | *************************************************** W1L01770
179 | * * W1L01780
180 | * ERROR MESSAGES * W1L01790
181 | * * W1L01800
182 | *************************************************** W1L01810
0000 0014 183 | MESS0 DC 20 W1L01820
0001 184 | DMES 2 DISK DATA FILE CONVERSION COMPLE' W1L01830
0001 E3C5 C440 185 | DMES 2 TED 'E W1L01840
0003 0010 186 | MESS2 DC 16 W1L01850
0004 C6F0 F240 40C6 C9D3 187 | DMES 2 F02 FILE NAME NOT IN LET/FLET-I'E W1L01860
C540 D5C1 D4C5 40D5 |
D6E3 40C9 D540 D3C5 |
E361 C6D3 C5E3 60C9 |
0014 000C 188 | MESS3 DC 12 W1L01870
0015 C6F0 F340 40C6 C9D3 189 | DMES 2 F03 FILE SIZE INVALID-I'E W1L01880
C540 E2C9 E9C5 40C9 |
D5E5 C1D3 C9C4 60C9 |
0021 0018 190 | MESS4 DC 24 W1L01890
0022 C6F0 F440 40C9 D5E5 191 | DMES 2 F04 INVALID FIELD SPECIFICATION SYN' W1L01900
C1D3 C9C4 40C6 C9C5 |
D3C4 40E2 D7C5 C3C9 |
C6C9 C3C1 E3C9 D6D5 |
40E2 E8D5 |
0034 E3C1 E740 60C3 D6D3 192 | DMES 2 TAX -COL. 'E W1L01910
4B40 4040 |
003A 000D 193 | MESS5 DC 13 W1L01920
003B C6F0 F540 40C3 E2D7 194 | DMES 2 F05 CSP A3 TABLE MISSING 'E W1L01930
40C1 F340 E3C1 C2D3 |
C540 D4C9 E2E2 C9D5 |
C740 |
0048 000D 195 | MESS6 DC 13 W1L01940
0049 C6F0 F640 40C9 D5E5 196 | DMES 2 F06 INVALID CARD SEQUENCE'E W1L01950
C1D3 C9C4 40C3 C1D9 |
C440 E2C5 D8E4 C5D5 |
C3C5 |
0056 000C 197 | MESS8 DC 12 W1L01960
0057 C6F0 F840 40C3 C1D9 198 | DMES 2 F08 CARD INPUT INVALID 'E W1L01970
C440 C9D5 D7E4 E340 |
C9D5 E5C1 D3C9 C440 |
0063 0011 199 | MESS9 DC 17 W1L01980
0064 C6F0 F940 40D6 E4E3 200 | DMES 2 F09 OUTPUT RECORD LENGTH INVALID 'E W1L01990
D7E4 E340 D9C5 C3D6 |
D9C4 40D3 C5D5 C7E3 |
C840 C9D5 E5C1 D3C9 |
C440 |
201 | * W1L02000
202 | *************************************************** W1L02010
203 | * * W1L02020
204 | * I/O BUFFERS * W1L02030
205 | * * W1L02040
206 | *************************************************** W1L02050
0076 207 | BSS E 0 W1L02060
0076 0140 208 | BUF05 DC 320 E W1L02070
0077 209 | BSS 321 OUTPUT BUFFER W1L02080
01B8 0140 210 | BUF06 DC 320 E W1L02090
01B9 211 | BSS 375 INPUT BUFFER W1L02100
0330 0280 212 | BUF00 DC 640 DISK BUFFER 1 E 2-8 W1L02110
0331 0003 213 | DC /0003 2-8 W1L02120
0332 214 | BSS 372 E W1L02130
04A6 215 | BUF01 BSS /BE DISK BUFFER 2 E W1L02140
0564 216 | BUF02 BSS /133 DISK BUFFER 3 E W1L02150
0697 0050 217 | DC 80 CARD BUFFER 1 W1L02160
0698 218 | BUF03 BSS 80 E W1L02170
219 | * W1L02180
220 | *************************************************** W1L02190
221 | * * W1L02200
222 | * A3 TABLE CARD PROCESSED * W1L02210
223 | * * W1L02220
224 | *************************************************** W1L02230
06E8 C00F 225 | A3FLD LD A3SW W1L02240
06E9 4C20 0CC5R 226 | BSC L FC015,Z BR- A-CARD IGNORED W1L02250
06EB 680C 227 | STX A3SW SET A-CARD SWITCH W1L02260
228 | * W1L02270
229 | * FILL A3 CONVERSION TABLE W1L02280
230 | * W1L02290
06EC 6128 231 | FC021 LDX 1 40 SET CHAR CNT W1L02300
06ED C500 0697R 232 | LD L1 BUF03-1 RETRIEVE CHAR W1L02310
06EF 1008 233 | SLA 8 LEFT-JUSTIFY W1L02320
06F0 D500 06D1R 234 | STO L1 A3TAB-40 SAVE CHAR W1L02330
06F1R 235 | FC821 EQU *-1 W1L02340
06F2 7402 06F1R 236 | MDX L FC821,2 W1L02350
06F4 71FF 237 | MDX 1 -1 W1L02360
06F5 70F7 238 | MDX FC021+1 CONT FILL W1L02370
06F6 4C00 0CC5R 239 | BSC L FC015 READ NEXT CARD W1L02380
240 | * W1L02390
241 | *************************************************** W1L02400
242 | * * W1L02410
243 | * CONSTANTS AND SAVE AREAS * W1L02420
244 | * * W1L02430
245 | *************************************************** W1L02440
06F8 0000 246 | A3SW DC *-* CSP A3 FMT SW W1L02450
06F9 247 | A3TAB BSS 40 A3 CONVERSION TABLE W1L02460
248 | * W1L02470
0721 249 | COMPR BSS 1280 COMPRESSION AREA W1L02480
250 | * W1L02490
0C22 251 | BSS E 0 W1L02500
007C 252 | $KCSW EQU /7C W1L02510
0C22 008F 253 | LOG DC /008F 2501 SYST DEVC SUBR PH ID E W1L02520
0C23 0000 254 | DC *-* NOT USED W1L02530
0C24 255 | BSS 2 W1L02540
0C26 0090 256 | DC /0090 1442 SYST DEVC SUBR PH ID W1L02550
0C27 0000 257 | DC *-* NOT USED W1L02560
0C28 258 | BSS 2 W1L02570
0C2A 0092 259 | DC /0092 KEYB SYST DEVC SUBR PH ID W1L02580
0C2B 0000 260 | SW001 DC *-* PRINCIPAL INPUT DEVC SW W1L02590
0C2C 261 | BSS 2 W1L02600
0C2E 0093 262 | DC /0093 CDCV SUBR PH ID W1L02610
0C2F 0000 263 | DC *-* NOT USED W1L02620
0C30 264 | BSS 2 W1L02630
0C32 0095 265 | DC /0095 KBCV SUBR PH ID W1L02640
0C33 8000 266 | SW003 DC /8000 1ST(15),SPECIAL(0) CD SW W1L02650
0C34 267 | BSS 2 W1L02660
0C36 008C 268 | DC /008C 1403 SYST DEVC SUBR PH ID W1L02670
0C37 0000 269 | SW002 DC *-* PRINCIPAL OUTPUT DEVC SW W1L02680
0C38 270 | BSS 2 W1L02690
0C3A 008D 271 | DC /008D 1132 SYST DEVC SUBR PH ID W1L02700
0C3B 0000 272 | DC *-* NOT USED W1L02710
0C3C 273 | BSS 2 W1L02720
0C3E 008E 274 | DC /008E CPTR SYST DEVC SUBR PH ID W1L02730
0C3F 0000 275 | DC *-* NOT USED W1L02740
0C40 276 | BSS 1 W1L02750
0C41R 277 | FC921 EQU * W1L02760
0C41 278 | BSS 1 W1L02770
0C42 279 | BSS 2 W1L02780
280 | * W1L02790
281 | * W1L02800
0C44 0339R 282 | FC005 DC BUF00+9 BR ADDR-I/P DEVC E W1L02810
0C45 056AR 283 | DC BUF02+6 BR ADDR-O/P DEVC W1L02820
0C46 008D 284 | FC006 DC $PST4 INTRPT BRANCH TABLE (IBT) W1L02830
0C47 008D 285 | DC $PST4 W1L02840
0C48 008D 286 | DC $PST4 W1L02850
0C49 008D 287 | DC $PST4 W1L02860
0C4A 0000 288 | DC 0 NOT USED W1L02870
0C4B 056AR 289 | DC BUF02+6 1403 W1L02880
0C4C 0336R 290 | DC BUF00+6 2501 W1L02890
0C4D 0336R 291 | DC BUF00+6 1442 W1L02900
0C4E 0336R 292 | DC BUF00+6 KB/CP W1L02910
0C4F 0000 293 | DC 0 NOT USED W1L02920
294 | * W1L02930
295 | * W1L02940
008D 296 | $PST4 EQU /8D IBT ADDR PARAM W1L02950
00D4 297 | $IBT4 EQU /D4 IBT ADDR PARAM FOR ILS04 W1L02960
04A9R 298 | CDCV EQU BUF01+3 ENTRY TO CD CONVERT SUBR W1L02970
0013 299 | $IBSY EQU /13 2501 OR 1442 BUSY INDR W1L02980
0033 300 | $LAST EQU /33 LAST CD SW W1L02990
0333R 301 | RDCD EQU BUF00+3 ENTRY ADDR FOR CD READ SUBR W1L03000
0C50 00C4 302 | ILS04 DC /C4 SYSTEM ILS04 ADDRESS 212 W1L03005
303 | * W1L03010
304 | *************************************************** W1L03020
305 | * * W1L03030
306 | * DISK READ AND BUSY TEST * W1L03040
307 | * * W1L03050
308 | *************************************************** W1L03060
0C51 0000 309 | RDDSK DC *-* ENTRY-SAVED RETURN ADDR W1L03070
0C52 0426*24B1 310 | LIBF DISK1 REQUEST DISK READ W1L03080
0C53 1000 311 | DC /1000 W1L03090
0C54 0330R 312 | DC BUF00 VAR PARAM - I/P ADDR W1L03100
0C55 0C5CR 313 | DC ERR01 W1L03110
0C56 0426*24B1 314 | LIBF DISK1 BUSY TEST ON DISK READ W1L03120
0C57 0000 315 | DC 0 W1L03130
0C58 0330R 316 | SW010 DC BUF00 VAR PARAM-I/P ADDR W1L03140
0C59 70FC 317 | MDX *-4 CONTINUE TESTING-DEVC BUSY W1L03150
0C5A 4C80 0C51R 318 | BSC I RDDSK RETURN TO CALLER W1L03160
319 | * W1L03170
320 | * ERROR RECOVERY SUBR W1L03180
321 | * W1L03190
0C5C 0000 322 | ERR01 DC *-* ENTRY-SAVED RETURN ADDR W1L03200
0C5D 4C80 0C5CR 323 | BSC I ERR01 RETURN TO CALLER W1L03210
324 | * W1L03220
325 | *************************************************** W1L03230
326 | * * W1L03240
327 | * MAINLINE CODE-PROGRAM ENTRY * W1L03250
328 | * * W1L03260
329 | *************************************************** W1L03270
330 | * W1L03280
0C5F 40F1 331 | FC000 BSI RDDSK RD BOTH SCTRS OF SLET 2-8 W1L03290
332 | * W1L03300
333 | * SLET SEARCH FOR SYST DEVC SUBR ENTRIES W1L03310
334 | * W1L03320
0C60 6B12 335 | STX 3 RXR3+1 SAVE REG 3 W1L03330
0C61 6700 0C22R 336 | LDX L3 LOG INITIALIZE REGS FOR W1L03340
0C63 6208 337 | LDX 2 8 *PHASE ID COMPARE LOOP W1L03350
0C64 6100 338 | LDX 1 0 W1L03360
339 | * W1L03370
0C65 C300 340 | FC002 LD 3 0 GET PHASE ID W1L03380
0C66 9500 0332R 341 | S L1 BUF00+2 COMPARE PHASE IDS W1L03390
0C68 4C18 0C6CR 342 | BSC L FC001,+- BR-SLET ENTRY FOUND W1L03400
0C6A 7104 343 | MDX 1 4 INCR PT W1L03410
0C6B 70F9 344 | MDX FC002 CONT PH ID COMPARE LOOP W1L03420
345 | * W1L03430
346 | * FILL PHASE LOG W1L03440
347 | * W1L03450
0C6C CD00 0334R 348 | FC001 LDD L1 BUF00+4 SAVE WORD CNT AND SECTOR W1L03460
0C6E DB02 349 | STD 3 2 *ADDR FROM SLET ENTRY W1L03470
0C6F 7304 350 | MDX 3 4 PT TO NEXT LOG ENTRY W1L03480
0C70 72FF 351 | MDX 2 -1 DECR ENTRY CTR W1L03490
0C71 70F2 352 | MDX FC002-1 CONTINUE TO FILL PHASE LOG W1L03500
0C72 6700 0000 353 | RXR3 LDX L3 *-* RESTORE REG 3 W1L03510
0C74 CC00 0C2CR 354 | LDD L SW001+1 SET WD CNT,SCTR ADDR FOR W1L03520
0C76 DC00 0330R 355 | STD L BUF00 *KB AS INPUT W1L03530
0C78 C400 007C 356 | LD L $KCSW W1L03540
0C7A 4C18 0C86R 357 | BSC L FC919,+- BR-KB NOT INPUT DEVC W1L03550
0C7C 4C10 0C98R 358 | BSC L FC920,- BR-KB IS INPUT DEVC W1L03560
0C7E C400 0C39R 359 | LD L FC921-8 W1L03570
0C80 4C10 0C98R 360 | BSC L FC920,- BR-KB IS INPUT W1L03580
0C82 C400 0C3DR 361 | LD L FC921-4 W1L03590
0C84 4C10 0C98R 362 | BSC L FC920,- BR-KB IS INPUT W1L03600
0C86R 363 | FC919 EQU * W1L03610
364 | * W1L03620
365 | *************************************************** W1L03630
366 | * * W1L03640
367 | * DETERMINE PRINCIPAL INPUT DEVICE * W1L03650
368 | * * W1L03660
369 | *************************************************** W1L03670
0C86 6500 0C25R 370 | LDX L1 LOG+3 SET REGS FOR DEVICE W1L03680
0C88 6203 371 | LDX 2 3 *DETERMINATION TEST W1L03690
0C89 C100 372 | FC004 LD 1 0 GET SCTR ADDR W1L03700
0C8A 4C10 0C92R 373 | BSC L FC003,- BR-PRINCIPAL INPUT FOUND W1L03710
0C8C 72FF 374 | MDX 2 -1 DECR DEVC CTR W1L03720
0C8D 7104 375 | MDX 1 4 PT TO NEXT LOG ENTRY W1L03730
0C8E 70FA 376 | MDX FC004 CONTINUE DEVC LOG SEARCH W1L03740
377 | * W1L03750
378 | *************************************************** W1L03760
379 | * * W1L03770
380 | * CONSTANTS AND SAVE AREAS * W1L03780
381 | * * W1L03790
382 | *************************************************** W1L03800
0C90 383 | BSS E 0 W1L03810
0C90 7002 384 | DC /7002 READ/CONVERT PARAMETER E W1L03820
0C91 0697R 385 | SW004 DC BUF03-1 BUFFER ADDR W1L03830
0008 386 | $LEV0 EQU 8 INTRPT LVL 0 BR ADDR W1L03840
000C 387 | $LEV4 EQU /C INTRPT LVL 4 BR ADDR 212 W1L03845
000F 388 | $CTSW EQU /F CONTROL CD SW ADDR W1L03850
0036 389 | $PBSY EQU /36 PTR BUSY SW ADDR W1L03860
390 | * W1L03870
391 | * READ PRINCIPAL INPUT SUBR INTO CORE W1L03880
392 | * W1L03890
0C92 72FF 393 | FC003 MDX 2 -1 W1L03900
0C93 1000 394 | NOP W1L03910
0C94 6A96 395 | STX 2 SW001 SET PRINCIPAL INPUT DEVC SW W1L03920
396 | * SW001=2 2501-PRINCIPAL INPUT DEVC W1L03930
397 | * SW001=1 1442 W1L03940
398 | * SW001=0 KEYB W1L03950
0C95 C9FF 399 | LDD 1 -1 SET WD CNT AND SCTR W1L03960
0C96 DC00 0330R 400 | STD L BUF00 *ADDR FOR DISK READ W1L03970
0C98R 401 | FC920 EQU * W1L03980
402 | * LOAD SYST DEVC SUBR FOR W1L03990
0C98 40B8 403 | BSI RDDSK *PRINCIPAL INPUT DEVC W1L04000
404 | * W1L04010
405 | * W1L04020
406 | * SET INTERRUPT LINKAGE WDS IN RESIDENT W1L04030
407 | * *MONITOR FOR SYST DEVICE INPUT SUBR W1L04040
408 | * W1L04050
0C99 C0AA 409 | LD FC005 SET BR WDS $LEV0 W1L04060
0C9A D400 0008 410 | STO L $LEV0 W1L04070
0C9C C0B3 411 | LD ILS04 SET INTRPT LVL 4 BR ADDR212 W1L04073
0C9D D400 000C 412 | STO L $LEV4 *TO SYSTEM ILS04 212 W1L04076
0C9F 6500 0C46R 413 | LDX L1 FC006 SET IBT FOR ILS04 W1L04080
0CA1 6D00 00D4 414 | STX L1 $IBT4 W1L04090
415 | * W1L04100
416 | * LOAD SYST CONVERSION SUBR W1L04110
417 | * W1L04120
0CA3 7400 0C2BR 418 | MDX L SW001,0 TEST SW001 FOR 0 W1L04130
0CA5 7002 419 | MDX *+2 W1L04140
0CA6 C88D 420 | LDD SW003+1 GET WD CNT,SCTR ADDR W1L04150
0CA7 7001 421 | MDX *+1 *FOR KBCV W1L04160
0CA8 C887 422 | LDD SW003-3 *FOR CDCV W1L04170
0CA9 DC00 04A6R 423 | STD L BUF01 SET WD CNT,SECTOR ADDR W1L04180
0CAB 6500 04A6R 424 | LDX L1 BUF01 SET BUFFER ADDR W1L04190
0CAD 69A6 425 | STX 1 RDDSK+3 *FOR DISK READ W1L04200
0CAE 69A9 426 | STX 1 SW010 *AND BUSY TEST W1L04210
427 | * LOAD SYST CONVERSION SUBR W1L04220
0CAF 40A1 428 | BSI RDDSK *FOR PRINCIPAL INPUT DEVC W1L04230
429 | * W1L04240
430 | *************************************************** W1L04250
431 | * * W1L04260
432 | * DETERMINE PRINCIPAL PTR * W1L04270
433 | * * W1L04280
434 | *************************************************** W1L04290
0CB0 6500 0C39R 435 | LDX L1 SW002+2 REG 1 POINTS TO LOG ENTRIES W1L04300
0CB2 68D8 436 | STX FC004+2 INITIALIZE DEVICE DETER- W1L04310
0CB3 7403 0C8BR 437 | MDX L FC004+2,3 *MINATION LOOP FOR O/P W1L04320
0CB5 70D2 438 | MDX FC004-1 GO TO DETERMINATION LOOP W1L04330
439 | * W1L04340
440 | * READ PRINCIPAL OUTPUT SUBR INTO CORE W1L04350
441 | * W1L04360
0CB6 72FF 442 | MDX 2 -1 W1L04370
0CB7 1000 443 | NOP W1L04380
0CB8 6E00 0C37R 444 | STX L2 SW002 SET PRINCIPAL PTR SW 212 W1L04390
445 | * SW002=2 1403-PRINCIPAL PTR W1L04400
446 | * SW002=1 1132-PRINCIPAL PTR W1L04410
447 | * SW002=0 CPTR-PRINCIPAL PTR W1L04420
0CBA C9FF 448 | LDD 1 -1 SET WD CNT AND SCTR ADDR W1L04430
0CBB DC00 0564R 449 | STD L BUF02 *FOR DISK READ W1L04440
0CBD 6500 0564R 450 | LDX L1 BUF02 SET BUFFER ADDR W1L04450
0CBF 6994 451 | STX 1 RDDSK+3 *FOR DISK READ W1L04460
0CC0 6997 452 | STX 1 SW010 *AND BUSY TEST W1L04470
453 | * LOAD SYST DEVC SUBR FOR W1L04480
0CC1 408F 454 | BSI RDDSK *PRINCIPAL OUTPUT DEVC W1L04490
455 | * W1L04500
456 | * W1L04510
457 | * SET INTERRUPT LINKAGE WDS IN RESIDENT W1L04520
458 | * MONITOR FOR SYST DEVC OUTPUT SUBR W1L04530
459 | * W1L04540
0CC2 C082 460 | LD FC005+1 SET INTERRUPT BRANCH WD 9 W1L04550
0CC3 D400 0009 461 | STO L $LEV0+1 W1L04560
462 | * W1L04570
463 | *************************************************** W1L04580
464 | * * W1L04590
465 | * READ ONE CARD INTO CORE * W1L04600
466 | * *WHEN I/P DEVC NOT BUSY * W1L04610
467 | * * W1L04620
468 | *************************************************** W1L04630
0CC5R 469 | FC015 EQU * W1L04640
0CC5 C400 0013 470 | FC008 LD L $IBSY TEST I/P DEVC BUSY W1L04650
0CC7 4C20 0CC5R 471 | BSC L FC008,Z BR-I/P DEVC BUSY W1L04660
472 | * W1L04670
473 | * TEST JOB CONTROL AND LAST CARD SWITCHES W1L04680
474 | * W1L04690
0CC9 C400 000F 475 | LD L $CTSW W1L04700
0CCB 4C20 0DF8R 476 | BSC L EXIT,Z BR-CONTROL CARD READ W1L04710
0CCD C400 0033 477 | LD L $LAST W1L04720
0CCF 4C20 0DF8R 478 | BSC L EXIT,Z BR-LAST CD SW ON W1L04730
0CD1 C400 0036 479 | LD L $PBSY TEST FOR PTR BUSY W1L04740
0CD3 4820 480 | BSC Z SKIP-PTR READY W1L04750
0CD4 70FC 481 | MDX *-4 CONT BUSY TEST FOR PTR W1L04760
0CD5 C8BA 482 | LDD SW004-1 LOAD PARAM FOR CD READ W1L04770
483 | * W1L04780
484 | * READ CARD W1L04790
485 | * W1L04800
0CD6 4400 0333R 486 | BSI L RDCD READ CARD INTO CORE W1L04810
0CD8 7400 0013 487 | MDX L $IBSY,0 TEST INPUT SUBR BUSY W1L04820
0CDA 70FD 488 | MDX *-3 CONTINUE TEST-SUBR BUSY W1L04830
489 | * IF SPECIAL SW ON-SPECS ARE W1L04840
0CDB C400 0C33R 490 | LD L SW003 *PRINTED W1L04850
0CDD 4C10 0E20R 491 | BSC L FC070,- BR-SPECIAL SW IS OFF W1L04860
492 | * W1L04870
493 | * W1L04880
494 | * CARD IS PRINTED W1L04890
495 | * W1L04900
0CDF C0B1 496 | LD SW004 LOAD PARAM FOR CD CVRT W1L04910
0CE0 4400 04A9R 497 | BSI L CDCV CONVERT CD JUST READ W1L04920
0CE2 C400 0C2BR 498 | LD L SW001 IF KB IS I/P DEVC W1L04930
0CE4 4C20 0CEAR 499 | BSC L *+4,Z *DO NOT BRANCH W1L04940
0CE6 C400 0C37R 500 | LD L SW002 W1L04950
0CE8 4C18 0CFAR 501 | BSC L FC080,+- BR-O/P DEVC CONSOLE PTR W1L04960
502 | * W1L04970
503 | * PACK CARD CODE FOR PRINT OPERATION W1L04980
504 | * *AND PRINT SPECIFICATIONS W1L04990
505 | * W1L05000
0CEA 6600 0D4BR 506 | LDX L2 BUF04+39 REG 2=ADDR OF OUTPUT BUFFER W1L05010
0CEC 6150 507 | LDX 1 80 REG 1=CHAR CNT W1L05020
0CED C500 0696R 508 | FC050 LD L1 BUF03-2 GET LEFTHAND CHAR W1L05030
0CEF 1008 509 | SLA 8 SHIFT TO LEFT W1L05040
0CF0 D200 510 | STO 2 0 SAVE CHAR IN OUTPUT BUFFER W1L05050
0CF1 C500 0697R 511 | LD L1 BUF03-1 GET RIGHTHAND CHAR W1L05060
0CF3 EA00 512 | OR 2 0 SAVE CHAR IN OUTPUT BUFFER W1L05070
0CF4 D200 513 | STO 2 0 W1L05080
0CF5 72FF 514 | MDX 2 -1 DECR O/P PT W1L05090
0CF6 71FE 515 | MDX 1 -2 DECREMENT CHAR CNT W1L05100
0CF7 70F5 516 | MDX FC050 CONTINUE PACK W1L05110
517 | * W1L05120
0CF8 4400 0FDER 518 | BSI L PRINT PRINT SPECS W1L05130
519 | * W1L05140
520 | *************************************************** W1L05150
521 | * * W1L05160
522 | * CONTROL CARD TYPE DETERMINATION * W1L05170
523 | * * W1L05180
524 | *************************************************** W1L05190
0CFAR 525 | FC080 EQU * W1L05200
0CFA 6600 0048R 526 | LDX L2 MESS6 SET ERROR MESSAGE ADDR W1L05210
0CFC C400 0C33R 527 | LD L SW003 GET 1ST CD SW W1L05220
0CFE 1001 528 | SLA 1 SHIFT OFF SPECIAL SW W1L05230
0CFF 4C20 0D08R 529 | BSC L FC100,Z BR-1ST CD HAS BEEN READ W1L05240
530 | * W1L05250
531 | * TEST FOR D-CARD W1L05260
532 | * W1L05270
0D01 C400 06DFR 533 | LD L BUF03+71 FETCH CD COL 72 W1L05280
0D03 901E 534 | S D SUB EBC D W1L05290
0D04 4C18 0E58R 535 | BSC L FILEC,+- BR-1ST CD IS A D-CARD W1L05300
0D06 4C00 0E54R 536 | BSC L PRIN1+2 1ST CARD NOT D-CARD W1L05310
0D08 C400 06DFR 537 | FC100 LD L BUF03+71 FETCH CD COL 72 W1L05320
0D0A 9017 538 | S D SUB EBC D W1L05330
0D0B 4C20 0D0FR 539 | BSC L FC110,Z SKIP-NO D-CARD DETECTED W1L05340
540 | * MORE THAN ONE D-CARD W1L05350
0D0D 4C00 0E54R 541 | BSC L PRIN1+2 *DETECTED-PRINT DIAGNOSTIC W1L05360
542 | * W1L05370
543 | * TEST FOR A- OR S- CARD W1L05380
544 | * W1L05390
0D0FR 545 | FC110 EQU * W1L05400
0D0F 8400 11C2R 546 | A L D3 SUB EBC A FROM CD COL 72 W1L05410
0D11 4C18 06E8R 547 | BSC L A3FLD,+- BR- A-CARD DETECTED W1L05420
0D13 900D 548 | S S SUB EBC S FROM CD COL 72 W1L05430
0D14 4C18 1045R 549 | BSC L FC016,+- BR- SPEC CARD DETECTED W1L05440
550 | * W1L05450
551 | * TEST FOR /* CARD W1L05460
552 | * W1L05470
0D16 CC00 0698R 553 | LDD L BUF03 FETCH CD COLS 1 AND 2 W1L05480
0D18 9833 554 | SD FC009 SUB EBC /* W1L05490
0D19 4C20 0D1ER 555 | BSC L *+3,Z BR- / NOT IN 1ST COL W1L05500
0D1B 1090 556 | SLT 16 W1L05510
0D1C 4C18 0D5BR 557 | BSC L FC026,+- BR- /* CARD DETECTED W1L05520
0D1E 4400 0FDER 558 | BSI L PRINT PRINT DIAGNOSTIC W1L05530
0D20 70A4 559 | MDX FC015 READ NEXT CARD W1L05540
560 | * W1L05550
561 | *************************************************** W1L05560
562 | * * W1L05570
563 | * CONSTANTS AND SAVE AREAS * W1L05580
564 | * * W1L05590
565 | *************************************************** W1L05600
00D5 566 | $I410 EQU /D5 W1L05610
002C 567 | $IREQ EQU /2C W1L05620
0D21 0021 568 | S DC .S-.A S-A W1L05630
0D22 00C4 569 | D DC .D D W1L05640
0D23 0028 570 | DC 40 PRINT BUFFER W1L05650
0D24 571 | BUF04 BSS 40 W1L05660
0D4C 572 | BSS E 0 W1L05670
0D4C 0061 573 | FC009 DC /61 / E W1L05680
0D4D 005C 574 | DC /5C * W1L05690
0D4E FFFF 575 | HFFF DC /FFFF END OF RCD INDR W1L05700
0D4F 576 | CNT1 BSS 1 NO. I/P RCDS/SCTR W1L05710
0D50 577 | CNT2 BSS 1 NO. O/P RCDS/SCTR W1L05720
0D51 0000 578 | DIAGS DC 0 DIAGNOSTIC SW W1L05730
0D52 0000 579 | CARDS DC 0 CARD FILE SW W1L05740
0D53 0000 580 | FC996 DC *-* START ADDR OF I/P RCD W1L05750
0D54 0000 581 | FC365 DC *-* DUMMY KB REQUEST ENTRY W1L05760
0D55 0802 582 | XIO FC366 RESET KB/CP SWITCH W1L05770
0D56 4C00 00D5 583 | BSC L $I410 RETURN TO ILS04 H W1L05780
0D58 584 | BSS E 0 W1L05790
0D58 0022 585 | FC366 DC 34 E W1L05800
0D59 0F01 586 | DC /0F01 W1L05810
0D5A 0000 587 | FC364 DC *-* W1L05820
588 | * W1L05830
589 | *************************************************** W1L05840
590 | * * W1L05850
591 | * MAINLINE CODE FOR DATA CONVERSION * W1L05860
592 | * * W1L05870
593 | *************************************************** W1L05880
594 | * W1L05890
595 | * TEST FOR ERROR CONDITIONS W1L05900
596 | * W1L05910
0D5BR 597 | FC026 EQU * W1L05920
0D5B 7412 1276R 598 | MDX L T0002,18 SET UP MSG BUILD SUBR W1L05930
0D5D 7412 1279R 599 | MDX L T0002+3,18 *FOR SAVING RCD COL IN W1L05940
0D5F 7412 127AR 600 | MDX L T0002+4,18 *RANGE WARNING MSG W1L05950
0D61 7412 127DR 601 | MDX L T0002+7,18 W1L05960
0D63 7412 1282R 602 | MDX L T0002+12,18 W1L05970
0D65 7400 1021R 603 | MDX L SSW,0 TEST S SW W1L05980
0D67 7002 604 | MDX FC500 BR-S-CARD READ W1L05990
0D68 4C00 0E54R 605 | BSC L PRIN1+2 PRINT DIAGNOSTIC AND EXIT W1L06000
606 | * W1L06010
0D6AR 607 | FC500 EQU * W1L06020
0D6A 6680 1066R 608 | LDX I2 SSXR2+1 RESTORE REG 2 W1L06030
0D6C C0E1 609 | LD HFFF PUT END OF RCD INDR IN W1L06040
0D6D D200 610 | STO 2 0 *COMPRESSION W1L06050
611 | * W1L06060
612 | * TEST TOTAL FIELD LENGTH W1L06070
613 | * W1L06080
0D6E C400 108CR 614 | LD L TOTFL GET TOTAL FLD LNG W1L06090
0D70 9400 116FR 615 | S L RCDSZ+1 SUB O/P RCD SIZE IN CHARS W1L06100
0D72 4C08 0D79R 616 | BSC L FC300,+ BR-TOTAL FLD LNG VALID W1L06110
0D74 6600 0063R 617 | LDX L2 MESS9 PRINT DIAGNOSTIC-TOTAL FLD W1L06120
0D76 4400 0FDER 618 | BSI L PRINT *LNG INVALID W1L06130
0D78 68D8 619 | STX DIAGS SET DIAGNOSTIC SW W1L06140
620 | * W1L06150
621 | * TEST FOR A3 CARD PRESENT IF NECESSARY W1L06160
622 | * W1L06170
0D79R 623 | FC300 EQU * W1L06180
0D79 C400 11B2R 624 | LD L FSW W1L06190
0D7B 4C18 0D86R 625 | BSC L FC310,+- BR- F-SW OFF W1L06200
0D7D C400 06F8R 626 | LD L A3SW W1L06210
0D7F 4C20 0D86R 627 | BSC L FC310,Z BR-A3 TABLE HAS BEEN READ W1L06220
0D81 6600 003AR 628 | LDX L2 MESS5 F-TYPE SPECIFIED BUT NO W1L06230
0D83 4400 0FDER 629 | BSI L PRINT *A3 CARD READ-PRINT DIAGNOS W1L06240
0D85 68CB 630 | STX DIAGS *TIC AND SET DIAGNOSTIC SW W1L06250
631 | * W1L06260
632 | * CHECK DIAGNOSTIC SWITCH W1L06270
633 | * W1L06280
0D86R 634 | FC310 EQU * W1L06290
0D86 C0CA 635 | LD DIAGS TEST DIAGNOSTIC SW W1L06300
0D87 4C20 0DF8R 636 | BSC L EXIT,Z BR-ABNORMAL EXIT W1L06310
0D89 D400 0C33R 637 | STO L SW003 TURN OFF SPECIAL SW W1L06320
0D8B 6500 0140 638 | LDX L1 320 SET LOOP CONTROL W1L06330
0D8D C06F 639 | LD H4040 ACC=DOUBLE BLANKS W1L06340
0D8E D500 0077R 640 | STO L1 BUF05+1 SET O/P AREA TO BLANKS W1L06350
0D90 71FF 641 | MDX 1 -1 DECR LOOP CTR W1L06360
0D91 70FC 642 | MDX *-4 CONT TO FILL O/P AREA W1L06370
643 | * W1L06380
0D92 6500 01B8R 644 | LDX L1 BUF06 SET CONTROL PARAMETERS FOR W1L06390
0D94 6D00 0C54R 645 | STX L1 RDDSK+3 *DISK READ AND TEST W1L06400
0D96 6D00 0C58R 646 | STX L1 SW010 W1L06410
0D98 C400 0077R 647 | LD L BUF05+1 FETCH DRIVE CODE W1L06420
0D9A 180C 648 | SRA 12 W1L06430
0D9B 805D 649 | A FC311 ADD COMMA ADDR OF FILE PRO- W1L06440
0D9C D05D 650 | STO FC311+1 *TECT TABLE AND SAVE W1L06450
0D9D C480 0DFAR 651 | LD I FC311+1 FETCH AND SAVE OLD FILE W1L06460
0D9F D05B 652 | STO FC311+2 *PROTECT ADDR W1L06470
0DA0 C400 0077R 653 | LD L BUF05+1 SET FILE PROTECT ADDR TO W1L06480
0DA2 D480 0DFAR 654 | STO I FC311+1 *DATA FILE ADDR W1L06490
0DA4 C400 002C 655 | LD L $IREQ SAVE INTERRUPT REQUEST ADDR W1L06500
0DA6 D0B3 656 | STO FC364 W1L06510
0DA7 6500 0D54R 657 | LDX L1 FC365 SET ENTRY PT FOR KB W1L06520
0DA9 6D00 002C 658 | STX L1 $IREQ *REQUEST TO DUMMY W1L06530
0DAB 1010 659 | SLA 16 W1L06540
0DAC D0A7 660 | STO FC365 ZREO ENTRY PT AND SWITCH W1L06550
661 | * W1L06560
662 | * TEST INPUT TYPE AND INPUT DATA W1L06570
663 | * W1L06580
0DADR 664 | FC360 EQU * W1L06590
0DAD C0A4 665 | LD CARDS W1L06600
0DAE 4C20 0E12R 666 | BSC L CDDSK,Z BR-CARD INPUT SPECIFIED W1L06610
0DB0 4400 0C51R 667 | BSI L RDDSK READ SCTR OF I/P DATA W1L06620
0DB2 7401 01B9R 668 | MDX L BUF06+1,1 INCREMENT SCTR ADDR BY 1 W1L06630
669 | * W1L06640
670 | * INITIALIZE INDEX REGS AND COUNTERS W1L06650
671 | * W1L06660
0DB4R 672 | FC363 EQU * W1L06670
0DB4 C400 0F68R 673 | LD L RCSZS SET I/P RCDS/SCTR CNT W1L06680
0DB6 D098 674 | STO CNT1 W1L06690
0DB7 6700 0078R 675 | FC361 LDX L3 BUF05+2 REG 3= O/P AREA ADDR W1L06700
0DB9 6500 02FAR 676 | LDX L1 BUF06+322 REG 1= I/P AREA ADDR W1L06710
0DBB 6997 677 | STX 1 FC996 SAVE I/P RCD START ADDR W1L06720
0DBC 6600 0721R 678 | LDX L2 COMPR REG 2=COMPRESSION ADDR W1L06730
679 | * W1L06740
680 | * BRANCH TO CONVERSION W1L06750
681 | * W1L06760
0DBER 682 | FC320 EQU * W1L06770
0DBE 4680 0000 683 | BSI I2 0 BR TO CONVERSION SUBR W1L06780
0DC0 C200 684 | LD 2 0 GET COMPRESSION WD W1L06790
0DC1 908C 685 | S HFFF SUB END OF RCD MARK W1L06800
0DC2 4C20 0DBER 686 | BSC L FC320,Z BR-COMPLETE RCD CONVERSION W1L06810
687 | * W1L06820
0DC4 C400 0003 688 | LD L XR3 ADD OUTPUT RCD LNG TO REG 3 W1L06830
0DC6 8400 0F71R 689 | A L WDRCD+1 ADD RCD LNG IN WDS W1L06840
0DC8 D400 0003 690 | STO L XR3 W1L06850
691 | * W1L06860
692 | * WRITE 1 SECTOR OF OUTPUT ON DISK W1L06870
693 | * *AND FILL OUTPUT BUFFER WITH BLANKS W1L06880
694 | * W1L06890
0DCA 74FF 0D50R 695 | MDX L CNT2,-1 DECR O/P RCDS/SCTR CNT W1L06900
0DCC 7010 696 | MDX FC330 BR-O/P SCTR NOT YET FILLED W1L06910
0DCD 4037 697 | BSI WRITE WRITE O/P DATA TO DISK W1L06920
698 | * W1L06930
0DCE 6700 0140 699 | LDX L3 320 SET LOOP CONTROL W1L06940
0DD0 C02C 700 | LD H4040 ACC=DOUBLE BLANKS W1L06950
0DD1 D700 0077R 701 | STO L3 BUF05+1 SET O/P AREA TO BLANKS W1L06960
0DD3 73FF 702 | MDX 3 -1 DECR LOOP CTR W1L06970
0DD4 70FC 703 | MDX *-4 CONT TO FILL O/P AREA W1L06980
704 | * W1L06990
0DD5R 705 | FC362 EQU * W1L07000
0DD5 C400 0F69R 706 | LD L RCSZS+1 W1L07010
0DD7 D400 0D50R 707 | STO L CNT2 SET O/P RCD CNT W1L07020
0DD9 6700 0078R 708 | LDX L3 BUF05+2 REG 3= O/P AREA ADDR W1L07030
0DDB 7401 0077R 709 | MDX L BUF05+1,1 INCREMENT O/P ADDR W1L07040
710 | * W1L07050
711 | * TEST FOR COMPLETE CONVERSION W1L07060
712 | * W1L07070
0DDDR 713 | FC330 EQU * W1L07080
0DDD C400 0D53R 714 | LD L FC996 SUB I/P RCD LNG TO START W1L07090
0DDF 9400 116ER 715 | S L RCDSZ *ADDR OF LAST RCD TO GET W1L07100
0DE1 D400 0001 716 | STO L XR1 *START ADDR OF NEW RCD W1L07110
0DE3 74FF 108DR 717 | MDX L RCDCT,-1 DECR RCD CNT W1L07120
718 | * BR-FILE CONVERSION NOT W1L07130
0DE5 7018 719 | MDX FC350 *COMPLETE W1L07140
720 | * W1L07150
0DE6 C015 721 | LD H615C SET /* RCD INTO FILE W1L07160
0DE7 D300 722 | STO 3 0 W1L07170
723 | * W1L07180
0DE8 401C 724 | BSI WRITE WRITE O/P DATA TO DISK W1L07190
725 | * W1L07200
0DE9 6600 0000R 726 | LDX L2 MESS0 PRINT END OF JOB MESSAGE W1L07210
0DEB 4400 0FDER 727 | BSI L PRINT W1L07220
0DED C00D 728 | LD FC311+2 RESTORE FILE PROTECT ADDR W1L07230
0DEE D480 0DFAR 729 | STO I FC311+1 *IN COMMA W1L07240
0DF0 C400 0D5AR 730 | LD L FC364 RESTORE KB REQUEST ENTRY PT W1L07250
0DF2 D400 002C 731 | STO L $IREQ W1L07260
0DF4 C400 0D54R 732 | LD L FC365 TEST KB REQUEST SWITCH W1L07270
0DF6 44A0 002C 733 | BSI I $IREQ,Z BR-KB REQUEST OCCURRED W1L07280
0DF8 6038 734 | EXIT EXIT END OF JOB W1L07290
735 | * W1L07300
736 | * W1L07310
737 | * CONSTANTS W1L07320
738 | * W1L07330
0095 739 | $FPAD EQU /95 W1L07340
0DF9 0095 740 | FC311 DC $FPAD W1L07350
0DFA 741 | BSS 2 W1L07360
0DFC 615C 742 | H615C DC /615C /* RCD W1L07370
0DFD 4040 743 | H4040 DC /4040 DOUBLE BLANKS W1L07380
744 | * W1L07390
745 | * W1L07400
0DFER 746 | FC350 EQU * W1L07410
0DFE 74FF 0D4FR 747 | MDX L CNT1,-1 DECR I/P RCDS/SCTR CNT W1L07420
0E00 70BA 748 | MDX FC320-3 BR-I/P SCTR NOT COMPLETED W1L07430
0E01 6BB6 749 | STX 3 FC361+1 SAVE REG 3 W1L07440
0E02 6780 0C73R 750 | LDX I3 RXR3+1 RESTORE REG 3 TO TV W1L07450
0E04 70A8 751 | MDX FC360 GO READ MORE I/P DATA W1L07460
752 | * W1L07470
753 | *************************************************** W1L07480
754 | * * W1L07490
755 | * WRITE PORTION OF OUTPUT ON DISK * W1L07500
756 | * * W1L07510
757 | *************************************************** W1L07520
0E05 0000 758 | WRITE DC *-* ENTRY PT W1L07530
0E06 6780 0C73R 759 | LDX I3 RXR3+1 RESTORE REG 3 TO TV W1L07540
0E08 0426*24B1 760 | LIBF DISK1 WRITE SCTR TO DISK W1L07550
0E09 3000 761 | DC /3000 W1L07560
0E0A 0076R 762 | DC BUF05 W1L07570
0E0B 0C5CR 763 | DC ERR01 W1L07580
0E0C 0426*24B1 764 | LIBF DISK1 TEST FOR WRITE W1L07590
0E0D 0000 765 | DC 0 *COMPLETE W1L07600
0E0E 0076R 766 | DC BUF05 W1L07610
0E0F 70FC 767 | MDX *-4 BR-OPERATION NOT COMPLETE W1L07620
0E10 4C80 0E05R 768 | BSC I WRITE RETURN TO CALLER W1L07630
769 | * W1L07640
770 | *************************************************** W1L07650
771 | * * W1L07660
772 | * READ DATA FROM CARD * W1L07670
773 | * *AND CONVERT TO DISK DATA FORMAT, * W1L07680
774 | * *ADJUSTING FOR EXTRA DATA WORDS * W1L07690
775 | * * W1L07700
776 | *************************************************** W1L07710
777 | * W1L07720
0E12R 778 | CDDSK EQU * W1L07730
0E12 6580 0E4DR 779 | LDX I1 EXTRA REG 1=EXTRA PT W1L07740
780 | * W1L07750
781 | * ADJUST BUFFER FOR EXTRA DATA WORDS W1L07760
782 | * W1L07770
0E14 7100 783 | FC370 MDX 1 0 W1L07780
0E15 7001 784 | MDX *+1 SKIP-EXTRA PT NONZERO W1L07790
0E16 7006 785 | MDX FC340 BR-EXTRA PT ZERO W1L07800
786 | * W1L07810
0E17 C500 02F9R 787 | LD L1 BUF06+321 MOVE DATA WORD TO W1L07820
0E19 D500 01B9R 788 | STO L1 BUF06+1 *FRONT OF I/P BUFFER W1L07830
0E1B 71FF 789 | MDX 1 -1 DECR EXTRA PT W1L07840
0E1C 70F7 790 | MDX FC370 CONT TO MOVE EXTRA WDS W1L07850
791 | * W1L07860
0E1D 6930 792 | FC340 STX 1 CDCOL SET CD COL CNT TO ZERO W1L07870
0E1E 4C00 0CC5R 793 | BSC L FC015 READ DATA CARD W1L07880
794 | * W1L07890
795 | * CONVERT DATA TO DISK DATA FORMAT W1L07900
796 | * W1L07910
0E20R 797 | FC070 EQU * W1L07920
0E20 C02B 798 | LD D54 INITIALIZE NO. WDS TO W1L07930
0E21 D02E 799 | STO CNT3 *PACK W1L07940
800 | * W1L07950
0E22 C02C 801 | LD ADDR2 W1L07960
0E23 802A 802 | A CDCOL W1L07970
0E24 8028 803 | A EXTRA REG 2 POINTS TO AREA WHERE W1L07980
0E25 D400 0002 804 | STO L XR2 *54 DATA WDS ARE TO BE PUT W1L07990
0E27 6500 0697R 805 | LDX L1 BUF03-1 REG 1 PTS TO CARD I/P AREA W1L08000
806 | * W1L08010
807 | * CONVERT 4 CD COLUMNS TO 3 DATA WDS AND STORE W1L08020
808 | * W1L08030
0E29 C101 809 | FC380 LD 1 1 01 02 03 XX XX XX XX XX W1L08040
0E2A 1894 810 | SRT 20 XX XX XX XX XX 01 02 03 W1L08050
0E2B C102 811 | LD 1 2 04 05 06 XX XX 01 02 03 W1L08060
0E2C 18CC 812 | RTE 12 01 02 03 04 05 06 XX XX W1L08070
0E2D D200 813 | STO 2 0 W1L08080
0E2E 1888 814 | SRT 8 XX XX 01 02 03 04 05 06 W1L08090
0E2F C103 815 | LD 1 3 07 08 09 XX 03 04 05 06 W1L08100
0E30 18C8 816 | RTE 8 05 06 07 08 09 XX 03 04 W1L08110
0E31 D201 817 | STO 2 1 W1L08120
0E32 188C 818 | SRT 12 XX XX XX 05 06 07 08 09 W1L08130
0E33 C104 819 | LD 1 4 10 11 12 XX 06 07 08 09 W1L08140
0E34 18C4 820 | RTE 4 09 10 11 12 XX 06 07 08 W1L08150
0E35 D202 821 | STO 2 2 W1L08160
0E36 7104 822 | MDX 1 4 SKIP 4 CD COLUMNS W1L08170
0E37 7203 823 | MDX 2 3 SKIP 3 DATA WORDS W1L08180
0E38 74FD 0E50R 824 | MDX L CNT3,-3 DECREMENT WD CNT W1L08190
0E3A 70EE 825 | MDX FC380 BR-COMPLETE CONVERSION W1L08200
826 | * W1L08210
0E3B 7436 0E4ER 827 | MDX L CDCOL,54 INCREMENT COL CNT W1L08220
0E3D C010 828 | LD CDCOL TEST FOR I/P AREA FILLED W1L08230
0E3E 800E 829 | A EXTRA W1L08240
0E3F 9400 0F6FR 830 | S L D320+1 W1L08250
0E41 4C28 0CC5R 831 | BSC L FC015,+Z BR-CONT TO COLLECT I/P DATA W1L08260
832 | * W1L08270
0E43 7404 0E4DR 833 | MDX L EXTRA,4 INCREMENT EXTRA PT W1L08280
0E45 C007 834 | LD EXTRA W1L08290
0E46 9005 835 | S D54 W1L08300
0E47 4C28 0DB4R 836 | BSC L FC363,Z+ BR-EXTRA PT NOT 54 W1L08310
0E49 D003 837 | STO EXTRA REINITIALIZE EXTRA PT W1L08320
0E4A 4C00 0DB4R 838 | BSC L FC363 CONT CONVERSION W1L08330
839 | * W1L08340
840 | * CONSTANTS W1L08350
841 | * W1L08360
0E4C 0036 842 | D54 DC 54 54 W1L08370
0E4D 0000 843 | EXTRA DC *-* EXTRA POINTER W1L08380
0E4E 0000 844 | CDCOL DC *-* CARD COL CNT W1L08390
0E4F 01BAR 845 | ADDR2 DC BUF06+2 I/P BUFFER ADDR W1L08400
0E50 0000 846 | CNT3 DC *-* CD COL CNT FOR PACK W1L08410
0E51 0280 847 | D640 DC 640 640 W1L08420
848 | *************************************************** W1L08430
849 | * * W1L08440
850 | * PRINT DIAGNOSTIC MSG AND EXIT * W1L08450
851 | * * W1L08460
852 | *************************************************** W1L08470
853 | * W1L08480
0E52R 854 | PRIN1 EQU * W1L08490
0E52 6600 0EB5R 855 | LDX L2 MESS1 REG 2 PTS TO ERROR MESSAGE W1L08500
0E54 4400 0FDER 856 | BSI L PRINT PRINT DIAGNOSTIC W1L08510
0E56 4C00 0DF8R 857 | BSC L EXIT ABNORMAL EXIT W1L08520
858 | * W1L08530
859 | *************************************************** W1L08540
860 | * * W1L08550
861 | * CONVERT FILE DESCRIPTION CARD * W1L08560
862 | * * W1L08570
863 | *************************************************** W1L08580
0E58 7401 0C33R 864 | FILEC MDX L SW003,1 TURN 1ST CD SW ON W1L08590
0E5A 7401 0FE5R 865 | MDX L SW00C,1 SET D-CARD SWITCH W1L08600
0E5C 6500 06A3R 866 | LDX L1 BUF03+11 XR=I/O AREA ADDR+11 W1L08610
867 | * W1L08620
868 | * CONVERT RECORD COUNT AND CHECK IT W1L08630
869 | * W1L08640
0E5E 6205 870 | LDX 2 5 SET FLD LNG INDR W1L08650
0E5F 4400 0FE7R 871 | BSI L CONVT CONVERT RECORD CNT FLD W1L08660
0E61 4C08 0E52R 872 | BSC L PRIN1,+ BR-RCD CNT INVALID W1L08670
0E63 D400 108DR 873 | STO L RCDCT SAVE RECORD CNT W1L08680
0E65 D400 164AR 874 | STO L WORK3-1 W1L08690
0E67 D400 0F6AR 875 | STO L SW00E W1L08700
0E69 C400 101FR 876 | LD L CV000 TEST FOR OVERFLOW W1L08710
0E6B 4C20 0E52R 877 | BSC L PRIN1,Z BR-OVERFLOW OCCURS W1L08720
878 | * W1L08730
879 | * CONVERT INPUT RECORD SIZE AND CHECK IT W1L08740
880 | * W1L08750
0E6D 6203 881 | LDX 2 3 SET FLD LNG INDR W1L08760
0E6E 7406 0ECBR 882 | MDX L MESS1+22,6 ADJUST ERROR MSG W1L08770
0E70 4400 0FE7R 883 | BSI L CONVT CONVERT I/P FILE RCD SIZE W1L08780
0E72 4C08 0E52R 884 | BSC L PRIN1,+ BR-I/P RCD SIZE INVALID W1L08790
0E74 D400 116ER 885 | STO L RCDSZ SAVE INPUT FILE RCD SIZE W1L08800
0E76 9400 0F6FR 886 | S L D320+1 W1L08810
0E78 4830 887 | BSC -Z SKIP-INPUT RCD SIZE VALID W1L08820
888 | * BR- I/P RCD SIZE INVALID- W1L08830
0E79 70D8 889 | MDX PRIN1 *PRINT DIAGNOSTIC W1L08840
890 | * W1L08850
891 | * CONVERT OUTPUT RECORD SIZE AND CHECK IT W1L08860
892 | * W1L08870
0E7A 6203 893 | LDX 2 3 SET FLD LNG INDR W1L08880
0E7B C051 894 | LD HF2F3 SET COL INDR IN ERROR W1L08890
0E7C D04E 895 | STO MESS1+22 *MESSAGE W1L08900
0E7D 4400 0FE7R 896 | BSI L CONVT CONVERT RPG FILE RCD SIZE W1L08910
0E7F 4C08 0E52R 897 | BSC L PRIN1,+ BR-O/P RCD SIZE INVALID W1L08920
0E81 D400 116FR 898 | STO L RCDSZ+1 SAVE RPG FILE RCD SIZE W1L08930
0E83 90CD 899 | S D640 W1L08940
0E84 4C30 0E52R 900 | BSC L PRIN1,-Z BR-RPG RCD SIZE INVALID W1L08950
901 | * W1L08960
902 | * TEST CARD COL 27 FOR E OR S W1L08970
903 | * W1L08980
0E86 C101 904 | LD 1 1 TEST REAL NUM FMT FLD W1L08990
0E87 9044 905 | S E W1L09000
0E88 7404 0ECBR 906 | MDX L MESS1+22,4 ADJUST ERROR MSG W1L09010
0E8A 4C20 0E8FR 907 | BSC L *+3,Z SKIP-EXTENDED PREC NOT SPEC W1L09020
0E8C 6C00 1260R 908 | STX L EPREC SET EXTENDED PREC SW W1L09030
0E8E 7003 909 | MDX *+3 W1L09040
0E8F 903B 910 | S H1D W1L09050
0E90 4C20 0E52R 911 | BSC L PRIN1,Z BR-COL 27 INVALID W1L09060
912 | * W1L09070
913 | * TEST CARD COL 29 FOR 1 OR BLANK W1L09080
914 | * W1L09090
0E92 C103 915 | LD 1 3 TEST INTEGER FMT FLD W1L09100
0E93 9036 916 | S HF1 W1L09110
0E94 7402 0ECBR 917 | MDX L MESS1+22,2 ADJUST ERROR MSG W1L09120
0E96 4C20 0E9BR 918 | BSC L *+3,Z SKIP-ONE WD ITG NOT SPEC W1L09130
0E98 6C00 125FR 919 | STX L INTSW SET ONE WD ITG SW W1L09140
0E9A 7005 920 | MDX FC140 W1L09150
0E9B C103 921 | LD 1 3 W1L09160
0E9C 9400 108BR 922 | S L H0040 TEST COL FOR BLANK W1L09170
0E9E 4C20 0E52R 923 | BSC L PRIN1,Z BR- COL 29 INVALID W1L09180
924 | * W1L09190
925 | * TEST CARD COL 31 FOR C OR BLANK W1L09200
926 | * W1L09210
0EA0R 927 | FC140 EQU * W1L09220
0EA0 C027 928 | LD HF3F1 SET COL INDR IN ERROR W1L09230
0EA1 D029 929 | STO MESS1+22 *MESSAGE W1L09240
0EA2 C105 930 | LD 1 5 TEST CARD FILE FLD W1L09250
0EA3 9025 931 | S HC3 W1L09260
0EA4 4C20 0EAFR 932 | BSC L FC160,Z SKIP-CD I/P NOT SPECIFIED W1L09270
0EA6 6C00 0D52R 933 | STX L CARDS SET CARD INPUT SW W1L09280
0EA8 7400 0C2BR 934 | MDX L SW001,0 SKIP-KEYBOARD INPUT W1L09290
0EAA 4C00 0F74R 935 | BSC L FC150 W1L09300
936 | * W1L09310
0EAC 6600 0056R 937 | LDX L2 MESS8 SET ERROR MSG ADDR W1L09320
0EAE 70A5 938 | MDX PRIN1+2 PRINT DIAGNOSTIC W1L09330
939 | * W1L09340
0EAFR 940 | FC160 EQU * W1L09350
0EAF C105 941 | LD 1 5 W1L09360
0EB0 9400 108BR 942 | S L H0040 TEST COL FOR BLANK W1L09370
0EB2 4C18 0F74R 943 | BSC L FC150,+- BR-COL 31 VALID W1L09380
0EB4 709D 944 | MDX PRIN1 PRINT DIAGNOSTIC W1L09390
945 | * W1L09400
946 | *************************************************** W1L09410
947 | * * W1L09420
948 | * CONSTANTS AND SAVE AREAS * W1L09430
949 | * * W1L09440
950 | *************************************************** W1L09450
0EB5 0016 951 | MESS1 DC 22 W1L09460
0EB6 C6F0 F140 C9D5 E5C1 952 | DMES 2 F01 INVALID DESCRIPTION CARD FIELD -' W1L09470
D3C9 C440 C4C5 E2C3 |
D9C9 D7E3 C9D6 D540 |
C3C1 D9C4 40C6 C9C5 |
D3C4 4060 |
0EC8 953 | DMES 2 COL 13'E W1L09480
0EC8 F3F1 954 | HF3F1 DC /F3F1 EBC 31 W1L09490
0EC9 00C3 955 | HC3 DC /C3 EBC C W1L09500
0ECA 00F1 956 | HF1 DC /F1 EBC 1 W1L09510
0ECB 001D 957 | H1D DC /1D S-E W1L09520
0ECC 00C5 958 | E DC /C5 EBC E W1L09530
0ECD F2F3 959 | HF2F3 DC /F2F3 EBC 23 W1L09540
0ECE 0F68R 960 | SW00D DC RCSZS PT TO RCD SIZE W1L09550
961 | * W1L09560
0002 962 | @BLCT EQU 2 DISP TO BLK CNT W1L09570
0000 963 | @LFNM EQU 0 DISP TO NAME W1L09580
0003 964 | @LFEN EQU 3 LNG OF LET/FLET ENT W1L09590
0004 965 | @NEXT EQU 4 DISP TO NEXT SCTR ADDR W1L09600
0ECF 001B 966 | SR901 DC .$-. $ W1L09610
0ED0 0000 967 | DC .$-.$ W1L09620
0ED1 0066 968 | DC .A-.$ A-I W1L09630
0ED2 0008 969 | DC .I-.A W1L09640
0ED3 0008 970 | DC .J-.I J-R W1L09650
0ED4 0008 971 | DC .R-.J W1L09660
0ED5 0009 972 | DC .S-.R S-Z W1L09670
0ED6 0007 973 | DC .Z-.S W1L09680
0ED7 0007 974 | DC .0-.Z 0-9 W1L09690
0ED8 0009 975 | DC .9-.0 W1L09700
0ED9 3F06 976 | DC /3FFF-.9 (FORCE END CHECK LOOP) W1L09710
0EDA 0000 977 | SR910 DC *-* BLK CNT OF CURR LET ENT W1L09720
0EDB 00F0 978 | SR900 DC .0 EBC 0 W1L09730
0EDC 0040 979 | SR902 DC . EBC BLANK W1L09740
0EDD 003F 980 | SR903 DC /3F USED TO SAVE BITS 10-15 W1L09750
0EDE C000 981 | SR904 DC /C000 DISK DATA FMT INDR W1L09760
0EE0 982 | SR908 BSS E 2 SAVE ADDR FOR PACKED NAME E W1L09770
002D 983 | $ULET EQU /2D ADDR OF LET SCTR ADDR TABLE W1L09780
0005 984 | @MXDR EQU 5 MAX NO. OF DISK DRIVES W1L09790
0EE2 0000 985 | SR905 DC *-* CURRENT BLOCK ADDR W1L09800
0000 986 | @SCTN EQU 0 DISP TO SCTR NO. W1L09810
0EE3 0000 987 | SR909 DC *-* NO. WDS LEFT FOR COMPARISON W1L09820
0003 988 | @WDSA EQU 3 DISP TO NO. WDS OF SCTR W1L09830
0005 989 | @LFHD EQU 5 LNG OF SCTR HEADER W1L09840
0EE4 013B 990 | SR907 DC 320-@LFHD NO. WDS PER LET/FLET SCTR W1L09850
0001 991 | @UAFX EQU 1 DISP TO SCTR ADDR,USER AREA W1L09860
0EE5 0010 992 | SR906 DC 16 NO. OF 1ST SCTR IN FLET W1L09870
993 | * W1L09880
994 | *************************************************** W1L09890
995 | * * W1L09900
996 | * LET/FLET SEARCHES FOR FILES * W1L09910
997 | * * W1L09920
998 | *************************************************** W1L09930
999 | * W1L09940
1000 | * W1L09950
1001 | * CHECK FILE NAME FOR VALIDITY W1L09960
1002 | * W1L09970
0EE6 0000 1003 | SEARC DC *-* ENTRY PT W1L09980
1004 | * W1L09990
0EE7 C100 1005 | LD 1 0 FIRST CHAR MUST BE W1L10000
0EE8 90F2 1006 | S SR900 *NONNUMERIC W1L10010
0EE9 4C10 0EFER 1007 | BSC L SR010,- BR-FIRST CHAR IS NUMERIC W1L10020
1008 | * W1L10030
0EEB 63FB 1009 | LDX 3 -5 SET CHAR CNT W1L10040
0EEC 6600 0ECFR 1010 | SR050 LDX L2 SR901 SET TABLE ADDR W1L10050
1011 | * W1L10060
0EEE C100 1012 | LD 1 0 CHECK FOR BLANK COL W1L10070
0EEF 90EC 1013 | S SR902 W1L10080
0EF0 4C18 0F04R 1014 | BSC L SR020,+- BR-COL IS BLANK W1L10090
1015 | * W1L10100
0EF2 9200 1016 | SR040 S 2 0 CHECK FOR VALID 8-BIT CHAR W1L10110
0EF3 4C28 0EFER 1017 | BSC L SR010,+Z BR-NOT IN CHAR RANGE W1L10120
0EF5 9201 1018 | S 2 1 W1L10130
0EF6 4C08 0EFAR 1019 | BSC L SR030,+ BR-CHAR IS VALID W1L10140
0EF8 7202 1020 | MDX 2 2 W1L10150
0EF9 70F8 1021 | MDX SR040 CONT CHAR CHECK W1L10160
1022 | * W1L10170
0EFA 7101 1023 | SR030 MDX 1 1 INCR I/P PT W1L10180
0EFB 7301 1024 | MDX 3 1 INCR CHAR CNT W1L10190
0EFC 70EF 1025 | MDX SR050 CONT NAME CHECK-NEXT CHAR W1L10200
0EFD 7011 1026 | MDX SR060 LABEL VALID-GO PACK,SEARCH W1L10210
1027 | * W1L10220
0EFE 6600 0003R 1028 | SR010 LDX L2 MESS2 SET ERROR MSG ADDR W1L10230
0F00 6780 0C73R 1029 | LDX I3 RXR3+1 RESTORE TV TO REG 3 W1L10240
0F02 4C00 0E54R 1030 | BSC L PRIN1+2 PRINT MSG AND EXIT W1L10250
1031 | * W1L10260
0F04 C100 1032 | SR020 LD 1 0 CHECK FOR EMBEDDED BLANKS W1L10270
0F05 90D6 1033 | S SR902 W1L10280
0F06 4C20 0EFER 1034 | BSC L SR010,Z BR-EMBEDDED BLANK ERROR W1L10290
0F08 7101 1035 | MDX 1 1 W1L10300
0F09 7301 1036 | MDX 3 1 INCR CHAR CNT W1L10310
0F0A 70F9 1037 | MDX SR020 CONT BLANK CHECK W1L10320
1038 | * W1L10330
0F0B C1FB 1039 | LD 1 -5 CHECK FOR BLANK NAME FIELD W1L10340
0F0C 90CF 1040 | S SR902 W1L10350
0F0D 4C18 0EFER 1041 | BSC L SR010,+- BR-FILE NAME BLANK W1L10360
1042 | * W1L10370
1043 | *************************************************** W1L10380
1044 | * * W1L10390
1045 | * PACK FILE NAME * W1L10400
1046 | * * W1L10410
1047 | *************************************************** W1L10420
0F0F 71FB 1048 | SR060 MDX 1 -5 NAME IS VALID W1L10430
0F10 63FB 1049 | LDX 3 -5 PACK NAME W1L10440
0F11 10A0 1050 | SLT 32 CLEAR REGISTERS W1L10450
1051 | * W1L10460
0F12 D8CD 1052 | SR070 STD SR908 CLEAR NAME SAVE AREA W1L10470
0F13 C100 1053 | LD 1 0 RETRIEVE CHAR W1L10480
0F14 E0C8 1054 | AND SR903 PREPARE 6 BITS FOR PACK W1L10490
0F15 100A 1055 | SLA 10 W1L10500
0F16 E8C9 1056 | OR SR908 ADD 6 BIT CHAR TO PACK NAME W1L10510
0F17 18DA 1057 | RTE 32-6 W1L10520
0F18 7101 1058 | MDX 1 1 INCR I/O PT W1L10530
0F19 7301 1059 | MDX 3 1 INCR CHAR CNT W1L10540
0F1A 70F7 1060 | MDX SR070 CONT NAME PACK W1L10550
1061 | * W1L10560
0F1B E8C2 1062 | OR SR904 OR ON DDF INDR TO NAME W1L10570
0F1C D8C3 1063 | STD SR908 SAVE FILE NAME W1L10580
1064 | * W1L10590
1065 | *************************************************** W1L10600
1066 | * * W1L10610
1067 | * PERFORM LET/FLET SEARCH * W1L10620
1068 | * * W1L10630
1069 | *************************************************** W1L10640
0F1D 6780 0C73R 1070 | LDX I3 RXR3+1 RESTORE REG 3 TO TV W1L10650
0F1F 6600 0076R 1071 | LDX L2 BUF05 SET PT TO DISK BUFFER W1L10660
0F21 6E00 0C54R 1072 | STX L2 RDDSK+3 SET UP DISK READ W1L10670
0F23 6E00 0C58R 1073 | STX L2 SW010 *CALLING SEQUENCE W1L10680
0F25 7202 1074 | MDX 2 2 REG 2 PT TO I/O AREA W1L10690
1075 | * W1L10700
0F26 61FA 1076 | SR090 LDX 1 -@MXDR-1 SET REG 1 TO MAX DR CNT W1L10710
0F27 C500 0033 1077 | LD L1 $ULET+@MXDR+1 FETCH ADDR OF LET W1L10720
0F29 7101 1078 | MDX 1 1 SKIP IF ALL DRIVES SEARCHED W1L10730
0F2A 7001 1079 | MDX *+1 *BRANCH OTHERWISE W1L10740
1080 | * W1L10750
1081 | * PRINT ERROR MSG AND EXIT W1L10760
1082 | * W1L10770
0F2B 70D2 1083 | SR080 MDX SR010 W1L10780
1084 | * W1L10790
0F2C 4818 1085 | BSC +- SKIP IF DR BEING USED, W1L10800
0F2D 70D0 1086 | MDX SR010 *BRANCH OTHERWISE W1L10810
0F2E D2FF 1087 | SR140 STO 2 -1 SAVE SCTR ADDR FOR READ W1L10820
1088 | * W1L10830
0F2F 4400 0C51R 1089 | BSI L RDDSK FETCH 1 SCTR LET/FLET W1L10840
1090 | * W1L10850
0F31 C200 1091 | LD 2 @SCTN FETCH LET/FLET SCTR NO. W1L10860
0F32 4818 1092 | BSC +- SKIP,NOT FIRST LET SCTR W1L10870
0F33 7003 1093 | MDX SR100 *BRANCH OTHERWISE W1L10880
1094 | * W1L10890
0F34 90B0 1095 | S SR906 W1L10900
0F35 4820 1096 | BSC Z SKIP IF 1ST SCTR FLET W1L10910
0F36 7003 1097 | MDX SR110 BR,NOT 1ST SCTR LET FLET W1L10920
1098 | * W1L10930
0F37 C201 1099 | SR100 LD 2 @UAFX INITIALIZE BLK ADDR ACC W1L10940
0F38 1004 1100 | SLA 4 *TO ADDR 1ST PROGRAM W1L10950
0F39 D0A8 1101 | STO SR905 *STORED IN LET/FLET W1L10960
1102 | * W1L10970
0F3A C0A9 1103 | SR110 LD SR907 COMPUTE NO. WDS IN CURRENT W1L10980
0F3B 9203 1104 | S 2 @WDSA *LET/FLET SECTOR W1L10990
0F3C D0A6 1105 | STO SR909 W1L11000
1106 | * W1L11010
0F3D C207 1107 | SR130 LD 2 @BLCT+@LFHD SAVE BLK CNT OF CURRENT W1L11020
0F3E D09B 1108 | STO SR910 *LET/FLET ENTRY W1L11030
1109 | * W1L11040
1110 | * COMPARE FILE NAME TO ENTRY NAME W1L11050
1111 | * W1L11060
1112 | * FETCH NAME OF CURRENT W1L11070
0F3F C205 1113 | LD 2 @LFNM+@LFHD *LET/FLET ENTRY W1L11080
0F40 909F 1114 | S SR908 COMPARE WITH NAME SOUGHT W1L11090
0F41 4820 1115 | BSC Z SKIP IF 1ST WDS MATCH, W1L11100
0F42 7010 1116 | MDX SR120 *BRANCH OTHERWISE W1L11110
1117 | * W1L11120
0F43 C206 1118 | LD 2 @LFNM+1+@LFHD FETCH 2ND WD-ENT NAME W1L11130
0F44 909C 1119 | S SR908+1 W1L11140
0F45 4820 1120 | BSC Z SKIP IF NAMES MATCH, W1L11150
0F46 700C 1121 | MDX SR120 *BRANCH OTHERWISE W1L11160
1122 | * W1L11170
1123 | * RETURN SCTR ADDR AND BLK CNT FOR FILE W1L11180
1124 | * W1L11190
0F47 C207 1125 | LD 2 @LFNM+2+@LFHD FETCH BLK CNT OF FILE W1L11200
0F48 1890 1126 | SRT 16 *AND PUT IN EXTENSION REG W1L11210
1127 | * W1L11220
0F49 C098 1128 | LD SR905 FETCH BLK ADDR OF FILE W1L11230
0F4A 1804 1129 | SRA 4 CONVERT TO SCTR ADDR W1L11240
0F4B D096 1130 | STO SR905 SAVE SCTR ADDR W1L11250
0F4C C400 0077R 1131 | LD L BUF05+1 FETCH CURR DR CODE W1L11260
0F4E E003 1132 | AND SR912 W1L11270
0F4F E892 1133 | OR SR905 ADD SECTOR ADDR W1L11280
0F50 4C80 0EE6R 1134 | BSC I SEARC RETURN TO CALLER W1L11290
1135 | * W1L11300
1136 | * CONTINUE SEARCH,NO MATCH FOUND W1L11310
1137 | * W1L11320
0F52 F000 1138 | SR912 DC /F000 W1L11330
0F53 C08E 1139 | SR120 LD SR905 COMPUTE ACCUMULATED BLK W1L11340
0F54 8085 1140 | A SR910 *ADDR AND W1L11350
0F55 D08C 1141 | STO SR905 *SAVE W1L11360
1142 | * W1L11370
0F56 7203 1143 | MDX 2 @LFEN PT TO NEXT LET/FLET ENTRY W1L11380
0F57 C08B 1144 | LD SR909 W1L11390
0F58 9400 11C2R 1145 | S L D3 DECREMENT LET/FLET COUNT W1L11400
0F5A D088 1146 | STO SR909 W1L11410
0F5B 4820 1147 | BSC Z SKIP WHEN SCTR SEARCHED, W1L11420
0F5C 70E0 1148 | MDX SR130 *BRANCH OTHERWISE W1L11430
1149 | * W1L11440
1150 | * PREPARE TO READ DOWN A NEW LET/FLET SCTR W1L11450
1151 | * W1L11460
0F5D 6600 0078R 1152 | LDX L2 BUF05+2 ADDR OF BUFFER TO REG 1 W1L11470
0F5F C204 1153 | LD 2 @NEXT W1L11480
0F60 4818 1154 | BSC +- SKIP UNLESS LAST LET/FLET W1L11490
0F61 70C5 1155 | MDX SR090+1 BR TO INITIALIZE NEW DR W1L11500
1156 | * W1L11510
0F62 C2FF 1157 | LD 2 -1 FETCH CURR SCTR ADDR W1L11520
0F63 E0EE 1158 | AND SR912 AND OUT SCTR ADDR W1L11530
0F64 EA04 1159 | OR 2 @NEXT OR IN NEW SCTR ADDR W1L11540
0F65 70C8 1160 | MDX SR140 BRANCH TO CONTINUE W1L11550
1161 | * W1L11560
1162 | * CONSTANTS W1L11570
1163 | * W1L11580
0F66 1164 | IFILE BSS 2 SCTR ADDRS OF FILES W1L11590
0F68 1165 | RCSZS BSS 2 RCD CNT/SCTR W1L11600
0F6A 0000 1166 | SW00E DC *-* RCD CNT W1L11610
0F6B 1167 | TEMP BSS 1 TEMP SAVE AREA W1L11620
0F6C 1168 | RWD BSS 1 WD CNT OF LAST O/P SCTR W1L11630
0F6E 0000 0140 1169 | D320 DEC 320 320 W1L11640
0F70 1170 | WDRCD BSS E 0 W1L11650
0F70 0000 1171 | DC *-* NO. WDS/RCD-O/P E W1L11660
0F71 0000 1172 | DC *-* W1L11670
0F72 00A6 1173 | FC997 DC .W-. EBC W-BLANK W1L11680
0F73 00E6 1174 | FC999 DC .W EBC W W1L11690
1175 | * W1L11700
0F74R 1176 | FC150 EQU * W1L11710
1177 | * W1L11720
1178 | * TEST COL 33 FOR W OR BLANK W1L11730
1179 | * W1L11740
0F74 7402 0ECBR 1180 | MDX L MESS1+22,2 ADJUST ERROR MSG W1L11750
0F76 C107 1181 | LD 1 7 FETCH CD COL W1L11760
0F77 90FB 1182 | S FC999 SUB EBC W W1L11770
0F78 4C20 0F7DR 1183 | BSC L *+3,Z BR-COL 33 NOT W W1L11780
0F7A 6C00 16AAR 1184 | STX L FC998 TURN ON WARNING SW W1L11790
0F7C 7003 1185 | MDX *+3 CONT PROCESS D-CARD W1L11800
0F7D 80F4 1186 | A FC997 TEST FOR BLANK W1L11810
0F7E 4C20 0E52R 1187 | BSC L PRIN1,Z BR-COL 33 INVALID W1L11820
0F80 6500 0698R 1188 | LDX L1 BUF03 REG 1=I/O AREA ADDR W1L11830
0F82 7400 0D52R 1189 | MDX L CARDS,0 W1L11840
0F84 7006 1190 | MDX FC014 BR-CARD INPUT SPECIFIED W1L11850
1191 | * W1L11860
1192 | * DO LET/FLET SEARCH FOR INPUT FILE NAME W1L11870
1193 | * W1L11880
0F85 4400 0EE6R 1194 | BSI L SEARC SEARCH LET/FLET W1L11890
0F87 D400 01B9R 1195 | STO L BUF06+1 SET SCTR ADDR OF INPUT FILE W1L11900
0F89 1090 1196 | SLT 16 W1L11910
0F8A D0DB 1197 | STO IFILE SET DISK BLOCK COUNT W1L11920
1198 | * W1L11930
1199 | * COMPUTE INPUT RCD CNT/SCTR W1L11940
1200 | * W1L11950
0F8B C8E2 1201 | FC014 LDD D320 LOAD 320 W1L11960
0F8C AC00 116ER 1202 | D L RCDSZ DIVIDE BY I/P RCD SIZE W1L11970
0F8E D0D9 1203 | STO RCSZS SAVE RCD CNT/SCTR,INPUT W1L11980
1204 | * W1L11990
1205 | * DO LET/FLET SEARCH FOR OUTPUT FILE NAME W1L12000
1206 | * W1L12010
0F8F 6500 069ER 1207 | LDX L1 BUF03+6 REG 1 PT TO RPG FILE NAME W1L12020
0F91 740D 0013R 1208 | MDX L MESS2+16,13 ADJUST ERROR MSG W1L12030
0F93 4400 0EE6R 1209 | BSI L SEARC SEARCH LET/FLET W1L12040
0F95 D400 0077R 1210 | STO L BUF05+1 SAVE SCTR ADDR OF RPG FILE W1L12050
0F97 1090 1211 | SLT 16 W1L12060
0F98 D0CE 1212 | STO IFILE+1 SET DISK BLOCK CNT W1L12070
1213 | * W1L12080
0F99 C400 116FR 1214 | LD L RCDSZ+1 COMPUTE NO. OF WDS PER W1L12090
0F9B 1881 1215 | SRT 1 *RPG RCD W1L12100
0F9C D400 1020R 1216 | STO L TOTAL SAVE (RPG RCD SIZE)/2 W1L12110
0F9E 1090 1217 | SLT 16 W1L12120
0F9F 4C10 0FA3R 1218 | BSC L *+2,- BR-RPG RCD SIZE IS EVEN W1L12130
0FA1 7401 1020R 1219 | MDX L TOTAL,1 INCR NO. WDS/RCD BY 1 W1L12140
0FA3 C400 1020R 1220 | LD L TOTAL W1L12150
0FA5 D0CB 1221 | STO WDRCD+1 SAVE WD/RCD-OUTPUT W1L12160
1222 | * W1L12170
1223 | * COMPUTE OUTPUT RCD CNT/SCTR W1L12180
1224 | * W1L12190
0FA6 C8C7 1225 | LDD D320 W1L12200
0FA7 A878 1226 | D TOTAL W1L12210
0FA8 D0C0 1227 | STO RCSZS+1 SAVE RCD CNT/SCTR,OUTPUT W1L12220
0FA9 D400 0D50R 1228 | STO L CNT2 SET O/P RCD CNT W1L12230
1229 | *************************************************** W1L12240
1230 | * * W1L12250
1231 | * DETERMINE WHETHER OR NOT FILE SIZES * W1L12260
1232 | * *ARE ADEQUATE FOR CONVERSION * W1L12270
1233 | * * W1L12280
1234 | *************************************************** W1L12290
0FAB 7400 0D52R 1235 | MDX L CARDS,0 W1L12300
0FAD 7003 1236 | MDX *+3 BR-CARD INPUT SPECIFIED W1L12310
0FAE C0B7 1237 | LD IFILE ACC=DISK BLK CNT W1L12320
0FAF 4021 1238 | BSI SCTRA COMPUTE SCTRS AVAILABLE W1L12330
0FB0 400D 1239 | BSI CHECK CHECK FILE SIZE-I/P W1L12340
1240 | * W1L12350
0FB1 740D 0020R 1241 | MDX L MESS3+12,13 ADJUST ERROR MSG W1L12360
0FB3 C0B3 1242 | LD IFILE+1 ACC=DISK BLOCK CNT W1L12370
0FB4 401C 1243 | BSI SCTRA COMPUTE SCTRS AVAILABLE W1L12380
0FB5 7401 0ECER 1244 | MDX L SW00D,1 INCR RCD SIZE PT W1L12390
0FB7 7401 0F6AR 1245 | MDX L SW00E,1 ACCT FOR EOF RCD IN RCD CNT W1L12400
0FB9 4004 1246 | BSI CHECK CHECK FILE SIZE-O/P W1L12410
1247 | * W1L12420
0FBA 1010 1248 | SLA 16 W1L12430
0FBB D029 1249 | STO SW00C TURN OFF D-CARD SW W1L12440
0FBC 4C00 0CC5R 1250 | BSC L FC015 READ THE NEXT CARD W1L12450
1251 | * W1L12460
1252 | * CHECK FILE SIZE W1L12470
1253 | * W1L12480
0FBE 0000 1254 | CHECK DC *-* ENTRY POINT W1L12490
0FBF C0AA 1255 | LD SW00E GET RCD CNT W1L12500
0FC0 1890 1256 | SRT 16 SHIFT FOR DIVIDE W1L12510
0FC1 AC80 0ECER 1257 | D I SW00D DIVIDE BY NO. RCDS/SCTR W1L12520
0FC3 D0A7 1258 | STO TEMP W1L12530
0FC4 1090 1259 | SLT 16 CHECK FOR REMAINDER W1L12540
0FC5 4C18 0FC9R 1260 | BSC L *+2,+- BR-NO REMAINDER W1L12550
0FC7 7401 0F6BR 1261 | MDX L TEMP,1 TEMP=SCTRS NEEDED W1L12560
0FC9 C0A1 1262 | LD TEMP ACC=NO. SCTRS NEEDED W1L12570
0FCA 9055 1263 | S TOTAL SUB NO. SCTRS AVAILABLE W1L12580
0FCB 4C88 0FBER 1264 | BSC I CHECK,+ BR-FILE SIZE ADEQUATE W1L12590
1265 | * W1L12600
0FCD 6600 0014R 1266 | LDX L2 MESS3 SET ERROR MSG ADDR W1L12610
0FCF 4C00 0E54R 1267 | BSC L PRIN1+2 PRINT DIAGNOSTIC AND EXIT W1L12620
1268 | * W1L12630
1269 | * COMPUTE SCTR CNT FROM DISK BLK CNT W1L12640
1270 | * W1L12650
0FD1 0000 1271 | SCTRA DC *-* ENTRY POINT W1L12660
0FD2 1884 1272 | SRT 4 DIVIDE BY 16 W1L12670
0FD3 D04C 1273 | STO TOTAL SAVE NO. SCTRS W1L12680
0FD4 1010 1274 | SLA 16 CLEAR ACC W1L12690
0FD5 1084 1275 | SLT 4 ACC=REMAINDER FROM DIVIDE W1L12700
0FD6 4C98 0FD1R 1276 | BSC I SCTRA,+- BR-REMAINDER ZERO W1L12710
0FD8 7401 1020R 1277 | MDX L TOTAL,1 ACCT FOR REMAINDER W1L12720
0FDA 4C80 0FD1R 1278 | BSC I SCTRA RETURN W1L12730
1279 | * W1L12740
1280 | * W1L12750
1281 | * DIAGNOSTIC MESSAGE PRINT W1L12760
1282 | * W1L12770
0FDC 1283 | BSS E 0 W1L12780
0FDC 7001 1284 | SW000 DC /7001 PRINT PARAM E W1L12790
0FDD 0D23R 1285 | DC BUF04-1 W1L12800
0FDE 0000 1286 | PRINT DC *-* ENTRY-SAVED RETURN ADDR W1L12810
0FDF 6AFD 1287 | STX 2 SW000+1 SET OUTPUT BUFFER ADDR W1L12820
0FE0 C8FB 1288 | LDD SW000 LOAD OUTPUT AREA ADDR W1L12830
0FE1 4400 0567R 1289 | BSI L BUF02+3 PRINT DIAGNOSTIC MESSAGE W1L12840
0FE3 4C80 0FDER 1290 | BSC I PRINT RETURN W1L12850
1291 | * W1L12860
1292 | *************************************************** W1L12870
1293 | * * W1L12880
1294 | * CONVT-SUBR WHICH CONVERTS ITG FLD OF* W1L12890
1295 | * *UNPACKED(1 CHAR PER WD) RIGHT- * W1L12900
1296 | * *JUSTIFIED EBCDIC CHAR TO BINARY NO.* W1L12910
1297 | * * W1L12920
1298 | * XR1= FIELD-1 ON ENTRY * W1L12930
1299 | * TOTAL=RESULTANT FIELD * W1L12940
1300 | * * W1L12950
1301 | *************************************************** W1L12960
1302 | * W1L12970
0FE5 0000 1303 | SW00C DC 0 D-CARD SW W1L12980
0FE6 1015R 1304 | DC CV005 RESTORE WD W1L12990
1305 | * W1L13000
0FE7 0000 1306 | CONVT DC *-* ENTRY PT W1L13010
0FE8 1010 1307 | SLA 16 ZERO RESULTANT FLD W1L13020
0FE9 D036 1308 | STO TOTAL W1L13030
1309 | * W1L13040
0FEA C0FA 1310 | LD SW00C LOAD D-CARD SW W1L13050
0FEB 4C18 0FF9R 1311 | BSC L CV002,+- BR- S-CARD CALCULATION W1L13060
0FED C02A 1312 | LD CV006 SET SWITCHES FOR ABNORMAL W1L13070
0FEE D00E 1313 | STO SW00A *EXIT ON ALPHABETIC CHAR W1L13080
0FEF D010 1314 | STO SW00B *DETECTION W1L13090
0FF0 C02A 1315 | LD CV008 SET SW FOR SUBR RESTORE W1L13100
0FF1 D01A 1316 | STO CV007 *ON EXIT W1L13110
1317 | * W1L13120
0FF2 7101 1318 | CV004 MDX 1 1 INCR CD COL PT W1L13130
0FF3 C100 1319 | LD 1 0 TEST FOR LEADING BLANK W1L13140
0FF4 9400 108BR 1320 | S L H0040 W1L13150
0FF6 4C18 100DR 1321 | BSC L CV003,+- BR-LEADING BLANK FOUND W1L13160
0FF8 7001 1322 | MDX *+1 SKIP OTHERWISE W1L13170
1323 | * W1L13180
0FF9 7101 1324 | CV002 MDX 1 1 INCR CD COL PT W1L13190
0FFA C100 1325 | LD 1 0 FETCH CD COL W1L13200
0FFB 9079 1326 | S H00F0 TEST FOR NUMERIC DIGIT W1L13210
0FFC 4C28 1015R 1327 | BSC L CV005,+Z BR-DGT BELOW NUM RANGE W1L13220
0FFDR 1328 | SW00A EQU *-1 W1L13230
0FFE 9077 1329 | S H9 CONT TEST W1L13240
0FFF 4C30 1015R 1330 | BSC L CV005,Z- BR- DGT ABOVE NUM RANGE W1L13250
1000R 1331 | SW00B EQU *-1 W1L13260
1332 | * W1L13270
1001 8074 1333 | A H9 NUM DGT-GET VALUE W1L13280
1002 D01B 1334 | STO CV001 SAVE NEW DIGIT VALUE W1L13290
1335 | * W1L13300
1003 C01C 1336 | LD TOTAL GET PARTIAL SUM W1L13310
1004 A018 1337 | M C10 MPY TOTAL FLD BY 10 W1L13320
1005 D019 1338 | STO CV000 SAVE OVERFLOW W1L13330
1006 1090 1339 | SLT 16 SHIFT RSLT TO ACC W1L13340
1007 8016 1340 | A CV001 ADD NEW RIGHTHAND DIGIT W1L13350
1008 D017 1341 | STO TOTAL SAVE RESULT W1L13360
1342 | * W1L13370
1009 72FF 1343 | MDX 2 -1 SKIP-COMPLETE FIELD TESTED W1L13380
100A 70EE 1344 | MDX CV002 CONT FLD TEST W1L13390
100B 4C00 1014R 1345 | BSC L CV005-1 FETCH RESULT W1L13400
100CR 1346 | CV007 EQU *-1 W1L13410
1347 | * W1L13420
100D 72FF 1348 | CV003 MDX 2 -1 SKIP-COMPLETE FLD TESTS W1L13430
100E 70E3 1349 | MDX CV004 CONTINUE TESTING FLD W1L13440
1350 | * W1L13450
100F C0D6 1351 | LD CONVT-1 RESET SWITCHES W1L13460
1010 D0EC 1352 | STO SW00A W1L13470
1011 D0EE 1353 | STO SW00B W1L13480
1012 C009 1354 | LD CV009 W1L13490
1013 D0F8 1355 | STO CV007 W1L13500
1356 | * W1L13510
1014 7101 1357 | MDX 1 1 INCR CD COL PT W1L13520
1015 C00A 1358 | CV005 LD TOTAL FETCH RESULT W1L13530
1016 4C80 0FE7R 1359 | BSC I CONVT RETURN W1L13540
1360 | * W1L13550
1018 1019R 1361 | CV006 DC * W1L13560
1019 4C00 0E52R 1362 | BSC L PRIN1 PRINT DIAGNOSTIC AND EXIT W1L13570
1363 | * W1L13580
1364 | * W1L13590
1365 | * CONSTANTS W1L13600
1366 | * W1L13610
101B 100FR 1367 | CV008 DC CV003+2 W1L13620
101C 1014R 1368 | CV009 DC CV005-1 W1L13630
101D 000A 1369 | C10 DC 10 10 W1L13640
101E 1370 | CV001 BSS 1 DGT SAVE AREA W1L13650
101F 0000 1371 | CV000 DC *-* W1L13660
1020 1372 | TOTAL BSS 1 RESULTANT SAVE AREA W1L13670
1021 0000 1373 | SSW DC *-* S-CARD SW W1L13680
1374 | * W1L13690
1375 | *************************************************** W1L13700
1376 | * * W1L13710
1377 | * PRINT SYNTAX DIAGNOSTIC IF NECESSARY* W1L13720
1378 | * * W1L13730
1379 | *************************************************** W1L13740
1380 | * W1L13750
1022 0698R 1381 | ADDR5 DC BUF03 CD BUFFER ADDR W1L13760
1023 0000 1382 | PRIN2 DC *-* ENTRY PT W1L13770
1024 7400 1089R 1383 | MDX L SESW,0 W1L13780
1026 701B 1384 | MDX SXR2+2 SKIP-MSG ALREADY PRINTED W1L13790
1027 6861 1385 | STX SESW SET SYNTAX ERROR SW W1L13800
1386 | * W1L13810
1028 7401 108AR 1387 | MDX L COLMN,1 COMPUTE COL NO. W1L13820
102A C05F 1388 | LD COLMN AND CONVERT TO EBCDIC W1L13830
102B 90F6 1389 | S ADDR5 W1L13840
102C 807E 1390 | A ONE ADD 1 TO COL NO. W1L13850
1391 | * W1L13860
102D 1890 1392 | SRT 16 W1L13870
102E AC00 1331R 1393 | D L D10 W1L13880
1030 E844 1394 | OR H00F0 RETRIEVE LEFTHAND DGT W1L13890
1031 1008 1395 | SLA 8 W1L13900
1032 D400 0039R 1396 | STO L MESS4+24 SAVE LEFTHAND DGT W1L13910
1397 | * W1L13920
1034 1090 1398 | SLT 16 W1L13930
1035 E83F 1399 | OR H00F0 RETRIEVE RIGHTHAND DGT W1L13940
1036 EC00 0039R 1400 | OR L MESS4+24 W1L13950
1038 D400 0039R 1401 | STO L MESS4+24 SAVE RIGHTHAND DGT W1L13960
1402 | * W1L13970
103A 6A06 1403 | STX 2 SXR2+1 SAVE REG 2 W1L13980
103B 6600 0021R 1404 | LDX L2 MESS4 SET MESSAGE PT W1L13990
103D 40A0 1405 | BSI PRINT PRINT DIAGNOSTIC W1L14000
103E 6C00 0D51R 1406 | STX L DIAGS SET DIAGNOSTIC SW W1L14010
1407 | * W1L14020
1040 6600 0000 1408 | SXR2 LDX L2 *-* RESTORE REG 2 W1L14030
1042 4C80 1023R 1409 | BSC I PRIN2 RETURN W1L14040
1410 | * W1L14050
1411 | *************************************************** W1L14060
1412 | * * W1L14070
1413 | * CONVERT FIELD SPECIFICATIONS RECORDS* W1L14080
1414 | * * W1L14090
1415 | *************************************************** W1L14100
1416 | * W1L14110
1044 0000 1417 | DC 0 FIELD SPECIFICATION SW W1L14120
1418 | * W1L14130
1045R 1419 | FC016 EQU * W1L14140
1045 74FC 0021R 1420 | MDX L MESS4,-4 ADJUST ERROR MSG W1L14150
1047 68D9 1421 | STX SSW TURN ON S-CARD SW W1L14160
1422 | * W1L14170
1423 | * TEST CARD FOR EMBEDDED BLANKS W1L14180
1424 | * W1L14190
1048 6147 1425 | LDX 1 71 SET LOOP CONTROL CNT W1L14200
1049R 1426 | FC600 EQU * W1L14210
1049 C500 0697R 1427 | LD L1 BUF03-1 FETCH CD COL W1L14220
104B 903F 1428 | S H0040 SUB EBC BLANK W1L14230
104C 4C20 1057R 1429 | BSC L FC130+5,Z BR-1ST NONBLANK COL DETECTEDW1L14240
104E 71FF 1430 | MDX 1 -1 CONTINUE SEARCH FOR 1ST W1L14250
104F 70F9 1431 | MDX FC600 *NONBLANK COL W1L14260
1050 4C00 0CC5R 1432 | BSC L FC015 READ NEXT CARD W1L14270
1433 | * W1L14280
1052 C500 0697R 1434 | FC130 LD L1 BUF03-1 TEST FOR EMBEDDED BLANKS W1L14290
1054 9036 1435 | S H0040 W1L14300
1055 4418 1023R 1436 | BSI L PRIN2,+- BR- BLANK COL FOUND W1L14310
1057 71FF 1437 | MDX 1 -1 CONTINUE TESTING FOR EM- W1L14320
1058 70F9 1438 | MDX FC130 *EMBEDDED BLANKS W1L14330
1439 | * W1L14340
1440 | * INITIALIZE REGISTERS AND COUNTERS W1L14350
1441 | * W1L14360
1059R 1442 | FC120 EQU * W1L14370
1059 7404 0021R 1443 | MDX L MESS4,4 ADJUST ERROR MSG W1L14380
105B 6500 0697R 1444 | LDX L1 BUF03-1 REG 1=I/O AREA ADDR-1 W1L14390
105D 7400 1044R 1445 | MDX L FC016-1,0 TEST FLD SPEC SW W1L14400
105F 7005 1446 | MDX FC610 SKIP-ONE FLD SPEC CD READ W1L14410
1060 68E3 1447 | STX FC016-1 SET FLD SPEC SW ON W1L14420
1061 6600 0721R 1448 | LDX L2 COMPR REG 2=COMPRESSION ADDR W1L14430
1063 4C00 113CR 1449 | BSC L FC200 TEST FOR FLD TYPE W1L14440
1450 | * W1L14450
1065R 1451 | FC610 EQU * W1L14460
1065 6600 0000 1452 | SSXR2 LDX L2 *-* RESTORE REG 2 W1L14470
1067 4C00 113CR 1453 | BSC L FC200 SKIP-ONE FLD SPEC CD READ W1L14480
1454 | * W1L14490
1455 | * W1L14500
1456 | * CONVERT 3 CD COL FLD TO BINARY NO. W1L14510
1457 | * *PRINT DIAGNOSTIC IF NO. ZERO W1L14520
1458 | * W1L14530
1069 0000 1459 | CONV1 DC *-* ENTRY PT W1L14540
106A 6A07 1460 | STX 2 C1XR2+1 SAVE REG 2 W1L14550
106B 6203 1461 | LDX 2 3 SET FIELD LNG PT W1L14560
106C 4400 0FE7R 1462 | BSI L CONVT CONVERT FIELD TO BINARY W1L14570
106E 4408 1023R 1463 | BSI L PRIN2,+ BR-SYNTAX INVALID W1L14580
1070 C0AF 1464 | LD TOTAL RESTORE ACC TO COLUMN W1L14590
1071 6600 0000 1465 | C1XR2 LDX L2 *-* RESTORE REG 2 W1L14600
1073 4C80 1069R 1466 | BSC I CONV1 RETURN W1L14610
1467 | * W1L14620
1468 | * CONVERT 2 CD COL FLD TO BINARY NO. W1L14630
1469 | * *PRINT DIAGNOSTIC IF NO. ZERO OR W1L14640
1470 | * *IF NO. EXCEEDS 14 W1L14650
1471 | * W1L14660
1472 | * W1L14670
1075 00F0 1473 | H00F0 DC /00F0 CONSTANT /00F0 W1L14680
1076 0009 1474 | H9 DC 9 9 W1L14690
1475 | * W1L14700
1077 0000 1476 | CONV2 DC *-* ENTRY PT W1L14710
1078 6A0B 1477 | STX 2 C2XR2+1 SAVE REG 2 W1L14720
1079 6202 1478 | LDX 2 2 SET FIELD LNG PT W1L14730
107A 4400 0FE7R 1479 | BSI L CONVT CONVERT FIELD TO BINARY W1L14740
107C 4408 1023R 1480 | BSI L PRIN2,+ BR-SYNTAX INVALID W1L14750
107E 9400 1158R 1481 | S L D14 TEST FOR VALIDITY W1L14760
1080 4430 1023R 1482 | BSI L PRIN2,-Z BR-INVALID FLD LNG W1L14770
1483 | * W1L14780
1484 | * W1L14790
1082 C09D 1485 | LD TOTAL W1L14800
1083 6600 0000 1486 | C2XR2 LDX L2 *-* RESTORE REG 2 W1L14810
1085 1008 1487 | SLA 8 SAVE FLD LNG IN BITS 0-7 OF W1L14820
1086 D202 1488 | STO 2 2 *3RD WD OF COMPRESSION W1L14830
1087 4C80 1077R 1489 | BSC I CONV2 RETURN W1L14840
1490 | * W1L14850
1491 | * W1L14860
1492 | * CONSTANTS W1L14870
1493 | * W1L14880
1089 0000 1494 | SESW DC *-* SYNTAX ERROR SW W1L14890
108A 1495 | COLMN BSS 1 COL ADDR SAVE AREA W1L14900
108B 0040 1496 | H0040 DC /0040 EBCDIC BLANK W1L14910
108C 0000 1497 | TOTFL DC 0 TOTAL FLD LENGTH W1L14920
108D 1498 | RCDCT BSS 1 RECORD CNT W1L14930
108E 06DER 1499 | ADDR1 DC BUF03+70 MAX CD COL ADDR W1L14940
108F 0000 1500 | RSW DC *-* R-TYPE INDR W1L14950
1501 | * W1L14960
1502 | * W1L14970
1503 | * TEST FOR R- OR J-FLD W1L14980
1504 | * W1L14990
1090 0008 1505 | DC 8 R-J W1L15000
1091 0010 1506 | DC /10 R-I W1L15010
1092 90FE 1507 | FC022 S *-2 W1L15020
1093 4820 1508 | BSC Z BR- R-FLD DETECTED W1L15030
1094 7007 1509 | MDX FC570 BR OTHERWISE W1L15040
1510 | *************************************************** W1L15050
1511 | * * W1L15060
1512 | * COMPRESSION FOR R-FLD * W1L15070
1513 | * * W1L15080
1514 | *************************************************** W1L15090
1095 C400 11B5R 1515 | LD L TABL1+2 SET ADDR OF RCNVT IN W1L15100
1097 D200 1516 | STO 2 0 *COMPRESSION W1L15110
1098 68F6 1517 | STX RSW SET R-TYPE INDR W1L15120
1099 C400 11C1R 1518 | LD L D2 ACC= FLD LNG IN WDS W1L15130
109B 7018 1519 | MDX FC560 GO BUILD COMPRESSION W1L15140
1520 | * W1L15150
1521 | * TEST FOR J-FLD W1L15160
1522 | * W1L15170
109CR 1523 | FC570 EQU * W1L15180
109C 80F3 1524 | A FC022-2 W1L15190
109D 4C18 10D7R 1525 | BSC L JFLD,+- BR- J-FLD W1L15200
109FR 1526 | FC220 EQU * W1L15210
109F 4083 1527 | BSI PRIN2 PRINT DIAGNOSTIC W1L15220
10A0 706C 1528 | MDX FC210 CONT TO CONVERT CARD W1L15230
1529 | * W1L15240
1530 | * W1L15250
1531 | * TEST FOR I/P FLD POSITION VALIDITY W1L15260
1532 | * W1L15270
10A1 0000 1533 | IPPOS DC *-* W1L15280
10A2 0000 1534 | IPPVL DC *-* ENTRY PT W1L15290
10A3 80FD 1535 | A IPPOS ADD FLD LNG TO POS CNT W1L15300
10A4 D0FC 1536 | STO IPPOS W1L15310
10A5 9400 116ER 1537 | S L RCDSZ W1L15320
1538 | * BR- ADDITION OF FLD LNG W1L15330
10A7 4430 1023R 1539 | BSI L PRIN2,-Z *EXCEEDS RCD LNG W1L15340
10A9 4C80 10A2R 1540 | BSC I IPPVL RETURN TO CALLER W1L15350
1541 | * W1L15360
1542 | *************************************************** W1L15370
1543 | * * W1L15380
1544 | * COMPRESSION FOR I-FLD * W1L15390
1545 | * * W1L15400
1546 | *************************************************** W1L15410
10AB 0001 1547 | ONE DC 1 1 W1L15420
1548 | * W1L15430
10AC C400 11B4R 1549 | IFLD LD L TABL1+1 SET ADDR OF ICNVT IN W1L15440
10AE D200 1550 | STO 2 0 *COMPRESSION W1L15450
1551 | * W1L15460
1552 | * ACC= FLD LNG IN WORDS W1L15470
1553 | * W1L15480
10AF C0FB 1554 | LD ONE W1L15490
10B0 7400 125FR 1555 | MDX L INTSW,0 SKIP-NO 1 WD ITGS W1L15500
10B2 7004 1556 | MDX FC550 W1L15510
10B3 80F7 1557 | A ONE W1L15520
10B4 7400 1260R 1558 | FC560 MDX L EPREC,0 SKIP-STD PREC SPECIFIED W1L15530
10B6 80F4 1559 | A ONE W1L15540
1560 | * W1L15550
10B7 40EA 1561 | FC550 BSI IPPVL TEST FLD LNG FOR VALIDITY W1L15560
1562 | * W1L15570
10B8 40BE 1563 | BSI CONV2 CONVERT FLD LNG W1L15580
1564 | * W1L15590
10B9 403C 1565 | BSI OPPVL CHECK O/P FLD LNG W1L15600
1566 | * W1L15610
10BA 4400 1159R 1567 | BSI L SCALE COMPUTE SCALE W1L15620
1568 | * W1L15630
10BC C400 1020R 1569 | LD L TOTAL CALCULATE NO. NON-DECML POS W1L15640
10BE 9101 1570 | S 1 1 W1L15650
10BF 80B5 1571 | A H00F0 W1L15660
10C0 4428 1023R 1572 | BSI L PRIN2,+Z BR-FLD LNG LT SCALE,INVALID W1L15670
10C2 7400 108FR 1573 | MDX L RSW,0 SKIP TRUNCATION CHECK IF W1L15680
10C4 7004 1574 | MDX FC030 *R-TYPE INDR SET W1L15690
10C5 9400 116BR 1575 | S L D5 TEST FOR TRUNCATION W1L15700
10C7 4428 1262R 1576 | BSI L TRUNK,+Z BR-TRUNCATION OCCURS W1L15710
1577 | * W1L15720
10C9R 1578 | FC030 EQU * W1L15730
10C9 1010 1579 | SLA 16 RESET R-TYPE INDR W1L15740
10CA D0C4 1580 | STO RSW W1L15750
10CB 7102 1581 | MDX 1 2 INCR CD COL PT W1L15760
10CC C101 1582 | LD 1 1 TEST FOR PACK OPTION W1L15770
10CD 9400 116CR 1583 | S L P W1L15780
10CF 4C20 110CR 1584 | BSC L FC018,Z BR-PACK OPTION OFF W1L15790
1585 | * W1L15800
10D1 C400 116DR 1586 | LD L PO OR PACK OPTION INTO W1L15810
10D3 EA02 1587 | OR 2 2 *COMPRESSION W1L15820
10D4 D202 1588 | STO 2 2 W1L15830
10D5 7103 1589 | MDX 1 3 ADJUST I/O AREA PT W1L15840
10D6 7035 1590 | MDX FC018 TEST NEXT FLD W1L15850
1591 | * W1L15860
1592 | *************************************************** W1L15870
1593 | * * W1L15880
1594 | * COMPRESSION FOR J-FLD * W1L15890
1595 | * * W1L15900
1596 | *************************************************** W1L15910
1597 | * W1L15920
10D7 C400 11BAR 1598 | JFLD LD L TABL1+7 SAVE ADDR OF JCNVT IN W1L15930
10D9 D200 1599 | STO 2 0 *COMPRESSION W1L15940
10DA C400 1260R 1600 | LD L EPREC W1L15950
1601 | * BR-EXTENDED PREC SPECIFIED W1L15960
10DC 4420 1023R 1602 | BSI L PRIN2,Z *WITH J-FLD TYPE--INVALID W1L15970
1603 | * W1L15980
10DE C400 11C1R 1604 | LD L D2 W1L15990
10E0 40C1 1605 | BSI IPPVL TEST FLD LNG FPR VALIDITY W1L16000
1606 | * W1L16010
10E1 4095 1607 | BSI CONV2 CONVERT FLD LNG W1L16020
1608 | * W1L16030
10E2 4013 1609 | BSI OPPVL CHECK O/P FLD LNG W1L16040
1610 | * W1L16050
10E3 4075 1611 | BSI SCALE COMPUTE SCALE W1L16060
10E4 C400 1020R 1612 | LD L TOTAL W1L16070
10E6 9101 1613 | S 1 1 TEST FOR TRUNCATION W1L16080
10E7 808D 1614 | A H00F0 W1L16090
10E8 4428 1023R 1615 | BSI L PRIN2,+Z BR-FLD LNG LT SCALE,INVALID W1L16100
10EA 9400 1331R 1616 | S L D10 W1L16110
10EC 4428 1262R 1617 | BSI L TRUNK,+Z BR-TRUNCATION OCCURS W1L16120
10EE 70DA 1618 | MDX FC030 CONT COMPRESSION W1L16130
1619 | * W1L16140
1620 | * W1L16150
10EFR 1621 | FC630 EQU * W1L16160
10EF 1010 1622 | SLA 16 W1L16170
10F0 D098 1623 | STO SESW RESET SYNTAX ERROR SW W1L16180
10F1 6E00 1066R 1624 | STX L2 SSXR2+1 SAVE REG 2 W1L16190
10F3 4C00 0CC5R 1625 | BSC L FC015 READ NEXT CARD W1L16200
1626 | * W1L16210
1627 | * TEST FOR O/P FLD POSITION VALIDITY W1L16220
1628 | * W1L16230
1629 | * W1L16240
10F5 006B 1630 | COMMA DC /6B EBC COMMA W1L16250
10F6 0000 1631 | OPPVL DC *-* ENTRY PT W1L16260
10F7 C202 1632 | LD 2 2 W1L16270
10F8 1808 1633 | SRA 8 ACC=O/P FLD LNG W1L16280
10F9 D03E 1634 | STO FC992 SAVE O/P PREC,UNPACKED W1L16290
10FA C103 1635 | LD 1 3 TEST FOR PACK OPTION W1L16300
10FB 9070 1636 | S P TEST FOR PACK OPTION W1L16310
10FC 4C20 1102R 1637 | BSC L *+4,Z BR-NO PACKING W1L16320
10FE C039 1638 | LD FC992 GET O/P PREC W1L16330
10FF 1801 1639 | SRA 1 DIVIDE BY 2 FOR PACK W1L16340
1100 80AA 1640 | A ONE ADD ONE FOR REMAINDER W1L16350
1101 D036 1641 | STO FC992 SAVE NEW O/P PREC W1L16360
1102 C035 1642 | LD FC992 W1L16370
1103 8088 1643 | A TOTFL W1L16380
1104 D087 1644 | STO TOTFL ADJUST TOTAL FLD LNG W1L16390
1105 C032 1645 | LD FC992 FETCH O/P PREC W1L16400
1106 8201 1646 | A 2 1 ADD O/P COL -1 W1L16410
1107 9067 1647 | S RCDSZ+1 ACC=COL NO. OF LAST CHAR W1L16420
1108 4430 1023R 1648 | BSI L PRIN2,Z- BR-FLD EXCEEDS RCD BOUNDARY W1L16430
110A 4C80 10F6R 1649 | BSC I OPPVL RETURN TO CALLER W1L16440
1650 | * W1L16450
1651 | * W1L16460
1652 | * TEST FOR NEXT CARD READ W1L16470
1653 | * W1L16480
110CR 1654 | FC018 EQU * W1L16490
1655 | * INCR COMPRESSION FLD TO W1L16500
110C 7203 1656 | MDX 2 3 *POINT TO NEXT ENTRY W1L16510
110DR 1657 | FC210 EQU * W1L16520
110D C100 1658 | LD 1 0 TEST COL FOR R SPECIFYING W1L16530
110E 902C 1659 | S FC995 *REPEAT SPECIFICATION W1L16540
110F 4C20 1125R 1660 | BSC L FC211,Z BR-REPEAT SPEC NOT GIVEN W1L16550
1661 | * W1L16560
1111 C028 1662 | LD FC994 LOAD REPEAT COUNTER W1L16570
1112 4C20 1119R 1663 | BSC L FC212,Z BR-REPEAT CTR ALREADY SET W1L16580
1664 | * W1L16590
1114 1010 1665 | SLA 16 INITIALIZE ADJUSTMENT W1L16600
1115 D023 1666 | STO FC993 *VALUE FOR COL ENTRY W1L16610
1667 | * W1L16620
1116 4400 1069R 1668 | BSI L CONV1 FETCH REPEAT CTR W1L16630
1118 6903 1669 | STX 1 FC214+1 SAVE REG 1 W1L16640
1119 9091 1670 | FC212 S ONE SUB 1 FROM CTR W1L16650
111A D01F 1671 | STO FC994 *AND SAVE CTR W1L16660
111B 6500 0000 1672 | FC214 LDX L1 *-* RESTORE REG 1 W1L16670
1673 | * W1L16680
111D 4C08 1125R 1674 | BSC L FC211,+ BR-REPEAT COUNTER TP ZERO W1L16690
1675 | * W1L16700
111F C019 1676 | LD FC993 ADJUST COL ENT MODIFIER W1L16710
1120 8017 1677 | A FC992 *BY OUTPUT PRECISION LNG W1L16720
1121 D017 1678 | STO FC993 W1L16730
1679 | * W1L16740
1122 6580 108AR 1680 | LDX I1 COLMN REG 1 PT TO REPEATED SPEC W1L16750
1124 701F 1681 | MDX FC213 GO BUILD COMPRESSION W1L16760
1682 | * W1L16770
1125R 1683 | FC211 EQU * W1L16780
1125 C400 0001 1684 | LD L XR1 TEST INPUT PT W1L16790
1127 9400 108ER 1685 | S L ADDR1 W1L16800
1129 4C10 10EFR 1686 | BSC L FC630,- BR-INPUT PT COL 71 OR BEYONDW1L16810
1687 | * W1L16820
112B C100 1688 | LD 1 0 TEST COL FOR BLANK W1L16830
112C 9400 108BR 1689 | S L H0040 W1L16840
112E 4C18 10EFR 1690 | BSC L FC630,+- BR-COL BLANK, READ NEXT CD W1L16850
1691 | * W1L16860
1130 C100 1692 | LD 1 0 TEST COL FOR COMMA W1L16870
1131 90C3 1693 | S COMMA W1L16880
1132 4C18 113CR 1694 | BSC L FC200,+- BR-COMMA DETECTED W1L16890
1134 4400 1023R 1695 | BSI L PRIN2 PRINT DIAGNOSTIC W1L16900
1136 7101 1696 | MDX 1 1 CONTINUE TESTING FOR W1L16910
1137 70ED 1697 | MDX FC211 *COMMA W1L16920
1138 0000 1698 | FC992 DC *-* SAVED O/P PREC W1L16930
1139 0000 1699 | FC993 DC *-* TEMP SAVE AREA W1L16940
113A 0000 1700 | FC994 DC *-* REPEAT COUNTER W1L16950
113B 00D9 1701 | FC995 DC .R EBC R W1L16960
1702 | * W1L16970
1703 | * W1L16980
113CR 1704 | FC200 EQU * W1L16990
113C 6AFC 1705 | STX 2 FC993 SAVE REG 2 W1L17000
113D 7402 1139R 1706 | MDX L FC993,2 PT TO O/P PREC W1L17010
113F 6D00 108AR 1707 | STX L1 COLMN SAVE COL NO. W1L17020
1141 1010 1708 | SLA 16 W1L17030
1142 D400 1089R 1709 | STO L SESW TURN OFF SYNTAX ERROR SW W1L17040
1144R 1710 | FC213 EQU * W1L17050
1144 C101 1711 | LD 1 1 W1L17060
1145 9400 108BR 1712 | S L H0040 W1L17070
1147 4C18 10EFR 1713 | BSC L FC630,+- BR-CD COL BLANK W1L17080
1714 | * W1L17090
1715 | * TEST FOR X-FLD W1L17100
1716 | * W1L17110
1149 C101 1717 | FC019 LD 1 1 W1L17120
114A 901F 1718 | S X TEST FOR X-FLD W1L17130
114B 4C20 1171R 1719 | BSC L FC017,Z BR-NOT X-FLD W1L17140
1720 | * W1L17150
1721 | *************************************************** W1L17160
1722 | * * W1L17170
1723 | * COMPRESSION FOR X-FLD * W1L17180
1724 | * * W1L17190
1725 | *************************************************** W1L17200
114D 7101 1726 | MDX 1 1 INCR CD COL PT W1L17210
114E C064 1727 | LD TABL1 SAVE ADDR OF XCNVT IN W1L17220
114F D200 1728 | STO 2 0 *COMPRESSION W1L17230
1150 4400 1069R 1729 | BSI L CONV1 CONVERT BYPASS WD CNT W1L17240
1152 D201 1730 | STO 2 1 SAVE WD CNT IN COMPRESSION W1L17250
1153 4400 10A2R 1731 | BSI L IPPVL TEST WD CNT FOR VALIDITY W1L17260
1155 7202 1732 | MDX 2 2 TEST NEXT FLD W1L17270
1156 70CE 1733 | MDX FC211 W1L17280
1734 | * W1L17290
1157 00F9 1735 | HF9 DC /F9 EBC 9 W1L17300
1158 000E 1736 | D14 DC 14 14 W1L17310
1737 | * W1L17320
1738 | * FETCH FIELD SCALE AND SAVE W1L17330
1739 | * W1L17340
1159 0000 1740 | SCALE DC *-* ENTRY PT W1L17350
115A C101 1741 | LD 1 1 COMPARE CD COL TO W1L17360
115B 9400 1075R 1742 | S L H00F0 *EBC 0 W1L17370
115D 4428 1023R 1743 | BSI L PRIN2,+Z BR-NONNUMERIC DGT FOUND W1L17380
115F C101 1744 | LD 1 1 COMPARE CD COL TO W1L17390
1160 90F6 1745 | S HF9 *EBC 9 W1L17400
1161 4430 1023R 1746 | BSI L PRIN2,-Z BR-NONNUMERIC DGT FOUND W1L17410
1163 8400 1076R 1747 | A L H9 COMPUTE SCALE W1L17420
1165 EA02 1748 | OR 2 2 SAVE SCALE IN COMPRESSION W1L17430
1166 D202 1749 | STO 2 2 W1L17440
1167 4C80 1159R 1750 | BSC I SCALE RETURN W1L17450
1751 | * W1L17460
1752 | * W1L17470
1753 | * CONSTANTS W1L17480
1754 | * W1L17490
1169 00C9 1755 | I DC /00C9 EBCDIC I W1L17500
116A 00E7 1756 | X DC /00E7 EBCDIC X W1L17510
116B 0005 1757 | D5 DC 5 5 W1L17520
116C 00D7 1758 | P DC /00D7 EBCDIC P W1L17530
116D 0080 1759 | PO DC /0080 PACK OPTION BIT W1L17540
116E 1760 | RCDSZ BSS 2 FILE RCD SIZES W1L17550
1761 | * W1L17560
1762 | *************************************************** W1L17570
1763 | * * W1L17580
1764 | * CONVERT RCD COL FLD FOR NON X-FLD * W1L17590
1765 | * * W1L17600
1766 | *************************************************** W1L17610
1767 | * W1L17620
1170 7000 1768 | MDX * W1L17630
1171 4400 1069R 1769 | FC017 BSI L CONV1 CONVERT RCD COL FLD W1L17640
1173 904C 1770 | S D1 W1L17650
1771 | * W1L17660
1174 7400 113AR 1772 | MDX L FC994,0 SKIP-NOT REPEATED SPEC W1L17670
1176 80C2 1773 | A FC993 ADD O/P PREC FOR REPEAT W1L17680
1774 | * W1L17690
1177 D201 1775 | STO 2 1 SAVE COL-1 IN COMPRESSION W1L17700
1178 C400 1020R 1776 | LD L TOTAL W1L17710
117A 90F4 1777 | S RCDSZ+1 TEST COL NO. FOR VALIDITY W1L17720
117B 4430 1023R 1778 | BSI L PRIN2,-Z BR-COL NO. INVALID W1L17730
117D 7101 1779 | MDX 1 1 INCR CD COL PT W1L17740
1780 | * W1L17750
1781 | *************************************************** W1L17760
1782 | * * W1L17770
1783 | * FIELD TYPE DETERMINATION * W1L17780
1784 | * * W1L17790
1785 | *************************************************** W1L17800
1786 | * W1L17810
117E C0F1 1787 | LD FC017-1 INITIALIZE MULTI-BR INST W1L17820
117F D00E 1788 | STO FC020 W1L17830
1180 C100 1789 | LD 1 0 TEST FOR I-FLD W1L17840
1181 90E7 1790 | S I W1L17850
1182 4C18 10ACR 1791 | BSC L IFLD,+- BR- I FLD W1L17860
1184 4C10 1092R 1792 | BSC L FC022,- BR- TEST FOR R- OR J-FLD W1L17870
1186 803A 1793 | A D2 W1L17880
1187 4C10 109FR 1794 | BSC L FC220,- BR-FLD NOT RECOGNIZABLE W1L17890
1189 80E1 1795 | A D5 W1L17900
118A 4C28 109FR 1796 | BSC L FC220,Z+ BR-FLD NOT RECOGNIZABLE W1L17910
118C 8001 1797 | A *+1 W1L17920
118D D000 1798 | STO * W1L17930
118E 7000 1799 | FC020 MDX * MULTI-BR INST W1L17940
118F 7036 1800 | MDX BFLD BR- B-FLD W1L17950
1190 7075 1801 | MDX CFLD BR- C-FLD W1L17960
1191 702C 1802 | MDX INTRM BR- D-FLD W1L17970
1192 702C 1803 | MDX INTR BR- E-FLD W1L17980
1804 | * W1L17990
1805 | *************************************************** W1L18000
1806 | * * W1L18010
1807 | * COMPRESSION FOR F-FLD * W1L18020
1808 | * * W1L18030
1809 | *************************************************** W1L18040
1810 | * W1L18050
1193 C025 1811 | FFLD LD TABL1+6 SET ADDR OF FCNVT IN W1L18060
1194 D200 1812 | STO 2 0 *COMPRESSION W1L18070
1195 681C 1813 | STX FSW SET F-SW W1L18080
1196 4400 1069R 1814 | BSI L CONV1 CONVERT FLD LNG IN CHARS W1L18090
1198 D203 1815 | STO 2 3 SAVE CHAR CNT W1L18100
1816 | * W1L18110
1199 8201 1817 | A 2 1 ACC=COL NO. OF LAST CHAR W1L18120
119A 90D4 1818 | S RCDSZ+1 W1L18130
119B 4430 1023R 1819 | BSI L PRIN2,Z- BR-FLD EXCEEDS RCD BOUNDARY W1L18140
119D C203 1820 | LD 2 3 ADJUST TOTAL FLD LNG INDR W1L18150
119E 8400 108CR 1821 | A L TOTFL W1L18160
11A0 D400 108CR 1822 | STO L TOTFL W1L18170
1823 | * W1L18180
11A2 C203 1824 | LD 2 3 DIVIDE FLD LNG IN CHARS W1L18190
11A3 1890 1825 | SRT 16 *BY 3 TO GET FLD LNG IN WDS W1L18200
11A4 A81D 1826 | D D3 W1L18210
11A5 D015 1827 | STO TABL3 W1L18220
1828 | * W1L18230
11A6 1090 1829 | SLT 16 DETERMINE WD CNT OF CSP FLD W1L18240
11A7 4820 1830 | BSC Z W1L18250
11A8 C017 1831 | LD D1 ADJUST WD CNT OF CSP FLD W1L18260
11A9 8011 1832 | A TABL3 *FOR REMAINDER W1L18270
1833 | * W1L18280
11AA 4400 10A2R 1834 | BSI L IPPVL TEST WD CNT FOR VALIDITY W1L18290
11AC C004 1835 | LD H0341 SAVE /0341 IN COMPRESSION W1L18300
11AD D202 1836 | STO 2 2 W1L18310
11AE 7204 1837 | MDX 2 4 INCR COMPRESSION PT W1L18320
11AF 4C00 110DR 1838 | BSC L FC210 TEST NEXT FLD W1L18330
1839 | * W1L18340
1840 | * CONSTANTS W1L18350
1841 | * W1L18360
11B1 0341 1842 | H0341 DC /0341 /0341 W1L18370
11B2 0000 1843 | FSW DC *-* F-FLD TYPE SW W1L18380
11B3 12C6R 1844 | TABL1 DC XCNVT ADDR OF X-FLD CONVERT SUBR W1L18390
11B4 12CFR 1845 | DC ICNVT ADDR OF I-FLD CONVERT SUBR W1L18400
11B5 15DBR 1846 | DC RCNVT ADDR OF R-FLD CONVERT SUBR W1L18410
11B6 12B4R 1847 | DC BCNVT ADDR OF B-FLD CONVERT SUBR W1L18420
11B7 1381R 1848 | DC DCNVT ADDR OF D-FLD CONVERT SUBR W1L18430
11B8 13D1R 1849 | DC ECNVT ADDR OF E-FLD CONVERT SUBR W1L18440
11B9 1405R 1850 | DC FCNVT ADDR OF F-FLD CONVERT SUBR W1L18450
11BA 12F6R 1851 | DC JCNVT ADDR OF J-FLD CONVERT SUBR W1L18460
11BB 1852 | TABL3 BSS 3 TEMP SAVE AREA W1L18470
11BE 7061 1853 | INTRM MDX DFLD BR - D-FLD W1L18480
11BF 7055 1854 | INTR MDX EFLD BR - E-FLD W1L18490
1855 | * W1L18500
1856 | *************************************************** W1L18510
1857 | * * W1L18520
1858 | * COMPRESSION FOR B-FLD * W1L18530
1859 | * * W1L18540
1860 | *************************************************** W1L18550
1861 | * W1L18560
11C0 0001 1862 | D1 DC 1 1 W1L18570
11C1 0002 1863 | D2 DC 2 2 W1L18580
11C2 0003 1864 | D3 DC 3 3 W1L18590
11C3 1865 | TEMP2 BSS 3 TEMP SAVE AREA W1L18600
11C6 C0EF 1866 | BFLD LD TABL1+3 SET ADDR OF RCNVT IN W1L18610
11C7 D200 1867 | STO 2 0 *COMPRESSION W1L18620
1868 | * W1L18630
11C8 C400 125FR 1869 | LD L INTSW TEST 1 WD ITG SW W1L18640
11CA 4C18 11CER 1870 | BSC L *+2,+- BR-NO 1 WD ITG W1L18650
11CC C0F3 1871 | LD D1 ACC=1 W1L18660
11CD 7007 1872 | MDX FC023 W1L18670
11CE C400 1260R 1873 | FC024 LD L EPREC TEST FOR EXTENDED PREC W1L18680
11D0 4C18 11D4R 1874 | BSC L *+2,+- BR-STD PREC SPECIFIED W1L18690
11D2 C0EF 1875 | LD D3 ACC=3 W1L18700
11D3 7001 1876 | MDX *+1 W1L18710
11D4 C0EC 1877 | LD D2 ACC=2 W1L18720
1878 | * W1L18730
11D5R 1879 | FC023 EQU * W1L18740
11D5 D0E5 1880 | STO TABL3 SAVE NO. WD/ENT W1L18750
11D6 1006 1881 | SLA 6 SAVE NO. WD/ENT W1L18760
11D7 D202 1882 | STO 2 2 *IN COMPRESSION W1L18770
1883 | * W1L18780
11D8 4400 1069R 1884 | BSI L CONV1 CONVERT CHAR CNT W1L18790
11DA D0E1 1885 | STO TABL3+1 SAVE CHAR CNT W1L18800
11DB 1888 1886 | SRT 8 W1L18810
11DC 4420 1023R 1887 | BSI L PRIN2,Z BR-PRECISION INVALID W1L18820
11DE 1090 1888 | SLT 16 W1L18830
11DF EA02 1889 | OR 2 2 SAVE CHAR CNT IN W1L18840
11E0 D202 1890 | STO 2 2 *COMPRESSION W1L18850
1891 | * W1L18860
11E1 4400 10F6R 1892 | BSI L OPPVL CHECK O/P FLD LNG W1L18870
1893 | * W1L18880
1894 | * W1L18890
11E3 4400 1159R 1895 | BSI L SCALE RETRIEVE CHAR CNT/WD W1L18900
11E5 C202 1896 | LD 2 2 W1L18910
11E6 E400 128AR 1897 | AND L HF W1L18920
11E8 D0D4 1898 | STO TABL3+2 SAVE CHAR/ENT W1L18930
11E9 4408 1023R 1899 | BSI L PRIN2,+ BR-SYNTAX INVALID W1L18940
1900 | * W1L18950
11EB C0D0 1901 | LD TABL3+1 ACC=CHAR CNT W1L18960
11EC 1890 1902 | SRT 16 W1L18970
11ED A8CF 1903 | D TABL3+2 ACC=CHAR CNT/(CHAR/ENT) W1L18980
11EE D0CE 1904 | STO TABL3+2 W1L18990
11EF 1090 1905 | SLT 16 W1L19000
11F0 4C18 11F4R 1906 | BSC L *+2,+- BR-REMAINDER =0 W1L19010
11F2 7401 11BDR 1907 | MDX L TABL3+2,1 W1L19020
1908 | * W1L19030
11F4 C0C8 1909 | LD TABL3+2 ACC=NO. ENT W1L19040
11F5 A0C5 1910 | M TABL3 W1L19050
11F6 1090 1911 | SLT 16 ACC=FLD LNG IN WD W1L19060
11F7 4400 10A2R 1912 | BSI L IPPVL TEST WD CNT FOR VALIDITY W1L19070
1913 | * W1L19080
11F9 C202 1914 | LD 2 2 FETCH CHARS/ENT W1L19090
11FA E400 128AR 1915 | AND L HF W1L19100
11FC 7102 1916 | MDX 1 2 ADJUST I/O AREA ADDR W1L19110
11FD 7400 1205R 1917 | MDX L CSW,0 SKIP- B-FLD TYPE W1L19120
11FF 700A 1918 | MDX C1 CONT CHAR CNT/WD CHECK W1L19130
1200 90C0 1919 | S D2 W1L19140
1201 4430 1023R 1920 | BSI L PRIN2,-Z BR- CHAR CNT/WD INVALID W1L19150
1203 4C00 110CR 1921 | BSC L FC018 TEST NEXT FLD TYPE W1L19160
1922 | * W1L19170
1923 | *************************************************** W1L19180
1924 | * * W1L19190
1925 | * COMPRESSION FOR C-FLD * W1L19200
1926 | * * W1L19210
1927 | *************************************************** W1L19220
1928 | * W1L19230
1205 0000 1929 | CSW DC *-* C-TYPE SW W1L19240
1206 C0AF 1930 | CFLD LD TABL1+3 SET ADDR OF BCNVT IN W1L19250
1207 D200 1931 | STO 2 0 *COMPRESSION W1L19260
1208 68FC 1932 | STX CSW SET C-TYPE SW W1L19270
1209 70C4 1933 | MDX FC024 COMPLETE COMPRESSION W1L19280
1934 | * W1L19290
120A 9400 1403R 1935 | C1 S L D4 TEST VALIDITY,CHAR CNT/WD W1L19300
120C 7400 1260R 1936 | MDX L EPREC,0 SKIP-STD PREC SPECIFIED W1L19310
120E 90B2 1937 | S D2 W1L19320
120F 4430 1023R 1938 | BSI L PRIN2,-Z BR-CHAR CNT/WD INVALID W1L19330
1211 1010 1939 | SLA 16 W1L19340
1212 D0F2 1940 | STO CSW TURN OFF C-TYPE SW W1L19350
1213 4C00 110CR 1941 | BSC L FC018 TEST NEXT FLD TYPE W1L19360
1942 | * W1L19370
1943 | *************************************************** W1L19380
1944 | * * W1L19390
1945 | * COMPRESSION FOR E-FLD * W1L19400
1946 | * * W1L19410
1947 | *************************************************** W1L19420
1215 C0A2 1948 | EFLD LD TABL1+5 SET ADDR OF ECNVT IN W1L19430
1216 D200 1949 | STO 2 0 *COMPRESSION W1L19440
1217 4400 1069R 1950 | BSI L CONV1 CONVERT CSP FLD LNG W1L19450
1219 D072 1951 | STO TABL2+1 SAVE CSP FLD LNG W1L19460
121A 8004 1952 | A D6 COMPUTE INPUT FLD LNG IN W1L19470
121B 1890 1953 | SRT 16 W1L19480
121C AC00 1403R 1954 | D L D4 *WORDS W1L19490
121E 7006 1955 | MDX FC580 CONT COMPRESSION W1L19500
1956 | * W1L19510
1957 | *************************************************** W1L19520
1958 | * * W1L19530
1959 | * COMPRESSION FOR D-FLD * W1L19540
1960 | * * W1L19550
1961 | *************************************************** W1L19560
121F 0006 1962 | D6 DC 6 6 W1L19570
1220 C096 1963 | DFLD LD TABL1+4 SET ADDR OF DCNVT IN W1L19580
1221 D200 1964 | STO 2 0 *COMPRESSION W1L19590
1965 | * W1L19600
1222 4400 1069R 1966 | BSI L CONV1 CONVERT CSP FLD LNG W1L19610
1224 D067 1967 | STO TABL2+1 SAVE CSP FLD LNG W1L19620
1968 | * W1L19630
1225R 1969 | FC580 EQU * W1L19640
1225 4400 10A2R 1970 | BSI L IPPVL TEST FLD LNG FOR VALIDITY W1L19650
1227 7201 1971 | MDX 2 1 INCR COMPRESSION PT TEMP W1L19660
1228 1010 1972 | SLA 16 CLEAR COMPRESSION WORD W1L19670
1229 D202 1973 | STO 2 2 W1L19680
1974 | * W1L19690
122A 4400 1159R 1975 | BSI L SCALE RETRIEVE CSP SCALE W1L19700
122C C202 1976 | LD 2 2 W1L19710
122D D05D 1977 | STO TABL2 SAVE CSP SCALE IN TABL2 W1L19720
1978 | * W1L19730
122E C05D 1979 | LD TABL2+1 W1L19740
122F 1888 1980 | SRT 8 W1L19750
1230 4420 1023R 1981 | BSI L PRIN2,Z BR-CSP FLD LNG INVALID W1L19760
1232 1090 1982 | SLT 16 W1L19770
1233 EA02 1983 | OR 2 2 SAVE CSP FLD LNG IN W1L19780
1234 D202 1984 | STO 2 2 *COMPRESSION W1L19790
1985 | * W1L19800
1235 C056 1986 | LD TABL2+1 COMPUTE NO. NON-DECML W1L19810
1236 9054 1987 | S TABL2 *POS.-I/P W1L19820
1237 D053 1988 | STO TABL2 SAVE L1-J W1L19830
1238 4428 1023R 1989 | BSI L PRIN2,Z+ BR-FLD LNG LT SCALE,INVALID W1L19840
123A 72FF 1990 | MDX 2 -1 RESTORE COMPRESSION PT W1L19850
1991 | * W1L19860
123B C102 1992 | LD 1 2 TEST FOR = W1L19870
123C 9051 1993 | S EQ W1L19880
123D 4420 1023R 1994 | BSI L PRIN2,Z BR-SYNTAX INVALID W1L19890
1995 | * W1L19900
123F 7102 1996 | MDX 1 2 INCR CD COL PT W1L19910
1240 4400 1077R 1997 | BSI L CONV2 CONVERT RPG FLD LNG W1L19920
1242 4400 10F6R 1998 | BSI L OPPVL CHECK O/P FLD LNG W1L19930
1999 | * W1L19940
1244 4400 1159R 2000 | BSI L SCALE CONVERT RPG SCALE W1L19950
2001 | * W1L19960
1246 C400 1020R 2002 | LD L TOTAL W1L19970
1248 9101 2003 | S 1 1 COMPUTE L2-K W1L19980
1249 8017 2004 | A F0 W1L19990
124A D041 2005 | STO TABL2+1 SAVE L2-K W1L20000
124B 4428 1023R 2006 | BSI L PRIN2,+Z BR-K GT L2,INVALID W1L20010
2007 | * W1L20020
124D C03D 2008 | LD TABL2 COMPUTE L1-J-(L2-K) W1L20030
124E 903D 2009 | S TABL2+1 W1L20040
124F 4430 1262R 2010 | BSI L TRUNK,Z- BR-K GT J,TRUNCATION W1L20050
2011 | * W1L20060
1251 7204 2012 | MDX 2 4 INCR COMPRESSION PT W1L20070
1252 7102 2013 | MDX 1 2 ADJUST I/O AREA PT W1L20080
1253 C101 2014 | LD 1 1 TEST FOR PACK OPTION W1L20090
1254 9400 116CR 2015 | S L P W1L20100
1256 4C20 110DR 2016 | BSC L FC210,Z BR-PACK OPTION OFF W1L20110
1258 C400 116DR 2017 | LD L PO OR PACK OPTION INTO W1L20120
125A EAFE 2018 | OR 2 -2 *COMPRESSION W1L20130
125B D2FE 2019 | STO 2 -2 W1L20140
125C 7103 2020 | MDX 1 3 ADJUST I/O AREA PT W1L20150
125D 4C00 110DR 2021 | BSC L FC210 TEST NEXT FLD W1L20160
2022 | * W1L20170
125F 0000 2023 | INTSW DC 0 ONE WD INTEGER SW W1L20180
1260 0000 2024 | EPREC DC 0 EXTENDED PREC SW W1L20190
1261 00F0 2025 | F0 DC /F0 EBC 0 W1L20200
2026 | * W1L20210
2027 | *************************************************** W1L20220
2028 | * * W1L20230
2029 | * TRUNCATION OCCURS-PRINT DIAGNOSTIC * W1L20240
2030 | * * W1L20250
2031 | *************************************************** W1L20260
1262 0000 2032 | TRUNK DC *-* ENTRY PT W1L20270
1263 C201 2033 | LD 2 1 LOAD COL NO.-1 W1L20280
1264 8400 11C0R 2034 | A L D1 CALCULATE COL NO. W1L20290
1266 691E 2035 | STX 1 TXR1+1 SAVE REG 1 W1L20300
2036 | * W1L20310
2037 | * CONVERT COL NO. TO PACKED EBCDIC W1L20320
2038 | * *AND STORE IN TRUNCATION ERROR MSG W1L20330
2039 | * W1L20340
1267 6102 2040 | LDX 1 2 REG 1 = LOOP CONTROL W1L20350
1268 1890 2041 | SRT 16 COL NO. IN EXTENSION REG W1L20360
1269 AC00 1331R 2042 | T1 D L D10 CALCULATE DECML DGT W1L20370
126B 18D0 2043 | RTE 16 DECML DGT IN ACC W1L20380
126C E8F4 2044 | OR F0 OR ON ZONE W1L20390
126D D500 128AR 2045 | STO L1 TABL2-1 SAVE TEMPORARILY W1L20400
126F 1010 2046 | SLA 16 CLEAR ACC FOR DIVIDE W1L20410
1270 71FF 2047 | MDX 1 -1 W1L20420
1271 70F7 2048 | MDX T1 CONT LOOP W1L20430
2049 | * W1L20440
1272 1090 2050 | SLT 16 GET HIGH ORDER DGT W1L20450
1273 E8ED 2051 | OR F0 OR ON ZONE W1L20460
1274 1008 2052 | SLA 8 PACK FOR MESSAGE W1L20470
1275 E815 2053 | OR TABL2 GET SECOND DGT W1L20480
1276R 2054 | T0002 EQU * W1L20490
1276 D028 2055 | STO MESS7+16 SAVE COL NO. IN MESSAGE W1L20500
1277 C014 2056 | LD TABL2+1 GET LAST DGT W1L20510
1278 1008 2057 | SLA 8 W1L20520
1279 E826 2058 | OR MESS7+17 W1L20530
127A D025 2059 | STO MESS7+17 SAVE IN MESSAGE W1L20540
2060 | * W1L20550
127B 6A0B 2061 | STX 2 TXR2+1 SAVE REG 2 W1L20560
127C 6600 128FR 2062 | LDX L2 MESS7 SET ERROR MSG ADDR SW W1L20570
127E 4400 0FDER 2063 | BSI L PRINT PRINT DIAGNOSTIC W1L20580
1280 C400 0DFDR 2064 | LD L H4040 RESTORE TRUNCATION MSG FOR W1L20590
1282 D01D 2065 | STO MESS7+17 *FUTURE USE W1L20600
1283 D034 2066 | STO MESSA+23 W1L20610
1284 6500 0000 2067 | TXR1 LDX L1 *-* RESTORE REG 1 W1L20620
1286 6600 0000 2068 | TXR2 LDX L2 *-* RESTORE REG 2 W1L20630
1288 4C80 1262R 2069 | BSC I TRUNK RETURN TO CALLER W1L20640
2070 | * W1L20650
2071 | * CONSTANTS W1L20660
2072 | * W1L20670
128A 000F 2073 | HF DC /F CONSTANT /F W1L20680
128B 2074 | TABL2 BSS 3 TEMP SAVE AREA W1L20690
128E 007E 2075 | EQ DC /7E EBC = W1L20700
128F 0011 2076 | MESS7 DC 17 W1L20710
1290 C6F0 F740 E3D9 E4D5 2077 | DMES 2 F07 TRUNCATION OCCURS AT COL. 'E W1L20720
C3C1 E3C9 D6D5 40D6 |
C3C3 E4D9 E240 C1E3 |
40C3 D6D3 4B40 4040 |
4040 |
12A1 0019 2078 | MESSA DC 25 W1L20730
12A2 C6F1 F040 C6C9 C5D3 2079 | DMES 2 F10 FIELD OUT OF RANGE AT COL OF' W1L20740
C440 D6E4 E340 D6C6 |
40D9 C1D5 C7C5 40C1 |
E340 C3D6 D340 4040 |
4040 D6C6 |
12B4 2080 | DMES 2 RECORD 'E W1L20750
2081 | * W1L20760
2082 | *************************************************** W1L20770
2083 | * * W1L20780
2084 | * B(C)-CONVERSION SUBR * W1L20790
2085 | * * W1L20800
2086 | *************************************************** W1L20810
2087 | * W1L20820
12B4 0000 2088 | BCNVT DC *-* ENTRY PT W1L20830
12B5 680F 2089 | STX ALPHA TURN ON ALPHA SW W1L20840
12B6 C202 2090 | LD 2 2 W1L20850
12B7 1806 2091 | SRA 6 W1L20860
12B8 E400 11C2R 2092 | AND L D3 FIND NO. WDS PER ENTRY W1L20870
12BA D079 2093 | STO WORK1 W1L20880
12BB C400 0001 2094 | LD L XR1 SUBTRACT NO. WDS PER W1L20890
12BD 9076 2095 | S WORK1 *ENTRY FROM REG 1 W1L20900
12BE D400 0001 2096 | STO L XR1 W1L20910
12C0 4400 1528R 2097 | BSI L INSRT PUT FLD INTO O/P RCD W1L20920
12C2 7203 2098 | MDX 2 3 UPDATE COMPRESSION PT W1L20930
12C3 4C80 12B4R 2099 | BSC I BCNVT RETURN TO CALLER W1L20940
12C5 0000 2100 | ALPHA DC 0 ALPHA SW W1L20950
2101 | * W1L20960
2102 | *************************************************** W1L20970
2103 | * * W1L20980
2104 | * X-CONVERSION SUBR * W1L20990
2105 | * * W1L21000
2106 | *************************************************** W1L21010
2107 | * W1L21020
12C6 0000 2108 | XCNVT DC *-* ENTRY PT W1L21030
12C7 C400 0001 2109 | LD L XR1 ADJUST INPUT FLD PT FOR W1L21040
12C9 9201 2110 | S 2 1 *NO. WDS TO BE BYPASSED W1L21050
12CA D400 0001 2111 | STO L XR1 W1L21060
12CC 7202 2112 | MDX 2 2 UPDATE COMPRESSION PT W1L21070
12CD 4C80 12C6R 2113 | BSC I XCNVT RETURN TO CALLER W1L21080
2114 | * W1L21090
2115 | *************************************************** W1L21100
2116 | * * W1L21110
2117 | * I-CONVERSION SUBR * W1L21120
2118 | * * W1L21130
2119 | *************************************************** W1L21140
2120 | * W1L21150
12CF 0000 2121 | ICNVT DC *-* ENTRY POINT W1L21160
12D0 71FF 2122 | MDX 1 -1 DECREMENT INPUT PT W1L21170
12D1 7400 125FR 2123 | MDX L INTSW,0 TEST FOR ONE WORD INTEGERS W1L21180
12D3 7004 2124 | MDX *+4 BR-ONE WD INTEGERS SPECIFIEDW1L21190
2125 | * AT LEAST 2 WDS ALLOCATED- W1L21200
12D4 71FF 2126 | MDX 1 -1 *DECREMENT INPUT PT W1L21210
12D5 7400 1260R 2127 | MDX L EPREC,0 TEST FOR EXTENDED PRECISION W1L21220
2128 | * EXTENDED PREC SPECIFIED- W1L21230
12D7 71FF 2129 | MDX 1 -1 *DECREMENT INPUT PT W1L21240
2130 | * W1L21250
12D8 691A 2131 | STX 1 IXR1+1 SAVE REG 1 W1L21260
12D9 C100 2132 | LD 1 0 LOAD BINARY INTEGER W1L21270
12DA 1890 2133 | SRT 16 SAVE IN EXTENSION REG W1L21280
2134 | * W1L21290
12DB C054 2135 | LD HF0 LOAD POSITIVE ZONE W1L21300
12DC 611F 2136 | LDX 1 /1F REG 1 = 31,LOOP CONTROL W1L21310
12DD D500 1333R 2137 | STO L1 WORK1-1 SET WORK AREA TO ZONE W1L21320
12DF 71FF 2138 | MDX 1 -1 DECREMENT LOOP CONTROL W1L21330
12E0 70FC 2139 | MDX *-4 CONTINUE LOOP W1L21340
2140 | * W1L21350
12E1 1090 2141 | SLT 16 SHIFT BINARY INTEGER TO ACC W1L21360
12E2 4C10 12E7R 2142 | BSC L I1,- BR-INTEGER IS POSITIVE W1L21370
12E4 684D 2143 | STX NEGSW TURN ON NEGATIVE INDICATOR W1L21380
12E5 F04D 2144 | EOR HFFFF TAKE 2'S COMPLEMENT W1L21390
12E6 806E 2145 | A H1 W1L21400
2146 | * W1L21410
12E7 6105 2147 | I1 LDX 1 5 DGT CNT=5 W1L21420
12E8 1890 2148 | SRT 16 SHIFT TO EXTENSION REG W1L21430
12E9 74FF 137CR 2149 | MDX L SWJ,-1 W1L21440
12EB 4400 1376R 2150 | BSI L DGT CONVERT 5 DGTS W1L21450
12ED 7401 137CR 2151 | MDX L SWJ,1 W1L21460
12EFR 2152 | FC700 EQU * W1L21470
12EF 4400 1528R 2153 | BSI L INSRT PUT CNVTED FLD IN O/P RCD W1L21480
12F1 7203 2154 | MDX 2 3 UPDATE COMPRESSION PT W1L21490
12F2 6500 0000 2155 | IXR1 LDX L1 *-* RESTORE REG 1 W1L21500
12F4 4C80 12CFR 2156 | BSC I ICNVT RETURN TO CALLER W1L21510
2157 | * W1L21520
2158 | *************************************************** W1L21530
2159 | * * W1L21540
2160 | * J-CONVERSION SUBR * W1L21550
2161 | * * W1L21560
2162 | *************************************************** W1L21570
2163 | * W1L21580
12F6 0000 2164 | JCNVT DC *-* ENTRY PT W1L21590
12F7 C0FE 2165 | LD JCNVT SAVE RETURN ADDR W1L21600
12F8 D0D6 2166 | STO ICNVT W1L21610
12F9 71FE 2167 | MDX 1 -2 DECREMENT INPUT PT W1L21620
12FA 69F8 2168 | STX 1 IXR1+1 SAVE REG 1 W1L21630
2169 | * W1L21640
12FB C034 2170 | LD HF0 LOAD POSITIVE ZONE W1L21650
12FC 611F 2171 | LDX 1 /1F REG 1=31,LOOP CONTROL W1L21660
12FD D500 1333R 2172 | STO L1 WORK1-1 SET WORK AREA TO ZONE W1L21670
12FF 71FF 2173 | MDX 1 -1 DECREMENT LOOP CONTROL W1L21680
1300 70FC 2174 | MDX *-4 CONT INITIALIZING WORK AREA W1L21690
2175 | * W1L21700
1301 6580 12F3R 2176 | LDX I1 IXR1+1 RESTORE REG 1 W1L21710
1303 C101 2177 | LD 1 1 LOAD 2-WD INTEGER INTO W1L21720
1304 1890 2178 | SRT 16 *ACC AND EXTENSION REGS W1L21730
1305 C100 2179 | LD 1 0 W1L21740
1306 D851 2180 | STD TABLJ SAVE ITG W1L21750
1307 4C10 130CR 2181 | BSC L J1,- BR-ITG IS POSITIVE W1L21760
1309 6828 2182 | STX NEGSW SET NEGATIVE INDR W1L21770
130A 10A0 2183 | SLT 32 W1L21780
130B 984C 2184 | SD TABLJ TAKE TWO'S COMPLEMENT W1L21790
130CR 2185 | J1 EQU * W1L21800
130C 6100 2186 | LDX 1 0 SET ADJUSTMENT TABLE PT W1L21810
130D D84A 2187 | STD TABLJ SAVE ABSOLUTE VALUE OF ITG W1L21820
130E 9D00 135AR 2188 | J3 SD L1 TABLJ+2 SUB TABLE VALUE W1L21830
1310 4C10 1315R 2189 | BSC L J2,- BR-REMAINDER NON-NEGATIVE W1L21840
1312 7102 2190 | MDX 1 2 INCR TABLE PT W1L21850
1313 C844 2191 | LDD TABLJ LOAD ABSOLUTE VALUE OF ITG W1L21860
1314 70F9 2192 | MDX J3 CONT W1L21870
1315R 2193 | J2 EQU * W1L21880
1315 A85F 2194 | D D0000 FETCH LOW ORDER 7 DECML DGT W1L21890
1316 D040 2195 | STO TABLJ-1 SAVE 3 OF LOW ORDER DGTS W1L21900
1317 C400 0001 2196 | LD L XR1 DIVIDE REG 1 BY 2 W1L21910
1319 1801 2197 | SRA 1 W1L21920
131A D009 2198 | STO J4 SAVE PT W1L21930
131B 6104 2199 | LDX 1 4 SET DGT CNT W1L21940
131C 4059 2200 | BSI DGT FETCH LOW ORDER 4 DECML DGT W1L21950
131D C039 2201 | LD TABLJ-1 FETCH BINARY REPRESEN- W1L21960
131E 1890 2202 | SRT 16 *TATION OF NEXT 3 DECML DGT W1L21970
131F 74FD 137CR 2203 | MDX L SWJ,-3 ADJUST DGT PT W1L21980
1321 6103 2204 | LDX 1 3 SET DGT CNT W1L21990
1322 4053 2205 | BSI DGT RETRIEVE AND SAVE DGTS W1L22000
1323 6500 0000 2206 | LDX L1 *-* RESTORE PT W1L22010
1324R 2207 | J4 EQU *-1 W1L22020
1325 1090 2208 | SLT 16 RETRIEVE HIGH ORDER 3 W1L22030
1326 8500 136CR 2209 | A L1 TABL5 DECIMAL DGTS W1L22040
1328 1890 2210 | SRT 16 W1L22050
1329 6103 2211 | LDX 1 3 SET DGT CNT W1L22060
132A 74FD 137CR 2212 | MDX L SWJ,-3 ADJUST DGT PT W1L22070
132C 4049 2213 | BSI DGT RETRIEVE AND SAVE DGTS W1L22080
132D 7406 137CR 2214 | MDX L SWJ,6 RESTORE DGT PT W1L22090
132F 70BF 2215 | MDX FC700 W1L22100
2216 | * W1L22110
2217 | * W1L22120
2218 | * CONSTANTS W1L22130
2219 | * W1L22140
1330 00F0 2220 | HF0 DC /F0 CONSTANT /F0 W1L22150
1331 000A 2221 | D10 DC 10 CONSTANT 10 W1L22160
1332 0000 2222 | NEGSW DC 0 NEGATIVE INDR W1L22170
1333 FFFF 2223 | HFFFF DC /FFFF CONSTANT /FFFF W1L22180
1334 2224 | WORK1 BSS 31 WORK AREA-31 WORDS W1L22190
1354 2225 | BSS E 0 W1L22200
1354 0000 2226 | DD1 DC 0 DOUBLE WD 1 E W1L22210
1355 0001 2227 | H1 DC 1 W1L22220
1356 2228 | BSS 1 W1L22230
1358 2229 | TABLJ BSS E 2 TEMP SAVE AREA E W1L22240
135A 7735 9400 2230 | DEC 2000000000 TABLE OF ADJUSTMENT W1L22250
135C 713F B300 2231 | DEC 1900000000 *VALUES W1L22260
135E 5F5E 1000 2232 | DEC 1600000000 W1L22270
1360 4D7C 6D00 2233 | DEC 1300000000 W1L22280
1362 3B9A CA00 2234 | DEC 1000000000 W1L22290
1364 29B9 2700 2235 | DEC 700000000 W1L22300
1366 2292 1900 2236 | DEC 580000000 W1L22310
1368 0F7F 4900 2237 | DEC 260000000 W1L22320
136A 0000 2238 | DC 0 E W1L22330
136B 0000 2239 | DC 0 W1L22340
136C 00C8 2240 | TABL5 DC 200 TABLE OF 1 WORD ADJUSTMENT W1L22350
136D 00BE 2241 | DC 190 *VALUES W1L22360
136E 00A0 2242 | DC 160 W1L22370
136F 0082 2243 | DC 130 W1L22380
1370 0064 2244 | DC 100 W1L22390
1371 0046 2245 | DC 70 W1L22400
1372 003A 2246 | DC 58 W1L22410
1373 001A 2247 | DC 26 W1L22420
1374 0000 2248 | DC 0 W1L22430
1375 2710 2249 | D0000 DC 10000 10000 W1L22440
2250 | * W1L22450
2251 | * CONVERT BINARY ITG TO DECML DGTS W1L22460
2252 | * W1L22470
1376 0000 2253 | DGT DC *-* ENTRY PT W1L22480
1377 1010 2254 | SLA 16 W1L22490
1378 A8B8 2255 | D D10 RETRIEVE DGT W1L22500
1379 18D0 2256 | RTE 16 DECML DGT IN ACC W1L22510
137A E8B5 2257 | OR HF0 OR ZONE W1L22520
137B D500 133DR 2258 | STO L1 WORK1+9 SAVE DGT W1L22530
137CR 2259 | SWJ EQU *-1 W1L22540
137D 71FF 2260 | MDX 1 -1 DECREMENT DGT CNT W1L22550
137E 70F8 2261 | MDX DGT+1 CONT DGT FIND W1L22560
137F 4C80 1376R 2262 | BSC I DGT RETURN W1L22570
2263 | * W1L22580
2264 | *************************************************** W1L22590
2265 | * * W1L22600
2266 | * D-CONVERSION SUBR * W1L22610
2267 | * * W1L22620
2268 | *************************************************** W1L22630
2269 | * W1L22640
1381 0000 2270 | DCNVT DC *-* ENTRY POINT W1L22650
1382 6B3B 2271 | STX 3 DXR3+1 SAVE REG 3 W1L22660
1383 C203 2272 | LD 2 3 W1L22670
1384 1888 2273 | SRT 8 W1L22680
1385 D048 2274 | STO IPREC SAVE INPUT PREC W1L22690
2275 | * W1L22700
1386 1010 2276 | SLA 16 CLEAR ACC W1L22710
1387 1088 2277 | SLT 8 RETRIEVE INPUT SCALE W1L22720
1388 D044 2278 | STO ISCAL SAVE AS INPUT SCALE W1L22730
1389 D040 2279 | STO DECPO SAVE AS NO. DECML POS W1L22740
2280 | * W1L22750
138A C043 2281 | LD IPREC CALCULATE NO. NON-DECML POS W1L22760
138B 9041 2282 | S ISCAL W1L22770
138C D03E 2283 | STO DECPO+1 SAVE NO. NON-DECML POS W1L22780
138D 903E 2284 | S HE W1L22790
138E 4C08 1392R 2285 | BSC L *+2,+ BR-NO. NONDECML POS INVALID W1L22800
1390 C03B 2286 | LD HE SET MAX NO. NONDECML POS W1L22810
1391 D039 2287 | STO DECPO+1 W1L22820
2288 | * W1L22830
1392 C038 2289 | LD DECPO+1 W1L22840
1393 8036 2290 | A DECPO SET FLD LNG W1L22850
1394 D03A 2291 | STO FLDLG W1L22860
0001 2292 | XR1 EQU 1 W1L22870
2293 | * W1L22880
1395 C400 0001 2294 | LD L XR1 ACC POINTS TO START OF W1L22890
1397 9036 2295 | S IPREC *INPUT FLD W1L22900
2296 | * W1L22910
1398 7400 13D0R 2297 | MDX L ESW,0 TEST E-CONVERSION SW W1L22920
139A 7001 2298 | MDX *+1 SKIP- E-CONVERSION SW ON W1L22930
139B D026 2299 | STO INPT SET INPUT PT W1L22940
139C D006 2300 | STO ADDR SET ADDR SW W1L22950
139D 802F 2301 | A ISCAL ADD INPUT SCALE W1L22960
139E 802C 2302 | A DECPO+1 ADD NO. NON-DECML POS.-1 W1L22970
139F 90B5 2303 | S H1 W1L22980
13A0 D400 0001 2304 | STO L XR1 REG 1 PTS TO LAST WD OF FLD W1L22990
2305 | * W1L23000
13A2 C400 0000 2306 | LD L *-* TEST FOR NEGATIVE FLD W1L23010
13A3R 2307 | ADDR EQU *-1 W1L23020
13A4 4C10 13AAR 2308 | BSC L *+4,- BR-FLD POSITIVE W1L23030
13A6 688B 2309 | STX NEGSW FLD NEG,TURN ON NEG INDR W1L23040
13A7 F08B 2310 | EOR HFFFF TAKE ONE'S COMPLEMENT W1L23050
13A8 D480 13A3R 2311 | STO I ADDR RESTORE LAST WD-NOW POSITIVEW1L23060
2312 | * W1L23070
13AA 6317 2313 | LDX 3 /17 REG1=23,LOOP CONTROL W1L23080
13AB C084 2314 | LD HF0 LOAD POSITIVE ZONE W1L23090
13AC D700 1333R 2315 | STO L3 WORK1-1 SET WORK AREA TO ZONE W1L23100
13AE 73FF 2316 | MDX 3 -1 DECREMENT LOOP CONTROL W1L23110
13AF 70FC 2317 | MDX *-4 CONT LOOP W1L23120
2318 | * W1L23130
13B0 C017 2319 | LD WKADR REG3 PTS TO LAST WD OF WORK W1L23140
13B1 9019 2320 | S DECPO+1 AREA RESERVED FOR FRACTION- W1L23150
13B2 D400 0003 2321 | STO L XR3 *AL DGT W1L23160
0003 2322 | XR3 EQU 3 W1L23170
2323 | * W1L23180
13B4 C100 2324 | DCV1 LD 1 0 RETRIEVE DIGIT W1L23190
13B5 EC00 1330R 2325 | OR L HF0 OR ON POSITIVE SCALE W1L23200
13B7 D300 2326 | STO 3 0 SAVE DGT IN WORK AREA W1L23210
13B8 71FF 2327 | MDX 1 -1 ADJUST INPUT PT W1L23220
13B9 7301 2328 | MDX 3 1 ADJUST WORK AREA PT W1L23230
13BA 74FF 13CFR 2329 | MDX L FLDLG,-1 DECREMENT FLD LNG W1L23240
13BC 70F7 2330 | MDX DCV1 CONT CONVERSION W1L23250
13BD 6700 0000 2331 | DXR3 LDX L3 *-* RESTORE REG 3 W1L23260
13BF 4400 1528R 2332 | BSI L INSRT PUT CNVTED FLD IN O/P RCD W1L23270
2333 | * W1L23280
13C1 6500 0000 2334 | LDX L1 *-* REG1 =NEW INPUT PT W1L23290
13C2R 2335 | INPT EQU *-1 INPUT PT W1L23300
13C3 1010 2336 | SLA 16 TURN OFF E-CONVERSION SW W1L23310
13C4 D00B 2337 | STO ESW W1L23320
13C5 7204 2338 | MDX 2 4 UPDATE COMPRESSION PT W1L23330
13C6 4C80 1381R 2339 | BSC I DCNVT RETURN TO CALLER W1L23340
2340 | * W1L23350
2341 | * CONSTANTS W1L23360
2342 | * W1L23370
13C8 1342R 2343 | WKADR DC WORK1+14 WORK ADDR-1ST DECML DGT W1L23380
13C9 0009 2344 | D9 DC 9 CONSTANT 9 W1L23390
13CA 2345 | DECPO BSS 2 TEMP SAVE AREA W1L23400
13CC 000E 2346 | HE DC /E CONSTANT 14 W1L23410
13CD 2347 | ISCAL BSS 1 INPUT SCALE INDR W1L23420
13CE 2348 | IPREC BSS 1 INPUT PREC INDR W1L23430
13CF 2349 | FLDLG BSS 1 FLD LNG INDR W1L23440
13D0 0000 2350 | ESW DC 0 E-CONVERSION SW W1L23450
2351 | * W1L23460
2352 | *************************************************** W1L23470
2353 | * * W1L23480
2354 | * E-CONVERSION SUBR * W1L23490
2355 | * * W1L23500
2356 | *************************************************** W1L23510
2357 | * W1L23520
13D1 0000 2358 | ECNVT DC *-* ENTRY POINT W1L23530
13D2 C0FE 2359 | LD ECNVT SAVE RETURN ADDR IN D-CON- W1L23540
13D3 D0AD 2360 | STO DCNVT *VERSION ENTRY PT W1L23550
13D4 68FB 2361 | STX ESW TURN ON E-SW W1L23560
2362 | * W1L23570
13D5 C203 2363 | LD 2 3 W1L23580
13D6 1888 2364 | SRT 8 W1L23590
13D7 9400 1355R 2365 | S L H1 W1L23600
13D9 D0F4 2366 | STO IPREC SAVE INPUT PREC-1 W1L23610
13DA D0F4 2367 | STO FLDLG SAVE FLD LNG IN WDS W1L23620
2368 | * W1L23630
13DB 6BE2 2369 | STX 3 DXR3+1 SAVE REG 3 W1L23640
13DC 71FF 2370 | MDX 1 -1 W1L23650
2371 | * W1L23660
13DD C400 0001 2372 | LD L XR1 REG 3 PTS TO LAST WD OF W1L23670
13DF D400 0003 2373 | STO L XR3 *INPUT FLD W1L23680
2374 | * REG 2 PTS TO LAST WD OF W1L23690
13E1 6500 1516R 2375 | LDX L1 WORK2+199 *WORK AREA W1L23700
2376 | * W1L23710
13E3 C0EA 2377 | LD IPREC W1L23720
13E4 4C08 13F6R 2378 | BSC L E1,+ BR-INPUT PREC=1 W1L23730
13E6 10A0 2379 | SLT 32 CLEAR ACC & EXTENSION REG W1L23740
2380 | * W1L23750
13E7 C01B 2381 | E4 LD D4 SET CNT INDR TO 4 W1L23760
13E8 D0E1 2382 | STO DECPO W1L23770
13E9 C300 2383 | LD 3 0 LOAD INPUT WD - D4 FORMAT W1L23780
13EA 18CC 2384 | RTE 12 SAVE ONE DIGIT W1L23790
13EB D100 2385 | E5 STO 1 0 STORE IN D1 FORMAT W1L23800
13EC 74FF 13CER 2386 | MDX L IPREC,-1 DECREMENT PREC W1L23810
13EE 700B 2387 | MDX E3 BR-PREC NONZERO W1L23820
2388 | * W1L23830
2389 | * PREC HAS REACHED ZERO W1L23840
13EF 73FF 2390 | MDX 3 -1 *ADJUST INPUT PT W1L23850
13F0 C300 2391 | LD 3 0 SAVE LAST DGT AS D1 FORMAT W1L23860
13F1 D1FF 2392 | STO 1 -1 W1L23870
13F2 7580 13CFR 2393 | MDX I1 FLDLG INCR REG 1 BY CSP FLD LNG-1 W1L23880
2394 | * W1L23890
13F4 6BCD 2395 | E2 STX 3 INPT SAVE REG3 AS NEW INPUT PT W1L23900
13F5 708D 2396 | MDX DCNVT+2 PERFORM D1 CONVERSION W1L23910
2397 | * W1L23920
2398 | * W1L23930
13F6 C300 2399 | E1 LD 3 0 SAVE ONE DIGIT IN D1 W1L23940
13F7 D100 2400 | STO 1 0 *FORMAT W1L23950
13F8 7101 2401 | MDX 1 1 ADJUST NEW INPUT FLD PT W1L23960
13F9 70FA 2402 | MDX E2 CONTINUE CONVERSION W1L23970
2403 | * W1L23980
13FA 71FF 2404 | E3 MDX 1 -1 UPDATE WORK AREA PT W1L23990
13FB 74FF 13CAR 2405 | MDX L DECPO,-1 DECREMENT COUNT INDR W1L24000
13FD 7002 2406 | MDX *+2 BR-COUNT NONZERO W1L24010
13FE 73FF 2407 | MDX 3 -1 COUNT=0,ADJUST INPUT PT W1L24020
13FF 70E7 2408 | MDX E4 CONT CONVERSION TO D1 W1L24030
2409 | * W1L24040
1400 1010 2410 | SLA 16 CLEAR ACC W1L24050
1401 1084 2411 | SLT 4 SHIFT FOR NEW DIGIT W1L24060
1402 70E8 2412 | MDX E5 BR TO SAVE IN D1 AREA W1L24070
2413 | * W1L24080
2414 | * CONSTANTS W1L24090
2415 | * W1L24100
1403 0004 2416 | D4 DC 4 CONSTANT 4 W1L24110
2417 | * W1L24120
2418 | *************************************************** W1L24130
2419 | * * W1L24140
2420 | * F-CONVERSION SUBR * W1L24150
2421 | * * W1L24160
2422 | *************************************************** W1L24170
2423 | * W1L24180
1404 0041 2424 | H0041 DC /41 W1L24190
1405 0000 2425 | FCNVT DC *-* ENTRY PT W1L24200
1406 C201 2426 | LD 2 1 SAVE COLUMN PARAMETER OF W1L24210
1407 D043 2427 | STO COL *COMPRESSION W1L24220
1408 C203 2428 | LD 2 3 SAVE CHAR CNT W1L24230
1409 D042 2429 | STO WDCT W1L24240
2430 | * W1L24250
140A 9400 11C2R 2431 | F3 S L D3 W1L24260
140C 6C00 12C5R 2432 | STX L ALPHA TURN ON ALPHA SW W1L24270
140E 4C10 1414R 2433 | BSC L F4,- BR-CHAR CNT GT OR EQ 3 W1L24280
1410 C03B 2434 | LD WDCT SET COMPRESSION TO CONVERT W1L24290
1411 1008 2435 | SLA 8 *LESS THAN 3 CHARACTERS W1L24300
1412 E8F1 2436 | OR H0041 W1L24310
1413 D202 2437 | STO 2 2 W1L24320
1414R 2438 | F4 EQU * W1L24330
2439 | * W1L24340
1414 71FF 2440 | MDX 1 -1 ADJUST INPUT FLD PT W1L24350
1415 C100 2441 | LD 1 0 LOAD A3 INTEGER W1L24360
1416 691F 2442 | STX 1 FXR1+1 SAVE INPUT FLD PT W1L24370
1417 6500 06F9R 2443 | LDX L1 A3TAB REG1 POINTS TO A3 TABLE W1L24380
1419 4C10 141FR 2444 | BSC L F1,- BR-A3 INTEGER POSITIVE W1L24390
2445 | * W1L24400
2446 | * A3 INTEGER NEGATIVE W1L24410
141B 1890 2447 | SRT 16 *SHIFT ITG TO EXTENSION REG W1L24420
141C 882B 2448 | AD D32K CALCULATE FIRST A3 TABLE W1L24430
141D A82C 2449 | D D1600 *DISPLACEMENT W1L24440
141E 7003 2450 | MDX F2 CONTINUE CONVERSION W1L24450
2451 | * W1L24460
141F 1890 2452 | F1 SRT 16 SHIFT ITG TO EXTENSION REG W1L24470
1420 A829 2453 | D D1600 CALCULATE FIRST A3 TABLE W1L24480
1421 802C 2454 | A D20 *DISPLACEMENT W1L24490
2455 | * W1L24500
1422 D001 2456 | F2 STO *+1 SET UP TABLE LOAD W1L24510
1423 C500 0000 2457 | LD L1 *-* LOAD CHARACTER FROM TABLE W1L24520
1425 D02B 2458 | STO WORK2+2 SAVE CHAR W1L24530
2459 | * W1L24540
1426 1010 2460 | SLA 16 CALCULATE 2ND DISPLACEMENT W1L24550
1427 A825 2461 | D D40 W1L24560
1428 D001 2462 | STO *+1 SET UP TABLE LOAD W1L24570
1429 C500 0000 2463 | LD L1 *-* LOAD CHAR W1L24580
142B D024 2464 | STO WORK2+1 SAVE 2ND CHAR W1L24590
2465 | * W1L24600
142C 1090 2466 | SLT 16 CALCULATE 3RD DISPLACEMENT W1L24610
142D D001 2467 | STO *+1 SET UP TABLE LOAD W1L24620
142E C500 0000 2468 | LD L1 *-* LOAD CHAR W1L24630
1430 D01E 2469 | STO WORK2 SAVE 3RD CHAR W1L24640
2470 | * W1L24650
1431 6500 1451R 2471 | LDX L1 WORK2+2 REG1 PTS TO WORK AREA W1L24660
1433 4400 1528R 2472 | BSI L INSRT PUT CNVTED FLD IN O/P RCD W1L24670
2473 | * W1L24680
1435 6500 0000 2474 | FXR1 LDX L1 *-* RESTORE REG 1 W1L24690
1437 74FD 144CR 2475 | MDX L WDCT,-3 DECR CHAR CNT W1L24700
1439 7008 2476 | MDX F5 CONT CONVERSION W1L24710
143A C400 11B1R 2477 | LD L H0341 RESTORE COMPRESSION WORD W1L24720
143C D202 2478 | STO 2 2 W1L24730
2479 | * W1L24740
143D C00D 2480 | LD COL RESTORE COLUMN IN W1L24750
143E D201 2481 | STO 2 1 *COMPRESSION W1L24760
143F 7204 2482 | MDX 2 4 UPDATE COMPRESSION PT W1L24770
1440 4C80 1405R 2483 | BSC I FCNVT RETURN TO CALLER W1L24780
2484 | * W1L24790
1442R 2485 | F5 EQU * W1L24800
1442 C201 2486 | LD 2 1 ADD 3 TO COLUMN POSITION W1L24810
1443 8400 11C2R 2487 | A L D3 *IN COMPRESSION W1L24820
1445 D201 2488 | STO 2 1 W1L24830
1446 C005 2489 | LD WDCT GET CHAR CNT W1L24840
1447 70C2 2490 | MDX F3 CONVERT NEXT A3 INTEGER W1L24850
2491 | * W1L24860
2492 | *************************************************** W1L24870
2493 | * * W1L24880
2494 | * CONSTANTS AND SAVE AREAS * W1L24890
2495 | * * W1L24900
2496 | *************************************************** W1L24910
2497 | * W1L24920
1448 0000 7D00 2498 | D32K DEC 32000 CONSTANT 32000 E W1L24930
144A 0640 2499 | D1600 DC 1600 CONSTANT 1600 W1L24940
144B 2500 | COL BSS 1 COLUMN PARAMETER W1L24950
144C 2501 | WDCT BSS 1 NO. WDS PER ENTRY W1L24960
144D 0028 2502 | D40 DC 40 CONSTANT 40 W1L24970
144E 0014 2503 | D20 DC 20 CONSTANT 20 W1L24980
144F 2504 | WORK2 BSS 200 WORK AREA-200 WDS W1L24990
1517 0003 2505 | H3 DC 3 CONSTANT 3 W1L25000
1518 1342R 2506 | ADDR3 DC WORK1+14 WORK ADDR-1ST DECML DGT W1L25010
0002 2507 | XR2 EQU 2 W1L25020
1519 003F 2508 | H003F DC /003F USED TO SAVE BITS 10-15 W1L25030
2509 | * W1L25040
2510 | *************************************************** W1L25050
2511 | * * W1L25060
2512 | * INSRT SUBROUTINE * W1L25070
2513 | * * W1L25080
2514 | *************************************************** W1L25090
2515 | * W1L25100
151AR 2516 | IN130 EQU * W1L25110
151A C202 2517 | LD 2 2 RETRIEVE WD/ENT W1L25120
151B 1806 2518 | SRA 6 W1L25130
151C E0FA 2519 | AND H3 W1L25140
151D D400 1334R 2520 | STO L WORK1 SAVE WD/ENT W1L25150
2521 | * W1L25160
151F C06F 2522 | LD H2 W1L25170
1520 D073 2523 | STO SWH05 SET MAX NO. CHAR/WD W1L25180
2524 | * W1L25190
1521 C202 2525 | LD 2 2 SET CHARS PER ENTRY SW W1L25200
1522 E0F6 2526 | AND H003F W1L25210
1523 D071 2527 | STO CHRCT W1L25220
1524 D071 2528 | STO CHRCT+1 W1L25230
1525 7020 2529 | MDX IN020-3 CONT W1L25240
2530 | * W1L25250
1526R 2531 | IN010 EQU * W1L25260
1526 6869 2532 | STX SWH01 SET SW 1 ON W1L25270
1527 7021 2533 | MDX IN020 W1L25280
2534 | * W1L25290
2535 | * W1L25300
1528 0000 2536 | INSRT DC *-* ENTRY PT W1L25310
1529 695E 2537 | STX 1 INXR1+1 SAVE REG 1 W1L25320
152A 6A5F 2538 | STX 2 INXR2+1 SAVE REG 2 W1L25330
152B 6B60 2539 | STX 3 INXR3+1 SAVE REG 3 W1L25340
2540 | * W1L25350
152C C202 2541 | LD 2 2 FETCH O/P PREC W1L25360
152D 1808 2542 | SRA 8 W1L25370
152E D400 0003 2543 | STO L XR3 REG3= PRECISION W1L25380
2544 | * W1L25390
1530 4C04 1533R 2545 | BSC L *+1,E BR-PRECISION ODD W1L25400
1532 685F 2546 | STX SWH03 SET SW 3,PRECISION EVEN W1L25410
1533 7400 12C5R 2547 | MDX L ALPHA,0 SKIP-ALPHA SW OFF W1L25420
1535 70E4 2548 | MDX IN130 BR-ALPHA SW ON W1L25430
2549 | * W1L25440
1536 C202 2550 | LD 2 2 W1L25450
1537 1008 2551 | SLA 8 W1L25460
1538 4828 2552 | BSC +Z SKIP-PACK OPTION OFF W1L25470
1539 6857 2553 | STX SWH02 PACKED FLD,SET SW 2 W1L25480
2554 | * W1L25490
153A 1001 2555 | SLA 1 LOAD OUTPUT SCALE W1L25500
153B 1809 2556 | SRA 9 W1L25510
153C 80DB 2557 | A ADDR3 ADD START ADDR OF WORK +14 W1L25520
153D D007 2558 | STO ADDR4 SET ADDR FOR PACK ZONE SET W1L25530
153E 9400 0003 2559 | S L XR3 SUBTRACT PRECISION W1L25540
1540 D400 0001 2560 | STO L XR1 REG 1=START ADDR OF I/P FLD W1L25550
2561 | * W1L25560
1542 C400 128AR 2562 | LD L HF SET ZONE FOR PACK W1L25570
1544 D400 0000 2563 | STO L *-* W1L25580
1545R 2564 | ADDR4 EQU *-1 W1L25590
2565 | * W1L25600
1546 C201 2566 | LD 2 1 W1L25610
1547 4C04 1526R 2567 | BSC L IN010,E BR-DISPLACEMENT ODD W1L25620
1549 1801 2568 | IN020 SRA 1 DIVIDE BY 2 W1L25630
154A 8041 2569 | A INXR3+1 ADD START ADDR O/P AREA W1L25640
2570 | * REG 2 SET TO 1ST WORD IN W1L25650
154B D400 0002 2571 | STO L XR2 *OUTPUT RCD USED W1L25660
2572 | * W1L25670
154D C043 2573 | IN031 LD SWH02 W1L25680
154E 4C18 1552R 2574 | BSC L *+2,+- BR-SW 2 OFF W1L25690
1550 C101 2575 | LD 1 1 GET SECOND CHAR FOR PACK W1L25700
1551 1884 2576 | SRT 4 SHIFT INTO EXTENSION REG W1L25710
2577 | * W1L25720
1552 C100 2578 | LD 1 0 GET FIRST CHAR W1L25730
1553 7300 2579 | MDX 3 0 W1L25740
1554 7049 2580 | MDX IN030 BR-PREC NOT YET ZERO W1L25750
2581 | * W1L25760
1555 1888 2582 | IN040 SRT 8 PREC ZERO W1L25770
1556 7400 12C5R 2583 | MDX L ALPHA,0 W1L25780
1558 7001 2584 | MDX *+1 SKIP-ALPHA SW ON W1L25790
1559 7004 2585 | MDX IN050 BR-ALPHA SW OFF W1L25800
155A 7400 1593R 2586 | MDX L SWH04,0 SKIP- SW 4 OFF W1L25810
155C 7001 2587 | MDX *+1 W1L25820
155D 1888 2588 | SRT 8 W1L25830
2589 | * W1L25840
155E 7400 1590R 2590 | IN050 MDX L SWH01,0 SKIP-SW 1 OFF W1L25850
1560 704D 2591 | MDX IN060 BR-SW 1 ON W1L25860
1561 1888 2592 | SRT 8 PLACE LEFTHAND CHAR W1L25870
1562 C200 2593 | LD 2 0 *IN OUTPUT AREA W1L25880
1563 1008 2594 | SLA 8 W1L25890
1564 18C8 2595 | RTE 8 W1L25900
1565 D200 2596 | STO 2 0 W1L25910
1566 6829 2597 | STX SWH01 TURN ON SW 1 W1L25920
2598 | * W1L25930
1567 1010 2599 | IN051 SLA 16 W1L25940
1568 D029 2600 | STO SWH03 TURN OFF SW 3 W1L25950
1569 73FF 2601 | MDX 3 -1 DECREMENT REG 3 W1L25960
156A 702E 2602 | MDX IN070 BR-REG 3 GT 0 W1L25970
2603 | * W1L25980
156B 7400 1590R 2604 | MDX L SWH01,0 SKIP-SW1 OFF W1L25990
156D 7201 2605 | MDX 2 1 W1L26000
2606 | * W1L26010
156E C400 1332R 2607 | LD L NEGSW W1L26020
1570 4C18 157ER 2608 | BSC L IN080,+- BR-NEGATIVE INDR OFF W1L26030
1572 C2FF 2609 | LD 2 -1 W1L26040
1573 7400 1590R 2610 | MDX L SWH01,0 SKIP-SW1 OFF W1L26050
1575 1888 2611 | SRT 8 W1L26060
1576 7400 1591R 2612 | MDX L SWH02,0 SKIP-SW2 OFF W1L26070
1578 701E 2613 | MDX IN090 BR-SW2 ON W1L26080
2614 | * W1L26090
1579 E03C 2615 | AND HFFDF TURN ON NEGATIVE ZONE W1L26100
157A 7400 1590R 2616 | IN071 MDX L SWH01,0 SKIP-SW1 OFF W1L26110
157C 1088 2617 | SLT 8 W1L26120
157D D2FF 2618 | STO 2 -1 STORE LAST DATA WORD W1L26130
2619 | * W1L26140
157E 1010 2620 | IN080 SLA 16 W1L26150
157F D010 2621 | STO SWH01 TURN OFF SW 1 W1L26160
1580 D010 2622 | STO SWH02 TURN OFF SW 2 W1L26170
1581 D010 2623 | STO SWH03 TURN OFF SW 3 W1L26180
1582 D010 2624 | STO SWH04 TURN OFF SW 4 W1L26190
1583 D400 12C5R 2625 | STO L ALPHA TURN OFF ALPHA SW W1L26200
1585 D400 1332R 2626 | STO L NEGSW TURN OFF NEGATIVE INDR W1L26210
2627 | * W1L26220
1587 6500 0000 2628 | INXR1 LDX L1 *-* RESTORE REG 1 W1L26230
1589 6600 0000 2629 | INXR2 LDX L2 *-* RESTORE REG 2 W1L26240
158B 6700 0000 2630 | INXR3 LDX L3 *-* RESTORE REG 3 W1L26250
158D 4C80 1528R 2631 | BSC I INSRT RETURN TO CALLER W1L26260
2632 | * W1L26270
2633 | *************************************************** W1L26280
2634 | * * W1L26290
2635 | * CONSTANTS AND SAVE AREAS * W1L26300
2636 | * * W1L26310
2637 | *************************************************** W1L26320
2638 | * W1L26330
158F 0002 2639 | H2 DC 2 CONSTANT 2 W1L26340
1590 0000 2640 | SWH01 DC *-* COL SW-COL ODD=ON W1L26350
1591 0000 2641 | SWH02 DC *-* PACK SW-PACK=ON W1L26360
1592 0000 2642 | SWH03 DC *-* PREC SW-EVEN=ON W1L26370
1593 0000 2643 | SWH04 DC *-* ON=RIGHTHAND I/P CHAR W1L26380
1594 0000 2644 | SWH05 DC *-* NO. CHAR LEFT IN WORD W1L26390
1595 2645 | CHRCT BSS 2 TEMP SAVE AREA W1L26400
2646 | * W1L26410
2647 | * W1L26420
1597 E042 2648 | IN090 AND HFFFD TURN ON NEGATIVE ZONE W1L26430
1598 70E1 2649 | MDX IN071 W1L26440
2650 | * W1L26450
1599 7400 12C5R 2651 | IN070 MDX L ALPHA,0 W1L26460
159B 701B 2652 | MDX IN100 BR-ALPHA SW ON W1L26470
159C 7101 2653 | MDX 1 1 INCREMENT REG 1 W1L26480
159D 70AF 2654 | MDX IN031 CONT INSERT W1L26490
2655 | * W1L26500
159E 7400 1591R 2656 | IN030 MDX L SWH02,0 W1L26510
15A0 7001 2657 | MDX *+1 SKIP-SW 2 ON W1L26520
15A1 70B3 2658 | MDX IN040 BR-SW 2 OFF W1L26530
15A2 7400 1592R 2659 | MDX L SWH03,0 W1L26540
15A4 7001 2660 | MDX *+1 SKIP-SW 3 ON W1L26550
15A5 7003 2661 | MDX *+3 SKIP-SW 3 OFF W1L26560
15A6 E400 128AR 2662 | AND L HF KEEP RIGHTHAND DGT W1L26570
15A8 70AC 2663 | MDX IN040 CONT INSERT W1L26580
15A9 1884 2664 | SRT 4 SHIFT FOR DGT W1L26590
15AA 7101 2665 | MDX 1 1 INCR INPUT PT W1L26600
15AB 73FF 2666 | MDX 3 -1 DECR LOOP CONTROL W1L26610
15AC 70B1 2667 | MDX IN050 CONT INSERT W1L26620
15AD 70B0 2668 | MDX IN050 W1L26630
2669 | * W1L26640
2670 | * W1L26650
15AE 1010 2671 | IN060 SLA 16 W1L26660
15AF D0E0 2672 | STO SWH01 TURN OFF SW 1 W1L26670
15B0 C200 2673 | LD 2 0 W1L26680
15B1 1808 2674 | SRA 8 PLACE RIGHTHAND CHAR W1L26690
15B2 1088 2675 | SLT 8 *IN OUTPUT AREA W1L26700
15B3 D200 2676 | STO 2 0 W1L26710
15B4 7201 2677 | MDX 2 1 INCREMENT REG 2 W1L26720
15B5 70B1 2678 | MDX IN051 TEST FOR MORE CHARACTERS W1L26730
2679 | * W1L26740
2680 | * CONSTANTS W1L26750
2681 | * W1L26760
15B6 FFDF 2682 | HFFDF DC /FFDF W1L26770
2683 | * W1L26780
15B7R 2684 | IN100 EQU * W1L26790
15B7 74FF 1594R 2685 | MDX L SWH05,-1 DECREMENT NO. CHAR/WD W1L26800
15B9 7001 2686 | MDX *+1 SKIP W1L26810
15BA 701B 2687 | MDX IN150 NO. CHAR/WD EXHAUSTED W1L26820
2688 | * W1L26830
15BBR 2689 | IN160 EQU * W1L26840
15BB 74FF 1595R 2690 | MDX L CHRCT,-1 DECREMENT WD/ENT W1L26850
15BD 700E 2691 | MDX IN110 BR-WD/ENT NONZERO W1L26860
2692 | * W1L26870
15BE C400 1588R 2693 | LD L INXR1+1 ADJUST REG 1 TO PT TO NEXT W1L26880
15C0 9400 1334R 2694 | S L WORK1 *ENTRY W1L26890
15C2 D400 0001 2695 | STO L XR1 W1L26900
15C4 D0C3 2696 | STO INXR1+1 W1L26910
2697 | * W1L26920
15C5 C0D0 2698 | LD CHRCT+1 RESTORE WD/ENT W1L26930
15C6 D0CE 2699 | STO CHRCT W1L26940
2700 | * W1L26950
15C7 1010 2701 | SLA 16 W1L26960
15C8 D0CA 2702 | STO SWH04 TURN OFF SW 4 W1L26970
15C9 C0C5 2703 | LD H2 W1L26980
15CA D0C9 2704 | STO SWH05 RESTORE MAX NO. CHAR/WD W1L26990
15CB 7081 2705 | MDX IN031 CONT INSERT W1L27000
2706 | * W1L27010
15CCR 2707 | IN110 EQU * W1L27020
15CC C0C6 2708 | LD SWH04 TEST SW 4 W1L27030
15CD 4C20 15D2R 2709 | BSC L IN120,Z BR-SW 4 ON W1L27040
15CF 68C3 2710 | STX SWH04 SET SW 4 W1L27050
15D0 4C00 154DR 2711 | BSC L IN031 CONT INSERT W1L27060
2712 | * W1L27070
15D2R 2713 | IN120 EQU * W1L27080
15D2 1010 2714 | SLA 16 TURN OFF SW 4 W1L27090
15D3 D0BF 2715 | STO SWH04 W1L27100
15D4 4C00 154DR 2716 | BSC L IN031 CONT INSERT W1L27110
2717 | * W1L27120
15D6 7101 2718 | IN150 MDX 1 1 INCREMENT REG 1 W1L27130
15D7 C0B7 2719 | LD H2 SET MAX NO. CHAR/WD W1L27140
15D8 D0BB 2720 | STO SWH05 W1L27150
15D9 70E1 2721 | MDX IN160 CONT INSERT W1L27160
2722 | * W1L27170
2723 | * CONSTANTS W1L27180
2724 | * W1L27190
15DA FFFD 2725 | HFFFD DC /FFFD W1L27200
2726 | *************************************************** W1L27210
2727 | * * W1L27220
2728 | * R-CONVERSION SUBR * W1L27230
2729 | * * W1L27240
2730 | *************************************************** W1L27250
15DB 0000 2731 | RCNVT DC *-* ENTRY PT W1L27260
15DC 6E00 1681R 2732 | STX L2 R0010+1 SAVE REG 2 W1L27270
15DE 6F00 1683R 2733 | STX L3 R0020+1 SAVE REG 3 W1L27280
15E0 6780 0C73R 2734 | LDX I3 RXR3+1 REG 3 PTS TO TV W1L27290
2735 | * W1L27300
15E2 C400 1260R 2736 | LD L EPREC W1L27310
15E4 4C18 15EBR 2737 | BSC L R0030,+- BR-STD PREC SPECIFIED W1L27320
15E6 71FD 2738 | MDX 1 -3 DECR I/P FLD PT W1L27330
2739 | * W1L27340
15E7 6901 2740 | STX 1 *+1 SET ELD CALLING SEQ W1L27350
15E8 054C*4000 2741 | LIBF ELD LOAD FAC WITH NO. W1L27360
15E9 0000 2742 | DC *-* W1L27370
15EA 7007 2743 | MDX R0040 CONT CONVERSION W1L27380
2744 | * W1L27390
15EBR 2745 | R0030 EQU * W1L27400
15EB 71FE 2746 | MDX 1 -2 DECR I/P FLD PT W1L27410
15EC C101 2747 | LD 1 1 FETCH REAL NO. W1L27420
15ED 1890 2748 | SRT 16 W1L27430
15EE C100 2749 | LD 1 0 W1L27440
15EF D86A 2750 | STD R0906 SAVE REAL NO. W1L27450
15F0 064C*4000 2751 | LIBF FLD LOAD FAC WITH NO. W1L27460
15F1 165AR 2752 | DC R0906 W1L27470
2753 | * W1L27480
15F2R 2754 | R0040 EQU * W1L27490
15F2 6D00 167FR 2755 | STX L1 R0050+1 SAVE REG 1 W1L27500
15F4 1559*9500 2756 | LIBF NORM NORMALIZE NO. IN FAC W1L27510
2757 | * W1L27520
15F5 C37D 2758 | LD 3 R0900 RETRIEVE EXPONENT W1L27530
15F6 9051 2759 | S R0901 SUBTRACT 127 W1L27540
15F7 D053 2760 | STO WORK3 SAVE EXPONENT W1L27550
2761 | * W1L27560
15F8 C202 2762 | LD 2 2 RETRIEVE O/P PRECISION W1L27570
15F9 1888 2763 | SRT 8 W1L27580
15FA D051 2764 | STO WORK3+1 SAVE O/P PRECISION W1L27590
2765 | * W1L27600
15FB 18CF 2766 | RTE 15 RETRIEVE O/P SCALE W1L27610
15FC 1809 2767 | SRA 9 W1L27620
15FD D04F 2768 | STO WORK3+2 SAVE O/P SCALE W1L27630
2769 | * W1L27640
15FE C04D 2770 | LD WORK3+1 COMPUTE NO. NONDECIMAL W1L27650
15FF 904D 2771 | S WORK3+2 *POSITIONS W1L27660
1600 D04D 2772 | STO WORK3+3 SAVE NO. NONDECIMAL POS. W1L27670
2773 | * W1L27680
1601 6117 2774 | LDX 1 /17 REG 1 = LOOP CONTROL W1L27690
1602 C400 1330R 2775 | LD L HF0 LOAD ZERO W1L27700
1604 D500 1333R 2776 | R0041 STO L1 WORK1-1 FILL WORK WITH ZERO W1L27710
1606 71FF 2777 | MDX 1 -1 DECR LOOP CNT W1L27720
1607 70FC 2778 | MDX R0041 CONT FILLING WORK W1L27730
2779 | * W1L27740
1608 62F8 2780 | LDX 2 -8 REG 2=LOOP CNT W1L27750
1609 1010 2781 | SLA 16 ZERO ACC W1L27760
160A D600 1658R 2782 | R0042 STO L2 R0903+8 ZERO BUFFER W1L27770
160C 7201 2783 | MDX 2 1 DECR LOOP CNT W1L27780
160D 70FC 2784 | MDX R0042 CONT FILLING BUFFER W1L27790
2785 | * W1L27800
160E CB7E 2786 | LDD 3 R0902 LOAD MANTISSA W1L27810
160F 4C18 167ER 2787 | BSC L R0050,+- BR-MANTISSA ZERO W1L27820
2788 | * W1L27830
1611 4C10 1617R 2789 | BSC L R0060,- BR-MANTISSA POSITIVE W1L27840
2790 | * W1L27850
1613 6C00 1332R 2791 | STX L NEGSW SET NEGATIVE SW W1L27860
1615 10A0 2792 | SLT 32 COMPUTE ABS VAL OF MANTISSA W1L27870
1616 9B7E 2793 | SD 3 R0902 W1L27880
1617 D83C 2794 | R0060 STD R0904+1 SAVE MANTISSA-ABS VAL W1L27890
1618 C82B 2795 | LDD R0907 GET STD PREC ROUND BITS W1L27900
1619 7400 1260R 2796 | MDX L EPREC,0 SKIP-STD PREC SPECIFIED W1L27910
161B C82A 2797 | LDD R0907+2 GET EXTENDED PREC ROUND BIT W1L27920
161C 188F 2798 | SRT 15 W1L27930
161D 8836 2799 | AD R0904+1 ADD CONVERSION NO. W1L27940
161E 4828 2800 | BSC +Z SKIP IF NO OVERFLOW W1L27950
161F 7002 2801 | MDX *+2 BR-OVERFLOW OCCURS W1L27960
1620 D833 2802 | STD R0904+1 SAVE NO.-NO OVERFLOW W1L27970
1621 7007 2803 | MDX R0067 CONT WITH CONVERSION W1L27980
1622 1881 2804 | SRT 1 W1L27990
1623 F023 2805 | EOR R0907+3 TURN OFF SIGN BIT W1L28000
1624 D82F 2806 | STD R0904+1 SAVE ROUNDED DATA W1L28010
1625 C37D 2807 | LD 3 R0900 ADD ONE TO EXPONENT W1L28020
1626 8400 11C0R 2808 | A L D1 W1L28030
1628 D37D 2809 | STO 3 R0900 W1L28040
1629R 2810 | R0067 EQU * W1L28050
1629 7010 2811 | MDX FBTN2 BR TO GET PROPER FORM W1L28060
2812 | * W1L28070
2813 | * THIS SECT SCALES MANTISSA SO THAT BINARY PT W1L28080
2814 | * *IS BETWEEN WDS 1 AND 2 OF R0904 BUFFER. MAN- W1L28090
2815 | * *TISSA IS KEPT CENTERED BY MULTIPLYING. W1L28100
2816 | * W1L28110
162A C020 2817 | FBTN0 LD WORK3 GET SCALED EXPONENT W1L28120
162B 4C18 166AR 2818 | BSC L FBNX0,+- GO TO OUTPUT IF ZERO W1L28130
162D 4C28 1635R 2819 | BSC L FBNM0,+Z DO SHIFT RT IF NEG W1L28140
162F 4400 16FAR 2820 | BSI L SLT00 OTHERWISE SHIFT LEFT W1L28150
1631 74FF 164BR 2821 | MDX L WORK3,-1 DECR EXPONENT W1L28160
1633 1000 2822 | NOP W1L28170
1634 7005 2823 | MDX FBTN2 W1L28180
2824 | * W1L28190
1635 4400 16EDR 2825 | FBNM0 BSI L SRT00 BR TO SHIFT RT SUBR W1L28200
1637 7401 164BR 2826 | MDX L WORK3,1 INCR EXPONENT FOR SHIFT RT W1L28210
1639 1000 2827 | NOP W1L28220
2828 | * W1L28230
2829 | * THIS SECTION CALLS THE MPY BY 10 SUBR TO GET W1L28240
2830 | * *1 ITG DGT AND PROPER EXPONENT W1L28250
2831 | * W1L28260
163A C018 2832 | FBTN2 LD R0904 GET THE CARRY WORD W1L28270
163B 4C20 1661R 2833 | BSC L FBTN1,Z BR TO DIVIDE BY 10-NONZERO W1L28280
163D 4400 16D8R 2834 | BSI L MPY00 MULTIPLY BY 10 AND CNT W1L28290
163F 74FF 1652R 2835 | MDX L R0905,-1 W1L28300
1641 1000 2836 | NOP W1L28310
1642 70F7 2837 | MDX FBTN2 REPEAT W1L28320
2838 | *************************************************** W1L28330
2839 | * * W1L28340
2840 | * CONSTANTS AND SAVE AREAS * W1L28350
2841 | * * W1L28360
2842 | *************************************************** W1L28370
1644 2843 | BSS E 0 FORCE EVEN ADDR W1L28380
1644 0081 2844 | R0907 DC /0081 ROUND CONSTANT E W1L28390
1645 8000 2845 | DC /8000 W1L28400
1646 0000 2846 | DC 0 ROUND CONSTANT E W1L28410
1647 8000 2847 | DC /8000 W1L28420
007D 2848 | R0900 EQU 125 DISP TO EXPONENT W1L28430
1648 007F 2849 | R0901 DC /7F W1L28440
007E 2850 | R0902 EQU 126 DISP TO MANTISSA W1L28450
164A 2851 | BSS E 0 W1L28460
164A 0000 2852 | DC *-* NOT USED W1L28470
164B 2853 | WORK3 BSS 14 O W1L28480
1650R 2854 | R0903 EQU WORK3+5 W1L28490
1653R 2855 | R0904 EQU WORK3+8 W1L28500
1652R 2856 | R0905 EQU WORK3+7 W1L28510
165A 2857 | R0906 BSS E 2 W1L28520
2858 | * W1L28530
2859 | * CONSTANTS FOR FBTN2 W1L28540
2860 | * W1L28550
165C 000A 2861 | FBCN0 DC 10 W1L28560
165D 0000 2862 | DC *-* W1L28570
165E 00F9 2863 | DC .9 W1L28580
165F 1341R 2864 | DC WORK1+13 W1L28590
1660 00F0 2865 | DC .0 W1L28600
2866 | * W1L28610
2867 | * THIS SECT CALLS DIVIDE BY 10 SUBR TO GET W1L28620
2868 | * *1 ITG DGT AND PROPER EXPONENT W1L28630
2869 | * W1L28640
1661 C0F1 2870 | FBTN1 LD R0904 CHECK CARRY AGAINST 10 W1L28650
1662 90F9 2871 | S FBCN0 W1L28660
1663 4C28 162AR 2872 | BSC L FBTN0,+Z LT 10,GO SCALE MANTISSA W1L28670
1665 405D 2873 | BSI DIV00 GT 10,BR TO DIVIDE SUBR W1L28680
1666 7401 1652R 2874 | MDX L R0905,1 KEEP TRACK OF POWERS OF 10 W1L28690
1668 1000 2875 | NOP W1L28700
1669 70F7 2876 | MDX FBTN1 REPEAT W1L28710
2877 | * W1L28720
2878 | * THIS SECTION CHECK FOR VALID EXPONENT AND W1L28730
2879 | * *FILLS WORK AREA IF NECESSARY W1L28740
2880 | * W1L28750
166A C0E7 2881 | FBNX0 LD R0905 TEST FOR PROPER EXPONENT W1L28760
166B 8400 11C0R 2882 | A L D1 W1L28770
166D 90E0 2883 | S WORK3+3 W1L28780
166E 4C08 16ABR 2884 | BSC L R0070,+ BR-EXPONENT VALID W1L28790
2885 | * W1L28800
1670 6117 2886 | LDX 1 /17 SET LOOP CONTROL CTR W1L28810
1671 C0EC 2887 | LD FBCN0+2 W1L28820
1672 D500 1333R 2888 | R0061 STO L1 WORK1-1 FILL WORK WITH NINE W1L28830
1674 71FF 2889 | MDX 1 -1 DECR LOOP CONTROL CTR W1L28840
1675 70FC 2890 | MDX R0061 CONT TO FILL WORK W1L28850
2891 | * W1L28860
1676R 2892 | R0062 EQU * W1L28870
1676 C033 2893 | LD FC998 LOAD RANGE MSG SW W1L28880
1677 4C18 167ER 2894 | BSC L R0050,+- BR-MSG BYPASSED W1L28890
1679 7010 2895 | MDX R0063 FILL RCD CNT INTO ERROR MSG W1L28900
167A 6680 1681R 2896 | R0066 LDX I2 R0010+1 RESTORE REG 2 W1L28910
167C 4400 1262R 2897 | BSI L TRUNK BUILD AND PRINT MSG W1L28920
167E 6500 0000 2898 | R0050 LDX L1 *-* RESTORE REG 1 W1L28930
1680 6600 0000 2899 | R0010 LDX L2 *-* RESTORE REG 2 W1L28940
1682 6700 0000 2900 | R0020 LDX L3 *-* RESTORE REG 3 W1L28950
1684 4400 1528R 2901 | BSI L INSRT W1L28960
2902 | * W1L28970
2903 | * W1L28980
2904 | * W1L28990
1686 7203 2905 | MDX 2 3 ADJUST COMPRESSION PT W1L29000
1687 4C80 15DBR 2906 | BSC I RCNVT RETURN TO CALLER W1L29010
1689 000A 2907 | FBCN1 DC 10 W1L29020
168AR 2908 | R0063 EQU * W1L29030
168A 6204 2909 | LDX 2 4 REG 2=CHAR CNT IN TOT W1L29040
168B C0BE 2910 | LD WORK3-1 W1L29050
168C 9400 108DR 2911 | S L RCDCT W1L29060
168E 8400 11C0R 2912 | A L D1 W1L29070
1690 1890 2913 | SRT 16 W1L29080
1691 1010 2914 | R0064 SLA 16 W1L29090
1692 A8C9 2915 | D FBCN0 RETRIEVE DECML DGT W1L29100
1693 18D0 2916 | RTE 16 W1L29110
1694 E8CB 2917 | OR FBCN0+4 ADD ZONE TO DECML DGT W1L29120
1695 D600 164BR 2918 | STO L2 WORK3 SAVE DECML DGT IN WORK W1L29130
1697 72FF 2919 | MDX 2 -1 W1L29140
1698 70F8 2920 | MDX R0064 W1L29150
1699 1090 2921 | SLT 16 PLACE DECML DGTS IN W1L29160
169A E8C5 2922 | OR FBCN0+4 *WARNING MSG W1L29170
169B 6500 12B8R 2923 | LDX L1 MESSA+23 FETCH AND SAVE HIGH ORDER W1L29180
169D E900 2924 | OR 1 0 *DGT IN ERROR MSG W1L29190
169E D100 2925 | STO 1 0 W1L29200
169F 6203 2926 | LDX 2 3 W1L29210
16A0 C600 164BR 2927 | R0065 LD L2 WORK3 FETCH AND SAVE REMAINING W1L29220
16A2 1008 2928 | SLA 8 *DGTS TWO AT A TIME W1L29230
16A3 EE00 164CR 2929 | OR L2 WORK3+1 W1L29240
16A5 D102 2930 | STO 1 2 W1L29250
16A6 71FF 2931 | MDX 1 -1 ADJUST STORE ADDR FOR FILL W1L29260
16A7 72FE 2932 | MDX 2 -2 DECR LOOP CONTROL FOR FILL W1L29270
16A8 70F7 2933 | MDX R0065 CONT FILL LOOP W1L29280
16A9 70D0 2934 | MDX R0066 GO PRINT ERROR MSG W1L29290
16AA 0000 2935 | FC998 DC *-* RANGE MSG SW W1L29300
2936 | * W1L29310
2937 | * THIS SECT CONTINUES CHECK ON DECML EXPONENT W1L29320
2938 | * *AND RETRIEVES 1ST DGT IF EXPONENT IS VALID W1L29330
2939 | * W1L29340
16ABR 2940 | R0070 EQU * W1L29350
16AB C0A6 2941 | LD R0905 TEST DECML EXPONENT W1L29360
16AC 80AF 2942 | A FBCN0 W1L29370
16AD 4C08 1676R 2943 | BSC L R0062,+ BR-EXPONENT INVALID W1L29380
2944 | * W1L29390
2945 | * CALCULATE WORK AREA ADDR W1L29400
2946 | * W1L29410
16AF C0AF 2947 | LD FBCN0+3 CALCULATE WORK ADDR AT W1L29420
16B0 90A1 2948 | S R0905 *WHICH FILL BEGINS W1L29430
16B1 D00D 2949 | STO R0080+1 SAVE STARTING WORK ADDR W1L29440
2950 | * W1L29450
16B2 C0A0 2951 | LD R0904 GET 1ST DGT W1L29460
16B3 80AC 2952 | A FBCN0+4 ADD ZONE TO DGT W1L29470
16B4 D480 16BFR 2953 | STO I R0080+1 SAVE 1ST DGT W1L29480
16B6 740A 16BFR 2954 | MDX L R0080+1,10 W1L29490
16B8 61F7 2955 | LDX 1 -9 W1L29500
2956 | * W1L29510
2957 | * GENERATE AND SAVE FRACTIONAL DGTS W1L29520
2958 | * W1L29530
16B9 1010 2959 | FBNX2 SLA 16 CLEAR CARRY WD OF R0904 W1L29540
16BA D098 2960 | STO R0904 *BUFFER W1L29550
16BB 401C 2961 | BSI MPY00 BR TO MPY BY 10 SUBR W1L29560
16BC C096 2962 | LD R0904 GET RESULTING DGT W1L29570
16BD 80A2 2963 | A FBCN0+4 ADD ZONE TO DGT W1L29580
16BE D500 0000 2964 | R0080 STO L1 *-* OUTPUT FRACTIONAL DGT W1L29590
16C0 7101 2965 | MDX 1 1 MODIFY CTR FOR RETURN W1L29600
16C1 70F7 2966 | MDX FBNX2 GO CALC NEXT DGT W1L29610
16C2 70BB 2967 | MDX R0050 INSERT FLD INTO RPG RCD W1L29620
2968 | * W1L29630
2969 | * SUBR TO DIVIDE 5-PRECISION NO. IN R0904 W1L29640
2970 | * *BUFFER BY 10 W1L29650
2971 | * W1L29660
16C3 0000 2972 | DIV00 DC *-* ENTRY PT W1L29670
16C4 10A0 2973 | SLT 32 CLEAR ACC AND EXTENSION W1L29680
16C5 62FB 2974 | LDX 2 -5 SET CTR W1L29690
16C6 C600 1658R 2975 | DIV01 LD L2 R0904+5 GET NEXT WD W1L29700
16C8 18D0 2976 | RTE 16 SUBTRACT 5 FROM EXTENSION W1L29710
16C9 903D 2977 | S FLCN0 W1L29720
16CA 2002 2978 | LDS 2 TURN ON CARRY W1L29730
16CB 4828 2979 | BSC +Z BR IF GT 5 W1L29740
16CC 903B 2980 | S FLCN0+1 IF LT 5,RESTORE 5 W1L29750
16CD 2801 2981 | STS DIV02 *AND TURN OFF CARRY W1L29760
16CE A88D 2982 | D FBCN0 DIVIDE BY 10 W1L29770
16CF 2000 2983 | DIV02 LDS *-* GET STATUS W1L29780
16D0 4802 2984 | BSC C IF LT 5,BR TO ST QUOTIENT W1L29790
16D1 8037 2985 | A FLCN0+2 IF GT 5,ADD /8000 W1L29800
16D2 D600 1658R 2986 | STO L2 R0904+5 STORE QUOTIENT W1L29810
16D4 7201 2987 | MDX 2 1 DECR CTR FOR RET W1L29820
16D5 70F0 2988 | MDX DIV01 REPEAT LOOP W1L29830
16D6 4C80 16C3R 2989 | BSC I DIV00 RETURN W1L29840
2990 | * W1L29850
2991 | * SUBR TO MPY 5-PREC NO. IN R0904 BUFFER BY 10. W1L29860
2992 | * W1L29870
2993 | * *CONTENTS OF R0903+1 ARE ADDED TO RESULT. W1L29880
16D8 0000 2994 | MPY00 DC *-* ENTRY PT W1L29890
16D9 6205 2995 | LDX 2 5 SET CTR W1L29900
16DA C600 1652R 2996 | MPY01 LD L2 R0904-1 GET A WORD OF R0904 BUFFER W1L29910
16DC A400 165CR 2997 | M L FBCN0 MPY BY 10 W1L29920
16DE 4828 2998 | BSC +Z BR IF PTV,ZERO W1L29930
16DF 80A9 2999 | A FBCN1 IF NEG,ADD10 W1L29940
16E0 8C00 1650R 3000 | AD L R0903 ADD PREVIOUS EXCESS W1L29950
16E2 D400 1651R 3001 | STO L R0903+1 STORE PRESENT EXCESS W1L29960
16E4 1090 3002 | SLT 16 FETCH EXTENSION-PRODUCT W1L29970
16E5 D600 1652R 3003 | STO L2 R0904-1 PUT PRODUCT BACK IN R0904 W1L29980
16E7 72FF 3004 | MDX 2 -1 DECR CTR FOR RET W1L29990
16E8 70F1 3005 | MDX MPY01 REPEAT LOOP W1L30000
16E9 C400 1651R 3006 | LD L R0903+1 STORE LAST EXCESS IN ACC W1L30010
16EB 4C80 16D8R 3007 | BSC I MPY00 RETURN W1L30020
3008 | * W1L30030
3009 | * SUBR TO SHIFT RIGHT ONE BIT(THROUGH WORD W1L30040
3010 | * *BOUNDARIES) OF R0904 BUFFER. W1L30050
3011 | * W1L30060
16ED 0000 3012 | SRT00 DC *-* ENTRY PT W1L30070
16EE 62FB 3013 | LDX 2 -5 SET CTR W1L30080
16EF 10A0 3014 | SLT 32 CLEAR ACC AND EXTENSION W1L30090
16F0 C600 1658R 3015 | SRT01 LD L2 R0904+5 GET A WORD W1L30100
16F2 18C1 3016 | RTE 1 SHIFT LAST BIT OF ACC TO W1L30110
16F3 D600 1658R 3017 | STO L2 R0904+5 *FIRST OF EXT AND VICE VERSAW1L30120
16F5 18CF 3018 | RTE 15 POS EXTENSION BIT W1L30130
16F6 7201 3019 | MDX 2 1 DECR CTR FOR RET W1L30140
16F7 70F8 3020 | MDX SRT01 REPEAT LOOP W1L30150
16F8 4C80 16EDR 3021 | BSC I SRT00 RETURN W1L30160
3022 | * W1L30170
3023 | * SUBR TO SHIFT LEFT ONE BIT(THROUGH WORD W1L30180
3024 | * *BOUNDARIES) OF R0904 BUFFER. W1L30190
3025 | * W1L30200
16FA 0000 3026 | SLT00 DC *-* ENTRY PT W1L30210
16FB 6205 3027 | LDX 2 5 SET CTR W1L30220
16FC 10A0 3028 | SLT 32 CLEAR ACC AND EXTENSION W1L30230
16FD C600 1652R 3029 | SLT01 LD L2 R0904-1 GET A WORD W1L30240
16FF 18DF 3030 | RTE 31 EFFECTIVE ROTATE LEFT ONE W1L30250
1700 D600 1652R 3031 | STO L2 R0904-1 REPLACE SHIFTED WORD W1L30260
1702 108F 3032 | SLT 15 POSITION EXTENSION W1L30270
1703 72FF 3033 | MDX 2 -1 DECR CTR FOR RETURN W1L30280
1704 70F8 3034 | MDX SLT01 REPEAT LOOP W1L30290
1705 4C80 16FAR 3035 | BSC I SLT00 RETURN W1L30300
3036 | * W1L30310
3037 | * CONSTANTS W1L30320
3038 | * W1L30330
1707 0005 3039 | FLCN0 DC 5 W1L30340
1708 FFFB 3040 | DC -5 W1L30350
1709 8000 3041 | DC /8000 W1L30360
170A 3042 | BSS 299 PATCH AREA W1L30370
1835 0000 3043 | DC 0 W1L30380
1836 3044 | END FC000 W1L30390
There were no errors in this assembly
Program transfer address = 0C5F
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$CTSW 000F 388 475
$FPAD 0095 739 740
$I410 00D5 566 583
$IBSY 0013 299 470 487
$IBT4 00D4 297 414
$IREQ 002C 567 655 658 731 733
$KCSW 007C 252 356
$LAST 0033 300 477
$LEV0 0008 386 410 461
$LEV4 000C 387 412
$PBSY 0036 389 479
$PST4 008D 296 284 285 286 287
$ULET 002D 983 1077
'BLCT 0002 962 1107
'LFEN 0003 964 1143
'LFHD 0005 989 990 1107 1113 1118 1125
'LFNM 0000 963 1113 1118 1125
'MXDR 0005 984 1076 1077
'NEXT 0004 965 1153 1159
'SCTN 0000 986 1091
'UAFX 0001 991 1099
'WDSA 0003 988 1104
A3FLD 06E8R 225 547
A3SW 06F8R 246 225 227 626
A3TAB 06F9R 247 234 2443
ADDR 13A3R 2307 2300 2311
ADDR1 108ER 1499 1685
ADDR2 0E4FR 845 801
ADDR3 1518R 2506 2557
ADDR4 1545R 2564 2558
ADDR5 1022R 1381 1389
ALPHA 12C5R 2100 2089 2432 2547 2583 2625 2651
BCNVT 12B4R 2088 1847 2099
BFLD 11C6R 1866 1800
BUF00 0330R 212 282 290 291 292 301 312 316 341 348 355 400
BUF01 04A6R 215 298 423 424
BUF02 0564R 216 283 289 449 450 1289
BUF03 0698R 218 232 385 508 511 533 537 553 805 866 1188 1207 1381
1427 1434 1444 1499
BUF04 0D24R 571 506 1285
BUF05 0076R 208 640 647 653 675 701 708 709 762 766 1071 1131 1152
1210
BUF06 01B8R 210 644 668 676 787 788 845 1195
C1 120AR 1935 1918
C10 101DR 1369 1337
C1XR2 1071R 1465 1460
C2XR2 1083R 1486 1477
CARDS 0D52R 579 665 933 1189 1235
CDCOL 0E4ER 844 792 802 827 828
CDCV 04A9R 298 497
CDDSK 0E12R 778 666
CFLD 1206R 1930 1801
CHECK 0FBER 1254 1239 1246 1264
CHRCT 1595R 2645 2527 2528 2690 2698 2699
CNT1 0D4FR 576 674 747
CNT2 0D50R 577 695 707 1228
CNT3 0E50R 846 799 824
COL 144BR 2500 2427 2480
COLMN 108AR 1495 1387 1388 1680 1707
COMMA 10F5R 1630 1693
COMPR 0721R 249 678 1448
CONV1 1069R 1459 1466 1668 1729 1769 1814 1884 1950 1966
CONV2 1077R 1476 1489 1563 1607 1997
CONVT 0FE7R 1306 871 883 896 1351 1359 1462 1479
CSW 1205R 1929 1917 1932 1940
CV000 101FR 1371 876 1338
CV001 101ER 1370 1334 1340
CV002 0FF9R 1324 1311 1344
CV003 100DR 1348 1321 1367
CV004 0FF2R 1318 1349
CV005 1015R 1358 1304 1327 1330 1345 1368
CV006 1018R 1361 1312
CV007 100CR 1346 1316 1355
CV008 101BR 1367 1315
CV009 101CR 1368 1354
D 0D22R 569 534 538
D0000 1375R 2249 2194
D1 11C0R 1862 1770 1831 1871 2034 2808 2882 2912
D10 1331R 2221 1393 1616 2042 2255
D14 1158R 1736 1481
D1600 144AR 2499 2449 2453
D2 11C1R 1863 1518 1604 1793 1877 1919 1937
D20 144ER 2503 2454
D3 11C2R 1864 546 1145 1826 1875 2092 2431 2487
D320 0F6ER 1169 830 886 1201 1225
D32K 1448R 2498 2448
D4 1403R 2416 1935 1954 2381
D40 144DR 2502 2461
D5 116BR 1757 1575 1795
D54 0E4CR 842 798 835
D6 121FR 1962 1952
D640 0E51R 847 899
D9 13C9R 2344
DCNVT 1381R 2270 1848 2339 2360 2396
DCV1 13B4R 2324 2330
DD1 1354R 2226
DECPO 13CAR 2345 2279 2283 2287 2289 2290 2302 2320 2382 2405
DFLD 1220R 1963 1853
DGT 1376R 2253 2150 2200 2205 2213 2261 2262
DIAGS 0D51R 578 619 630 635 1406
DIV00 16C3R 2972 2873 2989
DIV01 16C6R 2975 2988
DIV02 16CFR 2983 2981
DXR3 13BDR 2331 2271 2369
E 0ECCR 958 905
E1 13F6R 2399 2378
E2 13F4R 2395 2402
E3 13FAR 2404 2387
E4 13E7R 2381 2408
E5 13EBR 2385 2412
ECNVT 13D1R 2358 1849 2359
EFLD 1215R 1948 1854
EPREC 1260R 2024 908 1558 1600 1873 1936 2127 2736 2796
EQ 128ER 2075 1993
ERR01 0C5CR 322 313 323 763
ESW 13D0R 2350 2297 2337 2361
EXIT 0DF8R 734 476 478 636 857
EXTRA 0E4DR 843 779 803 829 833 834 837
F0 1261R 2025 2004 2044 2051
F1 141FR 2452 2444
F2 1422R 2456 2450
F3 140AR 2431 2490
F4 1414R 2438 2433
F5 1442R 2485 2476
FBCN0 165CR 2861 2871 2887 2915 2917 2922 2942 2947 2952 2963 2982 2997
FBCN1 1689R 2907 2999
FBNM0 1635R 2825 2819
FBNX0 166AR 2881 2818
FBNX2 16B9R 2959 2966
FBTN0 162AR 2817 2872
FBTN1 1661R 2870 2833 2876
FBTN2 163AR 2832 2811 2823 2837
FC000 0C5FR 331 3044
FC001 0C6CR 348 342
FC002 0C65R 340 344 352
FC003 0C92R 393 373
FC004 0C89R 372 376 436 437 438
FC005 0C44R 282 409 460
FC006 0C46R 284 413
FC008 0CC5R 470 471
FC009 0D4CR 573 554
FC014 0F8BR 1201 1190
FC015 0CC5R 469 226 239 559 793 831 1250 1432 1625
FC016 1045R 1419 549 1445 1447
FC017 1171R 1769 1719 1787
FC018 110CR 1654 1584 1590 1921 1941
FC019 1149R 1717
FC020 118ER 1799 1788
FC021 06ECR 231 238
FC022 1092R 1507 1524 1792
FC023 11D5R 1879 1872
FC024 11CER 1873 1933
FC026 0D5BR 597 557
FC030 10C9R 1578 1574 1618
FC050 0CEDR 508 516
FC070 0E20R 797 491
FC080 0CFAR 525 501
FC100 0D08R 537 529
FC110 0D0FR 545 539
FC120 1059R 1442
FC130 1052R 1434 1429 1438
FC140 0EA0R 927 920
FC150 0F74R 1176 935 943
FC160 0EAFR 940 932
FC200 113CR 1704 1449 1453 1694
FC210 110DR 1657 1528 1838 2016 2021
FC211 1125R 1683 1660 1674 1697 1733
FC212 1119R 1670 1663
FC213 1144R 1710 1681
FC214 111BR 1672 1669
FC220 109FR 1526 1794 1796
FC300 0D79R 623 616
FC310 0D86R 634 625 627
FC311 0DF9R 740 649 650 651 652 654 728 729
FC320 0DBER 682 686 748
FC330 0DDDR 713 696
FC340 0E1DR 792 785
FC350 0DFER 746 719
FC360 0DADR 664 751
FC361 0DB7R 675 749
FC362 0DD5R 705
FC363 0DB4R 672 836 838
FC364 0D5AR 587 656 730
FC365 0D54R 581 657 660 732
FC366 0D58R 585 582
FC370 0E14R 783 790
FC380 0E29R 809 825
FC500 0D6AR 607 604
FC550 10B7R 1561 1556
FC560 10B4R 1558 1519
FC570 109CR 1523 1509
FC580 1225R 1969 1955
FC600 1049R 1426 1431
FC610 1065R 1451 1446
FC630 10EFR 1621 1686 1690 1713
FC700 12EFR 2152 2215
FC821 06F1R 235 236
FC919 0C86R 363 357
FC920 0C98R 401 358 360 362
FC921 0C41R 277 359 361
FC992 1138R 1698 1634 1638 1641 1642 1645 1677
FC993 1139R 1699 1666 1676 1678 1705 1706 1773
FC994 113AR 1700 1662 1671 1772
FC995 113BR 1701 1659
FC996 0D53R 580 677 714
FC997 0F72R 1173 1186
FC998 16AAR 2935 1184 2893
FC999 0F73R 1174 1182
FCNVT 1405R 2425 1850 2483
FFLD 1193R 1811
FILEC 0E58R 864 535
FLCN0 1707R 3039 2977 2980 2985
FLDLG 13CFR 2349 2291 2329 2367 2393
FSW 11B2R 1843 624 1813
FXR1 1435R 2474 2442
H003F 1519R 2508 2526
H0040 108BR 1496 922 942 1320 1428 1435 1689 1712
H0041 1404R 2424 2436
H00F0 1075R 1473 1326 1394 1399 1571 1614 1742
H0341 11B1R 1842 1835 2477
H1 1355R 2227 2145 2303 2365
H1D 0ECBR 957 910
H2 158FR 2639 2522 2703 2719
H3 1517R 2505 2519
H4040 0DFDR 743 639 700 2064
H615C 0DFCR 742 721
H9 1076R 1474 1329 1333 1747
HC3 0EC9R 955 931
HE 13CCR 2346 2284 2286
HF 128AR 2073 1897 1915 2562 2662
HF0 1330R 2220 2135 2170 2257 2314 2325 2775
HF1 0ECAR 956 916
HF2F3 0ECDR 959 894
HF3F1 0EC8R 954 928
HF9 1157R 1735 1745
HFFDF 15B6R 2682 2615
HFFF 0D4ER 575 609 685
HFFFD 15DAR 2725 2648
HFFFF 1333R 2223 2144 2310
I 1169R 1755 1790
I1 12E7R 2147 2142
ICNVT 12CFR 2121 1845 2156 2166
IFILE 0F66R 1164 1197 1212 1237 1242
IFLD 10ACR 1549 1791
ILS04 0C50R 302 411
IN010 1526R 2531 2567
IN020 1549R 2568 2529 2533
IN030 159ER 2656 2580
IN031 154DR 2573 2654 2705 2711 2716
IN040 1555R 2582 2658 2663
IN050 155ER 2590 2585 2667 2668
IN051 1567R 2599 2678
IN060 15AER 2671 2591
IN070 1599R 2651 2602
IN071 157AR 2616 2649
IN080 157ER 2620 2608
IN090 1597R 2648 2613
IN100 15B7R 2684 2652
IN110 15CCR 2707 2691
IN120 15D2R 2713 2709
IN130 151AR 2516 2548
IN150 15D6R 2718 2687
IN160 15BBR 2689 2721
INPT 13C2R 2335 2299 2395
INSRT 1528R 2536 2097 2153 2332 2472 2631 2901
INTR 11BFR 1854 1803
INTRM 11BER 1853 1802
INTSW 125FR 2023 919 1555 1869 2123
INXR1 1587R 2628 2537 2693 2696
INXR2 1589R 2629 2538
INXR3 158BR 2630 2539 2569
IPPOS 10A1R 1533 1535 1536
IPPVL 10A2R 1534 1540 1561 1605 1731 1834 1912 1970
IPREC 13CER 2348 2274 2281 2295 2366 2377 2386
ISCAL 13CDR 2347 2278 2282 2301
IXR1 12F2R 2155 2131 2168 2176
J1 130CR 2185 2181
J2 1315R 2193 2189
J3 130ER 2188 2192
J4 1324R 2207 2198
JCNVT 12F6R 2164 1851 2165
JFLD 10D7R 1598 1525
LOG 0C22R 253 336 370
MESS0 0000R 183 726
MESS1 0EB5R 951 855 882 895 906 917 929 1180
MESS2 0003R 186 1028 1208
MESS3 0014R 188 1241 1266
MESS4 0021R 190 1396 1400 1401 1404 1420 1443
MESS5 003AR 193 628
MESS6 0048R 195 526
MESS7 128FR 2076 2055 2058 2059 2062 2065
MESS8 0056R 197 937
MESS9 0063R 199 617
MESSA 12A1R 2078 2066 2923
MPY00 16D8R 2994 2834 2961 3007
MPY01 16DAR 2996 3005
NEGSW 1332R 2222 2143 2182 2309 2607 2626 2791
ONE 10ABR 1547 1390 1554 1557 1559 1640 1670
OPPVL 10F6R 1631 1565 1609 1649 1892 1998
P 116CR 1758 1583 1636 2015
PO 116DR 1759 1586 2017
PRIN1 0E52R 854 536 541 605 872 877 884 889 897 900 911 923 938
944 1030 1187 1267 1362
PRIN2 1023R 1382 1409 1436 1463 1480 1482 1527 1539 1572 1602 1615 1648 1695
1743 1746 1778 1819 1887 1899 1920 1938 1981 1989 1994 2006
PRINT 0FDER 1286 518 558 618 629 727 856 1290 1405 2063
R0010 1680R 2899 2732 2896
R0020 1682R 2900 2733
R0030 15EBR 2745 2737
R0040 15F2R 2754 2743
R0041 1604R 2776 2778
R0042 160AR 2782 2784
R0050 167ER 2898 2755 2787 2894 2967
R0060 1617R 2794 2789
R0061 1672R 2888 2890
R0062 1676R 2892 2943
R0063 168AR 2908 2895
R0064 1691R 2914 2920
R0065 16A0R 2927 2933
R0066 167AR 2896 2934
R0067 1629R 2810 2803
R0070 16ABR 2940 2884
R0080 16BER 2964 2949 2953 2954
R0900 007D 2848 2758 2807 2809
R0901 1648R 2849 2759
R0902 007E 2850 2786 2793
R0903 1650R 2854 2782 3000 3001 3006
R0904 1653R 2855 2794 2799 2802 2806 2832 2870 2951 2960 2962 2975 2986 2996
3003 3015 3017 3029 3031
R0905 1652R 2856 2835 2874 2881 2941 2948
R0906 165AR 2857 2750 2752
R0907 1644R 2844 2795 2797 2805
RCDCT 108DR 1498 717 873 2911
RCDSZ 116ER 1760 615 715 885 898 1202 1214 1537 1647 1777 1818
RCNVT 15DBR 2731 1846 2906
RCSZS 0F68R 1165 673 706 960 1203 1227
RDCD 0333R 301 486
RDDSK 0C51R 309 318 331 403 425 428 451 454 645 667 1072 1089
RSW 108FR 1500 1517 1573 1580
RWD 0F6CR 1168
RXR3 0C72R 353 335 750 759 1029 1070 2734
S 0D21R 568 548
SCALE 1159R 1740 1567 1611 1750 1895 1975 2000
SCTRA 0FD1R 1271 1238 1243 1276 1278
SEARC 0EE6R 1003 1134 1194 1209
SESW 1089R 1494 1383 1385 1623 1709
SLT00 16FAR 3026 2820 3035
SLT01 16FDR 3029 3034
SR010 0EFER 1028 1007 1017 1034 1041 1083 1086
SR020 0F04R 1032 1014 1037
SR030 0EFAR 1023 1019
SR040 0EF2R 1016 1021
SR050 0EECR 1010 1025
SR060 0F0FR 1048 1026
SR070 0F12R 1052 1060
SR080 0F2BR 1083
SR090 0F26R 1076 1155
SR100 0F37R 1099 1093
SR110 0F3AR 1103 1097
SR120 0F53R 1139 1116 1121
SR130 0F3DR 1107 1148
SR140 0F2ER 1087 1160
SR900 0EDBR 978 1006
SR901 0ECFR 966 1010
SR902 0EDCR 979 1013 1033 1040
SR903 0EDDR 980 1054
SR904 0EDER 981 1062
SR905 0EE2R 985 1101 1128 1130 1133 1139 1141
SR906 0EE5R 992 1095
SR907 0EE4R 990 1103
SR908 0EE0R 982 1052 1056 1063 1114 1119
SR909 0EE3R 987 1105 1144 1146
SR910 0EDAR 977 1108 1140
SR912 0F52R 1138 1132 1158
SRT00 16EDR 3012 2825 3021
SRT01 16F0R 3015 3020
SSW 1021R 1373 603 1421
SSXR2 1065R 1452 608 1624
SW000 0FDCR 1284 1287 1288
SW001 0C2BR 260 354 395 418 498 934
SW002 0C37R 269 435 444 500
SW003 0C33R 266 420 422 490 527 637 864
SW004 0C91R 385 482 496
SW00A 0FFDR 1328 1313 1352
SW00B 1000R 1331 1314 1353
SW00C 0FE5R 1303 865 1249 1310
SW00D 0ECER 960 1244 1257
SW00E 0F6AR 1166 875 1245 1255
SW010 0C58R 316 426 452 646 1073
SWH01 1590R 2640 2532 2590 2597 2604 2610 2616 2621 2672
SWH02 1591R 2641 2553 2573 2612 2622 2656
SWH03 1592R 2642 2546 2600 2623 2659
SWH04 1593R 2643 2586 2624 2702 2708 2710 2715
SWH05 1594R 2644 2523 2685 2704 2720
SWJ 137CR 2259 2149 2151 2203 2212 2214
SXR2 1040R 1408 1384 1403
T0002 1276R 2054 598 599 600 601 602
T1 1269R 2042 2048
TABL1 11B3R 1844 1515 1549 1598 1727 1811 1866 1930 1948 1963
TABL2 128BR 2074 1951 1967 1977 1979 1986 1987 1988 2005 2008 2009 2045 2053
2056
TABL3 11BBR 1852 1827 1832 1880 1885 1898 1901 1903 1904 1907 1909 1910
TABL5 136CR 2240 2209
TABLJ 1358R 2229 2180 2184 2187 2188 2191 2195 2201
TEMP 0F6BR 1167 1258 1261 1262
TEMP2 11C3R 1865
TOTAL 1020R 1372 1216 1219 1220 1226 1263 1273 1277 1308 1336 1341 1358 1464
1485 1569 1612 1776 2002
TOTFL 108CR 1497 614 1643 1644 1821 1822
TRUNK 1262R 2032 1576 1617 2010 2069 2897
TXR1 1284R 2067 2035
TXR2 1286R 2068 2061
WDCT 144CR 2501 2429 2434 2475 2489
WDRCD 0F70R 1170 689 1221
WKADR 13C8R 2343 2319
WORK1 1334R 2224 2093 2095 2137 2172 2258 2315 2343 2506 2520 2694 2776 2864
2888
WORK2 144FR 2504 2375 2458 2464 2469 2471
WORK3 164BR 2853 874 2760 2764 2768 2770 2771 2772 2817 2821 2826 2854 2855
2856 2883 2910 2918 2927 2929
WRITE 0E05R 758 697 724 768
X 116AR 1756 1718
XCNVT 12C6R 2108 1844 2113
XR1 0001 2292 716 1684 2094 2096 2109 2111 2196 2294 2304 2372 2560 2695
XR2 0002 2507 804 2571
XR3 0003 2322 688 690 2321 2373 2543 2559