U Addr Code Symbol Opr Operand X Remarks Seq Page Ian's Notes 0000454 ORG 300 000000 00454 0226343 MRECIN ALF BTL MASTER RECORD IN 000000 00455 0000001 ALF 001 000000 00456 0446263 ALF MST 000000 00457 0263143 ALF FIL 000000 00460 0256060 ALF E 000000 00461 0020000 ALF 200 000000 00462 0100604 ALF 864 000000 00463 2500120 SEL 1 000000 00464 0510512 RTB MAST1 2 READ 2 MASTER RECORDS STORE FROM MAST 1 ONW 000000 00465 0400144 100 000000 00466 2500120 SEL 1 000000 00467 0510660 RTB MAST2 2 000000 00470 0400144 100 000000 00471 2620001 BRU 1 1 000000 00472 2620001 BRU 1 1 000000 00473 2620001 BRU 1 1 000000 00474 2620001 BRU 1 1 000000 00475 0000144 DEC 100 000000 00476 0577777 BXH 1 3 000000 00477 0000000 DEC 0 000000 00500 0000000 MTWS LDA 0 MASTER FILE TO WORKING STORAGE 000000 00501 2616224 BRU #I/OZ 000000 00502 2616300 BRU #RBS 000000 00503 2616414 BRU #RB 000000 00504 1000510 DLD *+4 000000 00505 2410512 MOV MAST1 0 000000 00506 1460001 INX 1 3 000000 00507 2600512 BRU *+3 000000 00510 0010346 DEC WKGTEM STARTING LOCATION OF WORKING AREA 000000 00511 3777634 DEC -100 LENGTH OF LOGICAL RECORD 000000 00512 0000505 LDA *-5 000000 00513 0100475 ADD *-14 000000 00514 0300505 STA *-7 000000 00515 0000510 LDA *-5 000000 00516 0736240 SPB #I/OX 1 000000 00517 0000000 DEC 0 000000 00520 0226343 TFREC ALF BTL TRANSFER RECORD IN 000000 00521 0010001 ALF 101 000000 00522 0632651 ALF TFR 000000 00523 0263143 ALF FIL 000000 00524 0256060 ALF E 000000 00525 0530200 ALF $20 000000 00526 0001053 ALF 08$ 000000 00527 2500120 SEL 1 000000 00530 0511610 RTB TRANS 2 READ A TRANSFER RECORD + STORE FROM TRANS 000000 00531 0400144 100 1 RECORD ONLY 000000 00532 2500120 SEL 1 000000 00533 0511610 RTB TRANS 2 000000 00534 0400144 100 000000 00535 2620001 BRU 1 1 000000 00536 2620001 BRU 1 1 000000 00537 2620001 BRU 1 1 000000 00540 2620001 BRU 1 1 000000 00541 0000144 DEC 100 000001 00542 0577777 BXH 1 3 BLOCKING FACTOR OF 1 000001 00543 0000000 DEC 0 000001 00544 0000000 TFTWS LDA 0 TRANSFER RECORD TO WORKING STORAGE 000001 00545 2616224 BRU #I/OZ 000001 00546 2616300 BRU #RBS 000001 00547 2616414 BRU #RB 000001 00550 1460001 INX 1 3 000001 00551 0000000 LDA 0 000001 00552 2600561 BRU *+7 000001 00553 2504012 NOP 000001 00554 2504012 NOP 000001 00555 2504012 NOP 000001 00556 2504012 NOP 000001 00557 2504012 NOP 000001 00560 2504012 NOP 000001 00561 0000551 LDA *-8 000001 00562 0736240 SPB #I/OX 1 000001 00563 0000000 DEC 0 000001 00564 0226343 VARI ALF BTL VARIATIONS IN 000001 00565 0020001 ALF 201 000001 00566 0652151 ALF VAR 000001 00567 0312163 ALF IAT 000001 00570 0314645 ALF ION 000001 00571 0530200 ALF $20 000001 00572 0001053 ALF 08$ 000001 00573 2500120 SEL 1 000001 00574 0511464 RTB VRSTO1 2 READ 10 VARIATIONS STORE FROM TRANS ONW 000001 00575 0400050 40 000001 00576 2500120 SEL 1 000001 00577 0511536 RTB VRST02 2 000001 00600 0400050 40 000001 00601 2620001 BRU 1 1 000001 00602 2620001 BRU 1 1 000001 00603 2620001 BRU 1 1 000001 00604 2620001 BRU 1 1 000001 00605 0000010 DEC 8 000001 00606 0577773 BXH 5 3 000001 00607 0000000 DEC 0 000001 00610 0000000 RDVAR LDA 0 READ VARIATION 000001 00611 2616224 BRU #I/OZ 000001 00612 2616300 BRU #RBS 000001 00613 2616414 BRU #RB 000001 00614 1000620 DLD *+4 000001 00615 2411464 MOV VRSTO1 0 000001 00616 1460001 INX 1 3 000001 00617 2600622 BRU *+3 000001 00620 0012030 DEC VARIAN STARTING LOCATION OF WORKING STORAGE 000001 00621 3777770 DEC -8 000001 00622 0000615 LDA *-5 000001 00623 0100605 ADD *-14 000001 00624 0300615 STA *-7 000001 00625 0000620 LDA *-5 000001 00626 0736240 SPB #I/OX 1 000001 00627 0000000 DEC 0 000002 00630 0226343 MRECOU ALF BTL MASTER RECORD OUT 000002 00631 0000001 ALF 001 000002 00632 0446263 ALF MST 000002 00633 0263143 ALF FIL 000002 00634 0256060 ALF E 000002 00635 0530200 ALF $20 000002 00636 0001053 ALF 08$ 000002 00637 2500220 SEL 2 000002 00640 0311026 WTB NWMST1 2 WRITE NEW MASTER RECORD 000002 00641 0400144 100 000002 00642 2500220 SEL 2 000002 00643 0311174 WTB NWMST2 2 000002 00644 0400144 100 000002 00645 2620001 BRU 1 1 000002 00646 2620001 BRU 1 1 000002 00647 2620001 BRU 1 1 000002 00650 2620001 BRU 1 1 000002 00651 0000144 DEC 100 000002 00652 0577777 BXH 1 3 000002 00653 0000000 DEC 0 000002 00654 2616224 BRU #I/OZ 000002 00655 0000000 WRNMST LDA 0 WRITE NEW MASTER RECORD 000002 00656 1000660 DLD *+2 000002 00657 2600662 BRU *+3 000002 00660 0011026 DEC NWMST1 000002 00661 3777634 DEC -100 000002 00662 2410036 MOV WKG 0 000002 00663 1460001 INX 1 3 000002 00664 2616547 BRU #WBS 000002 00665 2616577 BRU #WB 000002 00666 0000660 LDA *-6 000002 00667 0100651 ADD *-14 000002 00670 0300660 STA *-8 000002 00671 0000660 LDA *-9 000002 00672 0736240 SPB #I/OX 1 000002 00673 0000000 DEC 0 000002 00674 0226343 WRRPT ALF BTL WRITE REPORT 000002 00675 0020001 ALF 201 000002 00676 0512547 ALF REP 000002 00677 0465163 ALF ORT 000002 00700 0626060 ALF S 000002 00701 0530200 ALF $20 000002 00702 0001053 ALF 08$ 000002 00703 2500220 SEL 2 000002 00704 0311342 WTB WSREP1 2 000002 00705 0400120 80 000002 00706 2500220 SEL 2 000002 00707 0311342 WTB WSREP1 2 000002 00710 0400120 80 000002 00711 2620001 BRU 1 1 000002 00712 2620001 BRU 1 1 000002 00713 2620001 BRU 1 1 000002 00714 2620001 BRU 1 1 000002 00715 0000050 DEC 40 000003 00716 0577776 BXH 2 3 000003 00717 0000000 DEC 0 000003 00720 0000000 REPORT LDA 0 000003 00721 2616224 BRU #I/OZ 000003 00722 1460001 INX 1 3 000003 00723 1051756 DLD REPIM 2 000003 00724 1351342 DST WSREP1 2 000003 00725 1440002 INX 2 2 000003 00726 0457730 BXL 40 2 000003 00727 2600723 BRU *-4 000003 00730 2616547 BRU #WBS 000003 00731 2616577 BRU #WB 000003 00732 0000724 LDA *-6 000003 00733 0100715 ADD *-14 000003 00734 2700724 STO *-8 000003 00735 0000724 LDA *-9 000003 00736 0736240 SPB #I/OX 1 000003 00737 0000000 DEC 0 000003 00740 2500007 START TON 000003 00741 2504002 LDZ 000003 00742 0300001 STA 1 000003 00743 1420001 INX 1 1 000003 00744 0434715 BXL 1587 1 DELAY 200 M/SEC 000003 00745 2600743 BRU *-2 000003 00746 0720500 SPB MTWS 1 READ FIRST MASTER RECORD INTO WKGTEM 00020 000003 00747 0720544 SPB TFTWS 1 READ FIRST TRANSFER INTO TRANS 00030 000003 00750 0720564 SPB VARI 1 READ FIRST VARIATION INTO VARIAN 00040 000003 00751 2516006 GO BCN READING DATE CARD AT START OF EACH CONTROL 000003 00752 2600751 BRU *-1 000003 00753 2500400 RCD CRDIN READ 1 CARD 000003 00754 2500004 HCR 000003 00755 2516006 BCN 000003 00756 2600755 BRU *-1 000003 00757 0000433 LDA 283 LOAD SYNC WORD 000003 00760 2014163 EXT MASK3 000003 00761 0214147 SUB SYNTAX 000003 00762 2514002 BZE IS IT CORRECT 000003 00763 2600771 BRU ALLGO YES - TO ALLGO 000003 00764 0737455 SPB TYPE+2 1 NO - TYPE --CARD INCORRECTLY READ-- 000003 00765 0014550 LDA CDMES 000003 00766 3777776 DEC -2 RETURN CARRIAGE 000003 00767 0737411 SPB HLTLP 1 ENTER HALT LOOP 000003 00770 2600751 BRU GO 000003 00771 0000410 ALLGO LDA CRDIN+8 000003 00772 0214175 SUB ASTER TEST WHETHER CARD WAS DATE CARD 000003 00773 2514002 BZE 000003 00774 2601002 BRU ONWRD YES - TO ONWRD 000003 00775 0737455 SPB TYPE+2 1 NO - TYPE --WRONG CARD-- 000003 00776 0014560 LDA CDMES2 000003 00777 3777776 DEC -2 000003 01000 0737411 SPB HLTLP 1 ENTER HALTLOOP 000003 01001 2600751 BRU GO 000003 01002 1000400 ONWRD DLD CRDIN 000003 01003 1312152 DST PAYD STORE DATE PAID UP TO AT PAYD -BCD 000004 01004 1000402 DLD CRDIN+2 000004 01005 1312166 DST DTPD STORE DATE OF PAYDAY AT DTPD -BCD 000004 01006 0000404 LDA CRDIN+4 000004 01007 0312643 STA NOPD STORE PAYNO- JULY/JUNE AT NOPD -BCD 000004 01010 0734630 SPB FLIP 1 000004 01011 0000405 LDA CRDIN+5 000004 01012 0030003 ALF 303 000004 01013 2607415 BRU WOLB1 000004 01014 2504001 LAQ 000004 01015 0312657 STA PAYNO STORE PAYNO- JAN/DEC AT PAYNO -BINARY 000004 01016 0000402 LDA CRDIN+2 000004 01017 0314553 STA CDMES+3 000004 01020 0000403 LDA CRDIN+3 000004 01021 0314554 STA CDMES+4 000004 01022 1000400 DLD CRDIN 000004 01023 1314564 DST CDMES+12 000004 01024 0000404 LDA CRDIN+4 000004 01025 0314572 STA CDMES+18 000004 01026 0000405 LDA CRDIN+5 000004 01027 0314574 STA CDMES+20 000004 01030 0737453 SPB TYPE 1 000004 01031 0014550 LDA CDMES 000004 01032 3777776 DEC -2 000004 01033 0727650 G1 SPB SR#4 1 000004 01034 0632754 LDX ZERO 1 000004 01035 1330036 DST WKG 1 SET MASTER RECORD IMAGE TO ZERO 00070 000004 01036 1420002 INX 2 1 00080 000004 01037 0437634 BXL 100 1 00090 000004 01040 2601035 BRU *-3 00100 000004 01041 1332660 DST WARIM 1 SET WARRANT IMAGE TO ZERO 00110 000004 01042 1420002 INX 2 1 00120 000004 01043 0437706 BXL 58 1 00130 000004 01044 2601041 BRU *-3 00140 000004 01045 1030346 DLD WKGTEM 1 00150 000004 01046 2211610 DCB TRANS 00160 000004 01047 2601065 BRU M#36 WKGTEM CONTAINS THE LOWER NUMBER 00170 000004 01050 2601052 BRU M#26 NUMBERS ARE EQUAL 00180 000004 01051 2601056 BRU M#30 TRANS CONTAINS THE LOWER NUMBER 00190 000004 01052 1010350 M#26 DLD WKGTEM+2 00200 000004 01053 2211612 DCB TRANS+2 00210 000004 01054 2601065 BRU M#36 WKGTEM CONTAINS THE SMALLER NUMBER 00220 000004 01055 2604505 BRU ERROR NUMBERS ARE DUPLICATED 00230 000004 01056 0012753 M#30 LDA MINC TRANS CONTAINS THE LOWER NUMBER- 100 INTO A 00240 000004 01057 2504006 MAQ -100 INTO Q 00250 000004 01060 0010036 LDA WKG STARTING ADDRESS OF WORKING AREA INTO A 00260 000004 01061 0001060 LDA *-1 00265 000004 01062 2411610 MOV TRANS MOVE TRANSFER RECORD TO WORKING STORAGE 00270 000004 01063 0720544 SPB TFTWS 1 READ NEXT TRANSFER RECORD AND STORE 00280 000004 01064 2601073 BRU 1A BRANCH TO CONNECTOR 1A 00290 000004 01065 0012753 M#36 LDA MINC -100 INTO A 00300 000004 01066 2504006 MAQ 00310 000004 01067 0010036 LDA WKG 00320 000004 01070 0001067 LDA *-1 00330 000004 01071 2410346 MOV WKGTEM MASTER RECORD TO WORKING AREA 00340 000005 01072 0720500 SPB MTWS 1 READ NEXT MASTER RECORD AND STORE 00350 000005 01073 0734630 1A SPB FLIP 1 00360 000005 01074 0010070 LDA WKG+26 FLIP SUPER FUND CODE 00370 000005 01075 0030003 ALF 303 00380 000005 01076 2601033 BRU G1 000005 01077 1312750 DST WARIM+56 STORE AT WARIM 00400 000005 01100 1010036 DLD WKG LOAD FIRST TWO WORDS OF SORTKEY 00410 000005 01101 0735425 SPB FLOP 1 CONVERT TO BCD 00420 000005 01102 1012126 DLD BINWA 00430 000005 01103 1312740 DST WARIM+48 STORE AT WARRANT IMAGE 00440 000005 01104 1012130 DLD BINWA+2 00450 000005 01105 1312742 DST WARIM+50 00460 000005 01106 1010040 DLD WKG+2 LOAD SECOND TWO WORDS OF SORTKEY 00470 000005 01107 0735425 SPB FLOP 1 00480 000005 01110 1012126 DLD BINWA 00490 000005 01111 1312744 DST WARIM+52 00500 000005 01112 1012130 DLD BINWA+2 00510 000005 01113 1312746 DST WARIM+54 BCD SORTKEY NOW AT WARIM 48-55 00520 000005 01114 0012741 LDA WARIM+49 00521 000005 01115 2510006 SRA 6 00522 000005 01116 2014162 EXT MASK2 00523 000005 01117 0312752 STA WARIM+58 CONTROL KEY AT WARIM+58 00524 000005 01120 0012742 LDA WARIM+50 PREPARE TO TEST FOR CONTROL RECORD 00530 000005 01121 2504006 MAQ 00540 000005 01122 2512201 SLD 1 00550 000005 01123 0012741 LDA WARIM+49 00560 000005 01124 2014161 EXT MASK1 00570 000005 01125 2511007 SRD 7 FIRST THREE DIGITS OF KEY IN 0 REGISTER 00580 000005 01126 2504005 XAQ 00590 000005 01127 0312132 STA TEMPST FIRST THREE DIGITS OF BRANCH NO IN TEMPST 00600 000005 01130 2506011 SET DECMODE 00610 000005 01131 0014270 LDA NINES 00620 000005 01132 0212132 SUB TEMPST 00630 000005 01133 2506012 SET BINMODE 00640 000005 01134 2514002 BZE TEST FOR CONTROL TOTALS RECORD 00650 000005 01135 2604532 BRU CONTOT BRANCH TO CONTROL TOTAL 000005 01136 0012746 LDA WARIM+54 00690 000005 01137 2504006 MAQ 00700 000005 01140 2512201 SLD 1 00710 000005 01141 0012745 LDA WARIM+53 00720 000005 01142 2511007 SRD 7 00730 000005 01143 1312132 DST TEMPST 00740 000005 01144 2506011 SET DECMODE 00750 000005 01145 0014270 LDA NINES 00760 000005 01146 0212133 SUB TEMPST+1 00770 000005 01147 2506012 SET BINMODE 00780 000005 01150 2514002 BZE TEST FOR TOTALS RECORD 00790 000005 01151 2605264 BRU TOTREC 00800 000005 01152 1012174 DLD OLDR PREPARE FOR TEST OF PREVIOUS RECORD WRITTEN 00810 000005 01153 1210036 DSU WKG 00820 000005 01154 2514002 BZE 00830 000005 01155 2601203 BRU 1B BRANCH TO CONNECTOR 1B ON PAGE 1 00840 000005 01156 0012627 LDA SWTD 00850 000005 01157 2514001 BMI TEST IF PREVIOUS REC WAS DEPT TOTALS 00860 000006 01160 2601177 BRU BTNEC BRANCH TO TEST NECESSITY OF BRANCH TOTAL 00870 000006 01161 0014151 LDA FLAG 00880 000006 01162 0312132 STA TEMPST 00890 000006 01163 0012743 LDA WARIM+51 00900 000006 01164 2312132 ORY TEMPST FLAGGED DEPT NO IN TEMPST 00910 000006 01165 0012132 LDA TEMPST PRESENT DEPT NUMBER [FLAGGED] INTO A 00920 000006 01166 2506011 SET DECMODE 00930 000006 01167 0212203 SUB OLDR+7 SUBTRACT PREVIOUS DEPT NO FROM PRESENT 00940 000006 01170 2506012 SET BINMODE 00950 000006 01171 2514002 BZE ARE THE NUMBERS EQUAL 00970 000006 01172 2605375 BRU TTBR BRANCH TO TEST FOR BRANCH TOTALS 00980 000006 01173 0012203 LDA OLDR+7 PREVIOUS DEPT NO INTO A 00990 000006 01174 2514002 BZE IS IT ZERO 01000 000006 01175 2605375 BRU TTBR IF YES THEN NO DEPT TOTALS NECESSARY 01010 000006 01176 2605517 BRU WDTR 01020 000006 01177 0012742 BTNEC LDA WARIM+50 BRANCH NO [LAST THREE DIGITS] IN A 01030 000006 01200 0212202 SUB OLDR+6 SUBTRACT PREV BRANCH NO FROM PRESENT 01090 000006 01201 2516002 BNZ TEST FOR UNEQUAL 01110 000006 01202 2605400 BRU WBTR YES, BRANCH TO WRITE NEW BRANCH TOTALS RECORD01120 000006 01203 2504002 1B LDZ LOAD ZERO 01130 000006 01204 0312627 STA SWTD RESET SWITCH SWTD 01140 000006 01205 0312625 STA SWTB RESET SWITCH SWTB 01150 000006 01206 1010036 DLD WKG WRITE NEW INFORMATION AT OLDR 01160 000006 01207 1312174 DST OLDR 01170 000006 01210 1010040 DLD WKG+2 01180 000006 01211 1312176 DST OLDR+2 01190 000006 01212 1012740 DLD WARIM+48 01200 000006 01213 1312200 DST OLDR+4 01210 000006 01214 1012742 DLD WARIM+50 01220 000006 01215 1312202 DST OLDR+6 01230 000006 01216 1012744 DLD WARIM+52 01240 000006 01217 1312204 DST OLDR+8 01250 000006 01220 1012746 DLD WARIM+54 01260 000006 01221 1312206 DST OLDR+10 01270 000006 01222 0010073 LDA WKG+29 LOAD PAYMENT CODE 01280 000006 01223 2514002 BZE 01290 000006 01224 2607466 BRU SPY 01291 000006 01225 0214264 SUB NWNTR SUBTRACT 499 01240 000006 01226 2516001 BPL IS PAYMENT CODE LARGER THAN 499 01250 000006 01227 2607724 BRU NE BRANCH TO CONNECTOR NE ON PAGE 22 01260 000006 01230 1012030 C DLD VARIAN 1ST TWO WORDS OF VARIATION 01270 000006 01231 2210036 DCB WKG COMPARE WITH RECORD BEING PROCESSED 01280 000006 01232 2604443 BRU UNLOC VARIATION NOT LOCATED 01290 000006 01233 2601235 BRU *+2 01300 000006 01234 2601411 BRU M#295 BRANCH TO CONNECTOR 01310 000006 01235 1012032 DLD VARIAN+2 01320 000006 01236 2210040 DCB WKG+2 01330 000006 01237 0724443 SPB UNLOC 1 01340 000006 01240 2601242 BRU M#141 01350 000006 01241 2601411 BRU M#295 BRANCH TO CONNECTOR K ON PAGE 4 01360 000006 01242 0012034 M#141 LDA VARIAN+4 LOAD VARIATION CODE 01370 000006 01243 2512003 SLA 3 01380 000006 01244 2510017 SRA 15 FIRST DIGIT RIGHT JUSTIFIED 01390 000006 01245 0212757 SUB TWO 01400 000007 01246 2516002 BNZ IS IT A B VARIATION 01410 000007 01247 2601411 BRU M#295 BRANCH TO CONNECTOR K PAGE 4 01420 000007 01250 0012034 LDA VARIAN+4 01430 000007 01251 0214251 SUB B00 SUBTRACT 200 01440 000007 01252 2516002 BNZ 01450 000007 01253 2601325 BRU M#224 BRANCH TO TEST FOR B01 PAGE 2FC 01460 000007 01254 0734630 SPB FLIP 1 FLIP NO OF HOURS OVERTIME 01530 000007 01255 0012037 LDA VARIAN+7 01540 000007 01256 0030006 ALF 306 01550 000007 01257 2607426 BRU WOLB2 000007 01260 1312156 DST OHOURS STORE BINARY HOURS AT OHOURS 01570 000007 01261 1112540 DAD ACUM 01580 000007 01262 1312540 DST ACUM 01590 000007 01263 0010106 LDA WKG+40 MARGIN 000007 01264 0110107 ADD WKG+41 SPECIAL ALLOWANCE 000007 01265 0113022 ADD ONTHIR ROUDING FACTOR 000007 01266 2504006 MAQ 000007 01267 1110104 DAD WKG+38 000007 01270 1613026 DVD TWSX1 000007 01271 2504006 MAQ 000007 01272 1512157 MPY OHOURS+1 000007 01273 1612765 DVD EIGHT 000007 01274 0112762 ADD FIVE ROUNDING 01640 000007 01275 2504006 MAQ 01650 000007 01276 1612767 DVD TEN BECAUSE HOURS ADVISED TO ONE DECIMAL PLACE 01660 000007 01277 0112661 ADD WARIM+1 01670 000007 01300 0312661 STA WARIM+1 01680 000007 01301 1012036 DLD VARIAN+6 01700 000007 01302 1312674 DST WARIM+12 OVERTIME HOURS TO WARIM 01710 000007 01303 0012661 LDA WARIM+1 01720 000007 01304 0312000 STA REPIM+18 OVERTIME PAYMENT TO REPORT - OVERTIME 01730 000007 01305 1012036 M#180 DLD VARIAN+6 01740 000007 01306 1312002 DST REPIM+20 NO OF HOURS TO REPORT 01750 000007 01307 0014217 LDA OT#R 21 IN A REGISTER 01760 000007 01310 2504006 MAQ 01770 000007 01311 0012752 LDA WARIM+58 01780 000007 01312 1312024 DST REPIM+38 TYPE OF REPORT CODE TO REPORT (21) 01790 000007 01313 0727573 SPB SR#1 1 STANDARD INFO TO REPORT 01690 000007 01314 0720720 SPB REPORT 1 WRITE REPORT 01800 000007 01315 0727650 SPB SR#4 1 CLEAR REPIM 01810 000007 01316 0010073 M#188 LDA WKG+29 LOAD PAYMENT CODE 01820 000007 01317 2514002 BZE TEST IF ZERO 01830 000007 01320 2601323 BRU M#196 BRANCH TO READ NEXT VARIATION 01840 000007 01321 2504102 LMO MINUS ONE INTO A 01850 000007 01322 0312626 STA SWTO SET SWITCH O TO MINUS ONE 01860 000007 01323 0720610 M#196 SPB RDVAR 1 01890 000007 01324 2601230 BRU C 01900 000007 01325 0012034 M#224 LDA VARIAN+4 TRANSACTION CODE 01910 000007 01326 0214252 SUB B01 SUBTRACT 201 AND TEST FOR 0 01920 000007 01327 2516002 BNZ 01930 000007 01330 2601341 BRU M#245 BRANCH TO TEST FOR B58 01940 000007 01331 0012037 LDA VARIAN+7 LOAD AMOUNT TO BE PAID 01950 000007 01332 0312001 STA REPIM+19 WRITE ON REPORT IMAGE 01960 000007 01333 0112662 ADD WARIM+2 ADD TO WARRANT IMAGE 01970 000008 01334 0312662 STA WARIM+2 01980 000008 01335 1012036 DLD VARIAN+6 02060 000008 01336 1112550 DAD ACUM+8 ADD TO ACCUM OF OVERTIME HOURS 02070 000008 01337 1312550 DST ACUM+8 02080 000008 01340 2601307 BRU M#180+2 000008 01341 0012034 M#245 LDA VARIAN+4 02100 000008 01342 0214257 SUB CD#58 SUBTRACT 258 02110 000008 01343 2516002 BNZ 02120 000008 01344 2601355 BRU M#266 THIS IS NO PAYMENT ON TERMINATION OF EMPLOYEE02130 000008 01345 0012037 LDA VARIAN+7 VARIATION B58-LUMP SUM 50/0 TAXABLE 02140 000008 01346 2504006 MAQ 02150 000008 01347 1612776 DVD TWENT DIVIDE AMOUNT BY 20 [RESULT IS 50/0 ] 02160 000008 01350 0312676 STA WARIM+14 02170 000008 01351 0012037 LDA VARIAN+7 02180 000008 01352 0212676 SUB WARIM+14 02190 000008 01353 0312700 STA WARIM+16 02200 000008 01354 2601400 BRU M#283 02201 000008 01355 0012034 M#266 LDA VARIAN+4 LOAD TRANSACTION CODE 02210 000008 01356 2014162 EXT MASK2 ELIMINATE FIRST DIGIT 02220 000008 01357 0312132 STA TEMPST 02230 000008 01360 0734630 SPB FLIP 1 02240 000008 01361 0012132 LDA TEMPST 02250 000008 01362 0030003 ALF 303 02260 000008 01363 2607426 BRU WOLB2 000008 01364 2504001 LAQ 02280 000008 01365 0213010 SUB PEN10 SUBTRACT 38 02290 000008 01366 0300001 STA 1 STORE REMAINDER AT INDEX 1 02300 000008 01367 2516002 BNZ 02310 000008 01370 2601375 BRU M#280 02320 000008 01371 0012037 LDA VARIAN+7 LOAD AMOUNT OF ADDITIONAL PAYMENT 02330 000008 01372 0112660 ADD WARIM ADD TO WARRANT IMAGE FIELD 1 02340 000008 01373 0312660 STA WARIM 02350 000008 01374 2601400 BRU *+4 02360 000008 01375 0012037 M#280 LDA VARIAN+7 LOAD ADDITIONAL PAYMENT 02370 000008 01376 0132660 ADD WARIM 1 ADD TO RELATIVE WARRANT FIELD 02380 000008 01377 0332660 STA WARIM 1 02390 000008 01400 1012036 M#283 DLD VARIAN+6 02400 000008 01401 1112552 DAD ACUM+10 ADD TO ACCUM OF VAR IMPLEMENTED 02410 000008 01402 1312552 DST ACUM+10 02420 000008 01403 0012034 LDA VARIAN+4 02440 000008 01404 0312001 STA REPIM+19 TRANSCODE TO REPORT 02450 000008 01405 1012036 DLD VARIAN+6 02460 000008 01406 1312010 DST REPIM+26 OPERAND TO REPORT 02470 000008 01407 0014211 LDA AUD1 02480 000008 01410 2601310 BRU M#180+3 000008 01411 2606622 M#295 BRU SCALE BRANCH TO SCALE INCREASE SUBR 02550 000008 01412 1010036 Z4 DLD WKG 1ST TWO WORDS - MASTER RECORD 02560 000008 01413 1212030 DSU VARIAN SUBTRACT 1ST TWO WDS VARIATION 02570 000008 01414 2516002 BNZ 02580 000008 01415 2606016 BRU T#001 BRANCH TO A ON PAGE 14 02590 000008 01416 1010040 DLD WKG+2 02600 000008 01417 1212032 DSU VARIAN+2 02610 000008 01420 2516002 BNZ 02620 000008 01421 2601415 BRU *-4 02630 000009 01422 0012632 LDA SWVAR 02631 000009 01423 2504032 ADO 02632 000009 01424 0312632 STA SWVAR 02633 000009 01425 0012034 LDA VARIAN+4 LOAD TRANSACTION CODE 02640 000009 01426 2510012 SRA 10 02650 000009 01427 2014161 EXT MASK1 ELIMINATE 1ST + 2ND DIGITS AND ZONE BITS 02660 000009 01430 2510002 SRA 2 02670 000009 01431 2112761 CAB FOUR COMPARE TO 4 02680 000009 01432 2601435 BRU *+3 SMALLER THAN 4 02690 000009 01433 2601725 BRU M#505 BRANCH TO CONNECTOR D ON PAGE 9FC 02700 000009 01434 2602217 BRU E11 BRANCH TO CONNECTOR E ON PAGE 11 FC 02710 000009 01435 0012034 LDA VARIAN+4 02720 000009 01436 2114262 CAB #C23 02730 000009 01437 2605570 BRU #DELE BRANCH TO #DELE PAGE 5FC - FL 554 02740 000009 01440 2601451 BRU #PC0 PAGE 5 FC 02750 000009 01441 0010073 LDA WKG+29 02760 000009 01442 2516002 BNZ 02770 000009 01443 2601454 BRU REJV PAGE 5 FC 02780 000009 01444 0012034 LDA VARIAN+4 TRANSACTION CODE 02790 000009 01445 0214263 SUB THR38 SUB. 338 02850 000009 01446 2514002 BZE IS TRANSCODE 338 02860 000009 01447 2601655 BRU CON7P8 YES - TO CONN 7 PAGE 8 FC 02870 000009 01450 2601541 BRU CON6P7 NO - TO CONN 6 PAGE 7 FC 02880 000009 01451 0010073 #PC0 LDA WKG+29 02890 000009 01452 2514002 BZE IS PAYMENT CODE ZERO 02900 000009 01453 2601466 BRU CON3P6 YES - TO CONN 3 ON PAGE 6 02910 000009 01454 0727573 REJV SPB SR#1 1 NUMBER AND NAME TO REPORT 02920 000009 01455 0012034 LDA VARIAN+4 VARIATION CODE 02930 000009 01456 2504006 MAQ TO Q REG 02940 000009 01457 0010073 LDA WKG+29 PAYMENT CODE 02950 000009 01460 1312000 DST REPIM+18 02960 000009 01461 0012035 LDA VARIAN+5 WORD 5 OF VARIATION 02970 000009 01462 0312002 STA REPIM+20 02980 000009 01463 1012036 DLD VARIAN+6 OPERAND OF VARIATION 02990 000009 01464 1312010 DST REPIM+26 03000 000009 01465 2602263 BRU M#775 000009 01466 2504002 CON3P6 LDZ PAYMENT CODE IS 0 VARIATION IS C23 03100 000009 01467 0300001 STA 1 SET INDEX 1 = 0 03110 000009 01470 0300002 STA 2 SET INDEX 2 = 0 03120 000009 01471 0012660 LDA WARIM SALARY 03130 000009 01472 2504006 MAQ 03140 000009 01473 1312132 DST TEMPST 03150 000009 01474 1012554 DLD ACUM+12 03160 000009 01475 1212132 DSU TEMPST SUBTRACT SALARY FROM ACCUMULATOR 03170 000009 01476 1312554 DST ACUM+12 03180 000009 01477 2504002 LDZ 03190 000009 01500 0312660 STA WARIM ZEROFILL WARRANT FIELD 0 03200 000009 01501 0032663 LDA WARIM+3 1 LOAD WARRANT FIELD 03210 000009 01502 2504006 MAQ MAKE IT DOUBLE PRECISION 03220 000009 01503 1312132 DST TEMPST STORE 03230 000009 01504 1212132 DSU TEMPST SUBTRACT WARRANT FIELD 03250 000009 01505 1052556 DLD ACUM+14 2 LOAD RESPECTIVE ACCUMULATOR OF INCREASES 03240 000009 01506 1352556 DST ACUM+14 2 STORE REDUCED ACCUMULATED AMOUNT 03260 000009 01507 2504002 LDZ 03270 000010 01510 0332663 STA WARIM+3 1 SET RELATIVE WAR.FIELD TO ZERO 03280 000010 01511 1420001 INX 1 1 03290 000010 01512 1440002 INX 2 2 03300 000010 01513 0437767 BXL 9 1 03310 000010 01514 2601501 BRU *-11 03320 000010 01515 2504002 LDZ 03330 000010 01516 0312676 STA WARIM+14 03340 000010 01517 0312677 STA WARIM+15 03350 000010 01520 0312700 STA WARIM+16 03360 000010 01521 0300001 STA 1 03370 000010 01522 0332706 STA WARIM+221 03380 000010 01523 1420001 INX 1 1 03390 000010 01524 0437750 BXL 24 1 WARIM FIELDS 22-45 SET TO ZERO 03400 000010 01525 2601522 BRU *-3 03410 000010 01526 1012152 DLD PAYD LOAD PAYDAY 03420 000010 01527 1310074 DST WKG+30 03430 000010 01530 0012037 LDA VARIAN+7 NEW PAYMENT CODE 03440 000010 01531 0312650 STA LOCX STORE AT LOCATION X 03450 000010 01532 0312023 STA REPIM+37 03460 000010 01533 0012034 LDA VARIAN+4 TRANCODE 03470 000010 01534 0312001 STA REPIM+19 03480 000010 01535 0014220 LDA FD29 03530 000010 01536 0312012 STA REPIM+28 03540 000010 01537 0727573 SPB SR#1 1 03545 000010 01540 2602122 BRU M#635 000010 01541 1012036 CON6P7 DLD VARIAN+6 03620 000010 01542 1112552 DAD ACUM+10 ADD VARIATION TO ACCUM OF VAR. DONE 03630 000010 01543 1312552 DST ACUM+10 03640 000010 01544 0734630 SPB FLIP 1 03650 000010 01545 0012035 LDA VARIAN+5 FLIP NO OF DAYS 03660 000010 01546 0030003 ALF 303 03670 000010 01547 2607422 BRU BLOW6 03680 000010 01550 2504001 LAQ 03690 000010 01551 0312132 STA TEMPST BINARY NO OF DAYS IN TEMPST 03700 000010 01552 2112767 CAB TEN 000010 01553 2601563 BRU M#405 000010 01554 2601636 BRU CONB7 000010 01555 0212767 M#400 SUB TEN SUBTRACT 10 03710 000010 01556 2514001 BMI IS NO OF DAYS LESS THAN 10 03720 000010 01557 2601563 BRU M#405 YES 03730 000010 01560 2514002 BZE IS IT 10 03740 000010 01561 2601636 BRU CONB7 GO TO CONB7 03745 000010 01562 2607354 BRU CONA7 OTHERWISE GO TO CONA7 03750 000010 01563 0012767 M#405 LDA TEN 03760 000010 01564 0212132 SUB TEMPST SUBTRACT NO OF DAYS FROM 10 03770 000010 01565 0312646 STA P STORE DIFFERENCE AT P 03780 000010 01566 2504006 MAQ 03790 000010 01567 1510103 MPY WKG+37 MULTIPLY BY VALUE OF QUARTERS 03800 000010 01570 1613026 DVD TWSX1 DIVIDE BY 261 03810 000010 01571 0312134 STA TEMPST+2 STORE 03820 000010 01572 0012677 LDA WARIM+15 03830 000010 01573 0212134 SUB TEMPST+2 SUBTRACT FROM WARRANT IMAGE 03840 000010 01574 0312677 STA WARIM+15 03850 000010 01575 0012660 LDA WARIM LOAD FORTN SALARY FROM WARRANT IMAGE 03860 000011 01576 2504006 MAQ 03870 000011 01577 1512646 MPY P 03880 000011 01600 1612767 DVD TEN 03890 000011 01601 2504006 MAQ 03900 000011 01602 1312134 DST TEMPST+2 STORE DIFFERENCE 03910 000011 01603 0012660 LDA WARIM 03920 000011 01604 0212135 SUB TEMPST+3 SUBTRACT DIFFERENCE FROM WARRANT 03930 000011 01605 0312660 STA WARIM 03940 000011 01606 1012554 DLD ACUM+12 03950 000011 01607 1212134 DSU TEMPST+2 SUBTRACT FROM ACCUM OF INCREASES PER ITEM 03960 000011 01610 1312554 DST ACUM+12 03970 000011 01611 2504002 LDZ 03980 000011 01612 0300001 STA 1 SET INDEX 1 TO 0 03990 000011 01613 0300002 M#430 STA 2 SET INDEX 2 TO 0 04000 000011 01614 0032663 LDA WARIM+3 1 LOAD WARRANT FIELD 04010 000011 01615 2514002 BZE CHECK IF ZERO 04020 000011 01616 2601632 BRU M#445 000011 01617 2504006 MAQ IF NON-ZERO MOVE A TO Q 04040 000011 01620 1512646 MPY P MULTIPLY BY P 04050 000011 01621 1612767 DVD TEN DIVIDE BY TEN TO OBTAIN DIFFERENCE 04060 000011 01622 2504006 MAQ 04070 000011 01623 1312134 DST TEMPST+2 STORE IT 04080 000011 01624 0032663 LDA WARIM+3 1 04090 000011 01625 0212135 SUB TEMPST+3 SUBTRACT FROM CONTENTS OF REVELANT WARR.FIELD04100 000011 01626 0332663 STA WARIM+3 1 STORE NET AMOUNT BACK 04110 000011 01627 1052556 DLD ACUM+14 2 04120 000011 01630 1212134 DSU TEMPST+2 AMEND ACCUM OF INCREASES 04130 000011 01631 1352556 DST ACUM+14 2 04140 000011 01632 1420001 M#445 INX 1 1 04150 000011 01633 1440002 INX 2 2 04160 000011 01634 0437767 BXL 9 1 04170 000011 01635 2601614 BRU M#430+1 000011 01636 0012037 CONB7 LDA VARIAN+7 04190 000011 01637 0312650 STA LOCX PAYMENT CODE AT LOCATION X 04200 000011 01640 2504006 MAQ 04210 000011 01641 1312022 DST REPIM+36 AND ON REPIM 04220 000011 01642 2504002 LDZ 04222 000011 01643 0312622 STA SWRES 04223 000011 01644 0727573 SPB SR#1 1 NAME + NOS TO REPIM 04230 000011 01645 0012034 LDA VARIAN+4 04240 000011 01646 0312001 STA REPIM+19 04250 000011 01647 0012035 LDA VARIAN+5 04260 000011 01650 0312002 STA REPIM+20 04270 000011 01651 0012034 LDA VARIAN+4 04280 000011 01652 2014162 EXT MASK2 04290 000011 01653 0312012 STA REPIM+28 FIELD NO TO REPIM 04300 000011 01654 2602265 BRU M#777 000011 01655 0012037 CON7P8 LDA VARIAN+7 PAYMENT CODE 04470 000011 01656 0310073 STA WKG+29 04480 000011 01657 0312023 STA REPIM+37 04490 000011 01660 2504006 MAQ 04500 000011 01661 1112552 DAD ACUM+10 04510 000011 01662 1312552 DST ACUM+10 04520 000011 01663 0012660 LDA WARIM FORTN SALARY 04540 000012 01664 2504006 MAQ MAKE DOUBLE PRECISION 04550 000012 01665 1312132 DST TEMPST STORE 04560 000012 01666 1012554 DLD ACUM+12 04570 000012 01667 1212132 DSU TEMPST SUBTRACT FROM ACCUM OF INCREASES 04580 000012 01670 1312554 DST ACUM+12 04590 000012 01671 2504002 LDZ 04600 000012 01672 0312660 STA WARIM WARRANT FIELD 0 SET TO ZERO 04610 000012 01673 0312661 STA WARIM+1 1 DO 04620 000012 01674 0312662 STA WARIM+2 2 DO 04630 000012 01675 0300001 STA 1 04640 000012 01676 0300002 STA 2 INDEX REG 1 AND 2 SET TO 0 04650 000012 01677 0032663 M#477 LDA WARIM+3 1 LOAD WARRANT FIELD 04660 000012 01700 2514002 BZE CHECK WETHER ZERO IF YES SKIP NEXT 5 INSTR 04670 000012 01701 2601711 BRU *+8 04680 000012 01702 2504006 MAQ 04690 000012 01703 1312132 DST TEMPST 04700 000012 01704 1052556 DLD ACUM+14 2 04710 000012 01705 1212132 DSU TEMPST DEDUCT WARRANT FIELD FROM ACCUMULATOR 04720 000012 01706 1352556 DST ACUM+14 2 04730 000012 01707 2504002 LDZ 04740 000012 01710 0332663 STA WARIM+3 1 SET RELATIVE WARRANT FIELD TO ZERO [3-11] 04750 000012 01711 1420001 INX 1 1 04760 000012 01712 1440002 INX 2 2 04770 000012 01713 0437767 BXL 9 1 04780 000012 01714 2601677 BRU M#477 04790 000012 01715 2504002 LDZ 04800 000012 01716 0312626 STA SWTO RESET SWITCH 0 TO PREVENT ANY WARRANT PRINT 04810 000012 01717 0727573 SPB SR#1 1 NAME + NO TO REPORT 04820 000012 01720 0012034 LDA VARIAN+4 TRANSCODE TO REPORT 04830 000012 01721 0312001 STA REPIM+19 04840 000012 01722 0014220 LDA FD29 FIELD NO 04850 000012 01723 0312012 STA REPIM+28 04860 000012 01724 2602265 BRU M#777 000012 01725 0012034 M#505 LDA VARIAN+4 TRANCODE 04950 000012 01726 2014162 EXT MASK2 ELIMINATE 1ST DIGIT 04960 000012 01727 0312132 STA TEMPST 04970 000012 01730 0734630 SPB FLIP 1 CONVERT TO BINARY 04980 000012 01731 0012132 LDA TEMPST 04990 000012 01732 0030003 ALF 303 05000 000012 01733 2607426 BRU WOLB2 000012 01734 2504001 LAQ 05020 000012 01735 0300002 STA 2 STORE 2ND + 3RD DIGITS TRANCODE AT INDEX 2 05030 000012 01736 0734630 SPB FLIP 1 05040 000012 01737 0012035 LDA VARIAN+5 NO OF DAYS 05050 000012 01740 0030003 ALF 303 05060 000012 01741 2607426 BRU WOLB2 000012 01742 2504001 LAQ 05080 000012 01743 0312134 STA TEMPST+2 NO OF DAYS IN BINARY IN TEMPST +2 05090 000012 01744 0000002 LDA 2 FIELD CODE 05100 000012 01745 0213007 SUB THR7 SUBTRACT 37 05110 000012 01746 2514001 BMI IS TRAN.CODE LESS THAN D37 05120 000012 01747 2602046 BRU CON9A YES BRANCH TO CON9A PAGE 9 FC 05130 000012 01750 0010073 LDA WKG+29 NO-LOAD PAYMENT CODE 05140 000012 01751 2516002 BNZ IS IT ZERO 05150 000013 01752 2602060 BRU CON9B NO - BRANCH TO CON 9B 05160 000013 01753 0000002 LDA 2 LOAD FIELD NUMBER 05170 000013 01754 2113012 CAB FORTY COMPARE WITH 40 05180 000013 01755 2602020 BRU M#545 SMALLER THAN 40 [37 OR 38] 05190 000013 01756 2602041 BRU M#571 EQUAL TO 40 05200 000013 01757 0050036 M#530 LDA WKG 2 FIELD CODE BETWEEN 41 AND 49 05210 000013 01760 2504006 MAQ 05220 000013 01761 1113022 DAD ONTHIR ROUNDING FACTOR 05230 000013 01762 1613026 DVD TWSX1 DIVIDE BY 261 05240 000013 01763 0312132 STA TEMPST 05250 000013 01764 1012036 DLD VARIAN+6 NEW DATA 05260 000013 01765 1113022 DAD ONTHIR 05270 000013 01766 1613026 DVD TWSX1 05280 000013 01767 0212132 SUB TEMPST SUBTRACT OLD DATA DIVIDED BY 261 05290 000013 01770 2504006 MAQ MAKE DOUBLE PRECISION 05300 000013 01771 1512134 MPY TEMPST+2 MULTIPLY BY NO OF DAYS 05310 000013 01772 2504001 LAQ LOAD A WITH NET DIFFERENCE 05320 000013 01773 0152612 ADD WARIM-382 ADD TO RELATIVE WARRANT FIELD 05330 000013 01774 0352612 STA WARIM-382 05340 000013 01775 0012754 LDA ZERO SET A TO ZERO 05350 000013 01776 1312140 DST TEMPST+6 AND DOUBLE STORE NET DIFFERENCE 05360 000013 01777 0000002 LDA 2 05370 000013 02000 0213011 SUB THR8 TEST WHETHER FIELD WAS 38 05380 000013 02001 2514002 BZE 05390 000013 02002 2602012 BRU YRLS 05400 000013 02003 0000002 LDA 2 05410 000013 02004 0100002 ADD 2 05420 000013 02005 0300003 STA 3 05430 000013 02006 1012140 DLD TEMPST+6 05440 000013 02007 1172434 DAD ACUM-68 3 05450 000013 02010 1372434 DST ACUM-68 3 05460 000013 02011 2602077 BRU SLEN 05470 000013 02012 1012140 YRLS DLD TEMPST+6 05480 000013 02013 1112554 DAD ACUM+12 05490 000013 02014 1312554 DST ACUM+12 05500 000013 02015 2602105 BRU DLEN 05510 000013 02016 1010104 M#528 DLD WKG+38 05520 000013 02017 2601761 BRU M#530+2 05530 000013 02020 0000002 M#545 LDA 2 LOAD FIELD NO [ SMALLER THAN 40 ] 05540 000013 02021 0213011 SUB THR8 SUBTRACT 38 05550 000013 02022 2514002 BZE 05560 000013 02023 2602016 BRU M#528 05570 000013 02024 0010103 LDA WKG+37 05580 000013 02025 2504006 MAQ 05590 000013 02026 1613026 DVD TWSX1 05600 000013 02027 0312132 STA TEMPST 05610 000013 02030 1012036 DLD VARIAN+6 05620 000013 02031 1613026 DVD TWSX1 05630 000013 02032 0212132 SUB TEMPST 05640 000013 02033 2504006 MAQ 05650 000013 02034 1512134 MPY TEMPST+2 000013 02035 2504001 LAQ 05660 000013 02036 0112677 ADD WARIM+15 05670 000013 02037 0312677 STA WARIM+15 05680 000014 02040 2602077 BRU SLEN 05690 000014 02041 0000002 M#571 LDA 2 05700 000014 02042 0212757 SUB TWO 05710 000014 02043 0300002 STA 2 05720 000014 02044 0010106 LDA WKG+40 05730 000014 02045 2601760 BRU M#530+1 05740 000014 02046 0000002 CON9A LDA 2 LAST 2 DIGITS TRANCODE 05880 000014 02047 0213004 SUB TWNINE SUBTRACT 29 05890 000014 02050 2514002 BZE WAS IT 29 05900 000014 02051 2602126 BRU CON9C 05910 000014 02052 2504032 ADO ADD ONE 05920 000014 02053 2514002 BZE WAS IT 28 05930 000014 02054 2604353 BRU PENS24 YES 05940 000014 02055 2504032 ADO 000014 02056 2514002 BZE 000014 U 02057 2600000 BRU PENS7 000014 PENS7 undefined 02060 0000002 CON9B LDA 2 LOAD LAST 2 DIGITS TRANCODE 05950 000014 02061 0212767 SUB TEN SUBTRACT 10 [TO KEEP WITHIN RANGE OF CONSTANT05960 000014 02062 2112773 CAB SIXT COMPARE 16 05970 000014 02063 2602105 BRU DLEN DOUBLE LENGTH 05980 000014 02064 2602077 BRU SLEN SINGLE BCD 05990 000014 02065 2112774 CAB EITEEN COMPARE 18 06000 000014 02066 2602077 BRU SLEN SINGLE BIN 06010 000014 02067 2602077 BRU SLEN SINGLE BCD 06020 000014 02070 2112776 CAB TWENT CAB 20 06030 000014 02071 2602077 BRU SLEN 06040 000014 02072 2602105 BRU DLEN 06050 000014 02073 2113000 CAB TWOFO CAB 24 06060 000014 02074 2602077 BRU SLEN 06070 000014 02075 2602105 BRU DLEN 06080 000014 02076 2602077 BRU SLEN 06100 000014 02077 0050036 SLEN LDA WKG 2 LOAD RELEV FIELD MASTER REC. 06120 000014 02100 0312005 STA REPIM+23 STORE AT REPORTS IMAGE 06130 000014 02101 0012037 LDA VARIAN+7 LOAD NEW DATA 06140 000014 02102 0350036 STA WKG 2 STORE AT RELEV FIELD MASTER REC. 06150 000014 02103 0312023 STA REPIM+37 STORE AT REPORTS FILE IMAGE 06160 000014 02104 2602113 BRU CON9D 06170 000014 02105 1050036 DLEN DLD WKG 2 DO 06180 000014 02106 1312004 DST REPIM+22 06190 000014 02107 1012036 DLD VARIAN+6 06200 000014 02110 1350036 DST WKG 2 06210 000014 02111 1312022 DST REPIM+36 06220 000014 02112 2602113 BRU CON9D 06230 000014 02113 0727573 CON9D SPB SR#1 1 06240 000014 02114 0012034 LDA VARIAN+4 06250 000014 02115 0312001 STA REPIM+19 TRANCODE 06260 000014 02116 2014162 EXT MASK2 06270 000014 02117 0312012 STA REPIM+28 FIELD NO 06280 000014 02120 0012035 LDA VARIAN+5 06290 000014 02121 0312002 STA REPIM+20 NO OF DAYS 06300 000014 02122 1012036 M#635 DLD VARIAN+6 OPERAND OF VARIATION 06360 000014 02123 1112552 DAD ACUM+10 ADDED TO ACCUM 06370 000014 02124 1312552 DST ACUM+10 06380 000014 02125 2602265 BRU M#777 000015 02126 0010073 CON9C LDA WKG+29 06420 000015 02127 2514002 BZE 06430 000015 02130 2601541 BRU CON6P7 06440 000015 02131 0012037 CO8P10 LDA VARIAN+7 06460 000015 02132 2516002 BNZ 06470 000015 02133 2602211 BRU CO10B 000015 02134 0010103 LDA WKG+37 CURRENT VAL OF QRS 06490 000015 02135 2514002 BZE IS IT ZERO 06500 000015 02136 2602145 BRU M#655 06510 000015 02137 2504006 MAQ 06520 000015 02140 1512134 MPY TEMPST+2 MULTIPLY BY NO OF DAYS 06530 000015 02141 1613026 DVD TWSX1 DIVIDE BY 261 06540 000015 02142 0312136 STA TEMPST+4 06550 000015 02143 0112677 ADD WARIM+15 06560 000015 02144 0312677 STA WARIM+15 STORE AT WARRANT IMAGE 06570 000015 02145 0010106 M#655 LDA WKG+40 MARGIN ABOVE SCALE 06580 000015 02146 2504006 MAQ 06590 000015 02147 1110104 DAD WKG+38 ADD SALARY 06600 000015 02150 2512203 SLD 3 MULTIPLY BY 8 06610 000015 02151 1113022 DAD ONTHIR ADD ROUNDING FACTOR 000015 02152 1613026 DVD TWSX1 06650 000015 02153 2504006 MAQ 06660 000015 02154 1512134 MPY TEMPST+2 06670 000015 02155 2504005 XAQ 06680 000015 02156 0112761 ADD FOUR ADD ROUNDING FACTOR 06690 000015 02157 2504005 XAQ 06700 000015 02160 2511003 SRD 3 DIVIDE BY 8 06710 000015 02161 2504001 LAQ 06720 000015 02162 2602163 BRU M#680 000015 02163 0312660 M#680 STA WARIM STORE AT WARRANT IMAGE 06730 000015 02164 2504006 MAQ 06740 000015 02165 1112554 DAD ACUM+12 ADD TO ACCUM OF INCREASES PER ITEM 06750 000015 02166 1312554 DST ACUM+12 06760 000015 02167 2504002 LDZ 06770 000015 02170 0300001 STA 1 SET INDEX 1 ZERO 06780 000015 02171 0300002 STA 2 ID INDEX 2 06790 000015 02172 0030107 M#690 LDA WKG+41 1 LOAD MASTER RECORD EARNINGS FIELD 06800 000015 02173 2514002 BZE IS IT ZERO 06810 000015 02174 2602205 BRU M#710 YES- SKIP NEXT STEPS 06820 000015 02175 2504006 MAQ 06830 000015 02176 1512134 MPY TEMPST+2 MULTIPLY DAYS 06840 000015 02177 1113022 DAD ONTHIR ADD ROUNDING FACTOR 000015 02200 1613026 DVD TWSX1 06880 000015 02201 0332663 STA WARIM+3 1 STORE AT WARRANT IMAGE 06890 000015 02202 2504006 MAQ 06900 000015 02203 1152556 DAD ACUM+14 2 ADD TO ACCUM OF INCREASES 06910 000015 02204 1352556 DST ACUM+14 2 06920 000015 02205 1420001 M#710 INX 1 1 06930 000015 02206 1440002 INX 2 2 06940 000015 02207 0437767 BXL 9 1 06950 000015 02210 2602172 BRU M#690 06960 000015 02211 0010073 CO10B LDA WKG+29 PAYMENT CODE 06970 000015 02212 0312005 STA REPIM+23 TO REPORT 06980 000015 02213 0012037 LDA VARIAN+7 NEW PAYMENT CODE 06990 000016 02214 0310073 STA WKG+29 TO MASTER RECORD 07000 000016 02215 0312023 STA REPIM+37 AND REPORT 07010 000016 02216 2602113 BRU CON9D 000016 02217 0012034 E11 LDA VARIAN+4 TRANCODE 07200 000016 02220 2510014 SRA 12 07210 000016 02221 2014161 EXT MASK1 ISOLATE 1ST DIGIT 07220 000016 02222 0312132 STA TEMPST 07230 000016 02223 2112763 CAB SIX COMPARE TO SIX [F] 07290 000016 02224 2602227 BRU CO11H SMALLER - E VARIATION 07300 000016 02225 2602361 BRU COF12 EQUAL - F VARIATION - CONN F PAG12FC 07310 000016 02226 2602464 BRU COH13 LARGER 07320 000016 02227 0013017 CO11H LDA PEN16 71 IN A 07330 000016 02230 2504032 ADO ADD ONE 07340 000016 02231 0300002 STA 2 STORE 72 AT INDEX 2 07350 000016 02232 0012035 LDA VARIAN+5 ITEM CODE 07360 000016 02233 0312132 STA TEMPST TO TEMPST 07370 000016 02234 0014151 LDA FLAG FLAG FOR DECMODE 07380 000016 02235 2312132 ORY TEMPST TO TEMPST 07390 000016 02236 2506011 SET DECMODE 07400 000016 02237 0012132 M#755 LDA TEMPST 07410 000016 02240 0250036 SUB WKG 2 07420 000016 02241 2514002 BZE IS FIELD M EQUAL TO ITEM CODE 07430 000016 02242 2602327 BRU CO11A YES 07440 000016 02243 0050036 LDA WKG 2 000016 02244 0214175 SUB ASTER TEST IF IT IS ASTERISKS 07460 000016 02245 2514002 BZE 07470 000016 02246 2602275 BRU CO11B YES- 07480 000016 02247 1440002 INX 2 2 07490 000016 02250 0457640 BXL 96 2 000016 02251 2602237 BRU M#755 07510 000016 02252 0727573 SPB SR#1 1 07520 000016 02253 0014204 LDA CRUN SYMBOL 13TH DEDUCTION 07530 000016 02254 0312000 STA REPIM+18 TO REPORT 07540 000016 02255 0012034 LDA VARIAN+4 TRANCODE 07550 000016 02256 0312001 M#770 STA REPIM+19 TO REPORT 07560 000016 02257 0012035 LDA VARIAN+5 ITEM CODE 07570 000016 02260 0312003 STA REPIM+21 ID 07580 000016 02261 1012036 DLD VARIAN+6 OPERAND 07590 000016 02262 1312010 DST REPIM+26 ID 07600 000016 02263 1112546 M#775 DAD ACUM+6 ADD TO ACCUM OF VARIATIONS NOT DONE 07610 000016 02264 1312546 DST ACUM+6 07620 000016 02265 0014211 M#777 LDA AUD1 AUDIT REPORT SYMBOL 07630 000016 02266 2504006 MAQ 07640 000016 02267 0012752 LDA WARIM+58 CONTROL KEY 07650 000016 02270 1312024 DST REPIM+38 07660 000016 02271 0720720 SPB REPORT 1 WRITE REPORT 07670 000016 02272 0727650 SPB SR#4 1 CLEAR REPIM 07680 000016 02273 0720610 M#780 SPB RDVAR 1 07690 000016 02274 2601412 BRU Z4 07700 000016 02275 1012036 CO11B DLD VARIAN+6 07710 000016 02276 1112552 DAD ACUM+10 07720 000016 02277 1312552 DST ACUM+10 07730 000016 02300 0012035 LDA VARIAN+5 LOAD ITEM CODE 07740 000016 02301 0350036 STA WKG 2 STORE AT FIELD M 07750 000017 02302 0557642 BXH 94 2 IS CONTENTS OF INDEX 2 LESS THAN 94 07760 000017 02303 2602306 BRU CO11C 07770 000017 02304 0014175 LDA ASTER 07780 000017 02305 0350040 STA WKG+2 2 WRITE ASTERISKS IN NEXT FIELD 07790 000017 02306 0012037 CO11C LDA VARIAN+7 07800 000017 02307 0350037 STA WKG+1 2 07810 000017 02310 1050036 DLD WKG 2 07820 000017 02311 1352576 DST WARIM-502 07830 000017 02312 0012034 M#791 LDA VARIAN+4 000017 02313 0312001 STA REPIM+19 07860 000017 02314 0012035 LDA VARIAN+5 ITEM CODE 07870 000017 02315 0312003 STA REPIM+21 07880 000017 02316 0000002 LDA 2 LOAD FIELD NO 07890 000017 02317 2504006 MAQ 07900 000017 02320 0735425 SPB FLOP 1 CONVERT TO BCD 07910 000017 02321 0012131 LDA BINWA+3 07920 000017 02322 0312012 STA REPIM+28 TO REPORT 07930 000017 02323 0012037 LDA VARIAN+7 NEW FIELD CONTENTS 000017 02324 0312023 STA REPIM+37 000017 02325 0727573 SPB SR#1 1 NAME + NOS TO REPORT 000017 02326 2602265 BRU M#777 000017 02327 1012036 CO11A DLD VARIAN+6 08040 000017 02330 1112552 DAD ACUM+10 ADD WORDS 6+7 OF VARIATION TO ACCUM 08050 000017 02331 1312552 DST ACUM+10 08060 000017 02332 0012037 LDA VARIAN+7 08070 000017 02333 2514002 BZE CHECK WORD 7 OF VARIATION FOR 0 08080 000017 02334 2602340 BRU CO11D 08090 000017 02335 1050036 DLD WKG 2 08100 000017 02336 1312004 DST REPIM+22 OLD FIELD CONTENTS TO REPORT 08110 000017 02337 2602306 BRU CO11C 08120 000017 02340 1050036 CO11D DLD WKG 2 08130 000017 02341 1312004 DST REPIM+22 OLD FIELD CONTENTS TO REPORT -PREVIOUS CONTS 08140 000017 02342 2504002 LDZ 08150 000017 02343 2504006 MAQ A AND Q BOTH ZERO 08160 000017 02344 1352576 DST WARIM-502 SET RELATIVE WARRANT FIELD TO ZERO 08170 000017 02345 1440002 M#814 INX 2 2 08180 000017 02346 0457640 BXL 96 2 08190 000017 02347 2602353 BRU CO11E 08200 000017 02350 0014175 LDA ASTER ASTERISKS TO A 08210 000017 02351 2504004 LQA AND TO Q 08220 000017 02352 2602354 BRU CO11F 08230 000017 02353 1050036 CO11E DLD WKG 2 CONTENTS OF FIELD M 08240 000017 02354 1350034 CO11F DST WKG-2 2 STORE AT FIELD M - 2 08260 000017 02355 0214175 SUB ASTER 000017 02356 2514002 BZE 08350 000017 02357 2602312 BRU M#791 08360 000017 02360 2602345 BRU M#814 08370 000017 02361 0010073 COF12 LDA WKG+29 LOAD PAYMENT CODE 08380 000017 02362 2516002 BNZ 08390 000017 02363 2602450 BRU CO12A 08400 000017 02364 0734630 SPB FLIP 1 CONVERT DAYS TO BINARY 08410 000017 02365 0012035 LDA VARIAN+5 08420 000017 02366 0030003 ALF 303 08430 000017 02367 2607426 BRU WOLB2 000018 02370 2504001 LAQ 08450 000018 02371 0312132 STA TEMPST BINARY NO OF DAYS TO TEMPST 08460 000018 02372 1012036 DLD VARIAN+6 08470 000018 02373 2504002 LDZ 08480 000018 02374 1512132 MPY TEMPST 08490 000018 02375 1312136 DST TEMPST+4 08500 000018 02376 1012036 DLD VARIAN+6 08510 000018 02377 2504006 MAQ 08520 000018 02400 1512132 MPY TEMPST 08530 000018 02401 2516002 BNZ 08540 000018 02402 2603060 BRU BXCF BRANCH TO PAGE 58 A#001 08550 000018 02403 0013023 LDA ONTHIR+1 000018 02404 2504005 XAQ 08570 000018 02405 1112136 DAD TEMPST+4 08580 000018 02406 1613026 DVD TWSX1 08590 000018 02407 0312133 STA TEMPST+1 STORE IT 08600 000018 02410 0012034 LDA VARIAN+4 TRANCODE 08610 000018 02411 2014162 EXT MASK2 ISOLATE FIELDCODE 08620 000018 02412 0312135 STA TEMPST+3 08630 000018 02413 0734630 SPB FLIP 1 08640 000018 02414 0012135 LDA TEMPST+3 CONVERT FIELDCODE TO BINARY 08650 000018 02415 0030003 ALF 303 08660 000018 02416 2607426 BRU WOLB2 000018 02417 2504001 LAQ 08680 000018 02420 0300002 STA 2 STORE AT INDEX 2 08690 000018 02421 0012133 LDA TEMPST+1 LOAD AMOUNT PAYABLE 08700 000018 02422 0152612 ADD WARIM-382 ADD TO WARRANT IMAGE 08710 000018 02423 0352612 STA WARIM-382 08720 000018 02424 0000002 LDA 2 08730 000018 02425 0213011 SUB THR8 SUBTRACT 38 08740 000018 02426 2516002 BNZ IS FIELD CONCERNED FIELD 38 08750 000018 02427 2602432 BRU *+3 NO - GO TO STEP M#881 08760 000018 02430 0012761 LDA FOUR YES - LOAD 4 08770 000018 02431 2602433 BRU *+2 GO TO STEP M#881 08780 000018 02432 2504002 LDZ 08790 000018 02433 0100002 ADD 2 ADD FIELD NO 08800 000018 02434 0100002 ADD 2 ADD FIELD NO AGAIN 08810 000018 02435 0300002 STA 2 08820 000018 02436 0012133 LDA TEMPST+1 EXTRA AMOUNT PAYABLE 08830 000018 02437 2504006 MAQ 08840 000018 02440 1152434 DAD ACUM-68 2 ADD TO ACCUM OF INCR PER ITEM 08850 000018 02441 1352434 DST ACUM-68 2 08860 000018 02442 1012036 DLD VARIAN+6 08870 000018 02443 1112552 DAD ACUM+10 ADD TO ACCUM OF VARIATIONS DONE 08880 000018 02444 1312552 DST ACUM+10 08890 000018 02445 1012036 DLD VARIAN+6 OPERAND 08900 000018 02446 1312022 DST REPIM+36 TO REPORT AS DONE 08910 000018 02447 2602456 BRU CO12C 08920 000018 02450 0010073 CO12A LDA WKG+29 WRITE PAYMENT CODE 08930 000018 02451 0312000 STA REPIM+18 ON REPORT AS SYMBOL 08940 000018 02452 1012036 CO12B DLD VARIAN+6 OPERAND 08950 000018 02453 1312010 DST REPIM+26 TO REPORT AS REJECTED 08960 000018 02454 1112546 DAD ACUM+6 ADD TO ACCUM OF VARIATIONS REJECTED 08970 000018 02455 1312546 DST ACUM+6 08980 000019 02456 0727573 CO12C SPB SR#1 1 NAME AND NOS TO REPORT 08990 000019 02457 0012034 LDA VARIAN+4 TRANCODE 09000 000019 02460 0312001 STA REPIM+19 TO REPORT 09010 000019 02461 0012035 LDA VARIAN+5 NO OF DAYS 09020 000019 02462 0312002 STA REPIM+20 TO REPORT 09030 000019 02463 2602265 BRU M#777 WRITE REPORT 09040 000019 02464 1012036 COH13 DLD VARIAN+6 09050 000019 02465 1312140 DST TEMPST+6 VARIATION OPERAND TO TEMPORARY STORAGE 09060 000019 02466 0727573 SPB SR#1 1 NAME AND NO TO REPORT 09070 000019 02467 0012034 LDA VARIAN+4 09080 000019 02470 2510014 SRA 12 09090 000019 02471 2014161 EXT MASK1 ISOLATE FIRST DIGIT OF TRANCODE 09100 000019 02472 0312132 STA TEMPST 09110 000019 02473 0312133 STA TEMPST+1 STORE BINARY 1ST DIGIT TRANCODE 09170 000019 02474 2112765 CAB EIGHT COMPARE WITH 8 09180 000019 02475 2602514 BRU CO13A 09190 000019 02476 2602502 BRU CO13B 09200 000019 02477 2504102 LMO MINUS ONE 09210 000019 02500 0312624 STA SWTR SET SWITCH R TO -1 09220 000019 02501 2602273 BRU M#780 000019 02502 0012036 CO13B LDA VARIAN+6 09250 000019 02503 2504502 CPL COMPLEMENT HIGH ORDER PORTION 000019 02504 0312036 STA VARIAN+6 09270 000019 02505 0012037 LDA VARIAN+7 09280 000019 02506 2504502 CPL COMPLEMENT LOW ORDER PORTION 000019 02507 0312037 STA VARIAN+7 09300 000019 02510 0012756 LDA ONE 000019 02511 2504006 MAQ 000019 02512 1112036 DAD VARIAN+6 ADD 1 TO COMPLEMENT TO OBTAIN TWOS COMPLEMENT 000019 02513 1312036 DST VARIAN+6 000019 02514 0012034 CO13A LDA VARIAN+4 09310 000019 02515 2014162 EXT MASK2 ELIMINATE FIRST DIGIT 09320 000019 02516 0312134 STA TEMPST+2 09330 000019 02517 0734630 SPB FLIP 1 CONVERT TO BINARY 09340 000019 02520 0012134 LDA TEMPST+2 09350 000019 02521 0030003 ALF 303 09360 000019 02522 2607426 BRU WOLB2 000019 02523 2504001 LAQ 09380 000019 02524 0312135 STA TEMPST+3 STORE 2ND + 3RD DIGITS BINARY 09390 000019 02525 2514003 BOV 000019 02526 2602527 BRU *+1 000019 02527 0012754 CO13D LDA ZERO 000019 02530 0300001 STA 1 000019 02531 1300002 DST 2 000019 02532 2506033 SXG 01 000019 02533 0300001 STA 1 000019 02534 0300002 STA 2 000019 02535 2506013 SXG 00 000019 02536 0012135 LDA TEMPST+3 000019 U 02537 0220000 SUB SCHED 1 000019 SCHED undefined 02540 2514002 BZE 000019 02541 2602545 BRU *+4 000019 02542 1420001 INX 1 1 000019 02543 0437747 BXL 25 1 000020 02544 2602536 BRU *-6 000020 02545 0000001 LDA 1 000020 02546 2504006 MAQ 000020 02547 1512764 MPY SEVEN 000020 02550 0300001 STA 1 000020 02551 2622552 BRU OT#M 1 000020 02552 1440032 OT#M INX 26 2 OVERTIME 000020 02553 1460062 INX 50 3 000020 02554 2506033 SXG 01 000020 02555 1420010 INX 8 1 000020 02556 1440044 INX 36 2 000020 02557 0014221 LDA FIFTY FIELD NO 50 000020 02560 2603031 BRU VARY 000020 02561 1440034 INX 28 2 SP.DUTIES 000020 02562 2602553 BRU OT#M+1 000020 02563 2504012 NOP 000020 02564 2504012 NOP 000020 02565 2504012 NOP 000020 02566 2504012 NOP 000020 02567 2504012 NOP 000020 02570 1460064 INX 52 3 VALUE OF QUARTERS 000020 02571 2506033 SXG 01 000020 02572 1440046 INX 38 2 000020 02573 0014223 LDA FIF2 000020 02574 2603031 BRU VARY 000020 02575 2504012 NOP 000020 02576 2504012 NOP 000020 02577 1440004 INX 4 2 SALARY 000020 02600 1460062 INX 50 3 000020 02601 2506033 SXG 01 000020 02602 1420004 INX 4 1 000020 02603 1440044 INX 36 2 000020 02604 0014221 LDA FIFTY 000020 02605 2603031 BRU VARY 000020 02606 1440006 INX 6 2 SPECIAL ALLOWANCE 000020 02607 1460062 SPALL2 INX 50 3 000020 02610 2506033 SXG 01 000020 02611 1420006 INX 6 1 000020 02612 1440044 INX 36 2 000020 02613 0014221 LDA FIFTY 000020 02614 2603031 BRU VARY 000020 02615 1440010 INX 8 2 RESIDENCE ALLOWANCE 000020 02616 2602607 BRU SPALL2 000020 02617 2504012 NOP 000020 02620 2504012 NOP 000020 02621 2504012 NOP 000020 02622 2504012 NOP 000020 02623 2504012 NOP 000020 02624 1440012 INX 10 2 FURNITURE ALLOWANCE 000020 02625 2602607 BRU SPALL2 000020 02626 2504012 NOP 000020 02627 2504012 NOP 000020 02630 2504012 NOP 000020 02631 2504012 NOP 000021 02632 2504012 NOP 000021 02633 1440014 INX 12 2 DISTRICT ALLOWANCE 000021 02634 2602607 BRU SPALL2 000021 02635 2504012 NOP 000021 02636 2504012 NOP 000021 02637 2504012 NOP 000021 02640 2504012 NOP 000021 02641 2504012 NOP 000021 02642 1440016 INX 14 2 LAHA 000021 02643 1460065 INX 53 3 000021 02644 2506033 SXG 01 000021 02645 1420006 INX 6 1 000021 02646 1440050 INX 40 2 000021 02647 0014224 LDA FIF3 FIELD NO 53 000021 02650 2603031 BRU VARY 000021 02651 1440020 INX 16 2 SUNDRY ALLOWANCES 000021 02652 2602607 BRU SPALL2 000021 02653 2504012 NOP 000021 02654 2504012 NOP 000021 02655 2504012 NOP 000021 02656 2504012 NOP 000021 02657 2504012 NOP 000021 02660 1440022 INX 18 2 SPECIAL SUBSIDIES 000021 02661 1460066 INX 54 3 000021 02662 2506033 SXG 01 000021 02663 1420006 INX 6 1 000021 02664 1440052 INX 42 2 000021 02665 0014225 LDA FIF4 000021 02666 2603031 BRU VARY 000021 02667 1440024 INX 20 2 OTHER EARNINGS 1 000021 02670 1460100 INX 64 3 000021 02671 2506033 SXG 01 000021 02672 1420006 INX 6 1 000021 02673 1440072 INX 58 2 000021 02674 0014235 LDA SIX4 000021 02675 2603031 BRU VARY 000021 02676 1440026 INX 22 2 OTHER EARNINGS 2 000021 02677 1460101 INX 65 3 000021 02700 2506033 SXG 01 000021 02701 1420006 INX 6 1 000021 02702 1440074 INX 60 2 000021 02703 0014236 LDA SIX5 000021 02704 2603031 BRU VARY 000021 02705 1460062 INX 50 3 RES.OFF ,FUEL LIGHT CLEANING BONUS PD LOC 000021 02706 2506033 SXG 01 000021 02707 1420044 INX 36 1 000021 02710 0014221 LDA FIFTY 000021 02711 2603031 BRU VARY 000021 02712 2504012 NOP 000021 02713 2504012 NOP 000021 02714 1440040 INX 32 2 BONUS THRU SYSTEM 000021 02715 1460062 INX 50 3 000021 02716 2506033 SXG 01 000021 02717 1440044 INX 36 2 000022 02720 0014221 LDA FIFTY 000022 02721 2603031 BRU VARY 000022 02722 2504012 NOP 000022 02723 1460067 INX 55 3 CAR AND TRAVEL 000022 02724 2506033 SXG 01 000022 02725 1440054 INX 44 2 000022 02726 0014226 LDA FIF5 000022 02727 2603031 BRU VARY 000022 02730 2504012 NOP 000022 02731 2504012 NOP 000022 02732 1460070 INX 56 3 RELIEVING ALLOWANCE 000022 02733 2506033 SXG 01 000022 02734 1440056 INX 46 2 000022 02735 0014227 LDA FIF6 000022 02736 2603031 BRU VARY 000022 02737 2504012 NOP 000022 02740 2504012 NOP 000022 02741 1460071 INX 57 3 AUDIT ALLOWANCE 000022 02742 2506033 SXG 01 000022 02743 1440060 INX 48 2 000022 02744 0014230 LDA FIF7 000022 02745 2603031 BRU VARY 000022 02746 2504012 NOP 000022 02747 2504012 NOP 000022 02750 1460072 INX 58 3 RETIRING ALLOWANCE 000022 02751 2506033 SXG 01 000022 02752 1440062 INX 50 2 000022 02753 0014231 LDA FIF8 000022 02754 2603031 BRU VARY 000022 02755 2504012 NOP 000022 02756 2504012 NOP 000022 02757 1440030 INX 24 2 PT IN LIEU OF HOLIDAY LEAVE 000022 02760 1460072 INX 58 3 000022 02761 2506033 SXG 01 000022 02762 1420006 INX 6 1 000022 02763 1440062 INX 50 2 000022 02764 0014231 LDA FIF8 000022 02765 2603031 BRU VARY 000022 02766 1460074 INX 60 3 TAX 000022 02767 2506033 SXG 01 000022 02770 1440064 INX 52 2 000022 U 02771 0000000 LDA SIX0 000022 SIX0 undefined 02772 2603031 BRU VARY 000022 02773 2504012 NOP 000022 02774 2504012 NOP 000022 02775 0014240 LDA SIX8 PENSIONABLE SALARY 000022 02776 0312012 STA REPIM+28 000022 02777 1010142 DLD WKG+68 UPDATE MASTER RECORD FIELD 68 000022 03000 1312004 DST REPIM+22 000022 03001 2516001 BPL 000022 03002 2603065 BRU A#090 000022 03003 2504012 NOP 000022 03004 1460107 INX 71 3 CLOTHING ALLOWANCE 000022 03005 2506033 SXG 01 000023 03006 1440126 INX 86 2 000023 03007 0014242 LDA SEV1 000023 03010 2603031 BRU VARY 000023 03011 2504012 NOP 000023 03012 2504012 NOP 000023 03013 0012035 LDA VARIAN+5 D.M.U.A. 000023 03014 2510014 SRA 12 000023 03015 2014161 EXT MASK1 000023 03016 0312136 STA TEMPST+4 000023 03017 2603271 BRU CO13C 000023 03020 2504012 NOP 000023 03021 2504012 NOP 000023 03022 1012036 DLD VARIAN+6 SUPERANNUATION 000023 03023 2514001 BMI 000023 03024 2504040 CHS 000023 03025 2516002 BNZ 000023 03026 2603060 BRU BXCF 000023 03027 0010134 LDA WKG+62 000023 03030 2603126 BRU A#543 000023 03031 0312012 VARY STA REPIM+28 000023 03032 0012743 LDA WARIM+51 000023 03033 2514002 BZE 000023 03034 2603040 BRU *+4 000023 03035 1012036 DLD VARIAN+6 000023 03036 1132414 DAD DPTTF 1 000023 03037 1332414 DST DPTTF 1 000023 03040 1012036 DLD VARIAN+6 000023 03041 1152220 DAD CRTF 2 000023 03042 1352220 DST CRTF 2 000023 03043 2506013 SXG 00 000023 03044 1070036 DLD WKG 3 000023 03045 1312004 DST REPIM+22 000023 03046 1112036 DAD VARIAN+6 000023 03047 1312022 DST REPIM+36 000023 03050 1370036 DST WKG 3 000023 03051 1052350 DLD BRTF 2 000023 03052 1112036 DAD VARIAN+6 000023 03053 1352350 DST BRTF 2 000023 03054 1052220 DLD CRTF 2 000023 03055 1112036 DAD VARIAN+6 000023 03056 1352220 DST CRTF 2 000023 03057 2603257 BRU CO13E 000023 03060 0727573 BXCF SPB SR#1 1 REPORT UNACCEPTABLE VARIATION -NAME AND NOS 09980 000023 03061 0014205 LDA XFC SYMBOL XFC 09990 000023 03062 0312000 STA REPIM+18 TO REPORT 10000 000023 03063 0012034 LDA VARIAN+4 TRANCODE 10010 000023 03064 2602256 BRU M#770 000023 03065 1112036 A#090 DAD VARIAN+6 10850 000023 03066 1312022 DST REPIM+36 10860 000023 03067 1310142 DST WKG+68 10870 000023 03070 2514001 BMI 10875 000023 03071 2607432 BRU NOALT 10877 000023 03072 0012763 LDA SIX 10880 000023 03073 2603106 BRU A#122 SUPER FUND CODE IS LARGER - 7 10900 000024 03074 2112751 CAB WARIM+57 COMPARE 6 TO SUPER FUND CODE 10890 000024 03075 2603112 BRU A#129 EQUAL - 6 10910 000024 03076 0012760 LDA THREE 10920 000024 03077 2112751 CAB WARIM+57 SMALLER- COMPARE TO 3 10930 000024 03100 2603116 BRU A#136 SUPER FUND CODE IS LARGER - 4 10940 000024 03101 2603122 BRU A#143 EQUAL - 3 10950 000024 03102 1012036 DLD VARIAN+6 SMALLER -1 -G + P 1880 10960 000024 03103 1112324 DAD CRTF+68 10970 000024 03104 1312324 DST CRTF+68 10980 000024 03105 2603257 BRU CO13E 11020 000024 03106 1012036 A#122 DLD VARIAN+6 FUND 7 - LSPF 1951 11030 000024 03107 1112344 DAD CRTF+84 11040 000024 03110 1312344 DST CRTF+84 11050 000024 03111 2603257 BRU CO13E 11090 000024 03112 1012036 A#129 DLD VARIAN+6 FUND 6 - MOPS 1951 11100 000024 Spelled "MODS" at 03251 03113 1112340 DAD CRTF+80 11110 000024 03114 1312340 DST CRTF+80 11120 000024 03115 2603257 BRU CO13E 11160 000024 03116 1012036 A#136 DLD VARIAN+6 FUND 4 - OPF 1933 11170 000024 03117 1112334 DAD CRTF+76 11180 000024 03120 1312334 DST CRTF+76 11190 000024 03121 2603257 BRU CO13E 11230 000024 03122 1012036 A#143 DLD VARIAN+6 FUND 3 - G + P 1861 11240 000024 03123 1112330 DAD CRTF+72 11250 000024 03124 1312330 DST CRTF+72 11260 000024 03125 2603257 BRU CO13E 11300 000024 03126 0312005 A#543 STA REPIM+23 000024 03127 0112037 ADD VARIAN+7 14430 000024 03130 2514003 BOV 14440 000024 03131 2603060 BRU BXCF 14450 000024 03132 0312023 STA REPIM+37 14460 000024 03133 0310134 STA WKG+62 14470 000024 03134 0014174 LDA SYM4 R/A 14480 000024 03135 0312000 STA REPIM+18 14490 000024 03136 0012034 LDA VARIAN+4 14500 000024 03137 0312001 STA REPIM+19 14510 000024 03140 0014233 LDA SIX2 14520 000024 03141 0312012 STA REPIM+28 14530 000024 03142 0012752 LDA WARIM+58 CONTROL KEY 14540 000024 03143 0312024 STA REPIM+38 14550 000024 03144 0014211 LDA AUD1 14560 000024 03145 0312025 STA REPIM+39 14570 000024 03146 1012140 DLD TEMPST+6 VARIATION OPERAND 14580 000024 03147 1312010 DST REPIM+26 TO REPORT 14590 000024 03150 0720720 SPB REPORT 1 WRITE REPORT SHOWING CHANGE TO WKG+62 14600 000024 03151 0727650 SPB SR#4 1 000024 03152 1012036 DLD VARIAN+6 14620 000024 03153 1112306 DAD CRTF+54 14630 000024 03154 1312306 DST CRTF+54 14640 000024 03155 0010144 LDA WKG+70 14680 000024 03156 0312005 STA REPIM+23 14690 000024 03157 2516001 BPL 14700 000024 03160 0112037 ADD VARIAN+7 14710 000024 03161 0312023 STA REPIM+37 14720 000025 03162 0310144 STA WKG+70 14730 000025 03163 1012140 DLD TEMPST+6 14740 000025 03164 1312010 DST REPIM+26 14750 000025 03165 0014241 LDA SEVO 14760 000025 03166 0312012 STA REPIM+28 14770 000025 03167 0012034 LDA VARIAN+4 14780 000025 03170 0312001 STA REPIM+19 14790 000025 03171 0010144 LDA WKG+70 14800 000025 03172 2516001 BPL 14810 000025 03173 2603202 BRU NWCON 14820 000025 03174 0014164 LDA NCH 14830 000025 03175 0312000 STA REPIM+18 14840 000025 03176 0012752 LDA WARIM+58 14860 000025 03177 0312024 STA REPIM+38 14861 000025 03200 0014211 LDA AUD1 14862 000025 03201 2603241 BRU A#615 14863 000025 03202 0014174 NWCON LDA SYM4 R/A 14864 000025 03203 0312000 STA REPIM+18 14865 000025 03204 0012752 LDA WARIM+58 14866 000025 03205 0312024 STA REPIM+38 14867 000025 03206 0014211 LDA AUD1 14868 000025 03207 0720720 SPB REPORT 1 14869 000025 03210 0727650 SPB SR#4 1 CLEAR REPIM 14870 000025 03211 0012763 LDA SIX LOAD 6 IN A REG 14880 000025 03212 2112751 CAB WARIM+57 COMPARE TO SUPER FUND CODE 14890 000025 03213 2603246 BRU A#621 CODE IS 7 14900 000025 03214 2603251 BRU A#624 CODE IS 6 14910 000025 03215 0012760 LDA THREE CODE IS SMALLER THAN 6- COMPARE TO 3 14920 000025 03216 2112751 CAB WARIM+57 14930 000025 03217 2603253 BRU A#626 CODE IS 4 14940 000025 03220 2603255 BRU A#628 14950 000025 03221 0632754 LDX ZERO 1 000025 03222 1032322 A#593 DLD CRTF+66 1 14980 000025 03223 1112036 DAD VARIAN+6 ADD TO RELATIVE CONTROL TOTAL 14990 000025 03224 1332322 DST CRTF+66 1 15000 000025 03225 1012036 DLD VARIAN+6 15040 000025 03226 2514001 BMI 15050 000025 03227 2603232 BRU A#604 15060 000025 03230 1312012 DST REPIM+28 ADD TO REPORT AS CREDIT 15070 000025 03231 2603233 BRU A#605 15080 000025 03232 1312010 A#604 DST REPIM+26 ADD TO REPORT AS DEBIT 15090 000025 03233 0727573 A#605 SPB SR#1 1 NAME AND NOS TO REPORT 15100 000025 03234 1010070 DLD WKG+26 SUPER FUND CODE AND RATE PERCENT 15110 000025 03235 1312000 DST REPIM+18 TO REPORT 15120 000025 03236 0014174 LDA SYM4 SYMBOL R/A 15130 000025 03237 0312002 STA REPIM+20 15140 000025 03240 0014245 LDA PRP1 15150 000025 03241 0312025 A#615 STA REPIM+39 SYMBOL 111 TO REPORT 15160 000025 03242 1012140 DLD TEMPST+6 VARIATION OPERAND 15190 000025 03243 1112552 DAD ACUM+10 15200 000025 03244 1312552 DST ACUM+10 ADD TO ACCUM OF VARIATIONS DONE 15210 000025 03245 2602271 BRU M#777+4 000025 03246 0012773 A#621 LDA SIXT CODE IS 7 - LSPF 1951 15240 000025 03247 0300001 A#622 STA 1 SET INDEX 1 TO SIXTEEN 15250 000026 03250 2603222 BRU A#593 15260 000026 03251 0012771 A#624 LDA TWELVE CODE IS 6 - MODS 1951 15270 000026 Spelled "MOPS" at 03112 03252 2603247 BRU A#622 15280 000026 03253 0012765 A#626 LDA EIGHT CODE IS 4 - OPF 1933 15290 000026 03254 2603247 BRU A#622 15300 000026 03255 0012761 A#628 LDA FOUR CODE IS 3 - G+P 1861 15310 000026 03256 2603247 BRU A#622 15320 000026 03257 0012034 CO13E LDA VARIAN+4 WRITE REPORT 15330 000026 03260 0312001 STA REPIM+19 TRANSACTION CODE TO REPORT 15340 000026 03261 1012140 DLD TEMPST+6 15350 000026 03262 1312010 DST REPIM+26 VARIATION OPERAND TO REPORT FIELD 26 15360 000026 03263 0014174 LDA SYM4 15370 000026 03264 0312000 STA REPIM+18 15380 000026 03265 1012140 DLD TEMPST+6 15390 000026 03266 1112552 DAD ACUM+10 ADD VARIATION TO HASH TOTAL OF VAR.DONE 15400 000026 03267 1312552 DST ACUM+10 15410 000026 03270 2602265 BRU M#777 COMPLETE REPORT WRITE IT CLEAR REPIM ETC 15420 000026 03271 0734630 CO13C SPB FLIP 1 000026 03272 0012136 LDA TEMPST+4 15480 000026 03273 0030003 ALF 303 15490 000026 03274 2607426 BRU WOLB2 000026 03275 2504001 LAQ 15510 000026 03276 0312137 STA TEMPST+5 BINARY EQUIV OF FIRSTDIGIT IN TEMP STORAGE 15520 000026 03277 0012036 LDA VARIAN+6 FIRST WORD OF OPERAND (SHOULD BE NIL) 15530 000026 03300 2514001 BMI 15540 000026 03301 2504040 CHS 15550 000026 03302 2516002 BNZ 15560 000026 03303 2603060 BRU BXCF IF NOT,REJECT VARIATION 15570 000026 03304 0012137 LDA TEMPST+5 FIRST DIGIT OF ITEM CODE 15580 000026 03305 0212756 SUB ONE IS IT ONE 15590 000026 03306 2514002 BZE 15600 000026 03307 2603314 BRU CO13K EQUAL 15610 000026 03310 0212757 SUB TWO LARGER - ISIT THREE 15620 000026 03311 2514002 BZE 15630 000026 03312 2603373 BRU A#737 YES 15640 000026 03313 2603350 BRU CO13M NO- THEN IT IS 4 15650 000026 03314 0010140 CO13K LDA WKG+66 FIRST DIGIT ITEM CODE IS ONE 15660 000026 03315 0112037 ADD VARIAN+7 15670 000026 03316 2514003 BOV 15680 000026 03317 2603060 BRU BXCF IF OVERFLOW OCCURRED REJECT VARIATION 15690 000026 03320 0310140 STA WKG+66 15700 000026 03321 1012036 DLD VARIAN+6 ADD TO CONTROL TOTAL 15710 000026 03322 1112316 DAD CRTF+62 15720 000026 03323 1312316 DST CRTF+62 15730 000026 03324 0012035 LDA VARIAN+5 15770 000026 03325 0312003 STA REPIM+21 ITEM CODE TO REPORT 15780 000026 03326 0014151 LDA FLAG 15790 000026 03327 2312035 ORY VARIAN+5 FLAG FOR DECIMAL MORE 15800 000026 03330 2506011 SET DECMODE 15810 000026 03331 0012035 LDA VARIAN+5 ITEM CODE 15820 000026 03332 0214250 SUB ONE70 SUBTRACT 170 15830 000026 03333 2514001 BMI WAS ITEM CODE [ 170 15840 000026 03334 2603360 BRU CO13L YES -BRANCH TO CO13L 15850 000026 03335 0010141 LDA WKG+67 15860 000027 03336 0312005 STA REPIM+23 15870 000027 03337 0112037 ADD VARIAN+7 ADD TO FIELD 67 15880 000027 03340 0312023 A#695 STA REPIM+37 15890 000027 03341 0310141 STA WKG+67 15900 000027 03342 1012036 DLD VARIAN+6 15910 000027 03343 1112320 DAD CRTF+64 ADD TO CONTROL TOTAL 15920 000027 03344 1312320 DST CRTF+64 15930 000027 03345 0014237 LDA SIX7 FIELD NO 67 TO REPORT 15970 000027 03346 0312012 STA REPIM+28 15980 000027 03347 2603257 BRU CO13E 15990 000027 03350 0012035 CO13M LDA VARIAN+5 16000 000027 03351 0312003 STA REPIM+21 16010 000027 03352 0010141 LDA WKG+67 16020 000027 03353 0312005 STA REPIM+23 16030 000027 03354 0112037 ADD VARIAN+7 16040 000027 03355 2514003 BOV 16050 000027 03356 2603060 BRU BXCF 16060 000027 03357 2603340 BRU A#695 16070 000027 03360 0010135 CO13L LDA WKG+63 16080 000027 03361 0312005 STA REPIM+23 16090 000027 03362 0112037 ADD VARIAN+7 ADD TO FIELD 63 16100 000027 03363 0312023 A#724 STA REPIM+37 16110 000027 03364 0310135 STA WKG+63 16120 000027 03365 1012036 DLD VARIAN+6 16130 000027 03366 1112310 DAD CRTF+56 ADD TO CONTROL TOTAL 16140 000027 03367 1312310 DST CRTF+56 16150 000027 03370 0014234 LDA SIX3 16190 000027 03371 0312012 STA REPIM+28 16200 000027 03372 2603257 BRU CO13E 16210 000027 03373 0012035 A#737 LDA VARIAN+5 ITEM CODE 16220 000027 03374 0312003 STA REPIM+21 TO REPORT 16230 000027 03375 0010135 LDA WKG+63 16240 000027 03376 0312005 STA REPIM+23 16250 000027 03377 0112037 ADD VARIAN+7 16260 000027 03400 2514003 BOV 16270 000027 03401 2603060 BRU BXCF 16280 000027 03402 2603363 BRU A#724 16290 000027 03403 0012626 CO19W LDA SWTO 16300 000027 03404 2514001 BMI IS SWITCH 0 ON 16310 000027 03405 2604344 T#270 BRU COT20 BRANCH TO CONNECTOR OT ON PAGE 20 FC 16320 000027 03406 0012657 LDA PAYNO PAYNUMBER 16330 000027 03407 0213001 SUB TWFIVE SUBTRACT 25 16340 000027 03410 2514001 BMI 16350 000027 03411 2603460 BRU CO19A 16360 000027 03412 0632777 LDX TWOTWO 1 000027 03413 2506011 SET DECMODE 16390 000027 03414 0014154 T#278 LDA INS# FLAGGED 169 IN A 16400 000027 03415 0232660 SUB WARIM 1 16410 000027 03416 2514001 BMI IS DEDUCTION A GROUP ASSCE.DED 16420 000027 03417 2603423 BRU T#284 NO 16430 000027 03420 2504002 LDZ YES 16440 000027 03421 2504006 MAQ 16450 000027 03422 1332660 DST WARIM 1 SET WARRANT FIELD CONCERNED TO ZERO 16460 000027 03423 1420002 T#284 INX 2 1 16470 000028 03424 0437722 BXL 46 1 000028 03425 2603414 BRU T#278 16490 000028 03426 2506012 SET BINMODE 16500 000028 03427 2603460 BRU CO19A 16510 000028 03430 0010071 LDA WKG+27 RATE SUPER CONTRIB. 000028 03431 2514002 BZE 000028 03432 2603460 BRU CO19A 000028 03433 0300001 STA 1 000028 03434 0033576 LDA SUPER 1 000028 03435 0212660 SUB WARIM 000028 03436 2516001 BPL TEKT FOR DAXIMUM 000028 Should be: TEST FOR MAXIMUM 03437 2603440 BRU *+1 000028 03440 0033576 LDA SUPER 1 LOAD MAXIMUM 000028 03441 0003443 LDA *+2 000028 03442 0012660 LDA WARIM LOAD SALARY 000028 03443 0312136 STA TEMPST+4 000028 03444 2504006 MAQ 000028 03445 1510071 MPY WKG+27 000028 03446 1113036 DAD FIFTG ADD ROUNDINP FACTOR 000028 03447 1613041 DVD HUNG 000028 03450 0312703 STA WARIM+19 000028 03451 0012136 LDA TEMPST+4 000028 03452 2504006 MAQ 000028 03453 1110142 DAD WKG+68 000028 03454 1310142 DST WKG+68 000028 03455 0112702 ADD WARIM+18 000028 03456 0112703 ADD WARIM+19 000028 03457 0112704 ADD WARIM+20 000028 03460 0632754 CO19A LDX ZERO 1 SET INDEX 1 TO ZERO 16520 000028 03461 0012754 LDA ZERO 16525 000028 03462 0132707 ADD WARIM+231 ADD WARRANT FIELD 16530 000028 03463 1420002 INX 2 1 16540 000028 03464 0437750 BXL 24 1 16550 000028 03465 2603462 BRU *-3 16560 000028 03466 0112702 ADD WARIM+18 16561 000028 03467 0112703 ADD WARIM+19 000028 03470 0112704 ADD WARIM+20 000028 03471 0312736 STA WARIM+46 STORE AT TOTAL DEDUCTIONS 16570 000028 03472 0632754 LDX ZERO 1 16580 000028 03473 0132660 ADD WARIM 1 ACCUMULATE ALL EARNINGS ITEMS 0- 14 16590 000028 03474 1420001 INX 1 1 16600 000028 03475 0437764 BXL 12 1 16610 000028 03476 2603473 BRU *-3 16620 000028 03477 0112676 ADD WARIM+14 ADD FIELD 16 16630 000028 03500 0112700 ADD WARIM+16 16640 000028 03501 0112705 ADD WARIM+21 16645 000028 03502 0312701 STA WARIM+17 16650 000028 03503 0212736 SUB WARIM+46 DEDUCT TOTAL DEDUCTIONS 16660 000028 03504 2516001 BPL 16670 000028 03505 2603531 BRU CO20A 16680 000028 03506 0012702 LDA WARIM+18 16690 000028 03507 0012703 LDA WARIM+19 16700 000028 03510 0012704 LDA WARIM+20 TAX AND SUPER ACCUMULATED 16710 000028 03511 0312736 STA WARIM+46 16720 000029 03512 0012754 LDA ZERO 16730 000029 03513 2504006 MAQ 16740 000029 03514 0300001 STA 1 16750 000029 03515 1332706 DST WARIM+221 SET ALL DEDUCTIONS TO ZERO 16760 000029 03516 1420002 INX 2 1 16770 000029 03517 0437750 BXL 24 1 16780 000029 03520 2603515 BRU *-3 16790 000029 03521 0727573 SPB SR#1 1 16800 000029 03522 0014175 LDA ASTER 16810 000029 03523 2014162 EXT MASK2 16820 000029 03524 0312000 STA REPIM+18 SYMBOL ** TO REPORTS IMAGE 16830 000029 03525 0720720 SPB REPORT 1 16840 000029 03526 0727650 SPB SR#4 1 16850 000029 03527 0012701 LDA WARIM+17 TOTAL EARNINGS 16860 000029 03530 0212736 SUB WARIM+46 LESS TOTAL DEDUCTIONS 16870 000029 03531 0312737 CO20A STA WARIM+47 16880 000029 03532 0012660 LDA WARIM ADD GROSS ITEMS TO TOTAL GROSS 16890 000029 03533 0112661 ADD WARIM+1 16900 000029 03534 0112662 ADD WARIM+2 16910 000029 03535 0112663 ADD WARIM+3 16920 000029 03536 0112664 ADD WARIM+4 16930 000029 03537 0112665 ADD WARIM+5 16940 000029 03540 0112666 ADD WARIM+6 16950 000029 03541 0112670 ADD WARIM+8 16960 000029 03542 2504006 MAQ 16970 000029 03543 1110120 DAD WKG+50 16980 000029 03544 1310120 DST WKG+50 STORE AT GROSS 16990 000029 03545 0012667 LDA WARIM+7 LANA 17000 000029 03546 0110123 ADD WKG+53 17010 000029 03547 0310123 STA WKG+53 17020 000029 03550 0012671 LDA WARIM+9 SPEC SUBS 17030 000029 03551 0110124 ADD WKG+54 17040 000029 03552 0310124 STA WKG+54 17050 000029 03553 0012672 LDA WARIM+10 OTHER EARNINGS I 17060 000029 03554 0110136 ADD WKG+64 17070 000029 03555 0310136 STA WKG+64 17080 000029 03556 0012673 LDA WARIM+11 OTHER EARNINGS II 17090 000029 03557 0110137 ADD WKG+65 17100 000029 03560 0310137 STA WKG+65 17110 000029 03561 0012676 LDA WARIM+14 PMT LIEU HOL LEAVE 17120 000029 03562 0112700 ADD WARIM+16 17130 000029 03563 2504006 MAQ 17140 000029 03564 1110130 DAD WKG+58 17150 000029 03565 1310130 DST WKG+58 17160 000029 03566 0012677 LDA WARIM+15 VAL OF Q 17170 000029 03567 0110122 ADD WKG+52 17180 000029 03570 0310122 STA WKG+52 171() 000029 Should be: 17190? 03571 0012704 LDA WARIM+20 TAX ON OVERTIME 17240 000029 03572 0112702 ADD WARIM+18 TAX 17250 000029 03573 2504006 MAQ 17260 000029 03574 1110132 DAD WKG+60 17270 000029 03575 1310132 DST WKG+60 17280 000029 03576 0012703 LDA WARIM+19 SUPER 17290 000029 03577 0110134 ADD WKG+62 17300 000030 03600 0310134 STA WKG+62 17310 000030 03601 0012703 LDA WARIM+19 17320 000030 03602 0110144 ADD WKG+70 17330 000030 03603 0310144 STA WKG+70 17340 000030 03604 0632754 LDX ZERO 1 17350 000030 03605 0032706 T#373 LDA WARIM+221 17370 000030 03606 2514002 BZE 17380 000030 03607 2603716 BRU T#451 17390 000030 03610 0014156 LDA FL#2 FLAGGED 200 IN A 17400 000030 03611 2506011 SET DECMODE 17410 000030 03612 0232706 SUB WARIM+221 SUBTRACT INDEXED DEDUCTION ITEM FROM 199 17420 000030 03613 2506012 SET BINMODE 17430 000030 03614 2514001 BMI 17440 000030 03615 2603637 BRU T#402 LARGER THAN 199 17450 000030 03616 0032707 LDA WARIM+231 ITEM CODE LESS THAN 200 17460 000030 03617 0110140 ADD WKG+66 ADD TO 66 17470 000030 03620 0310140 STA WKG+66 17480 000030 03621 0014154 LDA INS# FLAGGED 169 IN A 17490 000030 03622 2506011 SET DECMODE 17500 000030 03623 0232706 SUB WARIM+221 17510 000030 03624 2506012 SET BINMODE 17520 000030 03625 2514001 BMI IS ITEM CODE LESS THAN 170 17530 000030 03626 2603645 BRU T#408 LARGER THAN 169 AND SMALLER THAN 200 17540 000030 03627 0032707 LDA WARIM+231 17550 000030 03630 0110135 ADD WKG+63 IF YES ADD TO FIELD 63 17560 000030 03631 0310135 STA WKG+63 17570 000030 03632 0032707 T#397 LDA WARIM+231 17580 000030 03633 2504006 MAQ 17590 000030 03634 1112504 DAD FORTO+44 ADD TO FORT N TOTAL 17600 000030 03635 1312504 DST FORTO+44 17610 000030 03636 2603716 BRU T#451 17620 000030 03637 0014157 T#402 LDA FL#3 FLAGGED 299 17630 000030 03640 2506011 SET DECMODE 17640 000030 03641 0232706 SUB WARIM+221 17650 000030 03642 2506012 SET BINMODE 17660 000030 03643 2514001 BMI IS ITEM CODE LESS THAN 300 17670 000030 03644 2603651 BRU T#416 NO 17680 000030 03645 0032707 T#408 LDA WARIM+231 YES 17690 000030 03646 0110141 ADD WKG+67 ADD TO FIELD 67 17700 000030 03647 0310141 STA WKG+67 17710 000030 03650 2603632 BRU T#397 17720 000030 03651 0014160 T#416 LDA FL#4 FLAGGED 400 17730 000030 03652 2506011 SET DECMODE 17740 000030 03653 2504112 SBO 17745 000030 03654 0232706 SUB WARIM+221 17750 000030 03655 2506012 SET BINMODE 17760 000030 03656 2516001 BPL IS ITEM CODE LESS THAN 400 17770 000030 03657 2603661 BRU T#422 YES 17780 000030 03660 2603671 BRU T#430 17790 000030 03661 0032707 T#422 LDA WARIM+231 17800 000030 03662 2504004 LQA 17810 000030 03663 0110135 ADD WKG+63 17820 000030 03664 0310135 STA WKG+63 17830 000030 03665 2504002 LDZ 17840 000031 03666 1112504 DAD FORTO+44 17850 000031 03667 1312504 DST FORTO+44 17860 000031 03670 2603716 BRU T#451 17870 000031 03671 0014160 T#430 LDA FL#4 FLAGGED 400 17880 000031 03672 2506011 SET DECMODE 17890 000031 03673 0232706 SUB WARIM+221 17900 000031 03674 2506012 SET BINMODE 17910 000031 03675 2516002 BNZ IS ITEM CODE 400 17920 000031 03676 2603707 BRU T#444 17930 000031 03677 0032707 LDA WARIM+231 EQUAL TO 400 17940 000031 03700 0110141 ADD WKG+67 17950 000031 03701 0310141 STA WKG+67 17960 000031 03702 0032707 LDA WARIM+231 17970 000031 03703 2504006 MAQ 17980 000031 03704 1112502 DAD FORTO+42 17990 000031 03705 1312502 DST FORTO+42 18000 000031 03706 2603716 BRU T#451 18010 000031 03707 0032707 T#444 LDA WARIM+231 LARGER THAN 400 18020 000031 03710 2504004 LQA 18030 000031 03711 0110141 ADD WKG+67 18040 000031 03712 0310141 STA WKG+67 18050 000031 03713 0012754 LDA ZERO 18060 000031 03714 1112504 DAD FORTO+44 18070 000031 03715 1312504 DST FORTO+44 18080 000031 03716 1420002 T#451 INX 2 1 18090 000031 03717 0437750 BXL 24 1 18100 000031 03720 2603605 BRU T#373 18110 000031 03721 0012743 LDA WARIM+51 DEPT NO 18120 000031 03722 2514002 BZE 18130 000031 03723 2603750 BRU T#481 NO DEPARTMENT TOTALS REQUIRED 18140 000031 03724 0012660 LDA WARIM SALARY 18150 000031 03725 2504006 MAQ 18160 000031 03726 1112420 DAD DPTTF+4 ADDED TO ACCUM 18170 000031 03727 1312420 DST DPTTF+4 18180 000031 03730 0012661 LDA WARIM+1 OVERTIME 18190 000031 03731 0112662 ADD WARIM+2 PMT SPEC DUTIES 18200 000031 03732 2504006 MAQ 18210 000031 03733 1112424 DAD DPTTF+8 ADDED TO ACCUM 18220 000031 03734 1312424 DST DPTTF+8 18230 000031 03735 2504002 LDZ A IS ZERO 18240 000031 03736 0300001 STA 1 INDEX ONE IS ZERO 18250 000031 03737 0132663 T#468 ADD WARIM+3 1 ACCUMULATE ALLOWANCES 18260 000031 03740 1420001 INX 1 1 18270 000031 03741 0437767 BXL 9 1 18280 000031 03742 2603737 BRU T#468 18290 000031 03743 0112676 ADD WARIM+14 PAYMENT IN LIEU OF HOLIDAY LEAVE 18300 000031 03744 0112700 ADD WARIM+16 18310 000031 03745 2504006 MAQ 18320 000031 03746 1112422 DAD DPTTF+6 ADD TO TOTAL ALLOWANCES 18330 000031 03747 1312422 DST DPTTF+6 18340 000031 03750 0012660 T#481 LDA WARIM 18350 000031 03751 2504006 MAQ 18360 000031 03752 1112354 DAD BRTF+4 ADD SALARY TO BRANCH TOTAL 18370 000031 03753 1312354 DST BRTF+4 18380 000032 03754 0012661 LDA WARIM+1 18390 000032 03755 2504006 MAQ 18400 000032 03756 1112402 DAD BRTF+26 ADD OVERTIME TO BRANCH TOTAL 18410 000032 03757 1312402 DST BRTF+26 18420 000032 03760 0012662 LDA WARIM+2 18430 000032 03761 2504006 MAQ 18440 000032 03762 1112404 DAD BRTF+28 ADD PMT SPEC DUT TO BRANCH TOT 18450 000032 03763 1312404 DST BRTF+28 18460 000032 03764 0632754 LDX ZERO 1 18470 000032 03765 0652754 LDX ZERO 2 18480 000032 03766 0032663 T#492 LDA WARIM+3 1 18500 000032 03767 2504006 MAQ 18510 000032 03770 1152356 DAD BRTF+6 2 ADD ALLOWANCES TO RELATIVE BRANCH TOTALS 18520 000032 03771 1352356 DST BRTF+6 2 18530 000032 03772 1420001 INX 1 1 18540 000032 03773 1440002 INX 2 2 18550 000032 03774 0437767 BXL 9 1 18560 000032 03775 2603766 BRU T#492 18570 000032 03776 0012676 LDA WARIM+14 18580 000032 03777 0112700 ADD WARIM+16 18590 000032 04000 2504006 MAQ 18600 000032 04001 1112400 DAD BRTF+24 ADD PMT IN LIEU OF HOL LEAVE TO BRANCH TOTAL 18610 000032 04002 1312400 DST BRTF+24 18620 000032 04003 0012660 LDA WARIM SALARY 18630 000032 04004 2504006 MAQ 18640 000032 04005 1312132 DST TEMPST 18650 000032 04006 1112224 DAD CRTF+4 18660 000032 04007 1312224 DST CRTF+4 18670 000032 04010 1012430 DLD FORTO 18680 000032 04011 1112132 DAD TEMPST 18690 000032 04012 1312430 DST FORTO UPDATE FORT N TOTAL 18700 000032 04013 0632754 LDX ZERO 1 18710 000032 04014 0652754 LDX ZERO 2 18720 000032 04015 0032663 T#512 LDA WARIM+3 1 18740 000032 04016 2504006 MAQ 18750 000032 04017 1312132 DST TEMPST 18760 000032 04020 1152226 DAD CRTF+6 2 ADD ALLOWANCES TO RELATIVE CONTROL TOTALS 18770 000032 04021 1352226 DST CRTF+6 2 18780 000032 04022 1052432 DLD FORTO+2 2 18790 000032 04023 1112132 DAD TEMPST 18800 000032 04024 1352432 DST FORTO+2 2 UPDATE FORT N TOTALS 18810 000032 04025 1420001 INX 1 1 18820 000032 04026 1440002 INX 2 2 18830 000032 04027 0437767 BXL 9 1 18840 000032 04030 2604015 BRU T#512 18850 000032 04031 0012661 LDA WARIM+1 18860 000032 04032 2504006 MAQ 18870 000032 04033 1312132 DST TEMPST 18880 000032 04034 1112252 DAD CRTF+26 OVERTIME CONTROL TOTAL 18890 000032 04035 1312252 DST CRTF+26 18900 000032 04036 1012456 DLD FORTO+22 18910 000032 04037 1112132 DAD TEMPST 18920 000032 04040 1312456 DST FORTO+22 18930 000032 04041 0012662 LDA WARIM+2 18940 000033 04042 2504006 MAQ 18950 000033 04043 1312132 DST TEMPST 18960 000033 04044 1112254 DAD CRTF+28 PAYMENT SP DUTIES CONTROL TOTAL 18970 000033 04045 1312254 DST CRTF+28 18980 000033 04046 1012132 DLD TEMPST 18990 000033 04047 1112460 DAD FORTO+24 19000 000033 04050 1312460 DST FORTO+24 19010 000033 04051 0012676 LDA WARIM+14 19020 000033 04052 0112700 ADD WARIM+16 PAYMENT IN LIEU OF HOLIDAY LEAVE 19030 000033 04053 2504006 MAQ 19040 000033 04054 1312132 DST TEMPST 19050 000033 04055 1112250 DAD CRTF+24 19060 000033 04056 1312250 DST CRTF+24 19070 000033 04057 1012132 DLD TEMPST 19080 000033 04060 1112454 DAD FORTO+20 19090 000033 04061 1312454 DST FORTO+20 19100 000033 04062 1010120 DLD WKG+50 GROSS 19110 000033 04063 1112264 DAD CRTF+36 19120 000033 04064 1312264 DST CRTF+36 19130 000033 04065 0632754 LDX ZERO 1 19140 000033 04066 0652754 LDX ZERO 2 19150 000033 04067 0030122 T#539 LDA WKG+52 1 19170 000033 04070 2504006 MAQ 19180 000033 04071 1152266 DAD CRTF+38 2 19190 000033 04072 1352266 DST CRTF+38 2 19200 000033 04073 1420001 INX 1 1 19210 000033 04074 1440002 INX 2 2 19220 000033 04075 0437772 BXL 6 1 19230 000033 04076 2604067 BRU T#539 19240 000033 04077 1010130 DLD WKG+58 19250 000033 04100 1112302 DAD CRTF+50 TOTAL LUMP SUM PMTS 19260 000033 04101 1312302 DST CRTF+50 19270 000033 04102 1010132 DLD WKG+60 19280 000033 04103 1112304 DAD CRTF+52 TAX 19290 000033 04104 1312304 DST CRTF+52 19300 000033 04105 0632754 LDX ZERO 1 19310 000033 04106 0652754 LDX ZERO 2 19320 000033 04107 0030134 T#556 LDA WKG+62 1 19340 000033 04110 2504006 MAQ 19350 000033 04111 1152306 DAD CRTF+54 2 ADD FIELDS 62 -67 TO CRTF 54- 64 19360 000033 04112 1352306 DST CRTF+54 2 19370 000033 04113 1420001 INX 1 1 19380 000033 04114 1440002 INX 2 2 19390 000033 04115 0437772 BXL 6 1 19400 000033 04116 2604107 BRU T#556 19410 000033 04117 0012763 LDA SIX 19420 000033 04120 2110070 CAB WKG+26 COMPARE SUPER FUND CODE TO 6 19430 000033 U 04121 2600000 BRU T#607 CODE 7 19440 000033 T#607 undefined U 04122 2600000 BRU T#607 CODE 6 19450 000033 T#607 undefined 04123 0012760 LDA THREE 19460 000033 04124 2112751 CAB WARIM+57 19470 000033 U 04125 2600000 BRU T#597 CODE 4 19480 000033 T#597 undefined U 04126 2600000 BRU T#592 CODE 3 19490 000033 T#592 undefined 04127 0632754 LDX ZERO 1 19500 000034 04130 0652754 LDX ZERO 2 19510 000034 04131 1010142 T#580 DLD WKG+68 PENSIONABLE SALARY HYTD 19530 000034 04132 1132324 DAD CRTF+68 1 19540 000034 04133 1332324 DST CRTF+68 1 19550 000034 04134 0010144 LDA WKG+70 PENSION CONTRIB HYTD 19560 000034 04135 2504006 MAQ 19570 000034 04136 1132322 DAD CRTF+66 1 19580 000034 04137 1332322 DST CRTF+66 1 19590 000034 04140 0012703 LDA WARIM+19 FORTNIGHTLY PENSION CONTRIBUTION 19600 000034 04141 2504006 MAQ 19610 000034 04142 1152464 DAD FORTO+282 19620 000034 04143 1352464 DST FORTO+282 19630 000034 04144 2604161 BRU T#612 19640 000034 04145 0632761 LDX FOUR 1 FUND 3 19650 000034 04146 0652757 LDX TWO 2 19670 000034 04147 2604131 BRU T#580 19690 000034 04150 0632765 LDX EIGHT 1 FUND 4 19700 000034 04151 0652761 LDX FOUR 2 19720 000034 04152 2604131 BRU T#580 19740 000034 04153 0632771 LDX TWELVE 1 FUND 6 19750 000034 04154 0652763 LDX SIX 2 19770 000034 04155 2604131 BRU T#580 19790 000034 04156 0632773 LDX SIXT 1 FUND 7 19800 000034 04157 0652765 LDX EIGHT 2 19820 000034 04160 2604131 BRU T#580 19840 000034 04161 0012704 T#612 LDA WARIM+20 TAX ON OVERTIME 19850 000034 04162 2504006 MAQ 19860 000034 04163 1112500 DAD FORTO+40 ADD TO FORTN TOTAL 19870 000034 04164 1312500 DST FORTO+40 19880 000034 04165 0012702 LDA WARIM+18 STANDARD TAX 19890 000034 04166 2504006 MAQ 19900 000034 04167 1112476 DAD FORTO+38 ADD TO FORTN TOTAL STANDARD TAX 19910 000034 04170 1312476 DST FORTO+38 19920 000034 04171 0012701 LDA WARIM+17 TOTAL EARNINGS 19920 000034 04172 2504006 MAQ 19921 000034 04173 1112506 DAD FORTO+46 TO FORT0 19922 000034 04174 1312506 DST FORTO+46 19923 000034 04175 0012736 LDA WARIM+46 TOTAL DEDUCTIONS 19924 000034 04176 2504006 MAQ 19925 000034 04177 1112510 DAD FORTO+48 19926 000034 04200 1312510 DST FORTO+48 19927 000034 04201 0012737 LDA WARIM+47 NET PAY 19928 000034 04202 2504006 MAQ 19929 000034 04203 1112512 DAD FORTO+50 19930 000034 04204 1312512 DST FORTO+50 19931 000034 04205 0012622 LDA SWRES 19932 000034 04206 2516002 BNZ 19933 000034 04207 2607362 BRU CONP7 19940 000034 04210 0012650 LDA LOCX 19950 000034 04211 2514002 BZE ANYTHING IN X 19960 000034 04212 2604220 BRU CO20B 19970 000034 04213 0310073 STA WKG+29 19980 000034 04214 2504102 LMO 19982 000034 04215 0312626 STA SWTO 19984 000035 04216 2504002 LDZ 19990 000035 04217 0312650 STA LOCX ZEROFILL X 20000 000035 04220 1012754 CO20B DLD ZERO 000035 04221 1312156 DST OHOURS 000035 04222 0010073 LDA WKG+29 000035 04223 2514002 BZE 000035 04224 2604311 BRU CO20C 000035 04225 2506011 SET DECMODE 000035 04226 0014157 LDA FL#3 LOAD FLAGGED 299 000035 04227 0210073 SUB WKG+29 000035 04230 2506012 SET BINMODE 000035 04231 2514001 BMI IS PAYMENT CODE LESS THAN 300 000035 04232 2604276 BRU C201A NO 000035 04233 2607443 BRU C201E 000035 04234 0014156 C201B LDA FL#2 FLAGGED 199 000035 04235 2506011 SET DECMODE 000035 04236 0210073 SUB WKG+29 000035 04237 2506012 SET BINMODE 000035 04240 2516001 BPL 000035 04241 2604273 BRU C201C PAYMENT CODE LESS THAN 200 000035 04242 0014172 LDA SYIGC 000035 04243 0312023 STA REPIM+37 STORE IGC AT REPIM 000035 04244 0727602 SPB SR#3 1 WRITE 3 RECORDS 000035 04245 0727573 SPB SR#1 1 WRITE REPORT 016 000035 04246 0010073 LDA WKG+29 000035 04247 0312001 STA REPIM+19 000035 04250 0010140 LDA WKG+66 000035 04251 0312003 STA REPIM+21 000035 04252 1010142 DLD WKG+68 000035 04253 2514001 BMI 000035 04254 2504040 CHS 000035 04255 1312004 DST REPIM+22 000035 04256 0010144 LDA WKG+70 000035 04257 2514001 BMI 000035 04260 2504040 CHS 000035 04261 0312007 STA REPIM+25 000035 04262 0014215 LDA TFRSYM SYMBOL 016 TO REPORT 000035 04263 0312025 STA REPIM+39 000035 04264 0720720 SPB REPORT 1 000035 04265 0727650 SPB SR#4 1 CLEAR REPIM 000035 04266 2504002 C201D LDZ 000035 04267 0312632 STA SWVAR 000035 04270 0312624 STA SWTR 000035 04271 0312626 STA SWTO 000035 04272 2601033 BRU G1 000035 04273 0010073 C201C LDA WKG+29 000035 04274 0114243 ADD PCINC ADD 100 TO PAYMENT CODE 000035 04275 0310073 STA WKG+29 000035 04276 0727573 C201A SPB SR#1 1 WRITE REPORT 020 000035 04277 0010073 LDA WKG+29 PAYMENT CODE 000035 04300 0312000 STA REPIM+18 000035 04301 0012752 LDA WARIM+58 CONTROL KEY 000035 04302 0312024 STA REPIM+38 000035 04303 0014173 LDA REP1 SYMBOL 020 000036 04304 0312025 STA REPIM+39 000036 04305 0720720 SPB REPORT 1 000036 04306 0727650 SPB SR#4 1 CLEAR REPIM 000036 04307 0012626 LDA SWTO 000036 04310 2514001 BMI IS SWITCH 0 ON 000036 04311 0726151 CO20C SPB PRWAR 1 PRINT WARRANT 000036 04312 0720655 SPB WRNMST 1 WRITE NEW MASTER RECORD 000036 04313 0010106 LDA WKG+40 000036 04314 2504006 MAQ 000036 04315 1110104 DAD WKG+38 000036 04316 1112514 DAD PANTO 000036 04317 1312514 DST PANTO 000036 04320 0632754 LDX ZERO 1 000036 04321 0652754 LDX ZERO 2 000036 04322 0030107 LDA WKG+41 1 000036 04323 2504006 MAQ 000036 04324 1152516 DAD PANTO+2 2 UPDATE PANTOT 000036 04325 1352516 DST PANTO+2 2 000036 04326 1420001 INX 1 1 000036 04327 1440002 INX 2 2 000036 04330 0437767 BXL 9 1 000036 04331 2604322 BRU *-7 000036 04332 0012155 LDA COUNT+1 UPDATE NO OF STAFF ON PAYROLL 000036 04333 2504032 ADO 000036 04334 0312155 STA COUNT+1 000036 04335 0012624 LDA SWTR 000036 04336 2514001 BMI IS SWITCH R SET 000036 04337 0727602 SPB SR#3 1 IF SO WRITE COMPLETE PRINTOUT 000036 04340 0012632 LDA SWVAR 000036 04341 2516001 BPL IS SWVAR SET 000036 04342 2604266 BRU C201D 000036 04343 2605674 BRU C202H 000036 04344 0632754 COT20 LDX ZERO 1 20520 000036 04345 2504006 MAQ 20540 000036 04346 1332706 DST WARIM+221 SET ALL DMUA TO ZERO 20550 000036 04347 1420002 INX 2 1 20560 000036 04350 0437750 BXL 24 1 20570 000036 04351 2604346 BRU *-3 20580 000036 04352 2603460 BRU CO19A 20590 000036 04353 0010072 PENS24 LDA WKG+28 20600 000036 04354 0312132 STA TEMPST 20610 000036 04355 0014151 LDA FLAG 20620 000036 04356 2312132 ORY TEMPST FLAG FOR DECMODE 20630 000036 04357 0012132 LDA TEMPST 20640 000036 04360 2506011 SET DECMODE 20650 000036 04361 0214244 SUB STD#1 SUBTRACT BCD 110 20660 000036 04362 2506012 SET BINMODE 20670 000036 04363 2516002 BNZ DOES FIELD 28 CONTAIN 110 20680 000036 04364 2604423 BRU CO24A NO 20690 000036 04365 0012037 LDA VARIAN+7 YES - OPERAND 20700 000036 04366 0312132 STA TEMPST 20710 000036 04367 0014151 LDA FLAG 20720 000036 04370 2312132 ORY TEMPST FLAG FOR DECMODE 20730 000036 04371 0012132 LDA TEMPST 20740 000037 04372 2506011 SET DECMODE 20750 000037 04373 0214260 SUB STD#2 SUBTRACT 210 20760 000037 04374 2506012 SET BINMODE 000037 04375 2516002 BNZ 20770 000037 04376 2604423 BRU CO24A 20780 000037 04377 0010070 LDA WKG+26 SUPER FUND CODE 20790 000037 04400 0212760 SUB THREE 20800 000037 04401 2514002 BZE IS IT 3 20810 000037 04402 2604406 BRU CO24B YES 20820 000037 04403 0212756 SUB ONE 000037 04404 2516002 BNZ 20850 000037 04405 2604423 BRU CO24A 20860 000037 04406 0012767 CO24B LDA TEN 20870 000037 04407 0312132 STA TEMPST STORE BINARY NO OF DAYS 20920 000037 04410 0012660 LDA WARIM LOAD WARIM 20930 000037 04411 2504006 MAQ 20940 000037 04412 1512132 MPY TEMPST MULTIPLY BY NO OF DAYS 20950 000037 04413 1613031 DVD 2THOU DIVIDE BY 2000 20960 000037 04414 0112703 ADD WARIM+19 ADD DIFFERENCE TO SUPER 20970 000037 04415 0312703 STA WARIM+19 20980 000037 04416 0010071 LDA WKG+27 20990 000037 04417 0113030 ADD HALF 21000 000037 04420 0310071 STA WKG+27 21010 000037 04421 0014167 LDA R%C 000037 04422 0312000 STA REPIM+18 21030 000037 04423 0010072 CO24A LDA WKG+28 21040 000037 04424 0312005 STA REPIM+23 21050 000037 04425 0012037 LDA VARIAN+7 21060 000037 04426 0310072 STA WKG+28 21070 000037 04427 0312023 STA REPIM+37 21080 000037 04430 2504006 MAQ ADD TO TOTAL OF VARIATIONS DONE 21090 000037 04431 1112552 DAD ACUM+10 21100 000037 04432 1312552 DST ACUM+10 21110 000037 04433 0727573 SPB SR#1 1 NAME AND NO TO REPORT 21120 000037 04434 1012034 DLD VARIAN+4 21130 000037 04435 0312001 STA REPIM+19 VARIATION CODE 21140 000037 04436 2014162 EXT MASK2 21150 000037 04437 0312012 STA REPIM+28 FIELD NO 21160 000037 04440 2504001 LAQ 21170 000037 04441 0312002 STA REPIM+20 NO OF DAYS 21180 000037 04442 2602265 BRU M#777 21190 000037 04443 1012030 UNLOC DLD VARIAN UTL VARIATIONS 21200 000037 04444 1311756 DST REPIM 21210 000037 04445 1012032 DLD VARIAN+2 21220 000037 04446 1311760 DST REPIM+2 21230 000037 04447 0014170 LDA UTL 21240 000037 04450 0312000 STA REPIM+18 21250 000037 04451 0012034 LDA VARIAN+4 21260 000037 04452 0312001 STA REPIM+19 21270 000037 04453 2114252 CAB B01 COMPARE WITH 201 21280 000037 04454 2604467 BRU T#772 LARGER 21290 000037 04455 2604463 BRU T#768 A 201 VARIATION 21300 000037 04456 1012036 DLD VARIAN+6 A 200 VARIATION 21310 000037 04457 1312006 DST REPIM+24 21320 000038 04460 1112542 DAD ACUM+2 21330 000038 04461 1312542 DST ACUM+2 21340 000038 04462 2604474 BRU T#778 21350 000038 04463 1012036 T#768 DLD VARIAN+6 UTL OVERTIME AMOUNT 21360 000038 04464 1112544 DAD ACUM+4 21370 000038 04465 1312544 DST ACUM+4 21380 000038 04466 2604474 BRU T#778 21390 000038 04467 1012036 T#772 DLD VARIAN+6 UTL GENERAL VARIATION 21400 000038 04470 1112546 DAD ACUM+6 21410 000038 04471 1312546 DST ACUM+6 21420 000038 04472 0012035 LDA VARIAN+5 21430 000038 04473 0312002 STA REPIM+20 21440 000038 04474 1012036 T#778 DLD VARIAN+6 21450 000038 04475 1312010 DST REPIM+26 21460 000038 04476 0014211 LDA AUD1 21480 000038 04477 0312025 STA REPIM+39 21490 000038 04500 0012752 LDA WARIM+58 21500 000038 04501 0312024 STA REPIM+38 21510 000038 04502 0720720 SPB REPORT 1 21520 000038 04503 0727650 SPB SR#4 1 21530 000038 04504 2601230 BRU C 21540 000038 04505 1011610 ERROR DLD TRANS PAGE 1 FC 21550 000038 04506 0735425 SPB FLOP 1 21560 000038 04507 1012126 DLD BINWA 21570 000038 04510 1312132 DST TEMPST 21580 000038 04511 1012130 DLD BINWA+2 21590 000038 04512 1312134 DST TEMPST+2 21600 000038 04513 1011612 DLD TRANS+2 21610 000038 04514 0735425 SPB FLOP 1 21620 000038 04515 1012126 DLD BINWA 21630 000038 04516 1312136 DST TEMPST+4 21640 000038 04517 1012130 DLD BINWA+2 21650 000038 04520 1312140 DST TEMPST+6 CONVERTED SORTKEY AT TEMPST - TEMPST + 7 21660 000038 04521 2504102 LMO 21670 000038 04522 0312142 STA TEMPST+8 21680 000038 04523 0737455 SPB TYPE+2 1 21690 000038 04524 0014336 LDA DBLNO TYPE TRANSFER WITH DUPLICATED SORTKEY 21700 000038 04525 3777776 DEC -2 CARIIAGE RETURN 21710 000038 Should be: CARRIAGE 04526 0737455 SPB TYPE+2 1 21720 000038 04527 0012132 LDA TEMPST TYPE SORTKEY AND STAFF NO 21730 000038 04530 3777776 DEC -2 21740 000038 04531 0720544 SPB TFTWS 1 READ NEXT TRANSFER 21750 000038 04532 0632754 CONTOT LDX ZERO 1 24470 000038 04533 1032430 DLD FORTO 1 FORTNIGHTLY TOTALS TO AUDIT REPORT 013 24480 000038 04534 1331760 DST REPIM+2 1 STORE AT REPORTS IMAGE 24490 000038 04535 1420002 INX 2 1 24500 000038 04536 0437746 BXL 26 1 24510 000038 04537 2604533 BRU *-4 24520 000038 04540 1032430 DLD FORTO 1 24530 000038 04541 1331762 DST REPIM+4 1 24540 000038 04542 1420002 INX 2 1 24550 000038 04543 0437736 BXL 34 1 24560 000038 04544 2604540 BRU *-4 24570 000038 04545 0014212 LDA REP5 013 24580 000039 04546 2504006 MAQ 24590 000039 04547 0012752 LDA WARIM+58 24600 000039 04550 1312024 DST REPIM+38 24610 000039 04551 0720720 SPB REPORT 1 24620 000039 04552 0727650 SPB SR#4 1 CLEAR REPIM 24630 000039 04553 0632754 LDX ZERO 1 24640 000039 04554 1032472 DLD FORTO+341 FORTNIGHTLY TOTALS TO AUDIT REPORT 113 24650 000039 04555 1331756 DST REPIM 1 24660 000039 04556 1420002 INX 2 1 24670 000039 04557 0437756 BXL 18 1 24680 000039 04560 2604554 BRU *-4 24690 000039 04561 0014246 LDA REP6 113 24700 000039 04562 2504006 MAQ 24710 000039 04563 0012752 LDA WARIM+58 24720 000039 04564 1312024 DST REPIM+38 24730 000039 04565 0720720 SPB REPORT 1 WRITE RECORD 24740 000039 04566 0727650 SPB SR#4 1 CLEAR REPIM 24750 000039 REM PER ANNUM TOTALS TO AUDIT REPORT 3 24760 000039 04567 0632754 LDX ZERO 1 24770 000039 04570 1032514 DLD PANTO 1 24780 000039 04571 1331756 DST REPIM 1 24790 000039 04572 1420002 INX 2 1 24800 000039 04573 0437754 BXL 20 1 24810 000039 04574 2604570 BRU *-4 24820 000039 04575 0632754 LDX ZERO 1 24830 000039 04576 1032554 DLD ACUM+12 1 NET VARIATIONS TO AUDIT REPORT 3 24840 000039 04577 1332002 DST REPIM+201 24850 000039 04600 1420002 INX 2 1 24860 000039 04601 0437756 BXL 18 1 24870 000039 04602 2604576 BRU *-4 24880 000039 04603 0014254 LDA REP7 213 24890 000039 04604 2504006 MAQ 24900 000039 04605 0012752 LDA WARIM+58 24910 000039 04606 1312024 DST REPIM+38 24920 000039 04607 0720720 SPB REPORT 1 24930 000039 04610 0727650 SPB SR#4 1 CLEAR REPIM 24940 000039 REM WRITE AUDIT REPORT 4 24950 000039 04611 1012536 DLD PANTO+18 24960 000039 04612 1311756 DST REPIM 24970 000039 04613 0632754 LDX ZERO 1 24980 000039 04614 1030042 DLD WKG+4 1 LOAD YTD TOTAL UP TO LAST PAYDAY 24990 000039 04615 1132224 DAD CRTF+4 1 ADD THIS PAYS VARIATION THERETO 25000 000039 04616 1330042 DST WKG+4 1 STORE IN WORKING AREA 25010 000039 04617 1331760 DST REPIM+2 1 STORE IN AUDIT REPORT IMAGE 25020 000039 04620 1420002 INX 2 1 25030 000039 04621 0437746 BXL 26 1 25040 000039 04622 2604614 BRU *-6 25050 000039 04623 1010076 DLD WKG+32 BONUSES 25060 000039 04624 1112260 DAD CRTF+32 25070 000039 04625 1310076 DST WKG+32 25080 000039 04626 1312014 DST REPIM+30 25090 000039 04627 1012154 DLD COUNT COUNTERS OF NO OF WARRANTS AND STAFF 25100 000039 04630 1312016 DST REPIM+32 25110 000039 04631 0014261 LDA REP8 313 25120 000040 04632 2504006 MAQ 25130 000040 04633 0012752 LDA WARIM+58 25140 000040 04634 1312024 DST REPIM+38 25150 000040 04635 0720720 SPB REPORT 1 25160 000040 04636 0727650 SPB SR#4 1 CLEAR REPIM 25170 000040 04637 1010074 DLD WKG+30 25180 000040 04640 1112256 DAD CRTF+30 UPDATE TOTAL COMPO 25190 000040 04641 1310074 DST WKG+30 25200 000040 04642 0632754 LDX ZERO 1 25210 000040 04643 1032264 FL181 DLD CRTF+36 1 UPDATE CONTROL TOTALS 36-84 25220 000040 04644 1330102 DST WKG+36 1 25230 000040 04645 1420002 INX 2 1 25240 000040 04646 0437716 BXL 50 1 25250 000040 04647 2604643 BRU FL181 25260 000040 REM TEST VARIATION IF IT SI FINAL ONE WITH TOTALS25270 000040 Should be: IS FINAL 04650 1012030 FL187 DLD VARIAN 25280 000040 04651 0735425 SPB FLOP 1 25290 000040 04652 0012130 LDA BINWA+2 25300 000040 04653 2504006 MAQ 25310 000040 04654 0012127 LDA BINWA+1 CONTROL KEY AND BRANCH NO IN A AND Q 25320 000040 04655 2511006 SRD 6 FIRST 3 DIGITS OF BRANCH NO IN Q 25330 000040 04656 2504001 LAQ TO A 25340 000040 04657 0312132 STA TEMPST 25350 000040 04660 0014151 LDA FLAG 25360 000040 04661 2312132 ORY TEMPST 25370 000040 04662 0012132 LDA TEMPST 25380 000040 04663 0214270 SUB NINES 25390 000040 04664 2514002 BZE 25400 000040 04665 2604674 BRU FL224 25410 000040 04666 0724443 SPB UNLOC 1 25420 000040 04667 0720610 SPB RDVAR 1 25430 000040 04670 2604650 BRU FL187 25440 000040 04671 0632754 LDX ZERO 1 25450 000040 04672 0652754 LDX ZERO 2 25460 000040 04673 0672754 LDX ZERO 3 25470 000040 04674 1012552 FL224 DLD ACUM+10 OPERANDS OF VARIATIONS DONE PLUS 25480 000040 04675 1112546 DAD ACUM+6 OPERANDS NOT DONE 25490 000040 04676 1212032 DSU VARIAN+2 SHOULD EQUAL HASH TOTAL SUPPLIED 25500 000040 04677 2516002 BNZ 25510 000040 04700 0632756 LDX ONE 1 BRANCH TO TYPE MESSAGE - 25520 000040 04701 1012540 DLD ACUM OVERTIME HOURS 25530 000040 04702 1112542 DAD ACUM+2 PLUS REJECTED OVERTIME HOURS 25540 000040 04703 1212034 DSU VARIAN+4 25550 000040 04704 2516002 BNZ 25560 000040 04705 0652756 LDX ONE 2 BRANCH TO TYPE MESSAGE 25570 000040 04706 1012544 DLD ACUM+4 REJECTED PAYMENTS SPECIAL DUTIES 25580 000040 04707 1112550 DAD ACUM+8 PLUS PAYMENTS SPECIAL DUTIES DONE 25590 000040 04710 1212036 DSU VARIAN+6 SHOULD EQUAL AMOUNT ADVISED 25600 000040 04711 2516002 BNZ 25610 000040 04712 0672756 LDX ONE 3 25620 000040 04713 0000001 LDA 1 25630 000040 04714 2516002 BNZ 25640 000040 04715 2604723 BRU FL247 25650 000040 04716 0737453 SPB TYPE 1 25660 000041 04717 0014363 DEC HASH HASH 25670 000041 04720 0014325 DEC MESS1 TOTAL 25680 000041 04721 0014356 DEC VAR0 VARIATIONS 25690 000041 04722 3777777 DEC -1 25700 000041 04723 0000002 FL247 LDA 2 25710 000041 04724 2516002 BNZ 25720 000041 04725 2604731 BRU FL253 25730 000041 04726 0737453 SPB TYPE 1 25740 000041 04727 0014516 DEC OTIM OVERTIME HOURS 25750 000041 04730 3777777 DEC -1 25760 000041 04731 0000003 FL253 LDA 3 25770 000041 04732 2516002 BNZ 25780 000041 04733 2604737 BRU FL259 25790 000041 04734 0737453 SPB TYPE 1 25800 000041 04735 0014505 DEC PSDU PAYMENTS SPECIAL DUTIES 2581(0)000041 04736 3777777 DEC -1 2582(0)000041 04737 0000001 FL259 LDA 1 2583(0)000041 04740 0100002 ADD 2 2584(0)000041 04741 0100003 ADD 3 2585(0)000041 04742 0212760 SUB THREE WERE ALL THREE CATEGORIES OUT 2586(0)000041 04743 2514002 BZE 2587(0)000041 04744 2604750 BRU FL268 YES 2588(0)000041 04745 0737453 SPB TYPE 1 NO - TYPE BALANCED 2589(0)000041 04746 0014352 DEC OK 2589(5)000041 04747 3777776 DEC -2 CARRIAGE RETURN 2591(0)000041 04750 0000001 FL268 LDA 1 2593(0)000041 04751 2514002 BZE 2594(0)000041 04752 2605010 BRU FL314 2595(0)000041 04753 1012032 DLD VARIAN+2 HASH TOTAL OF VARIATIONS SUPPLIED 2596(0)000041 04754 1312132 DST TEMPST 2597(0)000041 04755 0727771 SPB SR#6 1 2598(0)000041 04756 0737455 SPB TYPE+2 1 25990 000041 04757 0014363 DEC HASH HASH 26000 000041 04760 0014325 DEC MESS1 TOTAL 26010 000041 04761 0014356 DEC VAR0 VARIATIONS 26020 000041 04762 0014501 DEC SUPP SUPPLIED 26030 000041 04763 3777777 DEC -1 26035 000041 04764 0737461 SPB TYPE+6 1 SHIFT TO NEXT TAB 26040 000041 04765 0012132 DEC TEMPST 26050 000041 04766 3777776 DEC -2 CARRIAGE RETURN 26060 000041 04767 1012552 DLD ACUM+10 VARIATIONS DONE 26070 000041 04770 1312132 DST TEMPST 26080 000041 04771 0727771 SPB SR#6 1 26090 000041 04772 0737465 SPB TYPE+10 1 26100 000041 04773 0014476 DEC DONE 26110 000041 04774 0737461 SPB TYPE+6 1 26120 000041 04775 0012132 LDA TEMPST 26130 000041 04776 3777776 DEC -2 26140 000041 04777 1012546 DLD ACUM+6 VARIATIONS NOT DONE 26150 000041 05000 1312132 DST TEMPST 26160 000041 05001 0727771 SPB SR#6 1 PREPARE AMOUNT FOR TYPING 26170 000041 05002 0737465 SPB TYPE+10 1 26180 000041 05003 0014473 DEC NOT 26190 000041 05004 0014476 DEC DONE 26200 000042 05005 0737461 SPB TYPE+6 1 26210 000042 05006 0012132 LDA TEMPST 26220 000042 05007 3777776 DEC -2 26230 000042 05010 0000002 FL314 LDA 2 26240 000042 05011 2514002 BZE DID OVERTIME HOURS BALANCE 26250 000042 05012 2605046 BRU FL345 YES 26260 000042 05013 1012034 DLD VARIAN+4 NO 26270 000042 05014 1312132 DST TEMPST 26280 000042 05015 0727771 SPB SR#6 1 PREPARE TOTAL HOURS FOR TYPING 26290 000042 05016 0737455 SPB TYPE+2 1 26300 000042 05017 0014325 DEC MESS1 TOTAL 26310 000042 05020 0014516 DEC OTIM OVERTIME HOURS 26320 000042 05021 0014501 DEC SUPP SUPPLIED 26330 000042 05022 0737465 SPB TYPE+10 1 26340 000042 05023 0012132 DEC TEMPST 26350 000042 05024 3777776 DEC -2 26360 000042 05025 1012540 DLD ACUM TOTAL HOURS DONE 26370 000042 05026 1312132 DST TEMPST 26380 000042 05027 0727771 SPB SR#6 1 26390 000042 05030 0737465 SPB TYPE+10 1 26400 000042 05031 0014476 DEC DONE 26410 000042 05032 0737465 SPB TYPE+10 1 26420 000042 05033 0012132 DEC TEMPST 26430 000042 05034 3777776 DEC -2 26440 000042 05035 1012542 DLD ACUM+2 TOTAL HOURS NOT DONE 26450 000042 05036 1312132 DST TEMPST 26460 000042 05037 0727771 SPB SR#6 1 26470 000042 05040 0737465 SPB TYPE+10 1 26480 000042 05041 0014473 DEC NOT NOT 26490 000042 05042 0014476 DEC DONE DONE 26500 000042 05043 0737465 SPB TYPE+10 1 26510 000042 05044 0012132 LDA TEMPST AMOUNT 26520 000042 05045 3777776 DEC -2 26530 000042 05046 0000003 FL345 LDA 3 26540 000042 05047 2514002 BZE 26550 000042 05050 2605112 BRU FL378 26560 000042 05051 2504102 LMO 26570 000042 05052 0307562 STA #LSD+6 MINUS 1 IN #LSD +6 26575 000042 05053 1012036 DLD VARIAN+6 TOTAL SPECIAL DUTIES 26580 000042 05054 1307550 DST #AMT 26590 000042 05055 0727470 SPB TOLSD 1 CONVERT TO B C D 26600 000042 05056 0737455 SPB TYPE+2 1 26610 000042 05057 0014325 DEC MESS1 TOTAL 26620 000042 05060 0014505 DEC PSDU PAYMENTS SPECIAL DUTIES 26630 000042 05061 0014501 DEC SUPP SUPPLIED 26640 000042 05062 0737461 SPB TYPE+6 1 26650 000042 05063 0007554 DEC #LSD 26660 000042 05064 3777776 DEC -2 26670 000042 05065 1012550 DLD ACUM+8 SPECIAL DUTIES DONE 26680 000042 05066 1307550 DST #AMT 26690 000042 05067 0727470 SPB TOLSD 1 26700 000042 05070 0737461 SPB TYPE+6 1 26710 000042 05071 3777777 DEC -1 26715 000042 05072 0737465 SPB TYPE+10 1 26720 000043 05073 0014476 DEC DONE TYPE DONE 26730 000043 05074 0737461 SPB TYPE+6 1 26740 000043 05075 0007554 DEC #LSD 26750 000043 05076 3777776 DEC -2 26760 000043 05077 1012544 DLD ACUM+4 26770 000043 05100 1307550 DST #AMT 26780 000043 05101 0727470 SPB TOLSD 1 26790 000043 05102 0737461 SPB TYPE+6 1 26800 000043 05103 3777777 DEC -1 26805 000043 05104 0737465 SPB TYPE+10 1 26810 000043 05105 0014473 DEC NOT NOT 26820 000043 05106 0014476 DEC DONE DONE 26830 000043 05107 0737461 SPB TYPE+6 1 TAB 26840 000043 05110 0007554 DEC #LSD 26850 000043 05111 3777776 DEC -2 26860 000043 05112 0012741 FL378 LDA WARIM+49 CONTROL KEY 000043 05113 2510006 SRA 6 000043 05114 2014162 EXT MASK2 ELIMINATE LEADING DIGITS 000043 05115 0312132 STA TEMPST 000043 05116 2504102 LMO 000043 05117 0312133 STA TEMPST+1 000043 05120 0737453 SPB TYPE 1 TYPE FINISHED PROCESSING CONTROL XX 000043 05121 0014442 LDA END 000043 05122 0012132 LDA TEMPST 000043 05123 3777776 DEC -2 000043 05124 0737453 SPB TYPE 1 TYPE CHECK STATIONERY ETC 000043 05125 0014454 LDA END2 000043 05126 3777776 DEC -2 000043 05127 0720655 SPB WRNMST 1 WRITE CONTROL TOTAL RECORD ONTO TAPE 000043 05130 0632754 LDX ZERO 1 000043 05131 0632754 LDX ZERO 1 000043 05132 1032322 DLD CRTF+66 1 000043 05133 1152210 DAD FINRC 2 UPDATE PENSION BALANCES 000043 05134 1352210 DST FINRC 2 000043 05135 1420004 INX 4 1 000043 05136 1440002 INX 2 2 000043 05137 0457766 BXL 10 2 000043 05140 2605132 BRU *-6 000043 05141 2506011 SET DECMODE 000043 05142 0014153 LDA DE66 000043 05143 0212132 SUB TEMPST CHECK IF CONTROL JUST FINISHED WAS LAST ONE 000043 05144 2506012 SET BINMODE 000043 05145 2514002 BZE 000043 05146 2605151 BRU LEFIN 000043 05147 0737411 SPB HLTLP 1 ENTER HALT LOOP 000043 05150 2600751 BRU GO 000043 05151 0012753 LEFIN LDA MINC -100 IN A 000043 05152 2504006 MAQ 000043 05153 0010036 LDA WKG 000043 05154 0005153 LDA *-1 000043 05155 2410346 MOV WKGTEM FINAL MASTER RECORD IN WKG 000043 05156 0012767 LDA TEN 000043 05157 2504522 NEG 000043 05160 2504006 MAQ 000044 05161 0011756 LDA REPIM 000044 05162 0005161 LDA *-1 000044 05163 2410042 MOV WKG+4 MOVE LAST PAYS CLOSING BALANCES TO REPIM 000044 05164 0014210 LDA RRT1 000044 05165 0312025 STA REPIM+39 SYMBOL TO REPIM 000044 05166 0720720 SPB REPORT 1 WRITE REPORT 000044 05167 0727650 SPB SR#4 1 000044 05170 0632754 LDX ZERO 1 000044 05171 1030042 DLD WKG+4 1 LOAD PENSION TOTAL 000044 05172 1132210 DAD FINRC 1 ADD ACCUMULATED TOTAL 000044 05173 1330042 DST WKG+4 1 STORE TOTAL 000044 05174 1331756 DST REPIM 1 STORE ALSO AT REPIM 000044 05175 1420002 INX 2 1 000044 05176 0437766 BXL 10 1 000044 05177 2605171 BRU *-6 000044 05200 0014253 LDA RRT2 000044 05201 0312025 STA REPIM+39 000044 05202 0720720 SPB REPORT 1 WRITE REPORT CLOSING BALANCES 000044 05203 0727650 SPB SR#4 1 000044 05204 0014270 LDA NINES CREATE SORTKEY FINAL RECORD 000044 05205 0312132 STA TEMPST 000044 05206 0312133 STA TEMPST+1 000044 05207 2504002 LDZ 000044 05210 0312134 STA TEMPST+2 000044 05211 0734630 SPB FLIP 1 000044 05212 0012132 LDA TEMPST 000044 05213 0030011 ALF 309 000044 05214 2605221 BRU *+5 000044 05215 1310036 DST WKG 000044 05216 2504006 MAQ 000044 05217 2504006 MAQ 000044 05220 1310040 DST WKG+2 000044 05221 0720655 SPB WRNMST 1 000044 05222 0000630 LDA MRECOU 000044 05223 0005222 LDA *-1 000044 05224 0737030 SPB EOFOUT 1 CLOSE NEW MASTER FILE 000044 05225 0000674 LDA WRRPT 000044 05226 0005225 LDA *-1 000044 05227 0737030 SPB EOFOUT 1 CLOSE REPORTS FILE 000044 05230 0737453 SPB TYPE 1 000044 05231 0014565 LDA SLOT 000044 05232 3777776 DEC -2 000044 05233 0652754 LDX ZERO 2 SUPPLY 5 RECORDS EACH WITH THE FORTNIGHTLY 000044 05234 0672754 LDX ZERO 3 TOTAL OF A PENSION FUND,ITS NUMBER ETC. 000044 05235 0054305 LDA SUCODE 2 LOAD SUPER FUND CODE CONCERNED 000044 05236 0312000 STA REPIM+18 STORE AT REPIM 000044 05237 1072464 DLD FORTO+283 LOAD FORTNIGHTLY TOTAL 000044 05240 2514001 BMI 000044 05241 2605244 BRU *+3 000044 05242 1312012 DST REPIM+28 IF POSITIVE SHOW AS CREDIT 000044 05243 2605245 BRU *+2 000044 05244 1312010 DST REPIM+26 OTHERWISE SHOW AS DEBIT 000044 05245 0012752 LDA WARIM+58 CONTROL KEY 000044 05246 0312003 STA REPIM+21 000045 05247 0014245 LDA PRP1 REPORT KEY 000045 05250 0312025 STA REPIM+39 000045 05251 1752170 STX SAVER 2 SAVE INDEX REGISTERS 000045 05252 1772171 STX SAVER+1 3 000045 05253 0720720 SPB REPORT 1 PRINT REPORT 000045 05254 0727650 SPB SR#4 1 CLEAR REPIM 000045 05255 0652170 LDX SAVER 2 000045 05256 0672170 LDX SAVER 3 000045 05257 1440001 INX 1 2 000045 05260 1460002 INX 2 3 000045 05261 0457773 BXL 5 2 000045 05262 2605235 BRU *-21 000045 05263 2605263 BRU * STOP COMPUTER 000045 05264 0014270 TOTREC LDA NINES FLAGGED 999 26910 000045 05265 2506011 SET DECMODE 26920 000045 05266 0212743 SUB WARIM+51 26930 000045 05267 2514002 BZE 26940 000045 05270 2605331 BRU BRTOT BRANCH TO BRANCH TOTALS RECORD 26950 000045 05271 0632754 LDX ZERO 1 26960 000045 05272 1030042 DLD WKG+4 1 UPDATE TOTALS 26970 000045 05273 1132420 DAD DPTTF+4 1 26980 000045 05274 1330042 DST WKG+4 1 26990 000045 05275 1420002 INX 2 1 27000 000045 05276 0437772 BXL 6 1 27010 000045 05277 2605272 BRU *-5 27020 000045 05300 1010042 DLD WKG+4 27030 000045 05301 1110044 DAD WKG+6 27040 000045 05302 1110046 DAD WKG+8 GENERATE NEW GRAND TOTAL 27050 000045 05303 1310050 DST WKG+10 27060 000045 05304 1010036 DLD WKG 27070 000045 05305 1312174 DST OLDR 27080 000045 05306 1010040 DLD WKG+2 27090 000045 05307 1312176 DST OLDR+2 WRITE SORTKEY BCD AT OLDR 27100 000045 05310 0012765 LDA EIGHT 27110 000045 05311 2504522 NEG 27120 000045 05312 2504006 MAQ TWOS COMPLEMENT OF 8 IN Q 27130 000045 05313 0012200 LDA OLDR+4 27140 000045 05314 0005313 LDA *-1 27150 000045 05315 2412740 MOV WARIM+48 MOVE 8 WORDS FROM WARIM 48 TO OLDR+4 27160 000045 05316 0720655 SPB WRNMST 1 WRITE NEW MASTER RECORD 27170 000045 05317 2504102 LMO 27180 000045 05320 0312627 STA SWTD SET DEPT TOTAL SWITCH 27190 000045 05321 2504002 LDZ 27200 000045 05322 2504006 MAQ 27210 000045 05323 0300001 STA 1 27220 000045 05324 1332414 DST DPTTF 1 SET DPTTF TO ZERO 27230 000045 05325 1420002 INX 2 1 27240 000045 05326 0437764 BXL 12 1 27250 000045 05327 2605324 BRU *-3 27260 000045 05330 2601033 BRU G1 27270 000045 05331 0632754 BRTOT LDX ZERO 1 27280 000045 05332 1030042 DLD WKG+4 1 27290 000045 05333 1132354 DAD BRTF+4 1 27300 000045 05334 1330042 DST WKG+4 1 27310 000046 05335 1420002 INX 2 1 27320 000046 05336 0437742 BXL 30 1 27330 000046 05337 2605332 BRU *-5 27340 000046 05340 0632754 LDX ZERO 1 27350 000046 05341 1010042 DLD WKG+4 27360 000046 05342 1130044 DAD WKG+6 1 ACCUMULATE WKG 4 - 32 27370 000046 05343 1420002 INX 2 1 27380 000046 05344 0437750 BXL 24 1 27390 000046 05345 2605342 BRU *-3 27400 000046 05346 1110076 DAD WKG+32 27410 000046 05347 1310100 DST WKG+34 27420 000046 05350 1010036 DLD WKG 27430 000046 05351 1312174 DST OLDR 27440 000046 05352 1010040 DLD WKG+2 27450 000046 05353 1312176 DST OLDR+2 BINARY SORTKEY TO OLDR 27460 000046 05354 0012765 LDA EIGHT 27470 000046 05355 2504522 NEG 27480 000046 05356 2504006 MAQ 27490 000046 05357 0012200 LDA OLDR+4 27500 000046 05360 0005357 LDA *-1 27510 000046 05361 2412740 MOV WARIM+48 BCD SORTKEY TO OLDR 27520 000046 05362 0720655 SPB WRNMST 1 WRITE NEW MASTER RECORD 27530 000046 05363 2504102 LMO 27540 000046 05364 0312625 STA SWTB 27550 000046 05365 2504002 LDZ 27560 000046 05366 2504006 MAQ 27570 000046 05367 0300001 STA 1 27580 000046 05370 1332350 DST BRTF 1 SET BRTF TO ZERO 27590 000046 05371 1420002 INX 2 1 27600 000046 05372 0437734 BXL 36 1 27610 000046 05373 2605370 BRU *-3 27620 000046 05374 2601033 BRU G1 27630 000046 05375 0012625 TTBR LDA SWTB LOAD BRANCH TOTAL SWITCH 27640 000046 05376 2514001 BMI IS IT SET 27650 000046 05377 2601203 BRU 1B YES BRANCH TO CONNECTOR 1B [M#110] 27660 000046 05400 0013021 WBTR LDA ANT1 100 IN A 27670 000046 05401 2504522 NEG 27680 000046 05402 2504006 MAQ 27690 000046 05403 0010202 LDA TEMWKG 27700 000046 05404 0005403 LDA *-1 STARTING ADDRESS IN A 27710 000046 05405 2410036 MOV WKG RECORD IN WORKING AREA IS SAVED 27720 000046 05406 1012200 DLD OLDR+4 27730 000046 05407 1312132 DST TEMPST PREPARE SORTKEY FOR NEW TOTALS RECORD 27740 000046 05410 0012202 LDA OLDR+6 27750 000046 05411 0312134 STA TEMPST+2 27760 000046 05412 0014271 LDA NINES+1 27770 000046 05413 0312135 STA TEMPST+3 27780 000046 05414 0312203 STA OLDR+7 27790 000046 05415 0734630 SPB FLIP 1 CONVERT IT TO BINARY 27800 000046 05416 0012135 LDA TEMPST+3 27810 000046 05417 0030011 ALF 309 37820 000046 Should be: 27820 05420 2601033 BRU G1 000046 05421 1310036 DST WKG 27840 000046 05422 0014271 LDA NINES+1 27850 000047 05423 2504004 LQA 27860 000047 05424 0312133 STA TEMPST+1 27870 000047 05425 0312134 STA TEMPST+2 TEMPS T1 CONTAINS 999999 27880 000047 05426 2014161 EXT MASK1 ONE 9 RIGHT JUSTIFIED IN A 27890 000047 05427 0312132 STA TEMPST 27900 000047 05430 1013042 DLD DECNI 9999999 IN BINARY 000047 05431 1310040 DST WKG+2 SECOND PART OF SORTKEY TO WKG 27950 000047 05432 0012132 LDA TEMPST 27960 000047 05433 0312205 STA OLDR+9 27970 000047 05434 0012133 LDA TEMPST+1 27980 000047 05435 0312206 STA OLDR+10 27990 000047 05436 0012134 LDA TEMPST+2 28000 000047 05437 0312207 STA OLDR+11 28010 000047 05440 0013005 LDA PEN8 DEC 30 28020 000047 05441 2504522 NEG TWOS COMPLEMENT OF 30 IN A 28030 000047 05442 2504006 MAQ TO Q REG 28040 000047 05443 0010042 LDA WKG+4 28050 000047 05444 0005443 LDA *-1 28060 000047 05445 2412354 MOV BRTF+4 MOVE INFO AT BRTF TO WKG 28070 000047 05446 0632754 LDX ZERO 1 28080 000047 05447 1010042 DLD WKG+4 CREATE TOTAL FIELD 28090 000047 05450 1130044 DAD WKG+6 1 28100 000047 05451 1420002 INX 2 1 28110 000047 05452 0437750 BXL 24 1 28120 000047 05453 2605450 BRU *-3 28130 000047 05454 1110076 DAD WKG+32 28140 000047 05455 1310100 DST WKG+34 28150 000047 05456 1010036 DLD WKG WRITE SORT KEY AT OLDR 28160 000047 05457 1312174 DST OLDR 28170 000047 05460 1010040 DLD WKG+2 28180 000047 05461 1312176 DST OLDR+2 28190 000047 05462 2504102 LMO 28200 000047 05463 0312625 STA SWTB SET SWITCH FOR BRANCH TOTALS RECORD 28210 000047 05464 0720655 SPB WRNMST 1 WRITE NEW MASTER RECORD 28220 000047 05465 2504002 LDZ 28230 000047 05466 2504006 MAQ 28240 000047 05467 0300001 STA 1 28250 000047 05470 1332350 DST BRTF 1 SET BRTF TO ZERO 28260 000047 05471 1420002 INX 2 1 28270 000047 05472 0437734 BXL 36 1 28280 000047 05473 2605470 BRU *-3 28290 000047 05474 1010036 FL500 DLD WKG 28291 000047 05475 1311756 DST REPIM 000047 05476 1010040 DLD WKG+2 000047 05477 1311760 DST REPIM+2 000047 05500 0014206 LDA TNB 000047 05501 0312000 STA REPIM+18 000047 05502 0014211 LDA AUD1 000047 05503 0312025 STA REPIM+39 000047 05504 0012752 LDA WARIM+58 000047 05505 0312024 STA REPIM+38 000047 05506 0720720 SPB REPORT 1 000047 05507 0727650 SPB SR#4 1 28299 000047 05510 0013021 LDA ANT1 100 IN A 28300 000048 05511 2504522 NEG 28310 000048 05512 2504006 MAQ 28320 000048 05513 0010036 LDA WKG 28330 000048 05514 0005513 LDA *-1 28340 000048 05515 2410202 MOV TEMWKG RECORD PREVIOUSLY IN WKG IS RETURNED THERE 28350 000048 05516 2601073 BRU 1A 28360 000048 FL509 REM CREATE NEW DEPT TOTALS RECORD 28370 000048 05517 0013021 WDTR LDA ANT1 100 IN A 28380 000048 05520 2504522 NEG 28390 000048 05521 2504006 MAQ 28400 000048 05522 0010202 LDA TEMWKG 28410 000048 05523 0005522 LDA *-1 28420 000048 05524 2410036 MOV WKG SAVE RECORD ALREADY IN WKG AREA 28430 000048 05525 1012174 DLD OLDR 28440 000048 05526 1310036 DST WKG 1ST TWO WORDS OF SORTKEY 28450 000048 05527 0014271 LDA NINES+1 999 IN A 28460 000048 05530 2504004 LQA 28470 000048 05531 1312134 DST TEMPST+2 28480 000048 05532 2014161 EXT MASK1 28490 000048 05533 0312133 STA TEMPST+1 9999999 IN TEMPST+1 - 3 28500 000048 05534 1013042 DLD DECNI 28540 000048 05535 1310040 DST WKG+2 BINARY 9999999 IN WKG 28550 000048 05536 1312176 DST OLDR+2 28560 000048 05537 0632754 LDX ZERO 1 INDEX ONE TO 0 28570 000048 05540 1032420 DLD DPTTF+4 1 28580 000048 05541 1330042 DST WKG+4 1 28590 000048 05542 1420002 INX 2 1 28600 000048 05543 0437772 BXL 6 1 28610 000048 05544 2605540 BRU *-4 28620 000048 05545 1010042 DLD WKG+4 28630 000048 05546 1110044 DAD WKG+6 28640 000048 05547 1110046 DAD WKG+8 28650 000048 05550 1310050 DST WKG+10 CREATE TOTAL FIELD 28660 000048 05551 2504002 LDZ 28670 000048 05552 2504006 MAQ 28680 000048 05553 0300001 STA 1 28690 000048 05554 1332414 DST DPTTF 1 RESET DPTTF 28700 000048 05555 1420002 INX 2 1 28710 000048 05556 0437764 BXL 12 1 28720 000048 05557 2605554 BRU *-3 28730 000048 05560 2504102 LMO 28740 000048 05561 0312627 STA SWTD SET DEPT TOTL SWITCH 28750 000048 05562 0012133 LDA TEMPST+1 BCD STAFF NO TO OLDR 28760 000048 05563 0312205 STA OLDR+9 28770 000048 05564 1012134 DLD TEMPST+2 28780 000048 05565 1312206 DST OLDR+10 28790 000048 05566 0720655 SPB WRNMST 1 28800 000048 05567 2605474 BRU FL500 BRANCH TO WRITE REPORT TNB AND RESTORE WKG 28810 000048 05570 0012661 #DELE LDA WARIM+1 28820 000048 05571 0112662 ADD WARIM+2 28830 000048 05572 2514002 BZE WAS ANY OVERTIME PAYABLE 28840 000048 05573 2605654 BRU FL600 IF NO - BRANCH TO 28850 000048 05574 0727573 SPB SR#1 1 NAME AND NUMBERS TO REPIM 28860 000048 05575 0014170 LDA UTL 28870 000049 05576 0312000 STA REPIM+18 SYMBOL UTL TO REPORT 28880 000049 05577 0012661 LDA WARIM+1 28890 000049 05600 2514002 BZE WAS IT O/A OVERTIME HOURS 28900 000049 05601 2605625 BRU FL581 28910 000049 05602 1012674 DLD WARIM+12 28920 000049 05603 1312006 DST REPIM+24 28930 000049 05604 0014251 LDA B00 B00 IN A 28940 000049 05605 0312001 STA REPIM+19 28950 000049 05606 0012752 LDA WARIM+58 28960 000049 05607 0312024 STA REPIM+38 28970 000049 05610 0014211 LDA AUD1 28980 000049 05611 0312025 STA REPIM+39 28990 000049 05612 0720720 SPB REPORT 1 WRITE REPORT 29000 000049 05613 1012540 DLD ACUM SWITCH OVERTIME HOURS 29010 000049 05614 1212156 DSU OHOURS 29020 000049 05615 1312540 DST ACUM FROM EXECUTED 29030 000049 05616 1012542 DLD ACUM+2 29040 000049 05617 1112156 DAD OHOURS 29050 000049 05620 1312540 DST ACUM TO REJECTED 29060 000049 05621 0727650 SPB SR#4 1 CLEAR REPIM 29070 000049 05622 2504002 LDZ 29080 000049 05623 0312661 STA WARIM+1 29090 000049 05624 0727573 SPB SR#1 1 NAME AND NOS TO REPIM 29100 000049 05625 0012662 FL581 LDA WARIM+2 OVERTIME AMOUNT 29110 000049 05626 2514002 BZE 29120 000049 05627 2605655 BRU FL601 29130 000049 05630 2504006 MAQ 29140 000049 05631 1312010 DST REPIM+26 AMOUNT TO VARIATION OPERAND FIELD 29150 000049 05632 0014170 LDA UTL 29160 000049 05633 0312000 STA REPIM+18 SYMBOL UTL 29170 000049 05634 0014252 LDA B01 29180 000049 05635 0312001 STA REPIM+19 29190 000049 05636 0014211 LDA AUD1 SYMBOL 012 29200 000049 05637 2504006 MAQ 29210 000049 05640 0012752 LDA WARIM+58 CONTROL KEY 29220 000049 05641 1312024 DST REPIM+38 29230 000049 05642 0720720 SPB REPORT 1 29240 000049 05643 2504002 LDZ 29250 000049 05644 0312662 STA WARIM+2 29260 000049 05645 1012550 DLD ACUM+8 29270 000049 05646 1212010 DSU REPIM+26 29280 000049 05647 1312550 DST ACUM+8 29290 000049 05650 1012544 DLD ACUM+4 29300 000049 05651 1112010 DAD REPIM+26 29310 000049 05652 1312544 DST ACUM+4 29320 000049 05653 0727650 SPB SR#4 1 CLEAR REPIM 29330 000049 05654 0727573 FL600 SPB SR#1 1 NAME AND NOS TO REPIM 29340 000049 05655 0014166 FL601 LDA TRO 29350 000049 05656 0312000 STA REPIM+18 SYMBOL TRO 29360 000049 05657 0012034 LDA VARIAN+4 29370 000049 05660 0312001 STA REPIM+19 TRANCODE 29380 000049 05661 1012036 DLD VARIAN+6 29390 000049 05662 1312022 DST REPIM+36 FIELD CONTENTS CURRENT 29400 000049 05663 1112552 DAD ACUM+10 29410 000050 05664 1312552 DST ACUM+10 29420 000050 05665 0014211 LDA AUD1 29430 000050 05666 2504006 MAQ 29440 000050 05667 0012752 LDA WARIM+58 29450 000050 05670 1312024 DST REPIM+38 29460 000050 05671 0720720 SPB REPORT 1 29470 000050 05672 0727650 SPB SR#4 1 CLEAR REPIM 29480 000050 05673 2601033 BRU G1 29490 000050 05674 0013002 C202H LDA TWEIT 28 29910 000050 05675 2504522 NEG 29920 000050 05676 2504006 MAQ 29930 000050 05677 0011756 LDA REPIM 29940 000050 05700 0005677 LDA *-1 29950 000050 05701 2410036 MOV WKG WORDS 1-28 TO REPIM 29960 000050 05702 0012763 LDA SIX 29970 000050 05703 2504522 NEG 29980 000050 05704 2504006 MAQ 29990 000050 05705 0011756 LDA REPIM 30000 000050 05706 0005705 LDA *-1 30010 000050 05707 2410076 MOV WKG+32 30020 000050 05710 0012752 LDA WARIM+58 30030 000050 05711 0312024 STA REPIM+38 30040 000050 05712 0014207 LDA REP9 ALF 010 30050 000050 05713 0720720 SPB REPORT 1 30060 000050 05714 0727650 SPB SR#4 1 30070 000050 05715 0012771 LDA TWELVE 30080 000050 05716 2504522 NEG 30090 000050 05717 2504006 MAQ 30100 000050 05720 0011756 LDA REPIM 30110 000050 05721 0005720 LDA *-1 30120 000050 05722 2410104 MOV WKG+38 12 WORDS TO REPORT 30130 000050 05723 0012660 LDA WARIM SALARY 30140 000050 05724 2504006 MAQ 30150 000050 05725 1311772 DST REPIM+12 30160 000050 05726 0632754 LDX ZERO 1 30170 000050 05727 0032663 LDA WARIM+3 1 ALLOWANCES 30180 000050 05730 0331774 STA REPIM+141 TO REPIM 30190 000050 05731 1420001 INX 1 1 30200 000050 05732 0437767 BXL 9 1 30210 000050 05733 2605727 BRU *-4 30220 000050 05734 0012705 LDA WARIM+21 BONUS 30230 000050 05735 0312005 STA REPIM+23 DO 30240 000050 05736 0012676 LDA WARIM+14 30250 000050 05737 0112700 ADD WARIM+16 30260 000050 05740 0312006 STA REPIM+24 30270 000050 05741 0632754 LDX ZERO 1 30280 000050 05742 1030146 DLD WKG+72 1 30290 000050 05743 1332012 DST REPIM+281 FIRST 5 D M U A TO REPIM 30300 000050 05744 1420002 INX 2 1 30310 000050 05745 0437766 BXL 10 1 30320 000050 05746 2605742 BRU *-4 30330 000050 05747 0012752 LDA WARIM+58 CONTROL KEY 30340 000050 05750 0312726 STA WARIM+38 30350 000050 05751 0014244 LDA STD#1 30360 000051 05752 0312025 STA REPIM+39 30370 000051 05753 0720720 SPB REPORT 1 30380 000051 05754 0727650 SPB SR#4 1 30390 000051 05755 0632754 LDX ZERO 1 30400 000051 05756 1030160 DLD WKG+82 1 REMAINING 7 D M U A TO REPIM 30410 000051 05757 1331756 DST REPIM 1 30420 000051 05760 1420002 INX 2 1 30430 000051 05761 0437762 BXL 14 1 30440 000051 05762 2605756 BRU *-4 30450 000051 05763 0012703 LDA WARIM+19 SUPER 30660 000051 05764 0311774 STA REPIM+14 30670 000051 05765 0012702 LDA WARIM+18 STANDARD TAX 30680 000051 05766 0311775 STA REPIM+15 30690 000051 05767 0727660 SPB STDPY 1 CALCULATE NEW STANDARD 30700 000051 05770 0012660 LDA WARIM 30710 000051 05771 2504006 MAQ 30720 000051 05772 1011776 DLD REPIM+16 SALARY TO REPIM 30730 000051 05773 0632754 LDX ZERO 1 30740 000051 05774 0032663 LDA WARIM+3 1 ALLOWANCES 30750 000051 05775 0332000 STA REPIM+181 30760 000051 05776 1420001 INX 1 1 30770 000051 05777 0437767 BXL 9 1 30780 000051 06000 2605774 BRU *-4 30790 000051 06001 0012703 LDA WARIM+19 30800 000051 06002 0312015 STA REPIM+31 SUPER 30810 000051 06003 0012702 LDA WARIM+18 30820 000051 06004 0312030 STA REPIM+42 TAX 30830 000051 06005 0012752 LDA WARIM+58 CONTROL KEY 30840 000051 06006 0312024 STA REPIM+38 30850 000051 06007 0014260 LDA STD#2 30860 000051 06010 0312025 STA REPIM+39 30870 000051 06011 0720720 SPB REPORT 1 WRITE REPORT 30880 000051 06012 0727650 SPB SR#4 1 30890 000051 06013 2504002 LDZ 30900 000051 06014 0312632 STA SWVAR RESET S W V A R 30910 000051 06015 2601033 BRU G1 30920 000051 06016 0632754 T#001 LDX ZERO 1 ACCUMULATE ALL EARNINGS ITEMS AND STORE 31010 000051 06017 0012660 LDA WARIM 31020 000051 06020 0132661 ADD WARIM+1 1 31030 000051 06021 1420001 INX 1 1 31040 000051 06022 0437765 BXL 11 1 31050 000051 06023 2606020 BRU *-3 31060 000051 06024 0132663 ADD WARIM+3 1 31070 000051 06025 1420001 INX 1 1 31080 000051 06026 0437763 BXL 13 1 31090 000051 06027 2606024 BRU *-3 31100 000051 06030 0112705 ADD WARIM+21 TOTAL OF EARNINGS 31110 000051 06031 0312631 STA TOTAL 31120 000051 06032 0012647 COM14 LDA Y MAKE ADJUSTMENT FOR INITIAL SALARY PAYMENT 31130 000051 06033 2514002 BZE 31140 000051 06034 2606042 BRU T#020 31150 000051 06035 0012767 LDA TEN 31160 000051 06036 2504006 MAQ 31170 000051 06037 1512631 MPY TOTAL 31180 000052 06040 1612647 DVD Y 31190 000052 06041 0312631 STA TOTAL 31200 000052 06042 0210102 T#020 SUB WKG+36 SUBTRACT TAX ALLOWANCE 31210 000052 06043 0213032 SUB CON61 SUBTRACT $61 - 0 - 1 31220 000052 06044 2516001 BPL IS TAXABLE INCOME GREATER THAN 61-0-1 31230 000052 06045 2606105 BRU CON14A YES - GO TO CON 14 A 31240 000052 06046 0012631 LDA TOTAL 31250 000052 06047 0212756 SUB ONE SUBTRACT 1 PENNY 31260 000052 06050 2514001 BMI 31270 000052 06051 0012754 LDA ZERO 31280 000052 06052 2504006 MAQ 31290 000052 06053 1613016 DVD CON60 DIVIDE BY 60 31300 000052 06054 0213005 SUB PEN8 SUBTRACT 30 TO ELIMINATE FIRST 30 STEPS 31305 000052 06055 0300002 STA 2 31310 000052 06056 0053061 LDA TABLE1 2 LOOK UP AMOUNT OF TAX 31320 000052 06057 0312656 T#031 STA DUTY 31330 000052 06060 0012647 LDA Y 31340 000052 06061 2514002 BZE 31350 000052 06062 2606067 BRU T#039 31360 000052 06063 2504006 MAQ 31370 000052 06064 1512656 MPY DUTY 31380 000052 06065 1612767 DVD TEN 31390 000052 06066 2606070 BRU T#040 31400 000052 06067 0012656 T#039 LDA DUTY 31410 000052 06070 0312630 T#040 STA NDUTY 31420 000052 06071 0012623 LDA SWTV 31430 000052 06072 2516001 BPL IS SWITCH V ON 31440 000052 06073 2606131 BRU CON15A NO 31450 000052 06074 0012653 LDA TAX YES 31460 000052 06075 0212630 SUB NDUTY 31470 000052 06076 0312704 STA WARIM+20 STORE TAX ON OVERTIME 31480 000052 06077 0012630 LDA NDUTY 31490 000052 06100 0312702 STA WARIM+18 STORE STANDARD TAX 31500 000052 06101 2504002 T#049 LDZ 31510 000052 06102 0312623 STA SWTV RESET SWITCH V 31520 000052 06103 0312647 STA Y RESET Y 31530 000052 06104 2603403 BRU CO19W 000052 06105 0012631 CON14A LDA TOTAL 31550 000052 06106 0213040 SUB CON301 SUBTRACT $ 301 - 0 - 1 31560 000052 06107 2516001 BPL 31570 000052 06110 2606120 BRU CON14B 31580 000052 06111 0012631 LDA TOTAL LOAD TAXABLE INCOME 31590 000052 06112 0213032 SUB CON61 SUBTRACT $ 61 - 0 - 1 31600 000052 06113 2504006 MAQ 31610 000052 06114 1613027 DVD CON480 31620 000052 06115 0300002 STA 2 31630 000052 06116 0053406 LDA TABLE2 2 31640 000052 06117 2606057 BRU T#031 31650 000052 06120 0113025 CON14B ADD TWOFOR ADD 240 31660 000052 06121 2504112 SBO SUBTRACT 1 31670 000052 06122 2504006 MAQ 31680 000052 06123 1613025 DVD TWOFOR DIVIDE BY 240 31690 000052 06124 2504006 MAQ 31700 000052 06125 1513024 MPY CON144 MULTIPLY BY 12/- 31710 000053 06126 2504001 LAQ 31720 000053 06127 0113033 ADD CONSTD ADD $ 123 - 10 - 0 31730 000053 06130 2606057 BRU T#031 31740 000053 06131 0012630 CON15A LDA NDUTY SWITCH V NOT ON 31750 000053 06132 0312653 STA TAX 31760 000053 06133 0012661 LDA WARIM+1 31770 000053 06134 0112662 ADD WARIM+2 ADD UP OVERTIME 31780 000053 06135 0312652 STA SUM STORE AT SUM 31790 000053 06136 2514002 BZE WAS THERE ANY 31800 000053 06137 2606146 BRU CON15B NO 31810 000053 06140 2504102 LMO 31820 000053 06141 0312623 STA SWTV TURN SWITCH V ON 31830 000053 06142 0012631 LDA TOTAL 31840 000053 06143 0212652 SUB SUM 31850 000053 06144 0312631 STA TOTAL 31860 000053 06145 2606032 BRU COM14 31870 000053 06146 0012653 CON15B LDA TAX 31880 000053 06147 0312702 STA WARIM+18 31890 000053 06150 2606101 BRU T#049 31900 000053 06151 1732160 PRWAR STX INXSV 1 SAVE INDEX REGISTERS 35540 000053 06152 1752161 STX INXSV+1 2 35550 000053 06153 1772162 STX INXSV+2 3 35560 000053 06154 0012741 LDA WARIM+49 FIRST PART OF BRANCH NO 35570 000053 06155 2014161 EXT MASK1 ISOLATE LAST DIGIT 35580 000053 06156 0312043 STA PRT+3 35590 000053 06157 0312077 STA PRT+31 35600 000053 06160 0012742 LDA WARIM+50 SECOND PART 35610 000053 06161 0312044 STA PRT+4 35620 000053 06162 0312100 STA PRT+32 35630 000053 06163 0012743 LDA WARIM+51 DEPT NO 35640 000053 06164 0312102 STA PRT+34 35650 000053 06165 0012745 LDA WARIM+53 1ST DIGIT STAFF NO 35660 000053 06166 0312045 STA PRT+5 35670 000053 06167 0312105 STA PRT+37 35680 000053 06170 1012746 DLD WARIM+54 REST OF STAFFNO 35690 000053 06171 1312046 DST PRT+6 35700 000053 06172 1312106 DST PRT+38 35710 000053 06173 1012166 DLD DTPD DATE OF WARRANT 35720 000053 06174 0312051 STA PRT+9 35730 000053 06175 0312113 STA PRT+43 35740 000053 06176 2504005 XAQ 35750 000053 06177 0312052 STA PRT+10 35760 000053 06200 0312114 STA PRT+44 35770 000053 06201 0012643 LDA NOPD PAYNUMBER 35780 000053 06202 0312053 STA PRT+11 35790 000053 06203 2504040 CHS 35800 000053 06204 0312120 STA PRT+48 PAYNO WITH MINUS SIGN TO PRT+48 35810 000053 06205 0012701 LDA WARIM+17 TOTAL EARNINGS 35820 000053 06206 2504006 MAQ 35830 000053 06207 1307550 DST #AMT 35840 000053 06210 0727470 SPB TOLSD 1 35850 000053 06211 1007556 DLD #LSD+2 POUNDS IN BCD 35860 000053 06212 1312054 DST PRT+12 35870 000053 06213 1007560 DLD #LSD+4 S/D IN BCD 35880 000054 06214 1312056 DST PRT+14 35890 000054 06215 0012736 LDA WARIM+46 TOTAL DEDUCTIONS 35900 000054 06216 2504006 MAQ 35910 000054 06217 1307550 DST #AMT 35920 000054 06220 0727470 SPB TOLSD 1 35930 000054 06221 1007556 DLD #LSD+2 POUNDS 35940 000054 06222 1312060 DST PRT+16 35950 000054 06223 1007560 DLD #LSD+4 35960 000054 06224 1312062 DST PRT+18 35970 000054 06225 0012737 LDA WARIM+47 NET PAY 35980 000054 06226 2504006 MAQ 35990 000054 06227 1307550 DST #AMT 36000 000054 06230 0727470 SPB TOLSD 1 36010 000054 06231 1007556 DLD #LSD+2 36020 000054 06232 1312064 DST PRT+20 36030 000054 06233 1007560 DLD #LSD+4 36040 000054 06234 1312066 DST PRT+22 36050 000054 06235 2516620 BCS BPN 6 36060 000054 06236 2606235 BRU *-1 36070 000054 06237 2500620 SEL 6 36080 000054 06240 3613740 WFL FORM1 36090 000054 06241 0112040 WPL PRT PRINT LINE 8 OF WARRANT 36100 000054 06242 0766611 SPB STZE 3 SET PRT TO ZERO 36110 000054 06243 2516620 BCS BPN 6 36120 000054 06244 2606243 BRU *-1 36130 000054 06245 2500620 SEL 6 36140 000054 06246 0600000 SLW 3 36150 000054 06247 0300000 000054 06250 0012660 LDA WARIM 36160 000054 06251 2504006 MAQ 36170 000054 06252 1307550 DST #AMT 36180 000054 06253 0727470 SPB TOLSD 1 CONVERT SALARY 36190 000054 06254 1007556 DLD #LSD+2 AND STORE IT 36200 000054 06255 1312042 DST PRT+2 36210 000054 06256 1007560 DLD #LSD+4 36220 000054 06257 1312044 DST PRT+4 36230 000054 06260 1012674 DLD WARIM+12 OTIME HOURS 36240 000054 06261 1312046 DST PRT+6 36250 000054 06262 0012661 LDA WARIM+1 OVERTIME 36260 000054 06263 2514002 BZE IS IT ZERO 36270 000054 06264 2606274 BRU PRW085 THEN BRANCH TO PT SPEC DUTIES 36280 000054 06265 2504006 MAQ 36290 000054 06266 1307550 DST #AMT 36300 000054 06267 0727470 SPB TOLSD 1 36310 000054 06270 1007556 DLD #LSD+2 36320 000054 06271 1312050 DST PRT+8 36330 000054 06272 1007560 DLD #LSD+4 36340 000054 06273 1312052 DST PRT+10 36350 000054 06274 0012662 PRW085 LDA WARIM+2 SPEC DUTIES 36360 000054 06275 2514002 BZE 36370 000054 06276 2606310 BRU PRW098 36380 000054 06277 2504006 MAQ 36390 000054 06300 1307550 DST #AMT 36400 000054 06301 0727470 SPB TOLSD 1 36410 000055 06302 0007557 LDA #LSD+3 36420 000055 06303 0312054 STA PRT+12 STORE POUNDS 36430 000055 06304 0007560 LDA #LSD+4 36440 000055 06305 0312055 STA PRT+13 STORE SHILLINGS 36450 000055 06306 0007561 LDA #LSD+5 36460 000055 06307 0312056 STA PRT+14 STORE PENCE 36470 000055 06310 0012702 PRW098 LDA WARIM+18 STANDARD TAX 36480 000055 06311 2504006 MAQ 36490 000055 06312 1307550 DST #AMT 36500 000055 06313 0727470 SPB TOLSD 1 36510 000055 06314 0007557 LDA #LSD+3 36520 000055 06315 0312060 STA PRT+16 36530 000055 06316 0007560 LDA #LSD+4 36540 000055 06317 0312061 STA PRT+17 36550 000055 06320 0007561 LDA #LSD+5 36560 000055 06321 0312062 STA PRT+18 36570 000055 06322 0012703 LDA WARIM+19 SUPER 36580 000055 06323 2504006 MAQ 36590 000055 06324 1307550 DST #AMT 36600 000055 06325 0727470 SPB TOLSD 1 36610 000055 06326 0007557 LDA #LSD+3 36620 000055 06327 0312063 STA PRT+19 36630 000055 06330 1007560 DLD #LSD+4 36640 000055 06331 1312064 DST PRT+20 36650 000055 06332 0012704 LDA WARIM+20 TAX ON OVERTIME 36660 000055 06333 2514002 BZE 36670 000055 06334 2606346 BRU PRW130 IF ZERO SKIP TO PRW130 36680 000055 06335 2504006 MAQ 36690 000055 06336 1307550 DST #AMT 36700 000055 06337 0727470 SPB TOLSD 1 36710 000055 06340 0007557 LDA #LSD+3 36720 000055 06341 0312066 STA PRT+22 36730 000055 06342 0007560 LDA #LSD+4 36740 000055 06343 0312067 STA PRT+23 36750 000055 06344 0007561 LDA #LSD+5 36760 000055 06345 0312070 STA PRT+24 36770 000055 06346 0012772 PRW130 LDA FOURT 14 IN A 36780 000055 06347 2504522 NEG 36790 000055 06350 2504006 MAQ TWOS COMPLEMENT IN Q 36800 000055 06351 0012076 LDA PRT+30 36810 000055 06352 0006351 LDA *-1 36820 000055 06353 2410042 MOV WKG+4 NAME TO PRT 36830 000055 06354 0012737 LDA WARIM+47 36840 000055 06355 2504006 MAQ 36850 000055 06356 1307550 DST #AMT 36860 000055 06357 0727470 SPB TOLSD 1 36870 000055 06360 1007556 DLD #LSD+2 36880 000055 06361 1312120 DST PRT+48 36890 000055 06362 0007560 LDA #LSD+4 36900 000055 06363 0312122 STA PRT+50 36910 000055 06364 0007561 LDA #LSD+5 36920 000055 06365 2504040 CHS CHANGE SIGN TO MINUS 36930 000055 06366 0312123 STA PRT+51 36940 000055 06367 2516620 BCS BPN 6 36950 000056 06370 2606367 BRU *-1 36960 000056 06371 2500620 SEL 6 36970 000056 06372 3614021 WFL FORM2 36980 000056 06373 0112040 WPL PRT PRINT LINE 12 36990 000056 06374 0766611 SPB STZE 3 37000 000056 06375 2516620 BCS BPN 6 37010 000056 06376 2606375 BRU *-1 37020 000056 06377 2500620 SEL 6 37030 000056 06400 0600000 SLW 2 37040 000056 06401 0200000 000056 06402 0672754 PRW160 LDX ZERO 3 37050 000056 06403 0652754 LDX ZERO 2 37060 000056 06404 0072663 PRW162 LDA WARIM+3 3 LOAD ALLOWANCE 37070 000056 06405 2514002 BZE IF ZERO SKIP TO NEXT ACC 37080 000056 06406 2606420 BRU PRW173 37090 000056 06407 2504006 MAQ 37100 000056 06410 1307550 DST #AMT 37110 000056 06411 0727470 SPB TOLSD 1 CONVERT TO LSD 37120 000056 06412 0074274 LDA FLDN 3 FIELD NO 37130 000056 06413 0312041 STA PRT+1 37140 000056 06414 0007557 LDA #LSD+3 CONVERTED POUNDS 37150 000056 06415 0312043 STA PRT+3 37160 000056 06416 1007560 DLD #LSD+4 CONVERTED SHILLINGS AND PENCE 37170 000056 06417 1312044 DST PRT+4 37180 000056 06420 0072664 PRW173 LDA WARIM+4 3 2ND ALLOWANCE 000056 06421 2514002 BZE IF ZERO SKIP TO NEXT 37200 000056 06422 2606436 BRU PRW187 37210 000056 06423 2504006 MAQ 37220 000056 06424 1307550 DST #AMT 37230 000056 06425 0727470 SPB TOLSD 1 37240 000056 06426 0074275 LDA FLDN+1 3 37250 000056 06427 0312046 STA PRT+6 37260 000056 06430 0007557 LDA #LSD+3 37270 000056 06431 0312050 STA PRT+8 37280 000056 06432 0007560 LDA #LSD+4 37290 000056 06433 0312051 STA PRT+9 37300 000056 06434 0007561 LDA #LSD+5 37310 000056 06435 0312052 STA PRT+10 37320 000056 06436 0072665 PRW187 LDA WARIM+5 3 LAST ALLOWANCE ON PRINT LINE 37330 000056 06437 2514002 BZE IF ZERO SKIP TO DMUA 37340 000056 06440 2606452 BRU PRW199 37350 000056 06441 2504006 MAQ 37360 000056 06442 1307550 DST #AMT 37370 000056 06443 0727470 SPB TOLSD 1 37380 000056 06444 0074276 LDA FLDN+2 3 37390 000056 06445 0312053 STA PRT+11 37400 000056 06446 0007557 LDA #LSD+3 37410 000056 06447 0312055 STA PRT+13 37420 000056 06450 1007560 DLD #LSD+4 37430 000056 06451 1312056 DST PRT+14 37440 000056 06452 1460003 PRW199 INX 3 3 37450 000056 06453 0577767 BXH 9 3 000056 06454 2606560 BRU PRW266 37470 000056 06455 0052706 PRW202 LDA WARIM+222 LOAD FIRST D M U A ITEM CODE 37480 000057 06456 0214175 SUB ASTER 37490 000057 06457 2514002 BZE WAS PRECEDING DMUA THE LAST ONE 37500 000057 06460 2606544 BRU PRW254 37510 000057 06461 0052707 LDA WARIM+232 LOAD AMOUNT OF D M U A 37520 000057 06462 2504006 MAQ 37530 000057 06463 1307550 DST #AMT 37540 000057 06464 0727470 SPB TOLSD 1 CONVERT 37550 000057 06465 0052706 LDA WARIM+222 37560 000057 06466 0312061 STA PRT+17 ITEM CODE 37570 000057 06467 0007557 LDA #LSD+3 37580 000057 06470 0312063 STA PRT+19 AMOUNT 37590 000057 06471 1007560 DLD #LSD+4 37600 000057 06472 1312064 DST PRT+20 37610 000057 06473 0052710 LDA WARIM+242 NEXT D M U A 37620 000057 06474 0214175 SUB ASTER 37630 000057 06475 2514002 BZE 37640 000057 06476 2606550 BRU PRW258 37650 000057 06477 0052711 LDA WARIM+252 AMOUNT 37660 000057 06500 2504006 MAQ 37670 000057 06501 1307550 DST #AMT 37680 000057 06502 0727470 SPB TOLSD 1 CONVERT 37690 000057 06503 0052710 LDA WARIM+242 37700 000057 06504 0312067 STA PRT+23 37710 000057 06505 0007557 LDA #LSD+3 37720 000057 06506 0312071 STA PRT+25 37730 000057 06507 1007560 DLD #LSD+4 37740 000057 06510 1312072 DST PRT+26 37750 000057 06511 0052712 LDA WARIM+262 LAST DMUA TO GO ON PRINTLINE 37760 000057 06512 0214175 SUB ASTER WAS PRECEDING ONE THE LAST 37770 000057 06513 2514002 BZE 37780 000057 06514 2606554 BRU PRW262 37790 000057 06515 0052713 LDA WARIM+272 AMOUNT 37800 000057 06516 2504006 MAQ 37810 000057 06517 1307550 DST #AMT 37820 000057 06520 0727470 SPB TOLSD 1 CONVERT 37830 000057 06521 0052712 LDA WARIM+262 37840 000057 06522 0312075 STA PRT+29 37850 000057 06523 0007557 LDA #LSD+3 37860 000057 06524 0312077 STA PRT+31 37870 000057 06525 0007560 LDA #LSD+4 37880 000057 06526 0312100 STA PRT+32 37890 000057 06527 0007561 LDA #LSD+5 37900 000057 06530 2504040 CHS CHANGE SIGN OF LAST WORD TO BE PRINTED 37910 000057 06531 0312101 STA PRT+33 37920 000057 06532 1440006 INX 6 2 37930 000057 06533 2516620 PRW248 BCS BPN 6 37940 000057 06534 2606533 BRU *-1 37950 000057 06535 2500620 SEL 6 37960 000057 06536 3614105 WFL FORM3 37970 000057 06537 0112040 WPL PRT N PRINT LINE 15, 16, 17 OR 18 37980 000057 06540 0766611 SPB STZE 3 37990 000057 06541 0437767 BXL 9 1 38000 000057 06542 2606404 BRU PRW162 IF X LESS THAN 9 REPEAT 38010 000057 06543 2606575 BRU PRW279 IF X MORE THAN 7 PRINT BONUS AND FINAL DMUA,S38020 000058 06544 0012057 PRW254 LDA PRT+15 NO D M U A ON THIS LINE 38030 000058 06545 2504040 CHS SO CHANGE SIGN OF LAST ALLOWANCE TO MINUS 38040 000058 06546 0312057 STA PRT+15 38050 000058 06547 2606533 BRU PRW248 38060 000058 06550 0012065 PRW258 LDA PRT+21 ONLY ONE D M U A ON THIS LINE 38070 000058 06551 2504040 CHS 38080 000058 06552 0312065 STA PRT+21 38090 000058 06553 2606533 BRU PRW248 38100 000058 06554 0012073 PRW262 LDA PRT+27 ONLY TWO D M U A,S ON THIS LINE 38110 000058 06555 2504040 CHS 38120 000058 06556 0312073 STA PRT+27 38130 000058 06557 2606533 BRU PRW248 38140 000058 06560 0012705 PRW266 LDA WARIM+21 LAST LINE OF WARRANT - ONLY BONUS AND D M U A38150 000058 06561 2514002 BZE 38160 000058 06562 2606455 BRU PRW202 38170 000058 06563 2504006 MAQ 38180 000058 06564 1307550 DST #AMT 38190 000058 06565 0727470 SPB TOLSD 1 38200 000058 06566 0014222 LDA FIFON 51 38210 000058 06567 0312041 STA PRT+1 38220 000058 06570 0007557 LDA #LSD+3 38230 000058 06571 0312043 STA PRT+3 38240 000058 06572 1007560 DLD #LSD+4 38250 000058 06573 1312044 DST PRT+4 38260 000058 06574 2606455 BRU PRW202 38270 000058 06575 2516620 PRW279 BCS BPN 6 38280 000058 06576 2606575 BRU *-1 38290 000058 06577 2500620 SEL 6 38300 000058 06600 0600000 SLW 11 SLEW 11 LINES TO LINE 8 ON NEXT WARRANT 38310 000058 06601 1300000 000058 06602 0012154 LDA COUNT 38312 000058 06603 2504032 ADO ADD ONE TO NO OF WARRANTS ISSUED 38315 000058 06604 0312154 STA COUNT 38317 000058 06605 0632160 LDX INXSV 1 38320 000058 06606 0652161 LDX INXSV+1 2 38330 000058 06607 0672162 LDX INXSV+2 3 38340 000058 06610 2620001 BRU 1 1 38350 000058 06611 1772163 STZE STX INXSV+3 3 SET PRT TO ZERO 38360 000058 06612 0672754 LDX ZERO 3 38390 000058 06613 1014272 DLD BLANKS 38395 000058 06614 1372040 DST PRT 3 38400 000058 06615 1460002 INX 2 3 38410 000058 06616 0477713 BXL 53 3 38420 000058 06617 2606614 BRU *-3 38430 000058 06620 0672163 LDX INXSV+3 3 38440 000058 06621 2660001 BRU 1 3 38450 000058 06622 1010100 SCALE DLD WKG+34 LOAD DATE SCALE INC. DUE 39820 000058 06623 2212754 DCB ZERO TEST FOR ZERO 39840 000058 06624 2606626 BRU *+2 39850 000058 06625 2601412 BRU Z4 39860 000058 06626 0010077 LDA WKG+33 39870 000058 06627 2514002 BZE 39890 000058 06630 2601412 BRU Z4 BRANCH TO CONNECTOR Z4 PAGE 4 F.C. 39900 000058 06631 1012152 DLD PAYD PAYDAY IN A + Q 39910 000059 06632 2512201 SLD 1 39920 000059 06633 2510001 SRA 1 39930 000059 06634 2512206 SLD 6 39940 000059 06635 2014162 EXT MASK2 39950 000059 06636 0312644 STA MONTH NO OF PAY MONTH IN LOC MONTH 39960 000059 06637 0734630 SPB FLIP 1 39970 000059 06640 0012644 LDA MONTH 39980 000059 06641 0030003 ALF 303 39990 000059 06642 2607415 BRU WOLB1 40000 000059 06643 2504001 LAQ 40010 000059 06644 0312644 STA MONTH BINARY NO OF MONTH IN MONTH 40020 000059 06645 0010101 LDA WKG+35 2ND WORD DUE DAY 40030 000059 06646 2014162 EXT MASK2 ELIMINATE MONTH DIGIT 40040 000059 06647 0312164 STA DAYS DUE DAY AT DAYS 40050 000059 06650 0012153 LDA PAYD+1 2ND WORD PAYDAY 40060 000059 06651 2014162 EXT MASK2 40070 000059 06652 0312165 STA DAYS+1 PAYDAY AT DAYS+1 40080 000059 06653 0734630 SPB FLIP 1 40090 000059 06654 0012164 LDA DAYS 40100 000059 06655 0030003 ALF 303 40110 000059 06656 2601033 BRU G1 40120 000059 06657 2504001 LAQ 40130 000059 06660 0312164 STA DAYS BINARY DUE DAY AT DAYS 40140 000059 06661 0734630 SPB FLIP 1 40150 000059 06662 0012165 LDA DAYS+1 40160 000059 06663 0030003 ALF 303 40170 000059 06664 2607415 BRU WOLB1 40180 000059 06665 2504001 LAQ 40190 000059 06666 0312165 STA DAYS+1 BINARY PAYDAY AT DAYS+1 40200 000059 06667 1010100 DLD WKG+34 SCALE INC. DAY IN A AND Q 40210 000059 06670 2512201 SLD 1 40220 000059 06671 2510001 SRA 1 40230 000059 06672 2512206 SLD 6 40240 000059 06673 2014162 EXT MASK2 40250 000059 06674 0312640 STA SCDUE NO OF MONTH DUE DAY IN SCDUE 40260 000059 06675 0734630 SPB FLIP 1 CONVERT TO BINARY 40270 000059 06676 0012640 LDA SCDUE 40280 000059 06677 0030003 ALF 303 40290 000059 06700 2601033 BRU G1 40300 000059 06701 2504001 LAQ 40310 000059 06702 0312640 STA SCDUE STORE NO OF MONTH[BINARY] AT SCDUE 40320 000059 06703 0012644 LDA MONTH TAKE MONTH PAYDAY 40330 000059 06704 0212640 SUB SCDUE SUBT MONTH DUE DAY 40340 000059 06705 2514001 BMI 40350 000059 06706 2607110 BRU LATER 40360 000059 06707 2112756 CAB ONE 40370 000059 06710 2606715 BRU SMAL 40380 000059 06711 2607206 BRU EVEN 40390 000059 06712 0212770 SUB ELF SUBTRACT 11 40400 000059 06713 2516002 BNZ IS IT ZERO 40410 000059 06714 2601412 BRU Z4 NO BRANCH TO CONN. Z4 PAGE 4 40420 000059 06715 0012165 SMAL LDA DAYS+1 LOAD PAYDAY FROM DAYS+1 40430 000059 06716 0212164 SUB DAYS SUBTRACT DUE DAY 40440 000059 06717 0312646 STA P STORE DIFF. AT LOCATION P. 40450 000060 06720 2514001 BMI TEST FOR MINUS 40460 000060 06721 2607242 BRU MINUS 40470 000060 06722 0212772 SUB FOURT SUBTRACT 14 40480 000060 06723 2516001 BPL 40490 000060 06724 2601412 BRU Z4 40500 000060 06725 0010077 INC LDA WKG+33 SAL. SCALE CODE 40510 000060 06726 0312132 STA TEMPST 40511 000060 06727 0014151 LDA FLAG 40513 000060 06730 2312132 ORY TEMPST 40515 000060 06731 2506011 SET DECMODE 40517 000060 06732 0012132 LDA TEMPST 40520 000060 06733 2504032 ADO 40521 000060 06734 2506012 SET BINMODE 40522 000060 06735 0310077 STA WKG+33 40523 000060 06736 0734630 SPB FLIP 1 40524 000060 06737 0010077 LDA WKG+33 40525 000060 06740 0734630 SPB FLIP 1 40526 000060 06741 0010077 LDA WKG+33 40527 000060 U 06742 2600000 BRU BLOW3 40528 000060 BLOW3 undefined 06743 2504001 LAQ 40529 000060 06744 0300001 STA 1 STORE AT INDEX REG ONE 40530 000060 06745 0033605 LDA SALTA 1 PICK UP NEW SALARY 40540 000060 06746 0312637 STA NEWSAL 40550 000060 06747 2516002 BNZ CHECK WHETHER HIGHEST STEP 40570 000060 06750 2606763 BRU TTOPX BRANCH TO SUBR. TTOPX 40580 000060 06751 0010106 LDA WKG+40 40590 000060 06752 2504006 MAQ 40600 000060 06753 1110104 DAD WKG+38 ADD SAL. + MERIT INCREASES 40610 000060 06754 1310104 DST WKG+38 STORE AT MASTER REC. FIELD 38 40620 000060 06755 1012754 DLD ZERO 40630 000060 06756 0310077 STA WKG+33 40640 000060 06757 1310100 DST WKG+34 40650 000060 06760 2504002 LDZ 40660 000060 06761 0310106 STA WKG+40 40670 000060 06762 2601412 BRU Z4 40680 000060 06763 0010106 TTOPX LDA WKG+40 40690 000060 06764 0110107 ADD WKG+41 40700 000060 06765 2504006 MAQ 40710 000060 06766 1110104 DAD WKG+38 40720 000060 06767 1312172 DST SALRY 40730 000060 06770 0010072 LDA WKG+28 40760 000060 06771 2510006 SRA 6 40770 000060 06772 2014161 EXT MASK1 40780 000060 06773 2504112 SBO 40790 000060 06774 2514002 BZE TEST WHETHER MALE OR FEMALE 40800 000060 06775 2607002 BRU MALE STAFF MEMBER MALE 40810 000060 06776 0013713 LDA SALTA+70 ADD L 100 40820 000060 06777 0113034 ADD EXCESS 40830 000060 07000 0312636 STA TOP 40840 000060 07001 2607005 BRU COMMON 40850 000060 07002 0013627 MALE LDA SALTA+18 40860 000060 07003 0113034 ADD EXCESS 40870 000060 07004 0312636 STA TOP 40880 000060 07005 0012172 COMMON LDA SALRY TAKE TOTAL SAL. + SP. ALLCE 40900 000061 07006 0212636 SUB TOP DEDUCT TOP OF SCALE + 100 40910 000061 07007 2514001 BMI TEST 40930 000061 07010 2607023 BRU RAISE INCREASE OK 40940 000061 07011 0727573 SPB SR#1 1 STD. INFO TO REP. TAPE 40950 000061 07012 0014203 LDA SYM3 40960 000061 07013 0312000 STA REPIM+18 SYMBOL NSI TO REPORT 40970 000061 07014 0014211 LDA AUD1 40980 000061 07015 0312025 STA REPIM+39 SYMBOL 012 TO REPORT 40990 000061 07016 0012752 LDA WARIM+58 40993 000061 07017 0312024 STA REPIM+38 40996 000061 07020 0720720 SPB REPORT 1 WRITE REPORT - NO SCALE INCREASE 41000 000061 07021 0727650 SPB SR#4 1 41001 000061 07022 2601412 BRU Z4 BRANCH TO CONNECTOR Z4 41010 000061 07023 0012637 RAISE LDA NEWSAL 41020 000061 07024 2504006 MAQ 41030 000061 07025 1312022 DST REPIM+36 WRITE NEW SALARY ON REPORT 41040 000061 07026 1210104 DSU WKG+38 41050 000061 07027 2504005 XAQ 41060 000061 07030 0312635 STA DIFF 41070 000061 07031 0012646 LDA P LOAD P [ NO OF DAYS NEW SAL.] 41080 000061 07032 2504032 ADO ADD ONE 41090 000061 07033 0312645 STA P2 STORE AT P2 41100 000061 07034 2112762 CAB FIVE COMPARE WITH 5 41110 000061 07035 2607054 BRU CONTIN SMALLER - LEAVE P2 UNCHANGED 41120 000061 07036 2607052 BRU FOP EQUAL 41130 000061 07037 2112771 CAB TWELVE LARGER - COMPARE WITH 12 41140 000061 07040 2607045 BRU *+5 SMALLER 41150 000061 07041 2607050 BRU *+7 EQUAL 41160 000061 07042 0212761 SUB FOUR LARGER - SUBTRACT 4 [2 WEEKENDS] 41170 000061 07043 0312645 STA P2 STORE BACK AT P2 41180 000061 07044 2607054 BRU CONTIN 41190 000061 07045 0212757 SUB TWO SMALLER - SUBTRACT 2 [1 WEEKEND] 41200 000061 07046 0312645 STA P2 41210 000061 07047 2607054 BRU CONTIN 41220 000061 07050 0212760 SUB THREE EQUAL - SUBTRACT 3 [1 WEEKEND + 1 SUNDAY] 41230 000061 07051 2607046 BRU *-3 41240 000061 07052 0012761 FOP LDA FOUR REPLACE P2 WITH 4 41250 000061 07053 0312645 STA P2 41260 000061 07054 2504006 CONTIN MAQ P2 TO Q REG 41270 000061 07055 1512635 MPY DIFF MULTIPLY BY DIFF IN SAL. 41280 000061 07056 1613026 DVD TWSX1 DIVIDE BY 261 41290 000061 07057 0312634 STA INCREM STORE 41300 000061 07060 0010073 LDA WKG+29 41310 000061 07061 2516002 BNZ CHECK PAYMENT CODE 41320 000061 07062 2607067 BRU WRITE NOT ZERO DONT ADD TO WARRANT 41330 000061 07063 0012634 LDA INCREM 41340 000061 07064 0312554 STA ACUM+12 ADD TO ACCUM. FOR NET INCR. P/ITEM 41350 000061 07065 0112660 ADD WARIM FIELD 0 OF WARRANT IMAGE 41360 000061 07066 0312660 STA WARIM 41370 000061 07067 1010104 WRITE DLD WKG+38 LOAD OLD SALARY 41380 000061 07070 1312004 DST REPIM+22 TO REPIM 41390 000061 07071 0012637 LDA NEWSAL LOAD NEW SALARY 41400 000061 07072 2504006 MAQ 41410 000061 07073 1310104 DST WKG+38 TO MASTER RECORD 41420 000062 07074 1312022 DST REPIM+36 TO REPORT 41430 000062 07075 0012645 LDA P2 LOAD NO OF DAYS 41440 000062 07076 0312002 STA REPIM+20 TO REPORT 41450 000062 07077 0014202 LDA SYM1 LOAD SYMBOL - SI 41460 000062 07100 0312000 STA REPIM+18 TO REPORT 41470 000062 07101 0012752 LDA WARIM+58 41473 000062 07102 0312024 STA REPIM+38 41476 000062 07103 0014211 LDA AUD1 41480 000062 07104 0312025 STA REPIM+39 REPORT TYPE SYMBOL [012] 41490 000062 07105 0720720 SPB REPORT 1 WRITE REPORT RECORD 41500 000062 07106 0727650 SPB SR#4 1 CLEAR REPIM 41510 000062 07107 2607251 BRU MAJOR BRANCH TO MAJOR - PAGE 32 FC 41520 000062 07110 2504032 LATER ADO ADD ONE 41530 000062 07111 2514002 BZE WAS DIFF BETWEEN MONTHS -1 41540 000062 07112 2607117 BRU FOREC YES - BRANCH TO FOREC 41550 000062 07113 0112767 ADD TEN NO - 41560 000062 07114 2516002 BNZ WAS IT -10 41570 000062 07115 2601412 BRU Z4 NO - BRANCH TO Z4-PAGE 4FC 41580 000062 07116 2607230 BRU EQU2 YES - BRANCH TO EQU2 - PAGE 31 FC 41590 000062 07117 0012644 FOREC LDA MONTH PICK UP NO OF MONTH PAYDAY [BINARY 41600 000062 07120 0212757 SUB TWO 41610 000062 07121 2516002 BNZ TEST WHETHER FEBRUARY 41620 000062 07122 2607142 BRU Q30 NO - BRANCH TO CONN. Q30- PAGE 30 FC. 41630 000062 07123 0012152 LDA PAYD YES - TAKE PAYDAY 41640 000062 07124 2510006 SRA 6 ELIMINATE MONTH 41650 000062 07125 2014162 EXT MASK2 41660 000062 07126 0312132 STA TEMPST 41670 000062 07127 0734630 SPB FLIP 1 41680 000062 07130 0012132 LDA TEMPST 41690 000062 07131 0030003 ALF 303 41700 000062 07132 2607415 BRU WOLB1 41710 000062 07133 1612761 DVD FOUR BINARY EQUIV. [IN A + Q ] DIVIDED BY 4 41720 000062 07134 2504001 LAQ 41730 000062 07135 2516002 BNZ TEST FOR LEAPYEAR 41740 000062 07136 2607142 BRU Q30 NO - TO Q30 41750 000062 07137 0012164 LDA DAYS YES - TAKE NO OF DUE DAY 41760 000062 07140 0113044 ADD DAYNO 41770 000062 07141 2607147 BRU SC#198 41780 000062 07142 0012644 Q30 LDA MONTH NO OF MONTH 41790 000062 07143 0300001 STA 1 TO INDEX 1 41800 000062 07144 0033044 LDA DAYNO 1 NO OF DAYS IN MONTH IN A 41810 000062 07145 0112164 ADD DAYS ADD NO OF DUEDAY 41820 000062 07146 0312633 STA STORE 41820 000062 07147 0212165 SC#198 SUB DAYS+1 SUBTRACT PAYDAY 41830 000062 07150 0212772 SUB FOURT SUBTRACT 14 41840 000062 07151 2514001 BMI TEST WHETHER IN NEXT 14 DAYS 41850 000062 07152 2601412 BRU Z4 YES - TO Z4 41860 000062 07153 0212772 SUB FOURT NO - SUBTRACT 14 41870 000062 07154 2516001 BPL TEST WHETHER BETWEEN 2 AND 4 WEEKS 41880 000062 07155 2601412 BRU Z4 NO 41890 000062 07156 0727573 SC#205 SPB SR#1 1 YES - STANDARD INFO TO REPORT IM 41900 000062 07157 1010104 DLD WKG+38 41910 000062 07160 1312000 DST REPIM+18 PRESENT SALARY TO REPORT 41920 000062 07161 0010106 LDA WKG+40 41930 000063 07162 0312002 STA REPIM+20 EXCESS OF SCALE TO REPORT 41940 000063 07163 0734630 SPB FLIP 1 FLIP SALARY SCALE CODE 41950 000063 07164 0010077 LDA WKG+33 41960 000063 07165 0030003 ALF 303 41970 000063 07166 2601033 BRU G1 41980 000063 07167 2504001 LAQ INTO A REG. 41990 000063 07170 2504032 ADO ADD ONE 42000 000063 07171 0300002 STA 2 STORE AT INDEX 2 42010 000063 07172 0053605 LDA SALTA 2 42020 000063 07173 2504006 MAQ 42030 000063 07174 1312004 DST REPIM+22 TO REPORT 42040 000063 07175 1010100 DLD WKG+34 42050 000063 07176 1312006 DST REPIM+24 DATE APPICABLE TO REPORT 42060 000063 Should be: APPLICABLE 07177 0014216 LDA SYM18 LOAD BCD 018 42070 000063 07200 0312025 STA REPIM+39 42080 000063 07201 0012752 LDA WARIM+58 42083 000063 07202 0312024 STA REPIM+38 42086 000063 07203 0720720 SPB REPORT 1 WRITE REPORT 42090 000063 07204 0727650 SPB SR#4 1 CLEAR REPIM 42100 000063 07205 2601412 BRU Z4 42110 000063 07206 0012640 EVEN LDA SCDUE DUE DAY IN LAST MONTH 42120 000063 07207 0212757 SUB TWO 42130 000063 07210 2516002 BNZ 42140 000063 07211 2607230 BRU EQU2 42150 000063 07212 0012152 LDA PAYD 42160 000063 07213 2510006 SRA 6 42170 000063 07214 2014162 EXT MASK2 NO OF YEAR IN A 42180 000063 07215 0312132 STA TEMPST 42190 000063 07216 0734630 SPB FLIP 1 CONVERT TO BINARY 42200 000063 07217 0012132 LDA TEMPST 42210 000063 07220 0030003 ALF 303 42220 000063 U 07221 2600000 BRU BLOWP 42230 000063 BLOWP undefined 07222 1612761 DVD FOUR 42240 000063 07223 2504001 LAQ 42250 000063 07224 2516002 BNZ TEST FOR LEAPYEAR 42260 000063 07225 2607230 BRU EQU2 42270 000063 07226 0013044 LDA DAYNO 42280 000063 07227 2607233 BRU ADDDA 42290 000063 07230 0012640 EQU2 LDA SCDUE NO OF MONTH - DUE DAY IN A 42300 000063 07231 0300001 STA 1 STORE AT INDEX 1 42310 000063 07232 0033044 LDA DAYNO 1 PICK UP [DAYNO + NO OF MONTH-DUE DAY] 42320 000063 07233 0112165 ADDDA ADD DAYS+1 ADD NO OF PAYDAY 42330 000063 07234 0212164 SUB DAYS NO OF DUE DATE IS SUBTRACTED 42340 000063 07235 0312646 STA P NO OF DAYS - DUE DAY TO PAYDAY 42350 000063 07236 0212772 SUB FOURT 42360 000063 07237 2514001 BMI IS IT NEGATIVE 42370 000063 07240 2606725 BRU INC 42380 000063 07241 2601412 BRU Z4 42390 000063 07242 0112772 MINUS ADD FOURT 42400 000063 07243 2516001 BPL 42410 000063 07244 2601412 BRU Z4 42420 000063 07245 0112772 ADD FOURT 42430 000063 07246 2514001 BMI 42440 000063 07247 2601412 BRU Z4 42450 000064 07250 2607156 BRU SC#205 BRANCH TO WRITE REPORT ON SCALE INC 42460 000064 07251 0010072 MAJOR LDA WKG+28 42470 000064 07252 2510006 SRA 6 SEX CODE RIGHT JUSTIFIED 42480 000064 07253 2014161 EXT MASK1 42490 000064 07254 2504112 SBO SUBTRACT ONE 42500 000064 07255 2516002 BNZ 42510 000064 07256 2601412 BRU Z4 42520 000064 07257 0734630 SPB FLIP 1 42530 000064 07260 0010077 LDA WKG+33 42540 000064 07261 0030003 ALF 303 42550 000064 U 07262 2600000 BRU BLOW3 42560 000064 BLOW3 undefined 07263 2504001 LAQ 42570 000064 07264 0312132 STA TEMPST 42580 000064 07265 0212775 SUB NITEEN SUBTRACT 19 42590 000064 07266 2514001 BMI TEST WHETHER 119 42600 000064 07267 2607273 BRU 32A BRANCH TO 32 A PAGE 32 FC. 42610 000064 07270 0012132 LDA TEMPST 42620 000064 07271 0213003 SUB CON30 SUBTRACT 30 42630 000064 07272 2607274 BRU TEST6 42640 000064 07273 0012132 32A LDA TEMPST 42650 000064 07274 0212763 TEST6 SUB SIX SUBTRACT 6 42670 000064 07275 2516001 BPL TEST FOR PLUS 42680 000064 07276 2601412 BRU Z4 42690 000064 07277 2506011 SET DECMODE 42700 000064 07300 1010060 DLD WKG+18 BIRTHDAY 42710 000064 07301 1312132 DST TEMPST 42720 000064 07302 1014200 DLD 21YR 21 YEARS 42730 000064 07303 1312134 DST TEMPST+2 42740 000064 07304 1010100 DLD WKG+34 DUE DAY 42750 000064 07305 1312136 DST TEMPST+4 42760 000064 07306 1012152 DLD PAYD PAYDAY 42770 000064 07307 1312140 DST TEMPST+6 42780 000064 07310 0014151 LDA FLAG 42790 000064 07311 2312132 ORY TEMPST 42800 000064 07312 2312134 ORY TEMPST+2 42810 000064 07313 2312136 ORY TEMPST+4 42820 000064 07314 2312140 ORY TEMPST+6 42830 000064 07315 1012132 DLD TEMPST LOAD BIRTHDAY 42840 000064 07316 1112134 DAD TEMPST+2 ADD 21 YEARS 42850 000064 07317 1312144 DST ADULT 21ST BIRTHDAY AT ADULT 42860 000064 07320 2504002 LDZ 42870 000064 07321 2504006 MAQ SET Q TO ZERO 42880 000064 07322 0012152 LDA PAYD PAYDAY IN A 42890 000064 07323 2510006 SRA 6 ELIMINATE MONTH DIGIT 42900 000064 07324 2014162 EXT MASK2 42910 000064 07325 2512006 SLA 6 42920 000064 07326 1312146 DST YEAR STORE YEAR OF PAYDAY 42930 000064 07327 0014151 LDA FLAG 42940 000064 07330 2312146 ORY YEAR 42950 000064 07331 1012136 DLD TEMPST+4 LOAD DUE DATE 42960 000064 07332 1112146 DAD YEAR ADD YEAR OF PAYDAY 42970 000064 07333 1312150 DST DATUM STORE DATE OF CURRENT YEARS BIRTHDAY 42980 000064 07334 1212152 DSU PAYD SUBTRACT PAYDAY 42990 000064 07335 2516001 BPL TEST WHETHER BIRTHDAY HAS PASSED 43000 000065 07336 2607342 BRU *+4 43010 000065 07337 1012150 DLD DATUM LOAD BIRTHDAY 43020 000065 07340 0114150 ADD TENT ADD 1 TO YEAR DIGIT 000065 07341 1312150 DST DATUM NEXT YEARS BIRTHDAY NOW AT DATUM 43040 000065 07342 1212144 DSU ADULT SUBTRACT 21ST BIRTHDAY 43050 000065 07343 2506012 SET BINMODE 43060 000065 07344 2516001 BPL 43070 000065 07345 2601412 BRU Z4 NEXT BIRTHDAY NOT 21ST 43080 000065 07346 1010060 DLD WKG+18 TAKE BIRTHDAY 43090 000065 07347 2014161 EXT MASK1 ELIMINATE YEAR DIGITS 43100 000065 07350 1310100 DST WKG+34 43110 000065 07351 2504022 LDO SET LAST DIGIT OF SALARY SCALE CODE TO 5 IF 43113 000065 07352 2310077 ORY WKG+33 IT IS NOT 5 ALREADY 43116 000065 07353 2601412 BRU Z4 43120 000065 07354 2504022 CONA7 LDO 000065 07355 0112622 ADD SWRES 000065 07356 0312622 STA SWRES 000065 07357 2504112 SBO 000065 07360 0112657 ADD PAYNO 000065 07361 2603407 BRU T#270+2 UPDATE ALL TOTALS 000065 07362 0726151 CONP7 SPB PRWAR 1 PRINT WARRANT 000065 07363 0012660 LDA WARIM 000065 07364 2504006 MAQ 000065 07365 1112554 DAD ACUM+12 ADD TO INCREASES 000065 07366 1312554 DST ACUM+12 000065 07367 0632754 LDX ZERO 1 000065 07370 0652754 LDX ZERO 2 000065 07371 0032663 LDA WARIM+3 1 000065 07372 2504006 MAQ 000065 07373 1152556 DAD ACUM+14 2 000065 07374 1352556 DST ACUM+14 2 000065 07375 1420001 INX 1 1 000065 07376 1440002 INX 2 2 000065 07377 0437767 BXL 9 1 000065 07400 2607371 BRU *-7 000065 07401 2504002 LDZ 000065 07402 0300001 STA 1 000065 07403 2504006 MAQ 000065 07404 1332660 DST WARIM 1 ZEROFILL WARIM 0 - 48 000065 07405 1420002 INX 2 1 000065 07406 0437720 BXL 48 1 000065 07407 2607404 BRU *-3 000065 07410 0727660 SPB STDPY 1 000065 07411 0012132 LDA TEMPST BINARY NO OF DAYS 000065 07412 0212767 SUB TEN 000065 07413 0312132 STA TEMPST 000065 07414 2601555 BRU M#400 000065 07415 0737455 WOLB1 SPB TYPE+2 1 000065 07416 0014524 LDA FLMES1 000065 07417 3777776 DEC -2 000065 07420 0737411 SPB HLTLP 1 000065 07421 2600751 BRU GO 000065 07422 1012552 BLOW6 DLD ACUM+10 000065 07423 1212036 DSU VARIAN+6 000066 07424 1312552 DST ACUM+10 000066 07425 2607426 BRU WOLB2 000066 07426 0727573 WOLB2 SPB SR#1 1 000066 07427 0014165 LDA SYM20 SYMBOL -INV- 000066 07430 0312000 STA REPIM+18 000066 07431 2604451 BRU UNLOC+6 000066 07432 0014164 NOALT LDA NCH 000066 07433 0312000 STA REPIM+18 000066 07434 0012035 LDA VARIAN+5 TRANCODE 000066 07435 0312001 STA REPIM+19 000066 07436 1012140 DLD TEMPST+6 VARIATION OPERAND 000066 07437 1312010 DST REPIM+26 TO REPIM 000066 07440 1112546 DAD ACUM+6 AND ADD TO VARIATIONS NOT DONE 000066 07441 1312546 DST ACUM+6 000066 07442 2602265 BRU M#777 000066 07443 0010073 C201E LDA WKG+29 PAYMENT CODE 000066 07444 2510014 SRA 12 000066 07445 2014162 EXT MASK2 000066 07446 0212757 SUB TWO 000066 07447 2514002 BZE 000066 07450 2607462 BRU C201F 000066 07451 0632754 LDX ZERO 1 000066 07452 0010073 LDA WKG+29 000066 07453 0234265 SUB PACO 1 000066 07454 2514002 BZE 000066 07455 2607462 BRU C201F 000066 07456 1420001 INX 1 1 000066 07457 0437775 BXL 3 1 000066 07460 2607452 BRU *-6 000066 07461 2604234 BRU C201B 000066 07462 0010144 C201F LDA WKG+70 000066 07463 2514001 BMI 000066 07464 2604234 BRU C201B 000066 07465 0730010 SPB SR#7 1 000066 07466 0727660 SPY SPB STDPY 1 43720 000066 07467 2601230 BRU C 43730 000066 REM SUBROUTINE TO CONVERT A SINGLE OR DOUBLE 000066 REM PRECISION WORD IN BINARY PENCE TO L.S.D. 000066 REM FOR SINGLE PRECISION CALLING SEQUENCE IS - 000066 REM LOAD A WITH CONTENTS OF WORD 000066 REM MOVE TO Q REGISTER 000066 REM DOUBLE STORE IN SYMBOLIC LOC #AMT 000066 REM SPB TOLSD,1 000066 REM FOR DOUBLE PRECISION CALLING SEQUENCE IS - 000066 REM DOUBLE LOAD CONTENTS OF WORD 000066 REM DOUBLE STORE IN SYMBOLIC LOC #AMT 000066 REM SPB TOLSD,1 000066 REM ANSWER WILL BE IN THE FOLLOWING LOCATIONS - 000066 REM POUNDS IN SYMBOLIC #LSD THRU #LSD+3 000066 REM SHILLINGS IN SYMBOLIC LOC #LSD+4 000066 REM PENCE IN SYMBOLIC LOC #LSD+5 000066 07470 1727563 TOLSD STX #SAVE 1 SAVE INDEX REGISTERS 1,2, AND 3 000066 07471 1747564 STX #SAVE+1 2 000066 07472 1767565 STX #SAVE+2 3 000067 07473 0007550 LDA #AMT LOCATION OF BINARY PENCE TO BE CONVERTED 000067 07474 2504006 MAQ 000067 07475 1607567 DVD #D240 FIRST HALF OF WORD 000067 07476 1307552 DST #RES 000067 07477 0007551 LDA #AMT+1 LOAD SECOND HALF OF WORD 000067 07500 2504006 MAQ MOVE TO Q REGISTER 000067 07501 0007553 LDA #RES+1 LOAD REMAINDER OF FIRST DIVISION 000067 07502 1607567 DVD #D240 000067 07503 0307553 STA #RES+1 POUNDS IN LOCATIONS #RES AND #RES+1 000067 07504 0007566 LDA #ZERO CLEAR A REGISTER 000067 07505 1607570 DVD #D12 GIVES SHILLINGS IN A REG AND PENCE IN Q REG 000067 07506 0307560 STA #LSD+4 STORE IN LOCATION #LSD+4 SHILLINGS IN BINARY 000067 07507 0007566 LDA #ZERO CLEAR A REGISTER 000067 07510 0735425 SPB FLOP 1 PENCE - CONVERT TO BCD 000067 07511 0012131 LDA BINWA+3 000067 07512 2511006 SRD 6 SHIFT LAST CHARACTER OF PENCE TO Q REG 000067 07513 2514002 BZE TEST FOR ZERO 000067 07514 2607517 BRU *+3 YES - NO TENS OF PENCE GO LOAD 0.SPACE 000067 07515 0007572 LDA #YTENS NO - THERE ARE TENS OF PENCE LOAD 0.1 000067 07516 2607520 BRU *+2 000067 07517 0007571 LDA #NTENS LOAD 0.SPACE 000067 07520 2512206 SLD 6 BRING LAST CHARACTER BACK INTO A REG 000067 07521 0307561 STA #LSD+5 STORE IN LOCATION #LSD+5 PENCE IN BCD 000067 07522 0007560 LDA #LSD+4 SHILLINGS IN BINARY 000067 07523 2504006 MAQ MOVE TO Q REGISTER 000067 07524 0735425 SPB FLOP 1 CONVERT TO BCD 000067 07525 0012131 LDA BINWA+3 000067 07526 2511006 SRD 6 SHIFT LAST CHARACTER OF SHILLINGS TO Q REG 000067 07527 2514002 BZE TEST FOR ZERO 000067 07530 2607533 BRU *+3 YES - NO TENS OF SHILLINGS GO LOAD 0.SPACE 000067 07531 0007572 LDA #YTENS NO - THERE ARE TENS OF SHILLINGS LOAD 0.1 000067 07532 2607534 BRU *+2 000067 07533 0007571 LDA #NTENS LOAD 0.SPACE 000067 07534 2512206 SLD 6 BRING LAST CHARACTER BACK INTO A REG 000067 07535 0307560 STA #LSD+4 STORE IN LOCATION #LSD+4 SHILLINGS IN BCD 000067 07536 1007552 DLD #RES POUNDS IN BINARY 000067 07537 0735425 SPB FLOP 1 CONVERT TO BCD 000067 07540 1012126 DLD BINWA 000067 07541 1307554 DST #LSD STORE FIRST TWO WORDS IN LOCATION #LSD 000067 07542 1012130 DLD BINWA+2 000067 07543 1307556 DST #LSD+2 STORE LAST TWO WORDS IN LOCATION #LSD+2 000067 07544 0627563 LDX #SAVE 1 RESTORE INDEX REGISTERS 000067 07545 0647564 LDX #SAVE+1 2 000067 07546 0667565 LDX #SAVE+2 3 000067 07547 2620001 BRU 1 1 RETURN 000067 07550 #AMT BSS 2 AMOUNT IN BINARY PENCE TO BE CONVERTED 000067 07552 #RES BSS 2 RESULT OF DIVISION - POUNDS IN BINARY PENCE 000067 07554 #LSD BSS 7 POUNDS,SHILLINGS AND PENCE IN BCD 000067 07563 #SAVE BSS 3 SAVING OF INDEX REGISTERS 1,2 AND 3 000067 07566 0000000 #ZERO DEC 0 000067 07567 0000360 #D240 DEC 240 000067 07570 0000014 #D12 DEC 12 000067 07571 0003360 #NTENS OCT 0003360 000067 07572 0003301 #YTENS OCT 0003301 000068 07573 2504002 SR#1 LDZ 30210 000068 07574 0212774 SUB EITEEN 30020 000068 07575 2504006 MAQ 30030 000068 07576 0011756 LDA REPIM 30040 000068 07577 0007576 LDA *-1 30050 000068 07600 2410036 MOV WKG 30060 000068 07601 2620001 BRU 1 1 30070 000068 07602 0013007 SR#3 LDA THR7 37 IN A 30240 000068 07603 2504522 NEG 30250 000068 07604 2504006 MAQ TWO S COMPLEMENT OF 37 IN Q 30260 000068 07605 0011756 LDA REPIM 30270 000068 07606 0007605 LDA *-1 30280 000068 07607 2410036 MOV WKG MOVE 37 WORDS TO REPORT [FIELDS 0-36] 30290 000068 07610 0012752 LDA WARIM+58 30300 000068 07611 0312024 STA REPIM+38 30310 000068 07612 0014213 LDA REP2 30320 000068 07613 0312025 STA REPIM+39 30330 000068 07614 0720720 SPB REPORT 1 WRITE FIRST RECORD OF REPORT 30340 000068 07615 0727650 SPB SR#4 1 30350 000068 07616 0013006 LDA THR3 33 IN A 30360 000068 07617 2504522 NEG 30370 000068 07620 2504006 MAQ 30380 000068 07621 0011756 LDA REPIM 30390 000068 07622 0007621 LDA *-1 30400 000068 07623 2410104 MOV WKG+38 NEXT 33 WORDS TO REPORT 30410 000068 07624 0010103 LDA WKG+37 CURRENT VALUE OF QUARTERS 30420 000068 07625 0312017 STA REPIM+33 30430 000068 07626 0014247 LDA REP3 SYMBOL 30440 000068 07627 2504006 MAQ 30450 000068 07630 0012752 LDA WARIM+58 30460 000068 07631 1312024 DST REPIM+38 30470 000068 07632 0720720 SPB REPORT 1 WRITE 2ND RECORD OF REPORT 30520 000068 07633 0727650 SPB SR#4 1 30530 000068 07634 0013000 LDA TWOFO 24 IN A 30540 000068 07635 2504522 NEG 30550 000068 07636 2504006 MAQ 30560 000068 07637 0011756 LDA REPIM 30570 000068 07640 2410146 MOV WKG+72 30580 000068 07641 0014255 LDA REP4 30590 000068 07642 2504006 MAQ SYMBOL TO Q 30600 000068 07643 0012752 LDA WARIM+58 CONTROL KEY IN A 30610 000068 07644 1312024 DST REPIM+38 BOTH TO REPIM 30620 000068 07645 0720720 SPB REPORT 1 WRITE 3RD RECORD OF REPORT 30630 000068 07646 0727573 SPB SR#1 1 30640 000068 07647 2640001 BRU 1 2 BACK TO MAIN PROGRAMME 30650 000068 07650 2504002 SR#4 LDZ 30660 000068 07651 2504006 MAQ 30670 000068 07652 0300001 STA 1 30680 000068 07653 1331756 DST REPIM 1 30690 000068 07654 1420002 INX 2 1 30700 000068 07655 0437730 BXL 40 1 30710 000068 07656 2607653 BRU *-3 30720 000068 07657 2620001 BRU 1 1 30730 000068 07660 1732160 STDPY STX INXSV 1 SAVE INDEX REGISTERS 30740 000069 07661 1752161 STX INXSV+1 2 30750 000069 07662 1772162 STX INXSV+2 3 30760 000069 07663 0012767 LDA TEN 30770 000069 07664 0312641 STA FRACT STORE 10 AT FRACT [NO OF DAYS IN FORTNIGHT] 30780 000069 07665 0010106 SU503 LDA WKG+40 30790 000069 07666 2504006 MAQ 30800 000069 07667 1110104 DAD WKG+38 ADD FIELDS 38 AND 40 30810 000069 07670 0312132 STA TEMPST STORE THE HIGH ORDER PORTION ATTEMPST 30820 000069 Should be: AT TEMPST 07671 2504002 LDZ A REGISTER ZEROED 30830 000069 07672 1512641 MPY FRACT MULTIPLY BY NO OF DAYS 30840 000069 07673 1312134 DST TEMPST+2 30850 000069 07674 0012132 LDA TEMPST LOAD HIGH ORDER PORTION OF SALARY 30860 000069 07675 2504006 MAQ 30870 000069 07676 1512641 MPY FRACT MULTIPLY 30880 000069 07677 0013022 LDA ONTHIR LOAD ROUNDING FACTOR 30890 000069 07700 2504005 XAQ MOVE PRODUCT BACK TO A REGISTER 30900 000069 07701 1112134 DAD TEMPST+2 ADD PRODUCT OF LOW ORDER PORTION 30910 000069 07702 1613026 DVD TWSX1 DIVIDE BY 261 30920 000069 07703 0312660 STA WARIM 30930 000069 07704 2504002 LDZ 30940 000069 07705 0300002 STA 2 INDEX 2 ZEROED 30950 000069 07706 0050107 SU527 LDA WKG+41 2 LOAD PER ANNUM AMOUNT OF ALLOWANCE 30960 000069 07707 2514002 BZE IS IT ZERO 30970 000069 07710 2607720 BRU SU541 30980 000069 07711 2504006 MAQ 30990 000069 07712 1512641 MPY FRACT MULTIPLY BY NO OF DAYS 31000 000069 07713 2504005 XAQ 31010 000069 07714 0113022 ADD ONTHIR ADD ROUNDING FACTOR 130 TO LOW ORDER PORTION 31020 000069 07715 2504005 XAQ 31030 000069 07716 1613026 DVD TWSX1 DIVIDE BY 261 31040 000069 07717 0352663 STA WARIM+3 2 31050 000069 07720 1440001 SU541 INX 1 2 31060 000069 07721 0457767 BXL 9 2 31070 000069 07722 2607706 BRU SU527 31080 000069 07723 2607730 BRU SU558-2 31085 000069 07724 1732160 NE STX INXSV 1 31090 000069 07725 1752161 STX INXSV+1 2 31100 000069 07726 1772162 STX INXSV+2 3 31110 000069 07727 2607746 BRU NEON 31120 000069 07730 2504002 LDZ 31130 000069 07731 0300002 STA 2 31140 000069 07732 2506011 SU558 SET DECMODE 31150 000069 07733 0014152 LDA FLSTR FLAGGED ASTERISKS 31160 000069 07734 0250146 SUB WKG+72 2 31170 000069 07735 2506012 SET BINMODE 31180 000069 07736 2514002 BZE 31190 000069 07737 2607765 BRU SU585-3 31200 000069 07740 1050146 DLD WKG+72 2 31210 000069 07741 1352706 DST WARIM+222 31220 000069 07742 1440002 INX 2 2 31230 000069 07743 0457750 BXL 24 2 31240 000069 07744 2607732 BRU SU558 31250 000069 07745 2607765 BRU SU585-3 31260 000069 07746 0010073 NEON LDA WKG+29 31270 000070 07747 0014162 LDA MASK2 ELIMINATE 1ST DIGIT 31280 000070 07750 0312132 STA TEMPST 31290 000070 07751 0734630 SPB FLIP 1 CONVERT TO BINARY 31300 000070 07752 0012132 LDA TEMPST 31310 000070 07753 0030003 ALF 303 31320 000070 07754 2601033 BRU G1 31330 000070 07755 2504001 LAQ 31340 000070 07756 0312647 STA Y 31350 000070 07757 0312641 STA FRACT 31360 000070 07760 2504002 LDZ 31370 000070 07761 0310073 STA WKG+29 31380 000070 07762 2504102 LMO 31383 000070 07763 0312632 STA SWVAR SET SWITCH SWVAR 31386 000070 07764 2607665 BRU SU503 31390 000070 07765 0632160 LDX INXSV 1 RESTORE INDEX REGISTERS 31400 000070 07766 0652161 LDX INXSV+1 2 31410 000070 07767 0672163 LDX INXSV+3 3 31420 000070 07770 2620001 SU585 BRU 1 1 31430 000070 REM SUBROUTINE TO PREPARE BINARY AMOUNTS FOR 31440 000070 REM TYPING CALLING SEQUENCE PLACE BINARY QUANTI 31450 000070 REM TY IN TEMPST AND TEMPST +1 31460 000070 07771 1732160 SR#6 STX INXSV 1 31470 000070 07772 1752161 STX INXSV+1 2 31480 000070 07773 1772163 STX INXSV+3 3 31490 000070 07774 1012132 DLD TEMPST 31500 000070 07775 0735425 SPB FLOP 1 31510 000070 07776 1012126 DLD BINWA 31520 000070 07777 1312132 DST TEMPST 31530 000070 10000 1012130 DLD BINWA+2 31540 000070 10001 1312134 DST TEMPST+2 RESULT IN TEMPST - TEMPST +3 31550 000070 10002 2504102 LMO 31560 000070 10003 0312136 STA TEMPST+4 -1 IN TEMPST +4 31570 000070 10004 0632160 LDX INXSV 1 31580 000070 10005 0652161 LDX INXSV+1 2 31590 000070 10006 0672162 LDX INXSV+2 3 31600 000070 10007 2620001 BRU 1 1 31610 000070 REM SUBROUTINE TO WRITE PENSION RETURN REPORT /// 000070 10010 1732160 SR#7 STX INXSV 1 000070 10011 1752161 STX INXSV+1 2 000070 10012 1772163 STX INXSV+3 3 SAVE INDEX REGISTERS 000070 10013 0727573 SPB SR#1 1 NAME AND NOS 000070 10014 1010070 DLD WKG+26 000070 10015 1312000 DST REPIM+18 SUPER FUND CODE AND RATE O/O 000070 10016 1010142 DLD WKG+68 HYTD SALARY 000070 10017 1312004 DST REPIM+22 000070 10020 2504040 CHS CHANGE SIGN 000070 10021 1310142 DST WKG+68 AND STORE 000070 10022 0010144 LDA WKG+70 HYTD SUPER 000070 10023 0312007 STA REPIM+25 000070 10024 2504040 CHS CHANGE SIGN 000070 10025 0310144 STA WKG+70 AND STORE 000070 10026 0014245 LDA PRP1 SYMBOL /// 000070 10027 0312025 STA REPIM+39 000070 10030 0720720 SPB REPORT 1 WRITE REPORT 000071 10031 0727650 SPB SR#4 1 CLEAR REPIM 000071 10032 0632160 LDX INXSV 1 000071 10033 0652161 LDX INXSV+1 2 000071 10034 0672162 LDX INXSV+2 3 000071 10035 2620001 BRU 1 1 000071 10036 WKG BSS 100 ORDINARY WORKING STORAGE 000071 10202 TEMWKG BSS 100 TEMPORARY WORKING STORAGE 000071 10346 WKGTEM BSS 100 WORKING STORAGE/MASTER RECORD-TEMPORARY 000071 10512 MAST1 BSS 102 1ST INPUT BUFFER/ MASTER FILE 000071 10660 MAST2 BSS 102 2ND DO. 000071 11026 NWMST1 BSS 102 1ST OUTPUT BUFFER/MASTER FILE 000071 11174 NWMST2 BSS 102 2ND DO. 000071 11342 WSREP1 BSS 82 OUTPUT BUFFER/REPORTS 000071 11464 VRSTO1 BSS 42 1ST INPUT BUFFER/VARIATIONS 000071 11536 VRSTO2 BSS 42 2ND DO 000071 11610 TRANS BSS 102 1ST INPUT-BUFFER/TRANSFER RECORDS 000071 11756 REPIM BSS 42 WORKING STORAGE-REPORTS-FILE RECORD-IMAGE 000071 12030 VARIAN BSS 8 WORKING STORAGE/VARIATIONS 000071 12040 PRT BSS 54 000071 12126 BINWA BSS 4 000071 12132 TEMPST BSS 10 TEMPORARY STORAGE 000071 12144 ADULT BSS 2 000071 12146 YEAR BSS 2 000071 12150 DATUM BSS 2 000071 12152 PAYD BSS 2 PAYDAY IN BCD - YEAR-MONTH-DAY 000071 12154 COUNT BSS 2 COUNTERS FOR WARRANTS AND STAFF 000071 12156 OHOURS BSS 2 TEMP STORAGE FOR OVERTIME HOURS-BINARY 000071 12160 INXSV BSS 4 4 LOCATIONS TO SAVE INDEX REGISTER CONTENTS 000071 12164 DAYS BSS 2 000071 12166 DTPD BSS 2 DATE OF PAYWARRANT -BCD -DAY-MO-YR 000071 12170 SAVER BSS 2 000071 12172 SALRY BSS 2 000071 12174 OLDR BSS 12 000071 12210 FINRC BSS 8 ACCUMULATORS FOR CLOSING BALANCES OF PENSIONS 000071 12220 CRTF BSS 88 000071 12350 BRTF BSS 36 000071 12414 DPTTF BSS 12 000071 12430 FORTO BSS 52 000071 12514 PANTO BSS 20 000071 12540 ACUM BSS 32 000071 12600 SWTER BSS 10 ERROR MESSAGE SWITCHES 000071 12622 SWRES BSS 1 SWITCH FOR FINAL PAY 000071 12623 SWTV BSS 1 SWITCH V 000071 12624 SWTR BSS 1 SWITCH R 000071 12625 SWTB BSS 1 BRANCH TOTAL SWITCH 000071 12626 SWTO BSS 1 SWITCH O 000071 12627 SWTD BSS 1 DEPT TOTAL SWITCH 000071 12630 NDUTY BSS 1 000071 12631 TOTAL BSS 1 TEMPORARY STORAGE IN TAX ROUTINE 000071 12632 SWVAR BSS 1 000071 12633 STORE BSS 1 000071 12634 INCREM BSS 1 000071 12635 DIFF BSS 1 000071 12636 TOP BSS 1 000072 12637 NEWSAL BSS 1 000072 12640 SCDUE BSS 1 000072 12641 FRACT BSS 1 000072 12642 RETURN BSS 1 000072 12643 NOPD BSS 1 NO OF PAYDAY-BCD (JULY-JUNE) 000072 12644 MONTH BSS 1 000072 12645 P2 BSS 1 000072 12646 P BSS 1 000072 12647 Y BSS 1 000072 12650 LOCX BSS 1 LOCATION X 000072 12651 ROUND BSS 1 000072 12652 SUM BSS 1 000072 12653 TAX BSS 1 000072 12654 PRODCT BSS 1 000072 12655 AMT BSS 1 000072 12656 DUTY BSS 1 000072 12657 PAYNO BSS 1 PAYNUMBER IN BINARY 000072 12660 WARIM BSS 59 WARRANT IMAGE 000072 12753 3777634 MINC DEC -100 000072 12754 0000000 ZERO DDC 0 000072 12755 0000000 000072 12756 0000001 ONE DEC 1 000072 12757 0000002 TWO DEC 2 000072 12760 0000003 THREE DEC 3 000072 12761 0000004 FOUR DEC 4 000072 12762 0000005 FIVE DEC 5 000072 12763 0000006 SIX DEC 6 000072 12764 0000007 SEVEN DEC 7 000072 12765 0000010 EIGHT DEC 8 000072 12766 0000011 NINE DEC 9 000072 12767 0000012 TEN DEC 10 000072 12770 0000013 ELF DEC 11 000072 12771 0000014 TWELVE DEC 12 000072 12772 0000016 FOURT DEC 14 000072 12773 0000020 SIXT DEC 16 000072 12774 0000022 EITEEN DEC 18 000072 12775 0000023 NITEEN DEC 19 000072 12776 0000024 TWENT DEC 20 000072 12777 0000026 TWOTWO DEC 22 000072 13000 0000030 TWOFO DEC 24 000072 13001 0000031 TWFIVE DEC 25 000072 13002 0000034 TWEIT DEC 28 000072 13003 0000036 CON30 DEC 30 000072 13004 0000035 TWNINE DEC 29 000072 13005 0000036 PEN8 DEC 30 000072 13006 0000041 THR3 DEC 33 000072 13007 0000045 THR7 DEC 37 DEC 37 000072 13010 0000046 PEN10 DEC 38 000072 13011 0000046 THR8 DEC 38 DEC 38 000072 13012 0000050 FORTY DEC 40 000072 13013 0000060 FOR8 DEC 48 000072 13014 0000061 FOR9 DEC 49 000072 13015 0000072 FIVE8 DEC 58 000072 13016 0000074 CON60 DEC 60 000073 13017 0000107 PEN16 DEC 71 000073 13020 0000110 SEV2 DEC 72 000073 13021 0000144 ANT1 DEC 100 000073 13022 0000000 ONTHIR DDC 130 000073 13023 0000202 000073 13024 0000220 CON144 DEC 144 12/- 000073 13025 0000360 TWOFOR DEC 240 000073 13026 0000405 TWSX1 DEC 261 000073 13027 0000740 CON480 DEC 480 000073 13030 0000764 HALF DEC 500 000073 13031 0003720 2THOU DEC 2000 000073 13032 0034461 CON61 DEC 14641 $61-0-1 IN BINARY PENCE 000073 13033 0071710 CONSTD DEC 29640 $ 123-10/- 000073 13034 0056700 EXCESS DEC 24000 L 100 000073 13036 0000000 FIFTG DDC 50000 000073 Must begin on an even address 13037 0141520 000073 13040 0215061 CON301 DEC 72241 $301-0-1 DO 000073 13041 0303240 HUNG DEC 100000 000073 13042 0000023 DECNI DDC 9999999 000073 13043 0113177 000073 13044 0000035 DAYNO DEC 29 000073 13045 0000037 DEC 31 000073 13046 0000034 DEC 28 000073 13047 0000037 DEC 31 000073 13050 0000036 DEC 30 000073 13051 0000037 DEC 31 000073 13052 0000036 DEC 30 000073 13053 0000037 DEC 31 000073 13054 0000037 DEC 31 000073 13055 0000036 DEC 30 000073 13056 0000037 DEC 31 000073 13057 0000036 DEC 30 000073 13060 0000037 DEC 31 000073 13061 0000000 TABLE1 DEC 0 31910 000073 13062 0000036 DEC 30 32220 000073 13063 0000036 DEC 30 32230 000073 13064 0000044 DEC 36 32240 000073 13065 0000044 DEC 36 32250 000073 13066 0000044 DEC 36 32260 000073 13067 0000052 DEC 42 32270 000073 13070 0000052 DEC 42 32280 000073 13071 0000060 DEC 48 32290 000073 13072 0000060 DEC 48 32300 000073 13073 0000066 DEC 54 32310 000073 13074 0000074 DEC 60 32320 000073 13075 0000102 DEC 66 32330 000073 13076 0000110 DEC 72 32340 000073 13077 0000110 DEC 72 32350 000073 13100 0000116 DEC 78 32360 000073 13101 0000116 DEC 78 32370 000073 13102 0000124 DEC 84 32380 000073 13103 0000132 DEC 90 32390 000073 13104 0000140 DEC 96 32400 000073 13105 0000146 DEC 102 32410 000074 13106 0000154 DEC 108 32420 000074 13107 0000162 DEC 114 32430 000074 13110 0000162 DEC 114 32440 000074 13111 0000170 DEC 120 32450 000074 13112 0000176 DEC 126 32460 000074 13113 0000204 DEC 132 32470 000074 13114 0000204 DEC 132 32480 000074 13115 0000212 DEC 138 32490 000074 13116 0000220 DEC 144 32500 000074 13117 0000226 DEC 150 32510 000074 13120 0000234 DEC 156 32520 000074 13121 0000242 DEC 162 32530 000074 13122 0000250 DEC 168 32540 000074 13123 0000256 DEC 174 32550 000074 13124 0000264 DEC 180 32560 000074 13125 0000300 DEC 192 32570 000074 13126 0000306 DEC 198 32580 000074 13127 0000314 DEC 204 32590 000074 13130 0000322 DEC 210 32600 000074 13131 0000330 DEC 216 32610 000074 13132 0000336 DEC 222 32620 000074 13133 0000344 DEC 228 32630 000074 13134 0000352 DEC 234 32640 000074 13135 0000366 DEC 246 32650 000074 13136 0000374 DEC 252 32660 000074 13137 0000410 DEC 264 32670 000074 13140 0000416 DEC 270 32680 000074 13141 0000424 DEC 276 32690 000074 13142 0000432 DEC 282 32700 000074 13143 0000440 DEC 288 32710 000074 13144 0000446 DEC 294 32720 000074 13145 0000454 DEC 300 32730 000074 13146 0000462 DEC 306 32740 000074 13147 0000476 DEC 318 32750 000074 13150 0000504 DEC 324 32760 000074 13151 0000512 DEC 330 32770 000074 13152 0000526 DEC 342 32780 000074 13153 0000534 DEC 348 32790 000074 13154 0000542 DEC 354 32800 000074 13155 0000550 DEC 360 32810 000074 13156 0000564 DEC 372 32820 000074 13157 0000572 DEC 378 32830 000074 13160 0000606 DEC 390 32840 000074 13161 0000614 DEC 396 32850 000074 13162 0000622 DEC 402 32860 000074 13163 0000630 DEC 408 32870 000074 13164 0000644 DEC 420 32880 000074 13165 0000660 DEC 432 32890 000074 13166 0000666 DEC 438 32900 000074 13167 0000674 DEC 444 32910 000074 13170 0000710 DEC 456 32920 000074 13171 0000716 DEC 462 32930 000074 13172 0000732 DEC 474 32940 000074 13173 0000746 DEC 486 32950 000075 13174 0000754 DEC 492 32960 000075 13175 0000770 DEC 504 32970 000075 13176 0000776 DEC 510 32980 000075 13177 0001004 DEC 516 32990 000075 13200 0001020 DEC 528 33000 000075 13201 0001034 DEC 540 33010 000075 13202 0001042 DEC 546 33020 000075 13203 0001056 DEC 558 33030 000075 13204 0001064 DEC 564 33040 000075 13205 0001072 DEC 570 33050 000075 13206 0001106 DEC 582 33060 000075 13207 0001122 DEC 594 33070 000075 13210 0001130 DEC 600 33080 000075 13211 0001144 DEC 612 33090 000075 13212 0001152 DEC 618 33100 000075 13213 0001166 DEC 630 33110 000075 13214 0001174 DEC 636 33120 000075 13215 0001210 DEC 648 33130 000075 13216 0001224 DEC 660 33140 000075 13217 0001240 DEC 672 33150 000075 13220 0001254 DEC 684 33160 000075 13221 0001270 DEC 696 33170 000075 13222 0001276 DEC 702 33180 000075 13223 0001312 DEC 714 33190 000075 13224 0001326 DEC 726 33200 000075 13225 0001342 DEC 738 33210 000075 13226 0001350 DEC 744 33220 000075 13227 0001364 DEC 756 33230 000075 13230 0001400 DEC 768 33240 000075 13231 0001414 DEC 780 33250 000075 13232 0001430 DEC 792 33260 000075 13233 0001444 DEC 804 33270 000075 13234 0001452 DEC 810 33280 000075 13235 0001466 DEC 822 33290 000075 13236 0001502 DEC 834 33300 000075 13237 0001516 DEC 846 33310 000075 13240 0001532 DEC 858 33320 000075 13241 0001546 DEC 870 33330 000075 13242 0001562 DEC 882 33340 000075 13243 0001570 DEC 888 33350 000075 13244 0001604 DEC 900 33360 000075 13245 0001620 DEC 912 33370 000075 13246 0001634 DEC 924 33380 000075 13247 0001650 DEC 936 33390 000075 13250 0001664 DEC 948 33400 000075 13251 0001700 DEC 960 33410 000075 13252 0001714 DEC 972 33420 000075 13253 0001730 DEC 984 33430 000075 13254 0001744 DEC 996 33440 000075 13255 0001760 DEC 1008 33450 000075 13256 0001774 DEC 1020 33460 000075 13257 0002010 DEC 1032 33470 000075 13260 0002032 DEC 1050 33480 000075 13261 0002046 DEC 1062 33490 000076 13262 0002062 DEC 1074 33500 000076 13263 0002076 DEC 1086 33510 000076 13264 0002112 DEC 1098 33520 000076 13265 0002134 DEC 1116 33530 000076 13266 0002150 DEC 1128 33540 000076 13267 0002164 DEC 1140 33550 000076 13270 0002200 DEC 1152 33560 000076 13271 0002214 DEC 1164 33570 000076 13272 0002230 DEC 1176 33580 000076 13273 0002244 DEC 1188 33590 000076 13274 0002266 DEC 1206 33600 000076 13275 0002302 DEC 1218 33610 000076 13276 0002316 DEC 1230 33620 000076 13277 0002340 DEC 1248 33630 000076 13300 0002354 DEC 1260 33640 000076 13301 0002370 DEC 1272 33650 000076 13302 0002404 DEC 1284 33660 000076 13303 0002420 DEC 1296 33670 000076 13304 0002434 DEC 1308 33680 000076 13305 0002450 DEC 1320 33690 000076 13306 0002464 DEC 1332 33700 000076 13307 0002500 DEC 1344 33710 000076 13310 0002522 DEC 1362 33720 000076 13311 0002536 DEC 1374 33730 000076 13312 0002552 DEC 1386 33740 000076 13313 0002566 DEC 1398 33750 000076 13314 0002602 DEC 1410 33760 000076 13315 0002624 DEC 1428 33770 000076 13316 0002640 DEC 1440 33780 000076 13317 0002662 DEC 1458 33790 000076 13320 0002676 DEC 1470 33800 000076 13321 0002720 DEC 1488 33810 000076 13322 0002734 DEC 1500 33820 000076 13323 0002750 DEC 1512 33830 000076 13324 0002772 DEC 1530 33840 000076 13325 0003006 DEC 1542 33850 000076 13326 0003022 DEC 1554 33860 000076 13327 0003044 DEC 1572 33870 000076 13330 0003066 DEC 1590 33880 000076 13331 0003110 DEC 1608 33890 000076 13332 0003124 DEC 1620 33900 000076 13333 0003140 DEC 1632 33910 000076 13334 0003162 DEC 1650 33920 000076 13335 0003204 DEC 1668 33930 000076 13336 0003220 DEC 1680 33940 000076 13337 0003234 DEC 1692 33950 000076 13340 0003256 DEC 1710 33960 000076 13341 0003300 DEC 1728 33970 000076 13342 0003314 DEC 1740 33980 000076 13343 0003330 DEC 1752 33990 000076 13344 0003344 DEC 1764 34000 000076 13345 0003366 DEC 1782 34010 000076 13346 0003402 DEC 1794 34020 000076 13347 0003424 DEC 1812 34030 000077 13350 0003446 DEC 1830 34040 000077 13351 0003462 DEC 1842 34050 000077 13352 0003504 DEC 1860 34060 000077 13353 0003526 DEC 1878 34070 000077 13354 0003550 DEC 1896 34080 000077 13355 0003564 DEC 1908 34090 000077 13356 0003606 DEC 1926 34100 000077 13357 0003630 DEC 1944 34110 000077 13360 0003644 DEC 1956 34120 000077 13361 0003666 DEC 1974 34130 000077 13362 0003702 DEC 1986 34140 000077 13363 0003724 DEC 2004 34150 000077 13364 0003746 DEC 2022 34160 000077 13365 0003762 DEC 2034 34170 000077 13366 0004004 DEC 2052 34180 000077 13367 0004026 DEC 2070 34190 000077 13370 0004050 DEC 2088 34200 000077 13371 0004064 DEC 2100 34210 000077 13372 0004106 DEC 2118 34220 000077 13373 0004130 DEC 2136 34230 000077 13374 0004152 DEC 2154 34240 000077 13375 0004166 DEC 2166 34250 000077 13376 0004210 DEC 2184 34260 000077 13377 0004232 DEC 2202 34270 000077 13400 0004254 DEC 2220 34280 000077 13401 0004270 DEC 2232 34290 000077 13402 0004312 DEC 2250 34300 000077 13403 0004334 DEC 2268 34310 000077 13404 0004356 DEC 2286 34320 000077 13405 0004400 DEC 2304 34330 000077 13406 0004460 TABLE2 DEC 2352 34340 000077 13407 0004620 DEC 2448 34350 000077 13410 0004760 DEC 2544 34360 000077 13411 0005120 DEC 2640 34370 000077 13412 0005310 DEC 2760 34380 000077 13413 0005500 DEC 2880 34390 000077 13414 0005670 DEC 3000 34400 000077 13415 0006060 DEC 3120 34410 000077 13416 0006250 DEC 3240 34420 000077 13417 0006470 DEC 3384 34430 000077 13420 0006740 DEC 3552 34440 000077 13421 0007210 DEC 3720 34450 000077 13422 0007460 DEC 3888 34460 000077 13423 0007730 DEC 4056 34470 000077 13424 0010200 DEC 4224 34480 000077 13425 0010450 DEC 4392 34490 000077 13426 0010720 DEC 4560 34500 000077 13427 0011170 DEC 4728 34510 000077 13430 0011440 DEC 4896 34520 000077 13431 0011710 DEC 5064 34530 000077 13432 0012160 DEC 5232 34540 000077 13433 0012460 DEC 5424 34550 000077 13434 0012760 DEC 5616 34560 000077 13435 0013260 DEC 5808 34570 000078 13436 0013560 DEC 6000 34580 000078 13437 0014060 DEC 6192 34590 000078 13440 0014360 DEC 6384 34600 000078 13441 0014660 DEC 6576 34610 000078 13442 0015160 DEC 6768 34620 000078 13443 0015460 DEC 6960 34630 000078 13444 0015760 DEC 7152 34640 000078 13445 0016260 DEC 7344 34650 000078 13446 0016560 DEC 7536 34660 000078 13447 0017110 DEC 7752 34670 000078 13450 0017440 DEC 7968 34680 000078 13451 0017770 DEC 8184 34690 000078 13452 0020320 DEC 8400 34700 000078 13453 0020620 DEC 8592 34710 000078 13454 0021150 DEC 8808 34720 000078 13455 0021450 DEC 9000 34730 000078 13456 0022000 DEC 9216 34740 000078 13457 0022330 DEC 9432 34750 000078 13460 0022660 DEC 9648 34760 000078 13461 0023210 DEC 9864 34770 000078 13462 0023540 DEC 10080 34780 000078 13463 0024120 DEC 10320 34790 000078 13464 0024450 DEC 10536 34800 000078 13465 0025000 DEC 10752 34810 000078 13466 0025330 DEC 10968 34820 000078 13467 0025710 DEC 11208 34830 000078 13470 0026270 DEC 11448 34840 000078 13471 0026620 DEC 11664 34850 000078 13472 0027200 DEC 11904 34860 000078 13473 0027530 DEC 12120 34870 000078 13474 0030110 DEC 12360 34880 000078 13475 0030470 DEC 12600 34890 000078 13476 0031050 DEC 12840 34900 000078 13477 0031430 DEC 13080 34910 000078 13500 0032010 DEC 13320 34920 000078 13501 0032370 DEC 13560 34930 000078 13502 0032750 DEC 13800 34940 000078 13503 0033360 DEC 14064 34950 000078 13504 0033740 DEC 14304 34960 000078 13505 0034350 DEC 14568 34970 000078 13506 0034730 DEC 14808 34980 000078 13507 0035310 DEC 15048 34990 000078 13510 0035670 DEC 15288 35000 000078 13511 0036250 DEC 15528 35010 000078 13512 0036660 DEC 15792 35020 000078 13513 0037270 DEC 16056 35030 000078 13514 0037700 DEC 16320 35040 000078 13515 0040310 DEC 16584 35050 000078 13516 0040720 DEC 16848 35060 000078 13517 0041330 DEC 17112 35070 000078 13520 0041740 DEC 17376 35080 000078 13521 0042350 DEC 17640 35090 000078 13522 0042760 DEC 17904 35100 000078 13523 0043370 DEC 18168 35110 000079 13524 0044000 DEC 18432 35120 000079 13525 0044410 DEC 18696 35130 000079 13526 0045020 DEC 18960 35140 000079 13527 0045430 DEC 19224 35150 000079 13530 0046040 DEC 19488 35160 000079 13531 0046450 DEC 19752 35170 000079 13532 0047060 DEC 20016 35180 000079 13533 0047470 DEC 20280 35190 000079 13534 0050100 DEC 20544 35200 000079 13535 0050510 DEC 20808 35210 000079 13536 0051120 DEC 21072 35220 000079 13537 0051560 DEC 21360 35230 000079 13540 0052220 DEC 21648 35240 000079 13541 0052630 DEC 21912 35250 000079 13542 0053270 DEC 22200 35260 000079 13543 0053700 DEC 22464 35270 000079 13544 0054340 DEC 22752 35280 000079 13545 0054750 DEC 23016 35290 000079 13546 0055410 DEC 23304 35300 000079 13547 0056020 DEC 23568 35310 000079 13550 0056460 DEC 23856 35320 000079 13551 0057070 DEC 24120 35330 000079 13552 0057530 DEC 24408 35340 000079 13553 0060140 DEC 24672 35350 000079 13554 0060600 DEC 24960 35360 000079 13555 0061210 DEC 25224 35370 000079 13556 0061650 DEC 25512 35380 000079 13557 0062260 DEC 25776 35390 000079 13560 0062720 DEC 26064 35400 000079 13561 0063330 DEC 26328 35410 000079 13562 0063740 DEC 26592 35420 000079 13563 0064400 DEC 26880 35430 000079 13564 0065010 DEC 27144 35440 000079 13565 0065450 DEC 27432 35450 000079 13566 0066110 DEC 27720 35460 000079 13567 0066520 DEC 27984 35470 000079 13570 0067130 DEC 28248 35480 000079 13571 0067570 DEC 28536 35490 000079 13572 0070200 DEC 28800 35500 000079 13573 0070640 DEC 29088 35510 000079 13574 0071250 DEC 29352 35520 000079 13575 0071710 DEC 29640 35530 000079 13576 0021753 SUPER DEC 9195 000079 13577 0000000 DEC 0 000079 13600 0021753 DEC 9195 000079 13601 0032741 DEC 13793 000079 13602 0000000 DEC 0 000079 13603 0065702 DEC 27586 000079 13604 0032741 DEC 13793 000079 13605 0343260 SALTA DEC 116400 MALE SCALE 1 000079 13606 0422160 DEC 140400 2 000079 13607 0505620 DEC 166800 3 000079 13610 0567360 DEC 192240 4 000079 13611 0646260 DEC 216240 5 000080 13612 0737040 DEC 245280 6 000080 13613 0775420 DEC 260880 7 000080 13614 1043020 DEC 280080 8 000080 13615 0070630 DEC 29080 9 000080 Should be: 298080 (handwritten) 13616 1153540 DEC 317280 10 000080 13617 1205360 DEC 330480 11 000080 13620 1234720 DEC 342480 12 000080 13621 1262000 DEC 353280 13 000080 13622 1307060 DEC 364080 14 000080 13623 1331660 DEC 373680 15 000080 13624 1356740 DEC 384480 16 000080 13625 1375000 DEC 391680 17 000080 13626 1406300 DEC 396480 18 000080 13627 0000000 DEC 0 000080 13630 0000000 DEC 0 000080 13631 0000000 DEC 0 000080 13632 0000000 DEC 0 000080 13633 0000000 DEC 0 000080 13634 0000000 DEC 0 000080 13635 0000000 DEC 0 000080 13636 0000000 DEC 0 000080 13637 0000000 DEC 0 000080 13640 0000000 DEC 0 000080 13641 0000000 DEC 0 000080 13642 0000000 DEC 0 000080 13643 0422160 DEC 140400 MALE SCALE 31 000080 13644 0505620 DEC 166800 32 000080 13645 0571260 DEC 193200 33 000080 13646 0653020 DEC 218640 34 000080 13647 0725160 DEC 240240 35 000080 13650 0761640 DEC 254880 36 000080 13651 1015740 DEC 269280 37 000080 13652 1056600 DEC 286080 38 000080 13653 1106140 DEC 298080 39 000080 13654 1153540 DEC 317280 40 000080 13655 1205360 DEC 330480 41 000080 13656 1234720 DEC 342480 42 000080 13657 1262000 DEC 353820 43 000080 13660 1307060 DEC 364080 44 000080 13661 1331660 DEC 373680 45 000080 13662 1356740 DEC 384480 46 000080 13663 1375000 DEC 391680 47 000080 13664 1406300 DEC 396480 48 000080 13665 0000000 DEC 0 000080 13666 0000000 DEC 0 000080 13667 0000000 DEC 0 000080 13670 0000000 DEC 0 000080 13671 0000000 DEC 0 000080 13672 0000000 DEC 0 000080 13673 0000000 DEC 0 000080 13674 0000000 DEC 0 000080 13675 0000000 DEC 0 000080 13676 0000000 DEC 0 000080 13677 0000000 DEC 0 000081 13700 0000000 DEC 0 000081 13701 0340420 DEC 114960 FEMALE SCALE 61 000081 13702 0405060 DEC 133680 62 000081 13703 0452100 DEC 152640 63 000081 13704 0517120 DEC 171600 64 000081 13705 0564140 DEC 190560 65 000081 13706 0606740 DEC 200160 66 000081 13707 0634020 DEC 210960 67 000081 13710 0652060 DEC 218160 68 000081 13711 0670120 DEC 225360 69 000081 13712 0706160 DEC 232560 70 000081 13713 0000000 DEC 0 000081 13714 0000000 DEC 0 000081 13715 0000000 DEC 0 000081 13716 0000000 DEC 0 000081 13717 0000000 DEC 0 000081 13720 0000000 DEC 0 000081 13721 0000000 DEC 0 000081 13722 0000000 DEC 0 000081 13723 0000000 DEC 0 000081 13724 0000000 DEC 0 000081 13725 0363220 DEC 124560 FEMALE SCALE 81 000081 13726 0427660 DEC 143280 82 000081 13727 0474700 DEC 162240 83 000081 13730 0541720 DEC 181200 84 000081 13731 0573160 DEC 194160 85 000081 13732 0613500 DEC 202560 86 000081 13733 0634020 DEC 210960 87 000081 13734 0652060 DEC 218160 88 000081 13735 0670120 DEC 225360 89 000081 13736 0706160 DEC 232560 90 000081 13737 0000000 DEC 0 000081 13740 0565656 FORM1 OCT 565656 FORMAT LINE FOR LINE NO 8 OF WARRANT 38460 000081 13741 0565656 OCT 565656 38470 000081 13742 0565656 OCT 565656 38480 000081 13743 0565635 OCT 565635 38490 000081 13744 0353535 OCT 353535 38500 000081 13745 0565636 OCT 565636 38510 000081 13746 0353535 OCT 353535 38520 000081 13747 0353535 OCT 353535 38530 000081 13750 0565637 OCT 565637 38540 000081 13751 0353515 OCT 353515 38550 000081 13752 0351535 OCT 351535 38560 000081 13753 0563535 OCT 563535 38570 000081 13754 0576035 OCT 576035 38580 000081 13755 0353535 OCT 353535 38590 000081 13756 0353535 OCT 353535 38600 000081 13757 0353535 OCT 353535 38610 000081 13760 0573535 OCT 573535 38620 000081 13761 0353535 OCT 353535 38630 000081 13762 0353535 OCT 353535 38640 000081 13763 0353535 OCT 353535 38650 000081 13764 0576035 OCT 576035 38660 000081 13765 0353535 OCT 353535 38670 000082 13766 0353535 OCT 353535 38680 000082 13767 0353535 OCT 353535 38690 000082 13770 0565656 OCT 565656 38700 000082 13771 0565656 OCT 565656 38710 000082 13772 0565656 OCT 565656 38720 000082 13773 0565656 OCT 565656 38730 000082 13774 0565656 OCT 565656 38740 000082 13775 0565656 OCT 565656 38750 000082 13776 0565656 OCT 565656 38760 000082 13777 0563735 OCT 563735 38770 000082 14000 0353535 OCT 353535 38780 000082 14001 0565657 OCT 565657 38790 000082 14002 0353535 OCT 353535 38800 000082 14003 0335656 OCT 335656 38810 000082 14004 0565656 OCT 565656 38820 000082 14005 0563735 OCT 563735 38830 000082 14006 0353535 OCT 353535 38840 000082 14007 0353535 OCT 353535 38850 000082 14010 0565656 OCT 565656 38860 000082 14011 0565656 OCT 565656 38870 000082 14012 0565637 OCT 565637 38880 000082 14013 0353515 OCT 353515 38890 000082 14014 0351535 OCT 351535 38900 000082 14015 0565656 OCT 565656 38910 000082 14016 0565656 OCT 565656 38920 000082 14017 0565656 OCT 565656 38930 000082 14020 0373535 OCT 373535 38940 000082 14021 0373737 FORM2 OCT 373737 FORMAT LINE FOR LINE 12 OF WARRANT 38960 000082 14022 0375656 OCT 375656 38970 000082 14023 0565735 OCT 565735 38980 000082 14024 0353535 OCT 353535 38990 000082 14025 0353535 OCT 353535 39000 000082 14026 0353535 OCT 353535 39010 000082 14027 0565760 OCT 565760 39020 000082 14030 0353533 OCT 353533 39030 000082 14031 0565735 OCT 565735 39040 000082 14032 0353535 OCT 353535 39050 000082 14033 0353535 OCT 353535 39060 000082 14034 0353535 OCT 353535 39070 000082 14035 0576035 OCT 576035 39080 000082 14036 0353535 OCT 353535 39090 000082 14037 0353535 OCT 353535 39100 000082 14040 0565657 OCT 565657 39110 000082 14041 0353535 OCT 353535 39120 000082 14042 0353535 OCT 353535 39130 000082 14043 0353535 OCT 353535 39140 000082 14044 0576035 OCT 576035 39150 000082 14045 0353535 OCT 353535 39160 000082 14046 0353535 OCT 353535 39170 000082 14047 0576035 OCT 576035 39180 000082 14050 0353535 OCT 353535 39190 000082 14051 0353535 OCT 353535 39200 000082 14052 0565656 OCT 565656 39210 000082 14053 0565656 OCT 565656 39220 000083 14054 0565656 OCT 565656 39230 000083 14055 0565656 OCT 565656 39240 000083 14056 0565656 OCT 565656 39250 000083 14057 0353535 OCT 353535 39260 000083 14060 0353535 OCT 353535 39270 000083 14061 0353535 OCT 353535 39280 000083 14062 0353535 OCT 353535 39290 000083 14063 0353535 OCT 353535 39300 000083 14064 0353535 OCT 353535 39310 000083 14065 0353535 OCT 353535 39320 000083 14066 0353535 OCT 353535 39330 000083 14067 0353535 OCT 353535 39340 000083 14070 0353535 OCT 353535 39350 000083 14071 0353535 OCT 353535 39360 000083 14072 0353535 OCT 353535 39370 000083 14073 0353535 OCT 353535 39380 000083 14074 0353535 OCT 353535 39390 000083 14075 0565656 OCT 565656 39400 000083 14076 0565656 OCT 565656 39410 000083 14077 0565656 OCT 565656 39420 000083 14100 0565656 OCT 565656 39430 000083 14101 0565760 OCT 565760 39440 000083 14102 0353535 OCT 353535 39450 000083 14103 0353535 OCT 353535 39460 000083 14104 0353535 OCT 353535 39470 000083 14105 0565656 FORM3 OCT 565656 39480 000083 14106 0573535 OCT 573535 39490 000083 14107 0375657 OCT 375657 39500 000083 14110 0353535 OCT 353535 39510 000083 14111 0353535 OCT 353535 39520 000083 14112 0353535 OCT 353535 39530 000083 14113 0576035 OCT 576035 39540 000083 14114 0375657 OCT 375657 39550 000083 14115 0353535 OCT 353535 39560 000083 14116 0353535 OCT 353535 39570 000083 14117 0353535 OCT 353535 39580 000083 14120 0576035 OCT 576035 39590 000083 14121 0375657 OCT 375657 39600 000083 14122 0353535 OCT 353535 39610 000083 14123 0353535 OCT 353535 39620 000083 14124 0353535 OCT 353535 39630 000083 14125 0375657 OCT 375657 39640 000083 14126 0353535 OCT 353535 39650 000083 14127 0373756 OCT 373756 39660 000083 14130 0573535 OCT 573535 39670 000083 14131 0353535 OCT 353535 39680 000083 14132 0353535 OCT 353535 39690 000083 14133 0375657 OCT 375657 39700 000083 14134 0353535 OCT 353535 39710 000083 14135 0373756 OCT 373756 39720 000083 14136 0573535 OCT 573535 39730 000083 14137 0353535 OCT 353535 39740 000083 14140 0353535 OCT 353535 39750 000083 14141 0375657 OCT 375657 39760 000084 14142 0353535 OCT 353535 39770 000084 14143 0373756 OCT 373756 39780 000084 14144 0573535 OCT 573535 39790 000084 14145 0353535 OCT 353535 39800 000084 14146 0353535 OCT 353535 39810 000084 14330 MESS0 EQU MESSO 000084 00400 CRDIN EQU 256 000084 14147 0606077 SYNTAX OCT 606077 000084 14150 0001000 TENT OCT 1000 000084 14151 1000000 FLAG OCT 1000000 000084 14152 1545454 FLSTR OCT 1545454 FLAGGED ASTERISKS 000084 14153 1000606 DE66 OCT 1000606 FLAGGED 66 000084 14154 1010611 INS# OCT 1010611 FLAGGED BCD 169 000084 14155 1010700 FL#1 OCT 1010700 FLAGGED 170 000084 14156 1011111 FL#2 OCT 1011111 FLAGGED 199 000084 14157 1021111 FL#3 OCT 1021111 FLAGGED 299 000084 14160 1040000 FL#4 OCT 1040000 FLAGGED 400 000084 14161 3777700 MASK1 OCT 3777700 000084 14162 3770000 MASK2 OCT 3770000 000084 14163 3000000 MASK3 OCT 3000000 000084 14164 0452330 NCH ALF NCH 000084 14165 0314565 SYM20 ALF INV SYMBOL FOR INVALID CHARACTER 000084 14166 0635146 TRO ALF TRO 000084 14167 0517423 R%C ALF R%C 000084 14170 0646343 UTL ALF UTL 000084 14171 0314523 SYM5 ALF INC 000084 14172 0312723 SYIGC ALF IGC SYMBOL IGC 000084 14173 0000200 REP1 ALF 020 SYMBOL 020 FOR REPORTS 000084 14174 0516121 SYM4 ALF R/A 000084 ASTER MAL 2 ****** 000084 14175 0545454 000084 14176 0545454 000084 21YR MAL 2 210000 000084 14200 0020100 000084 Why ISN'T this at 14177? 14201 0000000 000084 14202 0606231 SYM1 ALF SI 000084 14203 0456231 SYM3 ALF NSI 000084 14204 0601360 CRUN ALF # 000084 14205 0672623 XFC ALF XFC AMOUNT ADVISED EXCEEDS FIELD CAPACITY 000084 14206 0634522 TNB ALF TNB 000084 14207 0000100 REP9 ALF 010 000084 14210 0000101 RRT ALF 011 000084 14211 0000102 AUD1 ALF 012 BCD012 000084 14212 0000103 REP5 ALF 013 000084 14213 0000104 REP2 ALF 014 SYMBOL 014 000084 14214 0000105 ESTR ALF 015 SYMBOL FOR ESTIMATE OF PROFIT REPORT 000084 14215 0000106 TFRSYM ALF 016 000084 14216 0000110 SYM18 ALF 018 000084 14217 0000201 OT#R ALF 021 BCD 021 000084 14220 0000211 FD29 ALF 029 000084 14221 0600500 FIFTY ALF 50 000084 14222 0600501 FIFON ALF 51 000084 14223 0600502 FIF2 ALF 52 000084 14224 0600503 FIF3 ALF 53 000085 14225 0600504 FIF4 ALF 54 000085 14226 0600505 FIF5 ALF 55 000085 14227 0600506 FIF6 ALF 56 000085 14230 0600507 FIF7 ALF 57 000085 14231 0600510 FIF8 ALF 58 000085 14232 0600600 SIX0 ALF 60 000085 14233 0600602 SIX2 ALF 62 000085 14234 0600603 SIX3 ALF 63 000085 14235 0600604 SIX4 ALF 64 000085 14236 0600605 SIX5 ALF 65 000085 14237 0600607 SIX7 ALF 67 000085 14240 0600610 SIX8 ALF 68 000085 14241 0600700 SEVO ALF 70 000085 14242 0600701 SEV1 ALF 71 000085 14243 0010000 PCINC ALF 100 BCD 100 000085 14244 0010100 STD#1 ALF 110 000085 14245 0010101 PRP1 ALF 111 000085 14246 0010103 REP6 ALF 113 000085 14247 0010104 REP3 ALF 114 000085 14250 0010700 ONE70 ALF 170 000085 14251 0020000 B00 ALF 200 VARIATION CODE 200 000085 14252 0020001 B01 ALF 201 BCD 201 000085 14253 0020101 RRT2 ALF 211 000085 14254 0020103 REP7 ALF 213 000085 14255 0020104 REP4 ALF 214 000085 14256 0020310 PTC#1 ALF 238 BCD 238 000085 14257 0020510 CD#58 ALF 258 BCD 258 000085 14260 0030100 STD#2 ALF 310 000085 14261 0030103 REP8 ALF 313 000085 14262 0030203 #C23 ALF 323 VARIATION CODE C23 000085 14263 0030310 THR38 ALF 338 338 DECIMAL 000085 14264 0041111 NWNTR ALF 499 499 BCD 000085 14265 0600305 PACO ALF 35 000085 14266 0600306 ALF 36 000085 14267 0600307 ALF 37 000085 14270 1111111 NINES OCT 1111111 FLAGGED BCD 999 000085 14271 0111111 OCT 0111111 BCD 999 000085 14272 0606060 BLANKS ALF 000085 14273 0606060 ALF 000085 14274 0600401 FLDN ALF 41 000085 14275 0600402 ALF 42 000085 14276 0600403 ALF 43 000085 14277 0600404 ALF 44 000085 14300 0600405 ALF 45 000085 14301 0600406 ALF 46 000085 14302 0600407 ALF 47 000085 14303 0600410 ALF 48 000085 14304 0600410 ALF 49 000085 14305 0016060 SUCODE ALF 1 SUPER FUND CODES TO BE WRITTEN ON REPORTS 000085 14306 0606003 ALF 3 000085 14307 0606004 ALF 4 000085 14310 0606006 ALF 6 000085 14311 0606007 ALF 7 000085 14312 0436021 MS01 ALF L A LAHA 000086 14313 0603060 ALF H 000086 14314 0216060 ALF A 000086 14315 3777777 DEC -1 000086 14316 0275146 M500 ALF GRO GROSS 000086 14317 0626260 ALF SS 000086 14320 3777777 DEC -1 000086 14321 0306070 MESS2 ALF H Y HYTD 000086 14322 0606360 ALF T 000086 14323 0246060 ALF D 000086 14324 3777777 DEC -1 000086 14325 0634663 MESS1 ALF TOT 000086 14326 0214360 ALF AL 000086 14327 3777777 DEC -1 000086 MESS0 MAL 5 OUT OF BALANCE 000086 14330 0466463 000086 14331 0604626 000086 14332 0602221 000086 14333 0432145 000086 14334 0232560 000086 14335 3777777 DEC -1 000086 DBLNO MAL 11 TRANSFER WITH DUPLICATED SORTKEY 000086 14336 0635121 000086 14337 0456226 000086 14340 0255160 000086 14341 0663163 000086 14342 0306024 000086 14343 0644743 000086 14344 0312321 000086 14345 0632524 000086 14346 0606246 000086 14347 0516342 000086 14350 0257060 000086 14351 3777777 DEC -1 000086 OK MAL 3 BALANCED 000086 14352 0222143 000086 14353 0214523 000086 14354 0252460 000086 14355 3777777 DEC -1 000086 VAR0 MAL 4 VARIATIONS 000086 14356 0652151 000086 14357 0312163 000086 14360 0314645 000086 14361 0626060 000086 14362 3777777 DEC -1 000086 HASH MAL 2 HASH 000086 14363 0302162 000086 14364 0306060 000086 14365 3777777 DEC -1 000086 MS17 MAL 5 AUDIT ALLOWANCE 000086 14366 0216424 000086 14367 0316360 000086 14370 0214343 000086 14371 0466621 000086 14372 0452325 000087 14373 3777777 DEC -1 000087 M516 MAL 5 RELIEVING ALL 000087 14374 0512543 000087 14375 0312565 000087 14376 0314527 000087 14377 0602143 000087 14400 0436060 000087 14401 3777777 DEC -1 000087 MS15 MAL 6 CAR AND TRAVEL ALL 000087 14402 0232151 000087 14403 0602145 000087 14404 0246063 000087 14405 0512165 000087 14406 0254360 000087 14407 0214343 000087 14410 3777777 DEC -1 000087 MS14 MAL 6 LUMP SUM PAYMENTS 000087 14411 0436444 000087 14412 0476062 000087 14413 0644460 000087 14414 0472170 000087 14415 0442545 000087 14416 0636260 000087 14417 3777777 DEC -1 000087 MS13 MAL 9 DEDUCTIONS UNDER AUTHORITY 000087 14420 0242524 000087 14421 0642363 000087 14422 0314645 000087 14423 0626064 000087 14424 0452425 000087 14425 0516021 000087 14426 0646330 000087 14427 0465131 000087 14430 0637060 000087 14431 3777777 DEC -1 000087 14432 0600260 MS12 ALF 2 2 000087 14433 3777777 DEC -1 000087 MS11 MAL 5 OTHER EARNINGS 000087 14434 0466330 000087 14435 0255160 000087 14436 0252151 000087 14437 0453145 000087 14440 0276260 000087 14441 3777777 DEC -1 000087 END PAL 10 FINISHED PROCESSING CONTROL 001 000087 14442 0263145 000087 14443 0316230 000087 14444 0252460 000087 14445 0475146 000087 14446 0232562 000087 14447 0623145 000087 14450 0276023 000087 14451 0464563 000087 14452 0514643 000088 14453 2600000 000088 END2 PAL 15 CHECK STATIONERY AND CHANGE IF NECESSARY 001 000088 14454 0233025 000088 14455 0234260 000088 14456 0626321 000088 14457 0633146 000088 14460 0452551 000088 14461 0706021 000088 14462 0452460 000088 14463 0233021 000088 14464 0452725 000088 14465 0603126 000088 14466 0604525 000088 14467 0232562 000088 14470 0622151 000088 14471 0706060 000088 14472 2000001 000088 NOT MAL 2 NOT 000088 14473 0604546 000088 14474 0636060 000088 14475 3777777 DEC -1 000088 DONE MAL 2 DONE 000088 14476 0244645 000088 14477 0256060 000088 14500 3777777 DEC -1 000088 SUPP MAL 3 SUPPLIED 000088 14501 0626447 000088 14502 0474331 000088 14503 0252460 000088 14504 3777777 DEC -1 000088 PSDU MAL 8 PAYMENTS SPECIAL DUTIES 000088 14505 0472170 000088 14506 0442545 000088 14507 0636260 000088 14510 0624725 000088 14511 0233121 000088 14512 0436024 000088 14513 0646331 000088 14514 0256260 000088 14515 3777777 DEC -1 000088 OTIM MAL 5 OVERTIME HOURS 000088 14516 0466525 000088 14517 0516331 000088 14520 0442560 000088 14521 0304664 000088 14522 0516260 000088 14523 3777777 DEC -1 000088 FLMES1 MAL 15 INVALID DATA ON DATE CARD. PUNCH AND ENTER 000088 14524 0314565 000088 14525 0214331 000088 14526 0246024 000088 14527 0216321 000088 14530 0604645 000088 14531 0602421 000089 14532 0632560 000089 14533 0232151 000089 14534 0243360 000089 14535 0476445 000089 14536 0233060 000089 14537 0214524 000089 14540 0602545 000089 14541 0632551 000089 14542 0606060 000089 PAL 4 NEW CARD 001 000089 14543 0452566 000089 14544 0602321 000089 14545 0512460 000089 14546 2000001 000089 CDMES PAL 8 CARD INCORRECTLY READ*** 000089 14550 0232151 000089 Why ISN'T this at 14547? 14551 0246031 000089 14552 0452346 000089 14553 0515125 000089 14554 0236343 000089 14555 0706051 000089 14556 0252124 000089 14557 2545454 000089 CDMES2 PAL 5 WRONG CARD *** 000089 14560 0665146 000089 14561 0452760 000089 14562 0232151 000089 14563 0246060 000089 14564 2545454 000089 SLOT PAL 13 MASTER FILE UPDATE RUN IS COMPLETED 001 000089 14565 0442162 000089 14566 0632551 000089 14567 0602631 000089 14570 0432560 000089 14571 0644724 000089 14572 0216325 000089 14573 0605164 000089 14574 0456031 000089 14575 0626023 000089 14576 0464447 000089 14577 0432563 000089 14600 0252460 000089 14601 2000001 000089 CDMES3 MAL 15 PAY DAY FOR PERIOD ENDING 000089 14602 0472170 000089 14603 0602421 000089 14604 0706060 000089 14605 0606060 000089 14606 0606060 000089 14607 0602646 000089 14610 0516047 000089 14611 0255131 000089 14612 0462460 000089 14613 0254524 000090 14614 0314527 000090 14615 0606060 000090 14616 0606060 000090 14617 0606060 000090 14620 0606060 000090 PAL 7 PAYNUMBER AND 001 000090 14621 0472170 000090 14622 0456444 000090 14623 0222551 000090 14624 0606060 000090 14625 0214524 000090 14626 0606060 000090 14627 2000001 000090 REM GENERAL ELECTRIC CO COMP DEPT. PHX. 00002 000090 REM REV 15 FEB 63. 00003 000090 REM 315 SOURCE-LANGUAGE CARDS 00004 000090 REM CORRECTIONS TO MODIFY FLIP 00010 000090 REM 1. ADDRESS Y CAN BE MODIFIED 00020 000090 REM 2. MAXIMUM EXTENDED TO 11 DIGITS 00030 000090 REM WITH ERROR RETURN IF MORE THAN 11. 00040 000090 REM 3. ANY INDEX GROUP CAN BE SET 00050 000090 14630 1755362 FLIP STX ..44 2 SAVE INDEXES 00060 000090 14631 1775363 STX ..44+1 3 00070 000090 14632 1735122 STX ..22 1 00080 000090 14633 1015132 DLD ..30 CLEAR BINARY FIELD 00090 000090 14634 1315136 DST ..32 00100 000090 14635 0020001 LDA 1 1 MODIFY INDEXED ADDRESS 00110 000090 14636 2715140 STO ..33 00120 000090 14637 2015412 EXT ..50 00130 000090 14640 2514002 BZE 00140 000090 14641 2614646 BRU ..45 00150 000090 14642 0115413 ADD ..51 00160 000090 14643 0314644 STA *+1 00170 000090 14644 1715364 STX ..44+2 0 00180 000090 14645 0015364 LDA ..44+2 00190 000090 14646 0115140 ..45 ADD ..33 00200 000090 14647 0314703 STA ..1 SET ADDRESSES 00210 000090 14650 0115121 ADD ..21 00220 000090 14651 0314721 STA ..6 00230 000090 14652 0115121 ADD ..21 00240 000090 14653 0314731 STA ..7 00250 000090 14654 0115121 ADD ..21 00260 000090 14655 0314741 STA ..8 00270 000090 14656 0115121 ADD ..21 00280 000090 14657 0314751 STA ..47 00290 000090 14660 0020002 LDA 2 1 CONVERT PARAMETER WORD 00300 000090 14661 2511014 SRD 12 00310 000090 14662 0315364 STA ..44+2 00320 000090 14663 0675364 LDX ..44+2 3 00330 000090 14664 2512210 SLD 8 00340 000090 14665 2015120 EXT ..20 00350 000090 14666 0315364 STA ..44+2 00360 000090 14667 0655364 LDX ..44+2 2 00370 000090 14670 2512205 SLD 5 00380 000091 14671 2015120 EXT ..20 00390 000091 14672 0155146 ADD ..35 2 00400 000091 14673 2504522 NEG 00410 000091 14674 2715073 STO ..15 00420 000091 14675 0115365 ADD ..48 00430 000091 14676 2514001 BMI 00440 000091 14677 2615141 BRU ..34 ERROR IF MORE THAN 11 DIGITS 00450 000091 14700 0635132 LDX ..30 1 00460 000091 14701 0015123 LDA ..23 00470 000091 14702 0315111 STA ..17+1 00480 000091 14703 0000000 ..1 LDA 0 00490 000091 14704 2674704 BRU ..1+1 3 00500 000091 14705 2614710 BRU ..2 00510 000091 14706 2614714 BRU ..4 00520 000091 14707 2614712 BRU ..3 00530 000091 14710 2510014 ..2 SRA 12 00540 000091 14711 2614720 BRU ..5 00550 000091 14712 0774753 ..3 SPB ..9 3 00560 000091 14713 0015117 LDA ..19 00570 000091 14714 2510006 ..4 SRA 6 00580 000091 14715 0774753 SPB ..9 3 00590 000091 14716 0015117 LDA ..19 00600 000091 14717 2510006 SRA 6 00610 000091 14720 0774755 ..5 SPB ..9+2 3 00620 000091 14721 0000000 ..6 LDA 0 00630 000091 14722 0774753 SPB ..9 3 00640 000091 14723 0015117 LDA ..19 00650 000091 14724 2510006 SRA 6 00660 000091 14725 0774753 SPB ..9 3 00670 000091 14726 0015117 LDA ..19 00680 000091 14727 2510006 SRA 6 00690 000091 14730 0774755 SPB ..9+2 3 00700 000091 14731 0000000 ..7 LDA 0 00710 000091 14732 0774753 SPB ..9 3 00720 000091 14733 0015117 LDA ..19 00730 000091 14734 2510006 SRA 6 00740 000091 14735 0774753 SPB ..9 3 00750 000091 14736 0015117 LDA ..19 00760 000091 14737 2510006 SRA 6 00770 000091 14740 0774755 SPB ..9+2 3 00780 000091 14741 0000000 ..8 LDA 0 00790 000091 14742 0774753 SPB ..9 3 00800 000091 14743 0015117 LDA ..19 00810 000091 14744 2510006 SRA 6 00820 000091 14745 0774753 SPB ..9 3 00830 000091 14746 0015117 LDA ..19 00840 000091 14747 2510006 SRA 6 00850 000091 14750 0774755 SPB ..9+2 3 00860 000091 14751 0000000 ..47 LDA 0 00870 000091 14752 0774754 SPB ..9+1 3 00880 000091 REM VALIDITY TEST 00890 000091 14753 0315117 ..9 STA ..19 00900 000091 14754 2015120 EXT ..20 00910 000091 14755 2514002 BZE 00920 000092 14756 2615072 BRU ..14 00930 000092 14757 2512001 SLA 1 00940 000092 14760 0315364 STA ..44+2 00950 000092 14761 0655364 LDX ..44+2 2 00960 000092 14762 0115125 ADD ..25 USE BRU ..10 HERE, TO ELIMINATE 00970 000092 REM VALIDITY TEST 00980 000092 14763 2514001 BMI 00990 000092 14764 2615032 BRU ..10 01000 000092 14765 0115126 ADD ..26 01010 000092 14766 2514002 BZE 01020 000092 14767 2615076 BRU ..16 01030 000092 14770 2514001 BMI 01040 000092 14771 2615141 BRU ..34 01050 000092 14772 0315364 STA ..44+2 01060 000092 14773 0655364 LDX ..44+2 2 01070 000092 14774 0115125 ADD ..25 01080 000092 14775 2514001 BMI 01090 000092 14776 2615032 BRU ..10 01100 000092 REM IS IT PLUS ZERO [OCTAL 32] 01110 000092 14777 2514002 BZE 01120 000092 15000 2615072 BRU ..14 01130 000092 15001 0115127 ADD ..27 01140 000092 15002 2514002 BZE 01150 000092 15003 2615076 BRU ..16 01160 000092 15004 0115130 ADD ..28 01170 000092 15005 2516002 BNZ *+5 01180 000092 15006 2615012 BRU *+4 000092 15007 0015124 LDA ..24 01190 000092 15010 0315111 STA ..17+1 01200 000092 15011 2615076 BRU ..16 01210 000092 15012 2514001 BMI 01220 000092 15013 2615141 BRU ..34 01230 000092 15014 0315364 ..46 STA ..44+2 01240 000092 15015 0655364 LDX ..44+2 2 01250 000092 15016 0115125 ADD ..25 01260 000092 15017 2516001 BPL *+5 01270 000092 15020 2615024 BRU *+4 000092 15021 0015124 LDA ..24 01280 000092 15022 0315111 STA ..17+1 01290 000092 15023 2615032 BRU ..10 01300 000092 15024 2514002 BZE IS IT MINUS ZERO [OCTAL 52] 01310 000092 15025 2615014 BRU ..46 01320 000092 15026 0115126 ADD ..26 01330 000092 15027 2514002 BZE 01340 000092 15030 2615076 BRU ..16 01350 000092 15031 2615141 BRU ..34 01360 000092 15032 2635033 ..10 BRU ..10+1 1 01370 000092 15033 1755364 STX ..44+2 2 01380 000092 15034 2615061 BRU ..11 01390 000092 15035 0055146 LDA ..35 2 01400 000092 15036 2615065 BRU ..12 01410 000092 15037 0055147 LDA ..36 2 01420 000092 15040 2615065 BRU ..12 01430 000092 15041 0055172 LDA ..37 2 01440 000093 15042 2615065 BRU ..12 01450 000093 15043 0055173 LDA ..38 2 01460 000093 15044 2615065 BRU ..12 01470 000093 15045 1055216 DLD ..39 2 01480 000093 15046 2615070 BRU ..13 01490 000093 15047 1055242 DLD ..40 2 01500 000093 15050 2615070 BRU ..13 01510 000093 15051 1055266 DLD ..41 2 01520 000093 15052 2615070 BRU ..13 01530 000093 15053 1055312 DLD ..42 2 01540 000093 15054 2615070 BRU ..13 01550 000093 15055 1055336 DLD ..43 2 01560 000093 15056 2615070 BRU ..13 01570 000093 15057 1055366 DLD ..49 2 01580 000093 15060 2615070 BRU ..13 01590 000093 15061 0015364 ..11 LDA ..44+2 01600 000093 15062 2510001 SRA 1 01610 000093 15063 0315137 STA ..32+1 01620 000093 15064 2615072 BRU ..14 01630 000093 15065 0115137 ..12 ADD ..32+1 01640 000093 15066 0315137 STA ..32+1 01650 000093 15067 2615072 BRU ..14 01660 000093 15070 1115136 ..13 DAD ..32 01670 000093 15071 1315136 DST ..32 01680 000093 15072 1420002 ..14 INX 2 1 01690 000093 15073 0520000 ..15 BXH 0 1 01700 000093 15074 2615106 BRU ..17-2 01710 000093 15075 2660001 BRU 1 3 01720 000093 15076 0015073 ..16 LDA ..15 01730 000093 15077 0115134 ADD ..31 01740 000093 15100 0315073 STA ..15 01750 000093 15101 2015120 EXT ..20 01760 000093 15102 2516002 BNZ ..15 01770 000093 15103 2615073 BRU ..15 000093 REM CARDS 01480 AND 01490 REMOVED 01780 000093 15104 0015131 LDA ..29 01790 000093 15105 0315073 STA ..15 01800 000093 15106 0655362 LDX ..44 2 01810 000093 15107 0675363 LDX ..44+1 3 01820 000093 15110 0635122 ..17 LDX ..22 1 01830 000093 15111 2600000 BRU 0 01840 000093 15112 1015132 DLD ..30 01850 000093 15113 1215136 DSU ..32 01860 000093 15114 2620004 BRU 4 1 01870 000093 15115 1015136 ..18 DLD ..32 01880 000093 15116 2620004 BRU 4 1 01890 000093 15117 ..19 BSS 1 01900 000093 15120 3777700 ..20 OCT 3777700 01910 000093 15121 3777777 ..21 DEC -1 01920 000093 15122 ..22 BSS 1 01930 000093 15123 2615115 ..23 BRU ..18 01940 000093 15124 2615112 ..24 BRU ..17+2 01950 000093 15125 3777754 ..25 DEC -20 01960 000093 15126 3777764 ..26 DEC -12 01970 000094 15127 3777776 ..27 DEC -2 01980 000094 15130 3777766 ..28 DEC -10 01990 000094 15131 0520000 ..29 BXH 0 1 02000 000094 15132 0000000 ..30 DDC 0 02010 000094 15133 0000000 000094 15134 0000002 ..31 DEC 2 02020 000094 15136 ..32 BSS 2 02030 000094 Why ISN'T this at 15135? 15140 0000000 ..33 DEC 0 02040 000094 REM ERROR RETURN 02050 000094 15141 0655362 ..34 LDX ..44 2 02060 000094 15142 0675363 LDX ..44+1 3 02070 000094 15143 0635122 LDX ..22 1 02080 000094 15144 1015132 DLD ..30 02090 000094 15145 2620003 BRU 3 1 02100 000094 15146 0000000 ..35 DEC 0 02110 000094 15147 0000000 ..36 DEC 0 02120 000094 15150 0000012 DEC 10 02130 000094 15151 0000144 DEC 100 02140 000094 15152 0000024 DEC 20 02150 000094 15153 0000310 DEC 200 02160 000094 15154 0000036 DEC 30 02170 000094 15155 0000454 DEC 300 02180 000094 15156 0000050 DEC 40 02190 000094 15157 0000620 DEC 400 02200 000094 15160 0000062 DEC 50 02210 000094 15161 0000764 DEC 500 02220 000094 15162 0000074 DEC 60 02230 000094 15163 0001130 DEC 600 02240 000094 15164 0000106 DEC 70 02250 000094 15165 0001274 DEC 700 02260 000094 15166 0000120 DEC 80 02270 000094 15167 0001440 DEC 800 02280 000094 15170 0000132 DEC 90 02290 000094 15171 0001604 DEC 900 02300 000094 15172 0000000 ..37 DEC 0 02310 000094 15173 0000000 ..38 DEC 0 02320 000094 15174 0001750 DEC 1000 02330 000094 15175 0023420 DEC 10000 02340 000094 15176 0003720 DEC 2000 02350 000094 15177 0047040 DEC 20000 02360 000094 15200 0005670 DEC 3000 02370 000094 15201 0072460 DEC 30000 02380 000094 15202 0007640 DEC 4000 02390 000094 15203 0116100 DEC 40000 02400 000094 15204 0011610 DEC 5000 02410 000094 15205 0141520 DEC 50000 02420 000094 15206 0013560 DEC 6000 02430 000094 15207 0165140 DEC 60000 02440 000094 15210 0015530 DEC 7000 02450 000094 15211 0210560 DEC 70000 02460 000094 15212 0017500 DEC 8000 02470 000094 15213 0234200 DEC 80000 02480 000094 15214 0021450 DEC 9000 02490 000094 15215 0257620 DEC 90000 02500 000095 15216 0000000 ..39 DDC 0 02510 000095 15217 0000000 000095 15220 0000000 DDC 1E5 02520 000095 15221 0303240 000095 15222 0000000 DDC 2E5 02530 000095 15223 0606500 000095 15224 0000000 DDC 3E5 02540 000095 15225 1111740 000095 15226 0000000 DDC 4E5 02550 000095 15227 1415200 000095 15230 0000000 DDC 5E5 02560 000095 15231 1720440 000095 15232 0000001 DDC 6E5 02570 000095 15233 0223700 000095 15234 0000001 DDC 7E5 02580 000095 15235 0527140 000095 15236 0000001 DDC 8E5 02590 000095 15237 1032400 000095 15240 0000001 DDC 9E5 02600 000095 15241 1335640 000095 15242 0000000 ..40 DDC 0 02610 000095 15243 0000000 000095 15244 0000001 DDC 1E6 02620 000095 15245 1641100 000095 15246 0000003 DDC 2E6 02630 000095 15247 1502200 000095 15250 0000005 DDC 3E6 02640 000095 15251 1343300 000095 15252 0000007 DDC 4E6 02650 000095 15253 1204400 000095 15254 0000011 DDC 5E6 02660 000095 15255 1045500 000095 15256 0000013 DDC 6E6 02670 000095 15257 0706600 000095 15260 0000015 DDC 7E6 02680 000095 15261 0547700 000095 15262 0000017 DDC 8E6 02690 000095 15263 0411000 000095 15264 0000021 DDC 9E6 02700 000095 15265 0252100 000095 15266 0000000 ..41 DDC 0 02710 000095 15267 0000000 000095 15270 0000023 DDC 1E7 02720 000095 15271 0113200 000095 15272 0000046 DDC 2E7 02730 000095 15273 0226400 000095 15274 0000071 DDC 3E7 02740 000095 15275 0341600 000095 15276 0000114 DDC 4E7 02750 000095 15277 0455000 000095 15300 0000137 DDC 5E7 02760 000095 15301 0570200 000095 15302 0000162 DDC 6E7 02770 000095 15303 0703400 000096 15304 0000205 DDC 7E7 02780 000096 15305 1016600 000096 15306 0000230 DDC 8E7 02790 000096 15307 1132000 000096 15310 0000253 DDC 9E7 02800 000096 15311 1245200 000096 15312 0000000 ..42 DDC 0 02810 000096 15313 0000000 000096 15314 0000276 DDC 1E8 02820 000096 15315 1360400 000096 15316 0000575 DDC 2E8 02830 000096 15317 0741000 000096 15320 0001074 DDC 3E8 02840 000096 15321 0321400 000096 15322 0001372 DDC 4E8 02850 000096 15323 1702000 000096 15324 0001671 DDC 5E8 02860 000096 15325 1262400 000096 15326 0002170 DDC 6E8 02870 000096 15327 0643000 000096 15330 0002467 DDC 7E8 02880 000096 15331 0223400 000096 15332 0002765 DDC 8E8 02890 000096 15333 1604000 000096 15334 0003264 DDC 9E8 02900 000096 15335 1164400 000096 15336 0000000 ..43 DDC 0 02910 000096 15337 0000000 000096 15340 0003563 DDC 1E9 02920 000096 15341 0545000 000096 15342 0007346 DDC 2E9 02930 000096 15343 1312000 000096 15344 0013132 DDC 3E9 02940 000096 15345 0057000 000096 15346 0016715 DDC 4E9 02950 000096 15347 0624000 000096 15350 0022500 DDC 5E9 02960 000096 15351 1371000 000096 15352 0026264 DDC 6E9 02970 000096 15353 0136000 000096 15354 0032047 DDC 7E9 02980 000096 15355 0703000 000096 15356 0035632 DDC 8E9 02990 000096 15357 1450000 000096 15360 0041416 DDC 9E9 03000 000096 15361 0215000 000096 15362 ..44 BSS 3 03010 000096 15365 0000026 ..48 DEC 22 03020 000096 15366 0000000 ..49 DDC 0 03030 000096 15367 0000000 000096 15370 0045201 DDC 1E10 03040 000096 15371 0762000 000096 15372 0112402 DDC 2E10 03050 000096 15373 1744000 000097 15374 0157604 DDC 3E10 03060 000097 15375 0726000 000097 15376 0225005 DDC 4E10 03070 000097 15377 1710000 000097 15400 0272207 DDC 5E10 03080 000097 15401 0672000 000097 15402 0337410 DDC 6E10 03090 000097 15403 1654000 000097 15404 0404612 DDC 7E10 03100 000097 15405 0636000 000097 15406 0452013 DDC 8E10 03110 000097 15407 1620000 000097 15410 0517215 DDC 9E10 03120 000097 15411 0602000 000097 15412 3717777 ..50 OCT 3717777 03130 000097 15413 1715364 ..51 STX ..44+2 0 03140 000097 REM LAST CARD CD225C1.000 03150 000097 REM CD225C2.000 - FLOP - BINARY TO BCD CONVERSN. 00001 000097 REM GENERAL ELECTRIC CO COMP DEPT. PHX. 00002 000097 REM COR 8 OCT 62. 00003 000097 REM 380 SOURCE LANGUAGE CARDS. 00004 000097 15414 1000000 $001 OCT 1000000 00010 000097 15415 0000000 DEC 0 00015 000097 15416 0000000 $003 DDC 0 00020 000097 15417 0000000 000097 15420 $001A BSS 2 00030 000097 15422 0000000 $002 DEC 0 00040 000097 15423 2000000 $002A Z20 0 00050 000097 15424 0000001 $004 DEC 1 00060 000097 15425 1315420 FLOP DST $001A 00070 000097 15426 2506011 SET DECMODE 00080 000097 15427 0015414 LDA $001 RELEASE CARRY FLIP-FLOP 00090 000097 15430 0115414 ADD $001 00100 000097 15431 2506012 SET BINMODE 00110 000097 15432 0000001 LDA 1 SET EXIT 00120 000097 15433 0115424 ADD $004 00130 000097 15434 2715773 STO $010 00140 000097 15435 0315422 STA $002 00150 000097 15436 1015414 DLD $001 00160 000097 15437 1312126 DST BINWA 00170 000097 15440 1015416 DLD $003 00180 000097 15441 1312130 DST BINWA+2 00190 000097 15442 0300001 STA 1 00200 000097 15443 0015420 LDA $001A 00210 000097 15444 2516001 BPL *+6 00220 000097 15445 2615452 BRU *+5 000097 15446 1015416 DLD $003 00230 000097 15447 0315422 STA $002 00240 000097 15450 1215420 DSU $001A 00250 000097 15451 1315420 DST $001A 00260 000097 15452 0015421 LDA $001A+1 00270 000097 15453 2514002 BZE $006+6 00280 000097 15454 2615555 BRU $006+6 000097 15455 2511004 $005 SRD 4 ISOLATE FOUR BITS 00290 000098 15456 0315421 STA $001A+1 00300 000098 15457 0015416 LDA $003 00310 000098 15460 2512204 SLD 4 00320 000098 15461 0115774 ADD $011-1 00330 000098 15462 2715464 STO *+2 00340 000098 15463 2506011 SET DECMODE 00350 000098 15464 2600000 BRU 0 00360 000098 15465 2615547 #0A BRU $006 00370 000098 15466 1012130 #1A DLD BINWA+2 00380 000098 15467 1136036 DAD #1T 1 00390 000098 15470 1312130 DST BINWA+2 00400 000098 15471 2615547 BRU $006 00410 000098 15472 1012130 #2A DLD BINWA+2 00420 000098 15473 1136050 DAD #2T 1 00430 000098 15474 1312130 DST BINWA+2 00440 000098 15475 2615547 BRU $006 00450 000098 15476 1012130 #3A DLD BINWA+2 00460 000098 15477 1136050 DAD #2T 1 00470 000098 15500 2615467 BRU #1A+1 00480 000098 15501 1012130 #4A DLD BINWA+2 00490 000098 15502 1136062 DAD #4T 1 00500 000098 15503 1312130 DST BINWA+2 00510 000098 15504 2615547 BRU $006 00520 000098 15505 1012130 #5A DLD BINWA+2 00530 000098 15506 1136062 DAD #4T 1 00540 000098 15507 2615467 BRU #1A+1 00550 000098 15510 1012130 #6A DLD BINWA+2 00560 000098 15511 1136062 DAD #4T 1 00570 000098 15512 2615473 BRU #2A+1 00580 000098 15513 1012130 #7A DLD BINWA+2 00590 000098 15514 1136062 DAD #4T 1 00600 000098 15515 2615477 BRU #3A+1 00610 000098 15516 1012130 #8A DLD BINWA+2 00620 000098 15517 1136074 DAD #8T 1 00630 000098 15520 1312130 DST BINWA+2 00640 000098 15521 2615547 BRU $006 00650 000098 15522 1012130 #9A DLD BINWA+2 00660 000098 15523 1136074 DAD #8T 1 00670 000098 15524 2615467 BRU #1A+1 00680 000098 15525 1012130 #10A DLD BINWA+2 00690 000098 15526 1136074 DAD #8T 1 00700 000098 15527 2615473 BRU #2A+1 00710 000098 15530 1012130 #11A DLD BINWA+2 00720 000098 15531 1136074 DAD #8T 1 00730 000098 15532 2615477 BRU #3A+1 00740 000098 15533 1012130 #12A DLD BINWA+2 00750 000098 15534 1136074 DAD #8T 1 00760 000098 15535 2615502 BRU #4A+1 00770 000098 15536 1012130 #13A DLD BINWA+2 00780 000098 15537 1136074 DAD #8T 1 00790 000098 15540 2615506 BRU #5A+1 00800 000098 15541 1012130 #14A DLD BINWA+2 00810 000098 15542 1136074 DAD #8T 1 00820 000098 15543 2615511 BRU #6A+1 00830 000099 15544 1012130 #15A DLD BINWA+2 00840 000099 15545 1136074 DAD #8T 1 00850 000099 15546 2615514 BRU #7A+1 00860 000099 15547 0015421 $006 LDA $001A+1 00870 000099 15550 2514002 BZE *+5 00880 000099 15551 2615555 BRU $006+6 000099 15552 2506012 SET BINMODE 00890 000099 15553 1420002 INX 2 1 00900 000099 15554 2615455 BRU $005 00910 000099 15555 2506012 SET BINMODE 00920 000099 15556 0635416 LDX $003 1 00930 000099 15557 0015420 LDA $001A 00940 000099 15560 2015423 EXT $002A 00950 000099 15561 2514002 BZE $009 00960 000099 15562 2615754 BRU $009 000099 15563 2511004 $007 SRD 4 ISOLATE FOUR BITS 00970 000099 15564 0315420 STA $001A 00980 000099 15565 0015416 LDA $003 00990 000099 15566 2512204 SLD 4 01000 000099 15567 0116015 ADD $012-1 01010 000099 15570 2715572 STO *+2 01020 000099 15571 2506011 SET DECMODE 01030 000099 15572 2600000 BRU 0 01040 000099 15573 2615745 #0B BRU $008 01050 000099 15574 1012130 #1B DLD BINWA+2 01060 000099 15575 1136106 DAD #1TB+2 1 01070 000099 15576 1312130 DST BINWA+2 01080 000099 15577 1012126 DLD BINWA 01090 000099 15600 1136104 DAD #1TB 1 01100 000099 15601 1312126 DST BINWA 01110 000099 15602 2615745 BRU $008 01120 000099 15603 1012130 #2B DLD BINWA+2 01130 000099 15604 1136132 DAD #2TB+2 1 01140 000099 15605 1312130 DST BINWA+2 01150 000099 15606 1012126 DLD BINWA 01160 000099 15607 1136130 DAD #2TB 1 01170 000099 15610 1312126 DST BINWA 01180 000099 15611 2615745 BRU $008 01190 000099 15612 1012130 #3B DLD BINWA+2 01200 000099 15613 1136132 DAD #2TB+2 1 01210 000099 15614 1312130 DST BINWA+2 01220 000099 15615 1012126 DLD BINWA 01230 000099 15616 1136130 DAD #2TB 1 01240 000099 15617 1312126 DST BINWA 01250 000099 15620 2615574 BRU #1B 01260 000099 15621 1012130 #4B DLD BINWA+2 01270 000099 15622 1136156 DAD #4TB+2 1 01280 000099 15623 1312130 DST BINWA+2 01290 000099 15624 1012126 DLD BINWA 01300 000099 15625 1136154 DAD #4TB 1 01310 000099 15626 1312126 DST BINWA 01320 000099 15627 2615745 BRU $008 01330 000099 15630 1012130 #5B DLD BINWA+2 01340 000099 15631 1136156 DAD #4TB+2 1 01350 000100 15632 1312130 DST BINWA+2 01360 000100 15633 1012126 DLD BINWA 01370 000100 15634 1136154 DAD #4TB 1 01380 000100 15635 1312126 DST BINWA 01390 000100 15636 2615574 BRU #1B 01400 000100 15637 1012130 #6B DLD BINWA+2 01410 000100 15640 1136156 DAD #4TB+2 1 01420 000100 REM CD225C1.000 FLIP-1 BCD TO BINARY CONVERSION 00001 000100 Mis-sequenced, see: 14630 15641 1312130 DST BINWA+2 01430 000100 15642 1012126 DLD BINWA 01440 000100 15643 1136154 DAD #4TB 1 01450 000100 15644 1312126 DST BINWA 01460 000100 15645 2615603 BRU #2B 01470 000100 15646 1012130 #7B DLD BINWA+2 01480 000100 15647 1136156 DAD #4TB+2 1 01490 000100 15650 1312130 DST BINWA+2 01500 000100 15651 1012126 DLD BINWA 01510 000100 15652 1136154 DAD #4TB 1 01520 000100 15653 1312126 DST BINWA 01530 000100 15654 2615612 BRU #3B 01540 000100 15655 1012130 #8B DLD BINWA+2 01550 000100 15656 1136202 DAD #8TB+2 1 01560 000100 15657 1312130 DST BINWA+2 01570 000100 15660 1012126 DLD BINWA 01580 000100 15661 1136200 DAD #8TB 1 01590 000100 15662 1312126 DST BINWA 01600 000100 15663 2615745 BRU $008 01610 000100 15664 1012130 #9B DLD BINWA+2 01620 000100 15665 1136202 DAD #8TB+2 1 01630 000100 15666 1312130 DST BINWA+2 01640 000100 15667 1012126 DLD BINWA 01650 000100 15670 1136200 DAD #8TB 1 01660 000100 15671 1312126 DST BINWA 01670 000100 15672 2615574 BRU #1B 01680 000100 15673 1012130 #10B DLD BINWA+2 01690 000100 15674 1136202 DAD #8TB+2 1 01700 000100 15675 1312130 DST BINWA+2 01710 000100 15676 1012126 DLD BINWA 01720 000100 15677 1136200 DAD #8TB 1 01730 000100 15700 1312126 DST BINWA 01740 000100 15701 2615603 BRU #2B 01750 000100 15702 1012130 #11B DLD BINWA+2 01760 000100 15703 1136202 DAD #8TB+2 1 01770 000100 15704 1312130 DST BINWA+2 01780 000100 15705 1012126 DLD BINWA 01790 000100 15706 1136200 DAD #8TB 1 01800 000100 15707 1312126 DST BINWA 01810 000100 15710 2615612 BRU #3B 01820 000100 15711 1012130 #12B DLD BINWA+2 01830 000100 15712 1136202 DAD #8TB+2 1 01840 000100 15713 1312130 DST BINWA+2 01850 000100 15714 1012126 DLD BINWA 01860 000100 15715 1136200 DAD #8TB 1 01870 000100 15716 1312126 DST BINWA 01880 000101 15717 2615621 BRU #4B 01890 000101 15720 1012130 #13B DLD BINWA+2 01900 000101 15721 1136202 DAD #8TB+2 1 01910 000101 15722 1312130 DST BINWA+2 01920 000101 15723 1012126 DLD BINWA 01930 000101 15724 1136200 DAD #8TB 1 01940 000101 15725 1312126 DST BINWA 01950 000101 15726 2615630 BRU #5B 01960 000101 15727 1012130 #14B DLD BINWA+2 01970 000101 15730 1136202 DAD #8TB+2 1 01980 000101 15731 1312130 DST BINWA+2 01990 000101 15732 1012126 DLD BINWA 02000 000101 15733 1136200 DAD #8TB 1 02010 000101 15734 1312126 DST BINWA 02020 000101 15735 2615637 BRU #6B 02030 000101 15736 1012130 #15B DLD BINWA+2 02040 000101 15737 1136202 DAD #8TB+2 1 02050 000101 15740 1312130 DST BINWA+2 02060 000101 15741 1012126 DLD BINWA 02070 000101 15742 1136200 DAD #8TB 1 02080 000101 15743 1312126 DST BINWA 02090 000101 15744 2615646 BRU #7B 02100 000101 15745 0015420 $008 LDA $001A 02110 000101 15746 2015423 EXT $002A 02120 000101 15747 2514002 BZE $009 02130 000101 15750 2615754 BRU $009 000101 15751 2506012 SET BINMODE 02140 000101 15752 1420004 INX 4 1 02150 000101 15753 2615563 BRU $007 02160 000101 15754 2506011 $009 SET DECMODE 02170 000101 15755 0015414 LDA $001 02180 000101 15756 0115414 ADD $001 02190 000101 15757 2506012 SET BINMODE 02200 000101 15760 0015416 LDA $003 02210 000101 15761 0215416 SUB $003 02220 000101 15762 2516002 BNZ $009 02230 000101 15763 2615754 BRU $009 000101 15764 0015422 LDA $002 02240 000101 15765 2516002 BNZ *+6 02250 000101 15766 2615773 BRU *+5 000101 15767 0012126 LDA BINWA 02260 000101 15770 2516001 BPL 02270 000101 15771 2504040 CHS 02280 000101 15772 0312126 STA BINWA 02290 000101 15773 2600000 $010 BRU -- GO HOME 02300 000101 15774 0015775 LDA *+1 02310 000101 15775 2615465 $011 BRU #0A 02320 000101 15776 2615466 BRU #1A 02330 000101 15777 2615472 BRU #2A 02340 000101 16000 2615476 BRU #3A 02350 000101 16001 2615501 BRU #4A 02360 000101 16002 2615505 BRU #5A 02370 000101 16003 2615510 BRU #6A 02380 000101 16004 2615513 BRU #7A 02390 000102 16005 2615516 BRU #8A 02400 000102 16006 2615522 BRU #9A 02410 000102 16007 2615525 BRU #10A 02420 000102 16010 2615530 BRU #11A 02430 000102 16011 2615533 BRU #12A 02440 000102 16012 2615536 BRU #13A 02450 000102 16013 2615541 BRU #14A 02460 000102 16014 2615544 BRU #15A 02470 000102 16015 0016016 LDA *+1 02480 000102 16016 2615573 $012 BRU #0B 02490 000102 16017 2615574 BRU #1B 02500 000102 16020 2615603 BRU #2B 02510 000102 16021 2615612 BRU #3B 02520 000102 16022 2615621 BRU #4B 02530 000102 16023 2615630 BRU #5B 02540 000102 16024 2615637 BRU #6B 02550 000102 16025 2615646 BRU #7B 02560 000102 16026 2615655 BRU #8B 02570 000102 16027 2615664 BRU #9B 02580 000102 16030 2615673 BRU #10B 02590 000102 16031 2615702 BRU #11B 02600 000102 16032 2615711 BRU #12B 02610 000102 16033 2615720 BRU #13B 02620 000102 16034 2615727 BRU #14B 02630 000102 16035 2615736 BRU #15B 02640 000102 16036 0000000 #1T ALF 000 0 POWER 02650 000102 16037 0000001 ALF 001 02660 000102 16040 0000000 ALF 000 4TH POWER 02670 000102 16041 0000106 ALF 016 02680 000102 16042 0000000 ALF 000 8TH POWER 02690 000102 16043 0020506 ALF 256 02700 000102 16044 0000004 ALF 004 12TH POWER 02710 000102 16045 0001106 ALF 096 02720 000102 16046 0000605 ALF 065 16TH POWER 02730 000102 16047 0050306 ALF 536 02740 000102 16050 0000000 #2T ALF 000 1ST POWER 02750 000102 16051 0000002 ALF 002 02760 000102 16052 0000000 ALF 000 5TH POWER 02770 000102 16053 0000302 ALF 032 02780 000102 16054 0000000 ALF 000 9TH POWER 02790 000102 16055 0050102 ALF 512 02800 000102 16056 0000008 ALF 008 13TH POWER 02810 000102 16057 0010902 ALF 192 02820 000102 16060 0010301 ALF 131 17TH POWER 02830 000102 16061 0000702 ALF 072 02840 000102 16062 0000000 #4T ALF 000 2ND POWER 02850 000102 16063 0000004 ALF 004 02860 000102 16064 0000000 ALF 000 6TH POWER 02870 000102 16065 0000604 ALF 064 02880 000102 16066 0000001 ALF 001 10TH POWER 02890 000102 16067 0000204 ALF 024 02900 000102 16070 0000106 ALF 016 14TH POWER 02910 000102 16071 0030804 ALF 384 02920 000102 16072 0020602 ALF 262 18TH POWER 02930 000103 16073 0010404 ALF 144 02940 000103 16074 0000000 #8T ALF 000 3RD POWER 02950 000103 16075 0000008 ALF 008 02960 000103 16076 0000000 ALF 000 7TH POWER 02970 000103 16077 0010208 ALF 128 02980 000103 16100 0000002 ALF 002 11TH POWER 02990 000103 16101 0000408 ALF 048 03000 000103 16102 0000302 ALF 032 15TH POWER 03010 000103 16103 0070608 ALF 768 03020 000103 16104 1000000 #1TB OCT 1000000 03030 000103 16105 0000000 ALF 000 03040 000103 16106 0050204 ALF 524 03050 000103 16107 0021010 ALF 288 03060 000103 16110 1000000 OCT 1000000 03070 000103 16111 0000010 ALF 008 03080 000103 16112 0031010 ALF 388 03090 000103 16113 0060010 ALF 608 03100 000103 16114 1000000 OCT 1000000 03110 000103 16115 0010304 ALF 134 03120 000103 16116 0020107 ALF 217 03130 000103 16117 0070210 ALF 728 03140 000103 16120 1000002 OCT 1000002 03150 000103 16121 0010407 ALF 147 03160 000103 16122 0041003 ALF 483 03170 000103 16123 0060410 ALF 648 03180 000103 16124 1000304 OCT 1000304 03190 000103 16125 0030511 ALF 359 03200 000103 16126 0070310 ALF 738 03210 000103 16127 0030610 ALF 368 03220 000103 16130 1000000 #2TB OCT 1000000 03230 000103 16131 0000001 ALF 001 03240 000103 16132 0000410 ALF 048 03250 000103 16133 0050706 ALF 576 03260 000103 16134 1000000 OCT 1000000 03270 000103 16135 0000106 ALF 016 03280 000103 16136 0070707 ALF 777 03290 000103 16137 0020106 ALF 216 03300 000103 16140 1000000 OCT 1000000 03310 000103 16141 0020610 ALF 268 03320 000103 16142 0040305 ALF 435 03330 000103 16143 0040506 ALF 456 03340 000103 16144 1000004 OCT 1000004 03350 000103 16145 0021104 ALF 294 03360 000103 16146 0110607 ALF 967 03370 000103 16147 0021106 ALF 296 03380 000103 16150 1000610 OCT 1000610 03390 000103 16151 0070111 ALF 719 03400 000103 16152 0040706 ALF 476 03410 000103 16153 0070306 ALF 736 03420 000103 16154 1000000 #4TB OCT 1000000 03430 000103 16155 0000002 ALF 002 03440 000103 16156 0001107 ALF 097 03450 000103 16157 0010502 ALF 152 03460 000103 16160 1000000 OCT 1000000 03470 000104 16161 0000303 ALF 033 03480 000104 16162 0050504 ALF 554 03490 000104 16163 0040302 ALF 432 03500 000104 16164 1000000 OCT 1000000 03510 000104 16165 0050306 ALF 536 03520 000104 16166 0100700 ALF 870 03530 000104 16167 0110102 ALF 912 03540 000104 16170 1000010 OCT 1000010 03550 000104 16171 0051011 ALF 589 03560 000104 16172 0110304 ALF 934 03570 000104 16173 0051102 ALF 592 03580 000104 16174 1010307 OCT 1010307 03590 000104 16175 0040310 ALF 438 03600 000104 16176 0110503 ALF 953 03610 000104 16177 0040702 ALF 472 03620 000104 16200 1000000 #8TB OCT 1000000 03630 000104 16201 0000004 ALF 004 03640 000104 16202 0011104 ALF 194 03650 000104 16203 0030004 ALF 304 03660 000104 16204 1000000 OCT 1000000 03670 000104 16205 0000607 ALF 067 03680 000104 16206 0010010 ALF 108 03690 000104 16207 0100604 ALF 864 03700 000104 16210 1000001 OCT 1000001 03710 000104 16211 0000703 ALF 073 03720 000104 16212 0070401 ALF 741 03730 000104 16213 0100204 ALF 824 03740 000104 16214 1000107 OCT 1000107 03750 000104 16215 0010711 ALF 179 03760 000104 16216 0100611 ALF 869 03770 000104 16217 0011004 ALF 184 03780 000104 REM LAST CARD - CD225C2.000 03790 000104 REM CD225E2.001 SYMBOLIC TAPE INPUT OUTPUT 00001 000104 REM SYSTEM REV 3 00002 000104 REM GENERAL ELECTRIC CO COMP DEPT PHX. 00003 000104 REM COR 23 OCT 63. 00004 000104 REM 881 SOURCE LANGUAGE CARDS 00005 000104 16220 0317652 #I/O STA #XHOLD 00010 000104 16221 0000001 LDA 1 00020 000104 16222 0217601 SUB #CON21 00030 000104 16223 2616227 BRU #A5 00040 000104 REM ROUTINE TO SET UP SIOS FOR THIS ENTRY 00049 000104 16224 1737652 #I/OZ STX #XHOLD 1 SAVE RETURN ADDRESS 00050 000104 16225 0020000 LDA 0 1 COMPUTE ADDRESS OF PARAMETER 00060 000104 16226 0217657 SUB #CON20 LIST FOR THIS FILE 00070 000104 16227 2717653 #A5 STO XHOLD1 SAVE CURRENT PARAMETER LIST ADDR 00080 000104 16230 1757661 STX #SAV1 2 SAVE USERS CONTENTS OF X2 00081 000104 16231 1777662 STX #SAV2 3 SAVE USERS CONTENTS OF X3 00082 000104 16232 0657573 LDX CNZERO 2 PUT ZERO IN X2 00090 000104 16233 0637653 LDX XHOLD1 1 LOAD X1 WITH ADD OF CURRENT PAR LIST 00100 000104 16234 0020043 LDA 35 1 GET LOG REC NUMBER 00110 000104 16235 0317563 STA #B90 AND 00120 000104 16236 0677563 LDX #B90 3 PUT IN X3 00130 000104 16237 2620026 BRU 22 1 BRANCH TO LINE 3 OF CURRENT FILE SUBR 00140 000105 REM NORMAL EXIT ROUTINE 00149 000105 16240 2017610 #I/OX EXT #MASK1 EXTRACT ALL BUT ADDRESS 00150 000105 16241 0317642 STA #SAVE1 PUT IN TEMP STORAGE 00160 000105 16242 0657642 LDX #SAVE1 2 LOAD X2 WITH ADD OF 1 WD NEXT LOG REC 00170 000105 16243 1777563 STX #B90 3 PUT X3 IN TEMP STORAGE 00180 000105 16244 0017563 LDA #B90 LOAD X3 IN A REG 00190 000105 16245 0320001 STA 1 1 ST X3 LINE 16 OF FS THIS IS LOG REC OF BLOCK 00200 000105 16246 0017637 LDA #ONES LDA OCTAL 3777777 00210 000105 16247 2040000 EXT 0 2 EXTRAC CONTENTS OF WORD REF TO IN X2 00220 000105 16250 2514002 BZE TEST FOR SHORT BLOCK INDIC BIN 00230 000105 16251 2616272 BRU #A20 SHORT BLOCK 00240 000105 16252 0040000 LDA 0 2 LOAD WORD REF TO IN X2 00250 000105 16253 0117564 ADD BCDEOF ADD OCTAL 3240325 00260 000105 16254 2514002 BZE TEST FOR SHORT BLOCK INDIC BCD 00270 000105 16255 2616263 BRU #A15 SHORT BLOCK 00280 000105 16256 0637652 #A10 LDX #XHOLD 1 PUT RETURN ADDRESS IN X1 00290 000105 16257 0657661 LDX #SAV1 2 RESTORE USERS CONTENTS OF X2 00291 000105 16260 0677662 LDX #SAV2 3 RESTORE USERS CONTENTS OF X3 00292 000105 16261 0017642 LDA #SAVE1 GET ADD OF CUR INPUT REC OR NEXT OUTPUT VAC. 00300 000105 16262 2620001 BRU 1 1 NORMAL EXIT TO USERS PROG 00310 000105 16263 0637653 #A15 LDX XHOLD1 1 PUT PAR ADD IN X1 00320 000105 16264 0020010 LDA 8 1 GET LINE 9 PAR LIST TAPE INSTR 00330 000105 16265 2514001 BMI 00331 000105 16266 2616272 BRU #A20 SPEC BINARY 00332 000105 16267 2017622 EXT #MASK5 EXT MASK TO TEST FOR BIN OR BCD 00340 000105 16270 2516002 BNZ 00350 000105 16271 2616256 BRU #A10 NORMAL RETURN BINARY TAPE 00360 000105 16272 0637653 #A20 LDX XHOLD1 1 DEC OR BIN TAPE 00370 000105 16273 0020010 LDA 8 1 GET TAPE INSTR 00380 000105 16274 2017620 EXT #MASK2 EXTRACT OCTAL 3377777 00390 000105 16275 2514002 BZE TEST FOR INPUT OR OUTPUT 00400 000105 16276 2616256 BRU #A10 GO TO NORMAL RETURN IF OUTPUT 00410 000105 16277 2620027 BRU 23 1 LINE 4 FILE SUBROUTINE IF INPUT 00420 000105 REM OPEN INPUT FILE' 00429 000105 16300 0017653 #A25 LDA XHOLD1 PUT PARA LIST ADDRESS IN A REG 00430 000105 16300 #RBS EQU #A25 ROUTINE TO OPEN INPUT FILE 00440 000105 16300 #RBS5 EQU #A25 00450 000105 16301 2716340 STO #A45 PUT PARA ADDRESS IN INSTRUCTS AT 00460 000105 16302 2716366 STO #A66 #A45 AND #A66 00470 000105 16303 0117577 ADD #CON13 MODIFY #A30 TO SPB TO LINE 14 00480 000105 16304 2716315 STO #A30 OF THE PARAMETER LIST 00490 000105 16305 0737114 SPB #I/ODE 1 GO TO DELAY AND ERROR CK ROUTINE 00500 000105 16306 0737331 SPB #I/OB 1 MODIFY READ WRITE FOR NEXT OPERATION 00510 000105 16307 0017573 LDA CNZERO 00511 000105 16310 2777665 STO #TAB1+2 3 00512 000105 16311 0737364 SPB #I/OTB 1 00520 000105 16312 0737457 SPB TYPE+4 1 TYPE PXTY WHERE X=PLUG AND 00530 000105 16313 0017635 LDA #PX Y=HANDLER 00540 000105 16314 2000001 OCT 2000001 DONT RETURN CARRIAGE 00550 000105 16315 0720000 #A30 SPB 0 1 GO TO LINE 14 OF PARA LIST 00560 000105 16316 0736532 SPB #ENT2 1 TO REAL LABEL 00580 000105 16317 0737114 SPB #I/ODE 1 DELAY AND ERROR CHECK 00590 000105 16320 0017361 LDA #RDWR+1 MODIFY #A50 FOR FIRST WORD ADDRESS 00600 000105 16321 2716341 STO #A50 OF LABEL 00610 000106 16322 0657361 LDX #RDWR+1 2 PUT ADDRESS OF LABEL IN X2 00620 000106 16323 2716365 STO #A65 PUT ADDRESS OF LABEL IN #A65 00630 000106 16324 0117574 ADD CNONE ADD 1 TO LABEL ADDRESS 00640 000106 16325 2716333 STO #A35 STORE THIS ADDRESS IN LABEL TYPE ROUT 00650 000106 16326 0040007 LDA 7 2 SAVE WORD 8 OF LABEL 00660 000106 16327 0317643 STA #SAVE2 00670 000106 16330 0016334 LDA #A40 PUT TYPE TERMINATION CHARACTER [WORD] 00680 000106 16331 0340007 STA 7 2 IN LABEL TO STOP TYPE 00690 000106 16332 0737453 SPB TYPE 1 TYPE LABEL FOUND 00700 000106 16333 0000000 #A35 DEC 0 00710 000106 16334 2000001 #A40 OCT 2000001 00720 000106 16335 0017643 LDA #SAVE2 RESTORE WORD 8 OF LABEL 00730 000106 16336 0340007 STA 7 2 00740 000106 16337 0677573 LDX CNZERO 3 PUT ZERO IN X3 00750 000106 16340 0060000 #A45 LDA 0 3 CHECK LABEL READ AGAINST 00760 000106 16341 0260000 #A50 SUB 0 3 LABEL SPECIFIED IN PARA LIST 00770 000106 16342 2514002 BZE 00780 000106 16343 2616373 BRU #A70 MATCH 00790 000106 16344 0017653 LDA XHOLD1 LABEL DOES NOT MATCH 00800 000106 16345 0117574 ADD CNONE PUT ADDRESS OF 2ND WORD OF 00810 000106 16346 0316351 STA #A55 PARAMETER LIST IN #A55 00820 000106 16347 0737455 SPB TYPE+2 1 TYPE NO FOLLOWED BY WHAT LABEL 00830 000106 16350 0017614 LDA #MSG2 WAS EXECTED TO BE 00840 000106 Should be: EXPECTED 16351 0000000 #A55 DEC 0 00850 000106 16352 2000001 OCT 2000001 ENTER HALT LOOP 00860 000106 16353 0737411 SPB HLTLP 1 00870 000106 16354 2514000 BOD 00880 000106 16355 2616361 BRU #A60 ACCEPT WRONG LABEL 00890 000106 16356 0737475 SPB TYPE1 1 00900 000106 16357 2000000 OCT 2000000 RETURN CARRIAGE 00910 000106 16360 2616300 BRU #RBS GO GET NEW TAPE 00920 000106 16361 0737475 #A60 SPB TYPE1 1 TYPE FD FOR FORCED 00930 000106 16362 0017621 DEC #MSG3 00940 000106 16363 2000000 #A61 OCT 2000000 RETURN CARRIAGE 00950 000106 16364 0637573 LDX CNZERO 1 PUT ZERO IN X1 00960 000106 16365 0020000 #A65 LDA 0 1 PUT CONTENTS OF THE TAPE 00970 000106 16366 0320000 #A66 STA 0 1 LABEL FOUND IN THE 00980 000106 16367 1420001 INX 1 1 PARAMETER LIST 00990 000106 16370 0437771 BXL 7 1 01000 000106 16371 2616365 BRU #A65 01010 000106 16372 2616400 BRU #A71 01020 000106 16373 1460001 #A70 INX 1 3 01030 000106 16374 0477771 BXL 7 3 HAS 7 CHARACTERS OF LABEL BEEN CHECKED 01050 000106 16375 2616340 BRU #A45 NO 01060 000106 16376 0737453 RNOLAB SPB TYPE 1 YES RETURN CARRIAGE 01070 000106 16377 2000000 OCT 2000000 01080 000106 16400 0657653 #A71 LDX XHOLD1 2 PUT PARA LIST ADDRESS IN X2 01090 000106 16401 0040010 LDA 8 2 TEST FOR BUFFERED FILE 01100 000106 16402 0240013 SUB 11 2 01110 000106 16403 2514002 BZE 01120 000106 16404 2616410 BRU #A80 NOT BUFFERED 01130 000106 16405 0737114 #A75 SPB #I/ODE 1 BUFFERED-DO DELAY AND ERROR CHECK 01140 000106 16406 0737331 SPB #I/OB 1 MODIFY READ WRITE ROUTINE 01150 000106 16407 0736644 SPB #CTR 1 READ A BLOCK AND 01160 000107 16410 0040022 #A80 LDA 18 2 PICK UP LINE 19 PARA LIST-BXH 01170 000107 16411 0340026 STA 22 2 PUT BXH INSTRUCTION IN LINE 3 FILE SUBR 01180 000107 16412 0677611 LDX #BTNR 3 PUT LARGE NUMBER IN X3 01190 000107 16413 2640026 BRU 22 2 BRANCH TO LINE 3 OF FILE SUBR. 01200 000107 REM ROUTINE TO READ A BLOCK BUF OR NON BUF 01209 000107 16414 0637653 #RB LDX XHOLD1 1 PUT PARA ADDRESS IN X1 01210 000107 16414 #RB5 EQU #RB 01220 000107 16415 0020013 LDA 11 1 LOAD A WITH LINE 12 PARA LIST 01230 000107 16416 2504006 MAQ MOVE IT TO Q 01240 000107 16417 0020010 LDA 8 1 LOAD A WITH LINE 9 PARA LIST 01250 000107 16420 0320013 STA 11 1 STORE A TO LINE 12 PARA LIST 01260 000107 16421 2720031 STO 25 1 STORE OPERAND LINE 6 FILE SUBR 01270 000107 16422 2716430 STO #CKONE STORE OPERAND TO #CKONE EOF TEST 01280 000107 16423 2716446 STO #A86+1 STORE OPERAND TO #A86+1 EOF TEST 01290 000107 16424 2504005 XAQ EXCHANGE A AND Q 01300 000107 16425 0320010 STA 8 1 STA TO LINE 9 OF PARA LIST 01310 000107 16426 0737114 SPB #I/ODE 1 DELAY AND ERROR CHECK 01320 000107 16427 0737331 SPB #I/OB 1 MODIFY READ WR FOR FIRST RD 01330 000107 16430 0000000 #CKONE LDA 0 LOAD A 1ST WORD OF INPUT BUFFER LINE 12 01340 000107 16431 0217641 SUB #ONEX SUB OCT 2777777 01350 000107 16432 2514002 BZE TEST FOR ZERO 01360 000107 16433 2616452 BRU #EOTIN EOF ON INPUT 01370 000107 16434 0736644 SPB #CTR 1 READ ON BLOCK AND UPDATE BLK CTR 01380 000107 16435 0040010 #A85 LDA 8 2 01390 000107 16436 0240013 SUB 11 2 01400 000107 16437 2514002 BZE TEST FOR BUFFERED INPUT 01410 000107 16440 2616445 BRU #A86 NOT BUFFERED 01420 000107 16441 0657573 LDX CNZERO 2 BUFFERED PUT ZEROS IN X2 01430 000107 16442 0677573 LDX CNZERO 3 AND X3 01440 000107 16443 0637653 LDX XHOLD1 1 PUT PARA LIST ADD IN X1 01450 000107 16444 2620030 BRU 24 1 BRANCH TO LINE 5 OF IP FILE SUBR 01460 000107 16445 0737114 #A86 SPB #I/ODE 1 DELAY AND ERROR CHECK 01470 000107 16446 0000000 LDA 0 01480 000107 16447 0217641 SUB #ONEX 01490 000107 16450 2516002 BNZ TEST EOF INPUT 01500 000107 16451 2616441 BRU #A85+4 NOT EOF INPUT 01510 000107 REM END OF REEL INPUT ROUTINE 01519 000107 16452 0017653 #EOTIN LDA XHOLD1 END OF REEL OR FILE INPUT 01520 000107 16453 0117600 ADD #CON14 MODIFY #A90 TO SPB TO LINE 01530 000107 16454 2716461 STO #A90 15 OF PARA LIST 01540 000107 16455 0737331 SPB #I/OB 1 MODIFY RD WR TO RD FENCE 01541 000107 16456 0040023 LDA 19 2 DECREASE BLOCK CTR 01550 000107 16457 0217574 SUB CNONE BY ONE FOR EOF MARK 01560 000107 16460 0340023 STA 19 2 STORE CORRECT BLOCK CTR IN LINE 20 01570 000107 16461 0720000 #A90 SPB 0 1 TO LINE 15 OF PARA LIST 01580 000107 16462 0737114 SPB #I/ODE 1 DELAY AND ERROR CHECK 01590 000107 16463 0736532 SPB #ENT2 1 TO READ FENCE 01600 000107 16464 0737114 SPB #I/ODE 1 CHECK LAST READ FOR ERRORS 01610 000107 16465 0737331 SPB #I/OB 1 MODIFY RD WR FOR NEXT READ 01620 000107 16466 0040010 LDA 8 2 GET RD IN ADDRESS 01630 000107 16467 0117574 ADD CNONE ADD ONE 01640 000107 16470 2716504 STO #A95 MODIFY #A95 TO ADDRESS WORD 2 01650 000107 16471 0117576 ADD #CN4 ADD 4 TO NEW ADDRESS 01660 000107 16472 2716474 STO #A91 MODIFY #A91 TO ADDRESS WORD 6 01670 000108 16473 0040023 LDA 19 2 LINE 20 PARA LIST-BLOCKS COUNTED 01680 000108 16474 0200000 #A91 SUB 0 SUB BLK CTR IN FENCE 01690 000108 16475 2514002 BZE TEST FOR ZERO 01700 000108 16476 2616504 BRU #A95 BLOCK COUNT MATCH 01710 000108 16477 0017627 LDA #MSG8 BLOCK COUNT ERROR 01720 000108 16500 0737424 SPB #TPE3A 1 01730 000108 16501 0737475 SPB TYPE1 1 TYPE BL TO INDICATE ERROR 01740 000108 16502 0017621 DEC #MSG3 01750 000108 16503 2000000 OCT 2000000 01760 000108 16504 0000000 #A95 LDA 0 LOAD A WORD 2 OF FENCE 01770 000108 REM EOT 01780 000108 16505 0217066 SUB #A160 SUB 6FI 01790 000108 16506 2514002 BZE TEST FOR ZERO 01800 000108 16507 2616514 BRU EFOPT LAST REEL INPUT 01810 000108 16510 0737345 RNOFNC SPB #RWDIN 1 01840 000108 16511 2017644 EXT SAVEIT 01850 000108 16512 0737073 SPB #SWAP 1 SWAP TO ALT REEL IF INDICATED 01860 000108 16513 2616300 BRU #RBS GO OPEN NEXT REEL INPUT 01870 000108 16514 0737345 EFOPT SPB #RWDIN 1 01900 000108 16515 2017644 EXT SAVEIT 01910 000108 16516 0637652 #CLNFC LDX #XHOLD 1 01920 000108 16517 0017573 LDA CNZERO ZEROS IN A 01930 000108 16520 0340023 STA 19 2 ZERO LINE 20 PARA LIST-BLK CTR 01940 000108 16521 0017653 LDA XHOLD1 PUT PARA LIST ADD IN A 01950 000108 16522 0117600 ADD #CON14 ADD 15 TO A 01951 000108 16523 2504032 ADO 01952 000108 16524 2716527 STO #A97 MOD #A97 TO GO TO LINE 16 PARA LIST 01953 000108 16525 0657661 LDX #SAV1 2 RESTORE USERS CONTENTS 01954 000108 16526 0677662 LDX #SAV2 3 OF X2 AND X3 01955 000108 16527 2600000 #A97 BRU 0 GO TO LINE 16 OF FILE PARA LIST 01956 000108 16530 0017653 #ENT1 LDA XHOLD1 PUT ADDRESS OF PARA LIST IN 01960 000108 16531 2717361 STO #RDWR+1 OPERAND FIELD OF RDWR+1 01970 000108 16532 0017602 #ENT2 LDA #T24 MODIFY RDWR TO READ 01980 000108 16533 2717362 STO #RDWR+2 24 WORDS 01990 000108 16534 0017634 #ENT3 LDA #ORYIT MODIFY OPERATION CODE OF 02000 000108 16535 2317361 ORY #RDWR+1 RDWR+1 TO READ BINARY 02010 000108 16536 0017361 LDA #RDWR+1 02020 000108 16537 2016363 EXT #A61 02030 000108 16540 0317361 STA #RDWR+1 02040 000108 16541 0377664 STA #TAB1+1 3 PUT RDWR+1 IN TABLE 02050 000108 16542 0017362 LDA #RDWR+2 02060 000108 16543 0377665 STA #TAB1+2 3 PUT RDWR +2 IN TABLE 02070 000108 16544 0017573 LDA CNZERO 02072 000108 16545 0377666 STA #TAB1+3 3 02074 000108 16546 2617360 BRU #RDWR GO RD LABEL 02080 000108 REM OPEN OUTPUT FILE 02089 000108 16547 0736566 #WBS SPB #WBSA 1 TO OPEN WRITE FILE 02090 000108 16550 2616553 BRU *+3 02098 000108 16551 0637642 WNOLAB LDX #SAVE1 1 02100 000108 16552 2620001 BRU 1 1 02102 000108 16553 0737114 SPB #I/ODE 1 02104 000108 16547 #WBS5 EQU #WBS 02110 000108 16554 0637653 LDX XHOLD1 1 PUT PARA LIST ADDRESS IN X1 02120 000108 16555 0020021 LDA 17 1 PICK UP LINE 18 PARA LIST 02130 000109 16556 0317563 STA #B90 WHICH IS LOG REC SIZE 02140 000109 16557 0657563 #WB LDX #B90 2 PUT LOG REC SIZE IN X2 02150 000109 16560 0020022 LDA 18 1 GET BXH INST FROM LINE 19 PARA L 02160 000109 16561 0320034 STA 28 1 PUT BXH IN LINE 9 OF FILE SUBR 02170 000109 16562 0677574 LDX CNONE 3 PUT 1 IN X3 02180 000109 16563 0017573 LDA CNZERO ZEROS IN A 02190 000109 16564 0320017 STA 15 1 PUT ZEROS IN LINE 16 PARA LIST 02200 000109 16565 2620034 BRU 28 1 BRANCH TO LINE 9 OF FILE SUBR 02210 000109 16566 1737642 #WBSA STX #SAVE1 1 SAVE X1 02220 000109 16567 0017653 LDA XHOLD1 GET PARA ADD IN A 02230 000109 16570 0117577 ADD #CON13 ADD 13 TO A 02240 000109 16571 2716572 STO #A100 MOD NEXT INST TO GO TO LINE 02250 000109 16572 0720000 #A100 SPB 0 1 14 OF PARA LIST 02260 000109 16573 0737114 SPB #I/ODE 1 DELAY AND ERROR CHECK 02270 000109 16574 0737331 SPB #I/OB 1 MODIFY RD WR TO WRITE LABEL 02280 000109 16575 0637642 LDX #SAVE1 1 RESTORE X1 02290 000109 16576 2616530 BRU #ENT1 GO TO LABEL WR ROUTINE 02300 000109 REM ROUTINE TO WRITE A BLOCK BUF OR NON BUF 02309 000109 16577 0737114 #WB SPB #I/ODE 1 DELAY AND ERROR CHECK 02310 000109 16577 #WB5 EQU #WB 02320 000109 16600 0737331 SPB #I/OB 1 MODIFY RD WR FOR NEXT WRITE 02330 000109 16601 0040013 LDA 11 2 PUT ADDRESS CONTAINED IN LINE 12 02340 000109 16602 2716621 STO #A110 OF FILE PARA LIST IN #A110 02350 000109 16603 2716650 STO #EOTOP AND #EOTOP AND LINE 5 OF 02360 000109 16604 2740030 STO 24 2 FILE SUBR AN #A135 02370 000109 Should be: AT? 16605 2716614 STO #A135 02380 000109 16606 0240010 SUB 8 2 SUB ADD IN LINE 9 OF PARA LIST 02390 000109 16607 2516002 BNZ FROM A 02400 000109 16610 2616621 BRU #A110 BUFFERED 02410 000109 16611 0736644 SPB #CTR 1 NON BUFFERED-WRITE BLK AND COUNT 02420 000109 16612 0737114 SPB #I/ODE 1 DELAY ERROR CHECK 02430 000109 16613 0737331 SPB #I/OB 1 MODIFY RD WR FOR NEXT 02431 000109 16614 0000000 #A135 LDA 0 02440 000109 16615 0217641 SUB #ONEX 02450 000109 16616 2514002 BZE TEST FOR EOT OUTPUT 02460 000109 16617 2616650 BRU #EOTOP GO TO EOT ROUTINE 02470 000109 16620 2616634 BRU #A125 NO END OF TAPE-CONTINUE 02480 000109 16621 0000000 #A110 LDA 0 02490 000109 16622 0217641 SUB #ONEX 02500 000109 16623 2514002 BZE TEST EOT 02510 000109 16624 2616650 BRU #EOTOP GO TO END OF TAPE ROUTINE 02520 000109 16625 0736644 SPB #CTR 1 WRITE BLK AND ADD TO BLK CTR 02530 000109 16626 0040010 LDA 8 2 SWITCH LINES 9 AND 12 02540 000109 16627 2504006 MAQ THE PARA LIST 02550 000109 16630 0040013 LDA 11 2 02560 000109 16631 0340010 STA 8 2 02570 000109 16632 2504005 XAQ 02580 000109 16633 0340013 STA 11 2 02590 000109 16634 0657573 #A125 LDX CNZERO 2 PUT ZEROS IN X2 02600 000109 16635 0677573 LDX CNZERO 3 PUT ZEROS IN X3 02610 000109 16636 0637653 LDX XHOLD1 1 PUT PARA LIST ADD IN X1 02620 000109 16637 0020043 LDA 35 1 PICK UP LINE 16 OF FILE SUBR 02630 000109 16640 0120017 ADD 15 1 ADD TO LOG REC CTR 02640 000109 16641 0117574 ADD CNONE ADD 1 MORE 02650 000110 16642 0320017 STA 15 1 PUT NEW LOG REC CTR IN 16 OF PARA 02660 000110 16643 2620041 BRU 33 1 BRANCH TO LINE 14 FILE SUBR 02670 000110 16644 0040023 #CTR LDA 19 2 PICK UP BLOCK CTR LINE 20 02680 000110 16645 0117574 ADD CNONE ADD 1 TO CTR 02690 000110 16646 0340023 STA 19 2 STORE CTR BACK 02700 000110 16647 2617360 BRU #RDWR GO READ OR WRITE 02710 000110 REM END OF REEL OUTPUT ROUTINE 02719 000110 16650 0300000 #EOTOP STA 0 END OF TAPE OP-ZERO IS WORD BUF 02720 000110 16651 0736663 SPB #EOT 1 GO TO EOT ROUTINE 02730 000110 16652 0605125 ALF RE CONSTANT 02740 000110 16653 0254360 ALF EL CONSTANT 02750 000110 16654 0737073 SPB #SWAP 1 GO TO SWAP ROUTINE FOR NEXT REEL 02760 000110 16655 0736566 SPB #WBSA 1 OPEN NEXT REEL 02770 000110 16656 0040010 LDA 8 2 02780 000110 16657 0240013 SUB 11 2 02790 000110 16660 2514002 BZE TEST FOR BUFFERED OUTPUT 02800 000110 16661 2616634 BRU #A125 NOT BUFFERED 02810 000110 16662 2616577 BRU #WB BUFFERED 02820 000110 16663 1737642 #EOT STX #SAVE1 1 SAVE X1 02830 000110 16664 0657653 LDX XHOLD1 2 PUT PARA ADD IN X2 02840 000110 16665 0040013 LDA 11 2 PICK UP LINE 12 OF PARA 02850 000110 16666 2717361 STO #RDWR+1 STORE OPERAND IN RDWR+1 02860 000110 16667 0657361 LDX #RDWR+1 2 PUT ADD OF RDWR+1 IN X2 02870 000110 16670 0017653 LDA XHOLD1 PARA LIST ADD IN A 02880 000110 16671 0117600 ADD #CON14 ADD 14 TO A 02890 000110 16672 2716724 STO #A140 STO #A140 TO MOD INSTR 02900 000110 16673 0117575 ADD CNTWO ADD 2 TO A 02910 000110 16674 2716733 STO #A141 STO #A141 TO MOD INSTR 02920 000110 16675 0020001 LDA 1 1 LDA CON BRE OF BFI 02930 000110 Should be: OR 16676 0340001 STA 1 2 PUT IN 2ND WORD FENCE WR AREA 02940 000110 16677 0020002 LDA 2 1 LDA CON ELB OR LEB 02950 000110 16700 0340002 STA 2 2 PUT IN 3RD WORD FENCE WR AREA 02960 000110 16701 0017647 LDA #WRITE PUT END IN 1ST 02970 000110 16702 0340000 STA 0 2 WORD OF FENCE 02980 000110 16703 0637653 LDX XHOLD1 1 02990 000110 16704 0020023 LDA 19 1 PICK UP BLOCK CTR AND PUT 03000 000110 16705 0340005 STA 5 2 IN WORD 6 OF FENCE 03010 000110 16706 0020017 LDA 15 1 PICK UP LOG REC CTR AND 03020 000110 16707 0340003 STA 3 2 PUT IN WORD 4 OF FENCE 03030 000110 16710 0017573 LDA CNZERO ZERO OUT WORDS 5 AND 7 03040 000110 16711 0340004 STA 4 2 03050 000110 16712 0340006 STA 6 2 03060 000110 16713 0320017 STA 15 1 ZERO OUT WORD 16 OF PARA LIST 03070 000110 16714 1420001 INX 1 1 INCREMENT X1 BY 1 03080 000110 16715 1736772 STX #A145 1 STORE X1 TO #A145 TO TYPE LAB 03090 000110 16716 0737364 SPB #I/OTB 1 03100 000110 16717 0737463 SPB TYPE+8 1 TYPE PXTY 03110 000110 16720 0017635 DEC #PX 03120 000110 16721 2000001 OCT 2000001 03130 000110 16722 0737351 SPB #RWDA1 1 03134 000110 16723 0217644 Z02 SAVEIT 03135 000110 16724 0720000 #A140 SPB 0 1 GO TO LINE 15 OF PARA LIST 03140 000110 16725 0737114 SPB #I/ODE 1 DELAY AND ERROR CHECK 03170 000110 16726 0737331 SPB #I/OB 1 MODIFY READ WRITE FOR NEXT 03180 000111 16727 0040013 LDA 11 2 03190 000111 16730 2717361 STO #RDWR+1 03200 000111 16731 0736532 SPB #ENT2 1 GO WRITE FENCE 03210 000111 16732 0737114 #A140A SPB #I/ODE 1 DELAY AND ERROR CHECK 03220 000111 16733 0720000 #A141 SPB 0 1 GO TO DUMP OPTION 03230 000111 16734 2616771 BRU #NODMP NO DUMP 03240 000111 16735 0637642 LDX #SAVE1 1 PRIME X1 WITH CONTENTS SAVED 03250 000111 16736 0020001 LDA 1 1 PICK UP CONSTANT BFI OR BRE 03260 000111 16737 2510003 SRA 3 03270 000111 16740 2514000 BOD 03280 000111 16741 2616771 BRU #NODMP NO DUMP 03290 000111 16742 0737713 SPB #A280 1 03300 000111 16743 0000002 LDA 2 SAVE LOCATION 2 03490 000111 16744 0317563 STA #B90 03500 000111 16745 0017571 LDA #REN SET UP 2 FOR 03510 000111 16746 0300002 STA 2 RESTART ADDRESS 03520 000111 16747 0017660 LDA #WTB BUILD WTB COMMAND 03530 000111 16750 0317361 STA #RDWR+1 STORE IN RDWR+1 03540 000111 16751 0377664 STA #TAB1+1 3 STORE IN TABLE+3 FOR THIS PLUG 03550 000111 16752 0017362 LDA #RDWR+2 BUILD RDWR+2 TO WRITE 03560 000111 16753 2017572 EXT #ABC ALL MEMORY AS ONE RECORD 03570 000111 16754 0117603 ADD #MEM 03580 000111 16755 0317362 STA #RDWR+2 PUT IN RDWR+2 03590 000111 16756 0377665 STA #TAB1+2 3 PUT IN TABLE+2 FOR THIS PLUG 03600 000111 16757 0737360 #A143 SPB #RDWR 1 GO TO WRITE DUMP 03610 000111 16760 0777736 SPB #A290 3 TO ERROR TEST DUMP 03620 000111 16761 2617025 BRU #A147+2 03740 000111 16762 2617021 BRU #A146H 03750 000111 16763 0657653 #RERUN LDX XHOLD1 2 PARA ADD IN X 2 03760 000111 16764 0040024 LDA 20 2 PICK UP X GROUP 03764 000111 16765 0316766 STA *+1 03766 000111 16766 2506013 #A144 SXG 0 03768 000111 16767 0017563 LDA #B90 RESTORE LOCATION 2 03770 000111 16770 0300002 STA 2 03780 000111 16771 0737453 #NODMP SPB TYPE 1 03790 000111 16772 0000000 #A145 DEC 0 03800 000111 16773 3777777 DEC -1 IF SET UP TYPE RP 03810 000111 16774 2000001 OCT 2000001 END MESSAGE 03820 000111 16775 0737455 SPB TYPE+2 1 03830 000111 16776 3777777 #A146 DEC -1 IF SET UP TYPE NO 03840 000111 16777 2000001 OCT 2000001 END MESSAGE 03850 000111 17000 2504102 LMO RESTORE #A145+1 TO -1 03860 000111 17001 0316773 STA #A145+1 03870 000111 17002 0316776 STA #A146 RESTORE #A146 TO -1 03880 000111 17003 0737475 SPB TYPE1 1 RETURN CARRIAGE 03900 000111 17004 2000000 OCT 2000000 03910 000111 17005 2617006 #A146A BRU *+1 03911 000111 17006 0737345 #A146B SPB #RWDIN 1 TO REWIND 03912 000111 17007 2017644 EXT SAVEIT 03913 000111 17010 0657653 LDX XHOLD1 2 PARA LIST ADD INX 2 03914 000111 17011 0637642 #A146C LDX #SAVE1 1 RESTORE X 1 03920 000111 17012 2620003 BRU 3 1 RETURN TO EOTOF OR EOFOUT 03930 000111 17013 2617006 #A146E BRU #A146B 03931 000111 17014 2617015 #A146F BRU #A146G 03932 000112 17015 0017013 #A146G LDA #A146E 03934 000112 17016 0317005 STA #A146A 03935 000112 17017 0737411 SPB HLTLP 1 LOOP TO CLEAR CTRLER AND 03936 000112 17020 2617006 BRU #A146B CONTINUE 03937 000112 17021 0017014 #A146H LDA #A146F SET SW TO TRANS IS ERROR 03938 000112 17022 0317005 STA #A146A 03939 000112 17023 0017631 #A147 LDA #RS LDA ADD OF MSG NO 03940 000112 17024 0316776 STA #A146 STA #A146 03950 000112 17025 0017565 LDA #RR SET UP RP MESSAGE 03960 000112 17026 0316773 STA #A145+1 IN TYPE ROUTINE CALL SEQ 03970 000112 17027 2616763 BRU #RERUN 03980 000112 16732 WNOFNC EQU #A140A 04050 000112 REM ROUTINE TO CLOSE OUTPUT FILE 04059 000112 17030 0317653 EOFOUT STA XHOLD1 TO CLOSE LAST REEL OP FILE 04060 000112 17030 CLOSE EQU EOFOUT 04070 000112 17031 1757661 STX #SAV1 2 SAVE X 2 04071 000112 17032 1777662 STX #SAV2 3 SAVE X 3 04072 000112 17033 0657653 LDX XHOLD1 2 PUT PARA LIST ADD IN X2 04080 000112 17034 1737652 STX #XHOLD 1 SAVE RETURN IN HOLD AREA 04090 000112 17035 0040043 LDA 35 2 SEE IF A BLOCK NEEDS TO 04100 000112 17036 2514002 BZE BE WRITTEN 04110 000112 17037 2617060 BRU #N NO 04120 000112 17040 0040030 LDA 24 2 YES PICK UP ADDRESS OF NEXT VAC 04130 000112 17041 2717054 STO #M IN OP REC 04140 000112 17042 0040010 LDA 8 2 LDA LINE 9 PARA LIST 04150 000112 17043 2514001 BMI 04151 000112 17044 2617050 BRU #A150-2 SPECIAL BINARY 04152 000112 17045 2017622 EXT #MASK5 04160 000112 17046 2516002 BNZ TEST BCD OR BINARY 04170 000112 17047 2617053 BRU #A155 BINARY DATA 04180 000112 17050 0017052 LDA #A150 BCD DATA 04190 000112 17051 2617054 BRU #M GO TO WRITE LAST BLOCK ROUTINE 04200 000112 17052 0537453 #A150 ALF $%$ BCD DATA 04210 000112 17053 0017637 #A155 LDA #ONES BINARY DATA 04220 000112 17054 0300000 #M STA 0 04230 000112 17055 0737114 SPB #I/ODE 1 DELAY AND ERROR TEST 04240 000112 17056 0737331 SPB #I/OB 1 MODIFY RD WR TO WR NEXT 04250 000112 17057 0736644 SPB #CTR 1 WR LAST BLOCK AND COUNT 04260 000112 17060 0737114 #N SPB #I/ODE 1 DELAY AND ERROR TEST LAST WR 04270 000112 17061 0737331 SPB #I/OB 1 MODIFY FOR NEXT WR COMMAND 04280 000112 17062 0040043 LDA 35 2 UPDATE LOG REC COUNT IN 04290 000112 17063 0140017 ADD 15 2 LINE 16 OF PARA LIST 04300 000112 17064 0340017 STA 15 2 04310 000112 17065 0736663 SPB #EOT 1 GO TO WEF AND FENCE 04320 000112 17066 0602631 #A160 ALF FI CONSTANT 04330 000112 17067 0432560 ALF LE CONSTANT 04340 000112 17070 0017573 LDA CNZERO LDA ZEROS 04350 000112 17071 0340023 STA 19 2 ZERO LINE 20 OF PARA LIST 04360 000112 17072 2616256 BRU #A10 GO TO NORMAL EXIT 04370 000112 17073 0677653 #SWAP LDX XHOLD1 3 PUT PARA LIST ADD IN X3 04380 000112 17074 0060011 LDA 9 3 LINE 10 PARA LIST 04390 000112 17075 2504006 MAQ MOVE A TO Q 04400 000112 17076 0360023 STA 19 3 STA LINE 20 PARA LIST 04410 000112 17077 0060014 LDA 12 3 PICK UP LINE 13 04420 000113 17100 0360011 STA 9 3 STORE CONTENTS OF LINE 13 IN LINE 10 04430 000113 17101 0060001 LDA 1 3 04440 000113 17102 0117574 ADD CNONE ADD ONE TO REEL CTR IN WORD 2 PARA 04450 000113 17103 0360001 STA 1 3 LIST 04460 000113 17104 2504001 LAQ 04470 000113 17105 0360014 STA 12 3 PUT LINE 10 IN LINE 13 OR PARA 04480 000113 17106 0260011 SUB 9 3 SUB LINE 10 FROM 13 04490 000113 17107 2516002 BNZ TEST FOR SWAP 04500 000113 17110 2620001 BRU 1 1 SWAP PROVIDED 04510 000113 17111 0017630 LDA #MSG9 NO SWAP 04520 000113 17112 0317640 STA #PX+3 PREPARE TO TYPE MSG 04530 000113 17113 2617427 BRU #A270 04531 000113 REM ROUTINE TO DELAY AND ERROR CHECK 04539 000113 17114 0017576 #I/ODE LDA #CN4 ERROR DELAY AND CORRECTION ROUTINE 04540 000113 17115 0317606 STA #LPCTR SET UP CTR FOR ATTEMPT CORRECTS 04550 000113 17116 0657653 #A165 LDX XHOLD1 2 PUT PARA LIST ADDRESS IN X2 04560 000113 17117 0040007 LDA 7 2 PICK UP SEL FROM PARA LIST 04570 000113 17120 2017607 EXT #MASK EXT ALL BUT PLUG NR 04580 000113 17121 0317563 STA #B90 04590 000113 17122 0657563 LDX #B90 2 PUT PLUG NR IN X2 04600 000113 17123 2510004 SRA 4 SRA 4 04610 000113 17124 0317563 STA #B90 04620 000113 17125 0677563 LDX #B90 3 PUT IN X3 TAB1 ADD MULT BY PLUG 04630 000113 17126 0017604 LDA #COUNT LOAD IN A DELAY CTR 04640 000113 17127 2554020 #A170 OCT 2554020 TEST FOR READY 04650 000113 17130 2617143 BRU #A175 READY 04660 000113 17131 2504112 SBO DECREASE LOOP CTR 04670 000113 17132 2516002 BNZ TEST FOR ZERO 04680 000113 17133 2617127 BRU #A170 GO TO BUSY TEST IF NOT ZERO 04690 000113 17134 1737654 STX #XR1X 1 SAVE X1 ON ALERT HALT 04700 000113 17135 0737265 SPB #A230 1 04710 000113 17136 0017626 LDA #MSG7 SET UP ALERT HALT MSG 04720 000113 17137 0737424 SPB #TPE3A 1 04730 000113 17140 0737453 SPB TYPE 1 TYPE ALERT HALT MSG 04740 000113 17141 2000000 OCT 2000000 RETURN CARRIAGE 04750 000113 17142 2617255 BRU #A220 GO RE EXEC LAST COMMAND 04760 000113 17143 2554021 #A175 OCT 2554021 TEST EOF INPUT 04770 000113 17144 2617155 BRU #YESEO YES EOF 04780 000113 17145 2554027 OCT 2554027 TEST FOR ANY 04790 000113 17146 2617172 BRU #REPEA ERRORS 04800 000113 17147 2556022 OCT 2556022 TEST FOR EOT OUTPUT 04810 000113 17150 2617167 BRU #A176 NO EOT ON OUTPUT 04820 000113 17151 0077664 LDA #TAB1+1 3 04830 000113 17152 2017620 EXT #MASK2 04840 000113 17153 2516002 BNZ 04850 000113 17154 2620001 BRU 1 1 RETURN 04860 000113 17155 0077666 #YESEO LDA #TAB1+3 3 OUTPUT LDA TAB1+3 MOD BY 3 04870 000113 17156 2516002 BNZ 04872 000113 17157 0077665 LDA #TAB1+2 3 04874 000113 17160 2017610 EXT #MASK1 EXTRACT ALL BUT WORD NR 04880 000113 17161 2514002 BZE IS WORD ZERO 04890 000113 17162 2617167 BRU #A176 RETURN FROM ERROR ROUTINE 04900 000113 17163 0077664 LDA #TAB1+1 3 PICK UP ADD OR RD WR AREA THIS FILE 04910 000113 17164 2717166 STO *+2 MOD INSTR 04920 000114 17165 0017641 LDA #ONEX 2777777 AND STORE 04930 000114 17166 0300000 STA 0 IN ADD INSERTED HERE 04940 000114 17167 0017573 #A176 LDA CNZERO 04950 000114 17170 2777665 STO #TAB1+2 3 ZERO OUT TAB1+2 MOD BY 3 04960 000114 17171 2620001 BRU 1 1 RETURN 04970 000114 17172 0077665 #REPEA LDA #TAB1+2 3 TO COR ERROR IF REQD 04980 000114 17173 2017610 EXT #MASK1 IS THIRD LINE NUMBER OF WORDS 04990 000114 17174 2514002 BZE ZERO 05000 000114 17175 2620001 BRU 1 1 YES-NO ERROR COR REQD 05010 000114 17176 1737654 STX #XR1X 1 SAVE X1 05020 000114 17177 0077664 LDA #TAB1+1 3 PICK UP TABLE1+1 MODIFIED BY X3 05030 000114 17200 0317645 STA TAB1X1 SAVE IN TEMP STORAGE 05040 000114 17201 0077665 LDA #TAB1+2 3 PICK UP TABLE1+2 MODIFIED BY X3 05050 000114 17202 0317646 STA TAB1X2 SAVE IN TEMP STORAGE 05060 000114 17203 0017573 LDA CNZERO PUT ZEROS IN A REG 05070 000114 17204 2777665 STO #TAB1+2 3 ZERO OUT OPERAND FIELD OF TAB1+2,X3 05080 000114 17205 0017606 LDA #LPCTR PICK UP LOOP CTR FOR ERROR TRYS 05090 000114 17206 2516001 BPL TEST FOR PLUS 05100 000114 17207 2617230 BRU #A190 GO TO TRY TO CONNECT 05110 000114 17210 0737260 SPB #A225 1 GO TO INPUT OUTPUT DETERMINE ROUT 05120 000114 17211 2617222 BRU #A185 BRANCH TO DETERMINE TYPE ERROR 05130 000114 17212 0737265 SPB #A230 1 TO BUILD READ WRITE 05140 000114 17213 0737351 SPB #RWDA1 1 GO TO BACKSPACE POS WR HEAD 05150 000114 17214 1617644 #A180 Z16 SAVEIT CONSTANT 05160 000114 17215 0737114 SPB #I/ODE 1 DELAY AND ERROR TEST 05170 000114 17216 0737351 SPB #RWDA1 1 TO WRITE EOF FOR SKIP TAPE 05180 000114 17217 0217644 SUB SAVEIT 05190 000114 17220 0737114 SPB #I/ODE 1 DELAY AND ERROR TEST 05200 000114 17221 2617235 BRU #A195 GO TO NORMAL BACKSPACE AND WRITE 05230 000114 17222 2554026 #A185 OCT 2554026 TEST FOR E5 05240 000114 17223 2617327 BRU #TPE4 GO GET MSG 05250 000114 17224 2554025 OCT 2554025 TEST FOR E6 05260 000114 17225 2617274 BRU #TPE3 GO GET MSG 05270 000114 17226 0017623 LDA #MSG4 PARITY INPUT GET MSG ER 05280 000114 17227 2617275 BRU #A235 BRANCH TO RECOVERY ROUTINE 05290 000114 17230 2504112 #A190 SBO SUBTRACT ONE FROM CTR 05300 000114 17231 0317606 STA #LPCTR STORE COUNTER BACK 05310 000114 17232 0737265 SPB #A230 1 BUILD READ WRITE FOR RETRY 05315 000114 17233 0737260 SPB #A225 1 GO TEST FOR IP OR OP 05320 000114 17234 2617677 BRU #A222 TO TEST FOR NOISE RECORD ON IP 05330 000114 17235 0017214 #A195 LDA #A180 PICK UP BACKSPACE INSTR 05340 000114 17236 2617243 BRU #A205 BRANCH TO EXECUTE BACKSPACE WR 05350 000114 17237 0077664 #A200 LDA #TAB1+1 3 PICK UP TAB1+1 MODIFIED BY X3 05360 000114 17240 2504502 CPL BUILD A READ BACK AND 05370 000114 17241 2017641 EXT #ONEX POSITION READ HEAD COMMAND 05380 000114 17242 0117605 ADD #INBK 05390 000114 17243 0317245 #A205 STA #A210 STORE COMMAND IN #A210 05400 000114 17244 0737351 SPB #RWDA1 1 GO READ BACK OR BACKSPACE 05420 000114 17245 0000000 #A210 DEC 0 05430 000114 17246 0737116 #A215 SPB #A165 1 CYCLE BACK TRU BUSY TEST 05440 000114 17247 0017645 LDA TAB1X1 PICK UP ORIG CONTENTS OF TAB1+1 05450 000114 17250 0317361 STA #RDWR+1 PUT IN READ WRITE ROUTINE 05460 000114 17251 0377664 STA #TAB1+1 3 AND TAB1+1 MODIFIED BY X3 05470 000114 17252 0017646 LDA TAB1X2 PICK UP ORIG CONTENTS OF TAB1+2 05480 000115 17253 0317362 STA #RDWR+2 MOD BY X3 AND PUT IN READ 05490 000115 17254 0377665 STA #TAB1+2 3 WRITE+2 AND TAB1+2, MOD BY X3. 05500 000115 17255 0737360 #A220 SPB #RDWR 1 GO REREAD OR REWRITE 05510 000115 17256 0637654 LDX #XR1X 1 RESTORE X1 05520 000115 17257 2617116 BRU #A165 GO TEST FOR ERRORS 05530 000115 17260 0077664 #A225 LDA #TAB1+1 3 LOAD RT COMMAND OR WT COMMAND 05540 000115 17261 2017620 EXT #MASK2 EXTRACT 3377777 05550 000115 17262 2516002 BNZ TEST NON ZERO 05560 000115 17263 2620001 BRU 1 1 INPUT 05570 000115 17264 2620002 BRU 2 1 OUTPUT 05580 000115 17265 0077663 #A230 LDA #TAB1 3 PICK UP CONTENTS OF TABLE MOD 05590 000115 17266 0317360 STA #RDWR BY X3 AND BUILD READ WRITE 05600 000115 17267 0077664 LDA #TAB1+1 3 05610 000115 17270 0317361 STA #RDWR+1 05620 000115 17271 0077665 LDA #TAB1+2 3 05630 000115 17272 0317362 STA #RDWR+2 05640 000115 17273 2620001 BRU 1 1 05650 000115 17274 0017625 #TPE3 LDA #MSG6 GET E6 MSG 05660 000115 17275 0737424 #A235 SPB #TPE3A 1 GO TO TYPE MSG AND ENTER HLT LOOP 05670 000115 17276 2514000 BOD SW 19 SET 05680 000115 17277 2617314 BRU #A240 YES-SKIP RECORD 05690 000115 17300 0637654 LDX #XR1X 1 RESTORE X1 05700 000115 17301 2510001 SRA 1 SRA 1 05710 000115 17302 2516000 BEV 05720 000115 17303 2617307 BRU *+4 05722 000115 17304 0017646 LDA TAB1X2 05724 000115 17305 0377665 STA #TAB1+2 3 05726 000115 17306 2617114 BRU #I/ODE GO TO DELAY AND ERROR TEST TO RETRY 05730 000115 17307 0737455 SPB TYPE+2 1 SIGN SW ONLY SET TYPE FD 05740 000115 17310 0017621 DEC #MSG3 TO INDICATE ACCEPTED WITH ERROR 05750 000115 17311 3777776 DEC -2 05760 000115 17312 0637654 LDX #XR1X 1 RESTORE X1 05770 000115 17313 2620001 BRU 1 1 EXIT 05780 000115 17314 0737455 #A240 SPB TYPE+2 1 TYPE TO INDICATE REC SKIPPED 05790 000115 17315 0017324 LDA #A245 05800 000115 17316 3777776 DEC -2 05810 000115 17317 0077664 LDA #TAB1+1 3 05820 000115 17320 2717166 STO #A176-1 05830 000115 17321 2504102 LMO 05840 000115 17322 0637654 LDX #XR1X 1 05850 000115 17323 2617166 BRU #A176-1 05852 000115 17324 0606242 #A245 ALF SK 05860 000115 17325 0314760 ALF IP 05870 000115 17326 3777777 DEC -1 05880 000115 17327 0017624 #TPE4 LDA #MSG5 PICK UP E5 MSG 05890 000115 17330 2617275 BRU #A235 05900 000115 17331 0017653 #I/OB LDA XHOLD1 PUT PARA LIST ADD IN A REG 05910 000115 17332 0657653 LDX XHOLD1 2 PUT PARA LIST ADD IN X2 05920 000115 17333 0377666 STA #TAB1+3 3 PUT PARA LIST ADD IN TAB1+3 MOD X3 05930 000115 17334 0040007 LDA 7 2 PICK UP LINE 8 PARA LIST 05940 000115 17335 0317360 STA #RDWR PUT IN RDWR 05950 000115 17336 0040010 LDA 8 2 PICK UP LINE 9 PARA LIST 05960 000115 17337 0317361 STA #RDWR+1 PUT IN RDWR+1 05970 000115 17340 0377664 STA #TAB1+1 3 PUT IN APPROP PLACE IN TABLE 05980 000116 17341 0040011 LDA 9 2 PICK UP LINE 10 IN PARA LIST 05990 000116 17342 0317362 STA #RDWR+2 PUT IN RDWR+2 06000 000116 17343 0377665 STA #TAB1+2 3 PUT IN APPROPRIATE PLACE IN TABLE 06010 000116 17344 2620001 BRU 1 1 EXIT 06020 000116 17345 1737655 #RWDIN STX #XR1Y 1 SAVE X1 06030 000116 17346 0737114 SPB #I/ODE 1 DELAY ERROR TEST 06040 000116 17347 0737331 SPB #I/OB 1 MODIFY READ WRITE 06050 000116 17350 0637655 LDX #XR1Y 1 RESTORE X1 06060 000116 17351 0020001 #RWDA1 LDA 1 1 PICK UP PARAMETER 06070 000116 17352 0317361 STA #RDWR+1 PUT IN RDWR+1 AND TABLE 06080 000116 17353 0377664 STA #TAB1+1 3 06090 000116 17354 0017573 LDA CNZERO ZEROS IN A REG, RDWR+2 06100 000116 17355 2717362 STO #RDWR+2 AND TAB1+3 MOD BY X3 06110 000116 Should be: TAB1+2 17356 2777665 STO #TAB1+2 3 06120 000116 17357 1420001 INX 1 1 06130 000116 REM ALL TAPE MOVE COMMANDS EXECUTED HERE 06139 000116 17360 0000000 #RDWR OCT 0 READ WRITE ROUTINE TO 06140 000116 17361 0000000 OCT 0 EXECUTE ALL TAPE COMMANDS 06150 000116 17362 0000000 OCT 0 06160 000116 17363 2620001 BRU 1 1 EXIT 06170 000116 17364 0017362 #I/OTB LDA #RDWR+2 PICK UP RDWR+2-LINE 3 06180 000116 17365 2504006 MAQ THIS WORD HAS THE TAPE 06190 000116 17366 2512201 SLD 1 HANDLER NUMBER IN IT. THIS 06200 000116 17367 2514000 BOD ROUTINE CONVERTS THE 06210 000116 17370 2617373 BRU #A250 TAPE NUMBER SO THAT IT 06220 000116 17371 2512202 SLD 2 CAN BE TYPED 06230 000116 17372 2617375 BRU #A255 06240 000116 17373 2512001 #A250 SLA 1 06250 000116 17374 0117574 ADD CNONE 06260 000116 17375 2516001 #A255 BPL 06270 000116 17376 2617401 BRU #A260 06280 000116 17377 2504040 CHS 06290 000116 17400 0117576 ADD #CN4 06300 000116 17401 2512006 #A260 SLA 6 06310 000116 17402 0117613 ADD #MSG1 PUT TAPE NR IN MSG 06320 000116 17403 0317636 STA #PX+1 06330 000116 17404 0017360 LDA #RDWR THIS IS LINE 1 OF RDWR AND 06340 000116 17405 2017607 EXT #MASK CONTAINS PLUG NR. 06350 000116 17406 0117612 ADD #MSG PUT PLUG NR. IN MSG 06360 000116 17407 0317635 STA #PX 06370 000116 17410 2620001 BRU 1 1 EXIT 06380 000116 REM GEN HALT LOOP ROUTINE 06389 000116 17411 0017573 HLTLP LDA CNZERO ZERO A REG 06390 000116 17412 2500011 RCS RD CONSOL SWITCH 06400 000116 17413 2516001 BPL TEST FOR PLUS 06410 000116 17414 2617411 BRU HLTLP PLUS GO BACK TO START OF LOOP 06420 000116 17415 2504006 MAQ MINUS MOVE SW SETTINGS TO Q 06430 000116 17416 0017573 #A265 LDA CNZERO ZERO A REG 06440 000116 17417 2500011 RCS RD CONSOL SWITCH 06450 000116 17420 2514001 BMI TEST MINUS 06460 000116 17421 2617416 BRU #A265 MINUS GO BACK TO LOOP 06470 000116 17422 2504005 XAQ BRING SWITCH SETTINGS BACK TO A 06480 000116 17423 2620001 BRU 1 1 EXIT HALT LOOP 06490 000116 17424 0317640 #TPE3A STA #PX+3 STORE MESSAGE IN MESSAGE OP AREA 06500 000117 17425 0017573 LDA CNZERO PUT ZEROS IN A 06520 000117 17426 2777665 STO #TAB1+2 3 STORE ZEROS TO OPERAND OF TAB1+2 ON X3 06530 000117 17427 1737643 #A270 STX #SAVE2 1 SAVE X1 06535 000117 17430 0737364 SPB #I/OTB 1 SET UP TO TYPE 06540 000117 17431 0737260 SPB #A225 1 GO TEST TO SEE IF INPUT OR OUTPUT 06550 000117 17432 2617434 BRU *+2 INPUT 06560 000117 17433 0017576 LDA #CN4 OUTPUT 06570 000117 17434 0117314 ADD #A240 MODIFY SPB INSTRUCTION FOR TYPE 06580 000117 17435 0117576 ADD #CN4 ENTRY 06590 000117 17436 2717437 STO *+1 06600 000117 17437 0720000 SPB 0 1 TYPE MESSAGE THAT A 06610 000117 17440 0017635 LDA #PX PARTICULAR HANDLER IS REWINDING 06620 000117 17441 0017640 LDA #PX+3 06630 000117 17442 2000001 OCT 2000001 06640 000117 17443 0637643 LDX #SAVE2 1 RESTORE X2 06650 000117 17444 2617411 BRU HLTLP GO TO HALT LOOP UNTIL REWIND COMPLETE 06660 000117 17445 0000075 OCT 75 TYPE CONST 06670 000117 17446 0000072 OCT 72 TYPE CONST 06680 000117 17447 0007675 OCT 7675 TYPE CONST 06690 000117 17450 0007672 OCT 7672 TYPE CONST 06700 000117 17451 0767675 OCT 767675 TYPE CONST 06710 000117 17452 0767672 OCT 767672 TYPE CONST 06720 000117 REM GEN TYPE ROUTINE 06729 000117 17453 0017445 TYPE LDA *-6 TYPE ENTRY BLACK NO TAB 06730 000117 17454 2617466 BRU *+10 06740 000117 17455 0017446 LDA *-7 TYPE ENTRY RED NO TAB 06750 000117 17456 2617466 BRU *+8 06760 000117 17457 0017447 LDA *-8 TYPE ENTRY BLACK ONE TAB 06770 000117 17460 2617466 BRU *+6 06780 000117 17461 0017450 LDA *-9 TYPE ENTRY RED ONE TAB 06790 000117 17462 2617466 BRU *+4 06800 000117 17463 0017451 LDA *-10 TYPE ENTRY BLACK TWO TABS 06810 000117 17464 2617466 BRU *+2 06820 000117 17465 0017452 LDA *-11 TYPE ENTRY RED TWO TABS 06830 000117 17466 2514002 BZE TYPE1 06840 000117 17467 2617475 BRU TYPE1 000117 17470 2516005 BNN 06850 000117 17471 2617470 BRU *-1 06860 000117 17472 2510406 SAN 6 06870 000117 17473 2500006 TYP 06880 000117 17474 2617466 BRU *-6 06890 000117 17475 1420001 TYPE1 INX 1 1 06900 000117 17476 0020000 LDA 0 1 06910 000117 17477 2514001 BMI TYPE3 06920 000117 17500 2617531 BRU TYPE3 000117 17501 2717502 STO TYPE2 06930 000117 17502 0017475 TYPE2 LDA TYPE1 06940 000117 17503 2514001 BMI TYPE1 06950 000117 17504 2617475 BRU TYPE1 000117 17505 2511022 SRD 18 06960 000117 17506 2512206 SLD 6 06970 000117 17507 2516005 BNN 06980 000117 17510 2617507 BRU *-1 06990 000117 17511 2510406 SAN 6 07000 000118 17512 2500006 TYP 07010 000118 17513 0017522 LDA *+7 07020 000118 17514 2504032 ADO 07030 000118 17515 0317522 STA *+5 07040 000118 17516 0217523 SUB *+5 07050 000118 17517 2514002 BZE *+5 07060 000118 17520 2617524 BRU *+4 000118 17521 2617506 BRU *-11 07070 000118 17522 0000000 DEC 0 07080 000118 17523 0000003 DEC 3 07090 000118 17524 0317522 STA *-2 07100 000118 17525 0017502 LDA TYPE2 07110 000118 17526 2504032 ADO 07120 000118 17527 0317502 STA TYPE2 07130 000118 17530 2617502 BRU TYPE2 07140 000118 17531 2514000 TYPE3 BOD 1 1 07150 000118 17532 2620001 BRU 1 1 000118 17533 0017541 LDA *+6 07160 000118 17534 2516005 BNN 07170 000118 17535 2617534 BRU *-1 07180 000118 17536 2510406 SAN 6 07190 000118 17537 2500006 TYP 07200 000118 17540 2620001 BRU 1 1 07210 000118 17541 0000037 OCT 37 07220 000118 REM SPECIAL TAPE MOVE ROUTINE FOR USER TO 07227 000118 REM EXECUTE SPECIAL COMMANDS NOT ASSOCIATED 07228 000118 REM WITH FILE SUBROUTINES 07229 000118 17542 1017652 TAPANY DLD #XHOLD SAVE CONTENTS OF #XHOLD 07230 000118 17543 1317560 DST 1TEMP AND XHOLD1 07240 000118 17544 1737652 STX #XHOLD 1 STORE X1 IN #XHOLD FOR RETURN 07250 000118 17545 0017652 LDA #XHOLD LOAD REG A WITH ADDRESS OF CALL 07260 000118 17546 0217562 SUB #CN6 SUB CON 6 07270 000118 17547 0317653 STA XHOLD1 STORE RESULT IN XHOLD1 07280 000118 17550 0737114 SPB #I/ODE 1 DELAY AND ERROR CHECK 07290 000118 17551 0737331 SPB #I/OB 1 MODIFY READ WRITE 07300 000118 17552 0737360 SPB #RDWR 1 EXECUTE TAPE INSTRUCTIONS 07310 000118 17553 0737114 SPB #I/ODE 1 DO DELAY AND ERROR CHECK 07320 000118 17554 0637652 LDX #XHOLD 1 PUT RETURN ADDRESS IN X1 07330 000118 17555 1017560 DLD 1TEMP RESTORE ORIG CONTENTS OF XHOLD1 07340 000118 17556 1317652 DST #XHOLD AND #XHOLD 07350 000118 17557 2620004 BRU 4 1 RETURN TO 4TH LINE AFTER CALL 07360 000118 17560 0000000 1TEMP DEC 0 TEMP STORAGE FOR 07370 000118 17561 0000000 DEC 0 TAPANY ROUTINE 07380 000118 17562 0000006 #CN6 DEC 6 CONSTANT 6 07390 000118 17563 0000000 #B90 OCT 0 TEMP STORAGE 07400 000118 17564 3240325 BCDEOF OCT 3240325 SHORT BLOCK INDICATOR BCD TAPE 07410 000118 17565 0017566 #RR DEC *+1 07420 000118 17566 0605147 ALF RP RERUN POINT MSG 07430 000118 17567 0606060 ALF 07440 000118 17570 3777777 DEC -1 07450 000118 17571 0016763 #REN DEC #RERUN CONSTANT FOR RESTART RESUME 07460 000118 17572 0077777 #ABC OCT 0077777 07470 000118 17573 0000000 CNZERO DEC 0 ZERO CONSTANT 07480 000118 17574 0000001 CNONE DEC 1 CONSTANT 1 07490 000119 17575 0000002 CNTWO DEC 2 CONSTANT 2 07500 000119 17576 0000004 #CN4 DEC 4 CONSTANT 4 07510 000119 17577 0000015 #CON13 DEC 13 CONSTANT 13 07520 000119 17600 0000016 #CON14 DEC 14 CONSTANT 14 07530 000119 17601 0000025 #CON21 DEC 21 CONSTANT 21 07540 000119 17602 0000030 #T24 DEC 24 CONSTANT 24 07550 000119 17603 0037777 #MEM DEC 16383 07560 000119 17604 0072460 #COUNT DEC 30000 07570 000119 17605 0417644 #INBK Z04 SAVEIT 07580 000119 17606 0000005 #LPCTR DEC 5 ERROR RETRY COUNTER 07590 000119 17607 3777077 #MASK OCT 3777077 07600 000119 17610 3760000 #MASK1 OCT 3760000 07610 000119 17611 0016000 #BTNR OCT 0016000 07620 000119 17612 0470060 #MSG ALF PO MESSAGE FOR PX 07630 000119 17613 0630060 #MSG1 ALF T0 MESSAGE FOR TY 07640 000119 17614 0604546 #MSG2 ALF NO MESSAGE FOR NO 07650 000119 17615 0376076 OCT 376076 07660 000119 17616 0606060 ALF 07670 000119 17617 0446360 ALF MT MESSAGE 07680 000119 17620 3377777 #MASK2 OCT 3377777 07690 000119 17621 0602624 #MSG3 ALF FD MESSAGE 07700 000119 17622 3677777 #MASK5 OCT 3677777 07710 000119 17623 0250460 #MSG4 ALF E4 MESSAGE 07720 000119 17624 0250560 #MSG5 ALF E5 MESSAGE 07730 000119 17625 0250660 #MSG6 ALF E6 MESSAGE 07740 000119 17626 0250760 #MSG7 ALF E7 MESSAGE 07750 000119 17627 0224360 #MSG8 ALF BL MESSAGE 07760 000119 17630 0516624 #MSG9 ALF RWD MESSAGE 07770 000119 17631 0017632 #RS DEC #MSG10 ADD OF MESSAGE 07780 000119 17632 0604546 #MSG10 ALF NO MESSAGE 07790 000119 17633 2000000 OCT 2000000 END MESSAGE 07800 000119 17634 0100000 #ORYIT OCT 0100000 TO CHANGE BCD INP OR OUTP TO BIN 07810 000119 17635 0000000 #PX OCT 0 MSG WRITE OUT AREA 07820 000119 17636 0000000 OCT 0 07830 000119 17637 3777777 #ONES OCT 3777777 07840 000119 17640 0256760 ALF EX MESSAGE 07850 000119 17641 2777777 #ONEX OCT 2777777 EOT EOF INDICATOR 07860 000119 17642 0000000 #SAVE1 OCT 0 07870 000119 17643 0000000 #SAVE2 DEC 0 07880 000119 17644 0000000 SAVEIT OCT 0 TEMP WORK AREA 07890 000119 17645 0000000 TAB1X1 DEC 0 TEMP WORK AREAS 07900 000119 17646 0000000 TAB1X2 DEC 0 07910 000119 17647 0254524 #WRITE ALF END END CONSTANT 07920 000119 17650 0000000 #HOLD DEC 0 WK AREA 07930 000119 17652 0000000 #XHOLD OCT HOLD AREA FOR RETURN ADD 07940 000119 Why ISN'T this at 17651? 17653 0000000 XHOLD1 OCT 0 HOLD AREA FOR PARA LIST ADD 07950 000119 17654 0000000 #XR1X DEC 0 TEMP WORK AREAS 07960 000119 17655 0000000 #XR1Y DEC 0 07970 000119 17656 0000000 #XR1XZ DEC 0 07980 000119 17657 0000024 #CON20 DEC 20 CONSTANT 20 07990 000119 17660 0300000 #WTB OCT 0300000 TO BUILD WRITE TAPE BIN COMMAND 08000 000119 17661 0000000 #SAV1 OCT 0 USERS X2 08001 000119 17662 0000000 #SAV2 OCT 0 USERS X3 08002 000119 17663 0250020 #TAB1 SEL 0 TABLE FOR SAVING INSTRUCTIONS 08010 000120 17664 0000000 OCT 0 PLUG 0 RT OR WT 08020 000120 17665 0000000 OCT TAPE AND NR WDS 08030 000120 17666 0000000 OCT PARA ADD 08040 000120 17667 2500120 SEL 1 PLUG 1 08050 000120 17670 0000000 OCT RT OR WT 08060 000120 17671 0000000 OCT 0 TAPE AND NR WDS 08070 000120 17672 0000000 OCT PARA ADD 08080 000120 17673 2500220 SEL 2 PLUG 2 08090 000120 17674 0000000 OCT RT OR WT 08100 000120 17675 0000000 OCT TAPE AND NR WORDS 08110 000120 17676 0000000 OCT PARA LIST ADDRESS 08120 000120 17677 0017646 #A222 LDA TAB1X2 NR WORDS IN BLOCK 08130 000120 17700 2017712 EXT #A224 ALL BUT NR WORDS 08140 000120 17701 0317644 STA SAVEIT SAVE AREA 08150 000120 17702 0117645 ADD TAB1X1 ADD RD AREA 08160 000120 17703 2717705 STO *+2 STO MOD ADD IN *+2 08170 000120 17704 0017644 LDA SAVEIT LDA NR WORDS 08180 000120 17705 0117705 ADD * ADD RESIDUE WORD 08190 000120 17706 0217562 SUB #CN6 SUB 6 08200 000120 17707 2514001 BMI TEST MINUS 08210 000120 17710 2617247 BRU #A215+1 NOISE RECORD 08220 000120 17711 2617237 BRU #A200 GOOD RECORD TRY TO CORRECT IT 08230 000120 17712 3760000 #A224 OCT 3760000 08240 000120 17713 1737656 #A280 STX #XR1XZ 1 SAVE INDEX REG 1 08250 000120 17714 0017653 LDA XHOLD1 SAVE XHOLD1 AREA 08260 000120 17715 0317561 STA 1TEMP+1 08270 000120 17716 0657735 LDX #XSTOP 2 SUMULATE PAR LIST WITH TABLE 08280 000120 Should be: SIMULATE 17717 1757653 STX XHOLD1 2 PUT SIMULATED PAR LIST ADDRESS IN SHOLD1 08290 000120 Should be: XHOLD1 17720 0040010 #PLCHK LDA 8 2 08300 000120 17721 2514002 BZE 08310 000120 17722 2617726 BRU #A285 PLUG NOT USED 08320 000120 17723 1757560 STX 1TEMP 2 PLUG USED 08330 000120 17724 0737114 SPB #I/ODE 1 ERROR CHECK THIS PLUG 08340 000120 17725 0657560 LDX 1TEMP 2 08350 000120 17726 1440004 #A285 INX 4 2 08360 000120 17727 0440110 BXL #A287+122 GO THROUGH 3 PLUGS 08370 000120 17730 2617717 BRU #PLCHK-1 TO UPDATE XHOLD1 08380 000120 17731 0017561 LDA 1TEMP+1 08390 000120 17732 0317653 STA XHOLD1 RESTORE XHOLD1 08400 000120 17733 0637656 LDX #XR1XZ 1 RESTORE X1 08410 000120 17734 2620001 BRU 1 1 EXIT 08420 000120 17735 0017654 #XSTOP DEC #TAB1-7 08430 000120 17654 #A287 EQU #TAB1-7 08432 000120 17736 0637653 #A290 LDX XHOLD1 1 08440 000120 17737 0020007 LDA 7 1 08450 000120 17740 2017607 EXT #MASK 08460 000120 17741 0316766 STA #A144 TEMP STORAGE 08470 000120 17742 0636766 LDX #A144 1 PUT P NO IN X1 08471 000120 17743 0017604 LDA #COUNT 08480 000120 17744 2534020 OCT 2534020 TEST FOR READY 08490 000120 17745 2617752 BRU *+5 READY 08500 000120 17746 2504112 SBO NOT READY 08510 000120 17747 2516002 BNZ 08520 000120 17750 2617744 BRU *-4 08530 000121 17751 2660002 BRU 2 3 CTRLR ALERT 08540 000121 17752 2536027 OCT 2536027 TEST FOR ERRORS 08550 000121 17753 2660001 BRU 1 3 NO ERRORS 08560 000121 17754 2660002 BRU 2 3 ERRORS 08570 000121 REM LAST CARD CD225E2.001 08580 000121 2600740 END START 000121