----------- Section 1 in chapter 3 length 23 starts at 13446 PASS 1 INPUT UNPACKED Serial addr item | comment 15254 13446 0|DATA START 24919 13446 0|AMEND IND 15278 13446 0|PROG ID+SERIAL 25504 13446 0|STORE SERIAL 25560 13446 0|PT SERIAL FOR DELETION 24728 13448 2|EDIT SERIAL 24809 13448 2|CLEAR LINE SERIAL 16304 13448 2|FILE IDENTITY 19004 13448 2|RIGHT ALIGN 25306 13448 2|SERIAL 15710 13448 2|TESTTHIS IS AN 16209 13448 2||CHECK 'ENTRY' 25527 13448 2|PT SERIAL 16387 13449 3|FILE ID 17305 13449 3|TOPCHAR OF SERIAL NUMBER 16517 13450 4|(SAFE VALUE) 16214 13450 4|ENTRY PROCR 16231 13450 4|NEW PROCR 16511 13450 4|NO OF CHARS 16421 13450 4|ROUTE TYPE 15757 13450 4|SUITE 17223 13450 4|TX AREA IND 16544 13450 4|NO OF CHAPS*START 16912 13450 4|AMEND LETTER 29414 13450 4|AMENDMENT DIRECTIVE IS UNPACKED 25302 13450 4|AMENDMENTS MODS ARE 16384 13450 4|ROUTE TYPE 16326 13450 4|ROUTE TYPE 16540 13451 5|NEXT CHAP START 16530 13451 5|OLD VALUE 17608 13452 6|JOB 26549 13452 6|CLEAR 1/6'-1.22'=EDIT AREA 28634 13452 6|ACTION 23710 13452 6|ACTION OR C 16377 13452 6|CHAP IND 26013 13452 6|FIRST WORD 16232 13452 6|PRIORITY CLASS 27412 13452 6|NEXT WORD CONSTANT 26610 13452 6|STORE NEXT WORD OF CONST 18711 13454 8|EDIT NEW PROCR 20830 13454 8|REPLACE REF WITH ZEROS 28321 13454 8|& MUST BE UNPACKED DIFFERENTLY 16370 13454 8|BLOCK LENGTH 16351 13454 8|BLOCK LENGTH 17620 13454 8|CLEAR SERIAL NUMBER 30418 13454 8|COPY 'RADIX' 15718 13454 8|ENSURE FIRST SERIAL=0,INITIAL TRANSLATIO 29311 13454 8|L-ALIGN PROCR NUMBER 28344 13454 8|MOVE ''RADIX'' 15753 13454 8|RE-FORM ISSUE+SERIAL IN 18' 20803 13454 8|REF 28631 13454 8|REF ALPHA E-ALIGNED 25424 13454 8|TRANSFER MT PROCR NUMBER 24009 13454 8|L-ALIGNED REF 15819 13454 8|NO CARRY AFTER 99 16023 13454 8|PROGRAM SERIAL 21412 13454 8|REF 21902 13454 8|TEST REF IS ZERO 19120 13455 9|NEW REF 19115 13455 9|REF 30471 13455 9|ALPHA+NUM 20961 13456 10|(NEW STYLE) 16415 13456 10|ALT ROUTE IND 24010 13456 10|ITEM 21203 13456 10|MODULUS OF ITEM 27609 13456 10|NEW ITEM 16434 13456 10|SPECIAL ANNEX LENGTH 22206 13456 10|ITEM 28123 13457 11|'SINGLE/BE' 25025 13457 11|VALUES 27920 13458 12|CHARS 23314 13458 12|DISC 28129 13458 12|NO OF CHARS 22010 13458 12|C-LINE DISC 21226 13458 12|D 21215 13458 12|DISC 27921 13459 13|DISCARDS 18704 13460 14|B/FWD PROCR 21805 13460 14|MOD DIGITS 18715 13460 14|OLD 27903 13460 14|SPACES 21510 13460 14|+OK 21220 13460 14|MOD 21307 13460 14|MOD DIGITS 27925 13461 15|ZEROS 22116 13462 16|L 24332 13462 16|L=RADIX 15725 13462 16|PRINT INDS 27905 13462 16|SIGN 22902 13462 16|(ACTIONS 11,12) 23202 13462 16|ACTION 38 23312 13462 16|ACTION 55 23432 13462 16|ACTION 77, 78 23417 13462 16|CHECK L NONZERO (ACTION 17:19) 23420 13462 16|CHECK L=0 ACTIONS 83 15720 13462 16|CLEAR FOR INDS 30432 13462 16|CONST/TABLE TYPE OR RADIX LETTER 28416 13462 16|COPY TABLE OR CONST TYPE 22145 13462 16|L 23422 13462 16|L<100 22150 13462 16|LITERAL 23402 13462 16|LITERAL IN 5 QUARTETS 20512 13462 16|TABLE TYPE 25045 13462 16|BULK COPY ANNOTATION 16242 13462 16|ANNOTATION 16072 13462 16|COPY ANNOTATION 15749 13463 17|CHANGE TO ISSUE? 28141 13463 17|STERLING IND 28012 13463 17|STERLING INDICATOR 23305 13464 18|C-LINE LITERAL 28024 13464 18|LAST TABLE ENTRY 28127 13464 18|LAST TABLE ENTRY' 23414 13464 18|MOD L 23002 13464 18|MOD L|(ACTIONS 30-33) believe item=18 by comparison to other procrs annotated MOD L 28343 13464 18|S/DIR WAS ''NOTES'' OF PROCR 22706 13464 18|STORE MODULUS L 28007 13465 19|DISC 28113 13466 20|1ST REF 27806 13466 20|FIRST REF 15755 13466 20|CARD SERIAL 28605 13466 20|CLEAR 'CLEO' WORD 25814 13466 20|CLEAR CLEO WORD 27607 13466 20|REF (NUM) 28121 13468 22|FIRST ITEM 27605 13468 22|ITEM 28102 13470 24|2ND REF 27910 13470 24|SECOND REF 28120 13472 26|2ND ITEM 27911 13472 26|SECON ITEM 17250 13474 28|ANNOTATION 30462 13474 28|COPY ANNOTATION 16546 13480 34|REPORTS 18912 13488 42|CLEAR OUT REPORT 18903 13488 42|LAST 5 CHARS OF ANNOTATION 28445 13490 44|CLEAR ERROR INDICATOR 28329 13490 44|CLEAR ERROR WL 25815 13490 44|CLEAR ERROR WORD 16720 13490 44|CLEAR REPORT WL 17209 13490 44|CLEAR REPORT WORD 19911 13490 44|LET OTHERS TAKE PRECEDENCE 21103 13490 44|NONEXISTENT ACTION = ERROR OF A 25043 13490 44|PASS 1 REPORTS 20430 13490 44|REPORT WRITTEN ITEM >99 19904 13490 44|TEST REPORT ALREADY MADE ----------- Section 2 in chapter 1 length 5 starts at 5654 EXTENSION BACKWARDS OF SECTION 16 Serial addr item | comment 22163 5714 60|SET C LINE IMPOSSIBLE ----------- Section 3 in chapter 2 length 24 starts at 10680 PROCR 'LENGTH' INDEX B/FWD Serial addr item | comment 11106 10680 0|INDEX 3/0-45 10544 10680 0|ALL SECTIONS PASS 0 12404 10725 45|(HIGHEST B/FWD PROCR+1) 11113 10725 45|(HIGHEST B/FWD PROCR+1) IN BINARY 11705 10725 45|(HIGHEST PROCR+1) 11121 10725 45|=PROVIS MAX C/FWD PROCR 12203 10725 45|> READ/COPY TO NEXT DIRECTIVE 10826 10725 45|BIT IND 12136 10725 45|HIGHEST B/FWD PROCR (BIN) 11809 10725 45|HIGHEST B/FWD PROCR+1 11736 10725 45|HIGHEST PROCR+1 10903 10725 45|STORE 5-DIGIT SERIAL FIRST LINE 10812 10725 45|WL PROCR 10825 10726 46|WL PROCR 10829 10675 5-|LIST IN 3/0-44 ----------- Section 4 in chapter 2 length 50 starts at 10728 PASS 0 INPUT UNPACKED Serial addr item | comment 10832 10730 2|PROG 1D TEST DUMMY CLEO MOD 13627 10730 2|PROG ID 11034 10730 2|PROG IDENTITY 14512 10730 2|SUITE 11615 10730 2|'TO' 11617 10730 2|'TO'PROCR 11638 10730 2|'TO'SERIAL 11410 10730 2|LINE SERIAL 11612 10730 2|LINE SERIAL 'TO' 13003 10730 2|LINE SERIAL OF AMENDMENT 11325 10730 2|THIS LINE SERIAL 11209 10731 3|LINE SERIAL 14517 10732 4|PROG 10833 10732 4|PROG SERIAL 13630 10732 4|SERIAL 13204 10732 4|WL FOR AMEND DIRECTIVE 12102 10734 6|INSERTIONS 10607 10736 8|+GREATER THAN 998 10602 10736 8|CODERS PROCR 12111 10744 16|CONST TYPE 10587 10744 16|CONSTANT TYPE ----------- Section 5 in chapter 4 length 27 starts at 14462 PT IN+PRINT Serial addr item | comment 55716 14462 0|EDIT FIRST LINE 68008 14462 0|TYPE 'PROG OUT' 55315 14462 0|CLEAR PRINTER ANNEX 12375 14462 0|-> 57607 14462 0|FUNCTION WORD 81703 14462 0|SET UP FUNCTION WORD 81805 14462 0|BLANK LINE 13574 14462 0|COPY LAST WORD 13561 14462 0|COPY TO O/P SECTION 13539 14462 0|REPLACE BE BY LE 72418 14463 1|BIT 40 84803 14464 2|EDIT 85662 14464 2|EDIT 'FILE UNALTERED' LINE 56048 14464 2|EDIT AND OUTPUT 85206 14464 2|EDIT BLOCK NO 80514 14464 2|EDIT DUMP POINT 56414 14464 2|EDIT FOR PRINT 56220 14464 2|EDIT HEADING & OUTPUT 84107 14464 2|EDIT PM POINT HEADING 78104 14464 2|EDIT PRINTER HEADING 71206 14464 2|EDIT SERIAL 85317 14468 6|EDIT LINE 85908 14468 6|EDIT WEIRD LINE 85310 14468 6|CLEAR REST OF ANNEXE 86447 14472 10|CLEAR REST OF LINE 88805 14472 10|CLEAR 56042 14502 40|25 QUESTION MARKS 72405 14514 52|BEW ----------- Section 6 in chapter 2 length 450 starts at 10828 PASS 0 OLD/NEW PROCR INDEX Serial addr item | comment 11735 10728 100-|DELETE ALL PROCEDURES 14015 10728 100-|UPDATED REF 12211 10728 100-|UPDATED REF ''INSERT BEFORE'' 12419 10728 100-|C/FWD EQUIVALENT 11118 10728 100-|STORE ONE-FOR-ONE 11750 10728 100-|UPDATE PROCR ----------- Section 7 in chapter 4 length 75 starts at 14516 MTIN,OUT+PRINT Serial addr item | comment 52557 14518 2|EDIT ENTRY POINT 52212 14518 2|EDIT INSTRUCTIONS 47504 14518 2|EDIT TABLES 36003 14518 2|BULK CLEAR SECTION 7 28431 14520 4|INSTRUCTIONS 79317 14520 4|TEST CHAPT BLOCK 32458 14520 4|TESTS FOR CLOSING A1 86403 14520 4|TEST PREND OR E BLOCK IN ANNEXE 16154 14520 4|COPY ANNEXES 28439 14520 4|AMEND IND 69018 14520 4|TEST 'SENTINEL5' 18511 14522 6|SET I/P MR 25833 14522 6|LINE SERIAL 25544 14522 6|SERIAL BEING DELETED 16254 14522 6||IGNORE MT FILES 85402 14522 6|I/C SERIAL 25110 14522 6|MT SERIAL 25516 14522 6|MT SERIAL 16125 14523 7|FILE ID 48025 14524 8|REF 16122 14524 8|ROUTE TYPE 85635 14524 8|RTE PARAM 28426 14524 8|R, I+VALUES 79414 14526 10|FILE 1D 85607 14526 10|FILE ID 48027 14526 10|ITEM 85405 14526 10|PM TYPE 69026 14526 10|PROG SERIAL 17405 14528 12|DIRECTIVE WORD 28437 14528 12|CONSTANTS 69032 14528 12|CHAPS INITIALLY 36503 14528 12|NEW PROCR 35007 14528 12|NEW PROCR NO 85609 14528 12|RUN NO 85618 14530 14|P RTE PARAM 85531 14530 14|CHAP OR SECN NO 85613 14532 16|TA LGTH 85510 14532 16|REF 79410 14534 18| 'CLEAN'SET NO 79507 14534 18|CLEAN SET NO 79324 14534 18|MT SET 85513 14534 18|ITEM 15813 14536 20|COPY ANNOTATION 79407 14536 20|SECN NO 84519 14536 20|CLEO LENGTH 79405 14538 22|BLOCK SIZE 79412 14540 24|IND 89773 14540 24|MAXAMISE ALL 3 CHAP LENGTHS 79321 14542 26|MT FILE 79327 14542 26|ROUTE IDENTIFIER 85660 14542 26|STORE FILE 1D 79706 14542 26|STORE FILE ID 51123 14548 32|FIRST 5 CHARS ANNOTATION 69036 14556 40|NEW PROG SERIAL 28428 14560 44|ANNOTATION 16106 14562 46|CLEAR REPORT WORDS 78918 14566 50|DUMPS POINT ----------- Section 8 in chapter 4 length 75 starts at 14666 Serial addr item | comment 57707 14666 0|CLEAR 72707 14666 0|CLEAR 68705 14670 4|EDIT 16548 14670 4|EDIT AMEND IND+'CHARS' 56402 14670 4|EDIT 56171 14670 4|EDIT IN 32405 14670 4|5 ALIGN MARKS 72303 14670 4|COPY ANNEXES 16065 14670 4|A6 68709 14670 4|BIN CHAP NUMBER ON MT 28825 14670 4|BLOCK LENGTH 90706 14670 4|CHAP NUMBER 16046 14670 4|PROG IDENTITY 90718 14670 4|SET CHAP NUMBER 68612 14670 4|=PARAMETER 90011 14672 6|INDEX' 16048 14672 6|PROG SERIAL 33525 14674 8|CLEAR 55610 14676 10|PASS 1 IDENTIFIER 89785 14676 10|TOTAL CHAPS IN OBJECT PROGRAM 16057 14678 12|ISSUE 6' ND 33802 14680 14|AMEND IND 16054 14680 14|SET 'PSEUDO ISSUE 5' 14472 14682 16|MULTI RECORD IND 55615 14682 16|PASS IND 16058 14682 16|SET 'MULTI RECORD' 55612 14684 18|IDENTIFIER 69011 14684 18|PASS 3 IDENTIFIER 55823 14690 24|SET IND THAT IN ANOTHER STORE 90121 14690 24|| 08066 AND 08061 55827 14704 38|PROG ID 55829 14706 40|PROG SERIAL 16903 14713 47|TEST TOP HALF TO BE'??5' 16917 14714 48|PLANT '??' ----------- Section 9 in chapter 4 length 75 starts at 14816 Serial addr item | comment 32606 14816 0|DUMMY FOR PARAMETER 81407 14816 0|UNPACK CARD 78917 14816 0|TEST AMENDMENT TO TH 77726 14816 0|NO PT TRAMD,SET END 82017 14816 0|CLEAR BE CHAR 79002 14818 2|TEST DIRECTIVE 33156 14820 4|EDIT FIRST HEADING 33177 14820 4|EDIT SECOND BLOCK 33164 14820 4|PROG & SERIAL FOR PASS 3 88387 14820 4|TYPE COMMENT 16551 14820 4|DEAL WITH 'STOR 28635 14820 4|LINE SERIAL 15614 14820 4|SET END SIGN 56108 14820 4|FILE DETAIL 25111 14820 4|A6 SERIAL 55453 14820 4|PROG ID 36922 14822 6|BEW 28646 14822 6|IN 6-TH CHAR POSN 55455 14822 6|PROG SERIAL 28331 14824 8|UNPACK S/DIR FROM CARD 68060 14824 8|START 51611 14826 10|CLEAR 28645 14834 18|IN 36-TH CHAR POSN 28345 14836 20|COPY WORDS 13546 14852 36|2XBE POSN CTR 25505 14866 50|'PASS 0' IND 18618 14866 50|PASS 0 DOESN'T LIKE IT' IND 25510 14866 50|PASS 0 IND 25802 14866 50|PASS 0' IND ----------- Section 10 in chapter 0 length ?? starts at 1074 PRINTER/CLEO I/P TX AREA Serial addr item | comment 88463 1078 4|CLEAR REST OF ANNEX 13620 1078 4|PROG ID 14736 1078 4|PROG IDENTITY 10781 1080 6|LINE SERIAL 14710 1080 6|RECORD LENGTH 14773 1082 8|TRANSLATOR SERIAL 13632 1082 8|PASS IND 13637 1084 10|IDENTIFIER 10731 1086 12|'ISSUE 6 OR LATER'IND 14479 1086 12|UPDATE SERIAL IN'PROGM'BLOCK 10729 1088 14|'PSEUDO-ISSUE 5'IND 10727 1090 16|'MULTI-RECORD'IND 14411 1090 16|MULTIRECORD IND 10847 1090 16|OLD PROG ----------- Section 11 in chapter 7 length 10 starts at 13124 Serial addr item | comment 68735 13124 0| 'TYPE (SOMETHING) ' 55911 13124 0|SELECT DETAIL 56155 13126 2|FIB TO M/R 70329 13126 2|FIRST ITEM (ALWAYS > 0) 68405 13126 2|PROCR 56110 13126 2|ROUTE TYPE 02 69610 13126 2|TEST FOR SEQUENCE CHANGE 70617 13126 2|PROGRAM CONST 70309 13128 4|(POSITIVE) ITEM 70836 13128 4|PARA FOR VALUE 68407 13128 4|PROCR START 70805 13128 4|REF 56146 13130 6|ZERO START 69609 13130 6|ADM+ITEM 70807 13130 6|ITEM 55926 13132 8|>SPACER 56004 13132 8|NUMBER OF CHAPTERS INITIALLY 56170 13132 8|START LOCATION 56145 13134 10|ALT ROUTE IND 55766 13134 10|NO OF ROUTES 56002 13134 10|STORE 56156 13134 10|TEST ALTERNATE 55763 13136 12|NO OF TX AREAS FOR ALLOCATOR 55768 13138 14|NO OF DISCFILES ----------- Section 12 in chapter 9 length 60 starts at 15000 PASS 1 WL'S Serial addr item | comment 18722 15000 0|FIRST CODERS PROCR 16029 15001 1|REPLACE EXISTING ISSUE 17013 15001 1|SET AMEND IND 16506 15001 1|STORE AMEND SERIAL INDICATOR 16024 15001 1|WL 17622 15002 2|CLEAR CTR 16274 15002 2|CLEAR CTR 17710 15002 2|REDUCE CTR 17704 15002 2|CTR 27602 15003 3|CLEAR ERROR WL 16303 15003 3|ERROR LETER F 16504 15003 3|ERROR LETTER C 15705 15003 3|ERROR LETTER'P' 16610 15003 3|ERROR LETTERS 16208 15003 3|LETTER E FOR REPORTS 17707 15003 3|REPORT LETTER 20822 15004 4|AMENDMENT 24002 15004 4|DEC REF 21831 15004 4|DECSECTION 18716 15004 4|NEW 21003 15004 4|NEW REF 27611 15004 4|NEW REF 23806 15004 4|PROCR 24106 15004 4|PROCR OF OLAID/OLAYER CHAP START 27704 15004 4|REF TO BE CHECKED 17706 15004 4|REPORT NUMBER 24611 15004 4|SECTION 28029 15005 5|CHARACTERS EDITED 28035 15005 5|CLEAR STR AT EACH LTE 27909 15005 5|STEP TOTAL 27904 15005 5|TOTAL FOR TABLE 28025 15006 6|COPY TO WL 15910 15008 8|SET PAPER TAPE INPUT INDICATOR 18509 15008 8|(CLEAR 12/9) 24910 15009 9|(SO AS TO STEP BY 2 EVENTUALLY) 24712 15009 9|LONE SERIAL IN PROCR 24007 15009 9|SEQ CHANGE SOURCE 24811 15009 9|SERIAL THIS LINE WITHIN SECTION 16622 15009 9|SET FIRST SECTION SERIAL NUMBER 20711 15009 9|SET THIS LINE SERIAL 17249 15009 9|STEP SERIAL CTR 27010 15010 10|STORE CHARACTER 27013 15010 10|BASIC QTT 16523 15012 12|C:0 24105 15012 12|SCAN CHAPTER STARTS 24224 15012 12|UNCORR CHAPS:0 32443 15012 12|COPY DATA FOR PASS 2 PREP STAGE 16606 15013 13|NO OF CHAPS 16139 15013 13|NUMBER OF CHAPS 16137 15013 13||MT 'CHAPS' UNAMENDED 18723 15014 14|SET AS FIRST CHAP START 16143 15014 14|START 16531 15014 14|STORE START POINTS 24107 15014 14|NEXT CHAP START 20409 15030 30|PROCR 20309 15030 30|STORE PROCR 23821 15032 32|SWITCH PROCR 16020 15032 32|WL=PROG IDENTITY 26014 15033 33|NON ZERO IF EX PT 16108 15033 33|SET 'MT INPUT' 16138 15033 33|SET 'MT INPUT' 16503 15033 33|SET 'PT IN' 16223 15033 33|SET 'PT INPUT' 18515 15033 33|SET 'PT INS INPUT' 25850 15033 33|SET 'PT IS INPUT' 15716 15033 33|SET'PT INPUT' 20708 15038 38|DIRECTIVE IND FOR THIS LINE 25410 15038 38|IS REPLACING BLOCK STACK DIR OR NOT 25429 15038 38|PT DIRECTIVE 25804 15038 38|SET NON DIRECTIVE 28733 15038 38|SET<0 IF PROCR/TABLE/CONST/VALUE 18603 15038 38|STACKING DIRECTIVE 22213 15040 40|COLLATION BIT 18311 15040 40|STORE COLLATION BIT 18307 15040 40|WL 18615 15043 43|CLEAR LINE INCREMENT FOR 'SER' CHECKS 19017 15043 43|TO TEST NEXT INSTRUCTION 20406 15046 46|CLEAR FOR TOTAL ADJUSTMENT 23304 15046 46|FIRST LINE LITERAL 20324 15046 46|FORM TOTAL ADJUSTMENT 24228 15046 46|GREATER IN THIS OVERLAY 24118 15046 46|OLAID CHAP 20424 15046 46|TOTAL ADJUSTMENT 24205 15046 46|OLAYER|SET 'NON-UNIQUE' IND 24315 15046 46|STORE OLD - NEW RADIX 24223 15047 47|GREATER IN 46; LESSER IN 47 24337 15047 47|SET OLD RADIX 24207 15047 47|OLAID 21020 15054 54|ACION 22109 15054 54|ACTION 23405 15054 54|ACTIONS 54,94 22124 15054 54|BIN ACTION 23902 15054 54|BIN ACTION 21039 15054 54|BINARY ACTION 22120 15054 54|RT 1-4+9 22105 15054 54|RT 1-6+9-10 22113 15054 54|RT 5 21026 15055 55|(TO GET NEXT C-LINE CHECK CONST) 21046 15055 55|LOCN TO SELECT C-LINE CHECK CONSTANT 20986 15058 58|NEW ITEM 20320 15058 58|SEARCH WITHIN PROCR 21117 15059 59|CLEAR THIS 20603 15059 59|SWITCH ACCORDING TO 21116 15060 60|IND THAT C-LINE IS POSSIBLE 22037 15060 60|42 OR 43 24334 15061 61|C-LINE IND 23302 15061 61|C-LINE IND|(ACTION 90) 18606 15061 61|C-LINE MUST FOLLOW 21114 15061 61|IND THAT C-LINE ESSENTIAL 24116 15061 61|IS C-LINE READ YET? 23435 15061 61|MUST BE C-LINE 28038 15063 63|CLEAR COUNTER 28014 15063 63|STERLING CTR 28036 15063 63|STERLING INDICATORS NOT 26723 15066 66|ITEM 26006 15066 66|CLEAR R2 27014 15066 66|ASSEMBLE CONST QTT BY QTT 26003 15066 66|CLEAR INDICATORS 26430 15067 67|12/67=REF, 12/66=ITEM 26525 15067 67|REF 26708 15067 67|REF (DEC) 26713 15067 67|SECTION IN DEC 26112 15070 70| 'NE FOUND' IND 26907 15070 70|CHARS IN CONST 26115 15070 70|CLEAR 26566 15070 70|NEW CONSTANT LENGTH 26582 15070 70|NEW NUMBERS OF CHARS 26615 15070 70|NO OF CHARS 26015 15070 70|SET 'NE FOUND' IND 26807 15070 70|TOT CHARS IN CONST+1 (INDIRECTIVE) 26519 15070 70|TOT NO OF CHARS 32252 15072 72|12/72-81= SECTION BIT PATTERNS 22508 15072 72|COLLATE TX AREA IND 17238 15072 72|SET 'i AM A SECTION' IND 17243 15072 72|SET 'i AM A TX AREA' IND 24702 15085 85|TEST IF TO IGNORE 25610 15086 86|SET IND FOR SR 26408 15088 88|DECIMAL 26426 15088 88|CHAR RELATIVE ADDRESS 23542 15088 88|MR (BIN) 24613 15088 88|SEC/ PROCR 24630 15088 88|SECTION 23521 15088 88|STORE 26205 15088 88|THIS CHAR 23537 15088 88|THIS ONE 29218 15088 88|SHEET NO 24026 15088 88|WL=BULK COPY TABLE ENTRY 29229 15088 88|WRONG NUMBER 20821 15088 88|TEST IMPLICIT 26435 15088 88|ASSEMBLE REF/ITEM 26417 15088 88|BASIC BINARY 26421 15088 88|BASIC PATTERN 20950 15088 88|REPLACE PROCR(NEW STYLE) 19014 15088 88|STORE THIS SERIAL NO 24724 15090 90|(0=SHORT, 1=LONG) 19015 15090 90|+LONG/SHORT COUNTER 27102 15090 90|LONG/SHORT CONST IND 26902 15090 90|LONG/SHORT CONST INDICATOR 27202 15090 90|LONG/SHORT CONSTANT IND 20612 15090 90|LONG/SHORT IND 26564 15090 90|LONG/SHORT CTR 20630 15090 90|CLEAR IND=SHORT 20511 15090 90|COUNTER 29221 15092 92|PREVIOUS SER 29222 15092 92|REPLACE BY CURRENT 32263 15100 100|12/100-104='TX AREA USED' INDS 22528 15100 100|SET BIT 29211 15110 110|STORE ANY ERROR 28805 15111 111|CARD SER ERROR 29208 15111 111|PREVIOUS SER 29209 15111 111|STORE THIS SER 25054 15115 115|ERROR REPROT SHIFT CONTROL 21008 15118 118|PEVIOUS PROCR 24008 15118 118|SOURCE 24036 15118 118|NEW SEQ CH BACK 24016 15119 119|DESTINATION 20105 15119 119|REPLACEMENT=ITSELF ----------- Section 13 in chapter 7 length 16 starts at 13144 Serial addr item | comment 56406 13144 0|TO BINARY 56322 13144 0|ZERO START 56006 13144 0|CLEAR WL'S 56017 13144 0|STORE CHAPTER LENGTHS 70350 13144 0|DETAILS FOR 71403 13144 0|QUICKER THAN EDIT 55916 13144 0|STORE YES OR NO 69628 13144 0|COPY IND AS PARA 70102 13144 0|PARA 70819 13144 0|PARA 70814 13144 0|PARA FOR DELTA 70513 13144 0|SECOND PARA 70002 13146 2|(A IS CLEAR) 70811 13146 2|>DELTA 70627 13146 2|CONST 56319 13146 2|NEG CHAP NUMBER 70520 13146 2|QTTS 70511 13146 2|QTTS+INDS 70347 13146 2|STERLING IND 56342 13146 2|TWICE CHAP FOR MT 70821 13146 2|VALUE 70628 13148 4|STORE FOR PRINT 70349 13148 4|SET UP SECOND HALF OF 70326 13148 4|CLEAR PARA - FIXED FIELD 70209 13148 4|PARAMETER 70334 13148 4|SET SECOND PARA 56338 13148 4|TX AREA LENGTH 56320 13148 4|ZERO LENGTH 70351 13150 6|OUTPUT 70303 13150 6|STORE Q'S AND I'S 70321 13150 6|(SET SIGN BIT) 70311 13150 6|Q + 1 70316 13150 6|SET SECOND ADDRESS + LTE 56025 13143 1-|LAST CHAP LENGTH(DEC) 56033 13143 1-|PRINT SPECIAL CHAP AS MIN LENGTH 506 70510 13166 22|CLEAR'LAST TE'IND 70517 13166 22|SET LTE IND ----------- Section 15 in chapter 7 length 50 starts at 13216 Serial addr item | comment 84523 13216 0|SECN LGTH ----------- Section 16 in chapter 7 length 20 starts at 13176 Serial addr item | comment 55443 13176 0|CLEAR W/L'S 57639 13177 1|CLEAR INDICATOR 72437 13177 1|CLEAR INDICATORS 55526 13177 1|CURRENT UNCORR CHAP 68425 13177 1|LINE PRINTED? 70824 13177 1|SET PRINT IND 55332 13177 1|UNCORR CHAP 55427 13177 1|ZERO UNCORR CHAP 89709 13178 2|ARE WE 08066? 55544 13178 2|CHAP NUMBER (CORRECTED) Q6 55429 13178 2|CORR CHAP=SPEC CHAP 55330 13178 2|CORRECTED CHAP 69002 13178 2|GENERATE INDEX DETAILS 90719 13178 2|OBJECT PROG ID 90203 13178 2|PROG ID 90134 13178 2|PROG ID 08066 88229 13178 2|PROG IDENTITY 88360 13178 2|PROGM BEING TRANSLATED 55338 13178 2|CORR CHAP 88232 13179 3|PROG SERIAL 90721 13179 3|SERIAL 90176 13179 3|SERIAL 55341 13179 3|START OF FIRST SEC IN UNCORR CHAP 55554 13179 3|UNCORR CHAP LENGTH 55555 13180 4|ALL SECTIONS+ANNEXES TO DATE 55517 13180 4|AUG SEC LENGTHS IN CHAP 55342 13180 4|CLEAR FOR TOT LENGTHS ALL SECS IN CHAP 55430 13180 4|CLEAR SUBTOTAL 55433 13180 4|FORM SPECIAL CHAP LENGTH 55339 13180 4|SW SEC LENGTH 56003 13184 8|NO. OF FILES 56005 13185 9|NO. OF CHAPTERS 89826 13186 10|STEP CTR 89822 13186 10|X=TOT CHAPS IN OBJECT PROGM 89787 13186 10|0:X 89725 13186 10|SET M/R AT NO OFCHAPS 68722 13192 16|STEP CHAP NUMBER (DEC) 68724 13192 16|THIS CHAP (DEC) 69911 13194 18|=SEQ CHANGE ADDRESS 69604 13194 18|REF 69806 13194 18|THIS REF 69909 13194 18|ITEM WITHIN PROCR IN A 70306 13194 18|REF 69709 13195 19|(SET SIGN) 69703 13195 19|MODULUS OF ITEM 70317 13197 21| '-0' IND 70108 13197 21|ACTION 70324 13197 21|CLEAR THIS 70206 13197 21|NEW ITEM IND 70310 13198 22|PROVISIONAL ADDRESS 70348 13198 22|STORE WITH PARA 70812 13199 23|>NEW VALUE OF STACKER 70833 13199 23|AUGMENT LOCN COUNTER 70810 13199 23|CURRENT VALUE OF STACKER 68314 13199 23|SPACE CTR FOR USE WITH VALUES 70010 13200 24|ADDRESS 69606 13200 24|NEG ITEM IND 70006 13201 25|DISC 70008 13202 26|MOD 71203 13204 28|SERIAL AT STARTOF LINE 68731 13204 28|SET LINE SERIAL 71211 13204 28|UPDATE FOR NEXT 68410 13212 36|PROCR START 70115 13213 37|AUG SUBCTR 70535 13213 37|AUG SUBCTR 68704 13213 37|CLEAR SERIAL SUB-CTR 68429 13213 37|CLEAR SUBCTR 71210 13213 37|INCREMENT THIS LINE ----------- Section 17 in chapter 2 length 50 starts at 11728 WL'S IN PASS 0 Serial addr item | comment 12115 11728 0| 'LENGTH' OF INSERTED PROCR 11831 11728 0|->FIND'LENGTH' 11403 11728 0|0=SHORT, 1=LONG 12008 11728 0|CURRENT LENGTH 11639 11728 0|LENGTH 12357 11728 0|LENGTH IND 10632 11728 0|SHORT/LONG IND 12418 11728 0|COPY B 12429 11728 0|RESTORE B 12319 11730 2|124 11927 11731 3|CTR OF ADJUST DETAILS 14026 11731 3|STEP CTR 12135 11732 4|NEW PROCR NUMBER (BIN) 12218 11732 4|124 12348 11734 6|ADJUST ADDRESS 11914 11735 7|3 DIGIT REF 'INSERT BEFORE' BIN 10614 11737 9|NO OF BITS TO BE SHIFTED 10617 11737 9|LS HALF EVEN PROCR NUMBER 11753 11738 10| 'TO' SERIAL 11317 11738 10|CHECK SEQUENCE AT NEW DIRECTIVE 10815 11738 10|COUNT DIRECTIVE BLOX 12370 11738 10|DIFFERENCE 11618 11738 10|FOR SEQUENCE CHECKS 11207 11738 10|SET FOR SEQUENCE CHECKS 12027 11738 10|STEP BACK SEQ CTR SO NEVER ALTERS 12010 11738 10|STEP SEQ CTR 12921 11740 12|STORE PREVIOUS SETTING 12369 11742 14|END OF MULTIPLE INSE 11754 11742 14| 'FROM' SERIAL 11614 11742 14|'FROM' 11713 11742 14|'FROM' SERIAL 11621 11742 14|'FROM'PROCR 11637 11742 14|'FROM'SERIAL 12359 11742 14|AUGMENT'NEW'LINE SERIAL 11521 11742 14|LINE SERIAL+ADJUST DETAIL 11645 11742 14|LINE SERIAL+ADJUSTMENT 11738 11743 15| 'TO'PROCR+1 11718 11743 15|'TO' PROCR+1 11702 11743 15|'TO'PROCR 11641 11743 15|(NEGATIVE ADJUST DETAIL) 11643 11743 15|-(NEGATIVE ADJUST DETAIL) 11519 11743 15|-(NEGATIVE ADJUST DETAILS) 11620 11743 15|3-DIGIT'TO' 12127 11743 15|ADJUST DETAIL 11709 11743 15|EFFECTIVE'TO'PROCR 12371 11743 15|QUANTITY ADJUST 13111 11744 16|CLEAR IND 13106 11744 16|IND'PASS 0 DIDN'T LIKE IT' NON-ZERO 11328 11744 16|SET 'PASS 0 DOESNT LIKE IT' 11216 11744 16|SET PASS 0 DOESN'T LIKE IT 10641 11744 16|SET 'PASS 0 DOESN’T LIKE IT' 11916 11746 18|INSERT BEFORE' SERIAL 11623 11747 19|'3-DIGIT'FROM' 11720 11747 19|'FROM' PROCR 11710 11747 19|'FROM'PROCR 11647 11747 19|PREVIOUS PROCR 11517 11747 19|PROCR 12013 11747 19|PROCR OF R OR A-DIRECTIVE 11734 11747 19|'FROM'PROCR 11111 11749 21|HIGHEST EFFECTIVE LINE SERIAL 11915 11749 21|HIGHEST LINR SERIAL 11324 11749 21|MAX B/FWD LINE SERIAL 11741 11750 22|->NUMBER OF VALUES 11727 11750 22|AUGMENT CTR OF VALUES 11723 11750 22|CTR OF VALUE BLOCKS 13522 11750 22|COPY B 14774 11756 28|PROG 1D 14516 11756 28|PROG ID 14460 11756 28|PROG IDENTITY 11213 11756 28|PROG + SERIAL 14446 11757 29|UPDATED PROG SERIAL ----------- Section 18 in chapter 1 length 1250 starts at 5664 SEQUENCE CHANGES FORWARD AND BACK Serial addr item | comment 68030 0 0|CLEAR CTR 11125 0 0|TYPE 'AMEND' COMMENT 14419 0 0|TYPE 'TRAMD' COMMENT 18502 0 0|COPY CURRENT AMEND DETAILS 68761 2 2|DEC PROCR 68758 3 3|REF 78023 -60 60-|(STARTS 18/10-) 84530 1000 1000|PROCR START 16064 1010 1010|FIRST PROCR LENGTH DETAILS BLOCK 16067 1033 1033|SECOND PROCR LENGTH DETAILS BLOCK 15275 1055 1055|(HIGHEST C/FWD PROCR+1)IN BINARY 16604 2496 2496|CLEAR FIRST ENTRY 16603 2498 2498|LIST END SIGN ----------- Section 19 in chapter 2 length 230 starts at 12278 PASS 0 ADJUST DETAILS Serial addr item | comment 14020 12278 0|LOCN OF ADJUSTMENT 14023 12279 1|QUANTITY ----------- Section 20 in chapter 10 length 150 starts at 15280 PASS 2 100 ACTIVE SEQ CHANGES FWD Serial addr item | comment 52546 15280 0|NEXT SCFWD 52504 15280 0|SMALLEST DEST OF SC FWD 52540 15280 0|UP 3 LOCNS 52530 15282 2|ABS LOCN Q1-4 41902 15277 3-|MOVE LIST DOWN 1 ITEM 41840 15277 3-|NEXT DEST (LAST IN LIST FIRST) ----------- Section 22 in chapter 2 length 225 starts at 11828 PASS 0 PROCR INDEX Serial addr item | comment 12533 11828 0|OLD/NEW PROCRS + ADJUSTS + UNIQUE ----------- Section 23 in chapter 4 length 24 starts at 14332 'PRINT PROCEDURES' INDICATORS Serial addr item | comment 85656 14378 46| 'PRINTOUT'INDICATOR 15244 14378 46|INHIBIT PRINT 15745 14378 46|PRINT ISSUE5 O/P 15218 14378 46|SET 'PRINT PASS 2' 52905 14378 46| 'PRINT UNCONDITIONALLY' INDS 51144 14378 46|PRINT PROCR '+' PRINT ALL ' INDS 32303 14379 47| (TO PRINT HEADING) 36910 14379 47|ALWAYS PRINT END SIGN 25059 14379 47|IMPLICITLY AMENDED' 35412 14379 47|NON-ZERO TO PRINT WHOLE PROCR 25609 14379 47|SET 'IMPLICITLY AMENDED' 18814 14327 5-|SET BIT ----------- Section 24 in chapter 7 length 18 starts at 13316 Serial addr item | comment 85022 13316 0|SET(MR1)=2R/0 55844 13317 1|2R 85621 13318 2|2(R+T):2R 83704 13318 2|SET(MR3)=2(R+T)/2R 55848 13320 4|CHAPTER NUMBER 55878 13320 4|SPECIAL HALF-LENGTH 55869 13320 4|GP HALF-LENGTH 55842 13320 4|OP TX AREA CTR 85632 13320 4|SECN NO 83715 13320 4|TA PARAMETER 56313 13320 4|GP T, AREA CTR 85023 13321 5|B7-20=FILE ID 55839 13321 5|ROUTE TYPE 85641 13321 5|FILE ID BITS 7-20 56310 13321 5|ROUTE TYPE ----------- Section 25 in chapter 4 length 21 starts at 14380 'TRACE'DETAILS Serial addr item | comment 15205 14380 0|CLEAR TRACE SECN ----------- Section 26 in chapter 6 length 540 starts at 11192 PROCR START ADDRESSES Serial addr item | comment 69712 11192 0|PROCR START 68113 11192 0|PROCR START INDEX 68771 11192 0|PROCR START INDEX FOR 08005 68076 12192 1000|CONVERT TABLE START 68086 12193 1001|SET START OF PRINT SR ----------- Section 27 in chapter 4 length 10 starts at 14442 PERMANENT WL'S Serial addr item | comment 14405 14442 0|SET 'EX ISSUE 7' IND 15234 14442 0|SET 'MULTI RECORD' 10207 14442 0|CLEAR WL'S 15236 14443 1|SET 'ISSUE 7 O/P' 15251 14444 2|SET'PSEUDO-ISSUE 5' 69163 14445 3|SET'DATA PRESENT' 69155 14445 3|SET'NO B/FWD TRIAL DATA' 32436 14446 4|COMPILER ? 32475 14446 4|COMPILER CALLED TRANSLATOR? 32849 14446 4|COMPILER? 35115 14446 4|COMPILER? 16053 14446 4|NON-ZERO IF COMPILER 15235 14446 4|SET'COMPILER' 25404 14447 5|'UNPACK SWITCH' 88454 14447 5|25?'S IND 36917 14447 5|ENTRY LOCN 35108 14447 5|ENTRY LOCN 25433 14447 5|RESTORE SWITCH 25010 14447 5|SWITCH 18507 14447 5|UNPACK SWITCH 14759 14447 5||OPEN PRINTER 88449 14448 6| 'PT OMITTED' 32226 14448 6| 'PT OMMITTED' 15222 14448 6|CLEAR 'PT OMITTED' 25309 14448 6|SET 'PT OMITTED' 68087 14449 7|CLEAR 68745 14449 7|CTR NEG ADDRESSES 69811 14449 7|STEP CTR 69805 14449 7|CTR 10294 14450 8|INITIAL PRINTER TYPE 89216 14450 8|PRINTER TYPE 10224 14450 8|INITIAL PRINTER TYPE+CLEAR 'OFFLINE' 88903 14451 9|>PRINTING 14750 14451 9|OFF LINE PRINT? 88535 14451 9|OFF? 81803 14451 9|ON LINE 51211 14451 9|ON LINE ? 15232 14451 9|SET IND 10229 14452 10|INPUT TYPE 10561 14453 11|IND'INITIAL TRANSLATION' 11308 14453 11|SET IND THAT TRAMDING 16040 14454 12|0 OR 2 88240 14454 12|0/2=PTS NO/YES 14748 14454 12|SET'PTS NEEDED' 88803 14455 13|(DONT SPOIL CLEARNESS OF A) 14744 14455 13|SET NONZERO ----------- Section 28 in chapter 3 length 23 starts at 13492 PASS 1 NEXT RECORD Serial addr item | comment 30409 13492 0|COPY DIRECTIVE+LENGTH WORD 30448 13492 0|COPY RECORD 30410 13494 2|UNPACK 30451 13494 2|UNPACK-SEC1 30434 13506 14|ANNOTATION ETC EVEN IF ABSENT ----------- Section 29 in chapter 3 length 22 starts at 13538 PASS 1 NEXT OUTPUT REC Serial addr item | comment 28835 13538 0|COPY TO SEC 8 25305 13538 0|REPORT WORD 28809 13538 0|WRONG SERIAL TO ERROR REPORT WORD 28840 13538 0|CLEAR SEC 29 25019 13538 0|COPY ANNOTATION 28822 13538 0|CURRENT RECORD LENGTH 28819 13538 0|REC LENGTH 25030 13540 2|DIRECTIVES 25015 13540 2|EDIT PROCR, TABLE, CONST. 25027 13544 6|REF+ITEM 32233 13544 6| 'END' 24817 13544 6|CONSTS END SIGN 25041 13546 8|CLEAR 25040 13550 12|COPY 'RADIX' 25905 13553 15|LAST 2.5 CHARS ANNOTATION 25023 13536 2-|COPY REPORTS PASS 1 28813 13536 2-|LAST WORD ----------- Section 2 in chapter 1 length 5 starts at 5654 EXTENSION BACKWARDS OF SECTION 16 Serial addr item | comment 61106 5654 |(29)START PQ ----------- Section 30 in chapter 4 length 9 starts at 13726 UNPACKED PT FOR 08005 Serial addr item | comment 84211 13726 0|NEW SERIAL 81318 13726 0|STEP LINE SERIAL 84209 13726 0|STORE I/C SERIAL 81319 13727 1|PM TYPE 84714 13727 1|TEST TYPE 6 85033 13728 2|AND PRINTER 81409 13728 2|L-ALIGN ALPHA DATA 79206 13728 2|ROUTE IDENTIFIER 85013 13728 2|SET TRUE FILE ID= 85017 13728 2|STORE RTE IDENTIFIER 85645 13728 2|TRUE FILE ID OF TRIAL DATA SET 85006 13729 3|TEST ALPHA PART OF 84906 13730 4|RUN NO 85522 13731 5|CLEAR W/L'S 84918 13731 5|MAX BLOCK SIZE 84409 13731 5|CHAP NO 84645 13731 5|NEW REF 84608 13731 5|REF 84502 13731 5|SECN NO 81324 13731 5|REF 85051 13732 6|SECN NO 84604 13732 6|ITEM 84632 13732 6|ITEM(3-DIGIT REF) 84647 13732 6|NEW ITEM 81329 13732 6|STEP ITEM 85611 13733 7|SET NO 84909 13733 7|T D SET NO 85073 13734 8|FIXED/VARIABLE IND 85612 13734 8|IND 85014 13736 10|ROUTE IDENTIFIER 79219 13736 10|SET EX PT 85002 13737 11|TEST TRUE FILE ID ZERO ----------- Section 31 in chapter 4 length 11 starts at 13744 FOR MT BLOCK FOR 08005 Serial addr item | comment 84537 13748 4|SECN NO 84536 13749 5|STORE TA IND 84622 13750 6|ITEM 80910 13756 12|AS 'IGNORE' IND 84917 13756 12|STORE FOR O/P 85031 13764 20|ON MAG TAPE ----------- Section 32 in chapter 4 length 85 starts at 13766 TD WL'S FOR 08005 Serial addr item | comment 85068 13766 0|CLEAR W/L'S 86018 13766 0|(DON'T PRINT FIRST WORD IN'WORD 2'POSITION 79844 13766 0|AND PRINTER 86005 13766 0|STORE FOR PRINTING 85803 13766 0|TEST ERROR WORD 85812 13766 0|TEST WORD CONTAINS 86014 13766 0|FORM AND STORE POSN OF B/E WORD 86019 13768 2|NEXT POSN 78625 13768 2|PUT 1ST WORD IN WORD 4 POSITION 78629 13768 2|ADD BLOCK LENGTH 85219 13780 14|CLEAR IND 78639 13780 14|SET'>>'IND 85210 13780 14|STEP IT READY FOR NEXT BLOCK 85879 13781 15|PRINTER WORD NUMBER 78809 13781 15|SET NEGATIVE 83909 13781 15|(CLEAR PREVIOUS SIGN) 83807 13781 15|FOR PRINTING 85122 13802 36|CLEAR W/L'S 79843 13802 36|FOR MT 78617 13802 36|STORE FOR M/T 86004 13802 36|STORE FOR MT O/P 85882 13802 36|ITEM LENGTH 82307 13826 60|CLEAR W/L'S 82327 13826 60|STORE LINE SERIAL 82331 13826 60|SET(B) AT NEXT WORD 82313 13826 60|SET(B)AT 1ST WORD 82722 13826 60|SET(B)AT NEXT WORD 82321 13858 92|LINE SERIAL SO FAR 78507 13858 92|PT LINE SERIAL 78504 13858 92|Q1&2 OF PT LINE SERIAL 78603 13858 92|SET LINE CTR=LINE 82548 13860 94|STORE WORD IN LIST 78607 13860 94|NEXT PT WORD 82420 13886 120|CLEAR*C IND 82329 13887 121|CLEAR CARD IND 82421 13888 122|CLEAR W/L 1 85813 13888 122|W/L 82413 13888 122|W/L 1 82320 13890 124|W/L 2 80323 13891 125|MT SET 80317 13892 126|MT FILE 79503 13892 126|STORE FILE 1D 82810 13894 128|RESTORE(B) 80326 13904 138|MT BLOCK 79523 13904 138|MT BLOCK NO 79615 13904 138|PRESENT MT BLOCK 79313 13904 138|PT BLOCK 85312 13905 139|CLEAR LINE CTR 78506 13905 139|LINE CTR 80115 13906 140|CURRENT MT WORD 86103 13906 140|LAST MT WORD 86003 13906 140|NEXT I/P MT WORD 86203 13906 140|TEST B/E WORD 78646 13906 140|WORD BEING REPLACED 79529 13906 140|STORE POSN OF B/E WORD 80008 13930 164|REQD WORD 79534 13931 165|=WORD 6 78421 13931 165|AT 6 85885 13931 165|EXPECTED POSITION NEXT ITEM LENGTH WORD 85855 13931 165|LGTHS CORRECT 85880 13931 165|POSITION OF NEXT ITEM LENGTH WORD 78628 13931 165|SET 78631 13932 166|SET AS NEW BLOCK LENGTH 85846 13932 166|WORD CORRECT ----------- Section 40 in chapter 4 length 10 starts at 14422 FRILL FOR PRINTING REPORT SERIALS Serial addr item | comment 91606 14432 10|COPY'OTHERS'SERIAL NOS ----------- Section 55 in chapter 4 length 25 starts at 14096 PASS 1 UNIQUE REFS Serial addr item | comment 20932 14096 0|EQUIVALENT OF UNIQUE REF ----------- Section 61 in chapter 4 length 60 starts at 13410 PASS 2 WL'S Serial addr item | comment 53203 13410 0|ACTION 42507 13410 0|ACTION W/L 34402 13410 0|ACTION WL/ENTRY POINT 42367 13410 0|CLEAR ACTION 42711 13410 0|CLEAR ACTION W/L 52913 13410 0|CLEAR LIST 44068 13410 0|COMBINED A/D/M 52549 13410 0|LIST 44077 13410 0|NEGATE ACTION 35703 13410 0|STORE ACTION 34705 13410 0|M/R 3 AT W/L 49707 13411 1|(NON-ZERO IF NON-ARITH) 34403 13411 1|NON-ARITH IND 41737 13411 1|SET NON-ARITH IND 37119 13412 2|CLEAR 49234 13412 2|CLEAR MOD DIGITS 49002 13412 2|MOD DIGITS 49703 13412 2|MOD DIGITS 43507 13412 2|STORE DIGITS 43917 13412 2|TX MOD DIGITS 32908 13412 2|UNCORR CHAP 48223 13413 3|2C 32817 13413 3|BIT SHIFT CONTROL 32808 13414 4|CTR INCREMENT 32930 13414 4|INCREMENT 34724 13414 4|LN:2C 36104 13414 4|LN:2C FOR FIRST LN PROCR 37129 13415 5|AUG PROCR NUMBERS 33020 13415 5|LONG CONSTS PROCR 48104 13415 5|LONG NO SECT NO 34711 13415 5|LONG PROCR 33022 13416 6|SHORT CONSTS PROCR 34712 13416 6|SHORT PROCR 48319 13416 6|SN SECT NO 33024 13417 7|TSL PROCR 34713 13417 7|TSL PROCR 33310 13418 8|MULTIPLES FOR Q10 FN WORD 38817 13418 8|TX AREA LENGTH (OVERFLOW FROM TX ABOVE PROC 39005 13418 8|SET BITS OF 64 WORDS (1-4) 50303 13419 9|PROCR OF LAST 81 ACTION 50311 13419 9|REF=PROCR 42302 13420 10|COPY CURRENT PROCR ACTION 81 52315 13420 10|CURRENT PROCR 35104 13420 10|CURRENT PROCR 49810 13420 10|CURRENT PROCR(IN THIS CHAPTER) 41809 13420 10|THIS PROCR 35403 13420 10|PROCR/20 52526 13421 11|CURRENT PROCR START 52318 13421 11|PROCR START 49805 13421 11|START OF CURRENT PROCR 35110 13421 11|STORE PROCR START ADDRESS 34726 13422 12|LN CTR 36716 13422 12|SECT COUNTER 48109 13423 13|END VALUE 37107 13423 13|LONG 36605 13423 13|END VALUE 48303 13424 14|CTR OF SHORT NUMBERS TO DATE 34727 13424 14|SN CTR 48312 13425 15| = RELATIVE POSITION IN LIST 48304 13425 15|CTR 48315 13425 15|CTR OF NUMBERS IN LIST 37021 13425 15|SHORT 37104 13426 16|TWICE TSL'S 48503 13426 16|TSL COUNTER 37127 13426 16|TSL CTR 34729 13426 16|TSL CTR 48508 13427 17|END VALUE 37024 13427 17|TSL 41909 13428 18|DEST OF NEWCOMER 42339 13428 18|SPACE OCCUPIED BY C-LINES 48713 13428 18|UNCORR C NO 48616 13428 18|UNCORRECTED CHAP 45007 13428 18|UNCORRECTED CHAPTER 42337 13428 18|WL 42105 13428 18|START/END OF LIST (ABS) 42116 13429 19|ADJUST R1 FOR NEW LIST POSITION 52909 13430 20| '?????'OR ZERO 52510 13430 20|| SEQ CHS FORWARD 45006 13433 23|CORRECTED CHAP 44815 13433 23|NO OF C-LINES 44805 13433 23|NUMBER OF C-LINES 46007 13434 24|NEXT CHAR AFTER COMMA 46127 13434 24|NEXT CHARACTER 45614 13434 24|THIS CHAR 46802 13434 24|THIS CHARACTER 46404 13434 24|THIS CHAR W/L 46605 13434 24|NEXT CHAR(BASIC ONLY) 50808 13435 25|BIN IND 50803 13435 25|BIN INDICATOR 40503 13435 25|BINARY INDICATOR 39903 13435 25|SET BINARY INDICATOR 40812 13436 26|+ 46205 13436 26|LEAST SIG HALF 40123 13436 26|SUSPENDED REF 46303 13436 26|CLEAR W/L'S 45903 13436 26|CONSTANT TO DATE 37710 13436 26|REF 37703 13436 26|SUSPENDED REF 34624 13436 26|TYPE 51604 13436 26|TYPE NO ALPHA 46203 13437 27|MOST SIG HALF LONG CONST 40814 13438 28|+DON'T BOTHER 46710 13438 28|ADD IN THIS CHAR TO SUBCONST 46813 13438 28|ADD THIS BIT INTO SUBCONST 40415 13438 28|AUG BY 0 OR 1 35130 13438 28|CLEAR 'PROCR NUMBER' 47417 13438 28|CLEAR FOR ITEM 46916 13438 28|DEC COMPT 47114 13438 28|DEC VALUE OF CONST 46915 13438 28|FORM N BIT 47126 13438 28|FORM N-BIT COMPT 37711 13438 28|ITEM 34625 13438 28|SECTION NO. 39510 13438 28|SUSPENDED ITEM 45907 13438 28|VALUE OF CURRENT SUBCONST 36806 13438 28|61/43= CHAP LENGTH 36711 13438 28|PROCR NUMBER 40433 13440 30|1ST LINE DISC 45504 13440 30|DEFN LINE IND 40410 13440 30|DISC. FIRST LINE 46117 13441 31|END IND 46210 13441 31|NONZERO IF FINAL CONST IN SECTION 46114 13441 31|SET END IND 43909 13442 32|2M AS ADDRESS 46103 13442 32|NEG IND 46818 13442 32|NEG INDICATOR 43706 13442 32|STORE MOD DIGITS 43128 13442 32|SUSPEND MOD DIGITS 40808 13442 32|SUSPENDED MOD DIGITS 41016 13442 32|T. MOD DIGITS 41009 13442 32|TX MOD DIGITS 43303 13442 32|WL 43115 13442 32|MOD DIGITS 43812 13442 32|STORED MOD DIGITS 37610 13442 32|SUSPENDED MOD 47204 13443 33|BIN NO NEG IND 47118 13443 33|NEG IND FOR BIN CONSTS 50306 13444 34|ADDRESSED CHAP 49630 13444 34|CLEAR PARA, REF 49112 13444 34|OTHER CHAP NUMBER 45214 13444 34|PARA 53109 13444 34|PARA W/L 53207 13444 34|PARAM 44205 13444 34|SET PARA ZERO 49018 13444 34|SET PARAMETER=2C 48915 13444 34|STORE CHAP OF REFERENCE 47113 13444 34|PRESERVE B 47431 13444 34|REPLACE B 47117 13444 34|RESTORE B 47427 13444 34|STORE 2 47706 13445 35|REF 48705 13445 35|SET REF ZERO 41405 13448 38|GEN W/L 46324 13448 38|SET MOD CTR 41004 13448 38|W/L 33251 13449 39|(REDUCE BY 1) 39203 13449 39|LAST PARA NUMBER 33835 13449 39|PARA COUNTER 33210 13449 39|PARA CTR 33311 13449 39|PARA CTR 33333 13449 39|STEP PARA CTR 34610 13449 39|TOTAL NO OF PARAMETORS 33209 13450 40|LAST ROUTE PARAMETER 43912 13451 41|MOD GROUP PARA 49611 13451 41|MOD GROUP PARA 34608 13451 41|MOD GROUP PARAMETER 35131 13452 42|CLEAR SPACE CTR INCREMENT 36714 13452 42|NO OF LOCNS TO STEP ON LON CTR ON O/P 37118 13452 42|SPACE CTR INCR 51804 13453 43|AUGMENT LOCATION COUNTER 36808 13453 43|CHAP LENGTH 52317 13453 43|SPACE CTR 52525 13453 43|SPACE CTR 52724 13453 43|SPACESTR 52005 13454 44|OP CTR 34618 13454 44|O/P MOD CTR 35114 13456 46|HEAD OF FORM 51151 13456 46|HEAD OF FORM, OR ZERO 51155 13456 46|SET FOR NEXT TIME 46105 13457 47|CONST TYPE 47619 13457 47|TYPE 44318 13460 50|CLEAR 38232 13460 50|REDUCE VARIANT 41736 13460 50|SET TRICK VARIANT 41302 13460 50|TEST 43612 13460 50|THOUGH 76 ACTION 39635 13460 50|V + 1 41713 13460 50|V+1 38702 13460 50|VARIANT + 1 39728 13460 50|VARIANT +1 43607 13460 50|VARIANT +1 | TEST IF WE CAME IN 38763 13460 50|VARIANT+1 52832 13460 50|VARIANT+1 37310 13460 50|VARIANT+1 48706 13461 51|THIS CHAP 50307 13461 51|THIS CHAP NO 48916 13461 51|THIS CHAP NUMBER 48407 13462 52|CHAP 44409 13462 52|CLEAR 44813 13462 52|LITERAL 48414 13462 52|REF12C-1 43113 13462 52|START VALUE 43104 13462 52|SUSPEND LITERAL 39641 13462 52|(61/52 IS CLEARED) 39009 13462 52|BITS FOR FN WORD 44713 13462 52|LITERAL=OPT NUMBER 41727 13462 52|LONG CONST W/L 48306 13462 52|NUMBER TO BE OUTPUT 48310 13462 52|STORE NEWCOMER 44806 13462 52|SUSPENDED LITERAL 41107 13462 52|W/L 41309 13462 52|W/L FOR S.N. S/R 44816 13462 52|W/L FOR SN CONST S/R 41621 13463 53|CTR WITHIN PROCR 43114 13463 53|END VALUE 48411 13463 53|ITEM 42920 13464 54|CHAP NO. SWITCH 49908 13464 54|FILE ID 38833 13464 54|FILE TYPE 39309 13464 54|ROUTE TYPE 42311 13464 54|REF 33921 13464 54|SPACE CTR 42314 13464 54|STORE WITH REF 45206 13464 54|DEST 46809 13465 55|AUG SF LENGTH BY 1 BIT PER CHAR 47006 13465 55|AUG SF LENGTH BY 4 BITS PER CHAR 46706 13465 55|AUG SF LENGTH BY 8 FOR EACH ALPHA CHAR 45905 13465 55|LENGTH OF SUBFIELD IN BITE 47124 13465 55|S/F LENGTH=N 46912 13465 55|SF LENGTH 45402 13465 55|CLEAR W/LS 45707 13465 55|AUG SHIFT CONTROL 42316 13465 55|ITEM(+-) 45521 13465 55|SUBFIELD LENGTH 45218 13465 55|SOURCE 42365 13465 55|ITEM 50203 13468 58|ACTION 50603 13468 58|ACTION WL 50730 13468 58|PACK WITH ACTION 46905 13470 60|S/F MOD 38759 13470 60|SET SPECIAL IND FOR 'READ RT 10' 46705 13470 60|SF CTR 46911 13470 60|SF MOD 45911 13470 60|STEP SF CTR 45904 13470 60|SUBFIELD CTR 46815 13470 60|TEST FIRST SUBFIELD 45816 13471 61|MIXED CONST IND 40441 13472 62|C-LINE DISC 40436 13472 62|DISC (2ND LINE) 46006 13472 62|NET SUBFIELD TYPE 45607 13472 62|SWITCH SETTING 46206 13478 68|0 OR 2 46314 13478 68|O/P IND 41308 13486 76|FORM TABLE W/L 40104 13494 84|-INDIC 45708 13506 96|RESTORE B 45612 13508 98|COLLECT * IN'(B*)' DIRECTIVE 47403 13508 98|STORE REGISTER B 52806 13508 98|W/L 39708 13509 99|NON I/P IND 52105 13509 99|NON I/P IND 55425 13510 100|BASIC SPECIAL CHAP LENGTH 33204 13510 100|SP CHAP SPACE CTR 47919 13519 109|CLEAR STERLING CTR 34629 13519 109|CLEAR STERLING CTR 47913 13519 109|SET CTR=1- 52808 13520 110|CLEAR GROUP WHEN 'IGNORE' IND SET 52749 13520 110|GROUP 52805 13520 110|GROUP+1 36505 13521 111|THIS CHAP UNCORR 36805 13521 111|THIS CHAP UNCORRECTED 34716 13521 111|UNCORRECTED CHAP NO 34620 13521 111|UNCORRECTED CHAP NO. 36809 13521 111|UNCORR CHAP 33141 13522 112|OBJECT PROG ID 39438 13522 112|PROG ID 44037 13522 112|PROG IDENTITY 40422 13523 113|FIRST LINE LITERAL 42505 13523 113|INDICATOR 42407 13523 113|INDICATOR WHETHER TO I/P OR NOT AT GNB. 42604 13523 113|NON-I/P IND 40403 13523 113|W/L 39644 13524 114|ROUTE PARA 38783 13524 114|RTE PARA 42103 13524 114|WORD TO BE OVERWRITTEN 38839 13525 115|GP TX AREA PARA 52539 13526 116|LENGTH IN 61/117 41832 13527 117|CTR OF SEC 20 LENGTH 52502 13527 117|CTR OF SEC 20 LENGTH 52543 13527 117|CTR OF SECN 20 LENGTH 52534 13527 117|REDUCE NO OF SC'S IN TRANSIT 41929 13527 117|STEP CTR OF ACTIVE SC'S 41920 13528 118|ABS LOCN IN SEC 18 918:2499 INITIALLY) 34616 13528 118|LOCN CTR SC'S FWD 41927 13528 118|REDUCE ABS ADDRESS ----------- Section 62 in chapter 10 length 110 starts at 15060 PASS 2 90 LONG+20 TSL PER CHAPTER Serial addr item | comment 48206 15061 1|COMPARE MOST SIG HALVES ----------- Section 63 in chapter 10 length 30 starts at 15000 PASS 2 60 SHORT CONSTS PER CHAPTER Serial addr item | comment 48311 15000 0|IN NEXT FREE POSITION 48307 15000 0|NEXT NUMBER ALREADY OUTPUT 37120 15000 0|CLEAR 63+62 34622 15000 0|63+62+20 ----------- Section 66 in chapter 4 length 12 starts at 13382 PASS 2 INPUT UNPACKED Serial addr item | comment 33015 13382 0|66+49 52726 13384 2|LINE SERIAL 33922 13384 2|SEC NO 41819 13384 2|THIS ORDER 52404 13384 2|THIS SERIAL 37005 13384 2|LINE SERIAL 44723 13384 2|LINE SERIAL NUMBER 33822 13384 2|SECT NO 33829 13384 2|SECTION NUMBER 33911 13384 2|SECTION NUMBER Q1-3 52228 13384 2|SERIAL THIS ORDER 36905 13384 2|SET AS BLOCK SERIAL 41911 13384 2|SOURCE 52506 13384 2|THIS SERIAL 47709 13385 3|SHORT/LONG/ALPHA 33925 13386 4|LENGTH (LOCNS) 33227 13386 4|ROUTE TYPE 33302 13386 4|ROUTE TYPE 47802 13386 4|SINGLE/BE 52220 13386 4|ACTION ALPHA 33834 13386 4|INCREASE ANNEX LENGTH 33902 13386 4|LENGTH IN WORDS 33171 13386 4|PROCR OF ENTRY 33433 13386 4|ROUTE TYPE 33116 13386 4|SUITE NO 33917 13386 4|LENGTH X 2 AND SHIFT Q 52747 13386 4|ACTION 47812 13387 5|NO OF CHARS 42322 13388 6|BIN REF 33230 13388 6|CHAP NO 33254 13388 6|CHAPTER PAIR|RT19 38725 13388 6|CLEAR 50009 13388 6|CLEAR REF 38706 13388 6|FILE ID 33421 13388 6|PAIR OF CHAPS 42917 13388 6|PROCR TO SWITCH 48807 13388 6|REF 44012 13388 6|REF PARA 0 OR 2C ROUTINE 41206 13388 6|REFERENCE 44031 13388 6|SECTION NUMBER 37802 13388 6|CLEAR REF, I,D,M 44403 13388 6|REF(EX-ITEM) 44306 13388 6|>REF 44035 13388 6|CLEAR REF 50218 13388 6|CLEAR REFERENCE 44825 13388 6|FILE ID 39436 13388 6|FILE IDENTITY R-ALIGNED 48404 13388 6|REF 42004 13388 6|REF (BITS 11 - 20) 33824 13388 6|T.A. IND 38768 13388 6|0/1/0 0/0/3 S/R 44421 13388 6|C-LINE REF 52732 13388 6|DEC REF 33118 13388 6|JOB NO 39446 13388 6|REF 39611 13388 6|REP (UNCONVERTED FOR GROUP 4) 33307 13390 8|ANNEX LENGTH 38723 13390 8|CONVERT TO BINARY 33264 13390 8|GP HALF-LENGTH 33316 13390 8|HALF LENGTH 53218 13390 8|ITEM 49619 13390 8|MODULUS 42919 13390 8|POSITION IN PROCR 33905 13390 8|UNCORRECTED CHAPTER 42402 13390 8|CLEAR I, D, M 33920 13390 8|UNCORR CHAP 44057 13390 8|ADJUST ITEM 33428 13390 8|ANNEX (BIN) IN WORDS 33819 13390 8|CHAP OF SECTION 42328 13390 8|CLEAR I.D.M 39614 13390 8|CLEAR ITEM 44424 13390 8|CLEAR ITEM, DISC, MOD DIGITS 49622 13390 8|CLEAR ITEM, MOD DIGITS 40706 13390 8|ITEM 52608 13390 8|ITEM 42006 13390 8|ITEM (BITS 1 - 10) 52812 13390 8|ITEM TO BIN 49225 13390 8|MR>3 ITEM 48014 13390 8|REDUCE FOR CALCS 52739 13390 8|REDUCE ITEM 33431 13390 8|SET ANNEX LENGTH 48313 13390 8|SET AS ITEM 49236 13390 8|SIMPLE CASE ITEM 33918 13390 8|UNCORR CHAP NO 52613 13390 8|| INDICATOR 39444 13392 10|C-LINE DISC 44052 13392 10|DISC 40305 13392 10|FIRST LINE DISC 33259 13392 10|SPECIAL LENGTH 44308 13392 10|&DISC 44840 13392 10|CLEAR C-LINE DISC 37902 13392 10|CLEAR DISC 43804 13392 10|CLEAR DISC. 43203 13392 10|CLEAR DISCRIMINANT 40105 13392 10|CLEAR FIRST LINE DISC 40708 13392 10|DISC 44611 13392 10|SET DISC 47810 13393 11|SPACES 43304 13394 12|CLEAR MOD DIGITS 44202 13394 12|MOD 43207 13394 12|MOD DIGITS 44110 13394 12|SET EXTRA MOD DIGITS 47806 13394 12|ZEROS 53216 13394 12|MOD DIGITS 44309 13394 12|&MOD 43409 13394 12|CLEAR 40908 13394 12|CLEAR MOD DIGITS 45012 13394 12|HOD 48322 13394 12|M 40609 13394 12|MOD 53603 13394 12|MOD DIGITS 52815 13394 12|MOD DIGITS TO BIN 47716 13395 13|SIGN 43505 13396 14|AUGMENT MODULAS 44848 13396 14|LITERAL 37503 13396 14|LITERAL (MODULUS) 43617 13396 14|MOD L 47906 13396 14|STERLING INDICATOR 38307 13396 14|CONVERT TO BASE 2 40611 13396 14|LIT 38503 13396 14|LITERAL 43502 13396 14|LITERAL 52843 13396 14|LITERAL TO BIN 38205 13396 14|POSITIVE 38225 13396 14|SET AS ADDRESS FOR QTT RIGHT SHIFT 47814 13397 15|LTE 47916 13397 15|LTE IND 42321 13397 15|STORE MODIFIER OVER LITERAL 52606 13398 16|CLEAR INDICATOR 50217 13398 16|CLEAR ITEM+IND 47628 13398 16|FIRST REF 40613 13398 16|ITEM + IND 53405 13398 16|ITEM + IND 48903 13398 16|ITEM+' IND 52612 13398 16|| IF IT IS SET 47904 13399 17|FIRST ITEM 53505 13399 17|ITEM + IND (STORE) 47616 13399 17|REDUCE ITEM FOR CALCS 40614 13400 18|ITEM + IND (2ND STORE) 47622 13401 19|SECOND ITEM 45202 13404 22|STORED VALUE OF MR2 44803 13404 22|W/L STORE MR2 ----------- Section 67 in chapter 4 length 2 starts at 13406 PASS 2 O/P UNPACKED Serial addr item | comment 34630 13406 0|67/0 NOT CLEARED BY O/P TYPE S/R 48022 13406 0|CLEAR 46316 13406 0|CLEAR THIS 51806 13406 0|SERIAL NO FOR INSTUCTIONS 47409 13406 0|PARA 45108 13407 1| 'SEQ CHANGE' IND 51910 13407 1|CLEAR S67 51808 13407 1|SC INDICATOR FOR INSIONS 42364 13407 1|SEQ CH IND='ON' 41917 13407 1|SET 'SEQ' CH' IND 44074 13407 1|SET IND 34734 13407 1|SET'MR ENTRY' IND 50717 13408 2|FORM PARA 2C'-1 36105 13408 2|IN CHAP 49813 13408 2|PARA 50313 13408 2|PARA=0 46221 13408 2|PARAMETER 51810 13408 2|PARAMETER 36408 13408 2|REF=0; ITEM=SPACE CTR 50725 13408 2|REF=1000+CHAP 53221 13409 3|PACK WITH ACTION ----------- Section 70 in chapter 4 length 0 starts at 13726 PASS 1 SECTION DETAILS(LENGTH 50) Serial addr item | comment 48614 13726 0|SECT DETS 68935 13726 0|LARGEST NO IN NEW RADIX 68917 13726 0|LARGEST NUMBER IN NEW RADIX 33509 13726 0|CLEAR FOR SECTION DETAILS 36932 13726 0|COPY DETAILS FOR PASS 3 68924 13728 2|(8) = 10QTTS OF OLD EXCESS CONSTS 68921 13728 2|> COMPLEMENT 68928 13730 4|EC Q1 - FORM 16-EC:0 68929 13730 4|FOR MR 68953 13732 6|RESTORE R3 68909 13732 6|WL 68911 13734 8|FIRST TABLE ENTRY 68940 13736 10|STORE NEXT TE 68912 13756 30|NEW RADIX 68934 13756 30|SET NEW RADIX 68922 13757 31|OLD RADIX ----------- Section 71 in chapter 4 length 10 starts at 13562 17 'MR>3' DETAILS+COUNTER Serial addr item | comment 23532 13562 0|CTR OF MR'S (INITIALLY 0:0) 23545 13563 1|AUG CTR 32829 13563 1|CTR OF INDIRECT MR'S 23543 13564 2|STORE DETAIL ----------- Section 72 in chapter 4 length 16 starts at 13530 SWITCH PROCR LENGTHS+CHAP LENGTHS Serial addr item | comment 44820 13530 0|ALPHA SERIAL 33121 13530 0|ALPHA SERIAL NUMBER 10545 13530 0|ALL SECTIONS PASS 2 32926 13532 2|CTR WITHIN SWITCH PROCR 36913 13532 2|ENTRY POINT 35105 13532 2|ENTRY PROCR 55409 13532 2|FORM MAX CORR CHAP LENGTH 68085 13532 2|SPECIAL CHAP LENGTH 32932 13532 2|STEP CTR 55422 13533 3|UPDATE CHAPTER LENGTH 55812 13533 3|CHAP LENGTH 56013 13533 3|NEGATE FOR SECOND STORE 55815 13533 3|SET RIDICULOUS LENGTH 32827 13533 3|ROUND UP CTRS 68080 13547 17|(TO PRESERVE IT IN COPY) 57007 13547 17|PROCR START 36810 13547 17|STORE 72/18-36 68081 13548 18|SWITCH PROCR STARTS 55420 13548 18|SWITCH PROCR START-END OF SECTIONS 55340 13548 18|CHAP LENGTH (CODING ONLY) ----------- Section 77 in chapter 4 length 22 starts at 13682 PASS 2 NEXT INPUT REC Serial addr item | comment 50913 13682 0|BULK CLEAR 46304 13684 2|AMEND IND 46306 13686 4|LINE SERIAL 48039 13688 6|REF 36308 13688 6|'PROCR/TABLE/CONST/NOTES/VALUE/END' 48041 13690 8|ITEM 46322 13690 8|FIRST WORD OF CONSTANT 46407 13690 8|NEXT WORD 36310 13690 8|PROCR NO 46308 13690 8|COPY CONSTANTS 36313 13692 10|OLD PROCR NO 36318 13694 12|'RADIX' 36321 13694 12|PASS 1 REPORTS 36329 13696 14|FIRST 5 CHARS ANNOTATION 36326 13696 14|TABLE/CONST TYPE/RADIX LETTER 36331 13698 16|COPY ANNOTATION 52214 13702 20|PREVIOUS PROCR NO 47506 13704 22|PASS 1 REPORTS 52706 13706 24|FIRST 5 CHARS ANNOTATION 47508 13706 24|COPY ANNOTATION 52218 13706 24|COPY ANOTATION 46310 13708 26|PASS 1 REPORTS 46312 13710 28|COPY ANNOTATION 52702 13720 38|IGNORE'IND ----------- Section 7 in chapter 4 length 75 starts at 14516 MTIN,OUT+PRINT Serial addr item | comment 31806 14516 |BITS 1-3 ----------- Section 8 in chapter 4 length 75 starts at 14666 Serial addr item | comment 31807 14666 |BIT 4 ----------- Section 91 in chapter 4 length 18 starts at 14184 TWO OTRS.FILES LIST-TX AREAS LIST Serial addr item | comment 55519 14184 0|2R:0 33214 14184 0|SCAN FILE LIST 49903 14184 0|2R:0 56307 14184 0|2R:0 33211 14185 1|2R 33245 14185 1|REDUCE CTRS FOR DELETED FILE 16412 14185 1|STEP CTR 55764 14186 2|2R 56302 14186 2|2 (R+T) :2R 48803 14186 2|2(R+T):2R 33417 14186 2|CHAP NO (BIN) 33430 14186 2|HALF LENGTH 33426 14186 2|STORE Q1 OF DECIMAL PAIR 55760 14187 3|2(R+T) 33322 14187 3|2(R+T) 33237 14187 3|2(R+T)=LIST LENGTH 33332 14187 3|STEP(ROUTES +TX AREAS) CTR 33833 14187 3|TX AREA CTR 33912 14187 3|2(ROUTES+TX AREAS) 33243 14188 4|COPY UP TO DELETE A FILE 33330 14188 4|SET GP TX AREA SIGN B/T 33263 14188 4|STORE HALF-LENGTH AS GP LENGTH 33258 14188 4|STORE TX AREA CHAP WITH GP DETAILS 55546 14188 4|ANNEX LENGTH 55542 14188 4|LENGTH OF GP ANNEX Q7-10 55524 14188 4|UNCORR CHAP 39408 14188 4|ANNEX HALF-LENGTH 48810 14188 4|TA DETAILS 55551 14188 4|STORE GP TX AREA START Q1-3 56327 14188 4|(LOSES SIGN) 38739 14189 5|GP TX AREA PARA 16410 14189 5|STORE 33314 14189 5|TX AREA ENTRY 55529 14189 5|ROUTE TYPE 55545 14189 5|OVERWRITE DETAILS ----------- Section 92 in chapter 4 length 19 starts at 14146 GENERAL ALL PASSES Serial addr item | comment 33019 14146 0|(CHAPS CODED)+1 33232 14146 0|CHAPS +1 55323 14146 0|CHAPTERS CODED +1 23819 14146 0|CURRENT BIN UNCORR CHAP 33017 14146 0|NO OF CHAPS 18735 14146 0|STEP UNCORR CHAP IN BIN 24628 14146 0|THIS CHAP UNCORR 23540 14146 0|UNCORR CHAP (BIN) 24005 14149 3|(CURRENT LINE SERIAL) 18803 14149 3|CURRENT PROCR 16612 14149 3|FIRST PROCR-1 32204 14149 3|STEP PROCR 24706 14149 3|TRANSLATOR'S PROCR 21316 14150 4|SETTING 'REQUIRED' IND 23517 14151 5|SET F. PT. INDICATOR FOR PASS 3 55805 14152 6|2ND HEADING BLOCK 17225 14152 6|AUG CTR 24330 14153 7|AUG CTR 24316 14153 7|CTR OF CONVERT TABLES TO DATE 33202 14153 7|SPACE OCCUPIED BY CONVERT TABLES 36916 14154 8|CHAP OF ENTRY 55807 14154 8|CHAPTER 34611 14154 8|LIST END 32848 14154 8|NEW LIST END 32843 14154 8|START 32317 14154 8|STORE SC CTR 32305 14155 9| 'LAST PROCR' IN FINAL CHAP 24031 14155 9|ADJUST FOR NEW START 24215 14155 9|CORR CHAP OF OLAID 48617 14155 9|CORRECTED CHAP IN Q1 34717 14155 9|CORRECTED CHAP NUMBER 33906 14155 9|CORRECTED CHAP OF TRANSIT AREA 24027 14155 9|CURRENT LIST START 36506 14155 9|LAST PROCR THIS CHAP 24212 14155 9|OLAYER PREVIOUS CORR CHAP 32319 14155 9|SPEC CHAP - 'UNCORR CHAP 0' EQUIVALENT 24025 14155 9|START 24206 14155 9||BIT 5 55335 14155 9|UNIQUENESS IND Q2 83515 14155 9|CORRECTED CHAP NO 83508 14155 9|LAST PROCR IN CHAP 18732 14155 9|STORE CHAP END POINT 83607 14155 9|CORRECTED CHAP 24019 14155 9|ABS START OF LIST 918+2496 INITIALLY) 48710 14156 10|BIN LAST PROCRS IN CHAP 33612 14156 10|SET IND FOR SECOND STORE 24227 14156 10|CORR CHAP 24231 14156 10|REPLACE 16618 14156 10|STORE UNCORRECETD CHAP NUMBERS 55804 14174 28|CLEAR 33602 14174 28|CHAPS INITIALLY 55412 14174 28|COUNT CORR CHAPS 68083 14175 29|(CHAPS INITIALLY) 32310 14175 29|(ZERO INITIALLY) 55851 14175 29|CHAPS IN PROGM 33207 14175 29|EXTRA CHAP NO 41615 14175 29|FORM 2C FOR EXTRA CHAP 32315 14175 29|FORM CHAPS INITIALLY 78102 14175 29|INITIAL CHAPS 38795 14175 29|NUMBER OD CHAPS 49915 14175 29|NUMBER OF CHARS 68726 14175 29|SPECIAL CHAP (DEC) 55449 14175 29|SPECIAL CHAP NUMBER 32312 14175 29|UPDATE 28309 14176 30|AMEND RUN? 32445 14176 30|IND OF AMEND RUN 14743 14176 30|SET'AMEND RUN' 16246 14176 30||PT FILE DETAILS 33828 14180 34|CODER'S TRANSIT AREAS ONLY FOR GP O/P 32266 14180 34|STORE SECTION NUMBER 24920 14180 34|CLEAR ----------- Section 94 in chapter 4 length 50 starts at 13582 MISC EACH PASS Serial addr item | comment 26559 13582 0|FIRST CHAR 55317 13582 0|OF SECTION 0 56334 13582 0|SELECT SECTION START 33923 13582 0|SET REL START 26011 13582 0|CLEAR UNPACK AREA 26627 13582 0|NEXT CHAR 26503 13582 0|STORE END SIGN 26118 13582 0|STORE THIS CHAR 32917 13582 0|UNCORR CHAP CTR 55512 13582 0|UPDATE SEC START 32823 13582 0|UNCORR CHAP CTR 68073 13582 0|SECTION START ADDRESSES 26630 13583 1|CHAR AFTER '(' 26578 13583 1|SET CONST END 26908 13581 1-|FINAL BEFOR NE 26536 13581 1-|(FIRST DIGIT ALWAYS ZERO) 26579 13611 29|CLEAR OLD END 12208 13627 45|CURRENT (HIGHEST C/FWD PROCR) +1 11743 13627 45|REDUCE MAX C/FWD PROCR 10594 13627 45|TRANSLATOR PROCR 10615 13627 45|TRANSLATORS PROCR 10636 13577 5-|AUGMENT TABLE 12428 13577 5-|SET C/FWD LENGTH IND 26508 13642 60|COMMAS X2 26326 13642 60|SF CTR IN NON-DIRECTIVE LINE 26303 13642 60|CLEAR DETAILS 26449 13643 61|CTR IN DIRECTIVE LINE 26553 13643 61|DIRECTIVE CTR 26511 13643 61|DIRECTIVE CTR 26210 13643 61|SF CTR IN DIRECTIVE LINE 26327 13644 62|SF DETAILS 26214 13644 62|SWITCH FOR FIRST SUBFIELD ----------- Section 95 in chapter 4 length 25 starts at 14232 48 SWITCH DETAILS AND COUNTER Serial addr item | comment 42903 14232 0|NO OF SWITCHES 32809 14233 1|NO OF SWITCHES 23824 14233 1|STEP CTR 23822 14234 2|STORE DETAIL ----------- Section 97 in chapter 9 length 230 starts at 15570 PASS 1 ADJUST DETAILS Serial addr item | comment 20432 15571 1|QUANTITY (+ -) ----------- Section 98 in chapter 4 length 6 starts at 14220 10 'ITEM*'DETAILS AND COUNTER Serial addr item | comment 24633 14221 1|AUG CTR 50205 14221 1|CTR 32818 14221 1|NO OF ITEM+ ----------- Section 99 in chapter 4 length 25 starts at 14282 25 RADIX PAIRS PER PROGRAMME Serial addr item | comment 68906 14282 0|NEXT OLD/NEW RADIX PAIR ----------- File A1 12609 91 27|DUMMY FOR ENTRY TO MR 77615 91 27|SET UP SEC 5 12542 91 27|BACK 1 I/P > I/P 69156 91 27|CLOSE I/P 88206 91 27|REWIND 32455 91 27|RUN TO START OF THIS PROGS MACHINE CODE ----------- File A2 55460 100 36|(STEP SO AS TO OVERWRITE IT) 16009 100 36|OPEN FILE 57705 100 36|OUTPUT 72705 100 36|OUTPUT 14430 100 36||OPEN OUTPUT 33002 100 36|*****DON’T MOVE***** 71907 100 36|CLOSE I/P 89806 100 36|CSE 16005 100 36|BACK 0 I/P+O/P 32438 100 36| (TO START OF INTERCODE) 88356 100 36|RUN BACK TO SECOND'INDEX'BLOCK 55458 100 36|BACK TO ALIGN BLOCK 88438 100 36|RUN BACK TO SECOND 'INDEX' BLOCK ----------- File A6 89748 109 45|OPEN FOR FINAL PROGM 89864 109 45|READ 14424 109 45|REWIND A6 36936 109 45|REWIND O/P FILE 55313 109 45|INPUT EX PASS 2 33153 109 45|BACK 0 I/P+O/P 55310 109 45|REALIGN TO 'INDEX' 89862 109 45|RUN BACK TO PASS 3 START