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