ibm:ibm1130-lib:dmsr2v12:w1dfcnv_lst
W1DFCNV
| Table Of Contents |
|---|
|
- w1dfcnv.lst
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
ibm/ibm1130-lib/dmsr2v12/w1dfcnv_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator