// JOB // DUP *DELETE CLEAN // ASM *LIST *PRINT SYMBOL TABLE ** CLNS 5 *** CLEAN - VERSION 2 LEVEL 2. CLNS 10 ** CLNS 15 ABS CLNS 20 ORG 450 CLNS 25 ** CLNS 30 *** MAIN PROGRAM CLNS 35 ** CLNS 40 START BSI L BEGIN CLNS 45 BSI L OVFLO CLNS 50 BSI L FIRST CLNS 55 LD HEDSW CLNS 60 BSC L MNBK1,Z CLNS 65 LIBF PRNT1 CLNS 70 DC /2000 CLNS 75 DC HEAD1 CLNS 80 DC ERORP CLNS 85 LIBF PRNT1 CLNS 90 DC /30F0 CLNS 95 LIBF PRNT1 CLNS 100 DC /2000 CLNS 105 DC HEAD2 CLNS 110 DC ERORP CLNS 115 LIBF PRNT1 CLNS 120 DC /30F0 CLNS 125 LIBF PRNT1 CLNS 130 DC /2000 CLNS 135 DC HEAD3 CLNS 140 DC ERORP CLNS 145 MNBK1 BSI L SPTTT CLNS 150 LD ERRSW CLNS 155 BSC L MNBK2,+- CLNS 160 LIBF PRNT1 CLNS 165 DC /3F00 CLNS 170 LIBF PRNT1 CLNS 175 DC /2000 CLNS 180 DC SPOUT CLNS 185 DC ERORP CLNS 190 EXIT CLNS 195 * CLNS 200 MNBK2 LIBF PRNT1 CLNS 205 DC /3100 CLNS 210 LD L ONE CLNS 215 STO L OVCHR CLNS 220 BSI L OVFLO CLNS 225 LIBF PRNT1 CLNS 230 DC /2000 CLNS 235 DC HEAD4 CLNS 240 DC ERORP CLNS 245 LIBF PRNT1 CLNS 250 DC /30F0 CLNS 255 LIBF PRNT1 CLNS 260 DC /2000 CLNS 265 DC HEAD5 CLNS 270 DC ERORP CLNS 275 LIBF PRNT1 CLNS 280 DC /30F0 CLNS 285 LIBF PRNT1 CLNS 290 DC /2000 CLNS 295 DC HEAD6 CLNS 300 DC ERORP CLNS 305 MNBK3 BSI L RDATA CLNS 310 LD MISSW CLNS 315 BSC L *+2,Z CLNS 320 BSI L MISRT CLNS 325 LD L CDRES CLNS 330 STO L WKRES CLNS 335 BSI L EXEC CLNS 340 LD ERRSW CLNS 345 BSC L MNBK4,Z CLNS 350 MDX L VALCT,1 CLNS 355 MDX MNBK3 CLNS 360 MNBK4 MDX L ERRCT,1 CLNS 365 LIBF CARD0 CLNS 370 DC /4000 CLNS 375 SLA 16 CLNS 380 STO ERRSW CLNS 385 MDX MNBK3 CLNS 390 * CLNS 395 ERRSW DC 0 CLNS 400 HEDSW DC *-* CLNS 405 MISSW DC *-* CLNS 410 * CLNS 415 HEAD1 DC 13 CLNS 420 EBC . CONDITIONS LIST. CLNS 425 HEAD2 DC 13 CLNS 430 EBC . ---------- ----. CLNS 435 HEAD3 DC 24 CLNS 440 EBC . CONDITION NO. CONDITION. CLNS 445 EBC . SPECIFICATIONS.. CLNS 450 * CLNS 455 HEAD4 DC 13 CLNS 460 EBC . ERROR LIST . CLNS 465 HEAD5 DC 13 CLNS 470 EBC . ----- ---- . CLNS 475 HEAD6 DC 18 CLNS 480 EBC . RESPONDENT NO. CONDITION. CLNS 485 EBC . NO.. CLNS 490 * CLNS 495 SPOUT DC 34 CLNS 500 EBC .LOGICAL ERROR(S) IN SPECS. RUN TER. CLNS 505 EBC .MINATED BEFORE READING DATA CARDS.. CLNS 510 ** CLNS 515 *** READ CONTROL CARD - SET UP PARAMETERS CLNS 520 ** CLNS 525 BEGIN DC 0 CLNS 530 LIBF CARD0 CLNS 535 DC /1000 CLNS 540 DC RDARA CLNS 545 LDX I1 SPLTH CLNS 550 SLA 16 CLNS 555 STO L1 SPECD-1 CLNS 560 MDX 1 -1 CLNS 565 MDX *-4 CLNS 570 LIBF CARD0 CLNS 575 DC /0000 CLNS 580 MDX *-3 CLNS 585 LDX 1 6 CLNS 590 LOOP1 LD L1 RDARA CLNS 595 EOR L1 CTLNM-1 CLNS 600 BSC L ERORG,Z CLNS 605 MDX 1 -1 CLNS 610 MDX LOOP1 CLNS 615 LDX 1 9 CLNS 620 LOOP2 LD L1 RDARA+9 CLNS 625 AND L CDTST CLNS 630 BSC L ERORG,Z CLNS 635 LD L1 RDARA+9 CLNS 640 LDX 2 16 CLNS 645 SLCA 2 0 CLNS 650 BSC L ERORG,+- CLNS 655 AND L ELIMN CLNS 660 BSC L ERORG,Z CLNS 665 MDX 1 -1 CLNS 670 MDX LOOP2 CLNS 675 LDX 1 3 CLNS 680 LOOP3 LD L1 RDARA+6 CLNS 685 STO L1 JOBNM-1 CLNS 690 MDX 1 -1 CLNS 695 MDX LOOP3 CLNS 700 LD L RDARA+10 CLNS 705 STO L CDNO CLNS 710 BSI L CONRT CLNS 715 STO L CDNUM CLNS 720 LD L RDARA+13 CLNS 725 BSI L CONRT CLNS 730 STO L NCOLR CLNS 735 S FIVE CLNS 740 BSC L ERORG,Z- CLNS 745 LD L RDARA+16 CLNS 750 BSI L CONRT CLNS 755 STO L NCOLI CLNS 760 S THREE CLNS 765 BSC L ERORG,Z- CLNS 770 LD L RDARA+19 CLNS 775 STO L MISSW CLNS 780 LD L RDARA+20 CLNS 785 STO L HEDSW CLNS 790 LD L RDARA+11 CLNS 795 STO L CONV1+4 CLNS 800 LD L RDARA+12 CLNS 805 BSI L CONRT CLNS 810 STO L RESCL CLNS 815 A L NCOLR CLNS 820 S CON81 CLNS 825 BSC L ERORG,Z- CLNS 830 LD L RESCL CLNS 835 A L RDBK1+1 CLNS 840 STO L RDBK1+1 CLNS 845 LD L RDBK1+3 CLNS 850 S L NCOLR CLNS 855 STO L RDBK1+3 CLNS 860 LD L RDARA+14 CLNS 865 STO L CONV1&4 CLNS 870 LD L RDARA+15 CLNS 875 BSI L CONRT CLNS 880 STO L IDNCL CLNS 885 A L NCOLI CLNS 890 S CON81 CLNS 895 BSC L ERORG,Z- CLNS 900 LD L IDNCL CLNS 905 A L RDBK3+1 CLNS 910 STO L RDBK3+1 CLNS 915 LD L RDBK3+3 CLNS 920 S L NCOLI CLNS 925 STO L RDBK3+3 CLNS 930 LD L RDARA+17 CLNS 935 STO L CONV1+4 CLNS 940 LD L RDARA+18 CLNS 945 STO L CONV1+5 CLNS 950 LIBF DCBIN CLNS 955 DC CONV1 CLNS 960 STO L NUMCL CLNS 965 S CON81 CLNS 970 BSC L ERORG,- CLNS 975 LD L NUMCL CLNS 980 BSC L BEGBK,+ CLNS 985 A L IDSW+2 CLNS 990 STO L IDSW+2 CLNS 995 LD SWXXX CLNS1000 STO L IDSW CLNS1005 BEGBK LIBF HOLEB CLNS1010 DC /0000 CLNS1015 DC RDARA+21 CLNS1020 DC OVFNM CLNS1025 DC 20 CLNS1030 LIBF PRNT1 CLNS1035 DC /3100 CLNS1040 SLA 16 CLNS1045 STO L CONV1+4 CLNS1050 BSC I BEGIN CLNS1055 * CLNS1060 CTLNM DC /4420 CLNS1065 DC /8400 CLNS1070 DC /4400 CLNS1075 DC /8100 CLNS1080 DC /9000 CLNS1085 DC /4100 CLNS1090 FIVE DC 5 CLNS1095 THREE DC 3 CLNS1100 CON81 DC 81 CLNS1105 SWXXX SLA 0 CLNS1110 * CLNS1115 CONRT DC 0 CLNS1120 STO L CONV1&5 CLNS1125 LIBF DCBIN CLNS1130 DC CONV1 CLNS1135 BSC L ERORG,&- CLNS1140 BSC I CONRT CLNS1145 * CLNS1150 ERORG LIBF PRNT1 CLNS1155 DC /30F0 CLNS1160 LIBF PRNT1 CLNS1165 DC /2000 CLNS1170 DC ERRMS CLNS1175 DC ERORP CLNS1180 HOLD LIBF PRNT1 CLNS1185 DC /0000 CLNS1190 MDX HOLD CLNS1195 WAIT CLNS1200 SLA 16 CLNS1205 STO L CONV1&4 CLNS1210 BSC L BEGIN&1 CLNS1215 * CLNS1220 ERRMS DC 34 CLNS1225 EBC .CONTROL CARD MISSING - OR HAS AN. CLNS1230 EBC . INVALID FIELD. REFEED CONTROL CARD. CLNS1235 ** CLNS1240 *** PRINT OUT CONTROL CARD PARAMETERS CLNS1245 ** CLNS1250 FIRST DC 0 CLNS1255 LDX 1 72 CLNS1260 FIRB1 LD L CDNUM CLNS1265 BSI L BIPNT CLNS1270 DC FIRNO CLNS1275 MDX L FIRB1&1,1 CLNS1280 LDX 2 12 CLNS1285 FIRB2 LD L1 FIRMS-1 CLNS1290 STO L2 FIRPR CLNS1295 MDX 2 -1 CLNS1300 MDX *&1 CLNS1305 MDX *&2 CLNS1310 MDX 1 -1 CLNS1315 MDX FIRB2 CLNS1320 LIBF PRNT1 CLNS1325 DC /2000 CLNS1330 DC FIRPR CLNS1335 DC ERORP CLNS1340 LIBF PRNT1 CLNS1345 DC /0000 CLNS1350 MDX *-3 CLNS1355 MDX 1 -1 CLNS1360 MDX FIRB1 CLNS1365 LIBF PRNT1 CLNS1370 DC /3F00 CLNS1375 BSC I FIRST CLNS1380 * CLNS1385 FIRPR DC 16 CLNS1390 BSS 12 CLNS1395 EBC .= . CLNS1400 FIRNO BSS 2 CLNS1405 DC /4040 CLNS1410 * CLNS1415 FIRMS EBC .COL. FOR CARD NUMBER . CLNS1420 EBC .NO. COLS. FOR JOB IDENT . CLNS1425 EBC .FIRST COL. OF JOB IDENT . CLNS1430 EBC .NO. COLS. FOR RESP. NO. . CLNS1435 EBC .FIRST COL. OF RESP. NO. . CLNS1440 EBC .CARD NO. OF DATA CARD . CLNS1445 ** CLNS1450 *** MAIN SPEC. TEST/CONVERSION SUBROUTINE CLNS1455 ** CLNS1460 SPTTT DC 0 CLNS1465 LDX 2 -1 CLNS1470 LDX L1 WKARA CLNS1475 STX L1 WRKPR CLNS1480 STX L1 INPPR CLNS1485 STX L1 WKSTO CLNS1490 LDX 1 80 CLNS1495 SLA 16 CLNS1500 STO L1 WKARA-1 CLNS1505 MDX 1 -1 CLNS1510 MDX *-4 CLNS1515 LDX 1 -80 CLNS1520 SPMBK MDX 2 1 CLNS1525 MDX *&2 CLNS1530 BSI L RDSPC CLNS1535 LD L2 RDARA&61 CLNS1540 BSC L SPMBK,&- CLNS1545 STO L1 WKARA&80 CLNS1550 EOR L LLSLA CLNS1555 BSC L CONVT,&- CLNS1560 MDX 1 1 CLNS1565 MDX SPMBK CLNS1570 BSI L PRSPC CLNS1575 BSI L CNER7 CLNS1580 MDX SPTTT&2 CLNS1585 * CLNS1590 CONVT BSI L PRSPC CLNS1595 LDX 1 75 CLNS1600 CNBKA LD I INPPR CLNS1605 EOR L1 LOKUP-3 CLNS1610 BSC L CNBKF,&- CLNS1615 MDX 1 -3 CLNS1620 MDX CNBKA CLNS1625 LD I INPPR CLNS1630 EOR L LLCOL CLNS1635 BSC L CNCOL,&- CLNS1640 LD I INPPR CLNS1645 EOR L LLAND CLNS1650 BSC L CNAND,&- CLNS1655 LD I INPPR CLNS1660 EOR L LLSLA CLNS1665 BSC L CNER1,Z CLNS1670 LD L LLSLA&2 CLNS1675 STO I WRKPR CLNS1680 LD L LLSLA&1 CLNS1685 STO I DSKPR CLNS1690 BSI L LOTST CLNS1695 MDX L DSKPR,1 CLNS1700 LD L DSKPR CLNS1705 S L SPADR CLNS1710 S L SPLTH CLNS1715 BSI L CNER5,- CLNS1720 MDX SPTTT&2 CLNS1725 * CLNS1730 CNBKF LD L1 LOKUP-1 CLNS1735 STO I WRKPR CLNS1740 LD L1 LOKUP-2 CLNS1745 STO I DSKPR CLNS1750 MDX L DSKPR,1 CLNS1755 CNBKB MDX L WRKPR,1 CLNS1760 MDX L INPPR,1 CLNS1765 MDX CONVT&2 CLNS1770 * CLNS1775 CNCOL MDX L INPPR,1 CLNS1780 LDX 1 27 CLNS1785 LD I INPPR CLNS1790 EOR L1 LOKUP&3 CLNS1795 BSC L COLB1,&- CLNS1800 MDX 1 -3 CLNS1805 MDX CNCOL&3 CLNS1810 BSC L CNER2 CLNS1815 COLB1 LD I INPPR CLNS1820 STO CONAA&4 CLNS1825 MDX L INPPR,1 CLNS1830 LDX 1 30 CLNS1835 COLB2 LD I INPPR CLNS1840 EOR L1 LOKUP&3 CLNS1845 BSC L COLB3,&- CLNS1850 MDX 1 -3 CLNS1855 MDX COLB2 CLNS1860 BSC L CNER2 CLNS1865 COLB3 LD I INPPR CLNS1870 STO CONAA&5 CLNS1875 LIBF DCBIN CLNS1880 DC CONAA CLNS1885 BSC L CNER2,& CLNS1890 STO CONAA&5 CLNS1895 S CON80 CLNS1900 BSC L CNER2,Z- CLNS1905 LD L LLCOL&1 CLNS1910 STO I DSKPR CLNS1915 MDX L DSKPR,1 CLNS1920 LD L LLCOL&2 CLNS1925 STO I WRKPR CLNS1930 LD CONAA&5 CLNS1935 STO I DSKPR CLNS1940 MDX CNBKB-2 CLNS1945 * CLNS1950 DSKPR DC SPECD CLNS1955 WRKPR DC *-* CLNS1960 INPPR DC *-* CLNS1965 WKSTO DC *-* CLNS1970 CON80 DC 80 CLNS1975 CONAA DC /80A0 CLNS1980 DC 0 CLNS1985 DC 0 CLNS1990 DC 0 CLNS1995 DC 0 CLNS2000 DC 0 CLNS2005 * CLNS2010 CNAND LD L LLAND&2 CLNS2015 STO I WRKPR CLNS2020 MDX CNBKB CLNS2025 * CLNS2030 * CLNS2035 SPEND MDX 1 79 CLNS2040 MDX 1 1 CLNS2045 MDX *&1 CLNS2050 MDX *&2 CLNS2055 BSI L CNER6 CLNS2060 LD L LLEND&1 CLNS2065 STO I DSKPR CLNS2070 BSC I SPTTT CLNS2075 ** CLNS2080 *** READ AND VALIDATE A SPEC. CARD CLNS2085 ** CLNS2090 RDSPC DC 0 CLNS2095 LIBF CARD0 CLNS2100 DC /1000 CLNS2105 DC RDARA CLNS2110 LIBF CARD0 CLNS2115 DC /0000 CLNS2120 MDX *-3 CLNS2125 LD L RDARA&1 CLNS2130 EOR L DOLAR CLNS2135 BSC L SPEND,&- CLNS2140 SLA 16 CLNS2145 STO L RDARA CLNS2150 LIBF DCBIN CLNS2155 DC RDARA-2 CLNS2160 EOR SPNUM CLNS2165 BSC L SPERA,Z CLNS2170 MDX L SPNUM,1 CLNS2175 LDX 2 80 CLNS2180 STX L2 RDARA CLNS2185 LDX 2 6 CLNS2190 SPBK1 LD L2 RDARA&74 CLNS2195 EOR L2 JOBNM-1 CLNS2200 BSC L SPERB,Z CLNS2205 MDX 2 -1 CLNS2210 MDX SPBK1 CLNS2215 LDX 2 -40 CLNS2220 BSC I RDSPC CLNS2225 * CLNS2230 SPNUM DC 1 CLNS2235 * CLNS2240 * CLNS2245 SPERA LDX L2 ERMSA CLNS2250 STX 2 ERSWA CLNS2255 SPERB LIBF CARD0 CLNS2260 DC /4000 CLNS2265 LIBF PRNT1 CLNS2270 DC /3F00 CLNS2275 LIBF PRNT1 CLNS2280 DC /2000 CLNS2285 ERSWA DC ERMSB CLNS2290 DC ERORP CLNS2295 EXIT CLNS2300 * CLNS2305 ERMSA DC 33 CLNS2310 EBC .SPEC. CARD NO. INVALID/OUT OF SEQ.. CLNS2315 EBC . CARD SELECTED - RUN TERMINATED. CLNS2320 ERMSB DC 34 CLNS2325 EBC .COLS. 75-80 OF SPEC. CARD INCORRECT. CLNS2330 EBC . CARD SELECTED - RUN TERMINATED. CLNS2335 ** CLNS2340 *** PRINT A SPEC. CONDITION CLNS2345 ** CLNS2350 PRSPC DC 0 CLNS2355 LD L HEDSW CLNS2360 BSC I PRSPC,Z CLNS2365 LIBF PRNT1 CLNS2370 DC /0000 CLNS2375 MDX *-3 CLNS2380 LD L CNDNO CLNS2385 BSI L BIPNT CLNS2390 DC DET1C CLNS2395 LIBF HOLEB CLNS2400 DC /0000 CLNS2405 DC WKARA CLNS2410 DC DET1S CLNS2415 DC 80 CLNS2420 BSI L OVFLO CLNS2425 LIBF PRNT1 CLNS2430 DC /2000 CLNS2435 DC DET1 CLNS2440 DC ERORP CLNS2445 MDX L CNDNO,1 CLNS2450 BSC I PRSPC CLNS2455 * CLNS2460 DET1 DC 52 CLNS2465 EBC . . CLNS2470 DET1C BSS 2 CLNS2475 DC /4040 CLNS2480 EBC . . CLNS2485 DET1S BSS 40 CLNS2490 ** CLNS2495 *** TEST SPECS. FOR LOGICAL SYNTAX CLNS2500 ** CLNS2505 LOTST DC 0 CLNS2510 LD EEESW CLNS2515 BSC L EEERT,Z CLNS2520 LD L ONE CLNS2525 STO PARCT CLNS2530 LOTBK LD L WKSTO CLNS2535 S L WRKPR CLNS2540 BSC I LOTST,Z- CLNS2545 LD I WKSTO CLNS2550 EOR L THREE CLNS2555 BSC L *&3,Z CLNS2560 MDX L PARCT,1 CLNS2565 SLA 0 CLNS2570 LD I WKSTO CLNS2575 EOR L FIVE CLNS2580 BSC L *&5,Z CLNS2585 MDX L PARCT,-1 CLNS2590 MDX *&2 CLNS2595 BSI L CNER4 CLNS2600 LD I WKSTO CLNS2605 EOR L ONE CLNS2610 BSC L *&5,Z CLNS2615 LD PARCT CLNS2620 EOR L ONE CLNS2625 BSI L CNER4,Z CLNS2630 LD I WKSTO CLNS2635 M L FIVE CLNS2640 SLT 16 CLNS2645 A LOTPR CLNS2650 STO LOTSW&1 CLNS2655 MDX L WKSTO,-1 CLNS2660 LDX 1 5 CLNS2665 LOTSW LD L1 *-* CLNS2670 EOR I WKSTO CLNS2675 BSC L LOTON,&- CLNS2680 MDX 1 -1 CLNS2685 MDX LOTSW CLNS2690 BSI L CNER3 CLNS2695 LOTON MDX L WKSTO,2 CLNS2700 MDX LOTBK CLNS2705 * CLNS2710 EEERT SLA 16 CLNS2715 STO EEESW CLNS2720 BSC I LOTST CLNS2725 * CLNS2730 PARCT DC 1 CLNS2735 EEESW DC 0 CLNS2740 LOTPR DC BEFOR-6 CLNS2745 * CLNS2750 BEFOR DC 1 CLNS2755 DC 4 CLNS2760 DC 5 CLNS2765 DC 7 CLNS2770 DC 8 CLNS2775 DC 0 CLNS2780 DC 0 CLNS2785 DC 0 CLNS2790 DC 4 CLNS2795 DC 5 CLNS2800 DC 0 CLNS2805 DC 1 CLNS2810 DC 2 CLNS2815 DC 3 CLNS2820 DC 8 CLNS2825 DC 1 CLNS2830 DC 2 CLNS2835 DC 3 CLNS2840 DC 6 CLNS2845 DC 8 CLNS2850 DC 0 CLNS2855 DC 0 CLNS2860 DC 0 CLNS2865 DC 4 CLNS2870 DC 5 CLNS2875 DC 0 CLNS2880 DC 1 CLNS2885 DC 2 CLNS2890 DC 3 CLNS2895 DC 8 CLNS2900 DC 0 CLNS2905 DC 0 CLNS2910 DC 0 CLNS2915 DC 0 CLNS2920 DC 1 CLNS2925 DC 0 CLNS2930 DC 1 CLNS2935 DC 2 CLNS2940 DC 3 CLNS2945 DC 8 CLNS2950 * CLNS2955 LOKUP DC /8000 CLNS2960 DC 0 CLNS2965 DC 4 CLNS2970 DC /4000 CLNS2975 DC 1 CLNS2980 DC 4 CLNS2985 DC /2000 CLNS2990 DC 2 CLNS2995 DC 4 CLNS3000 DC /1000 CLNS3005 DC 3 CLNS3010 DC 4 CLNS3015 DC /0800 CLNS3020 DC 4 CLNS3025 DC 4 CLNS3030 DC /0400 CLNS3035 DC 5 CLNS3040 DC 4 CLNS3045 DC /0200 CLNS3050 DC 6 CLNS3055 DC 4 CLNS3060 DC /0100 CLNS3065 DC 7 CLNS3070 DC 4 CLNS3075 DC /0080 CLNS3080 DC 8 CLNS3085 DC 4 CLNS3090 DC /0040 CLNS3095 DC 9 CLNS3100 DC 4 CLNS3105 DC /0020 CLNS3110 DC 10 CLNS3115 DC 4 CLNS3120 DC /0010 CLNS3125 DC 11 CLNS3130 DC 4 CLNS3135 LLZER DC /2010 CLNS3140 DC 12 CLNS3145 DC 4 CLNS3150 LLSIN DC /2800 CLNS3155 DC 13 CLNS3160 DC 4 CLNS3165 LLDOU DC /8200 CLNS3170 DC 14 CLNS3175 DC 4 CLNS3180 LLNOT DC /4100 CLNS3185 DC 15 CLNS3190 DC 6 CLNS3195 LLOR DC /2420 CLNS3200 DC 18 CLNS3205 DC 2 CLNS3210 LLLFT DC /8120 CLNS3215 DC 20 CLNS3220 DC 3 CLNS3225 LLRGH DC /4120 CLNS3230 DC 21 CLNS3235 DC 5 CLNS3240 LLALF DC /2220 CLNS3245 DC 20 CLNS3250 DC 3 CLNS3255 LLART DC /8220 CLNS3260 DC 21 CLNS3265 DC 5 CLNS3270 LLTHE DC /2400 CLNS3275 DC 22 CLNS3280 DC 1 CLNS3285 DC /2020 CLNS3290 DC 0 CLNS3295 DC 4 CLNS3300 DC /2040 CLNS3305 DC 1 CLNS3310 DC 4 CLNS3315 DC /4010 CLNS3320 DC 0 CLNS3325 DC 4 CLNS3330 * CLNS3335 LLSLA DC /3000 CLNS3340 DC 16 CLNS3345 DC 1 CLNS3350 LLCOL DC /4220 CLNS3355 DC 17 CLNS3360 DC 8 CLNS3365 LLAND DC /8420 CLNS3370 DC *-* CLNS3375 DC 2 CLNS3380 LLEND DC /8100 CLNS3385 DC 19 CLNS3390 DC *-* CLNS3395 ** CLNS3400 *** SPECS. CONVERSION ERROR SUBROUTINES. CLNS3405 ** CLNS3410 CNERX DC 0 CLNS3415 LIBF PRNT1 CLNS3420 DC /0000 CLNS3425 MDX *-3 CLNS3430 LDX 1 17 CLNS3435 LD L1 *-* CLNS3440 STO L1 CNPRT CLNS3445 MDX 1 -1 CLNS3450 MDX CNERX&5 CLNS3455 BSI L OVFLO CLNS3460 LIBF PRNT1 CLNS3465 DC /2000 CLNS3470 DC CNPRT CLNS3475 DC ERORP CLNS3480 LD L ONE CLNS3485 STO L ERRSW CLNS3490 BSC I CNERX CLNS3495 * CLNS3500 CNER1 LDX L1 CNERM-1 CLNS3505 MDX L INPPR,1 CLNS3510 MDX *&2 CLNS3515 CNER2 LDX L1 CNERM&16 CLNS3520 STX 1 CNERX&6 CLNS3525 BSI L CNERX CLNS3530 LD L ONE CLNS3535 STO L EEESW CLNS3540 BSC L CONVT&2 CLNS3545 CNER3 DC 0 CLNS3550 LDX L1 CNERM&33 CLNS3555 STX 1 CNERX&6 CLNS3560 BSI L CNERX CLNS3565 BSC I CNER3 CLNS3570 CNER4 DC 0 CLNS3575 LDX L1 CNERM&50 CLNS3580 STX 1 CNERX&6 CLNS3585 BSI L CNERX CLNS3590 BSC I CNER4 CLNS3595 CNER5 DC 0 CLNS3600 LDX L1 CNERM&67 CLNS3605 STX 1 CNERX&6 CLNS3610 BSI L CNERX CLNS3615 LDX L1 SPECD CLNS3620 STX L1 DSKPR CLNS3625 BSC I CNER5 CLNS3630 CNER6 DC 0 CLNS3635 BSI L PRSPC CLNS3640 LDX L1 CNERM&84 CLNS3645 STX 1 CNERX&6 CLNS3650 BSI L CNERX CLNS3655 BSC I CNER6 CLNS3660 CNER7 DC 0 CLNS3665 LDX L1 CNERM&101 CLNS3670 STX 1 CNERX&6 CLNS3675 BSI L CNERX CLNS3680 BSC I CNER7 CLNS3685 * CLNS3690 CNERM EBC .********** INVALID SPEC. CHAR. . CLNS3695 EBC .********** INVALID COLUMN NO. . CLNS3700 EBC .************ INCORRECT SYNTAX . CLNS3705 EBC .***** WRONG USE OF PARENTHESES . CLNS3710 EBC .***** MAX SIZE OF SPECS EXCEEDED . CLNS3715 EBC .***** CONDN. DOES NOT END WITH / . CLNS3720 EBC .******* CONDN. EXCEEDS 80 CHARS. . CLNS3725 * CLNS3730 CNPRT DC 23 CLNS3735 BSS 17 CLNS3740 EBC .************. CLNS3745 ** CLNS3750 *** READ A DATA CARD AND CHECK PARAMETERS CLNS3755 ** CLNS3760 RDATA DC 0 CLNS3765 LIBF CARD0 CLNS3770 DC /1000 CLNS3775 DC RDARA CLNS3780 LIBF CARD0 CLNS3785 DC /0000 CLNS3790 MDX *-3 CLNS3795 LD L RDARA+1 CLNS3800 EOR DOLAR CLNS3805 BSC L CLOSE,+- CLNS3810 LDX I1 NCOLR CLNS3815 RDBK1 LD L1 RDARA-1 *** FIRST COL.RESP.NO. CLNS3820 STO L1 WKCD1+5 *** FIRST WKCD1 POSN.USED CLNS3825 MDX 1 -1 CLNS3830 MDX RDBK1 CLNS3835 LDX 1 5 CLNS3840 RDBK2 LD L1 WKCD1 CLNS3845 AND CDTST CLNS3850 BSC L SSCD1,Z CLNS3855 LD L1 WKCD1 CLNS3860 LDX 2 16 CLNS3865 SLCA 2 0 CLNS3870 BSC L SSCD1,+- CLNS3875 AND ELIMN CLNS3880 BSC L SSCD1,Z CLNS3885 MDX 1 -1 CLNS3890 MDX RDBK2 CLNS3895 LIBF DCBIN CLNS3900 DC WKCD1 CLNS3905 BSC L SSCD1,+ CLNS3910 STO CDRES CLNS3915 LDX I1 NCOLI CLNS3920 RDBK3 LD L1 RDARA-1 *** FIRST COL.JOB I.D.NO. CLNS3925 STO L1 WKCD2+2 *** FIRST WKCD2 POSN.USED CLNS3930 MDX 1 -1 CLNS3935 MDX RDBK3 CLNS3940 LDX 1 3 CLNS3945 RDBK4 LD L1 WKCD2-1 CLNS3950 EOR L1 JOBNM-1 CLNS3955 BSC L SSCD2,Z CLNS3960 MDX 1 -1 CLNS3965 MDX RDBK4 CLNS3970 IDSW MDX *+5 *** CARD NO.CHECK BYPASS CLNS3975 LD L RDARA *** CARD NO. COL. CLNS3980 EOR CDNO CLNS3985 BSC L SSCD3,Z CLNS3990 LD CDRES CLNS3995 S WKRES CLNS4000 BSC L SSCD4,+- CLNS4005 BSC L SSCD5,+ CLNS4010 BSC I RDATA CLNS4015 * CLNS4020 CDNUM DC *-* CLNS4025 RESCL DC *-* CLNS4030 NCOLR DC *-* NO.OF COLS.IN RESP. NO. CLNS4035 IDNCL DC *-* CLNS4040 NCOLI DC *-* NO.OF COLS.IN I.D. NO. CLNS4045 NUMCL DC *-* CLNS4050 CDTST DC /C000 CLNS4055 ELIMN DC /7FFF CLNS4060 DOLAR DC /4420 CLNS4065 CDRES DC 0 CLNS4070 WKRES DC 0 CLNS4075 * CLNS4080 JOBNM BSS 3 CLNS4085 DC /8400 CLNS4090 DC /8200 CLNS4095 CDNO DC *-* CARD NO. CLNS4100 WKCD1 DC /80A0 CLNS4105 DC /2000 RESP.NO. CLNS4110 DC /2000 CLNS4115 DC /2000 CLNS4120 DC /2000 CLNS4125 DC /2000 CLNS4130 WKCD2 DC 0 CLNS4135 DC 0 JOB I.D. CLNS4140 DC 0 CLNS4145 ** CLNS4150 *** MISSING RESP. CHECK SUBROUTINE CLNS4155 ** CLNS4160 MISRT DC 0 CLNS4165 MDX L WKRES,1 CLNS4170 LD WKRES CLNS4175 EOR CDRES CLNS4180 BSC I MISRT,+- CLNS4185 LIBF PRNT1 CLNS4190 DC /0000 CLNS4195 MDX *-3 CLNS4200 LD WKRES CLNS4205 A L ONE CLNS4210 EOR CDRES CLNS4215 BSC L MISBK,Z CLNS4220 LD WKRES CLNS4225 BSI L BIPNT CLNS4230 DC DETMR CLNS4235 BSI L OVFLO CLNS4240 LIBF PRNT1 CLNS4245 DC /2000 CLNS4250 DC DETMS CLNS4255 DC ERORP CLNS4260 BSC I MISRT CLNS4265 * CLNS4270 MISBK LD WKRES CLNS4275 BSI L BIPNT CLNS4280 DC DTMM1 CLNS4285 LD CDRES CLNS4290 S L ONE CLNS4295 BSI L BIPNT CLNS4300 DC DTMM2 CLNS4305 BSI L OVFLO CLNS4310 LIBF PRNT1 CLNS4315 DC /2000 CLNS4320 DC DTMMS CLNS4325 DC ERORP CLNS4330 BSC I MISRT CLNS4335 * CLNS4340 DETMS DC 48 CLNS4345 EBC . . CLNS4350 EBC . . CLNS4355 EBC . . CLNS4360 DETMR BSS 2 CLNS4365 DC /4040 CLNS4370 EBC . MISSING . CLNS4375 * CLNS4380 DTMMS DC 58 CLNS4385 EBC . . CLNS4390 EBC . . CLNS4395 EBC . . CLNS4400 DTMM1 BSS 2 CLNS4405 DC /4040 CLNS4410 EBC . THROUGH . CLNS4415 DTMM2 BSS 2 CLNS4420 DC /4040 CLNS4425 EBC . MISSING . CLNS4430 ** CLNS4435 *** INDIV. SPEC. SUBROUTINES - PART 1. CLNS4440 ** CLNS4445 PLSCH DC /8000 CLNS4450 MINCH DC /4000 CLNS4455 NILCH DC /2000 CLNS4460 ONECH DC /1000 CLNS4465 TWOCH DC /0800 CLNS4470 THRCH DC /0400 CLNS4475 FOUCH DC /0200 CLNS4480 FIVCH DC /0100 CLNS4485 SIXCH DC /0080 CLNS4490 SEVCH DC /0040 CLNS4495 EIGCH DC /0020 CLNS4500 NINCH DC /0010 CLNS4505 * CLNS4510 PLSRT LD PLSCH CLNS4515 MDX DIGRT CLNS4520 MINRT LD MINCH CLNS4525 MDX DIGRT CLNS4530 NILRT LD NILCH CLNS4535 MDX DIGRT CLNS4540 ONERT LD ONECH CLNS4545 MDX DIGRT CLNS4550 TWORT LD TWOCH CLNS4555 MDX DIGRT CLNS4560 THRRT LD THRCH CLNS4565 MDX DIGRT CLNS4570 FOURT LD FOUCH CLNS4575 MDX DIGRT CLNS4580 FIVRT LD FIVCH CLNS4585 MDX DIGRT CLNS4590 SIXRT LD SIXCH CLNS4595 MDX DIGRT CLNS4600 SEVRT LD SEVCH CLNS4605 MDX DIGRT CLNS4610 EIGRT LD EIGCH CLNS4615 MDX DIGRT CLNS4620 NINRT LD NINCH CLNS4625 MDX DIGRT CLNS4630 * CLNS4635 ZERRT LD I COLUM CLNS4640 BSC L ADJRT+1,+- CLNS4645 MDX ADJRT CLNS4650 * CLNS4655 SINRT LD I COLUM CLNS4660 BSC L ADJRT,+- CLNS4665 LDX 2 16 CLNS4670 SLCA 2 0 CLNS4675 AND L ELIMN CLNS4680 BSC L ADJRT+1,+- CLNS4685 MDX ADJRT CLNS4690 * CLNS4695 DOURT LD I COLUM CLNS4700 LDX 2 16 CLNS4705 SLCA 2 0 CLNS4710 AND L ELIMN CLNS4715 BSC L ADJRT,+- CLNS4720 LDX 2 16 CLNS4725 SLCA 2 0 CLNS4730 AND L ELIMN CLNS4735 BSC L ADJRT+1,+- CLNS4740 MDX ADJRT CLNS4745 * CLNS4750 DIGRT AND I COLUM CLNS4755 BSC L ADJRT+1,Z CLNS4760 ADJRT MDX *+1 CLNS4765 MDX TSTBK CLNS4770 LD INDPT CLNS4775 OR CTLSW CLNS4780 STO INDPT CLNS4785 RSTOR MDX TSTBK CLNS4790 LD YESSW CLNS4795 STO ADJRT CLNS4800 LD YESSW+1 CLNS4805 STO ADJRT+1 CLNS4810 LD YESSW+2 CLNS4815 STO RSTOR CLNS4820 MDX TSTBK CLNS4825 * CLNS4830 YESSW MDX X &1 CLNS4835 MDX X TSTBK-ADJRT-2 CLNS4840 MDX X TSTBK-RSTOR-1 CLNS4845 NOTSW MDX X RSTOR-ADJRT-1 CLNS4850 SLA 0 CLNS4855 * CLNS4860 NOTRT LD NOTSW CLNS4865 STO ADJRT CLNS4870 LD NOTSW+1 CLNS4875 STO ADJRT+1 CLNS4880 STO RSTOR CLNS4885 MDX TSTBK CLNS4890 * CLNS4895 SLART LD INDPT CLNS4900 BSC L SLABK,+- CLNS4905 SLA 16 CLNS4910 STO INDPT CLNS4915 LD FINPT CLNS4920 BSI L PRINT,+- CLNS4925 SLABK SLA 16 CLNS4930 STO FINPT CLNS4935 MDX L CNDNO,1 CLNS4940 MDX TSTBK CLNS4945 ** CLNS4950 *** TEST DATA CARD FOR LOGICAL CONDITIONS CLNS4955 ** CLNS4960 EXEC DC 0 CLNS4965 LD ONE CLNS4970 STO CNDNO CLNS4975 LD SPADR CLNS4980 STO SPSW+1 CLNS4985 LDX L1 RDARA+1 CLNS4990 STX 1 COLUM CLNS4995 TSTBK MDX L SPSW+1,1 CLNS5000 SPSW LDX I1 *-* CLNS5005 BSC I1 VECTR CLNS5010 * CLNS5015 TSOUT BSC I EXEC CLNS5020 * CLNS5025 SPADR DC SPECD-1 CLNS5030 CNDNO DC 1 CLNS5035 COLUM DC *-* CLNS5040 DTADR DC RDARA CLNS5045 ONE DC 1 CLNS5050 INDPT DC 0 CLNS5055 FINPT DC 0 CLNS5060 CTLSW DC /8000 CLNS5065 ** CLNS5070 *** INDIV. SPEC. SUBROUTINES - PART 2. CLNS5075 ** CLNS5080 ORRT LD INDPT CLNS5085 AND CTLSW CLNS5090 BSC L ORBK,+- CLNS5095 EOR INDPT CLNS5100 STO INDPT CLNS5105 MDX TSTBK CLNS5110 ORBK LD FINPT CLNS5115 OR CTLSW CLNS5120 STO FINPT CLNS5125 MDX TSTBK CLNS5130 * CLNS5135 LFTRT LD CTLSW CLNS5140 SRA 1 CLNS5145 STO CTLSW CLNS5150 MDX TSTBK CLNS5155 * CLNS5160 RGHRT LD INDPT CLNS5165 AND CTLSW CLNS5170 BSC L LOOPH,+- CLNS5175 EOR INDPT CLNS5180 STO INDPT CLNS5185 LD FINPT CLNS5190 AND CTLSW CLNS5195 BSC L LOOPI,+- CLNS5200 LOOPH LD FINPT CLNS5205 OR CTLSW CLNS5210 EOR CTLSW CLNS5215 STO FINPT CLNS5220 LD CTLSW CLNS5225 SLA 1 CLNS5230 STO CTLSW CLNS5235 MDX TSTBK CLNS5240 LOOPI LD CTLSW CLNS5245 SLA 1 CLNS5250 STO CTLSW CLNS5255 OR INDPT CLNS5260 STO INDPT CLNS5265 MDX TSTBK CLNS5270 * CLNS5275 COLRT MDX L SPSW+1,1 CLNS5280 LD I SPSW+1 CLNS5285 A DTADR CLNS5290 STO COLUM CLNS5295 MDX TSTBK CLNS5300 * CLNS5305 THERT LD INDPT CLNS5310 BSC L THEBK,+- CLNS5315 SLA 16 CLNS5320 STO INDPT CLNS5325 LD FINPT CLNS5330 BSC L THEBK,Z CLNS5335 LD CTLSW CLNS5340 STO FINPT CLNS5345 MDX TSTBK CLNS5350 THEBK SLA 16 CLNS5355 STO FINPT CLNS5360 MDX TSTBK CLNS5365 * CLNS5370 PRINT DC 0 CLNS5375 LIBF PRNT1 CLNS5380 DC /0000 CLNS5385 MDX *-3 CLNS5390 LD L WKRES CLNS5395 BSI L BIPNT CLNS5400 DC DET2R CLNS5405 LD L CNDNO CLNS5410 BSI L BIPNT CLNS5415 DC DET2C CLNS5420 BSI L OVFLO CLNS5425 LIBF PRNT1 CLNS5430 DC /2000 CLNS5435 DC DET2 CLNS5440 DC ERORP CLNS5445 LD L ONE CLNS5450 STO L ERRSW CLNS5455 BSC I PRINT CLNS5460 * CLNS5465 DET2 DC 17 CLNS5470 EBC . . CLNS5475 DET2R BSS 2 CLNS5480 DC /4040 CLNS5485 EBC . . CLNS5490 DET2C BSS 2 CLNS5495 DC /4040 CLNS5500 ** CLNS5505 *** SPEC. SUBROUTINES LINKAGE VECTOR CLNS5510 ** CLNS5515 VECTR DC PLSRT CLNS5520 DC MINRT CLNS5525 DC NILRT CLNS5530 DC ONERT CLNS5535 DC TWORT CLNS5540 DC THRRT CLNS5545 DC FOURT CLNS5550 DC FIVRT CLNS5555 DC SIXRT CLNS5560 DC SEVRT CLNS5565 DC EIGRT CLNS5570 DC NINRT CLNS5575 DC ZERRT CLNS5580 DC SINRT CLNS5585 DC DOURT CLNS5590 DC NOTRT CLNS5595 DC SLART CLNS5600 DC COLRT CLNS5605 DC ORRT CLNS5610 DC TSOUT CLNS5615 DC LFTRT CLNS5620 DC RGHRT CLNS5625 DC THERT CLNS5630 ** CLNS5635 *** CLOSING ROUTINE CLNS5640 ** CLNS5645 CLOSE LD L CDRES CLNS5650 BSI L BIPNT CLNS5655 DC LSTP1 CLNS5660 LD VALCT CLNS5665 BSI L BIPNT CLNS5670 DC LSTP2 CLNS5675 LD ERRCT CLNS5680 BSI L BIPNT CLNS5685 DC LSTP3 CLNS5690 LIBF PRNT1 CLNS5695 DC /3F00 CLNS5700 BSI L OVFLO CLNS5705 LIBF PRNT1 CLNS5710 DC /2000 CLNS5715 DC FINAL CLNS5720 DC ERORP CLNS5725 EXIT CLNS5730 * CLNS5735 VALCT DC 0 CLNS5740 ERRCT DC 0 CLNS5745 * CLNS5750 FINAL DC 58 CLNS5755 EBC .LAST RESPONDENT NO. PROCESSED = . CLNS5760 LSTP1 BSS 2 CLNS5765 DC /4040 CLNS5770 EBC . NO.OF VALID CARDS = . CLNS5775 LSTP2 BSS 2 CLNS5780 DC /4040 CLNS5785 EBC . NO.OF INVALID CARDS = . CLNS5790 LSTP3 BSS 2 CLNS5795 DC /4040 CLNS5800 EBC . E.O.J.. CLNS5805 ** CLNS5810 *** DATA ERROR SUBROUTINES CLNS5815 ** CLNS5820 SSCD1 LD DADDR CLNS5825 MDX DERR CLNS5830 SSCD2 LD DADDR+1 CLNS5835 MDX DERR CLNS5840 SSCD3 LD DADDR+2 CLNS5845 MDX DERR CLNS5850 SSCD4 LD DADDR+3 CLNS5855 MDX DERR CLNS5860 SSCD5 LD DADDR+4 CLNS5865 MDX DERR CLNS5870 * CLNS5875 DADDR DC DERRM-1 CLNS5880 DC DERRM+16 CLNS5885 DC DERRM+33 CLNS5890 DC DERRM+50 CLNS5895 DC DERRM+67 CLNS5900 * CLNS5905 DERR STO DERSW+1 CLNS5910 LIBF CARD0 CLNS5915 DC /4000 CLNS5920 MDX L ERRCT,1 CLNS5925 LIBF PRNT1 CLNS5930 DC /0000 CLNS5935 MDX *-3 CLNS5940 LDX 2 17 CLNS5945 DERSW LD L2 *-* CLNS5950 STO L2 DERMS-1 CLNS5955 MDX 2 -1 CLNS5960 MDX DERSW CLNS5965 LD L CDRES CLNS5970 BSI L BIPNT CLNS5975 DC DERNO CLNS5980 BSI L OVFLO CLNS5985 LIBF PRNT1 CLNS5990 DC /2000 CLNS5995 DC DPRNT CLNS6000 DC ERORP CLNS6005 BSC L RDATA+1 CLNS6010 * CLNS6015 DERRM EBC .* NEXT CARD * HAS INVALID RESP.NO.. CLNS6020 EBC .HAS INVALID JOB I.D. FIELD . CLNS6025 EBC .HAS WRONG/INVALID CARD NO. . CLNS6030 EBC .RESP. NO. DUPLICATED . CLNS6035 EBC .RESP. NO. OUT OF SEQUENCE . CLNS6040 * CLNS6045 DPRNT DC 30 CLNS6050 EBC . . CLNS6055 DERNO BSS 2 CLNS6060 DC /4040 CLNS6065 EBC . . CLNS6070 DERMS BSS 17 CLNS6075 ** CLNS6080 *** PRINTER OVERFLOW SUBROUTINES CLNS6085 ** CLNS6090 OVFLO DC 0 CLNS6095 LD OVCHR CLNS6100 BSC I OVFLO,+- CLNS6105 SLA 16 CLNS6110 STO OVCHR CLNS6115 MDX L PAGNO,1 CLNS6120 LD PAGNO CLNS6125 BSI L BIPNT CLNS6130 DC OVFPG CLNS6135 LIBF PRNT1 CLNS6140 DC /30F0 CLNS6145 LIBF PRNT1 CLNS6150 DC /2000 CLNS6155 DC OVFPR CLNS6160 DC ERORP CLNS6165 BSC I OVFLO CLNS6170 * CLNS6175 OVCHR DC 1 CLNS6180 PAGNO DC 0 CLNS6185 * CLNS6190 OVFPR DC 55 CLNS6195 EBC . . CLNS6200 EBC . . CLNS6205 OVFNM BSS 10 CLNS6210 EBC . PAGE . CLNS6215 OVFPG BSS 2 CLNS6220 DC /4040 CLNS6225 * CLNS6230 * CLNS6235 ERORP DC 0 CLNS6240 LD L ONE CLNS6245 STO OVCHR CLNS6250 BSC I ERORP CLNS6255 ** CLNS6260 *** BINARY TO PRINT LINE CONVERSION SUBR. CLNS6265 ** CLNS6270 BIPNT DC 0 CLNS6275 LIBF BINDC CLNS6280 DC STORE CLNS6285 LD I BIPNT CLNS6290 STO BISW CLNS6295 MDX L BIPNT,1 CLNS6300 LIBF HOLEB CLNS6305 DC /0000 CLNS6310 DC STORE+1 CLNS6315 BISW DC *-* CLNS6320 DC 5 CLNS6325 BSC I BIPNT CLNS6330 * CLNS6335 STORE BSS 6 CLNS6340 ** CLNS6345 *** READ AREA - WORK AREA - CONSTANTS. CLNS6350 ** CLNS6355 DC /80A0 CLNS6360 DC /0000 CLNS6365 RDARA DC 80 CLNS6370 BSS 80 CLNS6375 * CLNS6380 DC 1 CLNS6385 WKARA BSS 81 CLNS6390 * CLNS6395 CONV1 DC /80A0 CLNS6400 DC 0 CLNS6405 DC 0 CLNS6410 DC 0 CLNS6415 DC 0 CLNS6420 DC 0 CLNS6425 ** CLNS6430 *** SPECIFICATIONS AREA. CLNS6435 ** CLNS6440 DC /FFFF CLNS6445 SPECD BSS 4000 CLNS6450 SPLTH DC 4000 CLNS6455 * CLNS6460 * CLNS6465 * CLNS6470 END START CLNS6475 // DUP *STORE WS UA CLEAN // PAUS // JOB // DUP *DELETE D1TAB // ASM *LIST *PRINT SYMBOL TABLE ** D1TB 5 *** DTAB PHASE 1. - VERSION 2 LEVEL 2. D1TB 10 ** D1TB 15 ABS D1TB 20 ORG 1080 D1TB 25 ** D1TB 30 *** PRINT FINAL LINE AND EXIT D1TB 35 ** D1TB 40 LSTPR DC 47 D1TB 45 EBC .TOTAL NO. OF GROUPS ACCEPTED = . D1TB 50 PR1 BSS 2 D1TB 55 DC /4040 D1TB 60 EBC . . D1TB 65 EBC .TOTAL NO. OF GROUPS REJECTED = . D1TB 70 PR2 BSS 2 D1TB 75 DC /4040 D1TB 80 EBC . E.O.J.. D1TB 85 * D1TB 90 END LIBF PRNT1 D1TB 95 DC /3F00 D1TB 100 LD L ACCEP D1TB 105 BSI L BIPNT D1TB 110 DC PR1 D1TB 115 LD L REJEC D1TB 120 BSI L BIPNT D1TB 125 DC PR2 D1TB 130 BSI L OVFLO D1TB 135 LIBF PRNT1 D1TB 140 DC /2000 D1TB 145 DC LSTPR D1TB 150 DC ERORP D1TB 155 EXIT D1TB 160 ** D1TB 165 *** MAIN PROGRAM D1TB 170 ** D1TB 175 START BSI L BEGIN D1TB 180 SLA 16 D1TB 185 STO L CONV1&4 D1TB 190 NOERR LDX 1 20 D1TB 195 LD L BLANK D1TB 200 LOOP8 STO L1 PRARA&40 D1TB 205 MDX 1 -1 D1TB 210 MDX LOOP8 D1TB 215 ERRBK BSI L OVFLO D1TB 220 LD L PEROD D1TB 225 STO L RDARA&20 D1TB 230 STO L RDARA&61 D1TB 235 LIBF HOLEB D1TB 240 DC /0000 D1TB 245 DC RDARA&1 D1TB 250 DC PRARA&1 D1TB 255 DC 80 D1TB 260 LIBF PRNT1 D1TB 265 DC /2000 D1TB 270 DC PRARA D1TB 275 DC ERORP D1TB 280 READ LIBF CARD0 D1TB 285 DC /1000 D1TB 290 DC RDARA D1TB 295 LOOP4 LIBF CARD0 D1TB 300 DC /0000 D1TB 305 MDX LOOP4 D1TB 310 LD L RDARA&1 D1TB 315 EOR DOLAR D1TB 320 BSC L LSTCD,&- D1TB 325 SWFSA MDX FSTBK D1TB 330 LDX 1 3 D1TB 335 LD L1 RDARA&77 D1TB 340 EOR L1 TBCON&2 D1TB 345 BSC L LSTBK,Z D1TB 350 MDX 1 -1 D1TB 355 MDX SWFSA&2 D1TB 360 BSC L SAME D1TB 365 LSTBK LD L ERRSW D1TB 370 BSC L ERR,Z D1TB 375 LD TSTSW D1TB 380 BSI L SPTTT,&- D1TB 385 MDX L ACCEP,1 D1TB 390 FSTBK LIBF DISKN D1TB 395 DC /3000 D1TB 400 DSSW1 DC DISKI D1TB 405 DC ERORD D1TB 410 LOOP5 LIBF DISKN D1TB 415 DC /0000 D1TB 420 DSSW2 DC DISKI D1TB 425 MDX LOOP5 D1TB 430 LSTSW SLA 0 D1TB 435 SWFSB MDX FSTXX D1TB 440 LIBF PRNT1 D1TB 445 DC /3F00 D1TB 450 LD L RDARA&79 D1TB 455 STO TBCON&4 D1TB 460 LD L RDARA&80 D1TB 465 STO TBCON&5 D1TB 470 LD L RDARA&78 D1TB 475 STO TBCON&3 D1TB 480 EOR L DOLAR D1TB 485 BSC L HEDRT,&- D1TB 490 LD DSKAD D1TB 495 STO DSSW1 D1TB 500 STO DSSW2 D1TB 505 SLA 16 D1TB 510 STO TSTSW D1TB 515 LDX I1 CLEAR D1TB 520 SLA 16 D1TB 525 LOOP6 STO L1 COLSP-1 D1TB 530 MDX 1 -1 D1TB 535 MDX LOOP6 D1TB 540 LDX I1 CLEAR D1TB 545 LOOPZ STO L1 SPCD1-1 D1TB 550 MDX 1 -1 D1TB 555 MDX LOOPZ D1TB 560 LIBF DCBIN D1TB 565 DC TBCON D1TB 570 STO L SECT1&5 D1TB 575 M FOUR D1TB 580 SLT 16 D1TB 585 A DSCON D1TB 590 STO L DISK&1 D1TB 595 LD L ONECN D1TB 600 STO L CCTST D1TB 605 STO L RRTST D1TB 610 LD L FORTY D1TB 615 STO L CCADR D1TB 620 STO L RRADR D1TB 625 MDX SAME D1TB 630 * D1TB 635 FSTXX LD SWFFF D1TB 640 STO SWFSA D1TB 645 STO SWFSB D1TB 650 STO LSTCD&2 D1TB 655 BSI L FIRST D1TB 660 LDX 1 5 D1TB 665 SLA 16 D1TB 670 LOOPF STO L1 SECT1&5 D1TB 675 MDX 1 -1 D1TB 680 MDX LOOPF D1TB 685 MDX SWFSB D1TB 690 SWFFF SLA 0 D1TB 695 * D1TB 700 ERR MDX L REJEC,1 D1TB 705 SLA 16 D1TB 710 STO L ERRSW D1TB 715 MDX LOOP5 D1TB 720 * D1TB 725 LSTCD LD SWLLL D1TB 730 STO LSTSW D1TB 735 MDX FSTBK D1TB 740 MDX LSTBK D1TB 745 SWLLL MDX X END-LSTSW-1 D1TB 750 * D1TB 755 PEROD DC /00A0 D1TB 760 FOUR DC 4 D1TB 765 DSCON DC 796 D1TB 770 ACCEP DC 0 D1TB 775 REJEC DC 0 D1TB 780 TABNO DC 200 D1TB 785 TSTSW DC 1 D1TB 790 DSKAD DC DISK D1TB 795 TBCON DC /80A0 D1TB 800 DC 0 D1TB 805 DC 0 D1TB 810 DC 0 D1TB 815 DC 0 D1TB 820 DC 0 D1TB 825 DOLAR DC /4420 D1TB 830 DC /8200 D1TB 835 DC /1000 D1TB 840 DC /2400 D1TB 845 DC /9000 D1TB 850 DC /8800 D1TB 855 * D1TB 860 HEDRT LD L HADDR D1TB 865 STO DSSW1 D1TB 870 STO DSSW2 D1TB 875 LD L ONE D1TB 880 STO TSTSW D1TB 885 SLA 16 D1TB 890 STO TBCON&3 D1TB 895 LIBF DCBIN D1TB 900 DC TBCON D1TB 905 STO L HSECT&5 D1TB 910 M FOUR D1TB 915 SLT 16 D1TB 920 A L HDCON D1TB 925 STO L HDISK&1 D1TB 930 LDX I1 HCLER D1TB 935 SLA 16 D1TB 940 HLOOP STO L1 HDATA-1 D1TB 945 MDX 1 -1 D1TB 950 MDX HLOOP D1TB 955 STO HPNTR D1TB 960 STO HCNTR D1TB 965 LD L DOLAR D1TB 970 STO TBCON&3 D1TB 975 MDX SAME D1TB 980 ** D1TB 985 *** DETAIL LINE ROUTINES D1TB 990 ** D1TB 995 SAME LIBF PRNT1 D1TB1000 DC /0000 D1TB1005 MDX SAME D1TB1010 LDX 1 3 D1TB1015 LOOP7 LD L1 RDARA&74 D1TB1020 EOR L1 SECT1&1 D1TB1025 BSC L EROR3,Z D1TB1030 MDX 1 -1 D1TB1035 MDX LOOP7 D1TB1040 LD TSTSW D1TB1045 BSC L HSAME,Z D1TB1050 LD L SECT1&5 D1TB1055 BSC L EROR4,& D1TB1060 S L TABNO D1TB1065 BSC L EROR4,Z- D1TB1070 LD L RDARA&2 D1TB1075 STO L CONV1&4 D1TB1080 LD L RDARA&3 D1TB1085 STO L CONV1&5 D1TB1090 LIBF DCBIN D1TB1095 DC CONV1 D1TB1100 STO TSTCH D1TB1105 BSC L EROR2,& D1TB1110 LD L RDARA&1 D1TB1115 EOR CCCCC D1TB1120 BSC L CCRUT,&- D1TB1125 LD L RDARA&1 D1TB1130 EOR RRRRR D1TB1135 BSC L EROR1,Z D1TB1140 RRRUT LD TSTCH D1TB1145 S L MAX1 D1TB1150 BSC L EROR2,- D1TB1155 LD TSTCH D1TB1160 EOR RRTST D1TB1165 BSC L EROR5,Z D1TB1170 MDX L RRTST,1 D1TB1175 LDX 1 40 D1TB1180 LDX I2 RRADR D1TB1185 LOOPR LD L1 RDARA&20 D1TB1190 STO L2 ROWSP-1 D1TB1195 MDX 2 -1 D1TB1200 SLA 0 D1TB1205 MDX 1 -1 D1TB1210 MDX LOOPR D1TB1215 MDX L RRADR,40 D1TB1220 BSC L NOERR D1TB1225 CCRUT LD TSTCH D1TB1230 S L MAX1 D1TB1235 BSC L EROR2,- D1TB1240 LD TSTCH D1TB1245 EOR CCTST D1TB1250 BSC L EROR5,Z D1TB1255 MDX L CCTST,1 D1TB1260 LDX 1 40 D1TB1265 LDX I2 CCADR D1TB1270 LOOPC LD L1 RDARA&20 D1TB1275 STO L2 COLSP-1 D1TB1280 MDX 2 -1 D1TB1285 SLA 0 D1TB1290 MDX 1 -1 D1TB1295 MDX LOOPC D1TB1300 MDX L CCADR,40 D1TB1305 BSC L NOERR D1TB1310 * D1TB1315 TSTCH DC 0 D1TB1320 CCCCC DC /8400 D1TB1325 RRRRR DC /4010 D1TB1330 CCTST DC 1 D1TB1335 RRTST DC 1 D1TB1340 FORTY DC 40 D1TB1345 CCADR DC 40 D1TB1350 RRADR DC 40 D1TB1355 ONECN DC 1 D1TB1360 MAX1 DC 9 D1TB1365 HPNTR DC 0 D1TB1370 HCNTR DC 0 D1TB1375 HLIMT DC 24 D1TB1380 HDCON DC 396 D1TB1385 HHUND DC 99 D1TB1390 HADDR DC HDISK D1TB1395 * D1TB1400 HSAME LD L HSECT&5 D1TB1405 BSC L EROR4,& D1TB1410 S HHUND D1TB1415 BSC L EROR4,Z- D1TB1420 LD HCNTR D1TB1425 S HLIMT D1TB1430 BSC L EROR6,- D1TB1435 LDX I1 HPNTR D1TB1440 LD L RDARA&1 D1TB1445 STO L1 HDATA D1TB1450 LD L RDARA&2 D1TB1455 STO L1 HDATA&1 D1TB1460 LD L RDARA&3 D1TB1465 STO L1 HDATA&2 D1TB1470 MDX 1 49 D1TB1475 LDX 2 40 D1TB1480 HBACK LD L2 RDARA&20 D1TB1485 STO L1 HDATA D1TB1490 MDX 1 -1 D1TB1495 SLA 0 D1TB1500 MDX 2 -1 D1TB1505 MDX HBACK D1TB1510 MDX L HPNTR,50 D1TB1515 MDX L HCNTR,1 D1TB1520 BSC L NOERR D1TB1525 ** D1TB1530 *** MAIN SPEC. TEST/CONVERSION SUBROUTINE D1TB1535 ** D1TB1540 SPTTT DC 0 D1TB1545 LDX L1 COLSP D1TB1550 STX 1 WRKPR D1TB1555 STX 1 INPPR D1TB1560 STX 1 WKSTO D1TB1565 LDX L1 SPCD1 D1TB1570 STX 1 DSKPR D1TB1575 SLA 16 D1TB1580 STO L CARD D1TB1585 STO L EEESW D1TB1590 LD L ONE D1TB1595 STO L CNDNO D1TB1600 LD L SWCCC D1TB1605 STO L CNSWX D1TB1610 MDX L LLEND&1,-1 D1TB1615 MDX L LLSLA&1,-1 D1TB1620 LD L COLSP-1 D1TB1625 STO L ROWSP-1 D1TB1630 LD L LLEND D1TB1635 STO L ROWSP-2 D1TB1640 BSI L CONVT D1TB1645 LD L CNDNO D1TB1650 S COLLT D1TB1655 BSI L CNER5,- D1TB1660 MDX L DSKPR,-1 D1TB1665 LD I DSKPR D1TB1670 EOR L LLSLA&1 D1TB1675 BSI L CNER6,Z D1TB1680 LDX L1 ROWSP D1TB1685 STX 1 WRKPR D1TB1690 STX 1 INPPR D1TB1695 STX 1 WKSTO D1TB1700 LDX L1 SPCD2 D1TB1705 STX 1 DSKPR D1TB1710 SLA 16 D1TB1715 STO L CARD D1TB1720 LD L ONE D1TB1725 STO L CNDNO D1TB1730 LD L SWRRR D1TB1735 STO L CNSWX D1TB1740 MDX L LLEND&1,1 D1TB1745 MDX L LLSLA&1,1 D1TB1750 BSI L CONVT D1TB1755 LD L CNDNO D1TB1760 S ROWLT D1TB1765 BSI L CNER5,- D1TB1770 MDX L DSKPR,-1 D1TB1775 LD I DSKPR D1TB1780 EOR L LLSLA&1 D1TB1785 BSI L CNER6,Z D1TB1790 LD L ERRSW D1TB1795 BSC I SPTTT,&- D1TB1800 BSC L ERR D1TB1805 * D1TB1810 COLLT DC 15 D1TB1815 ROWLT DC 26 D1TB1820 INPPR DC 0 D1TB1825 WRKPR DC 0 D1TB1830 DSKPR DC 0 D1TB1835 WKSTO DC 0 D1TB1840 CONAA DC /80A0 D1TB1845 DC 0 D1TB1850 DC 0 D1TB1855 DC 0 D1TB1860 DC 0 D1TB1865 DC 0 D1TB1870 ** D1TB1875 *** CONVERT SPECS. SUBROUTINE D1TB1880 ** D1TB1885 CONVT DC 0 D1TB1890 LD I INPPR D1TB1895 BSC L *&3,Z D1TB1900 MDX L INPPR,1 D1TB1905 MDX CONVT&1 D1TB1910 LDX 1 84 D1TB1915 CNBKA LD I INPPR D1TB1920 EOR L1 LOKUP-3 D1TB1925 BSC L CNBKF,&- D1TB1930 MDX 1 -3 D1TB1935 MDX CNBKA D1TB1940 LD I INPPR D1TB1945 EOR L LLCOL D1TB1950 BSC L COLRT,&- D1TB1955 LD I INPPR D1TB1960 EOR L LLCRD D1TB1965 BSC L CRDRT,&- D1TB1970 LD I INPPR D1TB1975 EOR L LLAND D1TB1980 BSC L ANDRT,&- D1TB1985 LD I INPPR D1TB1990 EOR L LLWGH D1TB1995 BSC L WGHRT,&- D1TB2000 LD I INPPR D1TB2005 EOR L LLEND D1TB2010 BSC L CNER1,Z D1TB2015 LD L LLEND&1 D1TB2020 STO I DSKPR D1TB2025 LD L LLEND&2 D1TB2030 STO I WRKPR D1TB2035 BSC I CONVT D1TB2040 * D1TB2045 CNBKF LD L1 LOKUP-1 D1TB2050 STO I WRKPR D1TB2055 LD L1 LOKUP-2 D1TB2060 STO I DSKPR D1TB2065 LD L1 LOKUP-3 D1TB2070 EOR L LLSLA D1TB2075 BSC L *&4,Z D1TB2080 BSI L LOTST D1TB2085 MDX L CNDNO,1 D1TB2090 MDX L DSKPR,1 D1TB2095 CNBKB MDX L WRKPR,1 D1TB2100 MDX L INPPR,1 D1TB2105 MDX CONVT&1 D1TB2110 * D1TB2115 CRDRT MDX L INPPR,1 D1TB2120 LDX 1 27 D1TB2125 LD I INPPR D1TB2130 EOR L1 LOKUP&6 D1TB2135 BSC L CRDBK,&- D1TB2140 MDX 1 -3 D1TB2145 MDX CRDRT&3 D1TB2150 BSC L CNER2 D1TB2155 CRDBK LD I INPPR D1TB2160 STO L CONAA&5 D1TB2165 SLA 16 D1TB2170 STO L CONAA&4 D1TB2175 LIBF DCBIN D1TB2180 DC CONAA D1TB2185 M CON80 D1TB2190 SLT 16 D1TB2195 S CON80 D1TB2200 STO CARD D1TB2205 LD L LLCRD&2 D1TB2210 STO I WRKPR D1TB2215 MDX CNBKB D1TB2220 * D1TB2225 COLRT MDX L INPPR,1 D1TB2230 LDX 1 27 D1TB2235 LD I INPPR D1TB2240 EOR L1 LOKUP&3 D1TB2245 BSC L COLB1,&- D1TB2250 MDX 1 -3 D1TB2255 MDX COLRT&3 D1TB2260 BSC L CNER2 D1TB2265 COLB1 LD I INPPR D1TB2270 STO L CONAA&4 D1TB2275 MDX L INPPR,1 D1TB2280 LDX 1 30 D1TB2285 COLB2 LD I INPPR D1TB2290 EOR L1 LOKUP&3 D1TB2295 BSC L COLB3,&- D1TB2300 MDX 1 -3 D1TB2305 MDX COLB2 D1TB2310 BSC L CNER2 D1TB2315 COLB3 LD I INPPR D1TB2320 STO L CONAA&5 D1TB2325 LIBF DCBIN D1TB2330 DC CONAA D1TB2335 BSC L CNER2,& D1TB2340 STO L CONAA&5 D1TB2345 S CON80 D1TB2350 BSC L CNER2,Z- D1TB2355 LD L LLCOL&1 D1TB2360 STO I DSKPR D1TB2365 MDX L DSKPR,1 D1TB2370 LD L LLCOL&2 D1TB2375 STO I WRKPR D1TB2380 LD L CONAA&5 D1TB2385 A CARD D1TB2390 S L ONE D1TB2395 STO I DSKPR D1TB2400 MDX CNBKB-2 D1TB2405 * D1TB2410 CARD DC 0 D1TB2415 CON80 DC 80 D1TB2420 CNDNO DC 1 D1TB2425 * D1TB2430 ANDRT LD L LLAND&2 D1TB2435 STO I WRKPR D1TB2440 MDX CNBKB D1TB2445 * D1TB2450 WGHRT MDX L INPPR,1 D1TB2455 LDX 1 9 D1TB2460 LD I INPPR D1TB2465 EOR L1 LOKUP&6 D1TB2470 BSC L WGHBK,&- D1TB2475 MDX 1 -3 D1TB2480 MDX WGHRT&3 D1TB2485 BSC L CNER2 D1TB2490 WGHBK LD L LLWGH&2 D1TB2495 STO I WRKPR D1TB2500 LD L LLWGH&1 D1TB2505 STO I DSKPR D1TB2510 MDX L DSKPR,1 D1TB2515 LD I INPPR D1TB2520 STO L CONAA&5 D1TB2525 SLA 16 D1TB2530 STO L CONAA&4 D1TB2535 LIBF DCBIN D1TB2540 DC CONAA D1TB2545 STO I DSKPR D1TB2550 BSC L CNBKB-2 D1TB2555 ** D1TB2560 *** TEST SPECS. FOR LOGICAL SYNTAX D1TB2565 ** D1TB2570 LOTST DC 0 D1TB2575 LD EEESW D1TB2580 BSC L EEERT,Z D1TB2585 LD L ONE D1TB2590 STO PARCT D1TB2595 LOTBK LD L WKSTO D1TB2600 S L WRKPR D1TB2605 BSC I LOTST,Z- D1TB2610 LD I WKSTO D1TB2615 EOR THREE D1TB2620 BSC L *&3,Z D1TB2625 MDX L PARCT,1 D1TB2630 SLA 0 D1TB2635 LD I WKSTO D1TB2640 EOR FIVE D1TB2645 BSC L *&5,Z D1TB2650 MDX L PARCT,-1 D1TB2655 MDX *&2 D1TB2660 BSI L CNER4 D1TB2665 LD I WKSTO D1TB2670 EOR L ONE D1TB2675 BSC L *&5,Z D1TB2680 LD PARCT D1TB2685 EOR L ONE D1TB2690 BSI L CNER4,Z D1TB2695 LD I WKSTO D1TB2700 M FIVE D1TB2705 SLT 16 D1TB2710 A LOTPR D1TB2715 STO LOTSW&1 D1TB2720 MDX L WKSTO,-1 D1TB2725 LDX 2 5 D1TB2730 LOTSW LD L2 *-* D1TB2735 EOR I WKSTO D1TB2740 BSC L LOTON,&- D1TB2745 MDX 2 -1 D1TB2750 MDX LOTSW D1TB2755 BSI L CNER3 D1TB2760 LOTON MDX L WKSTO,2 D1TB2765 MDX LOTBK D1TB2770 * D1TB2775 EEERT SLA 16 D1TB2780 STO EEESW D1TB2785 LD L WRKPR D1TB2790 STO L WKSTO D1TB2795 MDX L WKSTO,1 D1TB2800 BSC I LOTST D1TB2805 * D1TB2810 PARCT DC 1 D1TB2815 EEESW DC 0 D1TB2820 LOTPR DC BEFOR-6 D1TB2825 FIVE DC 5 D1TB2830 THREE DC 3 D1TB2835 * D1TB2840 BEFOR DC 1 D1TB2845 DC 4 D1TB2850 DC 5 D1TB2855 DC 7 D1TB2860 DC 8 D1TB2865 DC 0 D1TB2870 DC 0 D1TB2875 DC 0 D1TB2880 DC 4 D1TB2885 DC 5 D1TB2890 DC 0 D1TB2895 DC 1 D1TB2900 DC 2 D1TB2905 DC 3 D1TB2910 DC 8 D1TB2915 DC 1 D1TB2920 DC 2 D1TB2925 DC 3 D1TB2930 DC 6 D1TB2935 DC 8 D1TB2940 DC 0 D1TB2945 DC 0 D1TB2950 DC 0 D1TB2955 DC 4 D1TB2960 DC 5 D1TB2965 DC 0 D1TB2970 DC 1 D1TB2975 DC 2 D1TB2980 DC 3 D1TB2985 DC 8 D1TB2990 DC 0 D1TB2995 DC 0 D1TB3000 DC 0 D1TB3005 DC 0 D1TB3010 DC 1 D1TB3015 DC 0 D1TB3020 DC 1 D1TB3025 DC 2 D1TB3030 DC 3 D1TB3035 DC 8 D1TB3040 * D1TB3045 LOKUP DC /8000 D1TB3050 DC 0 D1TB3055 DC 4 D1TB3060 DC /4000 D1TB3065 DC 1 D1TB3070 DC 4 D1TB3075 DC /2000 D1TB3080 DC 2 D1TB3085 DC 4 D1TB3090 DC /1000 D1TB3095 DC 3 D1TB3100 DC 4 D1TB3105 DC /0800 D1TB3110 DC 4 D1TB3115 DC 4 D1TB3120 DC /0400 D1TB3125 DC 5 D1TB3130 DC 4 D1TB3135 DC /0200 D1TB3140 DC 6 D1TB3145 DC 4 D1TB3150 DC /0100 D1TB3155 DC 7 D1TB3160 DC 4 D1TB3165 DC /0080 D1TB3170 DC 8 D1TB3175 DC 4 D1TB3180 DC /0040 D1TB3185 DC 9 D1TB3190 DC 4 D1TB3195 DC /0020 D1TB3200 DC 10 D1TB3205 DC 4 D1TB3210 DC /0010 D1TB3215 DC 11 D1TB3220 DC 4 D1TB3225 LLSLA DC /3000 D1TB3230 DC 17 D1TB3235 DC 1 D1TB3240 LLOR DC /2420 D1TB3245 DC 22 D1TB3250 DC 2 D1TB3255 LLDOU DC /8200 D1TB3260 DC 14 D1TB3265 DC 4 D1TB3270 LLNOT DC /4100 D1TB3275 DC 15 D1TB3280 DC 6 D1TB3285 LLMAN DC /4200 D1TB3290 DC 19 D1TB3295 DC 1 D1TB3300 LLBBB DC /8800 D1TB3305 DC 20 D1TB3310 DC 7 D1TB3315 LLAAA DC /9000 D1TB3320 DC 25 D1TB3325 DC 4 D1TB3330 LLLFT DC /8120 D1TB3335 DC 26 D1TB3340 DC 3 D1TB3345 LLRGH DC /4120 D1TB3350 DC 27 D1TB3355 DC 5 D1TB3360 LLALF DC /2220 D1TB3365 DC 26 D1TB3370 DC 3 D1TB3375 LLART DC /8220 D1TB3380 DC 27 D1TB3385 DC 5 D1TB3390 LLZER DC /2010 D1TB3395 DC 12 D1TB3400 DC 4 D1TB3405 LLSIN DC /2800 D1TB3410 DC 13 D1TB3415 DC 4 D1TB3420 DC /2020 D1TB3425 DC 0 D1TB3430 DC 4 D1TB3435 DC /2040 D1TB3440 DC 1 D1TB3445 DC 4 D1TB3450 DC /4010 D1TB3455 DC 0 D1TB3460 DC 4 D1TB3465 * D1TB3470 LLEND DC /8100 D1TB3475 DC 24 D1TB3480 DC 9 D1TB3485 LLCOL DC /4220 D1TB3490 DC 21 D1TB3495 DC 8 D1TB3500 LLCRD DC /8400 D1TB3505 DC *-* D1TB3510 DC 8 D1TB3515 LLAND DC /8420 D1TB3520 DC *-* D1TB3525 DC 2 D1TB3530 LLWGH DC /2080 D1TB3535 DC 18 D1TB3540 DC 1 D1TB3545 ** D1TB3550 *** SPECS. CONVERSION ERROR SUBROUTINES. D1TB3555 ** D1TB3560 CNERX DC 0 D1TB3565 LDX 2 17 D1TB3570 LD L2 *-* D1TB3575 STO L2 CNPRT D1TB3580 MDX 2 -1 D1TB3585 MDX CNERX&2 D1TB3590 LD L CNDNO D1TB3595 BSI L BIPNT D1TB3600 DC CNNUM D1TB3605 BSI L OVFLO D1TB3610 LIBF PRNT1 D1TB3615 DC /2000 D1TB3620 DC CNPRT D1TB3625 DC ERORP D1TB3630 LD L ONE D1TB3635 STO L ERRSW D1TB3640 LIBF PRNT1 D1TB3645 DC /0000 D1TB3650 MDX *-3 D1TB3655 BSC I CNERX D1TB3660 * D1TB3665 CNER1 LDX L2 CNERM-1 D1TB3670 MDX L INPPR,1 D1TB3675 MDX *&2 D1TB3680 CNER2 LDX L2 CNERM&16 D1TB3685 STX 2 CNERX&3 D1TB3690 BSI L CNERX D1TB3695 LD L ONE D1TB3700 STO L EEESW D1TB3705 BSC L CONVT&1 D1TB3710 CNER3 DC 0 D1TB3715 LDX L2 CNERM&33 D1TB3720 STX 2 CNERX&3 D1TB3725 BSI L CNERX D1TB3730 BSC I CNER3 D1TB3735 CNER4 DC 0 D1TB3740 LDX L2 CNERM&50 D1TB3745 STX 2 CNERX&3 D1TB3750 BSI L CNERX D1TB3755 BSC I CNER4 D1TB3760 CNER5 DC 0 D1TB3765 LDX L2 CNERM&67 D1TB3770 STX 2 CNERX&3 D1TB3775 BSI L CNERX D1TB3780 BSC I CNER5 D1TB3785 CNER6 DC 0 D1TB3790 LDX L2 CNERM&84 D1TB3795 STX 2 CNERX&3 D1TB3800 BSI L CNERX D1TB3805 BSC I CNER6 D1TB3810 * D1TB3815 CNERM EBC .******* INVALID SPEC. CHAR. IN . D1TB3820 EBC .**** INVALID CRD/COL/WGH.NO.IN . D1TB3825 EBC .********** INCORRECT SYNTAX IN . D1TB3830 EBC .***** WRONG USE OF PARENTHESES . D1TB3835 EBC .*** MAX NO.OF BUCKETS EXCEEDED . D1TB3840 EBC .*** CONDN. DOES NOT END WITH / . D1TB3845 * D1TB3850 CNPRT DC 33 D1TB3855 BSS 17 D1TB3860 CNSWX BSS 1 D1TB3865 EBC . CONDN.NO. . D1TB3870 CNNUM BSS 2 D1TB3875 DC /4040 D1TB3880 EBC . *********. D1TB3885 * D1TB3890 SWCCC EBC .C.. D1TB3895 SWRRR EBC .R.. D1TB3900 ** D1TB3905 *** READ FIRST CARD - MAKE CONTROL SECTOR D1TB3910 ** D1TB3915 BEGIN DC 0 D1TB3920 LIBF CARD0 D1TB3925 DC /1000 D1TB3930 DC RDARA D1TB3935 LDX I1 CLCON D1TB3940 SLA 16 D1TB3945 LOOP1 STO L1 SECT1&1 D1TB3950 MDX 1 -1 D1TB3955 MDX LOOP1 D1TB3960 LOOP2 LIBF CARD0 D1TB3965 DC /0000 D1TB3970 MDX LOOP2 D1TB3975 LDX 1 6 D1TB3980 LOOP3 LD L1 RDARA D1TB3985 EOR L1 DOLAR-1 D1TB3990 BSC L ERORG,Z D1TB3995 MDX 1 -1 D1TB4000 MDX LOOP3 D1TB4005 LDX 1 9 D1TB4010 BACK1 LD L1 RDARA&9 D1TB4015 AND CDTST D1TB4020 BSC L ERORG,Z D1TB4025 LD L1 RDARA&9 D1TB4030 LDX 2 16 D1TB4035 SLCA 2 0 D1TB4040 BSC L ERORG,&- D1TB4045 AND ELIMN D1TB4050 BSC L ERORG,Z D1TB4055 MDX 1 -1 D1TB4060 MDX BACK1 D1TB4065 LDX 1 3 D1TB4070 BACK2 LD L1 RDARA&6 D1TB4075 STO L1 SECT1&1 D1TB4080 STO L1 HSECT&1 D1TB4085 MDX 1 -1 D1TB4090 MDX BACK2 D1TB4095 LD L RDARA&10 D1TB4100 BSI L CONRT D1TB4105 STO L SECT1&5 D1TB4110 LD L RDARA&13 D1TB4115 BSI L CONRT D1TB4120 STO L SECT1&7 D1TB4125 S L FIVE D1TB4130 BSC L ERORG,Z- D1TB4135 LD L RDARA&16 D1TB4140 BSI L CONRT D1TB4145 STO L SECT1&9 D1TB4150 S L THREE D1TB4155 BSC L ERORG,Z- D1TB4160 LD L RDARA&11 D1TB4165 STO L CONV1&4 D1TB4170 LD L RDARA&12 D1TB4175 BSI L CONRT D1TB4180 STO L SECT1&6 D1TB4185 A L SECT1&7 D1TB4190 S CON81 D1TB4195 BSC L ERORG,Z- D1TB4200 LD L RDARA&14 D1TB4205 STO L CONV1&4 D1TB4210 LD L RDARA&15 D1TB4215 BSI L CONRT D1TB4220 STO L SECT1&8 D1TB4225 A L SECT1&9 D1TB4230 S CON81 D1TB4235 BSC L ERORG,Z- D1TB4240 LD L RDARA&17 D1TB4245 STO L CONV1&4 D1TB4250 LD L RDARA&18 D1TB4255 STO L CONV1&5 D1TB4260 LIBF DCBIN D1TB4265 DC CONV1 D1TB4270 STO L SECT1&10 D1TB4275 S CON81 D1TB4280 BSC L ERORG,- D1TB4285 LIBF HOLEB D1TB4290 DC /0000 D1TB4295 DC RDARA&21 D1TB4300 DC OVFNM D1TB4305 DC 20 D1TB4310 LIBF PRNT1 D1TB4315 DC /3100 D1TB4320 BSC I BEGIN D1TB4325 * D1TB4330 CONRT DC 0 D1TB4335 STO L CONV1&5 D1TB4340 LIBF DCBIN D1TB4345 DC CONV1 D1TB4350 BSC L ERORG,&- D1TB4355 BSC I CONRT D1TB4360 * D1TB4365 ELIMN DC /7FFF D1TB4370 CDTST DC /C000 D1TB4375 CON81 DC 81 D1TB4380 CLCON DC 316 D1TB4385 * D1TB4390 ERORG LIBF PRNT1 D1TB4395 DC /30F0 D1TB4400 LIBF PRNT1 D1TB4405 DC /2000 D1TB4410 DC ERRMS D1TB4415 DC ERORP D1TB4420 HOLD LIBF PRNT1 D1TB4425 DC /0000 D1TB4430 MDX HOLD D1TB4435 WAIT D1TB4440 SLA 16 D1TB4445 STO L CONV1&4 D1TB4450 BSC L BEGIN&1 D1TB4455 * D1TB4460 ERRMS DC 34 D1TB4465 EBC .CONTROL CARD MISSING - OR HAS AN. D1TB4470 EBC . INVALID FIELD. REFEED CONTROL CARD. D1TB4475 ** D1TB4480 *** PRINT OUT CONTROL CARD PARAMETERS D1TB4485 ** D1TB4490 FIRST DC 0 D1TB4495 LIBF PRNT1 D1TB4500 DC /3F00 D1TB4505 LDX 1 72 D1TB4510 FIRB1 LD L SECT1&5 D1TB4515 BSI L BIPNT D1TB4520 DC FIRNO D1TB4525 MDX L FIRB1&1,1 D1TB4530 LDX 2 12 D1TB4535 FIRB2 LD L1 FIRMS-1 D1TB4540 STO L2 FIRPR D1TB4545 MDX 2 -1 D1TB4550 MDX *&1 D1TB4555 MDX *&2 D1TB4560 MDX 1 -1 D1TB4565 MDX FIRB2 D1TB4570 LIBF PRNT1 D1TB4575 DC /2000 D1TB4580 DC FIRPR D1TB4585 DC ERORP D1TB4590 LIBF PRNT1 D1TB4595 DC /0000 D1TB4600 MDX *-3 D1TB4605 MDX 1 -1 D1TB4610 MDX FIRB1 D1TB4615 BSC I FIRST D1TB4620 * D1TB4625 FIRPR DC 16 D1TB4630 BSS 12 D1TB4635 EBC .= . D1TB4640 FIRNO BSS 2 D1TB4645 DC /4040 D1TB4650 * D1TB4655 FIRMS EBC .COL. FOR CARD NUMBER . D1TB4660 EBC .NO. COLS. FOR JOB IDENT . D1TB4665 EBC .FIRST COL. OF JOB IDENT . D1TB4670 EBC .NO. COLS. FOR RESP. NO. . D1TB4675 EBC .FIRST COL. OF RESP. NO. . D1TB4680 EBC .MAX NO.DATA CARDS/RESP. . D1TB4685 ** D1TB4690 *** ERROR ROUTINES D1TB4695 ** D1TB4700 EROR1 LD ERCON D1TB4705 MDX ERRUT D1TB4710 EROR2 LD ERCON&1 D1TB4715 MDX ERRUT D1TB4720 EROR3 LD ERCON&2 D1TB4725 MDX ERRUT D1TB4730 EROR4 LD ERCON&3 D1TB4735 MDX ERRUT D1TB4740 EROR5 LD ERCON&4 D1TB4745 MDX ERRUT D1TB4750 EROR6 LD ERCON&5 D1TB4755 MDX ERRUT D1TB4760 * D1TB4765 ERRUT STO ERRNO D1TB4770 LD L ONE D1TB4775 STO ERRSW D1TB4780 LDX 1 10 D1TB4785 EEEEE LD L1 ERFLD-1 D1TB4790 STO L1 PRARA&40 D1TB4795 MDX 1 -1 D1TB4800 MDX EEEEE D1TB4805 LDX I1 ERRNO D1TB4810 LDX 2 10 D1TB4815 ZZZZZ LD L1 ERFLD-1 D1TB4820 STO L2 PRARA&50 D1TB4825 MDX 1 -1 D1TB4830 MDX 2 -1 D1TB4835 MDX ZZZZZ D1TB4840 LIBF CARD0 D1TB4845 DC /4000 D1TB4850 BSC L ERRBK D1TB4855 * D1TB4860 ERCON DC 20 D1TB4865 DC 30 D1TB4870 DC 40 D1TB4875 DC 50 D1TB4880 DC 60 D1TB4885 DC 70 D1TB4890 BLANK DC /4040 D1TB4895 ERRNO DC 0 D1TB4900 ERRSW DC 0 D1TB4905 * D1TB4910 ERFLD EBC . ********** . D1TB4915 EBC .INVALID CARD TYPE . D1TB4920 EBC .COL. 2 OR 3 INVALID. D1TB4925 EBC .WRONG JOB NAME . D1TB4930 EBC .INVALID TABLE NO. . D1TB4935 EBC .CARD OUT OF SEQ. . D1TB4940 EBC .CARD LIMIT EXCEEDED . D1TB4945 ** D1TB4950 *** PRINTER OVERFLOW ROUTINES D1TB4955 ** D1TB4960 ERORP DC 0 D1TB4965 LD ONE D1TB4970 STO OVCHR D1TB4975 BSC I ERORP D1TB4980 * D1TB4985 OVFLO DC 0 D1TB4990 LD OVCHR D1TB4995 BSC I OVFLO,&- D1TB5000 SLA 16 D1TB5005 STO OVCHR D1TB5010 MDX L PAGNO,1 D1TB5015 LIBF PRNT1 D1TB5020 DC /30F0 D1TB5025 LD PAGNO D1TB5030 BSI L BIPNT D1TB5035 DC OVFPG D1TB5040 LIBF PRNT1 D1TB5045 DC /2000 D1TB5050 DC OVFLN D1TB5055 DC ERORP D1TB5060 BSC I OVFLO D1TB5065 * D1TB5070 PAGNO DC 0 D1TB5075 OVCHR DC 1 D1TB5080 ONE DC 1 D1TB5085 * D1TB5090 OVFLN DC 38 D1TB5095 EBC . DTAB PHASE 1. . D1TB5100 OVFNM BSS 10 D1TB5105 EBC . PAGE . D1TB5110 OVFPG BSS 2 D1TB5115 DC /4040 D1TB5120 ** D1TB5125 *** BINARY TO PRINT CONV. SUBROUTINE D1TB5130 ** D1TB5135 BIPNT DC 0 D1TB5140 LIBF BINDC D1TB5145 DC STORE D1TB5150 LD I BIPNT D1TB5155 STO BISW D1TB5160 MDX L BIPNT,1 D1TB5165 LIBF HOLEB D1TB5170 DC /0000 D1TB5175 DC STORE&1 D1TB5180 BISW DC *-* D1TB5185 DC 5 D1TB5190 BSC I BIPNT D1TB5195 * D1TB5200 STORE BSS 6 D1TB5205 ** D1TB5210 *** DISK AREAS - DISK ERROR ROUTINE D1TB5215 ** D1TB5220 DC 1 D1TB5225 COLSP BSS 322 D1TB5230 ROWSP BSS 320 D1TB5235 DC /8100 D1TB5240 * D1TB5245 DISK DC 960 D1TB5250 DC 0 D1TB5255 SPCD1 BSS 321 D1TB5260 SPCD2 BSS 317 D1TB5265 DISKI DC 13 D1TB5270 DC 799 D1TB5275 DC 0 D1TB5280 DC 0 D1TB5285 SECT1 DC 0 D1TB5290 DC 0 D1TB5295 BSS 316 D1TB5300 * D1TB5305 HDISK DC 1280 D1TB5310 DC 0 D1TB5315 HSECT DC 0 D1TB5320 DC 0 D1TB5325 BSS 4 D1TB5330 HDATA BSS 1274 D1TB5335 * D1TB5340 ERORD DC 0 D1TB5345 BSC I ERORD D1TB5350 CLEAR DC 642 D1TB5355 HCLER DC 1274 D1TB5360 ** D1TB5365 *** CARD READ AREA D1TB5370 ** D1TB5375 RDARA DC 80 D1TB5380 BSS 80 D1TB5385 ** D1TB5390 *** MAIN PRINTER AREA D1TB5395 ** D1TB5400 PRARA DC 60 D1TB5405 BSS 60 D1TB5410 ** D1TB5415 *** CONSTANTS D1TB5420 ** D1TB5425 CONV1 DC /80A0 D1TB5430 DC 0 D1TB5435 DC 0 D1TB5440 DC 0 D1TB5445 DC 0 D1TB5450 DC 0 D1TB5455 * D1TB5460 * D1TB5465 * D1TB5470 END START D1TB5475 // DUP *STORE WS UA D1TAB // PAUS // JOB // DUP *DELETE D2TAB // ASM *LIST *PRINT SYMBOL TABLE ** D2TB 5 *** DTAB PHASE 2. - VERSION 2 LEVEL 2. D2TB 10 ** D2TB 15 ABS D2TB 20 ORG 1080 D2TB 25 ** D2TB 30 *** MAIN PROGRAM D2TB 35 ** D2TB 40 START BSI L BEGIN D2TB 45 BSI L MKIND D2TB 50 BACKA BSI L RDGRP D2TB 55 LD INDCC D2TB 60 STO INDPP D2TB 65 LD L GRPCT D2TB 70 STO GRPST D2TB 75 BACKB LD I INDPP D2TB 80 EOR EOF D2TB 85 BSC L BACKE,&- D2TB 90 LD I INDPP D2TB 95 S TWO D2TB 100 STO L RDISK+1 D2TB 105 LIBF DISKN D2TB 110 DC /1000 D2TB 115 DC RDISK D2TB 120 DC ERORP D2TB 125 BACKC LIBF DISKN D2TB 130 DC /0000 D2TB 135 DC RDISK D2TB 140 MDX BACKC D2TB 145 BSI L EXEC D2TB 150 LD CNTWD D2TB 155 STO L WDISK D2TB 160 LD I INDPP D2TB 165 STO L WDISK+1 D2TB 170 LIBF DISKN D2TB 175 DC /4000 D2TB 180 DC WDISK D2TB 185 MDX L INDPP,1 D2TB 190 LD GRPST D2TB 195 STO L GRPCT D2TB 200 BACKD LIBF DISKN D2TB 205 DC /0000 D2TB 210 DC WDISK D2TB 215 MDX BACKD D2TB 220 MDX BACKB D2TB 225 * D2TB 230 BACKE LD I INDCC D2TB 235 STO L WDISK+1 D2TB 240 EOR EOF D2TB 245 BSC L *&4,&- D2TB 250 LIBF DISKN D2TB 255 DC /5000 D2TB 260 DC WDISK D2TB 265 DC ERORP D2TB 270 LSTSW MDX BACKA D2TB 275 BSI L CLOSE D2TB 280 LD L RESCT D2TB 285 LIBF BINDC D2TB 290 DC STORE D2TB 295 LIBF HOLEB D2TB 300 DC /0000 D2TB 305 DC STORE+1 D2TB 310 DC PFLDB D2TB 315 DC 5 D2TB 320 LIBF PRNT1 D2TB 325 DC /2000 D2TB 330 DC HEAD3 D2TB 335 DC ERORP D2TB 340 EXIT D2TB 345 * D2TB 350 GRPST DC 0 D2TB 355 INDPP DC INDEX D2TB 360 INDCC DC INDEX D2TB 365 CNTWD DC 320 D2TB 370 TWO DC 2 D2TB 375 EOF DC /FFFF D2TB 380 * D2TB 385 HEAD3 DC 60 D2TB 390 EBC .MAX. NO. OF DATA CARDS/RESPONDENT =. D2TB 395 PFLDA DC /4040 D2TB 400 EBC . NO. OF RESPONDENTS =. D2TB 405 PFLDB BSS 2 D2TB 410 DC /4040 D2TB 415 EBC . NO. OF TABLES TABULATED = . D2TB 420 PFLDC BSS 2 D2TB 425 DC /4040 D2TB 430 EBC . E.O.J.. D2TB 435 ** D2TB 440 *** READ RESPONDENT GROUP SUBROUTINE D2TB 445 ** D2TB 450 RDGRP DC 0 D2TB 455 SLA 16 D2TB 460 STO L GRPCT D2TB 465 S L DATEL D2TB 470 STO L DATPR D2TB 475 SLA 16 D2TB 480 LDX I1 DTLTH D2TB 485 BACKL STO L1 DATA-1 D2TB 490 MDX 1 -1 D2TB 495 MDX BACKL D2TB 500 BACKM MDX *+2 LAST CARD SWITCH D2TB 505 BSC I RDGRP D2TB 510 BACKN MDX BACKO RESP.CHECK BYPASS D2TB 515 LD CDRES D2TB 520 EOR WKRES D2TB 525 BSC L SAME,+- D2TB 530 BACKO LD L GRPCT D2TB 535 EOR GRPLT D2TB 540 BSC I RDGRP,+- D2TB 545 LD CDRES D2TB 550 STO WKRES D2TB 555 LD L DATPR D2TB 560 A L DATEL D2TB 565 STO L DATPR D2TB 570 MDX L GRPCT,1 D2TB 575 MDX L RESCT,1 D2TB 580 SAME LD CDNO D2TB 585 M CON80 D2TB 590 SLT 16 D2TB 595 A L DATPR D2TB 600 STO L CONV2 D2TB 605 LDX I2 CONV2 D2TB 610 LDX 1 80 D2TB 615 BACKP LD L1 RDARA D2TB 620 STO L2 DATA-1 D2TB 625 MDX 2 -1 D2TB 630 SLA 0 D2TB 635 MDX 1 -1 D2TB 640 MDX BACKP D2TB 645 BSI L RDCD D2TB 650 MDX BACKM D2TB 655 * D2TB 660 RESCT DC 0 D2TB 665 CON80 DC 80 D2TB 670 WKRES DC 0 D2TB 675 CDRES DC 0 D2TB 680 GRPLT DC 0 MAX.NO.OF RESP./GROUP D2TB 685 CDNO DC 0 D2TB 690 ** D2TB 695 *** CARD READ SUBROUTINE D2TB 700 ** D2TB 705 RDCD DC 0 D2TB 710 LIBF CARD0 D2TB 715 DC /1000 D2TB 720 DC RDARA D2TB 725 BACKF LIBF CARD0 D2TB 730 DC /0000 D2TB 735 MDX BACKF D2TB 740 LD L RDARA+1 D2TB 745 EOR DOLAR D2TB 750 BSC L BACKK,&- D2TB 755 LDX I1 NCOLR D2TB 760 BACKG LD L1 RDARA-1 *** FIRST COL.RESP.NO. D2TB 765 STO L1 WKCD1+5 *** FIRST WKCD1 POSN.USED D2TB 770 MDX 1 -1 D2TB 775 MDX BACKG D2TB 780 LDX I1 NCOLI D2TB 785 BACKH LD L1 RDARA-1 *** FIRST COL.I.D.NO D2TB 790 STO L1 WKCD3+2 *** FIRST WKCD3 POSN USED D2TB 795 MDX 1 -1 D2TB 800 MDX BACKH D2TB 805 IDSW MDX *+3 *** RESP.CHECK BYPASS D2TB 810 LD L RDARA *** CARD NO. COL D2TB 815 STO WKCD2 D2TB 820 LDX 1 3 D2TB 825 BACKI LD L1 WKCD3-1 D2TB 830 EOR L1 JOBNM+1 D2TB 835 BSC L SSCD,Z D2TB 840 MDX 1 -1 D2TB 845 MDX BACKI D2TB 850 LDX 1 6 D2TB 855 BACKJ LD L1 WKCD1 D2TB 860 AND CDTST D2TB 865 BSC L SSCD,Z D2TB 870 LD L1 WKCD1 D2TB 875 LDX 2 16 D2TB 880 SLCA 2 0 D2TB 885 BSC L SSCD,+- D2TB 890 AND ELIMN D2TB 895 BSC L SSCD,Z D2TB 900 MDX 1 -1 D2TB 905 MDX BACKJ D2TB 910 LIBF DCBIN D2TB 915 DC WKCD1 D2TB 920 STO L CDRES D2TB 925 BSC L SSCD,& D2TB 930 LD WKCD2 D2TB 935 STO L CONV1+5 D2TB 940 LIBF DCBIN D2TB 945 DC CONV1 D2TB 950 STO L CDNO D2TB 955 S NUMBR D2TB 960 BSC L SSCD,Z- D2TB 965 BSC I RDCD D2TB 970 * D2TB 975 SSCD LIBF CARD0 D2TB 980 DC /4000 D2TB 985 MDX RDCD+1 D2TB 990 * D2TB 995 BACKK LD SWXXX D2TB1000 STO L LSTSW D2TB1005 STO L BACKM D2TB1010 BSC I RDCD D2TB1015 * D2TB1020 SWXXX SLA 0 D2TB1025 NUMBR DC 0 MAX.NO.OF CARDS/RESP. D2TB1030 WKCD1 DC /80A0 D2TB1035 DC /2000 RESPONDENT NO. D2TB1040 DC /2000 D2TB1045 DC /2000 D2TB1050 DC /2000 D2TB1055 DC /2000 D2TB1060 WKCD2 DC /1000 CARD NO D2TB1065 WKCD3 DC 0 I.D. FIELD D2TB1070 DC 0 D2TB1075 DC 0 D2TB1080 DOLAR DC /4420 D2TB1085 NCOLR DC 0 NO.OF COLS.IN RESP.NO. D2TB1090 NCOLI DC 0 NO.OF COLS.IN I.D. NO. D2TB1095 CDTST DC /C000 D2TB1100 ELIMN DC /7FFF D2TB1105 ** D2TB1110 *** CLOSE SUBROUTINE D2TB1115 ** D2TB1120 CLOSE DC 0 D2TB1125 LD L CNTWD D2TB1130 STO L WDISK D2TB1135 LDX 2 0 D2TB1140 BACKW LD L2 INDEX D2TB1145 EOR L EOF D2TB1150 BSC I CLOSE,+- D2TB1155 LD L2 INDEX D2TB1160 STO L WDISK+1 D2TB1165 LIBF DISKN D2TB1170 DC /1000 D2TB1175 DC WDISK D2TB1180 DC ERORP D2TB1185 BACKX LIBF DISKN D2TB1190 DC /0000 D2TB1195 DC WDISK D2TB1200 MDX BACKX D2TB1205 LD TTTTT D2TB1210 STO L LABEL+1 D2TB1215 LIBF DISKN D2TB1220 DC /3000 D2TB1225 DC WDISK D2TB1230 DC ERORP D2TB1235 BACKY LIBF DISKN D2TB1240 DC /0000 D2TB1245 DC WDISK D2TB1250 MDX BACKY D2TB1255 MDX 2 1 D2TB1260 MDX BACKW D2TB1265 * D2TB1270 TTTTT DC /2400 D2TB1275 ** D2TB1280 *** INDIV. SPEC. SUBROUTINES - PART 1. D2TB1285 ** D2TB1290 PLSCH DC /8000 D2TB1295 MINCH DC /4000 D2TB1300 NILCH DC /2000 D2TB1305 ONECH DC /1000 D2TB1310 TWOCH DC /0800 D2TB1315 THRCH DC /0400 D2TB1320 FOUCH DC /0200 D2TB1325 FIVCH DC /0100 D2TB1330 SIXCH DC /0080 D2TB1335 SEVCH DC /0040 D2TB1340 EIGCH DC /0020 D2TB1345 NINCH DC /0010 D2TB1350 * D2TB1355 PLSRT LD PLSCH D2TB1360 MDX DIGRT D2TB1365 MINRT LD MINCH D2TB1370 MDX DIGRT D2TB1375 NILRT LD NILCH D2TB1380 MDX DIGRT D2TB1385 ONERT LD ONECH D2TB1390 MDX DIGRT D2TB1395 TWORT LD TWOCH D2TB1400 MDX DIGRT D2TB1405 THRRT LD THRCH D2TB1410 MDX DIGRT D2TB1415 FOURT LD FOUCH D2TB1420 MDX DIGRT D2TB1425 FIVRT LD FIVCH D2TB1430 MDX DIGRT D2TB1435 SIXRT LD SIXCH D2TB1440 MDX DIGRT D2TB1445 SEVRT LD SEVCH D2TB1450 MDX DIGRT D2TB1455 EIGRT LD EIGCH D2TB1460 MDX DIGRT D2TB1465 NINRT LD NINCH D2TB1470 MDX DIGRT D2TB1475 * D2TB1480 ZERRT LD I COLUM D2TB1485 BSC L ADJRT+1,+- D2TB1490 MDX ADJRT D2TB1495 * D2TB1500 SINRT LD I COLUM D2TB1505 BSC L ADJRT,+- D2TB1510 LDX 2 16 D2TB1515 SLCA 2 0 D2TB1520 AND L ELIMN D2TB1525 BSC L ADJRT+1,+- D2TB1530 MDX ADJRT D2TB1535 * D2TB1540 DOURT LD I COLUM D2TB1545 LDX 2 16 D2TB1550 SLCA 2 0 D2TB1555 AND L ELIMN D2TB1560 BSC L ADJRT,+- D2TB1565 LDX 2 16 D2TB1570 SLCA 2 0 D2TB1575 AND L ELIMN D2TB1580 BSC L ADJRT+1,+- D2TB1585 MDX ADJRT D2TB1590 * D2TB1595 DIGRT AND I COLUM D2TB1600 BSC L ADJRT+1,Z D2TB1605 ADJRT MDX *+1 D2TB1610 MDX TSTBK D2TB1615 LD INDPT D2TB1620 OR CTLSW D2TB1625 STO INDPT D2TB1630 RSTOR MDX TSTBK D2TB1635 LD YESSW D2TB1640 STO ADJRT D2TB1645 LD YESSW+1 D2TB1650 STO ADJRT+1 D2TB1655 LD YESSW+2 D2TB1660 STO RSTOR D2TB1665 MDX TSTBK D2TB1670 * D2TB1675 YESSW MDX X &1 D2TB1680 MDX X TSTBK-ADJRT-2 D2TB1685 MDX X TSTBK-RSTOR-1 D2TB1690 NOTSW MDX X RSTOR-ADJRT-1 D2TB1695 SLA 0 D2TB1700 * D2TB1705 NOTRT LD NOTSW D2TB1710 STO ADJRT D2TB1715 LD NOTSW+1 D2TB1720 STO ADJRT+1 D2TB1725 STO RSTOR D2TB1730 MDX TSTBK D2TB1735 * D2TB1740 BBBRT LD INDPT D2TB1745 OR CTLSW D2TB1750 STO INDPT D2TB1755 MDX TSTBK D2TB1760 * D2TB1765 ENDRT LD COLST D2TB1770 STO COLUM D2TB1775 LD SPSTO D2TB1780 STO SPSW+1 D2TB1785 MDX TSTBK D2TB1790 * D2TB1795 SLCRT LD INDPT D2TB1800 BSC L LOOPD,+- D2TB1805 SLA 16 D2TB1810 STO INDPT D2TB1815 LD FINPT D2TB1820 BSC L LOOPE,+- D2TB1825 LOOPD SLA 16 D2TB1830 STO FINPT D2TB1835 LD TBSTO D2TB1840 STO TBPTR D2TB1845 LD COLUM D2TB1850 STO COLST D2TB1855 LD DATPR D2TB1860 STO COLUM D2TB1865 LD SPSW+1 D2TB1870 STO SPSTO D2TB1875 LD S2ADR D2TB1880 STO SPSW+1 D2TB1885 LOOPE MDX L TBSTO,1 D2TB1890 MDX TSTBK D2TB1895 * D2TB1900 SLRRT LD INDPT D2TB1905 BSC L LOOPF,+- D2TB1910 SLA 16 D2TB1915 STO INDPT D2TB1920 LD FINPT D2TB1925 BSC L LOOPG,&- D2TB1930 LOOPF LD MANSW D2TB1935 BSC L LOOPG-2,&- D2TB1940 LD I TBPTR D2TB1945 A ACCUM D2TB1950 STO I TBPTR D2TB1955 SLA 16 D2TB1960 STO FINPT D2TB1965 LOOPG MDX L TBPTR,13 D2TB1970 MDX TSTBK D2TB1975 ** D2TB1980 *** TABULATE A CARD GROUP FOR ONE TABLE D2TB1985 ** D2TB1990 EXEC DC 0 D2TB1995 LD DTADR D2TB2000 STO DATPR D2TB2005 EXBK LD GRPCT D2TB2010 BSC I EXEC,& D2TB2015 S ONE D2TB2020 STO GRPCT D2TB2025 LD TBADR D2TB2030 STO TBSTO D2TB2035 LD ONE D2TB2040 STO ACCUM D2TB2045 STO MANSW D2TB2050 LD DATPR D2TB2055 STO COLUM D2TB2060 LD S1ADR D2TB2065 STO SPSW+1 D2TB2070 LD RESCH D2TB2075 STO CTLSW D2TB2080 TSTBK MDX L SPSW&1,1 D2TB2085 SPSW LDX I1 *-* D2TB2090 BSC I1 VECTR D2TB2095 * D2TB2100 TSOUT LD DATPR D2TB2105 A DATEL D2TB2110 STO DATPR D2TB2115 MDX EXBK D2TB2120 * D2TB2125 DTADR DC DATA D2TB2130 DATPR DC 0 D2TB2135 DATEL DC 0 DATA LENGTH/RESPONDENT D2TB2140 TBADR DC TABLE D2TB2145 TBPTR DC 0 D2TB2150 TBSTO DC 0 D2TB2155 ONE DC 1 D2TB2160 ACCUM DC 1 D2TB2165 MANSW DC 10 D2TB2170 COLUM DC 0 D2TB2175 COLST DC 0 D2TB2180 S1ADR DC SPCD1-1 D2TB2185 S2ADR DC SPCD2-1 D2TB2190 SPSTO DC 0 D2TB2195 GRPCT DC 0 D2TB2200 RESCH DC /8000 D2TB2205 INDPT DC 0 D2TB2210 FINPT DC 0 D2TB2215 CTLSW DC /8000 D2TB2220 ** D2TB2225 *** INDIV. SPEC. SUBROUTINES - PART 2. D2TB2230 ** D2TB2235 ORRT LD INDPT D2TB2240 AND CTLSW D2TB2245 BSC L ORBK,+- D2TB2250 EOR INDPT D2TB2255 STO INDPT D2TB2260 MDX TSTBK D2TB2265 ORBK LD FINPT D2TB2270 OR CTLSW D2TB2275 STO FINPT D2TB2280 MDX TSTBK D2TB2285 * D2TB2290 LFTRT LD CTLSW D2TB2295 SRA 1 D2TB2300 STO CTLSW D2TB2305 MDX TSTBK D2TB2310 * D2TB2315 RGHRT LD INDPT D2TB2320 AND CTLSW D2TB2325 BSC L LOOPH,+- D2TB2330 EOR INDPT D2TB2335 STO INDPT D2TB2340 LD FINPT D2TB2345 AND CTLSW D2TB2350 BSC L LOOPI,+- D2TB2355 LOOPH LD FINPT D2TB2360 OR CTLSW D2TB2365 EOR CTLSW D2TB2370 STO FINPT D2TB2375 LD CTLSW D2TB2380 SLA 1 D2TB2385 STO CTLSW D2TB2390 MDX TSTBK D2TB2395 LOOPI LD CTLSW D2TB2400 SLA 1 D2TB2405 STO CTLSW D2TB2410 OR INDPT D2TB2415 STO INDPT D2TB2420 MDX TSTBK D2TB2425 * D2TB2430 COLRT MDX L SPSW+1,1 D2TB2435 LD I SPSW+1 D2TB2440 A DATPR D2TB2445 STO COLUM D2TB2450 MDX TSTBK D2TB2455 * D2TB2460 MANRT LD INDPT D2TB2465 BSC L MANBK,+- D2TB2470 SLA 16 D2TB2475 STO INDPT D2TB2480 LD FINPT D2TB2485 BSC L MANBK,Z D2TB2490 STO MANSW D2TB2495 MDX TSTBK D2TB2500 MANBK SLA 16 D2TB2505 STO FINPT D2TB2510 LD TEN D2TB2515 STO MANSW D2TB2520 MDX TSTBK D2TB2525 * D2TB2530 WGHRT MDX L SPSW+1,1 D2TB2535 LD SPSW+1 D2TB2540 STO *+1 D2TB2545 LDX I2 *-* D2TB2550 LD L COLUM D2TB2555 STO *+1 D2TB2560 WGHSW LD L *-* D2TB2565 STO L CONV1+5 D2TB2570 MDX L WGHSW+1,-1 D2TB2575 MDX L WGHSW+3,-1 D2TB2580 MDX 2 -1 D2TB2585 MDX WGHSW D2TB2590 LIBF DCBIN D2TB2595 DC CONV1 D2TB2600 STO ACCUM D2TB2605 SLA 16 D2TB2610 STO L CONV1+3 D2TB2615 STO L CONV1+4 D2TB2620 LD WGCON D2TB2625 STO WGHSW+3 D2TB2630 MDX TSTBK D2TB2635 WGCON DC CONV1+5 D2TB2640 * D2TB2645 AAART LD MANSW D2TB2650 BSC L TSTBK,&- D2TB2655 LD I COLUM D2TB2660 AND L PLSCH D2TB2665 BSC L BBBRT,Z D2TB2670 LD I COLUM D2TB2675 AND L MINCH D2TB2680 BSC L AATEN,Z D2TB2685 LD I COLUM D2TB2690 STO L CONV1+5 D2TB2695 LIBF DCBIN D2TB2700 DC CONV1 D2TB2705 AAABK M L ACCUM D2TB2710 SLT 16 D2TB2715 LDX I2 TBPTR D2TB2720 MDX I2 AACON D2TB2725 A 2 0 D2TB2730 STO 2 0 D2TB2735 BSC L TSTBK D2TB2740 AATEN LD TEN D2TB2745 MDX AAABK D2TB2750 TEN DC 10 D2TB2755 AACON DC 156 D2TB2760 ** D2TB2765 *** SPEC. SUBROUTINES LINKAGE VECTOR. D2TB2770 ** D2TB2775 VECTR DC PLSRT D2TB2780 DC MINRT D2TB2785 DC NILRT D2TB2790 DC ONERT D2TB2795 DC TWORT D2TB2800 DC THRRT D2TB2805 DC FOURT D2TB2810 DC FIVRT D2TB2815 DC SIXRT D2TB2820 DC SEVRT D2TB2825 DC EIGRT D2TB2830 DC NINRT D2TB2835 DC ZERRT D2TB2840 DC SINRT D2TB2845 DC DOURT D2TB2850 DC NOTRT D2TB2855 DC SLCRT D2TB2860 DC SLRRT D2TB2865 DC WGHRT D2TB2870 DC MANRT D2TB2875 DC BBBRT D2TB2880 DC COLRT D2TB2885 DC ORRT D2TB2890 DC TSOUT D2TB2895 DC ENDRT D2TB2900 DC AAART D2TB2905 DC LFTRT D2TB2910 DC RGHRT D2TB2915 ** D2TB2920 *** DISK INPUT/OUTPUT AREAS D2TB2925 ** D2TB2930 RDISK DC 960 D2TB2935 DC 0 D2TB2940 SPCD1 BSS 321 D2TB2945 SPCD2 BSS 317 D2TB2950 WDISK DC 320 D2TB2955 DC 799 D2TB2960 BSS 2 D2TB2965 LABEL BSS 6 D2TB2970 TABLE BSS 312 D2TB2975 ** D2TB2980 *** CARD READ AREA D2TB2985 ** D2TB2990 RDARA DC 80 D2TB2995 BSS 80 D2TB3000 ** D2TB3005 *** DISK INDEX D2TB3010 ** D2TB3015 INDEX BSS 201 D2TB3020 ** D2TB3025 *** WORK AREAS - DISK/PRINTER ERROR ROUT. D2TB3030 ** D2TB3035 CONV1 DC /80A0 D2TB3040 DC 0 D2TB3045 DC 0 D2TB3050 DC 0 D2TB3055 DC 0 D2TB3060 DC 0 D2TB3065 CONV2 BSS E 2 D2TB3070 STORE BSS 6 D2TB3075 ERORP DC 0 D2TB3080 BSC I ERORP D2TB3085 ** D2TB3090 *** CONSTANTS D2TB3095 ** D2TB3100 JOBNM BSS 5 D2TB3105 X1SAV DC 0 D2TB3110 X2SAV DC 0 D2TB3115 DSCON DC 802 D2TB3120 TBMAX DC 200 D2TB3125 TBLTH DC 312 D2TB3130 TBCNT DC 0 D2TB3135 ** D2TB3140 *** PRINT HEADERS - READ CONTROL SECTOR D2TB3145 ** D2TB3150 BEGIN DC 0 D2TB3155 LIBF PRNT1 D2TB3160 DC /3100 D2TB3165 LIBF PRNT1 D2TB3170 DC /2000 D2TB3175 DC HEAD1 D2TB3180 DC ERORP D2TB3185 LIBF DISKN D2TB3190 DC /1000 D2TB3195 DC WDISK D2TB3200 DC ERORP D2TB3205 LIBF PRNT1 D2TB3210 DC /30F0 D2TB3215 LIBF PRNT1 D2TB3220 DC /2000 D2TB3225 DC HEAD2 D2TB3230 DC ERORP D2TB3235 LOOPA LIBF DISKN D2TB3240 DC /0000 D2TB3245 DC WDISK D2TB3250 MDX LOOPA D2TB3255 LDX 2 5 D2TB3260 LOOPB LD L2 LABEL-1 D2TB3265 STO L2 JOBNM-1 D2TB3270 MDX 2 -1 D2TB3275 MDX LOOPB D2TB3280 LD L LABEL+5 D2TB3285 STO L NUMBR D2TB3290 LIBF BINDC D2TB3295 DC STORE D2TB3300 LIBF HOLEB D2TB3305 DC /0000 D2TB3310 DC STORE+5 D2TB3315 DC PFLDA D2TB3320 DC 1 D2TB3325 MDX BACKZ D2TB3330 * D2TB3335 HEAD1 DC 7 D2TB3340 EBC .DTAB PHASE 2.. D2TB3345 HEAD2 DC 7 D2TB3350 EBC .---- ----- --. D2TB3355 * D2TB3360 BACKZ LD L NUMBR D2TB3365 M L CON80 D2TB3370 SLT 16 D2TB3375 STO L DATEL D2TB3380 LD L DTLTH D2TB3385 SRT 16 D2TB3390 D L DATEL D2TB3395 STO L GRPLT D2TB3400 LD L BACKG+1 D2TB3405 A L TABLE D2TB3410 STO L BACKG+1 D2TB3415 LD L TABLE+1 D2TB3420 STO L NCOLR D2TB3425 LD L BACKG+3 D2TB3430 S L TABLE+1 D2TB3435 STO L BACKG+3 D2TB3440 LD L BACKH+1 D2TB3445 A L TABLE+2 D2TB3450 STO L BACKH+1 D2TB3455 LD L TABLE+3 D2TB3460 STO L NCOLI D2TB3465 LD L BACKH+3 D2TB3470 S L TABLE+3 D2TB3475 STO L BACKH+3 D2TB3480 LD L TABLE+4 D2TB3485 BSC L LOOPC,+- D2TB3490 A L IDSW+2 D2TB3495 STO L IDSW+2 D2TB3500 LD L SWXXX D2TB3505 STO L IDSW D2TB3510 STO L BACKN D2TB3515 LOOPC BSI L RDCD D2TB3520 BSC I BEGIN D2TB3525 ** D2TB3530 *** MAKE INDEX SUBROUTINE D2TB3535 ** D2TB3540 MKIND DC 0 D2TB3545 LD L DSCON D2TB3550 STO L WDISK+1 D2TB3555 LDX I1 TBMAX D2TB3560 BACKQ LIBF DISKN D2TB3565 DC /1000 D2TB3570 DC WDISK D2TB3575 DC ERORP D2TB3580 BACKR LIBF DISKN D2TB3585 DC /0000 D2TB3590 DC WDISK D2TB3595 MDX BACKR D2TB3600 LDX 2 5 D2TB3605 BACKS LD L2 LABEL-1 D2TB3610 EOR L2 JOBNM-1 D2TB3615 BSC L BACKV,Z D2TB3620 MDX 2 -1 D2TB3625 MDX BACKS D2TB3630 LD L WDISK+1 D2TB3635 STO I INDPP D2TB3640 MDX L INDPP,1 D2TB3645 MDX L TBCNT,1 D2TB3650 LDX I2 TBLTH D2TB3655 SLA 16 D2TB3660 BACKT STO L2 TABLE-1 D2TB3665 MDX 2 -1 D2TB3670 MDX BACKT D2TB3675 LIBF DISKN D2TB3680 DC /4000 D2TB3685 DC WDISK D2TB3690 BACKU LIBF DISKN D2TB3695 DC /0000 D2TB3700 DC WDISK D2TB3705 MDX BACKU D2TB3710 BACKV MDX L WDISK+1,4 D2TB3715 MDX 1 -1 D2TB3720 MDX BACKQ D2TB3725 LD L EOF D2TB3730 STO I INDPP D2TB3735 LD L TBCNT D2TB3740 LIBF BINDC D2TB3745 DC STORE D2TB3750 LIBF HOLEB D2TB3755 DC /0000 D2TB3760 DC STORE+1 D2TB3765 DC PFLDC D2TB3770 DC 5 D2TB3775 BSC I MKIND D2TB3780 * D2TB3785 * D2TB3790 * D2TB3795 ORG BEGIN D2TB3800 ** D2TB3805 *** DATA AREA D2TB3810 ** D2TB3815 DATA BSS 3840 D2TB3820 DTLTH DC 3840 D2TB3825 * D2TB3830 * D2TB3835 * D2TB3840 END START D2TB3845 // DUP *STORE WS UA D2TAB // PAUS // JOB // DUP *DELETE D3TAB // ASM *LIST *PRINT SYMBOL TABLE ** D3TB 5 *** DTAB PHASE 3. - VERSION 2 LEVEL 2. D3TB 10 ** D3TB 15 ABS D3TB 20 ORG 1080 D3TB 25 ** D3TB 30 *** MAIN PROGRAM D3TB 35 ** D3TB 40 START BSI L RDSUB D3TB 45 BACK LD L RDARA&1 D3TB 50 EOR DOLAR D3TB 55 BSC L DOLRT,&- D3TB 60 LDX 1 3 D3TB 65 LOOP2 LD L1 RDARA&74 D3TB 70 EOR L1 JOBNM&1 D3TB 75 BSC L DOWN1,Z D3TB 80 MDX 1 -1 D3TB 85 MDX LOOP2 D3TB 90 BSI L CVTAB D3TB 95 LD CDNO D3TB 100 EOR TABNO D3TB 105 BSC L STSEL,&- D3TB 110 MDX DOWN1&2 D3TB 115 * D3TB 120 STSEL LIBF CARD0 D3TB 125 DC /4000 D3TB 130 LIBF PRNT1 D3TB 135 DC /2000 D3TB 140 DC ERRRR D3TB 145 DC ERORP D3TB 150 MDX L ERTOT,1 D3TB 155 MDX START D3TB 160 * D3TB 165 ENDRT LIBF PRNT1 D3TB 170 DC /3100 D3TB 175 LD TOTTB D3TB 180 LIBF BINDC D3TB 185 DC STORE D3TB 190 LIBF HOLEB D3TB 195 DC /0000 D3TB 200 DC STORE&1 D3TB 205 DC LAST1 D3TB 210 DC 5 D3TB 215 LD NOTAB D3TB 220 LIBF BINDC D3TB 225 DC STORE D3TB 230 LIBF HOLEB D3TB 235 DC /0000 D3TB 240 DC STORE&1 D3TB 245 DC LAST2 D3TB 250 DC 5 D3TB 255 LD ERTOT D3TB 260 LIBF BINDC D3TB 265 DC STORE D3TB 270 LIBF HOLEB D3TB 275 DC /0000 D3TB 280 DC STORE&1 D3TB 285 DC LAST3 D3TB 290 DC 5 D3TB 295 LIBF PRNT1 D3TB 300 DC /3010 D3TB 305 LIBF PRNT1 D3TB 310 DC /2000 D3TB 315 DC LASTP D3TB 320 DC ERORP D3TB 325 EXIT D3TB 330 * D3TB 335 DOLAR DC /4420 D3TB 340 DC /8200 D3TB 345 DC /0400 D3TB 350 DC /2400 D3TB 355 DC /9000 D3TB 360 DC /8800 D3TB 365 JOBNM DC 0 D3TB 370 DC /2400 D3TB 375 DC 0 D3TB 380 DC 0 D3TB 385 DC 0 D3TB 390 TABNO DC 0 D3TB 395 CDNO DC 0 D3TB 400 FOURS DC 4 D3TB 405 DSCON DC 798 D3TB 410 TOTTB DC 0 D3TB 415 NOTAB DC 0 D3TB 420 ERTOT DC 0 D3TB 425 HUNDR DC 200 D3TB 430 ** D3TB 435 *** GET MATRIX FROM DISK D3TB 440 ** D3TB 445 DOWN1 BSI L CVTAB D3TB 450 LDX 1 3 D3TB 455 LXXP3 LD L1 RDARA&74 D3TB 460 STO L1 JOBNM&1 D3TB 465 MDX 1 -1 D3TB 470 MDX LXXP3 D3TB 475 SKPSW SLA 0 D3TB 480 LIBF PRNT1 D3TB 485 DC /3100 D3TB 490 LD CDNO D3TB 495 STO TABNO D3TB 500 S HUNDR D3TB 505 BSC L EROR1,Z- D3TB 510 LD TABNO D3TB 515 M FOURS D3TB 520 STD L CONV2 D3TB 525 LD L CONV2&1 D3TB 530 A DSCON D3TB 535 STO L DISK&1 D3TB 540 LIBF DISKN D3TB 545 DC /1000 D3TB 550 DC DISK D3TB 555 DC ERORP D3TB 560 LXXP4 LIBF DISKN D3TB 565 DC /0000 D3TB 570 DC DISK D3TB 575 MDX LXXP4 D3TB 580 MDX L TOTTB,1 D3TB 585 LDX 1 6 D3TB 590 LXXP5 LD L1 LABEL-1 D3TB 595 EOR L1 JOBNM-1 D3TB 600 BSC L DOWN2,Z D3TB 605 MDX 1 -1 D3TB 610 MDX LXXP5 D3TB 615 MDX ENTER D3TB 620 DOWN2 LDX I1 TBLTH D3TB 625 SLA 16 D3TB 630 L00P6 STO L1 TABLE-1 D3TB 635 MDX 1 -1 D3TB 640 MDX L00P6 D3TB 645 MDX L NOTAB,1 D3TB 650 LIBF PRNT1 D3TB 655 DC /30E0 D3TB 660 LIBF PRNT1 D3TB 665 DC /2000 D3TB 670 DC PPPNL D3TB 675 DC ERORP D3TB 680 MDX ENTER D3TB 685 * D3TB 690 TTTTR DC /2400 D3TB 695 SWA SLA 0 D3TB 700 ** D3TB 705 *** PRINT TITLE AND HEADER LINES D3TB 710 ** D3TB 715 ENTER LDX I1 PRARA D3TB 720 SLA 16 D3TB 725 CL1 STO L1 PRARA D3TB 730 MDX 1 -1 D3TB 735 MDX CL1 D3TB 740 LDX I1 TBLTH D3TB 745 CL2 STO L1 PERTB-1 D3TB 750 MDX 1 -1 D3TB 755 MDX CL2 D3TB 760 LD TTTTR D3TB 765 STO TTTTT D3TB 770 LD SWA D3TB 775 STO SWCH2 D3TB 780 BACK1 LD L RDARA&1 D3TB 785 EOR TTTTT D3TB 790 BSC L EXIT1,Z D3TB 795 LD L RDARA&2 D3TB 800 STO L CONV1&5 D3TB 805 LIBF DCBIN D3TB 810 DC CONV1 D3TB 815 STO COL2C D3TB 820 BACK2 EOR COL2W D3TB 825 BSC L EQAL1,&- D3TB 830 LIBF PRNT1 D3TB 835 DC /2000 D3TB 840 DC PRARA D3TB 845 DC ERORP D3TB 850 LD COL2W D3TB 855 A ONE D3TB 860 STO COL2W D3TB 865 LOOP3 LIBF PRNT1 D3TB 870 DC /0000 D3TB 875 MDX LOOP3 D3TB 880 LDX I1 PRARA D3TB 885 SLA 16 D3TB 890 CL5 STO L1 PRARA D3TB 895 MDX 1 -1 D3TB 900 MDX CL5 D3TB 905 LD COL2C D3TB 910 MDX BACK2 D3TB 915 EQAL1 LD L RDARA&3 D3TB 920 AND TEST1 D3TB 925 BSC L EROR3,Z D3TB 930 LD L RDARA&3 D3TB 935 LDX 2 16 D3TB 940 SLCA 2 0 D3TB 945 BSC L EROR3,&- D3TB 950 AND ELIMN D3TB 955 BSC L EROR3,Z D3TB 960 LD L RDARA&3 D3TB 965 EOR CHAR1 D3TB 970 BSC L OUTA1,&- D3TB 975 LD L RDARA&3 D3TB 980 EOR CHAR2 D3TB 985 BSC L OUTA2,&- D3TB 990 LD PRADR D3TB 995 A FORTY D3TB1000 STO VARI1 D3TB1005 BACK3 LIBF HOLEB D3TB1010 DC /0000 D3TB1015 DC RDARA&21 D3TB1020 VARI1 DC 0 D3TB1025 DC 40 D3TB1030 BSI L RCARD D3TB1035 MDX BACK1 D3TB1040 OUTA1 LD PRADR D3TB1045 STO VARI1 D3TB1050 MDX BACK3 D3TB1055 OUTA2 LD PRADR D3TB1060 A TWNTY D3TB1065 STO VARI1 D3TB1070 MDX BACK3 D3TB1075 * D3TB1080 TTTTT DC /2400 D3TB1085 COL2W DC 1 D3TB1090 COL2C DC 0 D3TB1095 ONE DC 1 D3TB1100 TEST1 DC /E3FF D3TB1105 ELIMN DC /7FFF D3TB1110 CHAR1 DC /1000 D3TB1115 CHAR2 DC /0800 D3TB1120 PRADR DC PRARA&1 D3TB1125 TWNTY DC 20 D3TB1130 FORTY DC 40 D3TB1135 * D3TB1140 EXIT1 LIBF PRNT1 D3TB1145 DC /2000 D3TB1150 DC PRARA D3TB1155 DC ERORP D3TB1160 LD ONE D3TB1165 STO COL2W D3TB1170 LOOP4 LIBF PRNT1 D3TB1175 DC /0000 D3TB1180 MDX LOOP4 D3TB1185 LDX I1 PRARA D3TB1190 SLA 16 D3TB1195 CL6 STO L1 PRARA D3TB1200 MDX 1 -1 D3TB1205 MDX CL6 D3TB1210 SWCH2 SLA 0 D3TB1215 LD HHHHH D3TB1220 STO TTTTT D3TB1225 LD SW2 D3TB1230 STO SWCH2 D3TB1235 MDX BACK1 D3TB1240 * D3TB1245 HHHHH DC /8020 D3TB1250 SW2 MDX X EXIT2-SWCH2-1 D3TB1255 ** D3TB1260 *** COMPUTE SIGMA LINE D3TB1265 ** D3TB1270 EXIT2 SLA 16 D3TB1275 STO L PERCT D3TB1280 USSW1 SLA 0 D3TB1285 CALL USEX1 D3TB1290 DC TABLE&311 D3TB1295 LDX I1 WKLTH D3TB1300 SLA 16 D3TB1305 WKBCK STO L1 WKTAB-1 D3TB1310 MDX 1 -1 D3TB1315 MDX WKBCK D3TB1320 SGSW MDX EXITP D3TB1325 STO SGPTR D3TB1330 SGENT LD SGPTR D3TB1335 EOR L COLLT D3TB1340 BSC L EXITP,&- D3TB1345 LD ONE D3TB1350 A ONE D3TB1355 STO SGCTR D3TB1360 SLA 16 D3TB1365 STO ACCUM D3TB1370 LDX I1 SGPTR D3TB1375 MDX 1 13 D3TB1380 SGBCK LD SGCTR D3TB1385 EOR SGLTH D3TB1390 BSC L SGEND,&- D3TB1395 LD ACCUM D3TB1400 A L1 TABLE D3TB1405 STO ACCUM D3TB1410 MDX 1 13 D3TB1415 MDX L SGCTR,1 D3TB1420 MDX SGBCK D3TB1425 SGEND LD ACCUM D3TB1430 STO L1 TABLE D3TB1435 MDX L SGPTR,1 D3TB1440 MDX SGENT D3TB1445 * D3TB1450 SGXX1 MDX X EXITP-SGSW-1 D3TB1455 SGXX2 SLA 0 D3TB1460 SGXX3 EOR X SGLTH-FBACK-3 D3TB1465 SGPTR DC 0 D3TB1470 SGCTR DC 0 D3TB1475 WKLTH DC 48 D3TB1480 ACCUM DC 0 D3TB1485 SGLTH DC 0 D3TB1490 FCNTR DC 1 D3TB1495 ** D3TB1500 *** PERCENTAGE VERTICALLY D3TB1505 ** D3TB1510 EXITP LD L PERCT D3TB1515 SLA 0 D3TB1520 EOR L COLLT D3TB1525 BSC L EXIT4,&- D3TB1530 SLA 16 D3TB1535 STO L SUBPR D3TB1540 LDX 2 0 D3TB1545 LDX I1 PERCT D3TB1550 LD L1 TABLE D3TB1555 STO L DVSOR D3TB1560 BSC L PERC2,&- D3TB1565 PERC1 LD L SUBPR D3TB1570 EOR L ROWLT D3TB1575 BSC L PERC3,&- D3TB1580 LD L1 TABLE D3TB1585 M L MPLER D3TB1590 D L DVSOR D3TB1595 STD L2 WKTAB D3TB1600 LD L2 WKTAB&1 D3TB1605 M L CON10 D3TB1610 D L DVSOR D3TB1615 STO L2 WKTAB&1 D3TB1620 MDX 1 13 D3TB1625 MDX 2 2 D3TB1630 MDX L SUBPR,1 D3TB1635 MDX PERC1 D3TB1640 PERC3 BSI L PERXX D3TB1645 LDX 2 48 D3TB1650 LD L2 WKTAB-2 D3TB1655 STO L1 PERTB-13 D3TB1660 MDX 1 -13 D3TB1665 SLA 0 D3TB1670 MDX 2 -2 D3TB1675 MDX PERC3&3 D3TB1680 PERC2 MDX L PERCT,1 D3TB1685 BSC L EXITP D3TB1690 ** D3TB1695 *** PERCENTAGE HORIZONTALLY D3TB1700 ** D3TB1705 ALTEX EOR L ALCOL D3TB1710 BSC L EXIT4,&- D3TB1715 SLA 16 D3TB1720 STO SUBPR D3TB1725 LDX 2 0 D3TB1730 LDX I1 PERCT D3TB1735 LD L1 TABLE D3TB1740 STO DVSOR D3TB1745 BSC L ALTC2,&- D3TB1750 ALTC1 LD SUBPR D3TB1755 EOR L ALROW D3TB1760 BSC L ALTC3,&- D3TB1765 LD L1 TABLE D3TB1770 M MPLER D3TB1775 D DVSOR D3TB1780 STD L2 WKTAB D3TB1785 LD L2 WKTAB&1 D3TB1790 M CON10 D3TB1795 D DVSOR D3TB1800 STO L2 WKTAB&1 D3TB1805 MDX 1 1 D3TB1810 MDX 2 2 D3TB1815 MDX L SUBPR,1 D3TB1820 MDX ALTC1 D3TB1825 ALTC3 BSI L PERXX D3TB1830 LDX 2 26 D3TB1835 LD L2 WKTAB-2 D3TB1840 STO L1 PERTB-1 D3TB1845 MDX 1 -1 D3TB1850 SLA 0 D3TB1855 MDX 2 -2 D3TB1860 MDX ALTC3&3 D3TB1865 ALTC2 MDX L PERCT,13 D3TB1870 BSC L EXITP D3TB1875 ** D3TB1880 *** FORCING/ROUNDING ROUTINES D3TB1885 ** D3TB1890 PERXX DC 0 D3TB1895 SLA 16 D3TB1900 STO L TOTAL D3TB1905 LDX 2 48 D3TB1910 SWCH4 SLA 0 D3TB1915 LD L ROWLT D3TB1920 STO FCNTR D3TB1925 FBACK LD L FCNTR D3TB1930 EOR SGLTH D3TB1935 BSC L *&6,&- D3TB1940 LD L TOTAL D3TB1945 A L2 WKTAB-2 D3TB1950 STO L TOTAL D3TB1955 MDX L FCNTR,-1 D3TB1960 SLA 0 D3TB1965 MDX 2 -2 D3TB1970 MDX FBACK D3TB1975 LD TOTAL D3TB1980 S MPLER D3TB1985 S MPLER D3TB1990 BSC L ROUND,Z- D3TB1995 BSC I PERXX,- D3TB2000 STO TOTAL D3TB2005 BACKA LD L2 WKTAB&1 D3TB2010 EOR NINE D3TB2015 BSC L YESSS,&- D3TB2020 LD L2 WKTAB&1 D3TB2025 A UNO D3TB2030 STO L2 WKTAB&1 D3TB2035 BACKB MDX 2 -45 D3TB2040 MDX 2 -1 D3TB2045 MDX 2 47 D3TB2050 MDX BACKA D3TB2055 MDX BACKA D3TB2060 YESSS SLA 16 D3TB2065 STO L2 WKTAB&1 D3TB2070 LD L2 WKTAB D3TB2075 A UNO D3TB2080 STO L2 WKTAB D3TB2085 LD TOTAL D3TB2090 A UNO D3TB2095 BSC I PERXX,&- D3TB2100 STO TOTAL D3TB2105 MDX BACKB D3TB2110 ROUND LDX 2 48 D3TB2115 LD L2 WKTAB-1 D3TB2120 S FIVE D3TB2125 BSC L *&5,Z& D3TB2130 LD L2 WKTAB-2 D3TB2135 A UNO D3TB2140 STO L2 WKTAB-2 D3TB2145 MDX 2 -2 D3TB2150 MDX ROUND&1 D3TB2155 BSC I PERXX D3TB2160 * D3TB2165 PERCT DC 0 D3TB2170 SUBPR DC 0 D3TB2175 DVSOR DC 0 D3TB2180 COLLT DC 13 D3TB2185 ROWLT DC 24 D3TB2190 CON10 DC 10 D3TB2195 MPLER DC 100 D3TB2200 ADONE DC 1 D3TB2205 MPLXX DC 1000 D3TB2210 MPLYY DC 100 D3TB2215 TOTAL DC 0 D3TB2220 NINE DC 9 D3TB2225 UNO DC 1 D3TB2230 FIVE DC 5 D3TB2235 LNCTR DC 0 D3TB2240 CLCTR DC 0 D3TB2245 TOTLN DC 0 D3TB2250 TOTCL DC 0 D3TB2255 TABPR DC 0 D3TB2260 PERPR DC 0 D3TB2265 SPTST DC /0001 D3TB2270 CON13 DC 13 D3TB2275 ALROW DC 13 D3TB2280 ALCOL DC 312 D3TB2285 ALXX1 SLA 0 D3TB2290 ALXX2 MDX X ALTEX-EXITP-3 D3TB2295 ** D3TB2300 *** PRINT BODY OF TABLE D3TB2305 ** D3TB2310 EXIT4 LDX L1 TABLE D3TB2315 STX 1 TABPR D3TB2320 LDX L1 PERTB D3TB2325 STX 1 PERPR D3TB2330 SLA 16 D3TB2335 STO LNCTR D3TB2340 USSW2 SLA 0 D3TB2345 CALL USEX2 D3TB2350 DC TABLE&311 D3TB2355 PRBCK LD LNCTR D3TB2360 EOR TOTLN D3TB2365 BSC L EXITF,&- D3TB2370 LD LNCTR D3TB2375 A L ONES D3TB2380 STO LNCTR D3TB2385 AND SPTST D3TB2390 BSC L *&2,&- D3TB2395 LIBF PRNT1 D3TB2400 OPTNB DC /3D00 D3TB2405 LDX 1 121 D3TB2410 SLA 16 D3TB2415 LOOPD STO L1 AREA-1 D3TB2420 MDX 1 -1 D3TB2425 MDX LOOPD D3TB2430 LD L RDARA&1 D3TB2435 EOR L SSSSS D3TB2440 BSC L BACK4,Z D3TB2445 LD L RDARA&2 D3TB2450 STO L CONV1&4 D3TB2455 LD L RDARA&3 D3TB2460 STO L CONV1&5 D3TB2465 LIBF DCBIN D3TB2470 DC CONV1 D3TB2475 EOR LNCTR D3TB2480 BSC L BACK4,Z D3TB2485 LDX 1 40 D3TB2490 LOOPF LD L1 RDARA&20 D3TB2495 STO L1 AREA-1 D3TB2500 MDX 1 -1 D3TB2505 MDX LOOPF D3TB2510 BSI L RCARD D3TB2515 BACK4 SLA 16 D3TB2520 STO L CONV1&4 D3TB2525 LD LNCTR D3TB2530 AND SPTST D3TB2535 BSC L FLIPA,Z D3TB2540 LDX I2 PERPR D3TB2545 LD TABPR D3TB2550 A CON13 D3TB2555 STO TABPR D3TB2560 LD PERPR D3TB2565 A CON13 D3TB2570 STO PERPR D3TB2575 OPTNA SLA 0 D3TB2580 SLA 0 D3TB2585 MDX *&4 D3TB2590 FLIPA SLA 0 D3TB2595 SLA 0 D3TB2600 LDX I2 TABPR D3TB2605 LD FSTPN D3TB2610 STO VARI2 D3TB2615 SLA 16 D3TB2620 STO CLCTR D3TB2625 LOOPG LD CLCTR D3TB2630 EOR TOTCL D3TB2635 BSC L BACK7,&- D3TB2640 LD CLCTR D3TB2645 A ONES D3TB2650 STO CLCTR D3TB2655 LD 2 0 D3TB2660 LIBF BINDC D3TB2665 VARI2 DC 0 D3TB2670 SLA 16 D3TB2675 STO I VARI2 D3TB2680 LD VARI2 D3TB2685 A ONES D3TB2690 STO VARI3 D3TB2695 LOOPH LD I VARI3 D3TB2700 EOR L ZEROS D3TB2705 BSC L BACK5,Z D3TB2710 STO I VARI3 D3TB2715 LD VARI3 D3TB2720 A ONES D3TB2725 STO VARI3 D3TB2730 MDX LOOPH D3TB2735 BACK5 LD LNCTR D3TB2740 AND SPTST D3TB2745 BSC L NPER,Z D3TB2750 LD 2 0 D3TB2755 BSC L FLIPB,Z D3TB2760 LD L2 TABLE-PERTB D3TB2765 BSC L NPER,&- D3TB2770 LDX I1 VARI3 D3TB2775 LD SPCHR D3TB2780 STO 1 -1 D3TB2785 MDX NPER D3TB2790 FLIPB LDX I1 VARI2 D3TB2795 LD 1 1 D3TB2800 STO 1 0 D3TB2805 LD 1 2 D3TB2810 STO 1 1 D3TB2815 LD 1 3 D3TB2820 STO 1 2 D3TB2825 LD 1 4 D3TB2830 STO 1 3 D3TB2835 FLIPC MDX FLIPD D3TB2840 LD FILCH D3TB2845 STO 1 4 D3TB2850 NPER MDX 2 1 D3TB2855 LD VARI2 D3TB2860 A EXTSP D3TB2865 STO VARI2 D3TB2870 MDX LOOPG D3TB2875 BACK7 LIBF PRNT1 D3TB2880 DC /0000 D3TB2885 MDX BACK7 D3TB2890 LIBF HOLEB D3TB2895 DC /0000 D3TB2900 DC AREA D3TB2905 DC PRARA&1 D3TB2910 DC 120 D3TB2915 LIBF PRNT1 D3TB2920 DC /2000 D3TB2925 DC PRARA D3TB2930 DC ERORP D3TB2935 BSC L PRBCK D3TB2940 BACK9 LD L LNCTR D3TB2945 EOR ONES D3TB2950 BSC L FLIPA&2,&- D3TB2955 MDX BACK7 D3TB2960 FLIPD LD 1 5 D3TB2965 STO 1 4 D3TB2970 LD FILCH D3TB2975 STO 1 5 D3TB2980 MDX NPER D3TB2985 * D3TB2990 SWXX1 SLA 0 D3TB2995 SWXX2 MDX X ROUND-SWCH4-1 D3TB3000 SSSSS DC /2800 D3TB3005 CON80 DC 80 D3TB3010 ZERO DC 0 D3TB3015 SAVE DC 0 D3TB3020 FSTPN DC AREA&41 D3TB3025 EXTSP DC 8 D3TB3030 VARI3 DC 0 D3TB3035 ONES DC 1 D3TB3040 ZEROS DC /2000 D3TB3045 SPCHR DC /4220 D3TB3050 FOUR DC 4 D3TB3055 FILCH DC /8420 D3TB3060 FL11B MDX X FLIPD-FLIPC-1 D3TB3065 FL22B SLA 0 D3TB3070 PRSW1 MDX X BACK9-FLIPA-2 D3TB3075 PRSW2 SLA 0 D3TB3080 SKSWX MDX X &2 D3TB3085 USXXX MDX X &3 D3TB3090 SIX DC 6 D3TB3095 ** D3TB3100 *** TABLE CHANGE CONTROL SUBROUTINE D3TB3105 ** D3TB3110 RCARD DC 0 D3TB3115 BSI L RDSUB D3TB3120 LD L RDARA&1 D3TB3125 STO SAVE D3TB3130 EOR L DOLAR D3TB3135 BSC I RCARD,&- D3TB3140 LDX 1 3 D3TB3145 LOOPZ LD L1 RDARA&74 D3TB3150 EOR L1 JOBNM&1 D3TB3155 BSC L DOWN3,Z D3TB3160 MDX 1 -1 D3TB3165 MDX LOOPZ D3TB3170 BSI L CVTAB D3TB3175 LD L CDNO D3TB3180 EOR L TABNO D3TB3185 BSC I RCARD,&- D3TB3190 DOWN3 LD L DOLAR D3TB3195 STO L RDARA&1 D3TB3200 BSC I RCARD D3TB3205 ** D3TB3210 *** CONVERT TABLE NO. SUBROUTINE D3TB3215 ** D3TB3220 CVTAB DC 0 D3TB3225 LD L RDARA&78 D3TB3230 STO CONV1&3 D3TB3235 LD L RDARA&79 D3TB3240 STO CONV1&4 D3TB3245 LD L RDARA&80 D3TB3250 STO CONV1&5 D3TB3255 LIBF DCBIN D3TB3260 DC CONV1 D3TB3265 STO L CDNO D3TB3270 SLA 16 D3TB3275 STO CONV1&3 D3TB3280 STO CONV1&4 D3TB3285 BSC I CVTAB D3TB3290 * D3TB3295 CONV1 DC /80A0 D3TB3300 DC 0 D3TB3305 DC 0 D3TB3310 DC 0 D3TB3315 DC 0 D3TB3320 DC 0 D3TB3325 CONV2 BSS E 2 D3TB3330 ** D3TB3335 *** CARD READ - DISK $ LOOKUP SUBROUTINE D3TB3340 ** D3TB3345 RDSUB DC 0 D3TB3350 SLA 0 D3TB3355 LIBF CARD0 D3TB3360 DC /1000 D3TB3365 DC RDARA D3TB3370 LOOPY LIBF CARD0 D3TB3375 DC /0000 D3TB3380 MDX LOOPY D3TB3385 LD L RDARA&21 D3TB3390 EOR L DOLAR D3TB3395 BSC I RDSUB,Z D3TB3400 LD L RDARA&22 D3TB3405 STO L CONV1&4 D3TB3410 LD L RDARA&23 D3TB3415 STO L CONV1&5 D3TB3420 LIBF DCBIN D3TB3425 DC CONV1 D3TB3430 BSC L HHSEL,& D3TB3435 M FOUR D3TB3440 STD L CONV2 D3TB3445 LD L CONV2&1 D3TB3450 A HDCON D3TB3455 STO L HDISK&1 D3TB3460 LIBF DISKN D3TB3465 DC /1000 D3TB3470 DC HDISK D3TB3475 DC ERORP D3TB3480 LOOPX LIBF DISKN D3TB3485 DC /0000 D3TB3490 DC HDISK D3TB3495 MDX LOOPX D3TB3500 LDX 1 3 D3TB3505 LOOPW LD L1 HSECT&1 D3TB3510 EOR L1 RDARA&74 D3TB3515 BSC L HHSEL,Z D3TB3520 MDX 1 -1 D3TB3525 MDX LOOPW D3TB3530 LDX 1 3 D3TB3535 LOOPT LD L1 HDATA-1 D3TB3540 EOR L1 RDARA D3TB3545 BSC L HHSEL,Z D3TB3550 MDX 1 -1 D3TB3555 MDX LOOPT D3TB3560 SLA 16 D3TB3565 STO HPNTR D3TB3570 STO L CONV1&4 D3TB3575 LD HHYES D3TB3580 STO RDSUB&1 D3TB3585 HHDET LDX I1 HPNTR D3TB3590 LD L1 HDATA D3TB3595 STO L RDARA&1 D3TB3600 LD L1 HDATA&1 D3TB3605 STO L RDARA&2 D3TB3610 LD L1 HDATA&2 D3TB3615 STO L RDARA&3 D3TB3620 LD L RDARA&1 D3TB3625 BSC L HHEND,&- D3TB3630 MDX 1 49 D3TB3635 LDX 2 40 D3TB3640 HBACK LD L1 HDATA D3TB3645 STO L2 RDARA&20 D3TB3650 MDX 1 -1 D3TB3655 SLA 0 D3TB3660 MDX 2 -1 D3TB3665 MDX HBACK D3TB3670 MDX L HPNTR,50 D3TB3675 BSC I RDSUB D3TB3680 HHEND LD HHNO D3TB3685 STO RDSUB&1 D3TB3690 MDX RDSUB&1 D3TB3695 * D3TB3700 HHSEL LIBF CARD0 D3TB3705 DC /4000 D3TB3710 LIBF PRNT1 D3TB3715 DC /2000 D3TB3720 DC ERRRR D3TB3725 DC ERORP D3TB3730 MDX L ERTOT,1 D3TB3735 SLA 16 D3TB3740 STO L CONV1&4 D3TB3745 MDX RDSUB&1 D3TB3750 * D3TB3755 HHYES MDX X HHDET-RDSUB-2 D3TB3760 HHNO SLA 0 D3TB3765 HPNTR DC 0 D3TB3770 HDCON DC 396 D3TB3775 ** D3TB3780 *** CONTROL CARD ANALYSIS ROUTINE D3TB3785 ** D3TB3790 DOLRT LDX 1 6 D3TB3795 LD L1 RDARA D3TB3800 EOR L1 DOLAR-1 D3TB3805 BSC L ENDRT,Z D3TB3810 MDX 1 -1 D3TB3815 MDX DOLRT&1 D3TB3820 LD L RDARA&7 D3TB3825 STO L CONV1&4 D3TB3830 LD L RDARA&8 D3TB3835 STO L CONV1&5 D3TB3840 LIBF DCBIN D3TB3845 DC CONV1 D3TB3850 STO L TOTCL D3TB3855 BSC L ERORG,& D3TB3860 S L CON13 D3TB3865 BSC L ERORG,Z- D3TB3870 LD L RDARA&9 D3TB3875 STO L CONV1&4 D3TB3880 LD L RDARA&10 D3TB3885 STO L CONV1&5 D3TB3890 LIBF DCBIN D3TB3895 DC CONV1 D3TB3900 STO L TOTLN D3TB3905 A L TOTLN D3TB3910 STO L TOTLN D3TB3915 BSC L ERORG,& D3TB3920 S L TESTA D3TB3925 BSC L ERORG,Z- D3TB3930 LD L RDARA&11 D3TB3935 STO L CONV1&4 D3TB3940 LD L RDARA&12 D3TB3945 STO L CONV1&5 D3TB3950 LIBF DCBIN D3TB3955 DC CONV1 D3TB3960 S L ONES D3TB3965 S L ONES D3TB3970 BSC L ERORG,Z& D3TB3975 STO L CONV1&5 D3TB3980 S L TESTA D3TB3985 S L TESTA D3TB3990 BSC L ERORG,- D3TB3995 LD L CONV1&5 D3TB4000 LDX L1 AREA D3TB4005 STX L1 FSTPN D3TB4010 A L FSTPN D3TB4015 STO L FSTPN D3TB4020 LD L RDARA&13 D3TB4025 STO L CONV1&4 D3TB4030 LD L RDARA&14 D3TB4035 STO L CONV1&5 D3TB4040 LIBF DCBIN D3TB4045 DC CONV1 D3TB4050 BSC L ERORG,Z& D3TB4055 STO L CONV1&5 D3TB4060 A L SIX D3TB4065 STO L EXTSP D3TB4070 LD L TOTCL D3TB4075 M L EXTSP D3TB4080 SLT 16 D3TB4085 S L CONV1&5 D3TB4090 A L FSTPN D3TB4095 S L TESTB D3TB4100 BSC L ERORG,Z- D3TB4105 SLA 16 D3TB4110 STO L CONV1&4 D3TB4115 LD L RDARA&15 D3TB4120 BSC L *&9,&- D3TB4125 LD L MPLXX D3TB4130 STO L MPLER D3TB4135 LD L FL22B D3TB4140 STO L FLIPC D3TB4145 MDX *&8 D3TB4150 LD L MPLYY D3TB4155 STO L MPLER D3TB4160 LD L FL11B D3TB4165 STO L FLIPC D3TB4170 LD L RDARA&16 D3TB4175 BSC L *&5,Z D3TB4180 LD L SWXX2 D3TB4185 STO L SWCH4 D3TB4190 MDX *&4 D3TB4195 LD L SWXX1 D3TB4200 STO L SWCH4 D3TB4205 LD L RDARA&17 D3TB4210 BSC L *&5,Z D3TB4215 LD L PRSW2 D3TB4220 STO L FLIPA&1 D3TB4225 MDX *&4 D3TB4230 LD L PRSW1 D3TB4235 STO L FLIPA&1 D3TB4240 LD L RDARA&18 D3TB4245 BSC L *&9,Z D3TB4250 LD L ALXX1 D3TB4255 STO L EXITP&2 D3TB4260 LD L SGXX3 D3TB4265 STO L FBACK&2 D3TB4270 MDX *&8 D3TB4275 LD L ALXX2 D3TB4280 STO L EXITP&2 D3TB4285 LD L SGXX2 D3TB4290 STO L FBACK&2 D3TB4295 LD L RDARA&19 D3TB4300 BSC L *&5,Z D3TB4305 LD L SGXX1 D3TB4310 STO L SGSW D3TB4315 MDX *&4 D3TB4320 LD L SGXX2 D3TB4325 STO L SGSW D3TB4330 LD L RDARA&19 D3TB4335 STO L CONV1&4 D3TB4340 LD L RDARA&20 D3TB4345 STO L CONV1&5 D3TB4350 LIBF DCBIN D3TB4355 DC CONV1 D3TB4360 STO L SGLTH D3TB4365 BSC L ERORG,Z& D3TB4370 A L SGLTH D3TB4375 STO L SGLIN D3TB4380 S L TOTLN D3TB4385 BSC L ERORG,Z- D3TB4390 LD L RDARA&21 D3TB4395 BSC L *&5,Z D3TB4400 LD L PRSW2 D3TB4405 STO L SKPSW D3TB4410 MDX *&4 D3TB4415 LD L SKSWX D3TB4420 STO L SKPSW D3TB4425 LD L RDARA&22 D3TB4430 BSC L *&5,Z D3TB4435 LD L USXXX D3TB4440 STO L USSW1 D3TB4445 MDX *&4 D3TB4450 LD L PRSW2 D3TB4455 STO L USSW1 D3TB4460 LD L RDARA&23 D3TB4465 BSC L *&5,Z D3TB4470 LD L USXXX D3TB4475 STO L USSW2 D3TB4480 MDX *&4 D3TB4485 LD L PRSW2 D3TB4490 STO L USSW2 D3TB4495 LD L RDARA&24 D3TB4500 BSC L *&5,Z D3TB4505 LD L PRSW2 D3TB4510 STO L OPTNA&1 D3TB4515 MDX *&4 D3TB4520 LD L OPSW1 D3TB4525 STO L OPTNA&1 D3TB4530 LD L RDARA&25 D3TB4535 BSC L *&5,Z D3TB4540 LD L PRSW2 D3TB4545 STO L OPTNA D3TB4550 MDX *&4 D3TB4555 LD L OPSW2 D3TB4560 STO L OPTNA D3TB4565 LD L RDARA&26 D3TB4570 BSC L *&5,Z D3TB4575 LD L PRSW2 D3TB4580 STO L FLIPA D3TB4585 MDX *&4 D3TB4590 LD L OPSW3 D3TB4595 STO L FLIPA D3TB4600 LD L RDARA&27 D3TB4605 BSC L *&5,Z D3TB4610 LD L OPSW4 D3TB4615 STO L OPTNB D3TB4620 MDX *&4 D3TB4625 LD L OPSW5 D3TB4630 STO L OPTNB D3TB4635 SLA 16 D3TB4640 STO L CONV1&4 D3TB4645 STO L TABNO D3TB4650 BSC L START D3TB4655 * D3TB4660 TESTA DC 48 D3TB4665 TESTB DC AREA&120 D3TB4670 SGLIN DC 0 D3TB4675 * D3TB4680 OPSW1 MDX X BACK7-OPTNA-2 D3TB4685 OPSW2 MDX X PRBCK-OPTNA-1 D3TB4690 OPSW3 MDX X PRBCK-FLIPA-1 D3TB4695 OPSW4 DC /3D00 D3TB4700 OPSW5 DC /30D0 D3TB4705 * D3TB4710 ERORG LIBF PRNT1 D3TB4715 DC /3100 D3TB4720 LIBF PRNT1 D3TB4725 DC /2000 D3TB4730 DC ERRMS D3TB4735 DC ERORP D3TB4740 LIBF PRNT1 D3TB4745 DC /3F00 D3TB4750 LIBF PRNT1 D3TB4755 DC /0000 D3TB4760 MDX *-3 D3TB4765 WAIT D3TB4770 LIBF CARD0 D3TB4775 DC /1000 D3TB4780 DC RDARA D3TB4785 LIBF CARD0 D3TB4790 DC /0000 D3TB4795 MDX *-3 D3TB4800 BSC L DOLRT D3TB4805 * D3TB4810 ERRMS DC 31 D3TB4815 EBC .CONTROL CARD HAS INVALID FIELD(S).. D3TB4820 EBC .REFEED CORRECT CONTROL CARD.. D3TB4825 ** D3TB4830 *** ERROR ROUTINES D3TB4835 ** D3TB4840 ERHLT LIBF PRNT1 D3TB4845 DC /3F00 D3TB4850 LIBF PRNT1 D3TB4855 DC /2000 D3TB4860 DC ERMSS D3TB4865 DC ERORP D3TB4870 LIBF PRNT1 D3TB4875 DC /2000 D3TB4880 ERVAR DC 0 D3TB4885 DC ERORP D3TB4890 LIBF PRNT1 D3TB4895 DC /2000 D3TB4900 DC ERMSF D3TB4905 DC ERORP D3TB4910 EXITF LD L SAVE D3TB4915 STO L RDARA&1 D3TB4920 LIBF PRNT1 D3TB4925 DC /0000 D3TB4930 MDX *-3 D3TB4935 BSC L BACK D3TB4940 * D3TB4945 EROR1 LDX L1 ERMS1 D3TB4950 STX 1 ERVAR D3TB4955 MDX ERHLT D3TB4960 EROR2 LDX L1 ERMS2 D3TB4965 STX 1 ERVAR D3TB4970 MDX ERHLT D3TB4975 EROR3 LDX L1 ERMS3 D3TB4980 STX 1 ERVAR D3TB4985 MDX ERHLT D3TB4990 * D3TB4995 ERMS1 DC 12 D3TB5000 EBC .TABLE NO. EXCEEDS LIMIT.. D3TB5005 ERMS2 DC 16 D3TB5010 EBC .COL2/3 OF A SPEC CARD NOT VALID . D3TB5015 ERMS3 DC 19 D3TB5020 EBC .COL3 OF A SPEC CARD NOT A VALID . D3TB5025 EBC .DIGIT . D3TB5030 ERMSS DC 16 D3TB5035 EBC .USER ERROR. *******************. D3TB5040 ERMSF DC 9 D3TB5045 EBC .TABLE TERMINATED. . D3TB5050 PPPNL DC 50 D3TB5055 EBC .**************************** NO VA. D3TB5060 EBC .LID TABULATION ON DISK FOR THIS TA. D3TB5065 EBC .BLE ****************************. D3TB5070 ERRRR DC 51 D3TB5075 EBC .*************** CARD INVALID/OUT . D3TB5080 EBC .OF SEQ./OUTSIDE TABLE LIMITS.---RE. D3TB5085 EBC .JECTED INTO STACKER TWO. ********. D3TB5090 LASTP DC 54 D3TB5095 EBC .NO OF TABLES PRODUCED . D3TB5100 LAST1 BSS 2 D3TB5105 DC /4040 D3TB5110 EBC .. NO OF MISSING MATRICES . D3TB5115 LAST2 BSS 2 D3TB5120 DC /4040 D3TB5125 EBC .. NO OF INVALID CARDS . D3TB5130 LAST3 BSS 2 D3TB5135 DC /4040 D3TB5140 EBC .. E.O.J.. D3TB5145 ** D3TB5150 *** DISK AREAS - WORK AREAS - CONSTANTS. D3TB5155 ** D3TB5160 PERTB BSS 312 D3TB5165 * D3TB5170 DISK DC 320 D3TB5175 DC 0 D3TB5180 BSS 2 D3TB5185 LABEL BSS 6 D3TB5190 TABLE BSS 312 D3TB5195 * D3TB5200 RDARA DC 80 D3TB5205 BSS 80 D3TB5210 * D3TB5215 PRARA DC 60 D3TB5220 BSS 60 D3TB5225 * D3TB5230 TBLTH DC 312 D3TB5235 ERORP DC 0 D3TB5240 BSC I ERORP D3TB5245 WKTAB BSS E 48 D3TB5250 AREA BSS 121 D3TB5255 STORE BSS 6 D3TB5260 * D3TB5265 HDISK DC 1280 D3TB5270 DC 0 D3TB5275 HSECT DC 0 D3TB5280 DC 0 D3TB5285 BSS 4 D3TB5290 HDATA BSS 1274 D3TB5295 * D3TB5300 * D3TB5305 * D3TB5310 END START D3TB5315 // DUP *STORE WS UA USEX1 // PAUS // JOB // DUP *DELETE USEX1 // ASM *LIST *PRINT SYMBOL TABLE ** USEX1005 *** USER EXIT BEFORE SIGMA AND PERCENTAGE USEX1010 ** USEX1015 ENT USEX1 USEX1020 USEX1 DC 0 USEX1025 STX 1 USAV1 USEX1030 STX 2 USAV2 USEX1035 LD I USEX1 USEX1040 STO TBADR USEX1045 * USEX1050 * USERS PROGRAM HERE. USEX1055 * USEX1060 LDX I1 USAV1 USEX1065 LDX I2 USAV2 USEX1070 MDX L USEX1,1 USEX1075 BSC I USEX1 USEX1080 * USEX1085 USAV1 DC *-* USEX1090 USAV2 DC *-* USEX1095 * USEX1100 TBADR DC *-* ADDRESS OF LAST POSN. OF TABLE USEX1105 * A 13 BY 24 MATRIX. USEX1110 END USEX1115 // DUP *STORE WS UA D3TAB // PAUS // JOB // DUP *DELETE USEX2 // ASM *LIST *PRINT SYMBOL TABLE ** USEX2005 *** USER EXIT AFTER SIGMA AND PERCENTAGES USEX2010 ** USEX2015 ENT USEX2 USEX2020 USEX2 DC 0 USEX2025 STX 1 USAV1 USEX2030 STX 2 USAV2 USEX2035 LD I USEX2 USEX2040 STO TBADR USEX2045 * USEX2050 * USERS PROGRAM HERE USEX2055 * USEX2060 LDX I1 USAV1 USEX2065 LDX I2 USAV2 USEX2070 MDX L USEX2,1 USEX2075 BSC I USEX2 USEX2080 * USEX2085 USAV1 DC *-* USEX2090 USAV2 DC *-* USEX2095 * USEX2100 TBADR DC *-* ADDRESS OF LAST POSN. OF TABLE USEX2105 * A 13 BY 24 MATRIX. USEX2110 END USEX2115 // DUP *STORE WS UA USEX2 // PAUS