Entry at line 10203 Route 9 File D1 type 14 chap 0 max block 195 annex at 0 Special form of dual printer (see 19) for software use Route 18 File B1 type 15 chap 4 max block 27 annex at 394 Dual input (PT or cards) (see 12.9) Route 27 File A1 type 07 chap 4 max block 75 annex at 452 Magnetic tape, first Assembler (see 13.1) Route 36 File A2 type 08 chap 4 max block 75 annex at 606 Magnetic tape, second Assembler Route 45 File A6 type 07 chap 4 max block 75 annex at 760 Magnetic tape, first Assembler (see 13.1) CHAPS 10 chapters + 0 start at proc 100 Procedure 100 starts chapter 1 Procedure 101 starts chapter 2 Procedure 152 starts chapter 3 Procedure 327 starts chapter 4 Procedure 553 starts chapter 5 Procedure 680 starts chapter 6 Procedure 776 starts chapter 7 Procedure 918 starts chapter 8 Procedure 994 starts chapter 9 Procedure 995 starts chapter 10 Section: 3 in chap 2 at loc 0 N 48 short words PROCR 'LENGTH' INDEX B/FWD Section: 4 in chap 2 at loc 48 N 100 short words PASS 0 INPUT UNPACKED Section: 6 in chap 2 at loc 148 N 900 short words PASS 0 OLD/NEW PROCR INDEX Section: 17 in chap 2 at loc 1048 N 100 short words WL'S IN PASS 0 Section: 22 in chap 2 at loc 1148 N 450 short words PASS 0 PROCR INDEX Section: 19 in chap 2 at loc 1598 N 460 short words PASS 0 ADJUST DETAILS Section: 21 in chap 2 at loc 2058 N 100 short words PASS 0 UNIQUE REFS Section: 2 in chap 1 at loc 0 N 10 short words EXTENSION BACKWARDS OF SECTION 18 Section: 18 in chap 1 at loc 10 N 2500 short words SEQUENCE CHANGES FORWARD AND BACK Section: 1 in chap 3 at loc 0 N 46 short words PASS 1 INPUT UNPACKED Section: 28 in chap 3 at loc 46 N 46 short words PASS 1 NEXT RECORD Section: 29 in chap 3 at loc 92 N 44 short words PASS 1 NEXT OUTPUT REC Section: 66 in chap 4 at loc 0 N 24 short words PASS 2 INPUT UNPACKED Section: 67 in chap 4 at loc 24 N 4 short words PASS 2 O/P UNPACKED Section: 61 in chap 4 at loc 28 N 120 short words PASS 2 WL'S Section: 72 in chap 4 at loc 148 N 32 short words SWITCH PROCR LENGTHS+CHAP LENGTHS Section: 71 in chap 4 at loc 180 N 20 short words 17 'MR>3' DETAILS+COUNTER Section: 94 in chap 4 at loc 200 N 100 short words MISC EACH PASS Section: 53 in chap 4 at loc 300 N 0 short words PASS 1 PROCR INDEX EX ISSUE 5(LENGTH 127 Section: 77 in chap 4 at loc 300 N 44 short words PASS 2 NEXT INPUT REC Section: 70 in chap 4 at loc 344 N 0 short words PASS 1 SECTION DETAILS(LENGTH 50) Section: 30 in chap 4 at loc 344 N 18 short words UNPACKED PT FOR 08005 Section: 31 in chap 4 at loc 362 N 22 short words FOR MT BLOCK FOR 08005 Section: 32 in chap 4 at loc 384 N 170 short words TD WL'S FOR 08005 Section: 54 in chap 4 at loc 554 N 160 short words PASS 1 ADJUST DETAILS Section: 55 in chap 4 at loc 714 N 50 short words PASS 1 UNIQUE REFS Section: 92 in chap 4 at loc 764 N 38 short words GENERAL ALL PASSES Section: 91 in chap 4 at loc 802 N 36 short words TWO OTRS.FILES LIST-TX AREAS LIST Section: 98 in chap 4 at loc 838 N 12 short words 10 'ITEM+'DETAILS AND COUNTER Section: 95 in chap 4 at loc 850 N 50 short words 48 SWITCH DETAILS AND COUNTER Section: 99 in chap 4 at loc 900 N 50 short words 25 RADIX PAIRS PER PROGRAMME Section: 23 in chap 4 at loc 950 N 48 short words 'PRINT PROCEDURES' INDICATORS Section: 25 in chap 4 at loc 998 N 42 short words 'TRACE'DETAILS Section: 40 in chap 4 at loc 1040 N 20 short words FRILL FOR PRINTING REPORT SERIALS Section: 27 in chap 4 at loc 1060 N 20 short words PERMANENT WL'S Section: 10 in chap 0 at loc 914 T 390 short words PRINTER/CLEO I/P TX AREA Section: 14 in chap 4 at loc 1080 N 0 short words DUMMY Section: 5 in chap 4 at loc 1080 T 54 short words PT IN+PRINT Section: 7 in chap 4 at loc 1134 T 150 short words MTIN,OUT+PRINT Section: 8 in chap 4 at loc 1284 T 150 short words Section: 9 in chap 4 at loc 1434 T 150 short words Section: 26 in chap 6 at loc 0 N 1080 short words PROCR START ADDRESSES Section: 11 in chap 7 at loc 0 N 20 short words Section: 13 in chap 7 at loc 20 N 32 short words Section: 16 in chap 7 at loc 52 N 40 short words Section: 15 in chap 7 at loc 92 N 100 short words Section: 24 in chap 7 at loc 192 N 36 short words Section: 12 in chap 9 at loc 0 N 120 short words PASS 1 WL'S Section: 93 in chap 9 at loc 120 N 450 short words PASS 1 OLD/NEW PROCR INDEX Section: 97 in chap 9 at loc 570 N 460 short words PASS 1 ADJUST DETAILS Section: 52 in chap 9 at loc 1030 N 100 short words PASS 1 UNIQUE REFS Section: 63 in chap 10 at loc 0 N 60 short words PASS 2 60 SHORT CONSTS PER CHAPTER Section: 62 in chap 10 at loc 60 N 220 short words PASS 2 90 LONG+20 TSL PER CHAPTER Section: 20 in chap 10 at loc 280 N 300 short words PASS 2 100 ACTIVE SEQ CHANGES FWD =============== First pass ================= ------------------------- Equivalent PROCRs 101 101 Equivalent CHAPs 2 2 Overlay 1 starts at proc 101 Chapter 1 Number of short constants = 3 Number of long constants = 0 Chap 1 has 4 constants Code starts at 46 constants at 50 long constants at 54 ------------------------- Equivalent PROCRs 101 152 Equivalent CHAPs 2 3 Overlay 2 starts at proc 152 Chapter 2 Number of short constants = 40 Number of long constants = 55 Chap 2 has 150 constants Code starts at 46 constants at 2392 long constants at 2432 ------------------------- Equivalent PROCRs 152 327 Equivalent CHAPs 3 4 Overlay 3 starts at proc 327 Literal operand combined with others Chapter 3 Number of short constants = 55 Number of long constants = 80 Chap 3 has 216 constants Code starts at 46 constants at 5076 long constants at 5132 ------------------------- Equivalent PROCRs 152 553 Equivalent CHAPs 3 5 Overlay 4 starts at proc 553 Chapter 4 Number of short constants = 24 Number of long constants = 54 Chap 4 has 132 constants Code starts at 46 constants at 5114 long constants at 5138 ------------------------- Equivalent PROCRs 152 680 Equivalent CHAPs 3 6 Overlay 5 starts at proc 680 Chapter 5 Number of short constants = 7 Number of long constants = 47 Chap 5 has 101 constants Code starts at 46 constants at 4209 long constants at 4216 ------------------------- Equivalent PROCRs 152 776 Equivalent CHAPs 3 7 Overlay 6 starts at proc 776 Chapter 6 Number of short constants = 8 Number of long constants = 63 Chap 6 has 134 constants Code starts at 46 constants at 2936 long constants at 2944 ------------------------- Equivalent PROCRs 152 918 Equivalent CHAPs 3 8 Overlay 7 starts at proc 918 ------------------------- Equivalent PROCRs 152 994 Equivalent CHAPs 3 9 Overlay 8 starts at proc 994 Chapter 7 Number of short constants = 53 Number of long constants = 138 Chap 7 has 330 constants Code starts at 46 constants at 4694 long constants at 4748 ------------------------- Equivalent PROCRs 101 995 Equivalent CHAPs 2 10 Overlay 9 starts at proc 995 Chapter 8 Number of short constants = 3 Number of long constants = 7 Chap 8 has 18 constants Code starts at 46 constants at 2142 long constants at 2146 Chapter 9 Number of short constants = 3 Number of long constants = 0 Chap 9 has 4 constants Code starts at 46 constants at 46 long constants at 50 Chapter 10 Number of short constants = 3 Number of long constants = 0 Chap 10 has 4 constants Code starts at 46 constants at 46 long constants at 50 =============== Memory allocation ================= Chapter 1 equivalent to 1 located at 5600 Section 2 length 5 starts at 5654 EXTENSION BACKWARDS OF SECTION 18 Section 18 length 1250 starts at 5664 SEQUENCE CHANGES FORWARD AND BACK Chapter 2 equivalent to 2 located at 8192 Section 3 length 24 starts at 10734 PROCR 'LENGTH' INDEX B/FWD Section 4 length 50 starts at 10782 PASS 0 INPUT UNPACKED Section 6 length 450 starts at 10882 PASS 0 OLD/NEW PROCR INDEX Section 17 length 50 starts at 11782 WL'S IN PASS 0 Section 19 length 230 starts at 12332 PASS 0 ADJUST DETAILS Section 21 length 50 starts at 12792 PASS 0 UNIQUE REFS Section 22 length 225 starts at 11882 PASS 0 PROCR INDEX Chapter 3 equivalent to 2 located at 8192 Section 1 length 23 starts at 13484 PASS 1 INPUT UNPACKED Section 28 length 23 starts at 13530 PASS 1 NEXT RECORD Section 29 length 22 starts at 13576 PASS 1 NEXT OUTPUT REC Chapter 4 equivalent to 2 located at 8192 Section 5 length 27 starts at 14522 PT IN+PRINT Section 7 length 75 starts at 14576 MTIN,OUT+PRINT Section 8 length 75 starts at 14726 Section 9 length 75 starts at 14876 Section 14 length 0 starts at 14522 DUMMY Section 23 length 24 starts at 14392 'PRINT PROCEDURES' INDICATORS Section 25 length 21 starts at 14440 'TRACE'DETAILS Section 27 length 10 starts at 14502 PERMANENT WL'S Section 30 length 9 starts at 13786 UNPACKED PT FOR 08005 Section 31 length 11 starts at 13804 FOR MT BLOCK FOR 08005 Section 32 length 85 starts at 13826 TD WL'S FOR 08005 Section 40 length 10 starts at 14482 FRILL FOR PRINTING REPORT SERIALS Section 53 length 0 starts at 13742 PASS 1 PROCR INDEX EX ISSUE 5(LENGTH 127 Section 54 length 80 starts at 13996 PASS 1 ADJUST DETAILS Section 55 length 25 starts at 14156 PASS 1 UNIQUE REFS Section 61 length 60 starts at 13470 PASS 2 WL'S Section 66 length 12 starts at 13442 PASS 2 INPUT UNPACKED Section 67 length 2 starts at 13466 PASS 2 O/P UNPACKED Section 70 length 0 starts at 13786 PASS 1 SECTION DETAILS(LENGTH 50) Section 71 length 10 starts at 13622 17 'MR>3' DETAILS+COUNTER Section 72 length 16 starts at 13590 SWITCH PROCR LENGTHS+CHAP LENGTHS Section 77 length 22 starts at 13742 PASS 2 NEXT INPUT REC Section 91 length 18 starts at 14244 TWO OTRS.FILES LIST-TX AREAS LIST Section 92 length 19 starts at 14206 GENERAL ALL PASSES Section 94 length 50 starts at 13642 MISC EACH PASS Section 95 length 25 starts at 14292 48 SWITCH DETAILS AND COUNTER Section 98 length 6 starts at 14280 10 'ITEM+'DETAILS AND COUNTER Section 99 length 25 starts at 14342 25 RADIX PAIRS PER PROGRAMME Chapter 5 equivalent to 2 located at 8192 Chapter 6 equivalent to 2 located at 8192 Section 26 length 540 starts at 11262 PROCR START ADDRESSES Chapter 7 equivalent to 2 located at 8192 Section 11 length 10 starts at 13216 Section 13 length 16 starts at 13236 Section 15 length 50 starts at 13308 Section 16 length 20 starts at 13268 Section 24 length 18 starts at 13408 Chapter 8 equivalent to 2 located at 8192 Chapter 9 equivalent to 2 located at 8192 Section 12 length 60 starts at 8242 PASS 1 WL'S Section 52 length 50 starts at 9272 PASS 1 UNIQUE REFS Section 93 length 225 starts at 8362 PASS 1 OLD/NEW PROCR INDEX Section 97 length 230 starts at 8812 PASS 1 ADJUST DETAILS Chapter 10 equivalent to 2 located at 8192 Section 20 length 150 starts at 8522 PASS 2 100 ACTIVE SEQ CHANGES FWD Section 62 length 110 starts at 8302 PASS 2 90 LONG+20 TSL PER CHAPTER Section 63 length 30 starts at 8242 PASS 2 60 SHORT CONSTS PER CHAPTER PROCR 100 in CHAP 1 overlay = 0 PROCR 101 in CHAP 2 overlay = 1 PROCR 152 in CHAP 3 overlay = 2 PROCR 327 in CHAP 4 overlay = 3 PROCR 553 in CHAP 5 overlay = 4 PROCR 680 in CHAP 6 overlay = 5 PROCR 776 in CHAP 7 overlay = 6 PROCR 918 in CHAP 8 overlay = 7 PROCR 994 in CHAP 9 overlay = 8 PROCR 995 in CHAP 10 overlay = 9 =============== Second pass ================= L160 loading procedure 0 for chapter 0 L5646 loading chapter 1 Start of procedure 100 at location 46 in chapter 1 [5646] [5646] 10000 PROCR 100 CHAPTER ONE [5646] 10001 NOTES MAIN OVERLAY ORDER TO RECALL PASS 0 PROCR 101 in CHAP 2 overlay = 1 24/0/3 5600 [5646] 10002 152 101 2 0 0 0 OVERLAY 23/0/2 101 [5647] 10003 C 101 2 0 0 0 OVERLAY 24/0/3 5650 Extra code needed to address 8240 from 5648 (different chapter) 24/1/0 48 [5649] 10004 76 102 2 0 0 0 JUMP unconditional Constants for chapter 1 short constants at 5650 long constants at 5654 0/0/1 0 [5650] 002000 0/0/2 0 [5651] 004000 0/0/3 0 [5652] 006000 0/0/0 0 [5653] 000000 L5600 loading procedure 0 for chapter 1 0/0/0 0 [5600] 000000 0/0/0 5600 [5601] 0015E0 0/0/0 5600 [5602] 0015E0 0/0/1 0 [5603] 002000 0/0/1 0 [5604] 002000 0/0/0 160 [5605] 0000A0 0/0/0 160 [5606] 0000A0 0/0/0 9 [5607] 000009 0/0/0 18 [5608] 000012 0/0/0 27 [5609] 00001B 0/0/0 36 [5610] 000024 0/0/0 45 [5611] 00002D 0/0/0 10 [5612] 00000A 16/0/0 74 [5613] 10004A 0/0/0 19 [5614] 000013 16/0/0 83 [5615] 100053 0/0/0 28 [5616] 00001C 16/0/0 92 [5617] 10005C 0/0/0 37 [5618] 000025 16/0/0 101 [5619] 100065 0/0/0 46 [5620] 00002E 16/0/0 110 [5621] 10006E 0/0/0 8 [5622] 000008 16/0/0 10 [5623] 10000A 16/0/0 12 [5624] 10000C 16/0/0 14 [5625] 10000E 0/0/0 0 [5626] 000000 0/0/0 0 [5627] 000000 0/0/0 0 [5628] 000000 0/0/0 0 [5629] 000000 0/0/0 0 [5630] 000000 0/0/0 0 [5631] 000000 0/0/0 0 [5632] 000000 0/0/0 0 [5633] 000000 0/0/0 0 [5634] 000000 0/0/0 0 [5635] 000000 0/0/0 0 [5636] 000000 0/0/0 0 [5637] 000000 0/0/0 0 [5638] 000000 0/0/0 0 [5639] 000000 L8238 loading chapter 2 Start of procedure 101 at location 46 in chapter 2 [8238] [8238] 10100 PROCR 101 CALL PASS 1-THIS IS THE FIRST PROCR IN PASS 0 PROCR 152 in CHAP 3 overlay = 2 24/0/3 0 [8238] 10102 152 101 2 0 0 0 OVERLAY 23/0/2 102 [8239] 10103 C 152 2 0 0 0 OVERLAY Start of procedure 102 at location 48 in chapter 2 [8240] [8240] 10200 PROCR 102 STORE PRINTER AND I/P TYPE,ALLOCATE NEW DEVICE Source: DavidH/Q1000056 0/0/3 0 [8240] 10202 62 0 0 0 0 SET EXCESS CONSTANTS 25/1/1 4096 [8241] 10203 125 4096 1 1 0 CLEAR INDICATORS 23/0/2 51 [8242] 10204 123 102 5 0 2 0 ENTER MASTER ROUTINE 0/0/0 0 [8243] 10205 100 0 0 0 0 HALT 2/1/0 2180 [8244] 10206 5 148 42 1 0 0 ORIGINAL(A) TRANSFER 2/1/0 6310 [8245] 10207 5 27 0 1 0 0 CLEAR WL'S TRANSFER 2/1/0 6312 [8246] 10208 5 27 2 1 0 0 TRANSFER 2/1/0 6314 [8247] 10209 5 27 4 1 0 0 TRANSFER 2/1/0 6316 [8248] 10210 5 27 6 1 0 0 TRANSFER 2/0/0 6321 [8249] 10211 5 27 11 0 0 0 TRANSFER 2/0/0 6323 [8250] 10212 5 27 13 0 0 0 TRANSFER 2/0/0 8177 [8251] 10213 84 786 2 0 0 0 CLEAR SWITCH 772 SET SWITCH(ES) AT VARIABLE VALUE 23/0/3 1435 [8252] 10214 123 128 2 0 3 0 PROG TAG SELECT TAG 18/0/1 4 [8253] 10215 30 0 0 0 4 SHIFT (A) BY QUARTETS 1/0/1 16 [8254] 10216 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION 14/0/0 1330 [8255] a 10217 37 125 4 0 0 0 FORM LINKS REPLACE SELECTED BITS 14/0/0 1331 [8256] a 10218 37 125 5 0 0 0 REPLACE SELECTED BITS 14/0/0 1332 [8257] a 10219 37 125 6 0 0 0 REPLACE SELECTED BITS 25/0/3 0 [8258] 10220 94 102 87 0 3 0 ///// *REENTRY STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 135 [8259] s 24/0/3 5 [8260] 10221 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 34 [8261] 10222 106 34 0 0 0 D1 SELECT (N) 18/0/1 4124 [8262] 10223 30 0 0 0 4- SHIFT (A) BY QUARTETS 2/1/0 6318 [8263] 10224 5 27 8 1 0 0 INITIAL PRINTER TYPE+CLEAR 'OFFLINE' TRANSFER 24/0/3 5 [8264] 10225 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 36 [8265] 10226 106 36 0 0 0 B1 SELECT (N) 18/0/1 4124 [8266] 10227 30 0 0 0 4- SHIFT (A) BY QUARTETS 1/1/2 4 [8267] 10228 12 0 0 0 4 SUBTRACT LITERAL 2/0/0 6320 [8268] 10229 5 27 10 0 0 0 INPUT TYPE TRANSFER 6/0/0 1422 [8269] a 10230 0 126 15 0 0 0 23/0/2 SELECT 2/0/0 1414 [8270] 10231 5 126 7 0 0 0 TRANSFER 6/1/0 2181 [8271] 10232 148 42 2 0 0 SELECT 27/0/0 147 [8272] 10233 70 102 98 0 0 0 gTHINGS OK.EXIT JUMP IF A == 0 6/0/0 2180 [8273] 10234 0 148 42 0 0 0 SELECT 2/0/0 31 [8274] 10235 5 999 31 0 0 0 TRANSFER 1/1/3 7 [8275] 10236 10 0 0 0 7 RT7 SELECT LITERAL 26/0/0 148 [8276] 10237 80 103 2 0 0 0 ENTER SUBROUTINE 27/0/0 92 [8277] 10238 70 102 45 0 0 0 gOK JUMP IF A == 0 1/1/3 8 [8278] 10239 10 0 0 0 8 RT8 SELECT LITERAL 26/0/0 148 [8279] 10240 80 103 2 0 0 0 ENTER SUBROUTINE 27/0/0 92 [8280] 10241 70 102 45 0 0 0 JUMP IF A == 0 1/1/3 11 [8281] 10242 10 0 0 0 e RT11 SELECT LITERAL 26/0/0 148 [8282] 10243 80 103 2 0 0 0 ENTER SUBROUTINE 27/0/1 170 [8283] 10244 71 104 2 0 0 0 gALARM*10 JUMP IF A != 0 6/0/0 0 [8284] 10245 84 787 2 0 0 0 CLEAR SWITCH SET SWITCH(ES) AT VARIABLE VALUE 2/0/0 8176 [8285] 10246 C 999 0 0 0 0 TO OPEN A9 SET SWITCH(ES) AT VARIABLE VALUE 1/1/3 1 [8286] 10247 10 0 0 0 1 SELECT LITERAL 2/0/0 6319 [8287] 10248 5 27 9 0 0 0 TRANSFER 24/0/3 22 [8288] 10249 96 0 0 2 0 ALLOC ROUTE SELECT MODIFIER 6/0/0 4 [8289] 1/1/2 64 [8290] 10250 12 0 0 0 40 64 SUBTRACT LITERAL 3/0/0 7 [8291] 10251 3 999 7 0 0 0 COPY 18/0/3 1 [8292] 10252 31 0 0 0 1 SHIFT (A) BY BITS 18/1/1 4127 [8293] 10253 32 0 0 0 1- SHIFT (AB) BY QUARTETS 2/0/0 1409 [8294] 10254 5 126 2 0 0 0 CHANNEL TRANSFER 18/1/3 3 [8295] 10255 33 0 0 0 3 SHIFT (AB) BY BITS 2/0/0 1454 [8296] 10256 5 129 2 0 0 0 ROUTE TRANSFER 6/0/0 1409 [8297] 10257 126 2 0 0 0 CHANNEL SELECT 26/0/0 1835 [8298] 10258 80 143 2 0 0 0 *DEC ENTER SUBROUTINE 2/0/0 2180 [8299] 10259 5 148 42 0 0 0 TRANSFER 0/0/3 0 [8300] 10260 62 0 0 0 0 SET EXCESS CONSTANTS Source: RayS/Q1000057 6/0/0 6319 [8301] 10261 27 9 0 0 0 SELECT 27/0/0 181 [8302] 10262 70 104 9 0 0 0 JUMP IF A == 0 24/0/3 5 [8303] 10263 124 999 5 0 3 0 SP CHAP START MODIFY ADDRESS OF NEXT 24/0/3 32 [8304] 10264 124 32 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 16 [8305] 10265 124 16 0 3 0 MODIFY ADDRESS OF NEXT 1/1/3 0 [8306] 10266 10 0 0 0 0 START OF REEL CTRS SELECT LITERAL 4/0/0 7 [8307] 10267 1 999 7 0 0 0 ADD 2/0/0 1829 [8308] 10268 5 142 2 0 0 0 WL TRANSFER 24/0/3 1829 [8309] 10269 124 142 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 0 [8310] 10270 102 0 0 0 0 CLEAR REEL CTR FOR ROUTE TRANSFER (A) TO N 24/0/3 5 [8311] 10271 124 999 5 0 3 0 FORM MODIFIER FOR HIGH LOW MODIFY ADDRESS OF NEXT 24/0/3 32 [8312] 10272 124 32 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 22 [8313] 10273 106 22 0 0 0 SELECT (N) 4/0/0 7 [8314] 10274 1 999 7 0 0 0 ADD 2/0/0 148 [8315] 10275 5 103 2 0 0 0 TRANSFER 24/0/3 5 [8316] 10276 124 999 5 0 3 0 TEST MACHINE IS HIGH DENSITY MODIFY ADDRESS OF NEXT 24/0/3 32 [8317] 10277 124 32 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 21 [8318] 10278 106 21 0 0 0 SELECT (N) 27/0/0 181 [8319] 10279 70 104 9 0 0 0 gNO JUMP IF A == 0 6/0/0 31 [8320] 10280 999 31 0 0 0 SELECT 1/1/2 88 [8321] 10281 12 0 0 0 58 'H'(=HIGH DENSITY WANTED) SUBTRACT LITERAL 27/0/1 168 [8322] 10282 71 103 22 0 0 0 gNO JUMP IF A != 0 1/1/3 1 [8323] 10283 10 0 0 0 1 SELECT LITERAL 24/0/3 148 [8324] 10284 124 103 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 0 [8325] 10285 102 0 0 0 0 TRANSFER (A) TO N 24/1/0 181 [8326] 10286 76 104 9 0 0 0 JUMP unconditional 24/0/3 22 [8327] 10287 96 0 0 3 0 SELECT MODIFIER 6/0/0 6 [8328] 27/0/0 141 [8329] 10288 70 102 92 0 0 0 gPRINTER WANTED REENTRY JUMP IF A == 0 6/0/0 6319 [8330] 10289 27 9 0 0 0 SELECT 27/0/1 147 [8331] 10290 71 102 98 0 0 0 gMT WANTED AND GOT,EXIT JUMP IF A != 0 24/1/0 81 [8332] 10291 76 102 34 0 0 0 gGET MT JUMP unconditional 6/0/0 6319 [8333] 10292 27 9 0 0 0 SELECT 27/0/0 147 [8334] 10293 70 102 98 0 0 0 gPRINTER WANTED AND GOT,EXIT JUMP IF A == 0 6/0/0 6318 [8335] 10294 27 8 0 0 0 INITIAL PRINTER TYPE SELECT 26/0/0 148 [8336] 10295 80 103 2 0 0 0 ENTER SUBROUTINE 27/0/1 170 [8337] 10296 71 104 2 0 0 0 gALARM*10 JUMP IF A != 0 24/1/0 95 [8338] 10297 76 102 48 0 0 0 JUMP unconditional 26/0/3 1330 [8339] a 10298 126 125 4 0 3 0 gTO MAIN PATH LEAVE MASTER ROUTINE Start of procedure 103 at location 148 in chapter 2 [8340] [8340] 10300 PROCR 103 103 ALLOCATE ANOTHER DEVICE 0/0/0 0 [8340] 10302 81 103 2 0 0 0 START OF SUBROUTINE 2/0/0 1782 [8341] 10303 5 140 2 0 0 0 TRANSFER 26/1/2 2432 [8342] 10304 90 0 0 2 64 SET MODIFICATION REGISTER AT LITERAL [8343] 10305 C 0 0 0 128 Limit 6/0/0 1782 [8343] 10306 140 2 0 0 0 SELECT 24/0/3 0 [8344] 10307 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 5/0/2 0 [8345] 10308 105 0 0 2 0 SUBTRACT (N) FROM (A) 27/0/0 167 [8346] 10309 70 103 21 0 0 0 gMATCH END JUMP IF A == 0 25/0/2 1 [8347] 10310 94 103 6 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 151 [8348] s 6/0/0 9 [8349] 10311 999 9 0 0 0 KNOWN MT ROUTE SELECT 1/1/2 24 [8350] 10312 12 0 0 0 18 CH3/0 SUBTRACT LITERAL 27/0/3 167 [8351] 10313 73 103 21 0 0 0 gSLOW CHANNEL;END WITHOUT MATCH JUMP IF A < 0 26/1/2 2434 [8352] 10314 90 0 0 2 192 SET MODIFICATION REGISTER AT LITERAL [8353] 10315 C 0 0 0 240 Limit 24/0/3 0 [8353] 10316 124 999 0 0 3 0 TRY FAST CHANNEL MODIFY ADDRESS OF NEXT 6/0/2 0 [8354] 10317 106 0 0 2 0 SELECT (N) 5/0/0 1782 [8355] 10318 2 140 2 0 0 0 SUBTRACT 27/0/0 167 [8356] 10319 70 103 21 0 0 0 JUMP IF A == 0 Source: RayS/Q1000058 25/0/2 1 [8357] 10320 94 103 16 0 2 1 THE ALLOCATED ROUTE STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 161 [8358] s 26/0/1 148 [8359] 10321 82 103 2 0 0 0 (A) NONZERO IF NO MATCH END OF SUBROUTINE / LEAVE SUBROUTINE 1/1/3 0 [8360] 10322 10 0 0 0 0 SELECT LITERAL 24/1/0 132 [8361] 10323 76 102 84 0 0 0 JUMP unconditional Start of procedure 104 at location 170 in chapter 2 [8362] [8362] 10400 PROCR 104 104 ALARM IF CANT FIND REQUIRED ??? 26/0/3 1331 [8362] a 10402 126 125 5 0 3 0 LEAVE MASTER ROUTINE 1/1/3 16 [8363] 10403 150 0 0 0 10 OFFER OPTIONS 0/0/2 2395 [8364] 25/1/1 4096 [8365] 24/0/3 0 [8366] 26/0/2 1 [8367] 0/0/1 1751 [8368] s 10404 C 136 61 0 0 0 gUNLOAD 0/0/1 179 [8369] s 10405 C 104 7 0 0 0 gTRY AGAIN 0/0/1 237 [8370] s 10406 C 105 38 0 0 0 gAS YOU ARE 6/1/0 2180 [8371] 10407 148 42 1 0 0 ORIGINAL (A) SELECT 24/1/0 48 [8372] 10408 76 102 2 0 0 0 JUMP unconditional 24/0/3 5 [8373] 10409 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 34 [8374] 10410 106 34 0 0 0 SELECT (N) 18/1/1 4124 [8375] 10411 32 0 0 0 4- SHIFT (AB) BY QUARTETS 2/0/0 1829 [8376] 10412 5 142 2 0 0 0 ROUTE TYPE TRANSFER 18/1/1 2 [8377] 10413 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/3 0 [8378] 10414 10 0 0 0 0 (ALT ROUTE) SELECT LITERAL 18/1/1 2 [8379] 10415 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/0/0 1835 [8380] 10416 5 143 2 0 0 0 ROUTE TRANSFER 24/0/3 5 [8381] 10417 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 32 [8382] 10418 124 32 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 12 [8383] 10419 124 12 0 3 0 START OF ASSEMBLER TABLE MODIFY ADDRESS OF NEXT 1/1/3 0 [8384] 10420 101 0 1 3 0 SELECT LITERAL ADDRESS 0/0/2 1835 [8385] 10421 34 143 2 0 0 0 BITS 4-8 SET (N) IN B 15/0/0 2234 [8386] 10422 36 148 96 0 0 0 8XCHANNEL COLLATE AND ADD 2/0/0 1409 [8387] 10423 5 126 2 0 0 0 TRANSFER Start of procedure 105 at location 196 in chapter 2 [8388] [8388] 10500 PROCR 105 105 START PASS 0-DEAL WITH INITIAL TRANSLATION 1/1/1 128 [8388] 10502 11 0 0 0 80 * ADD LITERAL 6/0/0 196 [8389] 10503 106 105 2 0 0 0 ** SELECT (N) 24/0/3 5 [8390] 10504 124 999 5 0 3 0 ADJUST ORDERS MODIFY ADDRESS OF NEXT 24/0/3 32 [8391] 10505 124 32 0 3 0 FOR FCC MACHINES MODIFY ADDRESS OF NEXT 4/0/0 32 [8392] 10506 104 32 0 0 0 ***** ADD (N) TO (A) 3/0/0 218 [8393] 10507 103 105 24 0 0 0 **** COPY (A) TO N 2/0/0 225 [8394] 10508 102 105 31 0 0 0 *** TRANSFER (A) TO N 24/0/3 1409 [8395] 10509 124 126 2 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 0 [8396] 10510 106 0 0 0 0 LAST ROUTE ON CHANNEL SELECT (N) 5/0/0 1835 [8397] 10511 2 143 2 0 0 0 SUBTRACT 27/0/1 209 [8398] 10512 71 105 15 0 0 0 NOT THIS ONE JUMP IF A != 0 24/0/3 1409 [8399] 10513 124 126 2 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 0 [8400] 10514 102 0 1 0 0 CLEAR DETAILS TRANSFER (A) TO N 24/0/3 1835 [8401] 10515 124 143 2 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 64 [8402] 10516 106 64 0 0 0 OLD ASL SELECT (N) 24/0/3 7 [8403] 10517 124 999 7 0 3 0 NEW ROUTE MODIFY ADDRESS OF NEXT 2/0/0 64 [8404] 10518 102 64 0 0 0 TRANSFER (A) TO N 6/0/0 1829 [8405] 10519 142 2 0 0 0 OLD ROUTE TYPE LOAD NEW ROUTE SELECT 24/0/3 1835 [8406] 10520 124 143 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 64 [8407] 10521 102 64 0 0 0 TRANSFER (A) TO N 6/0/0 1782 [8408] 10522 140 2 0 0 0 NEW ROUTE TYPE SELECT 18/0/1 2 [8409] 10523 30 0 0 0 2 SHIFT (A) BY QUARTETS 1/1/1 128 [8410] 10524 11 0 0 0 80 ***** DON'T MOVE ***** ADD LITERAL 18/0/1 2 [8411] 10525 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 7 [8412] 10526 1 999 7 0 0 0 NEW ROUTE ADD Source: RayS/Q1000059 24/0/3 5 [8413] 10527 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 34 [8414] 10528 102 34 0 0 0 TRANSFER (A) TO N 6/0/0 7 [8415] 10529 999 7 0 0 0 SELECT 18/0/1 2 [8416] 10530 30 0 0 0 2 SHIFT (A) BY QUARTETS 1/1/1 128 [8417] 10531 11 0 0 0 80 ***** DON'T MOVE ***** ADD LITERAL 24/0/3 5 [8418] 10532 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 35 [8419] 10533 102 35 0 0 0 TRANSFER (A) TO N 26/0/3 1332 [8420] a 10534 126 125 6 0 3 0 LEAVE MASTER ROUTINE 24/0/2 2252 [8421] 10535 52 3 0 0 0 0 EDIT 28/1/2 2542 [8422] 10536 C 149 16 0 0 0 0/1/0 40 [8423] 10537 154 3 0 0 0 0 COMMENT IN LOG 0/0/3 0 [8424] 24/0/2 2542 [8425] 24/0/3 0 [8426] 23/0/2 154 [8427] 0/1/1 40 [8428] 0/0/3 0 [8429] 10538 62 0 0 0 0 SET EXCESS CONSTANTS 26/0/0 1540 [8430] 10539 80 134 2 0 0 0 gINTERCHANGE A1;D1 ASL'S ENTER SUBROUTINE 6/0/0 6320 [8431] 10540 27 10 0 0 0 INPUT TYPE SELECT 1/1/1 14 [8432] 10541 11 0 0 0 . ADD LITERAL 0/1/2 2208 [8433] 10542 34 148 70 1 0 0 SET (N) IN B 26/0/0 1409 [8434] 10543 80 126 2 0 0 0 gOPEN B1 ENTER SUBROUTINE 6/1/0 2436 [8435] 10544 54 3 0 1 0 2158 ALL SECTIONS PASS 0 BULK CLEAR 28/1/1 2542 [8436] 6/1/0 2438 [8437] 10545 54 72 0 1 0 838 ALL SECTIONS PASS 2 BULK CLEAR 28/1/1 5398 [8438] 26/0/0 1809 [8439] 10546 80 141 2 0 0 0 READ PT ENTER SUBROUTINE 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [8441] 10547 5 0 1 0 0 SELECT 5/1/0 2182 [8442] 10548 2 148 44 1 0 0 PROGM' SUBTRACT 3/1/0 2182 [8443] 10549 3 148 44 1 0 0 IND'INITIAL TRANSLATION' COPY 27/0/1 353 [8444] 10550 71 107 2 0 0 0 gAMENDMENT JUMP IF A != 0 0/1/0 40 [8445] 10551 40 A6 0 0 0 0 OPEN FILE 0/0/3 0 [8446] 0/1/2 2440 [8447] 6/1/0 2442 [8448] 1/1/1 45 [8449] 25/1/1 4096 [8450] 24/0/3 0 [8451] 23/0/2 40 [8452] 0/0/3 44 [8453] 26/0/0 1497 [8454] 10552 80 131 2 0 0 0 gWRITE ENTER SUBROUTINE 1/1/3 99 [8455] 10553 10 0 0 0 63 99 SELECT LITERAL 2/0/0 5495 [8456] 10554 5 94 45 0 0 0 TRANSLATORS PROCR TRANSFER 26/0/0 1809 [8457] 10555 80 141 2 0 0 0 READ PT ENTER SUBROUTINE 27/0/0 1346 [8458] 10556 70 125 19 0 0 0 gPT AT END SIGN JUMP IF A == 0 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [8460] 10557 0 5 0 1 0 0 SELECT 5/1/0 2210 [8461] 10558 2 148 72 1 0 0 TRAMD' SUBTRACT 27/0/1 277 [8462] 10559 71 105 66 0 0 0 JUMP IF A != 0 1/1/3 1 [8463] 10560 10 0 0 0 1 SELECT LITERAL 2/0/0 6321 [8464] 10561 5 27 11 0 0 0 IND'INITIAL TRANSLATION' TRANSFER 26/0/0 1497 [8465] 10562 80 131 2 0 0 0 gWRITE ENTER SUBROUTINE 26/0/0 1809 [8466] 10563 80 141 2 0 0 0 READ ENTER SUBROUTINE 27/0/0 1346 [8467] 10564 70 125 19 0 0 0 gPT AT END JUMP IF A == 0 24/1/0 273 [8468] 10565 76 105 62 0 0 0 JUMP unconditional 6/1/0 2444 [8469] 10566 54 4 0 1 0 18 BULK CLEAR 28/1/1 2590 [8470] 6/0/0 6320 [8471] 10567 27 10 0 0 0 SELECT 1/1/2 1 [8472] 10568 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 286 [8473] 10569 70 105 73 0 0 0 gPT JUMP IF A == 0 24/0/2 2270 [8474] 10570 50 5 4 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/0/2 4 [8476] 10571 C 150 4 0 0 0 24/1/0 289 [8477] 10572 76 105 76 0 0 0 JUMP unconditional 24/0/2 2270 [8478] 10573 124 150 4 0 2 0 SELECT LITERAL AND DIVISION 24/1/2 15 [8479] 10574 124 999 15 1 2 0 SEC 5 MODIFY ADDRESS OF NEXT 28/0/3 0 [8480] 10575 128 0 0 3 0 UNPACK VARIABLE FIELD DATA 6/1/0 2596 [8481] 10576 4 6 1 0 0 SELECT 5/1/0 2184 [8482] 10577 2 148 46 1 0 0 PROCR' SUBTRACT 27/0/1 294 [8483] 10578 71 105 81 0 0 0 gNO JUMP IF A != 0 3/0/0 2228 [8484] 10579 3 148 90 0 0 0 SET IND FOR 'PROCR' COPY 24/1/0 304 [8485] 10580 76 105 91 0 0 0 JUMP unconditional 6/1/0 2596 [8486] 10581 4 6 1 0 0 SELECT 5/1/0 2186 [8487] 10582 2 148 48 1 0 0 TABLE' SUBTRACT 27/0/0 303 [8488] 10583 70 105 90 0 0 0 JUMP IF A == 0 6/1/0 2596 [8489] 10584 4 6 1 0 0 SELECT 5/1/0 2188 [8490] 10585 2 148 50 1 0 0 CONST' SUBTRACT Source: RayS/Q1000060 27/0/1 347 [8491] 10586 71 106 37 0 0 0 gNOT A DIRECTIVE JUMP IF A != 0 0/0/2 2606 [8492] 10587 34 4 16 0 0 0 CONSTANT TYPE SET (N) IN B 15/0/0 2140 [8493] 10588 36 148 2 0 0 0 BIT 1 COLLATE AND ADD 27/0/0 304 [8494] 10589 70 105 91 0 0 0 gSHORT JUMP IF A == 0 1/1/3 1 [8495] 10590 10 0 0 0 1 SELECT LITERAL 2/0/0 3590 [8496] 10591 5 17 0 0 0 0 TRANSFER 0/0/3 0 [8497] 10592 62 0 0 0 0 SET EXCESS CONSTANTS 1/1/3 1 [8498] 10593 10 0 0 0 1 SELECT LITERAL 7/0/0 5495 [8499] 10594 4 94 45 0 0 0 TRANSLATOR PROCR AUGMENT 0/0/3 2396 [8500] 10595 60 0 0 0 0 SET DECIMAL RADIX Start of procedure 106 at location 309 in chapter 2 [8501] [8501] 10600 PROCR 106 106 DEAL WITH CODERS PROCR NUMBER-INITIAL TRANSLATION 6/1/0 2598 [8501] 10602 4 8 1 0 0 CODERS PROCR SELECT 1/1/2 256 [8502] 10603 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 350 [8503] 10604 73 106 40 0 0 0 gLESS THAN 100 JUMP IF A < 0 1/1/2 2201 [8504] 10605 12 0 0 0 899 SUBTRACT LITERAL 27/0/2 350 [8505] 10606 72 106 40 0 0 0 JUMP IF A >= 0 6/1/0 2598 [8506] 10607 4 8 1 0 0 gGREATER THAN 998 SELECT 26/0/0 1829 [8507] 10608 80 142 2 0 0 0 CONVERT TO BIN ENTER SUBROUTINE 1/1/2 100 [8508] 10609 12 0 0 0 64 -100 SUBTRACT LITERAL 18/1/3 3 [8509] 10610 33 0 0 0 1- SHIFT (AB) BY BITS 18/1/1 4127 [8510] 2/1/0 3598 [8511] 10611 5 17 8 1 0 0 TRANSFER 27/1/0 323 [8512] 10612 74 106 15 0 0 0 gC-100 EVEN JUMP IF AB == 0 // 27, 1, 0 1/1/3 10 [8513] 10613 10 0 0 0 t SELECT LITERAL 2/0/0 3599 [8514] 10614 5 17 9 0 0 0 NO OF BITS TO BE SHIFTED TRANSFER 6/0/0 5495 [8515] 10615 94 45 0 0 0 TRANSLATORS PROCR SELECT 0/0/2 2206 [8516] 10616 34 148 68 0 0 0 BITS 1-10 SET (N) IN B 24/0/1 3599 [8517] 10617 124 17 9 0 1 0 LS HALF EVEN PROCR NUMBER MODIFY ADDRESS OF NEXT 18/1/3 0 [8518] 10618 33 0 0 0 0 ///// SHIFT (AB) BY BITS 2/0/0 1829 [8519] 10619 5 142 2 0 0 0 WL TRANSFER 24/0/1 3598 [8520] 10620 124 17 8 0 1 0 MODIFY ADDRESS OF NEXT 15/0/0 3690 [8521] 10621 36 22 0 0 0 0 COLLATE AND ADD 27/0/1 350 [8522] 10622 71 106 40 0 0 0 gPROCR ALREADY USED JUMP IF A != 0 6/0/0 1829 [8523] 10623 142 2 0 0 0 SELECT 24/0/1 3598 [8524] 10624 124 17 8 0 1 0 MODIFY ADDRESS OF NEXT 14/0/0 3690 [8525] 10625 37 22 0 0 0 0 REPLACE SELECTED BITS 0/0/3 0 [8526] 10626 62 0 0 0 0 SET BIN SET EXCESS CONSTANTS 6/0/0 5495 [8527] 10627 94 45 0 0 0 TRANSLATORS PROCR SELECT 1/0/1 0 [8528] 10628 19 0 0 0 14 DIVIDE BY 20 DIVIDE LITERAL 18/1/1 4119 [8529] 13/0/0 2397 [8530] 2/0/0 3600 [8531] 10629 5 17 10 0 0 0 TRANSFER 18/1/1 9 [8532] 10630 32 0 0 0 9 SHIFT (AB) BY QUARTETS 2/0/0 3599 [8533] 10631 5 17 9 0 0 0 TRANSFER 6/0/0 3590 [8534] 10632 17 0 0 0 0 SHORT/LONG IND SELECT 24/0/1 3599 [8535] 10633 124 17 9 0 1 0 MODIFY ADDRESS OF NEXT 18/0/3 0 [8536] 10634 31 0 0 0 0 ///// SHIFT (A) BY BITS 24/0/1 3600 [8537] 10635 124 17 10 0 1 0 MODIFY ADDRESS OF NEXT 7/0/0 5445 [8538] 10636 4 94 5- 0 0 0 AUGMENT TABLE AUGMENT 26/0/0 1497 [8539] 10637 80 131 2 0 0 0 WRITE A6 ENTER SUBROUTINE 0/0/3 2398 [8540] 10638 60 0 0 0 0 SET DECIMAL RADIX 24/1/0 265 [8541] 10639 76 105 55 0 0 0 gREAD PT, TEST NEXT BLOCK JUMP unconditional 1/1/3 1 [8542] 10640 10 0 0 0 1 SELECT LITERAL 2/1/0 3607 [8543] 10641 5 17 16 2 0 0 SET 'PASS 0 DOESN'T LIKE IT' TRANSFER 24/1/0 334 [8544] 10642 76 106 26 0 0 0 gO/P, UPDATE 'LENGTH' IND JUMP unconditional Start of procedure 107 at location 353 in chapter 2 [8545] [8545] 10700 PROCR 107 START OF AMENDMENT RUN 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [8546] 10702 0 5 0 1 0 0 SELECT 5/1/0 2190 [8547] 10703 2 148 52 1 0 0 'AMEND' SUBTRACT Source: GeoffC/Q1000061 27/0/0 375 [8548] 10704 70 107 16 0 0 0 JUMP IF A == 0 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [8550] 10705 5 0 1 0 0 SELECT 5/1/0 2210 [8551] 10706 2 148 72 1 0 0 'TRAMD' SUBTRACT 27/0/0 1841 [8552] 10707 70 144 2 0 0 0 > JUMP IF A == 0 1/1/3 3 [8553] 10708 150 0 0 0 3 ALARM*3 OFFER OPTIONS 0/0/2 2399 [8554] 25/1/1 4096 [8555] 24/0/3 0 [8556] 26/0/2 1 [8557] 0/0/1 1751 [8558] s 10709 C 136 61 0 0 0 >UNLOAD 0/0/1 368 [8559] s 10710 C 107 11 0 0 0 >REENTER 6/0/0 6319 [8560] 10711 27 9 0 0 0 SELECT 4/1/0 2446 [8561] 10712 11 0 0 0 900000 ADD LITERAL 3/1/0 40 [8562] 10713 91 0 0 3 0 (END VALUE NON ZERO) SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [8563] 26/0/0 1540 [8564] 10714 80 134 2 0 0 0 >INTERCHANGE A1,D1 ASL'S ENTER SUBROUTINE 24/0/3 0 Extra code needed to address 5646 from 8565 (different chapter) 24/1/0 5646 [8566] 10715 76 100 2 0 0 0 JUMP unconditional 26/0/0 1994 [8567] 10716 80 145 2 0 0 0 UNPACK AND CHECK AMEND BLOCK ENTER SUBROUTINE 0/1/0 40 [8568] 10717 40 A6 0 0 0 0 OPEN FILE 0/0/3 0 [8569] 0/1/2 2448 [8570] 6/1/0 2450 [8571] 1/1/1 45 [8572] 25/1/1 4096 [8573] 24/0/3 0 [8574] 23/0/2 40 [8575] 0/0/3 44 [8576] 6/1/0 2452 [8577] 10718 54 9 4 1 0 50 BULK CLEAR 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/1 4 [8579] 3/1/0 40 [8580] 10719 91 0 0 3 0 CLEAR R3 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [8581] 26/0/0 1497 [8582] 10720 80 131 2 0 0 0 >WRITE 'AMEND' ENTER SUBROUTINE 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 14 [8584] 10721 0 10 14 1 0 0 SELECT 5/1/0 2454 [8585] 10722 12 0 0 0 7.0000007. SUBTRACT LITERAL 27/0/1 401 [8586] 10723 71 107 27 0 0 0 >NOT ISSUE 2.3 OUTPUT JUMP IF A != 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 12 [8588] 10724 5 10 12 1 0 0 TRANSFER 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 14 [8590] 10725 5 10 14 1 0 0 TRANSFER 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 16 [8592] 10726 5 10 16 1 0 0 TRANSFER 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 17 [8594] 10727 0 10 16 2 0 0 'MULTI-RECORD'IND SELECT 2/0/0 6311 [8595] 10728 5 27 1 0 0 0 TRANSFER 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 15 [8597] 10729 0 10 14 2 0 0 'PSEUDO-ISSUE 5'IND SELECT 2/0/0 6312 [8598] 10730 5 27 2 0 0 0 TRANSFER 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 13 [8600] 10731 0 10 12 2 0 0 'ISSUE 6 OR LATER'IND SELECT 3/0/0 6310 [8601] 10732 3 27 0 0 0 0 COPY 27/0/1 717 [8602] 10733 71 111 2 0 0 0 >YES JUMP IF A != 0 26/0/0 1754 [8603] 10734 80 137 2 0 0 0 >READ MT ENTER SUBROUTINE 6/0/0 6311 [8604] 10735 27 1 0 0 0 SELECT 27/0/0 417 [8605] 10736 70 107 39 0 0 0 >1-RECORD BLOX JUMP IF A == 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 12 [8607] 10737 0 10 12 1 0 0 SELECT 24/1/0 419 [8608] 10738 76 107 40 0 0 0 JUMP unconditional 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 10 [8610] 10739 0 10 10 1 0 0 SELECT 5/1/0 2184 [8611] 10740 2 148 46 1 0 0 'PROCR' SUBTRACT 27/0/0 427 [8612] 10741 70 107 48 0 0 0 JUMP IF A == 0 4/1/0 2184 [8613] 10742 1 148 46 1 0 0 ADD 5/1/0 2186 [8614] 10743 2 148 48 1 0 0 'TABLE' SUBTRACT 27/0/0 427 [8615] 10744 70 107 48 0 0 0 JUMP IF A == 0 4/1/0 2186 [8616] 10745 1 148 48 1 0 0 ADD 5/1/0 2188 [8617] 10746 2 148 50 1 0 0 'CONST' SUBTRACT 27/0/1 411 [8618] 10747 71 107 34 0 0 0 >GET TO FIRST PROCR START JUMP IF A != 0 6/0/0 6311 [8619] 10748 27 1 0 0 0 SELECT 27/0/0 438 [8620] 10749 70 107 52 0 0 0 >1-RECORD BLOX JUMP IF A == 0 0/1/0 40 [8621] 10750 59 10 6 0 8 0 SET MODIFICATION REGISTER FOR MERGE 0/0/3 0 [8622] 24/1/2 13 Extra code needed to address transit area no 0, section 10 24/0/2 6 [8624] 3/0/0 8178 [8625] 24/1/2 13 Extra code needed to address transit area no 0, section 10 4/1/0 5 [8627] 10751 C 10 4 2 0 0 SET MODIFICATION REGISTER FOR MERGE 2/0/0 8179 [8628] 0/1/1 40 [8629] 6/0/0 6311 [8630] 10752 27 1 0 0 0 SELECT 27/0/0 443 [8631] 10753 70 107 56 0 0 0 JUMP IF A == 0 24/0/3 8178 [8632] 10754 6 1 8 0 SELECT 6/1/0 6 [8633] 24/1/0 445 [8634] 10755 76 107 57 0 0 0 JUMP unconditional 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 10 [8636] 10756 0 10 10 1 0 0 SELECT Source: GeoffC/Q1000062 5/1/0 2198 [8637] 10757 2 148 60 1 0 0 'END ' SUBTRACT 27/0/0 576 [8638] 10758 70 109 9 0 0 0 gEND OF INTERCODE JUMP IF A == 0 4/1/0 2198 [8639] 10759 1 148 60 1 0 0 ADD 5/1/0 2184 [8640] 10760 2 148 46 1 0 0 'PROCR' SUBTRACT 27/0/0 487 [8641] 10761 70 108 12 0 0 0 gYES JUMP IF A == 0 4/1/0 2184 [8642] 10762 1 148 46 1 0 0 ADD 5/1/0 2186 [8643] 10763 2 148 48 1 0 0 'TABLE' SUBTRACT 27/0/0 486 [8644] 10764 70 108 11 0 0 0 gYES JUMP IF A == 0 4/1/0 2186 [8645] 10765 1 148 48 1 0 0 ADD 5/1/0 2188 [8646] 10766 2 148 50 1 0 0 'CONST' SUBTRACT 27/0/0 475 [8647] 10767 70 108 2 0 0 0 gYES JUMP IF A == 0 4/1/0 2188 [8648] 10768 1 148 50 1 0 0 ADD 5/1/0 2194 [8649] 10769 2 148 56 1 0 0 'DUMPS' SUBTRACT 27/0/0 567 [8650] 10770 70 109 2 0 0 0 gYES JUMP IF A == 0 4/1/0 2194 [8651] 10771 1 148 56 1 0 0 ADD 5/1/0 2196 [8652] 10772 2 148 58 1 0 0 'FILES' SUBTRACT 27/0/0 567 [8653] 10773 70 109 2 0 0 0 gYES JUMP IF A == 0 4/1/0 2196 [8654] 10774 1 148 58 1 0 0 ADD 5/1/0 2456 [8655] 10775 12 0 0 0 7551637455 'VALUE' SUBTRACT LITERAL 27/0/1 545 [8656] 10776 71 108 61 0 0 0 gNOT A DIRECTIVE JUMP IF A != 0 6/0/0 6311 [8657] 10777 27 1 0 0 0 SELECT 27/0/0 470 [8658] 10778 70 107 81 0 0 0 JUMP IF A == 0 24/0/3 8178 [8659] 10779 4 2 8 0 SELECT 6/1/0 5 [8660] 24/1/0 472 [8661] 10780 76 107 82 0 0 0 JUMP unconditional 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 7 [8663] 10781 0 10 6 2 0 0 LINE SERIAL SELECT 27/0/0 545 [8664] 10782 70 108 61 0 0 0 gDON'T COUNT JUMP IF A == 0 25/0/3 1 [8665] 10783 94 108 61 0 3 1 g(NEVER RUNS OUT) STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 545 [8666] s Start of procedure 108 at location 475 in chapter 2 [8667] [8667] 10800 PROCR 108 STORE PROCR LENGTH AT DIRECTIVE BLOCK-ISSUE 5 TRANSLATOR O/P 6/0/0 6311 [8667] 10802 27 1 0 0 0 SELECT 27/0/0 480 [8668] 10803 70 108 6 0 0 0 JUMP IF A == 0 24/0/1 8178 [8669] 10804 34 14 2 8 0 CONST TYPE 05 SET (N) IN B 0/1/2 15 [8670] 24/1/0 482 [8671] 10805 76 108 7 0 0 0 JUMP unconditional 24/1/2 13 Extra code needed to address transit area no 0, section 10 0/1/2 21 [8673] 10806 34 10 20 2 0 0 SET (N) IN B 1/1/3 0 [8674] 10807 10 0 0 0 0 SELECT LITERAL 18/1/1 4124 [8675] 10808 32 0 0 0 4- SHIFT (AB) BY QUARTETS 15/0/0 2140 [8676] 10809 36 148 2 0 0 0 BIT 1 COLLATE AND ADD 27/0/0 487 [8677] 10810 70 108 12 0 0 0 gSHORT JUMP IF A == 0 1/1/3 1 [8678] 10811 10 0 0 0 1 ;TABLE SELECT LITERAL 2/0/0 2587 [8679] 10812 5 3 45 0 0 0 WL;PROCR TRANSFER 0/0/3 2400 [8680] 10813 60 0 0 0 0 SET DECIMAL RADIX 1/1/3 1 [8681] 10814 10 0 0 0 1 SELECT LITERAL 7/0/0 3600 [8682] 10815 4 17 10 0 0 0 COUNT DIRECTIVE BLOX AUGMENT 6/0/0 3600 [8683] 10816 17 10 0 0 0 SELECT 1/1/1 153 [8684] 10817 11 0 0 0 99 ADD LITERAL 26/0/0 1829 [8685] 10818 80 142 2 0 0 0 gBIN ENTER SUBROUTINE 3/0/3 2690 [8686] 10819 3 6 0 0 3 0 COPY 25/0/3 1 [8687] 10820 94 0 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 497 [8688] 1/0/1 0 [8689] 10821 19 0 0 0 14 DIVIDE BY 20 DIVIDE LITERAL 18/1/1 4119 [8690] 13/0/0 2401 [8691] 2/1/0 2180 [8692] 10822 5 148 42 1 0 0 TRANSFER 26/1/1 2180 [8693] 10823 91 148 42 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 18/1/1 9 [8694] 10824 32 0 0 0 9 REMAINDERgA SHIFT (AB) BY QUARTETS 2/0/0 2588 [8695] 10825 5 3 46 0 0 0 WL PROCR TRANSFER 6/0/0 2587 [8696] 10826 0 3 45 0 0 0 BIT IND SELECT 24/0/1 2588 [8697] 10827 124 3 46 0 1 0 MODIFY ADDRESS OF NEXT 18/0/3 0 [8698] 10828 31 0 0 0 0 ///// SHIFT (A) BY BITS 7/0/1 2537 [8699] 10829 4 3 5- 0 1 0 LIST IN 3/0-44 AUGMENT 6/0/0 6312 [8700] 10830 27 2 0 0 0 SELECT 27/0/1 545 [8701] 10831 71 108 61 0 0 0 gPSEUDO-ISSUE 5 JUMP IF A != 0 Source: GeoffC/Q1000063 6/0/0 2592 [8702] 10832 4 2 0 0 0 PROG ID;TEST DUMMY CLEO MOD SELECT 0/0/2 2594 [8703] 10833 34 4 4 0 0 0 PROG SERIAL SET (N) IN B 27/1/0 545 [8704] 10834 74 108 61 0 0 0 gSKIP BUILDING UP SEC 53 FROM LINE SERIA JUMP IF AB == 0 // 27, 1, 0 6/0/0 6311 [8705] 10835 27 1 0 0 0 SELECT 27/0/0 518 [8706] 10836 70 108 39 0 0 0 JUMP IF A == 0 24/0/3 8178 [8707] 10837 4 2 8 0 SELECT 6/1/0 5 [8708] 24/1/0 520 [8709] 10838 76 108 40 0 0 0 JUMP unconditional 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 7 [8711] 10839 0 10 6 2 0 0 LINE SERIAL SELECT 18/0/1 4126 [8712] 10840 30 0 0 0 2- SHIFT (A) BY QUARTETS 26/0/0 1829 [8713] 10841 80 142 2 0 0 0 gBIN(NEW PROG) ENTER SUBROUTINE 2/0/0 1835 [8714] 10842 5 143 2 0 0 0 WL TRANSFER 6/0/0 6311 [8715] 10843 27 1 0 0 0 SELECT 27/0/0 528 [8716] 10844 70 108 47 0 0 0 JUMP IF A == 0 24/0/3 8178 [8717] 10845 10 2 8 0 SELECT 6/1/0 11 [8718] 24/1/0 530 [8719] 10846 76 108 48 0 0 0 JUMP unconditional 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 17 [8721] 10847 0 10 16 2 0 0 OLD PROG SELECT 18/0/1 4126 [8722] 10848 30 0 0 0 2- SHIFT (A) BY QUARTETS 27/0/0 545 [8723] 10849 70 108 61 0 0 0 gDON'T COUNT JUMP IF A == 0 26/0/0 1829 [8724] 10850 80 142 2 0 0 0 gBIN(NEW PROG) ENTER SUBROUTINE 18/1/3 3 [8725] 10851 33 0 0 0 1- HALVE SHIFT (AB) BY BITS 18/1/1 4127 [8726] 24/0/3 22 [8727] 10852 92 0 0 2 0 (CLEARS A) SET MODIFIER AT VARIABLE 2/0/0 4 [8728] 27/1/0 542 [8729] 10853 74 108 58 0 0 0 gEVEN JUMP IF AB == 0 // 27, 1, 0 0/0/2 2206 [8730] 10854 34 148 68 0 0 0 BITS 1-10 SET (N) IN B 6/0/0 1835 [8731] 10855 143 2 0 0 0 SELECT 18/1/3 10 [8732] 10856 33 0 0 0 10 SHIFT (AB) BY BITS 24/1/0 544 [8733] 10857 76 108 60 0 0 0 JUMP unconditional 0/0/2 2206 [8734] 10858 34 148 68 0 0 0 SET (N) IN B 6/0/0 1835 [8735] 10859 143 2 0 0 0 SELECT 14/0/2 5500 [8736] 10860 37 53 50- 0 2 0 REPLACE SELECTED BITS 6/0/0 6311 [8737] 10861 27 1 0 0 0 SELECT 27/0/0 565 [8738] 10862 70 108 71 0 0 0 g1-RECORD BLOCKS JUMP IF A == 0 24/0/3 8178 [8739] 10863 0 2 8 0 CURRENT RECORD LENGTH SELECT 6/1/0 1 [8740] 2/0/0 1754 [8741] 10864 5 137 2 0 0 0 TRANSFER 24/0/1 1754 [8742] 10865 97 137 2 0 8 0 STEP ON AND TEST MODIFICATION REGISTER (VARIABLE) 23/0/0 0 [8743] 10866 C 107 52 0 0 0 gNOT EMPTY STEP ON AND TEST MODIFICATION REGISTER (VARIABLE) 0/0/1 8178 [8744] 24/1/0 438 [8745] s 26/0/0 1754 [8746] 10867 80 137 2 0 0 0 gREAD A1 ENTER SUBROUTINE 0/1/0 40 [8747] 10868 59 10 6 0 8 0 SET MODIFICATION REGISTER FOR MERGE 0/0/3 0 [8748] 24/1/2 13 Extra code needed to address transit area no 0, section 10 24/0/2 6 [8750] 3/0/0 8178 [8751] 24/1/2 13 Extra code needed to address transit area no 0, section 10 4/1/0 5 [8753] 10869 C 10 4 2 0 0 SET MODIFICATION REGISTER FOR MERGE 2/0/0 8179 [8754] 0/1/1 40 [8755] 24/1/0 438 [8756] 10870 76 107 52 0 0 0 JUMP unconditional 26/0/0 1754 [8757] 10871 80 137 2 0 0 0 gREAD A1 ENTER SUBROUTINE 24/1/0 438 [8758] 10872 76 107 52 0 0 0 JUMP unconditional Start of procedure 109 at location 567 in chapter 2 [8759] [8759] 10900 PROCR 109 DEAL WITH DUMPS/FILES/END-STORE B/FWD OLD/NEW PROCR INDEX-ISSUE 5 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 7 [8760] 10902 0 10 6 2 0 0 SELECT 2/0/0 2587 [8761] 10903 5 3 45 0 0 0 STORE 5-DIGIT SERIAL FIRST LINE TRANSFER 26/0/0 1754 [8762] 10904 80 137 2 0 0 0 gREAD MT ENTER SUBROUTINE 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 10 [8764] 10905 0 10 10 1 0 0 SELECT 5/1/0 2198 [8765] 10906 2 148 60 1 0 0 'END ' SUBTRACT 27/0/1 570 [8766] 10907 71 109 4 0 0 0 JUMP IF A != 0 24/1/0 584 [8767] 10908 76 109 15 0 0 0 ;END JUMP unconditional 6/0/0 6311 [8768] 10909 27 1 0 0 0 SELECT 27/0/0 581 [8769] 10910 70 109 13 0 0 0 gSINGLE-RECORD BLOX JUMP IF A == 0 24/0/3 8178 [8770] 10911 4 2 8 0 LINE SERIAL SELECT 6/1/0 5 [8771] 24/1/0 583 [8772] 10912 76 109 14 0 0 0 JUMP unconditional Source: RayS/Q1000064 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 7 [8774] 10913 0 10 6 2 0 0 SELECT 2/0/0 2587 [8775] 10914 5 3 45 0 0 0 STORE HIGHEST LINE SERIAL TRANSFER 6/0/0 2587 [8776] 10915 3 45 0 0 0 SELECT 27/0/1 591 [8777] 10916 71 109 22 0 0 0 JUMP IF A != 0 0/0/3 2402 [8778] 10917 60 0 0 0 0 SET DECIMAL RADIX 6/0/0 3600 [8779] 10918 0 17 10 0 0 0 DIRECTIVE CTR SELECT 1/1/1 256 [8780] 10919 11 0 0 0 100 ADD LITERAL 18/0/1 2 [8781] 10920 30 0 0 0 2 SHIFT (A) BY QUARTETS 3/0/0 2587 [8782] 10921 3 3 45 0 0 0 COPY 2/0/0 3611 [8783] 10922 5 17 21 0 0 0 TRANSFER 0/0/3 2403 [8784] 10923 60 0 0 0 0 HIGHEST EFFECTIVE LINE SERIAL SET DECIMAL RADIX 1/0/1 3 [8785] 10924 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 15/0/0 2587 [8786] 10925 36 3 45 0 0 0 LINE SERIAL OF DUMPS/FILES/END COLLATE AND ADD 27/0/0 597 [8787] 10926 70 109 28 0 0 0 gA PROCR-SHAPED LINE JUMP IF A == 0 1/1/3 256 [8788] 10927 10 0 0 0 100 STEP PROCR SELECT LITERAL 4/0/0 2587 [8789] 10928 1 3 45 0 0 0 ADD 18/0/1 4126 [8790] 10929 30 0 0 0 2- SHIFT (A) BY QUARTETS 26/0/0 1829 [8791] 10930 80 142 2 0 0 0 gTO BIN ENTER SUBROUTINE 2/0/0 2587 [8792] 10931 5 3 45 0 0 0 (HIGHEST B/FWD PROCR+1) IN BINARY TRANSFER 6/0/0 3600 [8793] 10932 17 10 0 0 0 DIRECTIVE CTR SELECT 1/1/1 256 [8794] 10933 11 0 0 0 100 ADD LITERAL 26/0/0 1829 [8795] 10934 80 142 2 0 0 0 gBIN ENTER SUBROUTINE 2/0/0 5495 [8796] 10935 5 94 45 0 0 0 PROVIS(MAX C/FWD PROCR)+1 TRANSFER 6/0/0 6312 [8797] 10936 27 2 0 0 0 SELECT 27/0/1 684 [8798] 10937 71 110 27 0 0 0 gPEUDO-ISSUE 5 O/P JUMP IF A != 0 26/1/3 2458 [8799] 10938 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [8800] 10939 C 0 0 0 900 Limit 26/1/2 2460 [8800] 10940 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [8801] 10941 C 0 0 0 2 TRICK SETTING Limit 26/0/0 1776 [8801] 10942 80 139 2 0 0 0 gGET NEXT LOCN ENTER SUBROUTINE 6/0/0 2592 [8802] 10943 4 2 0 0 0 PROG ID SELECT 0/0/2 2594 [8803] 10944 34 4 4 0 0 0 PROG SERIAL SET (N) IN B 27/1/1 620 [8804] 10945 75 109 51 0 0 0 gBY PASS,EXCEPT PROG'00000' JUMP IF AB != 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/2 5 [8806] 10946 0 10 4 2 2 0 SELECT 18/1/3 2 [8807] 10947 33 0 0 0 10- SHIFT (AB) BY BITS 18/1/1 4125 [8808] 2/0/3 2691 [8809] 10948 5 6 1 0 3 0 TRANSFER 18/1/3 10 [8810] 10949 33 0 0 0 10 SHIFT (AB) BY BITS 2/0/3 2690 [8811] 10950 5 6 0 0 3 0 TRANSFER 25/0/3 2 [8812] 10951 94 109 42 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 609 [8813] s 6/0/0 2592 [8814] 10952 4 2 0 0 0 SELECT 0/0/2 2594 [8815] 10953 34 4 4 0 0 0 SET (N) IN B 27/1/1 628 [8816] 10954 75 109 58 0 0 0 gNOT PROGM'00000' JUMP IF AB != 0 1/1/3 1 [8817] 10955 10 0 0 0 1 SELECT LITERAL 2/0/0 6312 [8818] 10956 5 27 2 0 0 0 SET PSEUDO ISSUE 5 TRANSFER 24/1/0 684 [8819] 10957 76 110 27 0 0 0 JUMP unconditional 6/0/0 3600 [8820] 10958 17 10 0 0 0 COUNTER OF DIRECTIVE BLOX SELECT 1/1/2 1280 [8821] 10959 12 0 0 0 500 SUBTRACT LITERAL 27/0/3 654 [8822] 10960 73 110 2 0 0 0 gOK JUMP IF A < 0 0/1/0 40 [8823] 10961 41 A1 0 0 0 1 CLOSE FILE 0/0/3 0 [8824] 6/1/0 0 [8825] 1/1/1 27 [8826] 25/1/1 4096 [8827] 24/0/3 0 [8828] 23/0/2 41 [8829] 0/1/1 40 [8830] 0/1/0 40 [8831] 10962 45 A6 0 0 0 1 REWIND 0/0/3 0 [8832] 6/1/0 0 [8833] 1/1/1 45 [8834] 25/1/1 4096 [8835] 24/0/3 0 [8836] 23/0/2 45 [8837] 0/1/1 40 [8838] 1/1/3 9 [8839] 10963 150 0 0 0 9 OFFER OPTIONS 0/0/2 2404 [8840] 25/1/1 4096 [8841] 24/0/3 0 [8842] 26/0/2 1 [8843] 0/0/1 1751 [8844] s 10964 C 136 61 0 0 0 gUNLOAD 0/0/1 368 [8845] s 10965 C 107 11 0 0 0 gREENTER Start of procedure 110 at location 654 in chapter 2 [8846] [8846] 11000 PROCR 110 STORE B/FWD ADJUST DETAILS+UNIQUE REFS I/P TAPE-ISSUE 5 26/1/1 2462 [8846] 11002 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8847] 11003 C 0 0 0 460 (FOR ADJUST DETAILS) Limit 26/1/3 2464 [8847] 11004 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [8848] 11005 C 0 0 0 160 FOR STORING Limit Source: RayS/Q1000065 26/0/0 1776 [8848] 11006 80 139 2 0 0 0 gGET ITEM ENTER SUBROUTINE 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/2 5 [8850] 11007 0 10 4 2 2 0 SELECT 2/0/1 5804 [8851] 11008 5 54 0 0 1 0 TRANSFER 25/0/1 1 [8852] 11009 94 0 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 662 [8853] 25/0/3 1 [8854] 11010 94 110 6 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 656 [8855] s 26/0/0 1776 [8856] 11011 80 139 2 0 0 0 gGET ENTER SUBROUTINE 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/2 5 [8858] 11012 10 4 2 2 0 SELECT 27/0/1 631 [8859] 11013 71 109 61 0 0 0 gALARM 7, TOO MANY ADJUST DETAILS JUMP IF A != 0 25/0/1 1 [8860] 11014 94 110 11 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 664 [8861] s 26/1/3 2466 [8862] 11015 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [8863] 11016 C 0 0 0 50 Limit 26/1/1 2468 [8863] 11017 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8864] 11018 C 0 0 0 100 (FOR UNIQUE REFS) Limit 26/0/0 1776 [8864] 11019 80 139 2 0 0 0 gGET ENTER SUBROUTINE 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/2 5 [8866] 11020 0 10 4 2 2 0 SELECT 2/0/1 5964 [8867] 11021 5 55 0 0 1 0 TRANSFER 25/0/1 1 [8868] 11022 94 0 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 678 [8869] 25/0/3 1 [8870] 11023 94 110 19 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 672 [8871] s 26/0/0 1776 [8872] 11024 80 139 2 0 0 0 gGET ENTER SUBROUTINE 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/2 5 [8874] 11025 0 10 4 2 2 0 SELECT 27/0/1 631 [8875] 11026 71 109 61 0 0 0 gALARM 7, TOO MANY UNIQUE REFS JUMP IF A != 0 0/1/0 40 [8876] 11027 46 A1 8 0 0 1 RUN BACK 0/0/3 0 [8877] 0/1/2 2470 [8878] 11028 C 0 0 0 ppppp RUN BACK 6/1/0 0 [8879] 1/1/1 27 [8880] 25/1/1 4096 [8881] 24/0/3 0 [8882] 23/0/2 46 [8883] 0/1/1 40 [8884] 26/0/0 1754 [8885] 11029 80 137 2 0 0 0 gREAD ENTER SUBROUTINE 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 6 [8887] 11030 0 10 6 1 0 0 SELECT 5/1/0 2200 [8888] 11031 2 148 62 1 0 0 INDEX' SUBTRACT 27/0/0 715 [8889] 11032 70 110 41 0 0 0 gREAD FWD TO 'PASS 1' JUMP IF A == 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 5 [8891] 11033 0 10 4 2 0 0 SELECT 5/0/0 2592 [8892] 11034 2 4 2 0 0 0 PROG IDENTITY SUBTRACT 27/0/1 706 [8893] 11035 71 110 39 0 0 0 gMISALIGNED JUMP IF A != 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 7 [8895] 11036 0 10 6 2 0 0 SELECT 5/0/0 2594 [8896] 11037 2 4 4 0 0 0 SERIAL SUBTRACT 27/0/0 745 [8897] 11038 70 111 23 0 0 0 gOK JUMP IF A == 0 0/1/0 40 [8898] 11039 45 A1 0 0 0 1 REWIND 0/0/3 0 [8899] 6/1/0 0 [8900] 1/1/1 27 [8901] 25/1/1 4096 [8902] 24/0/3 0 [8903] 23/0/2 45 [8904] 0/1/1 40 [8905] 26/0/0 1765 [8906] 11040 80 138 2 0 0 0 gOPEN A1 ENTER SUBROUTINE 26/0/0 1670 [8907] 11041 80 136 2 0 0 0 gAPPROACH FROM START OF TAPE ENTER SUBROUTINE 24/1/0 745 [8908] 11042 76 111 23 0 0 0 JUMP unconditional Start of procedure 111 at location 717 in chapter 2 [8909] [8909] 11100 PROCR 111 DEAL WITH I/P TAPE EX ISSUE 6-AMEND RUN 26/1/1 2472 [8909] 11102 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8910] 11103 C 0 0 0 46 Limit 26/0/0 1754 [8910] 11104 80 137 2 0 0 0 READ MT ENTER SUBROUTINE 24/1/2 13 Extra code needed to address transit area no 0, section 10 24/0/2 5 [8912] 11105 55 10 4 2 0 46 BULK COPY 18/1/0 4123 [8913] 11106 C 3 0 0 1 0 INDEX 3/0-45 1/1/3 46 [8914] 18/1/1 5 [8915] 24/0/0 23 [8916] 28/1/0 2542 [8917] 25/0/1 23 [8918] 11107 94 111 4 0 1 23 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 718 [8919] s 6/0/0 2587 [8920] 11108 3 45 0 0 0 SELECT 26/0/0 1835 [8921] 11109 80 143 2 0 0 0 gDEC ENTER SUBROUTINE 18/0/1 2 [8922] 11110 30 0 0 0 2 SHIFT (A) BY QUARTETS 2/0/0 3611 [8923] 11111 5 17 21 0 0 0 HIGHEST EFFECTIVE LINE SERIAL TRANSFER 0/0/3 0 [8924] 11112 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 2587 [8925] 11113 3 45 0 0 0 (HIGHEST B/FWD PROCR+1) IN BINARY SELECT 18/0/1 5 [8926] 11114 30 0 0 0 5 SHIFT (A) BY QUARTETS 1/1/1 100 [8927] 11115 101 100 1 1 0 CREATE B/FWD OLD-NEW PROCR INDEX ADD LITERAL ADDRESS 3/1/0 40 [8928] 11116 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [8929] 1/1/3 100 [8930] 11117 101 100 1 3 0 SELECT LITERAL ADDRESS 3/0/1 2590 [8931] 11118 3 6 100- 0 1 0 STORE ONE-FOR-ONE COPY 1/1/1 1 [8932] 11119 11 0 0 0 1 ADD LITERAL 25/0/1 1 [8933] 11120 94 111 18 0 1 1 MAX B/FWD PROCR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 739 [8934] s Source: RayS/Q1000066 6/0/0 2587 [8935] 11121 3 45 0 0 0 =PROVIS MAX C/FWD PROCR SELECT 2/0/0 5495 [8936] 11122 5 94 45 0 0 0 TRANSFER 24/0/2 2238 [8937] 11123 52 18 0 0 0 0 EDIT 24/0/3 0 Extra code needed to address 5664 from 8938 (different chapter) 28/1/2 5664 [8939] 11124 C 149 2 0 0 0 0/1/0 40 [8940] 11125 154 18 0 0 0 0 TYPE 'AMEND' COMMENT COMMENT IN LOG 0/0/3 0 [8941] 24/0/3 0 Extra code needed to address 5664 from 8942 (different chapter) 24/0/2 5664 [8943] 24/0/3 0 [8944] 23/0/2 154 [8945] 0/1/1 40 [8946] Start of procedure 112 at location 755 in chapter 2 [8947] [8947] 11200 PROCR 112 READ/WRITE MODS UP TO FIRST DIRECTIVE 26/0/0 1425 [8947] 11202 80 127 2 0 0 0 gREAD/TEST PT ENTER SUBROUTINE 27/0/0 759 [8948] 11203 70 112 6 0 0 0 gYES JUMP IF A == 0 26/0/0 1497 [8949] 11204 80 131 2 0 0 0 gWRITE ENTER SUBROUTINE 24/1/0 755 [8950] 11205 76 112 2 0 0 0 JUMP unconditional 6/0/0 2405 [8951] 11206 10 0 0 0 9999 SELECT LITERAL 3/0/0 3600 [8952] 11207 3 17 10 0 0 0 SET FOR SEQUENCE CHECKS COPY 2/0/0 3604 [8953] 11208 5 17 14 0 0 0 TRANSFER 6/0/0 2593 [8954] 11209 0 4 3 0 0 0 LINE SERIAL SELECT 18/0/1 4125 [8955] 11210 30 0 0 0 3- SHIFT (A) BY QUARTETS 1/1/2 91 [8956] 11211 12 0 0 0 5e * SUBTRACT LITERAL 27/0/0 757 [8957] 11212 70 112 4 0 0 0 gMOD TO SECTIONS JUMP IF A == 0 6/1/0 3618 [8958] 11213 17 28 1 0 0 PROG + SERIAL SELECT 27/0/1 787 [8959] 11214 71 113 16 0 0 0 gNORMAL JUMP IF A != 0 1/1/3 1 [8960] 11215 10 0 0 0 1 PROGM 00000 SELECT LITERAL 2/1/0 3606 [8961] 11216 5 17 16 1 0 0 SET PASS 0 DOESN'T LIKE IT TRANSFER 26/0/0 1535 [8962] 11217 80 133 2 0 0 0 gCOPY ENTER SUBROUTINE 24/1/0 768 [8963] 11218 76 112 15 0 0 0 gIGNORE ALL MODS JUMP unconditional Start of procedure 113 at location 772 in chapter 2 [8964] [8964] 11300 PROCR 113 MAIN LOOP 26/0/0 1809 [8964] 11302 80 141 2 0 0 0 gREAD ENTER SUBROUTINE 27/0/0 1265 [8965] 11303 70 124 2 0 0 0 gPT END JUMP IF A == 0 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [8967] 11304 0 5 0 1 0 0 SELECT 5/1/0 2210 [8968] 11305 2 148 72 1 0 0 TRAMD' SUBTRACT 27/0/1 784 [8969] 11306 71 113 13 0 0 0 gNO JUMP IF A != 0 1/1/3 1 [8970] 11307 10 0 0 0 1 SELECT LITERAL 2/0/0 6321 [8971] 11308 5 27 11 0 0 0 SET IND THAT TRAMDING TRANSFER 26/0/0 1497 [8972] 11309 80 131 2 0 0 0 gWRITE ENTER SUBROUTINE 26/0/0 1809 [8973] 11310 80 141 2 0 0 0 gREAD ENTER SUBROUTINE 27/0/1 780 [8974] 11311 71 113 9 0 0 0 gNOT PT END JUMP IF A != 0 24/1/0 1265 [8975] 11312 76 124 2 0 0 0 JUMP unconditional 26/0/0 1519 [8976] 11313 80 132 2 0 0 0 gUNPACK ENTER SUBROUTINE 26/0/0 1454 [8977] 11314 80 129 2 0 0 0 gSTORE SWITCH, TEST DIRECTIVE ENTER SUBROUTINE 27/0/1 1075 [8978] 11315 71 120 2 0 0 0 JUMP IF A != 0 0/0/3 2406 [8979] 11316 60 0 0 0 0 SET DECIMAL RADIX 6/0/0 3600 [8980] 11317 17 10 0 0 0 CHECK SEQUENCE AT NEW DIRECTIVE SELECT 5/1/0 2593 [8981] 11318 2 4 2 2 0 0 SUBTRACT 27/0/3 795 [8982] 11319 73 113 24 0 0 0 gOK JUMP IF A < 0 27/0/1 1145 [8983] 11320 71 121 44 0 0 0 gREJECT, READ/COPY TO NEXT DIRECTIVE JUMP IF A != 0 6/0/0 3602 [8984] 11321 0 17 12 0 0 0 SELECT 1/1/2 3 [8985] 11322 12 0 0 0 3 SUBTRACT LITERAL 27/0/1 1145 [8986] 11323 71 121 44 0 0 0 gPREVIOUS NOT 'T' H53, IGNORE THIS JUMP IF A != 0 6/0/0 3611 [8987] 11324 17 21 0 0 0 MAX B/FWD LINE SERIAL SELECT 5/1/0 2593 [8988] 11325 2 4 2 2 0 0 THIS LINE SERIAL SUBTRACT 27/0/2 802 [8989] 11326 72 113 31 0 0 0 gNORMAL JUMP IF A >= 0 1/1/3 1 [8990] 11327 10 0 0 0 1 SELECT LITERAL Source: GeoffC/Q1000067 2/1/0 3606 [8991] 11328 5 17 16 1 0 0 SET 'PASS 0 DOESNT LIKE IT' TRANSFER 26/0/0 1535 [8992] 11329 80 133 2 0 0 0 gWRITE A6 ENTER SUBROUTINE 24/1/0 798 [8993] 11330 76 113 27 0 0 0 JUMP unconditional 27/0/1 807 [8994] 11331 71 113 36 0 0 0 gOK JUMP IF A != 0 6/0/0 8175 [8995] 11332 86 129 2 0 0 0 SELECT SWITCH R 1/1/2 3 [8996] 11333 12 0 0 0 3 SUBTRACT LITERAL 27/0/1 798 [8997] 11334 71 113 27 0 0 0 gMOD AT END IS NOT 'INSERT' JUMP IF A != 0 24/1/0 1049 [8998] 11335 76 119 7 0 0 0 gINSERTING AT END SIGN JUMP unconditional 6/1/0 2593 [8999] 11336 4 2 2 0 0 SELECT 18/0/1 4126 [9000] 11337 30 0 0 0 2- SHIFT (A) BY QUARTETS 26/0/0 1829 [9001] 11338 80 142 2 0 0 0 BIN TEST IF VALUE ENTER SUBROUTINE 2/0/0 1835 [9002] 11339 5 143 2 0 0 0 ;DIRECTIVE? TRANSFER 24/0/1 1835 [9003] 11340 124 143 2 0 1 0 EQUIV OF CURRENT PROCR MODIFY ADDRESS OF NEXT 6/0/0 2590 [9004] 11341 6 100- 0 0 0 SELECT 27/0/0 1145 [9005] 11342 70 121 44 0 0 0 gREJECT.READ/COPY TO NEXT DIRECTIVE JUMP IF A == 0 24/0/1 8175 [9006] 11343 85 129 2 0 0 0 SWITCH R 26/0/1 815 [9007] 0/0/1 991 [9008] 11344 C 118 2 0 0 0 R 0/0/1 820 [9009] 11345 C 114 2 0 0 0 D 0/0/1 1044 [9010] 11346 C 119 2 0 0 0 T 0/0/1 1019 [9011] 11347 C 118 30 0 0 0 A Start of procedure 114 at location 820 in chapter 2 [9012] [9012] 11400 PROCR 114 26/0/0 1477 [9012] 11402 80 130 2 0 0 0 gFIND 'PROCR 'LENGTH' ENTER SUBROUTINE 2/0/0 3590 [9013] 11403 5 17 0 0 0 0 0=SHORT, 1=LONG TRANSFER 1/0/1 3 [9014] 11404 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 15/1/0 2593 [9015] 11405 36 4 2 2 0 0 COLLATE AND ADD 1/1/2 1 [9016] 11406 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 830 [9017] 11407 70 114 12 0 0 0 gDELETION BEGINS AT'NOTES' JUMP IF A == 0 1/1/3 0 [9018] 11408 10 0 0 0 0 SELECT LITERAL 0/0/2 3590 [9019] 11409 34 17 0 0 0 0 SET (N) IN B 15/1/0 2593 [9020] 11410 36 4 2 2 0 0 LINE SERIAL COLLATE AND ADD 27/0/1 1145 [9021] 11411 71 121 44 0 0 0 gUNACCEPTABLE MOD JUMP IF A != 0 6/1/0 2593 [9022] 11412 0 4 2 2 0 0 SELECT 3/0/0 3604 [9023] 11413 3 17 14 0 0 0 COPY 18/0/1 8 [9024] 11414 30 0 0 0 8 SHIFT (A) BY QUARTETS 27/0/0 837 [9025] 11415 70 114 19 0 0 0 gDELETING PROCR JUMP IF A == 0 6/0/0 3593 [9026] 11416 17 3 0 0 0 CTR OF ADJUST DETAILS SELECT 1/1/2 460 [9027] 11417 101 460 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 1145 [9028] 11418 70 121 44 0 0 0 gLIST FULL.COPY TO NEXT DIRECTIVE JUMP IF A == 0 26/0/0 1497 [9029] 11419 80 131 2 0 0 0 gWRITE A6 ENTER SUBROUTINE 26/0/0 1809 [9030] 11420 80 141 2 0 0 0 gREAD ENTER SUBROUTINE 27/0/0 847 [9031] 11421 70 115 2 0 0 0 gPT AT END. SINGLE LINE DELETE JUMP IF A == 0 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [9033] 11422 5 0 1 0 0 SELECT 5/1/0 2210 [9034] 11423 2 148 72 1 0 0 'TRAMD' SUBTRACT 27/0/0 847 [9035] 11424 70 115 2 0 0 0 JUMP IF A == 0 26/0/0 1519 [9036] 11425 80 132 2 0 0 0 gUNPACK ENTER SUBROUTINE 26/0/0 1454 [9037] 11426 80 129 2 0 0 0 gTEST DIRECTIVE ENTER SUBROUTINE 27/0/1 882 [9038] 11427 71 116 2 0 0 0 gNO, HENCE MULTIPLE DELETE JUMP IF A != 0 Start of procedure 115 at location 847 in chapter 2 [9039] [9039] 11500 PROCR 115 DEAL WITH SINGLE LINE DELETION 6/0/0 3604 [9039] 11502 0 17 14 0 0 0 SELECT 3/0/0 3600 [9040] 11503 3 17 10 0 0 0 FOR SEQUENCE CHECKS COPY 18/0/1 8 [9041] 11504 30 0 0 0 8 SHIFT (A) BY QUARTETS 27/0/1 853 [9042] 11505 71 115 8 0 0 0 gNOT DELETING 'PROCR' JUMP IF A != 0 6/0/0 3604 [9043] 11506 17 14 0 0 0 SELECT 24/1/0 899 [9044] 11507 76 116 19 0 0 0 gJOIN UP WITH MULTIPLE DELETION JUMP unconditional 18/0/1 4120 [9045] 11508 30 0 0 0 8- SHIFT (A) BY QUARTETS 1/1/2 1 [9046] 11509 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 871 [9047] 11510 70 115 26 0 0 0 gDELETING 'NOTES'ONLY JUMP IF A == 0 Source: GeoffC/Q1000068 1/1/3 0 [9048] 11511 10 0 0 0 0 SELECT LITERAL 5/0/0 3590 [9049] 11512 2 17 0 0 0 0 SUBTRACT 1/1/2 1 [9050] 11513 12 0 0 0 1 SUBTRACT LITERAL 2/0/0 3605 [9051] 11514 5 17 15 0 0 0 TRANSFER 6/0/0 3604 [9052] 11515 17 14 0 0 0 SELECT 18/1/1 4126 [9053] 11516 32 0 0 0 2- SHIFT (AB) BY QUARTETS 2/0/0 3609 [9054] 11517 5 17 19 0 0 0 PROCR TRANSFER 6/0/0 3604 [9055] 11518 17 14 0 0 0 SELECT 5/0/0 3605 [9056] 11519 2 17 15 0 0 0 -(NEGATIVE ADJUST DETAILS) SUBTRACT 2/0/0 3604 [9057] 11520 5 17 14 0 0 0 TRANSFER 6/0/0 3604 [9058] 11521 17 14 0 0 0 LINE SERIAL+ADJUST DETAIL SELECT 18/1/1 4126 [9059] 11522 32 0 0 0 2- SHIFT (AB) BY QUARTETS 5/0/0 3609 [9060] 11523 2 17 19 0 0 0 SUBTRACT 27/0/1 871 [9061] 11524 71 115 26 0 0 0 CARRY INTO NEXT PROCR.DON'T STORE JUMP IF A != 0 26/0/0 1782 [9062] 11525 80 140 2 0 0 0 gSTORE ADJUSTMENT ENTER SUBROUTINE 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [9064] 11526 0 5 0 1 0 0 SELECT 18/0/1 4124 [9065] 11527 30 0 0 0 4- SHIFT (A) BY QUARTETS 18/0/1 4 [9066] 11528 30 0 0 0 4 SHIFT (A) BY QUARTETS 5/1/0 2198 [9067] 11529 2 148 60 1 0 0 'END' SUBTRACT 27/0/0 1265 [9068] 11530 70 124 2 0 0 0 gPT AT END JUMP IF A == 0 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [9070] 11531 5 0 1 0 0 SELECT 5/1/0 2210 [9071] 11532 2 148 72 1 0 0 'TRAMD' SUBTRACT 27/0/0 778 [9072] 11533 70 113 7 0 0 0 JUMP IF A == 0 24/1/0 787 [9073] 11534 76 113 16 0 0 0 gTEST NEW DIRECTIVE IN SEQUENCE JUMP unconditional Start of procedure 116 at location 882 in chapter 2 [9074] [9074] 11600 PROCR 116 DEAL WITH MULTIPLE DELETION 6/1/0 2593 [9074] 11602 4 2 2 0 0 SELECT 18/0/1 4126 [9075] 11603 30 0 0 0 2- ;TEST IF DIRECTIVE SHIFT (A) BY QUARTETS 26/0/0 1829 [9076] 11604 80 142 2 0 0 0 gBIN;IS VALUE SERIAL? ENTER SUBROUTINE 2/0/0 1835 [9077] 11605 5 143 2 0 0 0 TRANSFER 24/0/1 1835 [9078] 11606 124 143 2 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 2590 [9079] 11607 6 100- 0 0 0 SELECT 27/0/0 1145 [9080] 11608 70 121 44 0 0 0 gATTEMPTING TO DELETE 'VALUE' REJECT JUMP IF A == 0 26/0/0 1477 [9081] 11609 80 130 2 0 0 0 gFIND PROCR 'LENGTH' ENTER SUBROUTINE 2/0/0 3590 [9082] 11610 5 17 0 0 0 0 TRANSFER 0/0/2 3590 [9083] 11611 34 17 0 0 0 0 SET (N) IN B 15/1/0 2593 [9084] 11612 36 4 2 2 0 0 LINE SERIAL 'TO' COLLATE AND ADD 27/0/1 1145 [9085] 11613 71 121 44 0 0 0 gREJECT AMENDMENT JUMP IF A != 0 6/0/0 3604 [9086] 11614 0 17 14 0 0 0 'FROM' SELECT 5/1/0 2593 [9087] 11615 2 4 2 2 0 0 'TO' SUBTRACT 27/0/2 1145 [9088] 11616 72 121 44 0 0 0 gREJECT.OUT OF SEQUENCE JUMP IF A >= 0 6/1/0 2593 [9089] 11617 4 2 2 0 0 'TO'PROCR SELECT 3/0/0 3600 [9090] 11618 3 17 10 0 0 0 FOR SEQUENCE CHECKS COPY 18/1/1 4126 [9091] 11619 32 0 0 0 2- SHIFT (AB) BY QUARTETS 2/0/0 3605 [9092] 11620 5 17 15 0 0 0 3-DIGIT'TO' TRANSFER 6/0/0 3604 [9093] 11621 17 14 0 0 0 'FROM'PROCR SELECT 18/1/1 4126 [9094] 11622 32 0 0 0 2- 'TO'PROCR SHIFT (AB) BY QUARTETS 3/0/0 3609 [9095] 11623 3 17 19 0 0 0 '3-DIGIT'FROM' COPY 5/0/0 3605 [9096] 11624 2 17 15 0 0 0 SUBTRACT 27/0/0 910 [9097] 11625 70 116 30 0 0 0 gDELETIONS IN SAME PROCR JUMP IF A == 0 6/0/0 3604 [9098] 11626 17 14 0 0 0 'FROM'SERIAL SELECT 18/0/1 8 [9099] 11627 30 0 0 0 8 SHIFT (A) BY QUARTETS 27/0/0 932 [9100] 11628 70 117 2 0 0 0 gOK.ALLOW DELETION JUMP IF A == 0 24/1/0 1145 [9101] 11629 76 121 44 0 0 0 gREJECT JUMP unconditional 18/1/1 2 [9102] 11630 32 0 0 0 2 SHIFT (AB) BY QUARTETS 27/0/0 932 [9103] 11631 70 117 2 0 0 0 g'FROM' PROCR DELETED ONLY JUMP IF A == 0 6/0/0 3604 [9104] 11632 0 17 14 0 0 0 SELECT 18/0/1 8 [9105] 11633 30 0 0 0 8 SHIFT (A) BY QUARTETS Source: GeoffC/Q1000069 18/0/1 4120 [9106] 11634 30 0 0 0 8- SHIFT (A) BY QUARTETS 1/1/2 1 [9107] 11635 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 1145 [9108] 11636 70 121 44 0 0 0 gMULTIPLE DELETION BEGINS AT'NOTES.REJE JUMP IF A == 0 6/0/0 3604 [9109] 11637 17 14 0 0 0 'FROM'SERIAL SELECT 5/1/0 2593 [9110] 11638 2 4 2 2 0 0 'TO'SERIAL SUBTRACT 5/0/0 3590 [9111] 11639 2 17 0 0 0 0 LENGTH SUBTRACT 1/1/2 1 [9112] 11640 12 0 0 0 1 SUBTRACT LITERAL 2/0/0 3605 [9113] 11641 5 17 15 0 0 0 (NEGATIVE ADJUST DETAIL) TRANSFER 6/0/0 3604 [9114] 11642 17 14 0 0 0 SELECT 5/0/0 3605 [9115] 11643 2 17 15 0 0 0 -(NEGATIVE ADJUST DETAIL) SUBTRACT 2/0/0 3604 [9116] 11644 5 17 14 0 0 0 TRANSFER 6/0/0 3604 [9117] 11645 17 14 0 0 0 LINE SERIAL+ADJUSTMENT SELECT 18/0/1 4126 [9118] 11646 30 0 0 0 2- SHIFT (A) BY QUARTETS 5/0/0 3609 [9119] 11647 2 17 19 0 0 0 PREVIOUS PROCR SUBTRACT 27/0/1 930 [9120] 11648 71 116 50 0 0 0 gCARRY INTO PROCR.DON'T STORE JUMP IF A != 0 26/0/0 1782 [9121] 11649 80 140 2 0 0 0 gSTORE ADJUSTMENT ENTER SUBROUTINE 26/0/0 1497 [9122] 11650 80 131 2 0 0 0 gWRITE ENTER SUBROUTINE 24/1/0 772 [9123] 11651 76 113 2 0 0 0 gREAD NEXT BLOCK JUMP unconditional Start of procedure 117 at location 932 in chapter 2 [9124] [9124] 11700 PROCR 117 DELETE MANY PROCEDURES 6/0/0 3605 [9124] 11702 17 15 0 0 0 'TO'PROCR SELECT 26/0/0 1829 [9125] 11703 80 142 2 0 0 0 gBIN ENTER SUBROUTINE 1/1/1 1 [9126] 11704 11 0 0 0 1 ADD LITERAL 5/0/0 2587 [9127] 11705 2 3 45 0 0 0 (HIGHEST PROCR+1) SUBTRACT 27/0/3 938 [9128] 11706 73 117 8 0 0 0 JUMP IF A < 0 1/1/3 0 [9129] 11707 10 0 0 0 0 SELECT LITERAL 4/0/0 2587 [9130] 11708 1 3 45 0 0 0 ADD 2/0/0 3605 [9131] 11709 5 17 15 0 0 0 EFFECTIVE'TO'PROCR TRANSFER 6/0/0 3609 [9132] 11710 17 19 0 0 0 'FROM'PROCR SELECT 26/0/0 1829 [9133] 11711 80 142 2 0 0 0 gBIN ENTER SUBROUTINE 2/0/0 3609 [9134] 11712 5 17 19 0 0 0 TRANSFER 6/0/0 3604 [9135] 11713 17 14 0 0 0 'FROM' SERIAL SELECT 18/0/1 8 [9136] 11714 30 0 0 0 8 SHIFT (A) BY QUARTETS 27/0/0 948 [9137] 11715 70 117 18 0 0 0 JUMP IF A == 0 1/1/3 1 [9138] 11716 10 0 0 0 1 NOT DELETING ALL 'FROM' PROCR SELECT LITERAL 7/0/0 3609 [9139] 11717 4 17 19 0 0 0 AUGMENT 6/0/0 3605 [9140] 11718 17 15 0 0 0 'TO' PROCR+1 SELECT 18/0/1 5 [9141] 11719 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 3609 [9142] 11720 1 17 19 0 0 0 'FROM' PROCR ADD 3/1/0 40 [9143] 11721 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [9144] 1/1/3 0 [9145] 11722 10 0 0 0 0 SELECT LITERAL 2/0/0 3612 [9146] 11723 5 17 22 0 0 0 CTR OF VALUE BLOCKS TRANSFER 6/0/1 2590 [9147] 11724 6 100- 0 1 0 SELECT 27/0/1 959 [9148] 11725 71 117 28 0 0 0 g JUMP IF A != 0 1/1/3 1 [9149] 11726 10 0 0 0 1 SELECT LITERAL 7/0/0 3612 [9150] 11727 4 17 22 0 0 0 AUGMENT CTR OF VALUES AUGMENT 25/0/1 1 [9151] 11728 94 117 24 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 955 [9152] s 6/0/0 3605 [9153] 11729 17 15 0 0 0 SELECT 5/0/0 3609 [9154] 11730 2 17 19 0 0 0 SUBTRACT 3/0/0 1829 [9155] 11731 3 142 2 0 0 0 WL-DELETED QTTY COPY 4/0/0 2407 [9156] 11732 11 0 0 0 20000 Bit 18 ADD LITERAL 18/0/1 5 [9157] 11733 30 0 0 0 5 SHIFT (A) BY QUARTETS 24/0/1 3609 [9158] 11734 124 17 19 0 1 0 'FROM'PROCR MODIFY ADDRESS OF NEXT 28/0/0 2590 [9159] 11735 128 6 100- 0 0 0 DELETE ALL PROCEDURES BULK COPY SHORT NUMERIC 6/0/0 2587 [9160] 11736 3 45 0 0 0 HIGHEST PROCR+1 SELECT 18/0/1 5 [9161] 11737 30 0 0 0 5 SHIFT (A) BY QUARTETS Source: KenK/Q1000070 4/0/0 3605 [9162] 11738 1 17 15 0 0 0 'TO'PROCR+1 ADD 2/1/0 2180 [9163] 11739 5 148 42 1 0 0 TRANSFER 5/0/0 1829 [9164] 11740 2 142 2 0 0 0 SUBTRACT 4/0/0 3612 [9165] 11741 1 17 22 0 0 0 gNUMBER OF VALUES ADD 3/0/0 1835 [9166] 11742 3 143 2 0 0 0 (-DELETED QTTY) COPY 7/0/0 5495 [9167] 11743 4 94 45 0 0 0 REDUCE MAX C/FWD PROCR AUGMENT 26/1/1 2180 [9168] 11744 91 148 42 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 25/0/1 0 [9169] 11745 94 117 47 0 1 0 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 980 [9170] s 24/1/0 986 [9171] 11746 76 117 52 0 0 0 gNONE TO UPDATE JUMP unconditional 6/0/1 2590 [9172] 11747 6 100- 0 1 0 SELECT 27/0/0 984 [9173] 11748 70 117 51 0 0 0 gVALUE DON'T UPDATE JUMP IF A == 0 6/0/0 1835 [9174] 11749 143 2 0 0 0 NON-ZERO LOCNS DELETED SELECT 7/0/1 2590 [9175] 11750 4 6 100- 0 1 0 UPDATE PROCR AUGMENT 25/0/1 1 [9176] 11751 94 117 47 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 980 [9177] s 0/0/3 2408 [9178] 11752 60 0 0 0 0 DEC SET DECIMAL RADIX 6/0/0 3600 [9179] 11753 17 10 0 0 0 'TO' SERIAL SELECT 5/0/0 3604 [9180] 11754 2 17 14 0 0 0 'FROM' SERIAL SUBTRACT 27/0/0 871 [9181] 11755 70 115 26 0 0 0 gSINGLE LINE DELETE JUMP IF A == 0 24/1/0 930 [9182] 11756 76 116 50 0 0 0 JUMP unconditional Start of procedure 118 at location 991 in chapter 2 [9183] [9183] 11800 PROCR 118 'R'DIRECTIVES AND 'A' DIRECTIVES 1/0/1 3 [9183] 11802 35 0 0 0 11 ;DIRECTIVE LINE 'R' PREPARE FOR DIGIT COLLATION 1/1/3 0 [9184] 11803 10 0 0 0 0 SELECT LITERAL 15/1/0 2593 [9185] 11804 36 4 2 2 0 0 COLLATE AND ADD 27/0/1 1019 [9186] 11805 71 118 30 0 0 0 gNOT REPLACING !***00! JUMP IF A != 0 6/1/0 2593 [9187] 11806 4 2 2 0 0 SELECT 18/1/1 4126 [9188] 11807 32 0 0 0 2- SHIFT (AB) BY QUARTETS 26/0/0 1829 [9189] 11808 80 142 2 0 0 0 BIN ENTER SUBROUTINE 5/0/0 2587 [9190] 11809 2 3 45 0 0 0 HIGHEST B/FWD PROCR+1 SUBTRACT 27/0/2 1029 [9191] 11810 72 118 40 0 0 0 gREPLACING DUMPS OR FILES JUMP IF A >= 0 6/1/0 2596 [9192] 11811 4 6 1 0 0 SELECT 5/1/0 2184 [9193] 11812 2 148 46 1 0 0 'PROCR' SUBTRACT 27/0/0 1013 [9194] 11813 70 118 24 0 0 0 JUMP IF A == 0 6/1/0 2596 [9195] 11814 4 6 1 0 0 SELECT 5/1/0 2186 [9196] 11815 2 148 48 1 0 0 'TABLE' SUBTRACT 27/0/0 1012 [9197] 11816 70 118 23 0 0 0 JUMP IF A == 0 6/1/0 2596 [9198] 11817 4 6 1 0 0 SELECT 5/1/0 2188 [9199] 11818 2 148 50 1 0 0 'CONST' SUBTRACT 27/0/1 1145 [9200] 11819 71 121 44 0 0 0 gNOT REPLACING BY ANOTHER DIRECTIVE ;REJE JUMP IF A != 0 0/0/2 2606 [9201] 11820 34 4 16 0 0 0 SET (N) IN B 15/0/0 2140 [9202] 11821 36 148 2 0 0 0 BIT 1 COLLATE AND ADD 27/0/0 1013 [9203] 11822 70 118 24 0 0 0 gSHORT CONST JUMP IF A == 0 1/1/3 1 [9204] 11823 10 0 0 0 1 SELECT LITERAL 2/0/0 1835 [9205] 11824 5 143 2 0 0 0 WL=LENGTH OF REPLADEMENT TRANSFER 26/0/0 1477 [9206] 11825 80 130 2 0 0 0 FIND 'LENGTH'OF REPLACED BLOCK ENTER SUBROUTINE 3/0/0 3590 [9207] 11826 3 17 0 0 0 0 COPY 5/0/0 1835 [9208] 11827 2 143 2 0 0 0 SUBTRACT 27/0/1 1145 [9209] 11828 71 121 44 0 0 0 gTRYING TO CHANGE'LENGHT',REJECT JUMP IF A != 0 24/1/0 1072 [9210] 11829 76 119 30 0 0 0 gOK JUMP unconditional 26/0/0 1477 [9211] 11830 80 130 2 0 0 0 ENTER SUBROUTINE 2/0/0 3590 [9212] 11831 5 17 0 0 0 0 gFIND'LENGTH' TRANSFER 1/0/1 3 [9213] 11832 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 15/1/0 2593 [9214] 11833 36 4 2 2 0 0 LINE SERIAL COLLATE AND ADD 1/1/2 1 [9215] 11834 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 1029 [9216] 11835 70 118 40 0 0 0 gNOTES JUMP IF A == 0 1/1/3 0 [9217] 11836 10 0 0 0 0 SELECT LITERAL 0/0/2 3590 [9218] 11837 34 17 0 0 0 0 SET (N) IN B Source: ChuckK/Q1000071 15/1/0 2593 [9219] 11838 36 4 2 2 0 0 COLLATE AND ADD 27/0/1 1145 [9220] 11839 71 121 44 0 0 0 >UNACCEPTABLE JUMP IF A != 0 6/1/0 2593 [9221] 11840 4 2 2 0 0 SELECT 3/0/0 3604 [9222] 11841 3 17 14 0 0 0 COPY 3/0/0 3600 [9223] 11842 3 17 10 0 0 0 COPY 18/1/1 4126 [9224] 11843 32 0 0 0 2- SHIFT (AB) BY QUARTETS 2/0/0 3609 [9225] 11844 5 17 19 0 0 0 TRANSFER 6/1/0 2596 [9226] 11845 4 6 1 0 0 SELECT 5/1/0 2184 [9227] 11846 2 148 46 1 0 0 PROCR' SUBTRACT 27/0/0 1145 [9228] 11847 70 121 44 0 0 0 >NOT ALLOWED JUMP IF A == 0 6/1/0 2596 [9229] 11848 4 6 1 0 0 SELECT 5/1/0 2186 [9230] 11849 2 148 48 1 0 0 TABLE' SUBTRACT 27/0/0 1145 [9231] 11850 70 121 44 0 0 0 > JUMP IF A == 0 6/1/0 2596 [9232] 11851 4 6 1 0 0 SELECT 5/1/0 2188 [9233] 11852 2 148 50 1 0 0 CONST' SUBTRACT 27/0/0 1145 [9234] 11853 70 121 44 0 0 0 >TRYING TO REPLACE BY A DIRECTIVE JUMP IF A == 0 24/1/0 1072 [9235] 11854 76 119 30 0 0 0 >O/P JUMP unconditional Start of procedure 119 at location 1044 in chapter 2 [9236] [9236] 11900 PROCR 119 DEAL WITH INSERTIONS 26/0/0 1477 [9236] 11902 80 130 2 0 0 0 FIND 'LENGTH';INSERTION FIRST LINE ENTER SUBROUTINE 2/0/0 3590 [9237] 11903 5 17 0 0 0 0 TRANSFER 0/0/2 3590 [9238] 11904 34 17 0 0 0 0 SET (N) IN B 15/1/0 2593 [9239] 11905 36 4 2 2 0 0 COLLATE AND ADD 27/0/1 1145 [9240] 11906 71 121 44 0 0 0 >UNACCEPTABLE JUMP IF A != 0 6/1/0 2593 [9241] 11907 4 2 2 0 0 LINE SERIAL SELECT 3/0/0 3600 [9242] 11908 3 17 10 0 0 0 COPY 2/0/0 3604 [9243] 11909 5 17 14 0 0 0 TRANSFER 6/0/0 3600 [9244] 11910 17 10 0 0 0 SELECT 3/0/0 3608 [9245] 11911 3 17 18 0 0 0 COPY 18/1/1 4126 [9246] 11912 32 0 0 0 2- SHIFT (AB) BY QUARTETS 26/0/0 1829 [9247] 11913 80 142 2 0 0 0 >TO BIN ENTER SUBROUTINE 2/0/0 3597 [9248] 11914 5 17 7 0 0 0 3 DIGIT REF 'INSERT BEFORE' BIN TRANSFER 6/0/0 3611 [9249] 11915 17 21 0 0 0 HIGHEST LINR SERIAL SELECT 5/0/0 3608 [9250] 11916 2 17 18 0 0 0 INSERT BEFORE' SERIAL SUBTRACT 27/0/1 1066 [9251] 11917 71 119 24 0 0 0 >NOT INSERTING BEFORE END SIGN JUMP IF A != 0 0/0/3 2409 [9252] 11918 60 0 0 0 0 SET DECIMAL RADIX 6/0/0 3608 [9253] 11919 17 18 0 0 0 SELECT 1/1/1 153 [9254] 11920 11 0 0 0 99 ROUND UP INSERT SERIAL ADD LITERAL 18/1/1 4126 [9255] 11921 32 0 0 0 2- TO DEAL WITH ISSUE 5 END SHIFT (AB) BY QUARTETS 26/0/0 1829 [9256] 11922 80 142 2 0 0 0 >BIN ENTER SUBROUTINE 2/0/0 3597 [9257] 11923 5 17 7 0 0 0 TRANSFER 6/1/0 2593 [9258] 11924 4 2 2 0 0 SELECT 18/0/1 8 [9259] 11925 30 0 0 0 8 SHIFT (A) BY QUARTETS 27/0/0 1072 [9260] 11926 70 119 30 0 0 0 >INSERTING BEFORE PROCR START NO.ADJUST JUMP IF A == 0 6/0/0 3593 [9261] 11927 17 3 0 0 0 CTR OF ADJUST DETAILS SELECT 1/1/2 460 [9262] 11928 101 460 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 1145 [9263] 11929 70 121 44 0 0 0 >LIST FULL COPY TO NEXR DIRECTIVE JUMP IF A == 0 26/0/0 1497 [9264] 11930 80 131 2 0 0 0 WRITE ENTER SUBROUTINE 26/0/0 1425 [9265] 11931 80 127 2 0 0 0 >READ/TEST PT ENTER SUBROUTINE 27/0/0 787 [9266] 11932 70 113 16 0 0 0 >YES JUMP IF A == 0 Start of procedure 120 at location 1075 in chapter 2 [9267] [9267] 12000 PROCR 120 DEAL WITH NON-DIRECTIVE LINE 24/0/1 8175 [9267] 12002 85 129 2 0 0 0 SWITCH R 26/0/1 1076 [9268] 0/0/1 1081 [9269] s 12003 C 120 7 0 0 0 R 0/0/1 1145 [9270] 12004 C 121 44 0 0 0 D-NOT ACCEPTED, 2 LINES ALREADY 0/0/1 1103 [9271] 12005 C 121 2 0 0 0 T 0/0/1 1081 [9272] s 12006 C 120 7 0 0 0 A Source: TonyJ/Q1000072 0/0/3 2410 [9273] 12007 60 0 0 0 0 SET DECIMAL RADIX 6/0/0 3590 [9274] 12008 17 0 0 0 0 CURRENT LENGTH SELECT 1/1/1 1 [9275] 12009 11 0 0 0 1 ADD LITERAL 7/0/0 3600 [9276] 12010 4 17 10 0 0 0 STEP SEQ CTR AUGMENT 6/0/0 3600 [9277] 12011 17 10 0 0 0 SELECT 18/1/1 4126 [9278] 12012 32 0 0 0 2- SHIFT (AB) BY QUARTETS 5/0/0 3609 [9279] 12013 2 17 19 0 0 0 PROCR OF R OR A-DIRECTIVE SUBTRACT 27/0/1 1099 [9280] 12014 71 120 25 0 0 0 > NOT STILL IN SAME PROCR JUMP IF A != 0 6/1/0 2596 [9281] 12015 4 6 1 0 0 SELECT 5/1/0 2184 [9282] 12016 2 148 46 1 0 0 'PROCR' SUBTRACT 27/0/0 1145 [9283] 12017 70 121 44 0 0 0 JUMP IF A == 0 6/1/0 2596 [9284] 12018 4 6 1 0 0 SELECT 5/1/0 2186 [9285] 12019 2 148 48 1 0 0 TABLE' SUBTRACT 27/0/0 1145 [9286] 12020 70 121 44 0 0 0 >UN ACCEPTABLE JUMP IF A == 0 6/1/0 2596 [9287] 12021 4 6 1 0 0 SELECT 5/1/0 2188 [9288] 12022 2 148 50 1 0 0 CONST SUBTRACT 27/0/0 1145 [9289] 12023 70 121 44 0 0 0 >UNACCEPTABLE JUMP IF A == 0 24/1/0 930 [9290] 12024 76 116 50 0 0 0 JUMP unconditional 6/0/0 2411 [9291] 12025 10 0 0 0 1- SELECT LITERAL 5/0/0 3590 [9292] 12026 2 17 0 0 0 0 SUBTRACT 7/0/0 3600 [9293] 12027 4 17 10 0 0 0 STEP BACK SEQ CTR SO NEVER ALTERS AUGMENT 24/1/0 1145 [9294] 12028 76 121 44 0 0 0 > READ/COPY TO NEXT DIRECTIVE JUMP unconditional Start of procedure 121 at location 1103 in chapter 2 [9295] [9295] 12100 PROCR 121 DEAL WITH INSERTIONS 6/1/0 2596 [9295] 12102 4 6 1 0 0 ;INSERTIONS SELECT 5/1/0 2184 [9296] 12103 2 148 46 1 0 0 'PROCR' SUBTRACT 27/0/0 1116 [9297] 12104 70 121 15 0 0 0 JUMP IF A == 0 6/1/0 2596 [9298] 12105 4 6 1 0 0 SELECT 5/1/0 2186 [9299] 12106 2 148 48 1 0 0 SUBTRACT 27/0/0 1115 [9300] 12107 70 121 14 0 0 0 JUMP IF A == 0 6/1/0 2596 [9301] 12108 4 6 1 0 0 SELECT 5/1/0 2188 [9302] 12109 2 148 50 1 0 0 'CONST' SUBTRACT 27/0/1 1180 [9303] 12110 71 123 2 0 0 0 'NOT A DIRECTIVE' JUMP IF A != 0 0/0/2 2606 [9304] 12111 34 4 16 0 0 0 CONST TYPE SET (N) IN B 15/0/0 2140 [9305] 12112 36 148 2 0 0 0 BIT 1 COLLATE AND ADD 27/0/0 1116 [9306] 12113 70 121 15 0 0 0 > SHORT CONST JUMP IF A == 0 1/1/3 1 [9307] 12114 10 0 0 0 1 SELECT LITERAL 2/0/0 3590 [9308] 12115 5 17 0 0 0 0 'LENGTH' OF INSERTED PROCR TRANSFER 1/0/1 0 [9309] 12116 35 0 0 0 0 PREPARE FOR DIGIT COLLATION 6/0/0 3608 [9310] 12117 17 18 0 0 0 SELECT 18/1/1 4126 [9311] 12118 32 0 0 0 2- SHIFT (AB) BY QUARTETS 1/1/3 0 [9312] 12119 10 0 0 0 0 SELECT LITERAL 27/1/0 1133 [9313] 12120 74 121 32 0 0 0 > INSERTING BEFORE PROCR START JUMP IF AB == 0 // 27, 1, 0 6/0/0 3608 [9314] 12121 17 18 0 0 0 SELECT 5/0/0 3611 [9315] 12122 2 17 21 0 0 0 SUBTRACT 27/0/0 1133 [9316] 12123 70 121 32 0 0 0 > INSERTING AT END OF PROGM JUMP IF A == 0 6/0/0 3600 [9317] 12124 17 10 0 0 0 SELECT 5/0/0 3604 [9318] 12125 2 17 14 0 0 0 SUBTRACT 27/0/0 1145 [9319] 12126 70 121 44 0 0 0 > NOT IN THE MIDDLE OF AN INSERTION JUMP IF A == 0 2/0/0 3605 [9320] 12127 5 17 15 0 0 0 ADJUST DETAIL TRANSFER 6/0/0 3600 [9321] 12128 17 10 0 0 0 SELECT 2/0/0 3604 [9322] 12129 5 17 14 0 0 0 TRANSFER 26/0/0 1782 [9323] 12130 80 140 2 0 0 0 STORE ADJUST DETAIL ENTER SUBROUTINE 24/1/0 1145 [9324] 12131 76 121 44 0 0 0 > REJECT 'PROCR' JUMP unconditional 6/1/0 2598 [9325] 12132 4 8 1 0 0 SELECT Source: TonyJ/Q1000073 26/0/0 1829 [9326] 12133 80 142 2 0 0 0 CONVERT TO BIN ENTER SUBROUTINE 27/0/3 1145 [9327] 12134 73 121 44 0 0 0 > NEGATIVE, IGNORE JUMP IF A < 0 3/0/0 3594 [9328] 12135 3 17 4 0 0 0 NEW PROCR NUMBER (BIN) COPY 5/0/0 2587 [9329] 12136 2 3 45 0 0 0 HIGHEST B/FWD PROCR (BIN) SUBTRACT 27/0/3 1145 [9330] 12137 73 121 44 0 0 0 NOT UNIQUE JUMP IF A < 0 6/0/0 3594 [9331] 12138 17 4 0 0 0 SELECT 1/1/2 999 [9332] 12139 101 999 1 2 0 MAX PROCR SUBTRACT LITERAL ADDRESS 27/0/2 1145 [9333] 12140 72 121 44 0 0 0 >IGNORE JUMP IF A >= 0 24/0/1 3594 [9334] 12141 124 17 4 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 2590 [9335] 12142 106 6 100- 0 0 0 SELECT (N) 27/0/0 1149 [9336] 12143 70 122 2 0 0 0 > OK, PROCR NOT ALREADY INSETED JUMP IF A == 0 1/1/3 1 [9337] 12144 10 0 0 0 1 SET IND 'PASS 0 DOESN'T LIKE IT' SELECT LITERAL 2/1/0 3606 [9338] 12145 5 17 16 1 0 0 TRANSFER 26/0/0 1535 [9339] 12146 80 133 2 0 0 0 READ/WRITE TO NEXT DIRECTIVE ENTER SUBROUTINE 24/1/0 787 [9340] 12147 76 113 16 0 0 0 JUMP unconditional Start of procedure 122 at location 1149 in chapter 2 [9341] [9341] 12200 PROCR 122 122 INSERT NEW PROCR INTO LIST IN SEC 6 0/0/3 0 [9341] 12202 62 0 0 0 0 STEP BACK SEQ CTR SO NEVER ALTERS SET EXCESS CONSTANTS 6/0/0 2587 [9342] 12203 3 45 0 0 0 > READ/COPY TO NEXT DIRECTIVE SELECT 18/0/1 5 [9343] 12204 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 3597 [9344] 12205 1 17 7 0 0 0 ADD 3/1/0 40 [9345] 12206 91 0 0 1 0 'PROCR' SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [9346] 25/0/1 0 [9347] 12207 94 122 10 0 1 0 /////> NOT INSERTING BEFORE END SIGN STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1159 [9348] s 6/0/0 5495 [9349] 12208 94 45 0 0 0 CURRENT (HIGHEST C/FWD PROCR) +1 SELECT 24/1/0 1161 [9350] 12209 76 122 12 0 0 0 JUMP unconditional 24/0/1 3597 [9351] 12210 124 17 7 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 2590 [9352] 12211 6 100- 0 0 0 UPDATED REF ''INSERT BEFORE'' SELECT 2/0/0 1555 [9353] 12212 5 135 2 0 0 0 TRANSFER 1/1/3 1 [9354] 12213 10 0 0 0 1 SELECT LITERAL 7/0/0 5495 [9355] 12214 4 94 45 0 0 0 AUGMENT 6/0/0 3590 [9356] 12215 0 17 0 0 0 0 LENGTH IND SELECT Source: RayS/Q1000074 Source: RayS/Q1000074 18/0/1 4 [9357] 12216 30 0 0 0 4 SHIFT (A) BY QUARTETS 4/0/0 1555 [9358] 12217 1 135 2 0 0 0 UPDATED REF ADD 24/0/1 3594 [9359] 12218 124 17 4 0 1 0 CODER'S PROCR MODIFY ADDRESS OF NEXT 2/0/0 2590 [9360] 12219 5 6 100- 0 0 0 TRANSFER 25/0/1 0 [9361] 12220 94 122 22 0 1 0 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1172 [9362] s 24/1/0 1178 [9363] 12221 76 122 27 0 0 0 gINSERTING BEFORE END SIGN, SKIP JUMP unconditional 6/0/1 2590 [9364] 12222 6 100- 0 1 0 SELECT 27/0/0 1176 [9365] 12223 70 122 26 0 0 0 g'VALUE' DON'T UPDATE JUMP IF A == 0 1/1/3 1 [9366] 12224 10 0 0 0 1 SELECT LITERAL 7/0/1 2590 [9367] 12225 4 6 100- 0 1 0 AUGMENT 25/0/1 1 [9368] 12226 94 122 22 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1172 [9369] s 0/0/3 2412 [9370] 12227 60 0 0 0 0 SET DECIMAL RADIX 24/1/0 1072 [9371] 12228 76 119 30 0 0 0 gREAD PT JUMP unconditional Start of procedure 123 at location 1180 in chapter 2 [9372] [9372] 12300 PROCR 123 INSERTING INSTRUCTIONS 1/0/1 0 [9372] 12302 35 0 0 0 0 PREPARE FOR DIGIT COLLATION 6/0/0 3608 [9373] 12303 17 18 0 0 0 SELECT 5/0/0 2413 [9374] 12304 12 0 0 0 10002 SUBTRACT LITERAL 27/0/3 1145 [9375] 12305 73 121 44 0 0 0 gUNACCEPTABLE JUMP IF A < 0 6/0/0 3608 [9376] 12306 17 18 0 0 0 SELECT 18/1/1 4126 [9377] 12307 32 0 0 0 2- SHIFT (AB) BY QUARTETS 1/1/3 0 [9378] 12308 10 0 0 0 0 SELECT LITERAL 27/1/0 930 [9379] 12309 74 116 50 0 0 0 gINSERTING AT END OF PROCR JUMP IF AB == 0 // 27, 1, 0 6/1/0 2593 [9380] 12310 4 2 2 0 0 LINE SERIAL SELECT 18/0/1 4126 [9381] 12311 30 0 0 0 2- SHIFT (A) BY QUARTETS 26/0/0 1829 [9382] 12312 80 142 2 0 0 0 CONVERT TO BIN ENTER SUBROUTINE 5/0/0 2587 [9383] 12313 2 3 45 0 0 0 (HIGHEST B/FWD PROCR+1) SUBTRACT 27/0/3 1234 [9384] 12314 73 123 56 0 0 0 gNOT A UNIQUE REF JUMP IF A < 0 6/0/0 3592 [9385] 12315 17 2 0 0 0 SELECT 1/1/2 100 [9386] 12316 12 0 0 0 64 SUBTRACT LITERAL 27/0/2 1234 [9387] 12317 72 123 56 0 0 0 gTOO MANY UNIQUE REFS, DON'T STORE THIS ONE JUMP IF A >= 0 6/1/0 2593 [9388] 12318 4 2 2 0 0 UNIQUE REF SELECT 24/0/1 3592 [9389] 12319 124 17 2 0 1 0 MODIFY ADDRESS OF NEXT 2/0/0 4600 [9390] 12320 5 21 0 0 0 0 TRANSFER 1/0/1 3 [9391] 12321 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 15/0/0 3604 [9392] 12322 36 17 14 0 0 0 COLLATE AND ADD 2/0/0 1670 [9393] 12323 5 136 2 0 0 0 ITEM DEC TRANSFER 6/0/0 3604 [9394] 12324 17 14 0 0 0 SELECT 18/0/1 4126 [9395] 12325 30 0 0 0 2- SHIFT (A) BY QUARTETS 26/0/0 1829 [9396] 12326 80 142 2 0 0 0 ENTER SUBROUTINE 2/0/0 1809 [9397] 12327 5 141 2 0 0 0 REF BIN TRANSFER 24/0/1 1809 [9398] 12328 124 141 2 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 2590 [9399] 12329 6 100- 0 0 0 SELECT 26/0/0 1835 [9400] 12330 80 143 2 0 0 0 DEC ENTER SUBROUTINE 3/0/0 3609 [9401] 12331 3 17 19 0 0 0 UPDATED REF DEC COPY 18/0/1 2 [9402] 12332 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 1670 [9403] 12333 1 136 2 0 0 0 DEC ITEM NOT UPDATED ADD 2/0/0 3596 [9404] 12334 5 17 6 0 0 0 TRANSFER 6/0/0 3597 [9405] 12335 17 7 0 0 0 INSERT BEFORE REF SELECT 5/0/0 1809 [9406] 12336 2 141 2 0 0 0 SUBTRACT 27/0/0 1218 [9407] 12337 70 123 40 0 0 0 gHASN'T GONE OVER THE TOP JUMP IF A == 0 6/0/0 2414 [9408] 12338 10 0 0 0 1- SELECT LITERAL 7/0/0 3609 [9409] 12339 4 17 19 0 0 0 TO GET THE RIGHT ADJUST DETAILS AUGMENT 26/1/1 2474 [9410] 12340 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [9411] 12341 C 0 0 0 460 Limit 6/0/1 4140 [9411] 12342 19 0 0 1 0 SELECT 27/0/0 1228 [9412] 12343 70 123 50 0 0 0 gEND OF ADJUST DETAILS JUMP IF A == 0 18/0/1 4126 [9413] 12344 30 0 0 0 2- SHIFT (A) BY QUARTETS 5/0/0 3609 [9414] 12345 2 17 19 0 0 0 3 DIGIT PROCR SUBTRACT Source: DavidH/Q1000110 27/0/1 1226 [9415] 12346 71 123 49 0 0 0 JUMP IF A != 0 6/0/1 4141 [9416] 12347 19 1 0 1 0 SELECT 7/0/0 3596 [9417] 12348 4 17 6 0 0 0 ADJUST ADDRESS AUGMENT 25/0/1 2 [9418] 12349 94 123 42 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1219 [9419] s 0/0/3 0 [9420] 12350 62 0 0 0 0 BIN SET EXCESS CONSTANTS 6/0/0 3596 [9421] 12351 17 6 0 0 0 SELECT 24/0/1 3592 [9422] 12352 124 17 2 0 1 0 MODIFY ADDRESS OF NEXT 2/0/0 4601 [9423] 12353 102 21 1 0 0 0 TRANSFER (A) TO N 1/1/3 2 [9424] 12354 10 0 0 0 2 SELECT LITERAL 7/0/0 3592 [9425] 12355 4 17 2 0 0 0 AUGMENT 0/0/3 2415 [9426] 12356 60 0 0 0 0 SET DECIMAL RADIX 6/0/0 3590 [9427] 12357 17 0 0 0 0 LENGTH IND SELECT 1/1/1 1 [9428] 12358 11 0 0 0 1 ADD LITERAL 7/0/0 3604 [9429] 12359 4 17 14 0 0 0 AUGMENT'NEW'LINE SERIAL AUGMENT 26/0/0 1497 [9430] 12360 80 131 2 0 0 0 O/P ENTER SUBROUTINE 26/0/0 1809 [9431] 12361 80 141 2 0 0 0 READ ENTER SUBROUTINE 27/0/0 1248 [9432] 12362 70 123 69 0 0 0 gPT AT END JUMP IF A == 0 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [9434] 12363 5 0 1 0 0 SELECT 5/1/0 2210 [9435] 12364 2 148 72 1 0 0 'TRAMS' SUBTRACT 27/0/0 1248 [9436] 12365 70 123 69 0 0 0 JUMP IF A == 0 26/0/0 1519 [9437] 12366 80 132 2 0 0 0 UNPACK ENTER SUBROUTINE 26/0/0 1454 [9438] 12367 80 129 2 0 0 0 DIRECTIVE? ENTER SUBROUTINE 27/0/1 1075 [9439] 12368 71 120 2 0 0 0 gNO JUMP IF A != 0 6/0/0 3604 [9440] 12369 17 14 0 0 0 ;END OF MULTIPLE INSE SELECT 5/0/0 3600 [9441] 12370 2 17 10 0 0 0 DIFFERENCE SUBTRACT 2/0/0 3605 [9442] 12371 5 17 15 0 0 0 QUANTITY ADJUST TRANSFER 6/0/0 3600 [9443] 12372 17 10 0 0 0 SELECT 2/0/0 3604 [9444] 12373 5 17 14 0 0 0 TRANSFER 26/0/0 1782 [9445] 12374 80 140 2 0 0 0 STORE ADJUST DETAIL ENTER SUBROUTINE 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [9447] 12375 0 5 0 1 0 0 g SELECT 18/0/1 4124 [9448] 12376 30 0 0 0 4- SHIFT (A) BY QUARTETS 18/0/1 4 [9449] 12377 30 0 0 0 4 SHIFT (A) BY QUARTETS 5/1/0 2198 [9450] 12378 2 148 60 1 0 0 'END ' SUBTRACT 27/0/0 1265 [9451] 12379 70 124 2 0 0 0 JUMP IF A == 0 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [9453] 12380 5 0 1 0 0 SELECT 5/1/0 2210 [9454] 12381 2 148 72 1 0 0 'TRAMD' SUBTRACT 27/0/0 778 [9455] 12382 70 113 7 0 0 0 JUMP IF A == 0 27/0/1 787 [9456] 12383 71 113 16 0 0 0 g PT AT DIRECTIVE JUMP IF A != 0 Start of procedure 124 at location 1265 in chapter 2 [9457] [9457] 12400 PROCR 124 CONSTRUCT C/FWD PROCR LENGTH INDEX 0/0/3 0 [9457] 12402 62 0 0 0 0 SET EXCESS CONSTANTS 6/1/0 2476 [9458] 12403 54 94 0 0 0 45 BULK CLEAR 28/0/0 5450 [9459] 6/0/0 2587 [9460] 12404 3 45 0 0 0 (HIGHEST B/FWD PROCR+1) SELECT 18/0/1 5 [9461] 12405 30 0 0 0 5 SHIFT (A) BY QUARTETS 1/1/1 100 [9462] 12406 101 100 1 1 0 ADD LITERAL ADDRESS 3/1/0 40 [9463] 12407 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [9464] 26/1/2 2478 [9465] 12408 90 0 0 2 0 SCAN SEC 3 SET MODIFICATION REGISTER AT LITERAL [9466] 12409 C 0 0 0 45 Limit 26/1/3 2480 [9466] 12410 90 0 0 3 0 SCAN WORD IN SEC 3 SET MODIFICATION REGISTER AT LITERAL [9467] 12411 C 0 0 0 20 Limit 0/0/2 2140 [9467] 12412 34 148 2 0 0 0 BIT 1 SET (N) IN B 6/0/1 2590 [9468] 12413 6 100- 0 1 0 SELECT 27/0/0 1295 [9469] 12414 70 124 30 0 0 0 g PROCR DELETED JUMP IF A == 0 Query: unreadable on photo 1/1/3 0 [9470] 12415 10 0 0 0 0 SELECT LITERAL Source: TonyJ/Q1000111 15/0/2 2542 [9471] 12416 36 3 0 0 2 0 COLLATE AND ADD 27/0/0 1295 [9472] 12417 70 124 30 0 0 0 > B/FWD PROCR WAS SHORT JUMP IF A == 0 0/1/0 3590 [9473] 12418 100 17 0 1 0 0 COPY B COPY REGISTERS 6/0/1 2590 [9474] 12419 6 100- 0 1 0 C/FWD EQUIVALENT SELECT 1/0/1 0 [9475] 12420 19 0 0 0 14 20 DIVIDE LITERAL 18/1/1 4119 [9476] 13/0/0 2416 [9477] 2/0/0 2180 [9478] 12421 5 148 42 0 0 0 TRANSFER 18/1/1 9 [9479] 12422 32 0 0 0 9 SHIFT (AB) BY QUARTETS 2/0/0 2181 [9480] 12423 5 148 43 0 0 0 REMAINDER TRANSFER 1/1/3 1 [9481] 12424 10 0 0 0 1 SELECT LITERAL 24/0/1 2181 [9482] 12425 124 148 43 0 1 0 MODIFY ADDRESS OF NEXT 18/0/3 0 [9483] 12426 31 0 0 0 0 ///// SHIFT (A) BY BITS 24/0/1 2180 [9484] 12427 124 148 42 0 1 0 MODIFY ADDRESS OF NEXT 7/0/0 5445 [9485] 12428 4 94 5- 0 0 0 SET C/FWD LENGTH IND AUGMENT 0/1/1 3590 [9486] 12429 100 17 0 1 1 0 RESTORE B REPLACE REGISTERS 18/1/3 1 [9487] 12430 33 0 0 0 1 SHIFT COLLATOR SHIFT (AB) BY BITS 25/0/1 1 [9488] 12431 94 124 33 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1299 [9489] s 24/1/0 1303 [9490] 12432 76 124 35 0 0 0 > END JUMP unconditional 25/0/3 1 [9491] 12433 94 124 13 0 3 1 > THIS BIT NEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1276 [9492] 25/0/2 1 [9493] 12434 94 124 10 0 2 1 > NEXT WORD (SHOULD NEVER RUN OUT) STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1274 [9494] s 1/1/3 1000 [9495] 12435 101 1000 1 3 0 DEAL WITH INSERTED PROCEDURES SELECT LITERAL ADDRESS 18/0/1 5 [9496] 12436 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 2587 [9497] 12437 1 3 45 0 0 0 ADD 3/1/0 40 [9498] 12438 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [9499] 6/0/1 2590 [9500] 12439 0 6 100- 0 1 0 SELECT 27/0/0 1325 [9501] 12440 70 124 54 0 0 0 >NOT USED JUMP IF A == 0 18/1/1 4124 [9502] 12441 32 0 0 0 4- SHIFT (AB) BY QUARTETS 27/0/0 1325 [9503] 12442 70 124 54 0 0 0 >SHORT PROCEDURE JUMP IF A == 0 1/1/3 0 [9504] 12443 10 0 0 0 0 SELECT LITERAL 18/1/1 4 [9505] 12444 32 0 0 0 4 SHIFT (AB) BY QUARTETS 1/0/1 0 [9506] 12445 19 0 0 0 14 DIVIDE LITERAL 18/1/1 4119 [9507] 13/0/0 2417 [9508] 2/1/0 2180 [9509] 12446 5 148 42 1 0 0 TRANSFER 26/1/2 2180 [9510] 12447 91 148 42 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 18/1/1 9 [9511] 12448 32 0 0 0 9 SHIFT (AB) BY QUARTETS 2/0/0 3591 [9512] 12449 5 17 1 0 0 0 TRANSFER 1/1/3 1 [9513] 12450 10 0 0 0 1 SELECT LITERAL 24/0/1 3591 [9514] 12451 124 17 1 0 1 0 MODIFY ADDRESS OF NEXT 18/0/3 0 [9515] 12452 31 0 0 0 0 ///// SHIFT (A) BY BITS 7/0/2 5445 [9516] 12453 4 94 5- 0 2 0 AUGMENT 25/0/1 1 [9517] 12454 94 124 39 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1308 [9518] s 24/1/0 1333 [9519] 12455 76 125 6 0 0 0 JUMP unconditional Start of procedure 125 at location 1328 in chapter 2 [9520] [9520] 12500 PROCR 125 125 END OF PASS 0 24/0/1 8175 [9520] 12502 85 129 2 0 0 0 3 ORDER CONST SWITCH R 26/0/1 1329 [9521] 0/0/1 237 [9522] s 12503 C 105 38 0 0 0 0/0/1 171 [9523] 12504 C 104 3 0 0 0 0/0/1 229 [9524] 12505 C 105 35 0 0 0 26/1/1 2482 [9525] 12506 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [9526] 12507 C 0 0 0 450 Limit 26/1/2 2484 [9526] 12508 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [9527] 12509 C 0 0 0 900 Limit 1/1/3 0 [9527] 12510 10 0 0 0 0 SELECT LITERAL 1/0/1 15 [9528] 12511 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 15/0/2 2691 [9529] 12512 36 6 1 0 2 0 COLLATE AND ADD 18/0/3 10 [9530] 12513 31 0 0 0 10 SHIFT (A) BY BITS 15/0/2 2690 [9531] 12514 36 6 0 0 2 0 COLLATE AND ADD 2/0/1 3690 [9532] 12515 5 22 0 0 1 0 TRANSFER 25/0/1 1 [9533] 12516 94 0 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1343 [9534] 25/0/2 2 [9535] 12517 94 125 12 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1337 [9536] s Source: TonyJ/Q1000112 24/1/0 1358 [9537] 12518 76 125 27 0 0 0 JUMP unconditional 0/0/3 0 [9538] 12519 62 0 0 0 0 SET BIN SET EXCESS CONSTANTS 6/0/0 2228 [9539] 12520 148 90 0 0 0 IND SELECT 27/0/0 1356 [9540] 12521 70 125 25 0 0 0 JUMP IF A == 0 1/1/3 17 [9541] 12522 150 0 0 0 11 OFFER OPTIONS 0/0/2 2418 [9542] 25/1/1 4096 [9543] 24/0/3 0 [9544] 26/0/2 1 [9545] 0/0/1 1751 [9546] s 12523 C 136 61 0 0 0 > END 0/0/1 368 [9547] s 12524 C 107 11 0 0 0 > REENTER 1/1/3 1 [9548] 12525 10 0 0 0 1 SELECT LITERAL 7/0/0 5495 [9549] 12526 4 94 45 0 0 0 AUGMENT 26/0/0 1497 [9550] 12527 80 131 2 0 0 0 > WRITE END ENTER SUBROUTINE 0/0/3 0 [9551] 12528 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 6320 [9552] 12529 27 10 0 0 0 SELECT 1/1/1 24 [9553] 12530 11 0 0 0 18 24 ADD LITERAL 26/0/0 1409 [9554] 12531 80 126 2 0 0 0 > CLOSE B1 ENTER SUBROUTINE 0/1/0 40 [9555] 12532 45 A6 0 0 0 0 REWIND 0/0/3 0 [9556] 6/1/0 0 [9557] 1/1/1 45 [9558] 25/1/1 4096 [9559] 24/0/3 0 [9560] 23/0/2 45 [9561] 0/1/1 40 [9562] 24/0/2 3690 [9563] 12533 55 22 0 0 0 1010 OLD/NEW PROCRS + ADJUSTS + UNIQUE BULK COPY 18/1/0 4123 [9564] 12534 C 18 0 0 0 0 1/1/3 1010 [9565] 18/1/1 5 [9566] 24/0/3 0 Extra code needed to address 5664 from 9567 (different chapter) 28/0/0 5664 [9568] 24/0/2 5450 [9569] 12535 55 94 0 0 0 46 BULK COPY 18/1/0 4123 [9570] 12536 C 18 1010 0 0 0 1/1/3 46 [9571] 18/1/1 5 [9572] 24/0/3 0 Extra code needed to address 6674 from 9573 (different chapter) 28/0/0 6674 [9574] 3/1/0 40 [9575] 12537 91 0 0 3 0 CLEAR R3 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [9576] 3/1/0 40 [9577] 12538 91 0 0 1 0 & R1 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [9578] 26/0/0 1540 [9579] 12539 80 134 2 0 0 0 > INTERCHANGE A1. D1 ASL'S ENTER SUBROUTINE 6/1/0 2182 [9580] 12540 148 44 1 0 0 SELECT 27/0/0 46 [9581] 12541 70 101 2 0 0 0 > INITIAL TRANSLATION JUMP IF A == 0 0/1/0 40 [9582] 12542 48 A1 0 0 0 1 BACK 1 I/P > I/P STEP BACK 0/0/3 0 [9583] 0/1/2 2486 [9584] 12543 C 0 0 0 1 STEP BACK 6/1/0 0 [9585] 1/1/1 27 [9586] 25/1/1 4096 [9587] 24/0/3 0 [9588] 23/0/2 48 [9589] 0/1/1 40 [9590] 0/1/0 40 [9591] 12544 42 A1 0 0 0 0 INPUT 0/0/3 0 [9592] 0/0/2 16 [9593] 12545 C 7 0 0 0 0 INPUT 6/1/0 0 [9594] 1/1/1 27 [9595] 25/1/1 4096 [9596] 24/0/3 0 [9597] 23/0/2 42 [9598] 0/1/1 40 [9599] 24/1/0 46 [9600] 12546 76 101 2 0 0 0 > CANN PASS 1 JUMP unconditional Start of procedure 126 at location 1409 in chapter 2 [9601] [9601] 12600 PROCR 126 126 ENTER OR B1 0/0/0 0 [9601] 12602 81 126 2 0 0 0 START OF SUBROUTINE 18/0/1 5 [9602] 12603 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 8 [9603] 12604 1 999 8 0 0 0 ADD 25/1/1 4096 [9604] 12605 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 0 [9605] 12606 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [9606] 12607 123 160 0 2 0 ENTER MASTER ROUTINE 26/0/1 1409 [9607] 12608 82 126 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 0/1/0 40 [9608] 12609 41 A1 0 0 0 0 DUMMY FOR ENTRY TO MR CLOSE FILE 0/0/3 0 [9609] 6/1/0 0 [9610] 1/1/1 27 [9611] 25/1/1 4096 [9612] 24/0/3 0 [9613] 23/0/2 1 [9614] 0/1/1 40 [9615] 26/0/3 1412 [9616] 12610 126 126 5 0 3 0 LEAVE MASTER ROUTINE Start of procedure 127 at location 1425 in chapter 2 [9617] [9617] 12700 PROCR 127 127 READ, TEST NEXT P/T BLOCK 0/0/0 0 [9617] 12702 81 127 2 0 0 0 3 ORDER CONST START OF SUBROUTINE 26/0/0 1809 [9618] 12703 80 141 2 0 0 0 > READ PT ENTER SUBROUTINE 27/0/0 1265 [9619] 12704 70 124 2 0 0 0 > END JUMP IF A == 0 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [9621] 12705 5 0 1 0 0 SELECT 5/1/0 2210 [9622] 12706 2 148 72 1 0 0 'TRAMD' SUBTRACT 27/0/0 778 [9623] 12707 70 113 7 0 0 0 > YES JUMP IF A == 0 26/0/0 1519 [9624] 12708 80 132 2 0 0 0 > UNPACK ENTER SUBROUTINE 26/0/0 1454 [9625] 12709 80 129 2 0 0 0 > TEST DIRECTIVE ENTER SUBROUTINE 26/0/1 1425 [9626] 12710 82 127 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 128 at location 1435 in chapter 2 [9627] [9627] 12800 PROCR 128 128 COPY INTERCODE BLOCKS 0/0/0 0 [9627] 12802 81 128 2 0 0 0 START OF SUBROUTINE 24/1/2 13 Extra code needed to address transit area no 0, section 10 24/0/2 4 [9629] 12803 55 10 4 1 0 148 BULK COPY 18/1/0 4123 [9630] 12804 C 8 4 1 0 0 1/1/3 148 [9631] 18/1/1 5 [9632] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [9634] 0/1/0 40 [9635] 12805 43 A2 0 0 0 0 OUTPUT 0/0/3 0 [9636] 0/0/2 18 [9637] 12806 C 8 0 0 0 0 OUTPUT 6/1/0 0 [9638] 1/1/1 36 [9639] 25/1/1 4096 [9640] 24/0/3 0 [9641] 23/0/2 43 [9642] 0/1/1 40 [9643] Source: KenK/Q1000113 26/0/0 1754 [9644] 12807 80 137 2 0 0 0 gREAD ENTER SUBROUTINE 26/0/1 1435 [9645] 12808 82 128 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 129 at location 1454 in chapter 2 [9646] [9646] 12900 PROCR 129 TEST DIRECTIVE 0/0/0 0 [9646] 12902 81 129 2 0 0 0 START OF SUBROUTINE 0/0/3 2419 [9647] 12903 60 0 0 0 0 SET DECIMAL RADIX 0/1/2 2594 [9648] 12904 34 4 4 1 0 0 SET (N) IN B 1/1/3 0 [9649] 12905 10 0 0 0 0 SELECT LITERAL 18/1/1 2 [9650] 12906 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/2 105 [9651] 12907 12 0 0 0 69 SUBTRACT LITERAL 27/0/0 1470 [9652] 12908 70 129 18 0 0 0 JUMP IF A == 0 1/1/1 21 [9653] 12909 11 0 0 0 15 ADD LITERAL 27/0/0 1469 [9654] 12910 70 129 17 0 0 0 JUMP IF A == 0 1/1/2 25 [9655] 12911 12 0 0 0 19 SUBTRACT LITERAL 27/0/0 1468 [9656] 12912 70 129 16 0 0 0 JUMP IF A == 0 1/1/1 34 [9657] 12913 11 0 0 0 22 ADD LITERAL 27/0/1 1476 [9658] 12914 71 129 24 0 0 0 gNO DIRECTIVE JUMP IF A != 0 1/1/3 1 [9659] 12915 10 0 0 0 1 SELECT LITERAL 1/1/1 1 [9660] 12916 11 0 0 0 1 ADD LITERAL 1/1/1 1 [9661] 12917 11 0 0 0 1 ADD LITERAL 1/1/1 1 [9662] 12918 11 0 0 0 1 ADD LITERAL 2/0/0 1477 [9663] 12919 5 130 2 0 0 0 TRANSFER 6/0/0 8175 [9664] 12920 86 129 2 0 0 0 SELECT SWITCH R 2/0/0 3602 [9665] 12921 5 17 12 0 0 0 STORE PREVIOUS SETTING TRANSFER 6/0/0 1477 [9666] 12922 84 129 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 2/0/0 8175 [9667] 12923 C 130 2 0 0 0 (A)ZERO DIRECTIVE FOUND SET SWITCH(ES) AT VARIABLE VALUE 26/0/1 1454 [9668] 12924 82 129 2 0 0 0 (A) NON=-ZERO,NO DIRECTIVE FOUND END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 130 at location 1477 in chapter 2 [9669] [9669] 13000 PROCR 130 FIND 'LENGTH' 0/0/0 0 [9669] 13002 81 130 2 0 0 0 START OF SUBROUTINE 6/1/0 2593 [9670] 13003 4 2 2 0 0 LINE SERIAL OF AMENDMENT SELECT 18/0/1 4126 [9671] 13004 30 0 0 0 2- SHIFT (A) BY QUARTETS 26/0/0 1829 [9672] 13005 80 142 2 0 0 0 CONVERT TO BIN ENTER SUBROUTINE 1/1/2 100 [9673] 13006 101 100 1 2 0 SUBTRACT LITERAL ADDRESS 1/0/1 0 [9674] 13007 19 0 0 0 14 DIVIDE BY 20 DIVIDE LITERAL 18/1/1 4119 [9675] 13/0/0 2420 [9676] 2/0/0 2180 [9677] 13008 5 148 42 0 0 0 TRANSFER 18/1/1 9 [9678] 13009 32 0 0 0 9 SHIFT (AB) BY QUARTETS 2/0/0 2181 [9679] 13010 5 148 43 0 0 0 TRANSFER 0/0/2 2140 [9680] 13011 34 148 2 0 0 0 SET (N) IN B 24/0/1 2181 [9681] 13012 124 148 43 0 1 0 MODIFY ADDRESS OF NEXT 18/1/3 0 [9682] 13013 33 0 0 0 0 ///// SHIFT (AB) BY BITS 24/0/1 2180 [9683] 13014 124 148 42 0 1 0 MODIFY ADDRESS OF NEXT 15/0/0 2542 [9684] 13015 36 3 0 0 0 0 COLLATE AND ADD 27/0/0 1495 [9685] 13016 70 130 18 0 0 0 gSHORT JUMP IF A == 0 1/1/3 1 [9686] 13017 10 0 0 0 1 SELECT LITERAL 0/0/3 2421 [9687] 13018 60 0 0 0 0 SET DECIMAL RADIX 26/0/1 1477 [9688] 13019 82 130 2 0 0 0 (A)=ZERO OR ONE END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 131 at location 1497 in chapter 2 [9689] [9689] 13100 PROCR 131 WRITE->A6 FROM SEC9 0/0/0 0 [9689] 13102 81 131 2 0 0 0 START OF SUBROUTINE 26/0/0 1555 [9690] 13103 80 135 2 0 0 0 REPLACE 'BE' BY 'LE' ENTER SUBROUTINE 6/1/0 2488 [9691] 13104 10 0 0 0 7.0000007. SELECT LITERAL 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 52 [9693] 13105 5 9 52 1 0 0 TRANSFER 6/1/0 3606 [9694] 13106 17 16 1 0 0 IND'PASS 0 DIDN'T LIKE IT' NON-ZERO SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 50 [9696] 13107 5 9 50 1 0 0 TRANSFER 0/1/0 40 [9697] 13108 43 A6 0 0 0 0 OUTPUT 0/0/3 0 [9698] 0/0/2 20 [9699] 13109 C 9 0 0 0 0 OUTPUT 6/1/0 0 [9700] 1/1/1 45 [9701] 25/1/1 4096 [9702] 24/0/3 0 [9703] 23/0/2 43 [9704] 0/1/1 40 [9705] 6/1/0 2490 [9706] 13110 54 9 4 1 0 50 BULK CLEAR 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/1 4 [9708] 2/1/0 3606 [9709] 13111 5 17 16 1 0 0 CLEAR IND TRANSFER 26/0/1 1497 [9710] 13112 82 131 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Source: KenK/Q1000114 Start of procedure 132 at location 1519 in chapter 2 [9711] [9711] 13200 PROCR 132 UNPACK POSSIBLE DIRECTIVE BLOCK 0/0/0 0 [9711] 13202 81 132 2 0 0 0 START OF SUBROUTINE 1/1/3 0 [9712] 13203 10 0 0 0 0 SELECT LITERAL 2/1/0 2594 [9713] 13204 5 4 4 1 0 0 WL FOR AMEND DIRECTIVE TRANSFER 2/1/0 2606 [9714] 13205 5 4 16 1 0 0 TRANSFER 24/0/1 6320 [9715] 13206 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 1524 [9716] 0/0/1 1531 [9717] s 13207 C 132 12 0 0 0 gPT 0/0/1 1527 [9718] s 13208 C 132 9 0 0 0 gCARDS 24/0/2 2284 [9719] 13209 50 5 0 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/0/2 0 [9721] 13210 C 150 18 0 0 0 26/0/1 1519 [9722] 13211 82 132 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 24/0/2 2268 [9723] 13212 124 150 2 0 2 0 UNPACK PT SELECT LITERAL AND DIVISION 24/1/2 15 [9724] 13213 124 999 15 1 2 0 MODIFY ADDRESS OF NEXT 28/0/3 0 [9725] 13214 128 0 0 3 0 UNPACK VARIABLE FIELD DATA 26/0/1 1519 [9726] 13215 82 132 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 133 at location 1535 in chapter 2 [9727] [9727] 13300 PROCR 133 O/P WHEN MOD NOT ACCEPTED 0/0/0 0 [9727] 13302 81 133 2 0 0 0 START OF SUBROUTINE 26/0/0 1497 [9728] 13303 80 131 2 0 0 0 gO/P TO A6 ENTER SUBROUTINE 26/0/0 1425 [9729] 13304 80 127 2 0 0 0 gREAD/TEST PT ENTER SUBROUTINE 27/0/1 1536 [9730] 13305 71 133 3 0 0 0 gNOT YET JUMP IF A != 0 26/0/1 1535 [9731] 13306 82 133 2 0 0 0 NEXT DIRECTIVE FOUND-> END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 134 at location 1540 in chapter 2 [9732] [9732] 13400 PROCR 134 INTERCHANGE A1,D1 ASL'S SR 0/0/0 0 [9732] 13402 81 134 2 0 0 0 START OF SUBROUTINE 25/1/1 4096 [9733] 13403 125 4096 1 1 0 CLEAR INDICATORS 23/0/2 1544 [9734] 13404 123 134 6 0 2 0 ENTER MASTER ROUTINE 26/0/1 1540 [9735] 13405 82 134 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 0/0/0 0 [9736] 13406 100 0 0 0 0 HALT 24/0/3 9 [9737] 13407 124 999 9 0 3 0 MODIFY ADDRESS OF NEXT 0/0/2 64 [9738] 13408 100 64 0 2 0 REPLACE (B) BY (N) 24/0/3 7 [9739] 13409 124 999 7 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 64 [9740] 13410 106 64 0 0 0 SELECT (N) 24/0/3 9 [9741] 13411 124 999 9 0 3 0 D1->A1 MODIFY ADDRESS OF NEXT 2/0/0 64 [9742] 13412 102 64 0 0 0 TRANSFER (A) TO N 18/1/1 10 [9743] 13413 32 0 0 0 10 SHIFT (AB) BY QUARTETS 24/0/3 7 [9744] 13414 124 999 7 0 3 0 A1->D1 MODIFY ADDRESS OF NEXT 2/0/0 64 [9745] 13415 102 64 0 0 0 TRANSFER (A) TO N 26/0/3 1544 [9746] 13416 126 134 6 0 3 0 LEAVE MASTER ROUTINE Start of procedure 135 at location 1555 in chapter 2 [9747] [9747] 13500 PROCR 135 REPLACE BE CHAR BY LE CHAR IN SEC 5 0/0/0 0 [9747] 13502 81 135 2 0 0 0 START OF SUBROUTINE 24/0/1 6320 [9748] 13503 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 1557 [9749] 0/0/1 1619 [9750] s 13504 C 135 51 0 0 0 gPT 0/0/1 1560 [9751] s 13505 C 135 6 0 0 0 gCARDS 1/1/3 0 [9752] 13506 10 0 0 0 0 SELECT LITERAL 2/0/0 1519 [9753] 13507 5 132 2 0 0 0 TRANSFER 26/1/1 2492 [9754] 13508 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [9755] 13509 C 0 0 0 32 Limit 26/1/2 2494 [9755] 13510 90 0 0 2 8 SET MODIFICATION REGISTER AT LITERAL [9756] 13511 C 0 0 0 2- Limit 0/1/0 40 [9756] 13512 34 5 0 1 1 0 SET (N) IN B 0/0/3 0 [9757] 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/1 0 [9759] 2/1/0 42 [9760] 0/1/1 40 [9761] 1/1/3 0 [9762] 13513 10 0 0 0 0 SELECT LITERAL 18/1/1 2 [9763] 13514 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/2 126 [9764] 13515 12 0 0 0 7. SUBTRACT LITERAL 27/0/0 1583 [9765] 13516 70 135 22 0 0 0 gBE FOUND JUMP IF A == 0 25/0/2 4098 [9766] 13517 94 135 13 0 2 2- gNEXT CHAR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1570 [9767] s 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/1 0 [9769] 13518 5 0 1 1 0 SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/1 4 [9771] 13519 5 9 4 1 1 0 TRANSFER Source: KenK/Q1000115 25/0/1 2 [9772] 13520 94 135 10 0 1 2 gNEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1563 [9773] 26/0/1 1555 [9774] 13521 82 135 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 0/1/0 3612 [9775] 13522 100 17 22 1 0 0 COPY B COPY REGISTERS 0/0/3 0 [9776] 13523 62 0 0 0 0 SET EXCESS CONSTANTS 24/0/3 22 [9777] 13524 96 0 0 1 0 SELECT MODIFIER 6/0/0 2 [9778] 2/0/0 40 [9779] 13525 16 0 0 0 5 MULTIPLY LITERAL 0/0/2 2422 [9780] 10/0/0 40 [9781] 2/1/0 2180 [9782] 13526 5 148 42 1 0 0 =10 TIMES WORD NUMBER+CLEAR WL TRANSFER 24/0/3 22 [9783] 13527 96 0 0 2 0 SELECT MODIFIER 6/0/0 4 [9784] 3/0/0 1670 [9785] 13528 3 136 2 0 0 0 COPY 1/0/1 1 [9786] 13529 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 14/0/0 2181 [9787] 13530 37 148 43 0 0 0 REPLACE SELECTED BITS 1/1/3 10 [9788] 13531 10 0 0 0 t SELECT LITERAL 5/0/0 2181 [9789] 13532 2 148 43 0 0 0 =SUBTRACT R2 MODIFIER SUBTRACT 7/0/0 2180 [9790] 13533 4 148 42 0 0 0 AUG COL POSN AUGMENT 0/0/3 2423 [9791] 13534 60 0 0 0 0 SET DECIMAL RADIX 1/0/1 3 [9792] 13535 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 1/1/3 94 [9793] 13536 10 0 0 0 5. SELECT LITERAL 24/0/1 1670 [9794] 13537 124 136 2 0 1 0 MODIFY ADDRESS OF NEXT 18/1/1 0 [9795] 13538 32 0 0 0 0 ///// SHIFT (AB) BY QUARTETS 24/1/2 15 Extra code needed to address transit area no 1, section 5 14/1/1 0 [9797] 13539 37 5 0 1 1 0 REPLACE BE BY LE REPLACE SELECTED BITS 0/0/3 0 [9798] 13540 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 1519 [9799] 13541 132 2 0 0 0 CT OF BE'S X 2 SELECT 1/1/2 10 [9800] 13542 12 0 0 0 t SUBTRACT LITERAL 27/0/0 1617 [9801] 13543 70 135 49 0 0 0 g5 ALREADY STORED JUMP IF A == 0 6/0/0 1519 [9802] 13544 92 132 2 0 4 0 SET MODIFIER AT VARIABLE 2/0/0 8184 [9803] 6/0/0 2180 [9804] 13545 148 42 0 0 0 SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 0/0/0 0 act unimp [9806] 13546 5 9 36 2 4 0 2XBE POSN CTR simulated modifier in other division 1/1/3 2 [9807] 13547 10 0 0 0 2 SELECT LITERAL 7/0/0 1519 [9808] 13548 4 132 2 0 0 0 STEP CTR AUGMENT 0/1/1 3612 [9809] 13549 100 17 22 1 1 0 REPLACE REGISTERS 24/1/0 1574 [9810] 13550 76 135 17 0 0 0 g NEXT CHAR JUMP unconditional 26/1/1 2496 [9811] 13551 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [9812] 13552 C 0 0 0 56 Limit 26/1/2 2498 [9812] 13553 90 0 0 2 8 SET MODIFICATION REGISTER AT LITERAL [9813] 13554 C 0 0 0 2- Limit 0/1/0 40 [9813] 13555 34 5 0 1 1 0 SET (N) IN B 0/0/3 0 [9814] 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/1 0 [9816] 2/1/0 42 [9817] 0/1/1 40 [9818] 1/1/3 0 [9819] 13556 10 0 0 0 0 SELECT LITERAL 18/1/1 2 [9820] 13557 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/2 126 [9821] 13558 12 0 0 0 7. SUBTRACT LITERAL 27/0/0 1643 [9822] 13559 70 135 67 0 0 0 g BE FOUND JUMP IF A == 0 25/0/2 4098 [9823] 13560 94 135 56 0 2 2- g GET NEXT CHAR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1627 [9824] s 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/1 0 [9826] 13561 5 0 1 1 0 COPY TO O/P SECTION SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/1 4 [9828] 13562 5 9 4 1 1 0 TRANSFER 25/0/1 2 [9829] 13563 94 135 53 0 1 2 gGET NEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1620 [9830] s 1/1/3 126 [9831] 13564 10 0 0 0 7. ;MISREAD SELECT LITERAL 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 46 [9833] 13565 5 9 46 1 0 0 TRANSFER 24/1/0 1145 [9834] 13566 76 121 44 0 0 0 JUMP unconditional 24/0/3 22 [9835] 13567 96 0 0 2 0 SELECT MODIFIER 6/0/0 4 [9836] 2/0/0 1670 [9837] 13568 5 136 2 0 0 0 TRANSFER 1/0/1 3 [9838] 13569 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 1/1/3 94 [9839] 13570 10 0 0 0 5. SELECT LITERAL 24/0/1 1670 [9840] 13571 124 136 2 0 1 0 MODIFY ADDRESS OF NEXT 18/1/1 0 [9841] 13572 32 0 0 0 0 ///// SHIFT (AB) BY QUARTETS 24/1/2 15 Extra code needed to address transit area no 1, section 5 14/1/1 0 [9843] 13573 37 5 0 1 1 0 REPLACE BE BY LE REPLACE SELECTED BITS 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/1 0 [9845] 13574 5 0 1 1 0 COPY LAST WORD SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/1 4 [9847] 13575 5 9 4 1 1 0 TRANSFER 0/1/0 3612 [9848] 13576 100 17 22 1 0 0 COPY REGISTERS 0/0/3 0 [9849] 13577 62 0 0 0 0 SET EXCESS CONSTANTS 24/0/3 22 [9850] 13578 96 0 0 1 0 SELECT MODIFIER 6/0/0 2 [9851] 1/1/1 4 [9852] 13579 11 0 0 0 4 ADD LITERAL Source: ChuckK/Q1000116 18/0/1 3 [9853] 13580 30 0 0 0 3 >Q4,5 SHIFT (A) BY QUARTETS 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 49 [9855] 13581 5 9 48 2 0 0 TRANSFER 1/0/1 3 [9856] 13582 35 0 0 0 11 COLUMN POSITION PREPARE FOR DIGIT COLLATION 15/0/0 1670 [9857] 13583 36 136 2 0 0 0 COLLATE AND ADD 24/1/2 21 Extra code needed to address transit area no 4, section 9 14/1/0 49 [9859] 13584 37 9 48 2 0 0 REPLACE SELECTED BITS 0/0/3 3616 [9860] 13585 100 17 26 0 3 0 SET RADIX 26/0/1 1555 [9861] 13586 82 135 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 136 at location 1670 in chapter 2 [9862] [9862] 13600 PROCR 136 GET TO START OF AMENDED PROGRAM 0/0/0 0 [9862] 13602 81 136 2 0 0 0 START OF SUBROUTINE 26/0/0 1754 [9863] 13603 80 137 2 0 0 0 READ MT ENTER SUBROUTINE 0/0/3 0 [9864] 13604 62 0 0 0 0 SET EXCESS CONSTANTS 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 4 [9866] 13605 0 10 4 1 0 0 SELECT 5/1/0 2202 [9867] 13606 2 148 64 1 0 0 FINIS' SUBTRACT 27/0/0 1730 [9868] 13607 70 136 51 0 0 0 >ALARM*02 JUMP IF A == 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 9 [9870] 13608 0 10 8 2 0 0 SELECT 5/0/0 2424 [9871] 13609 12 0 0 0 £££££ SUBTRACT LITERAL 27/0/1 1671 [9872] 13610 71 136 3 0 0 0 JUMP IF A != 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 10 [9874] 13611 0 10 10 1 0 0 SELECT 5/1/0 2192 [9875] 13612 2 148 54 1 0 0 PASS I' SUBTRACT 27/0/0 1720 [9876] 13613 70 136 43 0 0 0 JUMP IF A == 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 6 [9878] 13614 0 10 6 1 0 0 SELECT 5/1/0 2200 [9879] 13615 2 148 62 1 0 0 INDEX';USE'INDEX'DATA TO SUBTRACT 27/0/1 1671 [9880] 13616 71 136 3 0 0 0 >NO;SEE IF PROGM ON TAPE JUMP IF A != 0 26/0/0 1754 [9881] 13617 80 137 2 0 0 0 >READ ENTER SUBROUTINE 26/1/1 2500 [9882] 13618 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [9883] 13619 C 0 0 0 48 Limit 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/1 5 [9884] 13620 0 10 4 2 1 0 PROG ID SELECT 5/0/0 2158 [9885] 13621 2 148 20 0 0 0 £££££ SUBTRACT 27/0/1 1698 [9886] 13622 71 136 26 0 0 0 >NOT END SIGN JUMP IF A != 0 6/0/0 2230 [9887] 13623 148 92 0 0 0 SELECT 27/0/0 1671 [9888] 13624 70 136 3 0 0 0 >INTERCODE FOUND.REATO 'PASS I' JUMP IF A == 0 24/1/0 1730 [9889] 13625 76 136 51 0 0 0 >ALARM02 JUMP unconditional 4/0/0 2158 [9890] 13626 1 148 20 0 0 0 ADD 5/0/0 2592 [9891] 13627 2 4 2 0 0 0 PROG ID SUBTRACT 27/0/1 1717 [9892] 13628 71 136 41 0 0 0 >NOT JUMP IF A != 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/1 7 [9894] 13629 0 10 6 2 1 0 SELECT 5/0/0 2594 [9895] 13630 2 4 4 0 0 0 SERIAL SUBTRACT 27/0/1 1717 [9896] 13631 71 136 41 0 0 0 >NOT JUMP IF A != 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/1 8 [9898] 13632 10 8 1 1 0 PASS IND SELECT 1/1/2 32 [9899] 13633 12 0 0 0 20 SUBTRACT LITERAL 27/0/0 1717 [9900] 13634 70 136 41 0 0 0 >CLEO;SKIP JUMP IF A == 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/1 9 [9902] 13635 10 8 2 1 0 SELECT 27/0/0 1716 [9903] 13636 70 136 40 0 0 0 >INTERCODE JUMP IF A == 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/1 11 [9905] 13637 10 10 2 1 0 IDENTIFIER SELECT 2/0/0 8177 [9906] 13638 84 786 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 24/1/0 1717 [9907] 13639 76 136 41 0 0 0 JUMP unconditional 2/0/0 2230 [9908] 13640 5 148 92 0 0 0 SET'PROGRAM TAPE' TRANSFER 25/0/1 8 [9909] 13641 94 136 20 0 1 8 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1691 [9910] s 24/1/0 1689 [9911] 13642 76 136 17 0 0 0 >NEXT BLOCK JUMP unconditional 0/0/3 2425 [9912] 13643 60 0 0 0 0 SET DEC SET DECIMAL RADIX 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 5 [9914] 13644 0 10 4 2 0 0 SELECT Source: RayS/Q1000117 5/0/0 2592 [9915] 13645 2 4 2 0 0 0 PROG IDENTITY SUBTRACT 27/0/1 1671 [9916] 13646 71 136 3 0 0 0 gNO JUMP IF A != 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 7 [9918] 13647 0 10 6 2 0 0 SELECT 5/0/0 2594 [9919] 13648 2 4 4 0 0 0 SUBTRACT 27/0/1 1671 [9920] 13649 71 136 3 0 0 0 gNO JUMP IF A != 0 26/0/1 1670 [9921] 13650 82 136 2 0 0 0 MATCH FOUND END OF SUBROUTINE / LEAVE SUBROUTINE 0/1/0 40 [9922] 13651 41 A1 0 0 0 1 CLOSE FILE 0/0/3 0 [9923] 6/1/0 0 [9924] 1/1/1 27 [9925] 25/1/1 4096 [9926] 24/0/3 0 [9927] 23/0/2 41 [9928] 0/1/1 40 [9929] 1/1/3 1 [9930] 13652 10 0 0 0 1 SELECT LITERAL 2/0/0 2230 [9931] 13653 5 148 92 0 0 0 TRANSFER 2/0/0 8177 [9932] 13654 84 786 2 0 0 0 CLEAR SET SWITCH(ES) AT VARIABLE VALUE 1/1/3 2 [9933] 13655 150 0 0 0 2 OFFER OPTIONS 0/0/2 2426 [9934] 25/1/1 4096 [9935] 24/0/3 0 [9936] 26/0/2 1 [9937] 0/0/1 1751 [9938] s 13656 C 136 61 0 0 0 gUNLOAD 0/0/1 1749 [9939] s 13657 C 136 59 0 0 0 gTRY NEW INPUT TAPE 0/0/1 368 [9940] s 13658 C 107 11 0 0 0 gREENTER 26/0/0 1765 [9941] 13659 80 138 2 0 0 0 gOPEN A1 ENTER SUBROUTINE 24/1/0 1671 [9942] 13660 76 136 3 0 0 0 gTRY AGAIN JUMP unconditional 25/1/1 4096 [9943] 13661 151 0 0 0 0 UNLOAD PROGRAMME 24/0/3 0 [9944] 26/0/2 2 [9945] Start of procedure 137 at location 1754 in chapter 2 [9946] [9946] 13700 PROCR 137 READ A1+SEC7 0/0/0 0 [9946] 13702 81 137 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [9947] 13703 42 A1 0 0 0 0 INPUT 0/0/3 0 [9948] 0/0/2 12 [9949] 13704 C 10 0 0 0 0 INPUT 6/1/0 0 [9950] 1/1/1 27 [9951] 25/1/1 4096 [9952] 24/0/3 0 [9953] 23/0/2 42 [9954] 0/1/1 40 [9955] 26/0/1 1754 [9956] 13705 82 137 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 138 at location 1765 in chapter 2 [9957] [9957] 13800 PROCR 138 OPEN A1 0/0/0 0 [9957] 13802 81 138 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [9958] 13803 40 A1 0 0 0 1 OPEN FILE 0/0/3 0 [9959] 0/1/2 2502 [9960] 6/1/0 2504 [9961] 1/1/1 27 [9962] 25/1/1 4096 [9963] 24/0/3 0 [9964] 23/0/2 40 [9965] 0/0/3 44 [9966] 26/0/1 1765 [9967] 13804 82 138 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 139 at location 1776 in chapter 2 [9968] [9968] 13900 PROCR 139 GET NEXT ITEM 0/0/0 0 [9968] 13902 81 139 2 0 0 0 START OF SUBROUTINE 25/0/2 2 [9969] 13903 94 139 7 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1781 [9970] 26/0/0 1754 [9971] 13904 80 137 2 0 0 0 gREAD MT ENTER SUBROUTINE 26/1/2 2506 [9972] 13905 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [9973] 13906 C 0 0 0 46 Limit 26/0/1 1776 [9973] 13907 82 139 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 140 at location 1782 in chapter 2 [9974] [9974] 14000 PROCR 140 STORE ADJUST DETAILS SR 0/0/0 0 [9974] 14002 81 140 2 0 0 0 START OF SUBROUTINE 6/0/0 3593 [9975] 14003 17 3 0 0 0 SELECT 1/1/2 460 [9976] 14004 101 460 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/2 1808 [9977] 14005 72 140 28 0 0 0 gTOO MANY STORED JUMP IF A >= 0 1/1/3 0 [9978] 14006 10 0 0 0 0 SELECT LITERAL 1/0/1 3 [9979] 14007 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 15/0/0 3604 [9980] 14008 36 17 14 0 0 0 COLLATE AND ADD 2/0/0 1670 [9981] 14009 5 136 2 0 0 0 ITEM TRANSFER 6/0/0 3604 [9982] 14010 17 14 0 0 0 SELECT 18/0/1 4126 [9983] 14011 30 0 0 0 2- SHIFT (A) BY QUARTETS 26/0/0 1829 [9984] 14012 80 142 2 0 0 0 ENTER SUBROUTINE 2/0/0 1809 [9985] 14013 5 141 2 0 0 0 BIN REF TRANSFER 24/0/1 1809 [9986] 14014 124 141 2 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 2590 [9987] 14015 6 100- 0 0 0 UPDATED REF SELECT 26/0/0 1835 [9988] 14016 80 143 2 0 0 0 gTO DEC ENTER SUBROUTINE 18/0/1 2 [9989] 14017 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 1670 [9990] 14018 1 136 2 0 0 0 ADD Source: RayS/Q1000118 24/0/1 3593 [9991] 14019 124 17 3 0 1 0 MODIFY ADDRESS OF NEXT 2/0/0 4140 [9992] 14020 5 19 0 0 0 0 LOCN OF ADJUSTMENT TRANSFER 6/0/0 3605 [9993] 14021 0 17 15 0 0 0 SELECT 24/0/1 3593 [9994] 14022 124 17 3 0 1 0 MODIFY ADDRESS OF NEXT 2/0/0 4141 [9995] 14023 5 19 1 0 0 0 QUANTITY TRANSFER 0/0/3 0 [9996] 14024 62 0 0 0 0 SET EXCESS CONSTANTS 1/1/3 2 [9997] 14025 10 0 0 0 2 SELECT LITERAL 7/0/0 3593 [9998] 14026 4 17 3 0 0 0 STEP CTR AUGMENT 0/0/3 2427 [9999] 14027 60 0 0 0 0 SET DECIMAL RADIX 26/0/1 1782 [10000] 14028 82 140 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 141 at location 1809 in chapter 2 [10001] [10001] 14100 PROCR 141 SR TO READ PT AND TEST END 0/0/0 0 [10001] 14102 81 141 2 0 0 0 START OF SUBROUTINE 0/1/0 3612 [10002] 14103 100 17 22 1 0 0 COPY REGISTERS 0/0/3 0 [10003] 14104 62 0 0 0 0 SET EXCESS CONSTANTS 0/0/2 14 [10004] 14105 34 999 14 0 0 0 SET (N) IN B 6/0/0 6320 [10005] 14106 27 10 0 0 0 SELECT 1/1/1 4 [10006] 14107 11 0 0 0 4 ADD LITERAL 26/0/0 1409 [10007] 14108 80 126 2 0 0 0 gREAD B1 ENTER SUBROUTINE 0/1/1 3612 [10008] 14109 100 17 22 1 1 0 REPLACE REGISTERS 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [10010] 14110 5 0 1 0 0 SELECT 5/1/0 2508 [10011] 14111 12 0 0 0 7258555573 SHEET' SUBTRACT LITERAL 27/0/1 1823 [10012] 14112 71 141 15 0 0 0 JUMP IF A != 0 26/0/0 1497 [10013] 14113 80 131 2 0 0 0 ENTER SUBROUTINE 24/1/0 1810 [10014] 14114 76 141 3 0 0 0 gREAD NEXT BLOCK JUMP unconditional 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/0 0 [10016] 14115 0 5 0 1 0 0 SELECT 18/0/1 4124 [10017] 14116 30 0 0 0 4- SHIFT (A) BY QUARTETS 18/0/1 4 [10018] 14117 30 0 0 0 4 SHIFT (A) BY QUARTETS 5/1/0 2198 [10019] 14118 2 148 60 1 0 0 END ' SUBTRACT 26/0/1 1809 [10020] 14119 82 141 2 0 0 0 (A)=0 IF END END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 142 at location 1829 in chapter 2 [10021] [10021] 14200 PROCR 142 CONVERT TO BIN 0/0/0 0 [10021] 14202 81 142 2 0 0 0 START OF SUBROUTINE 2/1/0 2180 [10022] 14203 5 148 42 1 0 0 TRANSFER 0/0/3 0 [10023] 14204 62 0 0 0 0 SET EXCESS CONSTANTS 24/0/2 2160 [10024] 14205 124 148 22 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 2180 [10025] 14206 112 148 42 1 0 0 CONVERT 26/0/1 1829 [10026] 14207 82 142 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 143 at location 1835 in chapter 2 [10027] [10027] 14300 PROCR 143 0/0/0 0 [10027] 14302 81 143 2 0 0 0 CONVERT TO DEC START OF SUBROUTINE 2/1/0 2180 [10028] 14303 5 148 42 1 0 0 TRANSFER 0/0/3 2428 [10029] 14304 60 0 0 0 0 SET DECIMAL RADIX 24/0/2 2140 [10030] 14305 124 148 2 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 2180 [10031] 14306 112 148 42 1 0 0 CONVERT 26/0/1 1835 [10032] 14307 82 143 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 144 at location 1841 in chapter 2 [10033] [10033] 14400 PROCR 144 DEAL WITH 'TRAMD' BLOCK IF FIRST PT BLOCK 26/0/0 1994 [10033] 14402 80 145 2 0 0 0 UNPACK AND CHECK PROG ID ENTER SUBROUTINE 0/1/0 40 [10034] 14403 40 A6 0 0 0 0 OPEN FILE 0/0/3 0 [10035] 0/1/2 2510 [10036] 6/1/0 2512 [10037] 1/1/1 45 [10038] 25/1/1 4096 [10039] 24/0/3 0 [10040] 23/0/2 40 [10041] 0/0/3 44 [10042] 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 13 [10044] 14404 0 10 12 2 0 0 SELECT 2/0/0 6310 [10045] 14405 5 27 0 0 0 0 SET 'EX ISSUE 7' IND TRANSFER 1/1/3 0 [10046] 14406 10 0 0 0 0 SELECT LITERAL 24/1/2 13 Extra code needed to address transit area no 0, section 10 0/1/2 12 [10048] 14407 34 10 12 1 0 0 SET (N) IN B 18/1/1 2 [10049] 14408 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/2 71 [10050] 14409 12 0 0 0 47 SUBTRACT LITERAL 27/0/3 631 [10051] 14410 73 109 61 0 0 0 gMADE BEFORE ISSUE 7, ALARM 7 JUMP IF A < 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 17 [10053] 14411 10 16 2 0 0 MULTIRECORD IND SELECT 2/0/0 6311 [10054] 14412 5 27 1 0 0 0 TRANSFER 6/1/0 2210 [10055] 14413 0 148 72 1 0 0 'TRAMD' SELECT Source: KenK/Q1000119 2/1/0 2190 [10056] 14414 5 148 52 1 0 0 OVER 'AMEND' TRANSFER 24/0/2 2248 [10057] 14415 55 149 12 1 0 4 ADD'->PTS'TO COMMENT BULK COPY 18/1/0 4123 [10058] 14416 C 149 10 1 0 0 1/1/3 4 [10059] 18/1/1 5 [10060] 28/1/1 2246 [10061] 24/0/2 2238 [10062] 14417 52 18 0 0 0 0 EDIT 24/0/3 0 Extra code needed to address 5664 from 10063 (different chapter) 28/1/2 5664 [10064] 14418 C 149 2 0 0 0 0/1/0 40 [10065] 14419 154 18 0 0 0 0 TYPE 'TRAMD' COMMENT COMMENT IN LOG 0/0/3 0 [10066] 24/0/3 0 Extra code needed to address 5664 from 10067 (different chapter) 24/0/2 5664 [10068] 24/0/3 0 [10069] 23/0/2 154 [10070] 0/1/1 40 [10071] 26/0/0 1497 [10072] 14420 80 131 2 0 0 0 ENTER SUBROUTINE 26/0/0 1809 [10073] 14421 80 141 2 0 0 0 READ PT ENTER SUBROUTINE 27/0/1 1880 [10074] 14422 71 144 20 0 0 0 gNOT END JUMP IF A != 0 26/0/0 1497 [10075] 14423 80 131 2 0 0 0 WRITE END BLOCK ***REWIND A6 ENTER SUBROUTINE 0/1/0 40 [10076] 14424 45 A6 0 0 0 0 REWIND A6 REWIND 0/0/3 0 [10077] 6/1/0 0 [10078] 1/1/1 45 [10079] 25/1/1 4096 [10080] 24/0/3 0 [10081] 23/0/2 45 [10082] 0/1/1 40 [10083] 0/0/3 0 [10084] 14425 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 6320 [10085] 14426 27 10 0 0 0 SELECT 1/1/1 24 [10086] 14427 11 0 0 0 18 ADD LITERAL 26/0/0 1409 [10087] 14428 80 126 2 0 0 0 CLOSE B1 ENTER SUBROUTINE 6/1/0 2514 [10088] 14429 54 8 4 1 0 46 BULK CLEAR 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [10090] 0/1/0 40 [10091] 14430 40 A2 0 0 0 0 ;OPEN OUTPUT OPEN FILE 0/0/3 0 [10092] 0/1/2 2516 [10093] 6/1/0 2518 [10094] 1/1/1 36 [10095] 25/1/1 4096 [10096] 24/0/3 0 [10097] 23/0/2 40 [10098] 0/0/3 44 [10099] 18/1/1 10 [10100] 14431 32 0 0 0 10 SPOOL NO->A SHIFT (AB) BY QUARTETS 2/0/0 8174 [10101] 14432 84 153 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 26/0/0 2016 [10102] 14433 80 146 2 0 0 0 WRITE TWO BLANK BLOCKS ENTER SUBROUTINE 26/0/0 2016 [10103] 14434 80 146 2 0 0 0 ENTER SUBROUTINE 24/0/2 2212 [10104] 14435 55 148 74 1 0 10 BULK COPY 18/1/0 4123 [10105] 14436 C 8 4 1 0 0 1/1/3 10 [10106] 18/1/1 5 [10107] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [10109] 26/0/0 2016 [10110] 14437 80 146 2 0 0 0 WRITE 'INDEX' BLOCK ENTER SUBROUTINE 6/0/0 3618 [10111] 14438 17 28 0 0 0 PROG IDENTITY SELECT 3/0/0 5450 [10112] 14439 3 94 0 0 0 0 COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 5 [10114] 14440 3 8 4 2 0 0 COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 13 [10116] 14441 3 8 12 2 0 0 COPY 0/0/3 2429 [10117] 14442 60 0 0 0 0 SET DECIMAL RADIX 1/1/3 1 [10118] 14443 10 0 0 0 1 SELECT LITERAL 1/0/1 3 [10119] 14444 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 15/0/0 3619 [10120] 14445 36 17 29 0 0 0 COLLATE AND ADD 14/0/0 3619 [10121] 14446 37 17 29 0 0 0 UPDATED PROG SERIAL REPLACE SELECTED BITS 0/0/3 0 [10122] 14447 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 3619 [10123] 14448 17 29 0 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 7 [10125] 14449 3 8 6 2 0 0 COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 15 [10127] 14450 5 8 14 2 0 0 TRANSFER 1/1/3 2 [10128] 14451 10 0 0 0 2 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 11 [10130] 14452 5 8 10 2 0 0 TRANSFER 1/1/3 3 [10131] 14453 10 0 0 0 3 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 19 [10133] 14454 5 8 18 2 0 0 TRANSFER 1/1/3 4 [10134] 14455 10 0 0 0 4 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 17 [10136] 14456 5 8 16 2 0 0 TRANSFER 6/1/0 2216 [10137] 14457 148 78 1 0 0 £££££ SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 20 [10139] 14458 5 8 20 1 0 0 TRANSFER 26/0/0 2016 [10140] 14459 80 146 2 0 0 0 ENTER SUBROUTINE 6/0/0 3618 [10141] 14460 17 28 0 0 0 PROG IDENTITY SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 5 [10143] 14461 5 8 4 2 0 0 TRANSFER 6/0/0 3619 [10144] 14462 17 29 0 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 7 [10146] 14463 5 8 6 2 0 0 TRANSFER 6/1/0 2216 [10147] 14464 148 78 1 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 8 [10149] 14465 5 8 8 1 0 0 TRANSFER 6/1/0 2192 [10150] 14466 148 54 1 0 0 'PASS!' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 10 [10152] 14467 5 8 10 1 0 0 TRANSFER 6/1/0 2520 [10153] 14468 155 0 0 0 0 TRANSLATOR SERIAL SELECT PROGRAM SERIAL TO A 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 12 [10155] 14469 5 8 12 1 0 0 TRANSFER 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 14 [10157] 14470 5 8 14 1 0 0 TRANSFER 6/0/0 6311 [10158] 14471 27 1 0 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 17 [10160] 14472 5 8 16 2 0 0 MULTI RECORD IND TRANSFER 26/0/0 2016 [10161] 14473 80 146 2 0 0 0 WRITE 'PASS 1' BLOCK ENTER SUBROUTINE Source: KenK/Q1000120 26/0/0 1754 [10162] 14474 80 137 2 0 0 0 gREADA1 ENTER SUBROUTINE 26/0/0 1435 [10163] 14475 80 128 2 0 0 0 gWRITE +READ;PROCR LENGTH INDEX ENTER SUBROUTINE 26/0/0 1435 [10164] 14476 80 128 2 0 0 0 ENTER SUBROUTINE 6/0/0 3619 [10165] 14477 17 29 0 0 0 SELECT 3/0/0 5451 [10166] 14478 3 94 1 0 0 0 COPY 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 13 [10168] 14479 5 10 12 2 0 0 UPDATE SERIAL IN'PROGM'BLOCK TRANSFER 26/0/0 1435 [10169] 14480 80 128 2 0 0 0 gCOPY ENTER SUBROUTINE 6/0/0 6311 [10170] 14481 27 1 0 0 0 SELECT 27/0/0 1983 [10171] 14482 70 144 85 0 0 0 gSINGLE-RECORD BLOCKS JUMP IF A == 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 12 [10173] 14483 0 10 12 1 0 0 SELECT 24/1/0 1985 [10174] 14484 76 144 86 0 0 0 ;OF INTERCODE JUMP unconditional 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 10 [10176] 14485 0 10 10 1 0 0 SELECT 5/1/0 2184 [10177] 14486 2 148 46 1 0 0 'PROCR' SUBTRACT 27/0/0 2033 [10178] 14487 70 147 2 0 0 0 JUMP IF A == 0 4/1/0 2184 [10179] 14488 1 148 46 1 0 0 ADD 5/1/0 2188 [10180] 14489 2 148 50 1 0 0 'CONST' SUBTRACT 27/0/0 2033 [10181] 14490 70 147 2 0 0 0 JUMP IF A == 0 4/1/0 2188 [10182] 14491 1 148 50 1 0 0 ADD 5/1/0 2186 [10183] 14492 2 148 48 1 0 0 'TABLE' SUBTRACT 27/0/1 1977 [10184] 14493 71 144 80 0 0 0 JUMP IF A != 0 24/1/0 2033 [10185] 14494 76 147 2 0 0 0 JUMP unconditional Start of procedure 145 at location 1994 in chapter 2 [10186] [10186] 14500 PROCR 145 UNPACK AMEND HEADING, GET TO PROGM START 0/0/0 0 [10186] 14502 81 145 2 0 0 0 START OF SUBROUTINE 24/0/1 6320 [10187] 14503 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 1996 [10188] 0/0/1 2003 [10189] s 14504 C 145 9 0 0 0 gPT 0/0/1 1999 [10190] s 14505 C 145 6 0 0 0 gCARDS 24/0/2 2276 [10191] 14506 50 5 0 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/0/2 0 [10193] 14507 C 150 10 0 0 0 24/1/0 2006 [10194] 14508 76 145 12 0 0 0 JUMP unconditional 24/0/2 2276 [10195] 14509 124 150 10 0 2 0 UNPACK PT SELECT LITERAL AND DIVISION 24/1/2 15 [10196] 14510 124 999 15 1 2 0 MODIFY ADDRESS OF NEXT 28/0/3 0 [10197] 14511 128 0 0 3 0 UNPACK VARIABLE FIELD DATA 6/0/0 2592 [10198] 14512 4 2 0 0 0 SUITE SELECT 18/0/1 2 [10199] 14513 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 2593 [10200] 14514 1 4 3 0 0 0 ADD 3/0/0 2592 [10201] 14515 3 4 2 0 0 0 COPY 2/0/0 3618 [10202] 14516 5 17 28 0 0 0 PROG ID TRANSFER 6/0/0 2594 [10203] 14517 4 4 0 0 0 PROG SELECT 2/0/0 3619 [10204] 14518 5 17 29 0 0 0 TRANSFER 26/0/0 1765 [10205] 14519 80 138 2 0 0 0 gOPEN A1 ENTER SUBROUTINE 26/0/0 1670 [10206] 14520 80 136 2 0 0 0 gCHECK PROG ID, GET TO 'PASSI' BLOCK ENTER SUBROUTINE 26/0/1 1994 [10207] 14521 82 145 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 146 at location 2016 in chapter 2 [10208] [10208] 14600 PROCR 146 O/P->A2 0/0/0 0 [10208] 14602 81 146 2 0 0 0 START OF SUBROUTINE 6/1/0 2522 [10209] 14603 10 0 0 0 7.0000007. SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 50 [10211] 14604 5 8 50 1 0 0 TRANSFER 0/1/0 40 [10212] 14605 43 A2 0 0 0 0 OUTPUT 0/0/3 0 [10213] 0/0/2 18 [10214] 14606 C 8 0 0 0 0 OUTPUT 6/1/0 0 [10215] 1/1/1 36 [10216] 25/1/1 4096 [10217] 24/0/3 0 [10218] 23/0/2 43 [10219] 0/1/1 40 [10220] 6/1/0 2524 [10221] 14607 54 8 4 1 0 46 BULK CLEAR 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [10223] 26/0/1 2016 [10224] 14608 82 146 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 147 at location 2033 in chapter 2 [10225] [10225] 14700 PROCR 147 'TRAMD'RUN-COPY INTERCODE UP TO MIDDLE INDEX 6/0/0 6311 [10225] 14702 27 1 0 0 0 SELECT 27/0/0 2052 [10226] 14703 70 147 16 0 0 0 JUMP IF A == 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 5 [10228] 14704 0 10 4 2 0 0 SELECT Source: KenK/Q1000121 18/0/1 5 [10229] 14705 30 0 0 0 5 SHIFT (A) BY QUARTETS 3/1/0 40 [10230] 14706 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [10231] 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/1 12 [10233] 14707 0 10 12 1 1 0 SELECT 5/1/0 2198 [10234] 14708 2 148 60 1 0 0 'END' SUBTRACT 27/0/0 2056 [10235] 14709 70 147 19 0 0 0 gYES JUMP IF A == 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/1 7 [10237] 14710 0 10 6 2 1 0 RECORD LENGTH SELECT 2/0/0 2016 [10238] 14711 5 146 2 0 0 0 TRANSFER 24/0/1 2016 [10239] 14712 97 146 2 0 1 0 STEP ON AND TEST MODIFICATION REGISTER (VARIABLE) 25/0/1 0 [10240] 14713 C 147 7 0 0 0 STEP ON AND TEST MODIFICATION REGISTER (VARIABLE) 24/1/0 2040 [10241] s 26/0/0 1435 [10242] 14714 80 128 2 0 0 0 gWRITE/READ ENTER SUBROUTINE 24/1/0 2033 [10243] 14715 76 147 2 0 0 0 JUMP unconditional 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 10 [10245] 14716 0 10 10 1 0 0 SELECT 5/1/0 2198 [10246] 14717 2 148 60 1 0 0 'END' SUBTRACT 27/0/1 2050 [10247] 14718 71 147 14 0 0 0 gNOT YET JUMP IF A != 0 26/0/0 1435 [10248] 14719 80 128 2 0 0 0 gWRITE/READ/(END SIGNGET TO 'INDEX' ENTER SUBROUTINE 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 6 [10250] 14720 0 10 6 1 0 0 SELECT 5/1/0 2214 [10251] 14721 2 148 76 1 0 0 'INDEX' SUBTRACT 27/0/1 2056 [10252] 14722 71 147 19 0 0 0 gNOT YET JUMP IF A != 0 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/0 11 [10254] 14723 10 10 2 0 0 SELECT 1/1/2 3 [10255] 14724 12 0 0 0 3 SUBTRACT LITERAL 27/0/0 2082 [10256] 14725 70 147 33 0 0 0 JUMP IF A == 0 6/0/0 8177 [10257] 14726 86 786 2 0 0 0 PASS 3 ID SELECT SWITCH R 2/0/0 1829 [10258] 14727 5 142 2 0 0 0 TRANSFER 0/1/0 40 [10259] 14728 46 A1 10 0 0 1 RUN BACK 0/0/3 0 [10260] 6/0/0 1829 [10261] 14729 C 142 2 0 0 0 RUN BACK 4/1/0 2526 [10262] 18/1/1 4118 [10263] 6/1/0 0 [10264] 1/1/1 27 [10265] 25/1/1 4096 [10266] 24/0/3 0 [10267] 23/0/2 46 [10268] 0/1/1 40 [10269] 26/0/0 1754 [10270] 14730 80 137 2 0 0 0 ENTER SUBROUTINE 1/1/3 3 [10271] 14731 10 0 0 0 3 SELECT LITERAL 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 11 [10273] 14732 5 10 10 2 0 0 TRANSFER 26/0/0 1435 [10274] 14733 80 128 2 0 0 0 gWRITE/READ ENTER SUBROUTINE 26/1/1 2528 [10275] 14734 90 0 0 1 0 ;DRAIN INDEX DETAILS SET MODIFICATION REGISTER AT LITERAL [10276] 14735 C 0 0 0 48 Limit 24/1/2 13 Extra code needed to address transit area no 0, section 10 6/1/1 5 [10277] 14736 0 10 4 2 1 0 PROG IDENTITY SELECT 5/0/0 2158 [10278] 14737 2 148 20 0 0 0 £££££ SUBTRACT 27/0/0 2092 [10279] 14738 70 147 42 0 0 0 gEND JUMP IF A == 0 25/0/1 8 [10280] 14739 94 147 36 0 1 8 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2084 [10281] s 26/0/0 1754 [10282] 14740 80 137 2 0 0 0 gREAD ENTER SUBROUTINE 24/1/0 2083 [10283] 14741 76 147 34 0 0 0 JUMP unconditional 6/0/0 2430 [10284] 14742 10 0 0 0 1.006 1/1/3 6(R1 NON-ZERO) SELECT LITERAL 3/0/0 6044 [10285] 14743 3 92 30 0 0 0 SET'AMEND RUN' COPY 3/0/0 6323 [10286] 14744 3 27 13 0 0 0 SET NONZERO COPY 3/0/0 6321 [10287] 14745 3 27 11 0 0 0 COPY 2/0/0 48 [10288] a 14746 5 101 4 0 0 0 CHANGE OLAY ORDER TRANSFER 1/1/3 2 [10289] 14747 10 0 0 0 2 SELECT LITERAL 2/0/0 6322 [10290] 14748 5 27 12 0 0 0 SET'PTS NEEDED' TRANSFER 26/0/0 1540 [10291] 14749 80 134 2 0 0 0 RESTORE ASLS ENTER SUBROUTINE 6/0/0 6319 [10292] 14750 27 9 0 0 0 OFF LINE PRINT? SELECT 27/0/0 2109 [10293] 14751 70 147 59 0 0 0 gPRINTER JUMP IF A == 0 6/1/0 2530 [10294] 14752 90 0 0 6 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8180 [10295] 14753 C 0 0 0 300 Simulated modifier 6/0/0 8176 [10296] 14754 86 787 2 0 0 0 A9 OR NOT SELECT SWITCH R 27/0/1 2118 [10297] 14755 71 147 68 0 0 0 g'PRINT'BLOCK JUMP IF A != 0 6/1/0 2532 [10298] 14756 10 0 0 0 1200000 ;OPEN MT SELECT LITERAL 0/1/2 2236 [10299] 14757 34 148 98 1 0 0 OFF LINE PRINT? SET (N) IN B 24/1/0 2112 [10300] 14758 76 147 62 0 0 0 JUMP unconditional 6/0/0 6318 [10301] 14759 27 8 0 0 0 ;OPEN PRINTER SELECT 1/1/1 10 [10302] 14760 11 0 0 0 t ADD LITERAL 18/0/1 5 [10303] 14761 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 7 [10304] 14762 1 999 7 0 0 0 ADD 25/1/1 4096 [10305] 14763 125 4096 1 1 0 CLEAR INDICATORS Source: ChuckK/Q1000122 24/0/3 0 [10306] 14764 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [10307] 14765 123 160 0 2 0 ENTER MASTER ROUTINE 6/0/0 6319 [10308] 14766 27 9 0 0 0 SELECT 27/0/0 1388 [10309] 14767 70 125 40 0 0 0 >ENTER PASS 4 JUMP IF A == 0 6/1/0 2534 [10310] 14768 10 0 0 0 6769596573 PRINT' SELECT LITERAL 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 4 [10312] 14769 5 10 4 1 0 0 TRANSFER 6/0/0 2431 [10313] 14770 10 0 0 0 8000 SELECT LITERAL 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 7 [10315] 14771 5 10 6 2 0 0 TRANSFER 6/1/0 2536 [10316] 14772 155 0 0 0 0 SELECT PROGRAM SERIAL TO A 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 8 [10318] 14773 5 10 8 1 0 0 TRANSLATOR SERIAL TRANSFER 6/0/0 3618 [10319] 14774 17 28 0 0 0 PROG ID SELECT 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 11 [10321] 14775 5 10 10 2 0 0 TRANSFER 6/1/0 2538 [10322] 14776 10 0 0 0 7.0000007. SELECT LITERAL 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 12 [10324] 14777 5 10 12 1 0 0 TRANSFER 6/1/0 2540 [10325] 14778 10 0 0 0 800000 ;WRITE A9 HDG BLOCK SELECT LITERAL 0/0/2 12 [10326] 14779 34 999 12 0 0 0 SET (N) IN B 25/1/1 4096 [10327] 14780 125 4096 1 1 0 CLEAR INDICATORS 4/0/0 7 [10328] 14781 1 999 7 0 0 0 ADD 24/0/3 0 [10329] 14782 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [10330] 14783 123 160 0 2 0 ENTER MASTER ROUTINE 24/1/0 1388 [10331] 14784 76 125 40 0 0 0 >ENTER PASS 4 JUMP unconditional Start of procedure 148 at location 2140 in chapter 2 [10332] [10332] 14800 CONST 148 1 CONVERT TABLES 0/0/0 1 [10332] 14802 (D)1; BIN>DEC 00001 +00000 0/0/0 0 [10333] 0/0/0 22 [10334] 14804 16; 00016 +00000 0/0/0 0 [10335] 0/0/0 598 [10336] 14806 256; 00256 +00000 0/0/0 0 [10337] 0/0/2 150 [10338] 14808 4096; 04096 +00000 0/0/0 0 [10339] 6/0/2 5430 [10340] 14810 65536; 65536 +00000 0/0/0 0 [10341] 4/1/0 1398 [10342] 14812 1048576; 48576 +00010 0/0/0 16 [10343] 7/0/3 4630 [10344] 14814 16777216; 77216 +00167 0/0/0 359 [10345] 3/0/2 5206 [10346] 14816 268435456; 35456 +02684 0/0/1 1668 [10347] 6/0/3 4758 [10348] 14818 4294967296; 67296 +42949 4/0/1 2377 [10349] 15/1/3 8191 [10350] 14820 ££££££££££; FFFFF +FFFFF 15/1/3 8191 [10351] 0/0/0 1 [10352] 14822 1; DEC>BIN 00001 +00000 0/0/0 0 [10353] 0/0/0 10 [10354] 14824 t; 0000A +00000 0/0/0 0 [10355] 0/0/0 100 [10356] 14826 64; 00064 +00000 0/0/0 0 [10357] 0/0/0 1000 [10358] 14828 3.8; 003E8 +00000 0/0/0 0 [10359] 0/0/1 1808 [10360] 14830 2710; 02710 +00000 0/0/0 0 [10361] 1/1/0 1696 [10362] 14832 186t0; 186A0 +00000 0/0/0 0 [10363] 15/0/2 576 [10364] 14834 £4240; F4240 +00000 0/0/0 0 [10365] 8/1/0 5760 [10366] 14836 989680; 89680 +00009 0/0/0 9 [10367] 5/1/3 256 [10368] 14838 5£5.100; 5E100 +0005F 0/0/0 95 [10369] 10/1/2 2560 [10370] 14840 3e9t+t00; ACA00 +003B9 0/0/0 953 [10371] 0/0/0 0 [10372] 14842 0; WL(A) 00000 +00000 0/0/0 0 [10373] 6/0/2 5988 [10374] 14844 (A)PROGM; 65764 +67696 6/0/3 5782 [10375] 6/0/2 4969 [10376] 14846 (A)PROCR; 65369 +67696 6/0/3 5782 [10377] 2/0/3 853 [10378] 14848 (A)TABLE; 26355 +73515 7/0/1 5397 [10379] 5/0/3 4723 [10380] 14850 (A)CONST; 57273 +53666 5/0/1 5734 [10381] 5/0/3 1364 [10382] 14852 AMEND; 56554 +51645 5/0/0 5701 [10383] 2/0/3 4697 [10384] 14854 (A)PASSI; 27259 +67517 6/0/3 5399 [10385] 4/0/3 1906 [10386] 14856 (A)DUMPS; 46772 +54746 5/0/2 1862 [10387] 3/0/2 5490 [10388] 14858 (A)FILES; 35572 +56596 5/0/3 1430 [10389] 4/0/0 0 [10390] 14860 (A)END ; 40000 +55655 5/0/2 5717 [10391] 4/0/2 5495 [10392] 14862 (A)INDEX; 45577 +59655 5/1/0 5717 [10393] 5/0/2 6514 [10394] 14864 FINIS; 55972 +56596 5/0/3 1430 [10395] 0/0/2 7774 [10396] 14866 (D)0000005.5.; DOUBLE LINE END 05E5E +00000 0/0/0 0 [10397] 0/0/0 1023 [10398] 14868 (D)3££; BITS 1-10 003FF +00000 0/0/0 0 [10399] 0/1/0 0 [10400] 14870 0524108000; 08000 +05241 0/0/2 4673 [10401] 1/0/3 1108 [10402] 14872 (A)TRAMD; 16454 +73695 7/0/1 5781 [10403] 15/0/3 3951 [10404] 14874 (D)6£6£6£6£6£; F6F6F +6F6F6 6/1/3 5878 [10405] Source: DavidH/Q1000123 4/0/2 5495 [10406] 14876 (A)INDEX; 45577 +59655 5/1/0 5717 [10407] 15/0/2 3919 [10408] 14878 £££££; F4F4F +4F4F4 4/1/3 5364 [10409] 0/0/0 66 [10410] 14880 2; 00042 +00000 0/0/0 0 [10411] 1/0/2 6501 [10412] 14882 CHAIN; 15965 +53585 5/0/1 5509 [10413] 5/0/3 1364 [10414] 14884 FIEND; 56554 +56595 5/0/3 1429 [10415] 0/0/1 4144 [10416] 14886 08000; 03030 +30483 3/0/0 1155 [10417] 3/0/3 1619 [10418] 14888 ALLOC; 36653 +51636 5/0/0 5686 [10419] 5/0/2 5120 [10420] 14890 ATED ; 55400 +51735 5/0/0 5941 [10421] 3/0/3 2385 [10422] 14892 EXTRA; 36951 +55777 5/0/2 6007 [10423] 4/0/3 4949 [10424] 14894 ROUTE; 47355 +69667 6/1/0 5735 [10425] 0/0/0 248 [10426] 14896 (D)£8; 000F8 +00000 0/0/0 0 [10427] 0/1/0 0 [10428] 14898 (D)0514908000; BITS 4-8 08000 +05149 0/0/2 4425 [10429] Start of procedure 149 at location 2238 in chapter 2 [10430] [10430] 14900 TABLE 149 1 1 TYPE'AMEND'COMMENT 0/0/1 2224 [10430] 14902 148 86 0 0 2 0 5 0 0 0 0 0 0 08000' 3/0/0 5 [10431] 0/0/1 2190 [10432] 14904 148 52 0 0 2 0 5 0 2 0 0 0 0 AMEND' 3/0/0 37 [10433] 0/0/1 2592 [10434] 14906 4 2 0 0 0 0 5 0 2 0 0 0 0 PROG NO 0/0/0 37 [10435] 0/0/1 2594 [10436] 14908 4 4 0 0 0 0 5 0 1 4 0 0 0 SERIAL NO 0/0/2 21 [10437] 0/0/1 2204 [10438] 14910 148 66 0 0 2 0 2 3 3 0 0 0 1 DOUBLE LINE END 19/0/0 818 [10439] 0/0/1 2294 [10440] 14912 151 2 0 0 2 0 5 0 5 0 0 0 0 <PTS 3/0/0 85 [10441] 0/0/1 2204 [10442] 14914 148 66 0 0 2 0 2 3 3 0 0 0 1 DOUBLE LINE END 19/0/0 818 [10443] 0/0/1 2224 [10444] 14916 148 86 0 0 2 0 5 0 0 0 0 0 0 08000' 3/0/0 5 [10445] 0/0/1 2226 [10446] 14918 148 88 0 0 2 0 5 0 1 0 0 0 0 ALLOC' 3/0/0 21 [10447] 0/0/1 2228 [10448] 14920 148 90 0 0 2 0 5 0 0 0 0 0 0 ATED' 3/0/0 5 [10449] 0/0/1 2230 [10450] 14922 148 92 0 0 2 0 5 0 0 0 0 0 0 EXTRA' 3/0/0 5 [10451] 0/0/1 2232 [10452] 14924 148 94 0 0 2 0 5 0 1 0 0 0 0 ROUTE' 3/0/0 21 [10453] 0/0/1 2180 [10454] 14926 148 42 0 0 0 0 2 3 2 1 0 0 0 CHANNEL 0/0/0 4898 [10455] 0/0/1 1454 [10456] 14928 129 2 0 0 0 0 1 4 0 0 0 0 0 ROUTE 0/0/0 1025 [10457] 0/0/1 2204 [10458] 14930 148 66 0 0 2 0 2 3 1 0 0 0 1 DOUBLE LE 19/0/0 786 [10459] Start of procedure 150 at location 2268 in chapter 2 [10460] [10460] 15000 TABLE 150 3 3 UNPACK PT OR CARD INPUT 0/0/1 2592 [10460] 15002 4 2 0 0 2 0 5 0 0 0 0 0 0 SER+AMEND DIRECTIVE 3/0/0 5 [10461] 0/0/1 2596 [10462] 15004 4 6 0 0 2 0 5 0 0 0 0 0 0 DIRECTIVE WORD 3/0/0 5 [10463] 0/0/1 2598 [10464] 15006 4 8 0 0 1 0 3 0 0 0 0 0 0 PROCR NUMBER 2/0/0 3 [10465] 0/0/1 2606 [10466] 15008 4 16 0 0 0 0 1 0 0 0 0 0 1 /////TYPE OR(ANNOTATION+TYPE) 16/0/0 1 [10467] 0/0/1 2596 [10468] 15010 4 6 0 0 2 0 5 0 0 0 0 0 0 (AMEND) 3/0/0 5 [10469] 0/0/1 2592 [10470] 15012 4 2 0 0 0 0 3 0 0 0 0 0 0 SUITE 0/0/0 3 [10471] 0/0/1 2593 [10472] 15014 4 3 0 0 0 0 2 0 0 0 0 0 0 JOB 0/0/0 2 [10473] 0/0/1 2594 [10474] 15016 4 4 0 0 0 0 5 0 0 0 0 0 1 SERIAL 16/0/0 5 [10475] 0/0/1 2592 [10476] 15018 4 2 0 0 2 0 5 0 0 0 0 0 0 SERIAL 3/0/0 5 [10477] 0/0/1 2594 [10478] 15020 4 4 0 0 2 0 5 0 0 0 0 0 0 DIRECTIVE LETER 3/0/0 5 [10479] 0/0/1 2596 [10480] 15022 4 6 0 0 2 0 5 0 0 0 0 0 0 DIRECTIVE WORD 3/0/0 5 [10481] 0/0/1 2598 [10482] 15024 4 8 0 0 1 0 3 0 0 0 0 0 0 PROCR NUMBER 2/0/0 3 [10483] 0/0/1 2606 [10484] 15026 4 16 0 0 0 0 1 0 0 0 0 0 1 TYPE 16/0/0 1 [10485] Start of procedure 151 at location 2294 in chapter 2 [10486] [10486] 15100 CONST 151 1 1 7/0/3 4978 [10486] 15102 (A)+ PTS; 77372 +4C006 4/1/2 6 [10487] 0/0/0 0 [10488] 15104 ; 00000 +00000 0/0/0 0 [10489] 0/0/0 0 [10490] 15106 ; 00000 +00000 0/0/0 0 [10491] 0/0/0 0 [10492] 15108 ; 00000 +00000 0/0/0 0 [10493] 0/0/0 0 [10494] 15110 ; 00000 +00000 0/0/0 0 [10495] 0/0/0 0 [10496] 15112 ; 00000 +00000 0/0/0 0 [10497] 0/0/0 0 [10498] 15114 ; 00000 +00000 0/0/0 0 [10499] 0/0/0 0 [10500] 15116 ; 00000 +00000 0/0/0 0 [10501] 0/0/0 0 [10502] 15118 ; 00000 +00000 0/0/0 0 [10503] 0/0/0 0 [10504] 15120 ; 00000 +00000 0/0/0 0 [10505] 0/0/0 0 [10506] 15122 ; 00000 +00000 0/0/0 0 [10507] 0/0/0 0 [10508] 15124 ; 00000 +00000 0/0/0 0 [10509] 0/0/0 0 [10510] 15126 ; 00000 +00000 0/0/0 0 [10511] 0/0/0 0 [10512] 15128 ; 00000 +00000 0/0/0 0 [10513] Source: ChuckK/Q1000124 0/0/0 0 [10514] 15130 ; 00000 +00000 0/0/0 0 [10515] 0/0/0 0 [10516] 15132 ; 00000 +00000 0/0/0 0 [10517] 0/0/0 0 [10518] 15134 ; 00000 +00000 0/0/0 0 [10519] 0/0/0 0 [10520] 15136 ; 00000 +00000 0/0/0 0 [10521] 0/0/0 0 [10522] 15138 ; 00000 +00000 0/0/0 0 [10523] 0/0/0 0 [10524] 15140 ; 00000 +00000 0/0/0 0 [10525] 0/0/0 0 [10526] 15142 ; 00000 +00000 0/0/0 0 [10527] 0/0/0 0 [10528] 15144 ; 00000 +00000 0/0/0 0 [10529] 0/0/0 0 [10530] 15146 ; 00000 +00000 0/0/0 0 [10531] 0/0/0 0 [10532] 15148 ; 00000 +00000 0/0/0 0 [10533] 0/0/0 0 [10534] 15150 ; 00000 +00000 0/0/0 0 [10535] 0/0/0 0 [10536] 15152 ; 00000 +00000 0/0/0 0 [10537] 0/0/0 0 [10538] 15154 ; 00000 +00000 0/0/0 0 [10539] 0/0/0 0 [10540] 15156 ; 00000 +00000 0/0/0 0 [10541] 0/0/0 0 [10542] 15158 ; 00000 +00000 0/0/0 0 [10543] 0/0/0 0 [10544] 15160 ; 00000 +00000 0/0/0 0 [10545] 0/0/0 0 [10546] 15162 ; 00000 +00000 0/0/0 0 [10547] 0/0/0 0 [10548] 15164 ; 00000 +00000 0/0/0 0 [10549] 0/0/0 0 [10550] 15166 ; 00000 +00000 0/0/0 0 [10551] 0/0/0 0 [10552] 15168 ; 00000 +00000 0/0/0 0 [10553] 0/0/0 0 [10554] 15170 ; 00000 +00000 0/0/0 0 [10555] 0/0/0 0 [10556] 15172 ; 00000 +00000 0/0/0 0 [10557] 0/0/0 0 [10558] 15174 ; 00000 +00000 0/0/0 0 [10559] 0/0/0 0 [10560] 15176 ; 00000 +00000 0/0/0 0 [10561] 0/0/0 0 [10562] 15178 ; 00000 +00000 0/0/0 0 [10563] 0/0/0 0 [10564] 15180 ; 00000 +00000 0/0/0 0 [10565] 0/0/0 0 [10566] 15182 ; 00000 +00000 0/0/0 0 [10567] 0/0/0 0 [10568] 15184 ; 00000 +00000 0/0/0 0 [10569] 0/0/0 0 [10570] 15186 ; 00000 +00000 0/0/0 0 [10571] 0/0/0 0 [10572] 15188 ; 00000 +00000 0/0/0 0 [10573] 0/0/0 0 [10574] 15190 ; 00000 +00000 0/0/0 0 [10575] 0/0/0 0 [10576] 15192 ; 00000 +00000 0/0/0 0 [10577] 0/0/0 0 [10578] 15194 ; 00000 +00000 0/0/0 0 [10579] 0/0/0 0 [10580] 15196 ; 00000 +00000 0/0/0 0 [10581] 0/0/0 0 [10582] 15198 ; 00000 +00000 0/0/0 0 [10583] Constants for chapter 2 short constants at 10584 long constants at 10624 0/0/1 0 [10584] 002000 0/0/2 0 [10585] 004000 0/0/3 0 [10586] 006000 0/0/0 3 [10587] 000003 6/0/3 1638 [10588] 066666 0/0/0 20 [10589] 000014 6/0/3 1638 [10590] 066666 0/0/0 2 [10591] 000002 6/0/3 1638 [10592] 066666 0/0/0 20 [10593] 000014 6/0/3 1638 [10594] 066666 6/0/3 1638 [10595] 066666 0/0/0 2 [10596] 000002 0/1/0 6553 [10597] 009999 6/0/3 1638 [10598] 066666 2/0/0 0 [10599] 020000 6/0/3 1638 [10600] 066666 6/0/3 1638 [10601] 066666 6/0/3 1638 [10602] 066666 16/0/0 1 [10603] 100001 6/0/3 1638 [10604] 066666 1/0/0 2 [10605] 010002 16/0/0 1 [10606] 100001 6/0/3 1638 [10607] 066666 0/0/0 20 [10608] 000014 0/0/0 20 [10609] 000014 0/0/0 2 [10610] 000002 6/0/3 1638 [10611] 066666 0/0/0 20 [10612] 000014 6/0/3 1638 [10613] 066666 0/0/0 5 [10614] 000005 6/0/3 1638 [10615] 066666 15/1/3 8191 [10616] 0FFFFF 6/0/3 1638 [10617] 066666 0/0/0 3 [10618] 000003 6/0/3 1638 [10619] 066666 6/0/3 1638 [10620] 066666 6/0/3 1638 [10621] 066666 1/1/3 6 [10622] 01E006 0/1/0 0 [10623] 008000 0/0/0 64 [10624] 000040 0/0/0 128 [10625] 000080 0/0/0 192 [10626] 0000C0 0/0/0 240 [10627] 0000F0 0/0/0 0 [10628] 000000 2/0/0 2158 [10629] 02086E 0/0/0 0 [10630] 000000 2/0/0 838 [10631] 020346 0/1/0 153 [10632] 008099 0/0/2 4422 [10633] 005146 0/0/0 0 [10634] 000000 0/0/0 0 [10635] 000000 0/0/0 0 [10636] 000000 2/0/0 18 [10637] 020012 0/0/0 0 [10638] 000000 0/0/0 9 [10639] 000009 0/1/0 153 [10640] 008099 0/0/2 4422 [10641] 005146 0/0/0 0 [10642] 000000 0/0/0 0 [10643] 000000 0/0/0 0 [10644] 000000 2/0/0 50 [10645] 020032 0/0/0 126 [10646] 00007E 7/1/3 0 [10647] 07E000 3/0/3 5205 [10648] 037455 7/0/2 5398 [10649] 075516 0/0/0 0 [10650] 000000 0/0/0 900 [10651] 000384 0/0/0 0 [10652] 000000 0/0/0 2 [10653] 000002 0/0/0 0 [10654] 000000 0/0/0 460 [10655] 0001CC 0/0/0 0 [10656] 000000 0/0/0 160 [10657] 0000A0 0/0/0 0 [10658] 000000 0/0/0 50 [10659] 000032 0/0/0 0 [10660] 000000 0/0/0 100 [10661] 000064 15/1/3 8191 [10662] 0FFFFF 0/0/0 8 [10663] 000008 0/0/0 0 [10664] 000000 0/0/0 46 [10665] 00002E 0/0/0 0 [10666] 000000 0/0/0 460 [10667] 0001CC 0/0/0 0 [10668] 000000 2/0/0 45 [10669] 02002D 0/0/0 0 [10670] 000000 0/0/0 45 [10671] 00002D 0/0/0 0 [10672] 000000 0/0/0 20 [10673] 000014 0/0/0 0 [10674] 000000 0/0/0 450 [10675] 0001C2 0/0/0 0 [10676] 000000 0/0/0 900 [10677] 000384 0/0/0 1 [10678] 000001 0/0/0 0 [10679] 000000 0/0/0 126 [10680] 00007E 7/1/3 0 [10681] 07E000 0/0/0 0 [10682] 000000 2/0/0 50 [10683] 020032 0/0/0 0 [10684] 000000 0/0/0 32 [10685] 000020 0/0/0 8 [10686] 000008 0/0/3 8190 [10687] 007FFE 0/0/0 0 [10688] 000000 0/0/0 56 [10689] 000038 0/0/0 8 [10690] 000008 0/0/3 8190 [10691] 007FFE 0/0/0 0 [10692] 000000 0/0/0 48 [10693] 000030 0/1/0 153 [10694] 008099 0/0/2 4417 [10695] 005141 0/0/0 0 [10696] 000000 0/0/0 0 [10697] 000000 0/0/0 0 [10698] 000000 0/0/0 46 [10699] 00002E 5/0/2 5491 [10700] 055573 7/0/1 1413 [10701] 072585 0/1/0 153 [10702] 008099 0/0/2 4422 [10703] 005146 0/0/0 0 [10704] 000000 0/0/0 0 [10705] 000000 0/0/0 0 [10706] 000000 2/0/0 46 [10707] 02002E 0/1/0 153 [10708] 008099 0/0/2 4418 [10709] 005142 0/0/0 0 [10710] 000000 0/0/0 0 [10711] 000000 0/0/2 321 [10712] 004141 3/0/0 1155 [10713] 030483 0/0/0 126 [10714] 00007E 7/1/3 0 [10715] 07E000 0/0/0 0 [10716] 000000 2/0/0 46 [10717] 02002E 0/0/0 0 [10718] 000000 0/0/0 10 [10719] 00000A 0/0/0 0 [10720] 000000 0/0/0 48 [10721] 000030 0/0/0 0 [10722] 000000 0/0/0 300 [10723] 00012C 0/0/0 0 [10724] 000000 0/0/0 18 [10725] 000012 9/0/3 1395 [10726] 096573 6/0/3 5781 [10727] 067695 0/0/2 321 [10728] 004141 3/0/0 1155 [10729] 030483 0/0/0 126 [10730] 00007E 7/1/3 0 [10731] 07E000 0/0/0 0 [10732] 000000 0/0/0 8 [10733] 000008 L8192 loading procedure 0 for chapter 2 0/0/0 0 [8192] 000000 0/0/0 5600 [8193] 0015E0 0/0/0 5600 [8194] 0015E0 0/0/1 0 [8195] 002000 0/0/1 0 [8196] 002000 0/0/0 160 [8197] 0000A0 0/0/0 160 [8198] 0000A0 0/0/0 9 [8199] 000009 0/0/0 18 [8200] 000012 0/0/0 27 [8201] 00001B 0/0/0 36 [8202] 000024 0/0/0 45 [8203] 00002D 0/0/0 10 [8204] 00000A 16/0/0 74 [8205] 10004A 0/0/0 19 [8206] 000013 16/0/0 83 [8207] 100053 0/0/0 28 [8208] 00001C 16/0/0 92 [8209] 10005C 0/0/0 37 [8210] 000025 16/0/0 101 [8211] 100065 0/0/0 46 [8212] 00002E 16/0/0 110 [8213] 10006E 0/0/0 8 [8214] 000008 16/0/0 10 [8215] 10000A 16/0/0 12 [8216] 10000C 16/0/0 14 [8217] 10000E 0/0/0 0 [8218] 000000 0/0/0 0 [8219] 000000 0/0/0 0 [8220] 000000 0/0/0 0 [8221] 000000 0/0/0 0 [8222] 000000 0/0/0 0 [8223] 000000 0/0/0 0 [8224] 000000 0/0/0 0 [8225] 000000 0/0/0 0 [8226] 000000 0/0/0 0 [8227] 000000 0/0/0 0 [8228] 000000 0/0/0 0 [8229] 000000 0/0/0 0 [8230] 000000 0/0/0 0 [8231] 000000 O00 8192 10734 Overlaying chapter 2 by 3, equivalent to chapter 2 L8238 loading chapter 3 Start of procedure 152 at location 46 in chapter 3 [8238] [8238] 15200 PROCR 152 152 START OF PASS 1 [8238] 15201 NOTES TEST DID THE COMPILER READ IN THE TRANSLATOR PROCR 327 in CHAP 4 overlay = 3 24/0/3 0 [8238] 15202 152 152 4 0 0 0 CALL/ENTER PASS 2 OVERLAY 23/0/2 103 [8239] 15203 C 327 6 0 0 0 (OVERLAY THE OLAY ORDER) OVERLAY 0/0/3 0 [8240] 15204 62 0 0 0 0 SET EXCESS CONSTANTS 6/1/0 5132 [8241] 15205 54 25 0 1 0 42 CLEAR TRACE SECN BULK CLEAR 28/1/1 6248 [8242] 6/0/0 6320 [8243] 15206 27 10 0 0 0 SELECT 1/1/2 1 [8244] 15207 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 57 [8245] 15208 70 152 12 0 0 0 >B1 IS PT JUMP IF A == 0 6/0/0 5075 [8246] a 15209 326 8 0 0 0 28/0/2 SELECT 2/0/0 5071 [8247] 15210 5 326 4 0 0 0 SET 'UNPACK FIXED' TRANSFER 24/1/0 62 [8248] 15211 76 152 17 0 0 0 JUMP unconditional 1/0/1 512 [8249] 15212 101 512 0 1 0 Q10 PREPARE FOR DIGIT COLLATION 18/1/3 3 [8250] 15213 33 0 0 0 3 SHIFT (AB) BY BITS 1/1/3 0 [8251] 15214 10 0 0 0 0 SELECT LITERAL 14/1/0 4562 [8252] 15215 37 312 8 1 0 0 CLEAR BIT 40 REPLACE SELECTED BITS 14/1/0 4568 [8253] 15216 37 312 14 1 0 0 DO. REPLACE SELECTED BITS 6/0/0 5073 [8254] 15217 326 6 0 0 0 SELECT 3/0/0 6246 [8255] 15218 3 23 46 0 0 0 SET 'PRINT PASS 2' COPY 2/0/0 5070 [8256] 15219 5 326 3 0 0 0 TRANSFER 6/1/0 5134 [8257] 15220 54 1 0 1 0 46 BULK CLEAR 28/1/1 5292 [8258] Source: ChuckK/Q1000125 1/1/3 1 [8259] 15221 83 100 2 0 0 1 SET 'PRINT PASS 3' SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8173 [8260] 2/0/0 6316 [8261] 15222 5 27 6 0 0 0 CLEAR 'PT OMITTED' TRANSFER 2/0/0 8172 [8262] 15223 84 511 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 2/0/0 8171 [8263] 15224 84 514 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 2/0/0 6314 [8264] 15225 5 27 4 0 0 0 TRANSFER 1/1/3 5 [8265] 15226 83 252 2 0 0 5 AMEND DIRECTIVE SWITCH SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8170 [8266] 24/0/3 22 [8267] 15227 95 0 0 1 0 SELECT MODIFICATION REGISTER 6/1/0 2 [8268] 27/0/0 234 [8269] 15228 70 157 2 0 0 0 >COMPILER DIDN'T CALL TRAMSLATOR JUMP IF A == 0 3/1/0 5292 [8270] 15229 3 1 0 1 0 0 COPY 6/1/0 5136 [8271] 15230 54 27 0 1 0 20 BULK CLEAR 28/1/1 6310 [8272] 24/0/3 22 [8273] 15231 96 0 0 3 0 MOD ONLY A9 IND SELECT MODIFIER 6/0/0 6 [8274] 3/0/0 6319 [8275] 15232 3 27 9 0 0 0 SET IND COPY 6/0/0 5079 [8276] 15233 10 0 0 0 70000 SELECT LITERAL 3/0/0 6310 [8277] 15234 3 27 0 0 0 0 SET 'MULTI RECORD' COPY 3/0/0 6314 [8278] 15235 3 27 4 0 0 0 SET'COMPILER' COPY 2/0/0 6311 [8279] 15236 5 27 1 0 0 0 SET 'ISSUE 7 O/P' TRANSFER 6/1/0 5138 [8280] 15237 54 72 0 1 0 888 BULK CLEAR 28/1/1 5398 [8281] 0/0/2 5293 [8282] 15238 34 1 1 0 0 0 SET (N) IN B 15/0/0 4798 [8283] 15239 36 320 22 0 0 0 1 COLLATE AND ADD 27/0/0 95 [8284] 15240 70 152 42 0 0 0 JUMP IF A == 0 1/1/3 2 [8285] 15241 83 100 2 0 0 2 SET 'DONT PRINT' SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8173 [8286] 15/0/0 4717 [8287] 15242 36 318 2 0 0 0 BIT 2 COLLATE AND ADD 1/1/2 2 [8288] 15243 12 0 0 0 2 SUBTRACT LITERAL 2/0/0 6246 [8289] 15244 5 23 46 0 0 0 INHIBIT PRINT TRANSFER 15/0/0 4725 [8290] 15245 36 318 10 0 0 0 BIT 3='PTS NEEDED' COLLATE AND ADD 1/1/2 4 [8291] 15246 12 0 0 0 4 SUBTRACT LITERAL 27/0/0 103 [8292] 15247 70 152 50 0 0 0 >NO JUMP IF A == 0 1/1/3 2 [8293] 15248 10 0 0 0 2 SELECT LITERAL 2/0/0 6322 [8294] 15249 5 27 12 0 0 0 TRANSFER 15/0/0 4722 [8295] 15250 36 318 7 0 0 0 BIT 4='CLEO TRAMD'IF NON-ZERO COLLATE AND ADD 2/0/0 6312 [8296] 15251 5 27 2 0 0 0 SET'PSEUDO-ISSUE 5' TRANSFER 1/1/3 450 [8297] 15252 101 450 1 3 0 SELECT LITERAL ADDRESS 18/0/1 5 [8298] 15253 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 5292 [8299] 15254 1 1 0 0 0 0 DATA START ADD 24/0/3 1 [8300] 15255 124 999 1 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 0 Extra code needed to address 5664 from 8301 (different chapter) 28/1/1 5664 [8302] 15256 128 18 0 1 1 0 BULK COPY LONG NUMERIC 2/0/0 145 [8303] 15257 5 153 2 0 0 0 TRANSFER 26/1/3 5140 [8304] 15258 90 0 0 3 0 CALC COMPILER'S HIGHEST PROCR SET MODIFICATION REGISTER AT LITERAL [8305] 15259 C 0 0 0 450 Limit 0/1/0 40 [8305] 15260 34 18 0 0 3 0 SET (N) IN B 0/0/3 0 [8306] 24/0/3 0 Extra code needed to address 5664 from 8307 (different chapter) 6/0/3 5664 [8308] 2/1/0 42 [8309] 0/1/1 40 [8310] 18/1/1 7 [8311] 15261 32 0 0 0 7 SHIFT (AB) BY QUARTETS 18/1/3 2 [8312] 15262 33 0 0 0 2 SHIFT (AB) BY BITS 5/0/0 145 [8313] 15263 2 153 2 0 0 0 SUBTRACT 27/0/3 124 [8314] 15264 73 152 66 0 0 0 JUMP IF A < 0 7/0/0 145 [8315] 15265 4 153 2 0 0 0 UPDATE AUGMENT 1/1/3 0 [8316] 15266 10 0 0 0 0 SELECT LITERAL 18/1/3 10 [8317] 15267 33 0 0 0 10 SHIFT (AB) BY BITS 5/0/0 145 [8318] 15268 2 153 2 0 0 0 SUBTRACT 27/0/3 129 [8319] 15269 73 152 71 0 0 0 JUMP IF A < 0 7/0/0 145 [8320] 15270 4 153 2 0 0 0 UPDATE AUGMENT 1/1/3 0 [8321] 15271 10 0 0 0 0 SELECT LITERAL 25/0/3 1 [8322] 15272 94 152 60 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 113 [8323] s 6/0/0 145 [8324] 15273 153 2 0 0 0 SELECT 1/1/1 1 [8325] 15274 11 0 0 0 1 ADD LITERAL 24/0/3 0 Extra code needed to address 6719 from 8326 (different chapter) 2/0/0 6719 [8327] 15275 5 18 1055 0 0 0 (HIGHEST C/FWD PROCR+1)IN BINARY TRANSFER 6/1/0 5142 [8328] 15276 54 18 450 1 0 596 BULK CLEAR 24/0/3 0 Extra code needed to address 6114 from 8329 (different chapter) 28/1/1 6114 [8330] 24/0/3 22 [8331] 15277 95 0 0 2 0 SELECT MODIFICATION REGISTER 6/1/0 4 [8332] 2/1/0 5292 [8333] 15278 5 1 0 1 0 0 PROG ID+SERIAL TRANSFER 25/1/1 4096 [8334] 15279 125 4096 1 1 0 CLEAR INDICATORS 23/0/2 145 [8335] 15280 123 153 2 0 2 0 >SET ASL'S+GUARD WORDS ENTER MASTER ROUTINE Source: TonyJ/Q1000126 24/1/0 209 [8336] 15281 76 156 2 0 0 0 JUMP unconditional Start of procedure 153 at location 145 in chapter 3 [8337] [8337] 15300 PROCR 153 153 SET UP TAGS 15 WORDS FOR TX AREAS, AND FILES IN CHAP 3 0/0/0 0 [8337] 15302 81 153 2 0 0 0 LINK START OF SUBROUTINE 1/1/3 15 [8338] 15303 10 0 0 0 £ SELECT LITERAL 24/0/3 4714 [8339] 15304 124 317 92 0 3 0 MODIFY ADDRESS OF NEXT 23/1/0 56 [8340] 15305 123 56 1 0 0 SEC 5 COPY INTO TAG 24/0/3 4714 [8341] 15306 124 317 92 0 3 0 MODIFY ADDRESS OF NEXT 23/1/0 210 [8342] 15307 123 210 1 0 0 SEC 7 COPY INTO TAG 24/0/3 4714 [8343] 15308 124 317 92 0 3 0 MODIFY ADDRESS OF NEXT 23/1/0 364 [8344] 15309 123 364 1 0 0 SEC 8 COPY INTO TAG 24/0/3 4714 [8345] 15310 124 317 92 0 3 0 MODIFY ADDRESS OF NEXT 23/1/0 518 [8346] 15311 123 518 1 0 0 SEC 9 COPY INTO TAG 24/0/3 4714 [8347] 15312 124 317 92 0 3 0 MODIFY ADDRESS OF NEXT 23/1/0 576 [8348] 15313 123 576 1 0 0 B1 COPY INTO TAG 24/0/3 4714 [8349] 15314 124 317 92 0 3 0 MODIFY ADDRESS OF NEXT 23/1/0 730 [8350] 15315 123 730 1 0 0 A1 COPY INTO TAG 24/0/3 4714 [8351] 15316 124 317 92 0 3 0 MODIFY ADDRESS OF NEXT 23/1/0 884 [8352] 15317 123 884 1 0 0 A2 COPY INTO TAG 24/0/3 4714 [8353] 15318 124 317 92 0 3 0 MODIFY ADDRESS OF NEXT 23/1/0 1038 [8354] 15319 123 1038 1 0 0 A6 COPY INTO TAG Start of procedure 154 at location 163 in chapter 3 [8355] [8355] 15400 PROCR 154 154 SET UP ASL'S FOR TX AREAS, AND FILES IN CHAP 3 23/0/3 4624 [8355] 15402 123 317 2 0 3 0 PROG TAG SELECT TAG 18/0/1 4 [8356] 15403 30 0 0 0 4 SHIFT (A) BY QUARTETS 7/0/0 4714 [8357] 15404 4 317 92 0 0 0 AUGMENT 6/0/0 4714 [8358] 15405 317 92 0 0 0 ABS START SELECT 24/1/2 14 [8359] 15406 124 999 14 1 2 0 SEC 5 MODIFY ADDRESS OF NEXT 3/0/0 64 [8360] 15407 103 64 0 0 0 COPY (A) TO N 1/1/1 58 [8361] 15408 101 58 1 1 0 ADD LITERAL ADDRESS 24/1/2 16 [8362] 15409 124 999 16 1 2 0 SEC 7 MODIFY ADDRESS OF NEXT 3/0/0 64 [8363] 15410 103 64 0 0 0 COPY (A) TO N 1/1/1 154 [8364] 15411 101 154 1 1 0 ADD LITERAL ADDRESS 24/1/2 18 [8365] 15412 124 999 18 1 2 0 SEC 8 MODIFY ADDRESS OF NEXT 3/0/0 64 [8366] 15413 103 64 0 0 0 COPY (A) TO N 1/1/1 154 [8367] 15414 101 154 1 1 0 ADD LITERAL ADDRESS 24/1/2 20 [8368] 15415 124 999 20 1 2 0 SEC 9 MODIFY ADDRESS OF NEXT 3/0/0 64 [8369] 15416 103 64 0 0 0 COPY (A) TO N 1/1/1 154 [8370] 15417 101 154 1 1 0 ADD LITERAL ADDRESS 24/0/3 8 [8371] 15418 124 999 8 0 3 0 B1 MODIFY ADDRESS OF NEXT 3/0/0 64 [8372] 15419 103 64 0 0 0 COPY (A) TO N 1/1/1 58 [8373] 15420 101 58 1 1 0 ADD LITERAL ADDRESS 24/0/3 9 [8374] 15421 124 999 9 0 3 0 A1 MODIFY ADDRESS OF NEXT 3/0/0 64 [8375] 15422 103 64 0 0 0 COPY (A) TO N 1/1/1 154 [8376] 15423 101 154 1 1 0 ADD LITERAL ADDRESS 24/0/3 10 [8377] 15424 124 999 10 0 3 0 A2 MODIFY ADDRESS OF NEXT 3/0/0 64 [8378] 15425 103 64 0 0 0 COPY (A) TO N 1/1/1 154 [8379] 15426 101 154 1 1 0 ADD LITERAL ADDRESS 24/0/3 11 [8380] 15427 124 999 11 0 3 0 A6 MODIFY ADDRESS OF NEXT 2/0/0 64 [8381] 15428 102 64 0 0 0 TRANSFER (A) TO N Start of procedure 155 at location 190 in chapter 3 [8382] [8382] 15500 PROCR 155 155 SET UP ASL'S FOR FILES 24/0/3 5 [8382] 15502 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 34 [8383] 15503 106 34 0 0 0 PRINTER ROUTE ENTRY SPECIAL CHAPTER SELECT (N) 18/0/1 4124 [8384] 15504 30 0 0 0 4- SHIFT (A) BY QUARTETS 2/0/0 6318 [8385] 15505 5 27 8 0 0 0 TRANSFER 1/0/1 15 [8386] 15506 35 0 0 0 1111 Q1-4 PREPARE FOR DIGIT COLLATION 6/0/0 5 [8387] 15507 999 5 0 0 0 15-BIT START SPECIAL CHAP SELECT 1/1/1 204 [8388] 15508 101 204 1 1 0 ADD LITERAL ADDRESS 24/1/2 12 [8389] 15509 124 999 12 1 2 0 SEC 10 MODIFY ADDRESS OF NEXT Source: KenK/Q1000127 14/0/0 64 [8390] 15510 114 64 0 0 0 REPLACE SELECTED BITS 6/0/0 5 [8391] 15511 999 5 0 0 0 SELECT 1/1/1 598 [8392] 15512 101 598 1 1 0 394+204 ADD LITERAL ADDRESS 24/1/2 7 [8393] 15513 124 999 7 1 2 0 MODIFY ADDRESS OF NEXT 14/0/0 64 [8394] 15514 114 64 0 0 0 REPLACE SELECTED BITS 1/1/3 15 [8395] 15515 10 0 0 0 £ SELECT LITERAL 24/0/3 5 [8396] 15516 124 999 5 0 3 0 SPECIAL CHAP 15-BIT START MODIFY ADDRESS OF NEXT 23/1/0 596 [8397] 15517 123 596 1 0 0 COPY INTO TAG 24/0/3 5 [8398] 15518 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 23/1/0 990 [8399] 15519 123 990 1 0 0 204+392+394=D1 COPY INTO TAG 26/0/3 145 [8400] 15520 126 153 2 0 3 0 gEXIT LEAVE MASTER ROUTINE Start of procedure 156 at location 209 in chapter 3 [8401] [8401] 15600 PROCR 156 TIDY UP FOR COMPILER 6/1/0 5144 [8401] 15602 54 12 0 1 0 120 BULK CLEAR 28/1/1 50 [8402] 6/1/0 5292 [8403] 15603 0 1 0 1 0 0 SELECT 2/1/0 50 [8404] 15604 5 12 0 1 0 0 TRANSFER 0/1/0 40 [8405] 15605 40 A1 0 0 0 1 OPEN FILE 0/0/3 0 [8406] 0/1/2 5146 [8407] 6/1/0 5148 [8408] 1/1/1 27 [8409] 25/1/1 4096 [8410] 24/0/3 0 [8411] 23/0/2 40 [8412] 0/0/3 44 [8413] 26/0/0 4119 [8414] 15606 80 291 2 0 0 0 gREAD ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 10 [8416] 15607 0 7 10 1 0 0 SELECT 5/1/0 1344 [8417] 15608 2 181 20 1 0 0 'PASS1' SUBTRACT 27/0/1 222 [8418] 15609 71 156 6 0 0 0 gNOT YET JUMP IF A != 0 1/1/3 1 [8419] 15610 10 0 0 0 1 SELECT LITERAL 3/0/0 6044 [8420] 15611 3 92 30 0 0 0 COPY 2/0/0 58 [8421] 15612 5 12 8 0 0 0 TRANSFER 6/1/0 4740 [8422] 15613 319 14 1 0 0 'END ' SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 4 [8424] 15614 5 9 4 1 0 0 SET END SIGN TRANSFER 24/1/0 311 [8425] 15615 76 158 3 0 0 0 gENTER PASS 1 (SIC) JUMP unconditional Start of procedure 157 at location 234 in chapter 3 [8426] [8426] 15700 PROCR 157 TEST INITIAL RUN [8426] 15701 NOTES RADIX 0/1/0 40 [8426] 15702 40 A6 0 0 0 1 OPEN FILE 0/0/3 0 [8427] 0/1/2 5150 [8428] 6/1/0 5152 [8429] 1/1/1 45 [8430] 25/1/1 4096 [8431] 24/0/3 0 [8432] 23/0/2 40 [8433] 0/0/3 44 [8434] 6/1/0 5154 [8435] 15703 54 12 0 1 0 120 BULK CLEAR 28/1/1 50 [8436] 6/0/0 5080 [8437] 15704 10 0 0 0 6700 SELECT LITERAL 2/0/0 53 [8438] 15705 5 12 3 0 0 0 ERROR LETTER'P' TRANSFER 26/0/0 4130 [8439] 15706 80 292 2 0 0 0 gREAD FIRST BLOCK ENTER SUBROUTINE 24/0/2 1242 [8440] 15707 124 179 2 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [8441] 15708 80 326 2 0 0 0 gUNPACK BLOCK ENTER SUBROUTINE 0/0/3 5081 [8442] 15709 60 0 0 0 0 SET DECIMAL RADIX 6/1/0 5294 [8443] 15710 1 2 1 0 0 TESTTHIS IS AN SELECT 5/1/0 1340 [8444] 15711 2 181 16 1 0 0 'AMEND' SUBTRACT 27/0/0 261 [8445] 15712 70 157 20 0 0 0 JUMP IF A == 0 26/0/0 4258 [8446] 15713 80 297 2 0 0 0 gANNOTATION IF CARD ENTER SUBROUTINE 26/0/0 1190 [8447] 15714 80 176 2 0 0 0 gCHECK PROGM BLOC ENTER SUBROUTINE 1/1/3 2 [8448] 15715 10 0 0 0 2 SELECT LITERAL 3/0/0 83 [8449] 15716 3 12 33 0 0 0 SET'PT INPUT' COPY 2/0/0 6322 [8450] 15717 5 27 12 0 0 0 SET'PTS NEEDED' TRANSFER 2/1/0 5300 [8451] 15718 5 1 8 1 0 0 ENSURE FIRST SERIAL=0,INITIAL TRANSLATIO TRANSFER 24/1/0 348 [8452] 15719 76 160 2 0 0 0 JUMP unconditional 2/1/0 5308 [8453] 15720 5 1 16 1 0 0 CLEAR FOR INDS TRANSFER 2/1/0 5310 [8454] 15721 5 1 18 1 0 0 TRANSFER 24/0/2 1278 [8455] 15722 124 179 38 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [8456] 15723 80 326 2 0 0 0 gUNPACK 'AMEND' BLOCK AGAIN ENTER SUBROUTINE 1/1/3 0 [8457] 15724 10 0 0 0 0 SELECT LITERAL 0/0/2 5308 [8458] 15725 34 1 16 0 0 0 PRINT INDS SET (N) IN B 15/0/0 4717 [8459] 15726 36 318 2 0 0 0 BIT 2 COLLATE AND ADD 2/0/0 6246 [8460] 15727 5 23 46 0 0 0 TRANSFER 24/0/1 6320 [8461] 15728 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 270 [8462] 0/0/1 276 [8463] s 15729 C 157 34 0 0 0 gPT 0/0/1 273 [8464] s 15730 C 157 31 0 0 0 gCARDS 6/1/0 5310 [8465] 15731 1 18 1 0 0 SELECT Source: RayS/Q1000128 1/1/2 115 [8466] 15732 12 0 0 0 73 SUBTRACT LITERAL 24/1/0 278 [8467] 15733 76 157 36 0 0 0 JUMP unconditional 6/1/0 5312 [8468] 15734 1 20 1 0 0 SELECT 5/1/0 5156 [8469] 15735 12 0 0 0 7300000000 SUBTRACT LITERAL 27/0/1 281 [8470] 15736 71 157 39 0 0 0 JUMP IF A != 0 1/1/3 2 [8471] 15737 10 0 0 0 2 SELECT LITERAL 24/1/0 282 [8472] 15738 76 157 40 0 0 0 JUMP unconditional 1/1/3 0 [8473] 15739 10 0 0 0 0 SELECT LITERAL 2/0/0 6322 [8474] 15740 5 27 12 0 0 0 0/2=PTS NO/YES TRANSFER 6/0/0 6310 [8475] 15741 27 0 0 0 0 SELECT 27/0/1 288 [8476] 15742 71 157 46 0 0 0 gISSUE 6 O/P JUMP IF A != 0 6/0/0 5308 [8477] 15743 1 16 0 0 0 SELECT 1/1/2 4 [8478] 15744 12 0 0 0 4 SUBTRACT LITERAL 2/0/0 6246 [8479] 15745 5 23 46 0 0 0 PRINT ISSUE5 O/P TRANSFER 6/0/0 5082 [8480] 15746 10 0 0 0 2- SELECT LITERAL 15/0/0 4778 [8481] 15747 36 320 2 0 0 0 BIT 1 COLLATE AND ADD 2/0/0 8173 [8482] 15748 84 100 2 0 0 0 SET AT 1 OR 2 SET SWITCH(ES) AT VARIABLE VALUE 6/0/0 5309 [8483] 15749 0 1 17 0 0 0 CHANGE TO ISSUE? SELECT 2/0/0 1592 [8484] 15750 5 197 2 0 0 0 SR LINK TRANSFER 26/0/0 4258 [8485] 15751 80 297 2 0 0 0 gANNOTATION IF CARD ENTER SUBROUTINE 27/0/1 299 [8486] 15752 71 157 57 0 0 0 gNOT CARD JUMP IF A != 0 6/1/0 5300 [8487] 15753 0 1 8 1 0 0 RE-FORM ISSUE+SERIAL IN 18' SELECT 18/0/1 6 [8488] 15754 30 0 0 0 6 SHIFT (A) BY QUARTETS 4/1/0 5312 [8489] 15755 1 1 20 1 0 0 CARD SERIAL ADD 2/1/0 5300 [8490] 15756 5 1 8 1 0 0 TRANSFER 6/0/0 5296 [8491] 15757 0 1 4 0 0 0 SUITE SELECT 18/0/1 2 [8492] 15758 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 5298 [8493] 15759 1 1 6 0 0 0 ADD 2/0/0 50 [8494] 15760 5 12 0 0 0 0 TRANSFER 0/1/2 5300 [8495] 15761 34 1 8 1 0 0 SET (N) IN B 26/0/0 4826 [8496] 15762 80 321 2 0 0 0 RIGHT ALIGN ENTER SUBROUTINE 6/1/0 139 [8497] 15763 0 12 88 2 0 0 SELECT 2/0/0 51 [8498] 15764 5 12 1 0 0 0 TRANSFER 1/1/3 1 [8499] 15765 10 0 0 0 1 SET'AMEND RUN' SELECT LITERAL 3/0/0 6044 [8500] 15766 3 92 30 0 0 0 COPY 2/0/0 58 [8501] 15767 5 12 8 0 0 0 TRANSFER Start of procedure 158 at location 310 in chapter 3 [8502] [8502] 15800 PROCR 158 0 0 0 [8502] 15801 NOTES RADIX 26/0/0 4130 [8502] 15802 80 292 2 0 0 0 gREAD PT ENTER SUBROUTINE 6/1/0 5158 [8503] 15803 54 1 0 0 0 46 BULK CLEAR 28/0/0 5292 [8504] 26/0/0 4119 [8505] 15804 80 291 2 0 0 0 gREAD MT ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 6 [8507] 15805 0 7 6 1 0 0 SELECT 5/1/0 1336 [8508] 15806 2 181 12 1 0 0 PROGM' SUBTRACT 27/0/1 313 [8509] 15807 71 158 4 0 0 0 gGET TO IT JUMP IF A != 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [8511] 15808 9 4 1 0 0 SELECT 5/1/0 1336 [8512] 15809 2 181 12 1 0 0 PROGM' SUBTRACT 27/0/0 337 [8513] 15810 70 159 2 0 0 0 ='PROGM' BLOCK IS AMENDED JUMP IF A == 0 24/0/2 1176 [8514] 15811 50 7 4 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/0/2 4 [8516] 15812 C 175 32 0 0 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 20 [8518] 15813 55 7 20 1 0 30 COPY ANNOTATION BULK COPY 18/1/0 4123 [8519] 15814 C 1 16 1 0 0 1/1/3 30 [8520] 18/1/1 5 [8521] 28/1/1 5308 [8522] 0/0/3 5083 [8523] 15815 60 0 0 0 0 SET DECIMAL RADIX 1/1/3 1 [8524] 15816 10 0 0 0 1 AUGMENT PROG SERIAL SELECT LITERAL 1/0/1 3 [8525] 15817 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 15/1/0 5301 [8526] 15818 36 1 8 2 0 0 COLLATE AND ADD 14/1/0 5301 [8527] 15819 37 1 8 2 0 0 NO CARRY AFTER 99 REPLACE SELECTED BITS 24/1/0 348 [8528] 15820 76 160 2 0 0 0 JUMP unconditional Start of procedure 159 at location 337 in chapter 3 [8529] [8529] 15900 PROCR 159 INPUT AMENDMENTS TO PRGRAM Source: RayS/Q1000129 [8529] 15901 NOTES RADIX HEADING 24/0/2 1242 [8529] 15902 124 179 2 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [8530] 15903 80 326 2 0 0 0 gUNPACK NEW 'PROGM' BLOCK ENTER SUBROUTINE 26/0/0 4258 [8531] 15904 80 297 2 0 0 0 gWORDS IF CARDS ENTER SUBROUTINE 6/0/0 51 [8532] 15905 0 12 1 0 0 0 SELECT 3/1/0 5301 [8533] 15906 3 1 8 2 0 0 COPY 1/1/1 1 [8534] 15907 11 0 0 0 1 ADD LITERAL 18/0/1 2 [8535] 15908 30 0 0 0 2 SHIFT (A) BY QUARTETS 2/0/0 5292 [8536] 15909 5 1 0 0 0 0 TRANSFER 2/0/0 58 [8537] 15910 5 12 8 0 0 0 SET PAPER TAPE INPUT INDICATOR TRANSFER 26/0/0 1190 [8538] 15911 80 176 2 0 0 0 gCHECK 'PROGM' BLOCK ENTER SUBROUTINE 24/1/0 331 [8539] 15912 76 158 15 0 0 0 gUPDATE SERIAL JUMP unconditional Start of procedure 160 at location 348 in chapter 3 [8540] [8540] 16000 PROCR 160 OPEN O/P FILE;WRITE INDEX BLOX+'PASSI' BLOCK+'PROGM' BLOCK [8540] 16001 NOTES 6/1/0 5160 [8540] 16002 54 8 4 0 0 46 BULK CLEAR 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/0 4 [8542] 6/0/0 6314 [8543] 16003 27 4 0 0 0 COMPILER? SELECT 27/0/0 366 [8544] 16004 70 160 9 0 0 0 gNORMAL JUMP IF A == 0 0/1/0 40 [8545] 16005 48 A2 0 0 0 3 BACK 0 I/P+O/P STEP BACK 0/0/3 0 [8546] 6/0/0 0 [8547] 16006 C 999 0 0 0 0 STEP BACK 4/1/0 5162 [8548] 18/1/1 4118 [8549] 6/1/0 0 [8550] 1/1/1 36 [8551] 25/1/1 4096 [8552] 24/0/3 0 [8553] 23/0/2 48 [8554] 0/1/1 40 [8555] 1/1/3 0 [8556] 16007 10 0 0 0 0 (ZERO SPOOL NUMBER) SELECT LITERAL 24/1/0 376 [8557] 16008 76 160 11 0 0 0 g JUMP unconditional 0/1/0 40 [8558] 16009 40 A2 0 0 0 0 OPEN FILE OPEN FILE 0/0/3 0 [8559] 0/1/2 5164 [8560] 6/1/0 5166 [8561] 1/1/1 36 [8562] 25/1/1 4096 [8563] 24/0/3 0 [8564] 23/0/2 40 [8565] 0/0/3 44 [8566] 18/1/1 10 [8567] 16010 32 0 0 0 10 SHIFT (AB) BY QUARTETS 2/0/0 8174 [8568] 16011 84 153 2 0 0 0 SPOOL NUMBER+WL SET SWITCH(ES) AT VARIABLE VALUE 26/0/0 4099 [8569] 16012 80 289 2 0 0 0 ENTER SUBROUTINE 26/0/0 4099 [8570] 16013 80 289 2 0 0 0 g2 BLANKS ENTER SUBROUTINE 24/0/2 4756 [8571] 16014 55 319 30 1 0 10 BULK COPY 18/1/0 4123 [8572] 16015 C 8 4 1 0 0 1/1/3 10 [8573] 18/1/1 5 [8574] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [8576] 26/0/0 4099 [8577] 16016 80 289 2 0 0 0 ENTER SUBROUTINE 6/0/0 5296 [8578] 16017 1 4 0 0 0 SUITE SELECT 18/0/1 2 [8579] 16018 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 5298 [8580] 16019 1 1 6 0 0 0 ADD 3/0/0 82 [8581] 16020 3 12 32 0 0 0 WL=PROG IDENTITY COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 5 [8583] 16021 3 8 4 2 0 0 COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 13 [8585] 16022 3 8 12 2 0 0 COPY 6/1/0 5301 [8586] 16023 0 1 8 2 0 0 PROGRAM SERIAL SELECT 2/0/0 51 [8587] 16024 5 12 1 0 0 0 WL TRANSFER 6/0/0 1592 [8588] 16025 0 197 2 0 0 0 NEW ISSUE WL SELECT 27/0/0 401 [8589] 16026 70 160 30 0 0 0 gNO CHANGE JUMP IF A == 0 18/0/1 2 [8590] 16027 30 0 0 0 2 SHIFT (A) BY QUARTETS 1/0/1 28 [8591] 16028 35 0 0 0 11100 PREPARE FOR DIGIT COLLATION 14/0/0 51 [8592] 16029 37 12 1 0 0 0 REPLACE EXISTING ISSUE REPLACE SELECTED BITS 24/0/2 1174 [8593] 16030 52 1 8 0 0 0 EDIT 28/1/2 5300 [8594] 16031 C 175 30 0 0 0 RESTORE TD 1/8 WITH SIG ZEROS 6/1/0 5300 [8595] 16032 0 1 8 1 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 6 [8597] 16033 3 8 6 1 0 0 COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 14 [8599] 16034 5 8 14 1 0 0 TRANSFER 1/1/3 2 [8600] 16035 10 0 0 0 2 INTERCODE IDENTIFIER SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 11 [8602] 16036 5 8 10 2 0 0 TRANSFER 1/1/3 3 [8603] 16037 10 0 0 0 3 MACHINE CODE IDENTIFIER SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 19 [8605] 16038 3 8 18 2 0 0 COPY 1/1/3 2 [8606] 16039 10 0 0 0 2 SELECT LITERAL 4/0/0 6322 [8607] 16040 1 27 12 0 0 0 0 OR 2 ADD 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 17 [8609] 16041 5 8 16 2 0 0 TRANSFER 6/1/0 4757 [8610] 16042 319 30 2 0 0 £££££ SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 21 [8612] 16043 5 8 20 2 0 0 TRANSFER 26/0/0 4099 [8613] 16044 80 289 2 0 0 0 ENTER SUBROUTINE 6/0/0 82 [8614] 16045 12 32 0 0 0 SELECT Source: TonyJ/Q1000130 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 5 [8616] 16046 5 8 4 2 0 0 PROG IDENTITY TRANSFER 6/1/0 5300 [8617] 16047 1 8 1 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 6 [8619] 16048 5 8 6 1 0 0 PROG SERIAL TRANSFER 6/0/0 5084 [8620] 16049 10 0 0 0 £££££ SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 9 [8622] 16050 5 8 8 2 0 0 TRANSFER 6/1/0 1344 [8623] 16051 181 20 1 0 0 PASSI' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 10 [8625] 16052 5 8 10 1 0 0 TRANSFER 6/0/0 6314 [8626] 16053 0 27 4 0 0 0 NON-ZERO IF COMPILER SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 15 [8628] 16054 3 8 14 2 0 0 SET 'PSEUDO ISSUE 5' COPY 27/0/1 441 [8629] 16055 71 160 58 0 0 0 JUMP IF A != 0 6/1/0 5168 [8630] 16056 155 0 0 0 0 PROG SERIAL SELECT PROGRAM SERIAL TO A 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 12 [8632] 16057 3 8 12 1 0 0 ISSUE 6' ND COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 17 [8634] 16058 5 8 16 2 0 0 SET 'MULTI RECORD' TRANSFER 26/0/0 4099 [8635] 16059 80 289 2 0 0 0 ENTER SUBROUTINE 24/0/3 0 Extra code needed to address 6719 from 8636 (different chapter) 6/0/0 6719 [8637] 16060 18 1055 0 0 0 SELECT 2/0/0 4749 [8638] 16061 5 319 23 0 0 0 TRANSFER 6/0/0 6314 [8639] 16062 27 4 0 0 0 SELECT 27/0/1 465 [8640] 16063 71 160 70 0 0 0 >COMPILER O/P JUMP IF A != 0 24/0/3 0 Extra code needed to address 6674 from 8641 (different chapter) 24/0/2 6674 [8642] 16064 55 18 1010 0 0 23 FIRST PROCR LENGTH DETAILS BLOCK BULK COPY 18/1/0 4123 [8643] 16065 C 8 4 2 0 0 A6 1/1/3 23 [8644] 18/1/1 5 [8645] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/1 5 [8647] 26/0/0 4099 [8648] 16066 80 289 2 0 0 0 ENTER SUBROUTINE 24/0/3 0 Extra code needed to address 6697 from 8649 (different chapter) 24/0/2 6697 [8650] 16067 55 18 1033 0 0 23 SECOND PROCR LENGTH DETAILS BLOCK BULK COPY 18/1/0 4123 [8651] 16068 C 8 4 2 0 0 1/1/3 23 [8652] 18/1/1 5 [8653] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/1 5 [8655] 26/0/0 4099 [8656] 16069 80 289 2 0 0 0 ENTER SUBROUTINE 24/0/2 1176 [8657] 16070 52 8 4 0 0 0 EDIT 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/2 4 [8659] 16071 C 175 32 0 0 0 24/0/2 5308 [8660] 16072 55 1 16 1 0 30 COPY ANNOTATION BULK COPY 18/1/0 4123 [8661] 16073 C 8 20 1 0 0 1/1/3 30 [8662] 18/1/1 5 [8663] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 20 [8665] 26/0/0 4099 [8666] 16074 80 289 2 0 0 0 ENTER SUBROUTINE 6/0/0 4711 [8667] 16075 0 317 89 0 0 0 ABS ADDRESS 18:2496 SELECT 2/0/0 6023 [8668] 16076 5 92 9 0 0 0 TRANSFER 0/0/3 5085 [8669] 16077 60 0 0 0 0 SET DECIMAL RADIX Start of procedure 161 at location 478 in chapter 3 [8670] [8670] 16100 PROCR 161 161 DEAL WITH UNAMENDED ENTRY, FILES, CHAP STARTS [8670] 16101 NOTES 6/0/0 58 [8670] 16102 12 8 0 0 0 SELECT 27/0/0 563 [8671] 16103 70 162 2 0 0 0 > FILES REPLACED EX PT JUMP IF A == 0 26/0/0 4119 [8672] 16104 80 291 2 0 0 0 > READ 'ENTRY' EX MT ENTER SUBROUTINE 1/1/3 0 [8673] 16105 10 0 0 0 0 SELECT LITERAL 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 46 [8675] 16106 5 7 46 1 0 0 CLEAR REPORT WORDS TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 48 [8677] 16107 5 7 48 1 0 0 TRANSFER 2/0/0 83 [8678] 16108 5 12 33 0 0 0 SET 'MT INPUT' TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 9 [8680] 16109 7 8 2 0 0 SELECT 26/0/0 1619 [8681] 16110 80 200 2 0 0 0 > REPLACE PROCR ENTER SUBROUTINE 24/1/0 492 [8682] 0/0/1 1223 [8683] 16111 C 178 2 0 0 0 27/0/1 497 [8684] 16112 71 161 16 0 0 0 > OK JUMP IF A != 0 6/1/0 4766 [8685] 16113 319 40 1 0 0 ????R' SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 48 [8687] 16114 5 7 48 1 0 0 TRANSFER 24/1/0 499 [8688] 16115 76 161 17 0 0 0 > USE OLD VALUE JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 9 [8690] 16116 5 7 8 2 0 0 TRANSFER 26/0/0 1057 [8691] 16117 80 171 2 0 0 0 > WRITE ENTER SUBROUTINE 26/0/0 4119 [8692] 16118 80 291 2 0 0 0 > READ ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 6 [8694] 16119 7 6 1 0 0 SELECT 5/1/0 1342 [8695] 16120 2 181 18 1 0 0 CHAPS SUBTRACT 27/0/0 522 [8696] 16121 70 161 33 0 0 0 > YES JUMP IF A == 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 9 [8698] 16122 0 7 8 2 0 0 ROUTE TYPE SELECT 26/0/0 2771 [8699] 16123 80 245 2 0 0 0 > TO BIN ENTER SUBROUTINE 18/1/3 2 [8700] 16124 33 0 0 0 2- SHIFT (AB) BY BITS 18/1/1 4127 [8701] 24/1/2 17 Extra code needed to address transit area no 2, section 7 4/0/0 7 [8703] 16125 1 7 7 0 0 0 FILE ID ADD Source: KenK/Q1000131 18/1/3 2 [8704] 16126 33 0 0 0 18- SHIFT (AB) BY BITS 18/1/1 4123 [8705] 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 46 [8707] 16127 7 46 1 0 0 SELECT 26/0/0 766 [8708] 16128 80 164 2 0 0 0 gSTORE FILE DETAILS ENTER SUBROUTINE 27/0/1 521 [8709] 16129 71 161 32 0 0 0 gLIST NOT FULL JUMP IF A != 0 6/1/0 4752 [8710] 16130 319 26 1 0 0 SET 'IGNORE' SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 46 [8712] 16131 5 7 46 1 0 0 TRANSFER 24/1/0 499 [8713] 16132 76 161 17 0 0 0 gWRITE JUMP unconditional 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [8715] 16133 9 4 1 0 0 SELECT 5/1/0 1342 [8716] 16134 2 181 18 1 0 0 'CHAPS' SUBTRACT 27/0/0 806 [8717] 16135 70 165 2 0 0 0 gPT & MT BOTH AT 'CHAPS' JUMP IF A == 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 9 [8719] 16136 55 7 8 2 0 30 BULK COPY 18/1/0 4123 [8720] 16137 C 12 13 0 0 0 ;MT 'CHAPS' UNAMENDED 1/1/3 30 [8721] 18/1/1 5 [8722] 28/1/0 63 [8723] 2/0/0 83 [8724] 16138 5 12 33 0 0 0 SET 'MT INPUT' TRANSFER 6/0/0 63 [8725] 16139 12 13 0 0 0 NUMBER OF CHAPS SELECT 26/0/0 2771 [8726] 16140 80 245 2 0 0 0 gTO BIN ENTER SUBROUTINE 2/0/0 63 [8727] 16141 5 12 13 0 0 0 TRANSFER 26/1/2 62 [8728] 16142 91 12 12 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 6/0/2 64 [8729] 16143 12 14 0 2 0 START SELECT 26/0/0 1619 [8730] 16144 80 200 2 0 0 0 gREPLACE PROCR ENTER SUBROUTINE 24/1/0 541 [8731] 0/0/1 1223 [8732] 16145 C 178 2 0 0 0 27/0/1 546 [8733] 16146 71 161 50 0 0 0 gOK JUMP IF A != 0 6/1/0 4766 [8734] 16147 319 40 1 0 0 '????R' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 48 [8736] 16148 5 8 48 1 0 0 TRANSFER 24/1/0 547 [8737] 16149 76 161 51 0 0 0 gUSE OLD VALUE JUMP unconditional 2/0/2 64 [8738] 16150 5 12 14 0 2 0 TRANSFER 25/0/2 1 [8739] 16151 94 161 43 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 537 [8740] s 24/0/2 64 [8741] 16152 55 12 14 0 0 14 BULK COPY 18/1/0 4123 [8742] 16153 C 7 10 2 0 0 1/1/3 14 [8743] 18/1/1 5 [8744] 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/0/1 11 [8746] 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 4 [8748] 16154 55 7 4 1 0 34 COPY ANNEXES BULK COPY 18/1/0 4123 [8749] 16155 C 8 4 1 0 0 1/1/3 34 [8750] 18/1/1 5 [8751] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [8753] 24/1/0 867 [8754] 16156 76 165 51 0 0 0 gTO TEST 'STORE' JUMP unconditional Start of procedure 162 at location 563 in chapter 3 [8755] [8755] 16200 PROCR 162 DEAL WITH PT INPUT FOR ENTRY FILES [8755] 16201 NOTES 6/1/0 5170 [8755] 16202 54 1 0 1 0 46 BULK CLEAR 28/1/1 5292 [8756] 26/0/0 4130 [8757] 16203 80 292 2 0 0 0 gRAD PT ENTER SUBROUTINE 24/0/2 1242 [8758] 16204 124 179 2 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [8759] 16205 80 326 2 0 0 0 gUNPACK ENTER SUBROUTINE 26/0/0 4258 [8760] 16206 80 297 2 0 0 0 gCOPY ANNOTATION FOR CARDS ENTER SUBROUTINE 6/0/0 5086 [8761] 16207 10 0 0 0 5500 SELECT LITERAL 2/0/0 53 [8762] 16208 5 12 3 0 0 0 LETTER E FOR REPORTS TRANSFER 6/1/0 5294 [8763] 16209 1 2 1 0 0 ;CHECK 'ENTRY' SELECT 5/1/0 1338 [8764] 16210 2 181 14 1 0 0 'ENTRY' SUBTRACT 27/0/0 576 [8765] 16211 70 162 14 0 0 0 gOK JUMP IF A == 0 1/1/3 1 [8766] 16212 10 0 0 0 1 SELECT LITERAL 26/0/0 1212 [8767] 16213 80 177 2 0 0 0 gREPORT *E1 ENTER SUBROUTINE 6/0/0 5296 [8768] 16214 1 4 0 0 0 ENTRY PROCR SELECT 1/1/2 256 [8769] 16215 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 581 [8770] 16216 73 162 19 0 0 0 gWRONG JUMP IF A < 0 1/1/2 2201 [8771] 16217 12 0 0 0 899 SUBTRACT LITERAL 27/0/3 584 [8772] 16218 73 162 22 0 0 0 gOK JUMP IF A < 0 1/1/3 2 [8773] 16219 10 0 0 0 2 SELECT LITERAL 26/0/0 1212 [8774] 16220 80 177 2 0 0 0 gREPORT *E2 ENTER SUBROUTINE 26/0/0 4248 [8775] 16221 80 295 2 0 0 0 IGNORE ENTER SUBROUTINE 1/1/3 1 [8776] 16222 10 0 0 0 1 SELECT LITERAL 2/0/0 83 [8777] 16223 5 12 33 0 0 0 SET 'PT INPUT' TRANSFER 6/0/0 5296 [8778] 16224 1 4 0 0 0 SELECT 26/0/0 1619 [8779] 16225 80 200 2 0 0 0 REPLACE PROCR ENTER SUBROUTINE 24/1/0 590 [8780] 0/0/1 1223 [8781] 16226 C 178 2 0 0 0 Source: KenK/Q1000132 27/0/1 594 [8782] 16227 71 162 31 0 0 0 gOK JUMP IF A != 0 6/1/0 4766 [8783] 16228 319 40 1 0 0 '????R' SELECT 2/1/0 5336 [8784] 16229 5 1 44 1 0 0 TRANSFER 24/1/0 595 [8785] 16230 76 162 32 0 0 0 JUMP unconditional 2/0/0 5296 [8786] 16231 5 1 4 0 0 0 NEW PROCR TRANSFER 6/1/0 5298 [8787] 16232 1 6 1 0 0 PRIORITY CLASS SELECT 1/1/2 1 [8788] 16233 12 0 0 0 1 SUBTRACT LITERAL 27/0/3 600 [8789] 16234 73 162 37 0 0 0 gWRONG JUMP IF A < 0 1/1/2 4 [8790] 16235 12 0 0 0 4 SUBTRACT LITERAL 27/0/3 603 [8791] 16236 73 162 40 0 0 0 gOK JUMP IF A < 0 1/1/3 3 [8792] 16237 10 0 0 0 3 SELECT LITERAL 26/0/0 1212 [8793] 16238 80 177 2 0 0 0 gREPORT*E3 ENTER SUBROUTINE 26/0/0 4248 [8794] 16239 80 295 2 0 0 0 IGNORE ENTER SUBROUTINE 24/0/2 1176 [8795] 16240 52 8 4 0 0 0 EDIT 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/2 4 [8797] 16241 C 175 32 0 0 0 24/0/2 5308 [8798] 16242 55 1 16 1 0 30 ANNOTATION BULK COPY 18/1/0 4123 [8799] 16243 C 8 20 1 0 0 1/1/3 30 [8800] 18/1/1 5 [8801] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 20 [8803] 26/0/0 4099 [8804] 16244 80 289 2 0 0 0 gWRITE ENTER SUBROUTINE 26/0/0 4130 [8805] 16245 80 292 2 0 0 0 gREAD PT;TESTS FOR END OF ENTER SUBROUTINE 6/0/0 6044 [8806] 16246 92 30 0 0 0 ;PT FILE DETAILS SELECT 27/0/0 628 [8807] 16247 70 162 58 0 0 0 gINITIAL TRANSLATION JUMP IF A == 0 26/0/0 4204 [8808] 16248 80 294 2 0 0 0 gTEST PT AT AMEND DIRECTIVE ENTER SUBROUTINE 27/0/1 622 [8809] 16249 71 162 53 0 0 0 gYES JUMP IF A != 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [8811] 16250 9 4 1 0 0 SELECT 5/1/0 1342 [8812] 16251 2 181 18 1 0 0 'CHAPS' SUBTRACT 27/0/1 652 [8813] 16252 71 162 73 0 0 0 gASSUME ANOTHER FILE EX PT JUMP IF A != 0 26/0/0 4119 [8814] 16253 80 291 2 0 0 0 gREAD MT ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 6 [8816] 16254 7 6 1 0 0 ;IGNORE MT FILES SELECT 5/1/0 1342 [8817] 16255 2 181 18 1 0 0 'CHAPS' SUBTRACT 27/0/1 622 [8818] 16256 71 162 53 0 0 0 gREAD/IGNORE MT FILES->PROCESS MT CHAPS JUMP IF A != 0 24/1/0 522 [8819] 16257 76 161 33 0 0 0 gPROCESS MT CHAPS JUMP unconditional 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [8821] 16258 9 4 1 0 0 SELECT 5/1/0 1342 [8822] 16259 2 181 18 1 0 0 'CHAPS' SUBTRACT 27/0/0 806 [8823] 16260 70 165 2 0 0 0 gEND OF FILE DETAILS EX PT JUMP IF A == 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [8825] 16261 9 4 1 0 0 SELECT 18/0/1 4124 [8826] 16262 30 0 0 0 4- SHIFT (A) BY QUARTETS 18/0/1 4 [8827] 16263 30 0 0 0 4 SHIFT (A) BY QUARTETS 5/1/0 4740 [8828] 16264 2 319 14 1 0 0 'END ' SUBTRACT 27/0/1 652 [8829] 16265 71 162 73 0 0 0 JUMP IF A != 0 6/1/0 5172 [8830] 16266 10 0 0 0 900000 SELECT LITERAL 4/0/0 6319 [8831] 16267 1 27 9 0 0 0 ADD 3/1/0 40 [8832] 16268 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [8833] 1/1/3 1 [8834] 16269 150 0 0 0 1 END' BEFORE 'CHAPS'ALARM*01 OFFER OPTIONS 0/0/2 5087 [8835] 25/1/1 4096 [8836] 24/0/3 0 [8837] 26/0/2 1 [8838] 0/0/1 649 [8839] s 16270 C 162 72 0 0 0 gUNLOAD 0/0/0 5646 [8840] 16271 C 100 2 0 0 0 gRE-ENTER 25/1/1 4096 [8841] 16272 151 0 0 0 0 UNLOAD PROGRAMME 24/0/3 0 [8842] 26/0/2 2 [8843] 6/1/0 5174 [8844] 16273 54 1 0 1 0 46 BULK CLEAR 28/1/1 5292 [8845] 2/0/0 52 [8846] 16274 5 12 2 0 0 0 CLEAR CTR TRANSFER 24/0/2 1252 [8847] 16275 124 179 12 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [8848] 16276 80 326 2 0 0 0 gUNPACK FILE DETAILS ENTER SUBROUTINE 26/0/0 4258 [8849] 16277 80 297 2 0 0 0 gUNPACK CARD ANNOTATION ENTER SUBROUTINE Start of procedure 163 at location 658 in chapter 3 [8850] [8850] 16300 PROCR 163 CHECK/STORE/OUTPUT FILR DETAILS EX PT [8850] 16301 NOTES 6/0/0 5088 [8850] 16302 10 0 0 0 5600 SELECT LITERAL 2/0/0 53 [8851] 16303 5 12 3 0 0 0 ERROR LETER F TRANSFER 0/1/2 5294 [8852] 16304 34 1 2 1 0 0 FILE IDENTITY SET (N) IN B 26/0/0 4291 [8853] 16305 80 300 2 0 0 0 gL-ALIGN IN A ENTER SUBROUTINE Source: KenK/Q1000133 3/1/0 5294 [8854] 16306 3 1 2 1 0 0 COPY 18/1/1 4119 [8855] 16307 32 0 0 0 9- SHIFT (AB) BY QUARTETS 1/1/2 5 [8856] 16308 12 0 0 0 5 CONTROL OF ALPHA PART SUBTRACT LITERAL 27/0/3 680 [8857] 16309 73 163 24 0 0 0 gREPORT JUMP IF A < 0 1/1/3 0 [8858] 16310 10 0 0 0 0 SELECT LITERAL 18/1/1 1 [8859] 16311 32 0 0 0 1 BASIC OF ALPHA PART SHIFT (AB) BY QUARTETS 1/1/2 10 [8860] 16312 12 0 0 0 t SUBTRACT LITERAL 27/0/2 680 [8861] 16313 72 163 24 0 0 0 gREPORT JUMP IF A >= 0 1/1/3 0 [8862] 16314 10 0 0 0 0 SELECT LITERAL 18/1/1 2 [8863] 16315 32 0 0 0 2 NUMERIC PART SHIFT (AB) BY QUARTETS 1/1/2 48 [8864] 16316 12 0 0 0 30 SUBTRACT LITERAL 27/0/0 678 [8865] 16317 70 163 22 0 0 0 gOK JUMP IF A == 0 1/1/2 17 [8866] 16318 12 0 0 0 11 SUBTRACT LITERAL 27/0/3 680 [8867] 16319 73 163 24 0 0 0 gREPORT JUMP IF A < 0 1/1/2 9 [8868] 16320 12 0 0 0 9 SUBTRACT LITERAL 27/0/2 680 [8869] 16321 72 163 24 0 0 0 gREPORT JUMP IF A >= 0 1/1/3 0 [8870] 16322 10 0 0 0 0 SELECT LITERAL 27/1/0 682 [8871] 16323 74 163 26 0 0 0 gOK JUMP IF AB == 0 // 27, 1, 0 1/1/3 1 [8872] 16324 10 0 0 0 1 SELECT LITERAL 26/0/0 1212 [8873] 16325 80 177 2 0 0 0 gREPORT*F1 ENTER SUBROUTINE 6/1/0 5296 [8874] 16326 1 4 1 0 0 ROUTE TYPE SELECT 1/1/2 1 [8875] 16327 12 0 0 0 1 SUBTRACT LITERAL 27/0/3 722 [8876] 16328 73 163 62 0 0 0 gIGNORE JUMP IF A < 0 1/1/2 2 [8877] 16329 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 689 [8878] 16330 71 163 33 0 0 0 gNOT 3. DEC CARD O/P JUMP IF A != 0 1/1/3 38 [8879] 16331 10 0 0 0 26 SELECT LITERAL 24/1/0 720 [8880] 16332 76 163 60 0 0 0 gSET BLOCK LENGTH JUMP unconditional 1/1/2 1 [8881] 16333 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 707 [8882] 16334 70 163 51 0 0 0 gGP PRINTER JUMP IF A == 0 1/1/2 21 [8883] 16335 12 0 0 0 15 SUBTRACT LITERAL 27/0/0 707 [8884] 16336 70 163 51 0 0 0 gRT 19 JUMP IF A == 0 1/1/2 1 [8885] 16337 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 730 [8886] 16338 70 163 70 0 0 0 g OUT, IF RT20 JUMP IF A == 0 1/1/2 1 [8887] 16339 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 722 [8888] 16340 70 163 62 0 0 0 gREJECT RT 21 JUMP IF A == 0 1/1/2 1 [8889] 16341 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 730 [8890] 16342 70 163 70 0 0 0 g22,DATA LINK JUMP IF A == 0 1/1/2 1 [8891] 16343 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 722 [8892] 16344 70 163 62 0 0 0 gREJECT RT 23 JUMP IF A == 0 1/1/2 1 [8893] 16345 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 730 [8894] 16346 70 163 70 0 0 0 gRT24 JUMP IF A == 0 1/1/2 1 [8895] 16347 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 730 [8896] 16348 70 163 70 0 0 0 gRT25 JUMP IF A == 0 27/0/2 722 [8897] 16349 72 163 62 0 0 0 gREJECT JUMP IF A >= 0 24/1/0 730 [8898] 16350 76 163 70 0 0 0 JUMP unconditional 6/1/0 5300 [8899] 16351 1 8 1 0 0 BLOCK LENGTH SELECT 26/0/0 2771 [8900] 16352 80 245 2 0 0 0 gTO BIN ENTER SUBROUTINE 18/1/3 2 [8901] 16353 33 0 0 0 6- DIVIDE BY 64 SHIFT (AB) BY BITS 18/1/1 4126 [8902] 2/1/0 40 [8903] 16354 39 0 0 0 0 ROUND UP ROUND UP 27/1/0 714 [8904] 1/1/3 1 [8905] 4/1/0 40 [8906] 1/1/2 5 [8907] 16355 12 0 0 0 5 SUBTRACT LITERAL 27/0/2 726 [8908] 16356 72 163 66 0 0 0 gTOO BIG JUMP IF A >= 0 1/1/1 5 [8909] 16357 11 0 0 0 5 ADD LITERAL 18/0/3 6 [8910] 16358 31 0 0 0 6 SHIFT (A) BY BITS 26/0/0 2765 [8911] 16359 80 244 2 0 0 0 gTO DEC ENTER SUBROUTINE 2/1/0 5300 [8912] 16360 5 1 8 1 0 0 TRANSFER 24/1/0 730 [8913] 16361 76 163 70 0 0 0 JUMP unconditional Source: ChuckK/Q1000134 1/1/3 2 [8914] 16362 10 0 0 0 2 SELECT LITERAL 26/0/0 1212 [8915] 16363 80 177 2 0 0 0 >REPORT*F2 ENTER SUBROUTINE 26/0/0 4248 [8916] 16364 80 295 2 0 0 0 >IGNORE ENTER SUBROUTINE 24/1/0 730 [8917] 16365 76 163 70 0 0 0 JUMP unconditional 1/1/3 4 [8918] 16366 10 0 0 0 4 SELECT LITERAL 26/0/0 1212 [8919] 16367 80 177 2 0 0 0 >REPORT*F4 ENTER SUBROUTINE 26/0/0 4248 [8920] 16368 80 295 2 0 0 0 >IGNORE ENTER SUBROUTINE 24/1/0 733 [8921] 16369 76 163 73 0 0 0 JUMP unconditional 6/1/0 5300 [8922] 16370 0 1 8 1 0 0 BLOCK LENGTH SELECT 27/0/3 726 [8923] 16371 73 163 66 0 0 0 JUMP IF A < 0 27/0/0 726 [8924] 16372 70 163 66 0 0 0 JUMP IF A == 0 24/1/0 779 [8925] 16373 76 164 15 0 0 0 JUMP unconditional 1/1/3 5 [8926] 16374 10 0 0 0 5 SELECT LITERAL 26/0/0 1212 [8927] 16375 80 177 2 0 0 0 >REPORT*F5 ENTER SUBROUTINE 26/0/0 4248 [8928] 16376 80 295 2 0 0 0 >IGNORE ENTER SUBROUTINE 6/1/0 5298 [8929] 16377 1 6 1 0 0 CHAP IND SELECT 27/0/3 741 [8930] 16378 73 163 81 0 0 0 >REPORT JUMP IF A < 0 1/1/2 256 [8931] 16379 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 744 [8932] 16380 73 163 84 0 0 0 >OK JUMP IF A < 0 1/1/3 3 [8933] 16381 10 0 0 0 3 SELECT LITERAL 26/0/0 1212 [8934] 16382 80 177 2 0 0 0 >REPORT*F3 ENTER SUBROUTINE 26/0/0 4248 [8935] 16383 80 295 2 0 0 0 IGNORE ENTER SUBROUTINE 6/1/0 5296 [8936] 16384 1 4 1 0 0 ROUTE TYPE SELECT 26/0/0 2771 [8937] 16385 80 245 2 0 0 0 >TO BIN ENTER SUBROUTINE 18/1/3 2 [8938] 16386 33 0 0 0 2- SHIFT (AB) BY BITS 18/1/1 4127 [8939] 4/0/0 5295 [8940] 16387 1 1 3 0 0 0 FILE ID ADD 18/1/3 2 [8941] 16388 33 0 0 0 18- SHIFT (AB) BY BITS 18/1/1 4123 [8942] 6/1/0 5334 [8943] 16389 1 42 1 0 0 SELECT 26/0/0 766 [8944] 16390 80 164 2 0 0 0 >STORE DETAIL ENTER SUBROUTINE 27/0/1 755 [8945] 16391 71 163 93 0 0 0 >OK, LIST NOT FULL JUMP IF A != 0 26/0/0 4248 [8946] 16392 80 295 2 0 0 0 >IGNORE ENTER SUBROUTINE 24/0/2 1146 [8947] 16393 52 8 6 0 0 0 EDIT 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/2 6 [8949] 16394 C 175 2 0 0 0 24/0/2 5320 [8950] 16395 55 1 28 1 0 18 BULK COPY 18/1/0 4123 [8951] 16396 C 8 32 1 0 0 1/1/3 18 [8952] 18/1/1 5 [8953] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 32 [8955] 26/0/0 4099 [8956] 16397 80 289 2 0 0 0 >WRITE ENTER SUBROUTINE 24/1/0 613 [8957] 16398 76 162 45 0 0 0 JUMP unconditional Start of procedure 164 at location 766 in chapter 3 [8958] [8958] 16400 PROCR 164 164 STORE FILE DETAILS SR [8958] 16401 NOTES 0/0/0 0 [8958] 16402 81 164 2 0 0 0 START OF SUBROUTINE 5/1/0 4752 [8959] 16403 2 319 26 1 0 0 SUBTRACT 27/0/0 777 [8960] 16404 70 164 13 0 0 0 >IGNORED ALREADY JUMP IF A == 0 1/1/3 16 [8961] 16405 10 0 0 0 10 =16 SELECT LITERAL Source: ChuckK/Q1000135 5/0/0 6053 [8962] 16406 2 91 1 0 0 0 SUBTRACT 27/0/0 777 [8963] 16407 70 164 13 0 0 0 LIST FULL. IGNORE JUMP IF A == 0 18/1/1 5 [8964] 16408 32 0 0 0 5 SHIFT (AB) BY QUARTETS 24/0/1 6053 [8965] 16409 124 91 1 0 1 0 MODIFY ADDRESS OF NEXT 2/0/0 6057 [8966] 16410 5 91 5 0 0 0 STORE TRANSFER 1/1/3 2 [8967] 16411 10 0 0 0 2 SELECT LITERAL 7/0/0 6053 [8968] 16412 4 91 1 0 0 0 STEP CTR AUGMENT 0/0/3 5089 [8969] 16413 60 0 0 0 0 SET DECIMAL RADIX 26/0/1 766 [8970] 16414 82 164 2 0 0 0 (A)=0 IF FILE TO BE IGNORED END OF SUBROUTINE / LEAVE SUBROUTINE 6/0/0 5302 [8971] 16415 1 10 0 0 0 ALT ROUTE IND SELECT 27/0/1 785 [8972] 16416 71 164 21 0 0 0 JUMP IF A != 0 6/0/0 5296 [8973] 16417 1 4 0 0 0 SELECT 1/1/2 25 [8974] 16418 12 0 0 0 19 SUBTRACT LITERAL 27/0/0 734 [8975] 16419 70 163 74 0 0 0 >REPORT JUMP IF A == 0 24/1/0 737 [8976] 16420 76 163 77 0 0 0 >OK JUMP unconditional 6/0/0 5296 [8977] 16421 1 4 0 0 0 ROUTE TYPE SELECT 1/1/2 5 [8978] 16422 12 0 0 0 5 SUBTRACT LITERAL 27/0/0 802 [8979] 16423 70 164 38 0 0 0 >PT JUMP IF A == 0 1/1/2 2 [8980] 16424 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 802 [8981] 16425 70 164 38 0 0 0 >MT 7 JUMP IF A == 0 1/1/2 1 [8982] 16426 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 802 [8983] 16427 70 164 38 0 0 0 >MT 8 JUMP IF A == 0 1/1/2 3 [8984] 16428 12 0 0 0 3 SUBTRACT LITERAL 27/0/0 802 [8985] 16429 70 164 38 0 0 0 >MT 11 JUMP IF A == 0 1/1/2 4 [8986] 16430 12 0 0 0 4 SUBTRACT LITERAL 27/0/0 802 [8987] 16431 70 164 38 0 0 0 >PT 15 JUMP IF A == 0 1/1/2 4 [8988] 16432 12 0 0 0 4 SUBTRACT LITERAL 27/0/1 734 [8989] 16433 71 163 74 0 0 0 >REPORT. NOT 19 JUMP IF A != 0 6/0/0 5302 [8990] 16434 1 10 0 0 0 SPECIAL ANNEX LENGTH SELECT 5/0/0 5090 [8991] 16435 12 0 0 0 4096 SUBTRACT LITERAL 27/0/2 734 [8992] 16436 72 163 74 0 0 0 >REPORT JUMP IF A >= 0 24/1/0 737 [8993] 16437 76 163 77 0 0 0 >OK JUMP unconditional 6/0/0 5302 [8994] 16438 1 10 0 0 0 ALT ROUTE IND SELECT 1/1/2 1 [8995] 16439 12 0 0 0 1 >OK SUBTRACT LITERAL 27/0/0 737 [8996] 16440 70 163 77 0 0 0 >REPORT JUMP IF A == 0 24/1/0 734 [8997] 16441 76 163 74 0 0 0 JUMP unconditional Start of procedure 165 at location 806 in chapter 3 [8998] [8998] 16500 PROCR 165 'CHAPS' ON PT [8998] 16501 NOTES 6/0/0 5091 [8998] 16502 10 0 0 0 5300 SELECT LITERAL 3/0/0 83 [8999] 16503 3 12 33 0 0 0 SET 'PT IN' COPY 2/0/0 53 [9000] 16504 5 12 3 0 0 0 ERROR LETTER C TRANSFER 6/1/0 5176 [9001] 16505 54 1 0 1 0 46 BULK CLEAR 28/1/1 5292 [9002] 6/0/0 51 [9003] 16506 12 1 0 0 0 STORE AMEND SERIAL INDICATOR SELECT 18/0/1 2 [9004] 16507 30 0 0 0 2 SHIFT (A) BY QUARTETS 2/0/0 5292 [9005] 16508 5 1 0 0 0 0 TRANSFER 24/0/2 1294 [9006] 16509 124 180 2 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [9007] 16510 80 326 2 0 0 0 >UNPACK 'CHAPS' ENTER SUBROUTINE 6/0/0 5296 [9008] 16511 1 4 0 0 0 NO OF CHARS SELECT 1/1/2 1 [9009] 16512 12 0 0 0 1 SUBTRACT LITERAL 27/0/3 821 [9010] 16513 73 165 16 0 0 0 >REPORT JUMP IF A < 0 1/1/2 20 [9011] 16514 12 0 0 0 14 SUBTRACT LITERAL 27/0/3 824 [9012] 16515 73 165 19 0 0 0 >OK JUMP IF A < 0 1/1/3 1 [9013] 16516 10 0 0 0 1 SELECT LITERAL Source: ChuckK/Q1000136 3/0/0 5296 [9014] 16517 3 1 4 0 0 0 (SAFE VALUE) COPY 26/0/0 1212 [9015] 16518 80 177 2 0 0 0 >REPORT*C1 ENTER SUBROUTINE 6/0/0 5296 [9016] 16519 1 4 0 0 0 SELECT 26/0/0 2771 [9017] 16520 80 245 2 0 0 0 >TO BIN ENTER SUBROUTINE 2/0/0 63 [9018] 16521 5 12 13 0 0 0 TRANSFER 0/0/3 5092 [9019] 16522 60 0 0 0 0 SET DECIMAL RADIX 26/1/2 62 [9020] 16523 91 12 12 0 2 0 C:0 SET MODIFICATION REGISTER AT VARIABLE 6/0/2 5297 [9021] 16524 1 5 0 2 0 SELECT 26/0/0 1619 [9022] 16525 80 200 2 0 0 0 >REPLACE PROCR ENTER SUBROUTINE 24/1/0 833 [9023] 0/0/1 1223 [9024] 16526 C 178 2 0 0 0 27/0/1 837 [9025] 16527 71 165 31 0 0 0 >OK JUMP IF A != 0 6/1/0 4766 [9026] 16528 319 40 1 0 0 '????R' SELECT 2/1/0 5336 [9027] 16529 5 1 44 1 0 0 TRANSFER 6/0/2 5297 [9028] 16530 1 5 0 2 0 OLD VALUE SELECT 3/0/2 64 [9029] 16531 3 12 14 0 2 0 STORE START POINTS COPY 3/0/2 5297 [9030] 16532 3 1 5 0 2 0 COPY 1/1/2 256 [9031] 16533 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 843 [9032] 16534 73 165 37 0 0 0 >REPORT JUMP IF A < 0 1/1/2 2201 [9033] 16535 12 0 0 0 899 SUBTRACT LITERAL 27/0/3 845 [9034] 16536 73 165 39 0 0 0 >OK JUMP IF A < 0 1/1/3 2 [9035] 16537 10 0 0 0 2 SELECT LITERAL 26/0/0 1212 [9036] 16538 80 177 2 0 0 0 >REPORT*C2 ENTER SUBROUTINE 25/0/2 1 [9037] 16539 94 165 24 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 829 [9038] s 6/0/2 5297 [9039] 16540 1 5 0 2 0 NEXT CHAP START SELECT 27/0/0 851 [9040] 16541 70 165 44 0 0 0 >OK JUMP IF A == 0 1/1/3 3 [9041] 16542 10 0 0 0 3 SELECT LITERAL 26/0/0 1212 [9042] 16543 80 177 2 0 0 0 >REPORT*C3 ENTER SUBROUTINE 24/0/2 5296 [9043] 16544 55 1 4 0 0 15 NO OF CHAPS*START BULK COPY 18/1/0 4123 [9044] 16545 C 8 8 2 0 0 1/1/3 15 [9045] 18/1/1 5 [9046] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/1 9 [9048] 24/0/2 5326 [9049] 16546 55 1 34 1 0 12 REPORTS BULK COPY 18/1/0 4123 [9050] 16547 C 8 38 1 0 0 1/1/3 12 [9051] 18/1/1 5 [9052] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 38 [9054] 24/0/2 1170 [9055] 16548 52 8 4 0 0 0 EDIT AMEND IND+'CHARS' EDIT 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/2 4 [9057] 16549 C 175 26 0 0 0 26/0/0 4130 [9058] 16550 80 292 2 0 0 0 >READ PT ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [9060] 16551 9 4 1 0 0 ;DEAL WITH 'STOR SELECT 5/1/0 1346 [9061] 16552 2 181 22 1 0 0 'STORE' SUBTRACT 27/0/0 874 [9062] 16553 70 165 57 0 0 0 >PT AT STORE JUMP IF A == 0 6/0/0 6044 [9063] 16554 92 30 0 0 0 SELECT 27/0/1 898 [9064] 16555 71 165 74 0 0 0 >MT UNAMENDED JUMP IF A != 0 24/1/0 912 [9065] 16556 76 166 2 0 0 0 >INITIAL TRANS WITHOUT STORE JUMP unconditional 6/0/0 6044 [9066] 16557 92 30 0 0 0 SELECT 27/0/0 882 [9067] 16558 70 165 64 0 0 0 INITIAL TRANS JUMP IF A == 0 26/0/0 4119 [9068] 16559 80 291 2 0 0 0 READ A1 ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 6 [9070] 16560 7 6 1 0 0 SELECT 5/1/0 1346 [9071] 16561 2 181 22 1 0 0 'STORE' SUBTRACT 27/0/1 882 [9072] 16562 71 165 64 0 0 0 JUMP IF A != 0 26/0/0 4119 [9073] 16563 80 291 2 0 0 0 READ A1 ENTER SUBROUTINE 6/1/0 5178 [9074] 16564 54 1 0 1 0 20 BULK CLEAR 28/1/1 5292 [9075] 24/0/2 1294 [9076] 16565 124 180 2 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [9077] 16566 80 326 2 0 0 0 UNPACK 'STORE' ENTER SUBROUTINE 26/0/0 4099 [9078] 16567 80 289 2 0 0 0 WRITE 'CHAPS' ENTER SUBROUTINE 24/0/2 5296 [9079] 16568 55 1 4 0 0 7 BULK COPY 18/1/0 4123 [9080] 16569 C 8 8 1 0 0 1/1/3 7 [9081] 18/1/1 5 [9082] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/1 9 [9084] 6/1/0 1346 [9085] 16570 181 22 1 0 0 'STORE' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 6 [9087] 16571 5 8 6 1 0 0 TRANSFER 26/0/0 4130 [9088] 16572 80 292 2 0 0 0 READ A6 ENTER SUBROUTINE 24/1/0 912 [9089] 16573 76 166 2 0 0 0 JUMP unconditional 26/0/0 4119 [9090] 16574 80 291 2 0 0 0 READ A1 MT UNAMENDED ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 6 [9092] 16575 7 6 1 0 0 SELECT Source: KenK/Q1000137 5/1/0 1346 [9093] 16576 2 181 22 1 0 0 SUBTRACT 27/0/1 912 [9094] 16577 71 166 2 0 0 0 gNOT STORE JUMP IF A != 0 26/0/0 4099 [9095] 16578 80 289 2 0 0 0 WRITE 'CHAPS' ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 4 [9097] 16579 55 7 4 1 0 40 BULK COPY 18/1/0 4123 [9098] 16580 C 8 4 1 0 0 1/1/3 40 [9099] 18/1/1 5 [9100] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [9102] 26/0/0 4119 [9103] 16581 80 291 2 0 0 0 gREAD A1 ENTER SUBROUTINE Start of procedure 166 at location 912 in chapter 3 [9104] [9104] 16600 PROCR 166 PREPARE TP PROCESS SECTION DETAILS+DEAL WITH INITIAL TRANSLATION [9104] 16601 NOTES 6/1/0 5180 [9104] 16602 10 0 0 0 pppppppppp SELECT LITERAL 24/0/3 0 Extra code needed to address 8162 from 9105 (different chapter) 2/1/0 8162 [9106] 16603 5 18 2498 1 0 0 LIST END SIGN TRANSFER 24/0/3 0 Extra code needed to address 8160 from 9107 (different chapter) 2/1/0 8160 [9108] 16604 5 18 2496 1 0 0 CLEAR FIRST ENTRY TRANSFER 1/1/3 1 [9109] 16605 83 267 2 0 0 1 SAFETY SETTINGS SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8169 [9110] 6/0/0 63 [9111] 16606 0 12 13 0 0 0 NO OF CHAPS SELECT 26/0/0 2765 [9112] 16607 80 244 2 0 0 0 gTO DEC ENTER SUBROUTINE 2/0/0 1332 [9113] 16608 5 181 8 0 0 0 TRANSFER 6/0/0 5093 [9114] 16609 10 0 0 0 7200 SELECT LITERAL 2/0/0 53 [9115] 16610 5 12 3 0 0 0 ERROR LETTERS TRANSFER 1/1/3 153 [9116] 16611 10 0 0 0 99 SELECT LITERAL 2/0/0 6017 [9117] 16612 5 92 3 0 0 0 FIRST PROCR-1 TRANSFER 6/1/0 5182 [9118] 16613 90 0 0 4 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8184 [9119] 16614 C 0 0 0 14 TO STORE CHAPTER ENDS Simulated modifier 0/0/3 0 [9120] 16615 62 0 0 0 0 SET EXCESS CONSTANTS 26/1/3 62 [9121] 16616 91 12 12 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 1/1/1 1 [9122] 16617 11 0 0 0 1 ADD LITERAL 3/0/3 6024 [9123] 16618 3 92 10 0 3 0 STORE UNCORRECETD CHAP NUMBERS COPY 25/0/3 1 [9124] 16619 94 166 17 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 930 [9125] s 0/0/3 5094 [9126] 16620 60 0 0 0 0 SET DECIMAL RADIX 1/1/3 4097 [9127] 16621 10 0 0 0 1001 SELECT LITERAL 2/0/0 59 [9128] 16622 5 12 9 0 0 0 SET FIRST SECTION SERIAL NUMBER TRANSFER 6/0/0 6044 [9129] 16623 92 30 0 0 0 SELECT 27/0/1 953 [9130] 16624 71 167 2 0 0 0 gNOT INITIAL TRANSLATION JUMP IF A != 0 24/0/1 6320 [9131] 16625 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 940 [9132] 0/0/1 943 [9133] s 16626 C 166 28 0 0 0 gPT 0/0/1 946 [9134] s 16627 C 166 30 0 0 0 gCARDS 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [9136] 16628 9 4 1 0 0 SELECT 24/1/0 948 [9137] 16629 76 166 31 0 0 0 JUMP unconditional 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 8 [9139] 16630 9 8 1 0 0 SELECT 26/0/0 4006 [9140] 16631 80 287 2 0 0 0 gTEST PT='PROCR' ETC ENTER SUBROUTINE 6/0/0 88 [9141] 16632 12 38 0 0 0 SELECT 27/0/3 1370 [9142] 16633 73 185 2 0 0 0 gYES, END OF SECTION DETAILS JUMP IF A < 0 26/0/0 1039 [9143] 16634 80 170 2 0 0 0 gUNPACK/OUTPUT PT ENTER SUBROUTINE 24/1/0 939 [9144] 16635 76 166 25 0 0 0 JUMP unconditional Start of procedure 167 at location 953 in chapter 3 [9145] [9145] 16700 PROCR 167 DEAL WITH UNAMENDED SECTION LINE 26/0/0 1125 [9145] 16702 80 173 2 0 0 0 gTEST PT AT AMEND DIRECTIVE ENTER SUBROUTINE 27/0/1 958 [9146] 16703 71 167 7 0 0 0 JUMP IF A != 0 0/1/2 1334 [9147] 16704 34 181 10 1 0 0 FIVE SQUARES SET (N) IN B 24/1/0 1015 [9148] 16705 76 169 3 0 0 0 JUMP unconditional 26/0/0 4119 [9149] 16706 80 291 2 0 0 0 gREAD MT ENTER SUBROUTINE 6/0/0 95 [9150] 16707 12 45 0 0 0 SELECT 27/0/1 966 [9151] 16708 71 167 13 0 0 0 gNO MORE PT AMENDS TO SECTIONS JUMP IF A != 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 5 [9153] 16709 7 4 2 0 0 SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 5/1/0 5 [9155] 16710 2 9 4 2 0 0 SUBTRACT Source: KenK/Q1000138 27/0/0 981 [9156] 16711 70 168 2 0 0 0 gMT AMENDED JUMP IF A == 0 27/0/3 1014 [9157] 16712 73 169 2 0 0 0 gMT>PT, REPORT JUMP IF A < 0 26/0/0 1136 [9158] 16713 80 174 2 0 0 0 gTEST MT=PROCR ETC ENTER SUBROUTINE 6/0/0 88 [9159] 16714 12 38 0 0 0 SELECT 27/0/3 1370 [9160] 16715 73 185 2 0 0 0 gYES JUMP IF A < 0 24/0/2 1160 [9161] 16716 50 7 6 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/0/2 6 [9163] 16717 C 175 16 0 0 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 32 [9165] 16718 55 7 32 1 0 16 BULK COPY 18/1/0 4123 [9166] 16719 C 1 28 1 0 0 1/1/3 16 [9167] 18/1/1 5 [9168] 28/1/1 5320 [9169] 2/1/0 5336 [9170] 16720 5 1 44 1 0 0 CLEAR REPORT WL TRANSFER 26/0/0 1068 [9171] 16721 80 172 2 0 0 0 gCHECK/EDIT/WRITE SECTION DETAIL ENTER SUBROUTINE 24/1/0 957 [9172] 16722 76 167 6 0 0 0 JUMP unconditional Start of procedure 168 at location 981 in chapter 3 [9173] [9173] 16800 PROCR 168 EFFECT REPLACEMENTS, DELETIONS, INSERTIONS 24/0/1 8170 [9173] 16802 85 252 2 0 0 0 SWITCH R 26/0/1 982 [9174] 0/0/1 987 [9175] s 16803 C 168 7 0 0 0 gREPLACE 0/0/1 995 [9176] s 16804 C 168 15 0 0 0 gDELETE 0/0/1 1009 [9177] s 16805 C 168 27 0 0 0 gINSERT BEFORE 0/0/1 987 [9178] s 16806 C 168 7 0 0 0 gANNOTATION 26/0/0 1136 [9179] 16807 80 174 2 0 0 0 gTEST MT=PROCR ETC ENTER SUBROUTINE 6/0/0 88 [9180] 16808 0 12 38 0 0 0 SELECT 27/0/3 1370 [9181] 16809 73 185 2 0 0 0 gYES ;'REPLACE'LOOP JUMP IF A < 0 26/0/0 1039 [9182] 16810 80 170 2 0 0 0 gAPPLY PT ENTER SUBROUTINE 26/0/0 1125 [9183] 16811 80 173 2 0 0 0 gTEST NEXT PT=DIRECTIVE ENTER SUBROUTINE 27/0/1 957 [9184] 16812 71 167 6 0 0 0 gYES JUMP IF A != 0 26/0/0 4119 [9185] 16813 80 291 2 0 0 0 gREAD MT ENTER SUBROUTINE 24/1/0 987 [9186] 16814 76 168 7 0 0 0 JUMP unconditional 26/0/0 4130 [9187] 16815 80 292 2 0 0 0 gREAD PT ENTER SUBROUTINE 26/0/0 1125 [9188] 16816 80 173 2 0 0 0 gTEST DIRECTIVE ;DELETE ENTER SUBROUTINE 27/0/1 957 [9189] 16817 71 167 6 0 0 0 gYES JUMP IF A != 0 26/0/0 4119 [9190] 16818 80 291 2 0 0 0 gREAD MT ENTER SUBROUTINE 26/0/0 1136 [9191] 16819 80 174 2 0 0 0 g TEST MT=PROCR ETC ENTER SUBROUTINE 6/0/0 88 [9192] 16820 12 38 0 0 0 SELECT 27/0/3 1370 [9193] 16821 73 185 2 0 0 0 gYES JUMP IF A < 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 5 [9195] 16822 7 4 2 0 0 SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 5/1/0 5 [9197] 16823 2 9 4 2 0 0 SUBTRACT 27/0/3 1014 [9198] 16824 73 169 2 0 0 0 gMODS OUT OF ORDER JUMP IF A < 0 27/0/0 995 [9199] 16825 70 168 15 0 0 0 gEND OF DELETION JUMP IF A == 0 24/1/0 998 [9200] 16826 76 168 18 0 0 0 gREAD/IGNORE MT JUMP unconditional 26/0/0 4130 [9201] 16827 80 292 2 0 0 0 READ FIRST INSERTED BLOCK ENTER SUBROUTINE 26/0/0 1039 [9202] 16828 80 170 2 0 0 0 gUNPACK/OUTPUT/READ NEXT PT BLOCK ENTER SUBROUTINE 26/0/0 1125 [9203] 16829 80 173 2 0 0 0 gTEST AMEND DIRECTIVE ENTER SUBROUTINE 27/0/0 1010 [9204] 16830 70 168 28 0 0 0 gNO JUMP IF A == 0 24/1/0 958 [9205] 16831 76 167 7 0 0 0 gYES JUMP unconditional Start of procedure 169 at location 1014 in chapter 3 [9206] [9206] 16900 PROCR 169 DEAL WITH SEQUENCE ERROR IN MODS 0/1/2 5294 [9206] 16902 34 1 2 1 0 0 SET (N) IN B 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/0/0 47 [9208] 16903 0 8 47 0 0 0 TEST TOP HALF TO BE'??5' SELECT 5/0/0 4742 [9209] a 16904 2 318 27 0 0 0 SUBTRACT 27/0/0 1024 [9210] 16905 70 169 10 0 0 0 gLINE IGNORED, DONT OVERWRITE WORD JUMP IF A == 0 1/1/3 0 [9211] 16906 10 0 0 0 0 CLEAR SIGN BIT A SELECT LITERAL 18/1/1 10 [9212] 16907 32 0 0 0 10 SHIFT (AB) BY QUARTETS 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 46 [9214] 16908 5 8 46 1 0 0 TRANSFER 24/1/0 1027 [9215] 16909 76 169 12 0 0 0 JUMP unconditional 18/1/1 10 [9216] 16910 32 0 0 0 10 SHIFT (AB) BY QUARTETS 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 44 [9218] 16911 5 8 44 1 0 0 TRANSFER Source: KenK/Q1000139 6/1/0 5296 [9219] 16912 0 1 4 1 0 0 AMEND LETTER SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 48 [9221] 16913 5 8 48 1 0 0 TRANSFER 1/0/1 15 [9222] 16914 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 1/1/3 7453 [9223] 16915 10 0 0 0 1:1: SELECT LITERAL 3/0/0 6316 [9224] 16916 3 27 6 0 0 0 SET 'PT OMITTED' COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 14/1/0 48 [9226] 16917 37 8 48 1 0 0 PLANT '??' REPLACE SELECTED BITS 26/0/0 4130 [9227] 16918 80 292 2 0 0 0 gREADPT ENTER SUBROUTINE 26/0/0 1125 [9228] 16919 80 173 2 0 0 0 gTEST AMEND DIRECTIVE ENTER SUBROUTINE 27/0/0 1035 [9229] 16920 70 169 18 0 0 0 gNO JUMP IF A == 0 24/1/0 958 [9230] 16921 76 167 7 0 0 0 gYES(DEAL WITH CURRENT MT BLOCK) JUMP unconditional Start of procedure 170 at location 1039 in chapter 3 [9231] [9231] 17000 PROCR 170 AMENDS TO SECTION DESCRIPTION EX PT 0/0/0 0 [9231] 17002 81 170 2 0 0 0 START OF SUBROUTINE 6/1/0 5184 [9232] 17003 54 1 0 1 0 46 BULK CLEAR 28/1/1 5292 [9233] 24/0/2 1266 [9234] 17004 124 179 26 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [9235] 17005 80 326 2 0 0 0 gUNPACK PT SECTION ENTER SUBROUTINE 26/0/0 4258 [9236] 17006 80 297 2 0 0 0 UNPACK ANNOTATION(CARDS) ENTER SUBROUTINE 6/0/0 8170 [9237] 17007 86 252 2 0 0 0 SELECT SWITCH R 1/1/2 4 [9238] 17008 12 0 0 0 4 SUBTRACT LITERAL 27/0/1 1052 [9239] 17009 71 170 13 0 0 0 gNOT 'UNPACK ANNOTATION' JUMP IF A != 0 24/0/2 1160 [9240] 17010 50 7 6 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/0/2 6 [9242] 17011 C 175 16 0 0 0 UNPACK MT DETAILS 24/1/0 1054 [9243] 17012 76 170 15 0 0 0 JUMP unconditional 6/0/0 51 [9244] 17013 0 12 1 0 0 0 SET AMEND IND SELECT 2/0/0 5298 [9245] 17014 5 1 6 0 0 0 TRANSFER 26/0/0 4130 [9246] 17015 80 292 2 0 0 0 gREAD NEXT PT BLOCK ENTER SUBROUTINE 26/0/0 1068 [9247] 17016 80 172 2 0 0 0 gCHECK/EDIT/OUTPUT SECTION DETAIL ENTER SUBROUTINE 26/0/1 1039 [9248] 17017 82 170 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 171 at location 1057 in chapter 3 [9249] [9249] 17100 PROCR 171 0/0/0 0 [9249] 17102 81 171 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [9250] 17103 43 A2 0 0 0 0 OUTPUT 0/0/3 0 [9251] 0/0/2 16 [9252] 17104 C 7 0 0 0 0 OUTPUT 6/1/0 0 [9253] 1/1/1 36 [9254] 25/1/1 4096 [9255] 24/0/3 0 [9256] 23/0/2 43 [9257] 0/1/1 40 [9258] 26/0/1 1057 [9259] 17105 82 171 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 172 at location 1068 in chapter 3 [9260] [9260] 17200 PROCR 172 CHECK/EDIT/WRITE SECTION DETAILS 0/0/0 0 [9260] 17202 81 172 2 0 0 0 START OF SUBROUTINE 26/0/0 1511 [9261] 17203 80 189 2 0 0 0 DELETE B/FWD REPORTS ENTER SUBROUTINE 26/1/1 5186 [9262] 17204 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [9263] 17205 C 0 0 0 4 Limit 26/1/2 5188 [9263] 17206 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [9264] 17207 C 0 0 0 8 Limit 1/1/3 0 [9264] 17208 10 0 0 0 0 SELECT LITERAL 2/1/0 5336 [9265] 17209 5 1 44 1 0 0 CLEAR REPORT WORD TRANSFER 6/0/1 5294 [9266] 17210 1 2 0 1 0 SELECT 5/0/2 1327 [9267] 17211 2 181 3 0 2 0 LOWER LIMIT SUBTRACT 27/0/3 1080 [9268] 17212 73 172 16 0 0 0 gREPORT JUMP IF A < 0 6/0/2 1326 [9269] 17213 181 2 0 2 0 UPPER LIMIT SELECT 5/0/1 5294 [9270] 17214 2 1 2 0 1 0 SUBTRACT 27/0/2 1086 [9271] 17215 72 172 21 0 0 0 gOK JUMP IF A >= 0 24/0/3 22 [9272] 17216 96 0 0 1 0 SELECT MODIFIER 6/0/0 2 [9273] 1/1/1 1 [9274] 17217 11 0 0 0 1 ADD LITERAL 26/0/0 1212 [9275] 17218 80 177 2 0 0 0 gREPORT S(NOMBER) ENTER SUBROUTINE 26/0/0 4248 [9276] 17219 80 295 2 0 0 0 gIGNORE SECTION ENTER SUBROUTINE 24/1/0 1111 [9277] 17220 76 172 44 0 0 0 JUMP unconditional 25/0/1 1 [9278] 17221 94 0 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1088 [9279] 25/0/2 2 [9280] 17222 94 172 10 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1074 [9281] s 6/0/0 5296 [9282] 17223 1 4 0 0 0 TX AREA IND SELECT 27/0/0 1098 [9283] 17224 70 172 31 0 0 0 gNO JUMP IF A == 0 7/0/0 6020 [9284] 17225 4 92 6 0 0 0 AUG CTR AUGMENT Source: DavidH/Q1000140 6/0/0 6020 [9285] 17226 92 6 0 0 0 SELECT 1/1/2 9 [9286] 17227 12 0 0 0 9 SUBTRACT LITERAL 27/0/3 1098 [9287] 17228 73 172 31 0 0 0 gOK, NOT >8 TX AREAS JUMP IF A < 0 1/1/3 5 [9288] 17229 10 0 0 0 5 SELECT LITERAL 24/1/0 1083 [9289] 17230 76 172 18 0 0 0 gREPORT, IGNORE JUMP unconditional 6/0/0 5294 [9290] 17231 1 2 0 0 0 SELECT 26/0/0 1358 [9291] 17232 80 183 2 0 0 0 gDECODE SEC NUMBER ENTER SUBROUTINE 0/0/2 90 [9292] 17233 34 12 40 0 0 0 SET (N) IN B 15/0/3 122 [9293] 17234 36 12 72 0 3 0 COLLATE AND ADD 27/0/1 1096 [9294] 17235 71 172 29 0 0 0 gSECTION ALREADY USED JUMP IF A != 0 0/0/3 0 [9295] 17236 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 90 [9296] 17237 12 40 0 0 0 SELECT 7/0/3 122 [9297] 17238 4 12 72 0 3 0 SET 'i AM A SECTION' IND AUGMENT 6/0/0 5296 [9298] 17239 1 4 0 0 0 SELECT 27/0/0 1111 [9299] 17240 70 172 44 0 0 0 gNOT TX AREA JUMP IF A == 0 6/0/0 90 [9300] 17241 12 40 0 0 0 SELECT 18/0/3 10 [9301] 17242 31 0 0 0 10 SHIFT (A) BY BITS 7/0/3 122 [9302] 17243 4 12 72 0 3 0 SET 'i AM A TX AREA' IND AUGMENT 0/0/3 5095 [9303] 17244 60 0 0 0 0 SET DECIMAL RADIX 26/0/0 4099 [9304] 17245 80 289 2 0 0 0 gWRITE PREVINS BLOCK ENTER SUBROUTINE 24/0/2 1156 [9305] 17246 52 8 4 0 0 0 EDIT 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/2 4 [9307] 17247 C 175 12 0 0 0 1/1/3 1 [9308] 17248 10 0 0 0 1 SELECT LITERAL 7/0/0 59 [9309] 17249 4 12 9 0 0 0 STEP SERIAL CTR AUGMENT 24/0/2 5320 [9310] 17250 55 1 28 1 0 18 ANNOTATION BULK COPY 18/1/0 4123 [9311] 17251 C 8 32 1 0 0 1/1/3 18 [9312] 18/1/1 5 [9313] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 32 [9315] 26/0/1 1068 [9316] 17252 82 172 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 173 at location 1125 in chapter 3 [9317] [9317] 17300 PROCR 173 TEST PT REPRESENTS AMENDMENT TO SECTION DESCRIPTION 0/0/0 0 [9317] 17302 81 173 2 0 0 0 START OF SUBROUTINE 26/0/0 4204 [9318] 17303 80 294 2 0 0 0 gTEST AMEND DIRECTIVE/END ENTER SUBROUTINE 27/0/0 1135 [9319] 17304 70 173 12 0 0 0 gNO JUMP IF A == 0 6/0/0 5295 [9320] 17305 1 3 0 0 0 TOPCHAR OF SERIAL NUMBER SELECT 18/0/1 4125 [9321] 17306 30 0 0 0 3- SHIFT (A) BY QUARTETS 1/1/2 91 [9322] 17307 12 0 0 0 5e * SUBTRACT LITERAL 27/0/0 1134 [9323] 17308 70 173 11 0 0 0 gIS MOD TO SECTIONS JUMP IF A == 0 1/1/3 1 [9324] 17309 10 0 0 0 1 SELECT LITERAL 2/0/0 95 [9325] 17310 5 12 45 0 0 0 TRANSFER 1/1/3 1 [9326] 17311 10 0 0 0 1 SELECT LITERAL 26/0/1 1125 [9327] 17312 82 173 2 0 0 0 (A)=0 IF NOT DIRECTIVE END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 174 at location 1136 in chapter 3 [9328] [9328] 17400 PROCR 174 TEST MT AT START OF CODING 0/0/0 0 [9328] 17402 81 174 2 0 0 0 START OF SUBROUTINE 6/0/0 6311 [9329] 17403 27 1 0 0 0 SELECT 27/0/0 1143 [9330] 17404 70 174 8 0 0 0 gSINGLE RECORD BLOCKS JUMP IF A == 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 12 [9332] 17405 7 12 1 0 0 DIRECTIVE WORD SELECT 26/0/0 4006 [9333] 17406 80 287 2 0 0 0 ENTER SUBROUTINE 26/0/1 1136 [9334] 17407 82 174 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 10 [9336] 17408 7 10 1 0 0 SELECT 24/1/0 1141 [9337] 17409 76 174 6 0 0 0 JUMP unconditional Start of procedure 175 at location 1146 in chapter 3 [9338] [9338] 17500 TABLE 175 1 1 0/0/1 5294 [9338] 17502 1 2 0 0 2 0 5 0 0 0 0 0 0 FILE IDENTITY==FILES LINE 3/0/0 5 [9339] 0/0/1 5296 [9340] 17504 1 4 0 0 0 0 5 0 0 5 0 0 0 RTE TYPE 0/0/2 4101 [9341] 0/0/1 5298 [9342] 17506 1 6 0 0 0 0 5 0 0 5 0 0 0 RETN PERIOD 0/0/2 4101 [9343] 0/0/1 5300 [9344] 17508 1 8 0 0 0 0 5 0 0 5 0 0 0 MAX BLOCK 0/0/2 4101 [9345] 0/0/1 5302 [9346] 17510 1 10 0 0 0 0 5 0 0 5 0 0 1 ALT ROUTE 16/0/2 4101 [9347] Source: DavidH/Q1000141 0/0/1 4734 [9348] 17512 319 8 0 0 2 0 1 0 0 0 0 0 0 * 3/0/0 1 [9349] 0/0/1 59 [9350] 17514 12 9 0 0 0 0 4 1 0 3 0 0 0 SECTION SERIAL NUMBER 0/0/1 4356 [9351] 0/0/1 5294 [9352] 17516 1 2 0 0 0 0 5 0 0 4 0 0 0 SECTION==SECTION LINE 0/0/2 5 [9353] 0/0/1 5295 [9354] 17518 1 3 0 0 0 0 5 0 0 4 0 0 0 LENGTH 0/0/2 5 [9355] 0/0/1 5296 [9356] 17520 1 4 0 0 0 0 5 0 0 4 0 0 0 TX AREA IND 0/0/2 5 [9357] 0/0/1 5297 [9358] 17522 1 5 0 0 0 0 5 0 0 4 0 0 0 CHAPTER 0/0/2 5 [9359] 0/0/1 5298 [9360] 17524 1 6 0 0 0 0 5 0 0 5 0 0 1 AMEND IND 16/0/2 4101 [9361] 0/0/1 5292 [9362] 17526 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND 0/0/2 4101 [9363] 0/0/1 5294 [9364] 17528 1 2 0 0 2 0 5 0 0 0 0 0 1 'CHAPS' 19/0/0 5 [9365] 0/0/1 51 [9366] 17530 12 1 0 0 0 0 5 0 0 4 0 0 1 FOR UPDATED SERIAL 16/0/2 5 [9367] 0/0/1 5292 [9368] 17532 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND 0/0/2 4101 [9369] 0/0/1 5294 [9370] 17534 1 2 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [9371] 0/0/1 5296 [9372] 17536 1 4 0 0 0 0 5 0 0 5 0 0 0 0/0/2 4101 [9373] 0/0/1 5298 [9374] 17538 1 6 0 0 0 0 5 0 0 4 0 0 0 0/0/2 5 [9375] 0/0/1 5300 [9376] 17540 1 8 0 0 2 0 5 0 0 0 0 0 0 SERIAL/CODER 3/0/0 5 [9377] 0/0/1 5302 [9378] 17542 1 10 0 0 1 0 10 0 0 10 0 0 0 (SPACER) 2/1/1 10 [9379] 0/0/1 5302 [9380] 17544 1 10 0 0 0 0 5 0 0 5 0 0 1 (SPACER) 16/0/2 4101 [9381] Start of procedure 176 at location 1190 in chapter 3 [9382] [9382] 17600 PROCR 176 CHECK PERFORATING IN PROGM BLOCK [9382] 17601 NOTES 0/0/0 0 [9382] 17602 81 176 2 0 0 0 START OF SUBROUTINE 6/0/0 5296 [9383] 17603 1 4 0 0 0 SUITE SELECT 1/1/2 4096 [9384] 17604 12 0 0 0 1000 SUBTRACT LITERAL 27/0/3 1196 [9385] 17605 73 176 8 0 0 0 gOK JUMP IF A < 0 1/1/3 65 [9386] 17606 10 0 0 0 41 SELECT LITERAL 26/0/0 1212 [9387] 17607 80 177 2 0 0 0 gREPORT*P1 ENTER SUBROUTINE 6/0/0 5298 [9388] 17608 1 6 0 0 0 JOB SELECT 1/1/2 256 [9389] 17609 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 1201 [9390] 17610 73 176 13 0 0 0 gOK JUMP IF A < 0 1/1/3 66 [9391] 17611 10 0 0 0 42 SELECT LITERAL 26/0/0 1212 [9392] 17612 80 177 2 0 0 0 gREPORT*P2 ENTER SUBROUTINE 6/0/0 5296 [9393] 17613 1 4 0 0 0 SELECT 4/0/0 5298 [9394] 17614 1 1 6 0 0 0 ADD 27/0/1 1206 [9395] 17615 71 176 18 0 0 0 gOK JUMP IF A != 0 1/1/3 67 [9396] 17616 10 0 0 0 43 SELECT LITERAL 26/0/0 1212 [9397] 17617 80 177 2 0 0 0 gREPORT*P3 ENTER SUBROUTINE 6/0/0 6044 [9398] 17618 92 30 0 0 0 SELECT 27/0/1 1209 [9399] 17619 71 176 21 0 0 0 gAMEND RUN JUMP IF A != 0 2/1/0 5300 [9400] 17620 5 1 8 1 0 0 CLEAR SERIAL NUMBER TRANSFER 1/1/3 0 [9401] 17621 10 0 0 0 0 SELECT LITERAL 2/0/0 52 [9402] 17622 5 12 2 0 0 0 CLEAR CTR TRANSFER 26/0/1 1190 [9403] 17623 82 176 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 177 at location 1212 in chapter 3 [9404] [9404] 17700 PROCR 177 ERROR REPORT SR 0/0/0 0 [9404] 17702 81 177 2 0 0 0 START OF SUBROUTINE 2/0/0 54 [9405] 17703 5 12 4 0 0 0 TRANSFER 26/1/3 52 [9406] 17704 91 12 2 0 3 0 CTR SET MODIFICATION REGISTER AT VARIABLE 6/1/0 4734 [9407] 17705 319 8 1 0 0 ;*; SELECT 4/0/0 54 [9408] 17706 1 12 4 0 0 0 REPORT NUMBER ADD 4/0/0 53 [9409] 17707 1 12 3 0 0 0 REPORT LETTER ADD 2/1/3 5330 [9410] 17708 5 1 38 1 3 0 TRANSFER 1/1/2 2 [9411] 17709 12 0 0 0 2 SUBTRACT LITERAL 7/0/0 52 [9412] 17710 4 12 2 0 0 0 REDUCE CTR AUGMENT 1/1/3 0 [9413] 17711 10 0 0 0 0 SELECT LITERAL 26/0/1 1212 [9414] 17712 82 177 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 178 at location 1223 in chapter 3 [9415] [9415] 17800 PROCR 178 REPLACE CODERS PROCR-ISSUE 6 O/P-ENTRY AND CHAPS 0/0/0 0 [9415] 17802 81 178 2 0 0 0 (12/119=DEC PROCR) START OF SUBROUTINE 6/0/0 169 [9416] 17803 12 119 0 0 0 SELECT 26/0/0 2771 [9417] 17804 80 245 2 0 0 0 gBIN ENTER SUBROUTINE Source: RayS/Q1000142 18/1/3 3 [9418] 17805 33 0 0 0 1- SHIFT (AB) BY BITS 18/1/1 4127 [9419] 2/1/0 4818 [9420] 17806 5 320 42 1 0 0 TRANSFER 26/1/1 4818 [9421] 17807 91 320 42 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 27/1/0 1236 [9422] 17808 74 178 12 0 0 0 gEVEN JUMP IF AB == 0 // 27, 1, 0 24/0/3 0 Extra code needed to address 5614 from 9423 (different chapter) 6/0/1 5614 [9424] 17809 18 50- 0 1 0 SELECT 18/0/3 2 [9425] 17810 31 0 0 0 10- SHIFT (A) BY BITS 18/0/1 4125 [9426] 24/1/0 1239 [9427] 17811 76 178 14 0 0 0 JUMP unconditional 0/0/2 4746 [9428] 17812 34 319 20 0 0 0 BITS 1-10 SET (N) IN B 24/0/3 0 Extra code needed to address 5614 from 9429 (different chapter) 15/0/1 5614 [9430] 17813 36 18 50- 0 1 0 COLLATE AND ADD 26/0/0 2765 [9431] 17814 80 244 2 0 0 0 gDEC ENTER SUBROUTINE 26/0/1 1223 [9432] 17815 82 178 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 31/1/3 8191 [9433] Start of procedure 179 at location 1242 in chapter 3 [9434] [9434] 17900 TABLE 179 179 3 3 UNPACK PROGM/ENTRY/SECTION 0/0/1 5294 [9434] 17902 1 2 0 0 2 0 5 0 0 0 0 0 0 PROGM/ENTRY 3/0/0 5 [9435] 0/0/1 5296 [9436] 17904 1 4 0 0 1 0 3 0 0 0 0 0 0 SUITE NO/E POINT 2/0/0 3 [9437] 0/0/1 5298 [9438] 17906 1 6 0 0 1 0 2 0 0 0 0 0 0 JOB NO/PRIORITY CLASS 2/0/0 2 [9439] 0/0/1 5300 [9440] 17908 1 8 0 0 2 0 5 0 0 0 0 0 0 SERIAL, VERSION, BLANK/CODER 3/0/0 5 [9441] 0/0/1 5308 [9442] 17910 1 16 0 0 2 1 5 0 0 0 0 0 1 /////ANNOTATION/CHECKER 27/0/0 5 [9443] 0/0/1 98 [9444] 17912 12 48 0 0 0 0 2 0 0 0 0 0 0 FILES DESCRIPTION-SERIAL NO 0/0/0 2 [9445] 0/0/1 5294 [9446] 17914 1 2 0 0 2 0 2 0 0 0 0 0 0 FILE ID 3/0/0 2 [9447] 0/0/1 5296 [9448] 17916 1 4 0 0 1 0 2 0 0 0 0 0 0 ROUTE TYPE 2/0/0 2 [9449] 0/0/1 5298 [9450] 17918 1 6 0 0 1 0 2 0 0 0 0 0 0 CHAPTER 2/0/0 2 [9451] 0/0/1 5300 [9452] 17920 1 8 0 0 1 0 4 0 0 0 0 0 0 BLOCK LENGTH 2/0/0 4 [9453] 0/0/1 5302 [9454] 17922 1 10 0 0 1 0 4 0 0 0 0 0 0 ALT ROUTE IND 2/0/0 4 [9455] 0/0/1 5320 [9456] 17924 1 28 0 0 2 0 5 0 0 0 0 0 1 ANNOTATION 19/0/0 5 [9457] 0/0/1 98 [9458] 17926 12 48 0 0 0 0 6 0 0 0 0 0 0 /////SERIAL-SEC DESCRIPTION 0/0/0 6 [9459] 0/0/1 5294 [9460] 17928 1 2 0 0 0 0 2 0 0 0 0 0 0 SECTION NO 0/0/0 2 [9461] 0/0/1 5295 [9462] 17930 1 3 0 0 0 0 4 0 0 0 0 0 0 LENGTH 0/0/0 4 [9463] 0/0/1 5296 [9464] 17932 1 4 0 0 0 0 1 0 0 0 0 0 0 TX? 0/0/0 1 [9465] 0/0/1 5297 [9466] 17934 1 5 0 0 0 0 2 0 0 0 0 0 0 CHAP NO 0/0/0 2 [9467] 0/0/1 5320 [9468] 17936 1 28 0 0 2 0 5 0 0 0 0 0 1 ANNOTATION 19/0/0 5 [9469] 0/0/1 5294 [9470] 17938 1 2 0 0 2 0 5 0 0 0 0 0 0 'AMEND' 3/0/0 5 [9471] 0/0/1 5296 [9472] 17940 1 4 0 0 1 0 3 0 0 0 0 0 0 SUITE NO 2/0/0 3 [9473] 0/0/1 5298 [9474] 17942 1 6 0 0 1 0 2 0 0 0 0 0 0 JOB NO 2/0/0 2 [9475] 0/0/1 5300 [9476] 17944 1 8 0 0 2 0 2 0 0 0 0 0 0 (ISSUE+SERIAL)/ISSUE 3/0/0 2 [9477] 0/0/1 5312 [9478] 17946 1 20 0 0 2 0 3 0 0 0 0 0 0 (WORDS ETC)/SERIAL 3/0/0 3 [9479] 0/0/1 5308 [9480] 17948 1 16 0 0 0 0 1 0 0 0 0 0 0 ''PRINT PASS 3'' IND 0/0/0 1 [9481] 0/0/1 5309 [9482] 17950 1 17 0 0 0 0 3 0 0 0 0 0 0 NEW ISSUE 0/0/0 3 [9483] 0/0/1 5310 [9484] 17952 1 18 0 0 2 0 1 0 0 0 0 0 1 PTS IND(CARDS) 19/0/0 1 [9485] Start of procedure 180 at location 1294 in chapter 3 [9486] [9486] 18000 TABLE 180 3 3 UNPACK CHAPS BLOCK 0/0/1 5294 [9486] 18002 1 2 0 0 2 0 5 0 0 0 0 0 0 CHAPS' 3/0/0 5 [9487] 0/0/1 5296 [9488] 18004 1 4 0 0 0 0 2 0 0 0 0 0 0 NO OF CHAPS 0/0/0 2 [9489] 0/0/1 5297 [9490] 18006 1 5 0 0 0 0 3 0 0 0 0 0 0 1-ST START 0/0/0 3 [9491] 0/0/1 5298 [9492] 18008 1 6 0 0 0 0 3 0 0 0 0 0 0 2-ND START 0/0/0 3 [9493] 0/0/1 5299 [9494] 18010 1 7 0 0 0 0 3 0 0 0 0 0 0 0/0/0 3 [9495] 0/0/1 5300 [9496] 18012 1 8 0 0 0 0 3 0 0 0 0 0 0 0/0/0 3 [9497] 0/0/1 5301 [9498] 18014 1 9 0 0 0 0 3 0 0 0 0 0 0 0/0/0 3 [9499] 0/0/1 5302 [9500] 18016 1 10 0 0 0 0 3 0 0 0 0 0 0 0/0/0 3 [9501] 0/0/1 5303 [9502] 18018 1 11 0 0 0 0 3 0 0 0 0 0 0 0/0/0 3 [9503] 0/0/1 5304 [9504] 18020 1 12 0 0 0 0 3 0 0 0 0 0 0 0/0/0 3 [9505] 0/0/1 5305 [9506] 18022 1 13 0 0 0 0 3 0 0 0 0 0 0 0/0/0 3 [9507] 0/0/1 5306 [9508] 18024 1 14 0 0 0 0 3 0 0 0 0 0 0 10-TH START 0/0/0 3 [9509] 0/0/1 5307 [9510] 18026 1 15 0 0 0 0 3 0 0 0 0 0 0 0/0/0 3 [9511] 0/0/1 5308 [9512] 18028 1 16 0 0 0 0 3 0 0 0 0 0 0 0/0/0 3 [9513] 0/0/1 5309 [9514] 18030 1 17 0 0 0 0 3 0 0 0 0 0 0 0/0/0 3 [9515] 0/0/1 5310 [9516] 18032 1 18 0 0 0 0 3 0 0 0 0 0 1 14-TH START 16/0/0 3 [9517] Source: RayS/Q1000143 Start of procedure 181 at location 1326 in chapter 3 [9518] [9518] 18100 CONST 181 1 FUNCTIONAL 0/0/0 153 [9518] 18102 (D)100099; UPPER/LOWER LIM SEC NUMBER 00099 +00001 0/0/0 1 [9519] 0/0/2 150 [9520] 18104 4096; DO LENGTH 04096 +00000 0/0/0 0 [9521] 0/0/0 1 [9522] 18106 1; DO TX AREA IND 00001 +00000 0/0/0 0 [9523] 0/0/0 0 [9524] 18108 0; DO CHAP NUMBER 00000 +00000 0/0/0 0 [9525] 15/0/0 7967 [9526] 18110 1p1p1p1p1p; F1F1F +1F1F1 1/1/3 4593 [9527] 6/0/2 5988 [9528] 18112 (A)PROGM; 65764 +67696 6/0/3 5782 [9529] 3/0/3 2424 [9530] 18114 ENTRY; 36978 +55657 5/0/2 5719 [9531] 5/0/3 1364 [9532] 18116 AMEND; 56554 +51645 5/0/0 5701 [9533] 1/0/3 1906 [9534] 18118 CHAPS; 16772 +53585 5/0/1 5509 [9535] 2/0/3 4697 [9536] 18120 PASSI; 27259 +67517 6/0/3 5399 [9537] 6/0/3 2389 [9538] 18122 STORE; 66955 +72736 7/0/1 1846 [9539] Start of procedure 182 at location 1348 in chapter 3 [9540] [9540] 18200 CONST 182 1 DUMMY 0/0/0 0 [9540] 18202 (B)0; 00000 +00000 0/0/0 0 [9541] 0/0/0 0 [9542] 18204 ; 00000 +00000 0/0/0 0 [9543] 0/0/0 0 [9544] 18206 ; 00000 +00000 0/0/0 0 [9545] 0/0/0 0 [9546] 18208 ; 00000 +00000 0/0/0 0 [9547] 0/0/0 0 [9548] 18210 ; 00000 +00000 0/0/0 0 [9549] Start of procedure 183 at location 1358 in chapter 3 [9550] [9550] 18300 PROCR 183 DECODE SECTION NUMBER [9550] 18301 NOTES RADIX D BITS 1-10 OF 10 LOCATIONS 0/0/0 0 [9550] 18302 81 183 2 0 0 0 START OF SUBROUTINE 27/0/0 1368 [9551] 18303 70 183 11 0 0 0 gZERO SECTION JUMP IF A == 0 18/1/1 4127 [9552] 18304 32 0 0 0 1- DIVIDE BY 10 SHIFT (AB) BY QUARTETS 24/0/3 22 [9553] 18305 92 0 0 3 0 SET MODIFIER=LOCN;CLEAR A SET MODIFIER AT VARIABLE 2/0/0 6 [9554] 18/1/1 1 [9555] 18306 32 0 0 0 1 REMAINDER SHIFT (AB) BY QUARTETS 2/0/0 90 [9556] 18307 5 12 40 0 0 0 WL TRANSFER 1/1/3 1 [9557] 18308 10 0 0 0 1 SELECT LITERAL 24/0/0 90 [9558] 18309 124 12 40 0 0 0 MODIFY ADDRESS OF NEXT 18/0/3 0 [9559] 18310 31 0 0 0 0 ///// SHIFT (A) BY BITS 2/0/0 90 [9560] 18311 5 12 40 0 0 0 STORE COLLATION BIT TRANSFER 26/0/1 1358 [9561] 18312 82 183 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 184 at location 1370 in chapter 3 [9562] [9562] 18400 CONST 184 1 0 0 DUMMY Start of procedure 185 at location 1370 in chapter 3 [9562] [9562] 18500 PROCR 185 MAIN LOOP-DEAL WITH INITIAL TRANSLATION [9562] 18501 NOTES RADIX 24/0/3 0 Extra code needed to address 5664 from 9562 (different chapter) 24/0/2 5664 [9563] 18502 55 18 0 0 0 1010 COPY CURRENT AMEND DETAILS BULK COPY 18/1/0 4123 [9564] 18503 C 93 0 0 0 0 1/1/3 1010 [9565] 18/1/1 5 [9566] 28/0/0 170 [9567] 6/1/0 5190 [9568] 18504 54 29 0 1 0 44 BULK CLEAR 28/1/1 5384 [9569] 1/1/3 2 [9570] 18505 83 191 2 0 0 2 SAFETY SETTINGS SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8168 [9571] 1/1/3 1 [9572] 18506 10 0 0 0 1 SELECT LITERAL 2/0/0 6315 [9573] 18507 5 27 5 0 0 0 UNPACK SWITCH TRANSFER 6/0/0 6044 [9574] 18508 0 92 30 0 0 0 SELECT 3/1/0 58 [9575] 18509 3 12 8 1 0 0 (CLEAR 12/9) COPY 27/0/0 1395 [9576] 18510 70 185 14 0 0 0 gINITIAL TRANSLATION JUMP IF A == 0 0/1/0 40 [9577] 18511 59 7 6 0 8 0 SET I/P MR SET MODIFICATION REGISTER FOR MERGE 0/0/3 0 [9578] 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 6 [9580] 3/0/0 8178 [9581] 24/1/2 17 Extra code needed to address transit area no 2, section 7 4/1/0 5 [9583] 18512 C 7 4 2 0 0 SET MODIFICATION REGISTER FOR MERGE 2/0/0 8179 [9584] 0/1/1 40 [9585] 24/1/0 2941 [9586] 18513 76 251 2 0 0 0 JUMP unconditional 1/1/3 1 [9587] 18514 10 0 0 0 1 SELECT LITERAL 2/0/0 83 [9588] 18515 5 12 33 0 0 0 SET 'PT INS INPUT' TRANSFER 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [9590] 18516 9 4 1 0 0 SELECT 18/0/1 4124 [9591] 18517 30 0 0 0 4- SHIFT (A) BY QUARTETS 18/0/1 4 [9592] 18518 30 0 0 0 4 SHIFT (A) BY QUARTETS 5/1/0 4740 [9593] 18519 2 319 14 1 0 0 'END ' SUBTRACT 27/0/0 4835 [9594] 18520 70 322 2 0 0 0 gEND OF INITIAL TRANSLATION JUMP IF A == 0 Source: RayS/Q1000144 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [9596] 18521 9 4 1 0 0 SELECT 5/1/0 4772 [9597] 18522 2 319 46 1 0 0 'TRAMD' SUBTRACT 27/0/0 4835 [9598] 18523 70 322 2 0 0 0 JUMP IF A == 0 24/0/1 6320 [9599] 18524 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 1408 [9600] 0/0/1 1411 [9601] s 18525 C 185 27 0 0 0 gPT 0/0/1 1414 [9602] s 18526 C 185 29 0 0 0 gCARDS 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [9604] 18527 9 4 1 0 0 SELECT 24/1/0 1416 [9605] 18528 76 185 30 0 0 0 JUMP unconditional 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 8 [9607] 18529 9 8 1 0 0 SELECT 26/0/0 4006 [9608] 18530 80 287 2 0 0 0 gTEST STACK DIRECTIVE ENTER SUBROUTINE 26/0/0 3815 [9609] 18531 80 283 2 0 0 0 gUNPACK PT ENTER SUBROUTINE 26/0/0 1421 [9610] 18532 80 186 2 0 0 0 gCHECK/EDIT/OUTPUT ENTER SUBROUTINE 26/0/0 4130 [9611] 18533 80 292 2 0 0 0 gREAD PT ENTER SUBROUTINE 24/1/0 1397 [9612] 18534 76 185 16 0 0 0 gLOOP TILL END JUMP unconditional Start of procedure 186 at location 1421 in chapter 3 [9613] [9613] 18600 PROCR 186 START OF CHECK/EDIT/OUTPUT SR [9613] 18601 NOTES RADIX 0/0/0 0 [9613] 18602 81 186 2 0 0 0 START OF SUBROUTINE 6/0/0 88 [9614] 18603 12 38 0 0 0 STACKING DIRECTIVE SELECT 27/0/0 1523 [9615] 18604 70 190 2 0 0 0 NO JUMP IF A == 0 27/0/2 1539 [9616] 18605 72 191 2 0 0 0 g'NOTES' BLOCK JUMP IF A >= 0 6/0/0 111 [9617] 18606 12 61 0 0 0 C-LINE MUST FOLLOW SELECT 27/0/0 1428 [9618] 18607 70 186 9 0 0 0 INDICATOR JUMP IF A == 0 26/0/0 4252 [9619] 18608 80 296 2 0 0 0 IGNORE THIS INSTRUCTION ENTER SUBROUTINE 6/0/0 104 [9620] 18609 12 54 0 0 0 SELECT 1/1/2 85 [9621] 18610 12 0 0 0 55 SUBTRACT LITERAL 27/0/0 1433 [9622] 18611 70 186 14 0 0 0 JUMP IF A == 0 1/1/3 0 [9623] 18612 10 0 0 0 0 SELECT LITERAL 2/1/0 110 [9624] 18613 5 12 60 1 0 0 TRANSFER 2/0/0 59 [9625] 18614 5 12 9 0 0 0 TRANSFER 2/0/0 93 [9626] 18615 5 12 43 0 0 0 CLEAR LINE INCREMENT FOR 'SER' CHECKS TRANSFER 6/0/0 6044 [9627] 18616 92 30 0 0 0 SELECT 27/0/1 1442 [9628] 18617 71 186 22 0 0 0 gAMEND RUN JUMP IF A != 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 51 [9630] 18618 9 50 2 0 0 PASS 0 DOESN'T LIKE IT' IND SELECT 27/0/0 1442 [9631] 18619 70 186 22 0 0 0 gOK JUMP IF A == 0 6/1/0 4766 [9632] 18620 319 40 1 0 0 ????R' SELECT 2/1/0 5336 [9633] 18621 5 1 44 1 0 0 TRANSFER 6/0/0 6315 [9634] 18622 27 5 0 0 0 SELECT 1/1/2 4 [9635] 18623 12 0 0 0 4 SUBTRACT LITERAL 27/0/0 1491 [9636] 18624 70 187 38 0 0 0 gVALUE (DIRECTIVE OR DATA) JUMP IF A == 0 6/0/0 6017 [9637] 18625 92 3 0 0 0 SELECT 1/1/1 1 [9638] 18626 11 0 0 0 1 FORM TRANSLATORS PROCR ADD LITERAL 3/0/0 6017 [9639] 18627 3 92 3 0 0 0 COPY 3/0/0 50 [9640] 18628 3 12 0 0 0 0 COPY 2/0/0 54 [9641] 18629 5 12 4 0 0 0 TRANSFER Start of procedure 187 at location 1450 in chapter 3 [9642] [9642] 18700 PROCR 187 TEST NEW CHAPTER 6/1/0 5301 [9642] 18702 1 8 2 0 0 SELECT 18/0/1 4126 [9643] 18703 30 0 0 0 2- SHIFT (A) BY QUARTETS 3/0/0 5306 [9644] 18704 3 1 14 0 0 0 B/FWD PROCR COPY 26/0/0 1619 [9645] 18705 80 200 2 0 0 0 gREPLACE PROCR ENTER SUBROUTINE 24/1/0 1456 [9646] 0/0/1 1673 [9647] 18706 C 202 2 0 0 0 5/0/0 6017 [9648] 18707 2 92 3 0 0 0 SUBTRACT 27/0/0 1460 [9649] 18708 70 187 11 0 0 0 gOK PASS 0 HASN'T BOOBED JUMP IF A == 0 6/1/0 4766 [9650] 18709 319 40 1 0 0 ????R' SELECT 2/1/0 5336 [9651] 18710 5 1 44 1 0 0 TRANSFER 24/0/2 4434 [9652] 18711 52 1 8 0 0 0 EDIT NEW PROCR EDIT 28/1/2 5300 [9653] 18712 C 306 2 0 0 0 Source: ChuckK/Q1000145 6/0/0 6314 [9654] 18713 27 4 0 0 0 SELECT 27/0/1 1468 [9655] 18714 71 187 19 0 0 0 >COMPILER.DONT SET IND JUMP IF A != 0 6/0/0 5306 [9656] 18715 1 14 0 0 0 OLD SELECT 5/0/0 54 [9657] 18716 2 12 4 0 0 0 NEW SUBTRACT 27/0/0 1468 [9658] 18717 70 187 19 0 0 0 >PROCR DOESNT CHANGE JUMP IF A == 0 26/0/0 1494 [9659] 18718 80 188 2 0 0 0 >SET 'PRINT PROCR' ENTER SUBROUTINE 6/0/0 6017 [9660] 18719 92 3 0 0 0 SELECT 1/1/2 256 [9661] 18720 12 0 0 0 100 SUBTRACT LITERAL 27/0/1 1474 [9662] 18721 71 187 25 0 0 0 >NOT FIRST TIME THROUGH JUMP IF A != 0 6/0/0 50 [9663] 18722 0 12 0 0 0 0 FIRST CODERS PROCR SELECT 2/0/0 64 [9664] 18723 5 12 14 0 0 0 SET AS FIRST CHAP START TRANSFER 24/1/0 1484 [9665] 18724 76 187 33 0 0 0 JUMP unconditional 24/0/1 8184 [9666] 18725 12 14 0 4 0 SELECT 6/0/0 64 [9667] 5/0/0 50 [9668] 18726 2 12 0 0 0 0 SUBTRACT 27/0/1 1491 [9669] 18727 71 187 38 0 0 0 >THIS PROCR IS NOT A CHAPTER START JUMP IF A != 0 6/0/0 6017 [9670] 18728 92 3 0 0 0 SELECT 1/1/2 1 [9671] 18729 12 0 0 0 1 SUBTRACT LITERAL 26/0/0 2771 [9672] 18730 80 245 2 0 0 0 >CHAP END IN BIN ENTER SUBROUTINE 18/0/1 2 [9673] 18731 30 0 0 0 2 SHIFT (A) BY QUARTETS 24/0/1 8184 [9674] 18732 4 92 9 0 4 0 STORE CHAP END POINT AUGMENT 7/0/0 6023 [9675] 0/0/3 0 [9676] 18733 62 0 0 0 0 SET EXCESS CONSTANTS 1/1/3 1 [9677] 18734 10 0 0 0 1 SELECT LITERAL 7/0/0 6014 [9678] 18735 4 92 0 0 0 0 STEP UNCORR CHAP IN BIN AUGMENT 0/0/3 5096 [9679] 18736 60 0 0 0 0 SET DECIMAL RADIX 23/0/0 1 [9680] 18737 94 0 0 4 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [9681] 24/1/0 1491 [9682] 1/1/3 1 [9683] 18738 83 191 2 0 0 1 SET CHECK SWITCH FOR DIRECTIVES SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8168 [9684] 24/1/0 1539 [9685] 18739 76 191 2 0 0 0 JUMP unconditional Start of procedure 188 at location 1494 in chapter 3 [9686] [9686] 18800 PROCR 188 188 SET IND IN SEC 23 IF PROCR TO BE PRINTED 0/0/0 0 [9686] 18802 81 188 2 0 0 0 START OF SUBROUTINE 6/0/0 6017 [9687] 18803 92 3 0 0 0 CURRENT PROCR SELECT 26/0/0 2771 [9688] 18804 80 245 2 0 0 0 >BIN ENTER SUBROUTINE 1/0/1 0 [9689] 18805 19 0 0 0 14 DIVIDE LITERAL 18/1/1 4119 [9690] 13/0/0 5097 [9691] 2/0/0 4818 [9692] 18806 5 320 42 0 0 0 TRANSFER 18/1/1 9 [9693] 18807 32 0 0 0 9 SHIFT (AB) BY QUARTETS 2/0/0 4819 [9694] 18808 5 320 43 0 0 0 REMAINDER TRANSFER 0/0/2 4798 [9695] 18809 34 320 22 0 0 0 1 SET (N) IN B 24/0/1 4819 [9696] 18810 124 320 43 0 1 0 MODIFY ADDRESS OF NEXT 18/1/3 0 [9697] 18811 33 0 0 0 0 ///// SHIFT (AB) BY BITS 6/0/0 4796 [9698] 18812 320 20 0 0 0 pX5 SELECT 24/0/1 4818 [9699] 18813 124 320 42 0 1 0 MODIFY ADDRESS OF NEXT 14/0/0 6195 [9700] 18814 37 23 5- 0 0 0 SET BIT REPLACE SELECTED BITS 0/0/3 5098 [9701] 18815 60 0 0 0 0 SET DECIMAL RADIX 26/0/1 1494 [9702] 18816 82 188 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 189 at location 1511 in chapter 3 [9703] [9703] 18900 PROCR 189 189 CHECK FOR B/FWD ERROR REPORTS [9703] 18901 NOTES 0 0 0 0/0/0 0 [9703] 18902 81 189 2 0 0 0 START OF SUBROUTINE 6/1/0 5334 [9704] 18903 1 42 1 0 0 LAST 5 CHARS OF ANNOTATION SELECT 5/1/0 4752 [9705] 18904 2 319 26 1 0 0 '?????' SUBTRACT 27/0/0 1521 [9706] 18905 70 189 12 0 0 0 JUMP IF A == 0 6/1/0 5334 [9707] 18906 1 42 1 0 0 SELECT 5/1/0 5192 [9708] 18907 12 0 0 0 5p5p5p5p5p FIVE SQUARES SUBTRACT LITERAL 27/0/0 1521 [9709] 18908 70 189 12 0 0 0 JUMP IF A == 0 6/1/0 5334 [9710] 18909 1 42 1 0 0 SELECT 5/1/0 4750 [9711] 18910 2 319 24 1 0 0 'SHEET' SUBTRACT 27/0/1 1522 [9712] 18911 71 189 13 0 0 0 JUMP IF A != 0 Source: ChuckK/Q1000146 2/1/0 5334 [9713] 18912 5 1 42 1 0 0 CLEAR OUT REPORT TRANSFER 26/0/1 1511 [9714] 18913 82 189 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 190 at location 1523 in chapter 3 [9715] [9715] 19000 PROCR 190 CHECK SERIAL NUMBER SEQUENCE - INITIAL TRANSLATION [9715] 19001 NOTES RADIX 6/0/0 6044 [9715] 19002 92 30 0 0 0 SELECT 27/0/1 1539 [9716] 19003 71 191 2 0 0 0 JUMP IF A != 0 0/1/2 5294 [9717] 19004 34 1 2 1 0 0 RIGHT ALIGN SET (N) IN B 26/0/0 4826 [9718] 19005 80 321 2 0 0 0 SERIAL NO ENTER SUBROUTINE 6/1/0 139 [9719] 19006 12 88 2 0 0 SELECT 5/0/0 93 [9720] 19007 2 12 43 0 0 0 SUBTRACT 27/0/0 1535 [9721] 19008 70 190 14 0 0 0 SERIAL NO IS IN FACT SERIAL JUMP IF A == 0 6/0/0 8168 [9722] 19009 86 191 2 0 0 0 SELECT SWITCH R 1/1/2 6 [9723] 19010 12 0 0 0 6 SUBTRACT LITERAL 27/0/2 1539 [9724] 19011 72 191 2 0 0 0 >NO CHECK ON PM+TRIAL DATA JUMP IF A >= 0 6/1/0 5194 [9725] 19012 10 0 0 0 725569 PUT'SER' IN ERROR INDICATOR SELECT LITERAL 2/1/0 5336 [9726] 19013 5 1 44 1 0 0 TRANSFER 6/1/0 139 [9727] 19014 12 88 2 0 0 STORE THIS SERIAL NO SELECT 4/0/0 140 [9728] 19015 1 12 90 0 0 0 gLONG/SHORT COUNTER ADD 1/1/1 1 [9729] 19016 11 0 0 0 1 1 ADD LITERAL 2/0/0 93 [9730] 19017 5 12 43 0 0 0 TO TEST NEXT INSTRUCTION TRANSFER Start of procedure 191 at location 1539 in chapter 3 [9731] [9731] 19100 PROCR 191 0 0 SWITCH B [9731] 19101 NOTES RADIX 26/0/0 1511 [9731] 19102 80 189 2 0 0 0 >DELETE B/FWD ERROR REPORTS ENTER SUBROUTINE 6/0/0 83 [9732] 19103 12 33 0 0 0 SELECT 27/0/0 1546 [9733] 19104 70 191 9 0 0 0 >EX MT JUMP IF A == 0 6/0/0 6044 [9734] 19105 92 30 0 0 0 SELECT 27/0/0 1546 [9735] 19106 70 191 9 0 0 0 JUMP IF A == 0 26/0/0 1494 [9736] 19107 80 188 2 0 0 0 >SET'PRINT PROCR' ENTER SUBROUTINE 1/1/3 0 [9737] 19108 10 0 0 0 0 SELECT LITERAL 24/0/1 8168 [9738] 19109 85 191 2 0 0 0 SWITCH R 26/0/1 1547 [9739] 0/0/1 1762 [9740] 19110 C 205 2 0 0 0 STACKING DIRECTIVE 0/0/1 1944 [9741] 19111 C 210 2 0 0 0 INSTRUCTIONS 0/0/1 3616 [9742] 19112 C 276 2 0 0 0 TABLES 0/0/1 3195 [9743] 19113 C 260 2 0 0 0 CONSTANTS 0/0/1 1553 [9744] s 19114 C 191 15 0 0 0 VALUE'=5 6/0/0 5301 [9745] 19115 0 1 9 0 0 0 REF SELECT 0/0/2 5302 [9746] 19116 34 1 10 0 0 0 SET (N) IN B 27/1/0 1561 [9747] 19117 74 191 23 0 0 0 ZERO REF & ITEM JUMP IF AB == 0 // 27, 1, 0 26/0/0 3610 [9748] 19118 80 275 2 0 0 0 >UPDATE ADDRESS ENTER SUBROUTINE 6/0/0 54 [9749] 19119 0 12 4 0 0 0 SELECT 2/0/0 5301 [9750] 19120 5 1 9 0 0 0 NEW REF TRANSFER 26/0/0 3634 [9751] 19121 80 277 2 0 0 0 CHECK ADJUSTED REF ENTER SUBROUTINE 24/1/0 2810 [9752] 19122 76 247 2 0 0 0 >EDIT AND OUTPUT JUMP unconditional 24/0/1 8167 [9753] 19123 85 108 2 0 0 0 SWITCH R 26/0/1 1562 [9754] 0/0/1 2810 [9755] 19124 C 247 2 0 0 0 >LAST REF/ITEM CORRECT 0/0/1 1565 [9756] s 19125 C 191 26 0 0 0 >LAST REF/ITEM IGNORED 26/0/0 1584 [9757] 19126 80 195 2 0 0 0 REPORT R ENTER SUBROUTINE 26/0/0 4248 [9758] 19127 80 295 2 0 0 0 IGNORE THIS LINE ENTER SUBROUTINE 24/1/0 2810 [9759] 19128 76 247 2 0 0 0 >EDIT AND OUTPUT JUMP unconditional Start of procedure 192 at location 1568 in chapter 3 [9760] [9760] 19200 PROCR 192 0 0 CHECK I IS EVEN,REPORT IF NOT [9760] 19201 NOTES 0 0 0 0 0/0/0 0 [9760] 19202 81 192 2 0 0 0 START OF SUBROUTINE 2/0/0 2771 [9761] 19203 5 245 2 0 0 0 ITEM TO WL=SR LINK TRANSFER Source: ChuckK/Q1000147 1/1/3 1 [9762] 19204 10 0 0 0 1 SELECT LITERAL 18/1/1 4118 [9763] 19205 32 0 0 0 10- SHIFT (AB) BY QUARTETS 15/0/0 2771 [9764] 19206 36 245 2 0 0 0 COLLATE AND ADD 27/0/0 1575 [9765] 19207 70 192 9 0 0 0 >OK JUMP IF A == 0 26/0/0 1588 [9766] 19208 80 196 2 0 0 0 >REPORT I ENTER SUBROUTINE 26/0/1 1568 [9767] 19209 82 192 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 193 at location 1576 in chapter 3 [9768] [9768] 19300 PROCR 193 ERROR REPORT OF D [9768] 19301 NOTES 0/0/0 0 [9768] 19302 81 193 2 0 0 0 START OF SUBROUTINE 1/1/3 84 [9769] 19303 10 0 0 0 54 D SELECT LITERAL 26/0/0 1600 [9770] 19304 80 199 2 0 0 0 ENTER SUBROUTINE 26/0/1 1576 [9771] 19305 82 193 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 194 at location 1580 in chapter 3 [9772] [9772] 19400 PROCR 194 ERROR REPORT OF M [9772] 19401 NOTES 0/0/0 0 [9772] 19402 81 194 2 0 0 0 START OF SUBROUTINE 1/1/3 100 [9773] 19403 10 0 0 0 64 M SELECT LITERAL 26/0/0 1600 [9774] 19404 80 199 2 0 0 0 ENTER SUBROUTINE 26/0/1 1580 [9775] 19405 82 194 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 195 at location 1584 in chapter 3 [9776] [9776] 19500 PROCR 195 ERROR REPORT OF R [9776] 19501 NOTES 0/0/0 0 [9776] 19502 81 195 2 0 0 0 START OF SUBROUTINE 1/1/3 105 [9777] 19503 10 0 0 0 69 SELECT LITERAL 26/0/0 1600 [9778] 19504 80 199 2 0 0 0 ENTER SUBROUTINE 26/0/1 1584 [9779] 19505 82 195 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 196 at location 1588 in chapter 3 [9780] [9780] 19600 PROCR 196 ERROR REPORT OF I [9780] 19601 NOTES 0/0/0 0 [9780] 19602 81 196 2 0 0 0 START OF SUBROUTINE 1/1/3 89 [9781] 19603 10 0 0 0 59 I SELECT LITERAL 26/0/0 1600 [9782] 19604 80 199 2 0 0 0 ENTER SUBROUTINE 26/0/1 1588 [9783] 19605 82 196 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 197 at location 1592 in chapter 3 [9784] [9784] 19700 PROCR 197 ERROR REPORT OF L [9784] 19701 NOTES 0/0/0 0 [9784] 19702 81 197 2 0 0 0 START OF SUBROUTINE 1/1/3 99 [9785] 19703 10 0 0 0 63 L SELECT LITERAL 26/0/0 1600 [9786] 19704 80 199 2 0 0 0 ENTER SUBROUTINE 26/0/1 1592 [9787] 19705 82 197 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 198 at location 1596 in chapter 3 [9788] [9788] 19800 PROCR 198 ERROR REPORT OF T [9788] 19801 NOTES 0/0/0 0 [9788] 19802 81 198 2 0 0 0 START OF SUBROUTINE 1/1/3 115 [9789] 19803 10 0 0 0 73 T SELECT LITERAL 26/0/0 1600 [9790] 19804 80 199 2 0 0 0 ENTER SUBROUTINE 26/0/1 1596 [9791] 19805 82 198 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 199 at location 1600 in chapter 3 [9792] [9792] 19900 PROCR 199 MAKE ERROR REPORT [9792] 19901 NOTES 0/0/0 0 [9792] 19902 81 199 2 0 0 0 START OF SUBROUTINE 18/1/1 4118 [9793] 19903 32 0 0 0 10- SHIFT (AB) BY QUARTETS 6/1/0 5336 [9794] 19904 1 44 1 0 0 TEST REPORT ALREADY MADE SELECT 18/0/1 4126 [9795] 19905 30 0 0 0 2- WITH '????' SHIFT (A) BY QUARTETS 5/1/0 5196 [9796] 19906 12 0 0 0 5:5:5:5: SUBTRACT LITERAL 27/0/0 1618 [9797] 19907 70 199 20 0 0 0 >YES,DON'T CORRUPT IT JUMP IF A == 0 6/1/0 5336 [9798] 19908 1 44 1 0 0 SELECT 5/1/0 5198 [9799] 19909 12 0 0 0 725569 'SER' SUBTRACT LITERAL 27/0/1 1610 [9800] 19910 71 199 12 0 0 0 JUMP IF A != 0 Source: ChuckK/Q1000148 2/1/0 5336 [9801] 19911 5 1 44 1 0 0 LET OTHERS TAKE PRECEDENCE TRANSFER 1/1/3 0 [9802] 19912 10 0 0 0 0 SELECT LITERAL 18/1/1 10 [9803] 19913 32 0 0 0 10 SHIFT (AB) BY QUARTETS 24/1/2 165 [9804] 19914 124 12 115 1 2 0 MODIFY ADDRESS OF NEXT 18/0/1 0 [9805] 19915 30 0 0 0 0 ///// SHIFT (A) BY QUARTETS 7/1/0 5336 [9806] 19916 4 1 44 1 0 0 AUGMENT 1/1/3 2 [9807] 19917 10 0 0 0 2 SELECT LITERAL 4/0/0 165 [9808] 19918 1 12 115 0 0 0 ADD 2/0/0 165 [9809] 19919 5 12 115 0 0 0 TRANSFER 26/0/1 1600 [9810] 19920 82 199 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 200 at location 1619 in chapter 3 [9811] [9811] 20000 PROCR 200 REPLACE CODERS PROCR TO C/FWD VALUE 0/0/0 0 [9811] 20002 81 200 2 0 0 0 START OF SUBROUTINE 3/0/0 169 [9812] 20003 3 12 119 0 0 0 COPY 3/0/0 168 [9813] 20004 3 12 118 0 0 0 COPY 1/1/2 256 [9814] 20005 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 1646 [9815] 20006 73 200 27 0 0 0 >EX RANGE JUMP IF A < 0 1/1/2 2201 [9816] 20007 12 0 0 0 899 SUBTRACT LITERAL 27/0/2 1646 [9817] 20008 72 200 27 0 0 0 >DON'T REPLACE JUMP IF A >= 0 6/0/0 83 [9818] 20009 12 33 0 0 0 SELECT 27/0/1 1638 [9819] 20010 71 200 21 0 0 0 >EX PT JUMP IF A != 0 6/0/0 6310 [9820] 20011 27 0 0 0 0 SELECT 27/0/1 1638 [9821] 20012 71 200 21 0 0 0 >ISSUE 6 O/P JUMP IF A != 0 6/0/0 6314 [9822] 20013 27 4 0 0 0 SELECT 27/0/1 1638 [9823] 20014 71 200 21 0 0 0 >COMPILER CALLED TRANSLATOR JUMP IF A != 0 26/0/0 1647 [9824] 20015 80 201 2 0 0 0 >REPLACE EX ISSUE 5 ENTER SUBROUTINE 27/0/1 1636 [9825] 20016 71 200 19 0 0 0 >OK JUMP IF A != 0 26/0/0 1584 [9826] 20017 80 195 2 0 0 0 >REPORT R ENTER SUBROUTINE 24/1/0 1638 [9827] 20018 76 200 21 0 0 0 JUMP unconditional 3/0/0 169 [9828] 20019 3 12 119 0 0 0 COPY 2/0/0 168 [9829] 20020 5 12 118 0 0 0 TRANSFER 24/0/3 1619 Extra code needed to address caller 24/0/3 1 Extra code needed to address parameter !!! Non-zero item in parameter 26/0/0 0 [9832] 20021 80 1001 0 0 0 0 >REPLACE EX ISSUE 6 ENTER SUBROUTINE 27/0/1 1645 [9833] 20022 71 200 26 0 0 0 >OK JUMP IF A != 0 6/1/0 4766 [9834] 20023 319 40 1 0 0 '????R' SELECT 2/1/0 5336 [9835] 20024 5 1 44 1 0 0 TRANSFER 26/0/1 1619 [9836] 20025 82 200 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 3/0/0 169 [9837] 20026 3 12 119 0 0 0 COPY 26/0/1 1619 [9838] 20027 82 200 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 201 at location 1647 in chapter 3 [9839] [9839] 20100 PROCR 201 REPLACE CODERS PROCR-ISSUE 5 O/P 0/0/0 0 [9839] 20102 81 201 2 0 0 0 (12/119)=DEC PROCR START OF SUBROUTINE 6/0/0 6312 [9840] 20103 27 2 0 0 0 SELECT 27/0/0 1652 [9841] 20104 70 201 7 0 0 0 >NOT PSEUDO-ISSUE 5 O/P JUMP IF A == 0 6/0/0 169 [9842] 20105 12 119 0 0 0 REPLACEMENT=ITSELF SELECT 24/1/0 1670 [9843] 20106 76 201 23 0 0 0 JUMP unconditional 6/0/0 169 [9844] 20107 12 119 0 0 0 SELECT 1/1/2 1536 [9845] 20108 12 0 0 0 600 SUBTRACT LITERAL 27/0/2 1671 [9846] 20109 72 201 24 0 0 0 >OUT OF RANGE JUMP IF A >= 0 6/0/0 169 [9847] 20110 12 119 0 0 0 SELECT 26/0/0 2771 [9848] 20111 80 245 2 0 0 0 >TO BIN ENTER SUBROUTINE 18/1/3 3 [9849] 20112 33 0 0 0 1- SHIFT (AB) BY BITS 18/1/1 4127 [9850] 2/0/0 2771 [9851] 20113 5 245 2 0 0 0 SR LINK TRANSFER 27/1/0 1666 [9852] 20114 74 201 19 0 0 0 >EVEN JUMP IF AB == 0 // 27, 1, 0 24/0/1 2771 [9853] 20115 124 245 2 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 5500 [9854] 20116 53 50- 0 0 0 SELECT 18/0/3 2 [9855] 20117 31 0 0 0 10- SHIFT (A) BY BITS 18/0/1 4125 [9856] Source: TonyJ/Q1000149 24/1/0 1669 [9857] 20118 76 201 22 0 0 0 JUMP unconditional 0/0/2 4746 [9858] 20119 34 319 20 0 0 0 BITS 1 -10 SET (N) IN B 24/0/1 2771 [9859] 20120 124 245 2 0 1 0 MODIFY ADDRESS OF NEXT 15/0/0 5500 [9860] 20121 36 53 50- 0 0 0 COLLATE AND ADD 26/0/0 2765 [9861] 20122 80 244 2 0 0 0 > TO DEC ENTER SUBROUTINE 26/0/1 1647 [9862] 20123 82 201 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 1/1/3 0 [9863] 20124 10 0 0 0 0 SELECT LITERAL 26/0/1 1647 [9864] 20125 82 201 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 202 at location 1673 in chapter 3 [9865] [9865] 20200 PROCR 202 202 REPLACE CODERS PROCR-ISSUE 6 O/P 0/0/0 0 [9865] 20202 81 202 2 0 0 0 (12/119-DEC PROCR) START OF SUBROUTINE 6/0/0 169 [9866] 20203 12 119 0 0 0 SELECT 26/0/0 2771 [9867] 20204 80 245 2 0 0 0 > TO BIN ENTER SUBROUTINE 18/1/3 3 [9868] 20205 33 0 0 0 1- SHIFT (AB) BY BITS 18/1/1 4127 [9869] 2/0/0 2771 [9870] 20206 5 245 2 0 0 0 TRANSFER 27/1/0 1685 [9871] 20207 74 202 12 0 0 0 > EVEN JUMP IF AB == 0 // 27, 1, 0 24/0/1 2771 [9872] 20208 124 245 2 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 120 [9873] 20209 93 50- 0 0 0 SELECT 18/0/3 2 [9874] 20210 31 0 0 0 10- SHIFT (A) BY BITS 18/0/1 4125 [9875] 24/1/0 1688 [9876] 20211 76 202 15 0 0 0 JUMP unconditional 0/0/2 4746 [9877] 20212 34 319 20 0 0 0 BITS 1 -10 SET (N) IN B 24/0/1 2771 [9878] 20213 124 245 2 0 1 0 MODIFY ADDRESS OF NEXT 15/0/0 120 [9879] 20214 36 93 50- 0 0 0 COLLATE AND ADD 26/0/0 2765 [9880] 20215 80 244 2 0 0 0 > TO DEC ENTER SUBROUTINE 26/0/1 1673 [9881] 20216 82 202 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 203 at location 1690 in chapter 3 [9882] [9882] 20300 PROCR 203 203 ADJUST SR-ISSUE 5 O/P 0/0/0 0 [9882] 20302 81 203 2 0 0 0 (A) = SERIAL TO BE ADJUSTED START OF SUBROUTINE 26/1/1 5200 [9883] 20303 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [9884] 20304 C 0 0 0 160 Limit 2/0/0 108 [9884] 20305 5 12 58 0 0 0 TRANSFER 2/0/0 96 [9885] 20306 5 12 46 0 0 0 TRANSFER 1/0/1 28 [9886] 20307 35 0 0 0 11100 PREPARE FOR DIGIT COLLATION 15/0/0 108 [9887] 20308 36 12 58 0 0 0 COLLATE AND ADD 2/0/0 80 [9888] 20309 5 12 30 0 0 0 STORE PROCR TRANSFER 15/0/1 5804 [9889] 20310 36 54 0 0 1 0 COLLATE AND ADD 27/0/0 1705 [9890] 20311 70 203 17 0 0 0 > END JUMP IF A == 0 5/0/0 80 [9891] 20312 2 12 30 0 0 0 SUBTRACT 27/0/0 1708 [9892] 20313 70 203 20 0 0 0 > PROCR MATCHES JUMP IF A == 0 27/0/2 1705 [9893] 20314 72 203 17 0 0 0 > POINT PASSED ;END JUMP IF A >= 0 1/1/3 0 [9894] 20315 10 0 0 0 0 SELECT LITERAL 25/0/1 2 [9895] 20316 94 203 10 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1697 [9896] s 6/0/0 96 [9897] 20317 12 46 0 0 0 TOTAL ADJUSTMENT SELECT 4/0/0 108 [9898] 20318 1 12 58 0 0 0 ADD 26/0/1 1690 [9899] 20319 82 203 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 6/0/0 108 [9900] 20320 12 58 0 0 0 SEARCH WITHIN PROCR SELECT 5/0/1 5804 [9901] 20321 2 54 0 0 1 0 SUBTRACT 27/0/3 1702 [9902] 20322 73 203 15 0 0 0 > NOT FOR THIS POINT IN PROCR JUMP IF A < 0 6/0/1 5805 [9903] 20323 54 1 0 1 0 SELECT 7/0/0 96 [9904] 20324 4 12 46 0 0 0 FORM TOTAL ADJUSTMENT AUGMENT 24/1/0 1702 [9905] 20325 76 203 15 0 0 0 JUMP unconditional Start of procedure 204 at location 1714 in chapter 3 [9906] [9906] 20400 PROCR 204 204 ADJUST SR-ISSUE 6 O/P 0/0/0 0 [9906] 20402 81 204 2 0 0 0 START OF SUBROUTINE 26/1/1 5202 [9907] 20403 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [9908] 20404 C 0 0 0 460 Limit 1/1/3 0 [9908] 20405 10 0 0 0 0 (12/58)= SERIAL TO BE ADJUSTED SELECT LITERAL 2/0/0 96 [9909] 20406 5 12 46 0 0 0 CLEAR FOR TOTAL ADJUSTMENT TRANSFER Source: TonyJ/Q1000150 1/0/1 28 [9910] 20407 35 0 0 0 11100 PREPARE FOR DIGIT COLLATION 15/0/0 108 [9911] 20408 36 12 58 0 0 0 COLLATE AND ADD 2/0/0 80 [9912] 20409 5 12 30 0 0 0 PROCR TRANSFER 15/0/1 620 [9913] 20410 36 97 0 0 1 0 COLLATE AND ADD 27/0/0 1735 [9914] 20411 70 204 23 0 0 0 > END JUMP IF A == 0 5/0/0 80 [9915] 20412 2 12 30 0 0 0 SUBTRACT 27/0/3 1732 [9916] 20413 73 204 21 0 0 0 > SEARCH JUMP IF A < 0 27/0/1 1735 [9917] 20414 71 204 23 0 0 0 > END JUMP IF A != 0 6/0/1 620 [9918] 20415 97 0 0 1 0 SELECT 5/0/0 108 [9919] 20416 2 12 58 0 0 0 SUBTRACT 27/0/0 1730 [9920] 20417 70 204 19 0 0 0 JUMP IF A == 0 27/0/2 1744 [9921] 20418 72 204 32 0 0 0 > NEXT ADJUST POINT IN PROCR IS LATER JUMP IF A >= 0 6/0/1 621 [9922] 20419 97 1 0 1 0 SELECT 7/0/0 96 [9923] 20420 4 12 46 0 0 0 AUGMENT 1/1/3 0 [9924] 20421 10 0 0 0 0 SELECT LITERAL 25/0/1 2 [9925] 20422 94 204 10 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1721 [9926] s 1/0/1 3 [9927] 20423 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 6/0/0 96 [9928] 20424 12 46 0 0 0 TOTAL ADJUSTMENT SELECT 15/0/0 108 [9929] 20425 36 12 58 0 0 0 COLLATE AND ADD 3/0/0 108 [9930] 20426 3 12 58 0 0 0 NEW ITEM COPY 1/1/2 256 [9931] 20427 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 1743 [9932] 20428 73 204 31 0 0 0 JUMP IF A < 0 6/1/0 4768 [9933] 20429 319 42 1 0 0 '????i' SELECT 2/1/0 5336 [9934] 20430 5 1 44 1 0 0 REPORT WRITTEN ITEM >99 TRANSFER 26/0/1 1714 [9935] 20431 82 204 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 4/0/1 621 [9936] 20432 1 97 1 0 1 0 QUANTITY (+ -) ADD 27/0/0 1747 [9937] 20433 70 204 35 0 0 0 > ADDRESS DELETED JUMP IF A == 0 27/0/2 1735 [9938] 20434 72 204 23 0 0 0 > NEXT IS INSERTION JUMP IF A >= 0 6/0/0 5299 [9939] 20435 0 1 7 0 0 0 SELECT 5/0/0 5099 [9940] 20436 12 0 0 0 53000 SUBTRACT LITERAL 27/0/0 1759 [9941] 20437 70 204 47 0 0 0 > C-LINE REPORT JUMP IF A == 0 6/0/0 104 [9942] 20438 12 54 0 0 0 BIN ACTION SELECT 1/1/2 83 [9943] 20439 101 83 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 1735 [9944] 20440 70 204 23 0 0 0 > 83 DON'T REPORT JUMP IF A == 0 1/1/2 1 [9945] 20441 101 1 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 1735 [9946] 20442 70 204 23 0 0 0 > 84 JUMP IF A == 0 1/1/2 1 [9947] 20443 101 1 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 1735 [9948] 20444 70 204 23 0 0 0 > 85 JUMP IF A == 0 1/1/2 1 [9949] 20445 101 1 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 1735 [9950] 20446 70 204 23 0 0 0 > 86 JUMP IF A == 0 6/1/0 4770 [9951] 20447 319 44 1 0 0 '???? DELTA' SELECT 2/1/0 5336 [9952] 20448 5 1 44 1 0 0 TRANSFER 24/1/0 1735 [9953] 20449 76 204 23 0 0 0 JUMP unconditional Start of procedure 205 at location 1762 in chapter 3 [9954] [9954] 20500 PROCR 205 205 DEAL WITH PROCR/TABLE/CONST [9954] 20501 NOTES RADIX 6/1/0 5298 [9954] 20502 1 6 1 0 0 SELECT 5/1/0 4732 [9955] 20503 2 319 6 1 0 0 PROCR SUBTRACT 27/0/1 1767 [9956] 20504 71 205 7 0 0 0 NO JUMP IF A != 0 2/1/0 140 [9957] 20505 5 12 90 1 0 0 TRANSFER 24/1/0 2810 [9958] 20506 76 247 2 0 0 0 FORM SERIAL JUMP unconditional 6/1/0 5298 [9959] 20507 1 6 1 0 0 SELECT 5/1/0 4728 [9960] 20508 2 319 2 1 0 0 TABLE SUBTRACT Source: ChuckK/Q1000151 27/0/1 1786 [9961] 20509 71 206 5 0 0 0 NO JUMP IF A != 0 6/1/0 5204 [9962] 20510 10 0 0 0 100001 SET LONG/SHORT SELECT LITERAL 2/1/0 140 [9963] 20511 5 12 90 1 0 0 COUNTER TRANSFER 0/1/2 5308 [9964] 20512 34 1 16 1 0 0 TABLE TYPE SET (N) IN B 26/0/0 4826 [9965] 20513 80 321 2 0 0 0 >RIGHT ALIGN ENTER SUBROUTINE 6/1/0 139 [9966] 20514 0 12 88 2 0 0 SELECT 27/0/3 1780 [9967] 20515 73 205 20 0 0 0 TABLE TYPE IS JUMP IF A < 0 3/0/0 109 [9968] 20516 3 12 59 0 0 0 COPY 27/0/0 1780 [9969] 20517 70 205 20 0 0 0 JUMP IF A == 0 1/1/2 5 [9970] 20518 12 0 0 0 5 SUBTRACT LITERAL 27/0/3 1783 [9971] 20519 73 206 2 0 0 0 JUMP IF A < 0 1/1/3 5 [9972] 20520 83 278 8 0 0 5 TABLE TYPE IS OUT SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8166 [9973] 24/1/0 3812 [9974] 20521 76 282 29 0 0 0 JUMP unconditional Start of procedure 206 at location 1783 in chapter 3 [9975] [9975] 20600 PROCR 206 [9975] 20601 NOTES RADIX 6/0/0 109 [9975] 20602 84 278 8 0 0 0 SET TABLE CHECKING SET SWITCH(ES) AT VARIABLE VALUE 2/0/0 8166 [9976] 20603 C 12 59 0 0 0 SWITCH ACCORDING TO SET SWITCH(ES) AT VARIABLE VALUE 24/1/0 2810 [9977] 20604 76 247 2 0 0 0 FORM SERIAL NO. JUMP unconditional 6/1/0 5298 [9978] 20605 1 6 1 0 0 SELECT 5/1/0 4730 [9979] 20606 2 319 4 1 0 0 CONST SUBTRACT 27/0/1 1808 [9980] 20607 71 206 25 0 0 0 >NO JUMP IF A != 0 6/1/0 5206 [9981] 20608 54 94 60 0 0 40 BULK CLEAR 28/0/0 5510 [9982] 0/0/2 4718 [9983] 20609 34 318 3 0 0 0 BIT 17 SET (N) IN B 15/1/0 5309 [9984] 20610 36 1 16 2 0 0 COLLATE AND ADD 18/0/1 4124 [9985] 20611 30 0 0 0 4- SHIFT (A) BY QUARTETS 3/0/0 140 [9986] 20612 3 12 90 0 0 0 LONG/SHORT IND COPY 27/0/1 1797 [9987] 20613 71 206 15 0 0 0 >LONG JUMP IF A != 0 1/1/3 48 [9988] 20614 10 0 0 0 30 ALPHA ZERO SELECT LITERAL 18/0/1 3 [9989] 20615 30 0 0 0 3 SHIFT (A) BY QUARTETS 1/0/1 24 [9990] 20616 35 0 0 0 11000 PREPARE FOR DIGIT COLLATION 14/0/0 5309 [9991] 20617 37 1 17 0 0 0 REPLACE SELECTED BITS 24/1/0 1803 [9992] 20618 76 206 21 0 0 0 SET ALPHA 0 OR 1 JUMP unconditional 1/1/3 1 [9993] 20619 10 0 0 0 1 SELECT LITERAL 3/0/0 140 [9994] 20620 3 12 90 0 0 0 COPY 1/1/3 1 [9995] 20621 83 263 2 0 0 1 SAFETY VALUE SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8165 [9996] 1/1/3 4 [9997] 20622 10 0 0 0 4 SET CHECK SWITCH SELECT LITERAL 2/0/0 8168 [9998] 20623 84 191 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 24/1/0 2810 [9999] 20624 76 247 2 0 0 0 >O/P JUMP unconditional 6/1/0 5298 [10000] 20625 0 1 6 1 0 0 SELECT 5/1/0 4754 [10001] 20626 2 319 28 1 0 0 'VALUE' SUBTRACT 27/0/1 1815 [10002] 20627 71 207 2 0 0 0 >HENCE 'NOTES' JUMP IF A != 0 1/1/3 5 [10003] 20628 10 0 0 0 5 SELECT LITERAL 2/0/0 8168 [10004] 20629 84 191 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 2/1/0 140 [10005] 20630 5 12 90 1 0 0 CLEAR IND=SHORT TRANSFER 24/1/0 2810 [10006] 20631 76 247 2 0 0 0 O/P JUMP unconditional Start of procedure 207 at location 1815 in chapter 3 [10007] [10007] 20700 PROCR 207 DEAL WITH NOTES [10007] 20701 NOTES RADIX 6/0/0 141 [10007] 20702 12 91 0 0 0 SELECT 27/0/1 1819 [10008] 20703 71 207 6 0 0 0 JUMP IF A != 0 1/1/3 2 [10009] 20704 10 0 0 0 2 FOR INSTRUCTIONS SELECT LITERAL 24/1/0 1820 [10010] 20705 76 207 7 0 0 0 JUMP unconditional 1/1/3 3 [10011] 20706 10 0 0 0 3 FOR TABLE ENTRIES SELECT LITERAL 2/0/0 8168 [10012] 20707 84 191 2 0 0 0 SET CHECK SWITCH SET SWITCH(ES) AT VARIABLE VALUE 5/0/0 88 [10013] 20708 2 12 38 0 0 0 DIRECTIVE IND FOR THIS LINE SUBTRACT 27/0/3 2810 [10014] 20709 73 247 2 0 0 0 >IS'NOTES'(IE>0) JUMP IF A < 0 1/1/3 2 [10015] 20710 10 0 0 0 2 SELECT LITERAL 2/0/0 59 [10016] 20711 5 12 9 0 0 0 SET THIS LINE SERIAL TRANSFER Source: ChuckK/Q1000152 24/1/0 1540 [10017] 20712 76 191 3 0 0 0 >TO CHECK SWITCH JUMP unconditional Start of procedure 208 at location 1826 in chapter 3 [10018] [10018] 20800 PROCR 208 REPLACE AND ADJUST B/FWD ADDRESSES IN TABLE ENTRIES AND INSTRUCTI [10018] 20801 NOTES RADIX 0/0/0 0 [10018] 20802 81 208 2 0 0 0 START OF SUBROUTINE 0/1/2 5300 [10019] 20803 34 1 8 1 0 0 REF SET (N) IN B 26/0/0 4826 [10020] 20804 80 321 2 0 0 0 >RIGHT ALIGN ENTER SUBROUTINE 1/1/2 103 [10021] 20805 12 0 0 0 67 SUBTRACT LITERAL 3/0/0 3593 [10022] 20806 3 274 2 0 0 0 COPY 27/0/1 1834 [10023] 20807 71 208 10 0 0 0 >NOT'P' JUMP IF A != 0 6/0/0 50 [10024] 20808 0 12 0 0 0 0 SELECT 2/1/0 139 [10025] 20809 5 12 88 2 0 0 TRANSFER 6/1/0 139 [10026] 20810 0 12 88 2 0 0 SELECT 3/0/0 54 [10027] 20811 3 12 4 0 0 0 COPY 1/1/2 256 [10028] 20812 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 1856 [10029] 20813 73 208 32 0 0 0 >SECTION JUMP IF A < 0 1/1/2 2201 [10030] 20814 12 0 0 0 899 SUBTRACT LITERAL 27/0/2 1856 [10031] 20815 72 208 32 0 0 0 >NOT REPLACEABLE (INCLUDES 999) JUMP IF A >= 0 6/1/0 5302 [10032] 20816 1 10 1 0 0 SELECT 2/0/0 4204 [10033] 20817 5 294 2 0 0 0 'PREVIOUS' ITEM TRANSFER 26/0/0 1857 [10034] 20818 80 209 2 0 0 0 >CALC C/FWD ADDRESS ENTER SUBROUTINE 6/0/0 6314 [10035] 20819 27 4 0 0 0 SELECT 27/0/1 1852 [10036] 20820 71 208 28 0 0 0 >COMPILER, DONT SET IND JUMP IF A != 0 Literal operand combined with others 6/1/0 3390 [10037] 20821 12 88 2 0 ;TEST IMPLICIT SELECT 5/0/0 54 [10038] 20822 2 12 4 0 0 0 ;AMENDMENT SUBTRACT 27/0/1 1851 [10039] 20823 71 208 27 0 0 0 >CHANGE TO REF JUMP IF A != 0 6/1/0 5302 [10040] 20824 1 10 1 0 0 SELECT 5/0/0 4204 [10041] 20825 2 294 2 0 0 0 SUBTRACT 27/0/0 1852 [10042] 20826 70 208 28 0 0 0 >NO CHANGE TO ITEM JUMP IF A == 0 26/0/0 1494 [10043] 20827 80 188 2 0 0 0 >SET'PRINT PROCEDURE' ENTER SUBROUTINE 6/1/0 139 [10044] 20828 12 88 2 0 0 SELECT 2/0/0 54 [10045] 20829 5 12 4 0 0 0 NEW REF TRANSFER 24/0/2 4434 [10046] 20830 52 1 8 0 0 0 REPLACE REF WITH ZEROS EDIT 28/1/2 5300 [10047] 20831 C 306 2 0 0 0 26/0/1 1826 [10048] 20832 82 208 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 209 at location 1857 in chapter 3 [10049] [10049] 20900 PROCR 209 REPLACE AND ADJUSR ADDRESS [10049] 20901 NOTES 0/0/0 0 [10049] 20902 81 209 2 0 0 0 START OF SUBROUTINE 6/0/0 6044 [10050] 20903 92 30 0 0 0 SELECT 27/0/1 1863 [10051] 20904 71 209 8 0 0 0 >NOT INITIAL JUMP IF A != 0 1/1/3 2 [10052] 20905 10 0 0 0 2 SELECT LITERAL 7/1/0 5302 [10053] 20906 4 1 10 1 0 0 AUGMENT 24/1/0 1905 [10054] 20907 76 209 50 0 0 0 JUMP unconditional 6/0/0 6310 [10055] 20908 27 0 0 0 0 SELECT 0/0/2 83 [10056] 20909 34 12 33 0 0 0 SET (N) IN B 27/1/1 1905 [10057] 20910 75 209 50 0 0 0 >ISSUE 6 I/P OR PT I/P JUMP IF AB != 0 6/0/0 3593 [10058] 20911 274 2 0 0 0 SELECT 27/0/0 1905 [10059] 20912 70 209 50 0 0 0 >REF WAS'P' JUMP IF A == 0 6/0/0 6314 [10060] 20913 27 4 0 0 0 SELECT 27/0/1 1905 [10061] 20914 71 209 50 0 0 0 >COMPILER CALLED TRANSLATOR JUMP IF A != 0 6/1/0 139 [10062] 20915 12 88 2 0 0 SELECT 2/0/0 169 [10063] 20916 5 12 119 0 0 0 TRANSFER 26/0/0 1647 [10064] 20917 80 201 2 0 0 0 >REPLACE OLD PROCR ENTER SUBROUTINE 27/0/1 1893 [10065] 20918 71 209 38 0 0 0 >MATCH FOUND;NOW ADJUST JUMP IF A != 0 6/1/0 139 [10066] 20919 12 88 2 0 0 SELECT 18/0/1 2 [10067] 20920 30 0 0 0 2 ;TRY UNIQUE REFS SHIFT (A) BY QUARTETS Source: ChuckK/Q1000153 4/0/0 5302 [10068] 20921 1 1 10 0 0 0 ADD 26/1/1 5208 [10069] 20922 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [10070] 20923 C 0 0 0 50 Limit 2/0/0 2771 [10070] 20924 5 245 2 0 0 0 TRANSFER 6/0/1 5965 [10071] 20925 55 1 0 1 0 SELECT 27/0/0 1885 [10072] 20926 70 209 30 0 0 0 >END,NO MATCH JUMP IF A == 0 5/0/0 2771 [10073] 20927 2 245 2 0 0 0 SUBTRACT 27/0/0 1887 [10074] 20928 70 209 32 0 0 0 JUMP IF A == 0 25/0/1 2 [10075] 20929 94 209 25 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1879 [10076] s 26/0/0 1584 [10077] 20930 80 195 2 0 0 0 >REPORT R ENTER SUBROUTINE 24/1/0 1905 [10078] 20931 76 209 50 0 0 0 >CARRY ON JUMP unconditional 6/0/1 5964 [10079] 20932 55 0 0 1 0 EQUIVALENT OF UNIQUE REF SELECT 18/1/1 4126 [10080] 20933 32 0 0 0 2- SHIFT (AB) BY QUARTETS 2/1/0 139 [10081] 20934 5 12 88 2 0 0 TRANSFER 18/1/1 2 [10082] 20935 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/0/0 5302 [10083] 20936 5 1 10 0 0 0 TRANSFER 24/1/0 1905 [10084] 20937 76 209 50 0 0 0 >NOW REPLACE/ADJUST(NEW STYLE) JUMP unconditional 3/1/0 139 [10085] 20938 3 12 88 2 0 0 COPY 18/0/1 2 [10086] 20939 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 5302 [10087] 20940 1 1 10 0 0 0 ADD 2/0/0 1690 [10088] 20941 5 203 2 0 0 0 WL TRANSFER 6/1/0 5302 [10089] 20942 1 10 1 0 0 SELECT 27/0/3 1905 [10090] 20943 73 209 50 0 0 0 >DONT ADJUST NEG ITEM JUMP IF A < 0 6/0/0 1690 [10091] 20944 203 2 0 0 0 SELECT 26/0/0 1690 [10092] 20945 80 203 2 0 0 0 >ADJUST(OLD STYLE) ENTER SUBROUTINE 18/1/1 4126 [10093] 20946 32 0 0 0 2- SHIFT (AB) BY QUARTETS 2/1/0 139 [10094] 20947 5 12 88 2 0 0 TRANSFER 18/1/1 2 [10095] 20948 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/0/0 5302 [10096] 20949 5 1 10 0 0 0 TRANSFER 6/1/0 139 [10097] 20950 12 88 2 0 0 REPLACE PROCR(NEW STYLE) SELECT 3/0/0 168 [10098] 20951 3 12 118 0 0 0 COPY 2/0/0 169 [10099] 20952 5 12 119 0 0 0 TRANSFER 6/0/0 3593 [10100] 20953 274 2 0 0 0 SELECT 27/0/1 1912 [10101] 20954 71 209 57 0 0 0 >REF WAS NOT'P' JUMP IF A != 0 6/1/0 139 [10102] 20955 12 88 2 0 0 SELECT 24/1/0 1934 [10103] 20956 76 209 79 0 0 0 JUMP unconditional 26/0/0 1673 [10104] 20957 80 202 2 0 0 0 >REPLACE ENTER SUBROUTINE 27/0/1 1934 [10105] 20958 71 209 79 0 0 0 >MATCH JUMP IF A != 0 6/1/0 139 [10106] 20959 12 88 2 0 0 SELECT 18/0/1 2 [10107] 20960 30 0 0 0 2 TRY UNIQUE REFS SHIFT (A) BY QUARTETS 4/0/0 5302 [10108] 20961 1 1 10 0 0 0 (NEW STYLE) ADD 26/1/1 5210 [10109] 20962 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [10110] 20963 C 0 0 0 100 Limit 2/0/0 2771 [10110] 20964 5 245 2 0 0 0 TRANSFER 6/0/1 1080 [10111] 20965 52 0 0 1 0 SELECT 27/0/0 1925 [10112] 20966 70 209 70 0 0 0 >END,NO MATCH JUMP IF A == 0 5/0/0 2771 [10113] 20967 2 245 2 0 0 0 SUBTRACT 27/0/0 1928 [10114] 20968 70 209 73 0 0 0 >MATCH JUMP IF A == 0 25/0/1 2 [10115] 20969 94 209 65 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1919 [10116] s 6/1/0 4766 [10117] 20970 319 40 1 0 0 '????R' SELECT 2/1/0 5336 [10118] 20971 5 1 44 1 0 0 TRANSFER 24/1/0 1943 [10119] 20972 76 209 88 0 0 0 >END JUMP unconditional 6/0/1 1081 [10120] 20973 52 1 0 1 0 SELECT 18/1/1 4126 [10121] 20974 32 0 0 0 2- SHIFT (AB) BY QUARTETS Source: ChuckK/Q1000154 2/1/0 139 [10122] 20975 5 12 88 2 0 0 TRANSFER 18/1/1 2 [10123] 20976 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/0/0 5302 [10124] 20977 5 1 10 0 0 0 TRANSFER 24/1/0 1943 [10125] 20978 76 209 88 0 0 0 >NEW ADDRESS CALCULATED JUMP unconditional 3/1/0 139 [10126] 20979 3 12 88 2 0 0 COPY 18/0/1 2 [10127] 20980 30 0 0 0 2 NEW REF SHIFT (A) BY QUARTETS 4/0/0 5302 [10128] 20981 1 1 10 0 0 0 ADD 2/0/0 108 [10129] 20982 5 12 58 0 0 0 TRANSFER 6/1/0 5302 [10130] 20983 1 10 1 0 0 SELECT 27/0/3 1943 [10131] 20984 73 209 88 0 0 0 >DONT ADJUST NEG ITEMS JUMP IF A < 0 26/0/0 1714 [10132] 20985 80 204 2 0 0 0 >ADJUST SR(NEW STYLE) ENTER SUBROUTINE 6/0/0 108 [10133] 20986 12 58 0 0 0 NEW ITEM SELECT 2/0/0 5302 [10134] 20987 5 1 10 0 0 0 TRANSFER 26/0/1 1857 [10135] 20988 82 209 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 210 at location 1944 in chapter 3 [10136] [10136] 21000 PROCR 210 BEGIN CHECKS ON ACTION OR C-LINE [10136] 21001 NOTES RADIX 26/0/0 1826 [10136] 21002 80 208 2 0 0 0 >DEAL WITH ADDRESS OF INSTRUCTION ENTER SUBROUTINE 6/0/0 54 [10137] 21003 12 4 0 0 0 NEW REF SELECT 1/1/2 256 [10138] 21004 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 1952 [10139] 21005 73 210 10 0 0 0 >SECTION JUMP IF A < 0 1/1/2 2201 [10140] 21006 12 0 0 0 899 SUBTRACT LITERAL 27/0/2 1952 [10141] 21007 72 210 10 0 0 0 >REF=999+ JUMP IF A >= 0 6/0/0 168 [10142] 21008 12 118 0 0 0 PEVIOUS PROCR SELECT 2/0/0 5314 [10143] 21009 5 1 22 0 0 0 TRANSFER 6/0/0 5299 [10144] 21010 1 7 0 0 0 SELECT 5/0/0 5100 [10145] 21011 12 0 0 0 53000 'C ' SUBTRACT LITERAL 27/0/1 1970 [10146] 21012 71 210 28 0 0 0 >NOT C-LINE JUMP IF A != 0 6/1/0 110 [10147] 21013 12 60 1 0 0 SELECT 27/0/0 2007 [10148] 21014 70 211 2 0 0 0 >IGNORE;C-LINE NOT POSSIBLE JUMP IF A == 0 24/1/2 105 [10149] 21015 124 12 55 1 2 0 MODIFY ADDRESS OF NEXT 0/0/2 1 [10150] 21016 100 1 0 2 0 C-LINE CHECK CONSTANT TO B REPLACE (B) BY (N) 6/0/0 4710 [10151] 21017 0 317 88 0 0 0 A 55 ACTION WILL TERMINATE SELECT 2/0/0 4647 [10152] 21018 5 317 25 0 0 0 AFTER 2 C-LINES TRANSFER 0/0/3 0 [10153] 21019 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 104 [10154] 21020 0 12 54 0 0 0 ACION SELECT 1/1/2 43 [10155] 21021 12 0 0 0 2e 43 SUBTRACT LITERAL 27/0/0 1967 [10156] 21022 70 210 25 0 0 0 >YES JUMP IF A == 0 1/1/1 1 [10157] 21023 11 0 0 0 1 ADD LITERAL 27/0/1 2004 [10158] 21024 71 210 62 0 0 0 >NOT JUMP IF A != 0 1/1/3 1 [10159] 21025 10 0 0 0 1 SELECT LITERAL 7/0/0 105 [10160] 21026 4 12 55 0 0 0 (TO GET NEXT C-LINE CHECK CONST) AUGMENT 24/1/0 2004 [10161] 21027 76 210 62 0 0 0 JUMP unconditional 6/0/0 111 [10162] 21028 12 61 0 0 0 SELECT 27/0/0 1973 [10163] 21029 70 210 31 0 0 0 JUMP IF A == 0 26/0/0 4252 [10164] 21030 80 296 2 0 0 0 ENTER SUBROUTINE 0/1/2 5298 [10165] 21031 34 1 6 1 0 0 SET (N) IN B 26/0/0 4826 [10166] 21032 80 321 2 0 0 0 RIGHT ALIGN ACTION ENTER SUBROUTINE 6/1/0 139 [10167] 21033 0 12 88 2 0 0 SELECT 27/0/3 2007 [10168] 21034 73 211 2 0 0 0 >NEGATIVE ACTION JUMP IF A < 0 1/1/2 345 [10169] 21035 12 0 0 0 159 REJECT ACTION>158 SUBTRACT LITERAL 27/0/2 2007 [10170] 21036 72 211 2 0 0 0 JUMP IF A >= 0 6/1/0 139 [10171] 21037 0 12 88 2 0 0 SELECT 26/0/0 2771 [10172] 21038 80 245 2 0 0 0 >BIN ENTER SUBROUTINE 3/0/0 104 [10173] 21039 3 12 54 0 0 0 BINARY ACTION COPY 1/1/2 65 [10174] 21040 12 0 0 0 41 65 SUBTRACT LITERAL Source: TonyJ/Q1000156 27/0/2 1996 [10175] 21041 72 210 54 0 0 0 > SECOND HALF OF TABLE JUMP IF A >= 0 6/0/0 104 [10176] 21042 0 12 54 0 0 0 SELECT 18/0/1 3 [10177] 21043 30 0 0 0 3 SHIFT (A) BY QUARTETS 1/0/0 4614 [10178] 21044 101 316 2 0 0 0 TLU TABLE LOOK UP 18/1/1 10 [10179] 21045 32 0 0 0 10 ABS BIN ADDRESS > A SHIFT (AB) BY QUARTETS 3/0/0 105 [10180] 21046 3 12 55 0 0 0 LOCN TO SELECT C-LINE CHECK CONSTANT COPY 6/0/0 104 [10181] 21047 0 12 54 0 0 0 BIN ACTION SELECT 1/1/2 55 [10182] 21048 12 0 0 0 37 = 55 SUBTRACT LITERAL 27/0/1 2002 [10183] 21049 71 210 60 0 0 0 > NOT JUMP IF A != 0 6/1/0 5308 [10184] 21050 0 1 16 1 0 0 LITERAL SELECT 27/0/1 2000 [10185] 21051 71 210 58 0 0 0 > SET SECOND C-LINE IMPOSSIBLE JUMP IF A != 0 6/0/0 4708 [10186] 21052 0 317 86 0 0 0 SELECT 24/1/0 2001 [10187] 21053 76 210 59 0 0 0 > SET SECOND C-LINE ESSENTIAL JUMP unconditional 6/0/0 104 [10188] 21054 0 12 54 0 0 0 SELECT 18/0/1 3 [10189] 21055 30 0 0 0 3 SHIFT (A) BY QUARTETS 1/0/0 4656 [10190] 21056 101 317 34 0 0 0 TLU FOR ACTION > 64 TABLE LOOK UP 24/1/0 1987 [10191] 21057 76 210 45 0 0 0 JUMP unconditional 6/0/0 4710 [10192] 21058 0 317 88 0 0 0 SELECT 2/0/0 4647 [10193] 21059 5 317 25 0 0 0 CHECK CONST FOR ACTION 55 C-LINE TRANSFER 24/1/2 105 [10194] 21060 124 12 55 1 2 0 MODIFY ADDRESS OF NEXT 0/0/2 0 [10195] 21061 100 0 0 2 0 CHECK CONST REPLACE (B) BY (N) 1/1/3 0 [10196] 21062 10 0 0 0 0 SELECT LITERAL 15/0/0 4719 [10197] 21063 36 318 4 0 0 0 Q1-3 COLLATE AND ADD 27/0/1 2011 [10198] 21064 71 211 6 0 0 0 > ACTION EXISTS JUMP IF A != 0 Source: TonyJ/Q1000160 Start of procedure 211 at location 2007 in chapter 3 [10199] [10199] 21100 PROCR 211 211 [10199] 21101 NOTES RADIX 6/1/0 5212 [10199] 21102 10 0 0 0 5100000000 SELECT LITERAL 2/1/0 5336 [10200] 21103 5 1 44 1 0 0 NONEXISTENT ACTION = ERROR OF A TRANSFER 26/0/0 4248 [10201] 21104 80 295 2 0 0 0 ENTER SUBROUTINE 24/1/0 2810 [10202] 21105 76 247 2 0 0 0 JUMP unconditional 18/0/1 4126 [10203] 21106 30 0 0 0 2- SHIFT (A) BY QUARTETS 2/0/0 8164 [10204] 21107 84 227 2 0 0 0 LITERAL' SWITCH BY Q3 SET SWITCH(ES) AT VARIABLE VALUE 15/0/0 4720 [10205] 21108 36 318 5 0 0 0 BITS 5-7 COLLATE AND ADD 18/0/1 4127 [10206] 21109 30 0 0 0 1- SHIFT (A) BY QUARTETS 2/0/0 8163 [10207] 21110 84 217 2 0 0 0 'REF/ITEM' SET SWITCH(ES) AT VARIABLE VALUE 15/0/0 4721 [10208] 21111 36 318 6 0 0 0 BITS 1-3 COLLATE AND ADD 2/0/0 8162 [10209] 21112 84 214 2 0 0 0 'DISC/MOD' SWITCH BY Q1 SET SWITCH(ES) AT VARIABLE VALUE 15/0/0 4722 [10210] 21113 36 318 7 0 0 0 BIT 4 COLLATE AND ADD 2/0/0 111 [10211] 21114 5 12 61 0 0 0 IND THAT C-LINE ESSENTIAL TRANSFER 15/0/0 4723 [10212] 21115 36 318 8 0 0 0 BIT 8 COLLATE AND ADD 2/0/0 110 [10213] 21116 5 12 60 0 0 0 IND THAT C-LINE IS POSSIBLE TRANSFER 2/0/0 109 [10214] 21117 5 12 59 0 0 0 CLEAR THIS TRANSFER Start of procedure 212 at location 2023 in chapter 3 [10215] [10215] 21200 PROCR 212 212 0 [10215] 21201 NOTES RADIX 0 0/0/3 5101 [10215] 21202 60 0 0 0 0 SET DECIMAL RADIX 6/0/0 5302 [10216] 21203 1 10 0 0 0 MODULUS OF ITEM SELECT 5/0/0 5102 [10217] 21204 12 0 0 0 8192 SUBTRACT LITERAL 27/0/2 2029 [10218] 21205 72 212 8 0 0 0 > REPORT JUMP IF A >= 0 6/0/0 5303 [10219] 21206 1 11 0 0 0 SELECT 27/0/0 2030 [10220] 21207 70 212 9 0 0 0 > OK JUMP IF A == 0 26/0/0 1588 [10221] 21208 80 196 2 0 0 0 > REPORT 1 ENTER SUBROUTINE 6/0/0 104 [10222] 21209 0 12 54 0 0 0 BIN ACTION SELECT 1/1/2 100 [10223] 21210 12 0 0 0 64 100 SUBTRACT LITERAL 27/0/3 2047 [10224] 21211 73 212 26 0 0 0 > NOT MACHINE CODE JUMP IF A < 0 6/0/0 104 [10225] 21212 0 12 54 0 0 0 SELECT Source: RayS/Q1000161 1/1/2 132 [10226] 21213 12 0 0 0 84 132 SUBTRACT LITERAL 27/0/2 2047 [10227] 21214 72 212 26 0 0 0 gNOT MACHINE CODE JUMP IF A >= 0 6/1/0 5304 [10228] 21215 0 1 12 1 0 0 DISC SELECT 27/0/0 2041 [10229] 21216 70 212 20 0 0 0 gOK JUMP IF A == 0 1/1/2 1 [10230] 21217 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 2041 [10231] 21218 70 212 20 0 0 0 gOK JUMP IF A == 0 26/0/0 1576 [10232] 21219 80 193 2 0 0 0 gREPORT D ENTER SUBROUTINE 6/1/0 5306 [10233] 21220 0 1 14 1 0 0 MOD SELECT 27/0/0 2104 [10234] 21221 70 217 2 0 0 0 gOK JUMP IF A == 0 1/1/2 4 [10235] 21222 12 0 0 0 4 SUBTRACT LITERAL 27/0/3 2104 [10236] 21223 73 217 2 0 0 0 gOK JUMP IF A < 0 26/0/0 1580 [10237] 21224 80 194 2 0 0 0 gREPORT M ENTER SUBROUTINE 24/1/0 2104 [10238] 21225 76 217 2 0 0 0 gTO CHECK R,I,L JUMP unconditional 6/1/0 5304 [10239] 21226 0 1 12 1 0 0 D SELECT 27/0/0 2056 [10240] 21227 70 213 7 0 0 0 gOK JUMP IF A == 0 6/0/0 5302 [10241] 21228 0 1 10 0 0 0 SELECT 26/0/0 1568 [10242] 21229 80 192 2 0 0 0 gCHECK I ENTER SUBROUTINE Start of procedure 213 at location 2051 in chapter 3 [10243] [10243] 21300 PROCR 213 TEST D AND M ARE IN RANGE [10243] 21301 NOTES RADIX ACCEPTABLE 6/1/0 5304 [10243] 21302 1 12 1 0 0 SELECT 27/0/3 2055 [10244] 21303 73 213 6 0 0 0 JUMP IF A < 0 1/1/2 3 [10245] 21304 12 0 0 0 3 SUBTRACT LITERAL 27/0/3 2056 [10246] 21305 73 213 7 0 0 0 JUMP IF A < 0 26/0/0 1576 [10247] 21306 80 193 2 0 0 0 gREPORT D ENTER SUBROUTINE 6/1/0 5306 [10248] 21307 1 14 1 0 0 MOD DIGITS SELECT 27/0/0 2069 [10249] 21308 70 214 2 0 0 0 gOK JUMP IF A == 0 27/0/3 2067 [10250] 21309 73 213 18 0 0 0 JUMP IF A < 0 1/1/2 33 [10251] 21310 12 0 0 0 21 SUBTRACT LITERAL 27/0/2 2067 [10252] 21311 72 213 18 0 0 0 gWRONG JUMP IF A >= 0 6/0/0 5306 [10253] 21312 0 1 14 0 0 0 SELECT 1/1/2 4 [10254] 21313 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 2069 [10255] 21314 72 214 2 0 0 0 JUMP IF A >= 0 1/1/3 1 [10256] 21315 10 0 0 0 1 IF MR 1-3 SELECT LITERAL 2/0/0 6018 [10257] 21316 5 92 4 0 0 0 SETTING 'REQUIRED' IND TRANSFER 24/1/0 2069 [10258] 21317 76 214 2 0 0 0 JUMP unconditional 26/0/0 1580 [10259] 21318 80 194 2 0 0 0 gREPORT M ENTER SUBROUTINE 24/1/0 2009 [10260] 21319 76 211 4 0 0 0 gIGNORE JUMP unconditional Start of procedure 214 at location 2069 in chapter 3 [10261] [10261] 21400 PROCR 214 [10261] 21401 NOTES RADIX 24/0/1 8162 [10261] 21402 85 214 2 0 0 0 SWITCH R 26/0/1 2070 [10262] 0/0/1 2104 [10263] 21403 C 217 2 0 0 0 gD,M ANY VALUE 0/0/1 2087 [10264] 21404 C 215 2 0 0 0 gD,M MUST BOTH BE ZERO 0/0/1 2092 [10265] 21405 C 215 7 0 0 0 gD ZERO, M ANY 0/0/1 2088 [10266] 21406 C 215 3 0 0 0 gM ZERO, D ANY 0/0/1 2094 [10267] 21407 C 215 9 0 0 0 gD ZERO, M NONZERO 0/0/1 2095 [10268] 21408 C 215 10 0 0 0 gM NONZERO, D ANY 0/0/1 2078 [10269] s 21409 C 214 10 0 0 0 gD,M ZERO, R NON-ZERO IF L=0 6/0/0 5308 [10270] 21410 1 16 0 0 0 L SELECT 27/0/0 2084 [10271] 21411 70 214 16 0 0 0 gEXPECT R JUMP IF A == 0 6/1/0 5301 [10272] 21412 0 1 8 2 0 0 REF SELECT 27/0/0 2087 [10273] 21413 70 215 2 0 0 0 gOK JUMP IF A == 0 26/0/0 1584 [10274] 21414 80 195 2 0 0 0 gREPORT R ENTER SUBROUTINE Source: RayS/Q1000166 24/1/0 2087 [10275] 21415 76 215 2 0 0 0 JUMP unconditional 6/1/0 5301 [10276] 21416 1 8 2 0 0 SELECT 27/0/1 2087 [10277] 21417 71 215 2 0 0 0 gOK JUMP IF A != 0 26/0/0 1592 [10278] 21418 80 197 2 0 0 0 gREPORT L ENTER SUBROUTINE Start of procedure 215 at location 2087 in chapter 3 [10279] [10279] 21500 PROCR 215 CHECK D AND M [10279] 21501 NOTES RADIX 26/0/0 2099 [10279] 21502 80 216 2 0 0 0 ENTER SUBROUTINE 6/1/0 5306 [10280] 21503 1 14 1 0 0 SELECT 27/0/0 2104 [10281] 21504 70 217 2 0 0 0 JUMP IF A == 0 26/0/0 1580 [10282] 21505 80 194 2 0 0 0 gREPORT M ENTER SUBROUTINE 24/1/0 2104 [10283] 21506 76 217 2 0 0 0 JUMP unconditional 26/0/0 2099 [10284] 21507 80 216 2 0 0 0 ENTER SUBROUTINE 24/1/0 2104 [10285] 21508 76 217 2 0 0 0 gCHECK D=0 JUMP unconditional 26/0/0 2099 [10286] 21509 80 216 2 0 0 0 ENTER SUBROUTINE 6/1/0 5306 [10287] 21510 1 14 1 0 0 gOK SELECT 27/0/1 2104 [10288] 21511 71 217 2 0 0 0 gIGNORE JUMP IF A != 0 26/0/0 4248 [10289] 21512 80 295 2 0 0 0 gREPORT M ENTER SUBROUTINE 24/1/0 2090 [10290] 21513 76 215 5 0 0 0 JUMP unconditional Start of procedure 216 at location 2099 in chapter 3 [10291] [10291] 21600 PROCR 216 TO CHECK REFERENCE AND ITEM [10291] 21601 NOTES RADIX 0/0/0 0 [10291] 21602 81 216 2 0 0 0 START OF SUBROUTINE 6/1/0 5304 [10292] 21603 1 12 1 0 0 SELECT 27/0/0 2103 [10293] 21604 70 216 6 0 0 0 JUMP IF A == 0 26/0/0 1576 [10294] 21605 80 193 2 0 0 0 gREPORT D ENTER SUBROUTINE 26/0/1 2099 [10295] 21606 82 216 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 217 at location 2104 in chapter 3 [10296] [10296] 21700 PROCR 217 [10296] 21701 NOTES RADIX 24/0/1 8163 [10296] 21702 85 217 2 0 0 0 SWITCH R 26/0/1 2105 [10297] 0/0/1 2113 [10298] 21703 C 218 2 0 0 0 gR ZERO, PROCR, SECTION OR '1000+' 0/0/1 2171 [10299] 21704 C 219 2 0 0 0 gR, I BOTH ZERO 0/0/1 2177 [10300] 21705 C 220 2 0 0 0 MAINLINE OF FILE CONTROL 0/0/1 2351 [10301] 21706 C 224 2 0 0 0 R=100-998 OR 1000+, I EVEN 0/0/1 2371 [10302] 21707 C 225 2 0 0 0 gR IS A TRANSIT AREA 0/0/1 2406 [10303] 21708 C 226 2 0 0 0 gR IN RANGE 100-998 0/0/1 2169 [10304] 21709 C 218 58 0 0 0 gR IS PROCR OR SECTION, BUT NOT TX AREA Start of procedure 218 at location 2113 in chapter 3 [10305] [10305] 21800 PROCR 218 SWITCH = 1 [10305] 21801 NOTES RADIX 6/0/0 54 [10305] 21802 12 4 0 0 0 SELECT 27/0/3 2147 [10306] 21803 73 218 36 0 0 0 gIGNORE R JUMP IF A < 0 27/0/1 2131 [10307] 21804 71 218 20 0 0 0 gOK JUMP IF A != 0 6/0/0 5306 [10308] 21805 1 14 0 0 0 MOD DIGITS SELECT 27/0/1 2160 [10309] 21806 71 218 49 0 0 0 gOK EXCEPT FOR 93,97 JUMP IF A != 0 6/1/0 5302 [10310] 21807 0 1 10 1 0 0 ITEM SELECT 27/0/3 2124 [10311] 21808 73 218 13 0 0 0 gACCEPT ONLY IF ITEM JUMP IF A < 0 Source: ChuckK/Q1000167 27/0/1 2166 [10312] 21809 71 218 55 0 0 0 >OK JUMP IF A != 0 6/0/0 104 [10313] 21810 0 12 54 0 0 0 ACTION SELECT 27/0/0 2147 [10314] 21811 70 218 36 0 0 0 >IGNORE R JUMP IF A == 0 24/1/0 2166 [10315] 21812 76 218 55 0 0 0 >OJ JUMP unconditional 1/1/3 0 [10316] 21813 10 0 0 0 0 SELECT LITERAL 1/0/1 1 [10317] 21814 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 15/0/0 5302 [10318] 21815 36 1 10 0 0 0 COLLATE AND ADD 1/1/2 12 [10319] 21816 12 0 0 0 + SUBTRACT LITERAL 27/0/0 2166 [10320] 21817 70 218 55 0 0 0 >OK(ITEM*) JUMP IF A == 0 26/0/0 4248 [10321] 21818 80 295 2 0 0 0 >IGNORE ENTER SUBROUTINE 24/1/0 2175 [10322] 21819 76 219 6 0 0 0 >REPORT I JUMP unconditional 1/1/2 256 [10323] 21820 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 2142 [10324] 21821 73 218 31 0 0 0 >SECTION JUMP IF A < 0 1/1/2 2304 [10325] 21822 12 0 0 0 900 SUBTRACT LITERAL 27/0/3 2166 [10326] 21823 73 218 55 0 0 0 >OK JUMP IF A < 0 27/0/0 2147 [10327] 21824 70 218 36 0 0 0 >IGNORE IF=1000 JUMP IF A == 0 1/1/2 33 [10328] 21825 12 0 0 0 21 SUBTRACT LITERAL 27/0/2 2147 [10329] 21826 72 218 36 0 0 0 >IGNORE IF>1020 JUMP IF A >= 0 6/0/0 104 [10330] 21827 0 12 54 0 0 0 BIN ACTION SELECT 1/1/2 80 [10331] 21828 12 0 0 0 50 80 SUBTRACT LITERAL 27/0/0 2147 [10332] 21829 70 218 36 0 0 0 >IGNORE JUMP IF A == 0 24/1/0 2166 [10333] 21830 76 218 55 0 0 0 >OK JUMP unconditional 6/0/0 54 [10334] 21831 12 4 0 0 0 DECSECTION SELECT 26/0/0 1358 [10335] 21832 80 183 2 0 0 0 >DECODE SECTION NUMBER ENTER SUBROUTINE 0/0/2 90 [10336] 21833 34 12 40 0 0 0 SET (N) IN B 15/0/3 122 [10337] 21834 36 12 72 0 3 0 COLLATE AND ADD 27/0/1 2166 [10338] 21835 71 218 55 0 0 0 >SECTION EXISTS JUMP IF A != 0 26/0/0 4248 [10339] 21836 80 295 2 0 0 0 >IGNORE ENTER SUBROUTINE 26/0/0 1584 [10340] 21837 80 195 2 0 0 0 >REPORT R ENTER SUBROUTINE 6/0/0 8163 [10341] 21838 86 217 2 0 0 0 SELECT SWITCH R 1/1/2 5 [10342] 21839 12 0 0 0 5 SUBTRACT LITERAL 27/0/0 2404 [10343] 21840 70 225 31 0 0 0 >42 OR 43 ACTION.IGNORE PREVIOUS LINE JUMP IF A == 0 6/0/0 104 [10344] 21841 12 54 0 0 0 SELECT 1/1/2 40 [10345] 21842 101 40 1 2 0 40 SUBTRACT LITERAL ADDRESS 27/0/0 2404 [10346] 21843 70 225 31 0 0 0 >IGNORE PREVIOUS LINE JUMP IF A == 0 1/1/2 93 [10347] 21844 101 93 1 2 0 133 SUBTRACT LITERAL ADDRESS 27/0/0 2404 [10348] 21845 70 225 31 0 0 0 >IGNORE PREVIOUS LINE JUMP IF A == 0 1/1/2 1 [10349] 21846 101 1 1 2 0 134 SUBTRACT LITERAL ADDRESS 27/0/0 2404 [10350] 21847 70 225 31 0 0 0 >IGNORE PREVIOUS LINE JUMP IF A == 0 24/1/0 2411 [10351] 21848 76 227 2 0 0 0 JUMP unconditional 6/0/0 104 [10352] 21849 12 54 0 0 0 SELECT 1/1/2 93 [10353] 21850 101 93 1 2 0 93? SUBTRACT LITERAL ADDRESS 27/0/0 2147 [10354] 21851 70 218 36 0 0 0 >REPORT JUMP IF A == 0 6/0/0 104 [10355] 21852 12 54 0 0 0 SELECT 1/1/2 97 [10356] 21853 101 97 1 2 0 97? SUBTRACT LITERAL ADDRESS 27/0/0 2147 [10357] 21854 70 218 36 0 0 0 >REPORT JUMP IF A == 0 Source: ChuckK/Q1000168 6/0/0 109 [10358] 21855 12 59 0 0 0 SELECT 27/0/0 2411 [10359] 21856 70 227 2 0 0 0 >GO TO CHECK L JUMP IF A == 0 24/1/0 2374 [10360] 21857 76 225 5 0 0 0 >CHECK SECTION IS TX AREA JUMP unconditional 26/0/0 3634 [10361] 21858 80 277 2 0 0 0 >CHECK REF ENTER SUBROUTINE 24/1/0 2411 [10362] 21859 76 227 2 0 0 0 >CHECK LITERAL JUMP unconditional Start of procedure 219 at location 2171 in chapter 3 [10363] [10363] 21900 PROCR 219 TEST R AND I ARE BOTH ZERO [10363] 21901 NOTES RADIX SWITCH=2 6/1/0 5301 [10363] 21902 1 8 2 0 0 TEST REF IS ZERO SELECT 27/0/1 2148 [10364] 21903 71 218 37 0 0 0 JUMP IF A != 0 6/1/0 5302 [10365] 21904 1 10 1 0 0 SELECT 27/0/0 2411 [10366] 21905 70 227 2 0 0 0 JUMP IF A == 0 26/0/0 1588 [10367] 21906 80 196 2 0 0 0 >REPORT I ENTER SUBROUTINE 24/1/0 2411 [10368] 21907 76 227 2 0 0 0 >NO CHECK LITERAL JUMP unconditional Start of procedure 220 at location 2177 in chapter 3 [10369] [10369] 22000 PROCR 220 CHECK FILES [10369] 22001 NOTES RADIX D SWITCH=3 6/0/0 104 [10369] 22002 12 54 0 0 0 ACTION SELECT 1/1/2 40 [10370] 22003 101 40 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 2187 [10371] 22004 71 220 12 0 0 0 >NOT ACTION 40 JUMP IF A != 0 6/1/0 110 [10372] 22005 12 60 1 0 0 SELECT 27/0/0 2187 [10373] 22006 70 220 12 0 0 0 >NOT C-LINE JUMP IF A == 0 6/0/0 5299 [10374] 22007 1 7 0 0 0 SELECT 5/0/0 5103 [10375] 22008 12 0 0 0 53000 'C ' SUBTRACT LITERAL 27/0/1 2187 [10376] 22009 71 220 12 0 0 0 >NOT THE C-LINE JUMP IF A != 0 6/1/0 5304 [10377] 22010 1 12 1 0 0 C-LINE DISC SELECT 27/0/1 2113 [10378] 22011 71 218 2 0 0 0 >CHECK REF IS SEC/PROCR JUMP IF A != 0 6/0/0 6053 [10379] 22012 91 1 0 0 0 SELECT 18/0/1 5 [10380] 22013 30 0 0 0 5 SHIFT (A) BY QUARTETS 2/1/0 8182 [10381] 22014 91 0 0 5 0 SET MODIFICATION REGISTER AT VARIABLE 6/0/0 4716 [10382] 22015 317 94 0 0 0 SET 2ND C-LINE POSSIBLE SELECT 2/0/0 4636 [10383] 22016 5 317 14 0 0 0 TRANSFER 24/0/1 8182 [10384] 22017 91 5 0 5 0 SELECT 6/0/0 6057 [10385] 18/1/3 2 [10386] 22018 33 0 0 0 6- SHIFT (AB) BY BITS 18/1/1 4126 [10387] 27/0/0 2209 [10388] 22019 70 220 30 0 0 0 >NO FILES JUMP IF A == 0 4/0/0 5104 [10389] 22020 11 0 0 0 4000 BIT 15 ADD LITERAL 18/0/1 1 [10390] 22021 30 0 0 0 1 SHIFT (A) BY QUARTETS 5/0/0 5301 [10391] 22022 2 1 9 0 0 0 SUBTRACT 27/0/0 2218 [10392] 22023 70 220 39 0 0 0 >MATCH FOUND JUMP IF A == 0 23/0/0 2 [10393] 22024 94 220 17 0 5 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8182 [10394] 24/1/0 2192 [10395] 6/0/0 5299 [10396] 22025 1 7 0 0 0 SELECT 5/0/0 5105 [10397] 22026 12 0 0 0 53000 'C ' SUBTRACT LITERAL 27/0/1 2209 [10398] 22027 71 220 30 0 0 0 > JUMP IF A != 0 26/0/0 4248 [10399] 22028 80 295 2 0 0 0 SET C-LINE IMPOSS ENTER SUBROUTINE 26/0/0 4252 [10400] 22029 80 296 2 0 0 0 IGNORE PREVIOUS LINE ENTER SUBROUTINE 26/0/0 1584 [10401] 22030 80 195 2 0 0 0 >REPORT R ENTER SUBROUTINE 26/0/0 4248 [10402] 22031 80 295 2 0 0 0 >IGNORE ENTER SUBROUTINE 6/0/0 104 [10403] 22032 12 54 0 0 0 SELECT 1/1/2 42 [10404] 22033 101 42 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 2216 [10405] 22034 70 220 37 0 0 0 JUMP IF A == 0 1/1/2 1 [10406] 22035 101 1 1 2 0 SUBTRACT LITERAL ADDRESS Source: ChuckK/Q1000169 27/0/1 2512 [10407] 22036 71 235 2 0 0 0 > JUMP IF A != 0 2/1/0 110 [10408] 22037 5 12 60 1 0 0 42 OR 43 TRANSFER 24/1/0 2512 [10409] 22038 76 235 2 0 0 0 > JUMP unconditional 0/0/3 0 [10410] 22039 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 104 [10411] 22040 12 54 0 0 0 SELECT 1/1/2 132 [10412] 22041 101 132 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/3 2226 [10413] 22042 73 220 47 0 0 0 >HENCE GROUP 4 JUMP IF A < 0 1/1/2 3 [10414] 22043 101 3 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/3 2335 [10415] 22044 73 222 2 0 0 0 >ACTIONS 132-134 JUMP IF A < 0 24/1/0 2411 [10416] 22045 76 227 2 0 0 0 >ACTION 156 JUMP unconditional 27/0/0 2411 [10417] 22046 70 227 2 0 0 0 >ACTION 156;CHECK L JUMP IF A == 0 1/1/3 0 [10418] 22047 10 0 0 0 0 CLEAR A SELECT LITERAL 18/1/3 6 [10419] 22048 33 0 0 0 6 ROUTE TYPE SHIFT (AB) BY BITS 1/1/2 5 [10420] 22049 12 0 0 0 5 SUBTRACT LITERAL 27/0/3 2284 [10421] 22050 73 221 20 0 0 0 >RT1-4 JUMP IF A < 0 27/0/0 2277 [10422] 22051 70 221 13 0 0 0 >RT5 JUMP IF A == 0 1/1/2 1 [10423] 22052 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 2266 [10424] 22053 70 221 2 0 0 0 >RT6 JUMP IF A == 0 1/1/2 3 [10425] 22054 12 0 0 0 3 SUBTRACT LITERAL 27/0/3 2288 [10426] 22055 73 221 24 0 0 0 >RT7,8 JUMP IF A < 0 27/0/0 2284 [10427] 22056 70 221 20 0 0 0 >RT9 JUMP IF A == 0 1/1/2 1 [10428] 22057 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 2266 [10429] 22058 70 221 2 0 0 0 >RT10 JUMP IF A == 0 1/1/2 1 [10430] 22059 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 2288 [10431] 22060 70 221 24 0 0 0 >RT11 JUMP IF A == 0 1/1/2 1 [10432] 22061 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 2266 [10433] 22062 70 221 2 0 0 0 >RT12 JUMP IF A == 0 1/1/2 1 [10434] 22063 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 2331 [10435] 22064 70 221 65 0 0 0 >RT13 JUMP IF A == 0 1/1/2 2 [10436] 22065 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 2266 [10437] 22066 70 221 2 0 0 0 >RT15 JUMP IF A == 0 1/1/2 1 [10438] 22067 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 2284 [10439] 22068 70 221 20 0 0 0 >RT16 JUMP IF A == 0 1/1/2 2 [10440] 22069 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 2331 [10441] 22070 70 221 65 0 0 0 >RT 18 JUMP IF A == 0 1/1/2 1 [10442] 22071 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 2284 [10443] 22072 70 221 20 0 0 0 >RT19 JUMP IF A == 0 1/1/2 1 [10444] 22073 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 2261 [10445] 22074 70 220 82 0 0 0 >RT 20 JUMP IF A == 0 1/1/2 2 [10446] 22075 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 2320 [10447] 22076 70 221 55 0 0 0 >22 JUMP IF A == 0 1/1/2 2 [10448] 22077 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 2273 [10449] 22078 70 221 9 0 0 0 >RT24 JUMP IF A == 0 1/1/2 1 [10450] 22079 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 2325 [10451] 22080 71 221 60 0 0 0 >NOT 25 JUMP IF A != 0 24/1/0 2284 [10452] 22081 76 221 20 0 0 0 >LIKE1 JUMP unconditional 6/0/0 104 [10453] 22082 12 54 0 0 0 ACTION SELECT 1/1/2 40 [10454] 22083 101 40 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 2339 [10455] 22084 70 222 6 0 0 0 >ACTION 40 JUMP IF A == 0 1/1/2 1 [10456] 22085 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 2325 [10457] 22086 70 221 60 0 0 0 >REJECT JUMP IF A == 0 Start of procedure 221 at location 2266 in chapter 3 [10458] [10458] 22100 PROCR 221 CHECK FILES (CONTD) 6/0/0 104 [10458] 22102 12 54 0 0 0 ACTION SELECT 1/1/2 42 [10459] 22103 101 42 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 2512 [10460] 22104 70 235 2 0 0 0 >OK JUMP IF A == 0 Source: RayS/Q1000170 6/0/0 104 [10461] 22105 12 54 0 0 0 RT 1-6+9-10 SELECT 1/1/2 42 [10462] 22106 101 42 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/3 2512 [10463] 22107 73 235 2 0 0 0 gOK JUMP IF A < 0 24/1/0 2325 [10464] 22108 76 221 60 0 0 0 gREJECT JUMP unconditional 6/0/0 104 [10465] 22109 12 54 0 0 0 ACTION SELECT 1/1/2 42 [10466] 22110 101 42 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 2512 [10467] 22111 70 235 2 0 0 0 gOK JUMP IF A == 0 24/1/0 2325 [10468] 22112 76 221 60 0 0 0 gREJECT JUMP unconditional 6/0/0 104 [10469] 22113 12 54 0 0 0 RT 5 SELECT 1/1/2 44 [10470] 22114 101 44 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 2266 [10471] 22115 71 221 2 0 0 0 JUMP IF A != 0 6/0/0 5308 [10472] 22116 1 16 0 0 0 L SELECT 1/1/2 3 [10473] 22117 12 0 0 0 3 SUBTRACT LITERAL 27/0/0 2512 [10474] 22118 70 235 2 0 0 0 gOK JUMP IF A == 0 24/1/0 2433 [10475] 22119 76 228 4 0 0 0 gIGNORE L JUMP unconditional 6/0/0 104 [10476] 22120 12 54 0 0 0 RT 1-4+9 SELECT 1/1/2 43 [10477] 22121 101 43 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 2512 [10478] 22122 70 235 2 0 0 0 gOK JUMP IF A == 0 24/1/0 2269 [10479] 22123 76 221 5 0 0 0 JUMP unconditional 6/0/0 104 [10480] 22124 0 12 54 0 0 0 BIN ACTION SELECT 1/1/2 48 [10481] 22125 12 0 0 0 30 48 SUBTRACT LITERAL 27/0/0 2315 [10482] 22126 70 221 50 0 0 0 gACTION 48 JUMP IF A == 0 6/0/0 104 [10483] 22127 12 54 0 0 0 SELECT 1/1/2 41 [10484] 22128 12 0 0 0 29 41 SUBTRACT LITERAL 27/0/0 2315 [10485] 22129 70 221 50 0 0 0 gACTION 41 FOR M/T JUMP IF A == 0 6/0/0 104 [10486] 22130 12 54 0 0 0 SELECT 1/1/2 44 [10487] 22131 12 0 0 0 2+ SUBTRACT LITERAL 27/0/0 2310 [10488] 22132 70 221 45 0 0 0 g44 JUMP IF A == 0 1/1/2 2 [10489] 22133 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 2301 [10490] 22134 70 221 37 0 0 0 g46 JUMP IF A == 0 1/1/2 1 [10491] 22135 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 2411 [10492] 22136 71 227 2 0 0 0 gNOT 47, CHECK L JUMP IF A != 0 6/1/0 5302 [10493] 22137 1 10 1 0 0 SELECT 27/0/3 2308 [10494] 22138 73 221 43 0 0 0 gREPORT JUMP IF A < 0 1/0/1 0 [10495] 22139 35 0 0 0 0 PREPARE FOR DIGIT COLLATION 18/1/3 3 [10496] 22140 33 0 0 0 1- SHIFT (AB) BY BITS 18/1/1 4127 [10497] 1/1/3 0 [10498] 22141 10 0 0 0 0 SELECT LITERAL 27/1/0 2411 [10499] 22142 74 227 2 0 0 0 gEVEN, OK JUMP IF AB == 0 // 27, 1, 0 26/0/0 1588 [10500] 22143 80 196 2 0 0 0 REPORT I ENTER SUBROUTINE 24/1/0 2411 [10501] 22144 76 227 2 0 0 0 JUMP unconditional 6/1/0 5308 [10502] 22145 1 16 1 0 0 L SELECT 1/1/2 2 [10503] 22146 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 2512 [10504] 22147 70 235 2 0 0 0 gOK JUMP IF A == 0 1/1/2 1 [10505] 22148 12 0 0 0 1 SUBTRACT LITERAL 24/1/0 2431 [10506] 22149 76 228 2 0 0 0 JUMP unconditional 6/1/0 5308 [10507] 22150 1 16 1 0 0 LITERAL SELECT 27/0/3 2434 [10508] 22151 73 228 5 0 0 0 gREPORT L JUMP IF A < 0 1/1/2 4 [10509] 22152 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 2434 [10510] 22153 72 228 5 0 0 0 gREPORT L JUMP IF A >= 0 24/1/0 2512 [10511] 22154 76 235 2 0 0 0 gOK JUMP unconditional 6/0/0 4709 [10512] 22155 317 87 0 0 0 CONST FOR 2ND C-LINE SELECT 2/0/0 4636 [10513] 22156 5 317 14 0 0 0 TRANSFER 6/0/0 104 [10514] 22157 12 54 0 0 0 ACTION SELECT Source: RayS/Q1000171 1/1/2 41 [10515] 22158 101 41 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 2284 [10516] 22159 71 221 20 0 0 0 gOK, NOT 41 JUMP IF A != 0 6/1/0 5214 [10517] 22160 10 0 0 0 5100000000 A SELECT LITERAL 2/1/0 5336 [10518] 22161 5 1 44 1 0 0 TRANSFER 26/0/0 4248 [10519] 22162 80 295 2 0 0 0 gIGNORE THIS INSTRUCTION ENTER SUBROUTINE 24/0/3 0 Extra code needed to address 5714 from 10520 (different chapter) 2/1/0 5714 [10521] 22163 5 2 60 1 0 0 SET C LINE IMPOSSIBLE TRANSFER 24/1/0 2211 [10522] 22164 76 220 32 0 0 0 gCHECK FOR C-LINE JUMP unconditional 6/0/0 104 [10523] 22165 12 54 0 0 0 SELECT 1/1/2 44 [10524] 22166 101 44 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/3 2512 [10525] 22167 73 235 2 0 0 0 gOK JUMP IF A < 0 24/1/0 2325 [10526] 22168 76 221 60 0 0 0 gREJECT JUMP unconditional Start of procedure 222 at location 2335 in chapter 3 [10527] [10527] 22200 PROCR 222 ACTIONS 132-134 1/1/3 0 [10527] 22202 10 0 0 0 0 CLEAR A SELECT LITERAL 18/1/3 6 [10528] 22203 33 0 0 0 6 RT SHIFT (AB) BY BITS 1/1/2 17 [10529] 22204 12 0 0 0 11 SUBTRACT LITERAL 27/0/1 2325 [10530] 22205 71 221 60 0 0 0 gWRONG FILE JUMP IF A != 0 6/1/0 5302 [10531] 22206 1 10 1 0 0 ITEM SELECT 27/0/3 2129 [10532] 22207 73 218 18 0 0 0 gIGNORE I JUMP IF A < 0 27/0/0 2129 [10533] 22208 70 218 18 0 0 0 gIGNORE I JUMP IF A == 0 1/1/2 256 [10534] 22209 12 0 0 0 100 SUBTRACT LITERAL 27/0/2 2129 [10535] 22210 72 218 18 0 0 0 gIGNORE I JUMP IF A >= 0 6/1/0 5302 [10536] 22211 1 10 1 0 0 SELECT 26/0/0 1358 [10537] 22212 80 183 2 0 0 0 gDECODE SECTION NO ENTER SUBROUTINE 0/0/2 90 [10538] 22213 34 12 40 0 0 0 COLLATION BIT SET (N) IN B 18/1/3 10 [10539] 22214 33 0 0 0 10 SHIFT (AB) BY BITS 15/0/3 122 [10540] 22215 36 12 72 0 3 0 COLLATE AND ADD 27/0/0 2129 [10541] 22216 70 218 18 0 0 0 gNOT A TX AREA, IGNORE I JUMP IF A == 0 24/1/0 2387 [10542] 22217 76 225 17 0 0 0 gX AREA CHECK, & CHECK L JUMP unconditional Start of procedure 223 at location 2351 in chapter 3 [10543] [10543] 22300 PROCR 223 ACTIONS 132-134 Start of procedure 224 at location 2351 in chapter 3 [10543] [10543] 22400 PROCR 224 TEST R IS A PROCEDURE NUMBER [10543] 22401 NOTES RADIX SWITCH=4 6/0/0 54 [10543] 22402 12 4 0 0 0 SELECT 27/0/1 2355 [10544] 22403 71 224 6 0 0 0 gNOT ABSOLUTE ADDRESS JUMP IF A != 0 6/0/0 5306 [10545] 22404 0 1 14 0 0 0 MOD DIGITS SELECT 27/0/1 2363 [10546] 22405 71 224 14 0 0 0 gOK JUMP IF A != 0 1/1/2 256 [10547] 22406 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 2147 [10548] 22407 73 218 36 0 0 0 gIGNORE R JUMP IF A < 0 1/1/2 2201 [10549] 22408 12 0 0 0 899 SUBTRACT LITERAL 27/0/3 2363 [10550] 22409 73 224 14 0 0 0 gOK JUMP IF A < 0 1/1/2 2 [10551] 22410 12 0 0 0 2 SUBTRACT LITERAL 27/0/3 2147 [10552] 22411 73 218 36 0 0 0 gIGNORE R JUMP IF A < 0 1/1/2 32 [10553] 22412 12 0 0 0 20 SUBTRACT LITERAL 27/0/2 2147 [10554] 22413 72 218 36 0 0 0 gIGNORE R JUMP IF A >= 0 6/0/0 104 [10555] 22414 12 54 0 0 0 SELECT 1/1/2 70 [10556] 22415 101 70 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/3 2368 [10557] 22416 73 224 19 0 0 0 gCHECK I JUMP IF A < 0 1/1/2 10 [10558] 22417 101 10 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/3 2411 [10559] 22418 73 227 2 0 0 0 gACTION 70-79, DON'T CHECK I JUMP IF A < 0 6/0/0 5302 [10560] 22419 1 10 0 0 0 SELECT 26/0/0 1568 [10561] 22420 80 192 2 0 0 0 gCHECK I EVEN ENTER SUBROUTINE Source: KenK/Q1000172 24/1/0 2411 [10562] 22421 76 227 2 0 0 0 gCHECK LITERAL JUMP unconditional Start of procedure 225 at location 2371 in chapter 3 [10563] [10563] 22500 PROCR 225 [10563] 22501 NOTES RADIX 1/1/3 1 [10563] 22502 10 0 0 0 1 SWITCHES SELECT LITERAL 2/0/0 109 [10564] 22503 5 12 59 0 0 0 TRANSFER 24/1/0 2113 [10565] 22504 76 218 2 0 0 0 gCHECK R IS A SECTION JUMP unconditional 1/1/3 0 [10566] 22505 10 0 0 0 0 SELECT LITERAL 0/0/2 90 [10567] 22506 34 12 40 0 0 0 SET (N) IN B 18/1/3 10 [10568] 22507 33 0 0 0 10 SHIFT (AB) BY BITS 15/0/3 122 [10569] 22508 36 12 72 0 3 0 COLLATE TX AREA IND COLLATE AND ADD 27/0/0 2404 [10570] 22509 70 225 31 0 0 0 gNOT, IGNORE PREVIOUS INSTRUCTION JUMP IF A == 0 1/1/3 0 [10571] 22510 10 0 0 0 0 SELECT LITERAL 0/0/2 4820 [10572] 22511 34 320 44 0 0 0 BITS 1-6 SET (N) IN B 24/0/1 8182 [10573] 22512 36 91 5 0 5 0 COLLATE AND ADD 15/0/0 6057 [10574] 1/1/2 3 [10575] 22513 12 0 0 0 3 SUBTRACT LITERAL 27/0/0 2411 [10576] 22514 70 227 2 0 0 0 gRT 3 CARD O/P JUMP IF A == 0 1/1/2 1 [10577] 22515 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 2411 [10578] 22516 70 227 2 0 0 0 gRT 4;GP PRINT JUMP IF A == 0 24/0/3 22 [10579] 22517 96 0 0 3 0 SELECT MODIFIER 6/0/0 6 [10580] 1/0/1 0 [10581] 22518 35 0 0 0 0 CLEAR B PREPARE FOR DIGIT COLLATION 18/1/3 3 [10582] 22519 33 0 0 0 1- HALVE THE MODIFIER SHIFT (AB) BY BITS 18/1/1 4127 [10583] 24/0/3 22 [10584] 22520 92 0 0 3 0 SET NEW MODIFIER, CLEAR A SET MODIFIER AT VARIABLE 2/0/0 6 [10585] 27/1/0 2399 [10586] 22521 74 225 26 0 0 0 g NO REMAINDER JUMP IF AB == 0 // 27, 1, 0 0/0/2 90 [10587] 22522 34 12 40 0 0 0 SET (N) IN B 6/0/0 90 [10588] 22523 12 40 0 0 0 SELECT 18/1/3 10 [10589] 22524 33 0 0 0 10 FORM 5-LOCN MATRIX FOR ALL TX AREAS SHIFT (AB) BY BITS 24/1/0 2401 [10590] 22525 76 225 28 0 0 0 NOT USED IN GPOP ORDERS JUMP unconditional 6/0/0 90 [10591] 22526 12 40 0 0 0 SELECT 0/0/2 90 [10592] 22527 34 12 40 0 0 0 SET (N) IN B 14/0/3 150 [10593] 22528 37 12 100 0 3 0 SET BIT REPLACE SELECTED BITS 0/0/3 5106 [10594] 22529 60 0 0 0 0 AREA PATTERN SET DECIMAL RADIX 24/1/0 2411 [10595] 22530 76 227 2 0 0 0 JUMP unconditional 26/0/0 4252 [10596] 22531 80 296 2 0 0 0 IGNORE PREVIOUS;INSTRUCTION ENTER SUBROUTINE 24/1/0 2209 [10597] 22532 76 220 30 0 0 0 JUMP unconditional Start of procedure 226 at location 2406 in chapter 3 [10598] [10598] 22600 PROCR 226 TEST REFERENCE IS GREATER THAN 99 [10598] 22601 NOTES RADIX SWITCH=6 6/0/0 54 [10598] 22602 12 4 0 0 0 SELECT 1/1/2 256 [10599] 22603 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 2147 [10600] 22604 73 218 36 0 0 0 JUMP IF A < 0 1/1/2 2304 [10601] 22605 12 0 0 0 900 SUBTRACT LITERAL 27/0/2 2147 [10602] 22606 72 218 36 0 0 0 IGNORE R JUMP IF A >= 0 Start of procedure 227 at location 2411 in chapter 3 [10603] [10603] 22700 PROCR 227 SWITCH FOR LITERALS [10603] 22701 NOTES RADIX CHECK L IS NOT > 10 QUARTETS Source: KenK/Q1000173 6/1/0 5310 [10603] 22702 0 1 18 1 0 0 SELECT 27/0/1 2433 [10604] 22703 71 228 4 0 0 0 gIGNORE L JUMP IF A != 0 0/1/2 5308 [10605] 22704 34 1 16 1 0 0 SET (N) IN B 18/1/1 10 [10606] 22705 32 0 0 0 10 SHIFT (AB) BY QUARTETS 2/1/0 5310 [10607] 22706 5 1 18 1 0 0 STORE MODULUS L TRANSFER 24/0/1 8164 [10608] 22707 85 227 2 0 0 0 SWITCH R 26/0/1 2417 [10609] 0/0/1 2512 [10610] 22708 C 235 2 0 0 0 gNO FURTHER CHECK 0/0/1 2459 [10611] 22709 C 233 2 0 0 0 gMOD L<8192 0/0/1 2436 [10612] 22710 C 229 2 0 0 0 gL POSITIVE/ZERO 0/0/1 2439 [10613] 22711 C 230 2 0 0 0 MOD<32 0/0/1 2444 [10614] 22712 C 231 2 0 0 0 L HAS DIGITS 0 OR 1 0/0/1 2454 [10615] 22713 C 232 2 0 0 0 1-<L<16 0/0/1 2469 [10616] 22714 C 233 12 0 0 0 1-<L<8182 0/0/1 2478 [10617] 22715 C 234 2 0 0 0 -1<L<5 QTTS 0/0/1 2481 [10618] 22716 C 234 5 0 0 0 MOD L<4096 0/0/1 2493 [10619] 22717 C 234 17 0 0 0 gL NONZERO 0/0/1 2496 [10620] 22718 C 234 20 0 0 0 gL ZERO 0/0/1 2498 [10621] 22719 C 234 22 0 0 0 gL<100 0/0/1 2508 [10622] 22720 C 234 32 0 0 0 gIF L=0,MUST HAVE C-LINE Start of procedure 228 at location 2431 in chapter 3 [10623] [10623] 22800 PROCR 228 MAKE REPORTS ON L [10623] 22801 NOTES RADIX SWITCH=2 27/0/0 2512 [10623] 22802 70 235 2 0 0 0 JUMP IF A == 0 24/1/0 2434 [10624] 22803 76 228 5 0 0 0 JUMP unconditional 26/0/0 4248 [10625] 22804 80 295 2 0 0 0 gIGNORE ENTER SUBROUTINE 26/0/0 1592 [10626] 22805 80 197 2 0 0 0 gREPORT L ENTER SUBROUTINE 24/1/0 2512 [10627] 22806 76 235 2 0 0 0 gEND OF CHECKS JUMP unconditional Start of procedure 229 at location 2436 in chapter 3 [10628] [10628] 22900 PROCR 229 TEST L IS POSITIVE OR ZERO [10628] 22901 NOTES RADIX SWITCH=3 6/1/0 5308 [10628] 22902 1 16 1 0 0 (ACTIONS 11,12) SELECT 27/0/2 2512 [10629] 22903 72 235 2 0 0 0 gOK JUMP IF A >= 0 24/1/0 2433 [10630] 22904 76 228 4 0 0 0 gIGNORE L JUMP unconditional Start of procedure 230 at location 2439 in chapter 3 [10631] [10631] 23000 PROCR 230 L=1-31 INCLUSIVE [10631] 23001 NOTES RADIX SWITCH=4 Source: KenK/Q1000183 Query: believe item=18 by comparison to other procrs annotated MOD L 6/1/0 5310 [10631] 23002 0 1 18 1 0 0 MOD L;(ACTIONS 30-33) SELECT 27/0/0 2434 [10632] 23003 70 228 5 0 0 0 gREPORT L JUMP IF A == 0 1/1/2 50 [10633] 23004 12 0 0 0 32 SUBTRACT LITERAL 27/0/2 2434 [10634] 23005 72 228 5 0 0 0 gREPORT L JUMP IF A >= 0 24/1/0 2512 [10635] 23006 76 235 2 0 0 0 JUMP unconditional Start of procedure 231 at location 2444 in chapter 3 [10636] [10636] 23100 PROCR 231 TEST DIGITS OF L ARE 1 OR 0 [10636] 23101 NOTES RADIX SWITCH=5 26/1/3 5216 [10636] 23102 90 0 0 3 0 ACTION 35, CERTAIN GROUP 4 SET MODIFICATION REGISTER AT LITERAL [10637] 23103 C 0 0 0 10 Limit 1/1/3 0 [10637] 23104 10 0 0 0 0 SELECT LITERAL 0/1/2 5308 [10638] 23105 34 1 16 1 0 0 SET (N) IN B 18/1/1 1 [10639] 23106 32 0 0 0 1 SHIFT (AB) BY QUARTETS 27/0/0 2451 [10640] 23107 70 231 10 0 0 0 JUMP IF A == 0 1/1/2 1 [10641] 23108 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 2434 [10642] 23109 71 228 5 0 0 0 JUMP IF A != 0 25/0/3 1 [10643] 23110 94 231 6 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2447 [10644] s 24/1/0 2512 [10645] 23111 76 235 2 0 0 0 gOK JUMP unconditional Start of procedure 232 at location 2454 in chapter 3 [10646] [10646] 23200 PROCR 232 TEST L IS IN RANGE 1-15 [10646] 23201 NOTES RADIX SWITCH=6 6/1/0 5308 [10646] 23202 1 16 1 0 0 ACTION 38 SELECT 27/0/3 2433 [10647] 23203 73 228 4 0 0 0 gREPORT L IGNORE JUMP IF A < 0 1/1/2 22 [10648] 23204 12 0 0 0 16 SUBTRACT LITERAL 27/0/2 2434 [10649] 23205 72 228 5 0 0 0 JUMP IF A >= 0 24/1/0 2512 [10650] 23206 76 235 2 0 0 0 gOK JUMP unconditional Start of procedure 233 at location 2459 in chapter 3 [10651] [10651] 23300 PROCR 233 L IS LESS THAN 8192 – BULK COPY [10651] 23301 NOTES RADIX SWITCH=7 6/0/0 111 [10651] 23302 12 61 0 0 0 C-LINE IND;(ACTION 90) SELECT 27/0/1 2464 [10652] 23303 71 233 7 0 0 0 gNOT C-LINE JUMP IF A != 0 6/0/0 96 [10653] 23304 12 46 0 0 0 FIRST LINE LITERAL SELECT 0/0/2 5310 [10654] 23305 34 1 18 0 0 0 C-LINE LITERAL SET (N) IN B 27/1/0 2434 [10655] 23306 74 228 5 0 0 0 gREPORT L IF BOTH ZERO JUMP IF AB == 0 // 27, 1, 0 6/1/0 5310 [10656] 23307 1 18 1 0 0 SELECT 3/0/0 96 [10657] 23308 3 12 46 0 0 0 COPY 5/0/0 5107 [10658] 23309 12 0 0 0 8192 SUBTRACT LITERAL 27/0/2 2434 [10659] 23310 72 228 5 0 0 0 gREPORT L JUMP IF A >= 0 24/1/0 2512 [10660] 23311 76 235 2 0 0 0 gOK JUMP unconditional 6/1/0 5308 [10661] 23312 1 16 1 0 0 ACTION 55 SELECT 27/0/3 2433 [10662] 23313 73 228 4 0 0 0 gIGNORE L JUMP IF A < 0 6/0/0 5304 [10663] 23314 1 12 0 0 0 DISC SELECT 27/0/0 2474 [10664] 23315 70 233 17 0 0 0 gSHORT JUMP IF A == 0 6/0/0 5108 [10665] 23316 10 0 0 0 4095 SELECT LITERAL 4/0/0 5109 [10666] 23317 11 0 0 0 4095 ADD LITERAL 5/1/0 5308 [10667] 23318 2 1 16 1 0 0 SUBTRACT 27/0/3 2433 [10668] 23319 73 228 4 0 0 0 gIGNORE L JUMP IF A < 0 24/1/0 2512 [10669] 23320 76 235 2 0 0 0 gOK JUMP unconditional Start of procedure 234 at location 2478 in chapter 3 [10670] [10670] 23400 PROCR 234 [10670] 23401 NOTES RADIX 6/1/0 5308 [10670] 23402 0 1 16 1 0 0 LITERAL IN 5 QUARTETS SELECT 18/0/1 4123 [10671] 23403 30 0 0 0 5- (LEAVE SIGN IN A) SHIFT (A) BY QUARTETS 24/1/0 2431 [10672] 23404 76 228 2 0 0 0 JUMP unconditional 6/0/0 104 [10673] 23405 0 12 54 0 0 0 ACTIONS 54,94 SELECT 1/1/2 54 [10674] 23406 12 0 0 0 36 SUBTRACT LITERAL 27/0/1 2490 [10675] 23407 71 234 14 0 0 0 gNOT ACTION 54 JUMP IF A != 0 6/1/0 5308 [10676] 23408 0 1 16 1 0 0 SELECT 27/0/3 2433 [10677] 23409 73 228 4 0 0 0 gIGNORE L JUMP IF A < 0 Query: action believed to be 70: line 23411 may be missing or on next page 27/0/0 2510 [10678] 23410 70 234 34 0 0 0 JUMP IF A == 0 Source: TonyJ/Q1000185 1/1/3 0 [10679] 23411 10 0 0 0 0 SELECT LITERAL 2/1/0 110 [10680] 23412 5 12 60 1 0 0 TRANSFER 24/1/0 2471 [10681] 23413 76 233 14 0 0 0 >CHECK RANGE JUMP unconditional 6/1/0 5310 [10682] 23414 0 1 18 1 0 0 MOD L SELECT 5/0/0 5110 [10683] 23415 12 0 0 0 4096 SUBTRACT LITERAL 24/1/0 2442 [10684] 23416 76 230 5 0 0 0 JUMP unconditional 6/1/0 5308 [10685] 23417 0 1 16 1 0 0 CHECK L NONZERO (ACTION 17:19) SELECT 27/0/0 2434 [10686] 23418 70 228 5 0 0 0 JUMP IF A == 0 24/1/0 2512 [10687] 23419 76 235 2 0 0 0 JUMP unconditional 6/1/0 5308 [10688] 23420 1 16 1 0 0 CHECK L=0 ACTIONS 83 SELECT 24/1/0 2431 [10689] 23421 76 228 2 0 0 0 JUMP unconditional 6/1/0 5308 [10690] 23422 1 16 1 0 0 L<100 SELECT 27/0/3 2434 [10691] 23423 73 228 5 0 0 0 > REPORT L JUMP IF A < 0 1/1/2 256 [10692] 23424 12 0 0 0 100 SUBTRACT LITERAL 27/0/2 2433 [10693] 23425 72 228 4 0 0 0 > IGNORE L JUMP IF A >= 0 6/0/0 104 [10694] 23426 0 12 54 0 0 0 ACTION SELECT 1/1/2 83 [10695] 23427 101 83 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 2512 [10696] 23428 71 235 2 0 0 0 > NOT 83 JUMP IF A != 0 6/0/0 5308 [10697] 23429 0 1 16 0 0 0 SELECT 27/0/0 2433 [10698] 23430 70 228 4 0 0 0 > IGNORE L JUMP IF A == 0 24/1/0 2512 [10699] 23431 76 235 2 0 0 0 JUMP unconditional 6/1/0 5308 [10700] 23432 0 1 16 1 0 0 ACTION 77, 78 SELECT 27/0/1 2512 [10701] 23433 71 235 2 0 0 0 > OK JUMP IF A != 0 1/1/3 1 [10702] 23434 10 0 0 0 1 (ZERO L FOR 54, 77, 78 ACTIONS) SELECT LITERAL 2/0/0 111 [10703] 23435 5 12 61 0 0 0 MUST BE C-LINE TRANSFER Start of procedure 235 at location 2512 in chapter 3 [10704] [10704] 23500 PROCR 235 235 TEST FP/MG USED, STORE MR>3 DETAILS [10704] 23501 NOTES RADIX 0/0/3 0 [10704] 23502 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 104 [10705] 23503 12 54 0 0 0 SELECT 1/1/2 20 [10706] 23504 12 0 0 0 14 TEST ACTION IS 20 - 29 SUBTRACT LITERAL 27/0/3 2810 [10707] 23505 73 247 2 0 0 0 JUMP IF A < 0 1/1/2 10 [10708] 23506 12 0 0 0 t SUBTRACT LITERAL 27/0/3 2527 [10709] 23507 73 235 17 0 0 0 JUMP IF A < 0 1/1/2 21 [10710] 23508 12 0 0 0 15 SUBTRACT LITERAL 27/0/3 2810 [10711] 23509 73 247 2 0 0 0 >30 - 50 JUMP IF A < 0 1/1/2 15 [10712] 23510 12 0 0 0 £ SUBTRACT LITERAL 27/0/0 2524 [10713] 23511 70 235 14 0 0 0 > 66 JUMP IF A == 0 Source: RayS/Q1000186 1/1/2 1 [10714] 23512 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 2529 [10715] 23513 71 235 19 0 0 0 gNOT 67 JUMP IF A != 0 6/0/0 5111 [10716] 23514 10 0 0 0 1- SELECT LITERAL 2/0/0 6019 [10717] 23515 5 92 5 0 0 0 TRANSFER 24/1/0 2529 [10718] 23516 76 235 19 0 0 0 JUMP unconditional 2/0/0 6019 [10719] 23517 5 92 5 0 0 0 SET F. PT. INDICATOR FOR PASS 3 TRANSFER 24/1/0 2810 [10720] 23518 76 247 2 0 0 0 JUMP unconditional 6/0/0 5306 [10721] 23519 1 14 0 0 0 MOD DIGITS SELECT 26/0/0 2771 [10722] 23520 80 245 2 0 0 0 gCONVERT ENTER SUBROUTINE 3/0/0 138 [10723] 23521 3 12 88 0 0 0 STORE COPY 27/0/0 2557 [10724] 23522 70 236 2 0 0 0 JUMP IF A == 0 1/1/2 4 [10725] 23523 12 0 0 0 4 SUBTRACT LITERAL 27/0/3 2557 [10726] 23524 73 236 2 0 0 0 gMR 1-3 JUMP IF A < 0 6/0/0 104 [10727] 23525 12 54 0 0 0 ACTION SELECT 1/1/2 59 [10728] 23526 12 0 0 0 3e 59 SUBTRACT LITERAL 27/0/0 2542 [10729] 23527 70 235 32 0 0 0 gACTION 59 JUMP IF A == 0 1/1/2 31 [10730] 23528 12 0 0 0 1p 31 SUBTRACT LITERAL 27/0/3 2557 [10731] 23529 73 236 2 0 0 0 g<90 JUMP IF A < 0 1/1/2 4 [10732] 23530 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 2557 [10733] 23531 72 236 2 0 0 0 g>93 JUMP IF A >= 0 26/1/3 5430 [10734] 23532 91 71 0 0 3 0 CTR OF MR'S (INITIALLY 0:0) SET MODIFICATION REGISTER AT VARIABLE 1/1/3 0 [10735] 23533 10 0 0 0 0 SELECT LITERAL 1/0/1 3 [10736] 23534 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 15/0/3 5432 [10737] 23535 36 71 2 0 3 0 COLLATE AND ADD 27/0/0 2551 [10738] 23536 70 235 40 0 0 0 gNONE STORED YET JUMP IF A == 0 5/0/0 138 [10739] 23537 2 12 88 0 0 0 THIS ONE SUBTRACT 27/0/0 2557 [10740] 23538 70 236 2 0 0 0 gALREADY STORED JUMP IF A == 0 25/0/3 1 [10741] 23539 94 235 33 0 3 1 gSEARCH STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2543 [10742] 6/0/0 6014 [10743] 23540 92 0 0 0 0 UNCORR CHAP (BIN) SELECT 18/0/1 4 [10744] 23541 30 0 0 0 4 SHIFT (A) BY QUARTETS 4/0/0 138 [10745] 23542 1 12 88 0 0 0 MR (BIN) ADD 2/0/3 5432 [10746] 23543 5 71 2 0 3 0 STORE DETAIL TRANSFER 1/1/3 1 [10747] 23544 10 0 0 0 1 SELECT LITERAL 7/0/0 5431 [10748] 23545 4 71 1 0 0 0 AUG CTR AUGMENT Start of procedure 236 at location 2557 in chapter 3 [10749] [10749] 23600 PROCR 236 TEST ACTION IS C [10749] 23601 NOTES RADIX FOR ACTIONS 85 AND 150 0/0/3 0 [10749] 23602 62 0 0 0 0 SET EXCESS CONSTANTS Start of procedure 237 at location 2558 in chapter 3 [10750] [10750] 23700 PROCR 237 TEST FOR SEQUENCE CHANGES [10750] 23701 NOTES RADIX 6/0/0 104 [10750] 23702 0 12 54 0 0 0 BIN ACTION SELECT 1/1/2 70 [10751] 23703 12 0 0 0 46 SUBTRACT LITERAL 27/0/3 2726 [10752] 23704 73 243 2 0 0 0 gACTION <70 JUMP IF A < 0 1/1/2 7 [10753] 23705 12 0 0 0 7 SUBTRACT LITERAL 27/0/3 2632 [10754] 23706 73 240 2 0 0 0 ACTIONS 70-76 JUMP IF A < 0 1/1/2 2 [10755] 23707 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 2632 [10756] 23708 70 240 2 0 0 0 gACTION 79 JUMP IF A == 0 27/0/2 2570 [10757] 23709 72 237 14 0 0 0 gOTHERS JUMP IF A >= 0 6/1/0 5298 [10758] 23710 0 1 6 1 0 0 ACTION OR C SELECT 5/1/0 5218 [10759] 23711 12 0 0 0 5300000000 SUBTRACT LITERAL 27/0/1 2632 [10760] 23712 71 240 2 0 0 0 gMAINLINE OF 77, 78 JUMP IF A != 0 24/1/0 2810 [10761] 23713 76 247 2 0 0 0 gHENCE C-LINE OF 77-78 JUMP unconditional 1/1/2 6 [10762] 23714 12 0 0 0 6 SUBTRACT LITERAL 27/0/0 2585 [10763] 23715 70 238 2 0 0 0 gACTION 85 JUMP IF A == 0 Source: KenK/Q1000187 1/1/2 2 [10764] 23716 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 2578 [10765] 23717 70 237 22 0 0 0 g87 JUMP IF A == 0 1/1/2 7 [10766] 23718 12 0 0 0 7 SUBTRACT LITERAL 27/0/0 2622 [10767] 23719 70 239 13 0 0 0 gACTION 94 JUMP IF A == 0 1/1/2 3 [10768] 23720 12 0 0 0 3 SUBTRACT LITERAL 27/0/1 2582 [10769] 23721 71 237 26 0 0 0 gACTIONS>97 JUMP IF A != 0 6/0/0 5299 [10770] 23722 1 7 0 0 0 SELECT 5/0/0 5112 [10771] 23723 12 0 0 0 53000 SUBTRACT LITERAL 27/0/0 2632 [10772] 23724 70 240 2 0 0 0 gIS C-LINE, COUNT AS CHANGE JUMP IF A == 0 24/1/0 2810 [10773] 23725 76 247 2 0 0 0 gOUTPUT JUMP unconditional 1/1/2 53 [10774] 23726 12 0 0 0 35 SUBTRACT LITERAL 27/0/0 2578 [10775] 23727 70 237 22 0 0 0 gACTION 150 JUMP IF A == 0 24/1/0 2611 [10776] 23728 76 239 2 0 0 0 gTRY MACHINE CODE ACTIONS JUMP unconditional Start of procedure 238 at location 2585 in chapter 3 [10777] [10777] 23800 PROCR 238 FORM SWITCH DETAILS [10777] 23801 NOTES RADIX 6/0/0 5299 [10777] 23802 1 7 0 0 0 SELECT 5/0/0 5113 [10778] 23803 12 0 0 0 53000 SUBTRACT LITERAL 27/0/0 2632 [10779] 23804 70 240 2 0 0 0 gIS C-LINE OF 85 ACTION JUMP IF A == 0 26/1/3 6100 [10780] 23805 91 95 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 6/0/0 54 [10781] 23806 12 4 0 0 0 PROCR SELECT 26/0/0 2771 [10782] 23807 80 245 2 0 0 0 gCONVERT ENTER SUBROUTINE 2/0/0 82 [10783] 23808 5 12 32 0 0 0 TRANSFER 1/1/3 0 [10784] 23809 10 0 0 0 0 SELECT LITERAL 0/0/2 4746 [10785] 23810 34 319 20 0 0 0 BITS 1-10 SET (N) IN B 15/0/3 6102 [10786] 23811 36 95 2 0 3 0 COLLATE AND ADD 27/0/0 2600 [10787] 23812 70 238 16 0 0 0 gNONE STORED YET JUMP IF A == 0 5/0/0 82 [10788] 23813 2 12 32 0 0 0 SUBTRACT 27/0/0 2609 [10789] 23814 70 238 25 0 0 0 gALREADY STORED JUMP IF A == 0 25/0/3 1 [10790] 23815 94 238 9 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2592 [10791] 6/0/0 6101 [10792] 23816 0 95 1 0 0 0 SELECT 1/1/2 48 [10793] 23817 12 0 0 0 30 SUBTRACT LITERAL 27/0/2 2609 [10794] 23818 72 238 25 0 0 0 gDONT STORE 49-TH JUMP IF A >= 0 6/0/0 6014 [10795] 23819 0 92 0 0 0 0 CURRENT BIN UNCORR CHAP SELECT 18/0/1 4 [10796] 23820 30 0 0 0 4 SHIFT (A) BY QUARTETS 4/0/0 82 [10797] 23821 1 12 32 0 0 0 SWITCH PROCR ADD 2/0/3 6102 [10798] 23822 5 95 2 0 3 0 STORE DETAIL TRANSFER 1/1/3 1 [10799] 23823 10 0 0 0 1 SELECT LITERAL 7/0/0 6101 [10800] 23824 4 95 1 0 0 0 STEP CTR AUGMENT 0/0/3 5114 [10801] 23825 60 0 0 0 0 COUNTER IN BINARY SET DECIMAL RADIX 24/1/0 2810 [10802] 23826 76 247 2 0 0 0 gO/P INSTRUCTION JUMP unconditional Start of procedure 239 at location 2611 in chapter 3 [10803] [10803] 23900 PROCR 239 MACHINE CODE SEQUENCE CHANGES [10803] 23901 NOTES RADIX 6/0/0 104 [10803] 23902 0 12 54 0 0 0 BIN ACTION SELECT 1/1/2 127 [10804] 23903 12 0 0 0 7p SUBTRACT LITERAL 27/0/0 2632 [10805] 23904 70 240 2 0 0 0 gACTION 127/D/M JUMP IF A == 0 1/1/1 3 [10806] 23905 11 0 0 0 3 ADD LITERAL 27/0/1 2672 [10807] 23906 71 241 2 0 0 0 gNOT 124/D/M JUMP IF A != 0 6/0/0 5304 [10808] 23907 1 12 0 0 0 SELECT 1/1/2 1 [10809] 23908 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 2672 [10810] 23909 71 241 2 0 0 0 gNOT 124/1/M JUMP IF A != 0 6/0/0 5306 [10811] 23910 1 14 0 0 0 SELECT 27/0/1 2672 [10812] 23911 71 241 2 0 0 0 gNOT 124/1/0 JUMP IF A != 0 24/1/0 2632 [10813] 23912 76 240 2 0 0 0 ;ACTION 94 JUMP unconditional 0/0/3 5115 [10814] 23913 60 0 0 0 0 SET DECIMAL RADIX 6/1/0 5308 [10815] 23914 0 1 16 1 0 0 SELECT 27/0/1 2626 [10816] 23915 71 239 17 0 0 0 JUMP IF A != 0 Source: KenK/Q1000188 26/0/0 1592 [10817] 23916 80 197 2 0 0 0 gREPORT L ENTER SUBROUTINE 6/1/0 5300 [10818] 23917 0 1 8 1 0 0 SELECT 27/0/1 2632 [10819] 23918 71 240 2 0 0 0 gCOUNT AS SEQ CHANGE JUMP IF A != 0 6/0/0 5302 [10820] 23919 0 1 10 0 0 0 SELECT 27/0/0 2810 [10821] 23920 70 247 2 0 0 0 JUMP IF A == 0 26/0/0 1588 [10822] 23921 80 196 2 0 0 0 gREPORT I ENTER SUBROUTINE 24/1/0 2810 [10823] 23922 76 247 2 0 0 0 JUMP unconditional Start of procedure 240 at location 2632 in chapter 3 [10824] [10824] 24000 PROCR 240 TEST IF SEQUENCE CHANGE IS FORWARD OR BACK [10824] 24001 NOTES RADIX 6/0/0 54 [10824] 24002 0 12 4 0 0 0 DEC REF SELECT 1/1/2 2457 [10825] 24003 12 0 0 0 999 SUBTRACT LITERAL 27/0/2 2810 [10826] 24004 72 247 2 0 0 0 JUMP IF A >= 0 6/0/0 6017 [10827] 24005 0 92 3 0 0 0 (CURRENT LINE SERIAL) SELECT 18/0/1 2 [10828] 24006 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 59 [10829] 24007 1 12 9 0 0 0 SEQ CHANGE SOURCE ADD 3/0/0 168 [10830] 24008 3 12 118 0 0 0 SOURCE COPY 5/1/0 5301 [10831] 24009 2 1 8 2 0 0 L-ALIGNED REF SUBTRACT 5/0/0 5302 [10832] 24010 2 1 10 0 0 0 ITEM SUBTRACT 27/0/3 2810 [10833] 24011 73 247 2 0 0 0 gSOURCE<DEST. SEQ CHANGE FWD JUMP IF A < 0 6/1/0 5301 [10834] 24012 1 8 2 0 0 SELECT 27/0/0 2810 [10835] 24013 70 247 2 0 0 0 gSC TO ABS ADDRESS, DON'T STORE JUMP IF A == 0 4/0/0 5302 [10836] 24014 1 1 10 0 0 0 ADD 27/0/3 2810 [10837] 24015 73 247 2 0 0 0 gSKIP JUMP IF A < 0 2/0/0 169 [10838] 24016 5 12 119 0 0 0 DESTINATION TRANSFER 6/1/0 168 [10839] 24017 0 12 118 1 0 0 SELECT 0/0/3 0 [10840] 24018 62 0 0 0 0 SET EXCESS CONSTANTS 24/1/2 6023 [10841] 24019 124 92 9 1 2 0 ABS START OF LIST 918+2496 INITIALLY) MODIFY ADDRESS OF NEXT 1/1/0 0 [10842] 24020 101 0 1 0 0 TABLE LOOKUP TABLE LOOK UP 18/1/1 10 [10843] 24021 32 0 0 0 10 SHIFT (AB) BY QUARTETS 3/1/0 40 [10844] 24022 91 0 0 1 0 STORE LOCN OF FIRST GREATER SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [10845] 5/0/0 6023 [10846] 24023 2 92 9 0 0 0 SUBTRACT 18/0/1 5 [10847] 24024 30 0 0 0 5 SHIFT QTTY TO BE MOVED SHIFT (A) BY QUARTETS 4/0/0 6023 [10848] 24025 1 92 9 0 0 0 START ADD 2/1/0 138 [10849] 24026 5 12 88 1 0 0 WL=BULK COPY TABLE ENTRY TRANSFER 6/0/0 6023 [10850] 24027 0 92 9 0 0 0 CURRENT LIST START SELECT 5/0/0 4712 [10851] 24028 2 317 90 0 0 0 ABS ADDRESS 18:0 SUBTRACT 27/0/0 2810 [10852] 24029 70 247 2 0 0 0 gLIST FULL, DONT STORE JUMP IF A == 0 6/0/0 5116 [10853] 24030 10 0 0 0 2- SELECT LITERAL 7/0/0 6023 [10854] 24031 4 92 9 0 0 0 ADJUST FOR NEW START AUGMENT 6/1/0 138 [10855] 24032 12 88 1 0 0 SELECT 24/1/2 6023 [10856] 24033 124 92 9 1 2 0 MODIFY ADDRESS OF NEXT 28/1/1 0 [10857] 24034 128 0 1 1 0 BULK COPY UP ONE WORD BULK COPY LONG NUMERIC 25/0/1 4098 [10858] 24035 94 0 0 1 2- ADJUST STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2668 [10859] 6/1/0 168 [10860] 24036 12 118 1 0 0 NEW SEQ CH BACK SELECT 24/0/3 0 Extra code needed to address absolute 2/1/1 0 [10862] 24037 5 0 1 1 0 PLACE IN LIST TRANSFER 24/1/0 2810 [10863] 24038 76 247 2 0 0 0 JUMP unconditional Start of procedure 241 at location 2672 in chapter 3 [10864] [10864] 24100 PROCR 241 STORE OVERLAY DETAILS [10864] 24101 NOTES RADIX 6/0/0 104 [10864] 24102 12 54 0 0 0 BIN ACTION SELECT Source: KenK/Q1000189 1/1/2 152 [10865] 24103 12 0 0 0 98 SUBTRACT LITERAL 27/0/1 2726 [10866] 24104 71 243 2 0 0 0 gNOT ACTION 152, OVERLAY JUMP IF A != 0 26/1/3 62 [10867] 24105 91 12 12 0 3 0 SCAN CHAPTER STARTS SET MODIFICATION REGISTER AT VARIABLE 6/0/0 54 [10868] 24106 12 4 0 0 0 PROCR OF OLAID/OLAYER CHAP START SELECT 5/0/3 64 [10869] 24107 2 12 14 0 3 0 NEXT CHAP START SUBTRACT 27/0/0 2684 [10870] 24108 70 241 13 0 0 0 gMATCH FOUND JUMP IF A == 0 25/0/3 1 [10871] 24109 94 241 6 0 3 1 gTRY NEXT STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2676 [10872] 26/0/0 1584 [10873] 24110 80 195 2 0 0 0 gREPORT R ENTER SUBROUTINE 26/0/0 4248 [10874] 24111 80 295 2 0 0 0 gIGNORE INSTRUCTION ENTER SUBROUTINE 24/1/0 2686 [10875] 24112 76 241 14 0 0 0 gPRETEND IS CHAP 1 JUMP unconditional 24/0/3 22 [10876] 24113 95 0 0 3 0 SELECT MODIFICATION REGISTER 6/1/0 6 [10877] 1/1/1 1 [10878] 24114 11 0 0 0 1 ADD LITERAL 2/0/0 96 [10879] 24115 5 12 46 0 0 0 TRANSFER 6/0/0 111 [10880] 24116 0 12 61 0 0 0 IS C-LINE READ YET? SELECT 27/0/0 2693 [10881] 24117 70 242 2 0 0 0 gTHIS IS C-LINE NOW JUMP IF A == 0 6/0/0 96 [10882] 24118 0 12 46 0 0 0 OLAID CHAP SELECT 2/0/0 97 [10883] 24119 5 12 47 0 0 0 TRANSFER 24/1/0 2810 [10884] 24120 76 247 2 0 0 0 gO/P+READ C-LINE JUMP unconditional Start of procedure 242 at location 2693 in chapter 3 [10885] [10885] 24200 PROCR 242 UPDATE CORR CHAP INDEX, UPDATE NO OF INITIAL CHAPS [10885] 24201 NOTES RADIX 1/1/3 16 [10885] 24202 10 0 0 0 10 BIT 5 SELECT LITERAL 18/1/1 4118 [10886] 24203 32 0 0 0 10- SHIFT (AB) BY QUARTETS 1/1/3 16 [10887] 24204 10 0 0 0 10 SELECT LITERAL 24/0/1 96 [10888] 24205 124 12 46 0 1 0 OLAYER;SET 'NON-UNIQUE' IND MODIFY ADDRESS OF NEXT 14/0/0 6023 [10889] 24206 37 92 9 0 0 0 ;BIT 5 REPLACE SELECTED BITS 24/0/1 97 [10890] 24207 124 12 47 0 1 0 OLAID MODIFY ADDRESS OF NEXT 14/0/0 6023 [10891] 24208 37 92 9 0 0 0 REPLACE SELECTED BITS 1/1/3 0 [10892] 24209 10 0 0 0 0 SELECT LITERAL 1/0/1 1 [10893] 24210 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 24/0/1 96 [10894] 24211 124 12 46 0 1 0 MODIFY ADDRESS OF NEXT 15/0/0 6023 [10895] 24212 36 92 9 0 0 0 OLAYER PREVIOUS CORR CHAP COLLATE AND ADD 2/0/0 96 [10896] 24213 5 12 46 0 0 0 TRANSFER 24/0/1 97 [10897] 24214 124 12 47 0 1 0 MODIFY ADDRESS OF NEXT 15/0/0 6023 [10898] 24215 36 92 9 0 0 0 CORR CHAP OF OLAID COLLATE AND ADD 3/0/0 97 [10899] 24216 3 12 47 0 0 0 COPY 5/0/0 96 [10900] 24217 2 12 46 0 0 0 SUBTRACT 27/0/0 2810 [10901] 24218 70 247 2 0 0 0 gNO ADJUSTMENTS NEEDED JUMP IF A == 0 27/0/3 2715 [10902] 24219 73 242 24 0 0 0 g12/46>12/47 JUMP IF A < 0 0/0/2 96 [10903] 24220 34 12 46 0 0 0 SET (N) IN B 7/0/0 96 [10904] 24221 4 12 46 0 0 0 AUGMENT 18/1/1 10 [10905] 24222 32 0 0 0 10 SHIFT (AB) BY QUARTETS 2/0/0 97 [10906] 24223 5 12 47 0 0 0 GREATER IN 46;LESSER IN 47 TRANSFER 26/1/3 62 [10907] 24224 91 12 12 0 3 0 UNCORR CHAPS:0 SET MODIFICATION REGISTER AT VARIABLE 1/0/1 1 [10908] 24225 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 1/1/3 0 [10909] 24226 10 0 0 0 0 SELECT LITERAL 15/0/3 6024 [10910] 24227 36 92 10 0 3 0 CORR CHAP COLLATE AND ADD 5/0/0 96 [10911] 24228 2 12 46 0 0 0 GREATER IN THIS OVERLAY SUBTRACT 27/0/1 2723 [10912] 24229 71 242 32 0 0 0 gNOT TO BE REPLACED JUMP IF A != 0 6/0/0 97 [10913] 24230 12 47 0 0 0 SELECT 14/0/3 6024 [10914] 24231 37 92 10 0 3 0 REPLACE REPLACE SELECTED BITS 25/0/3 1 [10915] 24232 94 242 26 0 3 1 gTREAT ALL CHAPS STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2717 [10916] 24/1/0 2810 [10917] 24233 76 247 2 0 0 0 O/P INSTRUCTION JUMP unconditional Start of procedure 243 at location 2726 in chapter 3 [10918] [10918] 24300 PROCR 243 STORE OLD/NEW RADICES FOR CONVERT ACTIONS [10918] 24301 NOTES RADIX 0/0/3 0 [10918] 24302 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 104 [10919] 24303 12 54 0 0 0 SELECT 1/1/2 93 [10920] 24304 12 0 0 0 5: SUBTRACT LITERAL Source: TonyJ/Q1000190 27/0/0 2738 [10921] 24305 70 243 14 0 0 0 >ACTION 93 DEC-BIN JUMP IF A == 0 1/1/1 28 [10922] 24306 11 0 0 0 1+ ADD LITERAL 27/0/0 2758 [10923] 24307 70 243 32 0 0 0 >ACTION 65 ANY-ANY JUMP IF A == 0 1/1/1 2 [10924] 24308 11 0 0 0 2 ADD LITERAL 27/0/0 2737 [10925] 24309 70 243 13 0 0 0 >ACTION 63 DEC-STERLING JUMP IF A == 0 1/1/2 1 [10926] 24310 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 2777 [10927] 24311 71 246 2 0 0 0 >ACTION NOT 64, STERLING - DECIMAL JUMP IF A != 0 6/1/0 5220 [10928] 24312 10 0 0 0 7£:££802 SELECT LITERAL 4/0/0 5117 [10929] 24313 11 0 0 0 66.64 ADD LITERAL 4/1/0 5222 [10930] 24314 11 0 0 0 6666600000 ADD LITERAL 2/1/0 96 [10931] 24315 5 12 46 1 0 0 STORE OLD - NEW RADIX TRANSFER 6/0/0 6021 [10932] 24316 92 7 0 0 0 CTR OF CONVERT TABLES TO DATE SELECT 18/0/1 5 [10933] 24317 30 0 0 0 5 SHIFT (A) BY QUARTETS 3/1/0 40 [10934] 24318 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [10935] 27/0/0 2753 [10936] 24319 70 243 27 0 0 0 > NONE STORED YET JUMP IF A == 0 6/1/3 6150 [10937] 24320 99 0 1 3 0 SELECT 5/1/0 96 [10938] 24321 2 12 46 1 0 0 SUBTRACT 27/0/0 2810 [10939] 24322 70 247 2 0 0 0 > ALREADY STORED JUMP IF A == 0 25/0/3 2 [10940] 24323 94 243 20 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2745 [10941] s 6/0/0 6021 [10942] 24324 0 92 7 0 0 0 SELECT 1/1/2 50 [10943] 24325 12 0 0 0 32 50 SUBTRACT LITERAL 27/0/2 2810 [10944] 24326 72 247 2 0 0 0 > DONT STORE 26-TH JUMP IF A >= 0 6/1/0 96 [10945] 24327 0 12 46 1 0 0 SELECT 2/1/3 6150 [10946] 24328 5 99 0 1 3 0 TRANSFER 1/1/3 2 [10947] 24329 10 0 0 0 2 SELECT LITERAL 7/0/0 6021 [10948] 24330 4 92 7 0 0 0 AUG CTR AUGMENT 24/1/0 2810 [10949] 24331 76 247 2 0 0 0 > O/P INSTRUCTION JUMP unconditional 6/0/0 5308 [10950] 24332 1 16 0 0 0 L=RADIX SELECT 2/0/0 96 [10951] 24333 5 12 46 0 0 0 TRANSFER 6/0/0 111 [10952] 24334 12 61 0 0 0 C-LINE IND SELECT 27/0/0 2740 [10953] 24335 70 243 16 0 0 0 > THIS IS C-LINE;INSERT RADIX PAIR JUMP IF A == 0 6/0/0 96 [10954] 24336 12 46 0 0 0 SELECT 2/0/0 97 [10955] 24337 5 12 47 0 0 0 SET OLD RADIX TRANSFER 24/1/0 2810 [10956] 24338 76 247 2 0 0 0 > GET C-LINE JUMP unconditional Start of procedure 244 at location 2765 in chapter 3 [10957] [10957] 24400 PROCR 244 244 CONVERT (A) TO DEC [10957] 24401 NOTES 0/0/0 0 [10957] 24402 81 244 2 0 0 0 START OF SUBROUTINE 2/1/0 4818 [10958] 24403 5 320 42 1 0 0 TRANSFER 0/0/3 5118 [10959] 24404 60 0 0 0 0 SET DEC SET DECIMAL RADIX 24/0/2 4778 [10960] 24405 124 320 2 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 4818 [10961] 24406 112 320 42 1 0 0 CONVERT 26/0/1 2765 [10962] 24407 82 244 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 245 at location 2771 in chapter 3 [10963] [10963] 24500 PROCR 245 245 CONVERT (A) TO BINARY [10963] 24501 NOTES 0/0/0 0 [10963] 24502 81 245 2 0 0 0 START OF SUBROUTINE 2/1/0 4818 [10964] 24503 5 320 42 1 0 0 TRANSFER 0/0/3 0 [10965] 24504 62 0 0 0 0 SET BIN SET EXCESS CONSTANTS 24/0/2 4798 [10966] 24505 124 320 22 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 4818 [10967] 24506 112 320 42 1 0 0 CONVERT 26/0/1 2771 [10968] 24507 82 245 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 246 at location 2777 in chapter 3 [10969] [10969] 24600 PROCR 246 246 STORE UNPACK AND CONDENSE [10969] 24601 NOTES RADIX 6/0/0 111 [10969] 24602 0 12 61 0 0 0 SELECT 27/0/0 2810 [10970] 24603 70 247 2 0 0 0 > THIS IS C-LINE JUMP IF A == 0 6/0/0 104 [10971] 24604 0 12 54 0 0 0 ACTION SELECT 1/1/2 51 [10972] 24605 101 51 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 2786 [10973] 24606 70 246 11 0 0 0 > UNPACK JUMP IF A == 0 Source: TonyJ/Q1000191 1/1/2 2 [10974] 24607 101 2 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 2786 [10975] 24608 70 246 11 0 0 0 >CONDENSE JUMP IF A == 0 1/1/2 104 [10976] 24609 101 104 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 2810 [10977] 24610 71 247 2 0 0 0 >NOT EXPAND (157) JUMP IF A != 0 6/0/0 54 [10978] 24611 12 4 0 0 0 SECTION SELECT 26/0/0 2771 [10979] 24612 80 245 2 0 0 0 >CONVERT ENTER SUBROUTINE 3/0/0 138 [10980] 24613 3 12 88 0 0 0 SEC/ PROCR COPY 1/1/2 100 [10981] 24614 12 0 0 0 64 100 SUBTRACT LITERAL 27/0/2 2810 [10982] 24615 72 247 2 0 0 0 >DON'T STORE FOR 3-DIGT REP JUMP IF A >= 0 6/1/0 6088 [10983] 24616 98 0 1 0 0 SELECT 26/1/3 6088 [10984] 24617 91 98 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 27/0/0 2804 [10985] 24618 70 246 28 0 0 0 >NONE STORED YET JUMP IF A == 0 1/1/3 0 [10986] 24619 10 0 0 0 0 SELECT LITERAL 1/0/1 3 [10987] 24620 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 15/0/3 6090 [10988] 24621 36 98 2 0 3 0 COLLATE AND ADD 5/0/0 138 [10989] 24622 2 12 88 0 0 0 SUBTRACT 27/0/0 2810 [10990] 24623 70 247 2 0 0 0 > MATCH FWND JUMP IF A == 0 25/0/3 1 [10991] 24624 94 246 19 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2794 [10992] 6/0/0 6089 [10993] 24625 0 98 1 0 0 0 SELECT 1/1/2 10 [10994] 24626 12 0 0 0 t SUBTRACT LITERAL 27/0/2 2810 [10995] 24627 72 247 2 0 0 0 > DONT STORE 11 - TH JUMP IF A >= 0 6/0/0 6014 [10996] 24628 0 92 0 0 0 0 THIS CHAP UNCORR SELECT 18/0/1 4 [10997] 24629 30 0 0 0 4 SHIFT (A) BY QUARTETS 4/0/0 138 [10998] 24630 1 12 88 0 0 0 SECTION ADD 2/0/3 6090 [10999] 24631 5 98 2 0 3 0 TRANSFER 1/1/3 1 [11000] 24632 10 0 0 0 1 SELECT LITERAL 7/0/0 6089 [11001] 24633 4 98 1 0 0 0 AUG CTR AUGMENT Start of procedure 247 at location 2810 in chapter 3 [11002] [11002] 24700 PROCR 247 247 FORM SERIAL NUMBER [11002] 24701 NOTES RADIX Source: RayS/Q1000192 6/0/0 135 [11002] 24702 0 12 85 0 0 0 TEST IF TO IGNORE SELECT 27/0/0 2813 [11003] 24703 70 247 5 0 0 0 THIS BLOCK JUMP IF A == 0 26/0/0 4248 [11004] 24704 80 295 2 0 0 0 YES - IGNORE ENTER SUBROUTINE 0/0/3 5119 [11005] 24705 60 0 0 0 0 SET DECIMAL RADIX 6/0/0 6017 [11006] 24706 92 3 0 0 0 TRANSLATOR'S PROCR SELECT 18/0/1 2 [11007] 24707 30 0 0 0 2 SHIFT (A) BY QUARTETS 2/0/0 138 [11008] 24708 5 12 88 0 0 0 TRANSFER 6/0/0 8168 [11009] 24709 86 191 2 0 0 0 SELECT SWITCH R 1/1/2 5 [11010] 24710 12 0 0 0 5 SUBTRACT LITERAL 27/0/0 2834 [11011] 24711 70 247 26 0 0 0 gVALUES JUMP IF A == 0 6/0/0 59 [11012] 24712 12 9 0 0 0 LONE SERIAL IN PROCR SELECT 1/1/2 256 [11013] 24713 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 2834 [11014] 24714 73 247 26 0 0 0 gOK JUMP IF A < 0 6/0/0 8168 [11015] 24715 86 191 2 0 0 0 SELECT SWITCH R 1/1/2 2 [11016] 24716 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 2830 [11017] 24717 70 247 22 0 0 0 gINSTRUCTIONS, IGNORE JUMP IF A == 0 1/0/1 63 [11018] 24718 35 0 0 0 111111 TABLE ENTRIES, CONSTS='SER' PREPARE FOR DIGIT COLLATION 6/1/0 5224 [11019] 24719 10 0 0 0 725569 SELECT LITERAL 14/1/0 5336 [11020] 24720 37 1 44 1 0 0 REPLACE SELECTED BITS 24/1/0 2831 [11021] 24721 76 247 23 0 0 0 JUMP unconditional 26/0/0 4248 [11022] 24722 80 295 2 0 0 0 gIGNORE ENTER SUBROUTINE 1/1/3 153 [11023] 24723 10 0 0 0 99 SELECT LITERAL 5/0/0 140 [11024] 24724 2 12 90 0 0 0 (0=SHORT, 1=LONG) SUBTRACT 24/1/0 2835 [11025] 24725 76 247 27 0 0 0 gSET 98 OR 99 JUMP unconditional 6/0/0 59 [11026] 24726 12 9 0 0 0 SELECT 7/0/0 138 [11027] 24727 4 12 88 0 0 0 AUGMENT 24/0/2 4438 [11028] 24728 52 1 2 0 0 0 EDIT SERIAL EDIT 28/1/2 5294 [11029] 24729 C 306 6 0 0 0 Start of procedure 248 at location 2838 in chapter 3 [11030] [11030] 24800 PROCR 248 AUGMENT INSTRUCTION COUNTER [11030] 24801 NOTES RADIX 1/1/3 0 [11030] 24802 10 0 0 0 0 SELECT LITERAL 24/0/1 8168 [11031] 24803 85 191 2 0 0 0 SWITCH R 26/0/1 2840 [11032] 0/0/1 2848 [11033] s 24804 C 248 11 0 0 0 g'PROCR/TABLE' 0/0/1 2868 [11034] 24805 C 249 13 0 0 0 gINSTRUCTIONS/'NNOTES' 0/0/1 2857 [11035] 24806 C 249 2 0 0 0 gTABLE ENTRY/'NOTES' 0/0/1 2862 [11036] 24807 C 249 7 0 0 0 gCONSTANT/'CONST' 0/0/1 2846 [11037] s 24808 C 248 9 0 0 0 VALUE ENTRY/VALUE Source: RayS/Q1000193 2/1/0 5294 [11038] 24809 5 1 2 1 0 0 CLEAR LINE SERIAL TRANSFER 24/1/0 2850 [11039] 24810 76 248 13 0 0 0 JUMP unconditional 6/0/0 59 [11040] 24811 0 12 9 0 0 0 SERIAL THIS LINE WITHIN SECTION SELECT 27/0/1 2855 [11041] 24812 71 248 18 0 0 0 gNOTES BLOCK JUMP IF A != 0 6/0/0 4748 [11042] 24813 319 22 0 0 0 SW 27/5 LAST TIME THRU SELECT 1/1/2 3 [11043] 24814 12 0 0 0 3 SUBTRACT LITERAL 27/0/1 2855 [11044] 24815 71 248 18 0 0 0 gLAST TIME WASN'T FOR CONSTANTS JUMP IF A != 0 1/1/3 1 [11045] 24816 10 0 0 0 1 SELECT LITERAL 2/1/0 5390 [11046] 24817 5 29 6 1 0 0 CONSTS END SIGN TRANSFER 1/1/3 0 [11047] 24818 10 0 0 0 0 SELECT LITERAL 24/1/0 2868 [11048] 24819 76 249 13 0 0 0 JUMP unconditional Start of procedure 249 at location 2857 in chapter 3 [11049] [11049] 24900 PROCR 249 AUGMENT INSTRUCTION [11049] 24901 NOTES RADIX 6/0/0 59 [11049] 24902 12 9 0 0 0 SELECT 1/1/2 1 [11050] 24903 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 2868 [11051] 24904 70 249 13 0 0 0 JUMP IF A == 0 1/1/3 2 [11052] 24905 10 0 0 0 2 SELECT LITERAL 24/1/0 2869 [11053] 24906 76 249 14 0 0 0 JUMP unconditional 6/0/0 59 [11054] 24907 12 9 0 0 0 SELECT 27/0/1 2867 [11055] 24908 71 249 12 0 0 0 gNOT 'CONST' BLOCK JUMP IF A != 0 1/1/3 1 [11056] 24909 10 0 0 0 1 SELECT LITERAL 7/0/0 59 [11057] 24910 4 12 9 0 0 0 (SO AS TO STEP BY 2 EVENTUALLY) AUGMENT 24/1/0 2850 [11058] 24911 76 248 13 0 0 0 gTEST IF LAST SECTION WAS CONSTANTS JUMP unconditional 6/0/0 140 [11059] 24912 0 12 90 0 0 0 SELECT 1/1/1 1 [11060] 24913 11 0 0 0 1 ADD LITERAL 7/0/0 59 [11061] 24914 4 12 9 0 0 0 AUGMENT 6/0/0 83 [11062] 24915 0 12 33 0 0 0 SELECT 27/0/0 2875 [11063] 24916 70 249 20 0 0 0 gBLOCK EX MT JUMP IF A == 0 6/0/0 51 [11064] 24917 0 12 1 0 0 0 SELECT 18/0/1 2 [11065] 24918 30 0 0 0 2 SHIFT (A) BY QUARTETS 2/1/0 5292 [11066] 24919 5 1 0 1 0 0 AMEND IND TRANSFER 2/1/0 6048 [11067] 24920 5 92 34 1 0 0 CLEAR TRANSFER Start of procedure 250 at location 2876 in chapter 3 [11068] [11068] 25000 PROCR 250 EDIT 0/0/3 0 [11068] 25002 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 4726 [11069] 25003 318 11 0 0 0 INDICATOR SELECT 27/0/0 2881 [11070] 25004 70 250 7 0 0 0 gFIRST RECORD JUMP IF A == 0 26/0/0 4042 [11071] 25005 80 288 2 0 0 0 ENTER SUBROUTINE 24/1/0 2882 [11072] 25006 76 250 8 0 0 0 JUMP unconditional 26/0/0 4099 [11073] 25007 80 289 2 0 0 0 gWRITE LAST SECTION ENTER SUBROUTINE 6/0/0 88 [11074] 25008 12 38 0 0 0 SELECT 27/0/1 2907 [11075] 25009 71 250 30 0 0 0 gDIRECTIVE JUMP IF A != 0 6/0/0 6315 [11076] 25010 27 5 0 0 0 SWITCH SELECT 1/1/2 4 [11077] 25011 12 0 0 0 4 SUBTRACT LITERAL 27/0/0 2899 [11078] 25012 70 250 25 0 0 0 gVALUES JUMP IF A == 0 24/0/1 6315 [11079] 25013 124 27 5 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 4424 [11080] 25014 305 6 0 0 0 SELECT 28/1/2 5386 [11081] 25015 128 29 2 1 2 0 EDIT PROCR, TABLE, CONST. EDIT FIXED FIELD FORMATS 6/1/0 4774 [11082] 25016 319 48 1 0 0 SELECT 24/0/1 6315 [11083] 25017 124 27 5 0 1 0 MODIFY ADDRESS OF NEXT 24/0/1 4420 [11084] 25018 124 305 2 0 1 0 MODIFY ADDRESS OF NEXT 28/1/1 5384 [11085] 25019 128 29 0 1 1 0 COPY ANNOTATION BULK COPY LONG NUMERIC 6/1/0 5336 [11086] 25020 1 44 1 0 0 SELECT 24/0/1 6315 [11087] 25021 124 27 5 0 1 0 MODIFY ADDRESS OF NEXT 24/0/1 4420 [11088] 25022 124 305 2 0 1 0 MODIFY ADDRESS OF NEXT Source: RayS/Q1000194 2/1/0 5382 [11089] 25023 5 29 2- 1 0 0 COPY REPORTS PASS 1 TRANSFER 24/1/0 2928 [11090] 25024 76 250 48 0 0 0 JUMP unconditional 24/0/2 5303 [11091] 25025 55 1 11 0 0 16 VALUES BULK COPY 18/1/0 4123 [11092] 25026 C 29 10 2 0 0 1/1/3 16 [11093] 18/1/1 5 [11094] 28/0/1 5395 [11095] 24/0/2 4610 [11096] 25027 52 29 6 0 0 0 REF+ITEM EDIT 28/1/2 5390 [11097] 25028 C 315 2 0 0 0 24/1/0 2928 [11098] 25029 76 250 48 0 0 0 JUMP unconditional 24/0/2 4458 [11099] 25030 52 29 2 0 0 0 DIRECTIVES EDIT 28/1/2 5386 [11100] 25031 C 307 16 0 0 0 1/1/3 0 [11101] 25032 10 0 0 0 0 SELECT LITERAL 2/0/0 4748 [11102] 25033 5 319 22 0 0 0 TRANSFER 6/0/0 6315 [11103] 25034 27 5 0 0 0 SELECT 1/1/2 1 [11104] 25035 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 2920 [11105] 25036 71 250 43 0 0 0 gNOT PROCR JUMP IF A != 0 6/0/0 88 [11106] 25037 12 38 0 0 0 SELECT 27/0/3 2920 [11107] 25038 73 250 43 0 0 0 NOT NOTES OF PROCR JUMP IF A < 0 6/1/0 5300 [11108] 25039 1 8 1 0 0 SELECT 2/1/0 5396 [11109] 25040 5 29 12 1 0 0 COPY 'RADIX' TRANSFER 2/1/0 5392 [11110] 25041 5 29 8 1 0 0 CLEAR TRANSFER 24/1/0 2922 [11111] 25042 76 250 45 0 0 0 JUMP unconditional 6/1/0 5336 [11112] 25043 1 44 1 0 0 PASS 1 REPORTS SELECT 2/1/0 5396 [11113] 25044 5 29 12 1 0 0 TRANSFER 24/0/2 5308 [11114] 25045 55 1 16 1 0 28 BULK COPY ANNOTATION BULK COPY 18/1/0 4123 [11115] 25046 C 29 14 1 0 0 1/1/3 28 [11116] 18/1/1 5 [11117] 28/1/1 5398 [11118] 24/1/0 2930 [11119] 25047 76 250 50 0 0 0 JUMP unconditional 6/0/0 6315 [11120] 25048 27 5 0 0 0 SELECT 2/0/0 4748 [11121] 25049 5 319 22 0 0 0 TRANSFER 1/1/3 1 [11122] 25050 10 0 0 0 1 SELECT LITERAL 2/0/0 4726 [11123] 25051 5 318 11 0 0 0 SET INDICATOR TRANSFER 0/0/3 5120 [11124] 25052 60 0 0 0 0 SET DECIMAL RADIX 1/1/3 0 [11125] 25053 10 0 0 0 0 SELECT LITERAL 2/0/0 165 [11126] 25054 5 12 115 0 0 0 ERROR REPROT SHIFT CONTROL TRANSFER 6/0/0 6247 [11127] 25055 0 23 47 0 0 0 SELECT 1/0/1 15 [11128] 25056 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 14/1/0 5386 [11129] 25057 37 29 2 1 0 0 REPLACE SELECTED BITS 1/1/3 0 [11130] 25058 10 0 0 0 0 SELECT LITERAL 2/0/0 6247 [11131] 25059 5 23 47 0 0 0 IMPLICITLY AMENDED' TRANSFER 26/0/1 1421 [11132] 25060 82 186 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 251 at location 2941 in chapter 3 [11133] [11133] 25100 PROCR 251 START OF UPDATING LOOP-DEAL WITH UNAMENDED MT OR PT AT END 26/0/0 4204 [11133] 25102 80 294 2 0 0 0 gTEST PT AT DIRECTIVE/END ENTER SUBROUTINE 27/0/0 2964 [11134] 25103 70 252 2 0 0 0 gNO JUMP IF A == 0 6/0/0 95 [11135] 25104 0 12 45 0 0 0 SELECT 27/0/1 2956 [11136] 25105 71 251 14 0 0 0 gPT AT END JUMP IF A != 0 6/0/0 6311 [11137] 25106 27 1 0 0 0 SELECT 27/0/0 2950 [11138] 25107 70 251 10 0 0 0 gSINGLE-RECORD BLOCKS JUMP IF A == 0 24/0/3 8178 [11139] 25108 4 2 8 0 (ABS MR) SELECT 6/1/0 5 [11140] 24/1/0 2952 [11141] 25109 76 251 11 0 0 0 JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 7 [11143] 25110 0 7 6 2 0 0 MT SERIAL SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 5/1/0 5 [11145] 25111 2 9 4 2 0 0 A6 SERIAL SUBTRACT 27/0/0 2964 [11146] 25112 70 252 2 0 0 0 gMT AMENDED JUMP IF A == 0 27/0/2 2970 [11147] 25113 72 253 2 0 0 0 gMT>PT, REPORT JUMP IF A >= 0 Source: RayS/Q1000195 26/0/0 4274 [11148] 25114 80 299 2 0 0 0 gTEST MT=END ENTER SUBROUTINE 1/1/3 0 [11149] 25115 10 0 0 0 0 SET 'MT INPUT' SELECT LITERAL 2/0/0 83 [11150] 25116 5 12 33 0 0 0 TRANSFER 26/0/0 4332 [11151] 25117 80 303 2 0 0 0 gTEST MT=PROCR ENTER SUBROUTINE 26/0/0 3872 [11152] 25118 80 284 2 0 0 0 gUNPACK ENTER SUBROUTINE 26/0/0 1421 [11153] 25119 80 186 2 0 0 0 gCHECK/EDIT/OUTPUT ENTER SUBROUTINE 26/0/0 4309 [11154] 25120 80 302 2 0 0 0 gGET NEXT RECORD ENTER SUBROUTINE 24/1/0 2943 [11155] 25121 76 251 4 0 0 0 JUMP unconditional Start of procedure 252 at location 2964 in chapter 3 [11156] [11156] 25200 PROCR 252 SWITCH FOR AMENDMENTS [11156] 25201 NOTES RADIX 24/0/1 8170 [11156] 25202 85 252 2 0 0 0 SWITCH R 26/0/1 2965 [11157] 0/0/1 2986 [11158] 25203 C 254 2 0 0 0 gREPLACE 0/0/1 3023 [11159] 25204 C 255 2 0 0 0 gDELETE 0/0/1 3120 [11160] 25205 C 258 2 0 0 0 gINSERT BEFORE 0/0/1 3097 [11161] 25206 C 256 2 0 0 0 gREPLACE ANNOTATION Start of procedure 253 at location 2970 in chapter 3 [11162] [11162] 25300 PROCR 253 DEAL WITH OUT-OF-SEQUENCE DIRECTIVE [11162] 25301 NOTES RADIX 6/1/0 5296 [11162] 25302 1 4 1 0 0 AMENDMENTS MODS ARE SELECT 24/0/1 4748 [11163] 25303 124 319 22 0 1 0 MODIFY ADDRESS OF NEXT 24/0/1 4428 [11164] 25304 124 305 10 0 1 0 MODIFY ADDRESS OF NEXT 2/1/0 5384 [11165] 25305 5 29 0 1 0 0 REPORT WORD TRANSFER 0/1/2 5294 [11166] 25306 34 1 2 1 0 0 SERIAL SET (N) IN B 26/0/0 3178 [11167] 25307 80 259 2 0 0 0 PUT ERROR REPORT ENTER SUBROUTINE 1/1/3 7517 [11168] 25308 10 0 0 0 1:5: '??' OF 5-DIGIT SELECT LITERAL 3/0/0 6316 [11169] 25309 3 27 6 0 0 0 SET 'PT OMITTED' COPY 1/0/1 15 [11170] 25310 35 0 0 0 1111 SERIAL AND PREPARE FOR DIGIT COLLATION 24/0/1 4748 [11171] 25311 124 319 22 0 1 0 MODIFY ADDRESS OF NEXT 24/0/1 4428 [11172] 25312 124 305 10 0 1 0 MODIFY ADDRESS OF NEXT 14/1/0 5384 [11173] 25313 37 29 0 1 0 0 REPORT WORD REPLACE SELECTED BITS 26/0/0 4130 [11174] 25314 80 292 2 0 0 0 INPUT ON PAPER ENTER SUBROUTINE 26/0/0 4204 [11175] 25315 80 294 2 0 0 0 FIND DIRECTIVE ENTER SUBROUTINE 27/0/0 2982 [11176] 25316 70 253 14 0 0 0 gREAD/IGNORE PT TO NEXT DIRECTIVE JUMP IF A == 0 24/1/0 2943 [11177] 25317 76 251 4 0 0 0 gMAKE THIS AMENDMENT JUMP unconditional Start of procedure 254 at location 2986 in chapter 3 [11178] [11178] 25400 PROCR 254 REPLACE [11178] 25401 NOTES RADIX 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 51 [11179] 25402 9 50 2 0 0 'PASS 0' IND SELECT 27/0/1 3021 [11180] 25403 71 254 34 0 0 0 gREJECT JUMP IF A != 0 6/0/0 6315 [11181] 25404 27 5 0 0 0 'UNPACK SWITCH' SELECT 2/0/0 4252 [11182] 25405 5 296 2 0 0 0 TRANSFER 26/0/0 4332 [11183] 25406 80 303 2 0 0 0 gTEST MT=PROCR ENTER SUBROUTINE 6/0/0 88 [11184] 25407 0 12 38 0 0 0 SELECT 2/0/0 1592 [11185] 25408 5 197 2 0 0 0 TRANSFER 26/0/0 4185 [11186] 25409 80 293 2 0 0 0 gTEST PT=STACK DIRECTIVE ENTER SUBROUTINE 6/0/0 88 [11187] 25410 0 12 38 0 0 0 IS REPLACING BLOCK STACK DIR OR NOT SELECT 5/0/0 1592 [11188] 25411 2 197 2 0 0 0 ARE BOTH BLOCKS SIMILAR SUBTRACT 27/0/1 3016 [11189] 25412 71 254 29 0 0 0 ILLEGAL? JUMP IF A != 0 1/1/3 1 [11190] 25413 10 0 0 0 1 SET AS PT INPUT SELECT LITERAL 2/0/0 83 [11191] 25414 5 12 33 0 0 0 TRANSFER 26/0/0 3815 [11192] 25415 80 283 2 0 0 0 gUNPACK PT ENTER SUBROUTINE 26/0/0 4274 [11193] 25416 80 299 2 0 0 0 gDON'T REPLACE END SIGN ENTER SUBROUTINE 6/0/0 88 [11194] 25417 0 12 38 0 0 0 SELECT 27/0/2 3012 [11195] 25418 72 254 25 0 0 0 gNOT PT DIRECTIVE JUMP IF A >= 0 6/0/0 6311 [11196] 25419 27 1 0 0 0 SELECT 27/0/0 3009 [11197] 25420 70 254 23 0 0 0 g1 RECORD PER BLOCK JUMP IF A == 0 24/0/3 8178 [11198] 25421 8 1 8 0 PROCR NO SELECT 6/1/0 8 [11199] Source: RayS/Q1000196 24/1/0 3011 [11200] 25422 76 254 24 0 0 0 JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 16 [11202] 25423 0 7 16 1 0 0 SELECT 2/1/0 5300 [11203] 25424 5 1 8 1 0 0 TRANSFER MT PROCR NUMBER TRANSFER 26/0/0 4309 [11204] 25425 80 302 2 0 0 0 gGET NEXT A1 RECORD ENTER SUBROUTINE 26/0/0 1421 [11205] 25426 80 186 2 0 0 0 gCHECK/EDIT/OUTPUT ENTER SUBROUTINE 26/0/0 4130 [11206] 25427 80 292 2 0 0 0 gREAD PT ENTER SUBROUTINE 24/1/0 2941 [11207] 25428 76 251 2 0 0 0 JUMP unconditional 6/0/0 88 [11208] 25429 0 12 38 0 0 0 PT DIRECTIVE SELECT 4/0/0 1592 [11209] 25430 1 197 2 0 0 0 MT DIRECTIVE ADD 27/0/2 2998 [11210] 25431 72 254 13 0 0 0 gNEITHER IS STACK DIRECTIVE, ALLOW REPLAC JUMP IF A >= 0 6/0/0 4252 [11211] 25432 296 2 0 0 0 SELECT 2/0/0 6315 [11212] 25433 5 27 5 0 0 0 RESTORE SWITCH TRANSFER 1/1/3 105 [11213] 25434 10 0 0 0 69 SELECT LITERAL 24/1/0 3064 [11214] 25435 76 255 36 0 0 0 gREPORT JUMP unconditional Start of procedure 255 at location 3023 in chapter 3 [11215] [11215] 25500 PROCR 255 DELETION LOOP [11215] 25501 NOTES RADIX 26/0/0 4274 [11215] 25502 80 299 2 0 0 0 gEND SIGN ON MT? ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [11217] 25503 9 4 1 0 0 SELECT 2/1/0 5292 [11218] 25504 5 1 0 1 0 0 STORE SERIAL TRANSFER 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 51 [11220] 25505 9 50 2 0 0 'PASS 0' IND SELECT 27/0/1 3063 [11221] 25506 71 255 35 0 0 0 gREPORT JUMP IF A != 0 26/0/0 4130 [11222] 25507 80 292 2 0 0 0 gREAD PT ENTER SUBROUTINE 26/0/0 4204 [11223] 25508 80 294 2 0 0 0 gTEST DIRECTIVE ENTER SUBROUTINE 27/0/1 3076 [11224] 25509 71 255 46 0 0 0 gYES (SINGLE-LINE DELETE) JUMP IF A != 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 51 [11226] 25510 9 50 2 0 0 PASS 0 IND SELECT 27/0/1 3063 [11227] 25511 71 255 35 0 0 0 gMOD REJECTED JUMP IF A != 0 6/0/0 6311 [11228] 25512 27 1 0 0 0 SELECT 27/0/0 3041 [11229] 25513 70 255 16 0 0 0 g1 RECORD/BLOCK JUMP IF A == 0 24/0/3 8178 [11230] 25514 4 2 8 0 SELECT 6/1/0 5 [11231] 24/1/0 3043 [11232] 25515 76 255 17 0 0 0 JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 7 [11234] 25516 7 6 2 0 0 MT SERIAL SELECT 18/0/1 8 [11235] 25517 30 0 0 0 8 SHIFT (A) BY QUARTETS 27/0/0 3046 [11236] 25518 70 255 20 0 0 0 gDIRECTIVE DELETED JUMP IF A == 0 26/0/0 1494 [11237] 25519 80 188 2 0 0 0 gSET 'PRINT PROCEDURE' ENTER SUBROUTINE 26/0/0 4309 [11238] 25520 80 302 2 0 0 0 gGET NEXT RECORD ENTER SUBROUTINE 26/0/0 4274 [11239] 25521 80 299 2 0 0 0 gTEST END ENTER SUBROUTINE 6/0/0 6311 [11240] 25522 27 1 0 0 0 SELECT 27/0/0 3053 [11241] 25523 70 255 26 0 0 0 JUMP IF A == 0 24/0/3 8178 [11242] 25524 4 2 8 0 SELECT 6/1/0 5 [11243] 24/1/0 3055 [11244] 25525 76 255 27 0 0 0 JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 7 [11246] 25526 7 6 2 0 0 MT SERIAL SELECT 5/1/0 5295 [11247] 25527 2 1 2 2 0 0 PT SERIAL SUBTRACT 27/0/1 3062 [11248] 25528 71 255 34 0 0 0 JUMP IF A != 0 26/0/0 4309 [11249] 25529 80 302 2 0 0 0 gGET NEXT RECORD ENTER SUBROUTINE 26/0/0 4130 [11250] 25530 80 292 2 0 0 0 gREAD PT(NEXT DIRECTIVE) ENTER SUBROUTINE 26/0/0 4204 [11251] 25531 80 294 2 0 0 0 gTEST DIRECTIVE ENTER SUBROUTINE 27/0/1 2943 [11252] 25532 71 251 4 0 0 0 gYES JUMP IF A != 0 24/1/0 3063 [11253] 25533 76 255 35 0 0 0 gREJECT JUMP unconditional 27/0/3 3046 [11254] 25534 73 255 20 0 0 0 gLOOP JUMP IF A < 0 1/1/3 84 [11255] 25535 10 0 0 0 54 REPORT SELECT LITERAL 18/0/1 8 [11256] 25536 30 0 0 0 8 SHIFT (A) BY QUARTETS 24/0/1 4748 [11257] 25537 124 319 22 0 1 0 MODIFY ADDRESS OF NEXT 24/0/1 4428 [11258] 25538 124 305 10 0 1 0 MODIFY ADDRESS OF NEXT 2/1/0 5384 [11259] 25539 5 29 0 1 0 0 REPORT WORD TRANSFER Source: RayS/Q1000197 6/0/0 6311 [11260] 25540 27 1 0 0 0 SELECT 27/0/0 3073 [11261] 25541 70 255 44 0 0 0 g1 RECORD BLOCK JUMP IF A == 0 24/0/1 8178 [11262] 25542 34 4 1 8 0 SET (N) IN B 0/1/2 4 [11263] 24/1/0 2975 [11264] 25543 76 253 7 0 0 0 JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 0/1/2 6 [11266] 25544 34 7 6 1 0 0 SERIAL BEING DELETED SET (N) IN B 24/1/0 2975 [11267] 25545 76 253 7 0 0 0 gREPORT JUMP unconditional 6/0/0 6311 [11268] 25546 27 1 0 0 0 SELECT 27/0/0 3081 [11269] 25547 70 255 50 0 0 0 JUMP IF A == 0 24/0/3 8178 [11270] 25548 4 2 8 0 SELECT 6/1/0 5 [11271] 24/1/0 3083 [11272] 25549 76 255 51 0 0 0 JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 7 [11274] 25550 7 6 2 0 0 SELECT 18/0/1 8 [11275] 25551 30 0 0 0 8 SHIFT (A) BY QUARTETS 27/0/0 3086 [11276] 25552 70 255 54 0 0 0 JUMP IF A == 0 26/0/0 1494 [11277] 25553 80 188 2 0 0 0 ENTER SUBROUTINE 26/0/0 4309 [11278] 25554 80 302 2 0 0 0 gGET RECORD AFTER DELETED ONE ENTER SUBROUTINE 6/0/0 6311 [11279] 25555 27 1 0 0 0 SELECT 27/0/0 3092 [11280] 25556 70 255 59 0 0 0 JUMP IF A == 0 24/0/3 8178 [11281] 25557 4 2 8 0 SELECT 6/1/0 5 [11282] 24/1/0 3094 [11283] 25558 76 255 60 0 0 0 JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 7 [11285] 25559 7 6 2 0 0 SELECT 5/1/0 5293 [11286] 25560 2 1 0 2 0 0 PT SERIAL FOR DELETION SUBTRACT 27/0/0 3086 [11287] 25561 70 255 54 0 0 0 gDELETE ALL BLOCKS THIS SERIAL JUMP IF A == 0 24/1/0 2941 [11288] 25562 76 251 2 0 0 0 JUMP unconditional Start of procedure 256 at location 3097 in chapter 3 [11289] [11289] 25600 PROCR 256 REPLACE ANNOTATION [11289] 25601 NOTES RADIX 26/0/0 4332 [11289] 25602 80 303 2 0 0 0 gTEST MT=PROCR ENTER SUBROUTINE 26/0/0 3815 [11290] 25603 80 283 2 0 0 0 gUNPACK PT BLOCK ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 51 [11292] 25604 9 50 2 0 0 'PASS 0' IND SELECT 27/0/0 3104 [11293] 25605 70 256 8 0 0 0 JUMP IF A == 0 1/1/3 81 [11294] 25606 10 0 0 0 51 SELECT LITERAL 24/1/0 3064 [11295] 25607 76 255 36 0 0 0 gREPORT, READ NEXT DIRECTIVE JUMP unconditional 1/1/3 1 [11296] 25608 10 0 0 0 1 SELECT LITERAL 3/0/0 6247 [11297] 25609 3 23 47 0 0 0 SET 'IMPLICITLY AMENDED' COPY 2/0/0 136 [11298] 25610 5 12 86 0 0 0 SET IND FOR SR TRANSFER 26/0/0 3116 [11299] 25611 80 257 2 0 0 0 ENTER SUBROUTINE 1/1/3 0 [11300] 25612 10 0 0 0 0 SELECT LITERAL 2/0/0 136 [11301] 25613 5 12 86 0 0 0 TRANSFER 26/0/0 4130 [11302] 25614 80 292 2 0 0 0 gREAD PT ENTER SUBROUTINE 1/1/3 0 [11303] 25615 10 0 0 0 0 SELECT LITERAL 2/0/0 83 [11304] 25616 5 12 33 0 0 0 TRANSFER 26/0/0 1421 [11305] 25617 80 186 2 0 0 0 SET 'MT IN' ENTER SUBROUTINE 26/0/0 4309 [11306] 25618 80 302 2 0 0 0 gCHECK/EDIT/OUTPUT ENTER SUBROUTINE 24/1/0 2941 [11307] 25619 76 251 2 0 0 0 gGET NEXT A1 RECORD JUMP unconditional Start of procedure 257 at location 3116 in chapter 3 [11308] [11308] 25700 PROCR 257 ENTRY TO 'UNPACK' SR 0/0/0 0 [11308] 25702 81 257 2 0 0 0 START OF SUBROUTINE 6/0/0 3116 [11309] 25703 0 257 2 0 0 0 SELECT 2/0/0 3872 [11310] 25704 5 284 2 0 0 0 PLANT LINK TRANSFER 24/1/0 3875 [11311] 25705 76 284 4 0 0 0 AVOID BULK CLEAR JUMP unconditional Start of procedure 258 at location 3120 in chapter 3 [11312] [11312] 25800 PROCR 258 INSERTION LOOP [11312] 25801 NOTES RADIX 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 51 [11313] 25802 9 50 2 0 0 PASS 0' IND SELECT 27/0/1 3170 [11314] 25803 71 258 46 0 0 0 gREPORT JUMP IF A != 0 2/0/0 88 [11315] 25804 5 12 38 0 0 0 SET NON DIRECTIVE TRANSFER 24/0/1 6315 [11316] 25805 87 27 5 0 0 0 SWITCH ACCORDING TO N 26/0/1 3125 [11317] 0/0/1 3138 [11318] s 25806 C 258 17 0 0 0 0/0/1 3138 [11319] s 25807 C 258 17 0 0 0 0/0/1 3130 [11320] s 25808 C 258 10 0 0 0 CONST 0/0/1 3138 [11321] s 25809 C 258 17 0 0 0 Source: RayS/Q1000198 6/1/0 5226 [11322] 25810 54 1 0 1 0 46 BULK CLEAR 28/1/1 5292 [11323] 24/0/2 4556 [11324] 25811 124 312 2 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [11325] 25812 80 326 2 0 0 0 UNPACK (PRETEND ITS PROCR) ENTER SUBROUTINE 1/1/3 0 [11326] 25813 10 0 0 0 0 SELECT LITERAL 2/1/0 5312 [11327] 25814 5 1 20 1 0 0 CLEAR CLEO WORD TRANSFER 2/1/0 5336 [11328] 25815 5 1 44 1 0 0 CLEAR ERROR WORD TRANSFER 24/1/0 3139 [11329] 25816 76 258 18 0 0 0 JUMP unconditional 26/0/0 3815 [11330] 25817 80 283 2 0 0 0 UNPACK ENTER SUBROUTINE 26/1/1 5228 [11331] 25818 90 0 0 1 6 SET MODIFICATION REGISTER AT LITERAL [11332] 25819 C 0 0 0 44 Limit 6/1/1 5292 [11332] 25820 1 0 1 1 0 SELECT 27/0/1 3145 [11333] 25821 71 258 24 0 0 0 gREPORT, CODING JUMP IF A != 0 25/0/1 2 [11334] 25822 94 258 20 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3140 [11335] s 24/1/0 3164 [11336] 25823 76 258 41 0 0 0 JUMP unconditional 1/1/3 115 [11337] 25824 10 0 0 0 73 SELECT LITERAL 18/0/1 8 [11338] 25825 30 0 0 0 8 SHIFT (A) BY QUARTETS 24/0/1 4748 [11339] 25826 124 319 22 0 1 0 MODIFY ADDRESS OF NEXT 24/0/1 4428 [11340] 25827 124 305 10 0 1 0 MODIFY ADDRESS OF NEXT 2/1/0 5384 [11341] 25828 5 29 0 1 0 0 REPORT WORD TRANSFER 6/0/0 6311 [11342] 25829 27 1 0 0 0 SELECT 27/0/0 3155 [11343] 25830 70 258 33 0 0 0 g1 RECORD/BLOCK JUMP IF A == 0 24/0/1 8178 [11344] 25831 34 4 1 8 0 LINE SERIAL SET (N) IN B 0/1/2 4 [11345] 24/1/0 3157 [11346] 25832 76 258 34 0 0 0 JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 0/1/2 6 [11348] 25833 34 7 6 1 0 0 LINE SERIAL SET (N) IN B 26/0/0 3178 [11349] 25834 80 259 2 0 0 0 STORE REPORT ENTER SUBROUTINE 1/1/3 7517 [11350] 25835 10 0 0 0 1:5: SELECT LITERAL 3/0/0 6316 [11351] 25836 3 27 6 0 0 0 SET 'PT OMITTED' COPY 1/0/1 15 [11352] 25837 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 24/0/1 4748 [11353] 25838 124 319 22 0 1 0 MODIFY ADDRESS OF NEXT 24/0/1 4428 [11354] 25839 124 305 10 0 1 0 MODIFY ADDRESS OF NEXT 14/1/0 5384 [11355] 25840 37 29 0 1 0 0 REPLACE SELECTED BITS 26/0/0 4130 [11356] 25841 80 292 2 0 0 0 gREAD PT ENTER SUBROUTINE 26/0/0 4204 [11357] 25842 80 294 2 0 0 0 FIND AMENDMENT DIRECTIVE ENTER SUBROUTINE 27/0/1 2943 [11358] 25843 71 251 4 0 0 0 gNEW DIRECTIVE OR END SIGN JUMP IF A != 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 51 [11360] 25844 9 50 2 0 0 PASS 0' IND SELECT 27/0/0 3172 [11361] 25845 70 258 48 0 0 0 gMOD OK JUMP IF A == 0 1/1/3 115 [11362] 25846 10 0 0 0 73 SELECT LITERAL 24/1/0 3064 [11363] 25847 76 255 36 0 0 0 gREPORT, READ TO NEXT AMEND DIRECTIVE JUMP unconditional 26/0/0 4185 [11364] 25848 80 293 2 0 0 0 gTEST STACK DIRECTIVE ENTER SUBROUTINE 1/1/3 1 [11365] 25849 10 0 0 0 1 SELECT LITERAL 2/0/0 83 [11366] 25850 5 12 33 0 0 0 SET 'PT IS INPUT' TRANSFER 26/0/0 3815 [11367] 25851 80 283 2 0 0 0 gUNPACK ENTER SUBROUTINE 26/0/0 1421 [11368] 25852 80 186 2 0 0 0 gCHECK/EDIT/OUTPUT ENTER SUBROUTINE 24/1/0 3164 [11369] 25853 76 258 41 0 0 0 JUMP unconditional Start of procedure 259 at location 3178 in chapter 3 [11370] [11370] 25900 PROCR 259 STORE ERROR REPORT FOR OUT-OF-SEQUENCE MODS 0/0/0 0 [11370] 25902 81 259 2 0 0 0 (B)=REPORT WORD START OF SUBROUTINE 24/0/1 4748 [11371] 25903 124 319 22 0 1 0 MODIFY ADDRESS OF NEXT 24/0/1 4420 [11372] 25904 124 305 2 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 5399 [11373] 25905 29 15 0 0 0 LAST 2.5 CHARS ANNOTATION SELECT 5/0/0 4753 [11374] 25906 2 319 27 0 0 0 SUBTRACT 27/0/0 3190 [11375] 25907 70 259 14 0 0 0 gLINE IGNORED;DON'T OVERWRITE WORD JUMP IF A == 0 1/1/3 0 [11376] 25908 10 0 0 0 0 CLEAR SIGN BIT A SELECT LITERAL 18/1/1 10 [11377] 25909 32 0 0 0 10 SHIFT (AB) BY QUARTETS 24/0/1 4748 [11378] 25910 124 319 22 0 1 0 MODIFY ADDRESS OF NEXT Source: ChuckK/Q1000199 24/0/1 4420 [11379] 25911 124 305 2 0 1 0 LAST FIVE CHARS ANNOTATION MODIFY ADDRESS OF NEXT 2/1/0 5398 [11380] 25912 5 29 14 1 0 0 TRANSFER 26/0/1 3178 [11381] 25913 82 259 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 18/1/1 10 [11382] 25914 32 0 0 0 10 SHIFT (AB) BY QUARTETS 24/0/1 4748 [11383] 25915 124 319 22 0 1 0 MODIFY ADDRESS OF NEXT 24/0/1 4420 [11384] 25916 124 305 2 0 1 0 MODIFY ADDRESS OF NEXT 2/1/0 5396 [11385] 25917 5 29 12 1 0 0 TRANSFER 26/0/1 3178 [11386] 25918 82 259 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 260 at location 3195 in chapter 3 [11387] [11387] 26000 PROCR 260 CONSTANTS ROUTINE [11387] 26001 NOTES RADIX 2/0/0 119 [11387] 26002 5 12 69 0 0 0 TRANSFER 2/1/0 116 [11388] 26003 5 12 66 1 0 0 CLEAR INDICATORS TRANSFER 2/0/0 120 [11389] 26004 5 12 70 0 0 0 TRANSFER 2/0/0 8161 [11390] 26005 84 695 2 0 0 0 CLEAR WL=SWITCH SET SWITCH(ES) AT VARIABLE VALUE 26/1/2 116 [11391] 26006 91 12 66 0 2 0 CLEAR R2 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 5230 [11392] 26007 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [11393] 26008 C 0 0 0 5 Limit 26/1/1 5232 [11393] 26009 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [11394] 26010 C 0 0 0 18 Limit 6/1/0 5234 [11394] 26011 54 94 0 0 0 60 CLEAR UNPACK AREA BULK CLEAR 28/0/0 5450 [11395] 0/0/3 0 [11396] 26012 62 0 0 0 0 SET EXCESS CONSTANTS 0/1/2 5298 [11397] 26013 34 1 6 1 0 0 FIRST WORD SET (N) IN B 6/0/0 83 [11398] 26014 12 33 0 0 0 NON ZERO IF EX PT SELECT 2/0/0 120 [11399] 26015 5 12 70 0 0 0 SET 'NE FOUND' IND TRANSFER 24/1/0 3211 [11400] 26016 76 261 3 0 0 0 JUMP unconditional 26/0/0 4248 [11401] 26017 80 295 2 0 0 0 >IGNORE CONST ENTER SUBROUTINE Start of procedure 261 at location 3210 in chapter 3 [11402] [11402] 26100 PROCR 261 [11402] 26101 NOTES RADIX 26/0/0 3593 [11402] 26102 80 274 2 0 0 0 >GET NEXT CHAR ENTER SUBROUTINE 18/1/1 2 [11403] 26103 32 0 0 0 2 SHIFT (AB) BY QUARTETS 3/1/0 138 [11404] 26104 3 12 88 1 0 0 COPY 1/1/2 125 [11405] 26105 12 0 0 0 7: SUBTRACT LITERAL 27/0/0 3220 [11406] 26106 70 261 12 0 0 0 >NE JUMP IF A == 0 1/1/2 1 [11407] 26107 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 3377 [11408] 26108 70 265 2 0 0 0 >BE,STORE NE AND END JUMP IF A == 0 6/0/0 120 [11409] 26109 12 70 0 0 0 SELECT 27/0/1 3210 [11410] 26110 71 261 2 0 0 0 >NO, DONT STORE CHAR JUMP IF A != 0 24/1/0 3225 [11411] 26111 76 261 17 0 0 0 >STORE AND PROCESS JUMP unconditional 6/0/0 120 [11412] 26112 12 70 0 0 0 'NE FOUND' IND SELECT 27/0/0 3377 [11413] 26113 70 265 2 0 0 0 >YES, STORE NE AND END JUMP IF A == 0 2/0/0 120 [11414] 26114 5 12 70 0 0 0 TRANSFER 2/0/0 120 [11415] 26115 5 12 70 0 0 0 CLEAR TRANSFER 24/1/0 3210 [11416] 26116 76 261 2 0 0 0 >GNC JUMP unconditional 6/0/0 138 [11417] 26117 12 88 0 0 0 SELECT 2/0/2 5450 [11418] 26118 5 94 0 0 2 0 STORE THIS CHAR TRANSFER Start of procedure 262 at location 3227 in chapter 3 [11419] [11419] 26200 PROCR 262 [11419] 26201 NOTES RADIX Source: ChuckK/Q1000200 24/0/3 22 [11419] 26202 96 0 0 2 0 SELECT MODIFIER 6/0/0 4 [11420] 25/0/2 1 [11421] 26203 94 262 4 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3231 [11422] s 27/0/1 3251 [11423] 26204 71 262 21 0 0 0 >NOT FIRST CHAR IN LINE JUMP IF A != 0 6/0/0 138 [11424] 26205 12 88 0 0 0 THIS CHAR SELECT 1/1/2 122 [11425] 26206 12 0 0 0 7t SUBTRACT LITERAL 27/0/0 3253 [11426] 26207 70 262 23 0 0 0 >'(' JUMP IF A == 0 1/1/3 5 [11427] 26208 83 263 10 0 0 5 IGNORE '(' SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8165 [11428] 2/0/0 5510 [11429] 26209 5 94 60 0 0 0 TRANSFER 6/0/0 5511 [11430] 26210 0 94 61 0 0 0 SF CTR IN DIRECTIVE LINE SELECT 27/0/0 3248 [11431] 26211 70 262 19 0 0 0 >WRONG JUMP IF A == 0 6/0/0 5512 [11432] 26212 84 267 2 0 0 0 SET CHECK SWITCH SET SWITCH(ES) AT VARIABLE VALUE 2/0/0 8169 [11433] 26213 C 94 62 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 6/0/0 5512 [11434] 26214 0 94 62 0 0 0 SWITCH FOR FIRST SUBFIELD SELECT 1/1/2 5 [11435] 26215 12 0 0 0 5 SUBTRACT LITERAL 27/0/1 3251 [11436] 26216 71 262 21 0 0 0 >NOT REL ADDRESS JUMP IF A != 0 1/1/3 1 [11437] 26217 83 695 2 0 0 1 SET WL=1 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8161 [11438] 24/1/0 3251 [11439] 26218 76 262 21 0 0 0 JUMP unconditional 1/1/3 1 [11440] 26219 83 263 10 0 0 1 >IGNORE UNDIRECTED CONST SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8165 [11441] 26/0/0 3255 [11442] 26220 80 263 10 0 0 0 >CLEAR OUT ALL DETAILS ENTER SUBROUTINE 6/0/0 138 [11443] 26221 12 88 0 0 0 SELECT 24/1/0 3263 [11444] 26222 76 263 10 0 0 0 CHECK JUMP unconditional 26/0/0 3255 [11445] 26223 80 263 10 0 0 0 >CLEAR OUT ALL DETAILS ENTER SUBROUTINE 24/1/0 3274 [11446] 26224 76 263 20 0 0 0 >SET SWITCH AT 2 JUMP unconditional Start of procedure 263 at location 3255 in chapter 3 [11447] [11447] 26300 PROCR 263 [11447] 26301 NOTES RADIX 0/0/0 0 [11447] 26302 81 263 10 0 0 0 START OF SUBROUTINE 2/1/0 5510 [11448] 26303 5 94 60 1 0 0 CLEAR DETAILS TRANSFER 2/1/0 5512 [11449] 26304 5 94 62 1 0 0 TRANSFER 2/1/0 5514 [11450] 26305 5 94 64 1 0 0 TRANSFER 2/1/0 5516 [11451] 26306 5 94 66 1 0 0 TRANSFER 2/1/0 5518 [11452] 26307 5 94 68 1 0 0 TRANSFER 2/1/0 5520 [11453] 26308 5 94 70 1 0 0 TRANSFER 26/0/1 3255 [11454] 26309 82 263 10 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 24/0/1 8165 [11455] 26310 85 263 10 0 0 0 SWITCH R 26/0/1 3264 [11456] 0/0/1 3209 [11457] s 26311 C 260 17 0 0 0 >IGNORE 0/0/1 3296 [11458] s 26312 C 263 40 0 0 0 >PREVIOUS WAS'C' DIRECTIV E LETTER 0/0/1 3360 [11459] s 26313 C 264 39 0 0 0 >')' EXPECTED 0/0/1 3270 [11460] s 26314 C 263 16 0 0 0 >',' FORBIDDEN, '(' ALLOWED 0/0/1 3277 [11461] s 26315 C 263 22 0 0 0 >'(' FORBIDDEN, ',' ALLOWED 1/1/2 124 [11462] 26316 12 0 0 0 7+ COMMA SUBTRACT LITERAL 27/0/0 3248 [11463] 26317 70 262 19 0 0 0 >IGNORE JUMP IF A == 0 1/1/1 2 [11464] 26318 11 0 0 0 2 ADD LITERAL 27/0/1 3321 [11465] 26319 71 264 2 0 0 0 >CHECK CHAR JUMP IF A != 0 1/1/3 2 [11466] 26320 83 263 10 0 0 2 SET TO EXPECT DIRECTIVE LETTER SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8165 [11467] 24/1/0 3210 [11468] 26321 76 261 2 0 0 0 >GET NEXT CHAR JUMP unconditional 1/1/2 124 [11469] 26322 12 0 0 0 7+ SUBTRACT LITERAL 27/0/1 3293 [11470] 26323 71 263 37 0 0 0 >NOT COMMA JUMP IF A != 0 1/1/3 2 [11471] 26324 10 0 0 0 2 SELECT LITERAL 7/0/0 5510 [11472] 26325 4 94 60 0 0 0 AUGMENT 24/0/0 5510 [11473] 26326 124 94 60 0 0 0 SF CTR IN NON-DIRECTIVE LINE MODIFY ADDRESS OF NEXT 6/0/0 5512 [11474] 26327 94 62 0 0 0 SF DETAILS SELECT 27/0/0 3248 [11475] 26328 70 262 19 0 0 0 >IGNORE JUMP IF A == 0 2/0/0 8169 [11476] 26329 84 267 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE Source: ChuckK/Q1000201 6/0/0 8169 [11477] 26330 86 267 2 0 0 0 SELECT SWITCH R 1/1/2 5 [11478] 26331 12 0 0 0 5 SUBTRACT LITERAL 27/0/1 3210 [11479] 26332 71 261 2 0 0 0 >NOT REL ADDRESS JUMP IF A != 0 24/0/3 22 [11480] 26333 96 0 0 2 0 SELECT MODIFIER 6/0/0 4 [11481] 1/1/1 1 [11482] 26334 11 0 0 0 1 ADD LITERAL 2/0/0 8161 [11483] 26335 84 695 2 0 0 0 WL=LOCN OF SECOND CHAR SET SWITCH(ES) AT VARIABLE VALUE 24/1/0 3210 [11484] 26336 76 261 2 0 0 0 >GET NEXT CHAR JUMP unconditional 1/1/1 2 [11485] 26337 11 0 0 0 2 ADD LITERAL 27/0/1 3321 [11486] 26338 71 264 2 0 0 0 >NOT '(', CHECK CHAR JUMP IF A != 0 24/1/0 3209 [11487] 26339 76 260 17 0 0 0 >IGNORE;GET NEXT CHAR JUMP unconditional 1/1/2 81 [11488] 26340 12 0 0 0 51 SUBTRACT LITERAL 27/0/0 3316 [11489] 26341 70 263 59 0 0 0 >A JUMP IF A == 0 1/1/2 1 [11490] 26342 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 3314 [11491] 26343 70 263 57 0 0 0 >B JUMP IF A == 0 1/1/2 1 [11492] 26344 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 3308 [11493] 26345 70 263 52 0 0 0 >C JUMP IF A == 0 1/1/2 1 [11494] 26346 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 3315 [11495] 26347 70 263 58 0 0 0 >D JUMP IF A == 0 1/1/2 19 [11496] 26348 12 0 0 0 13 SUBTRACT LITERAL 27/0/0 3313 [11497] 26349 70 263 56 0 0 0 >P JUMP IF A == 0 1/1/2 2 [11498] 26350 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 3248 [11499] 26351 71 262 19 0 0 0 >IGNORE;NOT R JUMP IF A != 0 24/0/3 22 [11500] 26352 96 0 0 2 0 SELECT MODIFIER 6/0/0 4 [11501] 1/1/1 2 [11502] 26353 11 0 0 0 2 ADD LITERAL 2/0/0 8161 [11503] 26354 84 695 2 0 0 0 WL=LOCN OF SECOND CHAR SET SWITCH(ES) AT VARIABLE VALUE 1/1/3 1 [11504] 26355 10 0 0 0 1 RANDO SELECT LITERAL 1/1/1 1 [11505] 26356 11 0 0 0 1 P ADD LITERAL 1/1/1 1 [11506] 26357 11 0 0 0 1 B ADD LITERAL 1/1/1 1 [11507] 26358 11 0 0 0 1 D ADD LITERAL 1/1/1 1 [11508] 26359 11 0 0 0 1 A ADD LITERAL 2/0/0 8169 [11509] 26360 84 267 2 0 0 0 SET CHECKING SWITCH SET SWITCH(ES) AT VARIABLE VALUE 1/1/3 3 [11510] 26361 83 263 10 0 0 3 SET TO EXPECT ')' SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8165 [11511] 24/1/0 3210 [11512] 26362 76 261 2 0 0 0 >GET NEXT CHAR JUMP unconditional Start of procedure 264 at location 3321 in chapter 3 [11513] [11513] 26400 PROCR 264 [11513] 26401 NOTES RADIX 24/0/1 8169 [11513] 26402 85 267 2 0 0 0 CHECK SWITCH SWITCH R 26/0/1 3322 [11514] 0/0/1 3210 [11515] 26403 C 261 2 0 0 0 >A,GNC 0/0/1 3328 [11516] s 26404 C 264 8 0 0 0 >D 0/0/1 3337 [11517] s 26405 C 264 17 0 0 0 >B 0/0/1 3341 [11518] s 26406 C 264 21 0 0 0 >P 0/0/1 3346 [11519] s 26407 C 264 26 0 0 0 >R 6/0/0 138 [11520] 26408 0 12 88 0 0 0 ;DECIMAL SELECT 18/0/1 4127 [11521] 26409 30 0 0 0 1- CONTROL SHIFT (A) BY QUARTETS 1/1/2 2 [11522] 26410 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 3334 [11523] 26411 70 264 14 0 0 0 >REPORT * JUMP IF A == 0 1/1/2 3 [11524] 26412 12 0 0 0 3 SUBTRACT LITERAL 27/0/3 3210 [11525] 26413 73 261 2 0 0 0 >OK JUMP IF A < 0 1/1/3 91 [11526] 26414 10 0 0 0 5e * SELECT LITERAL 2/1/0 5336 [11527] 26415 5 1 44 1 0 0 TRANSFER 24/1/0 3210 [11528] 26416 76 261 2 0 0 0 JUMP unconditional Source: RayS/Q1000202 6/1/0 139 [11529] 26417 0 12 88 2 0 0 BASIC BINARY SELECT 1/1/2 10 [11530] 26418 12 0 0 0 t SUBTRACT LITERAL 27/0/2 3334 [11531] 26419 72 264 14 0 0 0 gREPORT JUMP IF A >= 0 24/1/0 3328 [11532] 26420 76 264 8 0 0 0 gCHECK CONTROL JUMP unconditional 6/1/0 139 [11533] 26421 0 12 88 2 0 0 BASIC PATTERN SELECT 27/0/0 3328 [11534] 26422 70 264 8 0 0 0 JUMP IF A == 0 1/1/2 1 [11535] 26423 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 3328 [11536] 26424 70 264 8 0 0 0 JUMP IF A == 0 24/1/0 3334 [11537] 26425 76 264 14 0 0 0 gREPORT JUMP unconditional 6/0/0 138 [11538] 26426 12 88 0 0 0 CHAR RELATIVE ADDRESS SELECT 1/1/2 77 [11539] 26427 12 0 0 0 4: SUBTRACT LITERAL 27/0/1 3353 [11540] 26428 71 264 33 0 0 0 gNOT COLON JUMP IF A != 0 6/0/0 116 [11541] 26429 0 12 66 0 0 0 SELECT 2/0/0 117 [11542] 26430 5 12 67 0 0 0 12/67=REF, 12/66=ITEM TRANSFER 2/0/0 116 [11543] 26431 5 12 66 0 0 0 TRANSFER 24/1/0 3328 [11544] 26432 76 264 8 0 0 0 gCHECK CONTROL JUMP unconditional 6/0/0 116 [11545] 26433 0 12 66 0 0 0 SELECT 18/0/1 1 [11546] 26434 30 0 0 0 1 SHIFT (A) BY QUARTETS 4/1/0 139 [11547] 26435 1 12 88 2 0 0 ASSEMBLE REF/ITEM ADD 2/0/0 116 [11548] 26436 5 12 66 0 0 0 TRANSFER 1/1/3 5 [11549] 26437 83 263 10 0 0 5 INHIBIT ANOTHER DIRECTIVE SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8165 [11550] 24/1/0 3337 [11551] 26438 76 264 17 0 0 0 gCHECK AS BINARY JUMP unconditional 1/1/2 123 [11552] 26439 12 0 0 0 7e SUBTRACT LITERAL 27/0/0 3369 [11553] 26440 70 264 48 0 0 0 gIS ')' JUMP IF A == 0 6/0/2 5448 [11554] 26441 0 94 2- 0 2 0 SELECT 1/1/2 82 [11555] 26442 12 0 0 0 52 SUBTRACT LITERAL 27/0/0 3337 [11556] 26443 70 264 17 0 0 0 LAST CHAR WAS 'B' +CHECK THIS JUMP IF A == 0 6/0/2 5447 [11557] 26444 0 94 3- 0 2 0 SELECT 1/1/2 82 [11558] 26445 12 0 0 0 52 SUBTRACT LITERAL 27/0/0 3337 [11559] 26446 70 264 17 0 0 0 ONE BEFORE WAS 'B' +CHECK THIS JUMP IF A == 0 24/1/0 3248 [11560] 26447 76 262 19 0 0 0 NEITHER WAS 'B' +IGNORE JUMP unconditional 6/0/0 8169 [11561] 26448 86 267 2 0 0 0 CHECK SWITCH SELECT SWITCH R 24/0/0 5511 [11562] 26449 124 94 61 0 0 0 CTR IN DIRECTIVE LINE MODIFY ADDRESS OF NEXT 2/0/0 5512 [11563] 26450 5 94 62 0 0 0 TRANSFER 1/1/3 2 [11564] 26451 10 0 0 0 2 SELECT LITERAL 7/0/0 5511 [11565] 26452 4 94 61 0 0 0 AUGMENT 1/1/3 4 [11566] 26453 83 263 10 0 0 4 COMMA FORBIDDEN' SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8165 [11567] 24/1/0 3210 [11568] 26454 76 261 2 0 0 0 gGNC JUMP unconditional Start of procedure 265 at location 3377 in chapter 3 [11569] [11569] 26500 PROCR 265 TIDY UP AND REASSEMBLE CONST [11569] 26501 NOTES RADIX 1/1/3 125 [11569] 26502 10 0 0 0 7: SELECT LITERAL 2/0/2 5450 [11570] 26503 5 94 0 0 2 0 STORE END SIGN TRANSFER 6/0/0 8165 [11571] 26504 86 263 10 0 0 0 DIRECTIVE SWITCH SELECT SWITCH R 1/1/2 4 [11572] 26505 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 3383 [11573] 26506 72 265 8 0 0 0 gOK SWITCH SETTINGS JUMP IF A >= 0 26/0/0 4248 [11574] 26507 80 295 2 0 0 0 gIGNORE THIS CONST ENTER SUBROUTINE 6/0/0 5510 [11575] 26508 94 60 0 0 0 COMMAS X2 SELECT 27/0/0 3389 [11576] 26509 70 265 14 0 0 0 JUMP IF A == 0 1/1/1 2 [11577] 26510 11 0 0 0 2 ADD LITERAL 5/0/0 5511 [11578] 26511 2 94 61 0 0 0 DIRECTIVE CTR SUBTRACT 27/0/0 3389 [11579] 26512 70 265 14 0 0 0 JUMP IF A == 0 26/0/0 4248 [11580] 26513 80 295 2 0 0 0 gIGNORE THIS CONST ENTER SUBROUTINE 6/0/0 5511 [11581] 26514 94 61 0 0 0 DIRECTIVE CTR SELECT 1/1/2 12 [11582] 26515 12 0 0 0 + SUBTRACT LITERAL 27/0/3 3393 [11583] 26516 73 265 18 0 0 0 gOK, NOT MORE THAN 5 JUMP IF A < 0 26/0/0 4248 [11584] 26517 80 295 2 0 0 0 gIGNORE ENTER SUBROUTINE Source: RayS/Q1000203 24/0/3 22 [11585] 26518 96 0 0 2 0 SELECT MODIFIER 6/0/0 4 [11586] 2/0/0 120 [11587] 26519 5 12 70 0 0 0 TOT NO OF CHARS TRANSFER 3/1/0 40 [11588] 26520 91 0 0 2 0 CLEAR BOTH SET MODIFICATION REGISTER AT VARIABLE 26/1/2 40 [11589] 3/1/0 40 [11590] 26521 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [11591] 6/0/0 8161 [11592] 26522 86 695 2 0 0 0 SELECT SWITCH R 27/0/0 3428 [11593] 26523 70 265 47 0 0 0 gNO REL ADDRESS IN CONST JUMP IF A == 0 3/1/0 40 [11594] 26524 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [11595] 6/0/0 117 [11596] 26525 0 12 67 0 0 0 REF SELECT 1/1/2 256 [11597] 26526 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 3428 [11598] 26527 73 265 47 0 0 0 gSECTION JUMP IF A < 0 1/1/2 2201 [11599] 26528 12 0 0 0 899 SUBTRACT LITERAL 27/0/2 3428 [11600] 26529 72 265 47 0 0 0 gEX RANGE JUMP IF A >= 0 6/0/0 117 [11601] 26530 0 12 67 0 0 0 SELECT 26/0/0 1619 [11602] 26531 80 200 2 0 0 0 gREPLACE PROCR ENTER SUBROUTINE 24/1/0 3413 [11603] 0/0/1 1673 [11604] 26532 C 202 2 0 0 0 6/0/0 169 [11605] 26533 12 119 0 0 0 SELECT 0/0/3 0 [11606] 26534 62 0 0 0 0 SET EXCESS CONSTANTS 18/1/1 4126 [11607] 26535 32 0 0 0 2- REPLACE 3-DIGIT NUMBER SHIFT (AB) BY QUARTETS 2/0/1 5449 [11608] 26536 5 94 1- 0 1 0 (FIRST DIGIT ALWAYS ZERO) TRANSFER 18/1/1 1 [11609] 26537 32 0 0 0 1 SHIFT (AB) BY QUARTETS 27/0/1 3420 [11610] 26538 71 265 40 0 0 0 JUMP IF A != 0 1/1/3 48 [11611] 26539 10 0 0 0 30 SELECT LITERAL 2/0/1 5450 [11612] 26540 5 94 0 0 1 0 TRANSFER 18/1/1 1 [11613] 26541 32 0 0 0 1 SHIFT (AB) BY QUARTETS 27/0/1 3424 [11614] 26542 71 265 44 0 0 0 JUMP IF A != 0 1/1/3 48 [11615] 26543 10 0 0 0 30 SELECT LITERAL 2/0/1 5451 [11616] 26544 5 94 1 0 1 0 TRANSFER 6/1/0 5236 [11617] 26545 54 1 6 0 0 18 BULK CLEAR 28/0/0 5298 [11618] 24/1/0 3470 [11619] 26546 76 265 83 0 0 0 gASSEMBLE JUMP unconditional 6/0/0 83 [11620] 26547 0 12 33 0 0 0 SELECT 27/0/0 3487 [11621] 26548 70 266 17 0 0 0 gMT JUMP IF A == 0 6/1/0 5238 [11622] 26549 54 1 6 0 0 18 CLEAR 1/6'-1.22'=EDIT AREA BULK CLEAR 28/0/0 5298 [11623] 24/0/1 6320 [11624] 26550 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 3433 [11625] 0/0/1 3470 [11626] s 26551 C 265 83 0 0 0 gPT 0/0/1 3436 [11627] s 26552 C 265 53 0 0 0 gCARDS 6/0/0 5511 [11628] 26553 94 61 0 0 0 DIRECTIVE CTR SELECT 1/1/2 4 [11629] 26554 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 3458 [11630] 26555 72 265 72 0 0 0 gMIXED CONSTANT JUMP IF A >= 0 6/0/0 8169 [11631] 26556 86 267 2 0 0 0 SELECT SWITCH R 1/1/2 1 [11632] 26557 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 3458 [11633] 26558 71 265 72 0 0 0 gNOT ALPHA JUMP IF A != 0 6/0/0 5450 [11634] 26559 94 0 0 0 0 FIRST CHAR SELECT 1/1/2 122 [11635] 26560 12 0 0 0 7t SUBTRACT LITERAL 27/0/0 3446 [11636] 26561 70 265 63 0 0 0 g'(' JUMP IF A == 0 6/0/0 5121 [11637] 26562 10 0 0 0 3- SELECT LITERAL 1/1/1 3 [11638] 26563 11 0 0 0 3 ADD LITERAL 0/0/2 5122 [11639] 26564 17 12 90 0 0 3 LONG/SHORT CTR MULTIPLY LITERAL and ADD 10/0/0 140 [11640] 4/1/0 5240 [11641] 26565 11 0 0 0 1.00002 END VLAUE 30 ADD LITERAL 3/0/0 120 [11642] 26566 3 12 70 0 0 0 NEW CONSTANT LENGTH COPY 3/1/0 40 [11643] 26567 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [11644] 1/1/3 125 [11645] 26568 10 0 0 0 7: SELECT LITERAL 2/0/1 5450 [11646] 26569 5 94 0 0 1 0 TRANSFER 25/0/1 1 [11647] 26570 94 265 69 0 1 1 gCLEAR REST OF CONSTANT STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3454 [11648] s 24/1/0 3470 [11649] 26571 76 265 83 0 0 0 JUMP unconditional 26/1/1 5242 [11650] 26572 90 0 0 1 28 SET MODIFICATION REGISTER AT LITERAL [11651] 26573 C 0 0 0 0 Limit 6/0/1 5450 [11651] 26574 94 0 0 1 0 SELECT Source: TonyJ/Q1000204 27/0/1 3463 [11652] 26575 71 265 77 0 0 0 >FIRST NON ZERO CHAR FROM END JUMP IF A != 0 25/0/1 4097 [11653] 26576 94 265 74 0 1 1- STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3459 [11654] s 1/1/3 125 [11655] 26577 10 0 0 0 7: SELECT LITERAL 2/0/1 5451 [11656] 26578 5 94 1 0 1 0 SET CONST END TRANSFER 2/0/0 5479 [11657] 26579 5 94 29 0 0 0 CLEAR OLD END TRANSFER 24/0/3 22 [11658] 26580 96 0 0 1 0 SELECT MODIFIER 6/0/0 2 [11659] 1/1/1 1 [11660] 26581 11 0 0 0 1 ADD LITERAL 2/0/0 120 [11661] 26582 5 12 70 0 0 0 NEW NUMBERS OF CHARS TRANSFER 6/0/2 5450 [11662] 26583 94 0 0 2 0 SELECT Start of procedure 266 at location 3471 in chapter 3 [11663] [11663] 26600 PROCR 266 266 [11663] 26601 NOTES RADIX 0 STORE OLD - NEW RADIX 18/0/1 2 [11663] 26602 30 0 0 0 2 CTR OF CONVERT TABLES TO DATE SHIFT (A) BY QUARTETS 4/0/2 5451 [11664] 26603 1 94 1 0 2 0 ADD 18/0/1 2 [11665] 26604 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/2 5452 [11666] 26605 1 94 2 0 2 0 ADD 18/0/1 2 [11667] 26606 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/2 5453 [11668] 26607 1 94 3 0 2 0 ADD 18/0/1 2 [11669] 26608 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/2 5454 [11670] 26609 1 94 4 0 2 0 ADD 2/1/3 5298 [11671] 26610 5 1 6 1 3 0 STORE NEXT WORD OF CONST TRANSFER 25/0/3 2 [11672] 26611 125 2 0 3 0 STEP ON AND TEST 25/0/2 5 [11673] 26612 125 5 0 2 0 STEP ON AND TEST 24/0/3 22 [11674] 26613 96 0 0 2 0 SELECT MODIFIER 6/0/0 4 [11675] 1/1/2 1 [11676] 26614 12 0 0 0 1 SUBTRACT LITERAL 5/0/0 120 [11677] 26615 2 12 70 0 0 0 NO OF CHARS SUBTRACT 27/0/3 3470 [11678] 26616 73 265 83 0 0 0 > CYCLE FOR MULTIPLE OF 5 JUMP IF A < 0 6/1/0 5334 [11679] 26617 1 42 1 0 0 SELECT 5/1/0 4752 [11680] 26618 2 319 26 1 0 0 SUBTRACT 27/0/1 3492 [11681] 26619 71 266 22 0 0 0 > OK JUMP IF A != 0 26/0/0 3255 [11682] 26620 80 263 10 0 0 0 CLEAR ALL DETAILS ENTER SUBROUTINE 24/1/0 2810 [11683] 26621 76 247 2 0 0 0 JUMP unconditional 6/0/0 5511 [11684] 26622 0 94 61 0 0 0 SF CTR IN DIRECTIVE LINE SELECT 1/1/2 4 [11685] 26623 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 2810 [11686] 26624 72 247 2 0 0 0 > CONST IS MIXED OR CONTAINS € JUMP IF A >= 0 26/1/1 5244 [11687] 26625 90 0 0 1 0 CLEAR MODIFIER SET MODIFICATION REGISTER AT LITERAL [11688] 26626 C 0 0 0 0 ///// Limit 6/0/1 5450 [11688] 26627 94 0 0 1 0 NEXT CHAR SELECT 1/1/2 122 [11689] 26628 12 0 0 0 7t Please check I have transcribed literal OK SUBTRACT LITERAL 27/0/1 3506 [11690] 26629 71 267 2 0 0 0 > NOT '(' JUMP IF A != 0 6/0/1 5451 [11691] 26630 0 94 1 0 1 0 CHAR AFTER '(' SELECT 25/0/1 1 [11692] 26631 94 0 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3502 [11693] 1/1/2 123 [11694] 26632 12 0 0 0 7e Please check I have transcribed literal OK. As per DH email 6th March. )' SUBTRACT LITERAL 27/0/1 3499 [11695] 26633 71 266 30 0 0 0 JUMP IF A != 0 25/0/1 1 [11696] 26634 94 0 0 1 1 TO SELECT CHAR AFTER DIRECTIVE STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3506 [11697] Start of procedure 267 at location 3506 in chapter 3 [11698] [11698] 26700 PROCR 267 267 CONSTANTS SWITCH [11698] 26701 NOTES 24/0/1 8169 [11698] 26702 85 267 2 0 0 0 SWITCH R 26/0/1 3507 [11699] 0/0/1 3539 [11700] 26703 C 268 2 0 0 0 0/0/1 3548 [11701] 26704 C 269 2 0 0 0 0/0/1 3562 [11702] 26705 C 270 2 0 0 0 0/0/1 3585 [11703] 26706 C 272 2 0 0 0 0/0/1 3513 [11704] s 26707 C 267 8 0 0 0 > RELATIVE ADDRESS 6/0/0 117 [11705] 26708 12 67 0 0 0 REF (DEC) SELECT 1/1/2 4096 [11706] 26709 12 0 0 0 1000 SUBTRACT LITERAL 27/0/2 3533 [11707] 26710 72 267 28 0 0 0 > REPORT R JUMP IF A >= 0 Source: TonyJ/Q1000205 1/1/1 3943 [11708] 26711 11 0 0 0 £67 1000 - 99 BIN RADIX ADD LITERAL 27/0/2 3535 [11709] 26712 72 267 30 0 0 0 >REF IS A PROCR JUMP IF A >= 0 6/0/0 117 [11710] 26713 12 67 0 0 0 SECTION IN DEC SELECT 27/0/0 2810 [11711] 26714 70 247 2 0 0 0 >ABS ADDRESS, NO CHECKS JUMP IF A == 0 26/0/0 1358 [11712] 26715 80 183 2 0 0 0 >DECODE ENTER SUBROUTINE 0/0/2 90 [11713] 26716 34 12 40 0 0 0 SET (N) IN B 15/0/3 122 [11714] 26717 36 12 72 0 3 0 COLLATE AND ADD 27/0/0 3533 [11715] 26718 70 267 28 0 0 0 > SECTION NON-EXISTENT;REPORT R JUMP IF A == 0 1/1/3 0 [11716] 26719 10 0 0 0 0 SELECT LITERAL 18/1/3 10 [11717] 26720 33 0 0 0 10 SHIFT COLLATOR SHIFT (AB) BY BITS 15/0/3 122 [11718] 26721 36 12 72 0 3 0 COLLATE AND ADD 27/0/1 3533 [11719] 26722 71 267 28 0 0 0 > SECTION IS TX AREA;REPORT R JUMP IF A != 0 6/0/0 116 [11720] 26723 12 66 0 0 0 ITEM SELECT 5/0/0 5123 [11721] 26724 12 0 0 0 8191 SUBTRACT LITERAL 27/0/3 2810 [11722] 26725 73 247 2 0 0 0 > OK JUMP IF A < 0 26/0/0 1588 [11723] 26726 80 196 2 0 0 0 > REPORT ENTER SUBROUTINE 24/1/0 2810 [11724] 26727 76 247 2 0 0 0 JUMP unconditional 26/0/0 1584 [11725] 26728 80 195 2 0 0 0 > REPORT R ENTER SUBROUTINE 24/1/0 2810 [11726] 26729 76 247 2 0 0 0 JUMP unconditional 6/0/0 116 [11727] 26730 12 66 0 0 0 ITEM SELECT 1/1/2 153 [11728] 26731 12 0 0 0 99 SUBTRACT LITERAL 27/0/2 3531 [11729] 26732 72 267 26 0 0 0 > REPORT 1 JUMP IF A >= 0 24/1/0 2810 [11730] 26733 76 247 2 0 0 0 > OK JUMP unconditional Start of procedure 268 at location 3539 in chapter 3 [11731] [11731] 26800 PROCR 268 268 CHECK ALPHA CONSTANTS [11731] 26801 NOTES 6/0/0 140 [11731] 26802 0 12 90 0 0 0 LONG/SHORT CONST INDICATOR SELECT 27/0/0 3542 [11732] 26803 70 268 5 0 0 0 JUMP IF A == 0 1/1/3 3 [11733] 26804 10 0 0 0 3 SELECT LITERAL 1/1/1 2 [11734] 26805 11 0 0 0 2 ADD LITERAL 24/0/3 22 [11735] 26806 98 0 0 1 0 > MODIFIER = DIRECTIVE LENGTH ADD MODIFICATION REGISTER TO A 4/0/0 2 [11736] 5/0/0 120 [11737] 26807 2 12 70 0 0 0 TOT CHARS IN CONST+1 (INDIRECTIVE) SUBTRACT 27/0/2 2810 [11738] 26808 72 247 2 0 0 0 > OK JUMP IF A >= 0 24/1/0 3590 [11739] 26809 76 273 2 0 0 0 > REPORT JUMP unconditional Start of procedure 269 at location 3548 in chapter 3 [11740] [11740] 26900 PROCR 269 269 CHECK DECIMAL CONSTANTS [11740] 26901 NOTES RADIX 6/0/0 140 [11740] 26902 0 12 90 0 0 0 LONG/SHORT CONST INDICATOR SELECT 27/0/0 3551 [11741] 26903 70 269 5 0 0 0 > SHORT JUMP IF A == 0 1/1/3 5 [11742] 26904 10 0 0 0 5 SELECT LITERAL 1/1/1 5 [11743] 26905 11 0 0 0 5 ADD LITERAL 2/0/0 117 [11744] 26906 5 12 67 0 0 0 TRANSFER 24/0/0 120 [11745] 26907 124 12 70 0 0 0 CHARS IN CONST MODIFY ADDRESS OF NEXT 6/0/0 5449 [11746] 26908 94 1- 0 0 0 FINAL BEFOR NE SELECT 1/1/2 16 [11747] 26909 12 0 0 0 10 SUBTRACT LITERAL 27/0/0 3559 [11748] 26910 70 269 13 0 0 0 > ALLOW FOR SIGN JUMP IF A == 0 6/0/0 117 [11749] 26911 0 12 67 0 0 0 SELECT 24/1/0 3543 [11750] 26912 76 268 6 0 0 0 > CHECK JUMP unconditional 6/0/0 117 [11751] 26913 0 12 67 0 0 0 SELECT 1/1/1 1 [11752] 26914 11 0 0 0 1 ADD LITERAL 24/1/0 3543 [11753] 26915 76 268 6 0 0 0 > CHECK JUMP unconditional Start of procedure 270 at location 3562 in chapter 3 [11754] [11754] 27000 PROCR 270 270 BINARY NUMBERS [11754] 27001 NOTES RADIX 26/1/2 5246 [11754] 27002 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [11755] 27003 C 0 0 0 11 Limit 6/0/1 5450 [11755] 27004 94 0 0 1 0 NEXT CHAR SELECT Source: RayS/Q1000206 1/1/2 125 [11756] 27005 12 0 0 0 7: SUBTRACT LITERAL 27/0/0 3579 [11757] 27006 70 271 2 0 0 0 gNUMBER END JUMP IF A == 0 1/1/1 109 [11758] 27007 11 0 0 0 6: ADD LITERAL 27/0/0 3579 [11759] 27008 70 271 2 0 0 0 gMINUS SIGN JUMP IF A == 0 1/1/1 16 [11760] 27009 11 0 0 0 10 ADD LITERAL 2/1/0 60 [11761] 27010 5 12 10 1 0 0 STORE CHARACTER TRANSFER 6/1/0 116 [11762] 27011 0 12 66 1 0 0 SELECT 18/0/1 1 [11763] 27012 30 0 0 0 1 SHIFT (A) BY QUARTETS 4/1/0 61 [11764] 27013 1 12 10 2 0 0 BASIC QTT ADD 2/1/0 116 [11765] 27014 5 12 66 1 0 0 ASSEMBLE CONST QTT BY QTT TRANSFER 25/0/1 1 [11766] 27015 94 270 16 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3576 [11767] 25/0/2 1 [11768] 27016 94 270 4 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3563 [11769] s 24/1/0 3590 [11770] 27017 76 273 2 0 0 0 gREPORT TOO MANY CHARS JUMP unconditional Start of procedure 271 at location 3579 in chapter 3 [11771] [11771] 27100 PROCR 271 [11771] 27101 NOTES RADIX 6/0/0 140 [11771] 27102 0 12 90 0 0 0 LONG/SHORT CONST IND SELECT 27/0/1 2810 [11772] 27103 71 247 2 0 0 0 JUMP IF A != 0 6/1/0 116 [11773] 27104 12 66 1 0 0 SELECT 5/1/0 5248 [11774] 27105 12 0 0 0 1048576 SUBTRACT LITERAL 27/0/2 3590 [11775] 27106 72 273 2 0 0 0 JUMP IF A >= 0 24/1/0 2810 [11776] 27107 76 247 2 0 0 0 JUMP unconditional Start of procedure 272 at location 3585 in chapter 3 [11777] [11777] 27200 PROCR 272 BINARY PATTERN [11777] 27201 NOTES RADIX 6/0/0 140 [11777] 27202 0 12 90 0 0 0 LONG/SHORT CONSTANT IND SELECT 27/0/0 3588 [11778] 27203 70 272 5 0 0 0 JUMP IF A == 0 1/1/3 20 [11779] 27204 10 0 0 0 14 SELECT LITERAL 1/1/1 20 [11780] 27205 11 0 0 0 14 ADD LITERAL 24/1/0 3552 [11781] 27206 76 269 6 0 0 0 gCHECK LENGTH VIA DEC JUMP unconditional Start of procedure 273 at location 3590 in chapter 3 [11782] [11782] 27300 PROCR 273 ERROR REPORT [11782] 27301 NOTES RADIX 1/1/3 91 [11782] 27302 10 0 0 0 5e SELECT LITERAL 2/1/0 5336 [11783] 27303 5 1 44 1 0 0 TRANSFER 24/1/0 2810 [11784] 27304 76 247 2 0 0 0 JUMP unconditional Start of procedure 274 at location 3593 in chapter 3 [11785] [11785] 27400 PROCR 274 GET NEXT CHAR OF CONSTANT(IE NEXT WORD) [11785] 27401 NOTES RADIX 0/0/0 0 [11785] 27402 81 274 2 0 0 0 START OF SUBROUTINE 1/1/3 0 [11786] 27403 10 0 0 0 0 SELECT LITERAL 25/0/3 1 [11787] 27404 94 274 13 0 3 1 gHAVE NOT EXHAUSTED 5-CHAR WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3609 [11788] s 25/0/1 2 [11789] 27405 94 274 10 0 1 2 STEP FOR NEXT WORD IF PRESENT STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3603 [11790] s 26/0/0 4248 [11791] 27406 80 295 2 0 0 0 *IGNORE MORE THAN 45 CHAR ENTER SUBROUTINE 1/1/3 125 [11792] 27407 10 0 0 0 7: SELECT LITERAL 18/1/1 4126 [11793] 27408 32 0 0 0 2- SHIFT (AB) BY QUARTETS 26/0/1 3593 [11794] 27409 82 274 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 26/1/3 5250 [11795] 27410 90 0 0 3 0 R3 COUNTS A 5-CHAR WORD SET MODIFICATION REGISTER AT LITERAL [11796] 27411 C 0 0 0 5 Limit 0/1/0 40 [11796] 27412 34 1 6 1 1 0 NEXT WORD CONSTANT SET (N) IN B 0/0/3 0 [11797] 6/1/1 5298 [11798] 2/1/0 42 [11799] 0/1/1 40 [11800] 26/0/1 3593 [11801] 27413 82 274 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 275 at location 3610 in chapter 3 [11802] [11802] 27500 PROCR 275 ALTERNATIVE ENTRY TO UPDATE ADDRESS 0/0/0 0 [11802] 27502 81 275 2 0 0 0 START OF SUBROUTINE 2/1/0 139 [11803] 27503 5 12 88 2 0 0 TRANSFER 6/0/0 3610 [11804] 27504 0 275 2 0 0 0 SELECT 3/0/0 3593 [11805] 27505 3 274 2 0 0 0 SET NONZERO='NOT P' COPY Source: RayS/Q1000207 2/0/0 1826 [11806] 27506 5 208 2 0 0 0 TRANSFER 24/1/0 1834 [11807] 27507 76 208 10 0 0 0 gENTER JUMP unconditional Start of procedure 276 at location 3616 in chapter 3 [11808] [11808] 27600 PROCR 276 [11808] 27601 NOTES RADIX 2/0/0 53 [11808] 27602 5 12 3 0 0 0 CLEAR ERROR WL TRANSFER 26/1/2 5252 [11809] 27603 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [11810] 27604 C 0 0 0 8 Limit 6/0/2 5314 [11810] 27605 0 1 22 0 2 0 ITEM SELECT 2/0/0 5302 [11811] 27606 5 1 10 0 0 0 TRANSFER 6/1/2 5312 [11812] 27607 0 1 20 1 2 0 REF (NUM) SELECT 26/0/0 3610 [11813] 27608 80 275 2 0 0 0 gUPDATE ADDRESS ENTER SUBROUTINE 6/0/0 5302 [11814] 27609 0 1 10 0 0 0 NEW ITEM SELECT 2/0/2 5314 [11815] 27610 5 1 22 0 2 0 TRANSFER 6/0/0 54 [11816] 27611 0 12 4 0 0 0 NEW REF SELECT 2/0/2 5312 [11817] 27612 5 1 20 0 2 0 TRANSFER 26/0/0 3634 [11818] 27613 80 277 2 0 0 0 CHECK REF ENTER SUBROUTINE 6/0/0 5311 [11819] 27614 1 19 0 0 0 DISC SELECT 27/0/0 3631 [11820] 27615 70 276 18 0 0 0 JUMP IF A == 0 6/0/0 5302 [11821] 27616 1 10 0 0 0 SELECT 26/0/0 1568 [11822] 27617 80 192 2 0 0 0 gCHECK ITEM IS EVEN ENTER SUBROUTINE 25/0/2 4 [11823] 27618 94 276 5 0 2 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3618 [11824] s 24/1/0 3664 [11825] 27619 76 278 2 0 0 0 JUMP unconditional Start of procedure 277 at location 3634 in chapter 3 [11826] [11826] 27700 PROCR 277 SR TO CHECK TABLE ADDRESSES AND VALUE ADDRESSES [11826] 27701 NOTES RADIX 0/0/0 0 [11826] 27702 81 277 2 0 0 0 START OF SUBROUTINE 1/1/3 1 [11827] 27703 83 108 2 0 0 1 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8167 [11828] 6/0/0 54 [11829] 27704 12 4 0 0 0 REF TO BE CHECKED SELECT 1/1/2 256 [11830] 27705 12 0 0 0 100 SUBTRACT LITERAL 27/0/2 3661 [11831] 27706 72 277 27 0 0 0 gNOT SECTION JUMP IF A >= 0 6/0/0 54 [11832] 27707 0 12 4 0 0 0 SELECT 27/0/3 3656 [11833] 27708 73 277 23 0 0 0 JUMP IF A < 0 27/0/0 3651 [11834] 27709 70 277 18 0 0 0 JUMP IF A == 0 26/0/0 1358 [11835] 27710 80 183 2 0 0 0 gDECODE SR ENTER SUBROUTINE 0/0/2 90 [11836] 27711 34 12 40 0 0 0 SET (N) IN B 15/0/3 122 [11837] 27712 36 12 72 0 3 0 COLLATE AND ADD 27/0/0 3656 [11838] 27713 70 277 23 0 0 0 gIGNORE, SECTION NONEXISTENT JUMP IF A == 0 18/1/3 10 [11839] 27714 33 0 0 0 10 SHIFT (AB) BY BITS 1/1/3 0 [11840] 27715 10 0 0 0 0 SELECT LITERAL 15/0/3 122 [11841] 27716 36 12 72 0 3 0 COLLATE AND ADD 27/0/1 3656 [11842] 27717 71 277 23 0 0 0 gIGNORE, SECTION IS TX AREA JUMP IF A != 0 6/0/0 5302 [11843] 27718 0 1 10 0 0 0 SELECT 5/0/0 5124 [11844] 27719 12 0 0 0 8192 SUBTRACT LITERAL 27/0/3 3663 [11845] 27720 73 277 29 0 0 0 JUMP IF A < 0 26/0/0 1588 [11846] 27721 80 196 2 0 0 0 gREPORT I ENTER SUBROUTINE 24/1/0 3657 [11847] 27722 76 277 24 0 0 0 JUMP unconditional 26/0/0 1584 [11848] 27723 80 195 2 0 0 0 gREPORT R ENTER SUBROUTINE 26/0/0 4248 [11849] 27724 80 295 2 0 0 0 gIGNORE ENTER SUBROUTINE 1/1/3 2 [11850] 27725 83 108 2 0 0 2 IGNORE ANY MORE 'VALTHIS REF FOR SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8167 [11851] 24/1/0 3663 [11852] 27726 76 277 29 0 0 0 JUMP unconditional 1/1/2 2304 [11853] 27727 12 0 0 0 900 SUBTRACT LITERAL 27/0/2 3656 [11854] 27728 72 277 23 0 0 0 gREF>999, IGNORE JUMP IF A >= 0 26/0/1 3634 [11855] 27729 82 277 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 278 at location 3664 in chapter 3 [11856] [11856] 27800 PROCR 278 TABLE SWITCH Source: RayS/Q1000208 [11856] 27801 NOTES RADIX 6/0/0 5311 [11856] 27802 0 1 19 0 0 0 DISC SELECT 27/0/3 3801 [11857] 27803 73 282 18 0 0 0 gREPORT T5 JUMP IF A < 0 1/1/2 3 [11858] 27804 12 0 0 0 3 SUBTRACT LITERAL 27/0/2 3801 [11859] 27805 72 282 18 0 0 0 JUMP IF A >= 0 6/0/0 5312 [11860] 27806 0 1 20 0 0 0 FIRST REF SELECT 27/0/0 3807 [11861] 27807 70 282 24 0 0 0 gREPORT T1 JUMP IF A == 0 24/0/1 8166 [11862] 27808 85 278 8 0 0 0 SWITCH R 26/0/1 3671 [11863] 0/0/1 3677 [11864] 27809 C 279 2 0 0 0 0/0/1 3743 [11865] 27810 C 281 2 0 0 0 0/0/1 3685 [11866] 27811 C 279 10 0 0 0 gTYPE 3 0/0/1 3764 [11867] 27812 C 281 23 0 0 0 gTYPE 4 0/0/1 2810 [11868] 27813 C 247 2 0 0 0 Start of procedure 279 at location 3677 in chapter 3 [11869] [11869] 27900 PROCR 279 TYPES 1 AND 3 [11869] 27901 NOTES RADIX EDIT AND UNPACK FIXED 6/0/0 5304 [11869] 27902 1 12 0 0 0 NO OF CHARS SELECT 4/0/0 5306 [11870] 27903 1 1 14 0 0 0 SPACES ADD 7/0/0 55 [11871] 27904 4 12 5 0 0 0 TOTAL FOR TABLE AUGMENT 6/0/0 5308 [11872] 27905 1 16 0 0 0 SIGN SELECT 1/1/2 2 [11873] 27906 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 3685 [11874] 27907 71 279 10 0 0 0 gNOT SEPARATE CHARACTER JUMP IF A != 0 1/1/3 1 [11875] 27908 10 0 0 0 1 SELECT LITERAL 7/0/0 55 [11876] 27909 4 12 5 0 0 0 STEP TOTAL AUGMENT 6/0/0 5316 [11877] 27910 1 24 0 0 0 SECOND REF SELECT 0/0/2 5318 [11878] 27911 34 1 26 0 0 0 SECON ITEM SET (N) IN B 27/1/1 3805 [11879] 27912 75 282 22 0 0 0 gREPORT T3 JUMP IF AB != 0 6/0/0 5303 [11880] 27913 1 11 0 0 0 SELECT 27/0/1 3799 [11881] 27914 71 282 16 0 0 0 g'UNPACK TO BE' IS SET JUMP IF A != 0 6/0/0 5311 [11882] 27915 0 1 19 0 0 0 DISC SELECT 1/1/2 1 [11883] 27916 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 3694 [11884] 27917 70 279 19 0 0 0 JUMP IF A == 0 6/0/0 5125 [11885] 27918 10 0 0 0 5- SELECT LITERAL 1/1/1 16 [11886] 27919 11 0 0 0 10 ADD LITERAL 5/0/0 5304 [11887] 27920 2 1 12 0 0 0 CHARS SUBTRACT 5/0/0 5305 [11888] 27921 2 1 13 0 0 0 DISCARDS SUBTRACT 27/0/3 3797 [11889] 27922 73 282 14 0 0 0 gINCONSISTENT WITH SOURCE LENGTH JUMP IF A < 0 4/0/0 5304 [11890] 27923 1 1 12 0 0 0 ADD 4/0/0 5305 [11891] 27924 1 1 13 0 0 0 ADD 5/0/0 5307 [11892] 27925 2 1 15 0 0 0 ZEROS SUBTRACT 27/0/3 3791 [11893] 27926 73 282 8 0 0 0 gMORE ZEROS THAN SOURCE JUMP IF A < 0 6/0/0 5304 [11894] 27927 1 12 0 0 0 CHARS SELECT 5/0/0 5307 [11895] 27928 2 1 15 0 0 0 ZEROS SUBTRACT 27/0/3 3791 [11896] 27929 73 282 8 0 0 0 gZEROS>NO CHARS 'T10' JUMP IF A < 0 Start of procedure 280 at location 3705 in chapter 3 [11897] [11897] 28000 PROCR 280 [11897] 28001 NOTES RADIX 6/0/0 5306 [11897] 28002 1 14 0 0 0 SELECT 1/1/2 22 [11898] 28003 12 0 0 0 16 SUBTRACT LITERAL 27/0/2 3793 [11899] 28004 72 282 10 0 0 0 gTOO MANY SPCES JUMP IF A >= 0 6/0/0 5304 [11900] 28005 0 1 12 0 0 0 CHARS SELECT 27/0/0 3797 [11901] 28006 70 282 14 0 0 0 gREPORT 'T7' JUMP IF A == 0 6/0/0 5311 [11902] 28007 0 1 19 0 0 0 DISC SELECT 1/1/2 2 [11903] 28008 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 3715 [11904] 28009 71 280 12 0 0 0 gNOT ALPHA JUMP IF A != 0 6/0/0 5307 [11905] 28010 0 1 15 0 0 0 ZEROS SELECT 27/0/1 3791 [11906] 28011 71 282 8 0 0 0 gREPORT 'T10' JUMP IF A != 0 6/0/0 5309 [11907] 28012 1 17 0 0 0 STERLING INDICATOR SELECT 27/0/1 3720 [11908] 28013 71 280 17 0 0 0 JUMP IF A != 0 Source: RayS/Q1000209 5/0/0 113 [11909] 28014 2 12 63 0 0 0 STERLING CTR SUBTRACT 27/0/0 3727 [11910] 28015 70 280 24 0 0 0 JUMP IF A == 0 24/1/0 3741 [11911] 28016 76 280 38 0 0 0 gREPORT 'T12' JUMP unconditional 1/1/2 1 [11912] 28017 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 3787 [11913] 28018 71 282 4 0 0 0 JUMP IF A != 0 6/0/0 113 [11914] 28019 12 63 0 0 0 SELECT 1/1/2 2 [11915] 28020 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 3726 [11916] 28021 70 280 23 0 0 0 JUMP IF A == 0 1/1/1 3 [11917] 28022 11 0 0 0 3 ADD LITERAL 2/0/0 113 [11918] 28023 5 12 63 0 0 0 TRANSFER 6/0/0 5310 [11919] 28024 1 18 0 0 0 LAST TABLE ENTRY SELECT 3/0/0 56 [11920] 28025 3 12 6 0 0 0 COPY TO WL COPY 27/0/0 2810 [11921] 28026 70 247 2 0 0 0 JUMP IF A == 0 1/1/2 1 [11922] 28027 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 3785 [11923] 28028 71 282 2 0 0 0 g'T13' IF LTE WRONG JUMP IF A != 0 6/0/0 55 [11924] 28029 12 5 0 0 0 CHARACTERS EDITED SELECT 4/0/0 55 [11925] 28030 1 12 5 0 0 0 ADD 18/0/1 9 [11926] 28031 30 0 0 0 9 SHIFT (A) BY QUARTETS 27/0/0 3738 [11927] 28032 70 280 35 0 0 0 gMULT OF 5 JUMP IF A == 0 6/1/0 5254 [11928] 28033 10 0 0 0 727464 SUM' SELECT LITERAL 2/1/0 5336 [11929] 28034 5 1 44 1 0 0 TRANSFER 2/0/0 55 [11930] 28035 5 12 5 0 0 0 CLEAR STR AT EACH LTE TRANSFER 5/0/0 113 [11931] 28036 2 12 63 0 0 0 STERLING INDICATORS NOT SUBTRACT 27/0/0 2810 [11932] 28037 70 247 2 0 0 0 OCCURRED IN 3 CONSECUTIVE LINES JUMP IF A == 0 7/0/0 113 [11933] 28038 4 12 63 0 0 0 CLEAR COUNTER AUGMENT 24/1/0 3787 [11934] 28039 76 282 4 0 0 0 ERROR REPORT T12 JUMP unconditional Start of procedure 281 at location 3743 in chapter 3 [11935] [11935] 28100 PROCR 281 CHECK TABLES [11935] 28101 NOTES RADIX TYPES 2 AND 4 6/0/0 5316 [11935] 28102 1 24 0 0 0 2ND REF SELECT 27/0/0 3764 [11936] 28103 70 281 23 0 0 0 gIS ZERO JUMP IF A == 0 18/0/1 4126 [11937] 28104 30 0 0 0 2- SHIFT (A) BY QUARTETS 27/0/1 3754 [11938] 28105 71 281 13 0 0 0 g3 DIG REF JUMP IF A != 0 6/0/0 5312 [11939] 28106 1 20 0 0 0 SELECT 18/1/1 4126 [11940] 28107 32 0 0 0 2- SHIFT (AB) BY QUARTETS 27/0/1 3805 [11941] 28108 71 282 22 0 0 0 g3 DIG + 2 DIG 'T3' JUMP IF A != 0 18/1/1 2 [11942] 28109 32 0 0 0 2 SHIFT (AB) BY QUARTETS 5/0/0 5316 [11943] 28110 2 1 24 0 0 0 2ND REF SUBTRACT 27/0/1 3805 [11944] 28111 71 282 22 0 0 0 g2 DIG REF JUMP IF A != 0 24/1/0 3761 [11945] 28112 76 281 20 0 0 0 gCHECK ITEMS JUMP unconditional 6/0/0 5312 [11946] 28113 1 20 0 0 0 1ST REF SELECT 18/1/1 4126 [11947] 28114 32 0 0 0 2- SHIFT (AB) BY QUARTETS 27/0/0 3805 [11948] 28115 70 282 22 0 0 0 g2 DIG + 3 DIG RED (3 DIG) 'T3' JUMP IF A == 0 6/0/0 5316 [11949] 28116 1 24 0 0 0 2ND REF SELECT 5/0/0 5312 [11950] 28117 2 1 20 0 0 0 1ST REF SUBTRACT 27/0/3 3805 [11951] 28118 73 282 22 0 0 0 g2ND REF <1ST REF (3 DIG) 'T3' JUMP IF A < 0 27/0/1 3764 [11952] 28119 71 281 23 0 0 0 JUMP IF A != 0 6/0/0 5318 [11953] 28120 1 26 0 0 0 2ND ITEM SELECT 5/0/0 5314 [11954] 28121 2 1 22 0 0 0 FIRST ITEM SUBTRACT 27/0/3 3803 [11955] 28122 73 282 20 0 0 0 g2ND <1ST 'T4' JUMP IF A < 0 6/0/0 5303 [11956] 28123 1 11 0 0 0 'SINGLE/BE' SELECT 27/0/0 3770 [11957] 28124 70 281 29 0 0 0 JUMP IF A == 0 1/1/2 1 [11958] 28125 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 3799 [11959] 28126 71 282 16 0 0 0 JUMP IF A != 0 6/0/0 5310 [11960] 28127 1 18 0 0 0 LAST TABLE ENTRY' SELECT 27/0/0 3785 [11961] 28128 70 282 2 0 0 0 JUMP IF A == 0 6/0/0 5304 [11962] 28129 1 12 0 0 0 NO OF CHARS SELECT 27/0/1 3797 [11963] 28130 71 282 14 0 0 0 JUMP IF A != 0 Source: RayS/Q1000210 6/0/0 5305 [11964] 28131 1 13 0 0 0 DISCARDS SELECT 27/0/1 3795 [11965] 28132 71 282 12 0 0 0 JUMP IF A != 0 6/0/0 5306 [11966] 28133 1 14 0 0 0 SPACES SELECT 27/0/1 3793 [11967] 28134 71 282 10 0 0 0 JUMP IF A != 0 6/0/0 5307 [11968] 28135 1 15 0 0 0 ZEROS SELECT 27/0/1 3791 [11969] 28136 71 282 8 0 0 0 JUMP IF A != 0 6/0/0 5308 [11970] 28137 1 16 0 0 0 SIGN SELECT 27/0/0 3782 [11971] 28138 70 281 41 0 0 0 JUMP IF A == 0 1/1/2 2 [11972] 28139 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 3789 [11973] 28140 71 282 6 0 0 0 JUMP IF A != 0 6/0/0 5309 [11974] 28141 1 17 0 0 0 STERLING IND SELECT 27/0/1 3787 [11975] 28142 71 282 4 0 0 0 JUMP IF A != 0 24/1/0 2810 [11976] 28143 76 247 2 0 0 0 JUMP unconditional Start of procedure 282 at location 3785 in chapter 3 [11977] [11977] 28200 PROCR 282 MAKE REPORT 'T*' [11977] 28201 NOTES RADIX 1/1/3 1 [11977] 28202 10 0 0 0 1 SELECT LITERAL 2/0/0 53 [11978] 28203 5 12 3 0 0 0 TRANSFER 1/1/3 1 [11979] 28204 10 0 0 0 1 SELECT LITERAL 7/0/0 53 [11980] 28205 4 12 3 0 0 0 AUGMENT 1/1/3 1 [11981] 28206 10 0 0 0 1 SELECT LITERAL 7/0/0 53 [11982] 28207 4 12 3 0 0 0 AUGMENT 1/1/3 1 [11983] 28208 10 0 0 0 1 SELECT LITERAL 7/0/0 53 [11984] 28209 4 12 3 0 0 0 AUGMENT 1/1/3 1 [11985] 28210 10 0 0 0 1 SELECT LITERAL 7/0/0 53 [11986] 28211 4 12 3 0 0 0 AUGMENT 1/1/3 1 [11987] 28212 10 0 0 0 1 SELECT LITERAL 7/0/0 53 [11988] 28213 4 12 3 0 0 0 AUGMENT 1/1/3 1 [11989] 28214 10 0 0 0 1 SELECT LITERAL 7/0/0 53 [11990] 28215 4 12 3 0 0 0 AUGMENT 1/1/3 1 [11991] 28216 10 0 0 0 1 SELECT LITERAL 7/0/0 53 [11992] 28217 4 12 3 0 0 0 AUGMENT 1/1/3 1 [11993] 28218 10 0 0 0 1 SELECT LITERAL 7/0/0 53 [11994] 28219 4 12 3 0 0 0 AUGMENT 1/1/3 1 [11995] 28220 10 0 0 0 1 SELECT LITERAL 7/0/0 53 [11996] 28221 4 12 3 0 0 0 AUGMENT 1/1/3 2 [11997] 28222 10 0 0 0 2 SELECT LITERAL 7/0/0 53 [11998] 28223 4 12 3 0 0 0 AUGMENT 1/1/3 1 [11999] 28224 10 0 0 0 1 SELECT LITERAL 4/0/0 53 [12000] 28225 1 12 3 0 0 0 ADD 2/0/0 138 [12001] 28226 5 12 88 0 0 0 TRANSFER 24/0/2 4438 [12002] 28227 52 1 44 0 0 0 EDIT 28/1/2 5336 [12003] 28228 C 306 6 0 0 0 6/1/0 5256 [12004] 28229 10 0 0 0 730000 SELECT LITERAL 7/1/0 5336 [12005] 28230 4 1 44 1 0 0 AUGMENT Source: RayS/Q1000211 24/1/0 2810 [12006] 28231 76 247 2 0 0 0 JUMP unconditional Start of procedure 283 at location 3815 in chapter 3 [12007] [12007] 28300 PROCR 283 UNPACK PAPER TAPE PART ONE-DIRECTIVES [12007] 28301 NOTES RADIX 0/0/0 0 [12007] 28302 81 283 2 0 0 0 START OF SUBROUTINE 6/1/0 5258 [12008] 28303 54 1 0 1 0 46 BULK CLEAR 28/1/1 5292 [12009] 6/0/0 88 [12010] 28304 12 38 0 0 0 SELECT 27/0/0 3944 [12011] 28305 70 285 2 0 0 0 NOT A DIRECTIVE JUMP IF A == 0 24/0/1 6320 [12012] 28306 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 3821 [12013] 0/0/1 3824 [12014] s 28307 C 283 9 0 0 0 0/0/1 3846 [12015] s 28308 C 283 31 0 0 0 CARDS 6/0/0 6044 [12016] 28309 0 92 30 0 0 0 AMEND RUN? SELECT 27/0/0 3828 [12017] 28310 70 283 13 0 0 0 JUMP IF A == 0 24/0/2 4542 [12018] 28311 124 311 2 0 2 0 SELECT LITERAL AND DIVISION 24/1/0 3829 [12019] 28312 76 283 14 0 0 0 JUMP unconditional 24/0/2 4544 [12020] 28313 124 311 4 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [12021] 28314 80 326 2 0 0 0 UNPACK P/T S/DIR ENTER SUBROUTINE 6/0/0 6315 [12022] 28315 0 27 5 0 0 0 SELECT 1/1/2 2 [12023] 28316 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 3843 [12024] 28317 71 283 28 0 0 0 gNOT TABLE JUMP IF A != 0 6/0/0 88 [12025] 28318 0 12 38 0 0 0 SELECT 27/0/3 3843 [12026] 28319 73 283 28 0 0 0 gNOT 'NOTES' OF TABLE JUMP IF A < 0 1/1/3 0 [12027] 28320 10 0 0 0 0 S/DIR WAS 'NOTES' OF TABLE SELECT LITERAL 2/1/0 5300 [12028] 28321 5 1 8 1 0 0 & MUST BE UNPACKED DIFFERENTLY TRANSFER 6/0/0 6044 [12029] 28322 0 92 30 0 0 0 SELECT 27/0/0 3841 [12030] 28323 70 283 26 0 0 0 gINITIAL TRANSLATION JUMP IF A == 0 24/0/2 4550 [12031] 28324 124 311 10 0 2 0 SELECT LITERAL AND DIVISION 24/1/0 3842 [12032] 28325 76 283 27 0 0 0 JUMP unconditional 24/0/2 4552 [12033] 28326 124 311 12 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [12034] 28327 80 326 2 0 0 0 UNPACK CORRECTLY ENTER SUBROUTINE 1/1/3 0 [12035] 28328 10 0 0 0 0 SELECT LITERAL 2/1/0 5336 [12036] 28329 5 1 44 1 0 0 CLEAR ERROR WL TRANSFER 26/0/1 3815 [12037] 28330 82 283 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 24/0/2 4544 [12038] 28331 50 9 8 0 0 0 UNPACK S/DIR FROM CARD UNPACK FIXED FIELD DATA 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/0/2 8 [12040] 28332 C 311 4 0 0 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 18 [12042] 28333 55 9 18 1 0 16 BULK COPY 18/1/0 4123 [12043] 28334 C 1 18 1 0 0 1/1/3 16 [12044] 18/1/1 5 [12045] 28/1/1 5310 [12046] 6/1/0 5300 [12047] 28335 0 1 8 1 0 0 SELECT 18/0/1 4 [12048] 28336 30 0 0 0 4 LEFT ALIGN SECTION NO SHIFT (A) BY QUARTETS 2/1/0 5300 [12049] 28337 5 1 8 1 0 0 TRANSFER 6/0/0 88 [12050] 28338 0 12 38 0 0 0 SELECT 27/0/3 3843 [12051] 28339 73 283 28 0 0 0 NOT 'NOTES' JUMP IF A < 0 6/0/0 6315 [12052] 28340 27 5 0 0 0 SELECT 1/1/2 1 [12053] 28341 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 3843 [12054] 28342 71 283 28 0 0 0 gNOT 'PROCR';LEAVE SR JUMP IF A != 0 6/1/0 5310 [12055] 28343 0 1 18 1 0 0 S/DIR WAS ''NOTES'' OF PROCR SELECT 2/1/0 5300 [12056] 28344 5 1 8 1 0 0 MOVE ''RADIX'' TRANSFER 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 20 [12058] 28345 55 9 20 1 0 16 COPY WORDS BULK COPY 18/1/0 4123 [12059] 28346 C 1 18 1 0 0 1/1/3 16 [12060] 18/1/1 5 [12061] 28/1/1 5310 [12062] 26/0/1 3815 [12063] 28347 82 283 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 284 at location 3872 in chapter 3 [12064] [12064] 28400 PROCR 284 UNPACK OFF MAGNETIC TAPE-ONE RECORD PER BLOCK [12064] 28401 NOTES RADIX Source: RayS/Q1000212 0/0/0 0 [12064] 28402 81 284 2 0 0 0 START OF SUBROUTINE 6/1/0 5260 [12065] 28403 54 1 6 1 0 40 BULK CLEAR 28/1/1 5298 [12066] 6/0/0 6311 [12067] 28404 27 1 0 0 0 SELECT 27/0/1 4342 [12068] 28405 71 304 2 0 0 0 gMULTI-RECORD BLOCKS JUMP IF A != 0 6/0/0 88 [12069] 28406 12 38 0 0 0 SELECT 27/0/0 3898 [12070] 28407 70 284 21 0 0 0 gNOT DIRECTIVE JUMP IF A == 0 24/0/2 4444 [12071] 28408 50 7 4 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/0/2 4 [12073] 28409 C 307 2 0 0 0 6/0/0 136 [12074] 28410 12 86 0 0 0 SELECT 27/0/0 3891 [12075] 28411 70 284 18 0 0 0 JUMP IF A == 0 6/0/0 6315 [12076] 28412 27 5 0 0 0 SELECT 1/1/2 1 [12077] 28413 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 3943 [12078] 28414 70 284 46 0 0 0 g'PROCR' JUMP IF A == 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 20 [12080] 28415 0 7 20 1 0 0 SELECT 2/1/0 5308 [12081] 28416 5 1 16 1 0 0 COPY TABLE OR CONST TYPE TRANSFER 24/1/0 3943 [12082] 28417 76 284 46 0 0 0 JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 20 [12084] 28418 55 7 20 1 0 30 BULK COPY 18/1/0 4123 [12085] 28419 C 1 16 1 0 0 1/1/3 30 [12086] 18/1/1 5 [12087] 28/1/1 5308 [12088] 24/1/0 3942 [12089] 28420 76 284 45 0 0 0 JUMP unconditional 24/0/1 6315 [12090] 28421 87 27 5 0 0 0 SWITCH ACCORDING TO N 26/0/1 3899 [12091] 0/0/1 3917 [12092] s 28422 C 284 31 0 0 0 g'PROCR' 0/0/1 3921 [12093] s 28423 C 284 34 0 0 0 g'TABLE' 0/0/1 3925 [12094] s 28424 C 284 37 0 0 0 g'CONST' 0/0/1 3904 [12095] s 28425 C 284 26 0 0 0 VALUE'=4 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 9 [12097] 28426 55 7 8 2 0 36 R, I+VALUES BULK COPY 18/1/0 4123 [12098] 28427 C 1 9 0 0 0 1/1/3 36 [12099] 18/1/1 5 [12100] 28/1/0 5301 [12101] 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 44 [12103] 28428 55 7 44 2 0 6 ANNOTATION BULK COPY 18/1/0 4123 [12104] 28429 C 1 40 2 0 0 1/1/3 6 [12105] 18/1/1 5 [12106] 28/1/1 5332 [12107] 26/0/1 3872 [12108] 28430 82 284 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 24/0/2 4468 [12109] 28431 50 7 4 0 0 0 INSTRUCTIONS UNPACK FIXED FIELD DATA 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/0/2 4 [12111] 28432 C 308 2 0 0 0 24/1/0 3934 [12112] 28433 76 284 41 0 0 0 JUMP unconditional 24/0/2 4488 [12113] 28434 50 7 4 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/0/2 4 [12115] 28435 C 309 2 0 0 0 UNPACK TABLE ENTRIES. 24/1/0 3934 [12116] 28436 76 284 41 0 0 0 JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 12 [12118] 28437 55 7 12 1 0 18 CONSTANTS BULK COPY 18/1/0 4123 [12119] 28438 C 1 6 1 0 0 1/1/3 18 [12120] 18/1/1 5 [12121] 28/1/1 5298 [12122] 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 5 [12124] 28439 7 4 2 0 0 AMEND IND SELECT 2/1/0 5292 [12125] 28440 5 1 0 1 0 0 TRANSFER 6/0/0 136 [12126] 28441 12 86 0 0 0 SELECT 27/0/1 3943 [12127] 28442 71 284 46 0 0 0 JUMP IF A != 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 32 [12129] 28443 55 7 32 1 0 18 BULK COPY 18/1/0 4123 [12130] 28444 C 1 28 1 0 0 1/1/3 18 [12131] 18/1/1 5 [12132] 28/1/1 5320 [12133] 2/1/0 5336 [12134] 28445 5 1 44 1 0 0 CLEAR ERROR INDICATOR TRANSFER 26/0/1 3872 [12135] 28446 82 284 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 285 at location 3944 in chapter 3 [12136] [12136] 28500 PROCR 285 [12136] 28501 NOTES RADIX 24/0/1 6315 [12136] 28502 87 27 5 0 0 0 SWITCH ACCORDING TO N 26/0/1 3945 [12137] 0/0/1 3950 [12138] 28503 C 286 2 0 0 0 g'PROCR' 0/0/1 3958 [12139] s 28504 C 286 9 0 0 0 g'TABLE' 0/0/1 3964 [12140] s 28505 C 286 14 0 0 0 g'CONST' 0/0/1 3843 [12141] s 28506 C 283 28 0 0 0 VALUE' (DUMMY) Start of procedure 286 at location 3950 in chapter 3 [12142] [12142] 28600 PROCR 286 [12142] 28601 NOTES RADIX 24/0/2 4556 [12142] 28602 124 312 2 0 2 0 SELECT LITERAL AND DIVISION Source: RayS/Q1000213 26/0/0 5069 [12143] 28603 80 326 2 0 0 0 gINSTRUCTIONS ENTER SUBROUTINE 1/1/3 0 [12144] 28604 10 0 0 0 0 SELECT LITERAL 2/1/0 5312 [12145] 28605 5 1 20 1 0 0 CLEAR 'CLEO' WORD TRANSFER 24/0/1 6320 [12146] 28606 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 3955 [12147] 0/0/1 3990 [12148] s 28607 C 286 38 0 0 0 P/T INSTRUCTIONS 0/0/1 3970 [12149] s 28608 C 286 19 0 0 0 CARD INSTRUCTIONS 24/0/2 4574 [12150] 28609 124 313 2 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [12151] 28610 80 326 2 0 0 0 gTABLE ENTRIES ENTER SUBROUTINE 24/0/1 6320 [12152] 28611 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 3961 [12153] 0/0/1 3843 [12154] s 28612 C 283 28 0 0 0 0/0/1 3986 [12155] s 28613 C 286 35 0 0 0 TABLE ENTRY FROM CARD 24/0/2 4604 [12156] 28614 124 314 2 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [12157] 28615 80 326 2 0 0 0 gCONSTANTS ENTER SUBROUTINE 24/0/1 6320 [12158] 28616 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 3967 [12159] 0/0/1 4002 [12160] s 28617 C 286 47 0 0 0 P/T CONST 0/0/1 3991 [12161] s 28618 C 286 39 0 0 0 CARD CONST 0/0/3 0 [12162] 28619 62 0 0 0 0 SET EXCESS CONSTANTS 6/1/0 5300 [12163] 28620 1 8 1 0 0 REF ALPHA E-ALIGNED SELECT 18/1/1 4124 [12164] 28621 32 0 0 0 4- TEST TOP CHAR SHIFT (AB) BY QUARTETS 1/1/2 16 [12165] 28622 12 0 0 0 10 SUBTRACT LITERAL 27/0/0 3977 [12166] 28623 70 286 26 0 0 0 g't' FIRST WAY JUMP IF A == 0 1/1/2 58 [12167] 28624 12 0 0 0 3t SUBTRACT LITERAL 27/0/1 3978 [12168] 28625 71 286 27 0 0 0 gNOT 't' OTHER WAY JUMP IF A != 0 6/0/0 5126 [12169] 28626 10 0 0 0 40.6 SELECT LITERAL 1/1/1 74 [12170] 28627 11 0 0 0 4t ADD LITERAL 0/0/3 5127 [12171] 28628 60 0 0 0 0 SET DECIMAL RADIX 18/1/1 4122 [12172] 28629 32 0 0 0 6- R-ALIGN IN B SHIFT (AB) BY QUARTETS 26/0/0 4291 [12173] 28630 80 300 2 0 0 0 LEFT ALIGN ENTER SUBROUTINE 2/1/0 5300 [12174] 28631 5 1 8 1 0 0 REF ALPHA E-ALIGNED TRANSFER 0/1/2 5298 [12175] 28632 34 1 6 1 0 0 SET (N) IN B 26/0/0 4291 [12176] 28633 80 300 2 0 0 0 LEFT ALIGN ENTER SUBROUTINE 2/1/0 5298 [12177] 28634 5 1 6 1 0 0 ACTION TRANSFER 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [12179] 28635 9 4 1 0 0 LINE SERIAL SELECT 2/1/0 5294 [12180] 28636 5 1 2 1 0 0 TRANSFER 26/0/0 4266 [12181] 28637 80 298 2 0 0 0 gUNPACK ANNOTATION ENTER SUBROUTINE 24/1/0 3843 [12182] 28638 76 283 28 0 0 0 JUMP unconditional 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [12184] 28639 9 4 1 0 0 LINE SERIAL SELECT 2/1/0 5294 [12185] 28640 5 1 2 1 0 0 TRANSFER 26/0/0 4266 [12186] 28641 80 298 2 0 0 0 gUNPACK ANNOTATION ENTER SUBROUTINE 1/1/3 125 [12187] 28642 10 0 0 0 7: SELECT LITERAL 1/0/1 3 [12188] 28643 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 18/1/1 8 [12189] 28644 32 0 0 0 8 SHIFT (AB) BY QUARTETS 24/1/2 21 Extra code needed to address transit area no 4, section 9 14/1/0 18 [12191] 28645 37 9 18 1 0 0 IN 36-TH CHAR POSN REPLACE SELECTED BITS 24/1/2 21 Extra code needed to address transit area no 4, section 9 14/1/0 6 [12193] 28646 37 9 6 1 0 0 IN 6-TH CHAR POSN REPLACE SELECTED BITS 24/0/2 4524 [12194] 28647 50 9 4 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/0/2 4 [12196] 28648 C 310 8 0 0 0 24/1/0 3843 [12197] 28649 76 283 28 0 0 0 JUMP unconditional Start of procedure 287 at location 4006 in chapter 3 [12198] [12198] 28700 PROCR 287 TEST WORD IN ACCUMULATOR [12198] 28701 NOTES RADIX IS A STACKING DIRECTIVE 0/0/0 0 [12198] 28702 81 287 2 0 0 0 START OF SUBROUTINE 5/1/0 4730 [12199] 28703 2 319 4 1 0 0 'CONST' SUBTRACT 27/0/3 4039 [12200] 28704 73 287 35 0 0 0 gNOT DIRECTIVE JUMP IF A < 0 27/0/0 4032 [12201] 28705 70 287 28 0 0 0 JUMP IF A == 0 4/1/0 4730 [12202] 28706 1 319 4 1 0 0 ADD 5/1/0 4738 [12203] 28707 2 319 12 1 0 0 'NOTES' SUBTRACT 27/0/1 4018 [12204] 28708 71 287 14 0 0 0 JUMP IF A != 0 6/0/0 6315 [12205] 28709 27 5 0 0 0 SELECT 1/1/2 3 [12206] 28710 12 0 0 0 3 SUBTRACT LITERAL 27/0/0 4039 [12207] 28711 70 287 35 0 0 0 gNOTES FOLLOWING 'CONST'-NOT DIRECTIVE JUMP IF A == 0 Source: RayS/Q1000214 1/1/3 16 [12208] 28712 10 0 0 0 10 SET (12/38)>0 SELECT LITERAL 24/1/0 4037 [12209] 28713 76 287 33 0 0 0 JUMP unconditional 4/1/0 4738 [12210] 28714 1 319 12 1 0 0 'NOTES' ADD 5/1/0 4732 [12211] 28715 2 319 6 1 0 0 'PROCR' SUBTRACT 27/0/0 4034 [12212] 28716 70 287 30 0 0 0 gYES JUMP IF A == 0 27/0/3 4039 [12213] 28717 73 287 35 0 0 0 gNOT A DIRECTIVE JUMP IF A < 0 4/1/0 4732 [12214] 28718 1 319 6 1 0 0 'PROCR' ADD 5/1/0 4728 [12215] 28719 2 319 2 1 0 0 'TABLE' SUBTRACT 27/0/0 4033 [12216] 28720 70 287 29 0 0 0 gYES JUMP IF A == 0 27/0/3 4039 [12217] 28721 73 287 35 0 0 0 gNOT A DIRECTIVE JUMP IF A < 0 4/1/0 4728 [12218] 28722 1 319 2 1 0 0 'TABLE' ADD 5/1/0 4754 [12219] 28723 2 319 28 1 0 0 'VALUE' SUBTRACT 27/0/1 4039 [12220] 28724 71 287 35 0 0 0 gHENCE NOT A DIRECTIVE JUMP IF A != 0 6/0/0 83 [12221] 28725 12 33 0 0 0 SELECT 27/0/1 4039 [12222] 28726 71 287 35 0 0 0 gPT IN, 'VALUE' ISNT A DIRECTIVE JUMP IF A != 0 1/1/3 1 [12223] 28727 10 0 0 0 1 SELECT LITERAL 1/1/1 1 [12224] 28728 11 0 0 0 1 (CONST) ADD LITERAL 1/1/1 1 [12225] 28729 11 0 0 0 1 (TABLE) ADD LITERAL 1/1/1 1 [12226] 28730 11 0 0 0 1 (PROCR) ADD LITERAL 2/0/0 6315 [12227] 28731 5 27 5 0 0 0 TRANSFER 1/1/2 16 [12228] 28732 12 0 0 0 10 SUBTRACT LITERAL 2/0/0 88 [12229] 28733 5 12 38 0 0 0 SET<0 IF PROCR/TABLE/CONST/VALUE TRANSFER 26/0/1 4006 [12230] 28734 82 287 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 1/1/3 0 [12231] 28735 10 0 0 0 0 SELECT LITERAL 2/0/0 88 [12232] 28736 5 12 38 0 0 0 TRANSFER 26/0/1 4006 [12233] 28737 82 287 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 288 at location 4042 in chapter 3 [12234] [12234] 28800 PROCR 288 SQUASH NEXT RECORD IN SEC 29, COPY TO 8, WRITE 8 IF FULL [12234] 28801 NOTES RADIX 0/0/0 0 [12234] 28802 81 288 2 0 0 0 START OF SUBROUTINE 6/0/0 160 [12235] 28803 12 110 0 0 0 SELECT 27/0/0 4051 [12236] 28804 70 288 11 0 0 0 JUMP IF A == 0 6/0/0 161 [12237] 28805 12 111 0 0 0 CARD SER ERROR SELECT 27/0/0 4050 [12238] 28806 70 288 10 0 0 0 gNO ERROR JUMP IF A == 0 24/0/1 4748 [12239] 28807 124 319 22 0 1 0 MODIFY ADDRESS OF NEXT 24/0/1 4428 [12240] 28808 124 305 10 0 1 0 MODIFY ADDRESS OF NEXT 2/1/0 5384 [12241] 28809 5 29 0 1 0 0 WRONG SERIAL TO ERROR REPORT WORD TRANSFER 2/0/0 160 [12242] 28810 5 12 110 0 0 0 TRANSFER 26/1/1 5262 [12243] 28811 90 0 0 1 44 SET MODIFICATION REGISTER AT LITERAL [12244] 28812 C 0 0 0 2 Limit 6/1/1 5382 [12244] 28813 29 2- 1 1 0 LAST WORD SELECT 27/0/0 4056 [12245] 28814 70 288 17 0 0 0 JUMP IF A == 0 5/1/0 4736 [12246] 28815 2 319 10 1 0 0 SUBTRACT 27/0/1 4058 [12247] 28816 71 288 18 0 0 0 JUMP IF A != 0 25/0/1 4098 [12248] 28817 94 288 13 0 1 2- STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4052 [12249] s 24/0/3 22 [12250] 28818 96 0 0 1 0 CONTENTS OF MODIFIER SELECT MODIFIER 6/0/0 2 [12251] 3/1/0 5385 [12252] 28819 3 29 0 2 0 0 REC LENGTH COPY 1/1/3 144 [12253] 28820 10 0 0 0 90 TOTAL ROOM SEC 8 SELECT LITERAL 5/0/0 4727 [12254] 28821 2 318 12 0 0 0 SUBTRACT 5/1/0 5385 [12255] 28822 2 29 0 2 0 0 CURRENT RECORD LENGTH SUBTRACT 27/0/2 4077 [12256] 28823 72 288 32 0 0 0 g+VE OR ZERO JUMP IF A >= 0 6/0/0 4727 [12257] 28824 318 12 0 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 5 [12259] 28825 3 8 4 2 0 0 BLOCK LENGTH COPY 26/1/1 4727 [12260] 28826 91 318 12 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 6/1/0 4736 [12261] 28827 319 10 1 0 0 BE WORD SELECT Source: RayS/Q1000215 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/1 6 [12263] 28828 5 8 6 1 1 0 TRANSFER 26/0/0 4108 [12264] 28829 80 290 2 0 0 0 gWRITE ENTER SUBROUTINE 6/1/0 5264 [12265] 28830 54 8 4 1 0 46 BULK CLEAR 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [12267] 2/0/0 4727 [12268] 28831 5 318 12 0 0 0 TRANSFER 1/1/3 6 [12269] 28832 10 0 0 0 6 SELECT LITERAL 2/0/0 52 [12270] 28833 5 12 2 0 0 0 TRANSFER 26/1/1 4727 [12271] 28834 91 318 12 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 24/0/2 5384 [12272] 28835 55 29 0 1 0 0 COPY TO SEC 8 BULK COPY 18/1/0 4123 [12273] 28836 C 8 6 1 1 0 0/1/0 40 [12274] 0/0/3 0 [12275] 24/1/2 19 Extra code needed to address transit area no 3, section 8 24/0/2 6 [12277] 24/0/3 22 [12278] 4/0/0 2 [12279] 2/0/0 40 [12280] 0/1/1 40 [12281] 6/1/0 5385 [12282] 28837 C 29 0 2 0 0 18/1/1 5 [12283] 24/1/2 40 [12284] 28/1/1 0 [12285] 6/1/0 5385 [12286] 28838 29 0 2 0 0 SELECT 7/0/0 4727 [12287] 28839 4 318 12 0 0 0 STEP QTTY IN BLOCK TO DATE AUGMENT 6/1/0 5266 [12288] 28840 54 29 0 1 0 44 CLEAR SEC 29 BULK CLEAR 28/1/1 5384 [12289] 26/0/1 4042 [12290] 28841 82 288 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 289 at location 4099 in chapter 3 [12291] [12291] 28900 PROCR 289 0/0/0 0 [12291] 28902 81 289 2 0 0 0 START OF SUBROUTINE 6/1/0 4736 [12292] 28903 0 319 10 1 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 50 [12294] 28904 5 8 50 1 0 0 TRANSFER 26/0/0 4108 [12295] 28905 80 290 2 0 0 0 ENTER SUBROUTINE 6/1/0 5268 [12296] 28906 54 8 4 1 0 46 BULK CLEAR 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [12298] 26/0/1 4099 [12299] 28907 82 289 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 290 at location 4108 in chapter 3 [12300] [12300] 29000 PROCR 290 0/0/0 0 [12300] 29002 81 290 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [12301] 29003 43 A2 0 0 0 0 OUTPUT 0/0/3 0 [12302] 0/0/2 18 [12303] 29004 C 8 0 0 0 0 OUTPUT 6/1/0 0 [12304] 1/1/1 36 [12305] 25/1/1 4096 [12306] 24/0/3 0 [12307] 23/0/2 43 [12308] 0/1/1 40 [12309] 26/0/1 4108 [12310] 29005 82 290 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 291 at location 4119 in chapter 3 [12311] [12311] 29100 PROCR 291 READ B/FWD MT FILE 0/0/0 0 [12311] 29102 81 291 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [12312] 29103 42 A1 0 0 0 0 INPUT 0/0/3 0 [12313] 0/0/2 16 [12314] 29104 C 7 0 0 0 0 INPUT 6/1/0 0 [12315] 1/1/1 27 [12316] 25/1/1 4096 [12317] 24/0/3 0 [12318] 23/0/2 42 [12319] 0/1/1 40 [12320] 26/0/1 4119 [12321] 29105 82 291 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 292 at location 4130 in chapter 3 [12322] [12322] 29200 PROCR 292 INPUT OFF PAPER TAPE [12322] 29201 NOTES RADIX 0/0/0 0 [12322] 29202 81 292 2 0 0 0 START OF SUBROUTINE 26/0/0 4298 [12323] 29203 80 301 2 0 0 0 gREAD A6 ENTER SUBROUTINE 24/0/1 6320 [12324] 29204 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 4133 [12325] 0/0/1 4144 [12326] s 29205 C 292 13 0 0 0 0/0/1 4136 [12327] s 29206 C 292 7 0 0 0 CARDS-CHECK CARD SER 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 35 [12329] 29207 9 34 2 0 0 SELECT 5/0/0 161 [12330] 29208 2 12 111 0 0 0 PREVIOUS SER SUBTRACT 7/0/0 161 [12331] 29209 4 12 111 0 0 0 STORE THIS SER AUGMENT 1/1/2 1 [12332] 29210 12 0 0 0 1 SUBTRACT LITERAL 2/0/0 160 [12333] 29211 5 12 110 0 0 0 STORE ANY ERROR TRANSFER 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 34 [12335] 29212 5 9 34 1 0 0 TRANSFER 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [12337] 29213 9 4 1 0 0 SELECT 5/1/0 4750 [12338] 29214 2 319 24 1 0 0 'SHEET' SUBTRACT 27/0/1 4166 [12339] 29215 71 292 34 0 0 0 JUMP IF A != 0 24/0/2 4440 [12340] 29216 124 306 8 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [12341] 29217 80 326 2 0 0 0 UNPACK ENTER SUBROUTINE 0/1/2 138 [12342] 29218 34 12 88 1 0 0 SHEET NO SET (N) IN B 26/0/0 4826 [12343] 29219 80 321 2 0 0 0 ENTER SUBROUTINE 6/1/0 139 [12344] 29220 0 12 88 2 0 0 SELECT 5/0/0 142 [12345] 29221 2 12 92 0 0 0 PREVIOUS SER SUBTRACT 7/0/0 142 [12346] 29222 4 12 92 0 0 0 REPLACE BY CURRENT AUGMENT 1/1/2 1 [12347] 29223 12 0 0 0 1 CHECK SEQUENCE SUBTRACT LITERAL Source: RayS/Q1000216 27/0/0 4131 [12348] 29224 70 292 3 0 0 0 gCORRECT JUMP IF A == 0 6/1/0 4750 [12349] 29225 0 319 24 1 0 0 'SHEET'' SELECT 24/0/1 4748 [12350] 29226 124 319 22 0 1 0 MODIFY ADDRESS OF NEXT 24/0/1 4420 [12351] 29227 124 305 2 0 1 0 MODIFY ADDRESS OF NEXT 2/1/0 5398 [12352] 29228 5 29 14 1 0 0 TRANSFER 6/1/0 138 [12353] 29229 0 12 88 1 0 0 WRONG NUMBER SELECT 24/0/1 4748 [12354] 29230 124 319 22 0 1 0 MODIFY ADDRESS OF NEXT 24/0/1 4428 [12355] 29231 124 305 10 0 1 0 MODIFY ADDRESS OF NEXT 2/1/0 5384 [12356] 29232 5 29 0 1 0 0 TRANSFER 24/1/0 4131 [12357] 29233 76 292 3 0 0 0 JUMP unconditional 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [12359] 29234 9 4 1 0 0 SELECT 5/1/0 4772 [12360] 29235 2 319 46 1 0 0 'TRAMD' SUBTRACT 27/0/0 4184 [12361] 29236 70 292 49 0 0 0 gDON'T INSERT BE JUMP IF A == 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 0/1/2 49 [12363] 29237 34 9 48 2 0 0 SET (N) IN B 1/1/3 0 [12364] 29238 10 0 0 0 0 SELECT LITERAL 18/1/1 7 [12365] 29239 32 0 0 0 7 SHIFT (AB) BY QUARTETS 2/1/0 4818 [12366] 29240 5 320 42 1 0 0 WORD CTR TRANSFER 26/1/1 4818 [12367] 29241 91 320 42 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 18/1/1 3 [12368] 29242 32 0 0 0 3 SHIFT (AB) BY QUARTETS 2/0/0 4042 [12369] 29243 5 288 2 0 0 0 COL POSN+WL TRANSFER 1/0/1 3 [12370] 29244 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 1/1/3 126 [12371] 29245 10 0 0 0 7. SELECT LITERAL 24/0/1 4042 [12372] 29246 124 288 2 0 1 0 MODIFY ADDRESS OF NEXT 18/1/1 0 [12373] 29247 32 0 0 0 0 ///// SHIFT (AB) BY QUARTETS 24/1/2 21 Extra code needed to address transit area no 4, section 9 14/1/1 0 [12375] 29248 37 9 0 1 1 0 REPLACE SELECTED BITS 26/0/1 4130 [12376] 29249 82 292 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 293 at location 4185 in chapter 3 [12377] [12377] 29300 PROCR 293 TEST AMENDMENT IS A STACKING DIRECTIVE [12377] 29301 NOTES RADIX 0/0/0 0 [12377] 29302 81 293 2 0 0 0 START OF SUBROUTINE 6/1/0 5270 [12378] 29303 54 1 0 1 0 8 BULK CLEAR 28/1/1 5292 [12379] 24/0/1 6320 [12380] 29304 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 4189 [12381] 0/0/1 4199 [12382] s 29305 C 293 13 0 0 0 0/0/1 4192 [12383] s 29306 C 293 7 0 0 0 CARDS 24/0/2 4544 [12384] 29307 50 9 8 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/0/2 8 [12386] 29308 C 311 4 0 0 0 6/1/0 5300 [12387] 29309 0 1 8 1 0 0 SELECT 18/0/1 4 [12388] 29310 30 0 0 0 4 SHIFT (A) BY QUARTETS 2/1/0 5300 [12389] 29311 5 1 8 1 0 0 L-ALIGN PROCR NUMBER TRANSFER 24/1/0 4201 [12390] 29312 76 293 15 0 0 0 JUMP unconditional 24/0/2 4542 [12391] 29313 124 311 2 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [12392] 29314 80 326 2 0 0 0 ENTER SUBROUTINE 6/1/0 5298 [12393] 29315 1 6 1 0 0 SELECT 26/0/0 4006 [12394] 29316 80 287 2 0 0 0 gTEST DIRECTIVE ENTER SUBROUTINE 26/0/1 4185 [12395] 29317 82 293 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 294 at location 4204 in chapter 3 [12396] [12396] 29400 PROCR 294 TEST FOR MOD END SIGN [12396] 29401 NOTES RADIX OR DIRECTIVE 0/0/0 0 [12396] 29402 81 294 4 0 0 0 START OF SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [12398] 29403 9 4 1 0 0 SELECT 18/0/1 4124 [12399] 29404 30 0 0 0 4- SHIFT (A) BY QUARTETS 18/0/1 4 [12400] 29405 30 0 0 0 4 SHIFT (A) BY QUARTETS 5/1/0 4740 [12401] 29406 2 319 14 1 0 0 'END ' SUBTRACT 27/0/0 4215 [12402] 29407 70 294 11 0 0 0 JUMP IF A == 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [12404] 29408 9 4 1 0 0 SELECT 5/1/0 4772 [12405] 29409 2 319 46 1 0 0 'TRAMD' SUBTRACT 27/0/1 4217 [12406] 29410 71 294 13 0 0 0 JUMP IF A != 0 6/1/0 5272 [12407] 29411 10 0 0 0 100000 SELECT LITERAL 24/1/0 4244 [12408] 29412 76 294 39 0 0 0 JUMP unconditional 1/1/3 0 [12409] 29413 10 0 0 0 0 CLEAR LOCATION TO WHICH SELECT LITERAL Source: ChuckK/Q1000217 2/1/0 5296 [12410] 29414 5 1 4 1 0 0 AMENDMENT DIRECTIVE IS UNPACKED TRANSFER 24/0/2 4550 [12411] 29415 124 311 10 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 5069 [12412] 29416 80 326 2 0 0 0 >UNPACK AMEND LETTER ENTER SUBROUTINE 24/0/1 6320 [12413] 29417 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 4222 [12414] 0/0/1 4227 [12415] s 29418 C 294 22 0 0 0 P/T 0/0/1 4225 [12416] s 29419 C 294 20 0 0 0 CARDS 0/1/2 5298 [12417] 29420 34 1 6 1 0 0 SET (N) IN B 24/1/0 4228 [12418] 29421 76 294 23 0 0 0 JUMP unconditional 0/1/2 5296 [12419] 29422 34 1 4 1 0 0 SET (N) IN B 1/1/3 0 [12420] 29423 10 0 0 0 0 SELECT LITERAL 18/1/1 2 [12421] 29424 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/2 105 [12422] 29425 12 0 0 0 69 SUBTRACT LITERAL 27/0/0 4241 [12423] 29426 70 294 36 0 0 0 JUMP IF A == 0 1/1/1 21 [12424] 29427 11 0 0 0 15 ADD LITERAL 27/0/0 4240 [12425] 29428 70 294 35 0 0 0 JUMP IF A == 0 1/1/2 25 [12426] 29429 12 0 0 0 19 SUBTRACT LITERAL 27/0/0 4239 [12427] 29430 70 294 34 0 0 0 JUMP IF A == 0 1/1/1 34 [12428] 29431 11 0 0 0 22 ADD LITERAL 27/0/1 4246 [12429] 29432 71 294 41 0 0 0 JUMP IF A != 0 1/1/3 1 [12430] 29433 10 0 0 0 1 SELECT LITERAL 1/1/1 1 [12431] 29434 11 0 0 0 1 ADD LITERAL 1/1/1 1 [12432] 29435 11 0 0 0 1 ADD LITERAL 1/1/1 1 [12433] 29436 11 0 0 0 1 ADD LITERAL 2/0/0 8170 [12434] 29437 84 252 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 1/1/3 1 [12435] 29438 10 0 0 0 1 SELECT LITERAL 3/1/0 94 [12436] 29439 3 12 44 1 0 0 COPY 26/0/1 4204 [12437] 29440 82 294 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 1/1/3 0 [12438] 29441 10 0 0 0 0 SELECT LITERAL 24/1/0 4244 [12439] 29442 76 294 39 0 0 0 JUMP unconditional Start of procedure 295 at location 4248 in chapter 3 [12440] [12440] 29500 PROCR 295 IGNORE THIS INSTRUCTION [12440] 29501 NOTES RADIX 0/0/0 0 [12440] 29502 81 295 2 0 0 0 START OF SUBROUTINE 6/1/0 4752 [12441] 29503 319 26 1 0 0 IGNORE INDICATOR SELECT 2/1/0 5334 [12442] 29504 5 1 42 1 0 0 TRANSFER 26/0/1 4248 [12443] 29505 82 295 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 296 at location 4252 in chapter 3 [12444] [12444] 29600 PROCR 296 IGNORE PREVIOUS INSTRUCTION [12444] 29601 NOTES RADIX 0/0/0 0 [12444] 29602 81 296 2 0 0 0 START OF SUBROUTINE 6/1/0 4752 [12445] 29603 319 26 1 0 0 SELECT 24/0/1 4748 [12446] 29604 124 319 22 0 1 0 MODIFY ADDRESS OF NEXT 24/0/1 4420 [12447] 29605 124 305 2 0 1 0 MODIFY ADDRESS OF NEXT 2/1/0 5398 [12448] 29606 5 29 14 1 0 0 TRANSFER 26/0/1 4252 [12449] 29607 82 296 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 297 at location 4258 in chapter 3 [12450] [12450] 29700 PROCR 297 gANNOTATION IF CARD [12450] 29701 NOTES RADIX 0/0/0 0 [12450] 29702 81 297 2 0 0 0 START OF SUBROUTINE 1/1/3 15 [12451] 29703 10 0 0 0 p SELECT LITERAL 24/0/1 6320 [12452] 29704 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 4261 [12453] 0/0/1 4265 [12454] s 29705 C 297 8 0 0 0 P/T 0/0/1 4264 [12455] s 29706 C 297 7 0 0 0 CARDS 26/0/0 4266 [12456] 29707 80 298 2 0 0 0 BULK COPY WORDS-THUS SETTING (A)=0 ENTER SUBROUTINE 26/0/1 4258 [12457] 29708 82 297 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 298 at location 4266 in chapter 3 [12458] [12458] 29800 PROCR 298 BULK COPY ANNOTATION [12458] 29801 NOTES RADIX 0/0/0 0 [12458] 29802 81 298 2 0 0 0 START OF SUBROUTINE Source: ChuckK/Q1000218 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 18 [12460] 29803 55 9 18 1 0 16 BULK COPY 18/1/0 4123 [12461] 29804 C 1 28 1 0 0 1/1/3 16 [12462] 18/1/1 5 [12463] 28/1/1 5320 [12464] 26/0/1 4266 [12465] 29805 82 298 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 299 at location 4274 in chapter 3 [12466] [12466] 29900 PROCR 299 TEST END SIGN ON MAG TAPE [12466] 29901 NOTES RADIX 0/0/0 0 [12466] 29902 81 299 2 0 0 0 START OF SUBROUTINE 6/0/0 6311 [12467] 29903 27 1 0 0 0 SELECT 27/0/0 4280 [12468] 29904 70 299 7 0 0 0 >1 RECORD PER BLOCK JUMP IF A == 0 24/0/3 8178 [12469] 29905 6 1 8 0 SELECT 6/1/0 6 [12470] 24/1/0 4282 [12471] 29906 76 299 8 0 0 0 JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 10 [12473] 29907 0 7 10 1 0 0 SELECT 5/1/0 4740 [12474] 29908 2 319 14 1 0 0 SUBTRACT 27/0/0 4835 [12475] 29909 70 322 2 0 0 0 JUMP IF A == 0 4/1/0 4740 [12476] 29910 1 319 14 1 0 0 ADD 5/1/0 4742 [12477] 29911 2 319 16 1 0 0 'DUMPS' SUBTRACT 27/0/0 4835 [12478] 29912 70 322 2 0 0 0 JUMP IF A == 0 4/1/0 4742 [12479] 29913 1 319 16 1 0 0 ADD 5/1/0 4744 [12480] 29914 2 319 18 1 0 0 'FILES' SUBTRACT 27/0/0 4835 [12481] 29915 70 322 2 0 0 0 JUMP IF A == 0 26/0/1 4274 [12482] 29916 82 299 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 300 at location 4291 in chapter 3 [12483] [12483] 30000 PROCR 300 LEFT ALIGN SUBROUTINE [12483] 30001 NOTES RADIX D 0/0/0 0 [12483] 30002 81 300 2 0 0 0 DATA IN B START OF SUBROUTINE 1/1/3 0 [12484] 30003 10 0 0 0 0 SELECT LITERAL 27/1/0 4297 [12485] 30004 74 300 8 0 0 0 ZERO NUMBER? JUMP IF AB == 0 // 27, 1, 0 18/1/1 2 [12486] 30005 32 0 0 0 2 SHIFT (AB) BY QUARTETS 27/0/0 4294 [12487] 30006 70 300 5 0 0 0 JUMP IF A == 0 18/1/1 8 [12488] 30007 32 0 0 0 8 LEFT ALIGN IN A SHIFT (AB) BY QUARTETS 26/0/1 4291 [12489] 30008 82 300 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 301 at location 4298 in chapter 3 [12490] [12490] 30100 PROCR 301 0/0/0 0 [12490] 30102 81 301 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [12491] 30103 42 A6 0 0 0 0 INPUT 0/0/3 0 [12492] 0/0/2 20 [12493] 30104 C 9 0 0 0 0 INPUT 6/1/0 0 [12494] 1/1/1 45 [12495] 25/1/1 4096 [12496] 24/0/3 0 [12497] 23/0/2 42 [12498] 0/1/1 40 [12499] 26/0/1 4298 [12500] 30105 82 301 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 302 at location 4309 in chapter 3 [12501] [12501] 30200 PROCR 302 STEP MR.TEST END OF BLOCK 0/0/0 0 [12501] 30202 81 302 2 0 0 0 START OF SUBROUTINE 6/0/0 6311 [12502] 30203 27 1 0 0 0 SELECT 27/0/0 4330 [12503] 30204 70 302 13 0 0 0 >1 RECORD PER BLOCK JUMP IF A == 0 24/0/3 8178 [12504] 30205 0 2 8 0 CURRENT RECORD LENGTH SELECT 6/1/0 1 [12505] 2/0/0 4119 [12506] 30206 5 291 2 0 0 0 WL TRANSFER 24/0/1 4119 [12507] 30207 97 291 2 0 8 0 STEP ON AND TEST MODIFICATION REGISTER (VARIABLE) 23/0/0 0 [12508] 30208 C 302 12 0 0 0 >BLOCK NOT EMPTY STEP ON AND TEST MODIFICATION REGISTER (VARIABLE) 0/0/1 8178 [12509] 24/1/0 4329 [12510] s 26/0/0 4119 [12511] 30209 80 291 2 0 0 0 >READ A1 ENTER SUBROUTINE 0/1/0 40 [12512] 30210 59 7 6 0 8 0 SET MODIFICATION REGISTER FOR MERGE 0/0/3 0 [12513] 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 6 [12515] 3/0/0 8178 [12516] 24/1/2 17 Extra code needed to address transit area no 2, section 7 4/1/0 5 [12518] 30211 C 7 4 2 0 0 SET MODIFICATION REGISTER FOR MERGE 2/0/0 8179 [12519] 0/1/1 40 [12520] 26/0/1 4309 [12521] 30212 82 302 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 26/0/0 4119 [12522] 30213 80 291 2 0 0 0 >READ A1 ENTER SUBROUTINE 26/0/1 4309 [12523] 30214 82 302 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 303 at location 4332 in chapter 3 [12524] [12524] 30300 PROCR 303 TEST MT=STACK DIRECTIVE 0/0/0 0 [12524] 30302 81 303 2 0 0 0 START OF SUBROUTINE 6/0/0 6311 [12525] 30303 27 1 0 0 0 SELECT 27/0/0 4339 [12526] 30304 70 303 8 0 0 0 JUMP IF A == 0 24/0/3 8178 [12527] 30305 6 1 8 0 SELECT 6/1/0 6 [12528] 26/0/0 4006 [12529] 30306 80 287 2 0 0 0 ENTER SUBROUTINE 26/0/1 4332 [12530] 30307 82 303 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Source: ChuckK/Q1000219 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 10 [12532] 30308 7 10 1 0 0 SELECT 24/1/0 4337 [12533] 30309 76 303 6 0 0 0 JUMP unconditional Start of procedure 304 at location 4342 in chapter 3 [12534] [12534] 30400 PROCR 304 UNPACK MT-MULTIRECORD BLOCKS 0/0/3 0 [12534] 30402 62 0 0 0 0 SET EXCESS CONSTANTS 6/1/0 5274 [12535] 30403 54 28 0 1 0 46 BULK CLEAR 28/1/1 5338 [12536] 6/0/0 88 [12537] 30404 12 38 0 0 0 SELECT 27/0/0 4382 [12538] 30405 70 304 37 0 0 0 >NOT DIRECTIVE JUMP IF A == 0 24/0/3 8178 [12539] 30406 0 2 8 0 SELECT 6/1/0 1 [12540] 18/0/1 5 [12541] 30407 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 8178 [12542] 30408 98 0 0 8 0 ADD MODIFICATION REGISTER TO A 28/1/1 5338 [12543] 30409 128 28 0 1 1 0 COPY DIRECTIVE+LENGTH WORD BULK COPY LONG NUMERIC 24/0/2 4458 [12544] 30410 50 28 2 0 0 0 UNPACK UNPACK FIXED FIELD DATA 28/0/2 5340 [12545] 30411 C 307 16 0 0 0 6/0/0 6315 [12546] 30412 27 5 0 0 0 SELECT 1/1/2 1 [12547] 30413 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 4361 [12548] 30414 71 304 19 0 0 0 >NOT'PROCR' JUMP IF A != 0 6/0/0 88 [12549] 30415 12 38 0 0 0 SELECT 27/0/3 4361 [12550] 30416 73 304 19 0 0 0 >NOT NOTES OF PROCR JUMP IF A < 0 6/1/0 5350 [12551] 30417 28 12 1 0 0 SELECT 2/1/0 5300 [12552] 30418 5 1 8 1 0 0 COPY 'RADIX' TRANSFER 6/0/0 136 [12553] 30419 12 86 0 0 0 SELECT 27/0/0 4376 [12554] 30420 70 304 34 0 0 0 >NOT 'REPLACE ANNOTATION' JUMP IF A == 0 6/0/0 6315 [12555] 30421 27 5 0 0 0 SELECT 1/1/2 1 [12556] 30422 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 4371 [12557] 30423 70 304 29 0 0 0 >PROCR,TEST NOTES JUMP IF A == 0 1/1/2 1 [12558] 30424 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 4373 [12559] 30425 71 304 31 0 0 0 >CONST JUMP IF A != 0 6/0/0 88 [12560] 30426 12 38 0 0 0 SELECT 27/0/2 4398 [12561] 30427 72 304 52 0 0 0 >NOTES OF TABLE JUMP IF A >= 0 24/1/0 4373 [12562] 30428 76 304 31 0 0 0 >NOT TABLE NOTES JUMP unconditional 6/0/0 88 [12563] 30429 12 38 0 0 0 SELECT 27/0/3 4398 [12564] 30430 73 304 52 0 0 0 >NOT NOTES OF PROCR JUMP IF A < 0 6/1/0 5352 [12565] 30431 28 14 1 0 0 SELECT 2/1/0 5308 [12566] 30432 5 1 16 1 0 0 CONST/TABLE TYPE OR RADIX LETTER TRANSFER 24/1/0 4398 [12567] 30433 76 304 52 0 0 0 JUMP unconditional 24/0/2 5352 [12568] 30434 55 28 14 1 0 26 ANNOTATION ETC EVEN IF ABSENT BULK COPY 18/1/0 4123 [12569] 30435 C 1 16 1 0 0 1/1/3 26 [12570] 18/1/1 5 [12571] 28/1/1 5308 [12572] 24/1/0 4398 [12573] 30436 76 304 52 0 0 0 JUMP unconditional 6/0/0 6315 [12574] 30437 27 5 0 0 0 SELECT 1/1/2 4 [12575] 30438 12 0 0 0 4 SUBTRACT LITERAL 27/0/0 4412 [12576] 30439 70 304 66 0 0 0 >VALUES JUMP IF A == 0 24/0/3 8178 [12577] 30440 0 2 8 0 SELECT 6/1/0 1 [12578] 3/0/0 4818 [12579] 30441 3 320 42 0 0 0 LENGTH COPY 24/0/1 6315 [12580] 30442 124 27 5 0 1 0 MODIFY ADDRESS OF NEXT 5/0/0 4420 [12581] 30443 2 305 2 0 0 0 (MAX DATA LENGTH*2) SUBTRACT 27/0/2 4400 [12582] 30444 72 304 54 0 0 0 >RECORD HAS ANNOTATION JUMP IF A >= 0 6/0/0 4818 [12583] 30445 320 42 0 0 0 SELECT 18/0/1 5 [12584] 30446 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 8178 [12585] 30447 98 0 0 8 0 DATA START ADD MODIFICATION REGISTER TO A 28/1/1 5338 [12586] 30448 128 28 0 1 1 0 COPY RECORD BULK COPY LONG NUMERIC 24/0/1 6315 [12587] 30449 124 27 5 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 4424 [12588] 30450 305 6 0 0 0 SELECT 28/0/2 5340 [12589] 30451 128 28 2 0 2 0 UNPACK-SEC1 UNPACK FIXED FIELD DATA Source: RayS/Q1000220 0/0/3 5128 [12590] 30452 60 0 0 0 0 SET DECIMAL RADIX 26/0/1 3872 [12591] 30453 82 284 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 2/0/0 4819 [12592] 30454 5 320 43 0 0 0 ANNOTATION LENGTH ANNOTATED DATA TRANSFER 6/0/0 136 [12593] 30455 12 86 0 0 0 SELECT 27/0/1 4409 [12594] 30456 71 304 63 0 0 0 gJUST HERE TO UNPACK NUMBERS JUMP IF A != 0 6/0/0 4819 [12595] 30457 320 43 0 0 0 SELECT 18/0/1 5 [12596] 30458 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 8178 [12597] 30459 98 0 0 8 0 ADD MODIFICATION REGISTER TO A 24/0/1 6315 [12598] 30460 124 27 5 0 1 0 MODIFY ADDRESS OF NEXT 4/0/0 4420 [12599] 30461 1 305 2 0 0 0 DATA LENGTH+2 ADD 28/1/1 5320 [12600] 30462 128 1 28 1 1 0 COPY ANNOTATION BULK COPY LONG NUMERIC 24/0/1 6315 [12601] 30463 124 27 5 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 4420 [12602] 30464 305 2 0 0 0 SELECT 24/1/0 4392 [12603] 30465 76 304 46 0 0 0 gUNPACK NUMBERS JUMP unconditional 24/0/3 8178 [12604] 30466 0 2 8 0 LENGTH VALUES SELECT 6/1/0 1 [12605] 1/1/2 6 [12606] 30467 12 0 0 0 6 SUBTRACT LITERAL 18/0/1 5 [12607] 30468 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 8178 [12608] 30469 98 0 0 8 0 START ADD MODIFICATION REGISTER TO A 1/1/1 7 [12609] 30470 11 0 0 0 7 ADD LITERAL 28/1/0 5301 [12610] 30471 128 1 9 1 0 0 ALPHA+NUM BULK COPY ALPHA TO SHORT 24/1/0 4398 [12611] 30472 76 304 52 0 0 0 gEXIT JUMP unconditional Start of procedure 305 at location 4420 in chapter 3 [12612] [12612] 30500 CONST 305 0 FOR UNPACKING MULTIRECORD MT 0/0/0 24 [12612] 30502 (B)24; DIRECTIVES-ANNOTATION +00018 0/0/0 24 [12613] 30503 24; ORDER LENGTH+2 +00018 0/0/0 24 [12614] 30504 24; TABLE +00018 0/0/0 28 [12615] 30505 28; CONSTANT +0001C 0/0/0 28 [12616] 30506 28; VALUES +0001C 0/0/1 4468 [12617] 30507 (R)308:0; UNPACK ORDERS +03174 0/0/1 4488 [12618] 30508 309:0; UNPACK TABLES +03188 0/0/1 4518 [12619] 30509 310:0; UNPACK CONSTANTS +031A6 0/0/0 12 [12620] 30510 (B)12; DIRECTIVES-PASS 1 REPORTS +0000C 0/0/0 22 [12621] 30511 22; ORDERS +00016 0/0/0 22 [12622] 30512 22; TABLE +00016 0/0/0 26 [12623] 30513 26; CONSTANT +0001A 0/0/0 42 [12624] 30514 42; VALUES +0002A 31/1/3 8191 [12625] Start of procedure 306 at location 4434 in chapter 3 [12626] [12626] 30600 TABLE 306 306 1 'INDEX' LINE 0/0/1 54 [12626] 30602 12 4 0 0 0 0 3 2 0 2 0 0 0 TO REPLACE CODERS REF 0/0/1 515 [12627] 0/0/1 6022 [12628] 30604 92 8 0 0 0 0 2 0 0 2 0 0 1 16/0/1 2 [12629] 0/0/1 138 [12630] 30606 12 88 0 0 0 0 5 0 0 5 0 0 1 16/0/2 4101 [12631] 0/0/1 138 [12632] 30608 12 88 0 0 2 0 5 0 0 0 0 0 0 'SHEET ' 3/0/0 5 [12633] 0/0/1 138 [12634] 30610 12 88 0 0 2 0 5 0 0 0 0 0 1 SHEET NUMBER 19/0/0 5 [12635] Start of procedure 307 at location 4444 in chapter 3 [12636] [12636] 30700 TABLE 307 307 1 EDIT STACKING DIRECTIVE 0/0/1 5292 [12636] 30702 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND 0/0/2 4101 [12637] 0/0/1 5294 [12638] 30704 1 2 0 0 2 0 5 0 0 0 0 0 0 'PROCR'/TABLE/CONST' ETC 3/0/0 5 [12639] 0/0/1 6049 [12640] 30706 92 35 0 0 0 0 5 0 0 5 0 0 0 0/0/2 4101 [12641] 0/0/1 5298 [12642] 30708 1 6 0 0 2 0 5 0 0 0 0 0 0 TYPE 3/0/0 5 [12643] 0/0/1 6048 [12644] 30710 92 34 0 0 1 0 10 0 0 10 0 0 0 2/1/1 10 [12645] 0/0/1 5300 [12646] 30712 1 8 0 0 2 0 5 0 0 0 0 0 0 NEW PROCR NUMBER 3/0/0 5 [12647] 0/0/1 5306 [12648] 30714 1 14 0 0 0 0 5 0 0 4 0 0 1 PREVIOUS PROCR NUMBER 16/0/2 5 [12649] 0/0/1 5292 [12650] 30716 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND-----MULTIREC BLOX 0/0/2 4101 [12651] 0/0/1 5294 [12652] 30718 1 2 0 0 2 0 5 0 0 0 0 0 0 LINE SERIAL 3/0/0 5 [12653] 0/0/1 5298 [12654] 30720 1 6 0 0 2 0 5 0 0 0 0 0 0 'PROCR' ETC 3/0/0 5 [12655] 0/0/1 5300 [12656] 30722 1 8 0 0 2 0 5 0 0 0 0 0 0 CURRENT PROCR 3/0/0 5 [12657] 0/0/1 5306 [12658] 30724 1 14 0 0 0 0 5 0 0 5 0 0 1 PREVIOUS PROCR 16/0/2 4101 [12659] Source: RayS/Q1000221 Start of procedure 308 at location 4468 in chapter 3 [12660] [12660] 30800 TABLE 308 308 3 EDIT INSTRUCTIONS 0/0/1 5292 [12660] 30802 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND 0/0/2 4101 [12661] 0/0/1 5294 [12662] 30804 1 2 0 0 2 0 5 0 0 0 0 0 0 LINE SERIAL 3/0/0 5 [12663] 0/0/1 5298 [12664] 30806 1 6 0 0 2 0 5 0 0 0 0 0 0 ACTION 3/0/0 5 [12665] 0/0/1 5300 [12666] 30808 1 8 0 0 2 0 5 0 0 0 0 0 0 REF 3/0/0 5 [12667] 0/0/1 5302 [12668] 30810 1 10 0 0 1 0 5 5 0 5 1 0 0 ITEM +/- 14/0/2 5381 [12669] 0/0/1 5304 [12670] 30812 1 12 0 0 0 0 2 3 0 2 0 0 0 DISC 0/0/1 770 [12671] 0/0/1 5306 [12672] 30814 1 14 0 0 0 0 3 2 0 3 0 0 0 MODIFIER 0/0/1 4611 [12673] 0/0/1 5308 [12674] 30816 1 16 0 0 1 0 10 0 0 10 1 0 0 LITERAL +/- 14/1/1 10 [12675] 0/0/1 5312 [12676] 30818 1 20 0 0 2 0 5 0 0 0 0 0 0 'CLEO' PARA WORD 3/0/0 5 [12677] 0/0/1 5314 [12678] 30820 1 22 0 0 0 0 5 0 0 5 0 0 1 PREVIOUS PROCR NO 16/0/2 4101 [12679] Start of procedure 309 at location 4488 in chapter 3 [12680] [12680] 30900 TABLE 309 309 1 EDIT TABLE ENTRIES 0/0/1 5292 [12680] 30902 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND 0/0/2 4101 [12681] 0/0/1 5294 [12682] 30904 1 2 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [12683] 0/0/1 5312 [12684] 30906 1 20 0 0 0 0 5 0 0 5 0 0 0 FIRST REF 0/0/2 4101 [12685] 0/0/1 5314 [12686] 30908 1 22 0 0 0 0 5 0 0 5 0 0 0 FIRST ITEM 0/0/2 4101 [12687] 0/0/1 5316 [12688] 30910 1 24 0 0 0 0 5 0 0 5 0 0 0 SECOND REF 0/0/2 4101 [12689] 0/0/1 5318 [12690] 30912 1 26 0 0 0 0 5 0 0 5 0 0 0 SECOND ITEM 0/0/2 4101 [12691] 0/0/1 5311 [12692] 30914 1 19 0 0 0 0 2 3 0 2 0 0 0 DISC 0/0/1 770 [12693] 0/0/1 5303 [12694] 30916 1 11 0 0 0 0 3 2 0 3 0 0 0 SINGLE/TO BE 0/0/1 4611 [12695] 0/0/1 5304 [12696] 30918 1 12 0 0 0 0 2 3 0 2 0 0 0 NO 0/0/1 770 [12697] 0/0/1 5305 [12698] 30920 1 13 0 0 0 0 3 2 0 3 0 0 0 DISCARDED 0/0/1 4611 [12699] 0/0/1 5306 [12700] 30922 1 14 0 0 0 0 2 3 0 2 0 0 0 SPACES 0/0/1 770 [12701] 0/0/1 5307 [12702] 30924 1 15 0 0 0 0 3 2 0 3 0 0 0 ZEROS 0/0/1 4611 [12703] 0/0/1 5308 [12704] 30926 1 16 0 0 0 0 1 4 0 1 0 0 0 SIGN 0/0/0 5121 [12705] 0/0/1 5309 [12706] 30928 1 17 0 0 0 0 2 3 0 2 0 0 0 STERLING 0/0/1 770 [12707] 0/0/1 5310 [12708] 30930 1 18 0 0 0 0 2 3 0 2 0 0 1 LAST TABLE ENTRY 16/0/1 770 [12709] Start of procedure 310 at location 4518 in chapter 3 [12710] [12710] 31000 TABLE 310 310 3 UNPACK CONSTANT AND EDIT 0/0/1 5292 [12710] 31002 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND 0/0/2 4101 [12711] 0/0/1 5294 [12712] 31004 1 2 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [12713] 0/0/1 6048 [12714] 31006 92 34 0 0 0 0 5 0 0 5 0 0 0 ZERO WORD 0/0/2 4101 [12715] 0/0/1 5298 [12716] 31008 1 6 0 0 2 0 5 0 0 0 0 0 0 CONSTANT UNPACKED 3/0/0 5 [12717] 0/0/1 5300 [12718] 31010 1 8 0 0 2 0 5 0 0 0 0 0 0 FIXED FIELD TO 3/0/0 5 [12719] 0/0/1 5302 [12720] 31012 1 10 0 0 2 0 5 0 0 0 0 0 0 1/6' ONWARD 3/0/0 5 [12721] 0/0/1 5304 [12722] 31014 1 12 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [12723] 0/0/1 5306 [12724] 31016 1 14 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [12725] 0/0/1 5308 [12726] 31018 1 16 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [12727] 0/0/1 5310 [12728] 31020 1 18 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [12729] 0/0/1 5312 [12730] 31022 1 20 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [12731] 0/0/1 5314 [12732] 31024 1 22 0 0 2 0 5 0 0 0 0 0 1 19/0/0 5 [12733] Start of procedure 311 at location 4542 in chapter 3 [12734] [12734] 31100 TABLE 311 311 3 UNPACK STACKING DIRECTIVE 0/0/1 5294 [12734] 31102 1 2 0 0 2 0 5 0 0 0 0 0 0 SER+AMEND DIR? 3/0/0 5 [12735] 0/0/1 5298 [12736] 31104 1 6 0 0 2 0 5 0 0 0 0 0 0 DIRECTIVE 3/0/0 5 [12737] 0/0/1 5300 [12738] 31106 1 8 0 0 2 0 3 0 0 0 0 0 0 SECTION NO 3/0/0 3 [12739] 0/0/1 5308 [12740] 31108 1 16 0 0 2 1 5 0 0 0 0 0 1 /////TYPE OR ANNOTATION 27/0/0 5 [12741] 0/0/1 5294 [12742] 31110 1 2 0 0 2 0 5 0 0 0 0 0 0 SER NO +AMEND DIR? 3/0/0 5 [12743] 0/0/1 5298 [12744] 31112 1 6 0 0 2 0 5 0 0 0 0 0 0 ''NOTES'' OF TABLE 3/0/0 5 [12745] 0/0/1 5308 [12746] 31114 1 16 0 0 2 0 5 0 0 0 0 0 1 ANNOTATION 19/0/0 5 [12747] Start of procedure 312 at location 4556 in chapter 3 [12748] [12748] 31200 TABLE 312 312 3 UNPACK INSTRUCTIONS 0/0/1 5294 [12748] 31202 1 2 0 0 2 0 6 0 0 0 0 0 0 /////SER+AMEND LETTER 3/0/0 6 [12749] 0/0/1 5298 [12750] 31204 1 6 0 0 2 0 3 0 0 0 0 0 0 ACTION 3/0/0 3 [12751] Source: RayS/Q1000222 0/0/1 5300 [12752] 31206 1 8 0 0 2 0 3 0 0 0 0 0 0 REF 3/0/0 3 [12753] 0/0/1 5302 [12754] 31208 1 10 0 0 1 0 5 0 0 0 1 0 0 ITEM 14/0/0 5 [12755] 0/0/1 5304 [12756] 31210 1 12 0 0 0 0 1 0 0 0 0 0 0 D 0/0/0 1 [12757] 0/0/1 5306 [12758] 31212 1 14 0 0 0 0 2 0 0 0 0 0 0 M 0/0/0 2 [12759] 0/0/1 5308 [12760] 31214 1 16 0 0 1 0 10 0 0 0 1 0 0 LITERAL 14/0/0 10 [12761] 0/0/1 5320 [12762] 31216 1 28 0 0 2 0 5 0 0 0 0 0 0 NOTES FROM P/T -RUBBISH FROM CARD 3/0/0 5 [12763] 0/0/1 5328 [12764] 31218 1 36 0 0 2 0 5 0 0 0 0 0 1 COMMENTARY FROM P/T 19/0/0 5 [12765] Start of procedure 313 at location 4574 in chapter 3 [12766] [12766] 31300 TABLE 313 313 3 UNPACK TABLE ENTRIES 0/0/1 5294 [12766] 31302 1 2 0 0 2 0 6 0 0 0 0 0 0 /////SER+AMEND LETTER 3/0/0 6 [12767] 0/0/1 5312 [12768] 31304 1 20 0 0 0 0 3 0 0 0 0 0 0 FIRST REF 0/0/0 3 [12769] 0/0/1 5314 [12770] 31306 1 22 0 0 0 0 5 0 0 0 0 0 0 FIRST ITEM 0/0/0 5 [12771] 0/0/1 5316 [12772] 31308 1 24 0 0 0 0 3 0 0 0 0 0 0 SECOND REF 0/0/0 3 [12773] 0/0/1 5318 [12774] 31310 1 26 0 0 0 0 5 0 0 0 0 0 0 SECOND ITEM 0/0/0 5 [12775] 0/0/1 5311 [12776] 31312 1 19 0 0 0 0 1 0 0 0 0 0 0 DISC 0/0/0 1 [12777] 0/0/1 5303 [12778] 31314 1 11 0 0 0 0 1 0 0 0 0 0 0 SINGLE TO BE 0/0/0 1 [12779] 0/0/1 5304 [12780] 31316 1 12 0 0 0 0 2 0 0 0 0 0 0 NO OF CHARS 0/0/0 2 [12781] 0/0/1 5305 [12782] 31318 1 13 0 0 0 0 2 0 0 0 0 0 0 DISCARDS 0/0/0 2 [12783] 0/0/1 5306 [12784] 31320 1 14 0 0 0 0 2 0 0 0 0 0 0 SPACES 0/0/0 2 [12785] 0/0/1 5307 [12786] 31322 1 15 0 0 0 0 2 0 0 0 0 0 0 ZEROS 0/0/0 2 [12787] 0/0/1 5308 [12788] 31324 1 16 0 0 0 0 1 0 0 0 0 0 0 SIGN 0/0/0 1 [12789] 0/0/1 5309 [12790] 31326 1 17 0 0 0 0 1 0 0 0 0 0 0 p 0/0/0 1 [12791] 0/0/1 5310 [12792] 31328 1 18 0 0 0 0 1 0 0 0 0 0 0 LTE 0/0/0 1 [12793] 0/0/1 5320 [12794] 31330 1 28 0 0 2 0 5 0 0 0 0 0 1 P/T ANNOTATION-SPACES IF CARD 19/0/0 5 [12795] Start of procedure 314 at location 4604 in chapter 3 [12796] [12796] 31400 TABLE 314 314 3 UNPACK CONSTANT (FIRST STAGE) 0/0/1 5294 [12796] 31402 1 2 0 0 2 0 6 0 0 0 0 0 0 /////SER+AMEND LETTER 3/0/0 6 [12797] 0/0/1 5298 [12798] 31404 1 6 0 0 2 0 5 0 0 0 0 0 0 CONSTANT (OR FIRST 5 CHS OF CONST) 3/0/0 5 [12799] 0/0/1 5320 [12800] 31406 1 28 0 0 2 0 5 0 0 0 0 0 1 ANNOTATION (FROM P/T) OR NEXT 5 19/0/0 5 [12801] Start of procedure 315 at location 4610 in chapter 3 [12802] [12802] 31500 TABLE 315 315 1 EDIT ALL BUT TRIAL DATA 0/0/1 5301 [12802] 31502 1 9 0 0 0 0 5 0 0 4 0 0 0 REF---VALUES 0/0/2 5 [12803] 0/0/1 5302 [12804] 31504 1 10 0 0 0 0 5 0 0 4 1 0 1 LTE 28/0/2 5 [12805] Start of procedure 316 at location 4614 in chapter 3 [12806] [12806] 31600 CONST 316 0 CHECKING CONST FOR INSTRUCTIONS 0/0/3 2833 [12806] 31602 (D)06e11; 'LITERAL' SWITCH Q3 +06B11 0/1/0 2841 [12807] 31603 08e19; 'REF/ITEM' SW Q2 +08B19 0/0/0 2833 [12808] 31604 00e11; 'DISC/MOD' SWITCH Q1 +00B11 0/1/0 6929 [12809] 31605 09e11; +09B11 0/1/1 290 [12810] 31606 0t122; ACTION 10 +0A122 0/1/2 802 [12811] 31607 0+322; +0C322 0/1/3 4096 [12812] 31608 0p000; +0F000 1/0/0 6673 [12813] 31609 11t11; +11A11 1/0/1 0 [12814] 31610 12000; +12000 1/0/1 6801 [12815] 31611 13t91; +13A91 Start of procedure 317 at location 4624 in chapter 3 [12816] [12816] 31700 CONST 317 0 CHECKING CONSTANTS FOR INSTRUCTIONS 1/1/1 2833 [12816] 31702 (D)1te11; ACTIONS 20-26 +1AB11 1/1/2 0 [12817] 31703 1+000; 2728 +1C000 1/1/2 6929 [12818] 31704 1:e11; 29 +1DB11 2/0/0 5154 [12819] 31705 21422; 30-33 +21422 2/0/1 2833 [12820] 31706 22e11; +22B11 2/0/1 5410 [12821] 31707 23522; +23522 2/0/2 6929 [12822] 31708 25e11; +25B11 2/0/3 1570 [12823] 31709 26622; +26622 2/0/3 6946 [12824] 31710 27e22; +27B22 2/1/0 5554 [12825] 31711 295e2; +295B2 Source: RayS/Q1000223 0/0/0 1458 [12826] 31712 005e2; ACTIONS 42, 43 +005B2 2/1/1 6969 [12827] 31713 2ee39; 42, 43 FIRST C-LINE +2BB39 0/0/0 3025 [12828] 31714 00e:1; 43 SECOND LINE +00BD1 0/0/0 2881 [12829] 31715 00e41; 44 +00B41 2/1/2 3122 [12830] 31716 2++32; +2CC32 2/1/2 5425 [12831] 31717 2:531; ACTIONS 46-49 +2D531 3/0/0 5434 [12832] 31718 3153t; 46-49 C-LINES +3153A 0/0/0 276 [12833] 31719 00114; ACTIONS 50-53 +00114 3/0/2 6939 [12834] 31720 35e1e; +35B1B 0/0/0 2883 [12835] 31721 00e43; ACTION 54 +00B43 3/0/3 2449 [12836] 31722 36991; +36991 0/0/0 2835 [12837] 31723 00e13; +00B13 3/0/3 5913 [12838] 31724 37719; +37719 0/0/0 2961 [12839] 31725 00e91; +00B91 3/1/0 2833 [12840] 31726 38e11; +38B11 3/1/0 4375 [12841] 31727 39117; 57 +39117 3/1/1 274 [12842] 31728 3t112; +3A112 3/1/1 4381 [12843] 31729 3e11:; 59 +3B11D 0/0/0 2836 [12844] 31730 00e14; C-LINE +00B14 3/1/2 6946 [12845] 31731 3:e22; 6061 +3DB22 3/1/3 2082 [12846] 31732 3.822; +3E822 4/0/0 2833 [12847] 31733 40e11; +40B11 4/0/0 6169 [12848] 31734 41819; +41819 0/0/0 2082 [12849] 31735 00822; +00822 4/0/1 6946 [12850] 31736 43e22; 66.67 +43B22 4/0/2 4096 [12851] 31737 45000; 6869 +45000 4/1/2 2882 [12852] 31738 4+e42; 70-76 +4CB42 4/1/3 3522 [12853] 31739 4.:+2; 77-78 +4EDC2 0/0/0 2834 [12854] 31740 00e12; C-LINE +00B12 4/1/3 6978 [12855] 31741 4pe42; 79 +4FB42 5/0/0 3010 [12856] 31742 50e+2; 80 +50BC2 0/0/0 2962 [12857] 31743 00e92; C-LINE +00B92 5/0/1 2882 [12858] 31744 52e42; 81-82 +52B42 5/0/1 7266 [12859] 31745 53+62; 83 +53C62 5/0/2 3042 [12860] 31746 54e.2; 84 +54BE2 0/0/0 2833 [12861] 31747 00e11; 84 C-LINE +00B11 5/0/2 7018 [12862] 31748 55e6t; 85 +55B6A 0/0/0 3041 [12863] 31749 00e.1; +00BE1 5/0/3 354 [12864] 31750 56162; 86 +56162 5/0/3 6939 [12865] 31751 57e1e; +57B1B 0/0/0 3041 [12866] 31752 00e.1; C-LINE +00BE1 5/1/0 4096 [12867] 31753 59000; +59000 5/1/1 557 [12868] 31754 5t22:; ACTION 90 +5A22D 0/0/0 546 [12869] 31755 00222; +00222 5/1/2 6934 [12870] 31756 5:e16; ACTIONS 91-93 +5DB16 5/1/3 2325 [12871] 31757 5.915; 94 +5E915 6/0/0 2853 [12872] 31758 60e25; +60B25 6/0/0 7061 [12873] 31759 61e95; ACTION 97 +61B95 0/0/0 2914 [12874] 31760 00e62; +00B62 6/0/1 6950 [12875] 31761 63e26; 9899 +63B26 8/0/1 7057 [12876] 31762 83e91; +83B91 0/0/0 2833 [12877] 31763 00e11; +00B11 8/0/2 2866 [12878] 31764 84e32; 132 +84B32 8/0/3 1338 [12879] 31765 8653t; 133-4 +8653A 0/0/0 2914 [12880] 31766 00e62; C-LINE +00B62 8/1/1 4096 [12881] 31767 8e000; +8B000 8/1/3 7057 [12882] 31768 8pe91; 140-143 +8FB91 9/0/0 0 [12883] 31769 90000; 144 +90000 9/0/2 2961 [12884] 31770 94e91; ACTIONS 145-148 +94B91 0/0/0 2833 [12885] 31771 00e11; CONTINUATION LINES +00B11 Source: RayS/Q1000224 9/0/2 4096 [12886] 31772 95000; +95000 9/0/3 3103 [12887] 31773 96+1p; +96C1F 0/0/0 3041 [12888] 31774 00e.1; +00BE1 9/0/3 6946 [12889] 31775 97e22; +97B22 9/1/0 2890 [12890] 31776 98e4t; +98B4A 0/0/0 2882 [12891] 31777 00e42; +00B42 9/1/0 6946 [12892] 31778 99e22; ACTION 153 +99B22 9/1/1 2834 [12893] 31779 9te12; ACTION 153-154 +9AB12 9/1/1 6946 [12894] 31780 9ee22; +9BB22 9/1/2 2865 [12895] 31781 9+e31; +9CB31 9/1/2 6939 [12896] 31782 9:e1e; +9DB1B 0/0/0 2883 [12897] 31783 00e43; C-LINE +00B43 9/1/3 1297 [12898] 31784 9.511; +9E511 15/1/3 4096 [12899] 31785 pp000; +FF000 0/0/0 2841 [12900] 31786 00e19; CONST FOR ACTION 55=2 C-LINES +00B19 0/0/0 3033 [12901] 31787 00e:9; 2ND C LINE RT 22 ACTION 43 +00BD9 0/0/0 2833 [12902] 31788 00e11; =1 C-LINE +00B11 0/0/0 8160 [12903] 31789 (R)18:2496; FOR SEQUENCE CHANGES +01FE0 0/0/0 5664 [12904] 31790 (R)18:0; +01620 0/0/1 170 [12905] 31791 (R)93:0; +020AA 0/0/1 6330 [12906] 31792 (R)14:0; +038BA 0/0/0 0 [12907] 31793 (D)0; ZERO IF RT9 PRINTER +00000 0/0/0 3025 [12908] 31794 00e:1; 43 ACTIONS +00BD1 Start of procedure 318 at location 4717 in chapter 3 [12909] [12909] 31800 CONST 318 0 MISC 0/0/0 2 [12909] 31802 (D)2; +00002 1/0/0 0 [12910] 31803 10000; BIT 17 +10000 0/0/0 4095 [12911] 31804 ppp; Q1-3 +00FFF 0/0/0 112 [12912] 31805 70; BITS 5-7 +00070 0/0/0 7 [12913] 31806 7; BITS 1-3 +00007 0/0/0 8 [12914] 31807 8; BIT 4 +00008 0/0/0 128 [12915] 31808 80; BIT 8 +00080 0/0/0 3840 [12916] 31809 p00; +00F00 0/0/0 4 [12917] 31810 4; BIT3 +00004 0/0/0 0 [12918] 31811 0; FIRST RECORD INDICATOR +00000 0/0/0 0 [12919] 31812 0; ACC.RECORD LENGTH +00000 Start of procedure 319 at location 4728 in chapter 3 [12920] [12920] 31900 CONST 319 1 ALPHA CONSTANTS 2/0/3 853 [12920] 31902 (A)TABLE; 26355 +73515 7/0/1 5397 [12921] 5/0/3 4723 [12922] 31904 CONST; 57273 +53666 5/0/1 5734 [12923] 6/0/2 4969 [12924] 31906 PROCR; 65369 +67696 6/0/3 5782 [12925] 0/0/0 0 [12926] 31908 * ; 00000 +5B000 5/1/1 4096 [12927] 0/0/0 126 [12928] 31910 (D)7.0000007.; BLOCK END WORD 0007E +7E000 7/1/3 0 [12929] 3/0/2 5490 [12930] 31912 (A)NOTES; 35572 +65667 6/0/2 5735 [12931] 4/0/0 0 [12932] 31914 END ; 40000 +55655 5/0/2 5717 [12933] 4/0/3 1906 [12934] 31916 DUMPS; 46772 +54746 5/0/2 1862 [12935] 3/0/2 5490 [12936] 31918 FILES; 35572 +56596 5/0/3 1430 [12937] 0/0/0 1023 [12938] 31920 (D)pp+00003pp; BITS 1-10 AND 31-40 003FF +FFC00 15/1/3 7168 [12939] 0/0/0 0 [12940] 31922 0; EVEN=WL FOR EDIT SWITCH, ODD=C/FWD HIGHES 00000 +00000 0/0/0 0 [12941] 5/0/2 5491 [12942] 31924 (A)SHEET; 55573 +72585 7/0/1 1413 [12943] 13/0/2 7517 [12944] 31926 (D)5:5:5:5:5:; '?????' D5D5D +5D5D5 5/1/2 5589 [12945] 3/0/3 5205 [12946] 31928 (A)VALUE; 37455 +75516 7/0/2 5398 [12947] 15/0/3 3951 [12948] 31930 (D)6p6p6p6p6p; F6F6F +6F6F6 6/1/3 5878 [12949] 4/0/2 5495 [12950] 31932 (A)INDEX; 45577 +59655 5/1/0 5717 [12951] 15/0/2 3919 [12952] 31934 ppppp; F4F4F +4F4F4 4/1/3 5364 [12953] 0/0/0 66 [12954] 31936 2; 00042 +00000 0/0/0 0 [12955] 1/0/2 6501 [12956] 31938 CHAIN; 15965 +53585 5/0/1 5509 [12957] 13/0/2 7529 [12958] 31940 ????R; D5D69 +5D5D5 5/1/2 5589 [12959] 13/0/2 7513 [12960] 31942 ????I; D5D59 +5D5D5 5/1/2 5589 [12961] 13/0/2 7515 [12962] 31944 ????*; D5D5B +5D5D5 5/1/2 5589 [12963] Source: RayS/Q1000225 1/0/3 1108 [12964] 31946 (A)TRAMD; 16454 +73695 7/0/1 5781 [12965] 0/0/1 5320 [12966] 31948 (B20)16(D)0(C)1:28; BULK COPY 034C8 +00010 0/0/0 16 [12967] 5/0/2 6514 [12968] 31950 (A)FINIS; 55972 +56596 5/0/3 1430 [12969] Start of procedure 320 at location 4778 in chapter 3 [12970] [12970] 32000 CONST 320 1 CONVERT TABLES 0/0/0 1 [12970] 32002 (D)1; BIN+DEC 00001 +00000 0/0/0 0 [12971] 0/0/0 22 [12972] 32004 16; 00016 +00000 0/0/0 0 [12973] 0/0/0 598 [12974] 32006 256; 00256 +00000 0/0/0 0 [12975] 0/0/2 150 [12976] 32008 4096; 04096 +00000 0/0/0 0 [12977] 6/0/2 5430 [12978] 32010 65536; 65536 +00000 0/0/0 0 [12979] 4/1/0 1398 [12980] 32012 1048576; 48576 +00010 0/0/0 16 [12981] 7/0/3 4630 [12982] 32014 16777216; 77216 +00167 0/0/0 359 [12983] 3/0/2 5206 [12984] 32016 268435456; 35456 +02684 0/0/1 1668 [12985] 6/0/3 4758 [12986] 32018 4294967296; 67296 +42949 4/0/1 2377 [12987] 15/1/3 8191 [12988] 32020 pppppppppp; FFFFF +FFFFF 15/1/3 8191 [12989] 0/0/0 1 [12990] 32022 1; DEC+BIN 00001 +00000 0/0/0 0 [12991] 0/0/0 10 [12992] 32024 t; 0000A +00000 0/0/0 0 [12993] 0/0/0 100 [12994] 32026 64; 00064 +00000 0/0/0 0 [12995] 0/0/0 1000 [12996] 32028 3.8; 003E8 +00000 0/0/0 0 [12997] 0/0/1 1808 [12998] 32030 2710; 02710 +00000 0/0/0 0 [12999] 1/1/0 1696 [13000] 32032 186t0; 186A0 +00000 0/0/0 0 [13001] 15/0/2 576 [13002] 32034 p4240; F4240 +00000 0/0/0 0 [13003] 8/1/0 5760 [13004] 32036 989680; 89680 +00009 0/0/0 9 [13005] 5/1/3 256 [13006] 32038 5p5.100; 5E100 +0005F 0/0/0 95 [13007] 10/1/2 2560 [13008] 32040 3e9t+t00; ACA00 +003B9 0/0/0 953 [13009] 0/0/0 0 [13010] 32042 0; (A)WL 00000 +00000 0/0/0 0 [13011] 0/0/0 63 [13012] 32044 3p; BITS 1-6 0003F +00000 0/0/0 0 [13013] 1/0/3 1907 [13014] 32046 (A)CHAPT; 16773 +53585 5/0/1 5509 [13015] 5/0/3 1364 [13016] 32048 PREND; 56554 +67695 6/0/3 5781 [13017] Start of procedure 321 at location 4826 in chapter 3 [13018] [13018] 32100 PROCR 321 RIGHT ALIGN A WORD [13018] 32101 NOTES RADIX PLACED IN B 0/0/0 0 [13018] 32102 81 321 2 0 0 0 START OF SUBROUTINE 1/1/3 0 [13019] 32103 10 0 0 0 0 SELECT LITERAL 2/1/0 138 [13020] 32104 5 12 88 1 0 0 TRANSFER 4/1/0 138 [13021] 32105 1 12 88 1 0 0 ADD 18/1/1 2 [13022] 32106 32 0 0 0 2 LEAVE A CLEAR SHIFT (AB) BY QUARTETS 2/1/0 138 [13023] 32107 5 12 88 1 0 0 TRANSFER 27/1/1 4829 [13024] 32108 75 321 5 0 0 0 AND PUT WORD JUMP IF AB != 0 6/1/0 138 [13025] 32109 12 88 1 0 0 SELECT 26/0/1 4826 [13026] 32110 82 321 2 0 0 0 IN 12/88' END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 322 at location 4835 in chapter 3 [13027] [13027] 32200 PROCR 322 END ROUTINE [13027] 32201 NOTES RADIX 0/0/3 5129 [13027] 32202 60 0 0 0 0 SET DECIMAL RADIX 1/1/3 1 [13028] 32203 10 0 0 0 1 SELECT LITERAL 7/0/0 6017 [13029] 32204 4 92 3 0 0 0 STEP PROCR AUGMENT 0/0/3 0 [13030] 32205 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 4748 [13031] 32206 319 22 0 0 0 DIRECTIVE FOR LAST BLOCK EDITED SELECT 1/1/2 3 [13032] 32207 12 0 0 0 3 SUBTRACT LITERAL 27/0/1 4844 [13033] 32208 71 322 11 0 0 0 gWASN'T A CONSTANT JUMP IF A != 0 1/1/3 1 [13034] 32209 10 0 0 0 1 SELECT LITERAL 2/0/0 5390 [13035] 32210 5 29 6 0 0 0 TRANSFER 26/0/0 4042 [13036] 32211 80 288 2 0 0 0 gO/P FINAL DATA BLOCK ENTER SUBROUTINE 6/0/0 6017 [13037] 32212 0 92 3 0 0 0 SELECT 18/0/1 2 [13038] 32213 30 0 0 0 2 SHIFT (A) BY QUARTETS Source: TonyJ/Q1000226 2/0/0 138 [13039] 32214 5 12 88 0 0 0 TRANSFER 24/0/2 4438 [13040] 32215 52 29 4 0 0 0 EDIT 28/1/2 5388 [13041] 32216 C 306 6 0 0 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [13043] 32217 9 4 1 0 0 SELECT 18/0/1 4124 [13044] 32218 30 0 0 0 4- SHIFT (A) BY QUARTETS 18/0/1 4 [13045] 32219 30 0 0 0 4 SHIFT (A) BY QUARTETS 5/1/0 4740 [13046] 32220 2 319 14 1 0 0 SUBTRACT 27/0/0 4865 [13047] 32221 70 322 30 0 0 0 > END WITHOUT TD JUMP IF A == 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [13049] 32222 9 4 1 0 0 SELECT 5/1/0 4772 [13050] 32223 2 319 46 1 0 0 'TRAMD' SUBTRACT 27/0/0 4868 [13051] 32224 70 322 32 0 0 0 JUMP IF A == 0 6/1/0 5276 [13052] 32225 10 0 0 0 5£5£5£5£5£ 5 SQUARES SELECT LITERAL 3/0/0 6316 [13053] 32226 3 27 6 0 0 0 'PT OMMITTED' COPY 2/1/0 5396 [13054] 32227 5 29 12 1 0 0 TRANSFER 26/0/0 4298 [13055] 32228 80 301 2 0 0 0 > READ PT ENTER SUBROUTINE 24/1/0 4850 [13056] 32229 76 322 17 0 0 0 > TEST NEXT BLOCK JUMP unconditional 6/1/0 4776 [13057] 32230 319 50 1 0 0 'FINIS' SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 4 [13059] 32231 5 9 4 1 0 0 TRANSFER 6/1/0 4740 [13060] 32232 319 14 1 0 0 SELECT 2/1/0 5390 [13061] 32233 5 29 6 1 0 0 'END' TRANSFER 26/0/0 4042 [13062] 32234 80 288 2 0 0 0 > WRITE INTERCODE END SIGN ENTER SUBROUTINE 26/0/0 5065 [13063] 32235 80 325 2 0 0 0 ENTER SUBROUTINE 26/1/1 5278 [13064] 32236 90 0 0 1 1 SET MODIFICATION REGISTER AT LITERAL [13065] 32237 C 0 0 0 100 Limit 26/1/2 5280 [13065] 32238 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [13066] 32239 C 0 0 0 200 Limit 24/0/3 22 [13066] 32240 96 0 0 1 0 SELECT MODIFIER 6/0/0 2 [13067] 26/0/0 2765 [13068] 32241 80 244 2 0 0 0 > TO DEC ENTER SUBROUTINE 0/0/3 0 [13069] 32242 62 0 0 0 0 SET EXCESS CONSTANTS 18/1/1 4127 [13070] 32243 32 0 0 0 1- DIVIDE BY 10 SHIFT (AB) BY QUARTETS 24/0/3 22 [13071] 32244 92 0 0 3 0 TENS DIGIT SET MODIFIER AT VARIABLE 2/0/0 6 [13072] 18/1/1 1 [13073] 32245 32 0 0 0 1 SHIFT (AB) BY QUARTETS 2/0/0 2765 [13074] 32246 5 244 2 0 0 0 WL TRANSFER 1/1/3 1 [13075] 32247 10 0 0 0 1 SELECT LITERAL 24/0/1 2765 [13076] 32248 124 244 2 0 1 0 MODIFY ADDRESS OF NEXT 18/0/3 0 [13077] 32249 31 0 0 0 0 /////BIT PATTERN OF UNITS DIGIT SHIFT (A) BY BITS 3/0/0 2765 [13078] 32250 3 244 2 0 0 0 COPY 18/1/3 2 [13079] 32251 33 0 0 0 30- REL TO BIT 10 OF 8 SHIFT (AB) BY BITS 18/1/1 4120 [13080] 15/0/3 122 [13081] 32252 36 12 72 0 3 0 12/72-81= SECTION BIT PATTERNS COLLATE AND ADD 27/0/0 4910 [13082] 32253 70 322 68 0 0 0 > NOT TX AREA JUMP IF A == 0 24/0/3 22 [13083] 32254 96 0 0 3 0 SELECT MODIFIER 6/0/0 6 [13084] 1/0/1 0 [13085] 32255 35 0 0 0 0 CLEAR B PREPARE FOR DIGIT COLLATION 18/1/3 3 [13086] 32256 33 0 0 0 1- HALVE SHIFT (AB) BY BITS 18/1/1 4127 [13087] 24/0/3 22 [13088] 32257 92 0 0 3 0 SET MODIFIER AT VARIABLE 2/0/0 6 [13089] 27/1/1 4901 [13090] 32258 75 322 61 0 0 0 > WAS ODD JUMP IF AB != 0 0/0/2 2765 [13091] 32259 34 244 2 0 0 0 SET (N) IN B 24/1/0 4903 [13092] 32260 76 322 63 0 0 0 JUMP unconditional 0/0/2 2765 [13093] 32261 34 244 2 0 0 0 SET (N) IN B 18/1/3 10 [13094] 32262 33 0 0 0 10 SHIFT (AB) BY BITS 15/0/3 150 [13095] 32263 36 12 100 0 3 0 12/100-104='TX AREA USED' INDS COLLATE AND ADD 27/0/1 4910 [13096] 32264 71 322 68 0 0 0 > NOT PSEUDEO-TX AREA JUMP IF A != 0 24/0/3 22 [13097] 32265 96 0 0 1 0 SELECT MODIFIER 6/0/0 2 [13098] 2/0/2 6048 [13099] 32266 5 92 34 0 2 0 STORE SECTION NUMBER TRANSFER 25/0/2 1 [13100] 32267 94 0 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4910 [13101] 25/0/1 1 [13102] 32268 94 322 40 0 1 1 > NEXT SECTION STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4874 [13103] s Start of procedure 323 at location 4912 in chapter 3 [13104] [13104] 32300 PROCR 323 323 CALC CHAPS INITIALLY 6/0/0 5130 [13104] 32302 10 0 0 0 £££00 SELECT LITERAL 3/0/0 6247 [13105] 32303 3 23 47 0 0 0 (TO PRINT HEADING) COPY Source: TonyJ/Q1000227 24/0/0 6014 [13106] 32304 124 92 0 0 0 0 MODIFY ADDRESS OF NEXT 7/0/0 6023 [13107] 32305 4 92 9 0 0 0 'LAST PROCR' IN FINAL CHAP AUGMENT 26/1/3 62 [13108] 32306 91 12 12 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 6/0/3 6024 [13109] 32307 92 10 0 3 0 SELECT 18/0/1 9 [13110] 32308 30 0 0 0 9 SHIFT (A) BY QUARTETS 18/0/1 4119 [13111] 32309 30 0 0 0 9- ISOLATE Q1-CORR CHAP SHIFT (A) BY QUARTETS 5/0/0 6043 [13112] 32310 2 92 29 0 0 0 (ZERO INITIALLY) SUBTRACT 27/0/3 4923 [13113] 32311 73 323 13 0 0 0 JUMP IF A < 0 7/0/0 6043 [13114] 32312 4 92 29 0 0 0 UPDATE AUGMENT 25/0/3 1 [13115] 32313 94 323 7 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4917 [13116] 1/1/3 1 [13117] 32314 10 0 0 0 1 SELECT LITERAL 7/0/0 6043 [13118] 32315 4 92 29 0 0 0 FORM CHAPS INITIALLY AUGMENT 6/0/0 6023 [13119] 32316 92 9 0 0 0 SELECT 2/0/0 6022 [13120] 32317 5 92 8 0 0 0 STORE SC CTR TRANSFER 6/0/0 6043 [13121] 32318 92 29 0 0 0 SELECT 2/0/0 6023 [13122] 32319 5 92 9 0 0 0 SPEC CHAP - 'UNCORR CHAP 0' EQUIVALENT TRANSFER Start of procedure 324 at location 4931 in chapter 3 [13123] [13123] 32400 PROCR 324 324 READ/COPY TRIAL DATA MODS [13123] 32401 NOTES RADIX 1 0 0 26/0/0 4099 [13123] 32402 80 289 2 0 0 0 ENTER SUBROUTINE 26/0/0 4099 [13124] 32403 80 289 2 0 0 0 > WRITE 2 BLANKS ENTER SUBROUTINE 6/1/0 4756 [13125] 32404 319 30 1 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 4 [13127] 32405 5 8 4 1 0 0 5 ALIGN MARKS TRANSFER 1/1/3 6 [13128] 32406 10 0 0 0 6 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/0/0 10 [13130] 32407 5 8 10 0 0 0 TRANSFER 26/0/0 4099 [13131] 32408 80 289 2 0 0 0 > WRITE ALIGN BLOCK FOR PASS 3 ENTER SUBROUTINE 6/1/0 4758 [13132] 32409 319 32 1 0 0 'INDEX' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 4 [13134] 32410 5 8 4 1 0 0 TRANSFER 26/0/0 4099 [13135] 32411 80 289 2 0 0 0 > WRITE ENTER SUBROUTINE 26/1/1 5282 [13136] 32412 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [13137] 32413 C 0 0 0 1010 Limit 26/1/2 5284 [13137] 32414 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [13138] 32415 C 0 0 0 48 Limit 6/0/1 170 [13138] 32416 93 0 0 1 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/2 5 [13140] 32417 5 8 4 2 2 0 TRANSFER 25/0/2 2 [13141] 32418 94 324 24 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4956 [13142] s 6/1/0 4736 [13143] 32419 319 10 1 0 0 BEW SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 52 [13145] 32420 5 8 52 1 0 0 TRANSFER 26/0/0 4108 [13146] 32421 80 290 2 0 0 0 > WRITE ENTER SUBROUTINE 26/1/2 5286 [13147] 32422 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [13148] 32423 C 0 0 0 48 Limit 25/0/1 1 [13148] 32424 94 324 16 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4946 [13149] s 26/0/0 4108 [13150] 32425 80 290 2 0 0 0 > LAST BLOCK ENTER SUBROUTINE 26/0/0 4099 [13151] 32426 80 289 2 0 0 0 ENTER SUBROUTINE 26/0/0 4099 [13152] 32427 80 289 2 0 0 0 > TWO BLANKS ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [13154] 32428 0 9 4 1 0 0 SELECT 5/1/0 4776 [13155] 32429 2 319 50 1 0 0 'FINIS' SUBTRACT 27/0/0 4975 [13156] 32430 70 324 36 0 0 0 JUMP IF A == 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 4 [13158] 32431 55 9 4 1 0 50 BULK COPY 18/1/0 4123 [13159] 32432 C 8 4 1 0 0 1/1/3 50 [13160] 18/1/1 5 [13161] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [13163] 26/0/0 4099 [13164] 32433 80 289 2 0 0 0 > WRITE ENTER SUBROUTINE 26/0/0 4298 [13165] 32434 80 301 2 0 0 0 > READ ENTER SUBROUTINE 24/1/0 4961 [13166] 32435 76 324 28 0 0 0 JUMP unconditional 6/0/0 6314 [13167] 32436 27 4 0 0 0 COMPILER ? SELECT 27/0/0 4987 [13168] 32437 70 324 41 0 0 0 > NORMAL JUMP IF A == 0 0/1/0 40 [13169] 32438 46 A2 10 0 0 0 (TO START OF INTERCODE) RUN BACK 0/0/3 0 [13170] 0/1/2 5288 [13171] 32439 C 0 0 0 2 RUN BACK 6/1/0 0 [13172] 1/1/1 36 [13173] 25/1/1 4096 [13174] 24/0/3 0 [13175] 23/0/2 46 [13176] 0/1/1 40 [13177] 24/1/0 5003 [13178] 32440 76 324 43 0 0 0 JUMP unconditional 0/1/0 40 [13179] 32441 45 A2 0 0 0 0 REWIND 0/0/3 0 [13180] 6/1/0 0 [13181] 1/1/1 36 [13182] 25/1/1 4096 [13183] 24/0/3 0 [13184] 23/0/2 45 [13185] 0/1/1 40 [13186] 0/1/0 40 [13187] 32442 45 A6 0 0 0 1 REWIND 0/0/3 0 [13188] 6/1/0 0 [13189] 1/1/1 45 [13190] 25/1/1 4096 [13191] 24/0/3 0 [13192] 23/0/2 45 [13193] 0/1/1 40 [13194] Source: ChuckK/Q1000228 6/1/0 62 [13195] 32443 0 12 12 1 0 0 COPY DATA FOR PASS 2 PREP STAGE SELECT 2/1/0 5450 [13196] 32444 5 94 0 1 0 0 TRANSFER 6/0/0 6044 [13197] 32445 0 92 30 0 0 0 IND OF AMEND RUN SELECT 27/0/0 46 [13198] 32446 70 152 2 0 0 0 >NO, CALL PASS 2 JUMP IF A == 0 6/0/0 6314 [13199] 32447 27 4 0 0 0 SELECT 27/0/0 5012 [13200] 32448 70 324 52 0 0 0 >NORMAL JUMP IF A == 0 6/0/0 6312 [13201] 32449 27 2 0 0 0 SELECT 27/0/0 5044 [13202] 32450 70 324 74 0 0 0 JUMP IF A == 0 24/1/0 5027 [13203] 32451 76 324 58 0 0 0 JUMP unconditional 6/0/0 8177 [13204] 32452 86 786 2 0 0 0 SELECT SWITCH R 27/0/0 5044 [13205] 32453 70 324 74 0 0 0 >NO TRIAL DATA JUMP IF A == 0 2/0/0 4099 [13206] 32454 5 289 2 0 0 0 WL TRANSFER 0/1/0 40 [13207] 32455 47 A1 10 0 0 0 RUN TO START OF THIS PROGS MACHINE CODE RUN ON 0/0/3 0 [13208] 6/0/0 4099 [13209] 32456 C 289 2 0 0 0 RUN ON 4/1/0 5290 [13210] 18/1/1 4118 [13211] 6/1/0 0 [13212] 1/1/1 27 [13213] 25/1/1 4096 [13214] 24/0/3 0 [13215] 23/0/2 47 [13216] 0/1/1 40 [13217] 26/0/0 4119 [13218] 32457 80 291 2 0 0 0 >READ A1 ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 4 [13220] 32458 7 4 1 0 0 ;TESTS FOR CLOSING A1 SELECT 5/1/0 4824 [13221] 32459 2 320 48 1 0 0 'PREND' SUBTRACT 27/0/0 5044 [13222] 32460 70 324 74 0 0 0 >YES JUMP IF A == 0 4/1/0 4824 [13223] 32461 1 320 48 1 0 0 ADD 5/1/0 4744 [13224] 32462 2 319 18 1 0 0 'FILES' SUBTRACT 27/0/0 5041 [13225] 32463 70 324 71 0 0 0 JUMP IF A == 0 4/1/0 4744 [13226] 32464 1 319 18 1 0 0 ADD 5/1/0 4822 [13227] 32465 2 320 46 1 0 0 'CHAPT' SUBTRACT 27/0/0 5041 [13228] 32466 70 324 71 0 0 0 >YES JUMP IF A == 0 4/1/0 4822 [13229] 32467 1 320 46 1 0 0 ADD 5/1/0 4776 [13230] 32468 2 319 50 1 0 0 'FINIS' SUBTRACT 27/0/0 5044 [13231] 32469 70 324 74 0 0 0 >YES JUMP IF A == 0 24/1/0 5026 [13232] 32470 76 324 57 0 0 0 >READ/IGNORE JUMP unconditional 1/1/3 1 [13233] 32471 10 0 0 0 1 SELECT LITERAL 2/0/0 6313 [13234] 32472 5 27 3 0 0 0 TRANSFER 24/1/0 46 [13235] 32473 76 152 2 0 0 0 >CALL PASS 2,LEAVE A1 OPEN JUMP unconditional 2/0/0 6313 [13236] 32474 5 27 3 0 0 0 TRANSFER 6/0/0 6314 [13237] 32475 27 4 0 0 0 COMPILER CALLED TRANSLATOR? SELECT 27/0/0 5056 [13238] 32476 70 324 79 0 0 0 >NO JUMP IF A == 0 0/1/0 40 [13239] 32477 45 A1 0 0 0 1 REWIND 0/0/3 0 [13240] 6/1/0 0 [13241] 1/1/1 27 [13242] 25/1/1 4096 [13243] 24/0/3 0 [13244] 23/0/2 45 [13245] 0/1/1 40 [13246] 24/1/0 46 [13247] 32478 76 152 2 0 0 0 >CALL PASS 2 JUMP unconditional 0/1/0 40 [13248] 32479 41 A1 0 0 0 1 CLOSE FILE 0/0/3 0 [13249] 6/1/0 0 [13250] 1/1/1 27 [13251] 25/1/1 4096 [13252] 24/0/3 0 [13253] 23/0/2 41 [13254] 0/1/1 40 [13255] 24/1/0 46 [13256] 32480 76 152 2 0 0 0 >CALL PASS 2 JUMP unconditional Start of procedure 325 at location 5065 in chapter 3 [13257] [13257] 32500 PROCR 325 0/0/0 0 [13257] 32502 81 325 2 0 0 0 START OF SUBROUTINE 6/0/0 5065 [13258] 32503 325 2 0 0 0 SELECT 2/0/0 4042 [13259] 32504 5 288 2 0 0 0 TRANSFER 24/1/0 4065 [13260] 32505 76 288 24 0 0 0 JUMP unconditional Start of procedure 326 at location 5069 in chapter 3 [13261] [13261] 32600 PROCR 326 UNPACK SECTION 9 SUBROUTINE [13261] 32601 NOTES RADIX 0/0/0 0 [13261] 32602 81 326 2 0 0 0 START OF SUBROUTINE 24/1/2 0 [13262] 32603 124 999 0 1 2 0 (FORMED) MODIFY ADDRESS OF NEXT 28/0/3 4 [13263] 32604 128 4 0 3 0 UNPACK VARIABLE FIELD DATA 26/0/1 5069 [13264] 32605 82 326 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 24/1/2 21 [13265] 32606 9 0 0 0 0 DUMMY FOR PARAMETER SELECT 6/0/0 0 [13266] 28/0/2 4 [13267] 32607 128 4 0 2 0 UNPACK FIXED FIELD DATA Constants for chapter 3 short constants at 13268 long constants at 13324 0/0/1 0 [13268] 002000 0/0/2 0 [13269] 004000 0/0/3 0 [13270] 006000 7/0/0 0 [13271] 070000 0/0/3 1792 [13272] 006700 6/0/3 1638 [13273] 066666 16/0/0 2 [13274] 100002 6/0/3 1638 [13275] 066666 15/1/3 8191 [13276] 0FFFFF 6/0/3 1638 [13277] 066666 0/0/2 5376 [13278] 005500 0/0/0 2 [13279] 000002 0/0/2 5632 [13280] 005600 6/0/3 1638 [13281] 066666 0/0/2 150 [13282] 004096 0/0/2 4864 [13283] 005300 6/0/3 1638 [13284] 066666 0/0/3 4608 [13285] 007200 6/0/3 1638 [13286] 066666 6/0/3 1638 [13287] 066666 6/0/3 1638 [13288] 066666 0/0/0 20 [13289] 000014 6/0/3 1638 [13290] 066666 5/0/1 4096 [13291] 053000 5/0/1 4096 [13292] 053000 6/0/3 1638 [13293] 066666 0/1/0 402 [13294] 008192 5/0/1 4096 [13295] 053000 0/0/2 0 [13296] 004000 5/0/1 4096 [13297] 053000 6/0/3 1638 [13298] 066666 0/1/0 402 [13299] 008192 0/0/2 149 [13300] 004095 0/0/2 149 [13301] 004095 0/0/2 150 [13302] 004096 16/0/0 1 [13303] 100001 5/0/1 4096 [13304] 053000 5/0/1 4096 [13305] 053000 6/0/3 1638 [13306] 066666 6/0/3 1638 [13307] 066666 16/0/0 2 [13308] 100002 6/0/3 3684 [13309] 066E64 6/0/3 1638 [13310] 066666 6/0/3 1638 [13311] 066666 6/0/3 1638 [13312] 066666 16/0/0 3 [13313] 100003 0/0/0 3 [13314] 000003 0/1/0 401 [13315] 008191 0/1/0 402 [13316] 008192 16/0/0 5 [13317] 100005 0/0/2 230 [13318] 0040E6 6/0/3 1638 [13319] 066666 6/0/3 1638 [13320] 066666 6/0/3 1638 [13321] 066666 15/1/3 7936 [13322] 0FFF00 0/0/0 0 [13323] 000000 0/0/0 0 [13324] 000000 2/0/0 42 [13325] 02002A 0/0/0 0 [13326] 000000 2/0/0 46 [13327] 02002E 0/0/0 0 [13328] 000000 2/0/0 20 [13329] 020014 0/0/0 0 [13330] 000000 2/0/0 888 [13331] 020378 0/0/0 0 [13332] 000000 0/0/0 450 [13333] 0001C2 0/0/0 0 [13334] 000000 2/0/0 596 [13335] 020254 0/0/0 0 [13336] 000000 2/0/0 120 [13337] 020078 0/1/0 153 [13338] 008099 0/0/2 4417 [13339] 005141 0/0/0 0 [13340] 000000 0/0/0 0 [13341] 000000 0/1/0 153 [13342] 008099 0/0/2 4422 [13343] 005146 0/0/0 0 [13344] 000000 0/0/0 0 [13345] 000000 0/0/0 0 [13346] 000000 2/0/0 120 [13347] 020078 0/0/0 0 [13348] 000000 7/0/1 4096 [13349] 073000 0/0/0 0 [13350] 000000 2/0/0 46 [13351] 02002E 0/0/0 0 [13352] 000000 2/0/0 46 [13353] 02002E 0/0/0 0 [13354] 000000 0/0/0 0 [13355] 000000 0/1/0 153 [13356] 008099 0/0/2 4418 [13357] 005142 0/0/0 0 [13358] 000000 0/0/0 0 [13359] 000000 0/0/2 321 [13360] 004141 3/0/0 1155 [13361] 030483 0/0/0 0 [13362] 000000 2/0/0 46 [13363] 02002E 0/0/0 0 [13364] 000000 0/0/0 9 [13365] 000009 0/0/0 0 [13366] 000000 2/0/0 46 [13367] 02002E 0/0/0 0 [13368] 000000 2/0/0 46 [13369] 02002E 0/0/0 0 [13370] 000000 2/0/0 20 [13371] 020014 15/1/3 8191 [13372] 0FFFFF 15/1/3 8191 [13373] 0FFFFF 0/0/0 0 [13374] 000000 0/0/0 14 [13375] 00000E 0/0/0 0 [13376] 000000 2/0/0 46 [13377] 02002E 0/0/0 0 [13378] 000000 0/0/0 4 [13379] 000004 0/0/0 0 [13380] 000000 0/0/0 8 [13381] 000008 0/0/0 0 [13382] 000000 2/0/0 44 [13383] 02002C 15/0/2 8031 [13384] 0F5F5F 5/1/3 5621 [13385] 05F5F5 2/0/2 5481 [13386] 025569 0/0/0 7 [13387] 000007 13/0/2 7517 [13388] 0D5D5D 0/0/0 1493 [13389] 0005D5 2/0/2 5481 [13390] 025569 0/0/0 7 [13391] 000007 0/0/0 0 [13392] 000000 0/0/0 160 [13393] 0000A0 0/0/0 0 [13394] 000000 0/0/0 460 [13395] 0001CC 0/0/0 1 [13396] 000001 0/0/0 1 [13397] 000001 0/0/0 0 [13398] 000000 2/0/0 40 [13399] 020028 0/0/0 0 [13400] 000000 0/0/0 50 [13401] 000032 0/0/0 0 [13402] 000000 0/0/0 100 [13403] 000064 0/0/0 0 [13404] 000000 5/0/0 4096 [13405] 051000 0/0/0 0 [13406] 000000 5/0/0 4096 [13407] 051000 0/0/0 0 [13408] 000000 0/0/0 10 [13409] 00000A 0/0/0 0 [13410] 000000 5/0/1 4096 [13411] 053000 15/1/3 6146 [13412] 0FF802 0/0/0 2045 [13413] 0007FD 0/0/0 0 [13414] 000000 6/0/3 1638 [13415] 066666 2/0/2 5481 [13416] 025569 0/0/0 7 [13417] 000007 0/0/0 0 [13418] 000000 2/0/0 46 [13419] 02002E 0/0/0 6 [13420] 000006 0/0/0 44 [13421] 00002C 0/0/0 0 [13422] 000000 0/0/0 5 [13423] 000005 0/0/0 0 [13424] 000000 0/0/0 18 [13425] 000012 0/0/0 0 [13426] 000000 2/0/0 60 [13427] 02003C 0/0/0 0 [13428] 000000 2/0/0 18 [13429] 020012 0/0/0 0 [13430] 000000 2/0/0 18 [13431] 020012 0/0/0 2 [13432] 000002 0/0/0 30 [13433] 00001E 0/0/0 28 [13434] 00001C 0/0/0 0 [13435] 000000 0/0/0 0 [13436] 000000 0/0/0 0 [13437] 000000 0/0/0 0 [13438] 000000 0/0/0 11 [13439] 00000B 4/1/0 1398 [13440] 048576 0/0/0 16 [13441] 000010 0/0/0 0 [13442] 000000 0/0/0 5 [13443] 000005 0/0/0 0 [13444] 000000 0/0/0 8 [13445] 000008 2/0/3 5220 [13446] 027464 0/0/0 7 [13447] 000007 3/0/0 0 [13448] 030000 0/0/0 7 [13449] 000007 0/0/0 0 [13450] 000000 2/0/0 46 [13451] 02002E 0/0/0 0 [13452] 000000 2/0/0 40 [13453] 020028 0/0/0 44 [13454] 00002C 0/0/0 2 [13455] 000002 0/0/0 0 [13456] 000000 2/0/0 46 [13457] 02002E 0/0/0 0 [13458] 000000 2/0/0 44 [13459] 02002C 0/0/0 0 [13460] 000000 2/0/0 46 [13461] 02002E 0/0/0 0 [13462] 000000 2/0/0 8 [13463] 020008 0/0/0 0 [13464] 000000 0/0/0 1 [13465] 000001 0/0/0 0 [13466] 000000 2/0/0 46 [13467] 02002E 15/0/2 8031 [13468] 0F5F5F 5/1/3 5621 [13469] 05F5F5 0/0/0 1 [13470] 000001 0/0/0 100 [13471] 000064 0/0/0 0 [13472] 000000 0/0/0 200 [13473] 0000C8 0/0/0 0 [13474] 000000 0/0/0 1010 [13475] 0003F2 0/0/0 0 [13476] 000000 0/0/0 48 [13477] 000030 0/0/0 0 [13478] 000000 0/0/0 48 [13479] 000030 0/0/0 2 [13480] 000002 0/0/0 10 [13481] 00000A 0/0/0 0 [13482] 000000 0/0/0 10 [13483] 00000A L8192 loading procedure 0 for chapter 3 0/0/0 0 [8192] 000000 0/0/0 5600 [8193] 0015E0 0/0/0 5600 [8194] 0015E0 0/0/1 0 [8195] 002000 0/0/1 0 [8196] 002000 0/0/0 160 [8197] 0000A0 0/0/0 160 [8198] 0000A0 0/0/0 9 [8199] 000009 0/0/0 18 [8200] 000012 0/0/0 27 [8201] 00001B 0/0/0 36 [8202] 000024 0/0/0 45 [8203] 00002D 0/0/0 10 [8204] 00000A 16/0/0 74 [8205] 10004A 0/0/0 19 [8206] 000013 16/0/0 83 [8207] 100053 0/0/0 28 [8208] 00001C 16/0/0 92 [8209] 10005C 0/0/0 37 [8210] 000025 16/0/0 101 [8211] 100065 0/0/0 46 [8212] 00002E 16/0/0 110 [8213] 10006E 0/0/0 8 [8214] 000008 16/0/0 10 [8215] 10000A 16/0/0 12 [8216] 10000C 16/0/0 14 [8217] 10000E 0/0/0 0 [8218] 000000 0/0/0 0 [8219] 000000 0/0/0 0 [8220] 000000 0/0/0 0 [8221] 000000 0/0/0 0 [8222] 000000 0/0/0 0 [8223] 000000 0/0/0 0 [8224] 000000 0/0/0 0 [8225] 000000 0/0/0 0 [8226] 000000 0/0/0 0 [8227] 000000 0/0/0 0 [8228] 000000 0/0/0 0 [8229] 000000 0/0/0 0 [8230] 000000 0/0/0 0 [8231] 000000 O01 8192 13484 Overlaying chapter 3 by 4, equivalent to chapter 2 L8238 loading chapter 4 Start of procedure 327 at location 46 in chapter 4 [8238] [8238] 32700 PROCR 327 START OF PASS 2 [8238] 32702 NOTES RADIX B DEAL WITH SECTIONS USED ONLY FOR GP OUTPUT Source: ChuckK/Q1000229 PROCR 553 in CHAP 5 overlay = 4 24/0/3 0 [8238] 32702 152 152 4 0 0 0 CALL/ENTER PASS 3 OVERLAY 23/0/2 104 [8239] 32703 C 553 4 0 0 0 OVERLAY 6/1/0 16 [8240] 32704 999 16 1 0 0 COPY SEC 7 PARAS-PTS WL'S SELECT 2/1/0 30 [8241] 32705 5 999 30 1 0 0 TRANSFER 6/1/0 5138 [8242] 32706 54 5 0 0 0 50 BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/0/0 0 [8244] 24/0/2 728 [8245] 32707 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [8247] 32708 C 342 36 0 0 0 EDIT 'INDEX' LINE Start of procedure 328 at location 56 in chapter 4 [8248] [8248] 32800 PROCR 328 CALC LENGTHS OF SWITCH PROCR IN EACH CORRECTED CHAPTER [8248] 32801 NOTES RADIX B AND MOVE THE SC BACK LIST 6/1/0 5140 [8248] 32802 54 72 3 0 0 14 BULK CLEAR 28/0/0 5401 [8249] 6/1/0 5142 [8250] 32803 90 0 0 19 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8188 [8251] 32804 C 0 0 0 10 Simulated modifier 6/1/0 5144 [8252] 32805 90 0 0 20 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8186 [8253] 32806 C 0 0 0 10 Simulated modifier 1/1/3 1 [8254] 32807 10 0 0 0 1 SELECT LITERAL 2/0/0 5282 [8255] 32808 5 61 4 0 0 0 CTR INCREMENT TRANSFER 6/0/0 6101 [8256] 32809 95 1 0 0 0 NO OF SWITCHES SELECT 27/0/0 71 [8257] 32810 70 328 16 0 0 0 >NONE JUMP IF A == 0 2/0/0 5279 [8258] 32811 5 61 1 0 0 0 TRANSFER 1/1/3 10 [8259] 32812 10 0 0 0 t SELECT LITERAL 2/0/0 5281 [8260] 32813 5 61 3 0 0 0 BIT SHIFT CONTROL TRANSFER 24/0/2 6100 [8261] 32814 124 95 0 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 108 [8262] 32815 80 329 2 0 0 0 >PROCESS ENTER SUBROUTINE 1/1/3 8 [8263] 32816 10 0 0 0 8 SELECT LITERAL 2/0/0 5281 [8264] 32817 5 61 3 0 0 0 BIT SHIFT CONTROL TRANSFER 6/0/0 6089 [8265] 32818 98 1 0 0 0 NO OF ITEM+ SELECT 27/0/0 78 [8266] 32819 70 328 23 0 0 0 >NONE JUMP IF A == 0 2/0/0 5279 [8267] 32820 5 61 1 0 0 0 TRANSFER 24/0/2 6088 [8268] 32821 124 98 0 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 108 [8269] 32822 80 329 2 0 0 0 >PROCESS ENTER SUBROUTINE 26/1/3 5450 [8270] 32823 91 94 0 0 3 0 UNCORR CHAP CTR SET MODIFICATION REGISTER AT VARIABLE 1/1/3 1 [8271] 32824 10 0 0 0 1 SELECT LITERAL 18/1/1 4118 [8272] 32825 32 0 0 0 10- SHIFT (AB) BY QUARTETS 15/0/3 5401 [8273] 32826 36 72 3 0 3 0 COLLATE AND ADD 7/0/3 5401 [8274] 32827 4 72 3 0 3 0 ROUND UP CTRS AUGMENT 25/0/3 1 [8275] 32828 94 328 24 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 79 [8276] s 6/0/0 5431 [8277] 32829 71 1 0 0 0 CTR OF INDIRECT MR'S SELECT 27/0/0 92 [8278] 32830 70 328 36 0 0 0 >NONE JUMP IF A == 0 2/0/0 5279 [8279] 32831 5 61 1 0 0 0 TRANSFER 1/1/3 2 [8280] 32832 10 0 0 0 2 SELECT LITERAL 2/0/0 5282 [8281] 32833 5 61 4 0 0 0 CTR INCREMENT TRANSFER 24/0/2 5430 [8282] 32834 124 71 0 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 108 [8283] 32835 80 329 2 0 0 0 >PROCESS ENTER SUBROUTINE 1/1/3 2 [8284] 32836 10 0 0 0 2 SEQ CHANGE LIST SELECT LITERAL 7/0/0 6022 [8285] 32837 4 92 8 0 0 0 AUGMENT 4/0/0 4995 [8286] 32838 1 545 74 0 0 0 ABS ADDRESS 18:2496 ADD 5/0/0 6022 [8287] 32839 2 92 8 0 0 0 SUBTRACT 3/0/0 776 [8288] 32840 3 344 2 0 0 0 QTY TO COPY COPY 27/0/0 102 [8289] 32841 70 328 46 0 0 0 >NONE JUMP IF A == 0 18/0/1 5 [8290] 32842 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 6022 [8291] 32843 1 92 8 0 0 0 START ADD 24/1/2 4911 [8292] 32844 124 544 17 1 2 0 ABS ADDRESS 18/0 MODIFY ADDRESS OF NEXT 28/1/1 0 [8293] 32845 128 0 1 1 0 BULK COPY LONG NUMERIC 6/0/0 4911 [8294] 32846 544 17 0 0 0 SELECT 4/0/0 776 [8295] 32847 1 344 2 0 0 0 QTTY ADD 2/0/0 6022 [8296] 32848 5 92 8 0 0 0 NEW LIST END TRANSFER 6/0/0 6314 [8297] 32849 27 4 0 0 0 COMPILER? SELECT 27/0/0 149 [8298] 32850 70 330 2 0 0 0 >NO JUMP IF A == 0 Source: ChuckK/Q1000230 24/1/0 158 [8299] 32851 76 330 3 0 0 0 JUMP unconditional Start of procedure 329 at location 108 in chapter 4 [8300] [8300] 32900 PROCR 329 PROCESS SW/ITEM+/INDIRECT MR LISTS [8300] 32901 NOTES 0/0/0 0 [8300] 32902 81 329 2 0 0 0 START OF SUBROUTINE 3/0/0 5278 [8301] 32903 3 61 0 0 0 0 COPY 7/0/0 5279 [8302] 32904 4 61 1 0 0 0 AUGMENT 26/1/1 5278 [8303] 32905 91 61 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 24/0/3 0 Extra code needed to address absolute 6/0/1 2 [8305] 32906 2 0 1 0 SELECT 18/0/1 4124 [8306] 32907 30 0 0 0 4- SHIFT (A) BY QUARTETS 2/0/0 5280 [8307] 32908 5 61 2 0 0 0 UNCORR CHAP TRANSFER 1/0/1 1 [8308] 32909 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 24/0/1 5280 [8309] 32910 124 61 2 0 1 0 MODIFY ADDRESS OF NEXT 15/0/0 6023 [8310] 32911 36 92 9 0 0 0 COLLATE AND ADD 18/1/1 4 [8311] 32912 32 0 0 0 4 SHIFT (AB) BY QUARTETS 24/0/3 0 Extra code needed to address absolute 14/0/1 2 [8313] 32913 37 2 0 1 0 REPLACE BY CORR CHAP REPLACE SELECTED BITS 25/0/1 1 [8314] 32914 94 329 6 0 1 1 >NEXT DETAIL STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 112 [8315] 1/1/3 0 [8316] 32915 10 0 0 0 0 SELECT LITERAL 2/0/0 5280 [8317] 32916 5 61 2 0 0 0 TRANSFER 26/1/2 5450 [8318] 32917 91 94 0 0 2 0 UNCORR CHAP CTR SET MODIFICATION REGISTER AT VARIABLE 1/1/3 1 [8319] 32918 10 0 0 0 1 SELECT LITERAL 7/0/0 5280 [8320] 32919 4 61 2 0 0 0 AUGMENT 26/1/1 5278 [8321] 32920 91 61 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 24/0/3 0 Extra code needed to address absolute 6/0/1 2 [8323] 32921 2 0 1 0 SELECT 18/0/1 4124 [8324] 32922 30 0 0 0 4- SHIFT (A) BY QUARTETS 5/0/0 5280 [8325] 32923 2 61 2 0 0 0 SUBTRACT 27/0/1 144 [8326] 32924 71 329 33 0 0 0 >NOT IN THIS CORR CHAP JUMP IF A != 0 24/0/1 5280 [8327] 32925 124 61 2 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 5400 [8328] 32926 72 2 0 0 0 CTR WITHIN SWITCH PROCR SELECT 24/0/1 5281 [8329] 32927 124 61 3 0 1 0 MODIFY ADDRESS OF NEXT 18/0/3 0 [8330] 32928 31 0 0 0 0 /////AS NEEDED SHIFT (A) BY BITS 24/0/3 0 Extra code needed to address absolute 7/0/1 2 [8332] 32929 4 2 0 1 0 AUGMENT 6/0/0 5282 [8333] 32930 61 4 0 0 0 INCREMENT SELECT 24/0/1 5280 [8334] 32931 124 61 2 0 1 0 MODIFY ADDRESS OF NEXT 7/0/0 5400 [8335] 32932 4 72 2 0 0 0 STEP CTR AUGMENT 25/0/1 1 [8336] 32933 94 329 21 0 1 1 >NEXT DETAIL STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 130 [8337] s 25/0/2 1 [8338] 32934 94 329 18 0 2 1 >NEXT CORR CHAP STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 127 [8339] s 26/0/1 108 [8340] 32935 82 329 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 330 at location 149 in chapter 4 [8341] [8341] 33000 PROCR 330 OPEN FILES CLEAR W/LS [8341] 33001 NOTES RADIX PREP STAGE 0/1/0 40 [8341] 33002 40 A2 0 0 0 1 *****DON'T MOVE***** OPEN FILE 0/0/3 0 [8342] 0/1/2 5146 [8343] 6/1/0 5148 [8344] 1/1/1 36 [8345] 25/1/1 4096 [8346] 24/0/3 0 [8347] 23/0/2 40 [8348] 0/0/3 44 [8349] 6/0/0 6319 [8350] 33003 0 27 9 0 0 0 SELECT 27/0/1 168 [8351] 33004 71 330 13 0 0 0 >NOT PRINT JUMP IF A != 0 6/0/0 6318 [8352] 33005 27 8 0 0 0 PRINTER TYPE SELECT 1/1/1 10 [8353] 33006 11 0 0 0 t ADD LITERAL 18/0/1 5 [8354] 33007 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 7 [8355] 33008 1 999 7 0 0 0 ROUTE ADD 25/1/1 4096 [8356] 33009 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 0 [8357] 33010 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [8358] 33011 123 160 0 2 0 >OPEN PRINTER OR MT A9 ENTER MASTER ROUTINE 0/0/3 0 [8359] 33012 62 0 0 0 0 SET EXCESS CONSTANTS 6/1/0 5150 [8360] 33013 54 61 0 0 0 120 BULK CLEAR 28/0/0 5278 [8361] 6/1/0 5152 [8362] 33014 54 94 0 0 0 100 BULK CLEAR 28/0/0 5450 [8363] 6/1/0 5154 [8364] 33015 54 66 0 0 0 34 66+49 BULK CLEAR 28/0/0 5250 [8365] 1/1/3 1 [8366] 33016 10 0 0 0 1 SELECT LITERAL 7/0/0 6014 [8367] 33017 4 92 0 0 0 0 NO OF CHAPS AUGMENT 1/1/3 998 [8368] 33018 101 998 1 3 0 SELECT LITERAL ADDRESS 4/0/0 6014 [8369] 33019 1 92 0 0 0 0 (CHAPS CODED)+1 ADD 3/0/0 5283 [8370] 33020 3 61 5 0 0 0 LONG CONSTS PROCR COPY Source: RayS/Q1000325 1/1/1 1 [8371] 33021 11 0 0 0 1 ADD LITERAL 3/0/0 5284 [8372] 33022 3 61 6 0 0 0 SHORT CONSTS PROCR COPY 1/1/1 1 [8373] 33023 11 0 0 0 1 ADD LITERAL 2/0/0 5285 [8374] 33024 5 61 7 0 0 0 TSL PROCR TRANSFER 6/1/0 5156 [8375] 33025 10 0 0 0 800000 SELECT LITERAL 4/0/0 6319 [8376] 33026 1 27 9 0 0 0 ADD 3/1/0 40 [8377] 33027 91 0 0 3 0 SET FOR REENTRY SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [8378] Start of procedure 331 at location 187 in chapter 4 [8379] [8379] 33100 PROCR 331 I/P 1ST BLOCK, UNPACK, PRINT [8379] 33101 NOTES RADIX B PREP STAGE 26/0/0 4762 [8379] 33102 80 539 2 0 0 0 gREAD ENTER SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 6 [8381] 33103 8 6 1 0 0 SELECT 5/1/0 762 [8382] 33104 2 343 4 1 0 0 'PROGM' SUBTRACT 27/0/0 205 [8383] 33105 70 331 12 0 0 0 gOK JUMP IF A == 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 4 [8385] 33106 8 4 1 0 0 SELECT 5/1/0 5158 [8386] 33107 12 0 0 0 5659650000 ' FIN' SUBTRACT LITERAL 27/0/1 187 [8387] 33108 71 331 2 0 0 0 gKEEP READING JUMP IF A != 0 1/1/3 4 [8388] 33109 150 0 0 0 4 OFFER OPTIONS 0/0/2 5117 [8389] 25/1/1 4096 [8390] 24/0/3 0 [8391] 26/0/2 1 [8392] 0/0/1 202 [8393] s 33110 C 331 11 0 0 0 gUNLOAD 25/1/1 4096 [8394] 33111 151 0 0 0 0 UNLOAD PROGRAMME 24/0/3 0 [8395] 26/0/2 2 [8396] 24/0/2 620 [8397] 33112 50 8 4 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/2 4 [8399] 33113 C 341 2 0 0 0 24/0/2 620 [8400] 33114 52 8 2 0 0 0 EDIT 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/2 2 [8402] 33115 C 341 2 0 0 0 6/1/0 5254 [8403] 33116 66 4 1 0 0 SUITE NO SELECT 18/0/1 2 [8404] 33117 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/1/0 5257 [8405] 33118 1 66 6 2 0 0 JOB NO ADD 2/0/0 5390 [8406] 33119 5 61 112 0 0 0 PROG ID TRANSFER 6/1/0 5258 [8407] 33120 00 66 8 1 0 0 SELECT 2/1/0 5398 [8408] 33121 5 72 0 1 0 0 ALPHA SERIAL NUMBER TRANSFER 6/0/0 6319 [8409] 33122 27 9 0 0 0 SELECT 27/0/0 248 [8410] 33123 70 331 48 0 0 0 gPRINTING JUMP IF A == 0 6/0/0 6314 [8411] 33124 27 4 0 0 0 SELECT 27/0/1 246 [8412] 33125 71 331 46 0 0 0 gDON'T WRITE HDG EITHER JUMP IF A != 0 6/0/0 8176 [8413] 33126 86 787 2 0 0 0 SELECT SWITCH R 27/0/1 229 [8414] 33127 71 331 34 0 0 0 gDON'T OPEN A9 JUMP IF A != 0 6/1/0 5160 [8415] 33128 10 0 0 0 1200000 SELECT LITERAL 0/1/2 772 [8416] 33129 34 343 14 1 0 0 SET (N) IN B 4/0/0 7 [8417] 33130 1 999 7 0 0 0 ADD 25/1/1 4096 [8418] 33131 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 0 [8419] 33132 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [8420] 33133 123 160 0 2 0 gOPEN A9 O/P MT ENTER MASTER ROUTINE 0/0/3 0 [8421] 33134 62 0 0 0 0 SET EXCESS CONSTANTS 6/1/0 5162 [8422] 33135 10 0 0 0 6769596573 'PRINT' SELECT LITERAL 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 4 [8424] 33136 5 10 4 1 0 0 TRANSFER 6/0/0 5118 [8425] 33137 10 0 0 0 8000 SELECT LITERAL 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 7 [8427] 33138 5 10 6 2 0 0 TRANSFER 6/1/0 5164 [8428] 33139 155 0 0 0 0 SELECT PROGRAM SERIAL TO A 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 8 [8430] 33140 5 10 8 1 0 0 TRANSFER 6/0/0 5390 [8431] 33141 61 112 0 0 0 OBJECT PROG ID SELECT 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 11 [8433] 33142 5 10 10 2 0 0 TRANSFER 6/1/0 4896 [8434] 33143 544 2 1 0 0 SELECT 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 12 [8436] 33144 5 10 12 1 0 0 TRANSFER 26/0/0 4793 [8437] 33145 80 541 2 0 0 0 gWRITE A9 HEADING BLOCK ENTER SUBROUTINE 6/1/0 5166 [8438] 33146 90 0 0 6 0 PREPARE FOR 6 BLKS SET MODIFICATION REGISTER AT LITERAL 2/1/0 8180 [8439] 33147 C 0 0 0 300 Simulated modifier 26/0/0 606 [8440] 33148 80 340 2 0 0 0 gWRITE/PRINT 'PROGM' ENTER SUBROUTINE 6/0/0 6314 [8441] 33149 27 4 0 0 0 COMPILER? SELECT 27/0/1 261 [8442] 33150 71 331 53 0 0 0 gYES JUMP IF A != 0 0/1/0 40 [8443] 33151 40 A6 0 0 0 0 OPEN FILE 0/0/3 0 [8444] 0/1/2 5168 [8445] 6/1/0 5170 [8446] 1/1/1 45 [8447] 25/1/1 4096 [8448] 24/0/3 0 [8449] 23/0/2 40 [8450] 0/0/3 44 [8451] Source: RayS/Q1000326 24/1/0 273 [8452] 33152 76 331 56 0 0 0 JUMP unconditional 0/1/0 40 [8453] 33153 48 A6 0 0 0 3 BACK 0 I/PgO/P STEP BACK 0/0/3 0 [8454] 6/0/0 0 [8455] 33154 C 999 0 0 0 0 STEP BACK 4/1/0 5172 [8456] 18/1/1 4118 [8457] 6/1/0 0 [8458] 1/1/1 45 [8459] 25/1/1 4096 [8460] 24/0/3 0 [8461] 23/0/2 48 [8462] 0/1/1 40 [8463] 24/1/0 284 [8464] 33155 76 331 64 0 0 0 gDON'T WRITE 'INDEX' JUMP unconditional 24/0/2 630 [8465] 33156 52 9 4 0 0 0 EDIT FIRST HEADING EDIT 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/2 4 [8467] 33157 C 341 12 0 0 0 BLOCK 26/0/0 4293 [8468] 33158 80 514 2 0 0 0 OP ENTER SUBROUTINE 6/0/0 4870 [8469] 33159 543 20 0 0 0 'ppppp' SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 5 [8471] 33160 5 9 4 2 0 0 TRANSFER 6/1/0 4896 [8472] 33161 544 2 1 0 0 BEW SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 6 [8474] 33162 5 9 6 1 0 0 TRANSFER 26/0/0 4293 [8475] 33163 80 514 2 0 0 0 gDUMMY 'INDEX' DATA ENTER SUBROUTINE 24/0/2 638 [8476] 33164 52 9 4 0 0 0 PROG & SERIAL FOR PASS 3 EDIT 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/2 4 [8478] 33165 C 341 20 0 0 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 16 [8480] 33166 5 9 16 1 0 0 TRANSFER 26/0/0 4293 [8481] 33167 80 514 2 0 0 0 gSHORT RUBBISH BLOCK ENTER SUBROUTINE 26/0/0 4762 [8482] 33168 80 539 2 0 0 0 I/P ENTER SUBROUTINE 24/0/2 620 [8483] 33169 50 8 4 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/2 4 [8485] 33170 C 341 2 0 0 0 6/1/0 5254 [8486] 33171 66 4 1 0 0 PROCR OF ENTRY SELECT 26/0/0 4750 [8487] 33172 80 537 2 0 0 0 gCONVERT ENTER SUBROUTINE 2/0/0 5400 [8488] 33173 5 72 2 0 0 0 TRANSFER 24/0/2 620 [8489] 33174 52 8 2 0 0 0 EDIT 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/2 2 [8491] 33175 C 341 2 0 0 0 26/0/0 606 [8492] 33176 80 340 2 0 0 0 PRINT 'ENTRY' ENTER SUBROUTINE 24/0/2 646 [8493] 33177 52 9 4 0 0 0 EDIT SECOND BLOCK EDIT 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/2 4 [8495] 33178 C 341 28 0 0 0 26/0/0 4293 [8496] 33179 80 514 2 0 0 0 gO/P ENTER SUBROUTINE Start of procedure 332 at location 305 in chapter 4 [8497] [8497] 33200 PROCR 332 DEAL WITH FILE IDS [8497] 33201 NOTES RADIX B 0/0/2 5119 [8497] 33202 17 92 7 0 0 10 SPACE OCCUPIED BY CONVERT TABLES MULTIPLY LITERAL and ADD 10/0/0 6021 [8498] 1/1/1 204 [8499] 33203 101 204 1 1 0 FOR ALLOCATOR ADD LITERAL ADDRESS 2/0/0 5378 [8500] 33204 5 61 100 0 0 0 SP CHAP SPACE CTR TRANSFER 6/0/0 6053 [8501] 33205 0 91 1 0 0 0 2R SELECT 18/0/3 3 [8502] 33206 31 0 0 0 1- SHIFT (A) BY BITS 18/0/1 4127 [8503] 4/0/0 6043 [8504] 33207 1 92 29 0 0 0 EXTRA CHAP NO ADD 4/0/0 6043 [8505] 33208 1 92 29 0 0 0 ADD 3/0/0 5318 [8506] 33209 3 61 40 0 0 0 LAST ROUTE PARAMETER COPY 2/0/0 5317 [8507] 33210 5 61 39 0 0 0 PARA CTR TRANSFER 6/0/0 6053 [8508] 33211 0 91 1 0 0 0 2R SELECT 3/0/0 6054 [8509] 33212 3 91 2 0 0 0 COPY 2/0/0 6055 [8510] 33213 5 91 3 0 0 0 TRANSFER 26/1/2 6052 [8511] 33214 91 91 0 0 2 0 SCAN FILE LIST SET MODIFICATION REGISTER AT VARIABLE 26/1/1 5174 [8512] 33215 90 0 0 1 0 O/P M.R. SET MODIFICATION REGISTER AT LITERAL [8513] 33216 C 0 0 0 48 Limit 26/0/0 4762 [8513] 33217 80 539 2 0 0 0 I/P ENTER SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 6 [8515] 33218 8 6 1 0 0 SELECT 5/1/0 766 [8516] 33219 2 343 8 1 0 0 'CHAPS' SUBTRACT 27/0/0 467 [8517] 33220 70 335 2 0 0 0 gYES JUMP IF A == 0 24/0/2 670 [8518] 33221 50 8 4 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/2 4 [8520] 33222 C 341 52 0 0 0 UNPACK FILE IDENTITIES 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 46 [8522] 33223 8 46 1 0 0 SELECT 5/1/0 4828 [8523] 33224 2 542 28 1 0 0 '?????' SUBTRACT 3/1/0 776 [8524] 33225 3 344 2 1 0 0 WL COPY 27/0/0 410 [8525] 33226 70 334 2 0 0 0 gFILE IGNORED JUMP IF A == 0 6/0/0 5254 [8526] 33227 66 4 0 0 0 ROUTE TYPE SELECT 1/1/2 25 [8527] 33228 12 0 0 0 19 SUBTRACT LITERAL 27/0/0 364 [8528] 33229 70 332 54 0 0 0 gROUTE TYPE 19 JUMP IF A == 0 Source: KenK/Q1000327 6/0/0 5256 [8529] 33230 66 6 0 0 0 CHAP NO SELECT 26/0/0 4750 [8530] 33231 80 537 2 0 0 0 CONVERT TO BIN ENTER SUBROUTINE 5/0/0 6014 [8531] 33232 2 92 0 0 0 0 CHAPS +1 SUBTRACT 27/0/3 377 [8532] 33233 73 333 2 0 0 0 gOK JUMP IF A < 0 6/1/0 4828 [8533] 33234 542 28 1 0 0 ?????' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 46 [8535] 33235 5 8 46 1 0 0 TRANSFER 2/1/0 776 [8536] 33236 5 344 2 1 0 0 TRANSFER 6/0/0 6055 [8537] 33237 91 3 0 0 0 2(R+T)=LIST LENGTH SELECT 24/0/3 22 [8538] 33238 99 0 0 2 0 -R2 MODIFIER SUBTRACT MODIFICATION REGISTER FROM A 5/0/0 4 [8539] 18/0/1 5 [8540] 33239 30 0 0 0 5 FORM LENGTH OF REMAINDER OF LIST Q6-10 SHIFT (A) BY QUARTETS 4/0/0 760 [8541] 33240 1 343 2 0 0 0 ADDRESS 91:6 ADD 24/0/3 22 [8542] 33241 98 0 0 2 0 FORM ADDRESS OF FIRST TO OPY ADD MODIFICATION REGISTER TO A 4/0/0 4 [8543] 24/0/0 24 [8544] 33242 124 999 24 0 0 0 (R2) MODIFY ADDRESS OF NEXT 28/0/0 6056 [8545] 33243 128 91 4 0 0 0 COPY UP TO DELETE A FILE BULK COPY SHORT NUMERIC 1/1/2 2 [8546] 33244 12 0 0 0 2 SUBTRACT LITERAL 7/0/0 6053 [8547] 33245 4 91 1 0 0 0 REDUCE CTRS FOR DELETED FILE AUGMENT 7/0/0 6054 [8548] 33246 4 91 2 0 0 0 AUGMENT 7/0/0 6055 [8549] 33247 4 91 3 0 0 0 AUGMENT 24/0/3 22 [8550] 33248 124 999 22 0 3 0 MODIFY ADDRESS OF NEXT 7/0/0 5 [8551] 33249 107 5 0 0 0 REDUCE R2 END VALUE AUGMENT (N) BY (A) 1/1/1 1 [8552] 33250 11 0 0 0 1 ADD LITERAL 7/0/0 5317 [8553] 33251 4 61 39 0 0 0 (REDUCE BY 1) AUGMENT 7/0/0 5318 [8554] 33252 4 61 40 0 0 0 AUGMENT 24/1/0 410 [8555] 33253 76 334 2 0 0 0 gFILE IGNORED JUMP unconditional 6/0/0 5256 [8556] 33254 66 6 0 0 0 CHAPTER PAIR;RT19 SELECT 18/0/1 2 [8557] 33255 30 0 0 0 2 Q2->Q4 SHIFT (A) BY QUARTETS 1/0/1 8 [8558] 33256 35 0 0 0 1000 PREPARE FOR DIGIT COLLATION 24/0/1 6055 [8559] 33257 124 91 3 0 1 0 MODIFY ADDRESS OF NEXT 14/0/0 6056 [8560] 33258 37 91 4 0 0 0 STORE TX AREA CHAP WITH GP DETAILS REPLACE SELECTED BITS 6/0/0 5260 [8561] 33259 66 10 0 0 0 SPECIAL LENGTH SELECT 26/0/0 4750 [8562] 33260 80 537 2 0 0 0 gBIN ENTER SUBROUTINE 1/0/1 7 [8563] 33261 35 0 0 0 111 PREPARE FOR DIGIT COLLATION 24/0/1 6055 [8564] 33262 124 91 3 0 1 0 MODIFY ADDRESS OF NEXT 14/0/0 6056 [8565] 33263 37 91 4 0 0 0 STORE HALF-LENGTH AS GP LENGTH REPLACE SELECTED BITS 6/0/0 5258 [8566] 33264 66 8 0 0 0 GP HALF-LENGTH SELECT 26/0/0 4750 [8567] 33265 80 537 2 0 0 0 gBIN ENTER SUBROUTINE 24/1/0 384 [8568] 33266 76 333 9 0 0 0 JUMP unconditional Start of procedure 333 at location 377 in chapter 4 [8569] [8569] 33300 PROCR 333 FILE IDS [8569] 33301 NOTES RADIX B 6/0/0 5254 [8569] 33302 66 4 0 0 0 ROUTE TYPE SELECT 1/1/2 3 [8570] 33303 12 0 0 0 3 SUBTRACT LITERAL 27/0/0 387 [8571] 33304 70 333 11 0 0 0 JUMP IF A == 0 1/1/2 1 [8572] 33305 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 410 [8573] 33306 71 334 2 0 0 0 gNOT 4 JUMP IF A != 0 6/0/0 5258 [8574] 33307 0 66 8 0 0 0 ANNEX LENGTH SELECT 26/0/0 4750 [8575] 33308 80 537 2 0 0 0 gCONVERT ENTER SUBROUTINE 18/1/3 2 [8576] 33309 33 0 0 0 6- DIVIDE BY 64 SHIFT (AB) BY BITS 18/1/1 4126 [8577] 2/0/0 5286 [8578] 33310 5 61 8 0 0 0 MULTIPLES FOR Q10 FN WORD TRANSFER 6/0/0 5317 [8579] 33311 61 39 0 0 0 PARA CTR SELECT 1/1/1 1 [8580] 33312 11 0 0 0 1 ADD LITERAL 24/0/1 6055 [8581] 33313 124 91 3 0 1 0 MODIFY ADDRESS OF NEXT 2/0/0 6057 [8582] 33314 5 91 5 0 0 0 TX AREA ENTRY TRANSFER 1/0/1 8 [8583] 33315 35 0 0 0 1000 PREPARE FOR DIGIT COLLATION 6/0/0 5258 [8584] 33316 66 8 0 0 0 HALF LENGTH SELECT 26/0/0 4750 [8585] 33317 80 537 2 0 0 0 gBIN ENTER SUBROUTINE 1/0/1 7 [8586] 33318 35 0 0 0 111 PREPARE FOR DIGIT COLLATION 1/1/1 2 [8587] 33319 11 0 0 0 2 ADD LITERAL 14/1/2 6056 [8588] 33320 37 91 4 1 2 0 REPLACE SELECTED BITS 1/0/1 16 [8589] 33321 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION Source: KenK/Q1000328 6/0/0 6055 [8590] 33322 91 3 0 0 0 2(R+T) SELECT 5/0/0 6054 [8591] 33323 2 91 2 0 0 0 SUBTRACT 18/0/1 4 [8592] 33324 30 0 0 0 4 CTR WITHIN GPTXAREAS SHIFT (A) BY QUARTETS 14/1/2 6056 [8593] 33325 37 91 4 1 2 0 REPLACE SELECTED BITS 1/1/3 0 [8594] 33326 10 0 0 0 0 SELECT LITERAL 24/0/1 6055 [8595] 33327 124 91 3 0 1 0 MODIFY ADDRESS OF NEXT 5/0/0 6056 [8596] 33328 2 91 4 0 0 0 SUBTRACT 24/0/1 6055 [8597] 33329 124 91 3 0 1 0 MODIFY ADDRESS OF NEXT 2/0/0 6056 [8598] 33330 5 91 4 0 0 0 SET GP TX AREA SIGN B/T TRANSFER 1/1/3 2 [8599] 33331 10 0 0 0 2 SELECT LITERAL 7/0/0 6055 [8600] 33332 4 91 3 0 0 0 STEP(ROUTES +TX AREAS) CTR AUGMENT 7/0/0 5317 [8601] 33333 4 61 39 0 0 0 STEP PARA CTR AUGMENT Start of procedure 334 at location 410 in chapter 4 [8602] [8602] 33400 PROCR 334 FILE IDS [8602] 33401 NOTES RADIX 24/0/2 670 [8602] 33402 52 8 2 0 0 0 EDIT 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/2 2 [8604] 33403 C 341 52 0 0 0 26/0/0 606 [8605] 33404 80 340 2 0 0 0 PRINT FILES ENTER SUBROUTINE 6/1/0 776 [8606] 33405 0 344 2 1 0 0 SELECT 27/0/0 321 [8607] 33406 70 332 17 0 0 0 gFILE IGNORED JUMP IF A == 0 25/0/2 2 [8608] 33407 94 0 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 418 [8609] 26/1/3 5176 [8610] 33408 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [8611] 33409 C 0 0 0 6 Limit 6/1/3 5254 [8611] 33410 66 4 1 3 0 SELECT 26/0/0 4750 [8612] 33411 80 537 2 0 0 0 CONVERT ENTER SUBROUTINE 2/1/3 5254 [8613] 33412 5 66 4 1 3 0 TRANSFER 25/0/3 2 [8614] 33413 94 334 10 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 419 [8615] s 1/0/1 8 [8616] 33414 35 0 0 0 1000 PREPARE FOR DIGIT COLLATION 6/1/0 5256 [8617] 33415 66 6 1 0 0 SELECT 18/0/1 3 [8618] 33416 30 0 0 0 3 SHIFT (A) BY QUARTETS 14/1/2 6054 [8619] 33417 37 91 2 1 2 0 CHAP NO (BIN) REPLACE SELECTED BITS 6/0/0 5254 [8620] 33418 66 4 0 0 0 SELECT 1/1/2 19 [8621] 33419 12 0 0 0 13 SUBTRACT LITERAL 27/0/1 438 [8622] 33420 71 334 28 0 0 0 gNOT RT 19 JUMP IF A != 0 6/0/0 5256 [8623] 33421 66 6 0 0 0 PAIR OF CHAPS SELECT 26/0/0 4756 [8624] 33422 80 538 2 0 0 0 gDEC ENTER SUBROUTINE 0/0/3 0 [8625] 33423 62 0 0 0 0 SET EXCESS CONSTANTS 1/0/1 8 [8626] 33424 35 0 0 0 1000 PREPARE FOR DIGIT COLLATION 18/0/1 3 [8627] 33425 30 0 0 0 3 SHIFT (A) BY QUARTETS 14/1/2 6054 [8628] 33426 37 91 2 1 2 0 STORE Q1 OF DECIMAL PAIR REPLACE SELECTED BITS 24/1/0 443 [8629] 33427 76 334 33 0 0 0 JUMP unconditional 6/1/0 5258 [8630] 33428 66 8 1 0 0 ANNEX (BIN) IN WORDS SELECT 1/1/1 2 [8631] 33429 11 0 0 0 2 ADD LITERAL 7/1/2 6054 [8632] 33430 4 91 2 1 2 0 HALF LENGTH AUGMENT 3/1/0 5258 [8633] 33431 3 66 8 1 0 0 SET ANNEX LENGTH COPY 7/1/0 5258 [8634] 33432 4 66 8 1 0 0 AUGMENT 6/1/0 5254 [8635] 33433 0 66 4 1 0 0 ROUTE TYPE SELECT 18/0/1 1 [8636] 33434 30 0 0 0 1 SHIFT (A) BY QUARTETS 2/1/0 5254 [8637] 33435 5 66 4 1 0 0 TRANSFER 6/1/0 5252 [8638] 33436 0 66 2 1 0 0 SELECT 18/0/1 4122 [8639] 33437 30 0 0 0 6- RT. ALIGN THE FILE I.D. SHIFT (A) BY QUARTETS 2/1/0 5252 [8640] 33438 5 66 2 1 0 0 TRANSFER 0/1/0 40 [8641] 33439 52 9 4 0 1 0 EDIT 0/0/3 0 [8642] 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 4 [8644] 24/0/3 22 [8645] 4/0/0 2 [8646] 2/0/0 40 [8647] 0/1/1 40 [8648] 24/0/2 682 [8649] 24/1/2 40 [8650] 28/1/2 0 [8651] 33440 C 341 64 0 0 0 25/0/1 12 [8652] 33441 94 332 17 0 1 12 O/P CTR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 321 [8653] s 6/1/0 4896 [8654] 33442 544 2 1 0 0 B.E.WORD SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 52 [8656] 33443 5 9 52 1 0 0 TRANSFER 26/0/0 4293 [8657] 33444 80 514 2 0 0 0 ENTER SUBROUTINE Source: ChuckK/Q1000329 24/1/0 320 [8658] 33445 76 332 15 0 0 0 JUMP unconditional Start of procedure 335 at location 467 in chapter 4 [8659] [8659] 33500 PROCR 335 O/P REMAINING FILE IDS, CHAP START POINTS [8659] 33501 NOTES RADIX B PREP 24/0/3 22 [8659] 33502 96 0 0 1 0 SELECT MODIFIER 6/0/0 2 [8660] 27/0/0 474 [8661] 33503 70 335 7 0 0 0 JUMP IF A == 0 6/1/0 4896 [8662] 33504 544 2 1 0 0 BE WORD SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/1 4 [8664] 33505 5 9 4 1 1 0 TRANSFER 26/0/0 4293 [8665] 33506 80 514 2 0 0 0 O/P ENTER SUBROUTINE 24/0/2 694 [8666] 33507 50 8 4 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/2 4 [8668] 33508 C 342 2 0 0 0 UNPACK 'CHAPS' 6/1/0 5178 [8669] 33509 54 70 0 1 0 100 CLEAR FOR SECTION DETAILS BULK CLEAR 28/1/1 5594 [8670] 26/0/0 4221 [8671] 33510 80 512 2 0 0 0 >BLANK LINE ENTER SUBROUTINE 24/0/2 694 [8672] 33511 52 8 2 0 0 0 EDIT 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/2 2 [8674] 33512 C 342 2 0 0 0 26/0/0 606 [8675] 33513 80 340 2 0 0 0 PRINT 'CHAPS' ENTER SUBROUTINE 26/0/0 4762 [8676] 33514 80 539 2 0 0 0 >READ MT ENTER SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 6 [8678] 33515 8 6 1 0 0 SELECT 5/1/0 5180 [8679] 33516 12 0 0 0 7273666955 'STORE' SUBTRACT LITERAL 27/0/1 521 [8680] 33517 71 337 2 0 0 0 >NO JUMP IF A != 0 24/0/2 700 [8681] 33518 50 8 8 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/2 8 [8683] 33519 C 342 8 0 0 0 66/6 ET SEQ 6/1/0 5182 [8684] 33520 10 0 0 0 7273666955 'STORE' SELECT LITERAL 2/1/0 5252 [8685] 33521 5 66 2 1 0 0 TRANSFER 2/1/0 5254 [8686] 33522 5 66 4 1 0 0 TRANSFER 24/0/2 696 [8687] 33523 52 8 4 0 0 0 EDIT 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/2 4 [8689] 33524 C 342 4 0 0 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 8 [8691] 33525 5 8 8 1 0 0 CLEAR TRANSFER Start of procedure 336 at location 500 in chapter 4 [8692] [8692] 33600 PROCR 336 DEAL WITH 'STORE' DATA 26/1/1 6042 [8692] 33602 91 92 28 0 1 0 CHAPS INITIALLY SET MODIFICATION REGISTER AT VARIABLE 24/0/3 22 [8693] 33603 92 0 0 1 0 (CLEAR MODIFIER) SET MODIFIER AT VARIABLE 2/0/0 2 [8694] 6/0/1 5256 [8695] 33604 66 6 0 1 0 SELECT 1/1/2 1 [8696] 33605 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 512 [8697] 33606 70 336 13 0 0 0 >OP,FIRST STORE JUMP IF A == 0 1/1/2 1 [8698] 33607 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 516 [8699] 33608 71 336 16 0 0 0 >REJECT JUMP IF A != 0 1/1/3 32 [8700] 33609 10 0 0 0 20 BIT 6 SELECT LITERAL 18/1/1 4118 [8701] 33610 32 0 0 0 10- SHIFT (AB) BY QUARTETS 1/1/3 32 [8702] 33611 10 0 0 0 20 SELECT LITERAL 14/0/1 6024 [8703] 33612 37 92 10 0 1 0 SET IND FOR SECOND STORE REPLACE SELECTED BITS 25/0/1 1 [8704] 33613 94 336 4 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 503 [8705] s 6/0/1 5257 [8706] 33614 66 7 0 1 0 SELECT 27/0/0 519 [8707] 33615 70 336 18 0 0 0 >OK JUMP IF A == 0 6/1/0 4828 [8708] 33616 542 28 1 0 0 '?????' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 46 [8710] 33617 5 8 46 1 0 0 TRANSFER 26/0/0 606 [8711] 33618 80 340 2 0 0 0 >PRINT STORE ENTER SUBROUTINE 26/0/0 4762 [8712] 33619 80 539 2 0 0 0 >READ ENTER SUBROUTINE Start of procedure 337 at location 521 in chapter 4 [8713] [8713] 33700 PROCR 337 PRINT CHAPS I/P & TEST S/D [8713] 33701 NOTES RADIX B PREP STAGE 26/0/0 4660 [8713] 33702 80 530 2 0 0 0 >PRINT'INDEX'EX SEC 5 ENTER SUBROUTINE 26/0/0 4660 [8714] 33703 80 530 2 0 0 0 >PRINT BLANK LINE ENTER SUBROUTINE 24/1/0 526 [8715] 33704 76 337 7 0 0 0 JUMP unconditional 26/0/0 606 [8716] 33705 80 340 2 0 0 0 PRINT IGNORED SECTION ENTER SUBROUTINE 26/0/0 4762 [8717] 33706 80 539 2 0 0 0 >READ ENTER SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 12 [8719] 33707 8 12 1 0 0 SELECT 5/1/0 4808 [8720] 33708 2 542 8 1 0 0 PROCR SUBTRACT 27/0/0 782 [8721] 33709 70 346 2 0 0 0 JUMP IF A == 0 4/1/0 4808 [8722] 33710 1 542 8 1 0 0 ADD Source: ChuckK/Q1000330 5/1/0 4804 [8723] 33711 2 542 4 1 0 0 TABLE SUBTRACT 27/0/0 782 [8724] 33712 70 346 2 0 0 0 JUMP IF A == 0 4/1/0 4804 [8725] 33713 1 542 4 1 0 0 ADD 5/1/0 4806 [8726] 33714 2 542 6 1 0 0 CONST SUBTRACT 27/0/0 782 [8727] 33715 70 346 2 0 0 0 JUMP IF A == 0 Start of procedure 338 at location 536 in chapter 4 [8728] [8728] 33800 PROCR 338 SECTION DETAILS [8728] 33801 NOTES RADIX B PREP STAGE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 14 [8729] 33802 8 14 1 0 0 AMEND IND SELECT 18/0/1 4 [8730] 33803 30 0 0 0 4 SHIFT (A) BY QUARTETS 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 2 [8732] 33804 5 8 2 1 0 0 TRANSFER 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 14 [8734] 33805 5 8 14 1 0 0 TRANSFER 24/0/2 658 [8735] 33806 50 8 2 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/2 2 [8737] 33807 C 341 40 0 0 0 24/0/2 658 [8738] 33808 52 8 2 0 0 0 EDIT 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/2 2 [8740] 33809 C 341 40 0 0 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 46 [8742] 33810 8 46 1 0 0 SELECT 5/1/0 4828 [8743] 33811 2 542 28 1 0 0 ????? SUBTRACT 27/0/0 524 [8744] 33812 70 337 5 0 0 0 >IGNORE THIS SECTION JUMP IF A == 0 26/0/0 606 [8745] 33813 80 340 2 0 0 0 PRINT SECTIONS ENTER SUBROUTINE 6/1/0 5254 [8746] 33814 66 4 1 0 0 SELECT 26/0/0 4750 [8747] 33815 80 537 2 0 0 0 CONVERT ENTER SUBROUTINE 2/1/0 5254 [8748] 33816 5 66 4 1 0 0 TRANSFER 6/1/0 5258 [8749] 33817 66 8 1 0 0 SELECT 26/0/0 4750 [8750] 33818 80 537 2 0 0 0 >CONVERT ENTER SUBROUTINE 2/1/0 5258 [8751] 33819 5 66 8 1 0 0 CHAP OF SECTION TRANSFER 6/1/0 5252 [8752] 33820 66 2 1 0 0 SELECT 26/0/0 4750 [8753] 33821 80 537 2 0 0 0 CONVERT ENTER SUBROUTINE 3/1/0 5252 [8754] 33822 3 66 2 1 0 0 SECT NO COPY 24/0/3 22 [8755] 33823 92 0 0 1 0 SET MODIFIER AT VARIABLE 2/0/0 2 [8756] 6/1/0 5256 [8757] 33824 66 6 1 0 0 T.A. IND SELECT 27/0/0 591 [8758] 33825 70 339 16 0 0 0 -NOT T.A. JUMP IF A == 0 26/1/2 5184 [8759] 33826 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [8760] 33827 C 0 0 0 4 Limit 6/0/2 6048 [8760] 33828 92 34 0 2 0 CODER'S TRANSIT AREAS ONLY FOR GP O/P SELECT 5/1/0 5252 [8761] 33829 2 66 2 1 0 0 SECTION NUMBER SUBTRACT 27/0/0 591 [8762] 33830 70 339 16 0 0 0 >DON'T COUNT SECTION AS TRANSIT AREA JUMP IF A == 0 25/0/2 1 [8763] 33831 94 338 28 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 568 [8764] s 1/1/3 2 [8765] 33832 10 0 0 0 2 SELECT LITERAL 7/0/0 6055 [8766] 33833 4 91 3 0 0 0 TX AREA CTR AUGMENT 7/1/0 5254 [8767] 33834 4 66 4 1 0 0 INCREASE ANNEX LENGTH AUGMENT 7/0/0 5317 [8768] 33835 4 61 39 0 0 0 PARA COUNTER AUGMENT Start of procedure 339 at location 577 in chapter 4 [8769] [8769] 33900 PROCR 339 SECT DETAILS [8769] 33901 NOTES RADIX B PREP STAGE 6/1/0 5254 [8769] 33902 0 66 4 1 0 0 LENGTH IN WORDS SELECT 18/0/3 5 [8770] 33903 31 0 0 0 5 IN LOCNS IN Q2 SHIFT (A) BY BITS 1/0/1 1 [8771] 33904 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 24/0/0 5258 [8772] 33905 124 66 8 0 0 0 UNCORRECTED CHAPTER MODIFY ADDRESS OF NEXT 15/0/0 6023 [8773] 33906 36 92 9 0 0 0 CORRECTED CHAP OF TRANSIT AREA COLLATE AND ADD 18/0/1 2 [8774] 33907 30 0 0 0 2 LENGTH Q7-10,CHAP Q6 SHIFT (A) BY QUARTETS 4/0/0 5317 [8775] 33908 1 61 39 0 0 0 PARA CTR ADD 1/1/2 1 [8776] 33909 12 0 0 0 1 SUBTRACT LITERAL 18/0/1 3 [8777] 33910 30 0 0 0 3 PARAMETER IN Q4-5 SHIFT (A) BY QUARTETS 4/1/0 5252 [8778] 33911 1 66 2 1 0 0 SECTION NUMBER Q1-3 ADD 24/0/1 6055 [8779] 33912 124 91 3 0 1 0 2(ROUTES+TX AREAS) MODIFY ADDRESS OF NEXT 2/1/0 6054 [8780] 33913 5 91 2 1 0 0 TRANSFER 6/0/0 4979 [8781] 33914 545 58 0 0 0 BIT 19 AND 20 BIT 20 FOR T.A. IND SELECT 24/1/0 592 [8782] 33915 76 339 17 0 0 0 JUMP unconditional Source: RayS/Q1000331 6/0/0 4930 [8783] 33916 545 9 0 0 0 BIT 19 SELECT 0/0/2 5120 [8784] 33917 17 66 4 1 0 32 LENGTH X 2 AND SHIFT Q MULTIPLY LITERAL and ADD 10/1/0 5254 [8785] 4/1/0 5258 [8786] 33918 1 66 8 1 0 0 UNCORR CHAP NO ADD 2/0/1 5594 [8787] 33919 5 70 0 0 1 0 SECT DETS TRANSFER 6/0/0 5258 [8788] 33920 92 66 8 0 2 0 UNCORR CHAP SET MODIFIER AT VARIABLE 24/0/3 22 [8789] 2/0/0 4 [8790] 6/0/2 5332 [8791] 33921 0 61 54 0 2 0 SPACE CTR SELECT 24/0/0 5252 [8792] 33922 124 66 2 0 0 0 SEC NO MODIFY ADDRESS OF NEXT 2/0/0 5450 [8793] 33923 5 94 0 0 0 0 SET REL START TRANSFER 6/0/0 5254 [8794] 33924 0 66 4 0 0 0 SELECT 4/0/0 5254 [8795] 33925 1 66 4 0 0 0 LENGTH (LOCNS) ADD 7/0/2 5332 [8796] 33926 4 61 54 0 2 0 AUGMENT 24/1/0 525 [8797] 33927 76 337 6 0 0 0 gNEXT SECTION JUMP unconditional Start of procedure 340 at location 606 in chapter 4 [8798] [8798] 34000 PROCR 340 0/0/0 0 [8798] 34002 81 340 2 0 0 0 START OF SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 24/0/2 0 [8800] 34003 55 8 0 1 0 52 BULK COPY 18/1/0 4123 [8801] 34004 C 7 0 1 0 0 1/1/3 52 [8802] 18/1/1 5 [8803] 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/1/1 0 [8805] 1/0/1 15 [8806] 34005 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 24/1/2 17 Extra code needed to address transit area no 2, section 7 14/0/0 2 [8808] 34006 37 7 2 0 0 0 REPLACE SELECTED BITS 26/0/0 4145 [8809] 34007 80 511 2 0 0 0 PRINT ENTER SUBROUTINE 26/0/1 606 [8810] 34008 82 340 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 31/1/3 8191 [8811] Start of procedure 341 at location 620 in chapter 4 [8812] [8812] 34100 TABLE 341 341 1 0/0/1 5250 [8812] 34102 66 0 0 0 2 0 5 0 0 0 0 0 0 AMEND IND 3/0/0 5 [8813] 0/0/1 5252 [8814] 34104 66 2 0 0 2 0 5 0 11 0 0 0 0 PROGM/ENTRY 3/0/0 181 [8815] 0/0/1 5254 [8816] 34106 66 4 0 0 1 0 5 5 1 2 0 0 0 SUITE/PROCR 2/0/1 1301 [8817] 0/0/1 5256 [8818] 34108 66 6 0 0 2 0 5 0 2 0 0 0 0 JOB/PRIORITY 3/0/0 37 [8819] 0/0/1 5258 [8820] 34110 66 8 0 0 2 0 5 0 1 0 0 0 1 SERIAL/CODER 19/0/0 21 [8821] 0/0/1 770 [8822] 34112 343 12 0 0 2 0 5 0 0 0 0 0 0 ALIGN MARKS 3/0/0 5 [8823] 0/0/1 768 [8824] 34114 343 10 0 0 2 0 5 0 0 0 0 0 0 'INDEX' 3/0/0 5 [8825] 0/0/1 4870 [8826] 34116 543 20 0 0 0 0 5 0 0 0 0 0 0 0/0/0 5 [8827] 0/0/1 773 [8828] 34118 343 15 0 0 0 0 1 3 4 0 0 0 0 '4' 0/0/0 833 [8829] a 0/0/1 5254 [8830] 34120 66 4 0 0 1 0 3 7 0 0 0 0 0 PROG SUITE 2/0/0 1795 [8831] 0/0/1 5256 [8832] 34122 66 6 0 0 2 0 2 3 0 0 0 0 0 PROG ID 3/0/0 770 [8833] 0/0/1 5258 [8834] 34124 66 8 0 0 2 0 5 0 0 0 0 0 0 PROG SERIAL 3/0/0 5 [8835] 0/0/1 4896 [8836] 34126 544 2 0 0 2 0 5 0 0 0 0 0 1 BEW 19/0/0 5 [8837] 0/0/1 6019 [8838] 34128 92 5 0 0 0 0 5 0 0 4 0 0 0 FP IND 0/0/2 5 [8839] 0/0/1 6018 [8840] 34130 92 4 0 0 0 0 5 0 0 4 0 0 0 MG 0/0/2 5 [8841] 0/0/1 5256 [8842] 34132 66 6 0 0 2 0 5 0 0 0 0 0 0 PRIORITY 3/0/0 5 [8843] 0/0/1 6014 [8844] 34134 92 0 0 0 0 0 5 0 0 4 0 0 0 CHAPS+1 0/0/2 5 [8845] 0/0/1 6043 [8846] 34136 92 29 0 0 0 0 5 0 0 4 0 0 0 CHAPS INITIALLY 0/0/2 5 [8847] 0/0/1 4896 [8848] 34138 544 2 0 0 2 0 5 0 0 0 0 0 1 BEW 19/0/0 5 [8849] 0/0/1 5260 [8850] 34140 66 10 0 0 2 0 5 0 0 0 0 0 0 AMEND IND 3/0/0 5 [8851] 0/0/1 5250 [8852] 34142 66 0 0 0 2 0 5 0 5 0 0 0 0 SERIAL/CODER 3/0/0 85 [8853] 0/0/1 5252 [8854] 34144 66 2 0 0 1 0 5 5 4 4 0 0 0 SEC NO 2/0/2 1349 [8855] 0/0/1 5254 [8856] 34146 66 4 0 0 1 0 5 5 3 4 0 0 0 LENGTH 2/0/2 1333 [8857] 0/0/1 5256 [8858] 34148 66 6 0 0 1 0 5 5 0 4 0 0 0 TX AREA IND 2/0/2 1285 [8859] 0/0/1 5258 [8860] 34150 66 8 0 0 1 0 5 5 3 4 0 0 1 CHAP 18/0/2 1333 [8861] 0/0/1 5250 [8862] 34152 66 0 0 0 2 0 5 0 0 0 0 0 0 AMEND IND == FILES 3/0/0 5 [8863] 0/0/1 5252 [8864] 34154 66 2 0 0 2 0 5 0 15 0 0 0 0 FILE ID 3/0/0 245 [8865] 0/0/1 5254 [8866] 34156 66 4 0 0 1 0 5 5 1 4 0 0 0 ROUTE TYPE 2/0/2 1301 [8867] 0/0/1 5256 [8868] 34158 66 6 0 0 1 0 5 5 2 4 0 0 0 RETN PERIOD 2/0/2 1317 [8869] 0/0/1 5258 [8870] 34160 66 8 0 0 1 0 5 5 2 4 0 0 0 MBS 2/0/2 1317 [8871] 0/0/1 5260 [8872] 34162 66 10 0 0 1 0 5 5 0 4 0 0 1 ALT ROUTE 18/0/2 1285 [8873] 0/0/1 5252 [8874] 34164 66 2 0 0 2 0 5 0 0 0 0 0 0 FILE ID == FILES 3/0/0 5 [8875] 0/0/1 5254 [8876] 34166 66 4 0 0 1 0 5 5 0 4 0 0 0 ROUTE TYPE 2/0/2 1285 [8877] 0/0/1 5256 [8878] 34168 66 6 0 0 1 0 5 5 0 4 0 0 0 RETN PERIOD 2/0/2 1285 [8879] 0/0/1 5258 [8880] 34170 66 8 0 0 1 0 5 5 0 4 0 0 0 MBS 2/0/2 1285 [8881] 0/0/1 5278 [8882] 34172 61 0 0 0 0 0 5 0 0 4 0 0 0 START LOCN 0/0/2 5 [8883] Source: RayS/Q1000332 0/0/1 5260 [8884] 34174 66 10 0 0 1 0 5 5 0 4 0 0 1 ALT ROUTE 18/0/2 1285 [8885] Start of procedure 342 at location 694 in chapter 4 [8886] [8886] 34200 TABLE 342 342 1 0/0/1 5250 [8886] 34202 66 0 0 0 2 0 5 0 0 0 0 0 0 AMEND IND 3/0/0 5 [8887] 0/0/1 5252 [8888] 34204 66 2 0 0 2 0 5 0 1 0 0 0 0 'CHAPS' 3/0/0 21 [8889] 0/0/1 5254 [8890] 34206 66 4 0 0 0 0 5 0 0 4 0 0 0 NUMBER OF CHAPS 0/0/2 5 [8891] 0/0/1 5256 [8892] 34208 66 6 0 0 0 0 5 0 1 4 0 0 0 1 0/0/2 21 [8893] 0/0/1 5257 [8894] 34210 66 7 0 0 0 0 5 0 1 5 0 0 0 2 0/0/2 4117 [8895] 0/0/1 5258 [8896] 34212 66 8 0 0 0 0 5 0 1 5 0 0 0 3 0/0/2 4117 [8897] 0/0/1 5259 [8898] 34214 66 9 0 0 0 0 5 0 1 5 0 0 0 4 0/0/2 4117 [8899] 0/0/1 5260 [8900] 34216 66 10 0 0 0 0 5 0 1 5 0 0 0 5 0/0/2 4117 [8901] 0/0/1 5261 [8902] 34218 66 11 0 0 0 0 5 0 1 5 0 0 0 6 0/0/2 4117 [8903] 0/0/1 5262 [8904] 34220 66 12 0 0 0 0 5 0 1 5 0 0 0 7 0/0/2 4117 [8905] 0/0/1 5263 [8906] 34222 66 13 0 0 0 0 5 0 1 5 0 0 0 8 0/0/2 4117 [8907] 0/0/1 5264 [8908] 34224 66 14 0 0 0 0 5 0 1 5 0 0 0 9 0/0/2 4117 [8909] 0/0/1 5265 [8910] 34226 66 15 0 0 0 0 5 0 1 5 0 0 0 10 0/0/2 4117 [8911] 0/0/1 5266 [8912] 34228 66 16 0 0 0 0 5 0 1 5 0 0 0 11 0/0/2 4117 [8913] 0/0/1 5267 [8914] 34230 66 17 0 0 0 0 5 0 1 5 0 0 0 12 0/0/2 4117 [8915] 0/0/1 5268 [8916] 34232 66 18 0 0 0 0 5 0 1 5 0 0 0 13 0/0/2 4117 [8917] 0/0/1 5269 [8918] 34234 66 19 0 0 0 0 5 0 1 5 0 0 1 14-TH START 16/0/2 4117 [8919] 0/0/1 768 [8920] 34236 343 10 0 0 2 0 5 0 6 0 0 0 0 'INDEX' 3/0/0 101 [8921] 0/0/1 6043 [8922] 34238 92 29 0 0 0 0 1 4 4 0 0 0 0 CHAPS INITIALLY 0/0/0 1089 [8923] 0/0/1 6024 [8924] 34240 92 10 0 0 0 0 1 4 5 1 0 0 0 CORRECTED CHAPTER NUMBERS 0/0/0 5201 [8925] 0/0/1 6025 [8926] 34242 92 11 0 0 0 0 1 4 5 1 0 0 0 0/0/0 5201 [8927] 0/0/1 6026 [8928] 34244 92 12 0 0 0 0 1 4 5 1 0 0 0 0/0/0 5201 [8929] 0/0/1 6027 [8930] 34246 92 13 0 0 0 0 1 4 5 1 0 0 0 0/0/0 5201 [8931] 0/0/1 6028 [8932] 34248 92 14 0 0 0 0 1 4 5 1 0 0 0 0/0/0 5201 [8933] 0/0/1 6029 [8934] 34250 92 15 0 0 0 0 1 4 5 1 0 0 0 0/0/0 5201 [8935] 0/0/1 6030 [8936] 34252 92 16 0 0 0 0 1 4 5 1 0 0 0 0/0/0 5201 [8937] 0/0/1 6031 [8938] 34254 92 17 0 0 0 0 1 4 5 1 0 0 0 0/0/0 5201 [8939] 0/0/1 6032 [8940] 34256 92 18 0 0 0 0 1 4 5 1 0 0 0 0/0/0 5201 [8941] 0/0/1 6033 [8942] 34258 92 19 0 0 0 0 1 4 5 1 0 0 0 0/0/0 5201 [8943] 0/0/1 6034 [8944] 34260 92 20 0 0 0 0 1 4 5 1 0 0 0 0/0/0 5201 [8945] 0/0/1 6035 [8946] 34262 92 21 0 0 0 0 1 4 5 1 0 0 0 0/0/0 5201 [8947] 0/0/1 6036 [8948] 34264 92 22 0 0 0 0 1 4 5 1 0 0 0 0/0/0 5201 [8949] 0/0/1 6037 [8950] 34266 92 23 0 0 0 0 1 4 5 1 0 0 1 LAST ENTRY 16/0/0 5201 [8951] Start of procedure 343 at location 760 in chapter 4 [8952] [8952] 34300 CONST 343 1 FOR PASS 2 PREP STAGE 0/0/1 6058 [8952] 34302 (R)91:6; 037AA +00000 0/0/0 0 [8953] 6/0/2 5988 [8954] 34304 (A)PROGM; 65764 +67696 6/0/3 5782 [8955] 3/0/3 2424 [8956] 34306 ENTRY; 36978 +55657 5/0/2 5719 [8957] 1/0/3 1906 [8958] 34308 CHAPS; 16772 +53585 5/0/1 5509 [8959] 4/0/2 5495 [8960] 34310 INDEX; 45577 +59655 5/1/0 5717 [8961] 15/0/3 3951 [8962] 34312 (D)6p6p6p6p6p; F6F6F +6F6F6 6/1/3 5878 [8963] 0/1/0 0 [8964] 34314 0514908000; 08000 FILE A9 08000 +05149 0/0/2 4425 [8965] Query: this is a hand written extra entry 0/0/0 0 [8966] 34316 (A) 00000 +00000 0/0/0 0 [8967] Start of procedure 344 at location 776 in chapter 4 [8968] [8968] 34400 PROCR 344 DUMMIES FOR SEC 61 DESCRIPTION [8968] 34401 NOTES 6/0/0 5278 [8968] 34402 61 0 0 0 0 ACTION WL/ENTRY POINT SELECT 6/0/0 5279 [8969] 34403 61 1 0 0 0 NON-ARITH IND SELECT Start of procedure 345 at location 778 in chapter 4 [8970] [8970] 34500 PROCR 345 0/0/0 0 [8970] 34502 81 345 2 0 0 0 START OF SUBROUTINE 6/0/0 778 [8971] 34503 0 345 2 0 0 0 SELECT 2/0/0 4111 [8972] 34504 5 509 2 0 0 0 TRANSFER 24/1/0 4120 [8973] 34505 76 509 8 0 0 0 JUMP unconditional Start of procedure 346 at location 782 in chapter 4 [8974] [8974] 34600 PROCR 346 FORM PARA CTR ETC [8974] 34601 NOTES RADIX B PREP STAGE Source: KenK/Q1000333 26/0/0 778 [8974] 34602 80 345 2 0 0 0 ENTER SUBROUTINE 26/0/0 1021 [8975] 34603 80 363 2 0 0 0 gEDIT FIRST DIRECTIVE ENTER SUBROUTINE 1/1/3 0 [8976] 34604 10 0 0 0 0 SELECT LITERAL 2/0/0 5020 [8977] 34605 5 545 99 0 0 0 TRANSFER 6/0/0 5317 [8978] 34606 61 39 0 0 0 SELECT 1/1/1 1 [8979] 34607 11 0 0 0 1 FORM ADD LITERAL 3/0/0 5319 [8980] 34608 3 61 41 0 0 0 MOD GROUP PARAMETER COPY 1/1/1 4 [8981] 34609 11 0 0 0 4 ADD LITERAL 2/0/0 5317 [8982] 34610 5 61 39 0 0 0 TOTAL NO OF PARAMETORS TRANSFER 6/0/0 6022 [8983] 34611 0 92 8 0 0 0 LIST END SELECT 18/0/1 5 [8984] 34612 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 4911 [8985] 34613 1 544 17 0 0 0 ABS ADDRESS 18:0 ADD 3/1/0 40 [8986] 34614 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [8987] 6/0/0 4910 [8988] 34615 544 16 0 0 0 ABS ADDRESS 18:2499 SELECT 2/0/0 5396 [8989] 34616 5 61 118 0 0 0 LOCN CTR SC'S FWD TRANSFER 6/1/0 4898 [8990] 34617 544 4 1 0 0 0:144 SELECT 2/1/0 5322 [8991] 34618 5 61 44 1 0 0 O/P MOD CTR TRANSFER 1/1/3 1 [8992] 34619 10 0 0 0 1 SELECT LITERAL 2/0/0 5389 [8993] 34620 5 61 111 0 0 0 UNCORRECTED CHAP NO. TRANSFER 2/0/0 6052 [8994] 34621 5 91 0 0 0 0 TRANSFER 6/1/0 5186 [8995] 34622 54 63 0 1 0 580 63+62+20 BULK CLEAR 28/1/1 50 [8996] 1/1/3 65 [8997] 34623 10 0 0 0 41 SELECT LITERAL 2/1/0 5304 [8998] 34624 5 61 26 1 0 0 TYPE TRANSFER 2/1/0 5306 [8999] 34625 5 61 28 1 0 0 SECTION NO. TRANSFER 26/0/0 4314 [9000] 34626 80 516 2 0 0 0 O/P TYPE S/R;THIS CLEARS S67 INIT ENTER SUBROUTINE 1/1/3 1 [9001] 34627 10 0 0 0 1 SELECT LITERAL 2/1/0 5320 [9002] 34628 5 61 42 1 0 0 TRANSFER 2/0/0 5387 [9003] 34629 5 61 109 0 0 0 CLEAR STERLING CTR TRANSFER 2/0/0 5274 [9004] 34630 5 67 0 0 0 0 67/0 NOT CLEARED BY O/P TYPE S/R TRANSFER Start of procedure 347 at location 813 in chapter 4 [9005] [9005] 34700 PROCR 347 O/P PARAS [9005] 34701 NOTES RADIX B CHAP START ROUTINE 6/0/0 5317 [9005] 34702 61 39 0 0 0 PARA CTR SELECT 18/0/1 5 [9006] 34703 30 0 0 0 5 SHIFT (A) BY QUARTETS 2/1/0 5278 [9007] 34704 5 61 0 1 0 0 TRANSFER 26/1/3 5278 [9008] 34705 91 61 0 1 3 0 M/R 3 AT W/L SET MODIFICATION REGISTER AT VARIABLE 24/0/3 22 [9009] 34706 95 0 0 3 0 SELECT MODIFICATION REGISTER 6/1/0 6 [9010] 2/0/0 5276 [9011] 34707 5 67 2 0 0 0 TRANSFER 26/0/0 4345 [9012] 34708 80 518 2 0 0 0 ENTER SUBROUTINE 25/0/3 1 [9013] 34709 94 347 6 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 817 [9014] 1/1/3 3 [9015] 34710 10 0 0 0 3 SELECT LITERAL 7/0/0 5283 [9016] 34711 4 61 5 0 0 0 LONG PROCR AUGMENT 7/0/0 5284 [9017] 34712 4 61 6 0 0 0 SHORT PROCR AUGMENT 7/0/0 5285 [9018] 34713 4 61 7 0 0 0 TSL PROCR AUGMENT 1/1/3 0 [9019] 34714 10 0 0 0 0 SELECT LITERAL 1/0/1 1 [9020] 34715 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 24/0/0 5389 [9021] 34716 124 61 111 0 0 0 UNCORRECTED CHAP NO MODIFY ADDRESS OF NEXT 15/0/0 6023 [9022] 34717 36 92 9 0 0 0 CORRECTED CHAP NUMBER COLLATE AND ADD 3/0/0 5329 [9023] 34718 3 61 51 0 0 0 COPY 4/0/0 5329 [9024] 34719 1 61 51 0 0 0 ADD 2/0/0 5281 [9025] 34720 5 61 3 0 0 0 TRANSFER 6/0/0 5283 [9026] 34721 61 5 0 0 0 SELECT 18/0/1 2 [9027] 34722 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 5281 [9028] 34723 1 61 3 0 0 0 ADD 2/0/0 5282 [9029] 34724 5 61 4 0 0 0 LN:2C TRANSFER 6/1/0 5188 [9030] 34725 10 0 0 0 .0000. 14:14 SELECT LITERAL 2/1/0 5290 [9031] 34726 5 61 12 1 0 0 LN CTR TRANSFER 2/1/0 5292 [9032] 34727 5 61 14 1 0 0 SN CTR TRANSFER Source: KenK/Q1000334 6/1/0 4912 [9033] 34728 544 18 1 0 0 SE!! this line difficult to read – needs sight of original SELECT 2/1/0 5294 [9034] 34729 5 61 16 1 0 0 TSL CTR TRANSFER 2/1/0 5288 [9035] 34730 5 61 10 1 0 0 TRANSFER 26/0/0 4345 [9036] 34731 80 518 2 0 0 0 O/P ZERO COMPARTMENTFOR LINK ENTER SUBROUTINE 26/0/0 3141 [9037] 34732 80 453 2 0 0 0 O/P 25/1/1 4096+24/0/3 0 ENTER SUBROUTINE 1/1/3 1792 [9038] 34733 10 0 0 0 700 7 IN Q3 SELECT LITERAL 2/0/0 5275 [9039] 34734 5 67 1 0 0 0 SET'MR ENTRY' IND TRANSFER 6/0/0 4981 [9040] 34735 0 545 60 0 0 0 23/0/2 0 SELECT 26/0/0 973 [9041] 34736 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 26/0/0 4345 [9042] 34737 80 518 2 0 0 0 O/P TWO ZERO COMPARTMENTS ENTER SUBROUTINE 26/0/0 4345 [9043] 34738 80 518 2 0 0 0 ENTER SUBROUTINE 6/0/0 5034 [9044] 34739 546 15 0 0 0 26/0/1/6- SELECT 26/0/0 3940 [9045] 34740 80 498 2 0 0 0 gO/P INT SC ENTER SUBROUTINE Start of procedure 348 at location 854 in chapter 4 [9046] [9046] 34800 PROCR 348 SECTION START ROUTINE [9046] 34801 NOTES RADIX B 0/0/3 0 [9046] 34802 62 0 0 0 0 SET EXCESS CONSTANTS 24/0/3 8190 [9047] 34803 6 1 12 0 SELECT 6/1/0 6 [9048] 5/1/0 4808 [9049] 34804 2 542 8 1 0 0 PROCR SUBTRACT 27/0/1 862 [9050] 34805 71 348 9 0 0 0 JUMP IF A != 0 1/1/3 1 [9051] 34806 10 0 0 0 1 SELECT LITERAL 2/0/0 5320 [9052] 34807 5 61 42 0 0 0 TRANSFER 24/1/0 878 [9053] 34808 76 350 4 0 0 0 JUMP unconditional 4/1/0 4808 [9054] 34809 1 542 8 1 0 0 ADD 5/1/0 4802 [9055] 34810 2 542 2 1 0 0 'VALUE' SUBTRACT 27/0/0 905 [9056] 34811 70 351 24 0 0 0 gYES JUMP IF A == 0 26/0/0 923 [9057] 34812 80 353 2 0 0 0 ROUND UP SPACE CTR ENTER SUBROUTINE 24/0/3 8190 [9058] 34813 14 2 12 0 CONST OR TABLE TYPE SELECT 6/1/0 15 [9059] 18/0/1 4124 [9060] 34814 30 0 0 0 4- SHIFT (A) BY QUARTETS 2/0/0 5325 [9061] 34815 5 61 47 0 0 0 TRANSFER 1/1/3 2 [9062] 34816 10 0 0 0 2 SELECT LITERAL 2/0/0 5320 [9063] 34817 5 61 42 0 0 0 TRANSFER 24/0/3 8190 [9064] 34818 6 1 12 0 SELECT 6/1/0 6 [9065] 5/1/0 4804 [9066] 34819 2 542 4 1 0 0 TABLE SUBTRACT 27/0/0 877 [9067] 34820 70 350 3 0 0 0 JUMP IF A == 0 Start of procedure 349 at location 876 in chapter 4 [9068] [9068] 34900 PROCR 349 SECTION START ROUTINE [9068] 34901 NOTES RADIX B Start of procedure 350 at location 876 in chapter 4 [9068] [9068] 35000 PROCR 350 SECTION START ROUTINE [9068] 35001 NOTES RADIX B 1/1/3 1 [9068] 35002 10 0 0 0 1 'CONST' SELECT LITERAL 1/1/1 1 [9069] 35003 11 0 0 0 1 TABLE ADD LITERAL 1/1/1 1 [9070] 35004 11 0 0 0 1 PROCR ADD LITERAL 3/1/0 5305 [9071] 35005 3 61 26 2 0 0 COPY 2/0/0 8160 [9072] 35006 84 352 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 13 [9074] 35007 7 12 2 0 0 NEW PROCR NO SELECT Start of procedure 351 at location 883 in chapter 4 [9075] [9075] 35100 PROCR 351 [9075] 35101 NOTES RADIX B 26/0/0 4750 [9075] 35102 80 537 2 0 0 0 gCONVERT ENTER SUBROUTINE 3/1/0 5307 [9076] 35103 3 61 28 2 0 0 COPY 3/0/0 5288 [9077] 35104 3 61 10 0 0 0 CURRENT PROCR COPY 5/0/0 5400 [9078] 35105 2 72 2 0 0 0 ENTRY PROCR SUBTRACT 27/0/1 890 [9079] 35106 71 351 9 0 0 0 gNO JUMP IF A != 0 6/0/0 5321 [9080] 35107 61 43 0 0 0 SELECT 2/0/0 6315 [9081] 35108 5 27 5 0 0 0 ENTRY LOCN TRANSFER 6/0/0 5321 [9082] 35109 0 61 43 0 0 0 SELECT 2/0/0 5289 [9083] 35110 5 61 11 0 0 0 STORE PROCR START ADDRESS TRANSFER Source: KenK/Q1000335 26/0/0 933 [9084] 35111 80 354 2 0 0 0 gSET'PRINT PROCEDURE'IND ENTER SUBROUTINE 26/0/0 4314 [9085] 35112 80 516 2 0 0 0 O/P TYPE ENTER SUBROUTINE 1/1/3 128 [9086] 35113 10 0 0 0 80 TRACK 8 SELECT LITERAL 2/0/0 5324 [9087] 35114 5 61 46 0 0 0 HEAD OF FORM TRANSFER 6/0/0 6314 [9088] 35115 27 4 0 0 0 COMPILER? SELECT 27/0/0 901 [9089] 35116 70 351 20 0 0 0 gNO JUMP IF A == 0 2/0/0 5020 [9090] 35117 5 545 99 0 0 0 (ALWAYS PRINT DIRECTIVE BLOX) TRANSFER 6/0/0 6246 [9091] 35118 23 46 0 0 0 SELECT 27/0/0 902 [9092] 35119 70 351 21 0 0 0 gPARTIAL. NO BLANK LINE JUMP IF A == 0 26/0/0 4660 [9093] 35120 80 530 2 0 0 0 gSECOND PRINT SR ENTER SUBROUTINE 26/0/0 4136 [9094] 35121 80 510 2 0 0 0 gPRINT ENTER SUBROUTINE 26/0/0 977 [9095] 35122 80 360 2 0 0 0 BULK CLEAR SEC 7 ENTER SUBROUTINE 24/1/0 989 [9096] 35123 76 362 2 0 0 0 JUMP unconditional 6/0/0 8160 [9097] 35124 86 352 2 0 0 0 ;'VALUE' DIRECTIVE SELECT SWITCH R 1/1/2 7 [9098] 35125 12 0 0 0 7 SUBTRACT LITERAL 27/0/0 894 [9099] 35126 70 351 13 0 0 0 g'VALUE' FOLLOWS 'VALUE' JUMP IF A == 0 1/1/3 7 [9100] 35127 10 0 0 0 7 SELECT LITERAL 3/1/0 5305 [9101] 35128 3 61 26 2 0 0 COPY 2/0/0 8160 [9102] 35129 84 352 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 2/1/0 5306 [9103] 35130 5 61 28 1 0 0 CLEAR 'PROCR NUMBER' TRANSFER 2/0/0 5320 [9104] 35131 5 61 42 0 0 0 CLEAR SPACE CTR INCREMENT TRANSFER 24/1/0 893 [9105] 35132 76 351 12 0 0 0 JUMP unconditional Start of procedure 352 at location 914 in chapter 4 [9106] [9106] 35200 PROCR 352 SWITCH A [9106] 35201 NOTES RADIX B 24/0/1 8160 [9106] 35202 85 352 2 0 0 0 SWITCH R 26/0/1 915 [9107] 0/0/1 1216 [9108] 35203 C 370 2 0 0 0 INST 0/0/1 3470 [9109] 35204 C 475 2 0 0 0 TABLE 0/0/1 3146 [9110] 35205 C 454 2 0 0 0 CONST 0/0/1 989 [9111] 35206 C 362 2 0 0 0 DUMMY 0/0/1 989 [9112] 35207 C 362 2 0 0 0 ' ' 0/0/1 989 [9113] 35208 C 362 2 0 0 0 ' ' 0/0/1 3573 [9114] 35209 C 480 2 0 0 0 VALUE Start of procedure 353 at location 923 in chapter 4 [9115] [9115] 35300 PROCR 353 SUBROUTINE 1 [9115] 35301 NOTES RADIX B ROUND OFF TO MULT OF 2 0/0/0 0 [9115] 35302 81 353 2 0 0 0 START OF SUBROUTINE 1/1/3 0 [9116] 35303 10 0 0 0 0 SELECT LITERAL 0/0/2 4900 [9117] 35304 34 544 6 0 0 0 SET (N) IN B 15/0/0 5321 [9118] 35305 36 61 43 0 0 0 SPACE CTR COLLATE AND ADD 27/0/0 932 [9119] 35306 70 353 11 0 0 0 JUMP IF A == 0 2/0/0 5320 [9120] 35307 5 61 42 0 0 0 TRANSFER 2/1/0 5274 [9121] 35308 5 67 0 1 0 0 TRANSFER 2/1/0 5276 [9122] 35309 5 67 2 1 0 0 TRANSFER 26/0/0 4345 [9123] 35310 80 518 2 0 0 0 gO/P ZERO LOCATION ENTER SUBROUTINE 26/0/1 923 [9124] 35311 82 353 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 354 at location 933 in chapter 4 [9125] [9125] 35400 PROCR 354 EXTRACT 'PRINT' PROCEDURE'IND FROM ARRAY IN SEC 23 0/0/0 0 [9125] 35402 81 354 2 0 0 0 START OF SUBROUTINE 1/0/1 0 [9126] 35403 19 61 10 0 0 14 PROCR/20 DIVIDE LITERAL 6/0/1 5288 [9127] 18/1/1 4119 [9128] 13/0/0 5121 [9129] 2/0/0 948 [9130] 35404 5 355 2 0 0 0 TRANSFER 18/1/1 9 [9131] 35405 32 0 0 0 9 SHIFT (AB) BY QUARTETS 2/0/0 954 [9132] 35406 5 356 2 0 0 0 REMAINDER TRANSFER 0/0/2 4872 [9133] 35407 34 543 22 0 0 0 Line 35406 to 35411 taken from stuck on note: line 35412 is on next page. SET (N) IN B 24/0/1 954 [9134] 35408 124 356 2 0 1 0 MODIFY ADDRESS OF NEXT 18/1/3 0 [9135] 35409 33 0 0 0 0 ///// SHIFT (AB) BY BITS 24/0/1 948 [9136] 35410 124 355 2 0 1 0 MODIFY ADDRESS OF NEXT 15/0/0 6195 [9137] 35411 36 23 5- 0 0 0 COLLATE AND ADD Source: RayS/Q1000336 2/0/0 6247 [9138] 35412 5 23 47 0 0 0 NON-ZERO TO PRINT WHOLE PROCR TRANSFER 26/0/1 933 [9139] 35413 82 354 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 355 at location 948 in chapter 4 [9140] [9140] 35500 PROCR 355 O/P WITH ZERO REF: PARA=2C [9140] 35501 NOTES 0/0/0 0 [9140] 35502 81 355 2 0 0 0 (A)=INSTRUCTION START OF SUBROUTINE 2/0/0 5277 [9141] 35503 5 67 3 0 0 0 TRANSFER 6/0/0 5281 [9142] 35504 61 3 0 0 0 2C SELECT 2/0/0 5276 [9143] 35505 5 67 2 0 0 0 TRANSFER 26/0/0 4345 [9144] 35506 80 518 2 0 0 0 ENTER SUBROUTINE 26/0/1 948 [9145] 35507 82 355 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 356 at location 954 in chapter 4 [9146] [9146] 35600 PROCR 356 O/P NON-ARITH INSTRUCTION [9146] 35601 NOTES 0/0/0 0 [9146] 35602 81 356 2 0 0 0 START OF SUBROUTINE 2/0/0 5278 [9147] 35603 5 61 0 0 0 0 TRANSFER 1/1/3 1 [9148] 35604 10 0 0 0 1 SELECT LITERAL 2/0/0 5279 [9149] 35605 5 61 1 0 0 0 TRANSFER 26/0/0 4738 [9150] 35606 80 536 2 0 0 0 gCOMPLEX O/P ENTER SUBROUTINE 26/0/1 954 [9151] 35607 82 356 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 357 at location 960 in chapter 4 [9152] [9152] 35700 PROCR 357 TEST SHORT/LONG NUMBER [9152] 35701 NOTES 0/0/0 0 [9152] 35702 81 357 2 0 0 0 START OF SUBROUTINE 2/0/0 5278 [9153] 35703 5 61 0 0 0 0 STORE ACTION TRANSFER 6/0/0 5331 [9154] 35704 61 53 0 0 0 SELECT 27/0/0 966 [9155] 35705 70 357 8 0 0 0 gSHORT NO JUMP IF A == 0 26/0/0 3637 [9156] 35706 80 481 2 0 0 0 gLONG NO S/R ENTER SUBROUTINE 26/0/1 960 [9157] 35707 82 357 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 26/0/0 3678 [9158] 35708 80 483 2 0 0 0 gSHORT NO S/R ENTER SUBROUTINE 26/0/1 960 [9159] 35709 82 357 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 358 at location 968 in chapter 4 [9160] [9160] 35800 PROCR 358 O/P ARITH INSTRUCTION [9160] 35801 NOTES 0/0/0 0 [9160] 35802 81 358 2 0 0 0 START OF SUBROUTINE 2/0/0 5278 [9161] 35803 5 61 0 0 0 0 TRANSFER 2/0/0 5279 [9162] 35804 5 61 1 0 0 0 TRANSFER 26/0/0 4738 [9163] 35805 80 536 2 0 0 0 gCOMPLEX O/P ENTER SUBROUTINE 26/0/1 968 [9164] 35806 82 358 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 359 at location 973 in chapter 4 [9165] [9165] 35900 PROCR 359 O/P WITH ZERO REF/PARA [9165] 35901 NOTES 0/0/0 0 [9165] 35902 81 359 2 0 0 0 START OF SUBROUTINE 2/0/0 5277 [9166] 35903 5 67 3 0 0 0 TRANSFER 26/0/0 4345 [9167] 35904 80 518 2 0 0 0 gO/P ENTER SUBROUTINE 26/0/1 973 [9168] 35905 82 359 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 360 at location 977 in chapter 4 [9169] [9169] 36000 PROCR 360 0/0/0 0 [9169] 36002 81 360 2 0 0 0 START OF SUBROUTINE 6/1/0 5190 [9170] 36003 54 7 2 1 0 48 BULK CLEAR SECTION 7 BULK CLEAR 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/1/1 2 [9172] 26/0/1 977 [9173] 36004 82 360 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 361 at location 982 in chapter 4 [9174] [9174] 36100 PROCR 361 LN:2C SUBROUTINE [9174] 36101 NOTES 0/0/0 0 [9174] 36102 81 361 2 0 0 0 (A)=INSTRUCTION START OF SUBROUTINE 2/0/0 5277 [9175] 36103 5 67 3 0 0 0 TRANSFER 6/0/0 5282 [9176] 36104 0 61 4 0 0 0 LN:2C FOR FIRST LN PROCR SELECT 2/0/0 5276 [9177] 36105 5 67 2 0 0 0 IN CHAP TRANSFER 26/0/0 4345 [9178] 36106 80 518 2 0 0 0 gO/P ENTER SUBROUTINE 26/0/1 982 [9179] 36107 82 361 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Source: RayS/Q1000337 26/0/0 982 [9180] 36108 80 361 2 0 0 0 (THEN GET NEXT BLOCK) ENTER SUBROUTINE Start of procedure 362 at location 989 in chapter 4 [9181] [9181] 36200 PROCR 362 GET NEXT BLOCK [9181] 36201 NOTES RADIX B 26/0/0 4111 [9181] 36202 80 509 2 0 0 0 gREAD ENTER SUBROUTINE Source: RayS/Q1000338 24/0/3 8190 [9182] 36203 6 1 12 0 SELECT 6/1/0 6 [9183] 5/1/0 4806 [9184] 36204 2 542 6 1 0 0 'CONST' SUBTRACT 27/0/3 914 [9185] 36205 73 352 2 0 0 0 gNOT A DIRECTIVE JUMP IF A < 0 26/0/0 1021 [9186] 36206 80 363 2 0 0 0 EDIT DIRECTIVES ENTER SUBROUTINE 24/0/3 8190 [9187] 36207 6 1 12 0 SELECT 6/1/0 6 [9188] 5/1/0 4806 [9189] 36208 2 542 6 1 0 0 'CONST' SUBTRACT 27/0/0 1080 [9190] 36209 70 365 2 0 0 0 JUMP IF A == 0 4/1/0 4806 [9191] 36210 1 542 6 1 0 0 ADD 5/1/0 4804 [9192] 36211 2 542 4 1 0 0 TABLE SUBTRACT 27/0/0 1080 [9193] 36212 70 365 2 0 0 0 JUMP IF A == 0 4/1/0 4804 [9194] 36213 1 542 4 1 0 0 ADD 5/1/0 4808 [9195] 36214 2 542 8 1 0 0 'PROCR' SUBTRACT 27/0/0 1080 [9196] 36215 70 365 2 0 0 0 JUMP IF A == 0 4/1/0 4808 [9197] 36216 1 542 8 1 0 0 ADD 5/1/0 4802 [9198] 36217 2 542 2 1 0 0 'VALUE' SUBTRACT 27/0/0 905 [9199] 36218 70 351 24 0 0 0 gYES JUMP IF A == 0 4/1/0 4802 [9200] 36219 1 542 2 1 0 0 ADD 5/1/0 4812 [9201] 36220 2 542 12 1 0 0 END(SPACE) (SPACE) SUBTRACT 27/0/1 1015 [9202] 36221 71 362 26 0 0 0 JUMP IF A != 0 1/1/3 1 [9203] 36222 10 0 0 0 1 SELECT LITERAL 2/0/0 5326 [9204] 36223 5 61 48 0 0 0 TRANSFER 26/0/0 1066 [9205] 36224 80 364 2 0 0 0 gTEST PREVIOUS DIRECTIVE WAS 'VALUE' ENTER SUBROUTINE 24/1/0 1093 [9206] 36225 76 365 14 0 0 0 JUMP unconditional 4/1/0 4812 [9207] 36226 1 542 12 1 0 0 ADD 5/1/0 4810 [9208] 36227 2 542 10 1 0 0 'NOTES' SUBTRACT 27/0/1 914 [9209] 36228 71 352 2 0 0 0 JUMP IF A != 0 26/0/0 4136 [9210] 36229 80 510 2 0 0 0 gPRINT 'NOTES' LINE ENTER SUBROUTINE 26/0/0 977 [9211] 36230 80 360 2 0 0 0 BULK CLEAR SEC 7 ENTER SUBROUTINE 24/1/0 989 [9212] 36231 76 362 2 0 0 0 JUMP unconditional Start of procedure 363 at location 1021 in chapter 4 [9213] [9213] 36300 PROCR 363 EDIT DIRECTIVES 0/0/0 0 [9213] 36302 81 363 2 0 0 0 START OF SUBROUTINE 26/0/0 977 [9214] 36303 80 360 2 0 0 0 BULK CLEAR SEC 7 ENTER SUBROUTINE 6/1/0 5552 [9215] 36304 77 2 1 0 0 AMEND IND SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 2 [9217] 36305 5 7 2 1 0 0 TRANSFER 6/1/0 5554 [9218] 36306 77 4 1 0 0 LINE SERIAL SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 6 [9220] 36307 5 7 6 1 0 0 TRANSFER 6/1/0 5556 [9221] 36308 77 6 1 0 0 'PROCR/TABLE/CONST/NOTES/VALUE/END' SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 10 [9223] 36309 5 7 10 1 0 0 TRANSFER 6/1/0 5558 [9224] 36310 77 8 1 0 0 PROCR NO SELECT 18/0/1 4124 [9225] 36311 30 0 0 0 4- SHIFT (A) BY QUARTETS 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 12 [9227] 36312 5 7 12 1 0 0 TRANSFER 6/1/0 5560 [9228] 36313 77 10 1 0 0 OLD PROCR NO SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 16 [9230] 36314 5 7 16 1 0 0 TRANSFER 6/1/0 5556 [9231] 36315 77 6 1 0 0 SELECT 5/1/0 4810 [9232] 36316 2 542 10 1 0 0 'NOTES' SUBTRACT 27/0/1 1046 [9233] 36317 71 363 21 0 0 0 gNO JUMP IF A != 0 6/1/0 5562 [9234] 36318 77 12 1 0 0 'RADIX' SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 16 [9236] 36319 5 7 16 1 0 0 TRANSFER 24/1/0 1049 [9237] 36320 76 363 23 0 0 0 JUMP unconditional 6/1/0 5562 [9238] 36321 77 12 1 0 0 PASS 1 REPORTS SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 48 [9240] 36322 5 7 48 1 0 0 TRANSFER 6/1/0 5556 [9241] 36323 77 6 1 0 0 SELECT 5/1/0 4808 [9242] 36324 2 542 8 1 0 0 'PROCR' SUBTRACT 27/0/0 1056 [9243] 36325 70 363 29 0 0 0 gYES JUMP IF A == 0 6/1/0 5564 [9244] 36326 77 14 1 0 0 TABLE/CONST TYPE/RADIX LETTER SELECT Source: ChuckK/Q1000339 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 20 [9246] 36327 5 7 20 1 0 0 TRANSFER 24/1/0 1059 [9247] 36328 76 363 31 0 0 0 JUMP unconditional 6/1/0 5564 [9248] 36329 77 14 1 0 0 FIRST 5 CHARS ANNOTATION SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 20 [9250] 36330 5 7 20 1 0 0 TRANSFER 24/0/2 5566 [9251] 36331 55 77 16 1 0 26 COPY ANNOTATION BULK COPY 18/1/0 4123 [9252] 36332 C 7 22 1 0 0 1/1/3 26 [9253] 18/1/1 5 [9254] 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/1/1 22 [9256] 26/0/1 1021 [9257] 36333 82 363 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 364 at location 1066 in chapter 4 [9258] [9258] 36400 PROCR 364 DEAL WITH 'VALUE' DIRECTIVE [9258] 36401 NOTES 0/0/0 0 [9258] 36402 81 364 2 0 0 0 START OF SUBROUTINE 6/0/0 8160 [9259] 36403 86 352 2 0 0 0 SWITCH LAST TIME THRU SELECT SWITCH R 1/1/2 7 [9260] 36404 12 0 0 0 7 SUBTRACT LITERAL 27/0/1 1079 [9261] 36405 71 364 15 0 0 0 >NOT 'VALUE' JUMP IF A != 0 6/1/0 4810 [9262] 36406 542 10 1 0 0 'NOTES' SELECT 2/1/0 5304 [9263] 36407 5 61 26 1 0 0 TRANSFER 2/0/0 5276 [9264] 36408 5 67 2 0 0 0 REF=0;ITEM=SPACE CTR TRANSFER 6/0/0 5321 [9265] 36409 61 43 0 0 0 SELECT 2/0/0 5277 [9266] 36410 5 67 3 0 0 0 TRANSFER 26/0/0 4329 [9267] 36411 80 517 2 0 0 0 >O/P TERMINAL 'REF' UNIT ENTER SUBROUTINE 1/1/3 6 [9268] 36412 10 0 0 0 6 SELECT LITERAL 2/1/0 5305 [9269] 36413 5 61 26 2 0 0 TRANSFER 26/0/0 4314 [9270] 36414 80 516 2 0 0 0 >O/P'TYPE6' ENTER SUBROUTINE 26/0/1 1066 [9271] 36415 82 364 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 365 at location 1080 in chapter 4 [9272] [9272] 36500 PROCR 365 TEST NEW CHAP [9272] 36501 NOTES RADIX B 26/0/0 1066 [9272] 36502 80 364 2 0 0 0 >TEST LAST DIRECTIVE WAS 'VALUE' ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 13 [9274] 36503 7 12 2 0 0 NEW PROCR SELECT 2/0/0 5313 [9275] 36504 5 61 35 0 0 0 TRANSFER 24/0/0 5389 [9276] 36505 124 61 111 0 0 0 THIS CHAP UNCORR MODIFY ADDRESS OF NEXT 6/0/0 6023 [9277] 36506 92 9 0 0 0 LAST PROCR THIS CHAP SELECT 18/0/1 4126 [9278] 36507 30 0 0 0 2- SHIFT (A) BY QUARTETS 26/0/0 4756 [9279] 36508 80 538 2 0 0 0 >CONVERT TO DEC ENTER SUBROUTINE 5/0/0 5313 [9280] 36509 2 61 35 0 0 0 SUBTRACT 27/0/2 854 [9281] 36510 72 348 2 0 0 0 NOT NEW CHAP JUMP IF A >= 0 1/1/1 1 [9282] 36511 11 0 0 0 1 TEST THIS PROCEDURE SAFETY ADD LITERAL 27/0/1 854 [9283] 36512 71 348 2 0 0 0 ONE GREATER THAN PREDEVICE JUMP IF A != 0 0/0/3 0 [9284] 36513 62 0 0 0 0 SET EXCESS CONSTANTS 26/0/0 923 [9285] 36514 80 353 2 0 0 0 >ROUND UP SPACE CTR ENTER SUBROUTINE 26/0/0 1097 [9286] 36515 80 366 2 0 0 0 >ROUND UP FORMED SECTIONS ENTER SUBROUTINE 26/0/0 1108 [9287] 36516 80 367 2 0 0 0 >O/P FORMED SECTIONS ENTER SUBROUTINE 24/1/0 1142 [9288] 36517 76 368 2 0 0 0 JUMP unconditional Start of procedure 366 at location 1097 in chapter 4 [9289] [9289] 36600 PROCR 366 ROUND UP SECTION CTRS [9289] 36601 NOTES RADIX B SUBROUTINE 0/0/0 0 [9289] 36602 81 366 2 0 0 0 START OF SUBROUTINE 26/1/2 5192 [9290] 36603 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [9291] 36604 C 0 0 0 6 Limit 6/0/2 5291 [9291] 36605 0 61 13 0 2 0 END VALUE SELECT 18/0/3 2 [9292] 36606 31 0 0 0 2 SHIFT (A) BY BITS 18/1/1 4127 [9293] 36607 32 0 0 0 1- (DIVIDE BY 4) SHIFT (AB) BY QUARTETS 1/0/2 4 [9294] 36608 38 0 0 0 4 ROUND UP TO MULTIPLE OF 4 ROUND OFF 18/0/3 2 [9295] 36609 31 0 0 0 2 SHIFT (A) BY BITS 2/0/2 5291 [9296] 36610 5 61 13 0 2 0 TRANSFER 25/0/2 2 [9297] 36611 94 366 5 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1099 [9298] s 26/0/1 1097 [9299] 36612 82 366 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Source: ChuckK/Q1000340 Start of procedure 367 at location 1108 in chapter 4 [9300] [9300] 36700 PROCR 367 O/P FORMED SECTIONS [9300] 36701 NOTES RADIX B SUBROUTINE 0/0/0 0 [9300] 36702 81 367 2 0 0 0 START OF SUBROUTINE 6/1/0 5194 [9301] 36703 10 0 0 0 600000 SELECT LITERAL 2/1/0 5278 [9302] 36704 5 61 0 1 0 0 TRANSFER 2/0/0 5290 [9303] 36705 5 61 12 0 0 0 TRANSFER 2/0/0 5280 [9304] 36706 5 61 2 0 0 0 TRANSFER 26/1/3 5280 [9305] 36707 91 61 2 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 6/0/3 4901 [9306] 36708 544 7 0 3 0 TYPE NO SELECT 2/1/0 5304 [9307] 36709 5 61 26 1 0 0 TRANSFER 6/0/3 5283 [9308] 36710 61 5 0 3 0 SELECT 2/1/0 5307 [9309] 36711 5 61 28 2 0 0 PROCR NUMBER TRANSFER 26/0/0 4314 [9310] 36712 80 516 2 0 0 0 O/P TYPE ENTER SUBROUTINE 6/0/3 4904 [9311] 36713 544 10 0 3 0 SELECT 2/0/0 5320 [9312] 36714 5 61 42 0 0 0 NO OF LOCNS TO STEP ON LON CTR ON O/P TRANSFER 24/0/0 5278 [9313] 36715 124 61 0 0 0 0 MODIFY ADDRESS OF NEXT 6/1/0 5290 [9314] 36716 61 12 1 0 0 SECT COUNTER SELECT 2/1/0 5308 [9315] 36717 5 61 30 1 0 0 TRANSFER 6/0/0 5308 [9316] 36718 0 61 30 0 0 0 SELECT 5/0/0 5309 [9317] 36719 2 61 31 0 0 0 SUBTRACT 27/0/0 1136 [9318] 36720 70 367 30 0 0 0 >NOTHING TO OUTPUT JUMP IF A == 0 6/0/0 4904 [9319] 36721 544 10 0 0 0 4 SELECT 18/0/1 5 [9320] 36722 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/3 4907 [9321] 36723 1 544 13 0 3 0 SECT NO OF TRANS SECT ADD 4/0/0 5308 [9322] 36724 1 61 30 0 0 0 ADD 28/0/0 5274 [9323] 36725 128 67 0 0 0 0 BULK COPY SHORT NUMERIC 26/0/0 4345 [9324] 36726 80 518 2 0 0 0 O/P ENTER SUBROUTINE 23/0/0 4 [9325] 36727 123 4 0 0 0 STEP ON AND TEST 0/0/1 5308 [9326] 36728 C 61 30 0 0 0 Address of modifier 24/1/0 1127 [9327] 36729 76 367 21 0 0 0 JUMP unconditional 1/1/3 1 [9328] 36730 10 0 0 0 1 SELECT LITERAL 7/0/0 5280 [9329] 36731 4 61 2 0 0 0 AUGMENT 23/0/0 2 [9330] 36732 123 2 0 0 0 STEP ON AND TEST 0/0/1 5278 [9331] 36733 C 61 0 0 0 0 Address of modifier 24/1/0 1113 [9332] 36734 76 367 7 0 0 0 JUMP unconditional 26/0/1 1108 [9333] 36735 82 367 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 368 at location 1142 in chapter 4 [9334] [9334] 36800 PROCR 368 DEAL WITH TRANS VACANT SECTIONS [9334] 36801 NOTES RADIX B CHAP END ROUTINE 1/1/3 1 [9334] 36802 10 0 0 0 1 TYPE 1 SELECT LITERAL 2/1/0 5305 [9335] 36803 5 61 26 2 0 0 TRANSFER 1/1/3 1001 [9336] 36804 101 1001 1 3 0 CALC SWITCH PROCR SELECT LITERAL ADDRESS 4/0/0 5389 [9337] 36805 1 61 111 0 0 0 THIS CHAP UNCORRECTED ADD 2/1/0 5307 [9338] 36806 5 61 28 2 0 0 61/43= CHAP LENGTH TRANSFER 26/0/0 4314 [9339] 36807 80 516 2 0 0 0 >O/P 'TYPE' ENTER SUBROUTINE 6/0/0 5321 [9340] 36808 61 43 0 0 0 CHAP LENGTH SELECT 24/0/1 5389 [9341] 36809 124 61 111 0 1 0 UNCORR CHAP MODIFY ADDRESS OF NEXT 2/0/0 5415 [9342] 36810 5 72 17 0 0 0 STORE 72/18-36 TRANSFER 6/1/0 4824 [9343] 36811 542 24 1 0 0 'TYPE.' SELECT 2/1/0 5304 [9344] 36812 5 61 26 1 0 0 TRANSFER 2/1/0 5306 [9345] 36813 5 61 28 1 0 0 TRANSFER 26/0/0 4329 [9346] 36814 80 517 2 0 0 0 ALPHA O/P SR ENTER SUBROUTINE 1/1/3 1 [9347] 36815 10 0 0 0 1 SELECT LITERAL 4/0/0 5389 [9348] 36816 1 61 111 0 0 0 ADD 3/0/0 5389 [9349] 36817 3 61 111 0 0 0 COPY 6/0/0 5326 [9350] 36818 61 48 0 0 0 SELECT 27/0/0 805 [9351] 36819 70 346 23 0 0 0 JUMP IF A == 0 24/1/0 1162 [9352] 36820 76 369 3 0 0 0 JUMP unconditional Start of procedure 369 at location 1161 in chapter 4 [9353] [9353] 36900 PROCR 369 PROG END ROUTINE Source: RayS/Q1000341 [9353] 36901 NOTES RADIX B 24/1/0 1168 [9353] 36902 76 369 9 0 0 0 THIS AN ORDER CONTANT JUMP unconditional 26/0/0 4376 [9354] 36903 80 520 2 0 0 0 -O/P REMAINING DETS S/R ENTER SUBROUTINE 6/0/0 4927 [9355] 36904 0 545 6 0 0 0 ALL THE p'S SELECT 2/1/0 5252 [9356] 36905 5 66 2 1 0 0 SET AS BLOCK SERIAL TRANSFER 6/0/0 1161 [9357] 36906 369 2 0 0 0 SELECT 2/0/0 4525 [9358] 36907 5 526 2 0 0 0 PLANT AN EXIT ORDER TRANSFER 24/1/0 4419 [9359] 36908 76 522 23 0 0 0 gI/P C-LINE SR JUMP unconditional 1/1/3 1 [9360] 36909 10 0 0 0 1 SELECT LITERAL 2/0/0 6247 [9361] 36910 5 23 47 0 0 0 ALWAYS PRINT END SIGN TRANSFER 26/0/0 4660 [9362] 36911 80 530 2 0 0 0 gBLANK LINE ENTER SUBROUTINE 26/0/0 4145 [9363] 36912 80 511 2 0 0 0 gPRINT END SIGN ENTER SUBROUTINE 6/0/0 5400 [9364] 36913 72 2 0 0 0 ENTRY POINT SELECT 2/0/0 5313 [9365] 36914 5 61 35 0 0 0 TRANSFER 26/0/0 3729 [9366] 36915 80 486 2 0 0 0 ENTER SUBROUTINE 2/0/0 6022 [9367] 36916 5 92 8 0 0 0 CHAP OF ENTRY TRANSFER 6/0/0 6315 [9368] 36917 27 5 0 0 0 ENTRY LOCN SELECT 2/0/0 6020 [9369] 36918 5 92 6 0 0 0 TRANSFER 6/1/0 4830 [9370] 36919 0 542 30 1 0 0 'TYPEp' SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 4 [9372] 36920 5 9 4 1 0 0 TRANSFER 6/1/0 4896 [9373] 36921 544 2 1 0 0 SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 6 [9375] 36922 5 9 6 1 0 0 BEW TRANSFER 26/0/0 4293 [9376] 36923 80 514 2 0 0 0 -O/P REMAINING DETS S/R ENTER SUBROUTINE 26/0/0 4762 [9377] 36924 80 539 2 0 0 0 gREAD A2 ENTER SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 4 [9379] 36925 8 4 1 0 0 SELECT 5/1/0 5196 [9380] 36926 12 0 0 0 5659655972 'FINIS' SUBTRACT LITERAL 27/0/0 1199 [9381] 36927 70 369 32 0 0 0 gEND JUMP IF A == 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 24/0/2 4 [9383] 36928 55 8 4 1 0 50 BULK COPY 18/1/0 4123 [9384] 36929 C 9 4 1 0 0 1/1/3 50 [9385] 18/1/1 5 [9386] 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/1 4 [9388] 26/0/0 4293 [9389] 36930 80 514 2 0 0 0 gWRITE A6 ENTER SUBROUTINE 24/1/0 1185 [9390] 36931 76 369 24 0 0 0 JUMP unconditional 24/0/2 5594 [9391] 36932 55 70 0 1 0 100 COPY DETAILS FOR PASS 3 BULK COPY 18/1/0 4123 [9392] 36933 C 9 0 1 0 0 1/1/3 100 [9393] 18/1/1 5 [9394] 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/1 0 [9396] 6/0/0 6314 [9397] 36934 27 4 0 0 0 COMPILER? SELECT 27/0/1 46 [9398] 36935 71 327 2 0 0 0 gYES, CALL PASS 3 JUMP IF A != 0 0/1/0 40 [9399] 36936 45 A6 0 0 0 0 REWIND O/P FILE REWIND 0/0/3 0 [9400] 6/1/0 0 [9401] 1/1/1 45 [9402] 25/1/1 4096 [9403] 24/0/3 0 [9404] 23/0/2 45 [9405] 0/1/1 40 [9406] 24/1/0 46 [9407] 36937 76 327 2 0 0 0 gCALL PASS 3 JUMP unconditional Start of procedure 370 at location 1216 in chapter 4 [9408] [9408] 37000 PROCR 370 INST ROUTINE [9408] 37001 NOTES RADIX B NOTES AND CONTINUATION OF SWITCH INTO NEXT PROCEDURE 1/1/3 1 [9408] 37002 10 0 0 0 1 SELECT LITERAL 2/0/0 5377 [9409] 37003 5 61 99 0 0 0 NON I/P IND TRANSFER 26/0/0 4390 [9410] 37004 80 522 2 0 0 0 -I/P C-LINE S/R ENTER SUBROUTINE 6/1/0 5252 [9411] 37005 66 2 1 0 0 LINE SERIAL SELECT 2/1/0 5274 [9412] 37006 5 67 0 1 0 0 TRANSFER 2/0/0 5280 [9413] 37007 5 61 2 0 0 0 CLEAR MOD DIGITS TRANSFER 2/0/0 5303 [9414] 37008 5 61 25 0 0 0 SET BINARY INDICATOR TRANSFER 6/0/0 5388 [9415] 37009 0 61 110 0 0 0 GROUP+1 SELECT 27/0/0 989 [9416] 37010 70 362 2 0 0 0 G.N.B. JUMP IF A == 0 27/0/3 989 [9417] 37011 73 362 2 0 0 0 G.N.B. JUMP IF A < 0 1/1/2 17 [9418] 37012 12 0 0 0 11 SUBTRACT LITERAL 27/0/2 989 [9419] 37013 72 362 2 0 0 0 G.N.B. JUMP IF A >= 0 6/0/0 5388 [9420] 37014 84 372 2 0 0 0 SWITCH B (GROUP) SET SWITCH(ES) AT VARIABLE VALUE 2/0/0 8159 [9421] 37015 C 61 110 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 6/0/0 5328 [9422] 37016 84 381 2 0 0 0 VARIANT SWITCH SET SWITCH(ES) AT VARIABLE VALUE 2/0/0 8158 [9423] 37017 C 61 50 0 0 0 VARIANT+1 SET SWITCH(ES) AT VARIABLE VALUE 6/0/0 5291 [9424] 37018 0 61 13 0 0 0 LONG SELECT 1/1/2 148 [9425] 37019 101 148 1 2 0 TEST 32 REMAIN SUBTRACT LITERAL ADDRESS 27/0/2 1241 [9426] 37020 72 371 2 0 0 0 gDUMP JUMP IF A >= 0 6/0/0 5293 [9427] 37021 0 61 15 0 0 0 SHORT SELECT Source: RayS/Q1000342 1/1/2 56 [9428] 37022 101 56 1 2 0 TEST 3 REMAIN SUBTRACT LITERAL ADDRESS 27/0/2 1241 [9429] 37023 72 371 2 0 0 0 gDUMP JUMP IF A >= 0 6/0/0 5295 [9430] 37024 0 61 17 0 0 0 TSL SELECT 1/1/2 218 [9431] 37025 101 218 1 2 0 TEST 1 REMAINS SUBTRACT LITERAL ADDRESS 27/0/3 1277 [9432] 37026 73 372 2 0 0 0 gOK JUMP IF A < 0 Start of procedure 371 at location 1241 in chapter 4 [9433] [9433] 37100 PROCR 371 [9433] 37101 NOTES 26/0/0 1097 [9433] 37102 80 366 2 0 0 0 gROUND UP CTRS ENTER SUBROUTINE 6/0/0 5295 [9434] 37103 0 61 17 0 0 0 SELECT 5/0/0 5294 [9435] 37104 2 61 16 0 0 0 TWICE TSL'S SUBTRACT 18/0/3 3 [9436] 37105 31 0 0 0 1- SHIFT (A) BY BITS 18/0/1 4127 [9437] 4/0/0 5293 [9438] 37106 1 61 15 0 0 0 SHORT ADD 4/0/0 5291 [9439] 37107 1 61 13 0 0 0 LONG ADD 2/0/0 1097 [9440] 37108 5 366 2 0 0 0 INCREMENT TO SPACE CTR TRANSFER 0/0/2 4900 [9441] 37109 34 544 6 0 0 0 BIT 1 SET (N) IN B 15/0/0 5321 [9442] 37110 36 61 43 0 0 0 SPACE CTR COLLATE AND ADD 1/1/2 2 [9443] 37111 12 0 0 0 2 SUBTRACT LITERAL 5/0/0 1097 [9444] 37112 2 366 2 0 0 0 LENTH OF FORMED CONSTANTS SUBTRACT 4/0/0 4967 [9445] 37113 1 545 46 0 0 0 24/1/0 TO NEXT ORDER ADD 26/0/0 3940 [9446] 37114 80 498 2 0 0 0 gO/P INT SC ENTER SUBROUTINE 26/0/0 923 [9447] 37115 80 353 2 0 0 0 gROUND UP SPACE CTR ENTER SUBROUTINE 26/0/0 1108 [9448] 37116 80 367 2 0 0 0 gO/P FORMD SECTIONS ENTER SUBROUTINE 1/1/3 1 [9449] 37117 10 0 0 0 1 SELECT LITERAL 2/0/0 5320 [9450] 37118 5 61 42 0 0 0 SPACE CTR INCR TRANSFER 2/0/0 5280 [9451] 37119 5 61 2 0 0 0 CLEAR TRANSFER 6/1/0 5198 [9452] 37120 54 63 0 1 0 280 CLEAR 63+62 BULK CLEAR 28/1/1 50 [9453] 6/1/0 4806 [9454] 37121 0 542 6 1 0 0 'CONST' SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 2 [9456] 37122 5 5 2 1 0 0 TRANSFER 2/1/0 5290 [9457] 37123 5 61 12 1 0 0 TRANSFER 2/1/0 5292 [9458] 37124 5 61 14 1 0 0 TRANSFER 26/0/0 4660 [9459] 37125 80 530 2 0 0 0 gPRINT ENTER SUBROUTINE 6/1/0 4912 [9460] 37126 0 544 18 1 0 0 180:180 SELECT 2/1/0 5294 [9461] 37127 5 61 16 1 0 0 TSL CTR TRANSFER 1/1/3 3 [9462] 37128 10 0 0 0 3 SELECT LITERAL 7/0/0 5283 [9463] 37129 4 61 5 0 0 0 AUG PROCR NUMBERS AUGMENT 7/0/0 5284 [9464] 37130 4 61 6 0 0 0 AUGMENT 7/0/0 5285 [9465] 37131 4 61 7 0 0 0 AUGMENT 1/1/3 6 [9466] 37132 10 0 0 0 6 SELECT LITERAL 2/1/0 5305 [9467] 37133 5 61 26 2 0 0 TRANSFER 26/0/0 4314 [9468] 37134 80 516 2 0 0 0 gO/P 'TYPE 6' ENTER SUBROUTINE Start of procedure 372 at location 1277 in chapter 4 [9469] [9469] 37200 PROCR 372 SWITCH B [9469] 37201 NOTES RADIX B 1/1/3 0 [9469] 37202 10 0 0 0 0 SELECT LITERAL 24/0/1 8159 [9470] 37203 85 372 2 0 0 0 SWITCH R 26/0/1 1279 [9471] 0/0/1 1296 [9472] 37204 C 373 2 0 0 0 GRP 0 0/0/1 1311 [9473] 37205 C 374 2 0 0 0 1 0/0/1 1387 [9474] 37206 C 379 2 0 0 0 2 0/0/1 1420 [9475] 37207 C 381 2 0 0 0 3 0/0/1 1490 [9476] 37208 C 387 2 0 0 0 4 0/0/1 1960 [9477] 37209 C 400 2 0 0 0 5 0/0/1 2161 [9478] 37210 C 411 2 0 0 0 6 0/0/1 2264 [9479] 37211 C 417 2 0 0 0 7 0/0/1 2411 [9480] 37212 C 422 2 0 0 0 8 0/0/1 2591 [9481] 37213 C 430 2 0 0 0 9 0/0/1 2777 [9482] 37214 C 440 5 0 0 0 10 0/0/1 2776 [9483] 37215 C 440 4 0 0 0 11 0/0/1 2775 [9484] 37216 C 440 3 0 0 0 12 0/0/1 2774 [9485] 37217 C 440 2 0 0 0 13 0/0/1 2937 [9486] 37218 C 445 2 0 0 0 14 0/0/1 2984 [9487] 37219 C 447 2 0 0 0 15 Source: RayS/Q1000343 Start of procedure 373 at location 1296 in chapter 4 [9488] [9488] 37300 PROCR 373 GROUP 0 ACTIONS [9488] 37301 NOTES RADIX B 6/0/0 5328 [9488] 37302 61 50 0 0 0 SELECT 1/1/2 8 [9489] 37303 12 0 0 0 8 SUBTRACT LITERAL 27/0/3 1304 [9490] 37304 73 373 10 0 0 0 gACTIONS 0-6 JUMP IF A < 0 1/1/2 2 [9491] 37305 12 0 0 0 2 SUBTRACT LITERAL 27/0/2 1308 [9492] 37306 72 373 14 0 0 0 gACTION 9 JUMP IF A >= 0 6/0/0 4948 [9493] 37307 545 27 0 0 0 0/0/2 SELECT 26/0/0 954 [9494] 37308 80 356 2 0 0 0 gCOMPLEX O/P NON-A ENTER SUBROUTINE 26/0/0 4384 [9495] 37309 80 521 2 0 0 0 gI/P INSTRUCTION ENTER SUBROUTINE 24/0/1 5328 [9496] 37310 124 61 50 0 1 0 VARIANT+1 MODIFY ADDRESS OF NEXT 6/0/0 4928 [9497] 37311 545 7 0 0 0 SELECT 26/0/0 968 [9498] 37312 80 358 2 0 0 0 gCOMPLES O/P ARITH ENTER SUBROUTINE 24/1/0 989 [9499] 37313 76 362 2 0 0 0 gGNB JUMP unconditional 6/0/0 4939 [9500] 37314 545 18 0 0 0 18/1/1 1 SELECT 26/0/0 973 [9501] 37315 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 24/1/0 1304 [9502] 37316 76 373 10 0 0 0 JUMP unconditional Start of procedure 374 at location 1311 in chapter 4 [9503] [9503] 37400 PROCR 374 GROUP 1 ACTIONS [9503] 37401 NOTES RADIX 6/1/0 5264 [9503] 37402 66 14 1 0 0 LITERAL SELECT 2/1/0 5330 [9504] 37403 5 61 52 1 0 0 TRANSFER 6/0/0 5328 [9505] 37404 61 50 0 0 0 VARIANT+1 SELECT 1/1/2 4 [9506] 37405 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 1340 [9507] 37406 72 376 2 0 0 0 gNOT ACTIONS 10-12 JUMP IF A >= 0 6/0/0 5265 [9508] 37407 66 15 0 0 0 SELECT 27/0/0 1323 [9509] 37408 70 374 14 0 0 0 gSHORT LITERAL JUMP IF A == 0 24/0/0 5328 [9510] 37409 124 61 50 0 0 0 MODIFY ADDRESS OF NEXT 6/0/0 4928 [9511] 37410 545 7 0 0 0 SELECT 2/1/0 5278 [9512] 37411 5 61 0 1 0 0 TRANSFER 26/0/0 3637 [9513] 37412 80 481 2 0 0 0 LONG NO S/R ENTER SUBROUTINE 24/1/0 989 [9514] 37413 76 362 2 0 0 0 G.N.B JUMP unconditional 6/0/0 5328 [9515] 37414 61 50 0 0 0 VARIANT +1 SELECT 1/1/2 2 [9516] 37415 12 0 0 0 2 TEST VARIANT >0 SUBTRACT LITERAL 27/0/2 1328 [9517] 37416 72 375 2 0 0 0 gNOT ACTION 10 JUMP IF A >= 0 6/1/0 5264 [9518] 37417 66 14 1 0 0 SELECT 27/0/3 1335 [9519] 37418 73 375 9 0 0 0 - JUMP IF A < 0 Start of procedure 375 at location 1328 in chapter 4 [9520] [9520] 37500 PROCR 375 GROUP 1 ACTIONS 0-2 [9520] 37501 NOTES RADIX B 6/0/0 4916 [9520] 37502 544 22 0 0 0 1pppp SELECT 5/0/0 5264 [9521] 37503 2 66 14 0 0 0 LITERAL (MODULUS) SUBTRACT 27/0/3 1335 [9522] 37504 73 375 9 0 0 0 gNOT LITERAL JUMP IF A < 0 24/0/0 5328 [9523] 37505 124 61 50 0 0 0 MODIFY ADDRESS OF NEXT 6/0/0 4942 [9524] 37506 545 21 0 0 0 SELECT 4/0/0 5264 [9525] 37507 1 66 14 0 0 0 ADD 24/1/0 1439 [9526] 37508 76 382 9 0 0 0 - JUMP unconditional 24/0/0 5328 [9527] 37509 124 61 50 0 0 0 MODIFY ADDRESS OF NEXT 6/0/0 4928 [9528] 37510 545 7 0 0 0 SELECT 2/0/0 5278 [9529] 37511 5 61 0 0 0 0 TRANSFER Source: RayS/Q1000344 26/0/0 3678 [9530] 37512 80 483 2 0 0 0 SHORT NO S/R ENTER SUBROUTINE 24/1/0 989 [9531] 37513 76 362 2 0 0 0 -G.N.B. JUMP unconditional Start of procedure 376 at location 1340 in chapter 4 [9532] [9532] 37600 PROCR 376 ACTION 16 [9532] 37601 NOTES RADIX B 26/0/0 4720 [9532] 37602 80 534 2 0 0 0 -SUSPEND S/R ENTER SUBROUTINE 6/1/0 5200 [9533] 37603 54 66 6 0 0 8 BULK CLEAR 28/0/0 5256 [9534] 6/0/0 5328 [9535] 37604 61 50 0 0 0 VARIANT +1 SELECT 1/1/2 8 [9536] 37605 12 0 0 0 8 TEST VARIANT >6 SUBTRACT LITERAL 27/0/2 1366 [9537] 37606 72 377 2 0 0 0 gACTIONS 17 OR 19 JUMP IF A >= 0 6/1/0 5304 [9538] 37607 61 26 1 0 0 SUSPENDED REF SELECT 0/1/2 5306 [9539] 37608 34 61 28 1 0 0 ITEM SET (N) IN B 27/1/1 1351 [9540] 37609 75 376 12 0 0 0 gON(N) JUMP IF AB != 0 6/1/0 5310 [9541] 37610 61 32 1 0 0 SUSPENDED MOD SELECT 27/0/0 1354 [9542] 37611 70 376 15 0 0 0 gON(A) JUMP IF A == 0 6/0/0 4943 [9543] 37612 545 22 0 0 0 1/1/30 SELECT 26/0/0 973 [9544] 37613 80 359 2 0 0 0 ZERO REF/PARA ENTER SUBROUTINE 24/1/0 1356 [9545] 37614 76 376 17 0 0 0 JUMP unconditional 6/0/0 5023 [9546] 37615 546 4 0 0 0 2/1/0/6 SELECT 26/0/0 982 [9547] 37616 80 361 2 0 0 0 gLN:2C SR ENTER SUBROUTINE 6/0/0 4948 [9548] 37617 545 27 0 0 0 0/0/2 SELECT 26/0/0 960 [9549] 37618 80 357 2 0 0 0 gTEST LONG/SHORT NO S/R ENTER SUBROUTINE 6/1/0 5304 [9550] 37619 0 61 26 1 0 0 SUSPENDED REF SELECT 0/1/2 5306 [9551] 37620 34 61 28 1 0 0 SUSPENDED ITEM SET (N) IN B 27/1/1 1363 [9552] 37621 75 376 24 0 0 0 JUMP IF AB != 0 6/0/0 4924 [9553] 37622 0 545 3 0 0 0 10/1/0 6 SELECT 24/1/0 988 [9554] 37623 76 361 8 0 0 0 gLN:2C+GNB JUMP unconditional 26/0/0 4729 [9555] 37624 80 535 2 0 0 0 gRESTORE ENTER SUBROUTINE 6/0/0 4936 [9556] 37625 0 545 15 0 0 0 10/1/0 0 SELECT 24/1/0 1306 [9557] 37626 76 373 12 0 0 0 gO/P+GNB JUMP unconditional Start of procedure 377 at location 1366 in chapter 4 [9558] [9558] 37700 PROCR 377 ACTIONS 17 AND 19 [9558] 37701 NOTES RADIX B 27/0/1 1372 [9558] 37702 71 377 8 0 0 0 -IE VARIANT 9 JUMP IF A != 0 6/1/0 5304 [9559] 37703 61 26 1 0 0 SUSPENDED REF SELECT 0/1/2 5306 [9560] 37704 34 61 28 1 0 0 ITEM SET (N) IN B 27/1/1 1356 [9561] 37705 75 376 17 0 0 0 gACTS ON(N) JUMP IF AB != 0 6/0/0 5024 [9562] 37706 546 5 0 0 0 3/1/0/6 SELECT 24/1/0 1355 [9563] 37707 76 376 16 0 0 0 JUMP unconditional 6/0/0 4957 [9564] 37708 545 36 0 0 0 1/0/1 0 SELECT 26/0/0 973 [9565] 37709 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 6/1/0 5304 [9566] 37710 0 61 26 1 0 0 REF SELECT 0/1/2 5306 [9567] 37711 34 61 28 1 0 0 ITEM SET (N) IN B 27/1/0 1380 [9568] 37712 74 377 16 0 0 0 JUMP IF AB == 0 // 27, 1, 0 26/0/0 4729 [9569] 37713 80 535 2 0 0 0 -RESTORE S/R ENTER SUBROUTINE 6/0/0 4929 [9570] 37714 545 8 0 0 0 6/0/0 SELECT 26/0/0 968 [9571] 37715 80 358 2 0 0 0 gCOMPLEX O/P ARITH ENTER SUBROUTINE 6/0/0 4985 [9572] 37716 545 64 0 0 0 18/1/1/0/4119 SELECT 26/0/0 973 [9573] 37717 80 359 2 0 0 0 gO/P ENTER SUBROUTINE Start of procedure 378 at location 1382 in chapter 4 [9574] [9574] 37800 PROCR 378 ACTION 19 [9574] 37801 NOTES RADIX B 6/1/0 5202 [9574] 37802 54 66 6 0 0 8 CLEAR REF, I,D,M BULK CLEAR 28/0/0 5256 [9575] 6/0/0 4938 [9576] 37803 545 17 0 0 0 13/0/0 SELECT 26/0/0 960 [9577] 37804 80 357 2 0 0 0 gTEST SHORT/LONG NO SR ENTER SUBROUTINE 24/1/0 989 [9578] 37805 76 362 2 0 0 0 GNB JUMP unconditional Start of procedure 379 at location 1387 in chapter 4 [9579] [9579] 37900 PROCR 379 GROUP2 [9579] 37901 NOTES RADIX B Source: RayS/Q1000345 2/1/0 5260 [9579] 37902 5 66 10 1 0 0 CLEAR DISC TRANSFER 24/0/1 8158 [9580] 37903 85 381 2 0 0 0 SWITCH R 26/0/1 1389 [9581] 0/0/1 1403 [9582] s 37904 C 379 17 0 0 0 20 0/0/1 1400 [9583] s 37905 C 379 14 0 0 0 21 0/0/1 1400 [9584] s 37906 C 379 14 0 0 0 22 0/0/1 1400 [9585] s 37907 C 379 14 0 0 0 23 0/0/1 1406 [9586] s 37908 C 379 20 0 0 0 24 0/0/1 1400 [9587] s 37909 C 379 14 0 0 0 25 0/0/1 1400 [9588] s 37910 C 379 14 0 0 0 26=MULTIPLY 0/0/1 989 [9589] 37911 C 362 2 0 0 0 27 GNB 0/0/1 989 [9590] 37912 C 362 2 0 0 0 28 GNB 0/0/1 1400 [9591] s 37913 C 379 14 0 0 0 29=DIVIDE 24/0/0 5328 [9592] 37914 124 61 50 0 0 0 VARIANT+1 MODIFY ADDRESS OF NEXT 6/0/0 5001 [9593] 37915 0 545 80 0 0 0 F.P. ACTION SELECT 24/1/0 1306 [9594] 37916 76 373 12 0 0 0 gCOMPLEX O/P+GNB JUMP unconditional 6/0/0 5007 [9595] 37917 0 545 86 0 0 0 21/0/0 DRAIN A* SELECT 26/0/0 1414 [9596] 37918 80 380 2 0 0 0 F.P.S/R ENTER SUBROUTINE 24/1/0 989 [9597] 37919 76 362 2 0 0 0 G.N.B. JUMP unconditional 26/0/0 4720 [9598] 37920 80 534 2 0 0 0 gSUSPEND ENTER SUBROUTINE 6/0/0 5005 [9599] 37921 545 84 0 0 0 21/1/0 SELECT 26/0/0 1414 [9600] 37922 80 380 2 0 0 0 F.P.S/R ENTER SUBROUTINE 26/0/0 4729 [9601] 37923 80 535 2 0 0 0 gRESTORE ENTER SUBROUTINE 6/0/0 5007 [9602] 37924 0 545 86 0 0 0 21/0/0 SELECT 26/0/0 968 [9603] 37925 80 358 2 0 0 0 gCOMPLEX O/P ENTER SUBROUTINE 6/0/0 5006 [9604] 37926 0 545 85 0 0 0 20/0/0 8 SELECT 24/1/0 988 [9605] 37927 76 361 8 0 0 0 gLN:2C+GNB JUMP unconditional Start of procedure 380 at location 1414 in chapter 4 [9606] [9606] 38000 PROCR 380 GROUP 2 S/R [9606] 38001 NOTES RADIX B 0/0/0 0 [9606] 38002 81 380 2 0 0 0 START OF SUBROUTINE 1/1/2 8 [9607] 38003 12 0 0 0 8 SUBTRACT LITERAL 26/0/0 982 [9608] 38004 80 361 2 0 0 0 gLN:2C SR ENTER SUBROUTINE 6/0/0 5003 [9609] 38005 545 82 0 0 0 20/0/0 SELECT 26/0/0 968 [9610] 38006 80 358 2 0 0 0 gCOMPLEX O/P ENTER SUBROUTINE 26/0/1 1414 [9611] 38007 82 380 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 381 at location 1420 in chapter 4 [9612] [9612] 38100 PROCR 381 GROUP 3 SWITCH [9612] 38101 NOTES RADIX B 24/0/1 8158 [9612] 38102 85 381 2 0 0 0 SWITCH R 26/0/1 1421 [9613] 0/0/1 1432 [9614] 38103 C 382 2 0 0 0 30 QTT SHIFT A 0/0/1 1444 [9615] 38104 C 382 14 0 0 0 31 BIT SHIFT A 0/0/1 1432 [9616] 38105 C 382 2 0 0 0 32 QTT SHFT AB 0/0/1 1444 [9617] 38106 C 382 14 0 0 0 33 BIT SHIFT AB 0/0/1 1442 [9618] 38107 C 382 12 0 0 0 34 SELECT TO B 0/0/1 1464 [9619] 38108 C 383 2 0 0 0 35 SET QTTS OF B 0/0/1 1476 [9620] 38109 C 384 2 0 0 0 36 COLLATE 0/0/1 1476 [9621] 38110 C 384 2 0 0 0 37 REPLACE BITS 0/0/1 1479 [9622] 38111 C 385 2 0 0 0 38 ROUND OFF VBLE 0/0/1 1482 [9623] 38112 C 386 2 0 0 0 39 ROUND UP Start of procedure 382 at location 1432 in chapter 4 [9624] [9624] 38200 PROCR 382 GROUP 3 30-33 AND 34 [9624] 38201 NOTES RADIX B 6/1/0 5264 [9624] 38202 66 14 1 0 0 SELECT 27/0/2 1436 [9625] 38203 72 382 6 0 0 0 JUMP IF A >= 0 Source: RayS/Q1000346 1/1/3 4128 [9626] 38204 10 0 0 0 1020 SET NEGATIVE LITERAL SELECT LITERAL 7/1/0 5264 [9627] 38205 4 66 14 1 0 0 POSITIVE AUGMENT 24/0/0 5328 [9628] 38206 124 61 50 0 0 0 MODIFY ADDRESS OF NEXT 6/0/0 4952 [9629] 38207 545 31 0 0 0 18 ACTION SELECT 5/0/0 5264 [9630] 38208 2 66 14 0 0 0 SUBTRACT 2/0/0 5277 [9631] 38209 5 67 3 0 0 0 TRANSFER 26/0/0 4345 [9632] 38210 80 518 2 0 0 0 -O/P ENTER SUBROUTINE 24/1/0 989 [9633] 38211 76 362 2 0 0 0 -GNB JUMP unconditional 6/0/0 4948 [9634] 38212 0 545 27 0 0 0 0/0/2 SELECT 24/1/0 2029 [9635] 38213 76 403 12 0 0 0 gCOMPLEX O/P+GNB JUMP unconditional 6/1/0 5264 [9636] 38214 0 66 14 1 0 0 LITERAL SELECT 27/0/2 1436 [9637] 38215 72 382 6 0 0 0 gTREAT AS ACTIONS 30, 32 JUMP IF A >= 0 18/1/1 4118 [9638] 38216 32 0 0 0 10- SHIFT (AB) BY QUARTETS 1/1/3 0 [9639] 38217 10 0 0 0 0 COMPLEMENT IN B SELECT LITERAL 15/0/0 4914 [9640] 38218 36 544 20 0 0 0 BITS 1 2 COLLATE AND ADD 2/0/0 4345 [9641] 38219 5 518 2 0 0 0 g BIT SHIFTS LEFT REQUIRED TRANSFER 15/0/0 5012 [9642] 38220 36 545 91 0 0 0 BITS 3-8+15 COLLATE AND ADD 15/0/0 5012 [9643] 38221 36 545 91 0 0 0 =(4096+32-N)X4 COLLATE AND ADD 15/0/0 5012 [9644] 38222 36 545 91 0 0 0 COLLATE AND ADD 15/0/0 5012 [9645] 38223 36 545 91 0 0 0 COLLATE AND ADD 18/0/1 4127 [9646] 38224 30 0 0 0 1- DIVIDE COMPLEMENT BY 4 SHIFT (A) BY QUARTETS 2/1/0 5264 [9647] 38225 5 66 14 1 0 0 SET AS ADDRESS FOR QTT RIGHT SHIFT TRANSFER 5/0/0 4345 [9648] 38226 2 518 2 0 0 0 SUBTRACT 27/0/0 1461 [9649] 38227 70 382 31 0 0 0 gNO BITS LEFT JUMP IF A == 0 24/0/0 5328 [9650] 38228 124 61 50 0 0 0 VARIANT +1 MODIFY ADDRESS OF NEXT 4/0/0 4952 [9651] 38229 1 545 31 0 0 0 18/D/3 ADD 26/0/0 973 [9652] 38230 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 1/1/2 1 [9653] 38231 12 0 0 0 1 SUBTRACT LITERAL 7/0/0 5328 [9654] 38232 4 61 50 0 0 0 REDUCE VARIANT AUGMENT 24/1/0 1436 [9655] 38233 76 382 6 0 0 0 gO/P QTT SHIFT RIGHT JUMP unconditional Start of procedure 383 at location 1464 in chapter 4 [9656] [9656] 38300 PROCR 383 ACTION 35 [9656] 38301 NOTES RADIX 6/1/0 5264 [9656] 38302 0 66 14 1 0 0 SELECT 26/0/0 4756 [9657] 38303 80 538 2 0 0 0 gCONVERT TO DEC ENTER SUBROUTINE 2/1/0 5264 [9658] 38304 5 66 14 1 0 0 TRANSFER 0/0/3 0 [9659] 38305 62 0 0 0 0 SET EXCESS CONSTANTS 24/0/2 4832 [9660] 38306 124 542 32 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 5264 [9661] 38307 112 66 14 1 0 0 CONVERT TO BASE 2 CONVERT 27/0/2 1474 [9662] 38308 72 383 12 0 0 0 - JUMP IF A >= 0 2/1/0 5264 [9663] 38309 5 66 14 1 0 0 TRANSFER 5/1/0 5264 [9664] 38310 2 66 14 1 0 0 SUBTRACT 1/1/1 1024 [9665] 38311 11 0 0 0 400 ADD LITERAL 4/0/0 4957 [9666] 38312 1 545 36 0 0 0 1/0/1 ACTION ADD 24/1/0 1439 [9667] 38313 76 382 9 0 0 0 JUMP unconditional Start of procedure 384 at location 1476 in chapter 4 [9668] [9668] 38400 PROCR 384 ACTIONS 36 AND 37 [9668] 38401 NOTES RADIX B 24/0/0 5328 [9668] 38402 124 61 50 0 0 0 VARIANT +1 MODIFY ADDRESS OF NEXT Source: RayS/Q1000347 6/0/0 4951 [9669] 38403 545 30 0 0 0 15 OR 14 SELECT 24/1/0 1306 [9670] 38404 76 373 12 0 0 0 JUMP unconditional Start of procedure 385 at location 1479 in chapter 4 [9671] [9671] 38500 PROCR 385 ACTION 38 [9671] 38501 NOTES RADIX 6/0/0 4960 [9671] 38502 545 39 0 0 0 1/0/2 SELECT 4/1/0 5264 [9672] 38503 1 66 14 1 0 0 LITERAL ADD 24/1/0 1439 [9673] 38504 76 382 9 0 0 0 O/P & GNB JUMP unconditional Start of procedure 386 at location 1482 in chapter 4 [9674] [9674] 38600 PROCR 386 ACTION 39 [9674] 38601 NOTES RADIX 6/0/0 4951 [9674] 38602 545 30 0 0 0 2/1/0 SELECT 26/0/0 982 [9675] 38603 80 361 2 0 0 0 gLN:2C SR ENTER SUBROUTINE 6/0/0 5025 [9676] 38604 546 6 0 0 0 27/1/0/2 SELECT 26/0/0 3940 [9677] 38605 80 498 2 0 0 0 gO/P INT SC ENTER SUBROUTINE 6/0/0 4974 [9678] 38606 545 53 0 0 0 1/1/3/0/1 SELECT 26/0/0 973 [9679] 38607 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 6/0/0 4975 [9680] 38608 0 545 54 0 0 0 4/1/0 0 SELECT 24/1/0 988 [9681] 38609 76 361 8 0 0 0 gLN:2C+GNB JUMP unconditional Start of procedure 387 at location 1490 in chapter 4 [9682] [9682] 38700 PROCR 387 GROUP 4 ACTIONS [9682] 38701 NOTES RADIX 6/0/0 5328 [9682] 38702 61 50 0 0 0 VARIANT + 1 SELECT 1/1/2 4 [9683] 38703 12 0 0 0 4 SUBTRACT LITERAL 27/0/0 1494 [9684] 38704 70 387 6 0 0 0 g43 JUMP IF A == 0 26/0/0 4098 [9685] 38705 80 508 2 0 0 0 0/1/0 0/0/3 S/R ENTER SUBROUTINE 6/0/0 5256 [9686] 38706 0 66 6 0 0 0 FILE ID SELECT 2/0/0 5332 [9687] 38707 5 61 54 0 0 0 TRANSFER 26/0/0 3954 [9688] 38708 80 499 2 0 0 0 gCALC ROUTE PARA ENTER SUBROUTINE 2/0/0 5392 [9689] 38709 5 61 114 0 0 0 TRANSFER 18/1/3 6 [9690] 38710 33 0 0 0 6 ROUTE TYPE SHIFT (AB) BY BITS 3/0/0 5332 [9691] 38711 3 61 54 0 0 0 COPY 1/1/2 7 [9692] 38712 12 0 0 0 7 SUBTRACT LITERAL 27/0/0 1520 [9693] 38713 70 387 32 0 0 0 gRT7 JUMP IF A == 0 1/1/2 4 [9694] 38714 12 0 0 0 4 SUBTRACT LITERAL 27/0/0 1520 [9695] 38715 70 387 32 0 0 0 gRT11 JUMP IF A == 0 1/1/2 4 [9696] 38716 12 0 0 0 4 SUBTRACT LITERAL 27/0/0 1671 [9697] 38717 70 392 19 0 0 0 gRT15 JUMP IF A == 0 1/1/2 5 [9698] 38718 12 0 0 0 5 SUBTRACT LITERAL 27/0/1 1522 [9699] 38719 71 387 34 0 0 0 gNOT 20 JUMP IF A != 0 6/0/0 5328 [9700] 38720 61 50 0 0 0 VARIANT+1 SELECT 1/1/2 1 [9701] 38721 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 1522 [9702] 38722 71 387 34 0 0 0 gNOT 40 JUMP IF A != 0 6/0/0 5258 [9703] 38723 66 8 0 0 0 CONVERT TO BINARY SELECT 26/0/0 4750 [9704] 38724 80 537 2 0 0 0 ENTER SUBROUTINE 2/0/0 5256 [9705] 38725 5 66 6 0 0 0 CLEAR TRANSFER 2/0/0 5258 [9706] 38726 5 66 8 0 0 0 TRANSFER 6/0/0 4987 [9707] 38727 545 66 0 0 0 SELECT 26/0/0 954 [9708] 38728 80 356 2 0 0 0 gCOMPLEX O/P ENTER SUBROUTINE 6/0/0 4993 [9709] 38729 545 72 0 0 0 18/1/1/ 5- SELECT 26/0/0 973 [9710] 38730 80 359 2 0 0 0 ENTER SUBROUTINE 24/1/0 1522 [9711] 38731 76 387 34 0 0 0 gEVERYTHING ELSE JUMP unconditional 1/1/1 8 [9712] 38732 11 0 0 0 8 IF 7 OR 11 SET=8 ADD LITERAL 2/0/0 5332 [9713] 38733 5 61 54 0 0 0 ROUTE TYPE TRANSFER 6/0/3 6056 [9714] 38734 91 4 0 3 0 SELECT 18/0/1 4124 [9715] 38735 30 0 0 0 4- GP CTR OR ZERO SHIFT (A) BY QUARTETS Source: RayS/Q1000348 4/0/0 6053 [9716] 38736 1 91 1 0 0 0 2R ADD 2/0/0 5393 [9717] 38737 5 61 115 0 0 0 TRANSFER 24/0/1 5393 [9718] 38738 124 61 115 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 6057 [9719] 38739 91 5 0 0 0 GP TX AREA PARA SELECT 2/0/0 5393 [9720] 38740 5 61 115 0 0 0 TRANSFER 6/0/0 5328 [9721] 38741 61 50 0 0 0 VARIANT+1 SELECT 18/0/3 5 [9722] 38742 31 0 0 0 5 SHIFT (A) BY BITS 4/0/0 5332 [9723] 38743 1 61 54 0 0 0 ROUTE TYPE ADD 18/0/3 3 [9724] 38744 31 0 0 0 3 SHIFT (A) BY BITS 0/0/2 4926 [9725] 38745 34 545 5 0 0 0 BITS 1-3 SET (N) IN B 15/0/0 5264 [9726] 38746 36 66 14 0 0 0 LITERAL COLLATE AND ADD 18/0/1 2 [9727] 38747 30 0 0 0 2 TO Q3,4,5 SHIFT (A) BY QUARTETS 1/0/0 1881 [9728] 38748 101 398 2 0 0 0 TABLE LOOKUP TABLE LOOK UP 0/1/0 5334 [9729] 38749 100 61 56 1 0 0 COPY REGISTERS 1/1/3 0 [9730] 38750 10 0 0 0 0 SELECT LITERAL 1/0/1 3 [9731] 38751 35 0 0 0 11 Q1,2 PREPARE FOR DIGIT COLLATION 24/0/3 5336 [9732] 38752 124 61 58 0 3 0 MODIFY ADDRESS OF NEXT 15/0/0 0 [9733] 38753 115 0 0 0 0 COLLATE MASTER ROUTE TYPE COLLATE AND ADD 18/1/3 1 [9734] 38754 33 0 0 0 7- B8+B1 SHIFT (AB) BY BITS 18/1/1 4126 [9735] 18/0/1 3 [9736] 38755 30 0 0 0 3 SHIFT (A) BY QUARTETS 18/1/3 6 [9737] 38756 33 0 0 0 6 B8+B19, B2-7+B1-6 SHIFT (AB) BY BITS 2/0/0 5339 [9738] 38757 5 61 61 0 0 0 TRANSFER 18/1/3 1 [9739] 38758 33 0 0 0 1 SHIFT (AB) BY BITS 2/0/0 5338 [9740] 38759 5 61 60 0 0 0 SET SPECIAL IND FOR 'READ RT 10' TRANSFER 6/0/0 8159 [9741] 38760 86 372 2 0 0 0 SELECT SWITCH R 1/1/2 14 [9742] 38761 12 0 0 0 . SUBTRACT LITERAL 27/0/0 2892 [9743] 38762 70 443 4 0 0 0 gCHEQUE-SORTER JUMP IF A == 0 6/0/0 5328 [9744] 38763 61 50 0 0 0 VARIANT+1 SELECT 1/1/2 4 [9745] 38764 12 0 0 0 4 SUBTRACT LITERAL 27/0/1 1659 [9746] 38765 71 392 8 0 0 0 JUMP IF A != 0 26/0/0 4390 [9747] 38766 80 522 2 0 0 0 gNOT ACTION 43 ENTER SUBROUTINE 26/0/0 4098 [9748] 38767 80 508 2 0 0 0 gI/P C-LINE ENTER SUBROUTINE 6/1/0 5257 [9749] 38768 0 66 6 2 0 0 0/1/0 0/0/3 S/R SELECT 26/0/0 4750 [9750] 38769 80 537 2 0 0 0 gTO BIN ENTER SUBROUTINE 2/1/0 5256 [9751] 38770 5 66 6 1 0 0 TRANSFER 6/0/0 5332 [9752] 38771 0 61 54 0 0 0 ROUTE TYPE SELECT 1/1/2 3 [9753] 38772 12 0 0 0 3 SUBTRACT LITERAL 27/0/0 1613 [9754] 38773 70 388 26 0 0 0 gCARD JUMP IF A == 0 1/1/2 1 [9755] 38774 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 1610 [9756] 38775 70 388 23 0 0 0 gGP PRINT JUMP IF A == 0 1/1/2 9 [9757] 38776 12 0 0 0 9 SUBTRACT LITERAL 27/0/0 1650 [9758] 38777 70 391 2 0 0 0 gRT 13 JUMP IF A == 0 1/1/2 5 [9759] 38778 12 0 0 0 5 SUBTRACT LITERAL 27/0/0 1650 [9760] 38779 70 391 2 0 0 0 gRT 18 JUMP IF A == 0 1/1/2 1 [9761] 38780 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 1693 [9762] 38781 71 393 6 0 0 0 gNOT ROUTE 19 JUMP IF A != 0 6/0/0 4929 [9763] 38782 0 545 8 0 0 0 6/0/0 SELECT 4/0/0 5392 [9764] 38783 1 61 114 0 0 0 RTE PARA ADD 26/0/0 948 [9765] 38784 80 355 2 0 0 0 O/P ENTER SUBROUTINE 26/0/0 1641 [9766] 38785 80 390 2 0 0 0 ENTER SUBROUTINE 27/0/0 1581 [9767] 38786 70 387 92 0 0 0 gNO FN WORD BITS SET JUMP IF A == 0 6/0/0 4934 [9768] 38787 0 545 13 0 0 0 2/0/0 SELECT 1/1/1 8 [9769] 38788 101 8 1 1 0 ADD LITERAL ADDRESS 26/0/0 3940 [9770] 38789 80 498 2 0 0 0 O/P ENTER SUBROUTINE 26/0/0 1628 [9771] 38790 80 389 2 0 0 0 ENTER SUBROUTINE 24/1/0 1584 [9772] 38791 76 387 95 0 0 0 JUMP unconditional 6/0/0 4934 [9773] 38792 0 545 13 0 0 0 2/0/0 SELECT 1/1/1 4 [9774] 38793 101 4 1 1 0 ADD LITERAL ADDRESS 26/0/0 3940 [9775] 38794 80 498 2 0 0 0 O/P ENTER SUBROUTINE 6/0/0 6043 [9776] 38795 92 29 0 0 0 NUMBER OD CHAPS SELECT Source: RayS/Q1000349 26/0/0 4035 [9777] 38796 80 504 2 0 0 0 gO/P 24/0/3 BY SPECIAL CHAP START ENTER SUBROUTINE 1/1/3 1001 [9778] 38797 101 1001 1 3 0 SELECT LITERAL ADDRESS 18/0/1 2 [9779] 38798 30 0 0 0 2 REF=1001, PARA=0 SHIFT (A) BY QUARTETS 2/0/0 5276 [9780] 38799 5 67 2 0 0 0 TRANSFER Start of procedure 388 at location 1589 in chapter 4 [9781] [9781] 38800 PROCR 388 43 DEAL WITH G.P. O/P [9781] 38801 NOTES RADIX B SET UP A FOR EDIT 6/0/0 4968 [9781] 38802 0 545 47 0 0 0 26/0/0 SELECT 26/0/0 973 [9782] 38803 80 359 2 0 0 0 g O/P 'ENTER PRINT SR' ENTER SUBROUTINE 6/0/0 5045 [9783] 38804 546 26 0 0 0 24/1/0 5 SELECT 26/0/0 3940 [9784] 38805 80 498 2 0 0 0 g O/P INT SEQ CHANGE ENTER SUBROUTINE 6/0/0 5392 [9785] 38806 61 114 0 0 0 SELECT 2/0/0 5276 [9786] 38807 5 67 2 0 0 0 TRANSFER 26/0/0 973 [9787] 38808 80 359 2 0 0 0 gO/P ROUTE PARA AS A LITERAL ENTER SUBROUTINE 26/0/0 3759 [9788] 38809 80 488 2 0 0 0 SELECT SECTION TX AREA PARA ENTER SUBROUTINE 1/1/1 1 [9789] 38810 11 0 0 0 1 ADD LITERAL 2/0/0 5276 [9790] 38811 5 67 2 0 0 0 TRANSFER 26/0/0 973 [9791] 38812 80 359 2 0 0 0 gO/P ROUTE PARA AS LITYERAL ENTER SUBROUTINE 6/0/0 5393 [9792] 38813 61 115 0 0 0 GP TX AREA PARA SELECT 1/1/1 1 [9793] 38814 11 0 0 0 1 ADD LITERAL 2/0/0 5276 [9794] 38815 5 67 2 0 0 0 TRANSFER 26/0/0 973 [9795] 38816 80 359 2 0 0 0 gO/P AS LITERAL ENTER SUBROUTINE 6/0/0 5286 [9796] 38817 61 8 0 0 0 TX AREA LENGTH (OVERFLOW FROM TX ABOVE PROC SELECT 18/0/3 7 [9797] 38818 118 7 0 3 0 X64 SHIFT BINARY 4/0/0 4934 [9798] 38819 1 545 13 0 0 0 BIT 18 ADD 26/0/0 973 [9799] 38820 80 359 2 0 0 0 *****O/P TOP OF BULK CLEAR CONST ENTER SUBROUTINE 26/0/0 1951 [9800] 38821 80 399 2 0 0 0 gRESTORE ABC ENTER SUBROUTINE 24/1/0 989 [9801] 38822 76 362 2 0 0 0 gGNB JUMP unconditional 26/0/0 1641 [9802] 38823 80 390 2 0 0 0 ENTER SUBROUTINE 27/0/0 1613 [9803] 38824 70 388 26 0 0 0 g NO FN WORD BITS SET JUMP IF A == 0 26/0/0 1628 [9804] 38825 80 389 2 0 0 0 ENTER SUBROUTINE 2/1/0 5260 [9805] 38826 5 66 10 1 0 0 TRANSFER 6/0/0 4987 [9806] 38827 545 66 0 0 0 24/0/2 SELECT 26/0/0 954 [9807] 38828 80 356 2 0 0 0 COMPLEX O/P NON-ARITH ENTER SUBROUTINE 6/0/0 4940 [9808] 38829 0 545 19 0 0 0 24/1/2 SELECT 5/0/0 5393 [9809] 38830 2 61 115 0 0 0 GP TX AREA PARA SUBTRACT 1/1/2 1 [9810] 38831 12 0 0 0 1 SUBTRACT LITERAL 26/0/0 948 [9811] 38832 80 355 2 0 0 0 gO/P ENTER SUBROUTINE 6/0/0 5332 [9812] 38833 61 54 0 0 0 FILE TYPE SELECT 1/1/2 4 [9813] 38834 12 0 0 0 4 SUBTRACT LITERAL 27/0/0 1624 [9814] 38835 70 388 37 0 0 0 gANELEX JUMP IF A == 0 6/0/0 4947 [9815] 38836 0 545 26 0 0 0 BIT 14 SELECT 4/0/0 4988 [9816] 38837 1 545 67 0 0 0 29/0/1 ADD 26/0/0 973 [9817] 38838 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 6/0/0 5393 [9818] 38839 0 61 115 0 0 0 GP TX AREA PARA SELECT 24/1/0 1694 [9819] 38840 76 393 7 0 0 0 JUMP unconditional Start of procedure 389 at location 1628 in chapter 4 [9820] [9820] 38900 PROCR 389 S/R TO SET BITS FOR PRINTING 0/0/0 0 [9820] 38902 81 389 2 0 0 0 START OF SUBROUTINE 6/0/0 4948 [9821] 38903 545 27 0 0 0 0/0/2 SELECT 26/0/0 960 [9822] 38904 80 357 2 0 0 0 gLONG O/P ENTER SUBROUTINE 6/0/0 4929 [9823] 38905 545 8 0 0 0 6/0/0 SELECT 26/0/0 960 [9824] 38906 80 357 2 0 0 0 gLONGOP ENTER SUBROUTINE 26/0/0 4729 [9825] 38907 80 535 2 0 0 0 gRESTORE ENTER SUBROUTINE 1/1/3 1 [9826] 38908 10 0 0 0 1 SELECT LITERAL 2/1/0 5260 [9827] 38909 5 66 10 1 0 0 TRANSFER 6/0/0 4959 [9828] 38910 545 38 0 0 0 SELECT 26/0/0 968 [9829] 38911 80 358 2 0 0 0 COMPLEX OP ARITH ENTER SUBROUTINE 6/1/0 5304 [9830] 38912 61 26 1 0 0 SUSPENDED REF SELECT Source: ChuckK/Q1000350 2/1/0 5256 [9831] 38913 5 66 6 1 0 0 TRANSFER 26/0/1 1628 [9832] 38914 82 389 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 390 at location 1641 in chapter 4 [9833] [9833] 39000 PROCR 390 SET BITS FOR FN WORD 0/0/0 0 [9833] 39002 81 390 2 0 0 0 START OF SUBROUTINE 26/0/0 4720 [9834] 39003 80 534 2 0 0 0 SUSPEND ENTER SUBROUTINE 1/1/2 1 [9835] 39004 12 0 0 0 1 SUBTRACT LITERAL 24/0/1 5286 [9836] 39005 124 61 8 0 1 0 SET BITS OF 64 WORDS (1-4) MODIFY ADDRESS OF NEXT 18/0/3 0 [9837] 39006 31 0 0 0 0 ///// SHIFT (A) BY BITS 1/1/1 16 [9838] 39007 11 0 0 0 10 ADD LITERAL 18/0/1 9 [9839] 39008 30 0 0 0 9 TO Q10 SHIFT (A) BY QUARTETS 3/1/0 5330 [9840] 39009 3 61 52 1 0 0 BITS FOR FN WORD COPY 26/0/1 1641 [9841] 39010 82 390 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 391 at location 1650 in chapter 4 [9842] [9842] 39100 PROCR 391 DEAL WITH 43 FOR 'UPTIME' CARD READER 6/0/0 4948 [9842] 39102 545 27 0 0 0 0/0/2 0 SELECT 26/0/0 982 [9843] 39103 80 361 2 0 0 0 >LN:2C (ORIG(A)>B) ENTER SUBROUTINE 24/1/0 1794 [9844] 39104 76 396 2 0 0 0 JUMP unconditional Start of procedure 392 at location 1653 in chapter 4 [9845] [9845] 39200 PROCR 392 GROUP 4 SWITCH [9845] 39201 NOTES RADIX 0/0/0 0 [9845] 39202 81 392 8 0 0 0 START OF SUBROUTINE 6/0/0 5317 [9846] 39203 61 39 0 0 0 LAST PARA NUMBER SELECT 2/0/0 5276 [9847] 39204 5 67 2 0 0 0 TRANSFER 6/0/0 4943 [9848] 39205 545 22 0 0 0 1/1/3 0 SELECT 26/0/0 973 [9849] 39206 80 359 2 0 0 0 >OUTPUT(SELECT PARA VALUE) ENTER SUBROUTINE 26/0/1 1653 [9850] 39207 82 392 8 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 24/0/1 8158 [9851] 39208 85 381 2 0 0 0 SWITCH R 26/0/1 1660 [9852] 0/0/1 1710 [9853] 39209 C 394 2 0 0 0 40 0/0/1 1794 [9854] 39210 C 396 2 0 0 0 >41 0/0/1 1689 [9855] 39211 C 393 2 0 0 0 42 0/0/1 1689 [9856] 39212 C 393 2 0 0 0 43 0/0/1 1706 [9857] 39213 C 393 19 0 0 0 44 0/0/1 1795 [9858] 39214 C 396 3 0 0 0 45 0/0/1 1767 [9859] 39215 C 394 59 0 0 0 46 0/0/1 1767 [9860] 39216 C 394 59 0 0 0 47 0/0/1 1767 [9861] 39217 C 394 59 0 0 0 >48 0/0/1 1767 [9862] 39218 C 394 59 0 0 0 49 6/0/0 5328 [9863] 39219 61 50 0 0 0 V+1 SELECT 1/1/2 2 [9864] 39220 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 1683 [9865] 39221 70 392 31 0 0 0 >CLOSE JUMP IF A == 0 27/0/2 1689 [9866] 39222 72 393 2 0 0 0 >READ JUMP IF A >= 0 26/0/0 1653 [9867] 39223 80 392 8 0 0 0 >O/P 1/1/3 P ENTER SUBROUTINE 6/0/0 5042 [9868] 39224 546 23 0 0 0 3/0/0 2 SELECT 26/0/0 982 [9869] 39225 80 361 2 0 0 0 >LN:2C ENTER SUBROUTINE 6/0/0 5041 [9870] 39226 546 22 0 0 0 1/1/1 10 SELECT 26/0/0 973 [9871] 39227 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 6/0/0 5027 [9872] 39228 546 8 0 0 0 18/0/0 5 SELECT 26/0/0 973 [9873] 39229 80 359 2 0 0 0 ENTER SUBROUTINE 24/1/0 1710 [9874] 39230 76 394 2 0 0 0 JUMP unconditional 26/0/0 1653 [9875] 39231 80 392 8 0 0 0 ENTER SUBROUTINE 6/0/0 5043 [9876] 39232 546 24 0 0 0 1/1/ 20 SELECT 26/0/0 973 [9877] 39233 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 6/0/0 5027 [9878] 39234 546 8 0 0 0 18/0/0 5 SELECT 26/0/0 973 [9879] 39235 80 359 2 0 0 0 ENTER SUBROUTINE 24/1/0 1794 [9880] 39236 76 396 2 0 0 0 JUMP unconditional Start of procedure 393 at location 1689 in chapter 4 [9881] [9881] 39300 PROCR 393 GROUP 4 [9881] 39301 NOTES RADIX VARIANTS 2 & 3 Source: ChuckK/Q1000351 26/0/0 4390 [9881] 39302 80 522 2 0 0 0 I/P C-LINE ENTER SUBROUTINE 6/1/0 5257 [9882] 39303 66 6 2 0 0 SELECT 26/0/0 4750 [9883] 39304 80 537 2 0 0 0 CONVERT TO BIN ENTER SUBROUTINE 2/0/0 5256 [9884] 39305 5 66 6 0 0 0 TRANSFER 26/0/0 3759 [9885] 39306 80 488 2 0 0 0 >SELECT TX AREA PARA ENTER SUBROUTINE 4/0/0 4948 [9886] 39307 1 545 27 0 0 0 0/0/2 ADD 26/0/0 948 [9887] 39308 80 355 2 0 0 0 >O/P ENTER SUBROUTINE 6/0/0 5332 [9888] 39309 61 54 0 0 0 ROUTE TYPE SELECT 1/1/2 24 [9889] 39310 12 0 0 0 18 SUBTRACT LITERAL 27/0/1 1794 [9890] 39311 71 396 2 0 0 0 >NOT RT 24 JUMP IF A != 0 6/0/0 4976 [9891] 39312 545 55 0 0 0 18/1/1 5 SELECT 26/0/0 973 [9892] 39313 80 359 2 0 0 0 >O/P ZERO REF/PARA ENTER SUBROUTINE 6/0/0 5049 [9893] 39314 546 30 0 0 0 1/1/3 1 SELECT 26/0/0 973 [9894] 39315 80 359 2 0 0 0 >O/P S/R ENTER SUBROUTINE 6/0/0 4993 [9895] 39316 545 72 0 0 0 18/1/1 5- SELECT 26/0/0 973 [9896] 39317 80 359 2 0 0 0 >O/P S/R ENTER SUBROUTINE 24/1/0 1794 [9897] 39318 76 396 2 0 0 0 JUMP unconditional 6/0/0 4948 [9898] 39319 0 545 27 0 0 0 0/0/2 SELECT 26/0/0 982 [9899] 39320 80 361 2 0 0 0 >LN:2C SR ENTER SUBROUTINE 1/1/3 1 [9900] 39321 101 1 1 3 0 (A) NON ZERO SELECT LITERAL ADDRESS 24/1/0 1795 [9901] 39322 76 396 3 0 0 0 JUMP unconditional Start of procedure 394 at location 1710 in chapter 4 [9902] [9902] 39400 PROCR 394 GROUP 4 [9902] 39401 NOTES RADIX B 6/0/0 5332 [9902] 39402 61 54 0 0 0 SELECT 1/1/2 12 [9903] 39403 12 0 0 0 + SUBTRACT LITERAL 27/0/1 1742 [9904] 39404 71 394 34 0 0 0 >NOT AUTOLECTOR JUMP IF A != 0 6/0/0 5339 [9905] 39405 61 61 0 0 0 SELECT 2/0/0 4893 [9906] 39406 5 543 43 0 0 0 TRANSFER 1/0/1 7 [9907] 39407 35 0 0 0 111 PREPARE FOR DIGIT COLLATION 15/0/3 6056 [9908] 39408 36 91 4 0 3 0 ANNEX HALF-LENGTH COLLATE AND ADD 15/0/3 6056 [9909] 39409 36 91 4 0 3 0 COLLATE AND ADD 1/1/2 2 [9910] 39410 12 0 0 0 2 SUBTRACT LITERAL 4/0/0 4934 [9911] 39411 1 545 13 0 0 0 BIT 18 ADD 18/0/1 5 [9912] 39412 30 0 0 0 5 SHIFT (A) BY QUARTETS 2/1/0 5338 [9913] 39413 5 61 60 1 0 0 TRANSFER 1/1/2 64 [9914] 39414 12 0 0 0 40 64- SUBTRACT LITERAL 2/1/0 5330 [9915] 39415 5 61 52 1 0 0 TRANSFER 6/0/0 4929 [9916] 39416 545 8 0 0 0 6/0/0 SELECT 26/0/0 960 [9917] 39417 80 357 2 0 0 0 >SHORT O/P ENTER SUBROUTINE 6/0/0 5392 [9918] 39418 61 114 0 0 0 ROUTE PARA SELECT 4/0/0 4931 [9919] 39419 1 545 10 0 0 0 5/0/0 ADD 26/0/0 948 [9920] 39420 80 355 2 0 0 0 >O/P ENTER SUBROUTINE 6/0/0 5035 [9921] 39421 546 16 0 0 0 2/0/0 6 SELECT 26/0/0 982 [9922] 39422 80 361 2 0 0 0 >LN:2C SR ENTER SUBROUTINE 6/1/0 5338 [9923] 39423 61 60 1 0 0 SELECT 2/1/0 5330 [9924] 39424 5 61 52 1 0 0 TRANSFER 6/0/0 4929 [9925] 39425 545 8 0 0 0 6/0/0 SELECT 26/0/0 960 [9926] 39426 80 357 2 0 0 0 >LONG O/P ENTER SUBROUTINE 6/0/0 5040 [9927] 39427 546 21 0 0 0 24/1/2 6 SELECT 26/0/0 982 [9928] 39428 80 361 2 0 0 0 >LN:2C SR ENTER SUBROUTINE 6/0/0 5122 [9929] 39429 10 0 0 0 +4000- 28/1/1 0 SELECT LITERAL 26/0/0 973 [9930] 39430 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 6/0/0 4893 [9931] 39431 543 43 0 0 0 SELECT 2/0/0 5339 [9932] 39432 5 61 61 0 0 0 TRANSFER 24/1/0 1794 [9933] 39433 76 396 2 0 0 0 JUMP unconditional 1/1/2 8 [9934] 39434 12 0 0 0 8 SUBTRACT LITERAL Source: ChuckK/Q1000352 27/0/0 1794 [9935] 39435 70 396 2 0 0 0 JUMP IF A == 0 6/1/0 5256 [9936] 39436 66 6 1 0 0 FILE IDENTITY R-ALIGNED SELECT 18/0/1 5 [9937] 39437 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 5390 [9938] 39438 1 61 112 0 0 0 PROG ID ADD 2/1/0 5330 [9939] 39439 5 61 52 1 0 0 TRANSFER 26/0/0 1848 [9940] 39440 80 397 2 0 0 0 >TEST C-LINE FOLLOWS ENTER SUBROUTINE 3/0/0 1848 [9941] 39441 3 397 2 0 0 0 COPY 27/0/1 1762 [9942] 39442 71 394 54 0 0 0 >NO JUMP IF A != 0 26/0/0 4720 [9943] 39443 80 534 2 0 0 0 >SUSPEND ENTER SUBROUTINE 6/0/0 5260 [9944] 39444 66 10 0 0 0 C-LINE DISC SELECT 27/0/0 1762 [9945] 39445 70 394 54 0 0 0 >ANOTHER 40 ACTION JUMP IF A == 0 6/1/0 5257 [9946] 39446 66 6 2 0 0 REF SELECT 26/0/0 4750 [9947] 39447 80 537 2 0 0 0 >BIN ENTER SUBROUTINE 2/1/0 5256 [9948] 39448 5 66 6 1 0 0 TRANSFER 1/1/3 1 [9949] 39449 10 0 0 0 1 SELECT LITERAL 2/1/0 5260 [9950] 39450 5 66 10 1 0 0 TRANSFER 6/0/0 4948 [9951] 39451 545 27 0 0 0 0/0/2 SELECT 26/0/0 954 [9952] 39452 80 356 2 0 0 0 >COMPLEX O/P NON-ARITH ENTER SUBROUTINE 24/1/0 1794 [9953] 39453 76 396 2 0 0 0 >GET NEXT LINE JUMP unconditional 6/0/0 4948 [9954] 39454 545 27 0 0 0 0/0/2 SELECT 26/0/0 960 [9955] 39455 80 357 2 0 0 0 >LONG NUMBER O/P ENTER SUBROUTINE 6/0/0 1848 [9956] 39456 397 2 0 0 0 INDICATOR SELECT 27/0/1 1812 [9957] 39457 71 396 20 0 0 0 JUMP IF A != 0 24/1/0 1798 [9958] 39458 76 396 6 0 0 0 JUMP unconditional 26/0/0 4390 [9959] 39459 80 522 2 0 0 0 IP C-LINE ENTER SUBROUTINE 6/1/0 5257 [9960] 39460 66 6 2 0 0 SELECT 26/0/0 4750 [9961] 39461 80 537 2 0 0 0 CONVERT ENTER SUBROUTINE 3/1/0 5256 [9962] 39462 3 66 6 1 0 0 COPY 27/0/1 1779 [9963] 39463 71 395 2 0 0 0 JUMP IF A != 0 6/1/0 5306 [9964] 39464 0 61 28 1 0 0 SUSPENDED ITEM SELECT 18/0/1 5 [9965] 39465 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/1/0 5264 [9966] 39466 1 66 14 1 0 0 ADD 2/1/0 5330 [9967] 39467 5 61 52 1 0 0 TRANSFER 6/0/0 4948 [9968] 39468 545 27 0 0 0 0/0/2 SELECT 26/0/0 960 [9969] 39469 80 357 2 0 0 0 >LONG NO O/P ENTER SUBROUTINE 24/1/0 1794 [9970] 39470 76 396 2 0 0 0 -SET UP A JUMP unconditional Start of procedure 395 at location 1779 in chapter 4 [9971] [9971] 39500 PROCR 395 GROUP 4 [9971] 39501 NOTES RADIX VARIANTS 6,7,8,9 6/0/0 5328 [9971] 39502 61 50 0 0 0 SELECT 1/1/2 9 [9972] 39503 12 0 0 0 9 SUBTRACT LITERAL 27/0/3 1785 [9973] 39504 73 395 8 0 0 0 JUMP IF A < 0 6/0/0 4948 [9974] 39505 545 27 0 0 0 0/0/2 SELECT 26/0/0 954 [9975] 39506 80 356 2 0 0 0 >COMPLEX O/P NON-ARITH ENTER SUBROUTINE 24/1/0 1794 [9976] 39507 76 396 2 0 0 0 JUMP unconditional 6/0/0 4929 [9977] 39508 545 8 0 0 0 6/0/0 SELECT 26/0/0 968 [9978] 39509 80 358 2 0 0 0 >COMPLEX O/P ARITH ENTER SUBROUTINE 6/1/0 5306 [9979] 39510 61 28 1 0 0 SUSPENDED ITEM SELECT 18/0/1 5 [9980] 39511 30 0 0 0 5 SHIFT (A) BY QUARTETS 2/1/0 5330 [9981] 39512 5 61 52 1 0 0 TRANSFER 6/0/0 4930 [9982] 39513 545 9 0 0 0 4/0/0 SELECT 26/0/0 960 [9983] 39514 80 357 2 0 0 0 >LONG NO O/P ENTER SUBROUTINE 6/0/0 4983 [9984] 39515 545 62 0 0 0 18/1/1/0/10 SELECT 26/0/0 973 [9985] 39516 80 359 2 0 0 0 >O/P ENTER SUBROUTINE Start of procedure 396 at location 1794 in chapter 4 [9986] [9986] 39600 PROCR 396 SET UP A Source: TonyJ/Q1000353 [9986] 39601 NOTES RADIX B 26/0/0 1848 [9986] 39602 80 397 2 0 0 0 > TEST C-LINE FOLLOWS SR ENTER SUBROUTINE 3/0/0 1848 [9987] 39603 3 397 2 0 0 0 STORE IND COPY 27/0/1 1812 [9988] 39604 71 396 20 0 0 0 > NO C-LINE JUMP IF A != 0 26/0/0 4720 [9989] 39605 80 534 2 0 0 0 > SUSPEND C-LINE ENTER SUBROUTINE 6/0/0 5328 [9990] 39606 0 61 50 0 0 0 V + 1 SELECT 1/1/2 3 [9991] 39607 12 0 0 0 3 SUBTRACT LITERAL 27/0/3 1812 [9992] 39608 73 396 20 0 0 0 > ACTIONS 40, 41 NOT 42, 43 JUMP IF A < 0 6/0/0 4976 [9993] 39609 0 545 55 0 0 0 18//1/1/5 SELECT 26/0/0 973 [9994] 39610 80 359 2 0 0 0 > O/P ENTER SUBROUTINE 6/1/0 5257 [9995] 39611 0 66 6 2 0 0 REP (UNCONVERTED FOR GROUP 4) SELECT 26/0/0 4750 [9996] 39612 80 537 2 0 0 0 > CONVERT ENTER SUBROUTINE 2/1/0 5256 [9997] 39613 5 66 6 1 0 0 TRANSFER 2/1/0 5258 [9998] 39614 5 66 8 1 0 0 CLEAR ITEM TRANSFER 6/0/0 4987 [9999] 39615 0 545 66 0 0 0 24/0/2 SELECT 26/0/0 954 [10000] 39616 80 356 2 0 0 0 > COMPLEX O/P NON-A ENTER SUBROUTINE 6/0/0 4993 [10001] 39617 545 72 0 0 0 18/1/1 5- SELECT 26/0/0 973 [10002] 39618 80 359 2 0 0 0 > O/P ENTER SUBROUTINE 26/0/0 1848 [10003] 39619 80 397 2 0 0 0 > I/P, SET 380/2 NONZERO ENTER SUBROUTINE 6/0/0 5332 [10004] 39620 61 54 0 0 0 ROUTE TYPE SELECT 1/1/2 15 [10005] 39621 12 0 0 0 £ SUBTRACT LITERAL 27/0/1 1822 [10006] 39622 71 396 30 0 0 0 > OTHER THAN RT 15 JUMP IF A != 0 6/0/0 5328 [10007] 39623 61 50 0 0 0 V + 1 SELECT 1/1/2 3 [10008] 39624 12 0 0 0 3 SUBTRACT LITERAL 27/0/1 1836 [10009] 39625 71 396 44 0 0 0 > NOT 42 ACTION JUMP IF A != 0 26/0/0 1653 [10010] 39626 80 392 2 0 0 0 > O/P 1/1/3 R ENTER SUBROUTINE 6/0/0 5027 [10011] 39627 0 546 8 0 0 0 18/0/0 5 SELECT 26/0/0 973 [10012] 39628 80 359 2 0 0 0 > O/P ENTER SUBROUTINE 24/1/0 1836 [10013] 39629 76 396 44 0 0 0 JUMP unconditional 6/0/0 5332 [10014] 39630 61 54 0 0 0 ROUTE TYPE SELECT 1/1/2 2 [10015] 39631 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 1827 [10016] 39632 70 396 35 0 0 0 JUMP IF A == 0 1/1/2 1 [10017] 39633 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 1832 [10018] 39634 71 396 40 0 0 0 > NOT RT 2 OR 3 JUMP IF A != 0 6/0/0 5328 [10019] 39635 61 50 0 0 0 V + 1 SELECT 1/1/2 2 [10020] 39636 12 0 0 0 2 ACTION 41 SUBTRACT LITERAL 27/0/1 1832 [10021] 39637 71 396 40 0 0 0 > NO JUMP IF A != 0 6/0/0 4948 [10022] 39638 545 27 0 0 0 0/0/2 SELECT 26/0/0 948 [10023] 39639 80 355 2 0 0 0 > ZERO REF;PARA=2CNO ENTER SUBROUTINE 6/1/0 5338 [10024] 39640 61 60 1 0 0 SELECT 2/1/0 5330 [10025] 39641 5 61 52 1 0 0 (61/52 IS CLEARED) TRANSFER 6/0/0 4929 [10026] 39642 545 8 0 0 0 6/0/0 SELECT 26/0/0 960 [10027] 39643 80 357 2 0 0 0 > LONG NO O/P ENTER SUBROUTINE 6/0/0 5392 [10028] 39644 0 61 114 0 0 0 ROUTE PARA SELECT 4/0/0 4930 [10029] 39645 1 545 9 0 0 0 4/0/0 ADD Source: TonyJ/Q1000354 26/0/0 948 [10030] 39646 80 355 2 0 0 0 > O/P ENTER SUBROUTINE 26/0/0 3141 [10031] 39647 80 453 2 0 0 0 > O/P 25/1/1 4096 > 24/0/3 0 ENTER SUBROUTINE 1/1/3 256 [10032] 39648 10 0 0 0 100 SELECT LITERAL 2/0/0 5275 [10033] 39649 5 67 1 0 0 0 TRANSFER 6/0/0 4981 [10034] 39650 545 60 0 0 0 23/0/2 SELECT 26/0/0 973 [10035] 39651 80 359 2 0 0 0 > O/P ENTER SUBROUTINE 6/0/0 1848 [10036] 39652 0 397 2 0 0 0 C LINE FOLLOWS ? SELECT 27/0/1 1859 [10037] 39653 71 397 12 0 0 0 > NO JUMP IF A != 0 26/0/0 4729 [10038] 39654 80 535 2 0 0 0 > RESTORE C LINE ENTER SUBROUTINE 24/1/0 1494 [10039] 39655 76 387 6 0 0 0 > ASSUME 40/41/44 ACTION. TRANSLATE C-LINE JUMP unconditional Start of procedure 397 at location 1848 in chapter 4 [10040] [10040] 39700 PROCR 397 397 TEST CONTINUATION LINE [10040] 39701 NOTES RADIX B 0/0/0 0 [10040] 39702 81 397 2 0 0 0 START OF SUBROUTINE 26/0/0 4111 [10041] 39703 80 509 2 0 0 0 ENTER SUBROUTINE 24/0/3 8190 [10042] 39704 7 0 12 0 TOP OF L-ALIGNED ACTION SELECT 6/0/0 7 [10043] 5/0/0 4827 [10044] 39705 2 542 27 0 0 0 SUBTRACT 27/0/1 1858 [10045] 39706 71 397 11 0 0 0 > EXIT WITH A NONZERO IF NOT C-LINE JUMP IF A != 0 1/1/3 1 [10046] 39707 10 0 0 0 1 SELECT LITERAL 2/0/0 5377 [10047] 39708 5 61 99 0 0 0 NON I/P IND TRANSFER 26/0/0 4390 [10048] 39709 80 522 2 0 0 0 C-LINE S/R ENTER SUBROUTINE 1/1/3 0 [10049] 39710 10 0 0 0 0 EXIT WITH A ZERO IF C-LINE SELECT LITERAL 26/0/1 1848 [10050] 39711 82 397 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 6/0/0 5328 [10051] 39712 0 61 50 0 0 0 V + 1 SELECT 1/1/2 1 [10052] 39713 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 1868 [10053] 39714 71 397 21 0 0 0 > NOT ACTION 40 JUMP IF A != 0 6/0/0 5332 [10054] 39715 61 54 0 0 0 SELECT 1/1/2 15 [10055] 39716 12 0 0 0 £ SUBTRACT LITERAL 27/0/1 1874 [10056] 39717 71 397 27 0 0 0 > 40 BUT NOT RT 15 JUMP IF A != 0 6/0/0 5044 [10057] 39718 546 25 0 0 0 0/0/2 2 SELECT 26/0/0 982 [10058] 39719 80 361 2 0 0 0 > LN : 2C ENTER SUBROUTINE 24/1/0 1874 [10059] 39720 76 397 27 0 0 JUMP unconditional 1/1/2 4 [10060] 39721 12 0 0 0 4 SUBTRACT LITERAL 27/0/0 1874 [10061] 39722 70 397 27 0 0 0 > ACTION 44 JUMP IF A == 0 1/1/2 1 [10062] 39723 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 1879 [10063] 39724 70 397 32 0 0 0 > 45 JUMP IF A == 0 26/0/0 1951 [10064] 39725 80 399 2 0 0 0 > RESTORE ABC ENTER SUBROUTINE 24/1/0 990 [10065] 39726 76 362 3 0 0 0 > GNB (NON-INPUT) JUMP unconditional 26/0/0 2073 [10066] 39727 80 405 2 0 0 0 > RESTORE C ENTER SUBROUTINE 6/0/0 5328 [10067] 39728 61 50 0 0 0 VARIANT +1 SELECT 1/1/2 1 [10068] 39729 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 990 [10069] 39730 70 362 3 0 0 0 > 40 ACTION JUMP IF A == 0 24/1/0 989 [10070] 39731 76 362 2 0 0 0 READ NEXT BLOCK JUMP unconditional 26/0/0 1951 [10071] 39732 80 399 2 0 0 0 RESTORE ABC ENTER SUBROUTINE 24/1/0 989 [10072] 39733 76 362 2 0 0 0 JUMP unconditional Start of procedure 398 at location 1881 in chapter 4 [10073] [10073] 39800 CONST 398 0 1/0/0 3862 [10073] 39802 (B4)1(B5)1(B3)7(B7)11(B1)0; B17-20=VARIANT+1 +10F16 1/0/0 7962 [10074] 39803 1,3,7,13,0; B12-16=INTERCODE R,TYPE +11F1A 1/0/1 1820 [10075] 39804 1,4,7,14,0; B9-11=LITERAL +1271C 1/0/1 3870 [10076] 39805 1,5,7,15,0; B2-8=MASTER R,TYPE +12F1E 1/0/1 5920 [10077] 39806 1,6,7,16,0; B1 =NON-STD CARD I/P +13720 1/0/2 36 [10078] 39807 1,8,0,18,0; B8=IND FOR Q5 MASTER RT +14024 1/0/2 1826 [10079] 39808 1,8,7,17,0; +14722 1/0/2 3878 [10080] 39809 1,9,7,19,0; +14F26 1/0/2 5920 [10081] 39810 1,10,7,16,0; +15720 1/0/3 1832 [10082] 39811 1,12,7,20,0; +16728 1/0/3 3872 [10083] 39812 1,13,7,16,0; +16F20 Source: RayS/Q1000355 1/1/0 1942 [10084] 39813 1,16,7,75,0; OPEN RT 16 +18796 1/1/0 5920 [10085] 39814 1,18,7,16,0; +19720 1/1/0 7974 [10086] 39815 1,19,7,19,0; OPEN RT 19 +19F26 1/1/1 1898 [10087] 39816 1,20,7,53,0; DT +1A76A 1/1/1 6006 [10088] 39817 1,22,7,59,0; DATA LINK +1B776 1/1/2 3950 [10089] 39818 1,25,7,55,0; +1CF6E 2/0/0 3882 [10090] 39819 2,1,7,21,0; +20F2A 2/0/0 7982 [10091] 39820 2,3,7,23,0; +21F2E 2/0/1 1840 [10092] 39821 2,4,7,24,0; +22730 2/0/1 3890 [10093] 39822 2,5,7,25,0; +22F32 2/0/1 5940 [10094] 39823 2,6,7,26,0; +23734 2/0/2 56 [10095] 39824 2,8,0,28,0; +24038 2/0/2 310 [10096] 39825 2,8,1,27,0; +24136 2/0/2 602 [10097] 39826 2,8,2,45,0; +2425A 2/0/2 1884 [10098] 39827 2,8,7,46,0; +2475C 2/0/2 3898 [10099] 39828 2,9,7,29,0; +24F3A 2/0/2 5940 [10100] 39829 2,10,7,26,0; +25734 2/0/3 1852 [10101] 39830 2,12,7,30,0; +2673C 2/0/3 3892 [10102] 39831 2,13,7,26,0; +26F34 2/1/0 1962 [10103] 39832 2,16,7,85,0; CLOSE RT 16 +287AA 2/1/0 5940 [10104] 39833 2,18,7,26,0; +29734 2/1/0 7994 [10105] 39834 2,19,7,29,0; CLOSE RT 19 +29F3A 2/1/2 3952 [10106] 39835 2,25,7,56,0; +2CF70 3/0/1 3850 [10107] 39836 3,5,7,5,0; +32F0A 3/0/1 5900 [10108] 39837 3,6,7,6,0; +3370C 3/0/2 1806 [10109] 39838 3,8,7,7,0; +3470E 3/0/2 5901 [10110] 39839 3,10,7,6,1; +3570D 3/0/3 1812 [10111] 39840 3,12,7,10,0; +36714 3/0/3 3852 [10112] 39841 3,13,7,6,0; +36F0C 3/1/0 3944 [10113] 39842 3,17,7,52,0; ACTION 132 +38F68 3/1/0 5901 [10114] 39843 3,18,7,6,1; +3970D 3/1/1 1900 [10115] 39844 3,20,7,54,0; DT +3A76C 3/1/2 1802 [10116] 39845 3,24,7,5,0; 8 HOLE PT +3C70A 4/0/0 3842 [10117] 39846 4,1,7,1,0; +40F02 4/0/0 7942 [10118] 39847 4,3,7,3,0; +41F06 4/0/1 1800 [10119] 39848 4,4,7,4,0; +42708 4/0/2 1808 [10120] 39849 4,8,7,8,0; +44710 4/0/2 3858 [10121] 39850 4,9,7,9,0; +44F12 4/0/3 3938 [10122] 39851 4,13,7,49,0; +46F62 4/1/0 1922 [10123] 39852 4,16,7,65,0; WRITE RT 16 +48782 4/1/0 3940 [10124] 39853 4,17,7,50,0; ACTION 133 +48F64 4/1/0 5986 [10125] 39854 4,18,7,49,0; +49762 4/1/1 6004 [10126] 39855 4,22,7,58,0; +4B774 5/0/1 3936 [10127] 39856 5,5,7,48,0; +52F60 5/0/2 606 [10128] 39857 5,8,2,47,0; +5425E 5/0/2 1888 [10129] 39858 5,8,7,48,0; +54760 5/1/0 3942 [10130] 39859 5,17,7,51,0; ACTION 134 +58F66 5/1/2 3954 [10131] 39860 5,25,7,57,0; +5CF72 6/0/2 66 [10132] 39861 6,8,0,33,0; +64042 6/0/2 1860 [10133] 39862 6,8,7,34,0; +64744 7/0/2 70 [10134] 39863 7,8,0,35,0; +74046 7/0/2 1864 [10135] 39864 7,8,7,36,0; +74748 8/0/2 1866 [10136] 39865 8,8,7,37,0; +8474A 9/0/2 78 [10137] 39866 9,8,0,39,0; +9404E 9/0/2 336 [10138] 39867 9,8,1,40,0; +94150 9/0/2 598 [10139] 39868 9,8,2,43,0; +94256 9/0/2 1880 [10140] 39869 9,8,7,44,0; +94758 10/0/2 82 [10141] 39870 10,8,0,41,0; +A4052 10/0/2 1876 [10142] 39871 10,8,7,42,0; +A4754 Source: RayS/Q1000356 Start of procedure 399 at location 1951 in chapter 4 [10143] [10143] 39900 PROCR 399 0/1/1 S/R [10143] 39901 NOTES RADIX B 0/0/0 0 [10143] 39902 81 399 2 0 0 0 START OF SUBROUTINE 6/0/0 5303 [10144] 39903 61 25 0 0 0 SET BINARY INDICATOR SELECT 1/1/2 1 [10145] 39904 12 0 0 0 1 SUBTRACT LITERAL 3/0/0 5303 [10146] 39905 3 61 25 0 0 0 COPY 27/0/0 1957 [10147] 39906 70 399 8 0 0 0 JUMP IF A == 0 1/1/3 8 [10148] 39907 10 0 0 0 8 SELECT LITERAL 4/0/0 4942 [10149] 39908 1 545 21 0 0 0 0/1/1 ADD 26/0/0 982 [10150] 39909 80 361 2 0 0 0 gLN:2C SR ENTER SUBROUTINE 26/0/1 1951 [10151] 39910 82 399 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 400 at location 1960 in chapter 4 [10152] [10152] 40000 PROCR 400 GROUP 5 SWITCH [10152] 40001 NOTES RADIX B 24/0/1 8158 [10152] 40002 85 381 2 0 0 0 SWITCH R 26/0/1 1961 [10153] 0/0/1 1974 [10154] 40003 C 401 4 0 0 0 50 0/0/1 1972 [10155] 40004 C 401 2 0 0 0 51 0/0/1 1974 [10156] 40005 C 401 4 0 0 0 52 0/0/1 1973 [10157] 40006 C 401 3 0 0 0 53 0/0/1 2000 [10158] 40007 C 402 2 0 0 0 54 0/0/1 2031 [10159] 40008 C 404 2 0 0 0 55 0/0/1 2109 [10160] 40009 C 408 2 0 0 0 56 0/0/1 2130 [10161] 40010 C 409 2 0 0 0 57 0/0/1 2139 [10162] 40011 C 409 11 0 0 0 58=MERGE VARIABLE 0/0/1 2142 [10163] 40012 C 410 2 0 0 0 59 Start of procedure 401 at location 1972 in chapter 4 [10164] [10164] 40100 PROCR 401 ACTIONS 50-53 [10164] 40101 NOTES RADIX B 1/1/3 1 [10164] 40102 10 0 0 0 1 SELECT LITERAL 1/1/1 1 [10165] 40103 11 0 0 0 1 ADD LITERAL 2/0/0 5362 [10166] 40104 5 61 84 0 0 0 -INDIC TRANSFER 2/1/0 5260 [10167] 40105 5 66 10 1 0 0 CLEAR FIRST LINE DISC TRANSFER 26/0/0 4390 [10168] 40106 80 522 2 0 0 0 - I/P C-LINE ENTER SUBROUTINE 1/1/3 0 [10169] 40107 10 0 0 0 0 SELECT LITERAL 2/1/0 5260 [10170] 40108 5 66 10 1 0 0 TRANSFER 6/0/0 4987 [10171] 40109 545 66 0 0 0 24/0/2 SELECT 26/0/0 954 [10172] 40110 80 356 2 0 0 0 gCOMPLEX O/P NON-A ENTER SUBROUTINE 26/0/0 4729 [10173] 40111 80 535 2 0 0 0 -REPLACE ENTER SUBROUTINE 24/0/0 5328 [10174] 40112 124 61 50 0 0 0 VARIANT+1 MODIFY ADDRESS OF NEXT 6/0/0 4988 [10175] 40113 545 67 0 0 0 SELECT 26/0/0 954 [10176] 40114 80 356 2 0 0 0 gCOMPLEX O/P NON-A ENTER SUBROUTINE 6/0/0 5362 [10177] 40115 61 84 0 0 0 SELECT 27/0/0 989 [10178] 40116 70 362 2 0 0 0 -GNB JUMP IF A == 0 1/1/2 1 [10179] 40117 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 1993 [10180] 40118 70 401 23 0 0 0 gACTION 53 JUMP IF A == 0 26/0/0 4098 [10181] 40119 80 508 2 0 0 0 ENTER SUBROUTINE 6/0/0 5026 [10182] 40120 546 7 0 0 0 1/1/1/2 SELECT 26/0/0 973 [10183] 40121 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 26/0/0 2073 [10184] 40122 80 405 2 0 0 0 RESTORE C ENTER SUBROUTINE 6/0/0 5304 [10185] 40123 0 61 26 0 0 0 SUSPENDED REF SELECT 1/1/2 100 [10186] 40124 12 0 0 0 64 100 SUBTRACT LITERAL 27/0/2 989 [10187] 40125 72 362 2 0 0 0 gGNB (NO +CTR) JUMP IF A >= 0 26/0/0 4729 [10188] 40126 80 535 2 0 0 0 RESTORE S/R ENTER SUBROUTINE 6/0/0 4932 [10189] 40127 0 545 11 0 0 0 3/0/0 SELECT 26/0/0 3997 [10190] 40128 80 502 2 0 0 0 g'ITEM+' SR ENTER SUBROUTINE 24/1/0 989 [10191] 40129 76 362 2 0 0 0 gGNB (NO +CTR) JUMP unconditional Start of procedure 402 at location 2000 in chapter 4 [10192] [10192] 40200 PROCR 402 0 0 0 BULK CLEAR [10192] 40201 NOTES RADIX B ACTION 54 Source: TonyJ/Q1000357 26/0/0 4720 [10192] 40202 80 534 2 0 0 0 > SUSPEND FIRST LINEO/P ENTER SUBROUTINE 6/1/0 5264 [10193] 40203 66 14 1 0 0 LITERAL SELECT 27/0/0 2006 [10194] 40204 70 402 8 0 0 0 > LITERAL ZERO JUMP IF A == 0 4/0/0 4934 [10195] 40205 1 545 13 0 0 0 BIT 18 ADD 18/0/1 5 [10196] 40206 30 0 0 0 5 SHIFT (A) BY QUARTETS 24/1/0 2010 [10197] 40207 76 402 12 0 0 0 JUMP unconditional 26/0/0 4384 [10198] 40208 80 521 2 0 0 0 - I/P INST ENTER SUBROUTINE 26/0/0 4098 [10199] 40209 80 508 2 0 0 0 0/1/0 0/0/3 S/R ENTER SUBROUTINE 26/0/0 2081 [10200] 40210 80 406 2 0 0 0 - SECOND SUSPEND S/R ENTER SUBROUTINE 6/0/0 4934 [10201] 40211 545 13 0 0 0 BIT 18 SELECT 2/1/0 5330 [10202] 40212 5 61 52 1 0 0 TRANSFER 6/0/0 4929 [10203] 40213 545 8 0 0 0 6/0/0 SELECT 26/0/0 960 [10204] 40214 80 357 2 0 0 0 > SHORT NO O/P ENTER SUBROUTINE 6/1/0 5264 [10205] 40215 66 14 1 0 0 LITERAL SELECT 27/0/1 2021 [10206] 40216 71 403 4 0 0 0 > NO CONT LINE JUMP IF A != 0 26/0/0 2095 [10207] 40217 80 407 2 0 0 0 > SECOND RESTORE S/R ENTER SUBROUTINE 6/0/0 4930 [10208] 40218 545 9 0 0 0 SELECT 26/0/0 968 [10209] 40219 80 358 2 0 0 0 > COMPLEX O/P ARITH ENTER SUBROUTINE 26/0/0 2073 [10210] 40220 80 405 2 0 0 0 RESTORE C S/R ENTER SUBROUTINE Start of procedure 403 at location 2019 in chapter 4 [10211] [10211] 40300 PROCR 403 403 BULK CLEAR [10211] 40301 NOTES RADIX B 6/0/0 5027 [10211] 40302 546 8 0 0 0 18/0/1/5 SELECT 26/0/0 973 [10212] 40303 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 26/0/0 4729 [10213] 40304 80 535 2 0 0 0 - RESTORE S/R ENTER SUBROUTINE 6/0/0 5260 [10214] 40305 66 10 0 0 0 FIRST LINE DISC SELECT 27/0/0 2028 [10215] 40306 70 403 11 0 0 0 JUMP IF A == 0 1/1/3 0 [10216] 40307 10 0 0 0 0 SELECT LITERAL 2/1/0 5260 [10217] 40308 5 66 10 1 0 0 CLEAR DISC TRANSFER 6/0/0 5048 [10218] 40309 546 29 0 0 0 28/1/1 SELECT 24/1/0 2029 [10219] 40310 76 403 12 0 0 0 JUMP unconditional 6/0/0 4986 [10220] 40311 545 65 0 0 0 28/0/0 SELECT 26/0/0 954 [10221] 40312 80 356 2 0 0 0 > COMPLEX O/P NON-A ENTER SUBROUTINE 24/1/0 989 [10222] 40313 76 362 2 0 0 0 > GNB JUMP unconditional Start of procedure 404 at location 2031 in chapter 4 [10223] [10223] 40400 PROCR 404 404 BULK COPY [10223] 40401 NOTES RADIX B 6/1/0 5264 [10223] 40402 66 14 1 0 0 LITERAL SELECT 2/0/0 5391 [10224] 40403 5 61 113 0 0 0 W/L TRANSFER Query: WHICH INCLUDES A SUS 26/0/0 4390 [10225] 40404 80 522 2 0 0 0 I/P C-LINE ENTER SUBROUTINE 26/0/0 2081 [10226] 40405 80 406 2 0 0 0 SECOND SUSPEND C/R ENTER SUBROUTINE 6/0/0 5340 [10227] 40406 0 61 62 0 0 0 SELECT 27/0/0 2039 [10228] 40407 70 404 10 0 0 0 > SHORT BEST JUMP IF A == 0 1/1/3 1 [10229] 40408 10 0 0 0 1 READ NEXT BLOCK SELECT LITERAL 2/0/0 5340 [10230] 40409 5 61 62 0 0 0 TRANSFER 6/0/0 5308 [10231] 40410 61 30 0 0 0 DISC. FIRST LINE SELECT 27/0/0 2045 [10232] 40411 70 404 16 0 0 0 > SHORT SOURCE JUMP IF A == 0 1/1/3 1 [10233] 40412 10 0 0 0 1 SELECT LITERAL 3/0/0 5308 [10234] 40413 3 61 30 0 0 0 COPY 5/0/0 5340 [10235] 40414 2 61 62 0 0 0 SUBTRACT 7/1/0 5306 [10236] 40415 4 61 28 1 0 0 AUG BY 0 OR 1 AUGMENT 26/0/0 4729 [10237] 40416 80 535 2 0 0 0 RESTORE FIRST LINE ENTER SUBROUTINE 2/1/0 5260 [10238] 40417 5 66 10 1 0 0 DISC TRANSFER 6/0/0 4987 [10239] 40418 545 66 0 0 0 24/0/2 SELECT 26/0/0 954 [10240] 40419 80 356 2 0 0 0 > COMPLEX O/P NON-A ENTER SUBROUTINE 6/0/0 4993 [10241] 40420 545 72 0 0 0 18/1/15- SELECT Source: TonyJ/Q1000358 26/0/0 973 [10242] 40421 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 6/0/0 5391 [10243] 40422 61 113 0 0 0 FIRST LINE LITERAL SELECT 27/0/1 2057 [10244] 40423 71 404 28 0 0 0 JUMP IF A != 0 26/0/0 4384 [10245] 40424 80 521 2 0 0 0 I/P INSTRUCTION ENTER SUBROUTINE 6/0/0 4929 [10246] 40425 545 8 0 0 0 6/0/0 SELECT 26/0/0 968 [10247] 40426 80 358 2 0 0 0 > COMPLEX O/P ARITH ENTER SUBROUTINE 24/1/0 2059 [10248] 40427 76 404 30 0 0 0 JUMP unconditional 4/0/0 4943 [10249] 40428 1 545 22 0 0 0 1/1/3 ADD 26/0/0 973 [10250] 40429 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 6/0/0 4976 [10251] 40430 545 55 0 0 0 18/1/1/0/5 SELECT 26/0/0 973 [10252] 40431 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 26/0/0 2095 [10253] 40432 80 407 2 0 0 0 SECOND RESTORE S/R ENTER SUBROUTINE 6/0/0 5308 [10254] 40433 61 30 0 0 0 1ST LINE DISC SELECT 3/0/0 5260 [10255] 40434 3 66 10 0 0 0 COPY 27/0/1 2069 [10256] 40435 71 404 40 0 0 0 JUMP IF A != 0 6/0/0 5340 [10257] 40436 0 61 62 0 0 0 DISC (2ND LINE) SELECT 27/0/0 2069 [10258] 40437 70 404 40 0 0 0 JUMP IF A == 0 1/1/3 1 [10259] 40438 10 0 0 0 1 SELECT LITERAL 7/1/0 5258 [10260] 40439 4 66 8 1 0 0 ITEM AUGMENT 6/0/0 4986 [10261] 40440 545 65 0 0 0 28/0/0 SELECT 24/0/0 5340 [10262] 40441 124 61 62 0 0 0 C-LINE DISC MODIFY ADDRESS OF NEXT 5/0/0 4946 [10263] 40442 2 545 25 0 0 0 SUBTRACT 24/1/0 2029 [10264] 40443 76 403 12 0 0 0 > COMPLEX O/P > GNB JUMP unconditional Start of procedure 405 at location 2073 in chapter 4 [10265] [10265] 40500 PROCR 405 405 RESTORE C S/R [10265] 40501 NOTES RADIX B B 0/0/0 0 [10265] 40502 81 405 2 0 0 0 START OF SUBROUTINE 6/0/0 5303 [10266] 40503 61 25 0 0 0 BINARY INDICATOR SELECT 1/1/2 1 [10267] 40504 12 0 0 0 1 SUBTRACT LITERAL 3/0/0 5303 [10268] 40505 3 61 25 0 0 0 COPY 27/0/1 2080 [10269] 40506 71 405 9 0 0 0 JUMP IF A != 0 6/0/0 5028 [10270] 40507 546 9 0 0 0 0/0/3/4 SELECT 26/0/0 982 [10271] 40508 80 361 2 0 0 0 > LN:2C SR ENTER SUBROUTINE 26/0/1 2073 [10272] 40509 82 405 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 406 at location 2081 in chapter 4 [10273] [10273] 40600 PROCR 406 406 SECOND SUSPEND S/R [10273] 40601 NOTES RADIX B B 0/0/0 0 [10273] 40602 81 406 2 0 0 0 START OF SUBROUTINE 6/1/0 5256 [10274] 40603 66 6 1 0 0 REF SELECT 2/0/0 5338 [10275] 40604 5 61 60 0 0 0 TRANSFER 6/1/0 5258 [10276] 40605 66 8 1 0 0 ITEM SELECT 2/0/0 5339 [10277] 40606 5 61 61 0 0 0 TRANSFER 6/1/0 5260 [10278] 40607 66 10 1 0 0 DISC SELECT 2/0/0 5340 [10279] 40608 5 61 62 0 0 0 TRANSFER 6/1/0 5262 [10280] 40609 66 12 1 0 0 MOD SELECT 2/0/0 5341 [10281] 40610 5 61 63 0 0 0 TRANSFER 6/1/0 5264 [10282] 40611 66 14 1 0 0 LIT SELECT 2/0/0 5342 [10283] 40612 5 61 64 0 0 0 TRANSFER 6/0/0 5266 [10284] 40613 66 16 0 0 0 ITEM + IND SELECT 2/0/0 5268 [10285] 40614 5 66 18 0 0 0 ITEM + IND (2ND STORE) TRANSFER 26/0/1 2081 [10286] 40615 82 406 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 407 at location 2095 in chapter 4 [10287] [10287] 40700 PROCR 407 407 SECOND RESTORE S/R [10287] 40701 NOTES RADIX B B 0/0/0 0 [10287] 40702 81 407 2 0 0 0 START OF SUBROUTINE 6/0/0 5338 [10288] 40703 61 60 0 0 0 SELECT 2/1/0 5256 [10289] 40704 5 66 6 1 0 0 REF TRANSFER 6/0/0 5339 [10290] 40705 61 61 0 0 0 SELECT 2/1/0 5258 [10291] 40706 5 66 8 1 0 0 ITEM TRANSFER Source: RayS/Q1000359 6/0/0 5340 [10292] 40707 61 62 0 0 0 SELECT 2/1/0 5260 [10293] 40708 5 66 10 1 0 0 DISC TRANSFER 6/0/0 5341 [10294] 40709 61 63 0 0 0 SELECT 2/1/0 5262 [10295] 40710 5 66 12 1 0 0 MOD TRANSFER 6/0/0 5342 [10296] 40711 61 64 0 0 0 SELECT 2/1/0 5264 [10297] 40712 5 66 14 1 0 0 LIT TRANSFER 6/0/0 5268 [10298] 40713 66 18 0 0 0 ITEM + IND (2ND STORE) SELECT 2/0/0 5266 [10299] 40714 5 66 16 0 0 0 ITEM + IND TRANSFER 26/0/1 2095 [10300] 40715 82 407 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 408 at location 2109 in chapter 4 [10301] [10301] 40800 PROCR 408 TABLE LOOK UP [10301] 40801 NOTES RADIX B 26/0/0 4098 [10301] 40802 80 508 2 0 0 0 0/1/0 0/0/3 S/R ENTER SUBROUTINE 26/0/0 4720 [10302] 40803 80 534 2 0 0 0 gSUSPEND ENTER SUBROUTINE 6/0/0 4970 [10303] 40804 545 49 0 0 0 1/0/0 SELECT 26/0/0 954 [10304] 40805 80 356 2 0 0 0 gCOMPLEX O/P NON-A ENTER SUBROUTINE 6/0/0 4971 [10305] 40806 545 50 0 0 0 18/1/1 10 SELECT 26/0/0 973 [10306] 40807 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 6/0/0 5310 [10307] 40808 0 61 32 0 0 0 SUSPENDED MOD DIGITS SELECT 27/0/0 2126 [10308] 40809 70 408 19 0 0 0 gUNMODIFIED JUMP IF A == 0 6/0/0 4931 [10309] 40810 545 10 0 0 0 5/0/0 SELECT 26/0/0 2755 [10310] 40811 80 439 2 0 0 0 MR S/R ENTER SUBROUTINE 6/0/0 5304 [10311] 40812 61 26 0 0 0 REF SELECT 27/0/1 2126 [10312] 40813 71 408 19 0 0 0 g JUMP IF A != 0 6/0/0 5306 [10313] 40814 61 28 0 0 0 ITEM SELECT 27/0/0 2128 [10314] 40815 70 408 21 0 0 0 gDON'T BOTHER JUMP IF A == 0 4/0/0 4945 [10315] 40816 1 545 24 0 0 0 1/1/2 ADD 26/0/0 973 [10316] 40817 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 24/1/0 2128 [10317] 40818 76 408 21 0 0 0 JUMP unconditional 6/0/0 4931 [10318] 40819 545 10 0 0 0 5/0/0 SELECT 26/0/0 3706 [10319] 40820 80 484 2 0 0 0 T.S.L'S ENTER SUBROUTINE 26/0/0 2073 [10320] 40821 80 405 2 0 0 0 RESTORE C ENTER SUBROUTINE 24/1/0 989 [10321] 40822 76 362 2 0 0 0 GNB JUMP unconditional Start of procedure 409 at location 2130 in chapter 4 [10322] [10322] 40900 PROCR 409 MERGE FIXED FIELD [10322] 40901 NOTES RADIX B 6/0/0 4972 [10322] 40902 545 51 0 0 0 8/0/0 SELECT 2/0/0 5278 [10323] 40903 5 61 0 0 0 0 TRANSFER 6/1/0 5264 [10324] 40904 66 14 1 0 0 SELECT 27/0/0 2136 [10325] 40905 70 409 8 0 0 0 JUMP IF A == 0 2/1/0 5330 [10326] 40906 5 61 52 1 0 0 TRANSFER 24/1/0 1338 [10327] 40907 76 375 12 0 0 0 gSHORT NO SR, GNB JUMP unconditional 2/1/0 5262 [10328] 40908 5 66 12 1 0 0 CLEAR MOD DIGITS TRANSFER 6/0/0 4972 [10329] 40909 545 51 0 0 0 8/0/0 SELECT 24/1/0 2029 [10330] 40910 76 403 12 0 0 0 gCOMPLEX O/P + GNB JUMP unconditional 6/0/0 4973 [10331] 40911 545 52 0 0 0 8/1/0 SELECT 26/0/0 948 [10332] 40912 80 355 2 0 0 0 gO/P ENTER SUBROUTINE 24/1/0 989 [10333] 40913 76 362 2 0 0 0 gGNB JUMP unconditional Start of procedure 410 at location 2142 in chapter 4 [10334] [10334] 41000 PROCR 410 ACTION 59 [10334] 41001 NOTES RADIX B 26/0/0 4098 [10334] 41002 80 508 2 0 0 0 0/1/0 0/0/3 SR ENTER SUBROUTINE 6/1/0 5262 [10335] 41003 66 12 1 0 0 SELECT 2/0/0 5316 [10336] 41004 5 61 38 0 0 0 W/L TRANSFER 2/1/0 5262 [10337] 41005 5 66 12 1 0 0 TRANSFER 6/0/0 4987 [10338] 41006 545 66 0 0 0 24/0/2 SELECT 26/0/0 954 [10339] 41007 80 356 2 0 0 0 gCOMPLEX O/P NON-A ENTER SUBROUTINE 6/0/0 5316 [10340] 41008 0 61 38 0 0 0 SELECT Source: RayS/Q1000360 2/0/0 5310 [10341] 41009 5 61 32 0 0 0 TX MOD DIGITS TRANSFER 6/0/0 4932 [10342] 41010 0 545 11 0 0 0 3/0/0 SELECT 26/0/0 2755 [10343] 41011 80 439 2 0 0 0 gMOD REGISTER SR ENTER SUBROUTINE 26/0/0 4390 [10344] 41012 80 522 2 0 0 0 I/P C-LINE ENTER SUBROUTINE 6/0/0 4930 [10345] 41013 545 9 0 0 0 4/0/0 SELECT 26/0/0 968 [10346] 41014 80 358 2 0 0 0 gCOMPLEX O/P ARITH ENTER SUBROUTINE 6/0/0 5316 [10347] 41015 61 38 0 0 0 SELECT 2/0/0 5310 [10348] 41016 5 61 32 0 0 0 T. MOD DIGITS TRANSFER 6/0/0 5029 [10349] 41017 546 10 0 0 0 2/0/0/1 SELECT 26/0/0 2755 [10350] 41018 80 439 2 0 0 0 gMOD REGISTER S/R ENTER SUBROUTINE 26/0/0 1951 [10351] 41019 80 399 2 0 0 0 g0/0/1 ENTER SUBROUTINE 24/1/0 989 [10352] 41020 76 362 2 0 0 0 gGNB JUMP unconditional Start of procedure 411 at location 2161 in chapter 4 [10353] [10353] 41100 PROCR 411 GROUP 6 ACTIONS [10353] 41101 NOTES RADIX B VARIANT 0-2 6/0/0 5328 [10353] 41102 61 50 0 0 0 VARIANT+1 SELECT 1/1/2 3 [10354] 41103 12 0 0 0 3 ; SUBTRACT LITERAL 27/0/2 2169 [10355] 41104 72 411 10 0 0 0 JUMP IF A >= 0 24/0/0 5328 [10356] 41105 124 61 50 0 0 0 MODIFY ADDRESS OF NEXT 6/0/0 4916 [10357] 41106 544 22 0 0 0 DEC OR ST RADIX SELECT 2/1/0 5330 [10358] 41107 5 61 52 1 0 0 W/L TRANSFER 6/0/0 4949 [10359] 41108 545 28 0 0 0 0/0/3 SELECT 24/1/0 1337 [10360] 41109 76 375 11 0 0 0 JUMP unconditional 27/0/1 2172 [10361] 41110 71 412 2 0 0 0 JUMP IF A != 0 6/1/0 5264 [10362] 41111 66 14 1 0 0 LITERAL SELECT 24/1/0 2166 [10363] 41112 76 411 7 0 0 0 JUMP unconditional Start of procedure 412 at location 2172 in chapter 4 [10364] [10364] 41200 PROCR 412 VARIANTS 3-5 [10364] 41201 NOTES RADIX B STORE NO TO BE CONVERTED IF ACTION WORKS ON (A) 1/1/2 4 [10364] 41202 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 2218 [10365] 41203 72 415 2 0 0 0 gACTION 66-69 JUMP IF A >= 0 6/0/0 5262 [10366] 41204 66 12 0 0 0 MOD SELECT 27/0/1 2182 [10367] 41205 71 413 2 0 0 0 gACTING ON (N) JUMP IF A != 0 6/0/0 5256 [10368] 41206 0 66 6 0 0 0 REFERENCE SELECT 0/0/2 5258 [10369] 41207 34 66 8 0 0 0 SET (N) IN B 27/1/1 2182 [10370] 41208 75 413 2 0 0 0 JUMP IF AB != 0 1/1/3 6 [10371] 41209 10 0 0 0 6 SELECT LITERAL 4/0/0 4951 [10372] 41210 1 545 30 0 0 0 2/1/0 ADD 26/0/0 982 [10373] 41211 80 361 2 0 0 0 gLN:2C SR ENTER SUBROUTINE Start of procedure 413 at location 2182 in chapter 4 [10374] [10374] 41300 PROCR 413 VARIANTS 3-5 [10374] 41301 NOTES RADIX B 6/0/0 5328 [10374] 41302 61 50 0 0 0 TEST SELECT 1/1/2 6 [10375] 41303 12 0 0 0 6 VARIANT 5 SUBTRACT LITERAL 27/0/0 2209 [10376] 41304 70 414 4 0 0 0 - JUMP IF A == 0 26/0/0 4720 [10377] 41305 80 534 2 0 0 0 - SUSPEND ENTER SUBROUTINE 24/0/0 5328 [10378] 41306 124 61 50 0 0 0 MODIFY ADDRESS OF NEXT 6/0/0 4914 [10379] 41307 0 544 20 0 0 0 NEW RADIX SELECT 3/0/0 5354 [10380] 41308 3 61 76 0 0 0 FORM TABLE W/L COPY 2/1/0 5330 [10381] 41309 5 61 52 1 0 0 W/L FOR S.N. S/R TRANSFER 6/0/0 4949 [10382] 41310 545 28 0 0 0 0/0/3 SELECT 26/0/0 960 [10383] 41311 80 357 2 0 0 0 gCONSTS O/P ENTER SUBROUTINE 6/0/0 5328 [10384] 41312 61 50 0 0 0 SELECT 1/1/2 6 [10385] 41313 12 0 0 0 6 SUBTRACT LITERAL 27/0/0 2216 [10386] 41314 70 414 10 0 0 0 JUMP IF A == 0 24/0/0 5328 [10387] 41315 124 61 50 0 0 0 MODIFY ADDRESS OF NEXT 6/0/0 4913 [10388] 41316 0 544 19 0 0 0 OLD RADIX SELECT 2/0/0 5355 [10389] 41317 5 61 77 0 0 0 TRANSFER 26/0/0 2235 [10390] 41318 80 416 2 0 0 0 CONVERT S/R ENTER SUBROUTINE Source: RayS/Q1000361 26/0/0 4729 [10391] 41319 80 535 2 0 0 0 gRESTORE SR ENTER SUBROUTINE 6/0/0 5262 [10392] 41320 66 12 0 0 0 MOD SELECT 27/0/1 2207 [10393] 41321 71 414 2 0 0 0 gACTING ON (N) JUMP IF A != 0 6/0/0 5256 [10394] 41322 0 66 6 0 0 0 SELECT 0/0/2 5258 [10395] 41323 34 66 8 0 0 0 SET (N) IN B 27/1/1 2207 [10396] 41324 75 414 2 0 0 0 gACTS ON (N) JUMP IF AB != 0 6/0/0 4925 [10397] 41325 0 545 4 0 0 0 12/1/0 6 SELECT 24/1/0 988 [10398] 41326 76 361 8 0 0 0 gLN:2C+GNB JUMP unconditional Start of procedure 414 at location 2207 in chapter 4 [10399] [10399] 41400 PROCR 414 ACTIONS 63-65 [10399] 41401 NOTES RADIX B 6/0/0 4979 [10399] 41402 545 58 0 0 0 12 TO B17 SELECT 24/1/0 1306 [10400] 41403 76 373 12 0 0 0 gCOMPLEX O/P+GNB JUMP unconditional 6/0/0 5264 [10401] 41404 66 14 0 0 0 SELECT 2/0/0 5316 [10402] 41405 5 61 38 0 0 0 GEN W/L TRANSFER 26/0/0 4390 [10403] 41406 80 522 2 0 0 0 - C-LINE S/R ENTER SUBROUTINE 6/1/0 5204 [10404] 41407 54 66 6 0 0 8 BULK CLEAR 28/0/0 5256 [10405] 6/0/0 5264 [10406] 41408 66 14 0 0 0 SELECT 24/1/0 2188 [10407] 41409 76 413 8 0 0 0 JUMP unconditional 6/0/0 5316 [10408] 41410 61 38 0 0 0 SELECT 24/1/0 2197 [10409] 41411 76 413 17 0 0 0 JUMP unconditional Start of procedure 415 at location 2218 in chapter 4 [10410] [10410] 41500 PROCR 415 ACTIONS 66 AND 667 [10410] 41501 NOTES RADIX B SET FP SIGDIG/NORMAL MODE 27/0/0 2221 [10410] 41502 70 415 5 0 0 0 g66, SIGDIG JUMP IF A == 0 6/1/0 5206 [10411] 41503 10 0 0 0 8000000025 =(B40+37) SELECT LITERAL 24/1/0 2222 [10412] 41504 76 415 6 0 0 0 ;SELECT FP CONST JUMP unconditional 5/1/0 5208 [10413] 41505 12 0 0 0 8000000025 TO PUT INTO 132' SUBTRACT LITERAL 2/1/0 5330 [10414] 41506 5 61 52 1 0 0 TRANSFER 6/0/0 4929 [10415] 41507 0 545 8 0 0 0 6/0/0 SELECT 26/0/0 960 [10416] 41508 80 357 2 0 0 0 gLONG NO O/P ENTER SUBROUTINE 1/1/3 0 [10417] 41509 10 0 0 0 0 SELECT LITERAL 26/0/0 4035 [10418] 41510 80 504 2 0 0 0 gO/P 24/1/2 2C;COPY FP CONST ENTER SUBROUTINE 6/0/0 5123 [10419] 41511 10 0 0 0 38084 3/1/0 132;LONG TO 132' SELECT LITERAL 26/0/0 973 [10420] 41512 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 6/0/0 5328 [10421] 41513 0 61 50 0 0 0 VARIANT+1 SELECT 1/1/2 7 [10422] 41514 12 0 0 0 7 TEST ACTION 67 SUBTRACT LITERAL 27/0/1 989 [10423] 41515 71 362 2 0 0 0 gYES, GNB JUMP IF A != 0 26/0/0 4035 [10424] 41516 80 504 2 0 0 0 gO/P 24/1/2 2C;COPY SHORT TO 132 TO ENTER SUBROUTINE 6/0/0 5124 [10425] 41517 10 0 0 0 20084 2/0/0 132;SET SIGN BIT THERE SELECT LITERAL 24/1/0 1439 [10426] 41518 76 382 9 0 0 0 O/P AND GET NEXT BLOCK JUMP unconditional Start of procedure 416 at location 2235 in chapter 4 [10427] [10427] 41600 PROCR 416 CONVERSION TABLE S/R [10427] 41601 NOTES RADIX B 0/0/0 0 [10427] 41602 81 416 2 0 0 0 START OF SUBROUTINE 6/0/0 6021 [10428] 41603 92 7 0 0 0 SELECT 18/0/1 5 [10429] 41604 30 0 0 0 5 SHIFT (A) BY QUARTETS 3/1/0 40 [10430] 41605 91 0 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/2 40 [10431] 27/0/0 2246 [10432] 41606 70 416 11 0 0 0 gNONE STORED JUMP IF A == 0 6/1/0 5354 [10433] 41607 61 76 1 0 0 SELECT 5/1/2 6150 [10434] 41608 2 99 0 1 2 0 SUBTRACT 27/0/0 2248 [10435] 41609 70 416 13 0 0 0 gMATCH JUMP IF A == 0 25/0/2 2 [10436] 41610 94 416 7 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2241 [10437] s 1/1/3 83 [10438] 41611 10 0 0 0 53 =C SELECT LITERAL 26/0/0 3984 [10439] 41612 80 501 2 0 0 0 gMISMATCH SR ENTER SUBROUTINE 1/1/3 1000 [10440] 41613 10 0 0 0 3.8 PROCR 1000 SELECT LITERAL 18/0/1 2 [10441] 41614 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 6043 [10442] 41615 1 92 29 0 0 0 FORM 2C FOR EXTRA CHAP ADD 4/0/0 6043 [10443] 41616 1 92 29 0 0 0 ADD Source: RayS/Q1000362 1/1/2 1 [10444] 41617 12 0 0 0 1 REF: 2C-1 SUBTRACT LITERAL 2/0/0 5330 [10445] 41618 5 61 52 0 0 0 TRANSFER 24/0/3 22 [10446] 41619 96 0 0 2 0 SELECT MODIFIER 6/0/0 4 [10447] 2/0/0 40 [10448] 41620 16 0 0 0 10 MULTIPLY LITERAL 0/0/2 5125 [10449] 10/0/0 40 [10450] 2/0/0 5331 [10451] 41621 5 61 53 0 0 0 CTR WITHIN PROCR TRANSFER 6/0/0 4929 [10452] 41622 545 8 0 0 0 6 TO B17 SELECT 2/0/0 5278 [10453] 41623 5 61 0 0 0 0 TRANSFER 26/0/0 3721 [10454] 41624 80 485 2 0 0 0 TSL S/R ENTER SUBROUTINE 26/0/1 2235 [10455] 41625 82 416 2 0 0 0 EXIT END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 417 at location 2264 in chapter 4 [10456] [10456] 41700 PROCR 417 GROUP 7 ACTIONS [10456] 41701 NOTES RADIX B 6/0/0 5328 [10456] 41702 0 61 50 0 0 0 VARIANT+1 SELECT 1/1/2 8 [10457] 41703 12 0 0 0 8 ;TEST ACTIONS 77-79 SUBTRACT LITERAL 27/0/3 2299 [10458] 41704 73 417 37 0 0 0 gACTIONS 70-76 JUMP IF A < 0 26/0/0 4720 [10459] 41705 80 534 2 0 0 0 SUSPEND LINE ENTER SUBROUTINE 26/0/0 4035 [10460] 41706 80 504 2 0 0 0 24/1/2 2C ENTER SUBROUTINE 6/0/0 5328 [10461] 41707 0 61 50 0 0 0 V+1 SELECT 1/1/2 10 [10462] 41708 12 0 0 0 t SUBTRACT LITERAL 27/0/0 2273 [10463] 41709 70 417 11 0 0 0 gACTION 79 JUMP IF A == 0 6/0/0 5126 [10464] 41710 10 0 0 0 2- SELECT LITERAL 5/0/0 5127 [10465] 41711 12 0 0 0 10080 17/0/0 128 SUBTRACT LITERAL 26/0/0 973 [10466] 41712 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 6/0/0 5328 [10467] 41713 0 61 50 0 0 0 V+1 SELECT 1/1/2 10 [10468] 41714 12 0 0 0 t ;SELECT A* SUBTRACT LITERAL 27/0/0 2296 [10469] 41715 70 417 34 0 0 0 gACTION 79;EXPT OR MANT JUMP IF A == 0 6/0/0 4931 [10470] 41716 0 545 10 0 0 0 5/0/0;TO A SELECT 2/1/0 5278 [10471] 41717 5 61 0 1 0 0 TRANSFER 6/1/0 5264 [10472] 41718 0 66 14 1 0 0 LITERAL SELECT 27/0/1 2289 [10473] 41719 71 417 27 0 0 0 gNO C-LINE JUMP IF A != 0 26/0/0 4390 [10474] 41720 80 522 2 0 0 0 gI/P C-LINE;SUBTRACT NC1 ENTER SUBROUTINE 26/0/0 4738 [10475] 41721 80 536 2 0 0 0 gO/P INSTRUCTION;OR LITERAL ENTER SUBROUTINE 0/0/3 5128 [10476] 41722 60 0 0 0 0 SET DECIMAL RADIX 1/1/2 1 [10477] 41723 12 0 0 0 1 SUBTRACT LITERAL 7/1/0 5252 [10478] 41724 4 66 2 1 0 0 AUGMENT 0/0/3 0 [10479] 41725 62 0 0 0 0 SET EXCESS CONSTANTS 24/1/0 2292 [10480] 41726 76 417 30 0 0 0 JUMP unconditional 2/1/0 5330 [10481] 41727 5 61 52 1 0 0 LONG CONST W/L TRANSFER 6/0/0 4931 [10482] 41728 545 10 0 0 0 5/0/0 SELECT 26/0/0 960 [10483] 41729 80 357 2 0 0 0 gLONG/SHORT NO S/R ENTER SUBROUTINE 26/0/0 4729 [10484] 41730 80 535 2 0 0 0 RESTORE FORST LINE ENTER SUBROUTINE 6/0/0 5328 [10485] 41731 0 61 50 0 0 0 V+1 SELECT 1/1/2 8 [10486] 41732 12 0 0 0 8 79,78 AS 72 SUBTRACT LITERAL 27/0/0 2297 [10487] 41733 70 417 35 0 0 0 gACTION 77;77 AS 73 JUMP IF A == 0 6/0/0 5129 [10488] 41734 10 0 0 0 1- SELECT LITERAL 1/1/1 4 [10489] 41735 11 0 0 0 4 ADD LITERAL 3/0/0 5328 [10490] 41736 3 61 50 0 0 0 SET TRICK VARIANT COPY 2/0/0 5279 [10491] 41737 5 61 1 0 0 0 SET NON-ARITH IND TRANSFER 26/0/0 3771 [10492] 41738 80 489 2 0 0 0 gM&P ENTER SUBROUTINE 26/0/0 2306 [10493] 41739 80 418 2 0 0 0 S. CHANGE S.R. ENTER SUBROUTINE 24/0/0 5328 [10494] 41740 124 61 50 0 0 0 MODIFY ADDRESS OF NEXT 6/0/0 4960 [10495] 41741 545 39 0 0 0 27 ACTION SELECT 2/0/0 5278 [10496] 41742 5 61 0 0 0 0 TRANSFER 24/1/0 2860 [10497] 41743 76 441 4 0 0 0 - STACK O/P GNB JUMP unconditional Start of procedure 418 at location 2306 in chapter 4 [10498] [10498] 41800 PROCR 418 S.C. S/R [10498] 41801 NOTES RADIX B 0/0/0 0 [10498] 41802 81 418 2 0 0 0 START OF SUBROUTINE 6/1/0 5256 [10499] 41803 0 66 6 1 0 0 REF SELECT Source: TonyJ/Q1000363 27/0/0 2392 [10500] 41804 70 420 9 0 0 0 JUMP IF A == 0 1/1/2 999 [10501] 41805 12 0 0 0 3.7 999 SUBTRACT LITERAL 27/0/2 2392 [10502] 41806 72 420 9 0 0 0 > SKIP JUMP IF A >= 0 6/1/0 5258 [10503] 41807 66 8 1 0 0 ITEM SELECT 27/0/1 2317 [10504] 41808 71 418 13 0 0 0 > NOT TO PROCR START JUMP IF A != 0 6/0/0 5288 [10505] 41809 61 10 0 0 0 THIS PROCR SELECT 5/0/0 5256 [10506] 41810 2 66 6 0 0 0 REF SUBTRACT 27/0/2 2382 [10507] 41811 72 419 30 0 0 0 > SC BACK TO PROCR STARTNOT TO PROCR START JUMP IF A >= 0 24/1/0 2332 [10508] 41812 76 418 23 0 0 0 >SC FORWARD JUMP unconditional 24/0/3 22 [10509] 41813 95 0 0 1 0 CURRENT HEAD OF 'SC BACK' LIST SELECT MODIFICATION REGISTER 6/1/0 2 [10510] 18/0/1 5 [10511] 41814 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 4911 [10512] 41815 1 544 17 0 0 0 ABS ADDRESS 18/0 ADD 3/1/0 40 [10513] 41816 91 0 0 2 0 R2* (A) SET MODIFICATION REGISTER AT VARIABLE 26/1/2 40 [10514] 25/0/2 0 [10515] 41817 94 418 19 0 2 0 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2326 [10516] s 24/1/0 2332 [10517] 41818 76 418 23 0 0 0 NO DESTS REPLACED YET JUMP unconditional 6/0/0 5252 [10518] 41819 66 2 0 0 0 THIS ORDER SELECT 24/0/3 0 Extra code needed to address absolute 5/0/2 1 [10520] 41820 2 1 0 2 0 INTERCODE DEST SUBTRACT 27/0/0 2383 [10521] 41821 70 420 2 0 0 0 > MATCH FOUND JUMP IF A == 0 25/0/2 2 [10522] 41822 94 418 19 0 2 2 > TRY NEXT STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2326 [10523] s 6/1/0 5256 [10524] 41823 0 66 6 1 0 0 ;ASSUME SEQ CH FWD SELECT 26/0/0 4756 [10525] 41824 80 538 2 0 0 0 >REF TO DEC ENTER SUBROUTINE 18/0/1 2 [10526] 41825 30 0 0 0 2 SHIFT (A) BY QUARTETS 2/0/0 5296 [10527] 41826 5 61 18 0 0 0 TRANSFER 6/1/0 5258 [10528] 41827 0 66 8 1 0 0 SELECT 26/0/0 4756 [10529] 41828 80 538 2 0 0 0 > ITEM TO DEC ENTER SUBROUTINE 1/1/1 2 [10530] 41829 11 0 0 0 2 ADD 2 TO ITEM ADD LITERAL 7/0/0 5296 [10531] 41830 4 61 18 0 0 0 AUGMENT 0/0/3 0 [10532] 41831 62 0 0 0 0 SET BINARY SET EXCESS CONSTANTS 6/0/0 5395 [10533] 41832 0 61 117 0 0 0 CTR OF SEC 20 LENGTH SELECT 3/1/0 40 [10534] 41833 91 0 0 2 0 ZERO END VALUE SET MODIFICATION REGISTER AT VARIABLE 26/1/2 40 [10535] 27/0/0 2361 [10536] 41834 70 419 9 0 0 0 > EMPTY JUMP IF A == 0 1/1/2 300 [10537] 41835 12 0 0 0 12+ 300 SUBTRACT LITERAL 27/0/3 2350 [10538] 41836 73 418 40 0 0 0 > OK JUMP IF A < 0 1/1/3 120 [10539] 41837 10 0 0 0 78 'Y' SELECT LITERAL 26/0/0 3984 [10540] 41838 80 501 2 0 0 0 > REPORT ENTER SUBROUTINE 26/0/1 2306 [10541] 41839 82 418 2 0 0 0 > EXIT, DON'T SET S'C IND END OF SUBROUTINE / LEAVE SUBROUTINE 6/0/2 327 [10542] 41840 0 20 3- 0 2 0 NEXT DEST (LAST IN LIST FIRST) SELECT 5/0/0 5296 [10543] 41841 2 61 18 0 0 0 SUBTRACT 27/0/3 2361 [10544] 41842 73 419 9 0 0 0 > FITS NOW JUMP IF A < 0 Start of procedure 419 at location 2353 in chapter 4 [10545] [10545] 41900 PROCR 419 419 S.C. S/R [10545] 41901 NOTES RADIX 6/0/2 327 [10545] 41902 0 20 3- 0 2 0 MOVE LIST DOWN 1 ITEM SELECT 2/0/2 330 [10546] 41903 5 20 0 0 2 0 TRANSFER 6/0/2 328 [10547] 41904 0 20 2- 0 2 0 SELECT 2/0/2 331 [10548] 41905 5 20 1 0 2 0 TRANSFER 6/0/2 329 [10549] 41906 0 20 1- 0 2 0 SELECT 2/0/2 332 [10550] 41907 5 20 2 0 2 0 TRANSFER 25/0/2 4099 [10551] 41908 94 418 40 0 2 3- > NEXT STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2350 [10552] s 6/0/0 5296 [10553] 41909 0 61 18 0 0 0 DEST OF NEWCOMER SELECT 2/0/2 330 [10554] 41910 5 20 0 0 2 0 TRANSFER 6/1/0 5252 [10555] 41911 66 2 1 0 0 SOURCE SELECT 2/0/2 331 [10556] 41912 5 20 1 0 2 0 TRANSFER 6/1/0 5258 [10557] 41913 66 8 1 0 0 SELECT 3/0/2 332 [10558] 41914 3 20 2 0 2 0 COPY 27/0/0 2380 [10559] 41915 70 419 28 0 0 0 > DEST IS A PROCR START JUMP IF A == 0 Source: TonyJ/Q1000364 1/1/3 1 [10560] 41916 10 0 0 0 1 SELECT LITERAL 2/0/0 5275 [10561] 41917 5 67 1 0 0 0 SET 'SEQ' CH' IND TRANSFER 6/0/0 5038 [10562] 41918 0 546 19 0 0 0 FLIPFLOP 0/10 SELECT 18/0/1 4 [10563] 41919 30 0 0 0 4 TO Q5 SHIFT (A) BY QUARTETS 4/0/0 5396 [10564] 41920 1 61 118 0 0 0 ABS LOCN IN SEC 18 918:2499 INITIALLY) ADD 2/0/2 332 [10565] 41921 5 20 2 0 2 0 TRANSFER 1/1/3 10 [10566] 41922 10 0 0 0 t SELECT LITERAL 5/0/0 5038 [10567] 41923 2 546 19 0 0 0 SUBTRACT 3/0/0 5038 [10568] 41924 3 546 19 0 0 0 REVERSE COPY 27/0/1 2380 [10569] 41925 71 419 28 0 0 0 > NEXT TIME IS TOP 10 BITS OF SAME LOCN JUMP IF A != 0 1/1/2 1 [10570] 41926 12 0 0 0 1 SUBTRACT LITERAL 7/0/0 5396 [10571] 41927 4 61 118 0 0 0 REDUCE ABS ADDRESS AUGMENT 1/1/3 3 [10572] 41928 10 0 0 0 3 SELECT LITERAL 7/0/0 5395 [10573] 41929 4 61 117 0 0 0 STEP CTR OF ACTIVE SC'S AUGMENT 26/0/1 2306 [10574] 41930 82 418 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 420 at location 2383 in chapter 4 [10575] [10575] 42000 PROCR 420 420 S.C. S/R: MATCH FOUND IN SC BACK LIST [10575] 42001 NOTES RADIX B 24/1/2 24 [10575] 42002 34 0 0 2 0 PROCR + ITEM SET (N) IN B 0/0/2 0 [10576] 18/1/3 30 [10577] 42003 33 0 0 0 30 SHIFT (AB) BY BITS 2/1/0 5256 [10578] 42004 5 66 6 1 0 0 REF (BITS 11 - 20) TRANSFER 18/1/3 10 [10579] 42005 33 0 0 0 10 SHIFT (AB) BY BITS 2/1/0 5258 [10580] 42006 5 66 8 1 0 0 ITEM (BITS 1 - 10) TRANSFER 24/0/3 22 [10581] 42007 96 0 0 2 0 SELECT MODIFIER 6/0/0 4 [10582] 26/0/0 2393 [10583] 42008 80 421 2 0 0 0 > CONTRACT LIST ENTER SUBROUTINE 26/0/1 2306 [10584] 42009 82 418 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 421 at location 2393 in chapter 4 [10585] [10585] 42100 PROCR 421 421 CONTRACT THE SC BACK LIST BY 1 WORD [10585] 42101 NOTES 0/0/0 0 [10585] 42102 81 421 2 0 0 0 START OF SUBROUTINE 2/0/0 5392 [10586] 42103 5 61 114 0 0 0 WORD TO BE OVERWRITTEN TRANSFER 24/0/3 22 [10587] 42104 95 0 0 1 0 SELECT MODIFICATION REGISTER 6/1/0 2 [10588] 2/1/0 5296 [10589] 42105 5 61 18 1 0 0 START/END OF LIST (ABS) TRANSFER 6/0/0 5297 [10590] 42106 61 19 0 0 0 SELECT 5/0/0 5392 [10591] 42107 2 61 114 0 0 0 SUBTRACT 27/0/0 2410 [10592] 42108 70 421 18 0 0 0 > NONE TO BE MOVED JUMP IF A == 0 18/0/1 5 [10593] 42109 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 5392 [10594] 42110 1 61 114 0 0 0 ADD 1/1/1 2 [10595] 42111 11 0 0 0 2 FORM SOURCE IN A ADD LITERAL 24/0/3 5392 [10596] 42112 124 61 114 0 3 0 MODIFY ADDRESS OF NEXT 28/1/1 0 [10597] 42113 128 0 1 1 0 COPY UP BY 1 WORD BULK COPY LONG NUMERIC 1/1/2 2 [10598] 42114 12 0 0 0 2 SUBTRACT LITERAL 7/0/0 5296 [10599] 42115 4 61 18 0 0 0 AUGMENT 7/0/0 5297 [10600] 42116 4 61 19 0 0 0 ADJUST R1 FOR NEW LIST POSITION AUGMENT 26/1/1 5296 [10601] 42117 91 61 18 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/0/1 2393 [10602] 42118 82 421 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 422 at location 2411 in chapter 4 [10603] [10603] 42200 PROCR 422 422 GROUP 8 SWITCH [10603] 42201 NOTES RADIX B 24/0/1 8158 [10603] 42202 85 381 2 0 0 0 SWITCH R 26/0/1 2412 [10604] 0/0/1 2428 [10605] 42203 C 423 5 0 0 0 > 80 0/0/1 2425 [10606] 42204 C 423 2 0 0 0 > 81 0/0/1 2504 [10607] 42205 C 424 2 0 0 0 82 0/0/1 2513 [10608] 42206 C 425 2 0 0 0 83 0/0/1 2527 [10609] 42207 C 426 2 0 0 0 84 0/0/1 2538 [10610] 42208 C 427 2 0 0 0 85 0/0/1 2509 [10611] s 42209 C 424 6 0 0 0 86 ACTION;SELECT SWITCH SETTING 0/0/1 2421 [10612] s 42210 C 422 11 0 0 0 87 (85 ON A COMPT) Source: DaveJ/Q1000365 2/1/0 5260 [10613] 42211 5 66 10 1 0 0 CLEAR DISC TRANSFER 6/0/0 5022 [10614] 42212 0 546 3 0 0 0 24/0/1 SELECT 26/0/0 954 [10615] 42213 80 356 2 0 0 0 >O/P NON-A ENTER SUBROUTINE 24/1/0 2543 [10616] 42214 76 427 7 0 0 0 >CONTINUE AS 85 JUMP unconditional Start of procedure 423 at location 2425 in chapter 4 [10617] [10617] 42300 PROCR 423 0 0 0 ACTIONS 81 AND 80 [10617] 42301 NOTES 0 0 0 0 6/0/0 5288 [10617] 42302 0 61 10 0 0 0 COPY CURRENT PROCR ACTION 81 SELECT 2/0/0 5287 [10618] 42303 5 61 9 0 0 0 TRANSFER 24/1/0 1439 [10619] 42304 76 382 9 0 0 0 >O/P ZERO LOCN, GNB JUMP unconditional 26/0/0 4720 [10620] 42305 80 534 2 0 0 0 > SUSPEND ACTION 80 ENTER SUBROUTINE 26/1/2 5210 [10621] 42306 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [10622] 42307 C 0 0 0 40 (UP TO 20 C-LINES) Limit 26/0/0 1848 [10622] 42308 80 397 2 0 0 0 > TEST C-LINE ENTER SUBROUTINE 27/0/1 2442 [10623] 42309 71 423 19 0 0 0 > NO JUMP IF A != 0 6/0/0 5256 [10624] 42310 0 66 6 0 0 0 SELECT 2/0/2 5332 [10625] 42311 5 61 54 0 2 0 REF TRANSFER 6/0/0 5260 [10626] 42312 66 10 0 0 0 DISC SELECT 18/0/1 4 [10627] 42313 30 0 0 0 4 SHIFT (A) BY QUARTETS 7/0/2 5332 [10628] 42314 4 61 54 0 2 0 STORE WITH REF AUGMENT 6/1/0 5258 [10629] 42315 0 66 8 1 0 0 SELECT 2/0/2 5333 [10630] 42316 5 61 55 0 2 0 ITEM(+-) TRANSFER 25/0/2 2 [10631] 42317 94 423 8 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2430 [10632] s 26/0/0 4111 [10633] 42318 80 509 2 0 0 0 PROMOTE READ NEXT BLOCK ENTER SUBROUTINE 26/0/0 4729 [10634] 42319 80 535 2 0 0 0 >RESTORE FIRST LINE ENTER SUBROUTINE 24/0/3 22 [10635] 42320 96 0 0 2 0 SELECT MODIFIER 6/0/0 4 [10636] 2/0/0 5265 [10637] 42321 5 66 15 0 0 0 STORE MODIFIER OVER LITERAL TRANSFER 6/0/0 5256 [10638] 42322 66 6 0 0 0 BIN REF SELECT 1/1/2 1000 [10639] 42323 101 1000 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/3 2451 [10640] 42324 73 423 27 0 0 0 >REF NOT 1000+ JUMP IF A < 0 1/1/3 0 [10641] 42325 10 0 0 0 0 SELECT LITERAL 24/1/0 2453 [10642] 42326 76 423 29 0 0 0 >DON'T CLEAR ITEM JUMP unconditional 1/1/3 0 [10643] 42327 10 0 0 0 0 SELECT LITERAL 2/1/0 5258 [10644] 42328 5 66 8 1 0 0 CLEAR I.D.M TRANSFER 2/1/0 5260 [10645] 42329 5 66 10 1 0 0 TRANSFER 2/1/0 5262 [10646] 42330 5 66 12 1 0 0 TRANSFER 2/0/0 5264 [10647] 42331 5 66 14 0 0 0 TRANSFER 6/0/0 4968 [10648] 42332 0 545 47 0 0 0 26/0/0 SELECT 26/0/0 954 [10649] 42333 80 356 2 0 0 0 >COMPLEX O/P NON-A ENTER SUBROUTINE 6/0/0 5265 [10650] 42334 66 15 0 0 0 SELECT 27/0/0 990 [10651] 42335 70 362 3 0 0 0 >NO C-LINES, GNB(NON-I/P) JUMP IF A == 0 18/0/3 3 [10652] 42336 31 0 0 0 1- SHIFT (A) BY BITS 18/0/1 4127 [10653] 2/0/0 5296 [10654] 42337 5 61 18 0 0 0 WL TRANSFER 6/0/0 5030 [10655] 42338 546 11 0 0 0 24/1/0/1 SELECT 5/0/0 5296 [10656] 42339 2 61 18 0 0 0 SPACE OCCUPIED BY C-LINES SUBTRACT 26/0/0 3940 [10657] 42340 80 498 2 0 0 0 >O/P INT SC ENTER SUBROUTINE 6/1/0 5264 [10658] 42341 91 66 14 0 4 0 SET MODIFICATION REGISTER AT VARIABLE 2/1/0 8184 [10659] 1/0/1 7 [10660] 42342 35 0 0 0 111 PREPARE FOR DIGIT COLLATION 24/0/1 8184 [10661] 42343 36 61 54 0 4 0 COLLATE AND ADD 15/0/0 5332 [10662] 3/0/0 5256 [10663] 42344 3 66 6 0 0 0 REF COPY 2/0/0 5313 [10664] 42345 5 61 35 0 0 0 TRANSFER 26/0/0 3729 [10665] 42346 80 486 2 0 0 0 >DETERMINE CHAPTER ENTER SUBROUTINE 18/1/1 4127 [10666] 42347 32 0 0 0 1- SHIFT (AB) BY QUARTETS 27/0/1 2478 [10667] 42348 71 423 51 0 0 0 >TX AREA JUMP IF A != 0 18/1/1 1 [10668] 42349 32 0 0 0 1 SHIFT (AB) BY QUARTETS 24/1/0 2483 [10669] 42350 76 423 56 0 0 0 JUMP unconditional 26/0/0 3759 [10670] 42351 80 488 2 0 0 0 >PSEUDOROUTE SR ENTER SUBROUTINE 1/1/1 1 [10671] 42352 11 0 0 0 1 PARA ADD LITERAL 2/0/0 5312 [10672] 42353 5 61 34 0 0 0 TRANSFER 2/1/0 5256 [10673] 42354 5 66 6 1 0 0 CLEAR REF TRANSFER Source: RayS/Q1000366 24/1/0 2495 [10674] 42355 76 423 66 0 0 0 JUMP unconditional 3/0/0 5312 [10675] 42356 3 61 34 0 0 0 COPY 27/0/0 2487 [10676] 42357 70 423 60 0 0 0 gZERO PARA JUMP IF A == 0 1/1/2 1 [10677] 42358 12 0 0 0 1 SUBTRACT LITERAL 7/0/0 5312 [10678] 42359 4 61 34 0 0 0 AUGMENT 24/0/1 8184 [10679] 42360 61 54 0 4 0 SELECT 6/0/0 5332 [10680] 18/0/1 4124 [10681] 42361 30 0 0 0 4- SHIFT (A) BY QUARTETS 27/0/0 2493 [10682] 42362 70 423 65 0 0 0 gNO DISC IN C-LINE JUMP IF A == 0 1/1/3 2 [10683] 42363 10 0 0 0 2 SELECT LITERAL 2/0/0 5275 [10684] 42364 5 67 1 0 0 0 SEQ CH IND='ON' TRANSFER 24/0/1 8184 [10685] 42365 0 61 55 0 4 0 ITEM SELECT 6/0/0 5333 [10686] 2/1/0 5258 [10687] 42366 5 66 8 1 0 0 TRANSFER 2/0/0 5278 [10688] 42367 5 61 0 0 0 0 CLEAR ACTION TRANSFER 26/0/0 4673 [10689] 42368 80 531 2 0 0 0 gNEG NO ENTER SUBROUTINE 26/0/0 4689 [10690] 42369 80 532 2 0 0 0 gSTACK ENTER SUBROUTINE 26/0/0 4345 [10691] 42370 80 518 2 0 0 0 gO/P ENTER SUBROUTINE 23/0/0 2 [10692] 42371 94 423 42 0 4 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [10693] 24/1/0 2468 [10694] s 24/1/0 990 [10695] 42372 76 362 3 0 0 0 gGNB(NON-I/P) JUMP unconditional Start of procedure 424 at location 2504 in chapter 4 [10696] [10696] 42400 PROCR 424 ACTIONS 82 AND 86 [10696] 42401 NOTES RADIX B 6/1/0 5212 [10696] 42402 54 66 8 0 0 6 CLEAR I, D, M;ACTION 82 BULK CLEAR 28/0/0 5258 [10697] 6/0/0 4969 [10698] 42403 0 545 48 0 0 0 26/0/1 SELECT 26/0/0 954 [10699] 42404 80 356 2 0 0 0 gCOMPLEX O/P NON-A ENTER SUBROUTINE 24/1/0 989 [10700] 42405 76 362 2 0 0 0 gGNB JUMP unconditional 1/1/3 0 [10701] 42406 10 0 0 0 0 ;86 ACTION SELECT LITERAL 2/0/0 5391 [10702] 42407 5 61 113 0 0 0 INDICATOR WHETHER TO I/P OR NOT AT GNB. TRANSFER 6/0/0 4929 [10703] 42408 545 8 0 0 0 6/0/0 SELECT 24/1/0 2518 [10704] 42409 76 425 7 0 0 0 JUMP unconditional Start of procedure 425 at location 2513 in chapter 4 [10705] [10705] 42500 PROCR 425 ACTION 83 [10705] 42501 NOTES RADIX B 6/0/0 4943 [10705] 42502 545 22 0 0 0 1/1/3 SELECT 4/0/0 5264 [10706] 42503 1 66 14 0 0 0 ADD 26/0/0 973 [10707] 42504 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 2/0/0 5391 [10708] 42505 5 61 113 0 0 0 INDICATOR TRANSFER 6/0/0 4934 [10709] 42506 545 13 0 0 0 2/0/0 SELECT 2/0/0 5278 [10710] 42507 5 61 0 0 0 0 ACTION W/L TRANSFER 26/0/0 2559 [10711] 42508 80 429 2 0 0 0 SWITCH SR ENTER SUBROUTINE 6/0/0 5391 [10712] 42509 61 113 0 0 0 SELECT 27/0/0 2860 [10713] 42510 70 441 4 0 0 0 - STACK O/P GNB JUMP IF A == 0 26/0/0 4689 [10714] 42511 80 532 2 0 0 0 - STACK ENTER SUBROUTINE 26/0/0 4345 [10715] 42512 80 518 2 0 0 0 O/P ENTER SUBROUTINE 6/0/0 1848 [10716] 42513 0 397 2 0 0 0 RESTORE IND SELECT 2/0/0 5020 [10717] 42514 5 545 99 0 0 0 TRANSFER 24/1/0 990 [10718] 42515 76 362 3 0 0 0 - GNB (NO I/P) JUMP unconditional Start of procedure 426 at location 2527 in chapter 4 [10719] [10719] 42600 PROCR 426 ACTION 84 [10719] 42601 NOTES RADIX B 26/0/0 4720 [10719] 42602 80 534 2 0 0 0 - SUSPEND ENTER SUBROUTINE 26/0/0 1848 [10720] 42603 80 397 2 0 0 0 gTEST C-LINE SR ENTER SUBROUTINE 3/0/0 5391 [10721] 42604 3 61 113 0 0 0 NON-I/P IND COPY 27/0/0 2534 [10722] 42605 70 426 9 0 0 0 gYES JUMP IF A == 0 6/0/0 5020 [10723] 42606 0 545 99 0 0 0 'PRINT ME' IND FOR LINE READ BY ACCIDENT SELECT 2/0/0 1848 [10724] 42607 5 397 2 0 0 0 STORE IND TRANSFER 24/1/0 2536 [10725] 42608 76 426 11 0 0 0 JUMP unconditional 6/0/0 4929 [10726] 42609 545 8 0 0 0 6/0/0 SELECT 26/0/0 968 [10727] 42610 80 358 2 0 0 0 gCOMPLEX O/P ARITH ENTER SUBROUTINE 26/0/0 4729 [10728] 42611 80 535 2 0 0 0 - RESTORE S/R ENTER SUBROUTINE 24/1/0 2517 [10729] 42612 76 425 6 0 0 0 JUMP unconditional Source: TonyJ/Q1000367 Start of procedure 427 at location 2538 in chapter 4 [10730] [10730] 42700 PROCR 427 427 ACTION 85 [10730] 42701 NOTES RADIX B 26/0/0 2559 [10730] 42702 80 429 2 0 0 0 SWITCH SR ENTER SUBROUTINE 6/0/0 5022 [10731] 42703 0 546 3 0 0 0 24/0/1 SELECT 2/0/0 5278 [10732] 42704 5 61 0 0 0 0 TRANSFER 26/0/0 4689 [10733] 42705 80 532 2 0 0 0 - STACK S/R ENTER SUBROUTINE 26/0/0 4345 [10734] 42706 80 518 2 0 0 0 > = O/P S/R ENTER SUBROUTINE 6/0/0 4969 [10735] 42707 545 48 0 0 0 26/0/1 SELECT 26/0/0 3940 [10736] 42708 80 498 2 0 0 0 > O/P INT SC ENTER SUBROUTINE 26/0/0 4390 [10737] 42709 80 522 2 0 0 0 I/P C-LINE S/R ENTER SUBROUTINE 1/1/3 0 [10738] 42710 10 0 0 0 0 SELECT LITERAL 2/0/0 5278 [10739] 42711 5 61 0 0 0 0 CLEAR ACTION W/L TRANSFER Start of procedure 428 at location 2548 in chapter 4 [10740] [10740] 42800 PROCR 428 428 ACTION 85 (2) [10740] 42801 NOTES RADIX 6/0/0 5256 [10740] 42802 66 6 0 0 0 SELECT 2/0/0 5313 [10741] 42803 5 61 35 0 0 0 TRANSFER 26/0/0 3729 [10742] 42804 80 486 2 0 0 0 ENTER SUBROUTINE 3/0/0 5312 [10743] 42805 3 61 34 0 0 0 COPY 27/0/0 2554 [10744] 42806 70 428 8 0 0 0 > DON'T MAKE A PARA 1- JUMP IF A == 0 1/1/2 1 [10745] 42807 12 0 0 0 1 SUBTRACT LITERAL 7/0/0 5312 [10746] 42808 4 61 34 0 0 0 AUGMENT 26/0/0 2306 [10747] 42809 80 418 2 0 0 0 SEQUENCE CHANGE S/R ENTER SUBROUTINE 26/0/0 4689 [10748] 42810 80 532 2 0 0 0 STACK ENTER SUBROUTINE 26/0/0 4345 [10749] 42811 80 518 2 0 0 0 > O/P ENTER SUBROUTINE 24/1/0 2545 [10750] 42812 76 427 9 0 0 0 JUMP unconditional Start of procedure 429 at location 2559 in chapter 4 [10751] [10751] 42900 PROCR 429 429 SWITCH S/R [10751] 42901 NOTES RADIX B 0/0/0 0 [10751] 42902 81 429 2 0 0 0 START OF SUBROUTINE 6/1/0 6100 [10752] 42903 91 95 0 0 8 0 NO OF SWITCHES SET MODIFICATION REGISTER AT VARIABLE 2/1/0 8178 [10753] 0/0/2 4920 [10754] 42904 34 544 26 0 0 0 BITS 1-10 SET (N) IN B 1/1/3 0 [10755] 42905 10 0 0 0 0 SELECT LITERAL 24/0/1 8178 [10756] 42906 36 95 2 0 8 0 COLLATE AND ADD 15/0/0 6102 [10757] 27/0/0 2572 [10758] 42907 70 429 11 0 0 0 > MISMATCH JUMP IF A == 0 5/1/0 5256 [10759] 42908 2 66 6 1 0 0 SUBTRACT 27/0/0 2574 [10760] 42909 70 429 13 0 0 0 > OK JUMP IF A == 0 23/0/0 1 [10761] 42910 94 429 5 0 8 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8178 [10762] 24/1/0 2563 [10763] s 1/1/3 114 [10764] 42911 10 0 0 0 72 ERRORS SELECT LITERAL 26/0/0 3984 [10765] 42912 80 501 2 0 0 0 > MISMATCH SR ENTER SUBROUTINE 24/0/1 8178 [10766] 42913 95 2 0 8 0 SELECT 6/0/0 6102 [10767] 18/1/1 4124 [10768] 42914 32 0 0 0 4- CHAP TO Q1 SHIFT (AB) BY QUARTETS 3/0/0 5332 [10769] 42915 3 61 54 0 0 0 COPY 1/1/1 1001 [10770] 42916 101 1001 1 1 0 (1001+CHAP)= SWITCH PROCR ADD LITERAL ADDRESS 2/0/0 5256 [10771] 42917 5 66 6 0 0 0 PROCR TO SWITCH TRANSFER 18/1/3 6 [10772] 42918 33 0 0 0 6 SHIFT (AB) BY BITS 2/0/0 5258 [10773] 42919 5 66 8 0 0 0 POSITION IN PROCR TRANSFER 6/0/0 5332 [10774] 42920 61 54 0 0 0 CHAP NO. SWITCH SELECT 5/0/0 5329 [10775] 42921 2 61 51 0 0 0 THIS CHAP SUBTRACT 27/0/0 2588 [10776] 42922 70 429 26 0 0 0 > YES JUMP IF A == 0 4/0/0 5329 [10777] 42923 1 61 51 0 0 0 ADD 26/0/0 4035 [10778] 42924 80 504 2 0 0 0 24/1/2/2C-1/2C S/R ENTER SUBROUTINE 24/1/0 2589 [10779] 42925 76 429 27 0 0 0 > ZERO PARA JUMP unconditional 6/0/0 5281 [10780] 42926 61 3 0 0 0 SELECT 2/0/0 5312 [10781] 42927 5 61 34 0 0 0 TRANSFER 26/0/1 2559 [10782] 42928 82 429 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 430 at location 2591 in chapter 4 [10783] [10783] 43000 PROCR 430 430 GROUP 9 SWITCH [10783] 43001 NOTES RADIX Source: TonyJ/Q1000368 24/0/1 8158 [10783] 43002 85 381 2 0 0 0 SWITCH R 26/0/1 2592 [10784] 0/0/1 2613 [10785] 43003 C 431 2 0 0 0 90 0/0/1 2644 [10786] 43004 C 432 2 0 0 0 91 0/0/1 2671 [10787] 43005 C 433 2 0 0 0 92 0/0/1 2682 [10788] 43006 C 434 2 0 0 0 93 0/0/1 2702 [10789] 43007 C 435 2 0 0 0 94 0/0/1 2734 [10790] 43008 C 437 2 0 0 0 95 0/0/1 2735 [10791] 43009 C 437 3 0 0 0 96 0/0/1 2742 [10792] 43010 C 438 2 0 0 0 97 0/0/1 2603 [10793] s 43011 C 430 13 0 0 0 98 ADD(MR) 0/0/1 2604 [10794] s 43012 C 430 14 0 0 0 99 SUBTRACT (MR) 5/0/0 4970 [10795] 43013 2 545 49 0 0 0 1/0/0 (A IS CLEAR) SUBTRACT 4/0/0 4931 [10796] 43014 1 545 10 0 0 0 5/0/0 ADD 2/0/0 4750 [10797] 43015 5 537 2 0 0 0 TRANSFER 26/0/0 4720 [10798] 43016 80 534 2 0 0 0 > SUSPEND ENTER SUBROUTINE 6/1/0 5260 [10799] 43017 0 66 10 1 0 0 DISC SELECT 27/0/0 2610 [10800] 43018 70 430 20 0 0 0 JUMP IF A == 0 6/0/0 4950 [10801] 43019 0 545 29 0 0 0 BIT 16 SELECT 4/0/0 4750 [10802] 43020 1 537 2 0 0 0 WL ADD 26/0/0 2755 [10803] 43021 80 439 2 0 0 0 > MR SR ENTER SUBROUTINE 24/1/0 989 [10804] 43022 76 362 2 0 0 0 > GNB JUMP unconditional Start of procedure 431 at location 2613 in chapter 4 [10805] [10805] 43100 PROCR 431 431 ACTION 90 [10805] 43101 NOTES RADIX B B 26/0/0 4720 [10805] 43102 80 534 2 0 0 0 - SUSPEND S/R ENTER SUBROUTINE 6/1/0 5264 [10806] 43103 66 14 1 0 0 SELECT 2/0/0 5330 [10807] 43104 5 61 52 0 0 0 SUSPEND LITERAL TRANSFER 26/0/0 4384 [10808] 43105 80 521 2 0 0 0 I/P INST S/R ENTER SUBROUTINE 6/1/0 5264 [10809] 43106 66 14 1 0 0 SELECT 2/0/0 5331 [10810] 43107 5 61 53 0 0 0 TRANSFER 6/0/0 5330 [10811] 43108 61 52 0 0 0 SELECT 27/0/3 2623 [10812] 43109 73 431 12 0 0 0 > NEGATIVE MODIFIER JUMP IF A < 0 6/0/0 5331 [10813] 43110 0 61 53 0 0 0 SELECT 27/0/2 2626 [10814] 43111 72 431 15 0 0 0 > POSITIVE MODIFIER > END VALUE JUMP IF A >= 0 6/0/0 4970 [10815] 43112 545 49 0 0 0 BIT 17 SELECT 7/0/0 5330 [10816] 43113 4 61 52 0 0 0 START VALUE AUGMENT 7/0/0 5331 [10817] 43114 4 61 53 0 0 0 END VALUE AUGMENT 6/1/0 5310 [10818] 43115 61 32 1 0 0 MOD DIGITS SELECT 1/1/2 4 [10819] 43116 12 0 0 0 4 SUBTRACT LITERAL 27/0/3 2633 [10820] 43117 73 431 22 0 0 0 > MR 1 - 3 JUMP IF A < 0 6/0/0 4929 [10821] 43118 0 545 8 0 0 0 6/0/0;MR>3 SELECT 2/0/0 5278 [10822] 43119 5 61 0 0 0 0 A CLEAR AT START TRANSFER 26/0/0 3637 [10823] 43120 80 481 2 0 0 0 > LONG NUMBER ENTER SUBROUTINE 24/1/0 2639 [10824] 43121 76 431 28 0 0 0 JUMP unconditional 6/0/0 4968 [10825] 43122 545 47 0 0 0 26/0/0 SELECT 24/0/0 5310 [10826] 43123 124 61 32 0 0 0 MODIFY ADDRESS OF NEXT 5/0/0 4946 [10827] 43124 2 545 25 0 0 0 SUBTRACT 2/0/0 5278 [10828] 43125 5 61 0 0 0 0 TRANSFER 26/0/0 3637 [10829] 43126 80 481 2 0 0 0 > LONG NO SR ENTER SUBROUTINE 24/1/0 989 [10830] 43127 76 362 2 0 0 0 > GNB JUMP unconditional 6/0/0 5310 [10831] 43128 0 61 32 0 0 0 SUSPEND MOD DIGITS SELECT 2/0/0 5280 [10832] 43129 5 61 2 0 0 0 TRANSFER 6/0/0 4951 [10833] 43130 545 30 0 0 0 2/1/0 SELECT 26/0/0 4048 [10834] 43131 80 506 2 0 0 0 MR >3 SR ENTER SUBROUTINE 24/1/0 989 [10835] 43132 76 362 2 0 0 0 JUMP unconditional Start of procedure 432 at location 2644 in chapter 4 [10836] [10836] 43200 PROCR 432 432 ACTION 91 [10836] 43201 NOTES RADIX B Source: RayS/Q1000369 1/1/3 0 [10836] 43202 10 0 0 0 0 STORE ABC SET BIN RA SELECT LITERAL 2/1/0 5260 [10837] 43203 5 66 10 1 0 0 CLEAR DISCRIMINANT TRANSFER 6/1/0 5256 [10838] 43204 66 6 1 0 0 REF SELECT 0/1/2 5258 [10839] 43205 34 66 8 1 0 0 ITEM SET (N) IN B 27/1/0 2661 [10840] 43206 74 432 19 0 0 0 g REF AND ITEM ZERO JUMP IF AB == 0 // 27, 1, 0 6/0/0 5262 [10841] 43207 66 12 0 0 0 MOD DIGITS SELECT 3/0/0 5310 [10842] 43208 3 61 32 0 0 0 COPY 1/1/2 4 [10843] 43209 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 2656 [10844] 43210 72 432 14 0 0 0 gMR>3 JUMP IF A >= 0 6/0/0 4977 [10845] 43211 545 56 0 0 0 26/1/0 SELECT 26/0/0 968 [10846] 43212 80 358 2 0 0 0 gCOMPLEX O/P ARITH ENTER SUBROUTINE 24/1/0 989 [10847] 43213 76 362 2 0 0 0 gGNB JUMP unconditional 1/1/3 0 [10848] 43214 10 0 0 0 0 SELECT LITERAL 2/1/0 5262 [10849] 43215 5 66 12 1 0 0 TRANSFER 6/0/0 4978 [10850] 43216 0 545 57 0 0 0 6/1/0 SELECT 26/0/0 968 [10851] 43217 80 358 2 0 0 0 gCOMPLEX O/P ARITH ENTER SUBROUTINE 24/1/0 2639 [10852] 43218 76 431 28 0 0 0 JUMP unconditional 6/0/0 5262 [10853] 43219 66 12 0 0 0 MOD DIGITS SELECT 3/0/0 5310 [10854] 43220 3 61 32 0 0 0 COPY 1/1/2 4 [10855] 43221 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 2639 [10856] 43222 72 431 28 0 0 0 JUMP IF A >= 0 6/0/0 4952 [10857] 43223 545 31 0 0 0 3/1/0 SELECT 26/0/0 982 [10858] 43224 80 361 2 0 0 0 gLN:2C SR ENTER SUBROUTINE 6/0/0 4977 [10859] 43225 0 545 56 0 0 0 26/1/0 SELECT 24/0/0 5262 [10860] 43226 124 66 12 0 0 0 MOD DIGITS MODIFY ADDRESS OF NEXT 5/0/0 4946 [10861] 43227 2 545 25 0 0 0 SUBTRACT 24/1/0 988 [10862] 43228 76 361 8 0 0 0 gLN:2C +GNB JUMP unconditional Start of procedure 433 at location 2671 in chapter 4 [10863] [10863] 43300 PROCR 433 ACTION 92 [10863] 43301 NOTES RADIX B 6/0/0 5262 [10863] 43302 0 66 12 0 0 0 SELECT 2/0/0 5310 [10864] 43303 5 61 32 0 0 0 WL TRANSFER 2/0/0 5262 [10865] 43304 5 66 12 0 0 0 CLEAR MOD DIGITS TRANSFER 6/0/0 5256 [10866] 43305 0 66 6 0 0 0 REF SELECT 0/0/2 5258 [10867] 43306 34 66 8 0 0 0 ITEM SET (N) IN B 27/1/0 2679 [10868] 43307 74 433 10 0 0 0 gACTS ON (A) JUMP IF AB == 0 // 27, 1, 0 6/0/0 4929 [10869] 43308 545 8 0 0 0 6 TO B17 SELECT 26/0/0 968 [10870] 43309 80 358 2 0 0 0 gCOMPLEX O/P ARITH ENTER SUBROUTINE 6/0/0 4934 [10871] 43310 0 545 13 0 0 0 2/0/0 SELECT 26/0/0 2755 [10872] 43311 80 439 2 0 0 0 gMOD REGISTER SR ENTER SUBROUTINE 24/1/0 989 [10873] 43312 76 362 2 0 0 0 gGNB JUMP unconditional Start of procedure 434 at location 2682 in chapter 4 [10874] [10874] 43400 PROCR 434 ACTION 93 (1) [10874] 43401 NOTES RADIX B 26/0/0 4098 [10874] 43402 80 508 2 0 0 0 -0/1/0 0/0/3 S/R ENTER SUBROUTINE 26/0/0 4720 [10875] 43403 80 534 2 0 0 0 SUSPEND ENTER SUBROUTINE 6/0/0 4917 [10876] 43404 544 23 0 0 0 DEC RADIX SELECT 18/0/1 5 [10877] 43405 30 0 0 0 5 SHIFT (A) BY QUARTETS 2/1/0 5354 [10878] 43406 5 61 76 1 0 0 TRANSFER 26/0/0 2235 [10879] 43407 80 416 2 0 0 0 CONVERSION TABLE SR ENTER SUBROUTINE 26/0/0 4729 [10880] 43408 80 535 2 0 0 0 REPLACE S/R ENTER SUBROUTINE 2/1/0 5262 [10881] 43409 5 66 12 1 0 0 CLEAR TRANSFER 6/0/0 4979 [10882] 43410 545 58 0 0 0 12/0/0 SELECT 26/0/0 968 [10883] 43411 80 358 2 0 0 0 gCOMPLEX O/P ARITH ENTER SUBROUTINE 6/0/0 5031 [10884] 43412 546 12 0 0 0 27/0/2/2 SELECT 26/0/0 3940 [10885] 43413 80 498 2 0 0 0 gO/P INT SC ENTER SUBROUTINE 6/0/0 4970 [10886] 43414 545 49 0 0 0 BIT 17 SELECT 2/1/0 5330 [10887] 43415 5 61 52 1 0 0 TRANSFER 6/0/0 4930 [10888] 43416 545 9 0 0 0 4/0/0 SELECT 26/0/0 960 [10889] 43417 80 357 2 0 0 0 gSHORT NO O/P ENTER SUBROUTINE Source: KenK/Q1000370 6/0/0 4934 [10890] 43418 545 13 0 0 0 2/0/0 SELECT 26/0/0 2755 [10891] 43419 80 439 2 0 0 0 MOD REGISTER S/R ENTER SUBROUTINE 26/0/0 1951 [10892] 43420 80 399 2 0 0 0 gRESTORE ABC ENTER SUBROUTINE 24/1/0 989 [10893] 43421 76 362 2 0 0 0 gGNB JUMP unconditional Start of procedure 435 at location 2702 in chapter 4 [10894] [10894] 43500 PROCR 435 ACTION 94 [10894] 43501 NOTES RADIX B 6/1/0 5264 [10894] 43502 0 66 14 1 0 0 LITERAL SELECT 27/0/2 2706 [10895] 43503 72 435 6 0 0 0 JUMP IF A >= 0 1/1/3 4096 [10896] 43504 10 0 0 0 1000 4096 SELECT LITERAL 7/0/0 5264 [10897] 43505 4 66 14 0 0 0 AUGMENT MODULAS AUGMENT 6/0/0 5262 [10898] 43506 66 12 0 0 0 SELECT 3/0/0 5280 [10899] 43507 3 61 2 0 0 0 STORE DIGITS COPY 1/1/2 4 [10900] 43508 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 2729 [10901] 43509 72 436 16 0 0 0 gMR>3 JUMP IF A >= 0 6/0/0 4980 [10902] 43510 545 59 0 0 0 25/0/0 SELECT 5/0/0 5264 [10903] 43511 2 66 14 0 0 0 MOD L SUBTRACT 24/0/0 5262 [10904] 43512 124 66 12 0 0 0 MODIFY ADDRESS OF NEXT 5/0/0 4946 [10905] 43513 2 545 25 0 0 0 0/0/0 0/0/3 SUBTRACT 26/0/0 973 [10906] 43514 80 359 2 0 0 0 gOUTPUT ENTER SUBROUTINE Start of procedure 436 at location 2715 in chapter 4 [10907] [10907] 43600 PROCR 436 ACTION 94 [10907] 43601 NOTES RADIX B 6/1/0 5256 [10907] 43602 66 6 1 0 0 REF SELECT 0/1/2 5258 [10908] 43603 34 66 8 1 0 0 ITEM SET (N) IN B 27/1/1 2724 [10909] 43604 75 436 11 0 0 0 REF & ITEM NON ZERO JUMP IF AB != 0 6/0/0 5030 [10910] 43605 546 11 0 0 0 24/1/0/1 SELECT 26/0/0 3940 [10911] 43606 80 498 2 0 0 0 gO/P INT SC ENTER SUBROUTINE 6/0/0 5328 [10912] 43607 0 61 50 0 0 0 VARIANT +1 ;TEST IF WE CAME IN SELECT 1/1/2 8 [10913] 43608 12 0 0 0 8 ;WITH 97 ACTION SUBTRACT LITERAL 27/0/1 989 [10914] 43609 71 362 2 0 0 0 gGNB JUMP IF A != 0 24/1/0 990 [10915] 43610 76 362 3 0 0 0 gGNB (NO INPUT) JUMP unconditional 1/1/3 7 [10916] 43611 10 0 0 0 7 SET VARIAMT AS SELECT LITERAL 2/0/0 5328 [10917] 43612 5 61 50 0 0 0 THOUGH 76 ACTION TRANSFER 2/0/0 5280 [10918] 43613 5 61 2 0 0 0 TRANSFER 2/1/0 5262 [10919] 43614 5 66 12 1 0 0 TRANSFER 24/1/0 2264 [10920] 43615 76 417 2 0 0 0 GROUP 7 ACTIONS JUMP unconditional 6/0/0 4982 [10921] 43616 0 545 61 0 0 0 23/0/0 ;MR>3 SELECT 5/0/0 5264 [10922] 43617 2 66 14 0 0 0 MOD L SUBTRACT 26/0/0 973 [10923] 43618 80 359 2 0 0 0 gO/P, CLEAR A ENTER SUBROUTINE 26/0/0 4048 [10924] 43619 80 506 2 0 0 0 gMR>3 SR ENTER SUBROUTINE 24/1/0 2715 [10925] 43620 76 436 2 0 0 0 JUMP unconditional Start of procedure 437 at location 2734 in chapter 4 [10926] [10926] 43700 PROCR 437 ACTIONS 95 AND 96 [10926] 43701 NOTES RADIX B 6/0/0 4950 [10926] 43702 0 545 29 0 0 0 BIT 16=DISC SELECT 4/0/0 4929 [10927] 43703 1 545 8 0 0 0 6/0/0 ADD 18/1/1 4118 [10928] 43704 32 0 0 0 10- SHIFT (AB) BY QUARTETS 6/0/0 5262 [10929] 43705 0 66 12 0 0 0 SELECT 2/0/0 5310 [10930] 43706 5 61 32 0 0 0 STORE MOD DIGITS TRANSFER 18/1/1 10 [10931] 43707 32 0 0 0 10 ACTION SHIFT (AB) BY QUARTETS 26/0/0 2755 [10932] 43708 80 439 2 0 0 0 gMOD REGISTER SR ENTER SUBROUTINE 24/1/0 989 [10933] 43709 76 362 2 0 0 0 gGNB JUMP unconditional Start of procedure 438 at location 2742 in chapter 4 [10934] [10934] 43800 PROCR 438 [10934] 43801 NOTES RADIX B ACTION 97 26/0/0 4720 [10934] 43802 80 534 2 0 0 0 ENTER SUBROUTINE 2/1/0 5262 [10935] 43803 5 66 12 1 0 0 TRANSFER 2/1/0 5260 [10936] 43804 5 66 10 1 0 0 CLEAR DISC. TRANSFER Source: DaveJ/Q1000371 6/0/0 5022 [10937] 43805 0 546 3 0 0 0 24/0/1 SELECT 26/0/0 954 [10938] 43806 80 356 2 0 0 0 >COMPLEX O/P NON-A ENTER SUBROUTINE 26/0/0 1848 [10939] 43807 80 397 2 0 0 0 >TEST C-LINE FOLLOWS ENTER SUBROUTINE 27/0/0 2752 [10940] 43808 70 438 12 0 0 0 >YES JUMP IF A == 0 1/1/3 0 [10941] 43809 10 0 0 0 0 SELECT LITERAL 2/1/0 5256 [10942] 43810 5 66 6 1 0 0 TRANSFER 2/1/0 5258 [10943] 43811 5 66 8 1 0 0 TRANSFER 6/1/0 5310 [10944] 43812 0 61 32 1 0 0 STORED MOD DIGITS SELECT 2/1/0 5262 [10945] 43813 5 66 12 1 0 0 TRANSFER 24/1/0 2702 [10946] 43814 76 435 2 0 0 0 JUMP unconditional Start of procedure 439 at location 2755 in chapter 4 [10947] [10947] 43900 PROCR 439 ARITHMETIC ON MOD REGISTERS=SEL/COPY/SUBTRACT/ADD [10947] 43901 NOTES 0/0/0 0 [10947] 43902 81 439 2 0 0 0 61/32=MR,(A)=ACTION+DISC START OF SUBROUTINE 2/0/0 4750 [10948] 43903 5 537 2 0 0 0 CONVERT SR LINK TRANSFER 6/0/0 5310 [10949] 43904 0 61 32 0 0 0 SELECT 1/1/2 4 [10950] 43905 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 2769 [10951] 43906 72 439 16 0 0 0 >MR>3 JUMP IF A >= 0 26/0/0 4044 [10952] 43907 80 505 2 0 0 0 >24/0/3 2C ENTER SUBROUTINE 6/0/0 4750 [10953] 43908 0 537 2 0 0 0 ACTION SELECT 4/0/0 5310 [10954] 43909 1 61 32 0 0 0 2M AS ADDRESS ADD 4/0/0 5310 [10955] 43910 1 61 32 0 0 0 ADD 2/0/0 5277 [10956] 43911 5 67 3 0 0 0 TRANSFER 6/0/0 5319 [10957] 43912 0 61 41 0 0 0 MOD GROUP PARA SELECT 2/0/0 5276 [10958] 43913 5 67 2 0 0 0 TRANSFER 26/0/0 4345 [10959] 43914 80 518 2 0 0 0 >O/P ENTER SUBROUTINE 26/0/1 2755 [10960] 43915 82 439 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 6/0/0 5310 [10961] 43916 0 61 32 0 0 0 SELECT 2/0/0 5280 [10962] 43917 5 61 2 0 0 0 TX MOD DIGITS TRANSFER 6/0/0 4750 [10963] 43918 0 537 2 0 0 0 ACTION+DISC SELECT 26/0/0 4048 [10964] 43919 80 506 2 0 0 0 MR>3 SR ENTER SUBROUTINE 26/0/1 2755 [10965] 43920 82 439 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 440 at location 2774 in chapter 4 [10966] [10966] 44000 PROCR 440 M/C ACTIONS [10966] 44001 NOTES RADIX B CALCULATE PARAMETERS, TEST 24/1/0 OR 27/D/M 1/1/3 10 [10966] 44002 10 0 0 0 t GROUP 13 SELECT LITERAL 1/1/1 10 [10967] 44003 11 0 0 0 t 12 ADD LITERAL 1/1/1 10 [10968] 44004 11 0 0 0 t 11 ADD LITERAL 1/1/2 1 [10969] 44005 12 0 0 0 1 10 SUBTRACT LITERAL 4/0/0 5328 [10970] 44006 1 61 50 0 0 0 V+1 ADD 3/0/0 5278 [10971] 44007 3 61 0 0 0 0 ACTION COPY 1/1/2 23 [10972] 44008 12 0 0 0 17 23 SUBTRACT LITERAL 27/0/0 2870 [10973] 44009 70 442 2 0 0 0 >ACTION 23 JUMP IF A == 0 1/1/2 9 [10974] 44010 12 0 0 0 9 SUBTRACT LITERAL 27/0/2 2890 [10975] 44011 72 443 2 0 0 0 >32,33 OR 34 JUMP IF A >= 0 6/0/0 5256 [10976] 44012 66 6 0 0 0 REF PARA 0 OR 2C ROUTINE SELECT 27/0/0 2822 [10977] 44013 70 440 50 0 0 0 JUMP IF A == 0 3/0/0 5313 [10978] 44014 3 61 35 0 0 0 COPY 1/1/2 999 [10979] 44015 101 999 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 2809 [10980] 44016 71 440 37 0 0 0 >NOT REF 999 JUMP IF A != 0 6/1/0 4894 [10981] 44017 543 44 1 0 0 CLEO'PARA WORD SELECT 27/0/0 2809 [10982] 44018 70 440 37 0 0 0 >NOT APPLICABLE JUMP IF A == 0 18/1/1 4122 [10983] 44019 32 0 0 0 6- SHIFT (AB) BY QUARTETS 27/0/0 2796 [10984] 44020 70 440 24 0 0 0 >NOT FILE ID JUMP IF A == 0 2/0/0 5332 [10985] 44021 5 61 54 0 0 0 TRANSFER 26/0/0 3954 [10986] 44022 80 499 2 0 0 0 >CALC PARA ENTER SUBROUTINE 24/1/0 2806 [10987] 44023 76 440 34 0 0 0 JUMP unconditional 18/1/1 2 [10988] 44024 32 0 0 0 2 SHIFT (AB) BY QUARTETS 27/0/0 2802 [10989] 44025 70 440 30 0 0 0 >NOT MR PARA,HENCE TX AREA JUMP IF A == 0 2/1/0 4894 [10990] 44026 5 543 44 1 0 0 TRANSFER Source: DaveJ/Q1000372 6/0/0 5319 [10991] 44027 0 61 41 0 0 0 MOD GROUP PARA SELECT 4/1/0 4895 [10992] 44028 1 543 44 2 0 0 ADD 24/1/0 2806 [10993] 44029 76 440 34 0 0 0 JUMP unconditional 6/1/0 4895 [10994] 44030 543 44 2 0 0 SELECT 2/0/0 5256 [10995] 44031 5 66 6 0 0 0 SECTION NUMBER TRANSFER 26/0/0 3759 [10996] 44032 80 488 2 0 0 0 ENTER SUBROUTINE 1/1/1 1 [10997] 44033 11 0 0 0 1 ADD LITERAL 2/1/0 5258 [10998] 44034 5 66 8 1 0 0 ITEM TRANSFER 2/1/0 5256 [10999] 44035 5 66 6 1 0 0 CLEAR REF TRANSFER 24/1/0 2819 [11000] 44036 76 440 47 0 0 0 >PARA 2C JUMP unconditional 6/0/0 5390 [11001] 44037 0 61 112 0 0 0 PROG IDENTITY SELECT 18/0/1 4126 [11002] 44038 30 0 0 0 2- SHIFT (A) BY QUARTETS 1/1/2 144 [11003] 44039 12 0 0 0 90 SUBTRACT LITERAL 27/0/1 2816 [11004] 44040 71 440 44 0 0 0 >NOT MASTER SUITE JUMP IF A != 0 26/0/0 3729 [11005] 44041 80 486 2 0 0 0 ENTER SUBROUTINE 18/0/3 1 [11006] 44042 31 0 0 0 1 FORM 2C' SHIFT (A) BY BITS 24/1/0 2823 [11007] 44043 76 440 51 0 0 0 >STORE PARA JUMP unconditional 26/0/0 3729 [11008] 44044 80 486 2 0 0 0 >DET CHAP ENTER SUBROUTINE 5/0/0 5329 [11009] 44045 2 61 51 0 0 0 THIS CHAP SUBTRACT 27/0/1 2822 [11010] 44046 71 440 50 0 0 0 - JUMP IF A != 0 6/0/0 5329 [11011] 44047 61 51 0 0 0 SELECT 4/0/0 5329 [11012] 44048 1 61 51 0 0 0 ADD 24/1/0 2823 [11013] 44049 76 440 51 0 0 0 - JUMP unconditional 1/1/3 0 [11014] 44050 10 0 0 0 0 SELECT LITERAL 2/0/0 5312 [11015] 44051 5 61 34 0 0 0 PARA W/L TRANSFER 6/0/0 5260 [11016] 44052 0 66 10 0 0 0 DISC SELECT 1/1/2 2 [11017] 44053 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 2830 [11018] 44054 71 440 58 0 0 0 >TAKE YOUR CHANCE JUMP IF A != 0 1/1/3 1 [11019] 44055 10 0 0 0 1 SELECT LITERAL 3/0/0 5260 [11020] 44056 3 66 10 0 0 0 COPY 7/1/0 5258 [11021] 44057 4 66 8 1 0 0 ADJUST ITEM AUGMENT 6/0/0 5278 [11022] 44058 61 0 0 0 0 ACTION SELECT 3/0/0 2306 [11023] 44059 3 418 2 0 0 0 COPY 18/0/3 1 [11024] 44060 31 0 0 0 1 SHIFT (A) BY BITS 0/0/2 4852 [11025] 44061 34 543 2 0 0 0 BIT 1 SET (N) IN B 15/0/0 5260 [11026] 44062 36 66 10 0 0 0 DISC COLLATE AND ADD 18/0/3 2 [11027] 44063 31 0 0 0 2 SHIFT (A) BY BITS 0/0/2 4914 [11028] 44064 34 544 20 0 0 0 BITS 1+2 SET (N) IN B 15/0/0 5262 [11029] 44065 36 66 12 0 0 0 MOD DIGITS COLLATE AND ADD 18/0/3 1 [11030] 44066 31 0 0 0 1 SHIFT (A) BY BITS 18/0/1 3 [11031] 44067 30 0 0 0 3 SHIFT (A) BY QUARTETS 3/0/0 5278 [11032] 44068 3 61 0 0 0 0 COMBINED A/D/M COPY 18/0/1 4123 [11033] 44069 30 0 0 0 5- SHIFT (A) BY QUARTETS 27/0/0 2850 [11034] 44070 70 440 78 0 0 0 >POSITIVE ACTION JUMP IF A == 0 6/0/0 5278 [11035] 44071 61 0 0 0 0 SELECT 27/0/1 2847 [11036] 44072 71 440 75 0 0 0 >NOT 'O-' JUMP IF A != 0 1/1/3 2 [11037] 44073 10 0 0 0 2 SELECT LITERAL 2/0/0 5275 [11038] 44074 5 67 1 0 0 0 SET IND TRANSFER 1/1/3 0 [11039] 44075 10 0 0 0 0 SELECT LITERAL 5/0/0 5278 [11040] 44076 2 61 0 0 0 0 SUBTRACT 2/0/0 5278 [11041] 44077 5 61 0 0 0 0 NEGATE ACTION TRANSFER 2/1/0 5260 [11042] 44078 5 66 10 1 0 0 TRANSFER 2/1/0 5262 [11043] 44079 5 66 12 1 0 0 TRANSFER 6/0/0 5278 [11044] 44080 61 0 0 0 0 SELECT 5/0/0 4967 [11045] 44081 2 545 46 0 0 0 24/1/0 SUBTRACT 27/0/0 2858 [11046] 44082 70 441 2 0 0 0 >IS A SEQ CHANGE JUMP IF A == 0 Source: DaveJ/Q1000373 6/0/0 2306 [11047] 44083 418 2 0 0 0 SELECT 1/1/2 27 [11048] 44084 12 0 0 0 1e TEST FOR 27/D/M SUBTRACT LITERAL 27/0/1 2862 [11049] 44085 71 441 6 0 0 0 >NO JUMP IF A != 0 Start of procedure 441 at location 2858 in chapter 4 [11050] [11050] 44100 PROCR 441 M/C ACTIONS [11050] 44101 NOTES RADIX B 26/0/0 2306 [11050] 44102 80 418 2 0 0 0 -S.C. S/R ENTER SUBROUTINE 26/0/0 4673 [11051] 44103 80 531 2 0 0 0 -NEG NO S/R ENTER SUBROUTINE 26/0/0 4689 [11052] 44104 80 532 2 0 0 0 - STACK ENTER SUBROUTINE 24/1/0 1440 [11053] 44105 76 382 10 0 0 0 - O/P GNB JUMP unconditional 6/0/0 5264 [11054] 44106 66 14 0 0 0 LITERAL SELECT 27/0/0 2859 [11055] 44107 70 441 3 0 0 0 >NO 'M&P' JUMP IF A == 0 18/0/1 4127 [11056] 44108 30 0 0 0 1- SHIFT (A) BY QUARTETS 26/0/0 4750 [11057] 44109 80 537 2 0 0 0 >BIN ENTER SUBROUTINE 2/0/0 5262 [11058] 44110 5 66 12 0 0 0 SET EXTRA MOD DIGITS TRANSFER 6/0/0 5278 [11059] 44111 61 0 0 0 0 SELECT 26/0/0 954 [11060] 44112 80 356 2 0 0 0 >COMPLEX O/PNON-ARITH ENTER SUBROUTINE 24/1/0 989 [11061] 44113 76 362 2 0 0 0 >GNB JUMP unconditional Start of procedure 442 at location 2870 in chapter 4 [11062] [11062] 44200 PROCR 442 ACTION 123/0/0 [11062] 44201 NOTES RADIX B 6/0/0 5262 [11062] 44202 66 12 0 0 0 MOD SELECT 0/0/2 5260 [11063] 44203 34 66 10 0 0 0 DISC SET (N) IN B 27/1/1 2784 [11064] 44204 75 440 12 0 0 0 JUMP IF AB != 0 2/0/0 5312 [11065] 44205 5 61 34 0 0 0 SET PARA ZERO TRANSFER 6/0/0 4982 [11066] 44206 0 545 61 0 0 0 23/0/0 SELECT 2/0/0 5278 [11067] 44207 5 61 0 0 0 0 TRANSFER 26/0/0 4689 [11068] 44208 80 532 2 0 0 0 -STACK ENTER SUBROUTINE 26/0/0 4345 [11069] 44209 80 518 2 0 0 0 -O/P ENTER SUBROUTINE 26/0/0 4384 [11070] 44210 80 521 2 0 0 0 I/P INSTRUCTION ENTER SUBROUTINE 6/0/0 5256 [11071] 44211 66 6 0 0 0 SELECT 27/0/0 2887 [11072] 44212 70 442 19 0 0 0 -ABS ADD JUMP IF A == 0 2/0/0 5313 [11073] 44213 5 61 35 0 0 0 TRANSFER 26/0/0 3729 [11074] 44214 80 486 2 0 0 0 -DET CHAP ENTER SUBROUTINE 3/0/0 5312 [11075] 44215 3 61 34 0 0 0 COPY 4/0/0 5312 [11076] 44216 1 61 34 0 0 0 ADD 27/0/0 2887 [11077] 44217 70 442 19 0 0 0 >DON'T MAKE A PARA 1- JUMP IF A == 0 1/1/2 1 [11078] 44218 12 0 0 0 1 SUBTRACT LITERAL 2/0/0 5312 [11079] 44219 5 61 34 0 0 0 TRANSFER 2/0/0 5278 [11080] 44220 5 61 0 0 0 0 TRANSFER 24/1/0 2859 [11081] 44221 76 441 3 0 0 0 JUMP unconditional Start of procedure 443 at location 2890 in chapter 4 [11082] [11082] 44300 PROCR 443 CHEQUE-SORTER ACTIONS 132-134 26/0/0 4720 [11082] 44302 80 534 2 0 0 0 >SUSPEND S/R ENTER SUBROUTINE 24/1/0 1493 [11083] 44303 76 387 5 0 0 0 JUMP unconditional 26/0/0 4729 [11084] 44304 80 535 2 0 0 0 >REPLACE S/R ENTER SUBROUTINE 6/0/0 5258 [11085] 44305 66 8 0 0 0 SELECT 2/1/0 5256 [11086] 44306 5 66 6 1 0 0 >REF TRANSFER 2/1/0 5258 [11087] 44307 5 66 8 1 0 0 CLEAR ITEM TRANSFER 2/1/0 5260 [11088] 44308 5 66 10 1 0 0 &DISC TRANSFER 2/1/0 5262 [11089] 44309 5 66 12 1 0 0 &MOD TRANSFER 26/0/0 4720 [11090] 44310 80 534 2 0 0 0 >RE-SUSPEND S/R ENTER SUBROUTINE 6/0/0 5328 [11091] 44311 61 50 0 0 0 V+1 SELECT 1/1/2 3 [11092] 44312 12 0 0 0 3 SUBTRACT LITERAL 27/0/1 2909 [11093] 44313 71 443 21 0 0 0 >133 OR 134 JUMP IF A != 0 6/0/0 4987 [11094] 44314 545 66 0 0 0 24/0/2 SELECT 26/0/0 954 [11095] 44315 80 356 2 0 0 0 >COMPLEX O/P ENTER SUBROUTINE Source: RayS/Q1000374 6/0/0 4993 [11096] 44316 545 72 0 0 0 18/1/1 5- SELECT 26/0/0 973 [11097] 44317 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 2/0/0 5328 [11098] 44318 5 61 50 0 0 0 CLEAR TRANSFER 26/0/0 1848 [11099] 44319 80 397 2 0 0 0 g'TEST CONTINUATION LINE' ENTER SUBROUTINE 24/1/0 1832 [11100] 44320 76 396 40 0 0 0 g JUMP unconditional 1/1/2 1 [11101] 44321 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 2929 [11102] 44322 71 444 20 0 0 0 gACTION 134 JUMP IF A != 0 Start of procedure 444 at location 2911 in chapter 4 [11103] [11103] 44400 PROCR 444 CHEQUE-SORTER 0/0/2 4915 [11103] 44402 34 544 21 0 0 0 BITS 5-19;ACTION 133 SET (N) IN B 24/0/1 5256 [11104] 44403 124 66 6 0 1 0 REF(EX-ITEM) MODIFY ADDRESS OF NEXT 15/0/0 5594 [11105] 44404 36 70 0 0 0 0 COLLATE AND ADD 18/0/1 4127 [11106] 44405 30 0 0 0 1- SHIFT (A) BY QUARTETS 1/1/2 2 [11107] 44406 12 0 0 0 2 SUBTRACT LITERAL 4/0/0 4934 [11108] 44407 1 545 13 0 0 0 BIT 18 ADD 2/0/0 5331 [11109] 44408 5 61 53 0 0 0 TRANSFER 2/0/0 5330 [11110] 44409 5 61 52 0 0 0 CLEAR TRANSFER 6/0/0 4929 [11111] 44410 545 8 0 0 0 6/0/0 SELECT 26/0/0 960 [11112] 44411 80 357 2 0 0 0 gLONG NO O/P ENTER SUBROUTINE 26/0/0 4729 [11113] 44412 80 535 2 0 0 0 gREPLACE S/R ENTER SUBROUTINE 6/0/0 4986 [11114] 44413 545 65 0 0 0 28/0/0 SELECT 26/0/0 954 [11115] 44414 80 356 2 0 0 0 COMPLEX O/P NON-A ENTER SUBROUTINE 6/1/0 5264 [11116] 44415 66 14 1 0 0 LITERAL SELECT 4/0/0 4943 [11117] 44416 1 545 22 0 0 0 1/1/3 ADD 26/0/0 973 [11118] 44417 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 6/0/0 4993 [11119] 44418 545 72 0 0 0 18/1/1 5- SELECT 26/0/0 973 [11120] 44419 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 26/0/0 4390 [11121] 44420 80 522 2 0 0 0 gI/P C-LINE S/R ENTER SUBROUTINE 6/1/0 5257 [11122] 44421 66 6 2 0 0 C-LINE REF SELECT 26/0/0 4750 [11123] 44422 80 537 2 0 0 0 gBIN ENTER SUBROUTINE 2/1/0 5256 [11124] 44423 5 66 6 1 0 0 TRANSFER 2/1/0 5258 [11125] 44424 5 66 8 1 0 0 CLEAR ITEM, DISC, MOD DIGITS TRANSFER 2/1/0 5260 [11126] 44425 5 66 10 1 0 0 TRANSFER 2/1/0 5262 [11127] 44426 5 66 12 1 0 0 TRANSFER 24/1/0 2902 [11128] 44427 76 443 14 0 0 0 JUMP unconditional Start of procedure 445 at location 2937 in chapter 4 [11129] [11129] 44500 PROCR 445 GROUP 14 [11129] 44501 NOTES RADIX 2/1/0 5260 [11129] 44502 5 66 10 1 0 0 CLEAR DISC TRANSFER 24/0/1 8158 [11130] 44503 85 381 2 0 0 0 SWITCH R 26/0/1 2939 [11131] 0/0/1 2949 [11132] s 44504 C 445 13 0 0 0 140 0/0/1 2953 [11133] s 44505 C 445 17 0 0 0 141 0/0/1 2953 [11134] s 44506 C 445 17 0 0 0 142 0/0/1 2953 [11135] s 44507 C 445 17 0 0 0 143 0/0/1 989 [11136] 44508 C 362 2 0 0 0 144 0/0/1 2953 [11137] s 44509 C 445 17 0 0 0 145 0/0/1 2956 [11138] s 44510 C 445 20 0 0 0 146 0/0/1 2959 [11139] s 44511 C 445 23 0 0 0 147 0/0/1 2963 [11140] s 44512 C 445 27 0 0 0 148 6/0/0 4943 [11141] 44513 0 545 22 0 0 0 1/1/3/0;140 ACTION SELECT 26/0/0 973 [11142] 44514 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 6/0/0 4957 [11143] 44515 0 545 36 0 0 0 1/0/1/0. SELECT 24/1/0 1439 [11144] 44516 76 382 9 0 0 0 O/P AND GNB JUMP unconditional 24/0/0 5328 [11145] 44517 124 61 50 0 0 0 VARIANT+1;141-3 +145 ACTIONS MODIFY ADDRESS OF NEXT 6/0/0 4995 [11146] 44518 0 545 74 0 0 0 APPROXIMATE 30 ACTION. SELECT 24/1/0 1306 [11147] 44519 76 373 12 0 0 0 gCOMPLEX O/P+GNB JUMP unconditional 1/1/3 0 [11148] 44520 10 0 0 0 0 ;146 ACTION SELECT LITERAL Source: ChuckK/Q1000375 26/0/0 2971 [11149] 44521 80 446 2 0 0 0 GRP 14 SR ENTER SUBROUTINE 24/1/0 989 [11150] 44522 76 362 2 0 0 0 GNB JUMP unconditional 6/0/0 5000 [11151] 44523 0 545 79 0 0 0 30/0/0/8;147 ACTION SELECT 26/0/0 2971 [11152] 44524 80 446 2 0 0 0 GRP 14 SR ENTER SUBROUTINE 6/0/0 5002 [11153] 44525 0 545 81 0 0 0 31/0/0/8 SELECT 24/1/0 988 [11154] 44526 76 361 8 0 0 0 >LN:2C+GNB JUMP unconditional 6/0/0 5000 [11155] 44527 0 545 79 0 0 0 30/0/0/8;148 ACTION SELECT 26/0/0 2971 [11156] 44528 80 446 2 0 0 0 GRP 14 SR ENTER SUBROUTINE 6/0/0 5009 [11157] 44529 0 545 88 0 0 0 30/0/0 4 SELECT 26/0/0 982 [11158] 44530 80 361 2 0 0 0 >LN:2C SR ENTER SUBROUTINE 6/0/0 5002 [11159] 44531 0 545 81 0 0 0 31/0/0 8 SELECT 26/0/0 982 [11160] 44532 80 361 2 0 0 0 >LN:2C SR ENTER SUBROUTINE 6/0/0 5010 [11161] 44533 0 545 89 0 0 0 31/0/0 4 SELECT 24/1/0 988 [11162] 44534 76 361 8 0 0 0 >LN:2C+GNB JUMP unconditional Start of procedure 446 at location 2971 in chapter 4 [11163] [11163] 44600 PROCR 446 SR FOR GROUP 14 ACTIONS [11163] 44601 NOTES RADIX B 0/0/0 0 [11163] 44602 81 446 2 0 0 0 START OF SUBROUTINE 27/0/0 2974 [11164] 44603 70 446 5 0 0 0 JUMP IF A == 0 26/0/0 982 [11165] 44604 80 361 2 0 0 0 >LN:2C SR ENTER SUBROUTINE 1/1/3 1 [11166] 44605 10 0 0 0 1 SELECT LITERAL 2/1/0 5260 [11167] 44606 5 66 10 1 0 0 SET DISC TRANSFER 6/0/0 4929 [11168] 44607 545 8 0 0 0 6/0/0 SELECT 26/0/0 968 [11169] 44608 80 358 2 0 0 0 >COMPLEX O/P ARITH ENTER SUBROUTINE 26/0/0 4390 [11170] 44609 80 522 2 0 0 0 I/P CONT LINE SR ENTER SUBROUTINE 1/1/3 1 [11171] 44610 10 0 0 0 1 SELECT LITERAL 2/1/0 5260 [11172] 44611 5 66 10 1 0 0 SET DISC TRANSFER 6/0/0 4935 [11173] 44612 545 14 0 0 0 9/0/0 SELECT 26/0/0 968 [11174] 44613 80 358 2 0 0 0 >COMPLEX O/P ARITH ENTER SUBROUTINE 26/0/1 2971 [11175] 44614 82 446 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 447 at location 2984 in chapter 4 [11176] [11176] 44700 PROCR 447 GROUP 15 ACTIONS [11176] 44701 NOTES RADIX B 24/0/1 8158 [11176] 44702 85 381 2 0 0 0 SWITCH R 26/0/1 2985 [11177] 0/0/1 2995 [11178] s 44703 C 447 12 0 0 0 150=OPTIONS 0/0/1 3092 [11179] 44704 C 451 2 0 0 0 151=UNLOAD 0/0/1 3078 [11180] 44705 C 450 2 0 0 0 152=OVERLAY 0/0/1 3062 [11181] 44706 C 449 2 0 0 0 153 0/0/1 3087 [11182] 44707 C 450 11 0 0 0 154=COMMENT IN LOG 0/0/1 3029 [11183] s 44708 C 448 20 0 0 0 155=SELECT PROG SERIAL>A 0/0/1 3033 [11184] s 44709 C 448 24 0 0 0 156=RELEASE ROUTE 0/0/1 3046 [11185] s 44710 C 448 37 0 0 0 157=EXPAND 0/0/1 3056 [11186] s 44711 C 448 47 0 0 0 158=COMPARE 6/1/0 5264 [11187] 44712 66 14 1 0 0 SELECT 2/1/0 5330 [11188] 44713 5 61 52 1 0 0 LITERAL=OPT NUMBER TRANSFER 26/0/0 4720 [11189] 44714 80 534 2 0 0 0 SUSPEND ENTER SUBROUTINE 26/1/2 5214 [11190] 44715 90 0 0 2 0 (TO STORE UP TO 10 LINES) SET MODIFICATION REGISTER AT LITERAL [11191] 44716 C 0 0 0 20 Limit 26/0/0 1848 [11191] 44717 80 397 2 0 0 0 TEST C-LINE FOLLOWS ENTER SUBROUTINE 27/0/1 3009 [11192] 44718 71 448 2 0 0 0 >NO JUMP IF A != 0 6/1/0 5256 [11193] 44719 66 6 1 0 0 SELECT 18/0/1 2 [11194] 44720 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/1/0 5258 [11195] 44721 1 66 8 1 0 0 ITEM ADD 2/0/2 5332 [11196] 44722 5 61 54 0 2 0 TRANSFER 6/1/0 5252 [11197] 44723 0 66 2 1 0 0 LINE SERIAL NUMBER SELECT 2/0/2 5333 [11198] 44724 5 61 55 0 2 0 TRANSFER 25/0/2 2 [11199] 44725 94 447 17 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2999 [11200] Start of procedure 448 at location 3009 in chapter 4 [11201] [11201] 44800 PROCR 448 GROUP 15 [11201] 44801 NOTES RADIX B Source: ChuckK/Q1000376 24/0/3 22 [11201] 44802 96 0 0 2 0 SELECT MODIFIER 6/0/0 4 [11202] 3/1/0 5272 [11203] 44803 3 66 22 1 0 0 W/L STORE MR2 COPY 18/0/3 3 [11204] 44804 31 0 0 0 1- FORM NUMBER OF C-LINES SHIFT (A) BY BITS 18/0/1 4127 [11205] 2/0/0 5301 [11206] 44805 5 61 23 0 0 0 NUMBER OF C-LINES TRANSFER 6/1/0 5330 [11207] 44806 61 52 1 0 0 SUSPENDED LITERAL;TEST OPTION NO. SELECT 27/0/1 3021 [11208] 44807 71 448 12 0 0 0 ;GIVEN IN A COMPARTME JUMP IF A != 0 26/0/0 4729 [11209] 44808 80 535 2 0 0 0 RESTORE FIRST LINE ENTER SUBROUTINE 6/0/0 4929 [11210] 44809 545 8 0 0 0 6/0/0 SELECT 26/0/0 968 [11211] 44810 80 358 2 0 0 0 >COMPLEX O/P ARITH ENTER SUBROUTINE 24/1/0 3024 [11212] 44811 76 448 15 0 0 0 JUMP unconditional 6/0/0 4943 [11213] 44812 545 22 0 0 0 1/1/3 SELECT 4/0/0 5330 [11214] 44813 1 61 52 0 0 0 LITERAL ADD 26/0/0 973 [11215] 44814 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 6/0/0 5301 [11216] 44815 0 61 23 0 0 0 NO OF C-LINES SELECT 2/1/0 5330 [11217] 44816 5 61 52 1 0 0 W/L FOR SN CONST S/R TRANSFER 6/0/0 4948 [11218] 44817 545 27 0 0 0 0/0/2 SELECT 26/0/0 960 [11219] 44818 80 357 2 0 0 0 >SHORT NO O/P S/R ENTER SUBROUTINE 24/1/0 3092 [11220] 44819 76 451 2 0 0 0 JUMP unconditional 6/1/0 5398 [11221] 44820 72 0 1 0 0 ALPHA SERIAL;ACTION 155 SELECT 2/1/0 5330 [11222] 44821 5 61 52 1 0 0 TRANSFER 6/0/0 4929 [11223] 44822 545 8 0 0 0 6/0/0 SELECT 24/1/0 1385 [11224] 44823 76 378 4 0 0 0 >O/P+GNB JUMP unconditional 26/0/0 4098 [11225] 44824 80 508 2 0 0 0 >0/1/0.0/0/3 SR;ACTION 156 ENTER SUBROUTINE 6/1/0 5256 [11226] 44825 66 6 1 0 0 FILE ID SELECT 2/0/0 5332 [11227] 44826 5 61 54 0 0 0 TRANSFER 26/0/0 3954 [11228] 44827 80 499 2 0 0 0 EXIT WITH(A)=ROUTE PARA ENTER SUBROUTINE 4/0/0 4929 [11229] 44828 1 545 8 0 0 0 6/0/0 ADD 26/0/0 948 [11230] 44829 80 355 2 0 0 0 >O/P ENTER SUBROUTINE 26/0/0 3141 [11231] 44830 80 453 2 0 0 0 >O/P 25/1/1 4096,24/0/3 ENTER SUBROUTINE 1/1/3 2304 [11232] 44831 10 0 0 0 900 9 IN Q3 SELECT LITERAL 2/0/0 5275 [11233] 44832 5 67 1 0 0 0 TRANSFER 6/0/0 4981 [11234] 44833 545 60 0 0 0 23/0/2 SELECT 26/0/0 973 [11235] 44834 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 26/0/0 1951 [11236] 44835 80 399 2 0 0 0 0/1/1 O/P ENTER SUBROUTINE 24/1/0 989 [11237] 44836 76 362 2 0 0 0 >NEXT BLOCK JUMP unconditional 2/1/0 5260 [11238] 44837 5 66 10 1 0 0 CLEAR DISC;ACTION 157 TRANSFER 26/0/0 4390 [11239] 44838 80 522 2 0 0 0 >SUSPEND, I/P C-LINE ENTER SUBROUTINE 1/1/3 0 [11240] 44839 10 0 0 0 0 SELECT LITERAL 2/1/0 5260 [11241] 44840 5 66 10 1 0 0 CLEAR C-LINE DISC TRANSFER 6/0/0 4987 [11242] 44841 0 545 66 0 0 0 24/0/2 SELECT 26/0/0 954 [11243] 44842 80 356 2 0 0 0 >COMPLEX O/P NON-A ENTER SUBROUTINE 26/0/0 4729 [11244] 44843 80 535 2 0 0 0 >RESTORE ENTER SUBROUTINE 6/0/0 5046 [11245] 44844 0 546 27 0 0 0 29/0/3 SELECT 26/0/0 954 [11246] 44845 80 356 2 0 0 0 >COMPLEX O/P NON-A ENTER SUBROUTINE 24/1/0 1989 [11247] 44846 76 401 19 0 0 0 >JOIN UP WITH 51 ACTION JUMP unconditional 2/1/0 5260 [11248] 44847 5 66 10 1 0 0 CLEAR DISC;ACTION 158 TRANSFER 6/0/0 5264 [11249] 44848 0 66 14 0 0 0 LITERAL SELECT 27/0/0 3060 [11250] 44849 70 448 51 0 0 0 >16/1/0 ORDER JUMP IF A == 0 6/0/0 5130 [11251] 44850 10 0 0 0 2000- (MAKE 16/1/1) SELECT LITERAL 4/0/0 5047 [11252] 44851 1 546 28 0 0 0 16/1/0 ADD 24/1/0 2029 [11253] 44852 76 403 12 0 0 0 >COMPLEX O/P NON-A * GNB JUMP unconditional Start of procedure 449 at location 3062 in chapter 4 [11254] [11254] 44900 PROCR 449 ACTION 153=SELECT DATE, TIME [11254] 44901 NOTES 0 0 0 0 6/0/0 4994 [11254] 44902 0 545 73 0 0 0 25/1/1 4096 SELECT 26/0/0 973 [11255] 44903 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 6/0/0 5037 [11256] 44904 546 18 0 0 0 23/0/22 SELECT 26/0/0 3940 [11257] 44905 80 498 2 0 0 0 >O/P INT SC ENTER SUBROUTINE 6/0/0 5032 [11258] 44906 546 13 0 0 0 24/1/0/7 SELECT 26/0/0 3940 [11259] 44907 80 498 2 0 0 0 >O/P INT SC ENTER SUBROUTINE Source: ChuckK/Q1000377 Query: literal 2 26/0/0 973 [11260] 44908 80 359 2 0 0 0 >O/P 0/0/0 (LINK) ENTER SUBROUTINE 26/0/0 4035 [11261] 44909 80 504 2 0 0 0 >O/P 24/0/3 0 ENTER SUBROUTINE 6/0/0 5016 [11262] 44910 0 545 95 0 0 0 0/0/2 156 SELECT 26/0/0 973 [11263] 44911 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 26/0/0 4035 [11264] 44912 80 504 2 0 0 0 >O/P 24/0/3 0 ENTER SUBROUTINE 6/0/0 5014 [11265] 44913 0 545 93 0 0 0 6/1/0 138 SELECT 26/0/0 973 [11266] 44914 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 6/0/0 5033 [11267] 44915 546 14 0 0 0 26/0/3/5- SELECT 26/0/0 3940 [11268] 44916 80 498 2 0 0 0 >O/P INT SC ENTER SUBROUTINE 24/1/0 989 [11269] 44917 76 362 2 0 0 0 >GNB JUMP unconditional Start of procedure 450 at location 3078 in chapter 4 [11270] [11270] 45000 PROCR 450 GROUP 15 [11270] 45001 NOTES RADIX B ACTIONS 152 AND 154 26/0/0 4390 [11270] 45002 80 522 2 0 0 0 -I/P C-LINE S/R ENTER SUBROUTINE 6/1/0 5256 [11271] 45003 66 6 1 0 0 SELECT 2/0/0 5313 [11272] 45004 5 61 35 0 0 0 TRANSFER 26/0/0 3729 [11273] 45005 80 486 2 0 0 0 DETERMINE CHAPTER ENTER SUBROUTINE 2/0/0 5301 [11274] 45006 5 61 23 0 0 0 CORRECTED CHAP TRANSFER 6/0/0 5296 [11275] 45007 0 61 18 0 0 0 UNCORRECTED CHAPTER SELECT 2/1/0 5330 [11276] 45008 5 61 52 1 0 0 TRANSFER 26/0/0 4098 [11277] 45009 80 508 2 0 0 0 -0/1/0 0/0/3 S/R ENTER SUBROUTINE 24/1/0 3015 [11278] 45010 76 448 6 0 0 0 - JUMP unconditional 2/1/0 5260 [11279] 45011 5 66 10 1 0 0 CLEAR DISC TRANSFER 2/1/0 5262 [11280] 45012 5 66 12 1 0 0 HOD TRANSFER 26/0/0 4098 [11281] 45013 80 508 2 0 0 0 >0/1/0+0/0/3 ENTER SUBROUTINE 6/0/0 4987 [11282] 45014 0 545 66 0 0 0 24/0/2 SELECT 26/0/0 954 [11283] 45015 80 356 2 0 0 0 >COMPLEX O/P NON-A ENTER SUBROUTINE Start of procedure 451 at location 3092 in chapter 4 [11284] [11284] 45100 PROCR 451 GROUP 15 [11284] 45101 NOTES RADIX B 26/0/0 3141 [11284] 45102 80 453 2 0 0 0 -NON INTERRUPT S/R ENTER SUBROUTINE 6/0/0 5328 [11285] 45103 61 50 0 0 0 SELECT 1/1/2 3 [11286] 45104 12 0 0 0 3 SUBTRACT LITERAL 27/0/2 3134 [11287] 45105 72 452 26 0 0 0 >ACTIONS 152,154 JUMP IF A >= 0 24/0/1 5328 [11288] 45106 124 61 50 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 5016 [11289] 45107 0 545 95 0 0 0 SELECT 2/0/0 5275 [11290] 45108 5 67 1 0 0 0 'SEQ CHANGE' IND TRANSFER 6/0/0 4984 [11291] 45109 0 545 63 0 0 0 26/0/2 SELECT 26/0/0 973 [11292] 45110 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 6/0/0 5328 [11293] 45111 61 50 0 0 0 SELECT 1/1/2 2 [11294] 45112 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 989 [11295] 45113 70 362 2 0 0 0 GNB;IF 151 ACTION JUMP IF A == 0 Start of procedure 452 at location 3104 in chapter 4 [11296] [11296] 45200 PROCR 452 GROUP 15 [11296] 45201 NOTES RADIX B ACTION 150 6/1/0 5272 [11296] 45202 66 22 1 0 0 STORED VALUE OF MR2 SELECT 18/0/1 5 [11297] 45203 30 0 0 0 5 SET E.V. AT MODIFIERAND MODIFIER ZERO SHIFT (A) BY QUARTETS 27/0/0 990 [11298] 45204 70 362 3 0 0 0 >GNB(NO C-LINES) JUMP IF A == 0 3/1/0 40 [11299] 45205 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [11300] 0/1/0 40 [11301] 45206 34 61 54 0 3 0 DEST SET (N) IN B 0/0/3 0 [11302] 6/0/3 5332 [11303] 2/1/0 42 [11304] 0/1/1 40 [11305] 1/1/3 0 [11306] 45207 10 0 0 0 0 SELECT LITERAL 18/1/1 8 [11307] 45208 32 0 0 0 8 SHIFT (AB) BY QUARTETS 3/0/0 5256 [11308] 45209 3 66 6 0 0 0 COPY 2/0/0 5313 [11309] 45210 5 61 35 0 0 0 TRANSFER 18/1/1 2 [11310] 45211 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/0/0 5258 [11311] 45212 5 66 8 0 0 0 TRANSFER 26/0/0 3729 [11312] 45213 80 486 2 0 0 0 -DET CHAP ENTER SUBROUTINE 3/0/0 5312 [11313] 45214 3 61 34 0 0 0 PARA COPY 27/0/0 3124 [11314] 45215 70 452 17 0 0 0 >DON'T MAKE PARA 1 JUMP IF A == 0 Source: DavidH/Q1000378 1/1/2 1 [11315] 45216 12 0 0 0 1 SUBTRACT LITERAL 7/0/0 5312 [11316] 45217 4 61 34 0 0 0 AUGMENT 6/0/3 5333 [11317] 45218 0 61 55 0 3 0 SOURCE SELECT 2/1/0 5252 [11318] 45219 5 66 2 1 0 0 TRANSFER 2/0/0 5278 [11319] 45220 5 61 0 0 0 0 CLEAR ACTION W/L TRANSFER 26/0/0 2306 [11320] 45221 80 418 2 0 0 0 S.C. S/R ENTER SUBROUTINE 26/0/0 4689 [11321] 45222 80 532 2 0 0 0 STACK ENTER SUBROUTINE 26/0/0 4345 [11322] 45223 80 518 2 0 0 0 O/P ENTER SUBROUTINE 25/0/3 2 [11323] 45224 94 452 6 0 3 2 gNEXT C-LINE STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3109 [11324] s 24/1/0 990 [11325] 45225 76 362 3 0 0 0 JUMP unconditional 24/0/0 5328 [11326] 45226 124 61 50 0 0 0 MODIFY ADDRESS OF NEXT 6/0/0 5010 [11327] 45227 0 545 89 0 0 0 SEQ CHANGE IND SELECT 2/0/0 5275 [11328] 45228 5 67 1 0 0 0 TRANSFER 6/0/0 4981 [11329] 45229 0 545 60 0 0 0 23/0/2 SELECT 26/0/0 973 [11330] 45230 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 26/0/0 1951 [11331] 45231 80 399 2 0 0 0 RESTORES ABC ENTER SUBROUTINE 24/1/0 989 [11332] 45232 76 362 2 0 0 0 GNB JUMP unconditional Start of procedure 453 at location 3141 in chapter 4 [11333] [11333] 45300 PROCR 453 SET NON-INTERRUPTIBLE S/R [11333] 45301 NOTES RADIX B B GROUPS 4 AND 15 BEFORE ENTER MASTER 0/0/0 0 [11333] 45302 81 453 2 0 0 0 START OF SUBROUTINE 6/0/0 4994 [11334] 45303 545 73 0 0 0 25/1/1/4096 SELECT 26/0/0 973 [11335] 45304 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 26/0/0 4035 [11336] 45305 80 504 2 0 0 0 gO/P 24/0/3 0 ENTER SUBROUTINE 26/0/1 3141 [11337] 45306 82 453 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 454 at location 3146 in chapter 4 [11338] [11338] 45400 PROCR 454 CONSTANTS [11338] 45401 NOTES RADIX B B 6/1/0 5216 [11338] 45402 54 61 55 0 0 14 CLEAR W/LS BULK CLEAR 28/0/0 5333 [11339] 26/0/0 3284 [11340] 45403 80 463 2 0 0 0 -PREP S/R ENTER SUBROUTINE 26/0/0 3321 [11341] 45404 80 464 2 0 0 0 -GET NEXT CHAR S/R ENTER SUBROUTINE 1/1/3 0 [11342] 45405 10 0 0 0 0 SELECT LITERAL Start of procedure 455 at location 3151 in chapter 4 [11343] [11343] 45500 PROCR 455 CONSTANTS [11343] 45501 NOTES RADIX B B 26/0/0 3321 [11343] 45502 80 464 2 0 0 0 -GET NEXT CHAR ENTER SUBROUTINE 1/1/3 1 [11344] 45503 10 0 0 0 1 SELECT LITERAL 2/0/0 5308 [11345] 45504 5 61 30 0 0 0 DEFN LINE IND TRANSFER 2/1/0 5376 [11346] 45505 5 61 98 1 0 0 TRANSFER 26/1/2 5338 [11347] 45506 91 61 60 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 6/0/0 5302 [11348] 45507 61 24 0 0 0 THIS CHARACTER SELECT 1/1/2 81 [11349] 45508 12 0 0 0 51 A SUBTRACT LITERAL 27/0/0 3175 [11350] 45509 70 456 6 0 0 0 JUMP IF A == 0 1/1/2 1 [11351] 45510 12 0 0 0 1 B SUBTRACT LITERAL 27/0/0 3172 [11352] 45511 70 456 3 0 0 0 JUMP IF A == 0 1/1/2 1 [11353] 45512 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 3165 [11354] 45513 71 455 16 0 0 0 g NOT 'C' JUMP IF A != 0 1/1/3 16 [11355] 45514 10 0 0 0 10 16 SELECT LITERAL 24/1/0 3170 [11356] 45515 76 455 21 0 0 0 gSET AS SUBFIELD LENGTH JUMP unconditional 1/1/2 1 [11357] 45516 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 3173 [11358] 45517 70 456 4 0 0 0 JUMP IF A == 0 1/1/2 19 [11359] 45518 12 0 0 0 13 P SUBTRACT LITERAL 27/0/0 3174 [11360] 45519 70 456 5 0 0 0 JUMP IF A == 0 1/1/3 15 [11361] 45520 10 0 0 0 p HENCE 'R' SELECT LITERAL 2/0/2 5333 [11362] 45521 5 61 55 0 2 0 SUBFIELD LENGTH TRANSFER Start of procedure 456 at location 3171 in chapter 4 [11363] [11363] 45600 PROCR 456 CONSTANTS [11363] 45601 NOTES RADIX B 1/1/3 1 [11363] 45602 10 0 0 0 1 R,C=5 SELECT LITERAL 1/1/1 1 [11364] 45603 11 0 0 0 1 B=4 ADD LITERAL Source: KenK/Q1000379 1/1/1 1 [11365] 45604 11 0 0 0 1 ADD LITERAL 1/1/1 1 [11366] 45605 11 0 0 0 1 ADD LITERAL 1/1/1 1 [11367] 45606 11 0 0 0 1 ADD LITERAL 3/0/2 5340 [11368] 45607 3 61 62 0 2 0 SWITCH SETTING COPY 2/0/0 8157 [11369] 45608 84 458 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 26/0/0 3321 [11370] 45609 80 464 2 0 0 0 GET NEXT CHAR ENTER SUBROUTINE 1/1/2 123 [11371] 45610 12 0 0 0 7e SUBTRACT LITERAL 27/0/0 3186 [11372] 45611 70 457 2 0 0 0 JUMP IF A == 0 6/1/0 5376 [11373] 45612 0 61 98 1 0 0 COLLECT * IN'(B*)' DIRECTIVE SELECT 18/0/1 2 [11374] 45613 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 5302 [11375] 45614 1 61 24 0 0 0 THIS CHAR ADD 2/1/0 5376 [11376] 45615 5 61 98 1 0 0 TRANSFER 24/1/0 3178 [11377] 45616 76 456 9 0 0 0 LOOP UNTIL')'FOUND JUMP unconditional Start of procedure 457 at location 3186 in chapter 4 [11378] [11378] 45700 PROCR 457 CONSTANTS [11378] 45701 NOTES RADIX B 18/1/1 10 [11378] 45702 32 0 0 0 10 PRESERVE B DURING CURRENT SHIFT (AB) BY QUARTETS 2/1/0 5374 [11379] 45703 5 61 96 1 0 0 TRANSFER 6/1/0 5377 [11380] 45704 61 98 2 0 0 SELECT 26/0/0 4750 [11381] 45705 80 537 2 0 0 0 CONVERT NO OF BITS FOR BIN CONSTANT ENTER SUBROUTINE 27/0/3 3192 [11382] 45706 73 457 8 0 0 0 gSAFETY DEVICE JUMP IF A < 0 7/0/2 5333 [11383] 45707 4 61 55 0 2 0 AUG SHIFT CONTROL AUGMENT 0/1/2 5374 [11384] 45708 34 61 96 1 0 0 RESTORE B SET (N) IN B 1/1/3 0 [11385] 45709 10 0 0 0 0 SELECT LITERAL Start of procedure 458 at location 3194 in chapter 4 [11386] [11386] 45800 PROCR 458 CONSTANTS MAIN LOOP [11386] 45801 NOTES RADIX B 26/0/0 3321 [11386] 45802 80 464 2 0 0 0 GET NEXT CHAR ENTER SUBROUTINE 1/1/2 122 [11387] 45803 12 0 0 0 7t SUBTRACT LITERAL 27/0/0 3208 [11388] 45804 70 458 15 0 0 0 gYES JUMP IF A == 0 1/1/2 2 [11389] 45805 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 3223 [11390] 45806 70 460 2 0 0 0 JUMP IF A == 0 1/1/2 1 [11391] 45807 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 3230 [11392] 45808 70 461 2 0 0 0 gEND OF CONSTANT JUMP IF A == 0 24/0/1 8157 [11393] 45809 85 458 2 0 0 0 SWITCH R 26/0/1 3202 [11394] 0/0/1 3346 [11395] 45810 C 467 2 0 0 0 ALPHA 0/0/1 3356 [11396] 45811 C 468 2 0 0 0 0/0/1 3374 [11397] 45812 C 469 2 0 0 0 0/0/1 3398 [11398] 45813 C 471 2 0 0 0 0/0/1 3430 [11399] 45814 C 473 2 0 0 0 1/1/3 1 [11400] 45815 10 0 0 0 1 SELECT LITERAL 2/0/0 5339 [11401] 45816 5 61 61 0 0 0 MIXED CONST IND TRANSFER 26/0/0 3212 [11402] 45817 80 459 2 0 0 0 gSHIFT UP PREVIOUS SUBFIELD ENTER SUBROUTINE 24/1/0 3150 [11403] 45818 76 454 5 0 0 0 gGET NEXT CHAR JUMP unconditional Start of procedure 459 at location 3212 in chapter 4 [11404] [11404] 45900 PROCR 459 CONSTANT S/R [11404] 45901 NOTES RADIX B ADD THIS SUBFIELD TO PREVIOUS ONES 0/0/0 0 [11404] 45902 81 459 2 0 0 0 START OF SUBROUTINE 6/1/0 5304 [11405] 45903 0 61 26 1 0 0 CONSTANT TO DATE SELECT 24/0/0 5338 [11406] 45904 124 61 60 0 0 0 SUBFIELD CTR MODIFY ADDRESS OF NEXT 24/0/0 5333 [11407] 45905 124 61 55 0 0 0 LENGTH OF SUBFIELD IN BITE MODIFY ADDRESS OF NEXT 18/0/3 0 [11408] 45906 31 0 0 0 0 ///// SHIFT (A) BY BITS 4/1/0 5306 [11409] 45907 1 61 28 1 0 0 VALUE OF CURRENT SUBCONST ADD Source: RayS/Q1000380 2/1/0 5304 [11410] 45908 5 61 26 1 0 0 TRANSFER 2/1/0 5306 [11411] 45909 5 61 28 1 0 0 TRANSFER 1/1/3 1 [11412] 45910 10 0 0 0 1 SELECT LITERAL 7/0/0 5338 [11413] 45911 4 61 60 0 0 0 STEP SF CTR AUGMENT 26/0/1 3212 [11414] 45912 82 459 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 460 at location 3223 in chapter 4 [11415] [11415] 46000 PROCR 460 [11415] 46001 NOTES RADIX B 26/0/0 3321 [11415] 46002 80 464 2 0 0 0 gGET NEXT CHAR AFTER COMMA ENTER SUBROUTINE 26/0/0 3212 [11416] 46003 80 459 2 0 0 0 gADD IN SUBCONST PRECEDING COMMA ENTER SUBROUTINE 26/1/2 5338 [11417] 46004 91 61 60 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 6/0/2 5340 [11418] 46005 84 458 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 2/0/0 8157 [11419] 46006 C 61 62 0 2 0 NET SUBFIELD TYPE SET SWITCH(ES) AT VARIABLE VALUE 6/0/0 5302 [11420] 46007 61 24 0 0 0 NEXT CHAR AFTER COMMA SELECT 24/1/0 3195 [11421] 46008 76 458 3 0 0 0 JUMP unconditional Start of procedure 461 at location 3230 in chapter 4 [11422] [11422] 46100 PROCR 461 [11422] 46101 NOTES RADIX B 26/0/0 3212 [11422] 46102 80 459 2 0 0 0 gADD IN FINAL SUBCONST ENTER SUBROUTINE 6/0/0 5310 [11423] 46103 61 32 0 0 0 NEG IND SELECT 27/0/0 3241 [11424] 46104 70 461 13 0 0 0 gCONSTANT IS POSITIVE JUMP IF A == 0 6/0/0 5325 [11425] 46105 61 47 0 0 0 CONST TYPE SELECT 27/0/0 3239 [11426] 46106 70 461 11 0 0 0 SHORT CONST JUMP IF A == 0 1/1/3 0 [11427] 46107 10 0 0 0 0 SELECT LITERAL 5/1/0 5304 [11428] 46108 2 61 26 1 0 0 SUBTRACT 2/1/0 5304 [11429] 46109 5 61 26 1 0 0 TRANSFER 24/1/0 3241 [11430] 46110 76 461 13 0 0 0 COMPLEMENT CONST LONG OR SHORT JUMP unconditional 5/0/0 5304 [11431] 46111 2 61 26 0 0 0 SUBTRACT 2/0/0 5304 [11432] 46112 5 61 26 0 0 0 TRANSFER 24/0/3 8190 [11433] 46113 6 2 12 0 SELECT 6/1/0 7 [11434] 2/0/0 5309 [11435] 46114 5 61 31 0 0 0 SET END IND TRANSFER 26/0/0 4145 [11436] 46115 80 511 2 0 0 0 gPRINT ENTER SUBROUTINE 26/0/0 3262 [11437] 46116 80 462 2 0 0 0 gCONST O/P SR ENTER SUBROUTINE 6/0/0 5309 [11438] 46117 61 31 0 0 0 END IND SELECT 27/0/1 989 [11439] 46118 71 362 2 0 0 0 gYES, GNB JUMP IF A != 0 26/0/0 4111 [11440] 46119 80 509 2 0 0 0 -I/P ENTER SUBROUTINE 26/0/0 3284 [11441] 46120 80 463 2 0 0 0 -PREP S/R ENTER SUBROUTINE 1/1/3 0 [11442] 46121 10 0 0 0 0 CLEAR A FOR GET NEXT CHARACTER S/R SELECT LITERAL 26/0/0 3321 [11443] 46122 80 464 2 0 0 0 -GET NEXT CHAR ENTER SUBROUTINE 1/1/2 122 [11444] 46123 12 0 0 0 7t 122 SUBTRACT LITERAL 27/0/0 3258 [11445] 46124 70 461 29 0 0 0 gTHIS IS A DIRECTIVE LINE JUMP IF A == 0 6/0/0 5339 [11446] 46125 61 61 0 0 0 SELECT 27/0/1 3225 [11447] 46126 71 460 4 0 0 0 gTHIS IS A MIXED CONSTANT JUMP IF A != 0 6/0/0 5302 [11448] 46127 61 24 0 0 0 NEXT CHARACTER SELECT 24/1/0 3195 [11449] 46128 76 458 3 0 0 0 - JUMP unconditional 2/0/0 5333 [11450] 46129 5 61 55 0 0 0 TRANSFER 2/1/0 5334 [11451] 46130 5 61 56 1 0 0 TRANSFER 2/1/0 5336 [11452] 46131 5 61 58 1 0 0 TRANSFER 24/1/0 3151 [11453] 46132 76 455 2 0 0 0 gGET DIRECTIVE LETTER JUMP unconditional Start of procedure 462 at location 3262 in chapter 4 [11454] [11454] 46200 PROCR 462 [11454] 46201 NOTES RADIX B 0/0/0 0 [11454] 46202 81 462 2 0 0 0 START OF SUBROUTINE 6/0/0 5305 [11455] 46203 61 27 0 0 0 MOST SIG HALF LONG CONST SELECT 2/0/0 5277 [11456] 46204 5 67 3 0 0 0 TRANSFER 6/0/0 5304 [11457] 46205 61 26 0 0 0 LEAST SIG HALF SELECT 24/0/0 5346 [11458] 46206 124 61 68 0 0 0 0 OR 2 MODIFY ADDRESS OF NEXT 2/0/0 5275 [11459] 46207 5 67 1 0 0 0 TRANSFER Source: RayS/Q1000381 6/0/0 5325 [11460] 46208 61 47 0 0 0 CONST TYPE SELECT 27/0/1 3276 [11461] 46209 71 462 16 0 0 0 -LONG NO CONST JUMP IF A != 0 6/0/0 5309 [11462] 46210 61 31 0 0 0 NONZERO IF FINAL CONST IN SECTION SELECT 27/0/1 3276 [11463] 46211 71 462 16 0 0 0 - JUMP IF A != 0 1/1/3 2 [11464] 46212 10 0 0 0 2 SELECT LITERAL 5/0/0 5346 [11465] 46213 2 61 68 0 0 0 SUBTRACT 3/0/0 5346 [11466] 46214 3 61 68 0 0 0 COPY 27/0/1 3283 [11467] 46215 71 462 23 0 0 0 gFIRST TIME THROUGH JUMP IF A != 0 6/1/0 5304 [11468] 46216 61 26 1 0 0 SELECT 27/0/2 3282 [11469] 46217 72 462 22 0 0 0 JUMP IF A >= 0 6/0/0 5305 [11470] 46218 61 27 0 0 0 SELECT 27/0/1 3282 [11471] 46219 71 462 22 0 0 0 gMOST SIG HALF IS NOT MINUS ZERO JUMP IF A != 0 1/1/3 128 [11472] 46220 10 0 0 0 80 B8 SELECT LITERAL 7/0/0 5276 [11473] 46221 4 67 2 0 0 0 PARAMETER AUGMENT 26/0/0 4345 [11474] 46222 80 518 2 0 0 0 O/P ENTER SUBROUTINE 26/0/1 3262 [11475] 46223 82 462 2 0 0 0 END END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 463 at location 3284 in chapter 4 [11476] [11476] 46300 PROCR 463 [11476] 46301 NOTES RADIX B CONSTANTS PREP S/R 0/0/0 0 [11476] 46302 81 463 2 0 0 0 START OF SUBROUTINE 6/1/0 5218 [11477] 46303 54 61 26 0 0 8 CLEAR W/L'S BULK CLEAR 28/0/0 5304 [11478] 6/1/0 5552 [11479] 46304 77 2 1 0 0 AMEND IND SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 2 [11481] 46305 5 7 2 1 0 0 TRANSFER 6/1/0 5554 [11482] 46306 77 4 1 0 0 LINE SERIAL SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 6 [11484] 46307 5 7 6 1 0 0 TRANSFER 24/0/2 5558 [11485] 46308 55 77 8 1 0 18 COPY CONSTANTS BULK COPY 18/1/0 4123 [11486] 46309 C 7 12 1 0 0 1/1/3 18 [11487] 18/1/1 5 [11488] 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/1/1 12 [11490] 6/1/0 5576 [11491] 46310 77 26 1 0 0 PASS 1 REPORTS SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 48 [11493] 46311 5 7 48 1 0 0 TRANSFER 24/0/2 5578 [11494] 46312 55 77 28 1 0 16 COPY ANNOTATION BULK COPY 18/1/0 4123 [11495] 46313 C 7 32 1 0 0 1/1/3 16 [11496] 18/1/1 5 [11497] 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/1/1 32 [11499] 6/0/0 5346 [11500] 46314 0 61 68 0 0 0 O/P IND SELECT 27/0/1 3311 [11501] 46315 71 463 17 0 0 0 gSECOND HALF OF SHORT CONST JUMP IF A != 0 2/0/0 5274 [11502] 46316 5 67 0 0 0 0 CLEAR THIS TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 46 [11504] 46317 7 46 1 0 0 SELECT 5/1/0 4828 [11505] 46318 2 542 28 1 0 0 IGNORE TRANSLATION IND SUBTRACT 27/0/0 3241 [11506] 46319 70 461 13 0 0 0 gYES, GO TO PRINT JUMP IF A == 0 26/1/3 5220 [11507] 46320 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [11508] 46321 C 0 0 0 10 Limit 0/1/2 5558 [11508] 46322 34 77 8 1 0 0 FIRST WORD OF CONSTANT SET (N) IN B 1/1/3 2 [11509] 46323 10 0 0 0 2 SELECT LITERAL 2/0/0 5316 [11510] 46324 5 61 38 0 0 0 SET MOD CTR TRANSFER 2/0/0 5338 [11511] 46325 5 61 60 0 0 0 S/F MOD TRANSFER 26/0/1 3284 [11512] 46326 82 463 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 464 at location 3321 in chapter 4 [11513] [11513] 46400 PROCR 464 GET NEXT CHAR S/R [11513] 46401 NOTES RADIX B 0/0/0 0 [11513] 46402 81 464 2 0 0 0 START OF SUBROUTINE 18/1/1 2 [11514] 46403 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/1/0 5302 [11515] 46404 5 61 24 1 0 0 THIS CHAR W/L TRANSFER 25/0/3 2 [11516] 46405 94 464 12 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3331 [11517] 24/0/0 5316 [11518] 46406 124 61 38 0 0 0 MODIFY ADDRESS OF NEXT 0/1/2 5558 [11519] 46407 34 77 8 1 0 0 NEXT WORD SET (N) IN B 1/1/3 2 [11520] 46408 10 0 0 0 2 SELECT LITERAL 7/0/0 5316 [11521] 46409 4 61 38 0 0 0 AUGMENT 26/1/3 5222 [11522] 46410 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [11523] 46411 C 0 0 0 10 Limit 6/1/0 5302 [11523] 46412 61 24 1 0 0 SELECT Source: DaveJ/Q1000382 26/0/1 3321 [11524] 46413 82 464 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 465 at location 3333 in chapter 4 [11525] [11525] 46500 PROCR 465 0 0 0 TEST (,NE S/R [11525] 46501 NOTES RADIX B 0 0 CONSTANTS 0/0/0 0 [11525] 46502 81 465 2 0 0 0 START OF SUBROUTINE 1/1/2 122 [11526] 46503 12 0 0 0 7t ( SUBTRACT LITERAL 27/0/0 3339 [11527] 46504 70 465 8 0 0 0 JUMP IF A == 0 1/1/2 2 [11528] 46505 12 0 0 0 2 , SUBTRACT LITERAL 27/0/0 3339 [11529] 46506 70 465 8 0 0 0 JUMP IF A == 0 1/1/2 1 [11530] 46507 12 0 0 0 1 NE SUBTRACT LITERAL 26/0/1 3333 [11531] 46508 82 465 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 466 at location 3340 in chapter 4 [11532] [11532] 46600 PROCR 466 0 0 0 PUT THIS CHAR INTO O/P WORD S/R [11532] 46601 NOTES RADIX B 0 0 0/0/0 0 [11532] 46602 81 466 2 0 0 0 START OF SUBROUTINE 6/1/0 5306 [11533] 46603 61 28 1 0 0 SELECT 18/0/1 1 [11534] 46604 30 0 0 0 1 SHIFT (A) BY QUARTETS 4/1/0 5303 [11535] 46605 1 61 24 2 0 0 NEXT CHAR(BASIC ONLY) ADD 2/1/0 5306 [11536] 46606 5 61 28 1 0 0 TRANSFER 26/0/1 3340 [11537] 46607 82 466 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 467 at location 3346 in chapter 4 [11538] [11538] 46700 PROCR 467 0 0 0 ALPHA CONSTANTS [11538] 46701 NOTES RADIX B 0 0 6/0/0 5308 [11538] 46702 61 30 0 0 0 DEFN LINE IND SELECT 27/0/0 3351 [11539] 46703 70 467 7 0 0 0 gNO JUMP IF A == 0 1/1/3 8 [11540] 46704 10 0 0 0 8 SELECT LITERAL 24/0/0 5338 [11541] 46705 124 61 60 0 0 0 SF CTR MODIFY ADDRESS OF NEXT 7/0/0 5333 [11542] 46706 4 61 55 0 0 0 AUG SF LENGTH BY 8 FOR EACH ALPHA CHAR AUGMENT 6/1/0 5306 [11543] 46707 61 28 1 0 0 SELECT 18/0/1 2 [11544] 46708 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 5302 [11545] 46709 1 61 24 0 0 0 ADD 2/1/0 5306 [11546] 46710 5 61 28 1 0 0 ADD IN THIS CHAR TO SUBCONST TRANSFER 24/1/0 3194 [11547] 46711 76 458 2 0 0 0 JUMP unconditional Start of procedure 468 at location 3356 in chapter 4 [11548] [11548] 46800 PROCR 468 0 0 0 BINARY PATTERNS [11548] 46801 NOTES RADIX B 0 0 6/0/0 5302 [11548] 46802 0 61 24 0 0 0 THIS CHARACTER SELECT 1/1/2 16 [11549] 46803 12 0 0 0 10 MINUS SIGN SUBTRACT LITERAL 27/0/0 3369 [11550] 46804 70 468 15 0 0 0 JUMP IF A == 0 6/0/0 5308 [11551] 46805 0 61 30 0 0 0 SELECT 27/0/0 3364 [11552] 46806 70 468 10 0 0 0 g NOT DEFINITION LINE JUMP IF A == 0 1/1/3 1 [11553] 46807 10 0 0 0 1 SELECT LITERAL 24/0/0 5338 [11554] 46808 124 61 60 0 0 0 SF MOD MODIFY ADDRESS OF NEXT 7/0/0 5333 [11555] 46809 4 61 55 0 0 0 AUG SF LENGTH BY 1 BIT PER CHAR AUGMENT 6/1/0 5306 [11556] 46810 61 28 1 0 0 SELECT 4/1/0 5306 [11557] 46811 1 61 28 1 0 0 ADD 4/1/0 5303 [11558] 46812 1 61 24 2 0 0 ADD 2/1/0 5306 [11559] 46813 5 61 28 1 0 0 ADD THIS BIT INTO SUBCONST TRANSFER 24/1/0 3193 [11560] 46814 76 457 9 0 0 0 JUMP unconditional 6/0/0 5338 [11561] 46815 0 61 60 0 0 0 TEST FIRST SUBFIELD SELECT 27/0/1 3193 [11562] 46816 71 457 9 0 0 0 JUMP IF A != 0 1/1/3 1 [11563] 46817 10 0 0 0 1 SELECT LITERAL 2/0/0 5310 [11564] 46818 5 61 32 0 0 0 NEG INDICATOR TRANSFER 24/1/0 3193 [11565] 46819 76 457 9 0 0 0 JUMP unconditional Start of procedure 469 at location 3374 in chapter 4 [11566] [11566] 46900 PROCR 469 0 0 0 DECIMAL CONSTS (-VE) [11566] 46901 NOTES RADIX B 0 0 6/0/0 5302 [11566] 46902 61 24 0 0 0 SELECT 1/1/2 16 [11567] 46903 12 0 0 0 10 NEG SIGN SUBTRACT LITERAL Source: RayS/Q1000383 27/0/1 3391 [11568] 46904 71 470 2 0 0 0 JUMP IF A != 0 6/0/0 5338 [11569] 46905 61 60 0 0 0 S/F MOD SELECT 27/0/1 3382 [11570] 46906 71 469 10 0 0 0 NOT FIRST MOD JUMP IF A != 0 1/1/3 1 [11571] 46907 10 0 0 0 1 SELECT LITERAL 2/0/0 5310 [11572] 46908 5 61 32 0 0 0 NEG IND TRANSFER 24/1/0 3194 [11573] 46909 76 458 2 0 0 0 JUMP unconditional 1/1/3 1 [11574] 46910 10 0 0 0 1 BIT 1 SELECT LITERAL 24/0/0 5338 [11575] 46911 124 61 60 0 0 0 SF MOD MODIFY ADDRESS OF NEXT 24/0/0 5333 [11576] 46912 124 61 55 0 0 0 SF LENGTH MODIFY ADDRESS OF NEXT 18/0/3 0 [11577] 46913 31 0 0 0 0 ///// SHIFT (A) BY BITS 0/0/3 5131 [11578] 46914 60 0 0 0 0 SET DECIMAL RADIX 5/1/0 5306 [11579] 46915 2 61 28 1 0 0 FORM N BIT SUBTRACT 2/1/0 5306 [11580] 46916 5 61 28 1 0 0 DEC COMPT TRANSFER 0/0/3 0 [11581] 46917 62 0 0 0 0 SET EXCESS CONSTANTS 24/1/0 3194 [11582] 46918 76 458 2 0 0 0 JUMP unconditional Start of procedure 470 at location 3391 in chapter 4 [11583] [11583] 47000 PROCR 470 DECIMAL CONSTANTS (+VE) [11583] 47001 NOTES RADIX B 6/0/0 5308 [11583] 47002 61 30 0 0 0 SELECT 27/0/0 3396 [11584] 47003 70 470 7 0 0 0 gNOT DIRECTIVE LINE JUMP IF A == 0 1/1/3 4 [11585] 47004 10 0 0 0 4 SELECT LITERAL 24/0/0 5338 [11586] 47005 124 61 60 0 0 0 SF MOD MODIFY ADDRESS OF NEXT 7/0/0 5333 [11587] 47006 4 61 55 0 0 0 AUG SF LENGTH BY 4 BITS PER CHAR AUGMENT 26/0/0 3340 [11588] 47007 80 466 2 0 0 0 gADD THIS CHAR TO O/P WORD ENTER SUBROUTINE 24/1/0 3194 [11589] 47008 76 458 2 0 0 0 JUMP unconditional Start of procedure 471 at location 3398 in chapter 4 [11590] [11590] 47100 PROCR 471 [11590] 47101 NOTES RADIX B BINARY NO CONSTANTS 6/0/0 5302 [11590] 47102 61 24 0 0 0 SELECT 1/1/2 16 [11591] 47103 12 0 0 0 10 -SIGN SUBTRACT LITERAL 27/0/1 3404 [11592] 47104 71 471 8 0 0 0 JUMP IF A != 0 1/1/3 1 [11593] 47105 10 0 0 0 1 SELECT LITERAL 2/0/0 5311 [11594] 47106 5 61 33 0 0 0 TRANSFER 24/1/0 3405 [11595] 47107 76 471 9 0 0 0 JUMP unconditional 26/0/0 3340 [11596] 47108 80 466 2 0 0 0 -THIS CHAR SET UP O/P ENTER SUBROUTINE 26/0/0 3321 [11597] 47109 80 464 2 0 0 0 -GET NEXT CHAR ENTER SUBROUTINE 26/0/0 3333 [11598] 47110 80 465 2 0 0 0 -TEST S/R ENTER SUBROUTINE 27/0/1 3398 [11599] 47111 71 471 2 0 0 0 JUMP IF A != 0 18/1/1 10 [11600] 47112 32 0 0 0 10 SHIFT (AB) BY QUARTETS 2/1/0 5312 [11601] 47113 5 61 34 1 0 0 PRESERVE B TRANSFER 6/1/0 5306 [11602] 47114 61 28 1 0 0 DEC VALUE OF CONST SELECT 26/0/0 4750 [11603] 47115 80 537 2 0 0 0 CONVERT ENTER SUBROUTINE 2/1/0 5306 [11604] 47116 5 61 28 1 0 0 TRANSFER 0/1/2 5312 [11605] 47117 34 61 34 1 0 0 RESTORE B SET (N) IN B 6/0/0 5311 [11606] 47118 61 33 0 0 0 NEG IND FOR BIN CONSTS SELECT 27/0/0 3428 [11607] 47119 70 472 5 0 0 0 gNOT NEGATIVE JUMP IF A == 0 6/0/0 5338 [11608] 47120 61 60 0 0 0 S/F MOD SELECT 27/0/0 3425 [11609] 47121 70 472 2 0 0 0 gFIRST S/F JUMP IF A == 0 1/1/3 1 [11610] 47122 10 0 0 0 1 SELECT LITERAL 24/0/0 5338 [11611] 47123 124 61 60 0 0 0 S/F MOD MODIFY ADDRESS OF NEXT 24/0/0 5333 [11612] 47124 124 61 55 0 0 0 S/F LENGTH=N MODIFY ADDRESS OF NEXT 18/0/3 0 [11613] 47125 31 0 0 0 0 ///// SHIFT (A) BY BITS 5/1/0 5306 [11614] 47126 2 61 28 1 0 0 FORM N-BIT COMPT SUBTRACT 2/1/0 5306 [11615] 47127 5 61 28 1 0 0 TRANSFER 24/1/0 3427 [11616] 47128 76 472 4 0 0 0 JUMP unconditional Start of procedure 472 at location 3425 in chapter 4 [11617] [11617] 47200 PROCR 472 BINARY NO CONSTS [11617] 47201 NOTES RADIX 1/1/3 1 [11617] 47202 10 0 0 0 1 SELECT LITERAL Source: RayS/Q1000384 2/0/0 5310 [11618] 47203 5 61 32 0 0 0 NEG IND TRANSFER 2/0/0 5311 [11619] 47204 5 61 33 0 0 0 BIN NO NEG IND TRANSFER 6/0/0 5302 [11620] 47205 61 24 0 0 0 SELECT 24/1/0 3195 [11621] 47206 76 458 3 0 0 0 - JUMP unconditional Start of procedure 473 at location 3430 in chapter 4 [11622] [11622] 47300 PROCR 473 [11622] 47301 NOTES RADIX RELATIVE ADDRESS CONSTS 6/0/0 5302 [11622] 47302 61 24 0 0 0 SELECT 1/1/2 77 [11623] 47303 12 0 0 0 4: SUBTRACT LITERAL 27/0/0 3439 [11624] 47304 70 474 2 0 0 0 gCOLON JUMP IF A == 0 1/1/1 77 [11625] 47305 11 0 0 0 4: ADD LITERAL 26/0/0 3333 [11626] 47306 80 465 2 0 0 0 -TEST S/R ENTER SUBROUTINE 27/0/0 3461 [11627] 47307 70 474 24 0 0 0 JUMP IF A == 0 26/0/0 3340 [11628] 47308 80 466 2 0 0 0 -THIS CHAR SET UP O/P ENTER SUBROUTINE 26/0/0 3321 [11629] 47309 80 464 2 0 0 0 -GET NEXT CHAR ENTER SUBROUTINE 24/1/0 3430 [11630] 47310 76 473 2 0 0 0 JUMP unconditional Start of procedure 474 at location 3439 in chapter 4 [11631] [11631] 47400 PROCR 474 RELATIVE ADDRESS CONSTS [11631] 47401 NOTES RADIX B 18/1/1 10 [11631] 47402 32 0 0 0 10 SHIFT (AB) BY QUARTETS 2/1/0 5376 [11632] 47403 5 61 98 1 0 0 STORE REGISTER B TRANSFER 6/1/0 5306 [11633] 47404 61 28 1 0 0 SELECT 26/0/0 4750 [11634] 47405 80 537 2 0 0 0 CONVERT ENTER SUBROUTINE 2/0/0 5313 [11635] 47406 5 61 35 0 0 0 TRANSFER 26/1/2 5346 [11636] 47407 91 61 68 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 26/0/0 3729 [11637] 47408 80 486 2 0 0 0 -DET CHAP S/R ENTER SUBROUTINE 3/0/2 5274 [11638] 47409 3 67 0 0 2 0 PARA COPY 27/0/0 3450 [11639] 47410 70 474 13 0 0 0 ABS ADD JUMP IF A == 0 1/1/2 1 [11640] 47411 12 0 0 0 1 =2C-1 SUBTRACT LITERAL 7/0/2 5274 [11641] 47412 4 67 0 0 2 0 AUGMENT 6/0/0 5313 [11642] 47413 61 35 0 0 0 REF SELECT 18/0/1 2 [11643] 47414 30 0 0 0 2 SHIFT (A) BY QUARTETS 7/0/2 5274 [11644] 47415 4 67 0 0 2 0 AUGMENT 1/1/3 0 [11645] 47416 10 0 0 0 0 SELECT LITERAL 2/1/0 5306 [11646] 47417 5 61 28 1 0 0 CLEAR FOR ITEM TRANSFER 0/1/2 5376 [11647] 47418 34 61 98 1 0 0 SET (N) IN B 26/0/0 3321 [11648] 47419 80 464 2 0 0 0 gGET NEXT CHAR ENTER SUBROUTINE 26/0/0 3333 [11649] 47420 80 465 2 0 0 0 gTEST S/R ENTER SUBROUTINE 27/0/0 3463 [11650] 47421 70 474 26 0 0 0 JUMP IF A == 0 26/0/0 3340 [11651] 47422 80 466 2 0 0 0 gTHIS CHAR SET UP O/P ENTER SUBROUTINE 24/1/0 3456 [11652] 47423 76 474 19 0 0 0 JUMP unconditional 26/1/2 5346 [11653] 47424 91 61 68 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 2/0/2 5274 [11654] 47425 5 67 0 0 2 0 TRANSFER 18/1/1 10 [11655] 47426 32 0 0 0 10 SHIFT (AB) BY QUARTETS 2/1/0 5312 [11656] 47427 5 61 34 1 0 0 STORE 2 TRANSFER 6/1/0 5306 [11657] 47428 61 28 1 0 0 SELECT 26/0/0 4750 [11658] 47429 80 537 2 0 0 0 CONVERT ITEM ENTER SUBROUTINE 2/1/0 5306 [11659] 47430 5 61 28 1 0 0 TRANSFER 0/1/2 5312 [11660] 47431 34 61 34 1 0 0 REPLACE B SET (N) IN B 24/1/0 3428 [11661] 47432 76 472 5 0 0 0 JUMP unconditional Start of procedure 475 at location 3470 in chapter 4 [11662] [11662] 47500 PROCR 475 TABLE ENTRIES [11662] 47501 NOTES RADIX B 24/0/2 5068 [11662] 47502 50 77 2 0 0 0 UNPACK FIXED FIELD DATA 28/0/2 5552 [11663] 47503 C 549 2 0 0 0 24/0/2 5068 [11664] 47504 52 7 2 0 0 0 EDIT TABLES EDIT 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/1/2 2 [11666] 47505 C 549 2 0 0 0 6/1/0 5572 [11667] 47506 77 22 1 0 0 PASS 1 REPORTS SELECT Source: ChuckK/Q1000385 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 48 [11669] 47507 5 7 48 1 0 0 TRANSFER 24/0/2 5574 [11670] 47508 55 77 24 1 0 16 COPY ANNOTATION BULK COPY 18/1/0 4123 [11671] 47509 C 7 32 1 0 0 1/1/3 16 [11672] 18/1/1 5 [11673] 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/1/1 32 [11675] 26/0/0 4145 [11676] 47510 80 511 2 0 0 0 PRINT ENTER SUBROUTINE Start of procedure 476 at location 3485 in chapter 4 [11677] [11677] 47600 PROCR 476 TABLE ENTRIES [11677] 47601 NOTES RADIX B 26/1/2 5224 [11677] 47602 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [11678] 47603 C 0 0 0 20 Limit 6/0/2 5253 [11678] 47604 66 3 0 2 0 SELECT 26/0/0 4750 [11679] 47605 80 537 2 0 0 0 CONVERT ENTER SUBROUTINE 2/0/2 5253 [11680] 47606 5 66 3 0 2 0 TRANSFER 25/0/2 1 [11681] 47607 94 476 4 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3486 [11682] s 26/1/2 5226 [11683] 47608 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [11684] 47609 C 0 0 0 4 Limit 6/0/2 5266 [11684] 47610 66 16 0 2 0 SELECT 1/1/2 100 [11685] 47611 101 100 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/3 3499 [11686] 47612 73 476 17 0 0 0 >SECTION JUMP IF A < 0 1/1/2 899 [11687] 47613 101 899 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/2 3499 [11688] 47614 72 476 17 0 0 0 >999 JUMP IF A >= 0 6/0/0 5132 [11689] 47615 10 0 0 0 2- SELECT LITERAL 7/0/2 5267 [11690] 47616 4 66 17 0 2 0 REDUCE ITEM FOR CALCS AUGMENT 25/0/2 2 [11691] 47617 94 476 10 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3492 [11692] s 1/1/3 0 [11693] 47618 10 0 0 0 0 SELECT LITERAL 0/0/2 5325 [11694] 47619 34 61 47 0 0 0 TYPE SET (N) IN B 15/0/0 4900 [11695] 47620 36 544 6 0 0 0 BIT 1 COLLATE AND ADD 27/0/1 3511 [11696] 47621 71 476 28 0 0 0 NOT TYPES 2 OR 4 JUMP IF A != 0 6/0/0 5269 [11697] 47622 0 66 19 0 0 0 SECOND ITEM SELECT 27/0/1 3510 [11698] 47623 71 476 27 0 0 0 >'LAST ITEM' GIVEN JUMP IF A != 0 6/0/0 5267 [11699] 47624 0 66 17 0 0 0 FIRST ITEM SELECT 27/0/1 3510 [11700] 47625 71 476 27 0 0 0 JUMP IF A != 0 6/0/0 4929 [11701] 47626 0 545 8 0 0 0 SOMETHING INTO Q5 SELECT 2/0/0 5276 [11702] 47627 5 67 2 0 0 0 TRANSFER 6/0/0 5266 [11703] 47628 0 66 16 0 0 0 FIRST REF SELECT 2/0/0 5313 [11704] 47629 5 61 35 0 0 0 REF TRANSFER 26/0/0 3729 [11705] 47630 80 486 2 0 0 0 DET CHAP ENTER SUBROUTINE Start of procedure 477 at location 3514 in chapter 4 [11706] [11706] 47700 PROCR 477 TABLE ENTRIES [11706] 47701 NOTES RADIX 3/0/0 5274 [11706] 47702 3 67 0 0 0 0 COPY 27/0/0 3518 [11707] 47703 70 477 6 0 0 0 ABS ADD JUMP IF A == 0 1/1/2 1 [11708] 47704 12 0 0 0 1 SUBTRACT LITERAL 7/0/0 5274 [11709] 47705 4 67 0 0 0 0 AUGMENT 6/0/0 5313 [11710] 47706 61 35 0 0 0 REF SELECT 18/0/1 2 [11711] 47707 30 0 0 0 2 SHIFT (A) BY QUARTETS 7/0/0 5274 [11712] 47708 4 67 0 0 0 0 AUGMENT 6/0/0 5253 [11713] 47709 0 66 3 0 0 0 SHORT/LONG/ALPHA SELECT 27/0/0 3527 [11714] 47710 70 477 15 0 0 0 JUMP IF A == 0 1/1/2 1 [11715] 47711 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 3526 [11716] 47712 70 477 14 0 0 0 JUMP IF A == 0 6/0/0 4970 [11717] 47713 545 49 0 0 0 B17 SELECT 4/0/0 4934 [11718] 47714 1 545 13 0 0 0 B18 ADD 2/0/0 5277 [11719] 47715 5 67 3 0 0 0 TRANSFER 6/0/0 5263 [11720] 47716 66 13 0 0 0 SIGN SELECT 27/0/0 3535 [11721] 47717 70 478 2 0 0 0 JUMP IF A == 0 1/1/2 2 [11722] 47718 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 3533 [11723] 47719 70 477 21 0 0 0 JUMP IF A == 0 6/0/0 4972 [11724] 47720 545 51 0 0 0 B20 SELECT Source: ChuckK/Q1000386 4/0/0 4930 [11725] 47721 1 545 9 0 0 0 B19 ADD 7/0/0 5277 [11726] 47722 4 67 3 0 0 0 AUGMENT Start of procedure 478 at location 3535 in chapter 4 [11727] [11727] 47800 PROCR 478 TABLE ENTRIES [11727] 47801 NOTES RADIX B 6/0/0 5254 [11727] 47802 0 66 4 0 0 0 SINGLE/BE SELECT 27/0/0 3539 [11728] 47803 70 478 6 0 0 0 JUMP IF A == 0 6/0/0 4972 [11729] 47804 545 51 0 0 0 B20 SELECT 7/0/0 5277 [11730] 47805 4 67 3 0 0 0 AUGMENT 6/0/0 5262 [11731] 47806 66 12 0 0 0 ZEROS SELECT 18/0/1 1 [11732] 47807 30 0 0 0 1 SHIFT (A) BY QUARTETS 4/0/0 5260 [11733] 47808 1 66 10 0 0 0 DISC ADD 18/0/1 1 [11734] 47809 30 0 0 0 1 SHIFT (A) BY QUARTETS 4/0/0 5261 [11735] 47810 1 66 11 0 0 0 SPACES ADD 18/0/1 1 [11736] 47811 30 0 0 0 1 SHIFT (A) BY QUARTETS 4/0/0 5255 [11737] 47812 1 66 5 0 0 0 NO OF CHARS ADD 7/0/0 5277 [11738] 47813 4 67 3 0 0 0 AUGMENT 6/0/0 5265 [11739] 47814 66 15 0 0 0 LTE SELECT 27/0/0 3556 [11740] 47815 70 479 4 0 0 0 JUMP IF A == 0 1/1/3 0 [11741] 47816 10 0 0 0 0 SELECT LITERAL 5/0/0 5277 [11742] 47817 2 67 3 0 0 0 SUBTRACT 27/0/0 3554 [11743] 47818 70 479 2 0 0 0 JUMP IF A == 0 2/0/0 5277 [11744] 47819 5 67 3 0 0 0 TRANSFER 24/1/0 3556 [11745] 47820 76 479 4 0 0 0 JUMP unconditional Start of procedure 479 at location 3554 in chapter 4 [11746] [11746] 47900 PROCR 479 TABLE ENTRIES [11746] 47901 NOTES RADIX B 1/1/3 128 [11746] 47902 10 0 0 0 80 B8 SELECT LITERAL 7/0/0 5274 [11747] 47903 4 67 0 0 0 0 AUGMENT 6/0/0 5267 [11748] 47904 0 66 17 0 0 0 FIRST ITEM SELECT 2/0/0 5275 [11749] 47905 5 67 1 0 0 0 TRANSFER 6/0/0 5264 [11750] 47906 66 14 0 0 0 STERLING INDICATOR SELECT 27/0/0 3568 [11751] 47907 70 479 16 0 0 0 JUMP IF A == 0 7/0/0 5387 [11752] 47908 4 61 109 0 0 0 AUGMENT 6/0/0 5387 [11753] 47909 0 61 109 0 0 0 SELECT 1/1/2 2 [11754] 47910 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 3568 [11755] 47911 71 479 16 0 0 0 JUMP IF A != 0 1/1/2 1 [11756] 47912 12 0 0 0 1 SUBTRACT LITERAL 2/0/0 5387 [11757] 47913 5 61 109 0 0 0 SET CTR=1- TRANSFER 6/0/0 4970 [11758] 47914 545 49 0 0 0 B17 SELECT 7/0/0 5275 [11759] 47915 4 67 1 0 0 0 AUGMENT 6/0/0 5265 [11760] 47916 0 66 15 0 0 0 LTE IND SELECT 27/0/0 1440 [11761] 47917 70 382 10 0 0 0 >NO,O/P+GNB JUMP IF A == 0 2/0/0 5387 [11762] 47918 5 61 109 0 0 0 TRANSFER 2/0/0 5387 [11763] 47919 5 61 109 0 0 0 CLEAR STERLING CTR TRANSFER 24/1/0 1440 [11764] 47920 76 382 10 0 0 0 >O/P+GNB JUMP unconditional Start of procedure 480 at location 3573 in chapter 4 [11765] [11765] 48000 PROCR 480 VALUES [11765] 48001 NOTES RADIX 26/0/0 977 [11765] 48002 80 360 2 0 0 0 BULK CLEAR SEC 7 ENTER SUBROUTINE 24/0/3 8190 [11766] 48003 8 2 12 0 SELECT 6/1/0 9 [11767] 26/0/0 4750 [11768] 48004 80 537 2 0 0 0 >TO BIN ENTER SUBROUTINE 2/1/0 5258 [11769] 48005 5 66 8 1 0 0 TRANSFER 24/0/3 8190 [11770] 48006 6 2 12 0 SELECT 6/1/0 7 [11771] 26/0/0 4750 [11772] 48007 80 537 2 0 0 0 >TO BIN ENTER SUBROUTINE 3/1/0 5257 [11773] 48008 3 66 6 2 0 0 REF COPY 0/0/2 5258 [11774] 48009 34 66 8 0 0 0 SET (N) IN B 27/1/0 3603 [11775] 48010 74 480 28 0 0 0 >ZERO REF,ITEM JUMP IF AB == 0 // 27, 1, 0 Source: ChuckK/Q1000387 1/1/2 100 [11776] 48011 101 100 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/3 3588 [11777] 48012 73 480 15 0 0 0 >REF=SECTION JUMP IF A < 0 6/0/0 5133 [11778] 48013 10 0 0 0 2- SELECT LITERAL 7/1/0 5258 [11779] 48014 4 66 8 1 0 0 REDUCE FOR CALCS AUGMENT 6/1/0 4810 [11780] 48015 542 10 1 0 0 'NOTES' SELECT 3/1/0 5304 [11781] 48016 3 61 26 1 0 0 COPY 2/1/0 5306 [11782] 48017 5 61 28 1 0 0 TRANSFER 6/1/0 5257 [11783] 48018 0 66 6 2 0 0 REF SELECT 2/0/0 5276 [11784] 48019 5 67 2 0 0 0 TRANSFER 6/1/0 5258 [11785] 48020 0 66 8 1 0 0 ITEM SELECT 2/0/0 5277 [11786] 48021 5 67 3 0 0 0 TRANSFER 2/0/0 5274 [11787] 48022 5 67 0 0 0 0 CLEAR TRANSFER 26/0/0 4329 [11788] 48023 80 517 2 0 0 0 O/P REF/ITEM UNIT(ALPHA O/P) ENTER SUBROUTINE 6/1/0 5556 [11789] 48024 0 77 6 1 0 0 SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 8 [11791] 48025 5 7 8 1 0 0 REF TRANSFER 6/1/0 5558 [11792] 48026 0 77 8 1 0 0 SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 10 [11794] 48027 5 7 10 1 0 0 ITEM TRANSFER 26/1/3 5228 [11795] 48028 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [11796] 48029 C 0 0 0 32 Limit 6/1/3 5563 [11796] 48030 77 12 2 3 0 SELECT 27/0/3 3631 [11797] 48031 73 480 45 0 0 0 >NEG PARA=END OF LINE JUMP IF A < 0 2/0/0 5276 [11798] 48032 5 67 2 0 0 0 TRANSFER 6/1/3 5561 [11799] 48033 77 10 2 3 0 SELECT 2/0/0 5277 [11800] 48034 5 67 3 0 0 0 TRANSFER 0/1/0 40 [11801] 48035 52 7 12 0 3 0 EDIT 0/0/3 0 [11802] 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 12 [11804] 24/0/3 22 [11805] 4/0/0 6 [11806] 2/0/0 40 [11807] 0/1/1 40 [11808] 24/0/2 5098 [11809] 24/1/2 40 [11810] 28/1/2 0 [11811] 48036 C 550 2 0 0 0 26/0/0 4345 [11812] 48037 80 518 2 0 0 0 O/P VALUE UNIT ENTER SUBROUTINE 25/0/3 4 [11813] 48038 94 480 30 0 3 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3604 [11814] s 6/0/0 5556 [11815] 48039 77 6 0 0 0 REF SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/0/0 8 [11817] 48040 5 7 8 0 0 0 TRANSFER 6/0/0 5558 [11818] 48041 77 8 0 0 0 ITEM SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/0/0 10 [11820] 48042 5 7 10 0 0 0 TRANSFER 26/0/0 4145 [11821] 48043 80 511 2 0 0 0 >PRINT ENTER SUBROUTINE 24/1/0 989 [11822] 48044 76 362 2 0 0 0 GNB JUMP unconditional 1/1/3 85 [11823] 48045 10 0 0 0 55 'E' SELECT LITERAL 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/3 14 [11825] 48046 5 7 14 1 3 0 TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/3 12 [11827] 48047 5 7 12 1 3 0 TRANSFER 24/1/0 3629 [11828] 48048 76 480 43 0 0 0 JUMP unconditional Start of procedure 481 at location 3637 in chapter 4 [11829] [11829] 48100 PROCR 481 LONG NO CONST S/R [11829] 48101 NOTES RADIX B 0/0/0 0 [11829] 48102 81 481 2 0 0 0 START OF SUBROUTINE 26/1/3 5290 [11830] 48103 91 61 12 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 6/0/0 5283 [11831] 48104 61 5 0 0 0 LONG NO SECT NO SELECT 2/1/0 5256 [11832] 48105 5 66 6 1 0 0 TRANSFER 1/1/3 1 [11833] 48106 10 0 0 0 1 SELECT LITERAL 2/1/0 5260 [11834] 48107 5 66 10 1 0 0 DISC TRANSFER 26/0/0 3646 [11835] 48108 80 482 2 0 0 0 TSL AND LONG NO S/R ENTER SUBROUTINE 7/0/0 5291 [11836] 48109 4 61 13 0 0 0 END VALUE AUGMENT 26/0/1 3637 [11837] 48110 82 481 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 482 at location 3646 in chapter 4 [11838] [11838] 48200 PROCR 482 LONG NO CONST & TSL S/R (1) [11838] 48201 NOTES RADIX B 0/0/0 0 [11838] 48202 81 482 2 0 0 0 START OF SUBROUTINE 25/0/3 0 [11839] 48203 94 482 5 0 3 0 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3650 [11840] s 24/1/0 3658 [11841] 48204 76 482 12 0 0 0 JUMP unconditional 6/0/0 5331 [11842] 48205 61 53 0 0 0 SELECT 5/0/3 111 [11843] 48206 2 62 1 0 3 0 COMPARE MOST SIG HALVES SUBTRACT 27/0/1 3656 [11844] 48207 71 482 11 0 0 0 >NO CHANGE OF MATCH JUMP IF A != 0 Source: TonyJ/Q1000388 6/1/3 110 [11845] 48208 62 0 1 3 0 SELECT 5/1/0 5330 [11846] 48209 2 61 52 1 0 0 SUBTRACT 27/0/0 3661 [11847] 48210 70 482 15 0 0 0 MATCH FOUND JUMP IF A == 0 25/0/3 2 [11848] 48211 94 482 5 0 3 2 NO MATCH STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3650 [11849] s 6/1/0 5330 [11850] 48212 61 52 1 0 0 SELECT 2/1/3 110 [11851] 48213 5 62 0 1 3 0 TRANSFER 1/1/3 2 [11852] 48214 10 0 0 0 2 SELECT LITERAL 2/0/0 4750 [11853] 48215 5 537 2 0 0 0 WL=CONVERT SR LINK TRANSFER 24/0/3 22 [11854] 48216 96 0 0 3 0 MODIFIER SELECT MODIFIER 6/0/0 6 [11855] 1/1/2 180 [11856] 48217 12 0 0 0 e4 180 SUBTRACT LITERAL 27/0/3 3669 [11857] 48218 73 482 21 0 0 0 > NOT TSL JUMP IF A < 0 18/0/3 3 [11858] 48219 31 0 0 0 1- SHIFT (A) BY BITS 18/0/1 4127 [11859] 24/1/0 3670 [11860] 48220 76 482 22 0 0 0 JUMP unconditional 1/1/1 180 [11861] 48221 11 0 0 0 e4 180 ADD LITERAL 2/1/0 5258 [11862] 48222 5 66 8 1 0 0 TRANSFER 6/0/0 5281 [11863] 48223 0 61 3 0 0 0 2C SELECT 2/0/0 5312 [11864] 48224 5 61 34 0 0 0 TRANSFER 2/1/0 5262 [11865] 48225 5 66 12 1 0 0 MOD TRANSFER 26/0/0 4689 [11866] 48226 80 532 2 0 0 0 STACK ENTER SUBROUTINE 26/0/0 4345 [11867] 48227 80 518 2 0 0 0 O/P ENTER SUBROUTINE 6/0/0 4750 [11868] 48228 537 2 0 0 0 WL SELECT 26/0/1 3646 [11869] 48229 82 482 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 483 at location 3678 in chapter 4 [11870] [11870] 48300 PROCR 483 483 SHORT NO CONST S/R > GNB [11870] 48301 NOTES RADIX B 0/0/0 0 [11870] 48302 81 483 2 0 0 0 START OF SUBROUTINE 26/1/3 5292 [11871] 48303 91 61 14 0 3 0 CTR OF SHORT NUMBERS TO DATE SET MODIFICATION REGISTER AT VARIABLE 6/0/0 5293 [11872] 48304 0 61 15 0 0 0 CTR SELECT 27/0/0 3687 [11873] 48305 70 483 10 0 0 0 NONE STORED YET JUMP IF A == 0 6/1/0 5330 [11874] 48306 61 52 1 0 0 NUMBER TO BE OUTPUT SELECT 5/0/3 50 [11875] 48307 2 63 0 0 3 0 NEXT NUMBER ALREADY OUTPUT SUBTRACT 27/0/0 3694 [11876] 48308 70 483 17 0 0 0 > MATCH JUMP IF A == 0 25/0/3 1 [11877] 48309 94 483 6 0 3 1 > TRY NEXT STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3682 [11878] 6/1/0 5330 [11879] 48310 61 52 1 0 0 STORE NEWCOMER SELECT 2/0/3 50 [11880] 48311 5 63 0 0 3 0 IN NEXT FREE POSITION TRANSFER 6/0/0 5293 [11881] 48312 61 15 0 0 0 = RELATIVE POSITION IN LIST SELECT 2/1/0 5258 [11882] 48313 5 66 8 1 0 0 SET AS ITEM TRANSFER 1/1/3 1 [11883] 48314 10 0 0 0 1 STEP ON FOR NEXT ITEM SELECT LITERAL 7/0/0 5293 [11884] 48315 4 61 15 0 0 0 CTR OF NUMBERS IN LIST AUGMENT 24/1/0 3697 [11885] 48316 76 483 19 0 0 0 JUMP unconditional 24/0/3 22 [11886] 48317 96 0 0 3 0 MODIFIER SELECT MODIFIER 6/0/0 6 [11887] 2/1/0 5258 [11888] 48318 5 66 8 1 0 0 TRANSFER 6/0/0 5284 [11889] 48319 61 6 0 0 0 SN SECT NO SELECT 2/1/0 5256 [11890] 48320 5 66 6 1 0 0 REF TRANSFER 2/1/0 5260 [11891] 48321 5 66 10 1 0 0 DISC TRANSFER 2/1/0 5262 [11892] 48322 5 66 12 1 0 0 M TRANSFER 6/0/0 5281 [11893] 48323 61 3 0 0 0 2C SELECT 2/0/0 5312 [11894] 48324 5 61 34 0 0 0 PARA TRANSFER 26/0/0 4689 [11895] 48325 80 532 2 0 0 0 - STACK ENTER SUBROUTINE 26/0/0 4345 [11896] 48326 80 518 2 0 0 0 - O/P ENTER SUBROUTINE 26/0/1 3678 [11897] 48327 82 483 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 484 at location 3706 in chapter 4 [11898] [11898] 48400 PROCR 484 484 TSL S/R [11898] 48401 NOTES RADIX B 0/0/0 0 [11898] 48402 81 484 2 0 0 0 START OF SUBROUTINE 2/0/0 5278 [11899] 48403 5 61 0 0 0 0 TRANSFER 6/1/0 5256 [11900] 48404 66 6 1 0 0 REF SELECT 2/0/0 5313 [11901] 48405 5 61 35 0 0 0 TRANSFER 26/0/0 3729 [11902] 48406 80 486 2 0 0 0 ENTER SUBROUTINE 3/0/0 5330 [11903] 48407 3 61 52 0 0 0 CHAP COPY Source: TonyJ/Q1000389 1/1/2 1 [11904] 48408 12 0 0 0 1 SUBTRACT LITERAL 7/0/0 5330 [11905] 48409 4 61 52 0 0 0 AUGMENT 6/1/0 5306 [11906] 48410 0 61 28 1 0 0 SELECT 2/0/0 5331 [11907] 48411 5 61 53 0 0 0 ITEM TRANSFER 6/0/0 5313 [11908] 48412 0 61 35 0 0 0 SELECT 18/0/1 2 [11909] 48413 30 0 0 0 2 SHIFT (A) BY QUARTETS 7/0/0 5330 [11910] 48414 4 61 52 0 0 0 REF12C-1 AUGMENT 26/0/0 3721 [11911] 48415 80 485 2 0 0 0 ENTER SUBROUTINE 26/0/1 3706 [11912] 48416 82 484 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 485 at location 3721 in chapter 4 [11913] [11913] 48500 PROCR 485 485 [11913] 48501 NOTES RADIX B 0/0/0 0 [11913] 48502 81 485 2 0 0 0 START OF SUBROUTINE 26/1/3 5294 [11914] 48503 91 61 16 0 3 0 TSL COUNTER SET MODIFICATION REGISTER AT VARIABLE 6/0/0 5285 [11915] 48504 61 7 0 0 0 SELECT 2/1/0 5256 [11916] 48505 5 66 6 1 0 0 TRANSFER 2/1/0 5260 [11917] 48506 5 66 10 1 0 0 DISC TRANSFER 26/0/0 3646 [11918] 48507 80 482 2 0 0 0 TSL 7 LONG NO S/R ENTER SUBROUTINE 7/0/0 5295 [11919] 48508 4 61 17 0 0 0 END VALUE AUGMENT 26/0/1 3721 [11920] 48509 82 485 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 486 at location 3729 in chapter 4 [11921] [11921] 48600 PROCR 486 486 [11921] 48601 NOTES RADIX B 0/0/0 0 [11921] 48602 81 486 2 0 0 0 START OF SUBROUTINE 6/0/0 5313 [11922] 48603 61 35 0 0 0 REF SELECT 27/0/0 3745 [11923] 48604 70 486 18 0 0 0 ABS ADD JUMP IF A == 0 1/1/2 100 [11924] 48605 12 0 0 0 64 100 SUBTRACT LITERAL 27/0/2 3746 [11925] 48606 72 487 2 0 0 0 JUMP IF A >= 0 1/0/1 1 [11926] 48607 35 0 0 0 1 Q1 PREPARE FOR DIGIT COLLATION 1/1/3 0 [11927] 48608 10 0 0 0 0 SELECT LITERAL 24/0/0 5313 [11928] 48609 124 61 35 0 0 0 MODIFY ADDRESS OF NEXT 15/0/0 5594 [11929] 48610 36 70 0 0 0 0 SECT DETS COLLATE AND ADD 2/0/0 5296 [11930] 48611 5 61 18 0 0 0 TRANSFER 0/0/2 4972 [11931] 48612 34 545 51 0 0 0 820 SET (N) IN B 24/0/0 5313 [11932] 48613 124 61 35 0 0 0 MODIFY ADDRESS OF NEXT 15/0/0 5594 [11933] 48614 36 70 0 0 0 0 SECT DETS COLLATE AND ADD 1/0/1 1 [11934] 48615 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 24/0/0 5296 [11935] 48616 124 61 18 0 0 0 UNCORRECTED CHAP MODIFY ADDRESS OF NEXT 15/0/0 6023 [11936] 48617 36 92 9 0 0 0 CORRECTED CHAP IN Q1 COLLATE AND ADD 26/0/1 3729 [11937] 48618 82 486 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 487 at location 3746 in chapter 4 [11938] [11938] 48700 PROCR 487 487 [11938] 48701 NOTES RADIX B 1/1/2 899 [11938] 48702 12 0 0 0 383 899 REF 999 SUBTRACT LITERAL 27/0/3 3752 [11939] 48703 73 487 8 0 0 0 JUMP IF A < 0 27/0/1 3754 [11940] 48704 71 487 10 0 0 0 > REF >999, CHEAT JUMP IF A != 0 2/0/0 5313 [11941] 48705 5 61 35 0 0 0 SET REF ZERO TRANSFER 6/0/0 5329 [11942] 48706 61 51 0 0 0 THIS CHAP SELECT 26/0/1 3729 [11943] 48707 82 486 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 1/1/1 999 [11944] 48708 11 0 0 0 3.7 999 ADD LITERAL 18/0/1 2 [11945] 48709 30 0 0 0 2 PROCR IN Q3-5 SHIFT (A) BY QUARTETS 1/0/0 6024 [11946] 48710 101 92 10 0 0 0 BIN LAST PROCRS IN CHAP TABLE LOOK UP 18/1/1 10 [11947] 48711 32 0 0 0 10 SHIFT (AB) BY QUARTETS 5/0/0 4923 [11948] 48712 2 545 2 0 0 0 ABS ADDRESS 92/9 SUBTRACT 2/0/0 5296 [11949] 48713 5 61 18 0 0 0 UNCORR C NO TRANSFER 24/1/0 3742 [11950] 48714 76 486 15 0 0 0 JUMP unconditional Start of procedure 488 at location 3759 in chapter 4 [11951] [11951] 48800 PROCR 488 488 [11951] 48801 NOTES RADIX B 0/0/0 0 [11951] 48802 81 488 2 0 0 0 START OF SUBROUTINE Source: DaveJ/Q1000390 26/1/3 6054 [11952] 48803 91 91 2 0 3 0 2(R+T):2R SET MODIFICATION REGISTER AT VARIABLE 1/0/1 1031 [11953] 48804 35 0 0 0 111- Q1-3 AND SIGN PREPARE FOR DIGIT COLLATION 1/1/3 0 [11954] 48805 10 0 0 0 0 SELECT LITERAL 15/0/3 6056 [11955] 48806 36 91 4 0 3 0 TA DETAILS COLLATE AND ADD 5/0/0 5256 [11956] 48807 2 66 6 0 0 0 REF SUBTRACT 27/0/0 3768 [11957] 48808 70 488 10 0 0 0 JUMP IF A == 0 25/0/3 2 [11958] 48809 94 488 5 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3762 [11959] 6/0/3 6056 [11960] 48810 0 91 4 0 3 0 TA DETAILS SELECT 18/0/1 4125 [11961] 48811 30 0 0 0 3- SHIFT (A) BY QUARTETS 26/0/1 3759 [11962] 48812 82 488 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 489 at location 3771 in chapter 4 [11963] [11963] 48900 PROCR 489 0 0 0 START OF MOD AND PARAMETER SR [11963] 48901 NOTES 0 0 0 0 0/0/0 0 [11963] 48902 81 489 2 0 0 0 START OF SUBROUTINE 6/0/0 5266 [11964] 48903 0 66 16 0 0 0 ITEM+' IND SELECT 27/0/1 3858 [11965] 48904 71 493 2 0 0 0 gYES JUMP IF A != 0 6/0/0 5256 [11966] 48905 0 66 6 0 0 0 REF SELECT 1/1/2 1000 [11967] 48906 101 1000 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/2 3880 [11968] 48907 72 495 2 0 0 0 gREF=1000+ JUMP IF A >= 0 6/0/0 5256 [11969] 48908 0 66 6 0 0 0 SELECT 27/0/0 3820 [11970] 48909 70 492 2 0 0 0 gABS ADDRESS JUMP IF A == 0 2/0/0 5313 [11971] 48910 5 61 35 0 0 0 TRANSFER 26/0/0 3729 [11972] 48911 80 486 2 0 0 0 gDETERMINE CHAPTER SR ENTER SUBROUTINE 18/1/1 4127 [11973] 48912 32 0 0 0 1- SHIFT (AB) BY QUARTETS 27/0/1 3869 [11974] 48913 71 494 2 0 0 0 gTRANSIT AREA JUMP IF A != 0 18/1/1 1 [11975] 48914 32 0 0 0 1 SHIFT (AB) BY QUARTETS 3/0/0 5312 [11976] 48915 3 61 34 0 0 0 STORE CHAP OF REFERENCE COPY 5/0/0 5329 [11977] 48916 2 61 51 0 0 0 THIS CHAP NUMBER SUBTRACT 27/0/1 3805 [11978] 48917 71 491 2 0 0 0 gOTHER CHAP JUMP IF A != 0 Start of procedure 490 at location 3787 in chapter 4 [11979] [11979] 49000 PROCR 490 0 0 0 DEAL WITH THIS CHAP-M&P [11979] 49001 NOTES 0 0 0 0 6/0/0 5280 [11979] 49002 0 61 2 0 0 0 MOD DIGITS SELECT 27/0/0 3802 [11980] 49003 70 490 17 0 0 0 gNORMAL JUMP IF A == 0 1/1/2 4 [11981] 49004 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 3798 [11982] 49005 72 490 13 0 0 0 gMR>3 JUMP IF A >= 0 6/0/0 5279 [11983] 49006 0 61 1 0 0 0 SELECT 27/0/0 3802 [11984] 49007 70 490 17 0 0 0 JUMP IF A == 0 6/0/0 4941 [11985] 49008 0 545 20 0 0 0 MR1-3 NON-A 24/0/0 SELECT 5/0/0 5319 [11986] 49009 2 61 41 0 0 0 MOD GROUP PARA SUBTRACT 5/0/0 5280 [11987] 49010 2 61 2 0 0 0 SUBTRACT 26/0/0 948 [11988] 49011 80 355 2 0 0 0 gO/P ENTER SUBROUTINE 24/1/0 3800 [11989] 49012 76 490 15 0 0 0 JUMP unconditional 6/0/0 5022 [11990] 49013 0 546 3 0 0 0 MR>3 24/0/1 SELECT 26/0/0 4048 [11991] 49014 80 506 2 0 0 0 MR>3 SR ENTER SUBROUTINE 1/1/3 0 [11992] 49015 10 0 0 0 0 SELECT LITERAL 2/0/0 5280 [11993] 49016 5 61 2 0 0 0 CLEAR MOD DIGITS TRANSFER 6/0/0 5281 [11994] 49017 0 61 3 0 0 0 SELECT 2/0/0 5312 [11995] 49018 5 61 34 0 0 0 SET PARAMETER=2C TRANSFER 26/0/1 3771 [11996] 49019 82 489 2 0 0 0 EXIT END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 491 at location 3805 in chapter 4 [11997] [11997] 49100 PROCR 491 0 0 0 M&P-DEAL WITH OTHER CHAPTER [11997] 49101 NOTES 0 0 0 0 26/0/0 3931 [11997] 49102 80 497 2 0 0 0 TEST MODIFICATION ENTER SUBROUTINE 27/0/1 3813 [11998] 49103 71 491 10 0 0 0 gYES JUMP IF A != 0 6/0/0 5021 [11999] 49104 0 546 2 0 0 0 SIMPLE CASE 24/0/3 SELECT 5/0/0 5312 [12000] 49105 2 61 34 0 0 0 OTHER CHAP NUMBER SUBTRACT 5/0/0 5312 [12001] 49106 2 61 34 0 0 0 SUBTRACT 1/1/1 1 [12002] 49107 11 0 0 0 1 ADD LITERAL Source: DaveJ/Q1000391 26/0/0 948 [12003] 49108 80 355 2 0 0 0 gO/P, CLEAR A ENTER SUBROUTINE 24/1/0 3803 [12004] 49109 76 490 18 0 0 0 gCLEAR PARA JUMP unconditional 26/0/0 4098 [12005] 49110 80 508 2 0 0 0 COMPLEX CASE ->O/P 0/1/0+0/0/3 ENTER SUBROUTINE 6/0/0 4929 [12006] 49111 0 545 8 0 0 0 6/0/0 SELECT 4/0/0 5312 [12007] 49112 1 61 34 0 0 0 OTHER CHAP NUMBER ADD 4/0/0 5312 [12008] 49113 1 61 34 0 0 0 ADD 1/1/2 1 [12009] 49114 12 0 0 0 1 SUBTRACT LITERAL 26/0/0 948 [12010] 49115 80 355 2 0 0 0 SELECT START ADDRESS ->O/P ENTER SUBROUTINE 24/1/0 3901 [12011] 49116 76 496 2 0 0 0 gM&P COMPLEX END JUMP unconditional Start of procedure 492 at location 3820 in chapter 4 [12012] [12012] 49200 PROCR 492 0 0 0 M&P-DEAL WITH ABSOLUTE ADDRESS [12012] 49201 NOTES 0 0 0 0 6/0/0 5280 [12012] 49202 0 61 2 0 0 0 MOD DIGITS SELECT 27/0/0 3856 [12013] 49203 70 492 38 0 0 0 gUNMODIFIED JUMP IF A == 0 1/1/2 4 [12014] 49204 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 3843 [12015] 49205 72 492 25 0 0 0 gMR>3 JUMP IF A >= 0 6/0/0 5279 [12016] 49206 0 61 1 0 0 0 SELECT 27/0/0 3854 [12017] 49207 70 492 36 0 0 0 gMR 1-3 ARITH JUMP IF A == 0 6/1/0 5258 [12018] 49208 0 66 8 1 0 0 ITEM SELECT 27/0/3 3833 [12019] 49209 73 492 15 0 0 0 JUMP IF A < 0 6/0/0 4940 [12020] 49210 0 545 19 0 0 0 (1) POS ITEM 24/01/2002 SELECT 5/0/0 5319 [12021] 49211 2 61 41 0 0 0 MOD GROUP PARA SUBTRACT 5/0/0 5280 [12022] 49212 2 61 2 0 0 0 SUBTRACT 26/0/0 948 [12023] 49213 80 355 2 0 0 0 gO/P ENTER SUBROUTINE 24/1/0 3847 [12024] 49214 76 492 29 0 0 0 JUMP unconditional 26/0/0 4098 [12025] 49215 80 508 2 0 0 0 gO/P 0/1/0+0/0/3 ENTER SUBROUTINE 26/0/0 4044 [12026] 49216 80 505 2 0 0 0 (2) NEG ITEM O/P 24/0/3 0 ENTER SUBROUTINE 6/0/0 4929 [12027] 49217 0 545 8 0 0 0 6/0/0 SELECT 4/0/0 5280 [12028] 49218 1 61 2 0 0 0 MOD DIGITS ADD 4/0/0 5280 [12029] 49219 1 61 2 0 0 0 ADD 2/0/0 5277 [12030] 49220 5 67 3 0 0 0 TRANSFER 6/0/0 5319 [12031] 49221 0 61 41 0 0 0 MOD GROUP PARA SELECT 2/0/0 5276 [12032] 49222 5 67 2 0 0 0 TRANSFER 26/0/0 4345 [12033] 49223 80 518 2 0 0 0 gO/P ENTER SUBROUTINE 24/1/0 3852 [12034] 49224 76 492 34 0 0 0 JUMP unconditional 6/1/0 5258 [12035] 49225 0 66 8 1 0 0 MR>3 ITEM SELECT 27/0/3 3849 [12036] 49226 73 492 31 0 0 0 (1) POSITIVE ITEM JUMP IF A < 0 6/0/0 5021 [12037] 49227 0 546 2 0 0 0 24/0/3 0 SELECT 26/0/0 4048 [12038] 49228 80 506 2 0 0 0 gMR>3 SR ENTER SUBROUTINE 2/0/0 5280 [12039] 49229 5 61 2 0 0 0 CLEAR MOD DIGITS TRANSFER 24/1/0 3928 [12040] 49230 76 496 29 0 0 0 gM&P END JUMP unconditional 26/0/0 4098 [12041] 49231 80 508 2 0 0 0 gO/P 0/1/0+0/0/3 ENTER SUBROUTINE 6/0/0 4929 [12042] 49232 0 545 8 0 0 0 (2) NEG ITEM 6/0/0 SELECT 26/0/0 4048 [12043] 49233 80 506 2 0 0 0 gMR>3 SR ENTER SUBROUTINE 2/0/0 5280 [12044] 49234 5 61 2 0 0 0 CLEAR MOD DIGITS TRANSFER 24/1/0 3901 [12045] 49235 76 496 2 0 0 0 gM&P COMPLEX END JUMP unconditional 6/1/0 5258 [12046] 49236 0 66 8 1 0 0 SIMPLE CASE ITEM SELECT 27/0/3 3833 [12047] 49237 73 492 15 0 0 0 JUMP IF A < 0 26/0/0 4044 [12048] 49238 80 505 2 0 0 0 O/P 24/0/3 0 ENTER SUBROUTINE 24/1/0 3928 [12049] 49239 76 496 29 0 0 0 g END JUMP unconditional Start of procedure 493 at location 3858 in chapter 4 [12050] [12050] 49300 PROCR 493 0 0 0 M&P-DEAL WITH 'ITEM+' [12050] 49301 NOTES 0 0 0 0 26/0/0 3931 [12050] 49302 80 497 2 0 0 0 g TEST MODIFICATION ENTER SUBROUTINE 27/0/1 3862 [12051] 49303 71 493 6 0 0 0 gYES JUMP IF A != 0 6/1/0 5258 [12052] 49304 0 66 8 1 0 0 ITEM SELECT 27/0/2 3866 [12053] 49305 72 493 10 0 0 0 gNORMAL JUMP IF A >= 0 26/0/0 4098 [12054] 49306 80 508 2 0 0 0 COMPLEX CASE ->O/P 0/1/0+0/0/3 ENTER SUBROUTINE 6/0/0 4929 [12055] 49307 0 545 8 0 0 0 6/0/0 SELECT Source: KenK/Q1000392 26/0/0 3997 [12056] 49308 80 502 2 0 0 0 g'ITEM+' SR ENTER SUBROUTINE 24/1/0 3901 [12057] 49309 76 496 2 0 0 0 g M&P COMPLEX END JUMP unconditional 6/0/0 5021 [12058] 49310 0 546 2 0 0 0 24/0/3 ;SIMPLE CASE SELECT 26/0/0 3997 [12059] 49311 80 502 2 0 0 0 g'ITEM +' SR ENTER SUBROUTINE 24/1/0 3928 [12060] 49312 76 496 29 0 0 0 M&P END JUMP unconditional Start of procedure 494 at location 3869 in chapter 4 [12061] [12061] 49400 PROCR 494 M&P – DEAL WITH TRANSIT AREA REFERENCE [12061] 49401 NOTES 26/0/0 3931 [12061] 49402 80 497 2 0 0 0 gTEST MODIFICATION ENTER SUBROUTINE 27/0/1 3873 [12062] 49403 71 494 6 0 0 0 gYES JUMP IF A != 0 6/1/0 5258 [12063] 49404 0 66 8 1 0 0 ITEM SELECT 27/0/2 3878 [12064] 49405 72 494 11 0 0 0 gNORMAL JUMP IF A >= 0 26/0/0 4098 [12065] 49406 80 508 2 0 0 0 gO/P 0/1/0+0/0/3 ;COMPLEX CASE ENTER SUBROUTINE 26/0/0 3975 [12066] 49407 80 500 2 0 0 0 gO/P 24/1/2 BY-(64+P) ENTER SUBROUTINE 6/0/0 4987 [12067] 49408 0 545 66 0 0 0 24/0/2 0 SELECT 26/0/0 973 [12068] 49409 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 24/1/0 3901 [12069] 49410 76 496 2 0 0 0 gM&P COMPLEX END JUMP unconditional 26/0/0 3975 [12070] 49411 80 500 2 0 0 0 gO/P 24/1/2 BY -(64+P) (SIMPLE CASE) ENTER SUBROUTINE 24/1/0 3928 [12071] 49412 76 496 29 0 0 0 gM&P END JUMP unconditional Start of procedure 495 at location 3880 in chapter 4 [12072] [12072] 49500 PROCR 495 M&P-DEAL WITH REFERENCE 1000+ [12072] 49501 NOTES 26/0/0 3931 [12072] 49502 80 497 2 0 0 0 gTEST MODIFICATION ENTER SUBROUTINE 27/0/1 3884 [12073] 49503 71 495 6 0 0 0 gYES JUMP IF A != 0 6/1/0 5258 [12074] 49504 0 66 8 1 0 0 ITEM SELECT 27/0/2 3894 [12075] 49505 72 495 16 0 0 0 gNORMAL JUMP IF A >= 0 26/0/0 4098 [12076] 49506 80 508 2 0 0 0 gO/P 0/1/0 +0/0/3 ;COMPLEX CASE ENTER SUBROUTINE 26/0/0 4016 [12077] 49507 80 503 2 0 0 0 gTEST CHAP ENTER SUBROUTINE 6/0/0 4940 [12078] 49508 545 19 0 0 0 24/1/2 SELECT 5/0/0 5256 [12079] 49509 2 66 6 0 0 0 SUBTRACT 1/1/1 1000 [12080] 49510 101 1000 1 1 0 ADD LITERAL ADDRESS 26/0/0 973 [12081] 49511 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 6/0/0 4987 [12082] 49512 545 66 0 0 0 24/0/2 SELECT 26/0/0 973 [12083] 49513 80 359 2 0 0 0 gO/P ZERO REF;ZERO PARA ENTER SUBROUTINE 2/1/0 5256 [12084] 49514 5 66 6 1 0 0 TRANSFER 24/1/0 3901 [12085] 49515 76 496 2 0 0 0 gM&P COMPLEX END JUMP unconditional 26/0/0 4016 [12086] 49516 80 503 2 0 0 0 gTEST CHAP ENTER SUBROUTINE 6/0/0 4940 [12087] 49517 545 19 0 0 0 24/1/2 SELECT 5/0/0 5256 [12088] 49518 2 66 6 0 0 0 SUBTRACT 1/1/1 1000 [12089] 49519 101 1000 1 1 0 ADD LITERAL ADDRESS 26/0/0 973 [12090] 49520 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 2/1/0 5256 [12091] 49521 5 66 6 1 0 0 TRANSFER 24/1/0 3928 [12092] 49522 76 496 29 0 0 0 gM&P END JUMP unconditional Start of procedure 496 at location 3901 in chapter 4 [12093] [12093] 49600 PROCR 496 M&P-DEAL WITH ADDRESS CALCULATIONS+END ROUTINE [12093] 49601 NOTES 6/0/0 5280 [12093] 49602 0 61 2 0 0 0 SELECT 27/0/0 3916 [12094] 49603 70 496 17 0 0 0 gUNMODIFIED JUMP IF A == 0 1/1/2 4 [12095] 49604 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 3914 [12096] 49605 72 496 15 0 0 0 gMR>3 JUMP IF A >= 0 26/0/0 4044 [12097] 49606 80 505 2 0 0 0 24/0/3 0 ENTER SUBROUTINE 6/0/0 4930 [12098] 49607 0 545 9 0 0 0 4/0/0 SELECT 4/0/0 5280 [12099] 49608 1 61 2 0 0 0 ADD 4/0/0 5280 [12100] 49609 1 61 2 0 0 0 ADD 2/0/0 5277 [12101] 49610 5 67 3 0 0 0 TRANSFER 6/0/0 5319 [12102] 49611 0 61 41 0 0 0 MOD GROUP PARA SELECT Source: KenK/Q1000393 2/0/0 5276 [12103] 49612 5 67 2 0 0 0 TRANSFER 26/0/0 4345 [12104] 49613 80 518 2 0 0 0 gO/P ENTER SUBROUTINE 24/1/0 3916 [12105] 49614 76 496 17 0 0 0 JUMP unconditional 6/0/0 4930 [12106] 49615 0 545 9 0 0 0 4/0/0 SELECT 26/0/0 4048 [12107] 49616 80 506 2 0 0 0 gMR>3 SR ENTER SUBROUTINE 6/1/0 5258 [12108] 49617 0 66 8 1 0 0 SELECT 27/0/2 3921 [12109] 49618 72 496 22 0 0 0 gNOT NEGATIVE ITEM JUMP IF A >= 0 6/0/0 5258 [12110] 49619 0 66 8 0 0 0 MODULUS SELECT 4/0/0 4945 [12111] 49620 1 545 24 0 0 0 1/1/2 0 ADD 26/0/0 973 [12112] 49621 80 359 2 0 0 0 gO/P ENTER SUBROUTINE 2/1/0 5258 [12113] 49622 5 66 8 1 0 0 CLEAR ITEM, MOD DIGITS TRANSFER 2/0/0 5280 [12114] 49623 5 61 2 0 0 0 TRANSFER 6/0/0 5035 [12115] 49624 546 16 0 0 0 2/0/0/6 SELECT 26/0/0 982 [12116] 49625 80 361 2 0 0 0 gLN;2C SR ENTER SUBROUTINE 26/0/0 1951 [12117] 49626 80 399 2 0 0 0 g0/1/1 SR ENTER SUBROUTINE 6/0/0 5036 [12118] 49627 546 17 0 0 0 24/0/3/6 SELECT 26/0/0 982 [12119] 49628 80 361 2 0 0 0 gLN;2C SR ENTER SUBROUTINE 1/1/3 0 [12120] 49629 10 0 0 0 0 SELECT LITERAL 2/0/0 5312 [12121] 49630 5 61 34 0 0 0 CLEAR PARA, REF TRANSFER 26/0/1 3771 [12122] 49631 82 489 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 497 at location 3931 in chapter 4 [12123] [12123] 49700 PROCR 497 M&P-TEST INDIRECT MODIFICATION [12123] 49701 NOTES 0/0/0 0 [12123] 49702 81 497 2 0 0 0 START OF SUBROUTINE 6/0/0 5280 [12124] 49703 0 61 2 0 0 0 MOD DIGITS SELECT 27/0/0 3937 [12125] 49704 70 497 8 0 0 0 gNO JUMP IF A == 0 1/1/2 4 [12126] 49705 12 0 0 0 4 SUBTRACT LITERAL 27/0/2 3938 [12127] 49706 72 497 9 0 0 0 gYES(MR>3) JUMP IF A >= 0 6/0/0 5279 [12128] 49707 0 61 1 0 0 0 (NON-ZERO IF NON-ARITH) SELECT 26/0/1 3931 [12129] 49708 82 497 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 1/1/3 1 [12130] 49709 10 0 0 0 1 SELECT LITERAL 26/0/1 3931 [12131] 49710 82 497 2 0 0 0 (A)=0 IF 'DIRECT' MODIFICATION END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 498 at location 3940 in chapter 4 [12132] [12132] 49800 PROCR 498 SR FOR INTERNAL SC'S TO MAKE REL TO PROCR STARTS [12132] 49801 NOTES 0/0/0 0 [12132] 49802 81 498 2 0 0 0 START OF SUBROUTINE 27/0/3 3945 [12133] 49803 73 498 7 0 0 0 gNEGATIVE ACTIONS JUMP IF A < 0 4/0/0 5321 [12134] 49804 1 61 43 0 0 0 ADD 5/0/0 5289 [12135] 49805 2 61 11 0 0 0 START OF CURRENT PROCR SUBTRACT 24/1/0 3947 [12136] 49806 76 498 9 0 0 0 JUMP unconditional 5/0/0 5321 [12137] 49807 2 61 43 0 0 0 SUBTRACT 4/0/0 5289 [12138] 49808 1 61 11 0 0 0 ADD 2/0/0 5277 [12139] 49809 5 67 3 0 0 0 TRANSFER 6/0/0 5288 [12140] 49810 0 61 10 0 0 0 CURRENT PROCR(IN THIS CHAPTER) SELECT 18/0/1 2 [12141] 49811 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 5281 [12142] 49812 1 61 3 0 0 0 ADD 2/0/0 5276 [12143] 49813 5 67 2 0 0 0 PARA TRANSFER 26/0/0 4345 [12144] 49814 80 518 2 0 0 0 gO/P ENTER SUBROUTINE 26/0/1 3940 [12145] 49815 82 498 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 499 at location 3954 in chapter 4 [12146] [12146] 49900 PROCR 499 SET(A)=ROUTE PARA;Q10B=FILE TYPE [12146] 49901 NOTES 0/0/0 0 [12146] 49902 81 499 2 0 0 0 START OF SUBROUTINE 26/1/3 6052 [12147] 49903 91 91 0 0 3 0 2R:0 SET MODIFICATION REGISTER AT VARIABLE 6/0/3 6057 [12148] 49904 0 91 5 0 3 0 SELECT Source: ChuckK/Q1000394 27/0/0 3965 [12149] 49905 70 499 11 0 0 0 >LIST EMPTY JUMP IF A == 0 18/1/3 2 [12150] 49906 33 0 0 0 6- ROUTE TYPE SHIFT (AB) BY BITS 18/1/1 4126 [12151] 4/0/0 4948 [12152] 49907 1 545 27 0 0 0 BIT 15 TO RESTORE TOP CONTROL ADD 5/0/0 5332 [12153] 49908 2 61 54 0 0 0 FILE ID SUBTRACT 27/0/0 3967 [12154] 49909 70 499 13 0 0 0 >MATCH JUMP IF A == 0 25/0/3 2 [12155] 49910 94 499 4 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3956 [12156] 1/1/3 93 [12157] 49911 10 0 0 0 5: SELECT LITERAL 26/0/0 3984 [12158] 49912 80 501 2 0 0 0 >REPORT'?????' ENTER SUBROUTINE 24/0/3 22 [12159] 49913 96 0 0 3 0 SELECT MODIFIER 6/0/0 6 [12160] 18/0/3 3 [12161] 49914 31 0 0 0 1- SHIFT (A) BY BITS 18/0/1 4127 [12162] 4/0/0 6043 [12163] 49915 1 92 29 0 0 0 NUMBER OF CHARS ADD 4/0/0 6043 [12164] 49916 1 92 29 0 0 0 ADD 1/1/1 1 [12165] 49917 11 0 0 0 1 ADD LITERAL 26/0/1 3954 [12166] 49918 82 499 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 500 at location 3975 in chapter 4 [12167] [12167] 50000 PROCR 500 MODIFY BY ANNEX START SR [12167] 50001 NOTES RADIX B T.A.S. MR LESS THAN 3 0/0/0 0 [12167] 50002 81 500 2 0 0 0 START OF SUBROUTINE 26/0/0 3759 [12168] 50003 80 488 2 0 0 0 FORM TA PARAM ENTER SUBROUTINE 1/1/1 1 [12169] 50004 11 0 0 0 1 TO GIVE T2 ADD LITERAL 5/0/0 4940 [12170] 50005 2 545 19 0 0 0 24/1/2 SUBTRACT 2/0/0 5277 [12171] 50006 5 67 3 0 0 0 TRANSFER 5/0/0 5277 [12172] 50007 2 67 3 0 0 0 SUBTRACT 26/0/0 948 [12173] 50008 80 355 2 0 0 0 >O/P ENTER SUBROUTINE 2/0/0 5256 [12174] 50009 5 66 6 0 0 0 CLEAR REF TRANSFER 26/0/1 3975 [12175] 50010 82 500 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 501 at location 3984 in chapter 4 [12176] [12176] 50100 PROCR 501 MISMATCH SR FOR MR>3, SWITCHES, ITEM+ [12176] 50101 NOTES 0/0/0 0 [12176] 50102 81 501 2 0 0 0 (A)=+,M,S OR C START OF SUBROUTINE 18/1/1 4126 [12177] 50103 32 0 0 0 2- SHIFT (AB) BY QUARTETS 4/1/0 4828 [12178] 50104 1 542 28 1 0 0 '?????' ADD 18/1/1 2 [12179] 50105 32 0 0 0 2 SHIFT (AB) BY QUARTETS 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 46 [12181] 50106 5 5 46 1 0 0 TRANSFER 6/0/0 5039 [12182] 50107 0 546 20 0 0 0 SELECT 27/0/1 3995 [12183] 50108 71 501 12 0 0 0 >PREVIOUS RI/P RECORD WAS PRINTED JUMP IF A != 0 1/1/3 1 [12184] 50109 10 0 0 0 1 SELECT LITERAL 2/0/0 5020 [12185] 50110 5 545 99 0 0 0 TRANSFER 26/0/0 4145 [12186] 50111 80 511 2 0 0 0 >PRINT LINE WE'RE REPORTING ENTER SUBROUTINE 26/0/0 4660 [12187] 50112 80 530 2 0 0 0 >SECOND PRINT SR ENTER SUBROUTINE 26/0/1 3984 [12188] 50113 82 501 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 502 at location 3997 in chapter 4 [12189] [12189] 50200 PROCR 502 [12189] 50201 NOTES RADIX B DEAL WITH ITEM + S.R. 0/0/0 0 [12189] 50202 81 502 2 0 0 0 START OF SUBROUTINE 2/0/0 5336 [12190] 50203 5 61 58 0 0 0 ACTION TRANSFER 26/1/3 6088 [12191] 50204 91 98 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 6/0/0 6089 [12192] 50205 98 1 0 0 0 CTR SELECT 27/0/0 4009 [12193] 50206 70 502 13 0 0 0 >WRONG JUMP IF A == 0 1/0/1 3 [12194] 50207 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 1/1/3 0 [12195] 50208 10 0 0 0 0 SELECT LITERAL 15/0/3 6090 [12196] 50209 36 98 2 0 3 0 COLLATE AND ADD 5/1/0 5256 [12197] 50210 2 66 6 1 0 0 SUBTRACT 27/0/0 4011 [12198] 50211 70 502 15 0 0 0 >OK JUMP IF A == 0 25/0/3 1 [12199] 50212 94 502 8 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4003 [12200] 1/1/3 76 [12201] 50213 10 0 0 0 4+ ERROR + SELECT LITERAL 26/0/0 3984 [12202] 50214 80 501 2 0 0 0 >MISMATCH SR ENTER SUBROUTINE 6/0/3 6090 [12203] 50215 98 2 0 3 0 SELECT 26/0/0 4066 [12204] 50216 80 507 2 0 0 0 ENTER SUBROUTINE 2/0/0 5266 [12205] 50217 5 66 16 0 0 0 CLEAR ITEM+IND TRANSFER Source: ChuckK/Q1000395 2/1/0 5256 [12206] 50218 5 66 6 1 0 0 CLEAR REFERENCE TRANSFER 26/0/1 3997 [12207] 50219 82 502 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 503 at location 4016 in chapter 4 [12208] [12208] 50300 PROCR 503 TEST IF IN OTHER CHAPTER-M&P REF 1000+ [12208] 50301 NOTES 0/0/0 0 [12208] 50302 81 503 2 0 0 0 START OF SUBROUTINE 6/0/0 5287 [12209] 50303 61 9 0 0 0 PROCR OF LAST 81 ACTION SELECT 2/0/0 5313 [12210] 50304 5 61 35 0 0 0 TRANSFER 26/0/0 3729 [12211] 50305 80 486 2 0 0 0 >DETERMINE CHAP SR ENTER SUBROUTINE 3/0/0 5312 [12212] 50306 3 61 34 0 0 0 ADDRESSED CHAP COPY 5/0/0 5329 [12213] 50307 2 61 51 0 0 0 THIS CHAP NO SUBTRACT 27/0/0 4031 [12214] 50308 70 503 17 0 0 0 >THIS CHAP JUMP IF A == 0 6/0/0 5312 [12215] 50309 61 34 0 0 0 SELECT 26/0/0 4035 [12216] 50310 80 504 2 0 0 0 >O/P 24/0/3 ENTER SUBROUTINE 6/0/0 5287 [12217] 50311 61 9 0 0 0 REF=PROCR SELECT 18/0/1 2 [12218] 50312 30 0 0 0 2 SHIFT (A) BY QUARTETS 2/0/0 5276 [12219] 50313 5 67 2 0 0 0 PARA=0 TRANSFER 6/0/0 5021 [12220] 50314 546 2 0 0 0 24/0/3 SELECT 26/0/0 973 [12221] 50315 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 26/0/1 4016 [12222] 50316 82 503 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 6/0/0 5287 [12223] 50317 61 9 0 0 0 SELECT 18/0/1 2 [12224] 50318 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 5281 [12225] 50319 1 61 3 0 0 0 2C ADD 24/1/0 4027 [12226] 50320 76 503 13 0 0 0 JUMP unconditional Start of procedure 504 at location 4035 in chapter 4 [12227] [12227] 50400 PROCR 504 OUTPUT 24/0/3 BY 0 OR 24/0/3 BY OTHER CHAP 15-BIT START [12227] 50401 NOTES 0/0/0 0 [12227] 50402 81 504 2 0 0 0 START OF SUBROUTINE 27/0/0 4041 [12228] 50403 70 504 8 0 0 0 >24/0/3 BY 0 JUMP IF A == 0 2/0/0 5277 [12229] 50404 5 67 3 0 0 0 TRANSFER 1/1/3 1 [12230] 50405 10 0 0 0 1 SELECT LITERAL 5/0/0 5277 [12231] 50406 2 67 3 0 0 0 SUBTRACT 5/0/0 5277 [12232] 50407 2 67 3 0 0 0 SUBTRACT 4/0/0 5021 [12233] 50408 1 546 2 0 0 0 24/0/3 ADD 26/0/0 948 [12234] 50409 80 355 2 0 0 0 >O/P ENTER SUBROUTINE 26/0/1 4035 [12235] 50410 82 504 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 505 at location 4044 in chapter 4 [12236] [12236] 50500 PROCR 505 OUTPUT 24/0/3 BY 0 [12236] 50501 NOTES RADIX B 0/0/0 0 [12236] 50502 81 505 2 0 0 0 START OF SUBROUTINE 1/1/3 0 [12237] 50503 10 0 0 0 0 SELECT LITERAL 26/0/0 4035 [12238] 50504 80 504 2 0 0 0 ENTER SUBROUTINE 26/0/1 4044 [12239] 50505 82 505 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 506 at location 4048 in chapter 4 [12240] [12240] 50600 PROCR 506 MR GREATER THAN 3 SR [12240] 50601 NOTES RADIX B M & P 0/0/0 0 [12240] 50602 81 506 2 0 0 0 START OF SUBROUTINE 2/0/0 5336 [12241] 50603 5 61 58 0 0 0 ACTION WL TRANSFER 26/1/3 5430 [12242] 50604 91 71 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 25/0/3 0 [12243] 50605 94 506 7 0 3 0 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4054 [12244] s 24/1/0 4061 [12245] 50606 76 506 13 0 0 0 >MISMATCH JUMP unconditional 1/0/1 3 [12246] 50607 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 1/1/3 0 [12247] 50608 10 0 0 0 0 SELECT LITERAL 15/0/3 5432 [12248] 50609 36 71 2 0 3 0 COLLATE AND ADD 5/0/0 5280 [12249] 50610 2 61 2 0 0 0 MOD DIGITS SUBTRACT 27/0/0 4063 [12250] 50611 70 506 15 0 0 0 >OK JUMP IF A == 0 25/0/3 1 [12251] 50612 94 506 8 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4055 [12252] s 1/1/3 100 [12253] 50613 10 0 0 0 64 =M SELECT LITERAL 26/0/0 3984 [12254] 50614 80 501 2 0 0 0 >MISMATCH SR ENTER SUBROUTINE 6/0/3 5432 [12255] 50615 0 71 2 0 3 0 SELECT Source: ChuckK/Q1000396 26/0/0 4066 [12256] 50616 80 507 2 0 0 0 ENTER SUBROUTINE 26/0/1 4048 [12257] 50617 82 506 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 507 at location 4066 in chapter 4 [12258] [12258] 50700 PROCR 507 END ROUTINE FOR MR>3 AND ITEM+ SUBROUTINES 0/0/0 0 [12258] 50702 81 507 2 0 0 0 START OF SUBROUTINE 2/0/0 4016 [12259] 50703 5 503 2 0 0 0 WL=SR LINK TRANSFER 6/0/0 5336 [12260] 50704 0 61 58 0 0 0 SELECT 27/0/0 4079 [12261] 50705 70 507 15 0 0 0 >ZERO ACTION=15-BIT ADDRESS NEEDED JUMP IF A == 0 6/0/0 4016 [12262] 50706 0 503 2 0 0 0 SELECT 18/0/1 4124 [12263] 50707 30 0 0 0 4- ISOLATE CORRECTED CHAP SHIFT (A) BY QUARTETS 5/0/0 5329 [12264] 50708 2 61 51 0 0 0 SUBTRACT 27/0/0 4077 [12265] 50709 70 507 13 0 0 0 >THIS CHAP JUMP IF A == 0 4/0/0 5329 [12266] 50710 1 61 51 0 0 0 ADD 26/0/0 4035 [12267] 50711 80 504 2 0 0 0 >O/P 24/0/3 BY OTHER CHAP START ENTER SUBROUTINE 24/1/0 4084 [12268] 50712 76 507 20 0 0 0 >(PARA=0) JUMP unconditional 6/0/0 5281 [12269] 50713 0 61 3 0 0 0 2C SELECT 24/1/0 4084 [12270] 50714 76 507 20 0 0 0 JUMP unconditional 6/0/0 4016 [12271] 50715 0 503 2 0 0 0 SELECT 18/0/1 4124 [12272] 50716 30 0 0 0 4- SHIFT (A) BY QUARTETS 3/0/0 5276 [12273] 50717 3 67 2 0 0 0 FORM PARA 2C'-1 COPY 4/0/0 5276 [12274] 50718 1 67 2 0 0 0 ADD 1/1/2 1 [12275] 50719 12 0 0 0 1 SUBTRACT LITERAL 2/0/0 5276 [12276] 50720 5 67 2 0 0 0 TRANSFER 6/0/0 4016 [12277] 50721 0 503 2 0 0 0 SELECT 18/1/1 4124 [12278] 50722 32 0 0 0 4- SHIFT (AB) BY QUARTETS 1/1/1 1001 [12279] 50723 101 1001 1 1 0 ADD LITERAL ADDRESS 18/0/1 2 [12280] 50724 30 0 0 0 2 SHIFT (A) BY QUARTETS 7/0/0 5276 [12281] 50725 4 67 2 0 0 0 REF=1000+CHAP AUGMENT 1/1/3 0 [12282] 50726 10 0 0 0 0 SELECT LITERAL 18/1/1 2 [12283] 50727 32 0 0 0 2 CTR WAS IN Q3,4 SHIFT (AB) BY QUARTETS 0/0/2 4916 [12284] 50728 34 544 22 0 0 0 BITS 1-13 SET (N) IN B 15/0/0 5336 [12285] 50729 36 61 58 0 0 0 COLLATE AND ADD 14/0/0 5336 [12286] 50730 37 61 58 0 0 0 PACK WITH ACTION REPLACE SELECTED BITS 6/0/0 5336 [12287] 50731 0 61 58 0 0 0 SELECT 26/0/0 973 [12288] 50732 80 359 2 0 0 0 >O/P ENTER SUBROUTINE 26/0/1 4066 [12289] 50733 82 507 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 508 at location 4098 in chapter 4 [12290] [12290] 50800 PROCR 508 0/1/0 AND 0/0/3 S/R [12290] 50801 NOTES RADIX B M&P 0/0/0 0 [12290] 50802 81 508 2 0 0 0 START OF SUBROUTINE 6/0/0 5303 [12291] 50803 61 25 0 0 0 BIN INDICATOR SELECT 27/0/0 4102 [12292] 50804 70 508 6 0 0 0 JUMP IF A == 0 1/1/3 8 [12293] 50805 10 0 0 0 8 SELECT LITERAL 4/0/0 4950 [12294] 50806 1 545 29 0 0 0 0/1/0 ADD 26/0/0 982 [12295] 50807 80 361 2 0 0 0 >LN:2C SR ENTER SUBROUTINE 6/0/0 5303 [12296] 50808 61 25 0 0 0 BIN IND SELECT 27/0/1 4108 [12297] 50809 71 508 12 0 0 0 WE ALREADY HAVE BINARY SET JUMP IF A != 0 6/0/0 4949 [12298] 50810 545 28 0 0 0 0/0/3 SELECT 26/0/0 948 [12299] 50811 80 355 2 0 0 0 O/P ENTER SUBROUTINE 1/1/3 1 [12300] 50812 10 0 0 0 1 SELECT LITERAL 7/0/0 5303 [12301] 50813 4 61 25 0 0 0 AUGMENT 26/0/1 4098 [12302] 50814 82 508 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 509 at location 4111 in chapter 4 [12303] [12303] 50900 PROCR 509 I/P SR [12303] 50901 NOTES RADIX 0/0/0 0 [12303] 50902 81 509 2 0 0 0 START OF SUBROUTINE 24/0/3 8190 [12304] 50903 0 2 12 0 CURRENT RECORD LENGTH SELECT 6/1/0 1 [12305] 2/0/0 4750 [12306] 50904 5 537 2 0 0 0 TRANSFER 24/0/1 4750 [12307] 50905 97 537 2 0 12 0 STEP ON AND TEST MODIFICATION REGISTER (VARIABLE) 23/0/0 0 [12308] 50906 C 509 8 0 0 0 STEP ON AND TEST MODIFICATION REGISTER (VARIABLE) 0/0/1 8190 [12309] 24/1/0 4120 [12310] s Source: RayS/Q1000397 26/0/0 4762 [12311] 50907 80 539 2 0 0 0 gREAD ENTER SUBROUTINE 1/1/3 0 [12312] 50908 10 0 0 0 0 SELECT LITERAL 1/0/1 15 [12313] 50909 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 24/0/3 8190 [12314] 50910 36 2 1 12 0 AMENDED IMPLICITLY IND COLLATE AND ADD 15/1/0 2 [12315] 2/0/0 5020 [12316] 50911 5 545 99 0 0 0 TRANSFER 24/0/3 8190 [12317] 50912 37 2 1 12 0 CLEAR 2 CHARS REPLACE SELECTED BITS 14/1/0 2 [12318] 6/1/0 5230 [12319] 50913 54 77 0 1 0 44 BULK CLEAR BULK CLEAR 28/1/1 5550 [12320] 6/0/0 8190 [12321] 50914 55 0 1 12 0 BULK COPY 18/1/0 4123 [12322] 50915 C 77 0 1 0 0 24/0/3 8190 [12323] 50916 C 0 2 12 0 6/1/0 1 [12324] 18/1/1 5 [12325] 28/1/1 5550 [12326] 26/0/1 4111 [12327] 50917 82 509 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 510 at location 4136 in chapter 4 [12328] [12328] 51000 PROCR 510 PRINT LINE AND RE-SITE AMEND IND [12328] 51001 NOTES 0/0/0 0 [12328] 51002 81 510 2 0 0 0 START OF SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 4 [12330] 51003 8 4 1 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 2 [12332] 51004 5 8 2 1 0 0 TRANSFER 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 4 [12334] 51005 5 8 4 1 0 0 TRANSFER 26/0/0 4145 [12335] 51006 80 511 2 0 0 0 gPRINT ENTER SUBROUTINE 26/0/1 4136 [12336] 51007 82 510 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 511 at location 4145 in chapter 4 [12337] [12337] 51100 PROCR 511 PRINT FROM SEC 5 OR 7 SR-TX AREA PARAS SET UP IN ADVANCE [12337] 51101 NOTES RADIX B 0/0/0 0 [12337] 51102 81 511 2 0 0 0 START OF SUBROUTINE 6/1/0 4896 [12338] 51103 0 544 2 1 0 0 BEW SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 50 [12340] 51104 5 7 50 1 0 0 TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 46 [12342] 51105 7 46 1 0 0 SELECT 26/0/0 4304 [12343] 51106 80 515 2 0 0 0 gREPORT IF TOP 4 CHARS='?' ENTER SUBROUTINE 27/0/0 4158 [12344] 51107 70 511 12 0 0 0 gYES JUMP IF A == 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 48 [12346] 51108 7 48 1 0 0 SELECT 27/0/0 4206 [12347] 51109 70 511 44 0 0 0 gNO ERRORS JUMP IF A == 0 26/0/0 4304 [12348] 51110 80 515 2 0 0 0 gTEST FOR REPORT ENTER SUBROUTINE 27/0/1 4176 [12349] 51111 71 511 23 0 0 0 JUMP IF A != 0 23/0/0 0 [12350] 51112 94 511 14 0 20 0 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8186 [12351] 24/1/0 4162 [12352] s 24/1/0 4204 [12353] 51113 76 511 42 0 0 0 gNO MORE ROOM JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 6 [12355] 51114 7 6 1 0 0 SELECT 27/0/0 4204 [12356] 51115 70 511 42 0 0 0 gFILE HANDLING ERROR;NO SERIAL JUMP IF A == 0 18/0/1 4120 [12357] 51116 30 0 0 0 8- SHIFT (A) BY QUARTETS 1/1/2 91 [12358] 51117 12 0 0 0 5e SUBTRACT LITERAL 27/0/0 4204 [12359] 51118 70 511 42 0 0 0 gSECTION DESCRIPTION JUMP IF A == 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 7 [12361] 51119 7 6 2 0 0 SELECT 24/0/1 8186 [12362] 51120 5 40 0 0 20 0 TRANSFER 2/0/0 6290 [12363] 23/0/0 1 [12364] 51121 94 511 42 0 20 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8186 [12365] 24/1/0 4204 [12366] s 24/1/0 4204 [12367] 51122 76 511 42 0 0 0 JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 32 [12369] 51123 7 32 1 0 0 FIRST 5 CHARS ANNOTATION SELECT 5/1/0 5232 [12370] 51124 12 0 0 0 7171717171 '/////' SUBTRACT LITERAL 27/0/1 4184 [12371] 51125 71 511 29 0 0 0 JUMP IF A != 0 1/0/1 63 [12372] 51126 35 0 0 0 111111 Q1-6 PREPARE FOR DIGIT COLLATION 24/1/2 17 Extra code needed to address transit area no 2, section 7 14/1/0 48 [12374] 51127 37 7 48 1 0 0 REPLACE SELECTED BITS 24/1/0 4206 [12375] 51128 76 511 44 0 0 0 gDON'T COUNT JUMP unconditional 23/0/0 0 [12376] 51129 94 511 31 0 19 0 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8188 [12377] 24/1/0 4188 [12378] s 24/1/0 4201 [12379] 51130 76 511 39 0 0 0 gNO MORE ROOM JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 6 [12381] 51131 7 6 1 0 0 SELECT 27/0/0 4201 [12382] 51132 70 511 39 0 0 0 gFILE HEADING ERROR;NO SERIAL JUMP IF A == 0 18/0/1 4120 [12383] 51133 30 0 0 0 8- SHIFT (A) BY QUARTETS 1/1/2 91 [12384] 51134 12 0 0 0 5e SUBTRACT LITERAL 27/0/0 4201 [12385] 51135 70 511 39 0 0 0 gSECTION DESCRIPTION ERROR JUMP IF A == 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 7 [12387] 51136 7 6 2 0 0 SELECT Source: TonyJ/Q1000398 24/0/1 8188 [12388] 51137 5 40 10 0 19 0 TRANSFER 2/0/0 6300 [12389] 23/0/0 1 [12390] 51138 94 0 0 19 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8188 [12391] 24/1/0 4201 [12392] 6/0/0 8171 [12393] 51139 86 514 2 0 0 0 SELECT SWITCH R 1/1/1 1 [12394] 51140 11 0 0 0 1 STEP CTR OF OTHER ERRORS ADD LITERAL 2/0/0 8171 [12395] 51141 84 514 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 1/1/3 1 [12396] 51142 10 0 0 0 1 (PRINT REPORTED LINES) SELECT LITERAL 2/0/0 5020 [12397] 51143 5 545 99 0 0 0 TRANSFER 6/1/0 6246 [12398] 51144 0 23 46 1 0 0 PRINT PROCR '+' PRINT ALL ' INDS SELECT 27/0/1 4213 [12399] 51145 71 511 51 0 0 0 > PRINT JUMP IF A != 0 6/0/0 5020 [12400] 51146 0 545 99 0 0 0 IMPLICITLY AMENDED' SELECT 27/0/0 4219 [12401] 51147 70 511 56 0 0 0 > DONT PRINT JUMP IF A == 0 6/0/0 5039 [12402] 51148 0 546 20 0 0 0 > LAST RECORD PRINTED ? SELECT 27/0/1 4213 [12403] 51149 71 511 51 0 0 0 > YES JUMP IF A != 0 26/0/0 4221 [12404] 51150 80 512 2 0 0 0 > BLANK LINE ENTER SUBROUTINE 6/0/0 5324 [12405] 51151 0 61 46 0 0 0 HEAD OF FORM, OR ZERO SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 1 [12407] 51152 5 7 0 2 0 0 TRANSFER 26/0/0 4244 [12408] 51153 80 513 2 0 0 0 >PRINT LINE ENTER SUBROUTINE 1/1/3 1 [12409] 51154 10 0 0 0 1 SELECT LITERAL 3/0/0 5324 [12410] 51155 3 61 46 0 0 0 SET FOR NEXT TIME COPY 2/0/0 5039 [12411] 51156 5 546 20 0 0 0 SET/CLEAR IND TRANSFER 26/0/1 4145 [12412] 51157 82 511 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 512 at location 4221 in chapter 4 [12413] [12413] 51200 PROCR 512 512 PRINT BLANK LINE UNCONDITIIONALLY 0/0/0 0 [12413] 51202 81 512 2 0 0 0 START OF SUBROUTINE 6/1/0 16 [12414] 51203 999 16 1 0 0 COPY SEC 7 PARAS SELECT 2/1/0 4892 [12415] 51204 5 543 42 1 0 0 TRANSFER 6/0/0 8 [12416] 51205 0 999 8 0 0 0 PT ROUTE SELECT 2/0/0 16 [12417] 51206 5 999 16 0 0 0 TRANSFER 5/0/0 8 [12418] 51207 2 999 8 0 0 0 SUBTRACT 1/1/2 64 [12419] 51208 12 0 0 0 40 64 SUBTRACT LITERAL 2/0/0 17 [12420] 51209 5 999 17 0 0 0 CREATE R, - (64+R) TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 0 [12422] 51210 5 7 0 1 0 0 TRANSFER 6/0/0 6319 [12423] 51211 27 9 0 0 0 ON LINE ? SELECT 27/0/0 4237 [12424] 51212 70 512 15 0 0 0 > YES JUMP IF A == 0 6/1/0 5234 [12425] 51213 54 7 0 1 0 50 BULK CLEAR 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/1/1 0 [12427] 24/1/0 4240 [12428] 51214 76 512 17 0 0 0 > 'PRINT' JUMP unconditional 6/1/0 4896 [12429] 51215 0 544 2 1 0 0 DEW SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 2 [12431] 51216 5 7 2 1 0 0 TRANSFER 26/0/0 4244 [12432] 51217 80 513 2 0 0 0 >'PRINT EX SEC 7 ENTER SUBROUTINE 6/1/0 4892 [12433] 51218 0 543 42 1 0 0 SELECT 2/1/0 16 [12434] 51219 5 999 16 1 0 0 RESTORE SEC 7 PARAS TRANSFER 26/0/1 4221 [12435] 51220 82 512 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 513 at location 4244 in chapter 4 [12436] [12436] 51300 PROCR 513 513 PRINT SEC 7 (OR SEC 5, OR PT ANNEX) 0/0/0 0 [12436] 51302 81 513 2 0 0 0 START OF SUBROUTINE 6/0/0 6319 [12437] 51303 27 9 0 0 0 SELECT 27/0/0 4265 [12438] 51304 70 513 9 0 0 0 > PRINTER JUMP IF A == 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 0 [12440] 51305 55 7 0 1 0 50 BULK COPY 18/1/0 4123 [12441] 51306 C 10 4 1 6 0 0/0/0 0 act unimp [12442] 51306 C 10 4 1 6 0 Bulk copy simulated modifier 0/1/0 40 [12443] 0/0/3 0 [12444] 24/1/2 13 Extra code needed to address transit area no 0, section 10 24/0/2 4 [12446] 24/0/3 22 [12447] 4/0/0 12 [12448] 2/0/0 40 [12449] 0/1/1 40 [12450] 1/1/3 50 [12451] 18/1/1 5 [12452] 24/1/2 40 [12453] 28/1/1 0 [12454] 26/0/0 4782 [12455] 51307 80 540 2 0 0 0 > O/P> ENTER SUBROUTINE 26/0/1 4244 [12456] 51308 82 513 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 6/0/0 6318 [12457] 51309 27 8 0 0 0 PRINTER TYPE SELECT Source: TonyJ/Q1000399 1/1/2 9 [12458] 51310 12 0 0 0 9 SUBTRACT LITERAL 27/0/0 4284 [12459] 51311 70 513 27 0 0 0 > SPECIAL JUMP IF A == 0 6/0/0 4972 [12460] 51312 545 51 0 0 0 BIT 20 SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/0/0 1 [12462] 51313 5 7 1 0 0 0 TRANSFER 24/1/2 17 [12463] 51314 124 999 17 1 2 0 SEC 7 MODIFY ADDRESS OF NEXT 24/0/2 0 [12464] 51315 124 0 0 2 0 SELECT LITERAL AND DIVISION 24/1/2 13 [12465] 51316 124 999 13 1 2 0 SEC 10 MODIFY ADDRESS OF NEXT 29/0/1 0 [12466] 51317 129 0 0 1 0 EDIT FOR ANELEX OUTPUT 1/1/3 4 [12467] 51318 10 0 0 0 4 SELECT LITERAL 18/0/1 5 [12468] 51319 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 7 [12469] 51320 1 999 7 0 0 0 ROUTE ADD 0/0/2 12 [12470] 51321 34 999 12 0 0 0 SET (N) IN B 25/1/1 4096 [12471] 51322 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 0 [12472] 51323 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [12473] 51324 123 160 0 2 0 ENTER MASTER ROUTINE 0/0/3 0 [12474] 51325 62 0 0 0 0 SET EXCESS CONSTANTS 26/0/1 4244 [12475] 51326 82 513 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 0 [12477] 51327 55 7 0 1 0 54 BULK COPY 18/1/0 4123 [12478] 51328 C 10 0 1 0 0 1/1/3 54 [12479] 18/1/1 5 [12480] 24/1/2 13 Extra code needed to address transit area no 0, section 10 28/1/1 0 [12482] 1/1/3 9 [12483] 51329 10 0 0 0 9 SELECT LITERAL 24/1/0 4276 [12484] 51330 76 513 19 0 0 0 JUMP unconditional Start of procedure 514 at location 4293 in chapter 4 [12485] [12485] 51400 PROCR 514 514 OUTPUT 9 > A6 [12485] 51401 NOTES RADIX B 0/0/0 0 [12485] 51402 81 514 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [12486] 51403 43 A6 0 0 0 0 OUTPUT 0/0/3 0 [12487] 0/0/2 20 [12488] 51404 C 9 0 0 0 0 OUTPUT 6/1/0 0 [12489] 1/1/1 45 [12490] 25/1/1 4096 [12491] 24/0/3 0 [12492] 23/0/2 43 [12493] 0/1/1 40 [12494] 26/0/1 4293 [12495] 51405 82 514 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 515 at location 4304 in chapter 4 [12496] [12496] 51500 PROCR 515 515 TEST FOR DIASTROUS ERROR CONDITION IN PRINTER [12496] 51501 NOTES 0/0/0 0 [12496] 51502 81 515 2 0 0 0 START OF SUBROUTINE 18/0/1 4126 [12497] 51503 30 0 0 0 2- SHIFT (A) BY QUARTETS 18/0/1 2 [12498] 51504 30 0 0 0 2 SHIFT (A) BY QUARTETS 1/1/1 93 [12499] 51505 11 0 0 0 5: ADD LITERAL 5/1/0 4828 [12500] 51506 2 542 28 1 0 0 ?????' SUBTRACT 27/0/1 4313 [12501] 51507 71 515 11 0 0 0 > NOT DISASTROUS JUMP IF A != 0 6/0/0 8172 [12502] 51508 86 511 2 0 0 0 STEP DISASTER CTR SELECT SWITCH R 1/1/1 1 [12503] 51509 11 0 0 0 1 ADD LITERAL 2/0/0 8172 [12504] 51510 84 511 2 0 0 0 (CLEARS A) SET SWITCH(ES) AT VARIABLE VALUE 26/0/1 4304 [12505] 51511 82 515 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 516 at location 4314 in chapter 4 [12506] [12506] 51600 PROCR 516 516 O/P TYPE SR [12506] 51601 NOTES RADIX B 0/0/0 0 [12506] 51602 81 516 2 0 0 0 START OF SUBROUTINE 26/1/2 5322 [12507] 51603 91 61 44 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 6/1/0 5304 [12508] 51604 61 26 1 0 0 TYPE NO ALPHA SELECT 4/1/0 4818 [12509] 51605 1 542 18 1 0 0 TYPE (SPACE) ADD 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/2 4 [12511] 51606 05 9 4 1 2 0 TRANSFER 6/1/0 5306 [12512] 51607 61 28 1 0 0 SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/2 6 [12514] 51608 05 9 6 1 2 0 TRANSFER 6/0/0 5321 [12515] 51609 61 43 0 0 0 SPACE CTR SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/2 9 [12517] 51610 05 9 8 2 2 0 TRANSFER 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/2 10 [12519] 51611 5 9 10 1 2 0 CLEAR TRANSFER 24/1/0 4363 [12520] 51612 76 519 2 0 0 0 JUMP unconditional Start of procedure 517 at location 4329 in chapter 4 [12521] [12521] 51700 PROCR 517 517 ALPHA OUTPUT SR [12521] 51701 NOTES RADIX B 0/0/0 0 [12521] 51702 81 517 2 0 0 0 START OF SUBROUTINE 26/1/2 5322 [12522] 51703 91 61 44 0 2 0 SET MODIFICATION REGISTER AT VARIABLE Source: KenK/Q1000400 6/1/0 5304 [12523] 51704 61 26 1 0 0 SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/2 4 [12525] 51705 5 9 4 1 2 0 TRANSFER 6/1/0 5306 [12526] 51706 61 28 1 0 0 SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/2 6 [12528] 51707 5 9 6 1 2 0 TRANSFER 6/0/0 5276 [12529] 51708 67 2 0 0 0 SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/2 9 [12531] 51709 5 9 8 2 2 0 TRANSFER 6/0/0 5277 [12532] 51710 67 3 0 0 0 SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/2 11 [12534] 51711 5 9 10 2 2 0 TRANSFER 6/0/0 4329 [12535] 51712 517 2 0 0 0 O/P ALPHA S/R LINK SELECT 24/1/0 4362 [12536] 51713 76 518 15 0 0 0 JUMP unconditional Start of procedure 518 at location 4345 in chapter 4 [12537] [12537] 51800 PROCR 518 [12537] 51801 NOTES RADIX B O/P S/R 0/0/0 0 [12537] 51802 81 518 2 0 0 0 START OF SUBROUTINE 6/0/0 5320 [12538] 51803 61 42 0 0 0 SELECT 7/0/0 5321 [12539] 51804 4 61 43 0 0 0 AUGMENT LOCATION COUNTER AUGMENT 26/1/2 5322 [12540] 51805 91 61 44 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 6/0/0 5274 [12541] 51806 67 0 0 0 0 SERIAL NO FOR INSTUCTIONS SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/2 5 [12543] 51807 5 9 4 2 2 0 TRANSFER 6/0/0 5275 [12544] 51808 67 1 0 0 0 SC INDICATOR FOR INSIONS SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/2 7 [12546] 51809 5 9 6 2 2 0 TRANSFER 6/0/0 5276 [12547] 51810 67 2 0 0 0 PARAMETER SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/2 9 [12549] 51811 5 9 8 2 2 0 TRANSFER 6/0/0 5277 [12550] 51812 67 3 0 0 0 SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/2 11 [12552] 51813 5 9 10 2 2 0 TRANSFER 6/0/0 4345 [12553] 51814 518 2 0 0 0 LINK SELECT 2/0/0 4314 [12554] 51815 5 516 2 0 0 0 O/P TYPE S/R LINK TRANSFER Start of procedure 519 at location 4363 in chapter 4 [12555] [12555] 51900 PROCR 519 O/P S/R [12555] 51900 NOTES RADIX B 25/0/2 8 [12555] 51902 94 519 8 0 2 8 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4370 [12556] s 6/1/0 4896 [12557] 51903 544 2 1 0 0 BE WORD SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/2 4 [12559] 51904 5 9 4 1 2 0 TRANSFER 26/0/0 4293 [12560] 51905 80 514 2 0 0 0 PREP STAGE OP ENTER SUBROUTINE 26/1/2 5236 [12561] 51906 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [12562] 51907 C 0 0 0 144 Limit 24/0/3 22 [12562] 51908 95 0 0 2 0 SELECT MODIFICATION REGISTER 6/1/0 4 [12563] 2/1/0 5322 [12564] 51909 5 61 44 1 0 0 TRANSFER 2/0/0 5275 [12565] 51910 5 67 1 0 0 0 CLEAR S67 TRANSFER 2/1/0 5276 [12566] 51911 5 67 2 1 0 0 TRANSFER 26/0/1 4314 [12567] 51912 82 516 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 520 at location 4376 in chapter 4 [12568] [12568] 52000 PROCR 520 OP REMAINING DETAILS SR [12568] 52001 NOTES RADIX B 0/0/0 0 [12568] 52002 81 520 2 0 0 0 START OF SUBROUTINE 6/0/0 5322 [12569] 52003 0 61 44 0 0 0 SELECT 27/0/0 4383 [12570] 52004 70 520 9 0 0 0 NOTHING TO O/P JUMP IF A == 0 26/1/2 5322 [12571] 52005 91 61 44 0 2 0 OP CTR SET MODIFICATION REGISTER AT VARIABLE 6/0/0 4376 [12572] 52006 0 520 2 0 0 0 LINK SELECT 2/0/0 4314 [12573] 52007 5 516 2 0 0 0 O/P TYPE S/R LINK TRANSFER 24/1/0 4365 [12574] 52008 76 519 3 0 0 0 JUMP unconditional 26/0/1 4376 [12575] 52009 82 520 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 521 at location 4384 in chapter 4 [12576] [12576] 52100 PROCR 521 I/P INSTRUCTION SR [12576] 52101 NOTES RADIX B 0/0/0 0 [12576] 52102 81 521 2 0 0 0 START OF SUBROUTINE 26/0/0 4111 [12577] 52103 80 509 2 0 0 0 - I/P ENTER SUBROUTINE 1/1/3 1 [12578] 52104 10 0 0 0 1 SELECT LITERAL 2/0/0 5377 [12579] 52105 5 61 99 0 0 0 NON I/P IND TRANSFER 26/0/0 4390 [12580] 52106 80 522 2 0 0 0 - I/P C-LINE S/R ENTER SUBROUTINE Source: DaveJ/Q1000401 26/0/1 4384 [12581] 52107 82 521 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 522 at location 4390 in chapter 4 [12582] [12582] 52200 PROCR 522 0 0 0 I/P C-LINE S/R [12582] 52201 NOTES RADIX B 0 0 0/0/0 0 [12582] 52202 81 522 2 0 0 0 START OF SUBROUTINE 6/0/0 5377 [12583] 52203 61 99 0 0 0 NON I/P IND SELECT 27/0/1 4399 [12584] 52204 71 522 10 0 0 0 JUMP IF A != 0 26/0/0 4720 [12585] 52205 80 534 2 0 0 0 SUSPEND ENTER SUBROUTINE 26/0/0 4111 [12586] 52206 80 509 2 0 0 0 INPUT ENTER SUBROUTINE 24/0/3 8190 [12587] 52207 6 1 12 0 SELECT 6/1/0 6 [12588] 5/1/0 4826 [12589] 52208 2 542 26 1 0 0 C,-,-,-,-, SUBTRACT 27/0/1 990 [12590] 52209 71 362 3 0 0 0 -G.N.B. JUMP IF A != 0 24/0/2 5050 [12591] 52210 50 77 2 0 0 0 UNPACK FIXED FIELD DATA 28/0/2 5552 [12592] 52211 C 548 2 0 0 0 24/0/2 5050 [12593] 52212 52 7 2 0 0 0 EDIT INSTRUCTIONS EDIT 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/1/2 2 [12595] 52213 C 548 2 0 0 0 6/1/0 5570 [12596] 52214 77 20 1 0 0 PREVIOUS PROCR NO SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 28 [12598] 52215 5 7 28 1 0 0 TRANSFER 6/1/0 5572 [12599] 52216 77 22 1 0 0 PASS 1 REPORTS SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 48 [12601] 52217 5 7 48 1 0 0 TRANSFER 24/0/2 5574 [12602] 52218 55 77 24 1 0 16 COPY ANOTATION BULK COPY 18/1/0 4123 [12603] 52219 C 7 32 1 0 0 1/1/3 16 [12604] 18/1/1 5 [12605] 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/1/1 32 [12607] 6/1/0 5254 [12608] 52220 0 66 4 1 0 0 ACTION ALPHA SELECT 5/1/0 4826 [12609] 52221 2 542 26 1 0 0 SUBTRACT 27/0/0 4525 [12610] 52222 70 526 2 0 0 0 gTHIS IS A C-LINE JUMP IF A == 0 1/1/3 0 [12611] 52223 10 0 0 0 0 SELECT LITERAL 2/1/0 5298 [12612] 52224 5 61 20 1 0 0 TRANSFER 25/0/1 0 [12613] 52225 94 522 27 0 1 0 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4424 [12614] s 24/1/0 4466 [12615] 52226 76 525 2 0 0 0 gNO UNMATCHED SEQ CHS BACK JUMP unconditional 24/0/3 0 Extra code needed to address absolute 6/0/1 1 [12617] 52227 1 0 1 0 (R1 ABS) SC BACK DEST SELECT 5/1/0 5252 [12618] 52228 2 66 2 1 0 0 SERIAL THIS ORDER SUBTRACT 27/0/0 4459 [12619] 52229 70 524 2 0 0 0 gTHIS IS A DESTINATION JUMP IF A == 0 27/0/2 4466 [12620] 52230 72 525 2 0 0 0 gNOW TRY SEQ CH FWD LIST JUMP IF A >= 0 6/1/0 4828 [12621] 52231 542 28 1 0 0 ????? SELECT 2/1/0 5298 [12622] 52232 5 61 20 1 0 0 TRANSFER 26/0/0 4434 [12623] 52233 80 523 2 0 0 0 gSTORE 'ADDRESS'=CURRENT SPACE CTR ENTER SUBROUTINE 26/0/0 4645 [12624] 52234 80 529 2 0 0 0 PRINT ENTRY POINT S/PRINT WRONG ENTRY PO ENTER SUBROUTINE 24/1/0 4419 [12625] 52235 76 522 23 0 0 0 JUMP unconditional Start of procedure 523 at location 4434 in chapter 4 [12626] [12626] 52300 PROCR 523 0 0 0 [12626] 52301 NOTES 0 0 0 0 0/0/0 0 [12626] 52302 81 523 2 0 0 0 START OF SUBROUTINE 24/0/3 0 Extra code needed to address absolute 6/0/1 0 [12628] 52303 0 0 1 0 SOURCE OF SC BACK SELECT 3/0/0 5278 [12629] 52304 3 61 0 0 0 0 COPY 24/0/3 0 Extra code needed to address absolute 2/0/1 1 [12631] 52305 5 1 0 1 0 OVERWRITE DEST TRANSFER 6/1/0 5298 [12632] 52306 0 61 20 1 0 0 SELECT 27/0/1 4450 [12633] 52307 71 523 15 0 0 0 gIGNORED JUMP IF A != 0 1/0/1 3 [12634] 52308 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 15/0/0 5252 [12635] 52309 36 66 2 0 0 0 COLLATE AND ADD 1/1/2 2 [12636] 52310 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 4450 [12637] 52311 71 523 15 0 0 0 gNOT TO PROCR START JUMP IF A != 0 24/0/3 22 [12638] 52312 96 0 0 1 0 SELECT MODIFIER 6/0/0 2 [12639] 26/0/0 2393 [12640] 52313 80 421 2 0 0 0 gCONTRACT SC BACK LIST ENTER SUBROUTINE 24/1/0 4456 [12641] 52314 76 523 20 0 0 0 gSTEP R1 JUMP unconditional 6/0/0 5288 [12642] 52315 0 61 10 0 0 0 CURRENT PROCR SELECT 18/0/3 10 [12643] 52316 31 0 0 0 10 SHIFT (A) BY BITS 4/0/0 5321 [12644] 52317 1 61 43 0 0 0 SPACE CTR ADD 5/0/0 5289 [12645] 52318 2 61 11 0 0 0 PROCR START SUBTRACT Source: KenK/Q1000402 24/0/3 0 Extra code needed to address absolute 2/0/1 0 [12647] 52319 5 0 0 1 0 STORE PROCR+ADDRESS IN PROCR I think this is first line of the sheet TRANSFER 25/0/1 2 [12648] 52320 94 523 21 0 1 2 STEP STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4458 [12649] s 26/0/1 4434 [12650] 52321 82 523 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 524 at location 4459 in chapter 4 [12651] [12651] 52400 PROCR 524 I/P C-LINE S/R [12651] 52401 NOTES RADIX B STORE ABS DEST FOR MATCHED SC'S BACK 26/0/0 4434 [12651] 52402 80 523 2 0 0 0 gstore address ENTER SUBROUTINE 24/0/3 0 Extra code needed to address absolute 6/0/1 1 [12653] 52403 0 0 1 0 1 0 (R1 IS ABS) NEXT DEST SELECT 5/0/0 5252 [12654] 52404 2 66 2 0 0 0 THIS SERIAL SUBTRACT 27/0/1 4508 [12655] 52405 71 525 43 0 0 0 gTRY SC FWD JUMP IF A != 0 26/0/0 4645 [12656] 52406 80 529 2 0 0 0 ENTER SUBROUTINE 24/1/0 4459 [12657] 52407 76 524 2 0 0 0 gTHERE MAY BE MORE JUMP unconditional Start of procedure 525 at location 4466 in chapter 4 [12658] [12658] 52500 PROCR 525 I/P C-LINE S/R [12658] 52501 NOTES RADIX B TRY MATCH WITH SEQ CHS FWD 6/0/0 5395 [12658] 52502 0 61 117 0 0 0 CTR OF SEC 20 LENGTH SELECT 27/0/0 4525 [12659] 52503 70 526 2 0 0 0 gEMPTY JUMP IF A == 0 6/0/0 330 [12660] 52504 0 20 0 0 0 0 SMALLEST DEST OF SC FWD SELECT 27/0/0 4525 [12661] 52505 70 526 2 0 0 0 gLIST EMPTY,SKIP TO END JUMP IF A == 0 5/1/0 5252 [12662] 52506 2 66 2 1 0 0 THIS SERIAL SUBTRACT 27/0/0 4475 [12663] 52507 70 525 11 0 0 0 gIS DEST OF SEQ CH FWD JUMP IF A == 0 27/0/2 4525 [12664] 52508 72 526 2 0 0 0 gEARLIER THAN EARLIEST DEST JUMP IF A >= 0 6/1/0 4828 [12665] 52509 0 542 28 1 0 0 SELECT 2/1/0 5298 [12666] 52510 5 61 20 1 0 0 ;SEQ CHS FORWARD TRANSFER 6/0/0 332 [12667] 52511 20 2 0 0 0 SELECT 18/0/1 6 [12668] 52512 30 0 0 0 6 SHIFT (A) BY QUARTETS 18/0/1 4127 [12669] 52513 30 0 0 0 1- SHIFT (A) BY QUARTETS 27/0/0 4484 [12670] 52514 70 525 19 0 0 0 gSC TO PROCR START JUMP IF A == 0 24/0/3 22 [12671] 52515 99 0 1 1 0 SUBTRACT MODIFICATION REGISTER FROM A 5/1/0 2 [12672] 27/0/2 4484 [12673] 52516 72 525 19 0 0 0 gOK JUMP IF A >= 0 1/1/3 121 [12674] 52517 10 0 0 0 79 SELECT LITERAL 26/0/0 3984 [12675] 52518 80 501 2 0 0 0 gREPORT SR ENTER SUBROUTINE 6/0/0 331 [12676] 52519 0 20 1 0 0 0 SELECT 2/0/0 5278 [12677] 52520 5 61 0 0 0 0 TRANSFER 6/0/0 332 [12678] 52521 0 20 2 0 0 0 SELECT 27/0/0 4497 [12679] 52522 70 525 32 0 0 0 gSC TO PROCR START JUMP IF A == 0 18/0/1 4124 [12680] 52523 30 0 0 0 4- SHIFT (A) BY QUARTETS 2/0/0 4434 [12681] 52524 5 523 2 0 0 0 FLIPFLOP TRANSFER 6/0/0 5321 [12682] 52525 0 61 43 0 0 0 SPACE CTR SELECT 5/0/0 5289 [12683] 52526 2 61 11 0 0 0 CURRENT PROCR START SUBTRACT 0/0/2 4920 [12684] 52527 34 544 26 0 0 0 BITS 1-10 SET (N) IN B 24/0/1 4434 [12685] 52528 124 523 2 0 1 0 0 OR 10 MODIFY ADDRESS OF NEXT 18/1/3 0 [12686] 52529 33 0 0 0 0 ///// SHIFT (AB) BY BITS 24/0/3 332 [12687] 52530 124 20 2 0 3 0 ABS LOCN Q1-4 MODIFY ADDRESS OF NEXT 14/0/0 0 [12688] 52531 114 0 0 0 0 PACK NEXT ENTRY->SEC 18 REPLACE SELECTED BITS 6/0/0 5395 [12689] 52532 0 61 117 0 0 0 SELECT 1/1/2 3 [12690] 52533 12 0 0 0 3 SUBTRACT LITERAL 3/0/0 5395 [12691] 52534 3 61 117 0 0 0 REDUCE NO OF SC'S IN TRANSIT COPY 27/0/1 4503 [12692] 52535 71 525 38 0 0 0 gLIST NOT EMPTY JUMP IF A != 0 2/0/0 330 [12693] 52536 5 20 0 0 0 0 TRANSFER 24/1/0 4506 [12694] 52537 76 525 41 0 0 0 gTEST IF LAST SC WAS WRONG JUMP unconditional 24/0/2 333 [12695] 52538 124 20 3 0 2 0 SELECT LITERAL AND DIVISION 4/1/0 5394 [12696] 52539 1 61 116 1 0 0 LENGTH IN 61/117 ADD 28/0/0 330 [12697] 52540 128 20 0 0 0 0 UP 3 LOCNS BULK COPY SHORT NUMERIC 6/1/0 5298 [12698] 52541 61 20 1 0 0 SELECT Source: KenK/Q1000403 27/0/1 4432 [12699] 52542 71 522 34 0 0 0 gWAS A WRONG ENTRY POINT JUMP IF A != 0 6/0/0 5395 [12700] 52543 61 117 0 0 0 CTR OF SECN 20 LENGTH SELECT 27/0/0 4522 [12701] 52544 70 525 57 0 0 0 gPRINT LINE JUMP IF A == 0 6/0/0 5252 [12702] 52545 66 2 0 0 0 SELECT 5/0/0 330 [12703] 52546 2 20 0 0 0 0 NEXT SCFWD SUBTRACT 27/0/0 4520 [12704] 52547 70 525 55 0 0 0 gPRINT ENTRY POINT JUMP IF A == 0 27/0/3 4522 [12705] 52548 73 525 57 0 0 0 gPRINT LINE JUMP IF A < 0 6/0/0 5278 [12706] 52549 61 0 0 0 0 LIST SELECT 27/0/0 4517 [12707] 52550 70 525 52 0 0 0 JUMP IF A == 0 26/0/0 4645 [12708] 52551 80 529 2 0 0 0 PRINT ENTRY POINT ENTER SUBROUTINE 6/1/0 4828 [12709] 52552 542 28 1 0 0 ????? SELECT 2/1/0 5298 [12710] 52553 5 61 20 1 0 0 TRANSFER 24/1/0 4475 [12711] 52554 76 525 11 0 0 0 JUMP unconditional 26/0/0 4645 [12712] 52555 80 529 2 0 0 0 ENTER SUBROUTINE 24/1/0 4475 [12713] 52556 76 525 11 0 0 0 gMOVE LIST UP,TRY AGAIN JUMP unconditional 24/0/2 5108 [12714] 52557 52 7 2 0 0 0 EDIT ENTRY POINT EDIT 24/1/2 17 Extra code needed to address transit area no 2, section 7 28/1/2 2 [12716] 52558 C 551 8 0 0 0 Start of procedure 526 at location 4525 in chapter 4 [12717] [12717] 52600 PROCR 526 I/P C LINE S/R [12717] 52601 NOTES RADIX B 1/1/3 0 [12717] 52602 10 0 0 0 0 SELECT LITERAL 0/1/2 5256 [12718] 52603 34 66 6 1 0 0 SET (N) IN B 26/0/0 4711 [12719] 52604 80 533 2 0 0 0 RT ALIGN S/R ENTER SUBROUTINE 2/1/0 5256 [12720] 52605 5 66 6 1 0 0 TRANSFER 2/0/0 5266 [12721] 52606 5 66 16 0 0 0 CLEAR INDICATOR TRANSFER 1/0/1 1 [12722] 52607 35 0 0 0 1 QUARTET ONE. PREPARE FOR DIGIT COLLATION 15/1/0 5258 [12723] 52608 36 66 8 1 0 0 ITEM COLLATE AND ADD 1/1/2 12 [12724] 52609 12 0 0 0 + SUBTRACT LITERAL 27/0/1 4541 [12725] 52610 71 527 2 0 0 0 gNOT 'ITEM+' JUMP IF A != 0 1/1/3 1 [12726] 52611 10 0 0 0 1 SELECT LITERAL 2/0/0 5266 [12727] 52612 5 66 16 0 0 0 ;IF IT IS SET TRANSFER 6/1/0 5258 [12728] 52613 66 8 1 0 0 ;INDICATOR SELECT 18/0/1 4127 [12729] 52614 30 0 0 0 1- ;AND REMOVE + SHIFT (A) BY QUARTETS 27/0/2 4540 [12730] 52615 72 526 17 0 0 0 JUMP IF A >= 0 1/1/1 1 [12731] 52616 11 0 0 0 1 TO MAKE COMPLEMENT CORRECT ADD LITERAL 2/1/0 5258 [12732] 52617 5 66 8 1 0 0 TRANSFER Start of procedure 527 at location 4541 in chapter 4 [12733] [12733] 52700 PROCR 527 I/P C-LINE S/R [12733] 52701 NOTES RADIX B 6/1/0 5588 [12733] 52702 77 38 1 0 0 IGNORE'IND SELECT 5/1/0 4828 [12734] 52703 2 542 28 1 0 0 SUBTRACT 3/1/0 5376 [12735] 52704 3 61 98 1 0 0 COPY 27/0/0 4570 [12736] 52705 70 527 31 0 0 0 JUMP IF A == 0 6/1/0 5574 [12737] 52706 77 24 1 0 0 FIRST 5 CHARS ANNOTATION SELECT 5/1/0 5238 [12738] 52707 12 0 0 0 7369515355 TRACE' SUBTRACT LITERAL 27/0/1 4570 [12739] 52708 71 527 31 0 0 0 gNO JUMP IF A != 0 6/1/0 5254 [12740] 52709 66 4 1 0 0 SELECT 5/1/0 4826 [12741] 52710 2 542 26 1 0 0 SUBTRACT 27/0/0 4639 [12742] 52711 70 528 49 0 0 0 gA C-LINE JUMP IF A == 0 6/0/0 5255 [12743] 52712 66 5 0 0 0 SELECT 5/0/0 5134 [12744] 52713 12 0 0 0 48300 SUBTRACT LITERAL 27/0/0 4639 [12745] 52714 70 528 49 0 0 0 g80 ACTION JUMP IF A == 0 1/1/2 336 [12746] 52715 12 0 0 0 150 SUBTRACT LITERAL 27/0/0 4639 [12747] 52716 70 528 49 0 0 0 g85 JUMP IF A == 0 1/1/2 4080 [12748] 52717 12 0 0 0 pp0 SUBTRACT LITERAL 27/0/0 4639 [12749] 52718 70 528 49 0 0 0 g94 JUMP IF A == 0 Source: RayS/Q1000404 1/1/2 48 [12750] 52719 12 0 0 0 30 SUBTRACT LITERAL 27/0/0 4639 [12751] 52720 70 528 49 0 0 0 g97 JUMP IF A == 0 6/0/0 6248 [12752] 52721 0 25 0 0 0 0 SELECT 1/1/2 40 [12753] 52722 101 40 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/2 4639 [12754] 52723 72 528 49 0 0 0 gLIST FULL JUMP IF A >= 0 6/0/0 5321 [12755] 52724 61 43 0 0 0 SPACESTR SELECT 18/0/1 5 [12756] 52725 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 5252 [12757] 52726 1 66 2 0 0 0 LINE SERIAL ADD 24/0/1 6248 [12758] 52727 124 25 0 0 1 0 MODIFY ADDRESS OF NEXT 2/1/0 6250 [12759] 52728 5 25 2 1 0 0 TRANSFER 1/1/3 2 [12760] 52729 10 0 0 0 2 SELECT LITERAL 7/0/0 6248 [12761] 52730 4 25 0 0 0 0 AUGMENT 26/0/0 4145 [12762] 52731 80 511 2 0 0 0 PRINT ENTER SUBROUTINE 6/1/0 5257 [12763] 52732 66 6 2 0 0 DEC REF SELECT 1/1/2 256 [12764] 52733 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 4580 [12765] 52734 73 527 41 0 0 0 gSECTION JUMP IF A < 0 1/1/2 2201 [12766] 52735 12 0 0 0 899 SUBTRACT LITERAL 27/0/2 4580 [12767] 52736 72 527 41 0 0 0 g999 OR 1000+ JUMP IF A >= 0 0/0/3 5135 [12768] 52737 60 0 0 0 0 SET DECIMAL RADIX 6/0/0 5136 [12769] 52738 10 0 0 0 2- SELECT LITERAL 7/1/0 5258 [12770] 52739 4 66 8 1 0 0 REDUCE ITEM AUGMENT 0/0/3 0 [12771] 52740 62 0 0 0 0 SET EXCESS CONSTANTS 6/1/0 5254 [12772] 52741 66 4 1 0 0 SELECT 5/1/0 4826 [12773] 52742 2 542 26 1 0 0 C. . . . . SUBTRACT 27/0/0 4596 [12774] 52743 70 528 6 0 0 0 JUMP IF A == 0 0/1/2 5254 [12775] 52744 34 66 4 1 0 0 SET (N) IN B 26/0/0 4711 [12776] 52745 80 533 2 0 0 0 RT ALIGN S/R ENTER SUBROUTINE 2/1/0 5254 [12777] 52746 5 66 4 1 0 0 TRANSFER 6/1/0 5255 [12778] 52747 66 4 2 0 0 ACTION SELECT 18/1/1 4127 [12779] 52748 32 0 0 0 1- SHIFT (AB) BY QUARTETS 2/0/0 5388 [12780] 52749 5 61 110 0 0 0 GROUP TRANSFER 18/1/1 1 [12781] 52750 32 0 0 0 1 SHIFT (AB) BY QUARTETS 1/1/1 1 [12782] 52751 11 0 0 0 1 ADD LITERAL 2/0/0 5328 [12783] 52752 5 61 50 0 0 0 VARIANT +1 TRANSFER Start of procedure 528 at location 4592 in chapter 4 [12784] [12784] 52800 PROCR 528 [12784] 52801 NOTES RADIX B 6/0/0 5388 [12784] 52802 0 61 110 0 0 0 SELECT 26/0/0 4750 [12785] 52803 80 537 2 0 0 0 CONVERT ENTER SUBROUTINE 1/1/1 1 [12786] 52804 11 0 0 0 1 ADD LITERAL 2/0/0 5388 [12787] 52805 5 61 110 0 0 0 GROUP+1 TRANSFER 6/1/0 5376 [12788] 52806 61 98 1 0 0 W/L SELECT 27/0/1 4600 [12789] 52807 71 528 10 0 0 0 JUMP IF A != 0 2/0/0 5388 [12790] 52808 5 61 110 0 0 0 CLEAR GROUP WHEN 'IGNORE' IND SET TRANSFER 24/1/0 989 [12791] 52809 76 362 2 0 0 0 gGNB JUMP unconditional 24/0/2 4872 [12792] 52810 124 543 22 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 5258 [12793] 52811 112 66 8 1 0 0 CONVERT 2/1/0 5258 [12794] 52812 5 66 8 1 0 0 ITEM TO BIN TRANSFER 24/0/2 4872 [12795] 52813 124 543 22 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 5262 [12796] 52814 112 66 12 1 0 0 CONVERT 2/1/0 5262 [12797] 52815 5 66 12 1 0 0 MOD DIGITS TO BIN TRANSFER 6/0/0 5388 [12798] 52816 0 61 110 0 0 0 SELECT 1/1/2 2 [12799] 52817 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 4634 [12800] 52818 70 528 44 0 0 0 >GROUP 1 JUMP IF A == 0 1/1/2 3 [12801] 52819 12 0 0 0 3 SUBTRACT LITERAL 27/0/0 4637 [12802] 52820 70 528 47 0 0 0 >GROUP 4 JUMP IF A == 0 1/1/2 2 [12803] 52821 12 0 0 0 2 SUBTRACT LITERAL Source: KenK/Q1000405 27/0/0 4634 [12804] 52822 70 528 44 0 0 0 gGROUP 6 JUMP IF A == 0 1/1/2 1 [12805] 52823 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 4634 [12806] 52824 70 528 44 0 0 0 gGROUP 7 JUMP IF A == 0 1/1/2 3 [12807] 52825 12 0 0 0 3 SUBTRACT LITERAL 27/0/3 4631 [12808] 52826 73 528 41 0 0 0 gGROUPS,0,2,3,5,8,9 JUMP IF A < 0 1/1/2 3 [12809] 52827 12 0 0 0 3 SUBTRACT LITERAL 27/0/3 4634 [12810] 52828 73 528 44 0 0 0 gGROUPS 10-12 JUMP IF A < 0 27/0/0 4626 [12811] 52829 70 528 36 0 0 0 gGROUP13 JUMP IF A == 0 1/1/2 1 [12812] 52830 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 4634 [12813] 52831 70 528 44 0 0 0 gGROUP 14 JUMP IF A == 0 6/0/0 5328 [12814] 52832 61 50 0 0 0 VARIANT+1 SELECT 1/1/2 7 [12815] 52833 12 0 0 0 7 SUBTRACT LITERAL 27/0/0 4637 [12816] 52834 70 528 47 0 0 0 g156,DON'T CONVERT REFF JUMP IF A == 0 24/1/0 4634 [12817] 52835 76 528 44 0 0 0 JUMP unconditional 6/0/0 5328 [12818] 52836 61 50 0 0 0 SELECT 1/1/2 3 [12819] 52837 12 0 0 0 3 SUBTRACT LITERAL 27/0/3 4634 [12820] 52838 73 528 44 0 0 0 gACTION 130 OR 131 JUMP IF A < 0 1/1/3 0 [12821] 52839 10 0 0 0 0 SELECT LITERAL 24/1/0 4637 [12822] 52840 76 528 47 0 0 0 gACTION 132-134, DON'T CONVERT REF JUMP unconditional 24/0/2 4872 [12823] 52841 124 543 22 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 5264 [12824] 52842 112 66 14 1 0 0 CONVERT 2/1/0 5264 [12825] 52843 5 66 14 1 0 0 LITERAL TO BIN TRANSFER 24/0/2 4872 [12826] 52844 124 543 22 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 5257 [12827] 52845 112 66 7 1 0 0 CONVERT 2/1/0 5256 [12828] 52846 5 66 6 1 0 0 TRANSFER 2/0/0 5377 [12829] 52847 5 61 99 0 0 0 TRANSFER 26/0/1 4390 [12830] 52848 82 522 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 1/1/3 101 [12831] 52849 10 0 0 0 65 N' REPORT 'TRACE' SELECT LITERAL 1/0/1 24 [12832] 52850 35 0 0 0 11000 PREPARE FOR DIGIT COLLATION 18/0/1 3 [12833] 52851 30 0 0 0 3 SHIFT (A) BY QUARTETS 24/1/2 17 Extra code needed to address transit area no 2, section 7 14/0/0 49 [12835] 52852 37 7 49 0 0 0 REPLACE SELECTED BITS 24/1/0 4570 [12836] 52853 76 527 31 0 0 0 JUMP unconditional Start of procedure 529 at location 4645 in chapter 4 [12837] [12837] 52900 PROCR 529 PRINT SEQ CHANGE ENTRY POINT ON SEPARATE LINE [12837] 52901 NOTES RADIX B 0/0/0 0 [12837] 52902 81 529 2 0 0 0 START OF SUBROUTINE 6/1/0 5298 [12838] 52903 0 61 20 1 0 0 SELECT 27/0/1 4650 [12839] 52904 71 529 7 0 0 0 gPRINT REPORTED SC JUMP IF A != 0 6/1/0 6246 [12840] 52905 0 23 46 1 0 0 'PRINT UNCONDITIONALLY' INDS SELECT 27/0/0 4657 [12841] 52906 70 529 12 0 0 0 gDON'T PRINT SEPARATE SC JUMP IF A == 0 24/0/2 5102 [12842] 52907 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [12844] 52908 C 551 2 0 0 0 6/1/0 5298 [12845] 52909 0 61 20 1 0 0 '?????'OR ZERO SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 46 [12847] 52910 5 5 46 1 0 0 TRANSFER 26/0/0 4660 [12848] 52911 80 530 2 0 0 0 ENTER SUBROUTINE 1/1/3 0 [12849] 52912 10 0 0 0 0 SELECT LITERAL 2/0/0 5278 [12850] 52913 5 61 0 0 0 0 CLEAR LIST TRANSFER Source: ChuckK/Q1000406 26/0/1 4645 [12851] 52914 82 529 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 530 at location 4660 in chapter 4 [12852] [12852] 53000 PROCR 530 SECOND PRINT S/R [12852] 53001 NOTES RADIX B 0/0/0 0 [12852] 53002 81 530 2 0 0 0 START OF SUBROUTINE 6/1/0 4896 [12853] 53003 0 544 2 1 0 0 BEW SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 50 [12855] 53004 5 5 50 1 0 0 TRANSFER 6/1/0 14 [12856] 53005 0 999 14 1 0 0 SEC 5 PARAS SELECT 2/1/0 16 [12857] 53006 5 999 16 1 0 0 CORRUPT SEC 7 PARAS TRANSFER 26/0/0 4145 [12858] 53007 80 511 2 0 0 0 >PRINT SR(WHICH WILL USE SEC 5) ENTER SUBROUTINE 6/1/0 30 [12859] 53008 0 999 30 1 0 0 SELECT 2/1/0 16 [12860] 53009 5 999 16 1 0 0 RESTORE SEC 7 PARAS EX WL TRANSFER 6/1/0 5240 [12861] 53010 54 5 2 1 0 48 BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 2 [12863] 26/0/1 4660 [12864] 53011 82 530 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 531 at location 4673 in chapter 4 [12865] [12865] 53100 PROCR 531 NEG NO S/R [12865] 53101 NOTES RADIX B 0/0/0 0 [12865] 53102 81 531 2 0 0 0 START OF SUBROUTINE 1/1/3 0 [12866] 53103 10 0 0 0 0 SELECT LITERAL 5/1/0 5258 [12867] 53104 2 66 8 1 0 0 ITEM SUBTRACT 27/0/0 4688 [12868] 53105 70 531 17 0 0 0 DO NOT SET INDICATOR FOR ZERO ITEM JUMP IF A == 0 27/0/3 4688 [12869] 53106 73 531 17 0 0 0 JUMP IF A < 0 2/1/0 5258 [12870] 53107 5 66 8 1 0 0 TRANSFER 1/1/3 128 [12871] 53108 10 0 0 0 80 B8 SELECT LITERAL 7/0/0 5312 [12872] 53109 4 61 34 0 0 0 PARA W/L AUGMENT 6/1/0 5260 [12873] 53110 66 10 1 0 0 SELECT 1/1/2 2 [12874] 53111 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 4688 [12875] 53112 71 531 17 0 0 0 JUMP IF A != 0 1/1/2 1 [12876] 53113 12 0 0 0 1 SUBTRACT LITERAL 7/1/0 5258 [12877] 53114 4 66 8 1 0 0 AUGMENT 1/1/3 1 [12878] 53115 10 0 0 0 1 SELECT LITERAL 2/1/0 5260 [12879] 53116 5 66 10 1 0 0 TRANSFER 26/0/1 4673 [12880] 53117 82 531 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 532 at location 4689 in chapter 4 [12881] [12881] 53200 PROCR 532 STACK S/R [12881] 53201 NOTES RADIX B 0/0/0 0 [12881] 53202 81 532 2 0 0 0 START OF SUBROUTINE 6/0/0 5278 [12882] 53203 0 61 0 0 0 0 ACTION SELECT 2/0/0 5277 [12883] 53204 5 67 3 0 0 0 TRANSFER 6/1/0 5256 [12884] 53205 66 6 1 0 0 REF SELECT 18/0/1 2 [12885] 53206 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 5312 [12886] 53207 1 61 34 0 0 0 PARAM ADD 2/0/0 5276 [12887] 53208 5 67 2 0 0 0 TRANSFER 6/1/0 5260 [12888] 53209 66 10 1 0 0 SELECT 27/0/0 4703 [12889] 53210 70 532 16 0 0 0 >DISC 0 JUMP IF A == 0 1/1/2 2 [12890] 53211 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 4702 [12891] 53212 71 532 15 0 0 0 >NOT DISC 2 JUMP IF A != 0 1/1/3 1 [12892] 53213 10 0 0 0 1 STEP ITEM SELECT LITERAL 7/1/0 5258 [12893] 53214 4 66 8 1 0 0 AUGMENT 6/0/0 4950 [12894] 53215 545 29 0 0 0 B16 SELECT 24/0/1 5262 [12895] 53216 124 66 12 0 1 0 MOD DIGITS MODIFY ADDRESS OF NEXT 4/0/0 4946 [12896] 53217 1 545 25 0 0 0 BITS IN B14 POSITION ADD 4/0/0 5258 [12897] 53218 1 66 8 0 0 0 ITEM ADD 1/0/1 15 [12898] 53219 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 15/0/0 5277 [12899] 53220 36 67 3 0 0 0 COLLATE AND ADD 14/0/0 5277 [12900] 53221 37 67 3 0 0 0 PACK WITH ACTION REPLACE SELECTED BITS 1/1/3 0 [12901] 53222 10 0 0 0 0 CLEAR A SELECT LITERAL 26/0/1 4689 [12902] 53223 82 532 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Source: ChuckK/Q1000407 Start of procedure 533 at location 4711 in chapter 4 [12903] [12903] 53300 PROCR 533 RT ALIGN S/R [12903] 53301 NOTES RADIX B 0/0/0 0 [12903] 53302 81 533 2 0 0 0 START OF SUBROUTINE 1/1/3 0 [12904] 53303 10 0 0 0 0 SELECT LITERAL 2/1/0 5296 [12905] 53304 5 61 18 1 0 0 TRANSFER 6/1/0 5296 [12906] 53305 0 61 18 1 0 0 SELECT 18/1/1 2 [12907] 53306 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/1/0 5296 [12908] 53307 5 61 18 1 0 0 TRANSFER 27/1/1 4714 [12909] 53308 75 533 5 0 0 0 JUMP IF AB != 0 6/1/0 5296 [12910] 53309 0 61 18 1 0 0 SELECT 26/0/1 4711 [12911] 53310 82 533 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 534 at location 4720 in chapter 4 [12912] [12912] 53400 PROCR 534 SUSPEND S/R [12912] 53401 NOTES RADIX B 0/0/0 0 [12912] 53402 81 534 2 0 0 0 START OF SUBROUTINE 24/0/2 5256 [12913] 53403 55 66 6 1 0 8 BULK COPY 18/1/0 4123 [12914] 53404 C 61 26 1 0 0 1/1/3 8 [12915] 18/1/1 5 [12916] 28/1/1 5304 [12917] 6/0/0 5266 [12918] 53405 66 16 0 0 0 ITEM + IND SELECT 2/0/0 5267 [12919] 53406 5 66 17 0 0 0 ITEM + IND (STORE) TRANSFER 26/0/1 4720 [12920] 53407 82 534 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 535 at location 4729 in chapter 4 [12921] [12921] 53500 PROCR 535 REPLACE S/R [12921] 53501 NOTES RADIX B 0/0/0 0 [12921] 53502 81 535 2 0 0 0 START OF SUBROUTINE 24/0/2 5304 [12922] 53503 55 61 26 1 0 8 BULK COPY 18/1/0 4123 [12923] 53504 C 66 6 1 0 0 1/1/3 8 [12924] 18/1/1 5 [12925] 28/1/1 5256 [12926] 6/0/0 5267 [12927] 53505 66 17 0 0 0 ITEM + IND (STORE) SELECT 2/0/0 5266 [12928] 53506 5 66 16 0 0 0 ITEM + IND TRANSFER 26/0/1 4729 [12929] 53507 82 535 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 536 at location 4738 in chapter 4 [12930] [12930] 53600 PROCR 536 OP INST S/R [12930] 53601 NOTES RADIX B 0/0/0 0 [12930] 53602 81 536 2 0 0 0 START OF SUBROUTINE 6/1/0 5262 [12931] 53603 66 12 1 0 0 MOD DIGITS SELECT 2/0/0 5280 [12932] 53604 5 61 2 0 0 0 TRANSFER 26/0/0 3771 [12933] 53605 80 489 2 0 0 0 >MOD AND PARAMETER ENTER SUBROUTINE 6/0/0 5280 [12934] 53606 61 2 0 0 0 SELECT 2/1/0 5262 [12935] 53607 5 66 12 1 0 0 TRANSFER 6/1/0 5258 [12936] 53608 0 66 8 1 0 0 SELECT 27/0/2 4747 [12937] 53609 72 536 11 0 0 0 >NOT NEGATIVE ITEM JUMP IF A >= 0 26/0/0 4673 [12938] 53610 80 531 2 0 0 0 NEG NO ENTER SUBROUTINE 26/0/0 4689 [12939] 53611 80 532 2 0 0 0 STACK ENTER SUBROUTINE 26/0/0 4345 [12940] 53612 80 518 2 0 0 0 OP ENTER SUBROUTINE 26/0/1 4738 [12941] 53613 82 536 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 537 at location 4750 in chapter 4 [12942] [12942] 53700 PROCR 537 CONVERT (A) TO BINARY [12942] 53701 NOTES RADIX B 0/0/0 0 [12942] 53702 81 537 2 0 0 0 START OF SUBROUTINE 2/1/0 4892 [12943] 53703 5 543 42 1 0 0 TRANSFER 0/0/3 0 [12944] 53704 62 0 0 0 0 SET EXCESS CONSTANTS 24/0/2 4872 [12945] 53705 124 543 22 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 4892 [12946] 53706 112 543 42 1 0 0 CONVERT 26/0/1 4750 [12947] 53707 82 537 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 538 at location 4756 in chapter 4 [12948] [12948] 53800 PROCR 538 CONVERT (A) TO DECIMAL [12948] 53801 NOTES 0/0/0 0 [12948] 53802 81 538 2 0 0 0 START OF SUBROUTINE 2/1/0 4892 [12949] 53803 5 543 42 1 0 0 TRANSFER 0/0/3 5137 [12950] 53804 60 0 0 0 0 SET DECIMAL RADIX Source: ChuckK/Q1000408 24/0/2 4852 [12951] 53805 124 543 2 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 4892 [12952] 53806 112 543 42 1 0 0 CONVERT 26/0/1 4756 [12953] 53807 82 538 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 539 at location 4762 in chapter 4 [12954] [12954] 53900 PROCR 539 A2>B 0/0/0 0 [12954] 53902 81 539 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [12955] 53903 42 A2 0 0 0 0 INPUT 0/0/3 0 [12956] 0/0/2 18 [12957] 53904 C 8 0 0 0 0 INPUT 6/1/0 0 [12958] 1/1/1 36 [12959] 25/1/1 4096 [12960] 24/0/3 0 [12961] 23/0/2 42 [12962] 0/1/1 40 [12963] 0/1/0 40 [12964] 53905 59 8 6 0 12 0 SET MODIFICATION REGISTER FOR MERGE 0/0/3 0 [12965] 24/1/2 19 Extra code needed to address transit area no 3, section 8 24/0/2 6 [12967] 3/0/0 8190 [12968] 24/1/2 19 Extra code needed to address transit area no 3, section 8 4/1/0 5 [12970] 53906 C 8 4 2 0 0 SET MODIFICATION REGISTER FOR MERGE 2/0/0 8191 [12971] 0/1/1 40 [12972] 26/0/1 4762 [12973] 53907 82 539 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 540 at location 4782 in chapter 4 [12974] [12974] 54000 PROCR 540 O/P>A9 0/0/0 0 [12974] 54002 81 540 2 0 0 0 START OF SUBROUTINE 23/0/0 50 [12975] 54003 94 540 9 0 6 50 FORM UP MULTIRECORD BLOCK STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8180 [12976] 24/1/0 4792 [12977] s 6/1/0 4896 [12978] 54004 544 2 1 0 0 BEW SELECT 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 306 [12980] 54005 5 10 306 1 0 0 TRANSFER 26/0/0 4793 [12981] 54006 80 541 2 0 0 0 ENTER SUBROUTINE 6/1/0 5242 [12982] 54007 90 0 0 6 0 SET UP MOD SET MODIFICATION REGISTER AT LITERAL 2/1/0 8180 [12983] 54008 C 0 0 0 300 Simulated modifier 26/0/1 4782 [12984] 54009 82 540 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 541 at location 4793 in chapter 4 [12985] [12985] 54100 PROCR 541 WRITE A9 0/0/0 0 [12985] 54102 81 541 2 0 0 0 START OF SUBROUTINE 6/1/0 5244 [12986] 54103 10 0 0 0 800000 SELECT LITERAL 0/0/2 12 [12987] 54104 34 999 12 0 0 0 SEC 10 SET (N) IN B 25/1/1 4096 [12988] 54105 125 4096 1 1 0 CLEAR INDICATORS 4/0/0 7 [12989] 54106 1 999 7 0 0 0 D1/A9 ADD 24/0/3 0 [12990] 54107 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [12991] 54108 123 160 0 2 0 ENTER MASTER ROUTINE 26/0/1 4793 [12992] 54109 82 541 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 31/1/3 8191 [12993] Start of procedure 542 at location 4802 in chapter 4 [12994] [12994] 54200 CONST 542 1 ALPHA CONSTANTS 3/0/3 5205 [12994] 54202 (A)VALUE; 37455 +75516 7/0/2 5398 [12995] 2/0/3 853 [12996] 54204 TABLE; 26355 +73515 7/0/1 5397 [12997] 5/0/3 4723 [12998] 54206 CONST; 57273 +53666 5/0/1 5734 [12999] 6/0/2 4969 [13000] 54208 PROCR; 65369 +67696 6/0/3 5782 [13001] 3/0/2 5490 [13002] 54210 (A)NOTES; 35572 +65667 6/0/2 5735 [13003] 4/0/0 0 [13004] 54212 END ; END 40000 +55655 5/0/2 5717 [13005] 4/0/3 1906 [13006] 54214 DUMPS; 46772 +54746 5/0/2 1862 [13007] 3/0/2 5490 [13008] 54216 FILES; 35572 +56596 5/0/3 1430 [13009] 7/0/2 5376 [13010] 54218 TYPE ; 75500 +73786 7/0/1 6022 [13011] 5/0/3 1364 [13012] 54220 FIEND; 56554 +56595 5/0/3 1429 [13013] 0/0/0 0 [13014] 54222 > ; (Right arrow - CK) 00000 +6C000 6/1/2 0 [13015] 7/0/2 5454 [13016] 54224 TYPE.; 7554E +73786 7/0/1 6022 [13017] 0/0/0 0 [13018] 54226 C ; 00000 +53000 5/0/1 4096 [13019] 13/0/2 7517 [13020] 54228 ?????; D5D5D +5D5D5 5/1/2 5589 [13021] 7/0/2 5455 [13022] 54230 TYPEp; 7554F +73786 7/0/1 6022 [13023] 0/0/0 1 [13024] 54232 (B)1; CONVERT LITERALS OF 35 ACTION 00001 +00000 0/0/0 0 [13025] 0/0/0 2 [13026] 54234 2; 00002 +00000 0/0/0 0 [13027] 0/0/0 4 [13028] 54236 4; 00004 +00000 0/0/0 0 [13029] 0/0/0 8 [13030] 54238 8; 00008 +00000 0/0/0 0 [13031] 0/0/0 16 [13032] 54240 16; 00010 +00000 0/0/0 0 [13033] 0/0/0 32 [13034] 54242 32; 00020 +00000 0/0/0 0 [13035] 0/0/0 64 [13036] 54244 64; 00040 +00000 0/0/0 0 [13037] 0/0/0 128 [13038] 54246 128; 00080 +00000 0/0/0 0 [13039] 0/0/0 256 [13040] 54248 256; 00100 +00000 0/0/0 0 [13041] 0/0/0 512 [13042] 54250 512; 00200 +00000 0/0/0 0 [13043] Start of procedure 543 at location 4852 in chapter 4 [13044] [13044] 54300 CONST 543 1 CONVERT TABLES Source: DaveJ/Q1000409 0/0/0 1 [13044] 54302 (D)1; 00001 +00000 0/0/0 0 [13045] 0/0/0 22 [13046] 54304 16; 00016 +00000 0/0/0 0 [13047] 0/0/0 598 [13048] 54306 256; 00256 +00000 0/0/0 0 [13049] 0/0/2 150 [13050] 54308 4096; 04096 +00000 0/0/0 0 [13051] 6/0/2 5430 [13052] 54310 65536; 65536 +00000 0/0/0 0 [13053] 4/1/0 1398 [13054] 54312 1048576; 48576 +00010 0/0/0 16 [13055] 7/0/3 4630 [13056] 54314 16777216; 77216 +00167 0/0/0 359 [13057] 3/0/2 5206 [13058] 54316 268435456; 35456 +02684 0/0/1 1668 [13059] 6/0/3 4758 [13060] 54318 4294967296; 67296 +42949 4/0/1 2377 [13061] 15/1/3 8191 [13062] 54320 pppppppppp; FFFFF +FFFFF 15/1/3 8191 [13063] 0/0/0 1 [13064] 54322 1; DEC->BIN 00001 +00000 0/0/0 0 [13065] 0/0/0 10 [13066] 54324 t; 0000A +00000 0/0/0 0 [13067] 0/0/0 100 [13068] 54326 64; 00064 +00000 0/0/0 0 [13069] 0/0/0 1000 [13070] 54328 3.8; 003E8 +00000 0/0/0 0 [13071] 0/0/1 1808 [13072] 54330 2710; 02710 +00000 0/0/0 0 [13073] 1/1/0 1696 [13074] 54332 186t0; 186A0 +00000 0/0/0 0 [13075] 15/0/2 576 [13076] 54334 p4240; F4240 +00000 0/0/0 0 [13077] 8/1/0 5760 [13078] 54336 989680; 89680 +00009 0/0/0 9 [13079] 5/1/3 256 [13080] 54338 5p5.100; 5E100 +0005F 0/0/0 95 [13081] 10/1/2 2560 [13082] 54340 3e9t+t00; ACA00 +003B9 0/0/0 953 [13083] 0/0/0 0 [13084] 54342 0; (A)WL 00000 +00000 0/0/0 0 [13085] 0/0/0 0 [13086] 54344 0; CLEO'PARA WORD 00000 +00000 0/0/0 0 [13087] Start of procedure 544 at location 4896 in chapter 4 [13088] [13088] 54400 CONST 544 DECIMAL CONSTANTS 0/0/0 126 [13088] 54402 (D)7.; B.E. +0007E 7/1/3 0 [13089] 54403 7.000; WORD +7E000 0/0/0 0 [13090] 54404 0; 0:48 MR SETTING +00000 0/0/0 144 [13091] 54405 90; MR NOW 0:144 +00090 0/0/0 1 [13092] 54406 1; FUNCTIONS WORDS +00001 0/0/0 69 [13093] 54407 45; TYPES IN ALPHA +00045 0/0/0 69 [13094] 54408 45; +00045 0/0/0 68 [13095] 54409 44; +00044 0/0/0 4 [13096] 54410 4; +00004 0/0/0 4 [13097] 54411 4; +00004 0/0/0 2 [13098] 54412 2; +00002 0/0/1 110 [13099] 54413 (R)62:0; LONG NO SECT +0206E 0/0/1 50 [13100] 54414 63:0; SHORT NO SECT +02032 0/0/1 110 [13101] 54415 62:0; T.DS.L. SECT +0206E 0/0/0 8163 [13102] 54416 18:2499; FOR SEQUENCE CHANGES +01FE3 0/0/0 5664 [13103] 54417 18:0; +01620 0/0/0 180 [13104] 54418 (B)180; FOR TSL STORAGE +000B4 0/0/0 180 [13105] 54419 180; +000B4 0/0/0 3 [13106] 54420 (D)3; +00003 7/1/3 8176 [13107] 54421 7ppp0; B5-19 +7FFF0 0/0/0 8191 [13108] 54422 1ppp; B1-13 +01FFF 6/0/3 1638 [13109] 54423 66666; DEC RADIX +66666 6/0/3 3684 [13110] 54424 66.64; ST RADIX +66E64 6/0/3 1638 [13111] 54425 66666; DEC RADIX +66666 0/0/0 1023 [13112] 54426 3pp; BITS 1-10 +003FF 0/0/0 4096 [13113] 54427 01000; BIT 13 +01000 0/0/0 63 [13114] 54428 3p; BITS 1-6 +0003F Start of procedure 545 at location 4923 in chapter 4 [13115] [13115] 54500 CONST 545 INSTRUCTIONS 0/0/1 6023 [13115] 54502 (R)92:9; +03787 10/1/0 6 [13116] 54503 (D)t8006; 10/1/0 6 +A8006 12/1/0 6 [13117] 54504 +8006; 12/1/0 6 +C8006 0/0/0 7 [13118] 54505 7; +00007 15/1/3 8191 [13119] 54506 ppppp; THIS ISN'T A DUMMY +FFFFF 15/1/3 8191 [13120] 54507 ppppp; +FFFFF 6/0/0 0 [13121] 54508 (D)60000; 6 +60000 Source: RayS/Q1000410 4/0/0 0 [13122] 54509 40000; 4 B19 +40000 5/0/0 0 [13123] 54510 50000; 5 +50000 3/0/0 0 [13124] 54511 30000; 3 +30000 7/0/0 0 [13125] 54512 70000; 7 +70000 2/0/0 0 [13126] 54513 20000; 2 B18 +20000 9/0/0 0 [13127] 54514 90000; 9 +90000 10/0/0 0 [13128] 54515 t0000; 10 +A0000 11/0/0 0 [13129] 54516 e0000; 11 +B0000 13/0/0 0 [13130] 54517 :0000; 13 +D0000 18/1/1 1 [13131] 54518 2t001-; 18/1/1/0/1 -2A001 24/1/2 0 [13132] 54519 8+000-; 24/1/2 -8C000 24/0/0 0 [13133] 54520 80000-; 24/0/0 -80000 0/1/1 0 [13134] 54521 0t000; 0/1/1 +0A000 1/1/3 0 [13135] 54522 1.000; 1/1/3 +1E000 1/1/1 0 [13136] 54523 1t000; 1/1/1 +1A000 1/1/2 0 [13137] 54524 1+000; 1/1/2 +1C000 0/0/0 0 [13138] 54525 0; 0/0/0 +00000 0/0/1 0 [13139] 54526 02000; 0/0/1 B14 +02000 0/0/2 0 [13140] 54527 04000; 0/0/2 B15 +04000 0/0/3 0 [13141] 54528 06000; 0/0/3 B14-15 +06000 0/1/0 0 [13142] 54529 08000; 0/1/0 B16 +08000 2/1/0 0 [13143] 54530 28000; 2/1/0 +28000 3/1/0 0 [13144] 54531 38000; 3/1/0 +38000 18/0/1 0 [13145] 54532 22000-; 18/0/1 -22000 18/0/3 0 [13146] 54533 26000-; 18/0/3 -26000 18/1/1 0 [13147] 54534 2t000-; 18/1/1 -2A000 18/1/3 0 [13148] 54535 2.000-; 18/1/3 -2E000 1/0/1 0 [13149] 54536 12000; 1/0/1 +12000 15/0/0 0 [13150] 54537 £0000; 15 +F0000 14/0/0 0 [13151] 54538 .0000; 14 +E0000 1/0/2 0 [13152] 54539 14000; 1/0/2 +14000 27/0/0 0 [13153] 54540 e0000-; 27/0/0 -B0000 27/0/1 0 [13154] 54541 e2000-; 27/0/1 -B2000 27/0/2 0 [13155] 54542 e4000-; 27/0/2 -B4000 27/0/3 0 [13156] 54543 e6000-; 27/0/3 -B6000 27/1/0 0 [13157] 54544 e8000-; 27/1/0 -B8000 27/1/1 0 [13158] 54545 et000-; 27/1/1 -BA000 24/1/0 0 [13159] 54546 88000-; 24/1/0 -88000 26/0/0 0 [13160] 54547 t0000-; 26/0/0 -A0000 26/0/1 0 [13161] 54548 t2000-; 26/0/1 -A2000 1/0/0 0 [13162] 54549 10000; 1/0/0 B17 +10000 18/1/1 10 [13163] 54550 2t00t-; 18/1/1/0/10 -2A00A 8/0/0 0 [13164] 54551 80000; 8/0/0 B20 +80000 8/1/0 0 [13165] 54552 88000; 8/1/0 +88000 1/1/3 1 [13166] 54553 1.001; 1/1/3/0/1 +1E001 4/1/0 0 [13167] 54554 48000; 4/1/0 +48000 18/1/1 5 [13168] 54555 2t005-; 18/1/1/0/5 -2A005 26/1/0 0 [13169] 54556 t8000-; 26/1/0 -A8000 6/1/0 0 [13170] 54557 68000; 6/1/0 +68000 12/0/0 0 [13171] 54558 +0000; 12 +C0000 25/0/0 0 [13172] 54559 90000-; 25/0/0 -90000 23/0/2 0 [13173] 54560 74000-; 23/0/2 -74000 23/0/0 0 [13174] 54561 70000-; 23/0/0 -70000 18/1/1 4118 [13175] 54562 2e016-; 18/1/1/0/10 (18/1/1/4096+22) -2B016 26/0/2 0 [13176] 54563 t4000-; 26/0/2 -A4000 18/1/1 4119 [13177] 54564 2e017-; 18/1/1/0/9- (18/1/1/4096+23) -2B017 28/0/0 0 [13178] 54565 +0000-; 28/0/0 -C0000 24/0/2 0 [13179] 54566 84000-; 24/0/2 -84000 29/0/1 0 [13180] 54567 :2000-; 29/0/1 -D2000 28/0/2 0 [13181] 54568 +4000-; 28/0/2 -C4000 Source: RayS/Q1000411 28/0/3 0 [13182] 54569 +6000-; -C6000 28/1/2 0 [13183] 54570 ++000-; -CC000 28/1/3 0 [13184] 54571 +.000-; -CE000 18/1/1 4123 [13185] 54572 2e01e-; -2B01B 25/1/1 4096 [13186] 54573 9e000-; -9B000 0/0/0 8160 [13187] 54574 (R)18:2496; +01FE0 0/0/0 1 [13188] 54575 (D)1; +00001 31/0/0 0 [13189] 54576 £0000-; -F0000 31/1/0 0 [13190] 54577 £8000-; -F8000 30/1/0 0 [13191] 54578 .8000-; -E8000 30/0/0 8 [13192] 54579 .0008-; -E0008 30/0/0 0 [13193] 54580 .0000-; -E0000 31/0/0 8 [13194] 54581 £0008-; -F0008 20/0/0 0 [13195] 54582 40000-; -40000 20/1/0 0 [13196] 54583 48000-; -48000 21/1/0 0 [13197] 54584 58000-; -58000 20/0/0 8 [13198] 54585 40008-; -40008 21/0/0 0 [13199] 54586 50000-; -50000 22/0/0 0 [13200] 54587 60000-; -60000 30/0/0 4 [13201] 54588 .0004-; -E0004 31/1/0 4 [13202] 54589 £8004-; -F8004 22/1/0 0 [13203] 54590 68000-; -68000 0/0/2 124 [13204] 54591 407+; +0407C 0/0/0 1024 [13205] 54592 400; +00400 6/1/0 138 [13206] 54593 6808t; +6808A 0/0/0 1280 [13207] 54594 500; +00500 0/0/2 156 [13208] 54595 0409+; +0409C 0/0/0 512 [13209] 54596 200; +00200 0/0/0 768 [13210] 54597 300; +00300 26/0/3 0 [13211] 54598 t6000-; -A6000 0/0/0 0 [13212] 54599 ; +00000 Start of procedure 546 at location 5021 in chapter 4 [13213] [13213] 54600 CONST 546 0 24/0/3 0 [13213] 54602 (D)86000-; -86000 24/0/1 0 [13214] 54603 82000-; -82000 2/1/0 6 [13215] 54604 28006; +28006 3/1/0 6 [13216] 54605 38006; +38006 27/1/0 2 [13217] 54606 e8002-; -B8002 1/1/1 2 [13218] 54607 1t002; +1A002 18/0/1 5 [13219] 54608 22005-; -22005 0/0/3 4 [13220] 54609 06004; +06004 2/0/0 1 [13221] 54610 20001; +20001 24/1/0 1 [13222] 54611 88001-; -88001 27/0/2 2 [13223] 54612 e4002-; -B4002 24/1/0 7 [13224] 54613 88007-; -88007 26/0/2 8187 [13225] 54614 t5££e-; -A5FFB 26/0/0 8186 [13226] 54615 t1££t-; -A1FFA 2/0/0 6 [13227] 54616 20006; +20006 24/0/3 6 [13228] 54617 86006-; -86006 23/0/2 2 [13229] 54618 74002-; -74002 0/0/0 0 [13230] 54619 0; +00000 0/0/0 0 [13231] 54620 0; +00000 24/1/2 6 [13232] 54621 8+006-; -8C006 1/1/1 10 [13233] 54622 1t00t; +1A00A 3/0/0 2 [13234] 54623 30002; +30002 1/1/1 20 [13235] 54624 1t014; +1A014 0/0/2 2 [13236] 54625 04002; +04002 24/1/0 5 [13237] 54626 88005-; -88005 29/0/3 0 [13238] 54627 :6000-; -D6000 16/1/0 0 [13239] 54628 8000-; -08000 Source: RayS/Q1000412 28/1/1 0 [13240] 54629 +t000-; -CA000 1/1/3 1 [13241] 54630 1.001; 1/1/3 1 +1E001 Start of procedure 547 at location 5050 in chapter 4 [13242] [13242] 54700 TABLE 547 1 1 TRIAL DATA HEADING BLOCK 'FILES' Start of procedure 548 at location 5050 in chapter 4 [13242] [13242] 54800 TABLE 548 1 1 INSTRUCTIONS 0/0/1 5250 [13242] 54802 66 0 0 0 2 0 5 0 0 0 0 0 0 AM IND 3/0/0 5 [13243] 0/0/1 5252 [13244] 54804 66 2 0 0 1 0 5 5 5 0 0 0 0 S. NO 2/0/0 1365 [13245] 0/0/1 5254 [13246] 54806 66 4 0 0 2 0 5 0 4 0 0 0 0 ACTION 3/0/0 69 [13247] 0/0/1 5256 [13248] 54808 66 6 0 0 2 0 5 0 3 0 0 0 0 REF 3/0/0 53 [13249] 0/0/1 5258 [13250] 54810 66 8 0 0 1 0 5 5 0 4 2 0 0 ITEM 6/0/2 1285 [13251] 0/0/1 5260 [13252] 54812 66 10 0 0 1 0 2 8 1 1 0 0 0 DISC 2/0/0 6162 [13253] 0/0/1 5262 [13254] 54814 66 12 0 0 1 0 3 7 0 2 0 0 0 MOD 2/0/1 1795 [13255] 0/0/1 5264 [13256] 54816 66 14 0 0 1 0 10 0 5 9 2 0 0 LITERAL 6/1/0 4186 [13257] 0/0/1 4894 [13258] 54818 543 44 0 0 2 0 5 0 0 0 0 0 1 CLEO' PARA WORD 19/0/0 5 [13259] Start of procedure 549 at location 5068 in chapter 4 [13260] [13260] 54900 TABLE 549 1 1 TABLES 0/0/1 5250 [13260] 54902 66 0 0 0 2 0 5 0 0 0 0 0 0 AM IND 3/0/0 5 [13261] 0/0/1 5252 [13262] 54904 66 2 0 0 0 0 5 0 5 0 0 0 0 S NO 0/0/0 85 [13263] 0/0/1 5266 [13264] 54906 66 16 0 0 0 0 5 0 1 4 0 0 0 FIRST REF 0/0/2 21 [13265] 0/0/1 5267 [13266] 54908 66 17 0 0 0 0 5 0 1 4 0 0 0 FIRST ITEM 0/0/2 21 [13267] 0/0/1 5268 [13268] 54910 66 18 0 0 0 0 5 0 1 4 0 0 0 SECOND REF 0/0/2 21 [13269] 0/0/1 5269 [13270] 54912 66 19 0 0 0 0 5 0 1 4 0 0 0 SECOND ITEM 0/0/2 21 [13271] 0/0/1 5253 [13272] 54914 66 3 0 0 0 0 2 3 1 1 0 0 0 S/L/ALPHA 0/0/0 4882 [13273] 0/0/1 5254 [13274] 54916 66 4 0 0 0 0 3 2 0 2 0 0 0 SINGLE/BE 0/0/1 515 [13275] 0/0/1 5255 [13276] 54918 66 5 0 0 0 0 2 3 2 1 0 0 0 NO OF CHARS 0/0/0 4898 [13277] 0/0/1 5260 [13278] 54920 66 10 0 0 0 0 3 2 1 2 0 0 0 DISC 0/0/1 531 [13279] 0/0/1 5261 [13280] 54922 66 11 0 0 0 0 2 3 2 1 0 0 0 SPACES 0/0/0 4898 [13281] 0/0/1 5262 [13282] 54924 66 12 0 0 0 0 3 2 1 2 0 0 0 ZEROS 0/0/1 531 [13283] 0/0/1 5263 [13284] 54926 66 13 0 0 0 0 1 4 2 0 0 0 0 SIGN 0/0/0 1057 [13285] 0/0/1 5264 [13286] 54928 66 14 0 0 0 0 2 3 1 1 0 0 0 STERLING 0/0/0 4882 [13287] 0/0/1 5265 [13288] 54930 66 15 0 0 0 0 2 3 1 1 0 0 1 LTE 16/0/0 4882 [13289] Start of procedure 550 at location 5098 in chapter 4 [13290] [13290] 55000 TABLE 550 1 1 VALUE 0/0/1 5277 [13290] 55002 67 3 0 0 0 0 5 0 1 4 1 0 0 VALUE 12/0/2 21 [13291] 0/0/1 5276 [13292] 55004 67 2 0 0 0 0 4 1 0 3 0 0 1 PARA 16/0/1 4356 [13293] Start of procedure 551 at location 5102 in chapter 4 [13294] [13294] 55100 TABLE 551 1 1 ENTRY PT ADJUSTMENT PM POINTS 0/0/1 5298 [13294] 55102 61 20 0 0 2 0 3 2 0 0 0 0 0 ??? OR ZERO 3/0/0 515 [13295] 0/0/1 5278 [13296] 55104 61 0 0 0 0 0 5 0 1 0 0 0 0 ENTRY POINT 0/0/0 21 [13297] 0/0/1 4822 [13298] 55106 542 22 0 0 2 0 1 0 0 0 0 0 1 '+' 19/0/0 1 [13299] 0/0/1 5250 [13300] 55108 66 0 0 0 2 0 3 0 0 0 0 0 0 AMEND IND 3/0/0 3 [13301] 0/0/1 5278 [13302] 55110 61 0 0 0 0 0 5 0 1 0 0 0 0 ENTRY PT 0/0/0 21 [13303] 0/0/1 4822 [13304] 55112 542 22 0 0 2 0 1 0 0 0 0 0 1 g 19/0/0 1 [13305] Start of procedure 552 at location 5114 in chapter 4 [13306] [13306] 55200 CONST 552 1 1 DUMMY FOR INSERTING M/C MODS Constants for chapter 4 short constants at 13306 long constants at 13330 0/0/1 0 [13306] 002000 0/0/2 0 [13307] 004000 0/0/3 0 [13308] 006000 0/0/0 1 [13309] 000001 0/1/0 0 [13310] 008000 0/0/0 16 [13311] 000010 0/0/0 50 [13312] 000032 0/0/0 20 [13313] 000014 28/0/2 0 [13314] 1C4000 3/1/0 132 [13315] 038084 2/0/0 132 [13316] 020084 0/0/0 16 [13317] 000010 16/0/0 2 [13318] 100002 1/0/0 128 [13319] 010080 6/0/3 1638 [13320] 066666 16/0/0 1 [13321] 100001 16/0/1 0 [13322] 102000 6/0/3 1638 [13323] 066666 16/0/0 2 [13324] 100002 16/0/0 2 [13325] 100002 4/1/0 768 [13326] 048300 6/0/3 1638 [13327] 066666 16/0/0 2 [13328] 100002 6/0/3 1638 [13329] 066666 0/0/0 0 [13330] 000000 2/0/0 50 [13331] 020032 0/0/0 0 [13332] 000000 2/0/0 14 [13333] 02000E 0/0/0 0 [13334] 000000 0/0/0 10 [13335] 00000A 0/0/0 0 [13336] 000000 0/0/0 10 [13337] 00000A 0/1/0 153 [13338] 008099 0/0/2 4418 [13339] 005142 0/0/0 0 [13340] 000000 0/0/0 0 [13341] 000000 0/0/0 0 [13342] 000000 2/0/0 120 [13343] 020078 0/0/0 0 [13344] 000000 2/0/0 100 [13345] 020064 0/0/0 0 [13346] 000000 2/0/0 34 [13347] 020022 0/0/0 0 [13348] 000000 0/0/0 8 [13349] 000008 5/0/0 0 [13350] 050000 5/0/3 1430 [13351] 056596 0/0/0 0 [13352] 000000 0/0/0 18 [13353] 000012 9/0/3 1395 [13354] 096573 6/0/3 5781 [13355] 067695 0/0/2 321 [13356] 004141 3/0/0 1155 [13357] 030483 0/0/0 0 [13358] 000000 0/0/0 300 [13359] 00012C 0/1/0 153 [13360] 008099 0/0/2 4422 [13361] 005146 0/0/0 0 [13362] 000000 0/0/0 0 [13363] 000000 0/0/0 0 [13364] 000000 0/0/0 0 [13365] 000000 0/0/0 0 [13366] 000000 0/0/0 48 [13367] 000030 0/0/0 0 [13368] 000000 0/0/0 6 [13369] 000006 0/0/0 0 [13370] 000000 2/0/0 100 [13371] 020064 6/0/3 2389 [13372] 066955 7/0/1 1846 [13373] 072736 6/0/3 2389 [13374] 066955 7/0/1 1846 [13375] 072736 0/0/0 0 [13376] 000000 0/0/0 4 [13377] 000004 0/0/0 0 [13378] 000000 2/0/0 580 [13379] 020244 0/0/0 14 [13380] 00000E 0/0/0 14 [13381] 00000E 0/0/0 0 [13382] 000000 2/0/0 48 [13383] 020030 0/0/0 0 [13384] 000000 0/0/0 6 [13385] 000006 0/0/0 0 [13386] 000000 0/0/0 6 [13387] 000006 5/0/2 6514 [13388] 055972 5/0/3 1430 [13389] 056596 0/0/0 0 [13390] 000000 2/0/0 280 [13391] 020118 0/0/0 0 [13392] 000000 2/0/0 8 [13393] 020008 0/0/0 0 [13394] 000000 2/0/0 8 [13395] 020008 0/0/0 0 [13396] 000000 2/0/0 8 [13397] 020008 0/0/0 37 [13398] 000025 8/0/0 0 [13399] 080000 0/0/0 37 [13400] 000025 8/0/0 0 [13401] 080000 0/0/0 0 [13402] 000000 0/0/0 40 [13403] 000028 0/0/0 0 [13404] 000000 2/0/0 6 [13405] 020006 0/0/0 0 [13406] 000000 0/0/0 20 [13407] 000014 0/0/0 0 [13408] 000000 2/0/0 14 [13409] 02000E 0/0/0 0 [13410] 000000 2/0/0 8 [13411] 020008 0/0/0 0 [13412] 000000 0/0/0 10 [13413] 00000A 0/0/0 0 [13414] 000000 0/0/0 10 [13415] 00000A 0/0/0 0 [13416] 000000 0/0/0 20 [13417] 000014 0/0/0 0 [13418] 000000 0/0/0 4 [13419] 000004 0/0/0 0 [13420] 000000 0/0/0 32 [13421] 000020 0/0/0 0 [13422] 000000 2/0/0 44 [13423] 02002C 1/0/3 4465 [13424] 017171 7/0/0 5911 [13425] 071717 0/0/0 0 [13426] 000000 2/0/0 50 [13427] 020032 0/0/0 0 [13428] 000000 0/0/0 144 [13429] 000090 1/0/2 4949 [13430] 015355 7/0/1 5781 [13431] 073695 0/0/0 0 [13432] 000000 2/0/0 48 [13433] 020030 0/0/0 0 [13434] 000000 0/0/0 300 [13435] 00012C 0/0/0 0 [13436] 000000 0/0/0 8 [13437] 000008 L8192 loading procedure 0 for chapter 4 0/0/0 0 [8192] 000000 0/0/0 5600 [8193] 0015E0 0/0/0 5600 [8194] 0015E0 0/0/1 0 [8195] 002000 0/0/1 0 [8196] 002000 0/0/0 160 [8197] 0000A0 0/0/0 160 [8198] 0000A0 0/0/0 9 [8199] 000009 0/0/0 18 [8200] 000012 0/0/0 27 [8201] 00001B 0/0/0 36 [8202] 000024 0/0/0 45 [8203] 00002D 0/0/0 10 [8204] 00000A 16/0/0 74 [8205] 10004A 0/0/0 19 [8206] 000013 16/0/0 83 [8207] 100053 0/0/0 28 [8208] 00001C 16/0/0 92 [8209] 10005C 0/0/0 37 [8210] 000025 16/0/0 101 [8211] 100065 0/0/0 46 [8212] 00002E 16/0/0 110 [8213] 10006E 0/0/0 8 [8214] 000008 16/0/0 10 [8215] 10000A 16/0/0 12 [8216] 10000C 16/0/0 14 [8217] 10000E 0/0/0 0 [8218] 000000 0/0/0 0 [8219] 000000 0/0/0 0 [8220] 000000 0/0/0 0 [8221] 000000 0/0/0 0 [8222] 000000 0/0/0 0 [8223] 000000 0/0/0 0 [8224] 000000 0/0/0 0 [8225] 000000 0/0/0 0 [8226] 000000 0/0/0 0 [8227] 000000 0/0/0 0 [8228] 000000 0/0/0 0 [8229] 000000 0/0/0 0 [8230] 000000 0/0/0 0 [8231] 000000 O02 8192 13438 Overlaying chapter 4 by 5, equivalent to chapter 2 L8238 loading chapter 5 Start of procedure 553 at location 46 in chapter 5 [8238] [8238] 55300 PROCR 553 START OF PASS 3 [8238] 55301 NOTES RADIX PREP STAGE PROCR 680 in CHAP 6 overlay = 5 24/0/3 0 [8238] 55302 152 152 4 0 0 0 OVERLAY 23/0/2 105 [8239] 55303 C 680 2 0 0 0 OVERLAY 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 0 [8241] 55304 55 9 0 1 0 100 BULK COPY 18/1/0 4123 [8242] 55305 C 15 0 1 0 0 1/1/3 100 [8243] 18/1/1 5 [8244] 28/1/1 5116 [8245] 24/0/2 6052 [8246] 55306 55 91 0 0 0 36 BULK COPY 18/1/0 4123 [8247] 55307 C 24 0 0 0 0 1/1/3 36 [8248] 18/1/1 5 [8249] 28/0/0 5216 [8250] Source: RayS/Q1000413 6/0/0 6314 [8251] 55308 27 4 0 0 0 COMPILER? SELECT 27/0/0 71 [8252] 55309 70 553 13 0 0 0 gNO JUMP IF A == 0 0/1/0 40 [8253] 55310 46 A6 10 0 0 0 REALIGN TO 'INDEX' RUN BACK 0/0/3 0 [8254] 0/1/2 4216 [8255] 55311 C 0 0 0 4 RUN BACK 6/1/0 0 [8256] 1/1/1 45 [8257] 25/1/1 4096 [8258] 24/0/3 0 [8259] 23/0/2 46 [8260] 0/1/1 40 [8261] 24/1/0 80 [8262] 55312 76 553 14 0 0 0 JUMP unconditional 0/1/0 40 [8263] 55313 40 A6 0 0 0 1 INPUT EX PASS 2 OPEN FILE 0/0/3 0 [8264] 0/1/2 4218 [8265] 6/1/0 4220 [8266] 1/1/1 45 [8267] 25/1/1 4096 [8268] 24/0/3 0 [8269] 23/0/2 40 [8270] 0/0/3 44 [8271] 6/1/0 4222 [8272] 55314 54 16 0 0 0 40 BULK CLEAR 28/0/0 5076 [8273] 6/1/0 4224 [8274] 55315 54 5 0 0 0 50 CLEAR PRINTER ANNEX BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/0/0 0 [8276] 1/1/3 0 [8277] 55316 10 0 0 0 0 CLEAR DETAILS SELECT LITERAL 2/0/0 5450 [8278] 55317 5 94 0 0 0 0 OF SECTION 0 TRANSFER 24/0/2 5401 [8279] 55318 55 72 3 0 0 14 BULK COPY 18/1/0 4123 [8280] 55319 C 16 5 0 0 0 1/1/3 14 [8281] 18/1/1 5 [8282] 28/0/0 5081 [8283] 6/1/0 4226 [8284] 55320 54 72 3 0 0 14 BULK CLEAR 28/0/0 5401 [8285] 26/1/3 4228 [8286] 55321 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [8287] 55322 C 0 0 0 0 ///// Limit 6/0/0 6014 [8287] 55323 92 0 0 0 0 CHAPTERS CODED +1 SELECT 18/0/1 5 [8288] 55324 30 0 0 0 5 SHIFT (A) BY QUARTETS 1/1/1 1 [8289] 55325 11 0 0 0 1 ADD LITERAL 3/1/0 40 [8290] 55326 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [8291] 1/1/3 0 [8292] 55327 10 0 0 0 0 SELECT LITERAL 1/0/1 1 [8293] 55328 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 15/0/1 6023 [8294] 55329 36 92 9 0 1 0 COLLATE AND ADD 2/0/0 5078 [8295] 55330 5 16 2 0 0 0 CORRECTED CHAP TRANSFER 24/0/3 22 [8296] 55331 96 0 0 1 0 SELECT MODIFIER 6/0/0 2 [8297] 2/0/0 5077 [8298] 55332 5 16 1 0 0 0 UNCORR CHAP TRANSFER 1/1/3 16 [8299] 55333 10 0 0 0 10 BIT 5 SELECT LITERAL 18/1/1 4118 [8300] 55334 32 0 0 0 10- SHIFT (AB) BY QUARTETS 15/0/1 6023 [8301] 55335 36 92 9 0 1 0 UNIQUENESS IND Q2 COLLATE AND ADD 18/1/1 4126 [8302] 55336 32 0 0 0 2- (CLEAR A) SHIFT (AB) BY QUARTETS 27/1/1 114 [8303] 55337 75 553 40 0 0 0 gCHAP NOT UNIQUE JUMP IF AB != 0 24/0/1 5078 [8304] 55338 124 16 2 0 1 0 CORR CHAP MODIFY ADDRESS OF NEXT 6/0/0 5080 [8305] 55339 16 4 0 0 0 SW SEC LENGTH SELECT 4/0/3 5416 [8306] 55340 1 72 18 0 3 0 CHAP LENGTH (CODING ONLY) ADD 2/0/0 5079 [8307] 55341 5 16 3 0 0 0 START OF FIRST SEC IN UNCORR CHAP TRANSFER 2/0/0 5080 [8308] 55342 5 16 4 0 0 0 CLEAR FOR TOT LENGTHS ALL SECS IN CHAP TRANSFER Start of procedure 554 at location 117 in chapter 5 [8309] [8309] 55400 PROCR 554 UPDATE SEC INDEX, SWITCH PROCR STARTS [8309] 55401 NOTES 26/0/0 213 [8309] 55402 80 555 2 0 0 0 gDEAL WITH SECTIONS, ANNEXES ENTER SUBROUTINE 6/0/0 5079 [8310] 55403 16 3 0 0 0 UNCORR CHAP LENGTH SELECT 4/0/0 5080 [8311] 55404 1 16 4 0 0 0 ADD 24/0/1 5078 [8312] 55405 124 16 2 0 1 0 CORR CHAP MODIFY ADDRESS OF NEXT 5/0/0 5400 [8313] 55406 2 72 2 0 0 0 SUBTRACT 27/0/3 125 [8314] 55407 73 554 10 0 0 0 JUMP IF A < 0 24/0/1 5078 [8315] 55408 124 16 2 0 1 0 MODIFY ADDRESS OF NEXT 7/0/0 5400 [8316] 55409 4 72 2 0 0 0 FORM MAX CORR CHAP LENGTH AUGMENT 25/0/3 1 [8317] 55410 94 554 11 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 127 [8318] s 25/0/1 1 [8319] 55411 94 553 27 0 1 1 gNEXT UNCORR CHAP STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 100 [8320] s 26/1/1 6042 [8321] 55412 91 92 28 0 1 0 COUNT CORR CHAPS SET MODIFICATION REGISTER AT VARIABLE 26/1/2 4230 [8322] 55413 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [8323] 55414 C 0 0 0 0 ///// Limit 1/1/3 16 [8323] 55415 10 0 0 0 10 BIT 5 SELECT LITERAL 18/1/1 4118 [8324] 55416 32 0 0 0 10- SHIFT (AB) BY QUARTETS 15/0/1 6024 [8325] 55417 36 92 10 0 1 0 COLLATE AND ADD 27/0/0 139 [8326] 55418 70 554 23 0 0 0 gCHAP IS UNIQUE JUMP IF A == 0 6/0/1 5401 [8327] 55419 0 72 3 0 1 0 SELECT 2/0/2 5416 [8328] 55420 5 72 18 0 2 0 SWITCH PROCR START-END OF SECTIONS TRANSFER 6/0/1 5081 [8329] 55421 0 16 5 0 1 0 SELECT 7/0/1 5401 [8330] 55422 4 72 3 0 1 0 UPDATE CHAPTER LENGTH AUGMENT 25/0/2 1 [8331] 55423 94 554 24 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 141 [8332] s Source: RayS/Q1000414 25/0/1 1 [8333] 55424 94 554 15 0 1 1 gNEXT CHAP STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 131 [8334] s 6/0/0 5378 [8335] 55425 0 61 100 0 0 0 BASIC SPECIAL CHAP LENGTH SELECT 2/0/0 5079 [8336] 55426 5 16 3 0 0 0 TRANSFER 2/0/0 5077 [8337] 55427 5 16 1 0 0 0 ZERO UNCORR CHAP TRANSFER 6/0/0 6043 [8338] 55428 0 92 29 0 0 0 SELECT 2/0/0 5078 [8339] 55429 5 16 2 0 0 0 CORR CHAP=SPEC CHAP TRANSFER 2/0/0 5080 [8340] 55430 5 16 4 0 0 0 CLEAR SUBTOTAL TRANSFER 26/0/0 213 [8341] 55431 80 555 2 0 0 0 gDEAL WITH SPECIAL CHAP ENTER SUBROUTINE 6/0/0 5079 [8342] 55432 0 16 3 0 0 0 SELECT 4/0/0 5080 [8343] 55433 1 16 4 0 0 0 FORM SPECIAL CHAP LENGTH ADD 2/0/1 5400 [8344] 55434 5 72 2 0 1 0 TRANSFER 1/1/3 214 [8345] 55435 101 214 1 3 0 SELECT LITERAL ADDRESS 5/0/1 5400 [8346] 55436 2 72 2 0 1 0 SUBTRACT 27/0/3 157 [8347] 55437 73 554 39 0 0 0 JUMP IF A < 0 7/0/1 5400 [8348] 55438 4 72 2 0 1 0 AUGMENT 1/1/3 220 [8349] 55439 101 220 1 3 0 FIRST CHAP MIN LENGTH=220 SELECT LITERAL ADDRESS 5/0/0 5401 [8350] 55440 2 72 3 0 0 0 SUBTRACT 27/0/3 161 [8351] 55441 73 554 43 0 0 0 gOK JUMP IF A < 0 7/0/0 5401 [8352] 55442 4 72 3 0 0 0 AUGMENT 6/1/0 4232 [8353] 55443 54 16 0 0 0 40 CLEAR W/L'S BULK CLEAR 28/0/0 5076 [8354] 6/0/0 6043 [8355] 55444 0 92 29 0 0 0 SELECT 1/1/2 7 [8356] 55445 12 0 0 0 7 SUBTRACT LITERAL 27/0/3 167 [8357] 55446 73 554 48 0 0 0 gOK JUMP IF A < 0 1/1/3 0 [8358] 55447 10 0 0 0 0 SELECT LITERAL 1/1/1 7 [8359] 55448 11 0 0 0 7 MAX VALUE=7 ADD LITERAL 2/0/0 6043 [8360] 55449 5 92 29 0 0 0 SPECIAL CHAP NUMBER TRANSFER 26/0/0 977 [8361] 55450 80 574 2 0 0 0 READ ALIGN BLOCK A6 NORMAL RUN, PREP STA ENTER SUBROUTINE 26/0/0 977 [8362] 55451 80 574 2 0 0 0 READ SECOND INDEX BLOXK ENTER SUBROUTINE 26/0/0 977 [8363] 55452 80 574 2 0 0 0 READ PROG DETAILS BLOCK ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 5 [8365] 55453 0 9 4 2 0 0 PROG ID SELECT 2/0/0 5078 [8366] 55454 5 16 2 0 0 0 TRANSFER 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 7 [8368] 55455 0 9 6 2 0 0 PROG SERIAL SELECT 2/0/0 5079 [8369] 55456 5 16 3 0 0 0 TRANSFER 6/1/0 4234 [8370] 55457 54 13 0 0 0 14 BULK CLEAR 28/0/0 5044 [8371] 0/1/0 40 [8372] 55458 46 A2 10 0 0 1 BACK TO ALIGN BLOCK RUN BACK 0/0/3 0 [8373] 0/1/2 4236 [8374] 55459 C 0 0 0 6 RUN BACK 6/1/0 0 [8375] 1/1/1 36 [8376] 25/1/1 4096 [8377] 24/0/3 0 [8378] 23/0/2 46 [8379] 0/1/1 40 [8380] 0/1/0 40 [8381] 55460 48 A2 0 0 0 0 (STEP SO AS TO OVERWRITE IT) STEP BACK 0/0/3 0 [8382] 0/1/2 4238 [8383] 55461 C 0 0 0 1 STEP BACK 6/1/0 0 [8384] 1/1/1 36 [8385] 25/1/1 4096 [8386] 24/0/3 0 [8387] 23/0/2 48 [8388] 0/1/1 40 [8389] 6/1/0 1280 [8390] 55462 583 60 1 0 0 ALIGN MARKS SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 4 [8392] 55463 5 8 4 1 0 0 TRANSFER 6/1/0 1316 [8393] 55464 584 4 1 0 0 'INDEX' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 6 [8395] 55465 5 8 6 1 0 0 TRANSFER 6/1/0 1281 [8396] 55466 583 60 2 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 9 [8398] 55467 5 8 8 2 0 0 TRANSFER 1/1/3 3 [8399] 55468 10 0 0 0 3 INDEX IDENTIFIER SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 10 [8401] 55469 5 8 10 1 0 0 TRANSFER 26/0/0 1075 [8402] 55470 80 577 2 0 0 0 gWRITE ENTER SUBROUTINE 26/0/0 281 [8403] 55471 80 556 2 0 0 0 gWRITE DETAILS ENTER SUBROUTINE 24/1/0 307 [8404] 55472 76 557 2 0 0 0 JUMP unconditional Start of procedure 555 at location 213 in chapter 5 [8405] [8405] 55500 PROCR 555 PLACE SECTIONS AND ANNEXES IN UNCORRECTED CHAPTER SR 0/0/0 0 [8405] 55502 81 555 2 0 0 0 START OF SUBROUTINE 26/1/2 4240 [8406] 55503 90 0 0 2 1 SET MODIFICATION REGISTER AT LITERAL [8407] 55504 C 0 0 0 100 Limit 6/0/2 5116 [8407] 55505 0 15 0 0 2 0 SELECT 27/0/0 232 [8408] 55506 70 555 18 0 0 0 gSECTION NOT USED JUMP IF A == 0 18/0/1 9 [8409] 55507 30 0 0 0 9 SHIFT (A) BY QUARTETS 18/0/1 4119 [8410] 55508 30 0 0 0 9- ISOLATE CHAP NUMBER Q1 SHIFT (A) BY QUARTETS 5/0/0 5077 [8411] 55509 2 16 1 0 0 0 SUBTRACT 27/0/1 232 [8412] 55510 71 555 18 0 0 0 gNOT IN THIS UNCORR CHAP JUMP IF A != 0 Source: RayS/Q1000415 6/0/0 5079 [8413] 55511 0 16 3 0 0 0 SELECT 7/0/2 5450 [8414] 55512 4 94 0 0 2 0 UPDATE SEC START AUGMENT 1/1/3 0 [8415] 55513 10 0 0 0 0 SELECT LITERAL 0/1/0 40 [8416] 55514 34 15 0 0 2 0 SET (N) IN B 0/0/3 0 [8417] 6/0/2 5116 [8418] 2/1/0 42 [8419] 0/1/1 40 [8420] 15/0/0 1382 [8421] 55515 36 587 10 0 0 0 BITS 5-18 COLLATE AND ADD 18/0/1 4127 [8422] 55516 30 0 0 0 1- SHIFT (A) BY QUARTETS 7/0/0 5080 [8423] 55517 4 16 4 0 0 0 AUG SEC LENGTHS IN CHAP AUGMENT 25/0/2 1 [8424] 55518 94 555 5 0 2 1 gNEXT SECTION STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 215 [8425] s 26/1/2 6052 [8426] 55519 91 91 0 0 2 0 2R:0 SET MODIFICATION REGISTER AT VARIABLE 6/0/0 6053 [8427] 55520 0 91 1 0 0 0 2R SELECT 27/0/0 280 [8428] 55521 70 555 62 0 0 0 gNO FILES JUMP IF A == 0 1/1/3 0 [8429] 55522 10 0 0 0 0 SELECT LITERAL 1/0/1 8 [8430] 55523 35 0 0 0 1000 PREPARE FOR DIGIT COLLATION 15/0/2 6056 [8431] 55524 36 91 4 0 2 0 UNCORR CHAP COLLATE AND ADD 18/0/1 4125 [8432] 55525 30 0 0 0 3- SHIFT (A) BY QUARTETS 5/0/0 5077 [8433] 55526 2 16 1 0 0 0 CURRENT UNCORR CHAP SUBTRACT 27/0/1 278 [8434] 55527 71 555 61 0 0 0 gNOT IN IT JUMP IF A != 0 0/0/2 1377 [8435] 55528 34 587 5 0 0 0 BITS 1-6 SET (N) IN B 15/0/2 6057 [8436] 55529 36 91 5 0 2 0 ROUTE TYPE COLLATE AND ADD 1/1/2 3 [8437] 55530 12 0 0 0 3 SUBTRACT LITERAL 27/0/0 252 [8438] 55531 70 555 37 0 0 0 gGP JUMP IF A == 0 1/1/2 1 [8439] 55532 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 252 [8440] 55533 70 555 37 0 0 0 gGP JUMP IF A == 0 1/1/2 15 [8441] 55534 12 0 0 0 £ SUBTRACT LITERAL 27/0/1 269 [8442] 55535 71 555 52 0 0 0 gNOT ROUTE 19 JUMP IF A != 0 24/1/0 278 [8443] 55536 76 555 61 0 0 0 (DON'T INCLUDE ANNEX LENGTHS) JUMP unconditional 6/0/2 6056 [8444] 55537 91 4 0 2 0 SELECT 18/0/1 4124 [8445] 55538 30 0 0 0 4- GR CTR SHIFT (A) BY QUARTETS 4/0/0 6053 [8446] 55539 1 91 1 0 0 0 2R ADD 2/0/0 8184 [8447] 55540 92 0 0 4 0 SET MODIFIER AT VARIABLE 1/0/1 7 [8448] 55541 35 0 0 0 111 PREPARE FOR DIGIT COLLATION 15/0/2 6056 [8449] 55542 36 91 4 0 2 0 LENGTH OF GP ANNEX Q7-10 COLLATE AND ADD 18/0/1 1 [8450] 55543 30 0 0 0 1 SHIFT (A) BY QUARTETS 4/0/0 5078 [8451] 55544 1 16 2 0 0 0 CHAP NUMBER (CORRECTED) Q6 ADD 24/0/1 8184 [8452] 55545 5 91 5 0 4 0 OVERWRITE DETAILS TRANSFER 2/0/0 6057 [8453] 15/0/2 6056 [8454] 55546 36 91 4 0 2 0 ANNEX LENGTH COLLATE AND ADD 4/0/0 5079 [8455] 55547 1 16 3 0 0 0 ADD 4/0/0 5080 [8456] 55548 1 16 4 0 0 0 ADD 2/0/0 281 [8457] 55549 5 556 2 0 0 0 WL=SR LINK TRANSFER 5/0/0 281 [8458] 55550 2 556 2 0 0 0 STORE NEGATIVELY SUBTRACT 24/0/1 8184 [8459] 55551 5 91 4 0 4 0 STORE GP TX AREA START Q1-3 TRANSFER 2/0/0 6056 [8460] 6/0/0 5078 [8461] 55552 16 2 0 0 0 CORRECTED CHAP SELECT 18/0/1 4 [8462] 55553 30 0 0 0 4 SHIFT (A) BY QUARTETS 4/0/0 5079 [8463] 55554 1 16 3 0 0 0 UNCORR CHAP LENGTH ADD 4/0/0 5080 [8464] 55555 1 16 4 0 0 0 ALL SECTIONS+ANNEXES TO DATE ADD 2/0/2 6057 [8465] 55556 5 91 5 0 2 0 TRANSFER 1/0/1 7 [8466] 55557 35 0 0 0 111 HALF-LENGTH Q1-3 PREPARE FOR DIGIT COLLATION 15/0/2 6056 [8467] 55558 36 91 4 0 2 0 COLLATE AND ADD 18/0/3 1 [8468] 55559 31 0 0 0 1 FORM FULL ANNEX LENGTH SHIFT (A) BY BITS 7/0/0 5080 [8469] 55560 4 16 4 0 0 0 AUGMENT 25/0/2 2 [8470] 55561 94 555 22 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 237 [8471] s 26/0/1 213 [8472] 55562 82 555 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 556 at location 281 in chapter 5 [8473] [8473] 55600 PROCR 556 SR TO WRITE 'INDEX' DATA [8473] 55601 NOTES 0/0/0 0 [8473] 55602 81 556 2 0 0 0 START OF SUBROUTINE 6/0/0 5078 [8474] 55603 16 2 0 0 0 PROG ID SELECT Source: RayS/Q1000416 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 5 [8476] 55604 3 8 4 2 0 0 COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 13 [8478] 55605 5 8 12 2 0 0 TRANSFER 6/0/0 5079 [8479] 55606 0 16 3 0 0 0 PROG SERIAL SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 7 [8481] 55607 3 8 6 2 0 0 COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 15 [8483] 55608 5 8 14 2 0 0 TRANSFER 1/1/3 2 [8484] 55609 10 0 0 0 2 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 11 [8486] 55610 5 8 10 2 0 0 PASS 1 IDENTIFIER TRANSFER 1/1/3 3 [8487] 55611 10 0 0 0 3 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 19 [8489] 55612 3 8 18 2 0 0 IDENTIFIER COPY 1/1/3 2 [8490] 55613 10 0 0 0 2 SELECT LITERAL 4/0/0 6322 [8491] 55614 1 27 12 0 0 0 0/2=PTS NO/YES ADD 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 17 [8493] 55615 5 8 16 2 0 0 PASS IND TRANSFER 6/1/0 1281 [8494] 55616 583 60 2 0 0 £££££ SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 21 [8496] 55617 5 8 20 2 0 0 TRANSFER 26/0/0 1075 [8497] 55618 80 577 2 0 0 0 gWRITE TO TAPE ENTER SUBROUTINE 26/0/1 281 [8498] 55619 82 556 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 557 at location 307 in chapter 5 [8499] [8499] 55700 PROCR 557 HEADING BLOCK [8499] 55701 NOTES RADIX B PREP STAGE 6/1/0 4242 [8499] 55702 54 5 0 1 0 50 BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 0 [8501] 26/1/1 4244 [8502] 55703 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8503] 55704 C 0 0 0 10 Limit 26/0/0 1012 [8503] 55705 80 576 2 0 0 0 gPRINT SPACERS ENTER SUBROUTINE 25/0/1 1 [8504] 55706 94 557 5 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 311 [8505] s 6/0/0 6055 [8506] 55707 91 3 0 0 0 2(R+T) SELECT 5/0/0 6054 [8507] 55708 2 91 2 0 0 0 SUBTRACT 18/0/3 3 [8508] 55709 31 0 0 0 1- SHIFT (A) BY BITS 18/0/1 4127 [8509] 2/0/0 1012 [8510] 55710 5 576 2 0 0 0 NO OF TX AREAS TRANSFER 6/0/0 6054 [8511] 55711 91 2 0 0 0 SELECT 18/0/3 3 [8512] 55712 31 0 0 0 1- SHIFT (A) BY BITS 18/0/1 4127 [8513] 2/0/0 1075 [8514] 55713 5 577 2 0 0 0 NO OF FILES TRANSFER 1/1/3 128 [8515] 55714 10 0 0 0 80 HEAD OF FORM SELECT LITERAL 2/0/0 1381 [8516] 55715 5 587 9 0 0 0 TRANSFER 24/0/2 1486 [8517] 55716 52 5 0 0 0 0 EDIT FIRST LINE EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 0 [8519] 55717 C 593 2 0 0 0 6/0/0 6322 [8520] 55718 27 12 0 0 0 SELECT 27/0/0 336 [8521] 55719 70 557 22 0 0 0 gNO PTS JUMP IF A == 0 24/0/2 1324 [8522] 55720 55 584 12 1 0 6 'PTS INCLUDED' BULK COPY 18/1/0 4123 [8523] 55721 C 5 40 1 0 0 1/1/3 6 [8524] 18/1/1 5 [8525] 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 40 [8527] 26/0/0 1012 [8528] 55722 80 576 2 0 0 0 gPRINT SPACERS ENTER SUBROUTINE 26/0/0 1012 [8529] 55723 80 576 2 0 0 0 gSPACER ENTER SUBROUTINE 6/1/0 1281 [8530] 55724 0 583 60 2 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 5 [8532] 55725 5 8 4 2 0 0 TRANSFER 1/1/3 85 [8533] 55726 10 0 0 0 55 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 7 [8535] 55727 5 8 6 2 0 0 TRANSFER 6/0/0 5078 [8536] 55728 16 2 0 0 0 PROG ID SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 9 [8538] 55729 5 8 8 2 0 0 TRANSFER 6/0/0 5079 [8539] 55730 16 3 0 0 0 PROG SERIAL SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 11 [8541] 55731 5 8 10 2 0 0 TRANSFER 6/1/0 1290 [8542] 55732 0 583 70 1 0 0 'PASS 3' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 12 [8544] 55733 5 8 12 1 0 0 TRANSFER 26/0/0 1075 [8545] 55734 80 577 2 0 0 0 gWRITE ENTER SUBROUTINE 24/0/2 3795 [8546] 55735 124 673 2 0 2 0 SELECT LITERAL AND DIVISION 3/1/0 40 [8547] 55736 91 0 0 3 0 FOR PARAMETERS SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [8548] 24/0/2 1714 [8549] 55737 124 604 2 0 2 0 SELECT LITERAL AND DIVISION 3/1/0 40 [8550] 55738 91 0 0 2 0 FOR ORDERS SET MODIFICATION REGISTER AT VARIABLE 26/1/2 40 [8551] 24/0/2 4171 [8552] 55739 124 679 2 0 2 0 SELECT LITERAL AND DIVISION 3/1/0 40 [8553] 55740 91 0 0 1 0 SECOND LEVEL PARAS SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [8554] 6/1/0 4246 [8555] 55741 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8182 [8556] 55742 C 0 0 0 6 Simulated modifier Source: RayS/Q1000417 Query: Mod value indistinct but I'm fairly sure it's an 8 6/1/0 4248 [8557] 55743 90 0 0 8 0 SECOND LEVEL PARAS SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [8558] 55744 C 0 0 0 3 Simulated modifier Query: because the 8 is notoriuosly bad in that print position Query: and SR 596 steps mod 8 and resets it to 0-3 again when 3 is reached. 6/0/0 3795 [8559] 55745 673 2 0 0 0 SELECT 18/0/3 2 [8560] 55746 31 0 0 0 2 SHIFT (A) BY BITS 2/0/0 1705 [8561] 55747 5 598 11 0 0 0 TRANSFER 6/0/0 4171 [8562] 55748 679 2 0 0 0 SELECT 18/0/3 2 [8563] 55749 31 0 0 0 2 SHIFT (A) BY BITS 2/0/0 1711 [8564] 55750 5 598 17 0 0 0 TRANSFER 26/0/0 1584 [8565] 55751 80 596 2 0 0 0 gWRITE 'UNLOADER' ENTER SUBROUTINE 26/0/0 1584 [8566] 55752 80 596 2 0 0 0 gWRITE 'ALLOC STORE' ENTER SUBROUTINE 24/0/3 22 [8567] 55753 95 0 0 1 0 SELECT MODIFICATION REGISTER 6/1/0 2 [8568] 2/1/0 1486 [8569] 55754 5 593 2 1 0 0 TRANSFER 24/0/3 22 [8570] 55755 95 0 0 2 0 SELECT MODIFICATION REGISTER 6/1/0 4 [8571] 2/1/0 1488 [8572] 55756 5 593 4 1 0 0 TRANSFER 26/0/0 977 [8573] 55757 80 574 2 0 0 0 gREAD ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 4 [8575] 55758 55 9 4 1 0 10 BULK COPY 18/1/0 4123 [8576] 55759 C 11 0 1 0 0 1/1/3 10 [8577] 18/1/1 5 [8578] 28/1/1 5024 [8579] 6/0/0 6055 [8580] 55760 91 3 0 0 0 2(R+T) SELECT 5/0/0 6054 [8581] 55761 2 91 2 0 0 0 2R SUBTRACT 18/0/3 3 [8582] 55762 31 0 0 0 1- FORM T SHIFT (A) BY BITS 18/0/1 4127 [8583] 2/1/0 5037 [8584] 55763 5 11 12 2 0 0 NO OF TX AREAS FOR ALLOCATOR TRANSFER 6/0/0 6054 [8585] 55764 0 91 2 0 0 0 2R SELECT 18/0/3 3 [8586] 55765 31 0 0 0 1- R SHIFT (A) BY BITS 18/0/1 4127 [8587] 2/1/0 5035 [8588] 55766 5 11 10 2 0 0 NO OF ROUTES TRANSFER 1/1/3 0 [8589] 55767 10 0 0 0 0 SELECT LITERAL 3/1/0 5039 [8590] 55768 3 11 14 2 0 0 NO OF DISCFILES COPY 7/1/0 5035 [8591] 55769 4 11 10 2 0 0 AUGMENT Start of procedure 558 at location 400 in chapter 5 [8592] [8592] 55800 PROCR 558 OUTPUT SECOND HEADING BLOCK [8592] 55801 NOTES RADIX B PREP STAGE 24/0/2 5024 [8592] 55802 55 11 0 1 0 16 BULK COPY 18/1/0 4123 [8593] 55803 C 8 4 1 0 0 1/1/3 16 [8594] 18/1/1 5 [8595] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [8597] 2/0/0 6042 [8598] 55804 5 92 28 0 0 0 CLEAR TRANSFER 6/0/0 6020 [8599] 55805 92 6 0 0 0 2ND HEADING BLOCK SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 21 [8601] 55806 5 8 20 2 0 0 TRANSFER 6/0/0 6022 [8602] 55807 92 8 0 0 0 CHAPTER SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 23 [8604] 55808 5 8 22 2 0 0 TRANSFER 26/1/2 6042 [8605] 55809 91 92 28 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 4250 [8606] 55810 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8607] 55811 C 0 0 0 14 Limit 6/0/2 5401 [8607] 55812 0 72 3 0 2 0 CHAP LENGTH SELECT 27/0/1 419 [8608] 55813 71 558 16 0 0 0 JUMP IF A != 0 6/1/0 1312 [8609] 55814 583 92 1 0 0 100,000 IN BIN SELECT 3/0/2 5401 [8610] 55815 3 72 3 0 2 0 SET RIDICULOUS LENGTH COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/1 25 [8612] 55816 5 8 24 2 1 0 TRANSFER 1/1/3 32 [8613] 55817 10 0 0 0 20 BIT 6 SELECT LITERAL 18/1/1 4118 [8614] 55818 32 0 0 0 10- SHIFT (AB) BY QUARTETS 15/0/2 6024 [8615] 55819 36 92 10 0 2 0 COLLATE AND ADD 27/0/0 430 [8616] 55820 70 558 24 0 0 0 gNORMAL JUMP IF A == 0 1/1/3 0 [8617] 55821 10 0 0 0 0 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 5/1/1 25 [8619] 55822 2 8 24 2 1 0 SUBTRACT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/1 25 [8621] 55823 5 8 24 2 1 0 SET IND THAT IN ANOTHER STORE TRANSFER 25/0/1 2 [8622] 55824 94 0 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 432 [8623] 25/0/2 1 [8624] 55825 94 558 12 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 415 [8625] s 6/0/0 5078 [8626] 55826 0 16 2 0 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 39 [8628] 55827 5 8 38 2 0 0 PROG ID TRANSFER 6/0/0 5079 [8629] 55828 0 16 3 0 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 41 [8631] 55829 5 8 40 2 0 0 PROG SERIAL TRANSFER 6/1/0 4252 [8632] 55830 10 0 0 0 5163636653 'ALLOC' SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 42 [8634] 55831 5 8 42 1 0 0 TRANSFER Source: ChuckK/Q1000418 6/1/0 5216 [8635] 55832 24 0 1 0 0 SELECT 27/0/0 503 [8636] 55833 70 558 89 0 0 0 >NO FILES JUMP IF A == 0 26/1/1 5216 [8637] 55834 91 24 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/2 4254 [8638] 55835 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [8639] 55836 C 0 0 0 8 Limit 1/1/3 0 [8639] 55837 10 0 0 0 0 SELECT LITERAL 0/0/2 1377 [8640] 55838 34 587 5 0 0 0 BITS 1-6 SET (N) IN B 15/0/1 5221 [8641] 55839 36 24 5 0 1 0 ROUTE TYPE COLLATE AND ADD 1/1/2 19 [8642] 55840 101 19 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 501 [8643] 55841 71 558 88 0 0 0 >NOT 19 JUMP IF A != 0 6/0/1 5220 [8644] 55842 24 4 0 1 0 OP TX AREA CTR SELECT 18/1/1 4124 [8645] 55843 32 0 0 0 4- SHIFT (AB) BY QUARTETS 4/0/0 5217 [8646] 55844 1 24 1 0 0 0 2R ADD 2/0/0 1075 [8647] 55845 5 577 2 0 0 0 WL TRANSFER 1/0/1 8 [8648] 55846 35 0 0 0 1000 PREPARE FOR DIGIT COLLATION 24/0/1 1075 [8649] 55847 124 577 2 0 1 0 MODIFY ADDRESS OF NEXT 15/0/0 5220 [8650] 55848 36 24 4 0 0 0 CHAPTER NUMBER COLLATE AND ADD 27/0/0 467 [8651] 55849 70 558 57 0 0 0 >NO CHOICE JUMP IF A == 0 18/0/1 4125 [8652] 55850 30 0 0 0 3- SHIFT (A) BY QUARTETS 5/0/0 6043 [8653] 55851 2 92 29 0 0 0 CHAPS IN PROGM SUBTRACT 27/0/0 466 [8654] 55852 70 558 56 0 0 0 >OK JUMP IF A == 0 27/0/3 466 [8655] 55853 73 558 56 0 0 0 >OK JUMP IF A < 0 1/1/3 0 [8656] 55854 10 0 0 0 0 SELECT LITERAL 24/1/0 467 [8657] 55855 76 558 57 0 0 0 >EX RANGE=NO CHOICE JUMP unconditional 4/0/0 6043 [8658] 55856 1 92 29 0 0 0 ADD 2/0/0 1012 [8659] 55857 5 576 2 0 0 0 TX AREA CHAPTER TRANSFER 15/0/1 5220 [8660] 55858 36 24 4 0 1 0 COLLATE AND ADD 18/0/1 4125 [8661] 55859 30 0 0 0 3- SHIFT (A) BY QUARTETS 27/0/0 477 [8662] 55860 70 558 67 0 0 0 >NO CHOICE JUMP IF A == 0 5/0/0 6043 [8663] 55861 2 92 29 0 0 0 SUBTRACT 27/0/0 476 [8664] 55862 70 558 66 0 0 0 >OK JUMP IF A == 0 27/0/3 476 [8665] 55863 73 558 66 0 0 0 >OK JUMP IF A < 0 1/1/3 0 [8666] 55864 10 0 0 0 0 SELECT LITERAL 24/1/0 477 [8667] 55865 76 558 67 0 0 0 >EX RANGE=NO CHOICE JUMP unconditional 4/0/0 6043 [8668] 55866 1 92 29 0 0 0 ADD 2/0/0 1584 [8669] 55867 5 596 2 0 0 0 ANNEX CHAPTER TRANSFER 1/0/1 7 [8670] 55868 35 0 0 0 111 PREPARE FOR DIGIT COLLATION 15/0/1 5220 [8671] 55869 36 24 4 0 1 0 GP HALF-LENGTH COLLATE AND ADD 18/1/1 4125 [8672] 55870 32 0 0 0 3- SHIFT (AB) BY QUARTETS 6/0/0 1584 [8673] 55871 0 596 2 0 0 0 SELECT 18/0/3 3 [8674] 55872 31 0 0 0 3 SHIFT (A) BY BITS 4/0/0 1012 [8675] 55873 1 576 2 0 0 0 ADD 18/1/3 13 [8676] 55874 33 0 0 0 13 SHIFT (AB) BY BITS 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/2 45 [8678] 55875 5 8 44 2 2 0 TRANSFER 1/0/1 7 [8679] 55876 35 0 0 0 111 PREPARE FOR DIGIT COLLATION 24/0/1 1075 [8680] 55877 124 577 2 0 1 0 MODIFY ADDRESS OF NEXT 15/0/0 5220 [8681] 55878 36 24 4 0 0 0 SPECIAL HALF-LENGTH COLLATE AND ADD 1/1/1 2 [8682] 55879 11 0 0 0 2 (FOR GUARD WORD) ADD LITERAL 18/1/1 4125 [8683] 55880 32 0 0 0 3- SHIFT (AB) BY QUARTETS 6/0/0 1584 [8684] 55881 0 596 2 0 0 0 SELECT 18/0/3 3 [8685] 55882 31 0 0 0 3 SHIFT (A) BY BITS 4/0/0 1012 [8686] 55883 1 576 2 0 0 0 ADD 18/1/3 13 [8687] 55884 33 0 0 0 13 SHIFT (AB) BY BITS 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/2 47 [8689] 55885 5 8 46 2 2 0 TRANSFER 25/0/2 4 [8690] 55886 94 558 88 0 2 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 501 [8691] s 24/1/0 503 [8692] 55887 76 558 89 0 0 0 >END AFTER 2 FILES JUMP unconditional Source: ChuckK/Q1000419 25/0/1 2 [8693] 55888 94 558 37 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 447 [8694] s 26/0/0 1075 [8695] 55889 80 577 2 0 0 0 >WRITE ENTER SUBROUTINE Start of procedure 559 at location 504 in chapter 5 [8696] [8696] 55900 PROCR 559 SECOND HEADING LINE [8696] 55901 NOTES RADIX B 26/1/1 1486 [8696] 55902 91 593 2 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/2 1488 [8697] 55903 91 593 4 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 26/0/0 1584 [8698] 55904 80 596 2 0 0 0 >WRITE 'ALLOC ROUTES' ENTER SUBROUTINE 24/0/3 22 [8699] 55905 95 0 0 1 0 SELECT MODIFICATION REGISTER 6/1/0 2 [8700] 2/1/0 1486 [8701] 55906 5 593 2 1 0 0 TRANSFER 24/0/3 22 [8702] 55907 95 0 0 2 0 SELECT MODIFICATION REGISTER 6/1/0 4 [8703] 2/1/0 1488 [8704] 55908 5 593 4 1 0 0 TRANSFER 26/1/2 4256 [8705] 55909 90 0 0 2 0 SET MOD REGISTERS SET MODIFICATION REGISTER AT LITERAL [8706] 55910 C 0 0 0 4 Limit 6/1/2 5025 [8706] 55911 11 0 2 2 0 SELECT DETAIL SELECT 27/0/0 518 [8707] 55912 70 559 15 0 0 0 OUT IF ZERO JUMP IF A == 0 6/1/0 1224 [8708] 55913 583 4 1 0 0 ELSE SELECT SELECT 24/1/0 519 [8709] 55914 76 559 16 0 0 0 YES JUMP unconditional 6/1/0 1226 [8710] 55915 583 6 1 0 0 SELECT NO SELECT 2/1/2 5044 [8711] 55916 5 13 0 1 2 0 STORE YES OR NO TRANSFER 25/0/2 2 [8712] 55917 94 559 11 0 2 2 REPEAT STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 514 [8713] s 6/0/0 6020 [8714] 55918 0 92 6 0 0 0 SELECT 26/0/0 1092 [8715] 55919 80 578 2 0 0 0 TO DEC ENTER SUBROUTINE 2/0/0 6020 [8716] 55920 5 92 6 0 0 0 TRANSFER 0/0/3 0 [8717] 55921 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS 24/0/2 1460 [8718] 55922 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [8720] 55923 C 592 2 0 0 0 EDIT AND OUTPUT 26/0/0 1012 [8721] 55924 80 576 2 0 0 0 >PRINT FP, MOD GP, ENTRY ETC ENTER SUBROUTINE 26/0/0 1012 [8722] 55925 80 576 2 0 0 0 >SPACER ENTER SUBROUTINE 6/1/0 5033 [8723] 55926 11 8 2 0 0 >SPACER SELECT 2/1/0 5046 [8724] 55927 5 13 2 1 0 0 TRANSFER Start of procedure 560 at location 533 in chapter 5 [8725] [8725] 56000 PROCR 560 THIRD HEADING LINE [8725] 56001 NOTES RADIX B PREP STAGE 6/1/0 5035 [8725] 56002 11 10 2 0 0 STORE SELECT 2/0/0 5084 [8726] 56003 5 16 8 0 0 0 NO. OF FILES TRANSFER 6/1/0 5033 [8727] 56004 0 11 8 2 0 0 NUMBER OF CHAPTERS INITIALLY SELECT 2/0/0 5085 [8728] 56005 5 16 9 0 0 0 NO. OF CHAPTERS TRANSFER 6/1/0 4258 [8729] 56006 54 13 0 0 0 14 CLEAR WL'S BULK CLEAR 28/0/0 5044 [8730] 26/1/2 6042 [8731] 56007 91 92 28 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 1/1/3 32 [8732] 56008 10 0 0 0 20 BIT 6 SELECT LITERAL 18/1/1 4118 [8733] 56009 32 0 0 0 10- SHIFT (AB) BY QUARTETS 15/0/2 6024 [8734] 56010 36 92 10 0 2 0 COLLATE AND ADD 27/0/0 547 [8735] 56011 70 560 15 0 0 0 >FIRST STORE JUMP IF A == 0 1/1/3 0 [8736] 56012 10 0 0 0 0 SELECT LITERAL 5/0/2 5401 [8737] 56013 2 72 3 0 2 0 NEGATE FOR SECOND STORE SUBTRACT 24/1/0 548 [8738] 56014 76 560 16 0 0 0 JUMP unconditional 6/0/2 5401 [8739] 56015 72 3 0 2 0 SELECT 26/0/0 1092 [8740] 56016 80 578 2 0 0 0 TO DEC ENTER SUBROUTINE 2/0/2 5044 [8741] 56017 5 13 0 0 2 0 STORE CHAPTER LENGTHS TRANSFER 0/0/3 0 [8742] 56018 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/2 5401 [8743] 56019 72 3 0 2 0 SELECT 5/0/0 4212 [8744] 56020 12 0 0 0 2001 8193 INBIN SUBTRACT LITERAL 27/0/3 556 [8745] 56021 73 560 24 0 0 0 >OK JUMP IF A < 0 1/1/3 1 [8746] 56022 10 0 0 0 1 SELECT LITERAL 3/0/0 5054 [8747] 56023 3 13 10 0 0 0 COPY 25/0/2 1 [8748] 56024 94 560 8 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 540 [8749] s 6/0/2 5043 [8750] 56025 0 13 1- 0 2 0 LAST CHAP LENGTH(DEC) SELECT Source: ChuckK/Q1000420 2/1/0 1332 [8751] 56026 5 585 4 1 0 0 TRANSFER 6/0/0 1332 [8752] 56027 0 585 4 0 0 0 MODULUS SELECT 1/1/2 1286 [8753] 56028 12 0 0 0 506 SUBTRACT LITERAL 27/0/2 567 [8754] 56029 72 560 34 0 0 0 >OK JUMP IF A >= 0 1/1/3 1286 [8755] 56030 10 0 0 0 506 SELECT LITERAL 2/0/0 1332 [8756] 56031 5 585 4 0 0 0 TRANSFER 6/1/0 1332 [8757] 56032 0 585 4 1 0 0 (PRESERVES ORIGINAL SIGN) SELECT 2/0/2 5043 [8758] 56033 5 13 1- 0 2 0 PRINT SPECIAL CHAP AS MIN LENGTH 506 TRANSFER 6/0/0 5054 [8759] 56034 13 10 0 0 0 SELECT 27/0/0 580 [8760] 56035 70 560 46 0 0 0 >OK JUMP IF A == 0 6/0/0 8172 [8761] 56036 86 511 2 0 0 0 CTR DISATROUS ERRORs SELECT SWITCH R 1/1/1 1 [8762] 56037 11 0 0 0 1 ADD LITERAL 2/0/0 8172 [8763] 56038 84 511 2 0 0 0 AUGMENT SET SWITCH(ES) AT VARIABLE VALUE 6/1/0 4260 [8764] 56039 10 0 0 0 5:5:5:5:5: '?????' SELECT LITERAL 26/1/2 4262 [8765] 56040 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [8766] 56041 C 0 0 0 10 Limit 24/1/2 15 Extra code needed to address transit area no 1, section 5 3/1/2 40 [8767] 56042 3 5 40 1 2 0 25 QUESTION MARKS COPY 25/0/2 2 [8768] 56043 94 560 42 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 574 [8769] s 1/1/3 1 [8770] 56044 10 0 0 0 1 SET INDICATOR FOR *07 SELECT LITERAL 24/1/0 581 [8771] 56045 76 560 47 0 0 0 JUMP unconditional 1/1/3 0 [8772] 56046 10 0 0 0 0 OK-CLEAR INDICATOR SELECT LITERAL 2/0/0 6315 [8773] 56047 5 27 5 0 0 0 TRANSFER 24/0/2 1432 [8774] 56048 52 5 2 0 0 0 EDIT AND OUTPUT EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [8776] 56049 C 591 2 0 0 0 26/0/0 1012 [8777] 56050 80 576 2 0 0 0 PRINT ENTER SUBROUTINE 26/0/0 1012 [8778] 56051 80 576 2 0 0 0 SPACER ENTER SUBROUTINE 24/0/2 1410 [8779] 56052 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [8781] 56053 C 590 2 0 0 0 EDIT FILE DETAILS HEADING 26/0/0 1012 [8782] 56054 80 576 2 0 0 0 PRINT ENTER SUBROUTINE 6/1/0 4264 [8783] 56055 54 13 0 0 0 31 BULK CLEAR 28/0/0 5044 [8784] Start of procedure 561 at location 593 in chapter 5 [8785] [8785] 56100 PROCR 561 FILE DETAILS [8785] 56101 NOTES RADIX B PREP STAGE 6/1/0 6052 [8785] 56102 0 91 0 1 0 0 SELECT 27/0/0 718 [8786] 56103 70 562 20 0 0 0 >NO FILES JUMP IF A == 0 2/1/0 8184 [8787] 56104 91 0 0 4 0 2R:0 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 4266 [8788] 56105 90 0 0 1 0 SET MOD REGISTER A SET MODIFICATION REGISTER AT LITERAL [8789] 56106 C 0 0 0 48 Limit 26/0/0 977 [8789] 56107 80 574 2 0 0 0 READ FILE DETAILS ON A6 ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 4 [8791] 56108 55 9 4 1 1 12 FILE DETAIL BULK COPY 0/1/0 40 [8792] 0/0/3 0 [8793] 24/0/3 22 [8794] 4/0/0 2 [8795] 0/0/3 44 [8796] 18/1/0 4123 [8797] 56109 C 11 0 1 0 0 1/1/3 12 [8798] 18/1/1 5 [8799] 28/1/1 5024 [8800] 6/1/0 5027 [8801] 56110 0 11 2 2 0 0 ROUTE TYPE 02 SELECT 3/0/0 1222 [8802] 56111 3 583 2 0 0 0 WL COPY 1/1/2 32 [8803] 56112 12 0 0 0 20 SUBTRACT LITERAL 27/0/0 653 [8804] 56113 70 561 54 0 0 0 >BIN CARD O/P JUMP IF A == 0 1/1/2 128 [8805] 56114 12 0 0 0 80 SUBTRACT LITERAL 27/0/0 652 [8806] 56115 70 561 53 0 0 0 >BIN CARD I/P JUMP IF A == 0 1/1/2 96 [8807] 56116 12 0 0 0 60 SUBTRACT LITERAL 27/0/0 650 [8808] 56117 70 561 51 0 0 0 >NON-STD PT O/P(16) JUMP IF A == 0 1/1/2 16 [8809] 56118 12 0 0 0 10 SUBTRACT LITERAL 27/0/0 639 [8810] 56119 70 561 40 0 0 0 >RT 17 JUMP IF A == 0 1/1/2 16 [8811] 56120 12 0 0 0 10 SUBTRACT LITERAL 27/0/0 641 [8812] 56121 70 561 42 0 0 0 >RT 18 JUMP IF A == 0 1/1/2 16 [8813] 56122 12 0 0 0 10 SUBTRACT LITERAL 27/0/0 643 [8814] 56123 70 561 44 0 0 0 JUMP IF A == 0 1/1/2 16 [8815] 56124 12 0 0 0 10 SUBTRACT LITERAL 27/0/0 637 [8816] 56125 70 561 38 0 0 0 JUMP IF A == 0 1/1/2 32 [8817] 56126 12 0 0 0 20 SUBTRACT LITERAL 27/0/1 629 [8818] 56127 71 561 30 0 0 0 >NOT RT 22 JUMP IF A != 0 1/1/3 192 [8819] 56128 10 0 0 0 +0 SELECT LITERAL Source: ChuckK/Q1000421 24/1/0 654 [8820] 56129 76 561 55 0 0 0 >RT 22 JUMP unconditional 1/1/2 32 [8821] 56130 12 0 0 0 20 SUBTRACT LITERAL 27/0/1 633 [8822] 56131 71 561 34 0 0 0 >NOT RT 24 JUMP IF A != 0 1/1/3 80 [8823] 56132 10 0 0 0 50 SELECT LITERAL 24/1/0 654 [8824] 56133 76 561 55 0 0 0 JUMP unconditional 1/1/2 16 [8825] 56134 12 0 0 0 10 SUBTRACT LITERAL 27/0/1 655 [8826] 56135 71 561 56 0 0 0 >NOT RT 25 JUMP IF A != 0 1/1/3 224 [8827] 56136 10 0 0 0 .0 SELECT LITERAL 24/1/0 654 [8828] 56137 76 561 55 0 0 0 JUMP unconditional 1/1/3 32 [8829] 56138 10 0 0 0 20 DT SELECT LITERAL 24/1/0 654 [8830] 56139 76 561 55 0 0 0 >RT 2 JUMP unconditional 1/1/3 176 [8831] 56140 10 0 0 0 e0 SELECT LITERAL 24/1/0 654 [8832] 56141 76 561 55 0 0 0 JUMP unconditional 1/1/3 208 [8833] 56142 10 0 0 0 :0 SELECT LITERAL 24/1/0 654 [8834] 56143 76 561 55 0 0 0 SET=13 JUMP unconditional 1/1/3 128 [8835] 56144 10 0 0 0 80 SELECT LITERAL 2/1/0 5035 [8836] 56145 5 11 10 2 0 0 ALT ROUTE IND TRANSFER 2/1/0 5030 [8837] 56146 5 11 6 1 0 0 ZERO START TRANSFER 2/1/0 5032 [8838] 56147 5 11 8 1 0 0 TRANSFER 1/1/2 1 [8839] 56148 12 0 0 0 1 SUBTRACT LITERAL 2/1/0 5029 [8840] 56149 5 11 4 2 0 0 TRANSFER 24/1/0 671 [8841] 56150 76 561 70 0 0 0 >SET ZERO START JUMP unconditional 1/1/3 16 [8842] 56151 10 0 0 0 10 SELECT LITERAL 24/1/0 654 [8843] 56152 76 561 55 0 0 0 JUMP unconditional 1/1/3 48 [8844] 56153 10 0 0 0 30 SELECT LITERAL 1/1/1 48 [8845] 56154 11 0 0 0 30 ADD LITERAL 2/1/0 5027 [8846] 56155 5 11 2 2 0 0 FIB TO M/R TRANSFER 6/1/0 5035 [8847] 56156 11 10 2 0 0 TEST ALTERNATE SELECT 27/0/0 660 [8848] 56157 70 561 61 0 0 0 ROUTE IF 0,SET JUMP IF A == 0 1/1/3 0 [8849] 56158 10 0 0 0 0 =80: IF 1.SET=0 SELECT LITERAL 2/1/0 5035 [8850] 56159 5 11 10 2 0 0 TRANSFER 24/1/0 662 [8851] 56160 76 561 63 0 0 0 JUMP unconditional 1/1/3 128 [8852] 56161 10 0 0 0 80 SELECT LITERAL 2/1/0 5035 [8853] 56162 5 11 10 2 0 0 TRANSFER 1/0/1 16 [8854] 56163 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION 24/0/1 8184 [8855] 56164 36 91 5 0 4 0 COLLATE AND ADD 15/0/0 6057 [8856] 18/0/1 4124 [8857] 56165 30 0 0 0 4- SHIFT (A) BY QUARTETS 18/0/3 1 [8858] 56166 31 0 0 0 1 DOUBLE CORR CHAP NO SHIFT (A) BY BITS 2/1/0 5029 [8859] 56167 5 11 4 2 0 0 TRANSFER 1/0/1 15 [8860] 56168 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 24/0/1 8184 [8861] 56169 36 91 5 0 4 0 COLLATE AND ADD 15/0/0 6057 [8862] 2/1/0 5033 [8863] 56170 5 11 8 2 0 0 START LOCATION TRANSFER 0/1/0 40 [8864] 56171 52 8 4 0 1 0 EDIT IN EDIT 0/0/3 0 [8865] 24/1/2 19 Extra code needed to address transit area no 3, section 8 24/0/2 4 [8867] 24/0/3 22 [8868] 4/0/0 2 [8869] 2/0/0 40 [8870] 0/1/1 40 [8871] 24/0/2 1684 [8872] 24/1/2 40 [8873] 28/1/2 0 [8874] 56172 C 597 16 0 0 0 26/1/2 4268 [8875] 56173 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [8876] 56174 C 0 0 0 10 CONVERT FILE DETAILS Limit 6/1/2 5027 [8876] 56175 0 11 2 2 2 0 SELECT 26/0/0 1092 [8877] 56176 80 578 2 0 0 0 TO DEC ENTER SUBROUTINE 2/0/2 5044 [8878] 56177 5 13 0 0 2 0 TRANSFER 25/0/2 2 [8879] 56178 94 561 75 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 684 [8880] s 6/0/0 1222 [8881] 56179 583 2 0 0 0 SELECT 18/0/1 4127 [8882] 56180 30 0 0 0 1- SHIFT (A) BY QUARTETS 26/0/0 1092 [8883] 56181 80 578 2 0 0 0 CONVERT ROUTE TYPE TO DEC ENTER SUBROUTINE 18/0/1 1 [8884] 56182 30 0 0 0 1 SHIFT (A) BY QUARTETS Source: TonyJ/Q1000422 2/0/0 1222 [8885] 56183 5 583 2 0 0 0 TRANSFER 0/0/3 0 [8886] 56184 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS Start of procedure 562 at location 695 in chapter 5 [8887] [8887] 56200 PROCR 562 FILE DETAILS FOR PRINTOUT - BIT 20 [8887] 56201 NOTES RADIX B Query: RESET ALTERNATE 6/0/0 5052 [8887] 56202 13 8 0 0 0 SELECT Query: ROUTE INDICATOR 27/0/0 699 [8888] 56203 70 562 6 0 0 0 JUMP IF A == 0 6/1/0 1226 [8889] 56204 583 6 1 0 0 SELECT 24/1/0 700 [8890] 56205 76 562 7 0 0 0 JUMP unconditional 6/1/0 1224 [8891] 56206 583 4 1 0 0 SELECT 2/1/0 5052 [8892] 56207 5 13 8 1 0 0 TRANSFER 6/1/0 5029 [8893] 56208 0 11 4 2 0 0 SELECT 18/0/3 3 [8894] 56209 31 0 0 0 1- SHIFT (A) BY BITS 18/0/1 4127 [8895] 2/0/0 5046 [8896] 56210 5 13 2 0 0 0 TRANSFER Query: OUTPUT ON PRINTER 24/0/2 1516 [8897] 56211 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [8899] 56212 C 594 2 0 0 0 26/0/0 1012 [8900] 56213 80 576 2 0 0 0 > PRINT ENTER SUBROUTINE 23/0/0 2 [8901] 56214 94 562 16 0 4 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [8902] 24/1/0 713 [8903] s 24/1/0 717 [8904] 56215 76 562 19 0 0 0 > ALL FILES PROCESSED JUMP unconditional 25/0/1 12 [8905] 56216 94 561 8 0 1 12 > NEXT FILE THIS BLOCK STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 598 [8906] s 26/0/0 1075 [8907] 56217 80 577 2 0 0 0 > WRITE ENTER SUBROUTINE 24/1/0 596 [8908] 56218 76 561 5 0 0 0 > READ NEW BLOCK JUMP unconditional 26/0/0 1075 [8909] 56219 80 577 2 0 0 0 > WRITE FINAL FILES BLOCK ENTER SUBROUTINE 24/0/2 1528 [8910] 56220 52 5 2 0 0 0 EDIT HEADING & OUTPUT EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [8912] 56221 C 594 14 0 0 0 HEADING BLOCK 26/0/0 1012 [8913] 56222 80 576 2 0 0 0 PRINT TX AREA HEADING ENTER SUBROUTINE Start of procedure 563 at location 722 in chapter 5 [8914] [8914] 56300 PROCR 563 TRANSIT AREA [8914] 56301 NOTES RADIX B 26/1/2 6054 [8914] 56302 91 91 2 0 2 0 2 (R+T) :2R SET MODIFICATION REGISTER AT VARIABLE 25/0/2 0 [8915] 56303 94 563 5 0 2 0 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 726 [8916] s 24/1/0 807 [8917] 56304 76 565 2 0 0 0 > ND TX AREAS JUMP unconditional 26/1/1 4270 [8918] 56305 90 0 0 1 0 SET O/P MR SET MODIFICATION REGISTER AT LITERAL [8919] 56306 C 0 0 0 48 Limit 6/1/0 6052 [8919] 56307 91 91 0 0 4 0 2R:0 SET MODIFICATION REGISTER AT VARIABLE 2/1/0 8184 [8920] 0/0/2 1377 [8921] 56308 34 587 5 0 0 0 BITS 1 - 6 SET (N) IN B 1/1/3 0 [8922] 56309 10 0 0 0 0 SELECT LITERAL 24/0/1 8184 [8923] 56310 36 24 5 0 4 0 ROUTE TYPE COLLATE AND ADD 15/0/0 5221 [8924] 1/1/2 19 [8925] 56311 12 0 0 0 13 SUBTRACT LITERAL 27/0/1 748 [8926] 56312 71 563 24 0 0 0 > NOT 19 JUMP IF A != 0 24/0/1 8184 [8927] 56313 24 4 0 4 0 GP T, AREA CTR SELECT 6/0/0 5220 [8928] 18/0/1 4124 [8929] 56314 30 0 0 0 4- SHIFT (A) BY QUARTETS 4/0/0 5217 [8930] 56315 1 24 1 0 0 0 2R ADD 24/0/3 22 [8931] 56316 99 0 0 2 0 -R2 MODIFIER SUBTRACT MODIFICATION REGISTER FROM A 5/0/0 4 [8932] 27/0/1 748 [8933] 56317 71 563 24 0 0 0 >WE ARE NOT DEALING WITH RT 19 TX AREA JUMP IF A != 0 1/1/2 1 [8934] 56318 12 0 0 0 1 SUBTRACT LITERAL 2/1/0 5047 [8935] 56319 5 13 2 2 0 0 NEG CHAP NUMBER TRANSFER 2/1/0 5049 [8936] 56320 5 13 4 2 0 0 ZERO LENGTH TRANSFER 2/0/0 1584 [8937] 56321 5 596 2 0 0 0 CLEAR FOR PRINT TRANSFER 2/0/0 5044 [8938] 56322 5 13 0 0 0 0 ZERO START TRANSFER 24/1/0 769 [8939] 56323 76 564 2 0 0 0 JUMP unconditional 23/0/0 2 [8940] 56324 94 563 9 0 4 2 > TRY AGAIN STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [8941] 24/1/0 730 [8942] s 6/0/2 6056 [8943] 56325 0 91 4 0 2 0 SELECT 27/0/2 755 [8944] 56326 72 563 29 0 0 0 > NOT GP TX AREA JUMP IF A >= 0 6/1/2 6056 [8945] 56327 0 91 4 1 2 0 (LOSES SIGN) SELECT 24/1/0 761 [8946] 56328 76 563 35 0 0 0 JUMP unconditional 18/0/1 8 [8947] 56329 30 0 0 0 8 SHIFT (A) BY QUARTETS 18/0/1 4120 [8948] 56330 30 0 0 0 8- CLEAR Q3 - 10 SHIFT (A) BY QUARTETS Source: TonyJ/Q1000423 3/0/0 5044 [8949] 56331 3 13 0 0 0 0 COPY 2/0/0 1222 [8950] 56332 5 583 2 0 0 0 SEC NUMBER FOR PRINT TRANSFER 24/0/1 5044 [8951] 56333 124 13 0 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 5450 [8952] 56334 0 94 0 0 0 0 SELECT SECTION START SELECT 2/0/0 5044 [8953] 56335 5 13 0 0 0 0 TRANSFER 6/0/2 6057 [8954] 56336 0 91 5 0 2 0 SELECT 18/1/1 4127 [8955] 56337 32 0 0 0 1- SHIFT (AB) BY QUARTETS 2/1/0 5049 [8956] 56338 5 13 4 2 0 0 TX AREA LENGTH TRANSFER 18/1/1 1 [8957] 56339 32 0 0 0 1 SHIFT (AB) BY QUARTETS 3/0/0 1584 [8958] 56340 3 596 2 0 0 0 CHAP COPY 18/0/3 1 [8959] 56341 31 0 0 0 1 SHIFT (A) BY BITS 2/1/0 5047 [8960] 56342 5 13 2 2 0 0 TWICE CHAP FOR MT TRANSFER Start of procedure 564 at location 769 in chapter 5 [8961] [8961] 56400 PROCR 564 OUTPUT TRANSIT AREA DETAILS [8961] 56401 NOTES RADIX B 0/1/0 40 [8961] 56402 52 8 4 0 1 0 EDIT EDIT 0/0/3 0 [8962] 24/1/2 19 Extra code needed to address transit area no 3, section 8 24/0/2 4 [8964] 24/0/3 22 [8965] 4/0/0 2 [8966] 2/0/0 40 [8967] 0/1/1 40 [8968] 24/0/2 1454 [8969] 24/1/2 40 [8970] 28/1/2 0 [8971] 56403 C 591 24 0 0 0 TRANSIT AREA DTLS 6/0/0 5044 [8972] 56404 0 13 0 0 0 0 SELECT 26/0/0 1092 [8973] 56405 80 578 2 0 0 0 TO DEC ENTER SUBROUTINE 2/0/0 5044 [8974] 56406 5 13 0 0 0 0 TO BINARY TRANSFER 6/1/0 5049 [8975] 56407 0 13 4 2 0 0 SELECT 26/0/0 1092 [8976] 56408 80 578 2 0 0 0 TO DEC ENTER SUBROUTINE 2/0/0 5048 [8977] 56409 5 13 4 0 0 0 TRANSFER 6/0/0 1222 [8978] 56410 0 583 2 0 0 0 SELECT 26/0/0 1092 [8979] 56411 80 578 2 0 0 0 TO DEC ENTER SUBROUTINE 2/0/0 1222 [8980] 56412 5 583 2 0 0 0 SEC NUMBER TRANSFER 0/0/3 0 [8981] 56413 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS 24/0/2 1540 [8982] 56414 52 5 2 0 0 0 EDIT FOR PRINT EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [8984] 56415 C 594 26 0 0 0 6/0/2 6056 [8985] 56416 0 91 4 0 2 0 SELECT 27/0/2 798 [8986] 56417 72 564 20 0 0 0 > NOT GP TX AREA JUMP IF A >= 0 6/0/0 4213 [8987] 56418 10 0 0 0 5767 'GP' SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 4 [8989] 56419 5 5 4 1 0 0 TRANSFER 26/0/0 1012 [8990] 56420 80 576 2 0 0 0 > PRINT ENTER SUBROUTINE 25/0/2 2 [8991] 56421 94 564 24 0 2 2 > MORE DETAILS YET STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 803 [8992] s 26/0/0 1075 [8993] 56422 80 577 2 0 0 0 WRITE TX BLOCK ENTER SUBROUTINE 24/1/0 807 [8994] 56423 76 565 2 0 0 0 JUMP unconditional 25/0/1 6 [8995] 56424 94 563 7 0 1 6 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 727 [8996] 26/0/0 1075 [8997] 56425 80 577 2 0 0 0 WRITE TX BLOCK ENTER SUBROUTINE 24/1/0 726 [8998] 56426 76 563 5 0 0 0 > RESET MR1 & START NEXT BLOCK JUMP unconditional Start of procedure 565 at location 807 in chapter 5 [8999] [8999] 56500 PROCR 565 O/P LAST TWO CHUNKS AND WRITE COMPATIBILTY DATA [8999] 56501 NOTES 26/1/1 1486 [8999] 56502 91 593 2 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/2 1488 [9000] 56503 91 593 4 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 26/0/0 1584 [9001] 56504 80 596 2 0 0 0 > O/P 'ALLOC FP/TAG' ENTER SUBROUTINE 26/0/0 1584 [9002] 56505 80 596 2 0 0 0 > O/P 'SET UP PQ' ENTER SUBROUTINE 26/0/0 1584 [9003] 56506 80 596 2 0 0 0 > O/P 'LOAD PROGRAM' ENTER SUBROUTINE 24/1/0 813 [9004] 56507 76 566 2 0 0 0 JUMP unconditional Start of procedure 566 at location 813 in chapter 5 [9005] [9005] 56600 PROCR 566 566 PRINT SECTION START POINTS [9005] 56601 NOTES RADIX 6/1/0 1282 [9005] 56602 583 62 1 0 0 'SEC' SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 2 [9007] 56603 05 5 2 1 0 0 TRANSFER 6/1/0 1284 [9008] 56604 583 64 1 0 0 'TION' SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 4 [9010] 56605 05 5 4 1 0 0 TRANSFER 6/1/0 1304 [9011] 56606 0 583 84 1 0 0 SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 6 [9013] 56607 05 5 6 1 0 0 TRANSFER 26/1/1 4272 [9014] 56608 90 0 0 1 1 SELECT 94/1 - 94/99 SET MODIFICATION REGISTER AT LITERAL [9015] 56609 C 0 0 0 100 Limit Source: ChuckK/Q1000424 26/0/0 1012 [9015] 56610 80 576 2 0 0 0 >PRINT ENTER SUBROUTINE 26/1/2 4274 [9016] 56611 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [9017] 56612 C 0 0 0 48 Limit 6/0/1 5450 [9017] 56613 94 0 0 1 0 SELECT 27/0/0 849 [9018] 56614 70 566 27 0 0 0 >SEC NOT USED JUMP IF A == 0 26/0/0 1092 [9019] 56615 80 578 2 0 0 0 TO DEC ENTER SUBROUTINE 2/0/0 1223 [9020] 56616 5 583 3 0 0 0 SEC START TRANSFER 24/0/3 22 [9021] 56617 96 0 0 1 0 SELECT MODIFIER 6/0/0 2 [9022] 26/0/0 1092 [9023] 56618 80 578 2 0 0 0 TO DEC ENTER SUBROUTINE 2/0/0 1222 [9024] 56619 5 583 2 0 0 0 SEC NUMBER TRANSFER 0/1/0 40 [9025] 56620 52 5 2 0 2 0 EDIT 0/0/3 0 [9026] 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 2 [9028] 24/0/3 22 [9029] 4/0/0 4 [9030] 2/0/0 40 [9031] 0/1/1 40 [9032] 24/0/2 1556 [9033] 24/1/2 40 [9034] 28/1/2 0 [9035] 56621 C 595 2 0 0 0 0/0/3 0 [9036] 56622 62 0 0 0 0 BIN SET EXCESS CONSTANTS 25/0/2 4 [9037] 56623 94 566 27 0 2 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 849 [9038] s 26/0/0 1012 [9039] 56624 80 576 2 0 0 0 PRINT ENTER SUBROUTINE 26/1/2 4276 [9040] 56625 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [9041] 56626 C 0 0 0 48 Limit 25/0/1 1 [9041] 56627 94 566 13 0 1 1 >NEXT SECTION STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 825 [9042] s 26/0/0 1012 [9043] 56628 80 576 2 0 0 0 PRINT LAST LINE ENTER SUBROUTINE 24/1/0 897 [9044] 56629 76 569 2 0 0 0 >PRINT SWITCHES JUMP unconditional Start of procedure 567 at location 853 in chapter 5 [9045] [9045] 56700 PROCR 567 PRINT LOCNS OF MOD REGISTERS 4-20 [9045] 56701 NOTES 24/0/2 1562 [9045] 56702 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [9047] 56703 C 595 8 0 0 0 26/0/0 1012 [9048] 56704 80 576 2 0 0 0 >PRINT HEADING ENTER SUBROUTINE 26/1/1 4278 [9049] 56705 90 0 0 1 0 PRINT CONTROL SET MODIFICATION REGISTER AT LITERAL [9050] 56706 C 0 0 0 48 Limit 26/1/2 4280 [9050] 56707 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [9051] 56708 C 0 0 0 17 SEARCH SEC 71 Limit 0/1/0 40 [9051] 56709 34 71 2 0 2 0 SET (N) IN B 0/0/3 0 [9052] 6/0/2 5432 [9053] 2/1/0 42 [9054] 0/1/1 40 [9055] 27/1/0 867 [9056] 56710 74 567 13 0 0 0 >NOT USED JUMP IF AB == 0 // 27, 1, 0 26/0/0 923 [9057] 56711 80 570 2 0 0 0 >DECODE ENTER SUBROUTINE 26/0/0 933 [9058] 56712 80 571 2 0 0 0 >EDIT+PRINT ENTER SUBROUTINE 25/0/2 1 [9059] 56713 94 567 9 0 2 1 >NEXT MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 859 [9060] s 26/0/0 1012 [9061] 56714 80 576 2 0 0 0 >PRINT LAST LINE ENTER SUBROUTINE 6/1/0 4282 [9062] 56715 90 0 0 12 2499 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8190 [9063] 56716 C 0 0 0 0 Simulated modifier 6/1/0 4284 [9064] 56717 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8182 [9065] 56718 C 0 0 0 40 Simulated modifier 3/1/0 40 [9066] 56719 91 0 0 1 0 CLEAR R1 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [9067] 24/1/0 46 [9068] 56720 76 553 2 0 0 0 CALL PASS 4 JUMP unconditional Start of procedure 568 at location 877 in chapter 5 [9069] [9069] 56800 PROCR 568 PRINT LOCATIONS OF ITEM+ COUNTERS [9069] 56801 NOTES 24/0/2 1566 [9069] 56802 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [9071] 56803 C 595 12 0 0 0 26/0/0 1012 [9072] 56804 80 576 2 0 0 0 >PRINT HEADING ENTER SUBROUTINE 0/0/2 6089 [9073] 56805 34 98 1 0 0 0 SET (N) IN B 27/1/0 853 [9074] 56806 74 567 2 0 0 0 >NONE JUMP IF AB == 0 // 27, 1, 0 26/1/1 4286 [9075] 56807 90 0 0 1 0 PRINT CONTROL SET MODIFICATION REGISTER AT LITERAL [9076] 56808 C 0 0 0 48 Limit 26/1/2 4288 [9076] 56809 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [9077] 56810 C 0 0 0 10 TO SEARCH SEC 98 Limit 0/1/0 40 [9077] 56811 34 98 2 0 2 0 SET (N) IN B 0/0/3 0 [9078] 6/0/2 6090 [9079] 2/1/0 42 [9080] 0/1/1 40 [9081] 27/1/0 893 [9082] 56812 74 568 15 0 0 0 >NOT USED? JUMP IF AB == 0 // 27, 1, 0 Source: ChuckK/Q1000425 26/0/0 923 [9083] 56813 80 570 2 0 0 0 >DECODE ENTER SUBROUTINE 26/0/0 933 [9084] 56814 80 571 2 0 0 0 >EDIT AND PRINT ENTER SUBROUTINE 25/0/2 1 [9085] 56815 94 568 11 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 885 [9086] s 26/0/0 1012 [9087] 56816 80 576 2 0 0 0 >PRINT LAST LINE ENTER SUBROUTINE 24/1/0 853 [9088] 56817 76 567 2 0 0 0 >PRINT MOD REGISTERS JUMP unconditional Start of procedure 569 at location 897 in chapter 5 [9089] [9089] 56900 PROCR 569 PRINT LOCATION OF SWITCHES [9089] 56901 NOTES 24/0/2 1570 [9089] 56902 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [9091] 56903 C 595 16 0 0 0 26/0/0 1012 [9092] 56904 80 576 2 0 0 0 >PRINT HEADING ENTER SUBROUTINE 26/1/1 4290 [9093] 56905 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [9094] 56906 C 0 0 0 48 Limit 26/1/2 6100 [9094] 56907 91 95 0 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 25/0/2 0 [9095] 56908 94 569 10 0 2 0 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 906 [9096] s 24/1/0 877 [9097] 56909 76 568 2 0 0 0 >PRINT ITEM+ JUMP unconditional 1/1/3 0 [9098] 56910 10 0 0 0 0 SELECT LITERAL 0/0/2 1320 [9099] 56911 34 584 8 0 0 0 BITS 1-10 SET (N) IN B 15/0/2 6102 [9100] 56912 36 95 2 0 2 0 COLLATE AND ADD 27/0/0 919 [9101] 56913 70 569 23 0 0 0 >STEP R2 JUMP IF A == 0 2/0/0 1224 [9102] 56914 5 583 4 0 0 0 TRANSFER 6/0/2 6102 [9103] 56915 95 2 0 2 0 SELECT 18/1/1 4124 [9104] 56916 32 0 0 0 4- SHIFT (AB) BY QUARTETS 2/0/0 1222 [9105] 56917 5 583 2 0 0 0 CHAP OF SWITCH TRANSFER 18/1/3 6 [9106] 56918 33 0 0 0 6 CTR IN PROCR SHIFT (AB) BY BITS 24/0/1 1222 [9107] 56919 124 583 2 0 1 0 MODIFY ADDRESS OF NEXT 4/0/0 5415 [9108] 56920 1 72 17 0 0 0 PROCR START ADD 2/0/0 1223 [9109] 56921 5 583 3 0 0 0 TRANSFER 26/0/0 933 [9110] 56922 80 571 2 0 0 0 >EDIT AND PRINT ENTER SUBROUTINE 25/0/2 1 [9111] 56923 94 569 11 0 2 1 >NEXT SWITCH STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 907 [9112] s 26/0/0 1012 [9113] 56924 80 576 2 0 0 0 >PRINT LAST LINE ENTER SUBROUTINE 24/1/0 877 [9114] 56925 76 568 2 0 0 0 >PRINT ITEM+ JUMP unconditional Start of procedure 570 at location 923 in chapter 5 [9115] [9115] 57000 PROCR 570 TO SORT OUT MR>3 AND ITEM+ COUNTERS [9115] 57001 NOTES 0/0/0 0 [9115] 57002 81 570 2 0 0 0 START OF SUBROUTINE 18/1/1 6 [9116] 57003 32 0 0 0 6 SHIFT (AB) BY QUARTETS 2/0/0 1222 [9117] 57004 5 583 2 0 0 0 CHAP TRANSFER 18/1/1 2 [9118] 57005 32 0 0 0 2 CTR IN PROCR SHIFT (AB) BY QUARTETS 24/0/1 1222 [9119] 57006 124 583 2 0 1 0 MODIFY ADDRESS OF NEXT 4/0/0 5415 [9120] 57007 1 72 17 0 0 0 PROCR START ADD 2/0/0 1223 [9121] 57008 5 583 3 0 0 0 TRANSFER 18/1/1 2 [9122] 57009 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/0/0 1224 [9123] 57010 5 583 4 0 0 0 SEC NO/MOD REG WAS Q1.2 TRANSFER 26/0/1 923 [9124] 57011 82 570 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 571 at location 933 in chapter 5 [9125] [9125] 57100 PROCR 571 EDIT AND OUTPUT DETAIL FOR TRANSLATOR'S WORKING SECTIONS [9125] 57101 NOTES RADIX 0/0/0 0 [9125] 57102 81 571 2 0 0 0 START OF SUBROUTINE 6/0/0 1222 [9126] 57103 0 583 2 0 0 0 SELECT 26/0/0 1092 [9127] 57104 80 578 2 0 0 0 TO DEC ENTER SUBROUTINE 2/0/0 1222 [9128] 57105 5 583 2 0 0 0 TRANSFER 6/0/0 1223 [9129] 57106 0 583 3 0 0 0 SELECT 26/0/0 1092 [9130] 57107 80 578 2 0 0 0 ENTER SUBROUTINE 2/0/0 1223 [9131] 57108 5 583 3 0 0 0 TRANSFER 6/0/0 1224 [9132] 57109 0 583 4 0 0 0 SELECT 26/0/0 1092 [9133] 57110 80 578 2 0 0 0 ENTER SUBROUTINE 2/0/0 1224 [9134] 57111 5 583 4 0 0 0 TRANSFER 0/0/3 0 [9135] 57112 62 0 0 0 0 BIN SET EXCESS CONSTANTS 0/1/0 40 [9136] 57113 52 5 2 0 1 0 EDIT 0/0/3 0 [9137] 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 2 [9139] 24/0/3 22 [9140] 4/0/0 2 [9141] 2/0/0 40 [9142] 0/1/1 40 [9143] 24/0/2 1574 [9144] 24/1/2 40 [9145] 28/1/2 0 [9146] 57114 C 595 20 0 0 0 Source: ChuckK/Q1000426 25/0/1 6 [9147] 57115 94 571 19 0 1 6 >LINE NOT FULL STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 959 [9148] s 26/0/0 1012 [9149] 57116 80 576 2 0 0 0 >PRINT ENTER SUBROUTINE 26/1/1 4292 [9150] 57117 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [9151] 57118 C 0 0 0 48 Limit 26/0/1 933 [9151] 57119 82 571 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 572 at location 960 in chapter 5 [9152] [9152] 57200 PROCR 572 READ A2 [9152] 57201 NOTES 0/0/0 0 [9152] 57202 81 572 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [9153] 57203 42 A2 0 0 0 0 INPUT 0/0/3 0 [9154] 0/0/2 18 [9155] 57204 C 8 0 0 0 0 INPUT 6/1/0 0 [9156] 1/1/1 36 [9157] 25/1/1 4096 [9158] 24/0/3 0 [9159] 23/0/2 42 [9160] 0/1/1 40 [9161] 26/0/1 960 [9162] 57205 82 572 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 573 at location 971 in chapter 5 [9163] [9163] 57300 PROCR 573 INPUT OFF PASS 2 [9163] 57301 NOTES RADIX B SUB ROUTINE 0/0/0 0 [9163] 57302 81 573 2 0 0 0 START OF SUBROUTINE 25/0/2 8 [9164] 57303 94 573 7 0 2 8 STANDARD INCREMENT STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 976 [9165] 26/0/0 977 [9166] 57304 80 574 2 0 0 0 READ A6->SEC 9 ENTER SUBROUTINE 26/1/2 4294 [9167] 57305 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [9168] 57306 C 0 0 0 144 Limit 26/0/1 971 [9168] 57307 82 573 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 574 at location 977 in chapter 5 [9169] [9169] 57400 PROCR 574 INPUT [9169] 57401 NOTES RADIX B SUB ROUTINE 0/0/0 0 [9169] 57402 81 574 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [9170] 57403 42 A6 0 0 0 0 INPUT 0/0/3 0 [9171] 0/0/2 20 [9172] 57404 C 9 0 0 0 0 INPUT 6/1/0 0 [9173] 1/1/1 45 [9174] 25/1/1 4096 [9175] 24/0/3 0 [9176] 23/0/2 42 [9177] 0/1/1 40 [9178] 26/0/1 977 [9179] 57405 82 574 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 575 at location 988 in chapter 5 [9180] [9180] 57500 PROCR 575 WRITE ON WORKING TAPE [9180] 57501 NOTES 0/0/0 0 [9180] 57502 81 575 2 0 0 0 START OF SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 24/0/2 4 [9182] 57503 55 8 4 1 0 50 COPY ANNEXES BULK COPY 18/1/0 4123 [9183] 57504 C 9 4 1 0 0 1/1/3 50 [9184] 18/1/1 5 [9185] 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/1 4 [9187] 6/1/0 1276 [9188] 57505 0 583 56 1 0 0 BEW SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 52 [9190] 57506 5 9 52 1 0 0 TRANSFER 0/1/0 40 [9191] 57507 43 A6 0 0 0 0 OUTPUT 0/0/3 0 [9192] 0/0/2 20 [9193] 57508 C 9 0 0 0 0 OUTPUT 6/1/0 0 [9194] 1/1/1 45 [9195] 25/1/1 4096 [9196] 24/0/3 0 [9197] 23/0/2 43 [9198] 0/1/1 40 [9199] 6/1/0 4296 [9200] 57509 54 9 0 0 0 52 BULK CLEAR 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/0/0 0 [9202] 26/0/1 988 [9203] 57510 82 575 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 576 at location 1012 in chapter 5 [9204] [9204] 57600 PROCR 576 PRINT [9204] 57601 NOTES RADIX B SUB ROUTINE 0/0/0 0 [9204] 57602 81 576 2 0 0 0 START OF SUBROUTINE 0/0/3 0 [9205] 57603 62 0 0 0 0 SET EXCESS CONSTANTS 6/1/0 1276 [9206] 57604 583 56 1 0 0 SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 52 [9208] 57605 5 5 52 1 0 0 BEW TRANSFER 6/0/0 1381 [9209] 57606 587 9 0 0 0 HEAD OF FORM OR TRAC1 SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 0 [9211] 57607 5 5 0 1 0 0 FUNCTION WORD TRANSFER 1/1/3 1 [9212] 57608 10 0 0 0 1 SELECT LITERAL 2/0/0 1381 [9213] 57609 5 587 9 0 0 0 TRANSFER 6/0/0 6319 [9214] 57610 27 9 0 0 0 SELECT 27/0/0 1042 [9215] 57611 70 576 16 0 0 0 >PRINTER JUMP IF A == 0 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 0 [9217] 57612 55 5 0 1 0 50 BULK COPY 18/1/0 4123 [9218] 57613 C 10 4 1 6 0 0/0/0 0 act unimp [9219] 57613 C 10 4 1 6 0 Bulk copy simulated modifier 0/1/0 40 [9220] 0/0/3 0 [9221] 24/1/2 13 Extra code needed to address transit area no 0, section 10 24/0/2 4 [9223] 24/0/3 22 [9224] 4/0/0 12 [9225] 2/0/0 40 [9226] 0/1/1 40 [9227] 1/1/3 50 [9228] 18/1/1 5 [9229] 24/1/2 40 [9230] 28/1/1 0 [9231] 26/0/0 1104 [9232] 57614 80 580 2 0 0 0 >WRITE ON A9 ENTER SUBROUTINE 24/1/0 1070 [9233] 57615 76 576 38 0 0 0 JUMP unconditional 6/0/0 6318 [9234] 57616 27 8 0 0 0 PRINTER TYPE SELECT 1/1/2 9 [9235] 57617 12 0 0 0 9 SUBTRACT LITERAL Source: RayS/Q1000427 27/0/0 1061 [9236] 57618 70 576 34 0 0 0 >SPECIAL JUMP IF A == 0 6/0/0 4214 [9237] 57619 10 0 0 0 80000 SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/0/0 1 [9239] 57620 5 5 1 0 0 0 BIT 40 TRANSFER 24/1/2 15 [9240] 57621 124 999 15 1 2 0 SEC 5 MODIFY ADDRESS OF NEXT 24/0/2 0 [9241] 57622 124 0 0 2 0 SELECT LITERAL AND DIVISION 24/1/2 13 [9242] 57623 124 999 13 1 2 0 SEC 10 MODIFY ADDRESS OF NEXT 29/0/1 0 [9243] 57624 129 0 0 1 0 EDIT FOR ANELEX OUTPUT 1/1/3 4 [9244] 57625 10 0 0 0 4 SELECT LITERAL 18/0/1 5 [9245] 57626 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 7 [9246] 57627 1 999 7 0 0 0 ROUTE ADD 0/0/2 12 [9247] 57628 34 999 12 0 0 0 SET (N) IN B 25/1/1 4096 [9248] 57629 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 0 [9249] 57630 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [9250] 57631 123 160 0 2 0 ENTER MASTER ROUTINE 0/0/3 0 [9251] 57632 62 0 0 0 0 SET EXCESS CONSTANTS 24/1/0 1070 [9252] 57633 76 576 38 0 0 0 JUMP unconditional 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 0 [9254] 57634 55 5 0 1 0 54 BULK COPY 18/1/0 4123 [9255] 57635 C 10 0 1 0 0 1/1/3 54 [9256] 18/1/1 5 [9257] 24/1/2 13 Extra code needed to address transit area no 0, section 10 28/1/1 0 [9259] 1/1/3 9 [9260] 57636 10 0 0 0 9 SELECT LITERAL 24/1/0 1053 [9261] 57637 76 576 26 0 0 0 JUMP unconditional 6/1/0 4298 [9262] 57638 54 5 0 0 0 50 BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/0/0 0 [9264] 2/0/0 5077 [9265] 57639 5 16 1 0 0 0 CLEAR INDICATOR TRANSFER 26/0/1 1012 [9266] 57640 82 576 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 577 at location 1075 in chapter 5 [9267] [9267] 57700 PROCR 577 OUTPUT ON A2 [9267] 57701 NOTES RADIX B SUB ROUTINE 0/0/0 0 [9267] 57702 81 577 2 0 0 0 START OF SUBROUTINE 6/1/0 1276 [9268] 57703 583 56 1 0 0 BEW SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 52 [9270] 57704 5 8 52 1 0 0 TRANSFER 0/1/0 40 [9271] 57705 43 A2 0 0 0 0 OUTPUT OUTPUT 0/0/3 0 [9272] 0/0/2 18 [9273] 57706 C 8 0 0 0 0 OUTPUT 6/1/0 0 [9274] 1/1/1 36 [9275] 25/1/1 4096 [9276] 24/0/3 0 [9277] 23/0/2 43 [9278] 0/1/1 40 [9279] 6/1/0 4300 [9280] 57707 54 8 0 0 0 52 CLEAR BULK CLEAR 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/0 0 [9282] 26/0/1 1075 [9283] 57708 82 577 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 578 at location 1092 in chapter 5 [9284] [9284] 57800 PROCR 578 CONVERT (A) TO DECIMAL [9284] 57801 NOTES 0/0/0 0 [9284] 57802 81 578 2 0 0 0 START OF SUBROUTINE 2/1/0 1332 [9285] 57803 5 585 4 1 0 0 TRANSFER 0/0/3 4215 [9286] 57804 60 0 0 0 0 SET DECIMAL RADIX 24/0/2 1354 [9287] 57805 124 586 22 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 1332 [9288] 57806 112 585 4 1 0 0 CONVERT 26/0/1 1092 [9289] 57807 82 578 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 579 at location 1098 in chapter 5 [9290] [9290] 57900 PROCR 579 CONVERT (A) TO BIN [9290] 57901 NOTES 0/0/0 0 [9290] 57902 81 579 2 0 0 0 START OF SUBROUTINE 2/1/0 1332 [9291] 57903 5 585 4 1 0 0 TRANSFER 0/0/3 0 [9292] 57904 62 0 0 0 0 SET EXCESS CONSTANTS 24/0/2 1334 [9293] 57905 124 586 2 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 1332 [9294] 57906 112 585 4 1 0 0 CONVERT 26/0/1 1098 [9295] 57907 82 579 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 580 at location 1104 in chapter 5 [9296] [9296] 58000 PROCR 580 O/P>A9 0/0/0 0 [9296] 58002 81 580 2 0 0 0 START OF SUBROUTINE 23/0/0 50 [9297] 58003 94 580 9 0 6 50 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8180 [9298] 24/1/0 1114 [9299] s 6/1/0 1276 [9300] 58004 583 56 1 0 0 BEW SELECT 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 306 [9302] 58005 5 10 306 1 0 0 TRANSFER 26/0/0 1115 [9303] 58006 80 581 2 0 0 0 ENTER SUBROUTINE 6/1/0 4302 [9304] 58007 90 0 0 6 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8180 [9305] 58008 C 0 0 0 300 Simulated modifier Source: RayS/Q1000428 26/0/1 1104 [9306] 58009 82 580 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 581 at location 1115 in chapter 5 [9307] [9307] 58100 PROCR 581 WRITE A9 0/0/0 0 [9307] 58102 81 581 2 0 0 0 START OF SUBROUTINE 6/1/0 4304 [9308] 58103 10 0 0 0 800000 SELECT LITERAL 0/0/2 12 [9309] 58104 34 999 12 0 0 0 SEC 10 SET (N) IN B 25/1/1 4096 [9310] 58105 125 4096 1 1 0 CLEAR INDICATORS 4/0/0 7 [9311] 58106 1 999 7 0 0 0 D1/A9 ADD 24/0/3 0 [9312] 58107 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [9313] 58108 123 160 0 2 0 ENTER MASTER ROUTINE 26/0/1 1115 [9314] 58109 82 581 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 31/1/3 8191 [9315] Start of procedure 582 at location 1124 in chapter 5 [9316] [9316] 58200 CONST 582 1 PASS 3 BLISTER SPACE 0/0/0 0 [9316] 58202 (D)0; 00000 +00000 0/0/0 0 [9317] 0/0/0 0 [9318] 58204 0; 00000 +00000 0/0/0 0 [9319] 0/0/0 0 [9320] 58206 0; 00000 +00000 0/0/0 0 [9321] 0/0/0 0 [9322] 58208 0; 00000 +00000 0/0/0 0 [9323] 0/0/0 0 [9324] 58210 0; 00000 +00000 0/0/0 0 [9325] 0/0/0 0 [9326] 58212 0; 00000 +00000 0/0/0 0 [9327] 0/0/0 0 [9328] 58214 0; 00000 +00000 0/0/0 0 [9329] 0/0/0 0 [9330] 58216 0; 00000 +00000 0/0/0 0 [9331] 0/0/0 0 [9332] 58218 0; 00000 +00000 0/0/0 0 [9333] 0/0/0 0 [9334] 58220 0; 00000 +00000 0/0/0 0 [9335] 0/0/0 0 [9336] 58222 0; 00000 +00000 0/0/0 0 [9337] 0/0/0 0 [9338] 58224 0; 00000 +00000 0/0/0 0 [9339] 0/0/0 0 [9340] 58226 0; 00000 +00000 0/0/0 0 [9341] 0/0/0 0 [9342] 58228 0; 00000 +00000 0/0/0 0 [9343] 0/0/0 0 [9344] 58230 0; 00000 +00000 0/0/0 0 [9345] 0/0/0 0 [9346] 58232 0; 00000 +00000 0/0/0 0 [9347] 0/0/0 0 [9348] 58234 0; 00000 +00000 0/0/0 0 [9349] 0/0/0 0 [9350] 58236 0; 00000 +00000 0/0/0 0 [9351] 0/0/0 0 [9352] 58238 0; 00000 +00000 0/0/0 0 [9353] 0/0/0 0 [9354] 58240 0; 00000 +00000 0/0/0 0 [9355] 0/0/0 0 [9356] 58242 0; 00000 +00000 0/0/0 0 [9357] 0/0/0 0 [9358] 58244 0; 00000 +00000 0/0/0 0 [9359] 0/0/0 0 [9360] 58246 0; 00000 +00000 0/0/0 0 [9361] 0/0/0 0 [9362] 58248 0; 00000 +00000 0/0/0 0 [9363] 0/0/0 0 [9364] 58250 0; 00000 +00000 0/0/0 0 [9365] 0/0/0 0 [9366] 58252 0; 00000 +00000 0/0/0 0 [9367] 0/0/0 0 [9368] 58254 0; 00000 +00000 0/0/0 0 [9369] 0/0/0 0 [9370] 58256 0; 00000 +00000 0/0/0 0 [9371] 0/0/0 0 [9372] 58258 0; 00000 +00000 0/0/0 0 [9373] 0/0/0 0 [9374] 58260 0; 00000 +00000 0/0/0 0 [9375] 0/0/0 0 [9376] 58262 0; 00000 +00000 0/0/0 0 [9377] 0/0/0 0 [9378] 58264 0; 00000 +00000 0/0/0 0 [9379] 0/0/0 0 [9380] 58266 0; 00000 +00000 0/0/0 0 [9381] 0/0/0 0 [9382] 58268 0; 00000 +00000 0/0/0 0 [9383] 0/0/0 0 [9384] 58270 0; 00000 +00000 0/0/0 0 [9385] 0/0/0 0 [9386] 58272 0; 00000 +00000 0/0/0 0 [9387] 0/0/0 0 [9388] 58274 0; 00000 +00000 0/0/0 0 [9389] 0/0/0 0 [9390] 58276 0; 00000 +00000 0/0/0 0 [9391] 0/0/0 0 [9392] 58278 0; 00000 +00000 0/0/0 0 [9393] 0/0/0 0 [9394] 58280 0; 00000 +00000 0/0/0 0 [9395] 0/0/0 0 [9396] 58282 0; 00000 +00000 0/0/0 0 [9397] 0/0/0 0 [9398] 58284 0; 00000 +00000 0/0/0 0 [9399] 0/0/0 0 [9400] 58286 0; 00000 +00000 0/0/0 0 [9401] 0/0/0 0 [9402] 58288 0; 00000 +00000 0/0/0 0 [9403] 0/0/0 0 [9404] 58290 0; 00000 +00000 0/0/0 0 [9405] 0/0/0 0 [9406] 58292 0; 00000 +00000 0/0/0 0 [9407] Source: RayS/Q1000429 0/0/0 0 [9408] 58294 0; 00000 +00000 0/0/0 0 [9409] 0/0/0 0 [9410] 58296 0; 00000 +00000 0/0/0 0 [9411] 0/0/0 0 [9412] 58298 0; 00000 +00000 0/0/0 0 [9413] Start of procedure 583 at location 1222 in chapter 5 [9414] [9414] 58300 CONST 583 1 7/0/3 4942 [9414] 58302 (A)F.PT.; 7734E +564E6 5/0/3 1254 [9415] 8/0/2 5490 [9416] 58304 YES; 85572 +00007 0/0/0 7 [9417] 0/0/3 1382 [9418] 58306 NO; 06566 +00000 0/0/0 0 [9419] 6/0/2 5198 [9420] 58308 MOD.; 6544E +00646 0/0/0 1606 [9421] 7/0/3 1870 [9422] 58310 GP.; 7674E +00005 0/0/0 5 [9423] 9/0/3 1641 [9424] 58312 PRIOR; 96669 +67695 6/0/3 5781 [9425] 9/0/3 4984 [9426] 58314 ITY; 97378 +00005 0/0/0 5 [9427] 9/0/3 4723 [9428] 58316 FIRST; 97273 +56596 5/0/3 1430 [9429] 3/0/3 1358 [9430] 58318 LOCN.; 3654E +63665 6/0/1 5733 [9431] 1/0/3 1907 [9432] 58320 CHAPT; 16773 +53585 5/0/1 5509 [9433] 7/0/2 5455 [9434] 58322 TYPE£; 7554F +73786 7/0/1 6022 [9435] 3/0/2 5490 [9436] 58324 FILES; 35572 +56596 5/0/3 1430 [9437] 1/0/3 1358 [9438] 58326 TRAN.; 1654E +73695 7/0/1 5781 [9439] 5/0/2 4466 [9440] 58328 AREAS; 55172 +51695 5/0/0 5781 [9441] 3/0/2 3689 [9442] 58330 ALT.R; 34E69 +51637 5/0/0 5687 [9443] 3/0/2 5490 [9444] 58332 OUTES; 35572 +66747 6/0/3 1863 [9445] 6/0/2 5993 [9446] 58334 PROGR; 65769 +67696 6/0/3 5782 [9447] 4/0/3 1109 [9448] 58336 AMME; 46455 +00516 0/0/0 1302 [9449] 9/0/2 6481 [9450] 58338 SERIA; 95951 +72556 7/0/1 1366 [9451] 9/0/2 5198 [9452] 58340 ID.; 9544E +00005 0/0/0 5 [9453] 3/0/2 5454 [9454] 58342 RTE.; 3554E +00697 0/0/0 1687 [9455] 8/0/3 1877 [9456] 58344 TYPE; 86755 +00737 0/0/0 1847 [9457] 14/0/3 1622 [9458] 58346 ST.OF; E6656 +72734 7/0/1 1844 [9459] 6/0/2 4962 [9460] 58348 BLOCK; 65362 +52636 5/0/1 1590 [9461] 9/0/3 6485 [9462] 58350 SIZE; 97955 +00725 0/0/0 1829 [9463] 2/0/2 6515 [9464] 58352 SIT; 25973 +00007 0/0/0 7 [9465] 5/0/3 1364 [9466] 58354 PREND; 56554 +67695 6/0/3 5781 [9467] 0/0/0 126 [9468] 58356 (D)7.0000007.; 0007E +7E000 7/1/3 0 [9469] 3/0/2 6257 [9470] 58358 (A)= CH/; 35871 +5A005 5/1/1 5 [9471] 15/0/3 3951 [9472] 58360 (D)6£6£6£6£6£; F6F6F +6F6F6 6/1/3 5878 [9473] 2/0/2 5459 [9474] 58362 (A)SEC; 25553 +00007 0/0/0 7 [9475] 6/0/3 1358 [9476] 58364 TION.; 6654E +73596 7/0/1 5526 [9477] 9/0/3 1619 [9478] 58366 PROC; 96653 +00676 0/0/0 1654 [9479] 4/0/3 2389 [9480] 58368 EDURE; 46955 +55547 5/0/2 5447 [9481] 2/0/3 4675 [9482] 58370 PASS3; 27243 +67517 6/0/3 5399 [9483] 12/0/3 4608 [9484] 58372 (A)MR'S ; C7200 +64695 6/0/2 1685 [9485] 2/0/1 4096 [9486] 58374 4-20 ; 23000 +44104 4/0/2 260 [9487] 5/0/3 1100 [9488] 58376 ITEM+; 5644C +59735 5/1/0 5941 [9489] 3/0/3 2418 [9490] 58378 CTRS; 36972 +00537 0/0/0 1335 [9491] 9/0/3 4947 [9492] 58380 SWITC; 97353 +72765 7/0/1 1893 [9493] 2/0/0 0 [9494] 58382 HES ; 20000 +58557 5/1/0 1367 [9495] 1/0/3 2419 [9496] 58384 (A)START; 16973 +72735 7/0/1 1845 [9497] 3/0/2 5490 [9498] 58386 NOTES; 35572 +65667 6/0/2 5735 [9499] 6/0/3 1635 [9500] 58388 SPOOL; 66663 +72676 7/0/1 1654 [9501] 3/0/3 2424 [9502] 58390 ENTRY; 36978 +55657 5/0/2 5719 [9503] 1/1/0 1696 [9504] 58392 (B)100000; 100,000 186A0 +00000 0/0/0 0 [9505] Start of procedure 584 at location 1314 in chapter 5 [9506] [9506] 58400 CONST 584 1 0/0/2 7774 [9506] 58402 (D)5.5.; 05E5E +00000 0/0/0 0 [9507] 4/0/2 5495 [9508] 58404 (A)INDEX; 45577 +59655 5/1/0 5717 [9509] 1/0/2 6501 [9510] 58406 CHAIN; 15965 +53585 5/0/1 5509 [9511] 0/0/0 1023 [9512] 58408 (D)7£££0003££; BITS 5-19+1-10 003FF +7FFF0 7/1/3 8176 [9513] 0/0/1 4144 [9514] 58410 (A)08000; 03030 +30483 3/0/0 1155 [9515] 2/0/0 89 [9516] 58412 PTS I; 20059 +67737 6/0/3 5943 [9517] 3/0/3 5204 [9518] 58414 NCLUD; 37454 +65536 6/0/2 5430 [9519] Source: RayS/Q1000430 0/0/0 0 [9520] 58416 ED ; 00000 +55540 5/0/2 5440 [9521] Start of procedure 585 at location 1330 in chapter 5 [9522] [9522] 58500 CONST 585 1 CONVERT TABLE 0/0/0 1 [9522] 58502 (D)1; BIN>DEC 00001 +00000 0/0/0 0 [9523] 0/0/0 0 [9524] 58504 0; (A) WL 00000 +00000 0/0/0 0 [9525] Start of procedure 586 at location 1334 in chapter 5 [9526] [9526] 58600 CONST 586 1 COMPLIER'S CONVERT TABLES 0/0/0 1 [9526] 58602 (D)1; DEC>BIN 00001 +00000 0/0/0 0 [9527] 0/0/0 10 [9528] 58604 t; 0000A +00000 0/0/0 0 [9529] 0/0/0 100 [9530] 58606 64; 00064 +00000 0/0/0 0 [9531] 0/0/0 1000 [9532] 58608 3.8; 003E8 +00000 0/0/0 0 [9533] 0/0/1 1808 [9534] 58610 2710; 02710 +00000 0/0/0 0 [9535] 1/1/0 1696 [9536] 58612 186t0; 186A0 +00000 0/0/0 0 [9537] 15/0/2 576 [9538] 58614 £4240; F4240 +00000 0/0/0 0 [9539] 8/1/0 5760 [9540] 58616 989680; 89680 +00009 0/0/0 9 [9541] 5/1/3 256 [9542] 58618 5£5.100; 5E100 +0005F 0/0/0 95 [9543] 10/1/2 2560 [9544] 58620 3e9t+t00; ACA00 +003B9 0/0/0 953 [9545] 0/0/0 1 [9546] 58622 1; BIN>DEC 00001 +00000 0/0/0 0 [9547] 0/0/0 22 [9548] 58624 16; 00016 +00000 0/0/0 0 [9549] 0/0/0 598 [9550] 58626 256; 00256 +00000 0/0/0 0 [9551] 0/0/2 150 [9552] 58628 4096; 04096 +00000 0/0/0 0 [9553] 6/0/2 5430 [9554] 58630 65536; 65536 +00000 0/0/0 0 [9555] 4/1/0 1398 [9556] 58632 1048576; 48576 +00010 0/0/0 16 [9557] 7/0/3 4630 [9558] 58634 16777216; 77216 +00167 0/0/0 359 [9559] 3/0/2 5206 [9560] 58636 268435456; 35456 +02684 0/0/1 1668 [9561] 6/0/3 4758 [9562] 58638 4294967296; 67296 +42949 4/0/1 2377 [9563] 15/1/3 8191 [9564] 58640 ££££££££££; FFFFF +FFFFF 15/1/3 8191 [9565] Start of procedure 587 at location 1374 in chapter 5 [9566] [9566] 58700 CONST 587 0 0/0/0 7 [9566] 58702 (D)7; +00007 8/0/0 0 [9567] 58703 80000; +80000 0/0/0 0 [9568] 58704 0; THIS IS A 0/1 FLIPFLOP FOR SC'S FWD +00000 0/0/0 63 [9569] 58705 3£; BITS 1-6 +0003F 15/0/0 0 [9570] 58706 £0000; £ IN Q5 +F0000 0/0/0 127 [9571] 58707 7£; +0007F 0/0/0 128 [9572] 58708 80; HEAD OF FORM +00080 0/0/0 0 [9573] 58709 0; IND FOR HEAD OF FORM +00000 3/1/3 8176 [9574] 58710 3£££0; BITS 5-18 +3FFF0 31/1/3 8191 [9575] Start of procedure 588 at location 1384 in chapter 5 [9576] [9576] 58800 TABLE 588 1 TRIAL DATA HEADING+T/W COMMENT Start of procedure 589 at location 1384 in chapter 5 [9576] [9576] 58900 TABLE 589 1 PRINT HEADING DATA 0/0/1 1240 [9576] 58902 583 20 0 0 2 0 4 0 1 0 0 0 0 3/0/0 20 [9577] 0/0/1 1258 [9578] 58904 583 38 0 0 2 0 1 0 0 0 0 0 0 3/0/0 1 [9579] 0/0/1 5032 [9580] 58906 11 8 0 0 2 0 1 4 2 0 0 0 0 3/0/0 1057 [9581] 0/0/1 1244 [9582] 58908 583 24 0 0 2 0 5 0 3 0 0 0 0 3/0/0 53 [9583] 0/0/1 5034 [9584] 58910 11 10 0 0 0 0 2 3 2 1 0 0 0 0/0/0 4898 [9585] 0/0/1 1246 [9586] 58912 583 26 0 0 2 0 5 0 7 0 0 0 0 3/0/0 117 [9587] 0/0/1 1248 [9588] 58914 583 28 0 0 2 0 5 0 2 0 0 0 0 3/0/0 37 [9589] 0/0/1 5036 [9590] 58916 11 12 0 0 0 0 2 3 2 1 0 0 0 0/0/0 4898 [9591] 0/0/1 1276 [9592] 58918 583 56 0 0 2 0 5 0 6 0 0 0 1 19/0/0 101 [9593] 0/0/1 5048 [9594] 58920 13 4 0 0 0 0 5 0 0 0 0 0 0 0/0/0 5 [9595] 0/0/1 5047 [9596] 58922 13 3 0 0 0 0 5 0 0 0 0 0 0 0/0/0 5 [9597] 0/0/1 5044 [9598] 58924 13 0 0 0 0 0 5 0 0 0 0 0 0 0/0/0 5 [9599] 0/0/1 5046 [9600] 58926 13 2 0 0 0 0 5 0 0 0 0 0 1 16/0/0 5 [9601] Start of procedure 590 at location 1410 in chapter 5 [9602] [9602] 59000 TABLE 590 1 PRINT Source: RayS/Q1000431 0/0/1 1244 [9602] 59002 583 24 0 0 2 0 4 0 1 0 0 0 0 3/0/0 20 [9603] 0/0/1 1260 [9604] 59004 583 40 0 0 2 0 3 2 2 0 0 0 0 FILE 10. 3/0/0 547 [9605] 0/0/1 1262 [9606] 59006 583 42 0 0 2 0 4 1 6 0 0 0 0 3/0/0 356 [9607] 0/0/1 1264 [9608] 59008 583 44 0 0 2 0 4 1 2 0 0 0 0 RTE. TYPE 3/0/0 292 [9609] 0/0/1 1304 [9610] 59010 583 84 0 0 2 0 5 0 6 0 0 0 0 3/0/0 101 [9611] 0/0/1 1238 [9612] 59012 583 18 0 0 2 0 5 0 2 0 0 0 0 START LOCN. 3/0/0 37 [9613] 0/0/1 1250 [9614] 59014 583 30 0 0 2 0 5 0 6 0 0 0 0 3/0/0 101 [9615] 0/0/1 1252 [9616] 59016 583 32 0 0 2 0 5 0 0 0 0 0 0 ALT. ROUTES 3/0/0 5 [9617] 0/0/1 1268 [9618] 59018 583 48 0 0 2 0 5 0 4 0 0 0 0 3/0/0 69 [9619] 0/0/1 1270 [9620] 59020 583 50 0 0 2 0 5 0 1 0 0 0 0 'BLOCK SIZE' 3/0/0 21 [9621] 0/0/1 1240 [9622] 59022 583 20 0 0 2 0 5 0 10 0 0 0 1 CHAPT 19/0/0 165 [9623] Start of procedure 591 at location 1432 in chapter 5 [9624] [9624] 59100 TABLE 591 1 0/0/1 1270 [9624] 59102 583 50 0 0 2 0 5 0 3 0 0 0 0 LGTH.OF CHAPS 3/0/0 53 [9625] 0/0/1 1266 [9626] 59104 583 46 0 0 2 0 2 3 2 0 0 0 0 3/0/0 802 [9627] 0/0/1 1240 [9628] 59106 583 20 0 0 2 0 4 0 2 0 0 0 0 3/0/0 36 [9629] 0/0/1 1258 [9630] 59108 583 38 0 0 2 0 1 0 0 0 0 0 0 3/0/0 1 [9631] 0/0/1 5044 [9632] 59110 13 0 0 0 0 0 5 0 2 4 2 0 0 4/0/2 37 [9633] 0/0/1 5045 [9634] 59112 13 1 0 0 0 0 5 0 2 4 2 0 0 4/0/2 37 [9635] 0/0/1 5046 [9636] 59114 13 2 0 0 0 0 5 0 2 4 2 0 0 4/0/2 37 [9637] 0/0/1 5047 [9638] 59116 13 3 0 0 0 0 5 0 2 4 2 0 0 4/0/2 37 [9639] 0/0/1 5048 [9640] 59118 13 4 0 0 0 0 5 0 2 4 2 0 0 4/0/2 37 [9641] 0/0/1 5049 [9642] 59120 13 5 0 0 0 0 5 0 2 4 2 0 0 4/0/2 37 [9643] 0/0/1 5050 [9644] 59122 13 6 0 0 0 0 5 0 2 4 2 0 1 20/0/2 37 [9645] 0/0/1 5044 [9646] 59124 13 0 0 0 0 0 5 0 0 0 0 0 0 TX AREA DETAILS MT 0/0/0 5 [9647] 0/0/1 5046 [9648] 59126 13 2 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [9649] 0/0/1 5048 [9650] 59128 13 4 0 0 2 0 5 0 0 0 0 0 1 19/0/0 5 [9651] Start of procedure 592 at location 1460 in chapter 5 [9652] [9652] 59200 TABLE 592 1 0/0/1 1222 [9652] 59202 583 2 0 0 2 0 5 0 4 0 0 0 0 F.PT. 3/0/0 69 [9653] 0/0/1 5044 [9654] 59204 13 0 0 0 2 0 3 2 2 0 0 0 0 XXX 3/0/0 547 [9655] 0/0/1 1228 [9656] 59206 583 8 0 0 2 0 4 1 7 0 0 0 0 3/0/0 372 [9657] 0/0/1 1230 [9658] 59208 583 10 0 0 2 0 3 2 2 0 0 0 0 MOD. GP. 3/0/0 547 [9659] 0/0/1 5046 [9660] 59210 13 2 0 0 2 0 3 2 2 0 0 0 0 XXX 3/0/0 547 [9661] 0/0/1 1232 [9662] 59212 583 12 0 0 2 0 5 0 7 0 0 0 0 3/0/0 117 [9663] 0/0/1 1234 [9664] 59214 583 14 0 0 2 0 3 2 0 0 0 0 0 PRIORITY 3/0/0 515 [9665] 0/0/1 5028 [9666] 59216 11 4 0 0 2 0 1 4 2 0 0 0 0 XXX 3/0/0 1057 [9667] 0/0/1 1310 [9668] 59218 583 90 0 0 2 0 5 0 7 0 0 0 0 'ENTRY' 3/0/0 117 [9669] 0/0/1 1278 [9670] 59220 583 58 0 0 2 0 4 0 0 0 0 0 0 '= CH' 3/0/0 4 [9671] 0/0/1 6022 [9672] 59222 92 8 0 0 0 0 1 4 0 0 0 0 0 CHAP NUMBER 0/0/0 1025 [9673] 0/0/1 1278 [9674] 59224 583 58 0 0 2 0 1 4 0 0 0 0 0 '/' 3/0/0 1025 [9675] 0/0/1 6020 [9676] 59226 92 6 0 0 0 0 4 1 0 3 0 0 1 LOCN IN CHAP 16/0/1 4356 [9677] Start of procedure 593 at location 1486 in chapter 5 [9678] [9678] 59300 TABLE 593 1 0/0/1 1380 [9678] 59302 587 8 0 0 0 0 5 0 0 4 0 0 0 CALL HEAD OF FORM 0/0/2 5 [9679] 0/0/1 1254 [9680] 59304 583 34 0 0 2 0 5 0 1 0 0 0 0 3/0/0 21 [9681] 0/0/1 1256 [9682] 59306 583 36 0 0 2 0 4 1 0 0 0 0 0 3/0/0 260 [9683] 0/0/1 5078 [9684] 59308 16 2 0 0 0 0 5 0 3 0 0 0 0 PROG IDENTITY 0/0/0 53 [9685] 0/0/1 1258 [9686] 59310 583 38 0 0 2 0 5 0 3 0 0 0 0 'SERIA- 3/0/0 53 [9687] 0/0/1 1238 [9688] 59312 583 18 0 0 2 0 1 0 0 0 0 0 0 '-L' 3/0/0 1 [9689] 0/0/1 5079 [9690] 59314 16 3 0 0 0 0 5 0 3 4 0 0 0 PROG SERIAL 0/0/2 53 [9691] 0/0/1 1240 [9692] 59316 583 20 0 0 2 0 4 0 15 0 0 0 0 'CHAP-' 3/0/0 244 [9693] 0/0/1 1258 [9694] 59318 583 38 0 0 2 0 1 0 0 0 0 0 0 -S' 3/0/0 1 [9695] 0/0/1 6043 [9696] 59320 92 29 0 0 0 0 1 4 2 0 0 0 0 NUMBER OF CHAPS 0/0/0 1057 [9697] 0/0/1 1244 [9698] 59322 583 24 0 0 2 0 5 0 3 0 0 0 0 'FILES' 3/0/0 53 [9699] 0/0/1 1075 [9700] 59324 577 2 0 0 0 0 1 4 2 0 0 0 0 NUMBER OF FILES 0/0/0 1057 [9701] 0/0/1 1246 [9702] 59326 583 26 0 0 2 0 5 0 6 0 0 0 0 'TRAN' 3/0/0 101 [9703] Source: DaveJ/Q1000432 0/0/1 1248 [9704] 59328 583 28 0 0 2 0 5 0 2 0 0 0 0 AREAS' 3/0/0 37 [9705] 0/0/1 1012 [9706] 59330 576 2 0 0 0 0 1 4 2 0 0 0 1 NUMBER OF TX AREAS 16/0/0 1057 [9707] Start of procedure 594 at location 1516 in chapter 5 [9708] [9708] 59400 TABLE 594 1 0/0/1 5024 [9708] 59402 11 0 0 0 2 0 5 0 6 0 0 0 0 FILE ID 3/0/0 101 [9709] 0/0/1 1222 [9710] 59404 583 2 0 0 0 0 4 0 12 3 0 0 0 ROUTE TYPE 0/0/1 4292 [9711] 0/0/1 5050 [9712] 59406 13 6 0 0 0 0 4 1 13 3 0 0 0 START LOCATION 0/0/1 4564 [9713] 0/0/1 5052 [9714] 59408 13 8 0 0 2 0 3 2 11 0 0 0 0 ALT ROUTE 3/0/0 691 [9715] 0/0/1 5048 [9716] 59410 13 4 0 0 0 0 4 1 12 3 0 0 0 LENGTH 0/0/1 4548 [9717] 0/0/1 5046 [9718] 59412 13 2 0 0 0 0 4 1 12 3 0 0 1 CHAPT' 16/0/1 4548 [9719] 0/0/1 1246 [9720] 59414 583 26 0 0 2 0 5 0 1 0 0 0 0 3/0/0 21 [9721] 0/0/1 1248 [9722] 59416 583 28 0 0 2 0 5 0 2 0 0 0 0 3/0/0 37 [9723] 0/0/1 1304 [9724] 59418 583 84 0 0 2 0 5 0 2 0 0 0 0 3/0/0 37 [9725] 0/0/1 1238 [9726] 59420 583 18 0 0 2 0 5 0 2 0 0 0 0 3/0/0 37 [9727] 0/0/1 1240 [9728] 59422 583 20 0 0 2 0 5 0 7 0 0 0 0 3/0/0 117 [9729] 0/0/1 1270 [9730] 59424 583 50 0 0 2 0 5 0 6 0 0 0 1 LGTH 19/0/0 101 [9731] 0/0/1 1222 [9732] 59426 583 2 0 0 0 0 5 0 5 5 0 0 0 SEC NO 0/0/2 4181 [9733] 0/0/1 5044 [9734] 59428 13 0 0 0 0 0 4 1 11 3 0 0 0 START 0/0/1 4532 [9735] 0/0/1 1584 [9736] 59430 596 2 0 0 0 0 1 4 13 0 0 0 0 CHAPTER 0/0/0 1233 [9737] 0/0/1 5048 [9738] 59432 13 4 0 0 0 0 4 1 7 3 0 0 1 LENGTH 16/0/1 4468 [9739] 0/0/1 5024 [9740] 59434 11 0 0 0 2 0 5 0 0 0 0 0 0 SENTINEL MARK 3/0/0 5 [9741] 0/0/1 5026 [9742] 59436 11 2 0 0 2 0 5 0 0 0 0 0 0 SENTINEL TYPE 3/0/0 5 [9743] 0/0/1 5028 [9744] 59438 11 4 0 0 2 0 5 0 0 0 0 0 0 PROG ID NO 3/0/0 5 [9745] 0/0/1 5030 [9746] 59440 11 6 0 0 2 0 5 0 0 0 0 0 1 SERIAL NO 19/0/0 5 [9747] Start of procedure 595 at location 1556 in chapter 5 [9748] [9748] 59500 TABLE 595 1 0/0/1 1222 [9748] 59502 583 2 0 0 0 0 2 3 3 1 0 0 0 SEQ NO 0/0/0 4914 [9749] 0/0/1 1278 [9750] 59504 583 58 0 0 2 0 1 0 0 0 0 0 0 =' 3/0/0 1 [9751] 0/0/1 1223 [9752] 59506 583 3 0 0 0 0 4 1 0 3 0 0 1 SECTION START 16/0/1 4356 [9753] 0/0/1 1292 [9754] 59508 583 72 0 0 2 0 5 0 0 0 0 0 0 MR'S 4-20 3/0/0 5 [9755] 0/0/1 1294 [9756] 59510 583 74 0 0 2 0 5 0 0 0 0 0 1 19/0/0 5 [9757] 0/0/1 1296 [9758] 59512 583 76 0 0 2 0 5 0 0 0 0 0 0 ITEM+COUNTERS 3/0/0 5 [9759] 0/0/1 1298 [9760] 59514 583 78 0 0 2 0 5 0 0 0 0 0 1 19/0/0 5 [9761] 0/0/1 1300 [9762] 59516 583 80 0 0 2 0 5 0 0 0 0 0 0 SWITCHES 3/0/0 5 [9763] 0/0/1 1302 [9764] 59518 583 82 0 0 2 0 5 0 0 0 0 0 1 19/0/0 5 [9765] 0/0/1 1224 [9766] 59520 583 4 0 0 0 0 5 0 0 4 0 0 0 SW/MR/SEC 0/0/2 5 [9767] 0/0/1 1278 [9768] 59522 583 58 0 0 2 0 4 0 0 0 0 0 0 =CH' 3/0/0 4 [9769] 0/0/1 1222 [9770] 59524 583 2 0 0 0 0 1 4 0 0 0 0 0 CHAP NO 0/0/0 1025 [9771] 0/0/1 1278 [9772] 59526 583 58 0 0 2 0 1 4 0 0 0 0 0 /' 3/0/0 1025 [9773] 0/0/1 1223 [9774] 59528 583 3 0 0 0 0 4 1 0 3 0 0 1 POSITION 16/0/1 4356 [9775] Start of procedure 596 at location 1584 in chapter 5 [9776] [9776] 59600 PROCR 596 0 0 0 COPY CHUNK FROM STORE S/R 0/0/0 0 [9776] 59602 81 596 2 0 0 0 START OF SUBROUTINE 24/0/3 22 [9777] 59603 96 0 0 2 0 STORE CHUNK START FOR PARAS 1 AND 5 SELECT MODIFIER 6/0/0 4 [9778] 2/0/0 1696 [9779] 59604 5 598 2 0 0 0 TRANSFER 24/0/1 1696 [9780] 59605 124 598 2 0 1 0 MODIFY ADDRESS OF NEXT 1/1/3 0 [9781] 59606 101 0 1 3 0 SELECT LITERAL ADDRESS 2/0/0 1700 [9782] 59607 5 598 6 0 0 0 CHUNK START TRANSFER 24/1/2 19 [9783] 59608 124 999 19 1 2 0 SEC 8 MODIFY ADDRESS OF NEXT 24/0/2 0 [9784] 59609 124 0 0 2 0 SELECT LITERAL AND DIVISION 3/0/0 1075 [9785] 59610 3 577 2 0 0 0 WL COPY 1/1/1 48 [9786] 59611 11 0 0 0 30 48 ADD LITERAL 18/0/1 5 [9787] 59612 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 1075 [9788] 59613 1 577 2 0 0 0 ADD 2/1/0 8184 [9789] 59614 91 0 0 4 0 SET MODIFICATION REGISTER AT VARIABLE 24/0/3 1698 [9790] 59615 124 598 4 0 3 0 STORE WORD MODIFY ADDRESS OF NEXT 6/0/2 0 [9791] 59616 106 0 0 2 0 SELECT (N) 2/0/0 1701 [9792] 59617 5 598 7 0 0 0 STORE WORD TRANSFER Source: DaveJ/Q1000433 0/1/2 1704 [9793] 59618 34 598 10 1 0 0 FIRST LEVEL PARA WORD SET (N) IN B 18/1/3 3 [9794] 59619 33 0 0 0 3 NEXT ONE TO A SHIFT (AB) BY BITS 0/1/0 1702 [9795] 59620 100 598 8 1 0 0 STORE (A) (B) (C) COPY REGISTERS 23/0/0 1 [9796] 59621 94 596 29 0 5 1 TEST END OF PARA WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8182 [9797] 24/1/0 1615 [9798] s 6/1/0 4306 [9799] 59622 90 0 0 5 0 SET UP MR FOR SET MODIFICATION REGISTER AT LITERAL 2/1/0 8182 [9800] 59623 C 0 0 0 6 NEXT PARA WORD Simulated modifier 24/0/3 1698 [9801] 59624 124 598 4 0 3 0 STORE PARA WORD MODIFY ADDRESS OF NEXT 6/0/3 1 [9802] 59625 106 1 0 3 0 STORE PARA WORD SELECT (N) 18/1/3 2 [9803] 59626 33 0 0 0 2 RIGHT ALIGN WORD SHIFT (AB) BY BITS 2/0/0 1705 [9804] 59627 5 598 11 0 0 0 TRANSFER 25/0/3 1 [9805] 59628 94 596 29 0 3 1 STEP PARAS MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1615 [9806] s 6/0/0 1702 [9807] 59629 598 8 0 0 0 TEST DUMMY PARA SELECT 1/1/2 6 [9808] 59630 12 0 0 0 6 SUBTRACT LITERAL 27/0/0 1601 [9809] 59631 70 596 18 0 0 0 gYES JUMP IF A == 0 1/1/2 1 [9810] 59632 12 0 0 0 1 TEST SECOND LEVEL REQD SUBTRACT LITERAL 27/0/1 1648 [9811] 59633 71 596 57 0 0 0 gNO JUMP IF A != 0 0/1/2 1710 [9812] 59634 34 598 16 1 0 0 SECOND LEVEL PARA WORD SET (N) IN B 18/1/3 6 [9813] 59635 33 0 0 0 6 NEXT ONE TO A SHIFT (AB) BY BITS 0/1/0 1708 [9814] 59636 100 598 14 1 0 0 STORE (A) (B) (C) COPY REGISTERS 23/0/0 1 [9815] 59637 94 596 45 0 8 1 TEST END OF PARA WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8178 [9816] 24/1/0 1634 [9817] s 6/1/0 4308 [9818] 59638 90 0 0 8 0 SET UP MR FOR SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [9819] 59639 C 0 0 0 3 NEXT PARA WORD Simulated modifier 24/0/3 1698 [9820] 59640 124 598 4 0 3 0 STORE PARA WORD MODIFY ADDRESS OF NEXT 6/0/1 1 [9821] 59641 106 1 0 1 0 SELECT (N) 18/1/3 2 [9822] 59642 33 0 0 0 2 RIGHT ALIGN WORD SHIFT (AB) BY BITS 2/0/0 1711 [9823] 59643 5 598 17 0 0 0 TRANSFER 25/0/1 1 [9824] 59644 94 596 45 0 1 1 STEP PARAS MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1634 [9825] s 6/0/0 1708 [9826] 59645 598 14 0 0 0 TEST SECOND LEVEL SELECT 1/1/2 63 [9827] 59646 101 63 1 2 0 PARA=63(DUMMY) SUBTRACT LITERAL ADDRESS 27/0/0 1620 [9828] 59647 70 596 34 0 0 0 gYES JUMP IF A == 0 1/1/1 1 [9829] 59648 101 1 1 1 0 TEST END SIGN(62) ADD LITERAL ADDRESS 27/0/1 1646 [9830] 59649 71 596 55 0 0 0 gNO JUMP IF A != 0 6/1/0 1698 [9831] 59650 598 4 1 0 0 STORE END SIGN SELECT 24/0/3 8184 [9832] 59651 5 4 1 4 0 END SIGN TRANSFER 2/1/0 4 [9833] 24/0/3 8184 [9834] 59652 5 6 1 4 0 TRANSFER 2/1/0 6 [9835] 26/0/0 1075 [9836] 59653 80 577 2 0 0 0 gWRITE LAST BLOCK ENTER SUBROUTINE 26/0/1 1584 [9837] 59654 82 596 2 0 0 0 gLEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE 6/1/0 1708 [9838] 59655 598 14 1 0 0 STORE ACTUAL PARA SELECT 2/1/0 1702 [9839] 59656 5 598 8 1 0 0 VALUE TRANSFER 6/0/0 1702 [9840] 59657 598 8 0 0 0 TEST PARA=1 SELECT 1/1/2 1 [9841] 59658 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 1653 [9842] 59659 70 596 62 0 0 0 gYES JUMP IF A == 0 1/1/2 4 [9843] 59660 12 0 0 0 4 SUBTRACT LITERAL 27/0/1 1657 [9844] 59661 71 596 66 0 0 0 gNO JUMP IF A != 0 1/0/1 15 [9845] 59662 35 0 0 0 1111 ADJUST ORDER BY PREPARE FOR DIGIT COLLATION 15/0/0 1701 [9846] 59663 36 598 7 0 0 0 CHUNK START COLLATE AND ADD 5/0/0 1700 [9847] 59664 2 598 6 0 0 0 SUBTRACT 14/0/0 1701 [9848] 59665 37 598 7 0 0 0 REPLACE SELECTED BITS 6/0/0 1701 [9849] 59666 598 7 0 0 0 SELECT 24/0/3 8184 [9850] 59667 5 6 2 4 0 TRANSFER 2/1/0 7 [9851] 6/0/0 1702 [9852] 59668 598 8 0 0 0 SELECT 24/0/3 8184 [9853] 59669 5 4 2 4 0 TRANSFER 2/1/0 5 [9854] 25/0/2 1 [9855] 59670 94 596 71 0 2 1 WORD MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1665 [9856] s 23/0/0 4 [9857] 59671 94 596 15 0 4 4 gNEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [9858] 24/1/0 1598 [9859] s 26/0/0 1075 [9860] 59672 80 577 2 0 0 0 gWRITE ENTER SUBROUTINE 24/1/0 1591 [9861] 59673 76 596 8 0 0 0 gNEXT BLOCK JUMP unconditional Start of procedure 597 at location 1670 in chapter 5 [9862] [9862] 59700 TABLE 597 3 Source: KenK/Q1000434 Query: image P100044 appears to have a bit missing from top, so I have taken first 3 lines from P1000433 0/0/1 5092 [9862] 59702 16 16 0 0 0 0 5 0 0 0 0 0 0 0/0/0 5 [9863] 0/0/1 1374 [9864] 59704 587 2 0 0 0 0 5 0 0 0 0 0 0 0/0/0 5 [9865] 0/0/1 5078 [9866] 59706 16 2 0 0 0 0 5 0 0 0 0 0 0 0/0/0 5 [9867] 0/0/1 5079 [9868] 59708 16 3 0 0 0 0 5 0 0 0 0 0 0 SERIAL 0/0/0 5 [9869] 0/0/1 1240 [9870] 59710 583 20 0 0 2 0 5 0 0 0 0 0 1 'CHAPT' 19/0/0 5 [9871] Query: check item from original 0/0/1 1248 [9872] 59712 583 28 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [9873] Query: image poor – check original 0/0/1 5092 [9874] 59714 16 16 0 0 0 0 5 0 3 4 0 0 1 16/0/2 53 [9875] 0/0/1 5024 [9876] 59716 11 0 0 0 2 0 5 0 0 0 0 0 0 FILE IDENTITY 3/0/0 5 [9877] 0/0/1 5026 [9878] 59718 11 2 0 0 2 0 4 0 1 0 0 0 0 ROUTE TYPE 3/0/0 20 [9879] 0/0/1 5032 [9880] 59720 11 8 0 0 2 0 5 0 0 0 0 0 0 START LOCATION 3/0/0 5 [9881] 0/0/1 5028 [9882] 59722 11 4 0 0 2 0 5 0 0 0 0 0 0 TWICE CHAP 3/0/0 5 [9883] 0/0/1 5030 [9884] 59724 11 6 0 0 2 0 5 0 0 0 0 0 0 MAX BLOCK LENGTH 3/0/0 5 [9885] 0/0/1 5034 [9886] 59726 11 10 0 0 2 0 5 0 0 0 0 0 1 ALT ROUTE 19/0/0 5 [9887] Start of procedure 598 at location 1696 in chapter 5 [9888] [9888] 59800 CONST 598 1 CONSTANTS 0/0/0 0 [9888] 59802 (D)0; 00000 +00000 0/0/0 0 [9889] 0/0/0 0 [9890] 59804 (A)p ; 00000 +4F000 4/1/3 4096 [9891] 0/0/0 48 [9892] 59806 0; CHUNK START/ORDER 00030 +00000 0/0/0 0 [9893] 0/0/0 48 [9894] 59808 0; 00030 +00000 0/0/0 0 [9895] 0/0/0 48 [9896] 59810 0; 00030 +00000 0/0/0 0 [9897] 0/0/0 48 [9898] 59812 0; 00030 +00000 0/0/0 0 [9899] 0/0/0 48 [9900] 59814 0; 00030 +00000 0/0/0 0 [9901] 0/0/0 48 [9902] 59816 0; 00030 +00000 0/0/0 0 [9903] 0/0/0 48 [9904] 59818 0; 00030 +00000 0/0/0 0 [9905] Start of procedure 599 at location 1714 in chapter 5 [9906] [9906] 59900 PROCR 599 DUMMY Start of procedure 600 at location 1714 in chapter 5 [9906] [9906] 60000 PROCR 600 Start of procedure 601 at location 1714 in chapter 5 [9906] [9906] 60100 PROCR 601 Start of procedure 602 at location 1714 in chapter 5 [9906] [9906] 60200 PROCR 602 Start of procedure 603 at location 1714 in chapter 5 [9906] [9906] 60300 PROCR 603 Start of procedure 604 at location 1714 in chapter 5 [9906] [9906] 60400 PROCR 604 PREPARATORY STAGE [9906] 60401 NOTES RADIX 1/1/3 0 [9906] 60402 10 0 0 0 0 (29)TEST UNSUITABLE MASTER SELECT LITERAL 27/0/0 1763 [9907] 60403 127 604 51 0 0 0 gYES(REJECT G) JUMP A = Z 24/0/2 1990 [9908] 60404 124 611 6 0 2 0 SET UP IND MODS SELECT LITERAL AND DIVISION 2/0/0 1740 [9909] a 60405 5 604 28 0 0 0 AT 15 BIT TRANSFER 24/0/2 1992 [9910] 60406 124 611 8 0 2 0 ADDRESS SELECT LITERAL AND DIVISION 2/0/0 1743 [9911] a 60407 5 604 31 0 0 0 TRANSFER 24/0/2 1996 [9912] 60408 124 611 12 0 2 0 SELECT LITERAL AND DIVISION 2/0/0 1759 [9913] a 60409 5 604 47 0 0 0 TRANSFER 1/1/2 4 [9914] 60410 12 0 0 0 4 SUBTRACT LITERAL 7/0/0 1989 [9915] 60411 4 611 5 0 0 0 TO ALLOW ROOM AUGMENT 7/0/0 1997 [9916] 60412 4 611 13 0 0 0 FOR 'A' AND 'B' AUGMENT 1/1/3 0 [9917] 60413 10 0 0 0 0 (31)TEST 2 STORES SELECT LITERAL 27/0/0 1728 [9918] 60414 70 604 16 0 0 0 gNO JUMP IF A == 0 24/1/0 1730 [9919] 60415 76 604 18 0 0 0 JUMP unconditional 6/0/0 1989 [9920] 60416 611 5 0 0 0 SET UP MR FOR SELECT 2/0/0 1987 [9921] 60417 5 611 3 0 0 0 ONE STORE AREA TRANSFER 24/0/3 1990 [9922] 60418 124 611 6 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 0 [9923] 60419 106 0 0 0 0 NEXT PROG IDENTITY SELECT (N) 27/0/0 1780 [9924] 60420 70 605 2 0 0 0 gUNLOAD THIS PROGRAM JUMP IF A == 0 1/1/3 2 [9925] 60421 10 0 0 0 2 STEP CTR SELECT LITERAL 7/0/0 1992 [9926] 60422 4 611 8 0 0 0 AUGMENT Source: KenK/Q1000435 24/0/3 1990 [9927] 60423 124 611 6 0 3 0 MOVE DETAIL DOWN MODIFY ADDRESS OF NEXT 6/1/0 0 [9928] 60424 106 0 1 0 0 SELECT (N) 24/0/3 1992 [9929] 60425 124 611 8 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 0 [9930] 60426 102 0 1 0 0 TRANSFER (A) TO N 23/0/0 2 [9931] 60427 123 2 0 0 0 (REENTRY AFTER UNLOAD) STEP ON AND TEST 0/0/1 1990 [9932] 60428 100 611 6 0 0 0 Address of modifier 24/1/0 1730 [9933] 60429 76 604 18 0 0 0 JUMP unconditional 23/0/0 2 [9934] 60430 123 2 0 0 0 gNEXT ENTRY STEP ON AND TEST 0/0/1 1992 [9935] 60431 100 611 8 0 0 0 Address of modifier 24/1/0 1746 [9936] 60432 76 604 34 0 0 0 JUMP unconditional 24/1/0 1750 [9937] 60433 76 604 38 0 0 0 gLAST ENTRY JUMP unconditional 6/1/0 1994 [9938] 60434 611 10 1 0 0 SET 10Xp IN REMAINING SELECT 24/0/3 1992 [9939] 60435 124 611 8 0 3 0 PQ LOCNS MODIFY ADDRESS OF NEXT 2/1/0 0 [9940] 60436 102 0 1 0 0 TRANSFER (A) TO N 24/1/0 1742 [9941] 60437 76 604 30 0 0 0 JUMP unconditional 24/0/3 1996 [9942] 60438 124 611 12 0 3 0 FIND SUFFICIENT STORE MODIFY ADDRESS OF NEXT 6/0/0 1 [9943] 60439 106 1 0 0 0 AREA FOR NEXT CHAP(500 LOCNS) SELECT (N) 5/0/0 1994 [9944] 60440 2 611 10 0 0 0 ppppp SUBTRACT 27/0/0 1758 [9945] 60441 70 604 46 0 0 0 gSKIP END SIGNS, TRUST MR JUMP IF A == 0 4/0/0 1994 [9946] 60442 1 611 10 0 0 0 ADD 18/0/0 0 [9947] 60443 118 0 0 0 0 DUMMY SHIFT LOGICAL 1/1/2 516 [9948] 60444 101 516 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/2 1766 [9949] 60445 72 604 54 0 0 0 JUMP IF A >= 0 23/0/0 2 [9950] 60446 123 2 0 0 0 STEP ON AND TEST 0/0/1 1996 [9951] 60447 100 611 12 0 0 0 Address of modifier 24/1/0 1750 [9952] 60448 76 604 38 0 0 0 JUMP unconditional 1/1/3 0 [9953] 60449 10 0 0 0 0 SELECT LITERAL 1/1/2 4 [9954] 60450 12 0 0 0 4 C COMMENT SUBTRACT LITERAL 1/1/1 87 [9955] 60451 11 0 0 0 57 G COMMENT ADD LITERAL 24/0/3 1998 [9956] 60452 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 0 [9957] 60453 124 0 1 0 0 (14)->REJECT UNCONDITIONAL JUMP 24/0/3 1996 [9958] 60454 124 611 12 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 0 [9959] 60455 106 0 0 0 0 15-BIT START SELECT (N) 24/0/3 1998 [9960] 60456 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 3/0/0 28 [9961] 60457 103 28 0 0 0 R2 MODIFIER COPY (A) TO N 24/0/3 1998 [9962] 60458 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 3/0/0 0 [9963] 60459 103 0 0 0 0 PLANT S/R LINK COPY (A) TO N 0/0/2 2003 [9964] 60460 34 611 19 0 0 0 BITS 1-13 SET (N) IN B 14/0/0 2003 [9965] 60461 114 611 19 0 0 0 REPLACE SELECTED BITS 6/0/0 2003 [9966] 60462 611 19 0 0 0 CHUNK START PARA SELECT 24/0/3 1998 [9967] 60463 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 1 [9968] 60464 102 1 0 0 0 TRANSFER (A) TO N 1/1/3 0 [9969] 60465 101 0 1 3 0 SELECT LITERAL ADDRESS 24/0/3 1998 [9970] 60466 124 611 14 0 3 0 SECOND ORDER MODIFY ADDRESS OF NEXT 24/1/0 1 [9971] 60467 124 1 1 0 0 gLOAD CHAP S/R UNCONDITIONAL JUMP Start of procedure 605 at location 1780 in chapter 5 [9972] [9972] 60500 PROCR 605 UPDATE PREVIOUS SWITCH,UNLOAD FP/MG/TAG [9972] 60501 NOTES RADIX 1/0/1 15 [9972] 60502 35 0 0 0 1111 Q1-4B,A CLEAR PREPARE FOR DIGIT COLLATION 24/0/3 1990 [9973] 60503 124 611 6 0 3 0 MODIFY ADDRESS OF NEXT 15/0/0 1 [9974] 60504 115 1 0 0 0 START OF SWITCH COLLATE AND ADD 2/1/0 1714 [9975] 60505 5 604 2 1 0 0 TRANSFER 24/0/3 1714 [9976] 60506 124 604 2 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 37 [9977] 60507 106 37 0 0 0 SI+37 SELECT (N) 2/0/0 2002 [9978] 60508 5 611 18 0 0 0 SPECIAL CHAPTER START TRANSFER 24/0/3 1992 [9979] 60509 124 611 8 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 1 [9980] 60510 106 1 0 0 0 SWITCH START OF PROC ABOVE THIS SELECT (N) 24/0/3 1998 [9981] 60511 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 30 [9982] 60512 102 30 1 0 0 SET R3 TRANSFER (A) TO N Source: RayS/Q1000436 26/1/2 1714 [9983] 60513 126 604 2 1 2 0 THIS SWITCH STARTS>R2 SET MODIFICATION REGISTER 24/0/3 1998 [9984] 60514 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [9985] 60515 126 0 0 0 0 >'UPDATE SWITCH' S/R ENTER SUBROUTINE 24/0/3 2002 [9986] 60516 124 611 18 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 0 [9987] 60517 106 0 0 0 0 FP USED SELECT (N) 27/0/0 1806 [9988] 60518 70 605 28 0 0 0 >NO JUMP IF A == 0 26/1/2 1998 [9989] 60519 126 611 14 1 2 0 6/0 SET MODIFICATION REGISTER 1/1/3 14 [9990] 60520 101 14 1 3 0 SELECT LITERAL ADDRESS 24/0/3 1998 [9991] 60521 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 23/1/2 128 [9992] 60522 123 128 1 2 0 TAG 14 COPY INTO TAG 1/1/3 0 [9993] 60523 10 0 0 0 0 SELECT LITERAL 24/0/3 1998 [9994] 60524 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 2/1/2 128 [9995] 60525 102 128 1 2 0 CLEAR TRANSFER (A) TO N 25/0/2 2 [9996] 60526 125 2 0 2 0 STEP ON AND TEST 24/1/0 1798 [9997] 60527 76 605 20 0 0 0 JUMP unconditional 24/0/3 2002 [9998] 60528 124 611 18 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 1 [9999] 60529 106 1 0 0 0 MOD GROUP SELECT (N) 27/0/0 1817 [10000] 60530 70 605 39 0 0 0 >NOT USED JUMP IF A == 0 18/0/3 3 [10001] 60531 31 0 0 0 3 SHIFT (A) BY BITS 2/0/0 1714 [10002] 60532 5 604 2 0 0 0 STORE 8M TRANSFER 26/1/2 1998 [10003] 60533 126 611 14 1 2 0 6/0 SET MODIFICATION REGISTER 1/1/3 14 [10004] 60534 101 14 1 3 0 SELECT LITERAL ADDRESS 24/0/3 1714 [10005] 60535 124 604 2 0 3 0 MODIFY ADDRESS OF NEXT 23/1/2 2 [10006] 60536 123 2 1 2 0 TAG 14 INTO MOD GROUP COPY INTO TAG 25/0/2 2 [10007] 60537 125 2 0 2 0 STEP ON AND TEST 24/1/0 1813 [10008] 60538 76 605 35 0 0 0 JUMP unconditional 24/0/3 2002 [10009] 60539 124 611 18 0 3 0 SPECIAL CHAP START MODIFY ADDRESS OF NEXT 6/0/0 10 [10010] 60540 106 10 0 0 0 ALLOCATED TAG SELECT (N) 3/0/0 1714 [10011] 60541 3 604 2 0 0 0 W/L COPY 18/1/1 4127 [10012] 60542 32 0 0 0 1- TAG TO Q10B SHIFT (AB) BY QUARTETS 24/0/3 1714 [10013] 60543 124 604 2 0 3 0 MODIFY ADDRESS OF NEXT 18/1/0 0 [10014] 60544 118 0 1 0 0 SHIFT TAGX TO QXA SHIFT LOGICAL 24/0/3 1998 [10015] 60545 124 611 14 0 3 0 ZERO MODIFY ADDRESS OF NEXT 7/1/0 0 [10016] 60546 107 0 1 0 0 AUG TAG AVAILABILITY LOCN AUGMENT (N) BY (A) 24/0/3 2002 [10017] 60547 124 611 18 0 3 0 SPECIAL CHAP MODIFY ADDRESS OF NEXT 26/1/2 18 [10018] 60548 126 18 1 2 0 2X(R+T) SET MODIFICATION REGISTER 26/1/3 1998 [10019] 60549 126 611 14 1 3 0 6:0 FLIP FLOP SET MODIFICATION REGISTER 25/0/3 3 [10020] 60550 125 3 0 3 0 STEP ON AND TEST 25/0/3 3 [10021] 60551 125 3 0 3 0 STEP ON AND TEST 24/1/0 1838 [10022] 60552 76 606 4 0 0 0 JUMP unconditional 26/1/3 1998 [10023] 60553 126 611 14 1 3 0 06:00 SET MODIFICATION REGISTER 24/0/3 2002 [10024] 60554 124 611 18 0 3 0 NEXT ROUTE DETAIL MODIFY ADDRESS OF NEXT 6/1/2 34 [10025] 60555 106 34 1 2 0 SELECT (N) 27/0/2 1838 [10026] 60556 72 606 4 0 0 0 JUMP IF A >= 0 25/0/3 3 [10027] 60557 125 3 0 3 0 >NOT DEALLOCATED BY PROGRAM STEP ON AND TEST Start of procedure 606 at location 1836 in chapter 5 [10028] [10028] 60600 PROCR 606 UNLOAD ROUTES AND PSEUDO ROUTES [10028] 60601 NOTES RADIX 103 25/0/2 1 [10028] 60602 125 1 0 2 0 STEP ON AND TEST 24/1/0 1874 [10029] 60603 76 606 40 0 0 0 >ALREADY DEALLOCATED JUMP unconditional 24/0/3 2002 [10030] 60604 124 611 18 0 3 0 MODIFY ADDRESS OF NEXT 6/0/2 34 [10031] 60605 106 34 0 2 0 NEXT DETAIL SELECT (N) 18/1/1 4124 [10032] 60606 32 0 0 0 4- SHIFT (AB) BY QUARTETS 2/0/0 1725 [10033] 60607 5 604 13 0 0 0 Q5=ROUTE TYPE TRANSFER 18/1/1 2 [10034] 60608 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/3 0 [10035] 60609 10 0 0 0 0 SELECT LITERAL 18/1/1 2 [10036] 60610 32 0 0 0 2 Q1,2=ROUTE SHIFT (AB) BY QUARTETS 27/0/0 1874 [10037] 60611 70 606 40 0 0 0 JUMP IF A == 0 1/1/2 128 [10038] 60612 101 128 1 2 0 (32)TEST ALT ROUTE SUBTRACT LITERAL ADDRESS Source: RayS/Q1000437 27/0/0 1874 [10039] 60613 70 606 40 0 0 0 >YES JUMP IF A == 0 1/1/1 128 [10040] 60614 101 128 1 1 0 (32) ADD LITERAL ADDRESS 3/0/0 1726 [10041] 60615 3 604 14 0 0 0 ROUTE COPY 18/1/1 4127 [10042] 60616 32 0 0 0 1- SHIFT (AB) BY QUARTETS 18/1/3 1 [10043] 60617 33 0 0 0 1 STORE 8XCHANNEL SHIFT (AB) BY BITS 18/0/3 3 [10044] 60618 118 3 0 3 0 SHIFT BINARY 2/0/0 1727 [10045] 60619 5 604 15 0 0 0 TRANSFER 18/1/3 3 [10046] 60620 33 0 0 0 3 SHIFT (AB) BY BITS 2/0/0 1728 [10047] 60621 5 604 16 0 0 0 STORE RTE NO MOD 8 TRANSFER 6/0/0 1725 [10048] 60622 604 13 0 0 0 ROUTE TYPE SELECT 27/0/1 1859 [10049] 60623 71 606 25 0 0 0 JUMP IF A != 0 6/0/0 2000 [10050] 60624 611 16 0 0 0 0££££ SELECT 24/0/3 1726 [10051] 60625 124 604 14 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 64 [10052] 60626 102 64 0 0 0 TRANSFER (A) TO N 24/0/3 1727 [10053] 60627 124 604 15 0 3 0 UPDATE ASSEMBLER TABLE MODIFY ADDRESS OF NEXT 6/0/0 0 [10054] 60628 106 0 0 0 0 (12) SELECT (N) 5/0/0 1726 [10055] 60629 2 604 14 0 0 0 SUBTRACT 27/0/1 1868 [10056] 60630 71 606 34 0 0 0 >NOT THIS ROUTE JUMP IF A != 0 6/0/0 1994 [10057] 60631 611 10 0 0 0 SET £££££ SELECT 24/0/3 1727 [10058] 60632 124 604 15 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 0 [10059] 60633 102 0 1 0 0 (12) TRANSFER (A) TO N 1/0/1 1 [10060] 60634 101 1 0 1 0 PREPARE FOR DIGIT COLLATION 1/1/3 0 [10061] 60635 101 0 1 3 0 SELECT LITERAL ADDRESS 24/0/3 1728 [10062] 60636 124 604 16 0 3 0 ROUTE IN CHANNEL MODIFY ADDRESS OF NEXT 18/1/0 0 [10063] 60637 118 0 1 0 0 SHIFT LOGICAL 24/0/3 1727 [10064] 60638 124 604 15 0 3 0 MODIFY ADDRESS OF NEXT 14/1/0 2 [10065] 60639 114 2 1 0 0 (12) REPLACE SELECTED BITS 25/0/2 1 [10066] 60640 125 1 0 2 0 STEP ON AND TEST 24/1/0 1829 [10067] 60641 76 605 51 0 0 0 >ALT ROUTE OR NEXT ROUTE JUMP unconditional Start of procedure 607 at location 1876 in chapter 5 [10068] [10068] 60700 PROCR 607 UNLOAD STORAGE, CLEAR/SET TAG 14 [10068] 60701 NOTES RADIX 104 PREP STAGE 24/0/3 2002 [10068] 60702 124 611 18 0 3 0 SPECIAL CHAP START MODIFY ADDRESS OF NEXT 26/1/2 16 [10069] 60703 126 16 1 2 0 (2XCHAPS):0 SET MODIFICATION REGISTER 24/0/3 2002 [10070] 60704 124 611 18 0 3 0 MODIFY ADDRESS OF NEXT 6/1/2 20 [10071] 60705 106 20 1 2 0 SELECT (N) 2/1/0 1714 [10072] 60706 5 604 2 1 0 0 END/START NEXT CHAP TRANSFER 26/1/3 1714 [10073] 60707 126 604 2 1 3 0 SET MODIFICATION REGISTER 1/1/3 14 [10074] 60708 101 14 1 3 0 SELECT LITERAL ADDRESS 24/0/3 1998 [10075] 60709 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 23/1/3 0 [10076] 60710 123 0 1 3 0 STACK TAG 14 EVERY WHERE COPY INTO TAG 25/0/3 2 [10077] 60711 125 2 0 3 0 STEP ON AND TEST 24/1/0 1883 [10078] 60712 76 607 9 0 0 0 JUMP unconditional 26/1/3 1714 [10079] 60713 126 604 2 1 3 0 START/END NEXT CHAP SET MODIFICATION REGISTER 6/0/0 1714 [10080] 60714 604 2 0 0 0 START SELECT 5/0/0 2002 [10081] 60715 2 611 18 0 0 0 SPECIAL CHAP START SUBTRACT 27/0/1 1894 [10082] 60716 71 607 20 0 0 0 >NOT SP CHAP JUMP IF A != 0 25/0/3 500 [10083] 60717 125 500 0 3 0 DON'T CLEAR FIRST 500 STEP ON AND TEST 24/1/0 1894 [10084] 60718 76 607 20 0 0 0 JUMP unconditional 24/1/0 1899 [10085] 60719 76 608 2 0 0 0 >NONE TO CLEAR JUMP unconditional 1/1/3 0 [10086] 60720 10 0 0 0 0 SELECT LITERAL 24/0/3 1998 [10087] 60721 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 2/1/3 0 [10088] 60722 102 0 1 3 0 TRANSFER (A) TO N 25/0/3 2 [10089] 60723 125 2 0 3 0 STEP ON AND TEST 24/1/0 1895 [10090] 60724 76 607 21 0 0 0 JUMP unconditional Start of procedure 608 at location 1899 in chapter 5 [10091] [10091] 60800 PROCR 608 Source: RayS/Q1000438 [10091] 60801 NOTES RADIX 105 1/1/3 0 [10091] 60802 10 0 0 0 0 (31) TEST 2 STORES SELECT LITERAL 27/0/0 1906 [10092] 60803 70 608 9 0 0 0 >NO JUMP IF A == 0 6/0/0 1714 [10093] 60804 0 604 2 0 0 0 CHAP START SELECT 5/0/0 1983 [10094] 60805 2 610 37 0 0 0 CONST=DIV 4/0 SUBTRACT 27/0/3 1906 [10095] 60806 73 608 9 0 0 0 >CHAP IN FIRST STORE JUMP IF A < 0 6/1/0 2006 [10096] 60807 0 611 22 1 0 0 FOR SECOND SELECT 24/1/0 1907 [10097] 60808 76 608 10 0 0 0 JUMP unconditional 6/1/0 2004 [10098] 60809 0 611 20 1 0 0 FOR FIRST SELECT 2/1/0 1728 [10099] 60810 5 604 16 1 0 0 TRANSFER 26/1/1 1728 [10100] 60811 126 604 16 1 1 0 SET UP MRS SET MODIFICATION REGISTER 26/1/3 1728 [10101] 60812 126 604 16 1 3 0 SET MODIFICATION REGISTER 24/0/3 1998 [10102] 60813 124 611 14 0 3 0 NEXT STRIP MODIFY ADDRESS OF NEXT 6/1/3 0 [10103] 60814 106 0 1 3 0 SELECT (N) Start of procedure 609 at location 1912 in chapter 5 [10104] [10104] 60900 PROCR 609 UNLOAD NEXT CHAP-LOOK FOR JOINS [10104] 60901 NOTES RADIX 106 2/1/0 1724 [10104] 60902 05 604 12 1 0 0 W/L TRANSFER 6/0/0 1724 [10105] 60903 00 604 12 0 0 0 NEXT STRIP START SELECT 27/0/0 1932 [10106] 60904 70 609 22 0 0 0 >DUMMY, STEP R3 JUMP IF A == 0 5/0/0 1994 [10107] 60905 2 611 10 0 0 0 £££££ SUBTRACT 27/0/0 1946 [10108] 60906 70 609 36 0 0 0 >LIST END JUMP IF A == 0 6/0/0 1724 [10109] 60907 00 604 12 0 0 0 STRIP START SELECT 4/0/0 1725 [10110] 60908 01 604 13 0 0 0 STRIP LENGTH ADD 2/0/0 1727 [10111] 60909 5 604 15 0 0 0 =STRIP END TRANSFER 0/0/2 2003 [10112] 60910 34 611 19 0 0 0 BITS1-13 SET (N) IN B 15/0/0 1724 [10113] 60911 36 604 12 0 0 0 STRIP START COLLATE AND ADD 27/0/0 1927 [10114] 60912 70 609 17 0 0 0 >START IS DIVISION BOUNDARY JUMP IF A == 0 6/0/0 1724 [10115] 60913 00 604 12 0 0 0 STRIP START SELECT 5/0/0 1715 [10116] 60914 2 604 3 0 0 0 CHAP END SUBTRACT 27/0/0 1934 [10117] 60915 70 609 24 0 0 0 >JOINS UP JUMP IF A == 0 1/1/3 0 [10118] 60916 10 0 0 0 0 SELECT LITERAL 15/0/0 1727 [10119] 60917 36 604 15 0 0 0 COLLATE AND ADD 27/0/0 1932 [10120] 60918 70 609 22 0 0 0 >STRIP END IS DIVISION BOUNDARY JUMP IF A == 0 6/0/0 1727 [10121] 60919 604 15 0 0 0 STRIP END SELECT 5/0/0 1714 [10122] 60920 2 604 2 0 0 0 CHAP START SUBTRACT 27/0/0 1938 [10123] 60921 70 609 28 0 0 0 >JOINS UP JUMP IF A == 0 25/0/3 2 [10124] 60922 125 2 0 3 0 STEP ON AND TEST 24/1/0 1910 [10125] 60923 76 608 13 0 0 0 >NEXT STRIP JUMP unconditional 6/0/0 1714 [10126] 60924 604 2 0 0 0 CHAP START SELECT 18/1/1 4123 [10127] 60925 32 0 0 0 5- SHIFT (AB) BY QUARTETS 4/0/0 1727 [10128] 60926 1 604 15 0 0 0 STRIP END ADD 24/1/0 1941 [10129] 60927 76 609 31 0 0 0 JUMP unconditional 6/0/0 1724 [10130] 60928 00 604 12 0 0 0 STRIP START SELECT 18/1/1 4123 [10131] 60929 32 0 0 0 5- SHIFT (AB) BY QUARTETS 4/0/0 1715 [10132] 60930 1 604 3 0 0 0 CHAP END ADD 18/1/1 5 [10133] 60931 32 0 0 0 5 SHIFT (AB) BY QUARTETS 2/1/0 1714 [10134] 60932 5 604 2 1 0 0 STORE SUPERCHAP TRANSFER 24/0/3 1998 [10135] 60933 124 611 14 0 3 0 CLEAR STRIP DETAIL MODIFY ADDRESS OF NEXT 2/1/3 0 [10136] 60934 102 0 1 3 0 TRANSFER (A) TO N 24/1/0 1909 [10137] 60935 76 608 12 0 0 0 >LOOP AGAIN JUMP unconditional 5/0/0 1714 [10138] 60936 2 604 2 0 0 0 START SUBTRACT 7/0/0 1715 [10139] 60937 4 604 3 0 0 0 CHANGE END OF LENGTH AUGMENT Start of procedure 610 at location 1948 in chapter 5 [10140] [10140] 61000 PROCR 610 SORT NEXT ITEM INTO STORAGE LIST [10140] 61001 NOTES RADIX 107 24/0/3 1728 [10140] 61002 124 604 16 0 3 0 CTR MODIFY ADDRESS OF NEXT 6/1/0 0 [10141] 61003 106 0 1 0 0 SELECT (N) Source: RayS/Q1000439 3/1/0 2008 [10142] 61004 3 611 24 1 0 0 W/L COPY 27/0/0 1971 [10143] 61005 70 610 25 0 0 0 >DUMMY STEP CTR JUMP IF A == 0 5/1/0 1994 [10144] 61006 2 611 10 1 0 0 £X10 SUBTRACT 27/0/0 1974 [10145] 61007 70 610 28 0 0 0 >END ROUTINE JUMP IF A == 0 6/1/0 2008 [10146] 61008 611 24 1 0 0 SELECT 5/1/0 1714 [10147] 61009 2 604 2 1 0 0 DETAIL TO INSERT SUBTRACT 27/0/3 1963 [10148] 61010 73 610 17 0 0 0 >NOT YET JUMP IF A < 0 6/1/0 1714 [10149] 61011 604 2 1 0 0 SELECT 24/0/3 1998 [10150] 61012 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 2/1/1 0 [10151] 61013 102 0 1 1 0 WRITE INTO LIST TRANSFER (A) TO N 6/1/0 2008 [10152] 61014 611 24 1 0 0 SELECT 2/1/0 1714 [10153] 61015 5 604 2 1 0 0 INSERT OVERWRITTEN ITEM NEXT TIME TRANSFER 24/1/0 1966 [10154] 61016 76 610 20 0 0 0 JUMP unconditional 6/1/0 2008 [10155] 61017 611 24 1 0 0 WRITE ITEM BACK SELECT 24/0/3 1998 [10156] 61018 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 2/1/1 0 [10157] 61019 102 0 1 1 0 TRANSFER (A) TO N 25/0/1 2 [10158] 61020 125 2 0 1 0 STEP MR1 STEP ON AND TEST 24/1/0 1971 [10159] 61021 76 610 25 0 0 0 JUMP unconditional 1/1/3 81 [10160] 61022 10 0 0 0 51 TOO MANY STRIPS SELECT LITERAL 24/0/3 1998 [10161] 61023 124 611 14 0 3 0 INTERNAL IMPOSSIBILITY MODIFY ADDRESS OF NEXT 24/1/0 0 [10162] 61024 124 0 1 0 0 (13)>XXXA UNCONDITIONAL JUMP 1/1/3 2 [10163] 61025 10 0 0 0 2 STEP CTR SELECT LITERAL 7/0/0 1728 [10164] 61026 4 604 16 0 0 0 AUGMENT 24/1/0 1948 [10165] 61027 76 610 2 0 0 0 >NEXT STRIP JUMP unconditional 6/1/0 1714 [10166] 61028 604 2 1 0 0 INSERT FINAL DETAILS SELECT 24/0/3 1998 [10167] 61029 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 2/1/1 0 [10168] 61030 102 0 1 1 0 TRANSFER (A) TO N 6/1/0 1994 [10169] 61031 611 10 1 0 0 SELECT 24/0/3 1998 [10170] 61032 124 611 14 0 3 0 MODIFY ADDRESS OF NEXT 2/1/1 2 [10171] 61033 102 2 1 1 0 TRANSFER (A) TO N 25/0/2 2 [10172] 61034 125 2 0 2 0 STEP MR2 STEP ON AND TEST 24/1/0 1878 [10173] 61035 76 607 4 0 0 0 >UNLOAD NEXT CHAP JUMP unconditional 24/1/0 1739 [10174] 61036 76 604 27 0 0 0 >UNLOAD NEXT PROGR JUMP unconditional 0/1/0 0 [10175] 61037 100 0 1 0 0 CONSTANT=DIV 4/0 COPY REGISTERS 6/0/0 1714 [10176] 61038 604 2 0 0 0 SELECT 1/1/3 0 [10177] 61039 10 0 0 0 0 DUMMY SELECT LITERAL Start of procedure 611 at location 1986 in chapter 5 [10178] [10178] 61100 CONST 611 0 108 0/0/0 0 [10178] 61102 (D)0; (30)START FIRST TABLE +00000 0/0/0 0 [10179] 61103 0; (31)START LAST TABLE +00000 0/0/0 0 [10180] 61104 0; (31)DO +00000 0/0/0 0 [10181] 61105 0; (3)END+4 OF LAST AREA +00000 0/0/0 2 [10182] 61106 2; (29)START PQ +00002 0/0/0 0 [10183] 61107 0; (30)END PQ +00000 0/0/0 0 [10184] 61108 0; (29)END PQ +00000 0/0/0 0 [10185] 61109 0; (20)START PQ +00000 15/1/3 8191 [10186] 61110 £££££; +FFFFF 15/1/3 8191 [10187] 61111 £££££; +FFFFF 0/0/0 0 [10188] 61112 0; (30)START FIRST AREA +00000 0/0/0 0 [10189] 61113 0; (3)END+4 OF LAST AREA +00000 0/0/0 0 [10190] 61114 0; +00000 0/0/0 6 [10191] 61115 6; +00006 0/1/3 8191 [10192] 61116 ££££; +0FFFF 15/0/0 0 [10193] 61117 £0000; +F0000 0/0/0 0 [10194] 61118 0; +00000 0/0/0 8191 [10195] 61119 1£££; +01FFF 0/0/0 0 [10196] 61120 0; (30)FIRST STORE +00000 0/0/0 0 [10197] 61121 0; +00000 0/0/0 0 [10198] 61122 0; (31)SECOND STORE +00000 Source: RayS/Q1000440 0/0/0 0 [10199] 61123 0; +00000 0/0/0 0 [10200] 61124 0; W/L FOR STRIP DETAIL +00000 0/0/0 0 [10201] 61125 0; +00000 0/0/0 0 [10202] 61126 0; BLISTER SPACE +00000 0/0/0 0 [10203] 61127 0; +00000 Start of procedure 612 at location 2012 in chapter 5 [10204] [10204] 61200 PROCR 612 DUMMY PROCEDURE START OF ALLOC STORAGE [10204] 61201 NOTES RADIX 201 Start of procedure 613 at location 2012 in chapter 5 [10204] [10204] 61300 PROCR 613 SET UP 1 OR 2 STORE AREAS [10204] 61301 NOTES RADIX 202 STORE FOR CHAP DETAILS 1/1/3 0 [10204] 61302 101 0 1 3 0 (31)TEST 2 STORES SELECT LITERAL ADDRESS 27/0/0 2024 [10205] 61303 70 613 14 0 0 0 >1 AREA JUMP IF A == 0 1/1/3 0 [10206] 61304 10 0 0 0 0 SELECT LITERAL 1/1/2 1 [10207] 61305 12 0 0 0 1 SUBTRACT LITERAL 7/0/0 2260 [10208] 61306 4 621 6 0 0 0 SET SWITCH=2 AUGMENT 1/1/3 0 [10209] 61307 10 0 0 0 0 SELECT LITERAL 5/0/0 2027 [10210] 61308 2 613 17 0 0 0 SUBTRACT 7/0/0 2318 [10211] 61309 4 622 30 0 0 0 (71>73 ORDER) AUGMENT 1/1/3 0 [10212] 61310 101 0 1 3 0 (31)FORM FIRST TABLE LENGTH SELECT LITERAL ADDRESS 1/1/2 0 [10213] 61311 101 0 1 2 0 (30) SUBTRACT LITERAL ADDRESS 7/0/0 2060 [10214] 61312 4 614 20 0 0 0 ADJUST MR SETTING AUGMENT 7/0/0 2277 [10215] 61313 4 621 23 0 0 0 ADJUST ORDERS AUGMENT 24/0/3 2036 [10216] 61314 124 613 26 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [10217] 61315 126 0 0 0 0 (7)>READ BLOCK ENTER SUBROUTINE 24/1/0 2064 [10218] 61316 76 616 2 0 0 0 JUMP unconditional 0/0/2 0 [10219] 61317 100 0 0 2 0 CONSTANT REPLACE (B) BY (N) 0/0/0 1 [10220] 61318 100 1 0 0 0 COLLATION CONST HALT 0/0/0 0 [10221] 61319 100 0 0 0 0 INIT CHAP COLL CONST HALT 0/0/0 0 [10222] 61320 100 0 0 0 0 TOT CHAPS FOR ALLOCATION HALT 0/0/0 0 [10223] 61321 100 0 0 0 0 ? HALT 0/0/0 0 [10224] 61322 100 0 0 0 0 ? HALT 0/0/0 0 [10225] 61323 100 0 0 0 0 VBLE BIT PATTERN HALT 0/0/0 0 [10226] 61324 100 0 0 0 0 START OF ALLOC IN STRIP HALT 0/0/0 0 [10227] 61325 100 0 0 0 0 ZERO CONST) HALT 0/0/0 0 [10228] 61326 100 0 0 0 0 ;)R1 WL HALT 0/0/0 0 [10229] 61327 100 0 0 0 0 TOTAL LENGTH COUNTER HALT 0/0/0 0 [10230] 61328 100 0 0 0 0 W/L FOR ALLOC CHAPS HALT 0/0/0 0 [10231] 61329 100 0 0 0 0 COLLATION CONSTANT HALT 0/0/0 1 [10232] 61330 100 1 0 0 0 MIN WASTAGE BIT PATTERN HALT 0/0/0 0 [10233] 61331 100 0 0 0 0 HALT Start of procedure 614 at location 2042 in chapter 5 [10234] [10234] 61400 PROCR 614 STORE CARRIED FORWARD DETAILS [10234] 61401 NOTES RADIX 203 24/0/3 2060 [10234] 61402 124 614 20 0 3 0 BULK COPY TO MODIFY ADDRESS OF NEXT 28/0/0 250 [10235] 61403 128 250 0 0 0 MIDDLE OF SPECIAL CHAP BULK COPY SHORT NUMERIC 24/0/3 2060 [10236] 61404 124 614 20 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 250 [10237] 61405 124 250 1 0 0 >NEW POSITION OF NEXT ORDER UNCONDITIONAL JUMP 6/1/0 2058 [10238] 61406 106 614 18 1 0 0 COPY 40 LOCNS STORAGE TABLE TO CHAP 1/80 SELECT (N) 24/0/3 2082 [10239] a 61407 124 614 42 0 3 0 MODIFY ADDRESS OF NEXT 28/0/0 80 [10240] 61408 128 80 0 0 0 BULK COPY SHORT NUMERIC 6/1/0 2056 [10241] 61409 106 614 16 1 0 0 COPY 54 LOCNS MISC TO START OF EXTRA CHA SELECT (N) 24/0/3 2060 [10242] 61410 124 614 20 0 3 0 MODIFY ADDRESS OF NEXT 28/0/0 0 [10243] 61411 128 0 0 0 0 BULK COPY SHORT NUMERIC 1/1/3 0 [10244] 61412 101 0 1 3 0 PARA TABLE START SELECT LITERAL ADDRESS 24/0/3 2055 [10245] 61413 124 614 15 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 1 [10246] 61414 124 1 1 0 0 (6)>LOAD CHAP UNCONDITIONAL JUMP 0/0/0 0 [10247] 61415 100 0 0 0 0 ZERO HALT 0/0/0 16 [10248] 61416 100 16 0 0 0 TABLE ENTRIES HALT 0/0/0 54 [10249] 61417 100 54 0 0 0 HALT Source: ChuckK/Q1000441 0/0/0 70 [10250] 61418 100 70 0 0 0 HALT 0/0/0 40 [10251] 61419 100 40 0 0 0 HALT 0/0/0 0 [10252] 61420 100 0 0 0 0 W/L'S FOR BEGIN/END HALT 0/0/0 0 [10253] 61421 100 0 0 0 0 OF STORE AREAS HALT Start of procedure 615 at location 2062 in chapter 5 [10254] [10254] 61500 CONST 615 0 204 DUMMY PROCEDURE FOR OVERWRITE 16/0/0 64 [10254] 61502 (B)64-; (11)MASTER PSEUDO -00040 0/0/0 0 [10255] 61503 0; +00000 Start of procedure 616 at location 2064 in chapter 5 [10256] [10256] 61600 PROCR 616 INPUT CD DEAL WITH ANNEXES W/L'S [10256] 61601 NOTES RADIX 205 24/1/2 2062 [10256] 61602 124 615 2 1 2 0 UNPACK ALPHA->NUMERIC MODIFY ADDRESS OF NEXT 24/0/2 25 [10257] 61603 124 25 0 2 0 CHAP DETAILS SELECT LITERAL AND DIVISION 18/1/1 4123 [10258] 61604 32 0 0 0 5- SHIFT (AB) BY QUARTETS 1/1/3 28 [10259] 61605 101 28 1 3 0 SELECT LITERAL ADDRESS 18/1/1 5 [10260] 61606 32 0 0 0 5 SHIFT (AB) BY QUARTETS 28/1/0 2013 [10261] a 61607 128 612 3 1 0 0 BULK COPY ALPHA TO SHORT 24/1/2 2062 [10262] 61608 124 615 2 1 2 0 UNPACK ALPHA->NUMERIC MODIFY ADDRESS OF NEXT 24/0/2 5 [10263] 61609 124 5 0 2 0 GENERAL DETAILS SELECT LITERAL AND DIVISION 18/1/1 4123 [10264] 61610 32 0 0 0 5- SHIFT (AB) BY QUARTETS 1/1/3 20 [10265] 61611 101 20 1 3 0 SELECT LITERAL ADDRESS 18/1/1 5 [10266] 61612 32 0 0 0 5 SHIFT (AB) BY QUARTETS 28/1/0 2062 [10267] 61613 128 615 2 1 0 0 BULK COPY ALPHA TO SHORT 6/1/0 2020 [10268] a 61614 612 10 1 0 0 TRANSFER PROG SELECT 2/1/0 2074 [10269] a 61615 5 615 14 1 0 0 SERIAL AND IDENTITY TRANSFER 1/1/3 2012 [10270] a 61616 101 612 2 1 3 0 TEST IF PTS REQD ALLOC COMMENT SELECT LITERAL ADDRESS 18/1/3 3 [10271] 61617 33 0 0 0 3 SHIFT (AB) BY BITS 18/1/1 4127 [10272] 61618 32 0 0 0 1- STORE PARAS FOR SHIFT (AB) BY QUARTETS 2/0/0 2072 [10273] a 61619 5 615 12 0 0 0 ALLOC ROUTES TRANSFER 18/1/3 1 [10274] 61620 33 0 0 0 1 SHIFT (AB) BY BITS 3/0/0 2073 [10275] a 61621 3 615 13 0 0 0 STORE'TRIALS ALLOC'IND COPY 27/0/0 2092 [10276] 61622 70 616 30 0 0 0 >NOT TRIALS ALLOCATED JUMP IF A == 0 1/1/3 0 [10277] 61623 101 0 1 3 0 (28)PTS IN MASTER? SELECT LITERAL ADDRESS 27/0/0 2092 [10278] 61624 70 616 30 0 0 0 >YES JUMP IF A == 0 3/0/0 2063 [10279] 61625 3 615 3 0 0 0 RESERVE MOD GROUP COPY 6/0/0 2244 [10280] 61626 0 619 14 0 0 0 SELECT 2/0/0 2134 [10281] 61627 5 617 21 0 0 0 (TO STEP CTR IF PTS CHAP NEEDED) TRANSFER 1/1/3 1500 [10282] 61628 101 1500 1 3 0 PTS SIZE SELECT LITERAL ADDRESS 7/0/0 2254 [10283] 61629 4 620 10 0 0 0 AUGMENT SPECIALSIZE AUGMENT 24/0/1 2066 [10284] a 61630 124 615 6 0 1 0 FIRST SPECIAL CHAP (CHAPS INITIALLY) MODIFY ADDRESS OF NEXT 3/0/0 2013 [10285] a 61631 103 612 3 0 0 0 COPY (A) TO N 24/0/1 2066 [10286] a 61632 124 615 6 0 1 0 STORE PRINT S/R START MODIFY ADDRESS OF NEXT 6/0/0 2012 [10287] a 61633 106 612 2 0 0 0 (SPEC CHAP LENGTH) SELECT (N) 2/0/0 2077 [10288] a 61634 102 615 17 0 0 0 TRANSFER (A) TO N 6/0/0 2066 [10289] a 61635 615 6 0 0 0 2XCHAPS SELECT 4/0/0 2066 [10290] a 61636 1 615 6 0 0 0 ADD 2/0/0 2079 [10291] a 61637 5 615 19 0 0 0 TRANSFER 24/0/0 2079 [10292] a 61638 124 615 19 0 0 0 MODIFY ADDRESS OF NEXT 2/1/0 2082 [10293] a 61639 102 615 22 1 0 0 CLEAR PTS DETAILS TRANSFER (A) TO N 1/1/3 0 [10294] 61640 101 0 1 3 0 PARA TABLE START SELECT LITERAL ADDRESS 2/0/0 2094 [10295] a 61641 5 615 34 0 0 0 FOR TRANSLATOR TRANSFER 1/0/1 1 [10296] 61642 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 24/0/3 2036 [10297] 61643 124 613 26 0 3 0 MODIFY ADDRESS OF NEXT 15/0/0 27 [10298] 61644 115 27 0 0 0 (3)MACHINE PRINTER TYPE COLLATE AND ADD 1/1/2 9 [10299] 61645 101 9 1 2 0 SUBTRACT LITERAL ADDRESS 3/0/0 2076 [10300] a 61646 103 615 16 0 0 0 STORE INDICATOR COPY (A) TO N 27/0/1 2115 [10301] 61647 71 617 2 0 0 0 >RTE TYPE 4 JUMP IF A != 0 1/1/3 1 [10302] 61648 10 0 0 0 1 SELECT LITERAL 7/0/0 2135 [10303] 61649 4 617 22 0 0 0 AUGMENT Source: ChuckK/Q1000442 7/0/0 2138 [10304] 61650 4 617 25 0 0 0 AUGMENT 6/0/0 2242 [10305] 61651 106 619 12 0 0 0 SELECT (N) 2/0/0 2239 [10306] 61652 102 619 9 0 0 0 TRANSFER (A) TO N Start of procedure 617 at location 2115 in chapter 5 [10307] [10307] 61700 PROCR 617 FORM UP DETAILS FOR PRINTERS [10307] 61701 NOTES RADIX 206 6/0/0 2079 [10307] a 61702 615 19 0 0 0 SET UP MRS 2C:0 SELECT 2/0/0 2030 [10308] 61703 5 613 20 0 0 0 FOR LIST OF CHAPS TRANSFER 6/0/0 2066 [10309] a 61704 615 6 0 0 0 SELECT 3/0/0 2032 [10310] 61705 3 613 22 0 0 0 COPY 1/1/1 4 [10311] 61706 101 4 1 1 0 AND LIST OF LENGTHS ADD LITERAL ADDRESS 2/0/0 2033 [10312] 61707 5 613 23 0 0 0 TRANSFER 26/1/1 2030 [10313] 61708 126 613 20 1 1 0 MR 2C: 0 SET MODIFICATION REGISTER 26/1/3 2032 [10314] 61709 126 613 22 1 3 0 2(C+2) : 0 SET MODIFICATION REGISTER 2/1/1 2084 [10315] a 61710 5 615 24 1 1 0 ENSURE NO PRINT S/R UNLESS DESIRED TRANSFER 1/1/3 0 [10316] 61711 101 0 1 3 0 (28) IS THIS ISSUE 6+MASTER? SELECT LITERAL ADDRESS 27/0/0 2133 [10317] 61712 70 617 20 0 0 0 >NO JUMP IF A == 0 1/1/3 0 [10318] 61713 101 0 1 3 0 (48)BONUS TO SPECIAL CHAP FOR CMR SELECT LITERAL ADDRESS 0/0/2 2246 [10319] 61714 34 620 2 0 0 0 SET (N) IN B 24/0/1 2066 [10320] a 61715 124 615 6 0 1 0 MODIFY ADDRESS OF NEXT 15/0/0 2012 [10321] a 61716 36 612 2 0 0 0 COLLATE AND ADD 24/0/1 2066 [10322] a 61717 124 615 6 0 1 0 MODIFY ADDRESS OF NEXT 14/0/0 2012 [10323] a 61718 37 612 2 0 0 0 REPLACE SELECTED BITS 1/1/3 0 [10324] 61719 10 0 0 0 0 DUMMY SELECT LITERAL 6/0/0 2024 [10325] a 61720 612 14 0 0 0 TEST ANY RT 19 PRINTERS SELECT 27/0/0 2167 [10326] 61721 70 617 54 0 0 0 *FORMED ORDER*->NONE JUMP IF A == 0 6/0/0 2023 [10327] a 61722 0 612 13 0 0 0 *1 ADDED FOR SPECIAL PRINTER* SELECT 26/0/0 2232 [10328] 61723 80 619 2 0 0 0 >BREAK UP DETAILS S/R ENTER SUBROUTINE 25/0/1 2 [10329] 61724 125 2 0 1 0 STEP ON AND TEST 6/0/0 2025 [10330] a 61725 0 612 15 0 0 0 *1 ADDED FOR SPECIAL PRINTER* SELECT 26/0/0 2232 [10331] 61726 80 619 2 0 0 0 >BREAK UP DETAILS S/R ENTER SUBROUTINE 6/0/1 2083 [10332] a 61727 615 23 0 1 0 SELECT 27/0/1 2146 [10333] 61728 71 617 33 0 0 0 >CHAP CHOSEN JUMP IF A != 0 6/0/1 2082 [10334] a 61729 615 22 0 1 0 ANNEXE LENGTH SELECT 6/0/1 2082 [10335] a 61730 615 22 0 1 0 DUMMY SELECT 7/0/0 2254 [10336] 61731 4 620 10 0 0 0 AUGMENT SPECIAL TOTAL AUGMENT 24/1/0 2156 [10337] 61732 76 617 43 0 0 0 JUMP unconditional 2/0/0 2030 [10338] 61733 5 613 20 0 0 0 TRANSFER 6/0/1 2082 [10339] a 61734 615 22 0 1 0 ANNEXE LENGTH SELECT 0/0/2 2246 [10340] 61735 34 620 2 0 0 0 SET (N) IN B 24/0/1 2030 [10341] 61736 124 613 20 0 1 0 CHAP LENGTH ALLOWING MODIFY ADDRESS OF NEXT 15/0/0 2012 [10342] a 61737 36 612 2 0 0 0 FOR NEG CHAP LENGTH COLLATE AND ADD 24/0/1 2030 [10343] 61738 124 613 20 0 1 0 MODIFY ADDRESS OF NEXT 14/0/0 2012 [10344] a 61739 37 612 2 0 0 0 REPLACE SELECTED BITS 6/0/1 2083 [10345] a 61740 615 23 0 1 0 DOUBLE CHAP NO SELECT 7/0/1 2083 [10346] a 61741 4 615 23 0 1 0 AUGMENT 1/1/3 0 [10347] 61742 101 0 1 3 0 CLEAR CHAP LENGTH SELECT LITERAL ADDRESS 2/0/3 2014 [10348] a 61743 5 612 4 0 3 0 TRANSFER 25/0/1 2 [10349] 61744 125 2 0 1 0 STEP ON AND TEST 25/0/3 1 [10350] 61745 125 1 0 3 0 STEP ON AND TEST 24/1/0 2140 [10351] 61746 76 617 27 0 0 0 JUMP unconditional 6/0/0 2076 [10352] a 61747 106 615 16 0 0 0 TEST RTE TYPE 9 SELECT (N) 27/0/0 2165 [10353] 61748 70 617 52 0 0 0 >YES JUMP IF A == 0 1/1/3 1 [10354] 61749 101 1 1 3 0 SELECT LITERAL ADDRESS 7/0/0 2214 [10355] 61750 4 618 21 0 0 0 ADJUST ORDERS FOR PRINT S/R LENGTH AUGMENT 1/1/3 2 [10356] 61751 10 0 0 0 2 (+5 IF GP) SELECT LITERAL 1/1/1 2 [10357] 61752 11 0 0 0 2 (+3 IF SPECIAL) ADD LITERAL 1/1/1 1 [10358] 61753 11 0 0 0 1 (+1 IF TRIALS ALLOC) ADD LITERAL 4/0/0 2066 [10359] a 61754 1 615 6 0 0 0 CHAPS INITIALLY ADD 2/0/0 2030 [10360] 61755 5 613 20 0 0 0 CHAPS FOR ALLOCATION TRANSFER Source: ChuckK/Q1000443 0/1/2 2246 [10361] 61756 34 620 2 1 0 0 Q1=10 SET (N) IN B 24/0/1 2066 [10362] a 61757 124 615 6 0 1 0 INITIAL CHAPS X MODIFY ADDRESS OF NEXT 18/1/3 0 [10363] 61758 118 0 1 3 0 FORM BITS 1-X SHIFT BINARY 2/0/0 2029 [10364] 61759 5 613 19 0 0 0 TRANSFER 24/0/1 2030 [10365] 61760 124 613 20 0 1 0 TOT CHAPS Y MODIFY ADDRESS OF NEXT 18/1/3 0 [10366] 61761 118 0 1 3 0 FORM BITS 1-Y SHIFT BINARY 2/0/0 2031 [10367] 61762 5 613 21 0 0 0 TRANSFER 26/1/3 2060 [10368] 61763 91 614 20 0 3 0 R3 SCANS STORE AREA SET MODIFICATION REGISTER AT VARIABLE 2/0/0 2060 [10369] 61764 5 614 20 0 0 0 CLEAR TRANSFER 6/0/0 2030 [10370] 61765 0 613 20 0 0 0 TOT CHAPS SELECT 5/0/0 2066 [10371] a 61766 2 615 6 0 0 0 INIT CHAPS SUBTRACT 27/0/0 2195 [10372] 61767 70 618 2 0 0 0 >NO SPECIAL CHAPS JUMP IF A == 0 6/0/0 2030 [10373] 61768 0 613 20 0 0 0 SELECT 2/0/0 2037 [10374] 61769 5 613 27 0 0 0 TRANSFER 26/1/1 2036 [10375] 61770 91 613 26 0 1 0 CHAPS:0 SET MODIFICATION REGISTER AT VARIABLE 0/0/2 2040 [10376] 61771 34 613 30 0 0 0 BIT 1 SET (N) IN B 6/0/1 2013 [10377] a 61772 0 612 3 0 1 0 NEXT CHAP LENGTH SELECT 27/0/1 2189 [10378] 61773 71 617 76 0 0 0 >USED JUMP IF A != 0 15/0/0 2246 [10379] 61774 36 620 2 0 0 0 Q1-5(IE B-> A) COLLATE AND ADD 7/0/0 2243 [10380] 61775 4 619 13 0 0 0 STEP'CHAPS ALLOCATED' AUGMENT 18/1/3 1 [10381] 61776 33 0 0 0 1 SHIFT MARKER SHIFT (AB) BY BITS 25/0/1 1 [10382] 61777 125 1 0 1 0 STEP ON AND TEST 24/1/0 2185 [10383] 61778 76 617 72 0 0 0 JUMP unconditional 1/1/3 0 [10384] 61779 10 0 0 0 0 CLEAR SELECT LITERAL 5/0/0 2243 [10385] 61780 2 619 13 0 0 0 SUBTRACT 7/0/0 2031 [10386] 61781 4 613 21 0 0 0 ADJUST'CHAPS UNALLOCATED' AUGMENT Start of procedure 618 at location 2195 in chapter 5 [10387] [10387] 61800 PROCR 618 STORE STORAGE TABLE & ROUND UP SP CH [10387] 61801 NOTES RADIX 207 6/0/0 2066 [10387] a 61802 615 6 0 0 0 MR1=0:C SELECT 2/0/0 2037 [10388] 61803 5 613 27 0 0 0 TRANSFER 26/1/1 2036 [10389] 61804 91 613 26 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 0/0/2 2040 [10390] 61805 34 613 30 0 0 0 BIT 1 SET (N) IN B 1/1/3 8190 [10391] 61806 101 8190 1 3 0 FORM MAXIMUM SIZE SELECT LITERAL ADDRESS 5/0/0 2254 [10392] 61807 2 620 10 0 0 0 FOR MATE OF SPECIALS SUBTRACT 2/0/0 2254 [10393] 61808 5 620 10 0 0 0 TRANSFER 6/0/1 2013 [10394] a 61809 612 3 0 1 0 TEST CHAP SMALL ENOUGH SELECT 5/0/0 2254 [10395] 61810 2 620 10 0 0 0 TO MATE WITH SPECIALS SUBTRACT 27/0/2 2207 [10396] 61811 72 618 14 0 0 0 >NO JUMP IF A >= 0 6/0/0 2248 [10397] 61812 620 4 0 0 0 PACK BITS INTO SELECT 14/0/0 2255 [10398] 61813 37 620 11 0 0 0 MATES PATTERN REPLACE SELECTED BITS 18/1/3 1 [10399] 61814 33 0 0 0 1 SHIFT (AB) BY BITS 25/0/1 1 [10400] 61815 125 1 0 1 0 STEP ON AND TEST 24/1/0 2202 [10401] 61816 76 618 9 0 0 0 >NEXT CHAP JUMP unconditional 6/0/0 2024 [10402] a 61817 612 14 0 0 0 SELECT 0/0/2 2246 [10403] 61818 34 620 2 0 0 0 SET (N) IN B 27/0/0 2217 [10404] 61819 70 618 24 0 0 0 >NO RT 19 PRINTERS JUMP IF A == 0 1/1/3 0 [10405] 61820 10 0 0 0 0 CLEAR SELECT LITERAL 24/1/0 2216 [10406] 61821 76 618 23 0 0 0 *FORMED ORDER*(1 SUBTRACTED IF RT 4) JUMP unconditional 1/1/3 34 [10407] 61822 101 34 1 3 0 50=GP PRINT LENGTH SELECT LITERAL ADDRESS 1/1/1 16 [10408] 61823 101 16 1 1 0 16=SP PRINT S/R LENGTH ADD LITERAL ADDRESS 24/0/1 2066 [10409] a 61824 124 615 6 0 1 0 MODIFY ADDRESS OF NEXT 15/0/0 2012 [10410] a 61825 36 612 2 0 0 0 PRESENT SPECIAL CHAP LENGTH COLLATE AND ADD 1/1/2 506 [10411] 61826 101 506 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/2 2222 [10412] 61827 72 618 29 0 0 0 JUMP IF A >= 0 1/1/3 0 [10413] 61828 10 0 0 0 0 SELECT LITERAL 1/1/1 506 [10414] 61829 101 506 1 1 0 ADD LITERAL ADDRESS 24/0/1 2066 [10415] a 61830 124 615 6 0 1 0 MODIFY ADDRESS OF NEXT 14/0/0 2012 [10416] a 61831 37 612 2 0 0 0 LENGTH AT LEAST 506 REPLACE SELECTED BITS 1/1/3 40 [10417] 61832 101 40 1 3 0 BULK COPY STORE SELECT LITERAL ADDRESS Source: ChuckK/Q1000444 18/0/1 5 [10418] 61833 30 0 0 0 5 AVAILABILITY TABLE SHIFT (A) BY QUARTETS 1/1/1 0 [10419] 61834 101 0 1 1 0 (30) ADD LITERAL ADDRESS 28/0/0 2116 [10420] a 61835 128 615 56 0 0 0 BULK COPY SHORT NUMERIC 6/1/0 2246 [10421] 61836 0 620 2 1 0 0 INSERT END SIGN SELECT 2/1/0 2114 [10422] a 61837 5 615 54 1 0 0 TRANSFER 24/1/0 2256 [10423] 61838 76 621 2 0 0 0 JUMP unconditional Start of procedure 619 at location 2232 in chapter 5 [10424] [10424] 61900 PROCR 619 BREAK UP DETAILS S/R [10424] 61901 NOTES RADIX 208 0/0/0 0 [10424] 61902 81 619 2 0 0 0 (A)=PRINTER(CHAPS*LENGTH) START OF SUBROUTINE 18/1/1 4124 [10425] 61903 32 0 0 0 4- SHIFT (AB) BY QUARTETS 2/0/1 2085 [10426] a 61904 5 615 25 0 1 0 FIRST CHAP TRANSFER 18/1/3 3 [10427] 61905 33 0 0 0 3 SHIFT (AB) BY BITS 2/0/1 2089 [10428] a 61906 5 615 29 0 1 0 SECOND CHAP TRANSFER 18/1/3 1 [10429] 61907 33 0 0 0 1 SHIFT (AB) BY BITS 18/1/1 3 [10430] 61908 32 0 0 0 3 SHIFT (AB) BY QUARTETS 3/0/1 2084 [10431] a 61909 3 615 24 0 1 0 *FORMED*('TRANSFER'IF SPECIAL) LENGTH COPY 2/0/1 2088 [10432] a 61910 5 615 28 0 1 0 TRANSFER 26/0/1 2232 [10433] 61911 82 619 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 2/0/1 2084 [10434] a 61912 5 615 24 0 1 0 LENGTH TRANSFER 0/0/0 0 [10435] 61913 100 0 0 0 0 BIT PATTERN FOR TOT CHAPS ALLOCATED TO D HALT 27/0/0 2166 [10436] 61914 70 617 53 0 0 0 ORDER CONST IN PROCR 205 JUMP IF A == 0 1/1/3 0 [10437] 61915 10 0 0 0 0 DUMMY SELECT LITERAL Start of procedure 620 at location 2246 in chapter 5 [10438] [10438] 62000 CONST 620 0 0 209 CONSTANTS 15/1/3 8191 [10438] 62002 (D)ppppp; +FFFFF 15/1/3 8191 [10439] 62003 ppppp; DIV BDRY COLL CONST +FFFFF 0/0/0 8191 [10440] 62004 1ppp; +01FFF 16/0/0 1 [10441] 62005 1-; -00001 0/0/0 0 [10442] 62006 0; +00000 0/0/0 8 [10443] 62007 8; +00008 0/0/0 0 [10444] 62008 0; +00000 0/0/0 10 [10445] 62009 t; +0000A 16/0/0 2 [10446] 62010 2-; TOTAL SPECIAL SIZE -00002 0/0/0 0 [10447] 62011 0; MATES PATTERN +00000 Start of procedure 621 at location 2256 in chapter 5 [10448] [10448] 62100 PROCR 621 PREPARE TO ALLOCATE NEXT STRIP [10448] 62101 NOTES RADIX 210 6/0/0 2246 [10448] 62102 620 2 0 0 0 TABLE END SIGN pX5 TEST IF LAST STRIP SELECT 3/0/0 2028 [10449] 62103 3 613 18 0 0 0 SET UP MIN WASTAGE COPY 5/0/3 2116 [10450] a 62104 2 615 56 0 3 0 NEXT STRIP LENGTH SUBTRACT 27/0/1 2286 [10451] 62105 71 621 32 0 0 0 >NOT END JUMP IF A != 0 24/1/0 2261 [10452] 62106 76 621 7 0 0 0 *SWITCH* JUMP unconditional 24/1/0 2265 [10453] 62107 76 621 11 0 0 0 (1) ALLOCATING IN 1 STORE ONLY ->REJECT JUMP unconditional 24/1/0 2269 [10454] 62108 76 621 15 0 0 0 (2)2 STORES:END OF NEG->SECOND STORE JUMP unconditional 24/1/0 2277 [10455] 62109 76 621 23 0 0 0 (3)2 STORES:END OF BOTH->FIRSTSTORE JUMP unconditional 24/1/0 2265 [10456] 62110 76 621 11 0 0 0 (4)2 STORES:END OF BOTH->SECOND STORE JUMP unconditional 1/1/3 83 [10457] 62111 10 0 0 0 53 ALLOC FAILED SELECT LITERAL 24/0/3 2036 [10458] 62112 124 613 26 0 3 0 CODE LETTER C MODIFY ADDRESS OF NEXT 24/1/0 0 [10459] 62113 124 0 1 0 0 (14)->REJECT ALLOCATION UNCONDITIONAL JUMP 24/1/0 2260 [10460] 62114 76 621 6 0 0 0 ORDER CONST JUMP unconditional 1/1/3 0 [10461] 62115 10 0 0 0 0 RESET MR3 SELECT LITERAL 24/0/3 2036 [10462] 62116 124 613 26 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 30 [10463] 62117 102 30 1 0 0 CLEAR TRANSFER (A) TO N 1/1/2 1 [10464] 62118 12 0 0 0 1 SUBTRACT LITERAL 7/0/0 2260 [10465] 62119 4 621 6 0 0 0 SET SWITCH=3 AUGMENT Source: DaveJ/Q1000445 6/0/0 2027 [10466] 62120 0 613 17 0 0 0 SELECT 7/0/0 2318 [10467] 62121 4 622 30 0 0 0 (73->71 ORDER) AUGMENT 24/1/0 2286 [10468] 62122 76 621 32 0 0 0 JUMP unconditional 1/1/3 0 [10469] 62123 10 0 0 0 0 *FORMED*SET R3 TO ADDRESS SECOND TABLE SELECT LITERAL 24/0/3 2036 [10470] 62124 124 613 26 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 30 [10471] 62125 102 30 0 0 0 TRANSFER (A) TO N 6/0/3 2116 [10472] a 62126 00 615 56 0 3 0 TEST NO ROOM IN SELECT 5/0/0 2246 [10473] 62127 2 620 2 0 0 0 2ND STORE SUBTRACT 27/0/0 2265 [10474] 62128 70 621 11 0 0 0 gYES JUMP IF A == 0 1/1/3 0 [10475] 62129 10 0 0 0 0 SELECT LITERAL 1/1/2 1 [10476] 62130 12 0 0 0 1 SUBTRACT LITERAL 7/0/0 2260 [10477] 62131 4 621 6 0 0 0 SET SWITCH=4 AUGMENT 1/1/3 1 [10478] 62132 10 0 0 0 1 SET UP BIT PATTERN SELECT LITERAL 2/1/0 2034 [10479] 62133 5 613 24 1 0 0 AND ALLOC CONST TRANSFER 6/0/0 2030 [10480] 62134 613 20 0 0 0 SET UP MR1 SETTING SELECT 2/0/0 2037 [10481] 62135 5 613 27 0 0 0 TRANSFER Start of procedure 622 at location 2290 in chapter 5 [10482] [10482] 62200 PROCR 622 ALLOCATE STRIP FOR MINIMUM WASTAGE [10482] 62201 NOTES RADIX 211 1/1/3 0 [10482] 62202 10 0 0 0 0 CLEAR SELECT LITERAL 0/0/2 2034 [10483] 62203 34 613 24 0 0 0 VBLE PATTERN SET (N) IN B 15/0/0 2243 [10484] 62204 36 619 13 0 0 0 ALLOC TO DATE'PATTERN COLLATE AND ADD 27/0/1 2337 [10485] 62205 71 622 49 0 0 0 gDISCARD,SOME CHAP ALREADY USED JUMP IF A != 0 6/0/0 2029 [10486] 62206 0 613 19 0 0 0 INITIAL CHAPS'PATTERN SELECT 5/0/0 2031 [10487] 62207 2 613 21 0 0 0 CHAPS UNALLOCATED'PATTERN SUBTRACT 27/0/2 2311 [10488] 62208 72 622 23 0 0 0 gALL SPECIAL CHAPS ALLOCATED JUMP IF A >= 0 1/1/3 0 [10489] 62209 10 0 0 0 0 SELECT LITERAL 15/0/0 2029 [10490] 62210 36 613 19 0 0 0 INITIAL'PATTERN COLLATE AND ADD 27/0/0 2337 [10491] 62211 70 622 49 0 0 0 gDISCARD;CONTAINS SPECIALS ONLY JUMP IF A == 0 1/1/3 0 [10492] 62212 10 0 0 0 0 VBLE=OUTSTANDING SELECT LITERAL 6/0/0 2031 [10493] 62213 613 21 0 0 0 UNALLOC SELECT 5/0/0 2034 [10494] 62214 2 613 24 0 0 0 VARIABLE SUBTRACT 2/0/0 2158 [10495] a 62215 5 615 98 0 0 0 FUTURE PATTERN TRANSFER 0/0/2 2255 [10496] 62216 34 620 11 0 0 0 SUITABLE MATES PATTERN SET (N) IN B 15/0/0 2158 [10497] a 62217 36 615 98 0 0 0 ANY LEFT? COLLATE AND ADD 27/0/1 2311 [10498] 62218 71 622 23 0 0 0 gYES,ACCEPTABLE PATTERN JUMP IF A != 0 0/0/2 2029 [10499] 62219 34 613 19 0 0 0 INITIAL SET (N) IN B 15/0/0 2158 [10500] a 62220 36 615 98 0 0 0 FUTURE PATTERN COLLATE AND ADD 5/0/0 2158 [10501] a 62221 2 615 98 0 0 0 FUTURE PATTERN SUBTRACT 27/0/1 2337 [10502] 62222 71 622 49 0 0 0 gDISCARD,COULD USE UP SUITABLES JUMP IF A != 0 1/1/3 0 [10503] 62223 10 0 0 0 0 SELECT LITERAL 2/1/0 2038 [10504] 62224 5 613 28 1 0 0 CLEAR WL TRANSFER 0/0/2 2040 [10505] 62225 100 613 30 0 2 0 BIT 1=DECODER REPLACE (B) BY (N) 26/1/1 2036 [10506] 62226 126 613 26 1 1 0 CHAPS:0 SET MODIFICATION REGISTER 15/0/0 2034 [10507] 62227 36 613 24 0 0 0 VBLE PATTERN COLLATE AND ADD 27/0/0 2326 [10508] 62228 70 622 38 0 0 0 gCHAP NOT IN COMBINATION JUMP IF A == 0 6/0/1 2013 [10509] a 62229 612 3 0 1 0 LENGTH SELECT 27/0/1 2322 [10510] 62230 71 622 34 0 0 0 (73 FIRST TIME 2 STORES)->USE JUMP IF A != 0 1/1/3 0 [10511] 62231 101 0 1 3 0 SELECT LITERAL ADDRESS 15/0/0 2246 [10512] 62232 36 620 2 0 0 0 Q1-5(DECODER->A) COLLATE AND ADD 24/1/0 2338 [10513] 62233 76 622 50 0 0 0 gSKIP SOME COMBINATIONS JUMP unconditional 2/1/0 2158 [10514] a 62234 5 615 98 1 0 0 TRANSFER 6/0/0 2158 [10515] a 62235 615 98 0 0 0 MODULUS OF LENGTH SELECT 7/0/0 2038 [10516] 62236 4 613 28 0 0 0 TOTAL FOR STRIP AUGMENT 1/1/3 0 [10517] 62237 10 0 0 0 0 CLEAR A SELECT LITERAL 18/1/3 1 [10518] 62238 33 0 0 0 1 SHIFT COLLATOR SHIFT (AB) BY BITS 25/0/1 1 [10519] 62239 125 1 0 1 0 TEST LAST CHAP STEP ON AND TEST 24/1/0 2315 [10520] 62240 76 622 27 0 0 0 gNO JUMP unconditional Source: DaveJ/Q1000446 6/0/3 2117 [10521] a 62241 615 57 0 3 0 STRIP LENGTH SELECT 5/0/0 2038 [10522] 62242 2 613 28 0 0 0 TOTAL CHAP LENGTHS SUBTRACT 27/0/3 2337 [10523] 62243 73 622 49 0 0 0 gDISCARD,TOO BIG JUMP IF A < 0 5/0/0 2028 [10524] 62244 2 613 18 0 0 0 MIN WASTAGTE SUBTRACT 27/0/2 2337 [10525] 62245 72 622 49 0 0 0 gNO IMPROVEMENT JUMP IF A >= 0 7/0/0 2028 [10526] 62246 4 613 18 0 0 0 UPDATE MIN WASTAGE AUGMENT 6/0/0 2034 [10527] 62247 0 613 24 0 0 0 VBLE PATTERN SELECT 2/0/0 2041 [10528] 62248 5 613 31 0 0 0 STORE PATTERN GIVING BEST FIT TRANSFER 1/1/3 1 [10529] 62249 10 0 0 0 1 STEP BIT PATTERN SELECT LITERAL 7/0/0 2034 [10530] 62250 4 613 24 0 0 0 AUGMENT 6/0/0 2031 [10531] 62251 0 613 21 0 0 0 CHAPS UNALLOCATED'PATTERN SELECT 5/0/0 2034 [10532] 62252 2 613 24 0 0 0 VBLE PATTERN SUBTRACT 27/0/2 2290 [10533] 62253 72 622 2 0 0 0 gTRY AGAIN JUMP IF A >= 0 25/0/3 2 [10534] 62254 125 2 0 3 0 TEST STRIP UNTOUCHED STEP MR3 STEP ON AND TEST 6/0/0 2028 [10535] 62255 613 18 0 0 0 WASTAGE SELECT 5/0/0 2246 [10536] 62256 2 620 2 0 0 0 ppppp SUBTRACT 27/0/0 2256 [10537] 62257 70 621 2 0 0 0 gYES JUMP IF A == 0 6/0/3 2115 [10538] a 62258 615 55 0 3 0 LENGTH OF NEW STRIP SELECT 5/0/0 2028 [10539] 62259 2 613 18 0 0 0 SUBTRACT 2/0/0 2038 [10540] 62260 5 613 28 0 0 0 TRANSFER 5/0/0 2041 [10541] 62261 2 613 31 0 0 0 SUBTRACT 7/0/0 2031 [10542] 62262 4 613 21 0 0 0 UPDATE'CHAPS UNALLOCATED' AUGMENT 6/0/0 2041 [10543] 62263 0 613 31 0 0 0 SELECT 7/0/0 2243 [10544] 62264 4 619 13 0 0 0 UPDATE'CHAPS ALLOCATED' AUGMENT 1/1/3 0 [10545] 62265 10 0 0 0 0 CLEAR A SELECT LITERAL Start of procedure 623 at location 2354 in chapter 5 [10546] [10546] 62300 PROCR 623 SET UP DETAILS OF REDUCED STRIP+START OF [10546] 62301 NOTES RADIX 212 ALLOC IN STRIPS 0/0/2 2248 [10546] 62302 100 620 4 0 2 0 REPLACE (B) BY (N) 15/0/3 2114 [10547] a 62303 36 615 54 0 3 0 COLLATE AND ADD 27/0/0 2363 [10548] 62304 70 623 11 0 0 0 gSTRIP BEGIN=DIV BEGIN JUMP IF A == 0 4/0/3 2115 [10549] a 62305 1 615 55 0 3 0 TEST STRIP END ADD 5/0/0 2248 [10550] 62306 2 620 4 0 0 0 IS DIV END SUBTRACT 27/0/3 2363 [10551] 62307 73 623 11 0 0 0 gNO,ALLOC FROM STRIP START JUMP IF A < 0 6/0/0 2028 [10552] 62308 613 18 0 0 0 MIN WASTAGE SELECT 2/0/0 2035 [10553] 62309 5 613 25 0 0 0 TRANSFER 24/1/0 2364 [10554] 62310 76 623 12 0 0 0 INDICATOR JUMP unconditional 6/0/0 2038 [10555] 62311 613 28 0 0 0 STORE NEW STRIP LENGTH SELECT 4/0/3 2114 [10556] a 62312 1 615 54 0 3 0 START AND END STRIP START ADD 2/0/0 2158 [10557] a 62313 5 615 98 0 0 0 NEW STRIP START TRANSFER 6/0/0 2028 [10558] 62314 613 18 0 0 0 SELECT 2/0/0 2159 [10559] a 62315 5 615 99 0 0 0 STRIP LENGTH TRANSFER 6/0/0 2035 [10560] 62316 613 25 0 0 0 STORE ALLOC START MIN WASTAGE OR 0 SELECT 4/0/3 2114 [10561] a 62317 1 615 54 0 3 0 ADD 2/0/0 2035 [10562] 62318 5 613 25 0 0 0 ALLOC START TRANSFER 1/1/3 0 [10563] 62319 10 0 0 0 0 DUMMY SELECT LITERAL Start of procedure 624 at location 2372 in chapter 5 [10564] [10564] 62400 PROCR 624 ALLOCATE CHAPS IN THIS STRIP [10564] 62401 NOTES RADIX 213 26/1/1 2036 [10564] 62402 126 613 26 1 1 0 CHAPS;0 SET MODIFICATION REGISTER 26/1/2 2060 [10565] 62403 126 614 20 1 2 0 NEVER RUNS OUT SET MODIFICATION REGISTER 0/0/2 2040 [10566] 62404 100 613 30 0 2 0 BIT 1=DECODER REPLACE (B) BY (N) 15/0/0 2041 [10567] 62405 36 613 31 0 0 0 PATTERN=MOST FAVOURABLE ALLOC IN STRIP COLLATE AND ADD 27/0/0 2391 [10568] 62406 70 624 21 0 0 0 gTHIS CHAP NOT IN STRIP JUMP IF A == 0 6/0/1 2013 [10569] a 62407 00 612 3 0 1 0 LENGTH(+-) SELECT Source: KenK/Q1000447 2/1/0 2156 [10570] a 62408 5 615 96 1 0 0 TRANSFER 6/0/0 2035 [10571] 62409 613 25 0 0 0 SELECT 3/0/2 2082 [10572] a 62410 3 615 22 0 2 0 CHAP START COPY 4/0/0 2156 [10573] a 62411 1 615 96 0 0 0 MODULUS OF CHAP LENGTH ADD 3/0/2 2083 [10574] a 62412 3 615 23 0 2 0 CHAP END COPY 2/0/0 2035 [10575] 62413 5 613 25 0 0 0 NEW ALLOC START TRANSFER 24/0/3 2036 [10576] 62414 124 613 26 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 28 [10577] 62415 106 28 0 0 0 R2 MODIFER=CHAP-2 SELECT (N) 5/0/0 2079 [10578] a 62416 2 615 19 0 0 0 CHAPS INITIALLY SUBTRACT 27/0/2 2396 [10579] 62417 72 624 26 0 0 0 gTHIS IS A SPECIAL CHAPTER JUMP IF A >= 0 4/0/0 2079 [10580] a 62418 1 615 19 0 0 0 ADD 2/0/0 2039 [10581] 62419 102 613 29 0 0 0 (MAX NORMAL CHAP IN STRIP)-2 TRANSFER (A) TO N 2/0/1 2013 [10582] a 62420 5 612 3 0 1 0 CLEAR CHAP DETAILS TRANSFER 18/1/3 1 [10583] 62421 33 0 0 0 1 SHIFT DECODER BIT SHIFT (AB) BY BITS 25/0/2 2 [10584] 62422 125 2 0 2 0 STEP ON AND TEST 25/0/1 1 [10585] 62423 125 1 0 1 0 STEP ON AND TEST 24/1/0 2375 [10586] 62424 76 624 5 0 0 0 gNEXT CHAP JUMP unconditional 24/1/0 2404 [10587] 62425 76 626 2 0 0 0 gNOW SORT REMAINDER OF STRIP JUMP unconditional 6/0/1 2013 [10588] a 62426 612 3 0 1 0 SPECIAL CHAP LENGTH(ALWAYS>0) SELECT 24/0/0 2039 [10589] 62427 124 613 29 0 0 0 MODIFY ADDRESS OF NEXT 7/0/0 2083 [10590] a 62428 107 615 23 0 0 0 STEP END OF LAST NORMAL CHAP STRIP AUGMENT (N) BY (A) 2/0/2 2082 [10591] a 62429 5 615 22 0 2 0 CHAP TRANSFER 6/0/0 2039 [10592] 62430 613 29 0 0 0 SELECT 1/1/1 2 [10593] 62431 101 2 1 1 0 ADD LITERAL ADDRESS 2/0/2 2083 [10594] a 62432 5 615 23 0 2 0 STORE ASSOC CHAP FOR THIS SPECAIL TRANSFER 24/1/0 2390 [10595] 62433 76 624 20 0 0 0 gNEXT CHAP JUMP unconditional Start of procedure 625 at location 2404 in chapter 5 [10596] [10596] 62500 PROCR 625 ADJUST NO OF CHAPS [10596] 62501 NOTES RADIX 214 Start of procedure 626 at location 2404 in chapter 5 [10596] [10596] 62600 PROCR 626 SORT REDUCED STRIP AVAILABILITY,TEST ALL ALLOC [10596] 62601 NOTES RADIX 215 24/0/3 2036 [10596] 62602 124 613 26 0 3 0 ;SET MR2 MODIFY ADDRESS OF NEXT 6/0/0 30 [10597] 62603 106 30 0 0 0 ;NEVER RUNS OUT SELECT (N) 24/0/3 2036 [10598] 62604 124 613 26 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 28 [10599] 62605 102 28 1 0 0 ;TEST NEW STRIP TRANSFER (A) TO N 6/0/0 2159 [10600] a 62606 615 99 0 0 0 ;OF LENGTH ZERO SELECT 27/0/1 2419 [10601] 62607 71 626 17 0 0 0 gNO JUMP IF A != 0 25/0/3 4098 [10602] 62608 125 4098 0 3 0 STEP ON AND TEST 24/1/0 2413 [10603] 62609 76 626 11 0 0 0 gIN CASE IT RUNS OUT JUMP unconditional 1/1/3 0 [10604] 62610 10 0 0 0 0 DUMMY SELECT LITERAL 6/1/2 2116 [10605] a 62611 615 56 1 2 0 MOVE NEXT ITEM DOWN SELECT 3/1/2 2114 [10606] a 62612 3 615 54 1 2 0 COPY 5/1/0 2246 [10607] 62613 2 620 2 1 0 0 TEST END SUBTRACT 27/0/0 2430 [10608] 62614 70 626 28 0 0 0 gYES JUMP IF A == 0 25/0/2 2 [10609] 62615 125 2 0 2 0 STEP MR2 STEP ON AND TEST 24/1/0 2413 [10610] 62616 76 626 11 0 0 0 gNEXT ITEM JUMP unconditional 6/1/2 2112 [10611] a 62617 615 52 1 2 0 FIND CORECT PLACE ;INSERT NEW STRIP SELECT 5/1/0 2158 [10612] a 62618 2 615 98 1 0 0 ;IN CORRECT PLACE SUBTRACT 27/0/3 2428 [10613] 62619 73 626 26 0 0 0 gFOUND JUMP IF A < 0 4/1/0 2158 [10614] a 62620 1 615 98 1 0 0 ADD 3/1/2 2114 [10615] a 62621 3 615 54 1 2 0 COPY 5/1/0 2246 [10616] 62622 2 620 2 1 0 0 TEST END SUBTRACT 27/0/0 2428 [10617] 62623 70 626 26 0 0 0 gYES JUMP IF A == 0 25/0/2 4098 [10618] 62624 125 4098 0 2 0 STEP ON AND TEST 24/1/0 2419 [10619] 62625 76 626 17 0 0 0 JUMP unconditional 6/1/0 2158 [10620] a 62626 615 98 1 0 0 INSERT NEW ITEM SELECT Source: KenK/Q1000448 2/1/2 2114 [10621] a 62627 5 615 54 1 2 0 TRANSFER 6/0/0 2031 [10622] 62628 0 613 21 0 0 0 CHARS UNALLOCATED'PATTERN SELECT 27/0/1 2256 [10623] 62629 71 621 2 0 0 0 gTRY AGAIN JUMP IF A != 0 1/1/3 0 [10624] 62630 10 0 0 0 0 SELECT LITERAL 2/0/0 2078 [10625] a 62631 5 615 18 0 0 0 CLEAR W/L TRANSFER Start of procedure 627 at location 2434 in chapter 5 [10626] [10626] 62700 PROCR 627 ALLOCATION SUCCESSFUL-CALC RELATIVE START OF SPECIAL CHAPS [10626] 62701 NOTES RADIX 216 AND STORE PARAS FOR PTS 6/0/0 2079 [10626] a 62702 615 19 0 0 0 SELECT 7/0/0 2253 [10627] 62703 4 620 9 0 0 0 AUGMENT 7/0/0 2252 [10628] 62704 4 620 8 0 0 0 AUGMENT 26/1/1 2078 [10629] a 62705 126 615 18 1 1 0 R1=INIT CHAPS:0 SET MODIFICATION REGISTER 26/1/3 2252 [10630] 62706 126 620 8 1 3 0 R3=10+INIT CHAPS:INIT CHAPS SET MODIFICATION REGISTER 6/0/1 2083 [10631] a 62707 106 615 23 0 1 0 CHAP END SELECT (N) 5/0/1 2082 [10632] a 62708 105 615 22 0 1 0 CHAP START SUBTRACT (N) FROM (A) 2/0/0 2029 [10633] 62709 102 613 19 0 0 0 =CHAP LENGTH TRANSFER (A) TO N 6/0/3 2083 [10634] a 62710 106 615 23 0 3 0 2X CHAP OF NEXT SPECIAL SELECT (N) 24/0/3 2036 [10635] 62711 124 613 26 0 3 0 MODIFY ADDRESS OF NEXT 5/0/0 26 [10636] 62712 105 26 0 0 0 -R1 MODIFIER SUBTRACT (N) FROM (A) 1/1/2 2 [10637] 62713 101 2 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 2451 [10638] 62714 71 627 19 0 0 0 gNEXT SPEC CHAP NOT WITH THIS CHAP JUMP IF A != 0 6/0/0 2029 [10639] 62715 106 613 19 0 0 0 FORM SPECAL CHAPS SELECT (N) 5/0/3 2082 [10640] a 62716 105 615 22 0 3 0 RELATIVE START SUBTRACT (N) FROM (A) 3/0/0 2029 [10641] 62717 3 613 19 0 0 0 RESET CHAP END SIGN COPY 2/0/3 2092 [10642] a 62718 102 615 32 0 3 0 REL START THIS SPECIAL CHAP TRANSFER (A) TO N 25/0/3 2 [10643] 62719 125 2 0 3 0 STEP MR3 STEP ON AND TEST 24/1/0 2442 [10644] 62720 76 627 10 0 0 0 gNEXT SPEC CHAP JUMP unconditional 25/0/1 2 [10645] 62721 125 2 0 1 0 STEP MR1 STEP ON AND TEST 24/1/0 2438 [10646] 62722 76 627 6 0 0 0 gNEXT CHAP JUMP unconditional 6/0/3 2073 [10647] a 62723 106 615 13 0 3 0 2X CHAP OF PTS=FIRST SPECIAL CHAP SELECT (N) 27/0/0 2468 [10648] 62724 70 628 2 0 0 0 gNO PTS JUMP IF A == 0 3/0/0 2029 [10649] 62725 103 613 19 0 0 0 COPY (A) TO N 18/0/1 4 [10650] 62726 30 0 0 0 4 SHIFT (A) BY QUARTETS 24/0/3 2036 [10651] 62727 124 613 26 0 3 0 STORE CH NO IN PARAMETER 45 MODIFY ADDRESS OF NEXT 2/0/0 43 [10652] 62728 102 43 0 0 0 PARAMETER TRANSFER (A) TO N 24/0/1 2029 [10653] 62729 124 613 19 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 2080 [10654] a 62730 106 615 20 0 0 0 FORM CHAP START SELECT (N) 4/0/3 2082 [10655] a 62731 104 615 22 0 3 0 FOR PTS ADD (N) TO (A) 24/0/0 2029 [10656] 62732 124 613 19 0 0 0 MODIFY ADDRESS OF NEXT 3/0/0 2081 [10657] a 62733 103 615 21 0 0 0 STORE NEW CHAP END COPY (A) TO N 24/0/3 2036 [10658] 62734 124 613 26 0 3 0 STORE PTS CHAP START MODIFY ADDRESS OF NEXT 7/0/0 43 [10659] 62735 107 43 0 0 0 AUGMENT (N) BY (A) Start of procedure 628 at location 2468 in chapter 5 [10660] [10660] 62800 PROCR 628 PREPARE TO CALL NEXT CHUNK [10660] 62801 NOTES RADIX 24/0/1 2079 [10660] a 62802 124 615 19 0 1 0 START OF SPECIAL CHAP MODIFY ADDRESS OF NEXT 6/0/0 2080 [10661] a 62803 106 615 20 0 0 0 CHAP SELECT (N) 3/0/0 2060 [10662] 62804 3 614 20 0 0 0 COPY 1/1/1 54 [10663] 62805 101 54 1 1 0 SP CHAP START+52 ADD LITERAL ADDRESS 24/0/3 2061 [10664] 62806 124 614 21 0 3 0 MODIFY ADDRESS OF NEXT 3/0/0 28 [10665] 62807 103 28 0 0 0 SET HR2 COPY (A) TO N 24/0/3 2061 [10666] 62808 124 614 21 0 3 0 MODIFY ADDRESS OF NEXT 3/0/0 5 [10667] 62809 103 5 0 0 0 SET PARAS 9 COPY (A) TO N 24/0/3 2061 [10668] 62810 124 614 21 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 0 [10669] 62811 102 0 0 0 0 (6)LOAD CHAP SR LINK TRANSFER (A) TO N 24/0/3 2060 [10670] 62812 124 614 20 0 3 0 MODIFY ADDRESS OF NEXT 1/1/3 0 [10671] 62813 101 0 1 3 0 SELECT LITERAL ADDRESS 24/0/3 2061 [10672] 62814 124 614 21 0 3 0 MODIFY ADDRESS OF NEXT 3/0/0 2 [10673] 62815 103 2 0 0 0 CHAP START PARA COPY (A) TO N 1/1/1 54 [10674] 62816 101 54 1 1 0 ADD LITERAL ADDRESS Source: TonyJ/Q1000449 24/0/3 2061 [10675] 62817 124 614 21 0 3 0 CHUNK START PARA MODIFY ADDRESS OF NEXT 2/0/0 1 [10676] 62818 102 1 0 0 0 TRANSFER (A) TO N 1/1/3 0 [10677] 62819 10 0 0 0 0 DUMMY SELECT LITERAL Start of procedure 629 at location 2486 in chapter 5 [10678] [10678] 62900 PROCR 629 629 PREPARE 1 OR 2 MOVES [10678] 62901 NOTES RADIX 218 X=TABLE Y=SPEC Z=1ST CHAP STARTS 24/0/2 2156 [10678] a 62902 124 615 96 0 2 0 END OF ALL DATA SELECT LITERAL AND DIVISION 5/0/0 2060 [10679] 62903 2 614 20 0 0 0 SPECIAL CHAP START SUBTRACT 27/0/3 2491 [10680] 62904 73 629 7 0 0 0 > OK PROVISIONALLY ) SPECIAL STARTS TOO LAT JUMP IF A < 0 1/1/2 170 [10681] 62905 101 170 1 2 0 (PROBABLY 164 OK) SUBTRACT LITERAL ADDRESS 27/0/3 2496 [10682] 62906 73 629 12 0 0 0 > DOUBLE MOVE NEEDED JUMP IF A < 0 24/0/2 2156 [10683] a 62907 124 615 96 0 2 0 DATA END SELECT LITERAL AND DIVISION 5/0/0 2082 [10684] a 62908 2 615 22 0 0 0 CHAP 1 START SUBTRACT 27/0/3 2516 [10685] 62909 73 629 32 0 0 0 > OK, SINGLE MOVE JUMP IF A < 0 1/1/2 156 [10686] 62910 101 156 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/2 2516 [10687] 62911 72 629 32 0 0 0 > OK, SINGLE MOVE JUMP IF A >= 0 1/1/3 250 [10688] 62912 101 250 1 3 0 ADJUST ORDERS SELECT LITERAL ADDRESS 0/0/2 2248 [10689] 62913 34 620 4 0 0 0 SET (N) IN B 15/0/0 2060 [10690] 62914 36 614 20 0 0 0 COLLATE AND ADD 1/1/2 2046 [10691] 62915 101 614 6 1 2 0 SUBTRACT LITERAL ADDRESS 7/0/0 2046 [10692] 62916 4 614 6 0 0 0 TO WORK IN MIDDLE AUGMENT 7/0/0 2049 [10693] 62917 4 614 9 0 0 0 OF SPECIAL GROUP AUGMENT 2/0/0 2488 [10694] 62918 5 629 4 0 0 0 TRANSFER 5/0/0 2488 [10695] 62919 2 629 4 0 0 0 SUBTRACT 7/0/0 2047 [10696] 62920 4 614 7 0 0 0 ADJUST NEGATIVE ORDERS AUGMENT 7/0/0 2050 [10697] 62921 4 614 10 0 0 0 AUGMENT 7/0/0 2053 [10698] 62922 4 614 13 0 0 0 AUGMENT 6/0/0 2060 [10699] 62923 614 20 0 0 0 ADJUST T/E SELECT 1/1/1 250 [10700] 62924 101 250 1 1 0 ADD LITERAL ADDRESS 7/0/0 2056 [10701] 62925 4 614 16 0 0 0 AUGMENT 7/0/0 2058 [10702] 62926 4 614 18 0 0 0 AUGMENT 24/0/2 2046 [10703] 62927 124 614 6 0 2 0 FORM BULK COPY T/E SELECT LITERAL AND DIVISION 18/1/1 4123 [10704] 62928 32 0 0 0 5- SHIFT (AB) BY QUARTETS 1/1/1 110 [10705] 62929 101 110 1 1 0 AMOUNT OF DATA ADD LITERAL ADDRESS 18/1/1 5 [10706] 62930 32 0 0 0 5 > MORE DETAILS YET SHIFT (AB) BY QUARTETS 24/1/0 2042 [10707] 62931 76 614 2 0 0 0 JUMP unconditional 24/0/2 2046 [10708] 62932 124 614 6 0 2 0 ADJUST ORDERS TO SELECT LITERAL AND DIVISION 7/0/0 2056 [10709] 62933 4 614 16 0 0 0 PRODUCE 15 BIT T/E's AUGMENT 7/0/0 2058 [10710] 62934 4 614 18 0 0 0 AUGMENT 24/1/0 2046 [10711] 62935 76 614 6 0 0 0 JUMP unconditional 0/0/0 0 [10712] 62936 100 0 0 0 0 HALT 0/0/0 0 [10713] 62937 100 0 0 0 0 HALT 0/0/0 0 [10714] 62938 100 0 0 0 0 HALT 0/0/0 0 [10715] 62939 100 0 0 0 0 HALT 0/0/0 0 [10716] 62940 100 0 0 0 0 HALT 0/0/0 0 [10717] 62941 100 0 0 0 0 HALT 0/0/0 0 [10718] 62942 100 0 0 0 0 HALT 0/0/0 0 [10719] 62943 100 0 0 0 0 HALT Start of procedure 630 at location 2528 in chapter 5 [10720] [10720] 63000 PROCR 630 300 START OF ALLOC ROUTES [10720] 63001 NOTES RADIX FIRST LOCN=54 OF SPECIAL CHAP 6/0/0 10 [10720] 63002 106 10 0 0 0 ALLOC COMMAND SELECT (N) 18/1/1 4126 [10721] 63003 32 0 0 0 2- SHIFT (AB) BY QUARTETS Start of procedure 631 at location 2530 in chapter 5 [10722] [10722] 63100 PROCR 631 [10722] 63101 NOTES RADIX 302 1/1/2 1 [10722] 63102 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 2536 [10723] 63103 71 631 8 0 0 0 > NO ALT RTES JUMP IF A != 0 1/0/1 3 [10724] 63104 35 0 0 0 11 PREPARE FOR DIGIT COLLATION Source: TonyJ/Q1000450 14/0/0 2944 [10725] 63105 37 645 8 0 0 0 EAR REPLACE SELECTED BITS 14/0/0 2680 [10726] 63106 37 636 24 0 0 0 ORM REPLACE SELECTED BITS 14/0/0 2726 [10727] 63107 37 638 3 0 0 0 FORM 1/1/1 REPLACE SELECTED BITS 1/1/3 0 [10728] 63108 101 0 1 3 0 (32) SELECT LITERAL ADDRESS 27/0/1 2544 [10729] 63109 71 631 16 0 0 0 > MORE THAN 8 CHANNELS JUMP IF A != 0 6/1/0 2964 [10730] 63110 645 28 1 0 0 SELECT 2/1/0 2952 [10731] 63111 5 645 16 1 0 0 TRANSFER 6/0/0 2901 [10732] 63112 641 9 0 0 0 SET S/R FOR SELECT 2/0/0 2898 [10733] 63113 5 641 6 0 0 0 8 CHANNELS TRANSFER 6/1/0 2948 [10734] 63114 645 12 1 0 0 M/R CONSTANTS SELECT 2/1/0 2946 [10735] 63115 5 645 10 1 0 0 TRANSFER 1/1/3 2 [10736] 63116 101 2 1 3 0 SELECT LITERAL ADDRESS 18/1/1 4118 [10737] 63117 32 0 0 0 10- SHIFT (AB) BY QUARTETS 15/0/0 10 [10738] 63118 115 10 0 0 0 COLLATE AND ADD 27/0/0 2555 [10739] 63119 70 631 27 0 0 0 >FORWARD ALLOC JUMP IF A == 0 6/1/0 2946 [10740] 63120 645 10 1 0 0 RESET MRS SELECT 2/1/0 2940 [10741] 63121 5 645 4 1 0 0 TRANSFER 6/1/0 2948 [10742] 63122 645 12 1 0 0 SELECT 2/1/0 2942 [10743] 63123 5 645 6 1 0 0 TRANSFER 1/1/2 4096 [10744] 63124 101 4096 1 2 0 ADJUST STEP MR SUBTRACT LITERAL ADDRESS 7/0/0 2907 [10745] 63125 4 642 7 0 0 0 VALUE AUGMENT 24/1/0 2557 [10746] 63126 76 631 29 0 0 0 >LEAVE R IN COMMENT JUMP unconditional 1/0/1 12 [10747] 63127 35 0 0 0 1100 PREPARE FOR DIGIT COLLATION 14/1/0 2944 [10748] 63128 37 645 8 1 0 0 CLEAR R REPLACE SELECTED BITS 6/0/0 11 [10749] 63129 106 11 0 0 0 SELECT (N) 27/0/1 2561 [10750] 63130 71 631 33 0 0 0 >TRIALS JUMP IF A != 0 1/0/1 48 [10751] 63131 35 0 0 0 110000 LETE PREPARE FOR DIGIT COLLATION 14/1/0 2944 [10752] 63132 37 645 8 1 0 0 FOR NO TRIALS REPLACE SELECTED BITS 6/1/0 12 [10753] 63133 106 12 1 0 0 PROG ID >SERIAL SELECT (N) 2/1/0 2528 [10754] 63134 5 630 2 1 0 0 >WL TRANSFER 24/1/0 2594 [10755] 63135 76 635 2 0 0 0 JUMP unconditional Start of procedure 632 at location 2564 in chapter 5 [10756] [10756] 63200 CONST 632 1 303 CONSTANTS 3/0/3 1619 [10756] 63202 (A)ALLOC; 36653 +51636 5/0/0 5686 [10757] 0/0/0 0 [10758] 63204 (D)5.7:000000; LE + NE 00000 +5E7D0 5/1/3 2000 [10759] 0/0/0 1 [10760] 63206 1; 00001 +00000 0/0/0 0 [10761] 0/0/0 22 [10762] 63208 16; 00016 +00000 0/0/0 0 [10763] 0/0/0 598 [10764] 63210 256; 00256 +00000 0/0/0 0 [10765] 0/0/2 150 [10766] 63212 4096; 04096 +00000 0/0/0 0 [10767] 6/0/2 5430 [10768] 63214 65536; 65536 +00000 0/0/0 0 [10769] Start of procedure 633 at location 2578 in chapter 5 [10770] [10770] 63300 PROCR 633 DUMMY PROCEDURE 970 [10770] 63301 NOTES RADIX 304 Start of procedure 634 at location 2578 in chapter 5 [10770] [10770] 63400 PROCR 634 EDIT TABLE [10770] 63401 NOTES RADIX 305 0/0/0 2599 [10770] 63402 100 635 7 0 0 0 HALT 0/0/2 5 [10771] 63403 100 5 0 2 0 DIV NO REPLACE (B) BY (N) 0/0/0 2594 [10772] 63404 100 635 2 0 0 0 HALT 16/0/0 4101 [10773] 63405 116 4101 0 0 0 1/0/0/5 ADDRESS IN DIVISION Invalid 0/0/0 2564 [10774] 63406 100 632 2 0 0 0 ALLOC HALT 1/0/0 5 [10775] 63407 101 5 0 0 0 TABLE LOOK UP 0/0/0 2528 [10776] 63408 100 630 2 0 0 0 PROG ID HALT 0/0/0 53 [10777] 63409 100 53 0 0 0 HALT 0/0/0 2529 [10778] 63410 100 630 3 0 0 0 PROG SERIAL HALT 0/0/0 21 [10779] 63411 100 21 0 0 0 HALT 0/0/0 0 [10780] 63412 100 0 0 0 0 (29) RUN NUMBER HALT 0/0/0 21 [10781] 63413 100 21 0 0 0 HALT 0/0/0 2944 [10782] 63414 100 645 8 0 0 0 M HALT 1/0/0 305 [10783] 63415 101 305 0 0 0 TABLE LOOK UP Source: RayS/Q1000451 0/0/0 2944 [10784] 63416 100 645 8 0 0 0 T/N/R HALT 17/0/0 563 [10785] 63417 117 563 0 0 0 2/3/3 SPECIAL SELECT Start of procedure 635 at location 2594 in chapter 5 [10786] [10786] 63500 PROCR 635 FORM ALLOC COMMENT [10786] 63501 NOTES RADIX 306 1/1/3 0 [10786] 63502 101 0 1 3 0 SELECT LITERAL ADDRESS 1/1/2 1 [10787] 63503 101 1 1 2 0 SUBTRACT LITERAL ADDRESS 7/0/0 2588 [10788] 63504 4 634 12 0 0 0 AUGMENT 24/0/2 2582 [10789] 63505 124 634 6 0 2 0 TABLE START SELECT LITERAL AND DIVISION 24/0/3 20 [10790] 63506 124 20 0 3 0 MODIFY ADDRESS OF NEXT 28/1/2 0 [10791] 63507 128 0 1 2 0 EDIT FIXED FIELD FORMATS 1/1/3 16 [10792] 63508 101 16 1 3 0 CHAP 1 LOCATION SELECT LITERAL ADDRESS 4/0/0 20 [10793] 63509 104 20 0 0 0 ADD (N) TO (A) 2/0/0 2590 [10794] a 63510 5 633 14 0 0 0 TRANSFER 26/1/1 16 [10795] 63511 126 16 1 1 0 CHAPS:0 SET MODIFICATION REGISTER 0/0/3 2950 [10796] 63512 100 645 14 0 3 0 SET RADIX 6/0/1 20 [10797] 63513 106 20 0 1 0 BREAK UP CHAP SELECT (N) 18/1/1 4124 [10798] 63514 32 0 0 0 4- START INTO SHIFT (AB) BY QUARTETS 18/1/3 3 [10799] 63515 33 0 0 0 3 DIV NO AND SHIFT (AB) BY BITS 2/0/0 2599 [10800] 63516 5 635 7 0 0 0 START WITHIN DIV TRANSFER 18/1/3 13 [10801] 63517 33 0 0 0 13 SHIFT (AB) BY BITS 2/0/0 2594 [10802] 63518 5 635 2 0 0 0 TRANSFER 24/0/2 2568 [10803] 63519 124 632 6 0 2 0 CONVERT CHAP START SELECT LITERAL AND DIVISION 12/0/0 2594 [10804] 63520 112 635 2 0 0 0 TO DECIMAL CONVERT 2/0/0 2594 [10805] 63521 102 635 2 0 0 0 W/L TRANSFER (A) TO N 24/0/2 2578 [10806] 63522 124 634 2 0 2 0 SELECT LITERAL AND DIVISION 24/0/3 2590 [10807] a 63523 124 633 14 0 3 0 DEST IN CHAP 1 MODIFY ADDRESS OF NEXT 28/1/2 0 [10808] 63524 128 0 1 2 0 EDIT CHAP START EDIT FIXED FIELD FORMATS 0/0/3 2566 [10809] 63525 100 632 4 0 3 0 RESET BINARY SET RADIX 1/1/3 4 [10810] 63526 101 4 1 3 0 SELECT LITERAL ADDRESS 7/0/0 2590 [10811] a 63527 4 633 14 0 0 0 AUGMENT 25/0/1 2 [10812] 63528 125 2 0 1 0 STEP ON AND TEST 24/1/0 2604 [10813] 63529 76 635 12 0 0 0 >NEXT CHAP JUMP unconditional 1/1/3 7805 [10814] 63530 101 7805 1 3 0 TRANSFER L/E SELECT LITERAL ADDRESS 24/0/3 20 [10815] 63531 124 20 0 3 0 AND N/E TO MODIFY ADDRESS OF NEXT 3/1/0 14 [10816] 63532 103 14 1 0 0 COPY (A) TO N 24/0/3 2590 [10817] a 63533 124 633 14 0 3 0 AND SECOND MODIFY ADDRESS OF NEXT 2/1/0 0 [10818] 63534 102 0 1 0 0 LINES TRANSFER (A) TO N 24/0/2 2582 [10819] a 63535 124 633 6 0 2 0 SET UP IND MODS SELECT LITERAL AND DIVISION 2/0/0 2747 [10820] a 63536 5 638 24 0 0 0 AT 15 BIT ADDRESS TRANSFER 2/0/0 2578 [10821] a 63537 5 633 2 0 0 0 TRANSFER 24/0/2 2594 [10822] a 63538 124 633 18 0 2 0 SELECT LITERAL AND DIVISION 2/0/0 2908 [10823] a 63539 5 642 8 0 0 0 TRANSFER 26/0/0 2894 [10824] 63540 80 641 2 0 0 0 SET ASL'S POSITIVE S/R ENTER SUBROUTINE 24/0/2 20 [10825] 63541 124 20 0 2 0 COPY 30 LOCNS FROM START OF CHAP 1 SELECT LITERAL AND DIVISION 4/0/0 17 [10826] 63542 104 17 0 0 0 ADD (N) TO (A) 18/1/1 4123 [10827] 63543 32 0 0 0 5- SHIFT (AB) BY QUARTETS 1/1/1 30 [10828] 63544 101 30 1 1 0 ADD LITERAL ADDRESS 18/1/1 5 [10829] 63545 32 0 0 0 5 SHIFT (AB) BY QUARTETS 28/0/0 2596 [10830] a 63546 128 633 20 0 0 0 BULK COPY SPEC CHAPS BULK COPY SHORT NUMERIC 6/0/0 11 [10831] 63547 106 11 0 0 0 TRIALS ALLOC' IND SELECT (N) 27/0/0 2645 [10832] 63548 70 635 53 0 0 0 >NO JUMP IF A == 0 1/1/3 0 [10833] 63549 10 0 0 0 0 (28)PTS IN MASTER? SELECT LITERAL 27/0/0 2645 [10834] 63550 70 635 53 0 0 0 >YES JUMP IF A == 0 1/1/3 0 [10835] 63551 10 0 0 0 0 (26)PTS PRINTS ON-LINE? SELECT LITERAL 27/0/1 2647 [10836] 63552 71 635 55 0 0 0 >YES(ALLOW SEARCH) JUMP IF A != 0 6/0/0 2644 [10837] 63553 635 52 0 0 0 SET INDICATOR SELECT 2/0/0 2951 [10838] 63554 5 645 15 0 0 0 NON ZERO TRANSFER 6/0/0 2599 [10839] a 63555 633 23 0 0 0 ROUTE 19'INDICCATOR SELECT Source: RayS/Q1000452 24/0/3 20 [10840] 63556 124 20 0 3 0 (2) MODIFY ADDRESS OF NEXT 3/0/0 122 [10841] 63557 103 122 0 0 0 SET IND IN CHAP 1 COPY (A) TO N 27/0/0 2658 [10842] 63558 70 636 2 0 0 0 >PRINT SR NOT NEEDED JUMP IF A == 0 1/1/3 8191 [10843] 63559 101 8191 1 3 0 SELECT LITERAL ADDRESS 18/1/1 4118 [10844] 63560 32 0 0 0 10- SHIFT (AB) BY QUARTETS 6/0/0 15 [10845] 63561 106 15 0 0 0 SELECT (N) 24/0/1 17 [10846] 63562 124 17 0 1 0 LOCATION OF PRINT S/R MODIFY ADDRESS OF NEXT 15/0/0 18 [10847] 63563 115 18 0 0 0 COLLATE AND ADD 24/0/3 2578 [10848] a 63564 124 633 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 5 [10849] 63565 102 5 0 0 0 TRANSFER (A) TO N Start of procedure 636 at location 2658 in chapter 5 [10850] [10850] 63600 PROCR 636 MAIN LOOP DEAL WITH TX AND FILES [10850] 63601 NOTES RADIX 307 26/1/1 2578 [10850] a 63602 126 633 2 1 1 0 SET MRS 0/0 SET MODIFICATION REGISTER 1/1/3 8 [10851] 63603 101 8 1 3 0 SELECT LITERAL ADDRESS 2/0/0 2579 [10852] a 63604 5 633 3 0 0 0 TRANSFER 26/1/3 2578 [10853] a 63605 126 633 2 1 3 0 SET MR3 FOR SPECIAL CHAPS SET MODIFICATION REGISTER 6/0/0 5 [10854] 63606 106 5 0 0 0 TEST NO OF ROUTES SELECT (N) 27/0/0 2745 [10855] 63607 70 638 22 0 0 0 >NO ROUTES JUMP IF A == 0 2/0/0 2579 [10856] a 63608 5 633 3 0 0 0 TRANSFER 26/1/2 2578 [10857] a 63609 126 633 2 1 2 0 0/NO OF ROUTES SET MODIFICATION REGISTER 24/1/2 2939 [10858] 63610 124 645 3 1 2 0 FORM INDIRECT MODIFY ADDRESS OF NEXT 24/0/2 4 [10859] 63611 124 4 0 2 0 MODIFIER FOR SELECT LITERAL AND DIVISION 3/0/0 2582 [10860] a 63612 3 633 6 0 0 0 UNPACKING ALLOC COPY 1/1/1 48 [10861] 63613 101 48 1 1 0 ROUTES CD ADD LITERAL ADDRESS 2/0/0 2583 [10862] a 63614 5 633 7 0 0 0 TRANSFER 24/0/3 2578 [10863] a 63615 124 633 2 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [10864] 63616 126 0 0 0 0 (7)>READ NEXT BLOCK ENTER SUBROUTINE 1/1/3 12 [10865] 63617 101 12 1 3 0 UNPACK NEXT PIECE FORM T/E SELECT LITERAL ADDRESS 18/0/1 5 [10866] 63618 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 2582 [10867] a 63619 1 633 6 0 0 0 ADD 1/1/1 1 [10868] 63620 11 0 0 0 1 ADD LITERAL 28/1/0 2584 [10869] a 63621 128 633 8 1 0 0 UNPACK DETAIL BULK COPY ALPHA TO SHORT 26/0/0 2809 [10870] 63622 80 640 2 0 0 0 FIND ASL FOR ROUTE >SEARCH ASL'S S/R ENTER SUBROUTINE 25/0/1 1 [10871] 63623 125 1 0 1 0 STEP MR1 STEP ON AND TEST 1/1/3 128 [10872] 63624 101 128 1 3 0 (1/1/3 0 IF ALT ALLOC) SELECT LITERAL ADDRESS 4/0/0 2589 [10873] a 63625 1 633 13 0 0 0 REQD AND ALLOWED ADD 27/0/1 2685 [10874] 63626 71 637 2 0 0 0 >NO ROUTES JUMP IF A != 0 26/0/0 2809 [10875] 63627 80 640 2 0 0 0 FIND ASL FOR ALT ROUTE >SEARCH ASL'S S/R ENTER SUBROUTINE 24/1/0 2692 [10876] 63628 76 637 9 0 0 0 >FORM FILE DETAIL JUMP unconditional Start of procedure 637 at location 2685 in chapter 5 [10877] [10877] 63700 PROCR 637 MAIN LOOP PART 2 FILE DETAILS AND COMMENT [10877] 63701 NOTES RADIX 308 6/0/0 2585 [10877] a 63702 633 9 0 0 0 TEST PSEUDO RTE SELECT 5/0/0 2938 [10878] 63703 02 645 2 0 0 0 SUBTRACT 27/0/1 2690 [10879] 63704 71 637 7 0 0 0 >NO JUMP IF A != 0 3/0/1 34 [10880] 63705 103 34 0 1 0 CLEAR TOP HALF COPY (A) TO N 24/1/0 2735 [10881] 63706 76 638 12 0 0 0 >DEAL WITH TX AREAS FROM UP FILE DETAIL JUMP unconditional 1/1/3 128 [10882] 63707 101 128 1 3 0 (32) SELECT LITERAL ADDRESS 2/0/1 34 [10883] 63708 102 34 0 1 0 ALT ROUTE TRANSFER (A) TO N 1/0/1 3 [10884] 63709 35 0 0 0 11 PLACE ALT RTE PREPARE FOR DIGIT COLLATION 15/0/1 34 [10885] 63710 115 34 0 1 0 IN Q3,4 COLLATE AND ADD 18/1/1 2 [10886] 63711 32 0 0 0 2 SHIFT (AB) BY QUARTETS 14/0/1 33 [10887] 63712 114 33 0 1 0 REPLACE SELECTED BITS 1/0/1 3 [10888] 63713 35 0 0 0 11 FORM COMMENT PREPARE FOR DIGIT COLLATION 1/1/3 0 [10889] 63714 10 0 0 0 0 CLEAR A SELECT LITERAL 15/0/1 33 [10890] 63715 115 33 0 1 0 IN CHAPTER 1 COLLATE AND ADD 2/0/0 2579 [10891] a 63716 102 633 3 0 0 0 STORE FOR PRINTER TRANSFER (A) TO N 6/0/0 2585 [10892] a 63717 106 633 9 0 0 0 IF PRINTER RTE TYPE SELECT (N) 1/1/2 4 [10893] 63718 101 4 1 2 0 SUBTRACT LITERAL ADDRESS Source: RayS/Q1000453 27/0/0 2705 [10894] 63719 70 637 22 0 0 0 >PRINTER JUMP IF A == 0 1/1/2 5 [10895] 63720 101 5 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 2707 [10896] 63721 71 637 24 0 0 0 >NOT PRINTER JUMP IF A != 0 6/0/0 2579 [10897] a 63722 106 633 3 0 0 0 STORE RTE NO SELECT (N) 3/0/0 2951 [10898] 63723 103 645 15 0 0 0 COPY (A) TO N 6/0/0 2579 [10899] a 63724 106 633 3 0 0 0 SELECT (N) 26/0/0 2928 [10900] 63725 80 644 2 0 0 0 >CHANNEL/ROUTE S/R ENTER SUBROUTINE 2/1/0 2628 [10901] a 63726 102 633 52 1 0 0 RTES TRANSFER (A) TO N 24/0/3 2582 [10902] a 63727 124 633 6 0 3 0 STORE FILE IDENTITY MODIFY ADDRESS OF NEXT 6/1/0 0 [10903] 63728 106 0 1 0 0 SELECT (N) 2/1/0 2630 [10904] a 63729 102 633 54 1 0 0 FILE IDENTITY TRANSFER (A) TO N 1/0/1 3 [10905] 63730 101 3 0 1 0 PREPARE FOR DIGIT COLLATION 15/0/1 34 [10906] 63731 115 34 0 1 0 COLLATE AND ADD 26/0/0 2928 [10907] 63732 80 644 2 0 0 0 >CHANNEL RTE S/R ENTER SUBROUTINE 18/0/1 0 [10908] 63733 30 0 0 0 0 ///// DUMMY ORDER SHIFT (A) BY QUARTETS 2/1/0 2632 [10909] a 63734 5 633 56 1 0 0 EDIT RTE DETAIL TRANSFER 1/0/1 15 [10910] 63735 35 0 0 0 1111 PACK FILE IDENT PREPARE FOR DIGIT COLLATION 6/1/0 2630 [10911] a 63736 106 633 54 1 0 0 INTO FILE DETAIL SELECT (N) 14/0/1 34 [10912] 63737 114 34 0 1 0 REPLACE SELECTED BITS 1/1/1 0 [10913] 63738 101 0 1 1 0 DUMMY ORDER ADD LITERAL ADDRESS 24/0/2 2966 [10914] 63739 124 646 2 0 2 0 SELECT LITERAL AND DIVISION 24/0/3 2590 [10915] a 63740 124 633 14 0 3 0 MODIFY ADDRESS OF NEXT 28/1/2 2 [10916] 63741 128 2 1 2 0 EDIT FIXED FIELD FORMATS Start of procedure 638 at location 2725 in chapter 5 [10917] [10917] 63800 PROCR 638 MAIN LOOP PART 3 SET UP TX AND ANNEXES [10917] 63801 NOTES RADIX 309 6/0/0 2589 [10917] a 63802 633 13 0 0 0 SELECT 1/1/1 128 [10918] 63803 101 128 1 1 0 (1/1/1/ 0 IF ALT ALLOC) ADD LITERAL ADDRESS 27/0/0 2733 [10919] 63804 70 638 10 0 0 0 >ALT RTES REQD JUMP IF A == 0 1/1/3 101 [10920] 63805 10 0 0 0 65 SELECT LITERAL 18/0/1 2 [10921] 63806 30 0 0 0 2 SHIFT (A) BY QUARTETS 1/0/1 63 [10922] 63807 35 0 0 0 111111 PREPARE FOR DIGIT COLLATION 24/0/3 2590 [10923] a 63808 124 633 14 0 3 0 MODIFY ADDRESS OF NEXT 14/1/0 4 [10924] 63809 114 4 1 0 0 REPLACE SELECTED BITS 1/1/3 4 [10925] 63810 10 0 0 0 4 SELECT LITERAL 7/0/0 2590 [10926] a 63811 4 633 14 0 0 0 AUGMENT 24/0/1 2587 [10927] a 63812 124 633 11 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 18 [10928] 63813 106 18 0 0 0 CHAP START SELECT (N) 4/0/0 2586 [10929] a 63814 1 633 10 0 0 0 ANNEXE START ADD 3/0/1 65 [10930] 63815 103 65 0 1 0 COPY (A) TO N 1/1/2 2 [10931] 63816 12 0 0 0 2 SUBTRACT LITERAL 4/0/0 2588 [10932] a 63817 1 633 12 0 0 0 ANNEXE LENGTH ADD 2/0/1 66 [10933] 63818 102 66 0 1 0 TRANSFER (A) TO N 25/0/1 1 [10934] 63819 125 1 0 1 0 STORE LOCATION STEP ON AND TEST 25/0/2 1 [10935] 63820 125 1 0 2 0 NO OF ROUTES STEP ON AND TEST 24/1/0 2746 [10936] 63821 76 638 23 0 0 0 >NEXT ROUTE JUMP unconditional 24/1/0 2750 [10937] 63822 76 638 27 0 0 0 *SWITCH*DO TX AREAS NEXT, OR END JUMP unconditional 23/0/0 12 [10938] 63823 123 12 0 0 0 *STEP BY 12=ROUTES, 6=TX AREAS* STEP ON AND TEST 0/0/1 2582 [10939] a 63824 100 633 6 0 0 0 Address of modifier 24/1/0 2673 [10940] 63825 76 636 17 0 0 0 >UNPACK NEXT PIECE JUMP unconditional 24/1/0 2666 [10941] 63826 76 636 10 0 0 0 >READ NEXT BLOCK JUMP unconditional 6/0/0 2597 [10942] a 63827 633 21 0 0 0 TEST RTE 7 REQUIRED SELECT 27/0/0 2770 [10943] 63828 70 638 47 0 0 0 >NO JUMP IF A == 0 6/1/0 2952 [10944] 63829 645 16 1 0 0 SYNTHETIC ALLOC DETAILS FOR PTS ROUTE SELECT 2/1/1 34 [10945] 63830 102 34 1 1 0 STORE LOCATION TRANSFER (A) TO N 2/1/1 66 [10946] 63831 102 66 1 1 0 CLEAR ASL START/END TRANSFER (A) TO N 25/0/1 2 [10947] 63832 125 2 0 1 0 STEP ON AND TEST 6/0/0 2951 [10948] 63833 645 15 0 0 0 SELECT 27/0/1 2784 [10949] 63834 71 638 61 0 0 0 >PRINTER FOUND JUMP IF A != 0 6/0/0 14 [10950] 63835 106 14 0 0 0 SET UP PRINTER ROUTE TYPE SELECT (N) Source: RayS/Q1000454 1/1/1 9 [10951] 63836 11 0 0 0 9 ADD LITERAL 3/0/0 2585 [10952] a 63837 3 633 9 0 0 0 COPY 2/0/0 2589 [10953] a 63838 5 633 13 0 0 0 AND ALT ROUTE DETAIL TRANSFER 1/1/3 1 [10954] 63839 10 0 0 0 1 STEP SELECT LITERAL 7/0/0 5 [10955] 63840 107 5 0 0 0 AUGMENT (N) BY (A) 25/0/2 4097 [10956] 63841 125 4097 0 2 0 PREPARE TO ENTER MAIN LOOP AGAIN STEP ON AND TEST 24/0/2 2972 [10957] 63842 124 646 8 0 2 0 ADDRESS OF CONST 'PTS' SELECT LITERAL AND DIVISION 2/0/0 2582 [10958] a 63843 5 633 6 0 0 0 TRANSFER 6/0/0 2788 [10959] 63844 638 65 0 0 0 ARRANGE EXIT AFTER SELECT 2/0/0 2745 [10960] 63845 5 638 22 0 0 0 ALLOCATING ROUTES TRANSFER 24/1/0 2678 [10961] 63846 76 636 22 0 0 0 > JUMP unconditional 1/1/3 6 [10962] 63847 10 0 0 0 6 PREPARE FOR TX AREAS SELECT LITERAL 7/0/0 2746 [10963] 63848 4 638 23 0 0 0 CHANGE STEP ACTION AUGMENT 1/1/2 12 [10964] 63849 101 12 1 2 0 SUBTRACT LITERAL ADDRESS 7/0/0 2673 [10965] 63850 4 636 17 0 0 0 CHANGE UNPACK ACTION AUGMENT 1/1/1 4 [10966] 63851 11 0 0 0 4 ADD LITERAL 7/0/0 2677 [10967] 63852 4 636 21 0 0 0 CHANGE END SEQUENCE ADDRESS AUGMENT 6/0/0 2787 [10968] 63853 638 64 0 0 0 SELECT 2/0/0 2745 [10969] 63854 5 638 22 0 0 0 SET UP PSEUDO ROUTE TRANSFER 6/0/0 2938 [10970] 63855 645 2 0 0 0 SET UP PSEUDO SELECT 3/0/0 2585 [10971] a 63856 3 633 9 0 0 0 ROUTE AND ALT ROUTE COPY 2/0/0 2589 [10972] a 63857 5 633 13 0 0 0 DUMMY TRANSFER 1/1/3 0 [10973] 63858 10 0 0 0 0 SELECT LITERAL 6/0/0 6 [10974] 63859 106 6 0 0 0 SELECT (N) 24/1/0 2663 [10975] 63860 76 636 7 0 0 0 >TX AREAS JUMP unconditional 1/1/3 1 [10976] 63861 10 0 0 0 1 SELECT LITERAL 7/0/0 5 [10977] 63862 107 5 0 0 0 AUGMENT (N) BY (A) 24/1/0 2770 [10978] 63863 76 638 47 0 0 0 >PREPARE FOR TX'S JUMP unconditional 24/1/0 2789 [10979] 63864 76 639 2 0 0 0 >AFTER FINISHING TX'S JUMP unconditional 24/1/0 2784 [10980] 63865 76 638 61 0 0 0 JUMP unconditional Start of procedure 639 at location 2789 in chapter 5 [10981] [10981] 63900 PROCR 639 END ROUTINE [10981] 63901 NOTES RADIX 310 6/0/0 5 [10981] 63902 106 5 0 0 0 FORM 2*(TX+FILES) SELECT (N) 4/0/0 6 [10982] 63903 104 6 0 0 0 ADD (N) TO (A) 18/0/1 5 [10983] 63904 30 0 0 0 5 SHIFT (A) BY QUARTETS 27/0/0 2874 [10984] 63905 70 640 67 0 0 0 >REJECT D JUMP IF A == 0 3/1/0 18 [10985] 63906 103 18 1 0 0 COPY (A) TO N 7/1/0 18 [10986] 63907 107 18 1 0 0 AUGMENT (N) BY (A) 24/0/2 98 [10987] 63908 124 98 0 2 0 SELECT LITERAL AND DIVISION 24/0/3 2578 [10988] a 63909 124 633 2 0 3 0 MODIFY ADDRESS OF NEXT 3/1/0 28 [10989] 63910 103 28 1 0 0 R2 COPY (A) TO N 24/0/3 2578 [10990] a 63911 124 633 2 0 3 0 (6)SR LINK MODIFY ADDRESS OF NEXT 3/0/0 0 [10991] 63912 103 0 0 0 0 COPY (A) TO N 1/1/3 44 [10992] 63913 101 44 1 3 0 SELECT LITERAL ADDRESS 24/0/3 2578 [10993] a 63914 124 633 2 0 3 0 MODIFY ADDRESS OF NEXT 7/0/0 1 [10994] 63915 107 1 0 0 0 (3)STEP PARA 1 AUGMENT (N) BY (A) 1/1/3 7710 [10995] 63916 10 0 0 0 1.1. SELECT LITERAL 24/0/3 2590 [10996] a 63917 124 633 14 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 2 [10997] 63918 102 2 1 0 0 TRANSFER (A) TO N 1/1/3 0 [10998] 63919 101 0 1 3 0 (3)PARA TABLE START SELECT LITERAL ADDRESS 24/0/3 2578 [10999] a 63920 124 633 2 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 1 [11000] 63921 124 1 1 0 0 (6)>LOAD NEXT CHAPTER UNCONDITIONAL JUMP Start of procedure 640 at location 2809 in chapter 5 [11001] [11001] 64000 PROCR 640 SEARCH ASL'S ALLOWING FOR FUNNY ROUTE TYPES [11001] 64001 NOTES RADIX 311 0/0/0 0 [11001] 64002 81 640 2 0 0 0 START OF SUBROUTINE 6/0/0 2913 [11002] 64003 00 642 13 0 0 0 PREPARE FOR SEARCH SELECT Source: RayS/Q1000455 2/0/0 2905 [11003] 64004 05 642 5 0 0 0 ASL'S S/R TRANSFER 6/0/0 2587 [11004] a 64005 00 633 11 0 0 0 TEST RTE TYPE 19 SELECT 27/0/2 2838 [11005] 64006 72 640 31 0 0 0 >NO JUMP IF A >= 0 6/0/0 2585 [11006] a 64007 633 9 0 0 0 TEST PSEUDO ROUTE SELECT 5/0/0 2938 [11007] 64008 2 645 2 0 0 0 SUBTRACT 27/0/0 2820 [11008] 64009 70 640 13 0 0 0 JUMP IF A == 0 6/0/0 14 [11009] 64010 106 14 0 0 0 SET UP PRINTER RTE SELECT (N) 1/1/1 9 [11010] 64011 101 9 1 1 0 TYPE ADD LITERAL ADDRESS 2/0/0 2585 [11011] a 64012 5 633 9 0 0 0 TRANSFER 6/0/3 2598 [11012] a 64013 633 22 0 3 0 SELECT 27/0/1 2830 [11013] 64014 71 640 23 0 0 0 CHAP DETAILS JUMP IF A != 0 25/0/3 2 [11014] 64015 125 2 0 3 0 STEP ON AND TEST 24/1/0 2820 [11015] 64016 76 640 13 0 0 0 JUMP unconditional 25/0/3 4098 [11016] 64017 125 4098 0 3 0 NO MORE TX'S STEP ON AND TEST 1/1/2 1 [11017] 64018 101 1 1 2 0 SUBTRACT LITERAL ADDRESS 2/1/1 34 [11018] 64019 102 34 1 1 0 TRANSFER (A) TO N 2/1/1 66 [11019] 64020 102 66 1 1 0 TRANSFER (A) TO N 25/0/1 2 [11020] 64021 125 2 0 1 0 STEP ON AND TEST 24/1/0 2743 [11021] 64022 76 638 20 0 0 0 JUMP unconditional 2/0/0 2588 [11022] a 64023 5 633 12 0 0 0 LENGTH TRANSFER 6/0/3 2599 [11023] a 64024 633 23 0 3 0 SELECT 2/0/0 2587 [11024] a 64025 5 633 11 0 0 0 CHAP TRANSFER 6/0/3 2608 [11025] a 64026 633 32 0 3 0 SELECT 2/0/0 2586 [11026] a 64027 5 633 10 0 0 0 ANNEXE START TRANSFER 25/0/3 2 [11027] 64028 125 2 0 3 0 STEP ON AND TEST 24/1/0 2858 [11028] 64029 76 640 51 0 0 0 >TRY AND ALLOC JUMP unconditional 24/1/0 2858 [11029] 64030 76 640 51 0 0 0 JUMP unconditional 6/0/0 2585 [11030] a 64031 106 633 9 0 0 0 SELECT (N) 1/1/2 14 [11031] 64032 101 14 1 2 0 TEST RTE TYPE 14 SUBTRACT LITERAL ADDRESS 27/0/1 2844 [11032] 64033 71 640 37 0 0 0 >NO JUMP IF A != 0 6/0/0 14 [11033] 64034 106 14 0 0 0 SET UP PRINTER SELECT (N) 1/1/1 9 [11034] 64035 101 9 1 1 0 RTE TYPE OF ADD LITERAL ADDRESS 2/0/0 2585 [11035] a 64036 5 633 9 0 0 0 MACHINE TRANSFER 6/0/0 2585 [11036] a 64037 633 9 0 0 0 TEST RTE TYPE 15 SELECT 1/1/2 15 [11037] 64038 101 15 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 2861 [11038] 64039 71 640 54 0 0 0 >NO JUMP IF A != 0 1/1/3 5 [11039] 64040 101 5 1 3 0 (33)PREFERRED ROUTE 5/6 SELECT LITERAL ADDRESS 3/0/0 2585 [11040] a 64041 03 633 9 0 0 0 COPY 3/0/0 15 [11041] 64042 103 15 0 0 0 STORE RTE TYPE COPY (A) TO N 1/1/2 5 [11042] 64043 12 0 0 0 5 STOP ALT ROUTE SUBTRACT LITERAL 27/0/0 2853 [11043] 64044 70 640 46 0 0 0 IF RTE TYPE 6 JUMP IF A == 0 2/0/0 2589 [11044] a 64045 05 633 13 0 0 0 TRANSFER 26/0/0 2894 [11045] 64046 80 641 2 0 0 0 >SEARCH ASL'S S/R ENTER SUBROUTINE 1/1/3 6 [11046] 64047 101 6 1 3 0 TRY OTHER RTE SELECT LITERAL ADDRESS 1/1/2 0 [11047] 64048 101 0 1 2 0 (33)0/1 SUBTRACT LITERAL ADDRESS 3/0/0 2585 [11048] a 64049 03 633 9 0 0 0 COPY 3/0/0 15 [11049] 64050 103 15 0 0 0 STORE RTE TYPE COPY (A) TO N 1/1/2 5 [11050] 64051 12 0 0 0 5 STOP ALT RTE SUBTRACT LITERAL 27/0/0 2861 [11051] 64052 70 640 54 0 0 0 IF RTE TYPE 6 JUMP IF A == 0 2/0/0 2589 [11052] a 64053 05 633 13 0 0 0 TRANSFER 26/0/0 2894 [11053] 64054 80 641 2 0 0 0 SEARCH ASL'S ENTER SUBROUTINE 6/0/0 2585 [11054] a 64055 633 9 0 0 0 TEST RTE TYPES 7,8,11 SELECT 26/0/0 2921 [11055] 64056 80 643 2 0 0 0 >TEST S/R ENTER SUBROUTINE 27/0/1 2868 [11056] 64057 71 640 61 0 0 0 >NO JUMP IF A != 0 6/0/0 2912 [11057] 64058 642 12 0 0 0 SEARCH FOR 7,8,11 SELECT 2/0/0 2905 [11058] 64059 5 642 5 0 0 0 TRANSFER 26/0/0 2894 [11059] 64060 80 641 2 0 0 0 >SEARCH ASL'S S/R ENTER SUBROUTINE Source: RayS/Q1000456 6/0/0 2585 [11060] a 64061 633 9 0 0 0 TEST PSEUDO ROOT SELECT 5/0/0 2938 [11061] 64062 2 645 2 0 0 0 SUBTRACT 27/0/1 2874 [11062] 64063 71 640 67 0 0 0 >NO JUMP IF A != 0 6/0/0 2911 [11063] 64064 642 11 0 0 0 SEARCH ALL ASL'S SELECT 2/0/0 2905 [11064] 64065 5 642 5 0 0 0 TRANSFER 26/0/0 2894 [11065] 64066 80 641 2 0 0 0 >SEARCH ASL'S ENTER SUBROUTINE 6/0/0 2914 [11066] 64067 642 14 0 0 0 SELECT 2/0/0 2905 [11067] 64068 5 642 5 0 0 0 TRANSFER 26/0/0 2894 [11068] 64069 80 641 2 0 0 0 ENTER SUBROUTINE 1/1/3 84 [11069] 64070 10 0 0 0 54 'D' SELECT LITERAL 24/0/3 2578 [11070] a 64071 124 633 2 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 0 [11071] 64072 124 0 1 0 0 (14)>REJECT ALLOCATION UNCONDITIONAL JUMP 24/0/3 2594 [11072] a 64073 124 633 18 0 3 0 SETUP DETAIL MODIFY ADDRESS OF NEXT 6/0/0 0 [11073] 64074 106 0 0 0 0 SELECT (N) 5/0/0 2938 [11074] 64075 2 645 2 0 0 0 STORE RTE TYPE 0 SUBTRACT 27/0/0 2885 [11075] 64076 70 640 78 0 0 0 IF A PSEUDO ROUTE JUMP IF A == 0 4/0/0 2938 [11076] 64077 1 645 2 0 0 0 RTE TYPE ADD 18/0/1 4 [11077] 64078 30 0 0 0 4 IN QS SHIFT (A) BY QUARTETS 4/0/0 2594 [11078] a 64079 1 633 18 0 0 0 RTE NO IN Q1,2 ADD 1/1/2 64 [11079] 64080 101 64 1 2 0 SUBTRACT LITERAL ADDRESS 2/0/1 34 [11080] 64081 102 34 0 1 0 TRANSFER (A) TO N 24/0/3 2594 [11081] a 64082 124 633 18 0 3 0 SET ASL NEGATIVE MODIFY ADDRESS OF NEXT 5/0/0 0 [11082] 64083 105 0 0 0 0 SUBTRACT (N) FROM (A) 24/0/3 2594 [11083] a 64084 124 633 18 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 0 [11084] 64085 102 0 0 0 0 TRANSFER (A) TO N 26/0/1 2809 [11085] 64086 82 640 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 641 at location 2894 in chapter 5 [11086] [11086] 64100 PROCR 641 SEARCH ASL'S S/R [11086] 64101 NOTES RADIX 312 0/0/0 0 [11086] 64102 81 641 2 0 0 0 START OF SUBROUTINE 6/1/0 2940 [11087] 64103 645 4 1 0 0 SET UP INDIRECT SELECT 2/1/0 2594 [11088] a 64104 5 633 18 1 0 0 MODIFIER 64-128 TRANSFER 26/0/0 2902 [11089] 64105 80 642 2 0 0 0 >SEARCH ASL'S ENTER SUBROUTINE 6/1/0 2942 [11090] 64106 645 6 1 0 0 SET UP INDIRECT SELECT 2/1/0 2594 [11091] a 64107 5 633 18 1 0 0 MODIFIER 192-240 TRANSFER 26/0/0 2902 [11092] 64108 80 642 2 0 0 0 >SEARCH ASL'S ENTER SUBROUTINE 26/0/1 2894 [11093] 64109 82 641 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 642 at location 2902 in chapter 5 [11094] [11094] 64200 PROCR 642 SEARCH ASL'S S/R [11094] 64201 NOTES RADIX 313 0/0/0 0 [11094] 64202 81 642 2 0 0 0 START OF SUBROUTINE 24/0/3 2594 [11095] a 64203 124 633 18 0 3 0 SELECT ASL MODIFY ADDRESS OF NEXT 6/0/0 0 [11096] 64204 106 0 0 0 0 SELECT (N) 24/1/0 2915 [11097] 64205 76 642 15 0 0 0 *****SWITCH ORDER JUMP unconditional 27/0/0 2880 [11098] 64206 70 640 73 0 0 0 >FOUND JUMP IF A == 0 23/0/0 1 [11099] 64207 123 1 0 0 0 STEP IND MOD STEP ON AND TEST 0/0/1 2594 [11100] a 64208 100 633 18 0 0 0 Address of modifier 24/1/0 2903 [11101] 64209 76 642 3 0 0 0 JUMP unconditional 26/0/1 2902 [11102] 64210 82 642 2 0 0 0 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE 18/0/1 4127 [11103] 64211 30 0 0 0 1- TEST RTE TYPES <15 SHIFT (A) BY QUARTETS 26/0/0 2921 [11104] 64212 80 643 2 0 0 0 TEST 7,8,11 ENTER SUBROUTINE 5/0/0 2585 [11105] a 64213 2 633 9 0 0 0 TEST REQUIRED TYPE SUBTRACT 24/1/0 2915 [11106] 64214 76 642 15 0 0 0 JUMP unconditional 27/0/2 2907 [11107] 64215 72 642 7 0 0 0 MAKE ASL POSITIVE JUMP IF A >= 0 2/0/0 2630 [11108] a 64216 5 633 54 0 0 0 IF NEGATIVE TRANSFER 5/0/0 2630 [11109] a 64217 2 633 54 0 0 0 SUBTRACT 24/0/3 2594 [11110] a 64218 124 633 18 0 3 0 MODIFY ADDRESS OF NEXT Source: RayS/Q1000457 2/0/0 0 [11111] 64219 102 0 0 0 0 TRANSFER (A) TO N 24/1/0 2907 [11112] 64220 76 642 7 0 0 0 >NEXT ASL JUMP unconditional Start of procedure 643 at location 2921 in chapter 5 [11113] [11113] 64300 PROCR 643 TEST 7,8,11 S/R [11113] 64301 NOTES RADIX 314 0/0/0 0 [11113] 64302 81 643 2 0 0 0 START OF SUBROUTINE 1/1/2 7 [11114] 64303 12 0 0 0 7 TEST 7,8,11 S/R SUBTRACT LITERAL 27/0/0 2927 [11115] 64304 70 643 8 0 0 0 >YES JUMP IF A == 0 1/1/2 1 [11116] 64305 12 0 0 0 1 TEST 8 SUBTRACT LITERAL 27/0/0 2927 [11117] 64306 70 643 8 0 0 0 >YES JUMP IF A == 0 1/1/2 3 [11118] 64307 12 0 0 0 3 TEST 11 SUBTRACT LITERAL 26/0/1 2921 [11119] 64308 82 643 2 0 0 0 LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 644 at location 2928 in chapter 5 [11120] [11120] 64400 PROCR 644 CHANNEL/ROUTE S/R [11120] 64401 NOTES RADIX 315 0/0/0 0 [11120] 64402 81 644 2 0 0 0 START OF SUBROUTINE 18/1/1 4127 [11121] 64403 32 0 0 0 1- DIVIDE BY 8 SHIFT (AB) BY QUARTETS 18/1/3 1 [11122] 64404 33 0 0 0 1 SHIFT (AB) BY BITS 1/1/2 10 [11123] 64405 101 10 1 2 0 CONVERT CHANNEL SUBTRACT LITERAL ADDRESS 27/0/3 2934 [11124] 64406 73 644 8 0 0 0 BINARY>DECIMAL JUMP IF A < 0 1/1/1 6 [11125] 64407 101 6 1 1 0 ADD LITERAL ADDRESS 1/1/1 10 [11126] 64408 101 10 1 1 0 ADD LITERAL ADDRESS 18/0/3 1 [11127] 64409 118 1 0 3 0 SPLIT UP CHANNEL SHIFT BINARY 18/1/3 3 [11128] 64410 33 0 0 0 3 AND ROUTE SHIFT (AB) BY BITS 26/0/1 2928 [11129] 64411 82 644 2 0 0 0 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 645 at location 2938 in chapter 5 [11130] [11130] 64500 CONST 645 0 316 MAIN LOOP CONSTANTS 0/1/3 8191 [11130] 64502 (D)pppp; +0FFFF 16/0/0 64 [11131] 64503 (B)64-; -00040 0/0/0 64 [11132] 64504 64; +00040 0/0/0 128 [11133] 64505 128; +00080 0/0/0 192 [11134] 64506 192; +000C0 0/0/0 240 [11135] 64507 240; +000F0 3/0/3 2405 [11136] 64508 (D)36965; ' MTRN' +36965 0/0/0 1607 [11137] 64509 647; +00647 0/0/0 240 [11138] 64510 (B)240; +000F0 0/0/0 192 [11139] 64511 192; +000C0 0/0/0 128 [11140] 64512 128; +00080 0/0/0 64 [11141] 64513 64; +00040 6/0/3 1638 [11142] 64514 (D)66666; +66666 0/0/0 0 [11143] 64515 ; +00000 7/0/2 0 [11144] 64516 74000; (24)SYNTHETIC ALLOC DETAILS FOR PROG TAP +74000 23/0/0 1856 [11145] 64517 70740-; -70740 0/0/0 0 [11146] 64518 ; +00000 0/0/0 0 [11147] 64519 ; +00000 0/0/0 0 [11148] 64520 ; +00000 0/0/0 0 [11149] 64521 ; +00000 0/0/0 0 [11150] 64522 ; +00000 0/0/0 0 [11151] 64523 ; +00000 0/0/0 0 [11152] 64524 ; +00000 0/0/0 0 [11153] 64525 ; +00000 0/0/0 0 [11154] 64526 ; +00000 0/0/0 0 [11155] 64527 ; +00000 7/1/0 0 [11156] 64528 78000; +78000 23/0/0 1920 [11157] 64529 70780-; (24)SYNTHETIC ALLOC DETAILS FOR PROG TAP -70780 Start of procedure 646 at location 2966 in chapter 5 [11158] [11158] 64600 PROCR 646 MORE EDIT TABLES IN DISGUISE 0/0/0 2630 [11158] a 64602 100 633 54 0 0 0 FILE IDENTITY HALT 1/0/0 515 [11159] 64603 101 515 0 0 0 2/0/3 TABLE LOOK UP Source: RayS/Q1000458 0/0/0 2628 [11160] a 64604 100 633 52 0 0 0 RTE NO HALT 0/0/0 4627 [11161] 64605 100 4627 0 0 0 1/2/1/3 HALT 0/0/0 2632 [11162] a 64606 100 633 56 0 0 0 ALT RTE HALT 16/0/0 4611 [11163] 64607 116 4611 0 0 0 1/2/0/3 Invalid 7/0/3 4978 [11164] 64608 107 4978 0 3 0 )CONST 'PTS' AUGMENT (N) BY (A) 0/0/0 6 [11165] 64609 100 6 0 0 0 ) HALT Start of procedure 647 at location 2974 in chapter 5 [11166] [11166] 64700 PROCR 647 DUMMY PROCEDURE [11166] 64701 NOTES RADIX 401 Start of procedure 648 at location 2974 in chapter 5 [11166] [11166] 64800 PROCR 648 ALLOC TAG/FP/MG [11166] 64801 NOTES RADIX 402 FIRST LOCN=98 OF SPECIAL CHAPTER 1/0/1 0 [11166] 64802 35 0 0 0 0 CLEAR B PREPARE FOR DIGIT COLLATION 24/0/1 20 [11167] 64803 124 20 0 1 0 (2) MODIFY ADDRESS OF NEXT 1/1/3 0 [11168] 64804 101 0 1 3 0 13-BIT START CHAP 1 SELECT LITERAL ADDRESS 7/0/0 3195 [11169] 64805 4 655 19 0 0 0 GET ADDRESS CORRECT AUGMENT 7/0/0 3254 [11170] 64806 4 656 53 0 0 0 AUGMENT 2/0/0 2974 [11171] 64807 5 648 2 0 0 0 WL TRANSFER 5/0/0 2974 [11172] 64808 2 648 2 0 0 0 SUBTRACT 7/0/0 3193 [11173] 64809 4 655 17 0 0 0 AUGMENT 7/0/0 3196 [11174] 64810 4 655 20 0 0 0 AUGMENT 7/0/0 3198 [11175] 64811 4 655 22 0 0 0 AUGMENT 7/0/0 3252 [11176] 64812 4 656 51 0 0 0 AUGMENT 7/0/0 3255 [11177] 64813 4 656 54 0 0 0 AUGMENT 7/0/0 3257 [11178] 64814 4 656 56 0 0 0 AUGMENT 1/1/3 0 [11179] 64815 10 0 0 0 0 DUMMY SELECT LITERAL 1/1/3 2 [11180] 64816 101 2 1 3 0 (4)TEST>5 TAGS SELECT LITERAL ADDRESS 1/1/2 0 [11181] 64817 101 0 1 2 0 (29) SUBTRACT LITERAL ADDRESS 27/0/0 2994 [11182] 64818 70 648 22 0 0 0 >NO JUMP IF A == 0 24/0/3 3262 [11183] 64819 124 657 2 0 3 0 SELECT AND SHIFT MODIFY ADDRESS OF NEXT 6/0/0 1 [11184] 64820 106 1 0 0 0 LAST 5 TAGS SELECT (N) 18/0/1 5 [11185] 64821 30 0 0 0 5 SHIFT (A) BY QUARTETS 24/0/3 3262 [11186] 64822 124 657 2 0 3 0 FORMER TAG AVAILABILITY MODIFY ADDRESS OF NEXT 4/0/0 0 [11187] 64823 104 0 0 0 0 ADD (N) TO (A) 2/1/0 3278 [11188] 64824 05 657 18 1 0 0 TRANSFER 6/0/0 9 [11189] 64825 106 9 0 0 0 FORM INITIAL ENTRY SELECT (N) 4/0/0 9 [11190] 64826 104 9 0 0 0 POINT ADD (N) TO (A) 7/0/0 3000 [11191] 64827 107 648 28 0 0 0 =INITIAL CHAP AUGMENT (N) BY (A) 6/0/0 18 [11192] 64828 106 18 0 0 0 START+RELATIVE SELECT (N) 4/0/0 8 [11193] 64829 104 8 0 0 0 ENTRY POINT ADD (N) TO (A) 2/0/0 8 [11194] 64830 102 8 0 0 0 TRANSFER (A) TO N 6/1/0 3278 [11195] 64831 657 18 1 0 0 SELECT 27/0/0 3035 [11196] 64832 70 648 63 0 0 0 >NO TAG AVAILABLE JUMP IF A == 0 18/1/1 4127 [11197] 64833 32 0 0 0 1- SHIFT (AB) BY QUARTETS 2/1/0 3278 [11198] 64834 05 657 18 1 0 0 TRANSFER 27/1/0 3003 [11199] 64835 74 648 31 0 0 0 >TAG NOT FOUND YET JUMP IF AB == 0 // 27, 1, 0 18/1/1 1 [11200] 64836 32 0 0 0 1 SHIFT (AB) BY QUARTETS 3/0/0 10 [11201] 64837 103 10 0 0 0 ALLOC TAG COPY (A) TO N 6/1/0 3278 [11202] 64838 657 18 1 0 0 RESIDUE SELECT 24/0/0 10 [11203] 64839 124 10 0 0 0 ALLOC TAG MODIFY ADDRESS OF NEXT 18/0/0 0 [11204] 64840 118 0 0 0 0 SHIFT LOGICAL 2/1/0 3278 [11205] 64841 05 657 18 1 0 0 NEW TAG AVAILABILITY WORD TRANSFER 6/0/0 0 [11206] 64842 106 0 0 0 0 FP WANTED SELECT (N) 27/0/0 3020 [11207] 64843 70 648 48 0 0 0 >NO JUMP IF A == 0 24/0/3 3262 [11208] 64844 124 657 2 0 3 0 MODIFY ADDRESS OF NEXT 23/0/3 128 [11209] 64845 123 128 0 3 0 A*TAG SELECT TAG 1/1/2 14 [11210] 64846 101 14 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 3033 [11211] 64847 71 648 61 0 0 0 >NOT AVAILABLE JUMP IF A != 0 26/1/3 3276 [11212] 64848 126 657 16 1 3 0 24:0 SET MODIFICATION REGISTER 6/0/0 1 [11213] 64849 106 1 0 0 0 MOD GROUP REQUIRED SELECT (N) Source: RayS/Q1000459 27/0/1 3026 [11214] 64850 71 648 54 0 0 0 >YES JUMP IF A != 0 24/0/3 20 [11215] 64851 124 20 0 3 0 START OF CHAP 1 MODIFY ADDRESS OF NEXT 2/1/0 10 [11216] 64852 102 10 1 0 0 CLEAR M IN ALLOC COMMENT TRANSFER (A) TO N 24/1/0 3046 [11217] 64853 76 648 74 0 0 0 JUMP unconditional 24/0/3 3262 [11218] 64854 124 657 2 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 30 [11219] 64855 124 30 0 3 0 R3 MODIFIER MODIFY ADDRESS OF NEXT 23/0/3 10 [11220] 64856 123 10 0 3 0 R2 TAG FOR EACH MOD GROUP SELECT TAG 1/1/2 14 [11221] 64857 101 14 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 3039 [11222] 64858 70 648 67 0 0 0 >AVAILABLE JUMP IF A == 0 25/0/3 8 [11223] 64859 125 8 0 3 0 STEP ON AND TEST 24/1/0 3026 [11224] 64860 76 648 54 0 0 0 JUMP unconditional 1/1/3 0 [11225] 64861 101 0 1 3 0 SELECT LITERAL ADDRESS 1/1/2 1 [11226] 64862 101 1 1 2 0 A=NO FP/MG SUBTRACT LITERAL ADDRESS 1/1/2 3 [11227] 64863 101 3 1 2 0 B=NO TAB SUBTRACT LITERAL ADDRESS 1/1/1 85 [11228] 64864 101 85 1 1 0 E=NO 90K MATCH ADD LITERAL ADDRESS 24/0/3 3262 [11229] 64865 124 657 2 0 3 0 (14)>REJECT ALLOCATION MODIFY ADDRESS OF NEXT 24/1/0 0 [11230] 64866 124 0 1 0 0 >REJECT ALLOCATION UNCONDITIONAL JUMP 24/0/3 3262 [11231] 64867 124 657 2 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 30 [11232] 64868 106 30 0 0 0 R3 MODIFIER SELECT (N) 18/0/3 1 [11233] 64869 31 0 0 0 1 SHIFT (A) BY BITS 18/0/1 4127 [11234] 64870 30 0 0 0 1- DIVIDE BY 8 SHIFT (A) BY QUARTETS 1/1/1 1 [11235] 64871 11 0 0 0 1 ADD LITERAL 24/0/3 20 [11236] 64872 124 20 0 3 0 START OF CH 1 MODIFY ADDRESS OF NEXT 7/1/0 10 [11237] 64873 107 10 1 0 0 SET MOD GROUP IN ALLOC COMMENT AUGMENT (N) BY (A) 2/0/0 1 [11238] 64874 102 1 0 0 0 TRANSFER (A) TO N 6/0/0 10 [11239] 64875 106 10 0 0 0 AUGMENT TAG TO SELECT (N) 1/1/1 64 [11240] 64876 101 64 1 1 0 COMMENT ADD LITERAL ADDRESS 18/0/0 6 [11241] 64877 118 6 0 0 0 SHIFT LOGICAL 24/0/3 20 [11242] 64878 124 20 0 3 0 MODIFY ADDRESS OF NEXT 7/1/0 10 [11243] 64879 107 10 1 0 0 AUGMENT (N) BY (A) 1/1/3 0 [11244] 64880 101 0 1 3 0 DUMMY SELECT LITERAL ADDRESS Start of procedure 649 at location 3053 in chapter 5 [11245] [11245] 64900 PROCR 649 45/90K CHUNK [11245] 64901 NOTES RADIX 403 6/0/0 5 [11245] 64902 106 5 0 0 0 FILES SELECT (N) 18/0/3 1 [11246] 64903 31 0 0 0 1 SHIFT (A) BY BITS 2/0/0 3263 [11247] 64904 5 657 3 0 0 0 2*FILES TRANSFER 6/0/0 3269 [11248] 64905 657 9 0 0 0 SELECT 27/0/0 3069 [11249] 64906 70 650 2 0 0 0 >THIS IS A 45K INSTALLATION JUMP IF A == 0 24/1/1 3061 [11250] 64907 124 649 10 1 1 0 RESET MG 3 SET MODIFICATION GROUP 24/0/2 2974 [11251] a 64908 124 647 2 0 2 0 SELECT LITERAL AND DIVISION 3/0/0 3266 [11252] 64909 3 657 6 0 0 0 FORM TABLE ENTRY COPY 1/1/3 126 [11253] 64910 101 126 1 3 0 '----BE' SELECT LITERAL ADDRESS 24/1/2 3273 [11254] 64911 124 657 13 1 2 0 -64+R FOR CONTROL DATA PSEUDOROUTE MODIFY ADDRESS OF NEXT 2/0/0 16 [11255] 64912 102 16 0 0 0 AS EMERGENCY STOP TRANSFER (A) TO N 6/1/0 3264 [11256] 64913 657 4 1 0 0 SELECT 28/1/1 2974 [11257] a 64914 128 647 2 1 1 0 CLEAR 16 LOCNS AS WORKING SPACE BULK COPY LONG NUMERIC 24/0/2 3266 [11258] 64915 124 657 6 0 2 0 TSL FOR UNPACKING SELECT LITERAL AND DIVISION 24/1/2 3273 [11259] 64916 124 657 13 1 2 0 -64+R FOR CONTROL DATA PSEUDO-ROUTE MODIFY ADDRESS OF NEXT 28/0/3 0 [11260] 64917 128 0 0 3 0 UNPACK VARIABLE FIELD DATA Start of procedure 650 at location 3069 in chapter 5 [11261] [11261] 65000 PROCR 650 45/90K CHUNK [11261] 65001 NOTES RADIX 404 REARRANGE SPEC CHAP ROUTE DETAIL 26/1/1 3262 [11261] 65002 126 657 2 1 1 0 2*ROUTES:0 SET MODIFICATION REGISTER 6/1/1 34 [11262] 65003 106 34 1 1 0 SELECT (N) 27/0/3 3117 [11263] 65004 73 652 8 0 0 0 >RTE 7 DETAIL JUMP IF A < 0 1/1/1 0 [11264] 65005 101 0 1 1 0 DUMMY ORDER ADD LITERAL ADDRESS 18/1/1 4118 [11265] 65006 32 0 0 0 10- SHIFT (AB) BY QUARTETS 18/1/1 1 [11266] 65007 32 0 0 0 1 SHIFT (AB) BY QUARTETS Source: RayS/Q1000460 2/0/0 3265 [11267] 65008 5 657 5 0 0 0 ALT RTE TYPE TRANSFER 18/1/1 4 [11268] 65009 32 0 0 0 4 SHIFT (AB) BY QUARTETS 2/0/0 3268 [11269] 65010 5 657 8 0 0 0 FILE IDENTITY TRANSFER 18/1/1 1 [11270] 65011 32 0 0 0 1 SHIFT (AB) BY QUARTETS 2/0/0 3264 [11271] 65012 5 657 4 0 0 0 ROUTE TYPE TRANSFER 18/1/1 2 [11272] 65013 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/0/0 3267 [11273] 65014 5 657 7 0 0 0 ALT ROUTE NO TRANSFER 18/1/1 2 [11274] 65015 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/0/0 3266 [11275] 65016 5 657 6 0 0 0 MAIN ROUTE NO TRANSFER 6/0/0 3269 [11276] 65017 657 9 0 0 0 INDICATOR SELECT 27/0/0 3111 [11277] 65018 70 652 2 0 0 0 JUMP IF A == 0 Start of procedure 651 at location 3086 in chapter 5 [11278] [11278] 65100 PROCR 651 45/90K CHUNK [11278] 65101 NOTES RADIX 405 SET INDICATOR IF REQUIRED 6/0/0 3264 [11278] 65102 657 4 0 0 0 ROUTE TYPE SELECT 1/1/2 7 [11279] 65103 12 0 0 0 7 SUBTRACT LITERAL 27/0/0 3093 [11280] 65104 70 651 9 0 0 0 >MAG TAPE FILE JUMP IF A == 0 1/1/2 1 [11281] 65105 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 3093 [11282] 65106 70 651 9 0 0 0 >MAG TAPE FILE JUMP IF A == 0 1/1/2 3 [11283] 65107 12 0 0 0 3 SUBTRACT LITERAL 27/0/1 3111 [11284] 65108 71 652 2 0 0 0 >NOT A MAG TAPE FILE JUMP IF A != 0 26/1/2 3270 [11285] 65109 126 657 10 1 2 0 SET MR2 AT 16:0 SET MODIFICATION REGISTER 6/1/2 2974 [11286] a 65110 647 2 1 2 0 SELECT 5/0/0 3268 [11287] 65111 2 657 8 0 0 0 FILE IDENTITY SUBTRACT 27/0/0 3100 [11288] 65112 70 651 16 0 0 0 >MATCH SET IND=0 FOR 45K JUMP IF A == 0 25/0/2 2 [11289] 65113 125 2 0 2 0 STEP ON AND TEST 24/1/0 3094 [11290] 65114 76 651 10 0 0 0 JUMP unconditional 1/1/3 1 [11291] 65115 101 1 1 3 0 SET IND=1 FOR 90K IF NO MATCH SELECT LITERAL ADDRESS 24/0/3 3266 [11292] 65116 124 657 6 0 3 0 ROUTE NO MODIFY ADDRESS OF NEXT 3/0/0 0 [11293] 65117 103 0 0 0 0 (21)SET MASTER IND COPY (A) TO N 18/1/1 4127 [11294] 65118 32 0 0 0 1- SHIFT (AB) BY QUARTETS 6/0/0 3267 [11295] 65119 657 7 0 0 0 ALT ROUTE NO SELECT 1/1/2 128 [11296] 65120 101 128 1 2 0 (32) (>8 CHANNELS) SUBTRACT LITERAL ADDRESS 27/0/0 3110 [11297] 65121 70 651 26 0 0 0 >ALT ROUTE NOT USED JUMP IF A == 0 1/1/3 0 [11298] 65122 101 0 1 3 0 DRAIN SELECT LITERAL ADDRESS 18/1/1 1 [11299] 65123 32 0 0 0 1 SHIFT (AB) BY QUARTETS 24/1/2 3267 [11300] 65124 124 657 7 1 2 0 ALT ROUTE NO MODIFY ADDRESS OF NEXT 2/0/0 0 [11301] 65125 102 0 0 0 0 (22)SET MASTER IND TRANSFER (A) TO N 2/1/2 2974 [11302] a 65126 5 647 2 1 2 0 CLEAR ENTRY FROM TRANSFER Start of procedure 652 at location 3111 in chapter 5 [11303] [11303] 65200 PROCR 652 0 0 0 90K/45K CHUNK [11303] 65201 NOTES RADIX 406 6/0/0 3265 [11303] 65202 657 5 0 0 0 ALT ROUTE TYPE SELECT 18/0/1 2 [11304] 65203 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 3266 [11305] 65204 1 657 6 0 0 0 MAIN ROUTE NO ADD 18/0/1 2 [11306] 65205 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 3267 [11307] 65206 1 657 7 0 0 0 ALT ROUTE NO ADD 2/0/1 35 [11308] 65207 102 35 0 1 0 SECOND M OF ROUTE DETAIL TRANSFER (A) TO N 25/0/1 2 [11309] 65208 125 2 0 1 0 STEP ON AND TEST 24/1/0 3070 [11310] 65209 76 650 3 0 0 0 >NEXT ROUTE JUMP unconditional 6/0/0 3269 [11311] 65210 657 9 0 0 0 SELECT 27/0/0 3129 [11312] 65211 70 653 2 0 0 0 >45K INSTALLATION JUMP IF A == 0 26/1/2 3270 [11313] 65212 126 657 10 1 2 0 16:0 SET MODIFICATION REGISTER 6/1/2 2974 [11314] a 65213 647 2 1 2 0 SELECT 27/0/0 3126 [11315] 65214 70 652 17 0 0 0 JUMP IF A == 0 1/1/3 0 [11316] 65215 101 0 1 3 0 UNMATCHED ENTRY IN LIST SELECT LITERAL ADDRESS 24/1/0 3036 [11317] 65216 76 648 64 0 0 0 >REJECT E JUMP unconditional 25/0/2 2 [11318] 65217 125 2 0 2 0 STEP ON AND TEST Source: RayS/Q1000461 24/1/0 3122 [11319] 65218 76 652 13 0 0 0 JUMP unconditional 1/1/1 0 [11320] 65219 101 0 1 1 0 DUMMY ORDER ADD LITERAL ADDRESS Start of procedure 653 at location 3129 in chapter 5 [11321] [11321] 65300 PROCR 653 ARRANGE FOR SPECIAL, GP, OR NEITHER S/R [11321] 65301 NOTES RADIX 407 24/0/3 20 [11321] 65302 124 20 0 3 0 CHAP 1 MODIFY ADDRESS OF NEXT 6/0/0 122 [11322] 65303 106 122 0 0 0 TEST FOR PRINTER SELECT (N) 27/0/0 3164 [11323] 65304 70 653 37 0 0 0 >NO PRINTER JUMP IF A == 0 24/0/2 0 [11324] 65305 124 0 0 2 0 SPECIAL CHAP DIVISION0 SELECT LITERAL AND DIVISION 1/1/2 0 [11325] 65306 101 0 1 2 0 SUBTRACT LITERAL ADDRESS 3/0/0 3202 [11326] 65307 3 655 26 0 0 0 STORE AS PARA FOR COPY 2/0/0 3261 [11327] 65308 5 656 60 0 0 0 PRINT S/R'S TRANSFER 6/0/0 20 [11328] 65309 106 20 0 0 0 FORM AND STORE SELECT (N) 7/0/0 3200 [11329] 65310 04 655 24 0 0 0 CHAP 1 PARA FOR AUGMENT 7/0/0 3259 [11330] 65311 04 656 58 0 0 0 PRINT S/RS AUGMENT 1/1/3 0 [11331] 65312 10 0 0 0 0 SELECT LITERAL 1/1/2 8 [11332] 65313 101 8 1 2 0 SUBTRACT LITERAL ADDRESS 18/0/1 4 [11333] 65314 30 0 0 0 4 SHIFT (A) BY QUARTETS 1/0/1 16 [11334] 65315 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION 15/0/0 3177 [11335] 65316 36 654 11 0 0 0 COLLATE AND ADD 27/0/0 3146 [11336] 65317 70 653 19 0 0 0 JUMP IF A == 0 14/0/0 3250 [11337] 65318 37 656 49 0 0 0 REPLACE SELECTED BITS 1/1/3 0 [11338] 65319 10 0 0 0 0 SELECT LITERAL 1/0/1 1 [11339] 65320 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 15/0/0 3177 [11340] 65321 36 654 11 0 0 0 COLLATE AND ADD 1/1/2 4 [11341] 65322 101 4 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 3158 [11342] 65323 70 653 31 0 0 0 > JUMP IF A == 0 24/0/2 3178 [11343] 65324 124 655 2 0 2 0 FORM T/E FOR SELECT LITERAL AND DIVISION 18/1/1 4123 [11344] 65325 32 0 0 0 5- BULK COPYING SHIFT (AB) BY QUARTETS 1/1/3 26 [11345] 65326 101 26 1 3 0 SP PRINTER S/R SELECT LITERAL ADDRESS 18/1/1 5 [11346] 65327 32 0 0 0 5 TO CHAP SHIFT (AB) BY QUARTETS 24/0/3 20 [11347] 65328 124 20 0 3 0 MODIFY ADDRESS OF NEXT 28/0/0 154 [11348] 65329 128 154 0 0 0 TO CHAP 1 BULK COPY SHORT NUMERIC 24/1/0 3164 [11349] 65330 76 653 37 0 0 0 JUMP unconditional 24/0/2 3203 [11350] 65331 124 656 2 0 2 0 FORM T/E FOR SELECT LITERAL AND DIVISION 18/1/1 4123 [11351] 65332 32 0 0 0 5- BULK COPYING SHIFT (AB) BY QUARTETS 1/1/3 62 [11352] 65333 101 62 1 3 0 GP PRINTER S/R SELECT LITERAL ADDRESS 18/1/1 5 [11353] 65334 32 0 0 0 5 CHAP 1 SHIFT (AB) BY QUARTETS 24/0/3 20 [11354] 65335 124 20 0 3 0 MODIFY ADDRESS OF NEXT 28/0/0 120 [11355] 65336 128 120 0 0 0 BULK COPY SHORT NUMERIC 2/0/0 16 [11356] 65337 102 16 0 0 0 TRANSFER (A) TO N 24/0/2 2974 [11357] a 65338 124 647 2 0 2 0 RESET PARA 5 SELECT LITERAL AND DIVISION 24/0/3 3262 [11358] 65339 124 657 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 5 [11359] 65340 102 5 0 0 0 TRANSFER (A) TO N Start of procedure 654 at location 3168 in chapter 5 [11360] [11360] 65400 PROCR 654 FINAL CHUNK [11360] 65401 NOTES RADIX 408 26/1/1 3278 [11360] 65402 126 657 18 1 1 0 W/L FOR NEW TAG AVAILABILITY WORD SET MODIFICATION REGISTER 24/0/2 98 [11361] 65403 124 98 0 2 0 SELECT LITERAL AND DIVISION 24/0/3 3262 [11362] 65404 124 657 2 0 3 0 MODIFY ADDRESS OF NEXT 3/1/0 28 [11363] 65405 103 28 1 0 0 MR2 COPY (A) TO N 24/0/3 3262 [11364] 65406 124 657 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 0 [11365] 65407 102 0 0 0 0 (6)SET SR LINK TRANSFER (A) TO N 1/1/3 0 [11366] 65408 101 0 1 3 0 PARAS TABLE START SELECT LITERAL ADDRESS 24/0/3 3262 [11367] 65409 124 657 2 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 1 [11368] 65410 124 1 1 0 0 (6)>SECOND ORDER 'LOAD CHAPT' SR UNCONDITIONAL JUMP 0/0/0 0 [11369] 65411 100 0 0 0 0 (27) HALT Start of procedure 655 at location 3178 in chapter 5 [11370] [11370] 65500 PROCR 655 SPECIAL PRINTER S/R Source: RayS/Q1000462 [11370] 65501 NOTES RADIX 409 0/0/0 0 [11370] 65502 100 0 0 0 0 LINK HALT 1/1/3 0 [11371] 65503 101 0 1 3 0 FORM PSUEDOROUTE IN B FOR SPECIAL PRINTE SELECT LITERAL ADDRESS 1/1/2 64 [11372] 65504 101 64 1 2 0 SUBTRACT LITERAL ADDRESS 24/0/3 2974 [11373] a 65505 124 647 2 0 3 0 S/R LINK MODIFY ADDRESS OF NEXT 5/0/0 2 [11374] 65506 105 2 0 0 0 SUBTRACT (N) FROM (A) 18/1/1 4118 [11375] 65507 32 0 0 0 10- SHIFT (AB) BY QUARTETS 1/1/3 9 [11376] 65508 10 0 0 0 9 ROUTE TYPE SELECT LITERAL 18/0/1 5 [11377] 65509 30 0 0 0 5 SHIFT (A) BY QUARTETS 24/0/3 2974 [11378] a 65510 124 647 2 0 3 0 MODIFY ADDRESS OF NEXT 4/0/0 1 [11379] 65511 104 1 0 0 0 PRINTER ROUTE ADD (N) TO (A) 25/1/1 4096 [11380] 65512 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 2983 [11381] a 65513 124 647 11 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 159 [11382] 65514 123 159 0 2 0 ENTER MASTER ENTER MASTER ROUTINE 26/0/1 2974 [11383] a 65515 126 647 2 0 1 0 RETURN TO MAIN PROGRAM LEAVE SUBROUTINE 0/0/0 0 [11384] 65516 100 0 0 0 0 DUMMY HALT 24/0/3 178 [11385] 65517 124 178 0 3 0 MODIFY ADDRESS OF NEXT 28/0/0 214 [11386] 65518 128 214 0 0 0 CLEAR SPECIAL CHAP BULK COPY SHORT NUMERIC 6/1/0 176 [11387] 65519 106 176 1 0 0 SELECT (N) 24/0/3 178 [11388] 65520 124 178 0 3 0 MODIFY ADDRESS OF NEXT 28/0/0 2974 [11389] a 65521 128 647 2 0 0 0 COPY TO SPECIAL CHAP BULK COPY SHORT NUMERIC 24/0/3 178 [11390] 65522 124 178 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 204 [11391] 65523 124 204 1 0 0 >REENTER FINAL CHUNK UNCONDITIONAL JUMP 0/0/0 154 [11392] 65524 100 154 0 0 0 ABS START THIS SR IN CHAP 1 HALT 0/0/0 14 [11393] 65525 100 14 0 0 0 HALT 0/0/0 0 [11394] 65526 100 0 0 0 0 SPECIAL CHAPTER HALT Start of procedure 656 at location 3203 in chapter 5 [11395] [11395] 65600 PROCR 656 G.P. PRINTER S/R [11395] 65601 NOTES RADIX 410 0/0/0 0 [11395] 65602 100 0 0 0 0 LINK HALT 24/0/3 2974 [11396] a 65603 124 647 2 0 3 0 STORE DATA MODIFY ADDRESS OF NEXT 24/1/2 2 [11397] 65604 124 2 1 2 0 MODIFY ADDRESS OF NEXT 24/0/2 0 [11398] 65605 124 0 0 2 0 SELECT LITERAL AND DIVISION 2/0/0 3022 [11399] a 65606 102 647 50 0 0 0 TRANSFER (A) TO N 6/1/0 3020 [11400] a 65607 106 647 48 1 0 0 PACK COLUMNS BIT SELECT (N) 0/1/2 3020 [11401] a 65608 100 647 48 1 2 0 INTO FUNCTION REPLACE (B) BY (N) 24/0/3 3022 [11402] a 65609 124 647 50 0 3 0 MODIFY ADDRESS OF NEXT 14/1/0 0 [11403] 65610 114 0 1 0 0 REPLACE SELECTED BITS 24/0/3 2974 [11404] a 65611 124 647 2 0 3 0 FORM T/E MODIFY ADDRESS OF NEXT 6/0/0 4 [11405] 65612 106 4 0 0 0 SELECT (N) 18/0/0 5 [11406] 65613 118 5 0 0 0 SHIFT LOGICAL 24/0/3 2974 [11407] a 65614 124 647 2 0 3 0 BULK CLEAR G.P. TRANSIT MODIFY ADDRESS OF NEXT 24/1/2 3 [11408] 65615 124 3 1 2 0 AREA BEFORE EDIT MODIFY ADDRESS OF NEXT 28/1/1 0 [11409] 65616 128 0 1 1 0 BULK COPY LONG NUMERIC 6/0/0 3022 [11410] a 65617 106 647 50 0 0 0 SELECT (N) 24/0/3 2974 [11411] a 65618 124 647 2 0 3 0 EDIT INTO G.P. TRANSIT AREA MODIFY ADDRESS OF NEXT 24/1/2 3 [11412] 65619 124 3 1 2 0 MODIFY ADDRESS OF NEXT 29/0/1 0 [11413] 65620 129 0 0 1 0 EDIT FOR ANELEX OUTPUT 2/0/0 3022 [11414] a 65621 102 647 50 0 0 0 TRANSFER (A) TO N 1/1/2 64 [11415] 65622 101 64 1 2 0 FORM PSEUDOROUTE IN B FOR G.P.PRINTER SUBTRACT LITERAL ADDRESS 24/0/3 2974 [11416] a 65623 124 647 2 0 3 0 MODIFY ADDRESS OF NEXT 5/0/0 3 [11417] 65624 105 3 0 0 0 SUBTRACT (N) FROM (A) 18/1/1 4118 [11418] 65625 32 0 0 0 10- SHIFT (AB) BY QUARTETS 1/1/3 4 [11419] 65626 10 0 0 0 4 ROUTE TYPE SELECT LITERAL 18/0/1 5 [11420] 65627 30 0 0 0 5 SHIFT (A) BY QUARTETS 24/0/3 2974 [11421] a 65628 124 647 2 0 3 0 ROUTE NO MODIFY ADDRESS OF NEXT 4/0/0 1 [11422] 65629 104 1 0 0 0 ADD (N) TO (A) 25/1/1 4096 [11423] 65630 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 3020 [11424] a 65631 124 647 48 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [11425] 65632 123 160 0 2 0 ENTER MASTER ENTER MASTER ROUTINE Source: RayS/Q1000463 24/0/3 3022 [11426] a 65633 124 647 50 0 3 0 MODIFY ADDRESS OF NEXT 0/1/2 0 [11427] 65634 100 0 1 2 0 REPLACE (B) BY (N) 1/1/3 2 [11428] 65635 10 0 0 0 2 STEP MODIFIER SELECT LITERAL 7/0/0 3022 [11429] a 65636 4 647 50 0 0 0 AUGMENT 18/1/3 2 [11430] 65637 33 0 0 0 2 SELECT NEXT CHARACTER SHIFT (AB) BY BITS 1/1/3 0 [11431] 65638 10 0 0 0 0 SELECT LITERAL 18/1/3 6 [11432] 65639 33 0 0 0 6 SHIFT (AB) BY BITS 1/1/2 30 [11433] 65640 12 0 0 0 1. TEST L/E SUBTRACT LITERAL 27/0/0 2979 [11434] 65641 70 648 7 0 0 0 >YES JUMP IF A == 0 1/1/2 32 [11435] 65642 12 0 0 0 20 TEST B/E SUBTRACT LITERAL 27/0/0 3019 [11436] 65643 70 648 47 0 0 0 >YES JUMP IF A == 0 1/1/3 0 [11437] 65644 10 0 0 0 0 SELECT LITERAL 27/1/1 3009 [11438] 65645 75 648 37 0 0 0 >NEXT CHARACTER JUMP IF AB != 0 24/1/0 3005 [11439] 65646 76 648 33 0 0 0 >NEXT WORD JUMP unconditional 26/0/1 2974 [11440] a 65647 126 647 2 0 1 0 >LEAVE LEAVE SUBROUTINE 0/0/0 0 [11441] 65648 100 0 0 0 0 ZERO HALT 0/0/0 0 [11442] 65649 100 0 0 0 0 FN WORD HALT 0/0/0 0 [11443] 65650 100 0 0 0 0 MODIFIER HALT 24/0/3 178 [11444] 65651 124 178 0 3 0 MODIFY ADDRESS OF NEXT 28/0/0 214 [11445] 65652 128 214 0 0 0 CLEAR SPECIAL CHAP BULK COPY SHORT NUMERIC 6/1/0 176 [11446] 65653 106 176 1 0 0 SELECT (N) 24/0/3 178 [11447] 65654 124 178 0 3 0 MODIFY ADDRESS OF NEXT 28/0/0 2974 [11448] a 65655 128 647 2 0 0 0 COPY TO SPECIAL CHAP BULK COPY SHORT NUMERIC 24/0/3 178 [11449] 65656 124 178 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 204 [11450] 65657 124 204 1 0 0 >REENTER FINAL CHUNK UNCONDITIONAL JUMP 0/0/0 120 [11451] 65658 100 120 0 0 0 ABS START THIS SR IN CHAP 1 HALT 0/0/0 48 [11452] 65659 100 48 0 0 0 HALT 0/0/0 0 [11453] 65660 100 0 0 0 0 SPECIAL CHAPTER HALT Start of procedure 657 at location 3262 in chapter 5 [11454] [11454] 65700 CONST 657 0 411 CONSTS FOR 45/90K CHUNK 0/0/0 0 [11454] 65702 (D)0; ZERO +00000 0/0/0 0 [11455] 65703 0; 2*FILES +00000 0/0/0 0 [11456] 65704 0; ROUTE TYPE/BULK CLEAR T +00000 2/0/0 16 [11457] 65705 20010; ALT RTE TYPE/BULK CLEAR T +20010 0/0/0 0 [11458] 65706 0; ROUTE NO/UNPACK TABLE +00000 19/0/0 0 [11459] 65707 30000-; ALT RTE NO/UNPACK TABLE -30000 0/0/0 0 [11460] 65708 0; FILE IDENTITY +00000 0/0/0 0 [11461] 65709 0; (21)NONZERO IF 90K INSTALLATION +00000 0/0/0 0 [11462] 65710 0; +00000 0/0/0 16 [11463] 65711 10; MOD REGISTER CONSTANT +00010 16/0/0 64 [11464] 65712 40-; (24) -(64+R) FOR PROGM ROUTE -00040 16/0/0 64 [11465] 65713 40-; (23)=LOCN OF 45K ROUTES LIST -00040 0/0/0 0 [11466] 65714 0; LAST BLOCK SERIAL +00000 0/0/0 0 [11467] 65715 0; ON PROGM TAPE +00000 0/0/0 0 [11468] 65716 0; +00000 0/0/0 24 [11469] 65717 (B)24; MR 24:0 +00018 0/0/0 0 [11470] 65718 0; +00000 0/0/0 0 [11471] 65719 ; W/L +00000 0/0/0 0 [11472] 65720 ; +00000 0/0/0 0 [11473] 65721 ; +00000 0/0/0 0 [11474] 65722 ; +00000 0/0/0 0 [11475] 65723 ; +00000 0/0/0 0 [11476] 65724 ; +00000 0/0/0 0 [11477] 65725 ; +00000 Start of procedure 658 at location 3286 in chapter 5 [11478] [11478] 65800 PROCR 658 SET UP PROG IN PQ [11478] 65801 NOTES RADIX 501 FIRST LOCN=98 OF SPECIAL CHAPTER 24/0/3 3639 [11478] 65802 124 668 2 0 3 0 NEW TAG AVAILABILITY MODIFY ADDRESS OF NEXT 6/1/0 26 [11479] 65803 106 26 1 0 0 SELECT (N) 2/1/0 3663 [11480] 65804 05 668 26 1 0 0 TRANSFER Source: RayS/Q1000464 1/1/2 2 [11481] 65805 101 2 1 2 0 ADJUST MR SETTING SUBTRACT LITERAL ADDRESS 7/0/0 3651 [11482] 65806 4 668 14 0 0 0 AUGMENT 7/0/0 3652 [11483] 65807 4 668 15 0 0 0 AUGMENT 1/1/3 0 [11484] 65808 10 0 0 0 0 DUMMY ORDER SELECT LITERAL 6/0/0 15 [11485] 65809 106 15 0 0 0 SELECT (N) 2/0/0 14 [11486] 65810 102 14 0 0 0 TRANSFER (A) TO N 6/0/0 2 [11487] 65811 106 2 0 0 0 PRIORITY CLASS SELECT (N) 18/0/1 4 [11488] 65812 30 0 0 0 4 Q5 SHIFT (A) BY QUARTETS 0/0/2 10 [11489] 65813 100 10 0 2 0 TAG T REPLACE (B) BY (N) 10/0/0 3646 [11490] 65814 110 668 9 0 0 0 MULTIPLY AND ADD 4/0/0 3646 [11491] 65815 1 668 9 0 0 0 48(T+1) ADD 24/0/3 3639 [11492] 65816 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 4/0/0 2 [11493] 65817 104 2 0 0 0 MR SWITCH START ADD (N) TO (A) 18/0/1 5 [11494] 65818 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 12 [11495] 65819 104 12 0 0 0 PROG IDENTITY ADD (N) TO (A) 2/1/0 3649 [11496] 65820 5 668 12 1 0 0 TRANSFER 26/1/1 3651 [11497] 65821 126 668 14 1 1 0 SCAN PQ BACKWARDS SET MODIFICATION REGISTER 1/0/1 16 [11498] 65822 35 0 0 0 10000 Q5 PREPARE FOR DIGIT COLLATION 24/0/3 3639 [11499] 65823 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 15/0/1 1 [11500] 65824 115 1 0 1 0 P CLASS NEXT ENTRY COLLATE AND ADD 5/0/0 3653 [11501] 65825 2 668 16 0 0 0 £0000 SUBTRACT 27/0/0 3318 [11502] 65826 70 658 34 0 0 0 >STEP R1 JUMP IF A == 0 4/0/0 3653 [11503] 65827 1 668 16 0 0 0 £0000 ADD 5/0/0 3650 [11504] 65828 2 668 13 0 0 0 SUBTRACT 27/0/3 3322 [11505] 65829 73 658 38 0 0 0 >INSERT NOW JUMP IF A < 0 24/0/3 3639 [11506] 65830 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 6/1/1 0 [11507] 65831 106 0 1 1 0 SELECT (N) 24/0/3 3639 [11508] 65832 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/1/1 2 [11509] 65833 102 2 1 1 0 TRANSFER (A) TO N 25/0/1 4098 [11510] 65834 125 4098 0 1 0 2- STEP ON AND TEST 24/1/0 3307 [11511] 65835 76 658 23 0 0 0 JUMP unconditional 11/0/3 7 [11512] 65836 111 7 0 3 0 CONST>27/0/3 MULTIPLY AND SUBTRACT 8/1/0 7 [11513] 65837 108 7 1 0 0 CONST>24/1/0 MERGE VARIABLE LENGTH 25/1/1 4096 [11514] 65838 125 4096 1 1 0 SET NON-INT CLEAR INDICATORS 6/1/0 3649 [11515] 65839 668 12 1 0 0 SELECT 24/0/3 3639 [11516] 65840 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/1/1 2 [11517] 65841 102 2 1 1 0 TRANSFER (A) TO N 1/0/1 15 [11518] 65842 35 0 0 0 1111 Q1-4 PREPARE FOR DIGIT COLLATION 15/0/0 3650 [11519] 65843 36 668 13 0 0 0 SWITCH START COLLATE AND ADD 24/0/3 3639 [11520] 65844 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 3/1/0 30 [11521] 65845 103 30 1 0 0 R3 MODIFIERS COPY (A) TO N 7/0/0 3320 [11522] 65846 4 658 36 0 0 0 AUG CONSTANTS AUGMENT 7/0/0 3321 [11523] 65847 4 658 37 0 0 0 AUGMENT 2/0/0 3645 [11524] 65848 5 668 8 0 0 0 TRANSFER 24/0/3 3639 [11525] 65849 124 668 2 0 3 0 START OF SWITCH ABOVE MODIFY ADDRESS OF NEXT 6/0/1 1 [11526] 65850 106 1 0 1 0 SELECT (N) 24/0/3 3639 [11527] 65851 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 28 [11528] 65852 102 28 1 0 0 R2 MODIFIER TRANSFER (A) TO N 1/1/2 4 [11529] 65853 101 4 1 2 0 SUBTRACT LITERAL ADDRESS 7/0/0 3385 [11530] 65854 4 660 28 0 0 0 ADJUST ORDERS AUGMENT 7/0/0 3390 [11531] 65855 4 660 33 0 0 0 AUGMENT 7/0/0 3377 [11532] 65856 04 660 20 0 0 0 AUGMENT Start of procedure 659 at location 3341 in chapter 5 [11533] [11533] 65900 PROCR 659 UPDATE PREVIOUS SWITCH, FORM SWITCH ORDERS [11533] 65901 NOTES RADIX 502 24/0/3 3639 [11533] 65902 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [11534] 65903 126 0 0 0 0 (8)>UPDATE SWITCH ENTER SUBROUTINE 1/1/3 0 [11535] 65904 10 0 0 0 0 SELECT LITERAL 5/0/0 3320 [11536] 65905 2 658 36 0 0 0 27/0/3>SI+7 SUBTRACT 24/0/3 3639 [11537] 65906 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT Source: RayS/Q1000465 2/0/2 20 [11538] 65907 102 20 0 2 0 IN SJ+20 OF PREVIOUS SWITCH TRANSFER (A) TO N 24/0/3 3639 [11539] 65908 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 6/0/2 9 [11540] 65909 106 9 0 2 0 SJ+9 SELECT (N) 24/0/3 3639 [11541] 65910 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 5/0/2 7 [11542] 65911 105 7 0 2 0 SJ+7 SUBTRACT (N) FROM (A) 27/0/1 3355 [11543] 65912 71 659 16 0 0 0 >SWITCH NOT AT 2 JUMP IF A != 0 5/0/0 3321 [11544] 65913 2 658 37 0 0 0 24/1/0>SI+7 SUBTRACT 24/0/3 3639 [11545] 65914 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/2 7 [11546] 65915 102 7 0 2 0 TO SJ+7 TRANSFER (A) TO N 1/1/3 0 [11547] 65916 10 0 0 0 0 SELECT LITERAL 5/0/0 3321 [11548] 65917 2 658 37 0 0 0 SUBTRACT 24/0/3 3639 [11549] 65918 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/2 9 [11550] 65919 102 9 0 2 0 SET 24/1/0 IN SI+9 ALSO TRANSFER (A) TO N Start of procedure 660 at location 3359 in chapter 5 [11551] [11551] 66000 PROCR 660 PLACE CONSTANT IN SWITCH [11551] 66001 NOTES RADIX 503 6/0/0 1 [11551] 66002 106 1 0 0 0 MOD GROUP SELECT (N) 18/0/3 13 [11552] 66003 31 0 0 0 13 SHIFT (A) BY BITS 24/0/3 3639 [11553] 66004 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/3 29 [11554] 66005 102 29 0 3 0 SI+29 TRANSFER (A) TO N 6/0/0 10 [11555] 66006 106 10 0 0 0 TAG SELECT (N) 18/0/1 4 [11556] 66007 30 0 0 0 4 SHIFT (A) BY QUARTETS 4/0/0 8 [11557] 66008 104 8 0 0 0 ABS ENTRY ADD (N) TO (A) 24/0/3 3639 [11558] 66009 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/1/3 44 [11559] 66010 102 44 1 3 0 SET LINK CLEAR 45 TRANSFER (A) TO N 24/0/2 0 [11560] 66011 124 0 0 2 0 SPECIAL CHAPTER START SELECT LITERAL AND DIVISION 24/0/3 3639 [11561] 66012 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/3 37 [11562] 66013 102 37 0 3 0 SI+37 TRANSFER (A) TO N 6/0/0 12 [11563] 66014 106 12 0 0 0 PROG IDENTITY SELECT (N) 24/0/3 3639 [11564] 66015 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/3 39 [11565] 66016 102 39 0 3 0 SI+39 TRANSFER (A) TO N 24/0/3 3639 [11566] 66017 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/1/3 46 [11567] 66018 102 46 1 3 0 CLEAR THIS SI+46,47 TRANSFER (A) TO N 24/0/3 3639 [11568] 66019 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 3 [11569] 66020 106 3 0 0 0 (29)RUN NUMBER SELECT (N) 3/0/0 15 [11570] 66021 103 15 0 0 0 TO SPEC CHAP COPY (A) TO N 24/0/3 3639 [11571] 66022 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/3 40 [11572] 66023 102 40 0 3 0 TO SI+40 TRANSFER (A) TO N 1/1/3 0 [11573] 66024 101 0 1 3 0 (15) 'ROUTE CLOSED' ENTRY SELECT LITERAL ADDRESS 24/0/3 3639 [11574] 66025 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/3 42 [11575] 66026 102 42 0 3 0 SI+42 TRANSFER (A) TO N 24/0/3 3639 [11576] 66027 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 1 [11577] 66028 106 1 0 0 0 MOST SIG HALF OF A SELECT (N) 18/0/1 4125 [11578] 66029 30 0 0 0 3- SHIFT (A) BY QUARTETS 1/1/2 126 [11579] 66030 12 0 0 0 7. SUBTRACT LITERAL 27/0/0 3392 [11580] 66031 70 660 35 0 0 0 >SET (AB)=ZERO JUMP IF A == 0 24/0/3 3639 [11581] 66032 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 0/1/1 0 [11582] 66033 100 0 1 1 0 VALUES>A&B,RUBBISH>C REPLACE REGISTERS 24/1/0 3393 [11583] 66034 76 660 36 0 0 0 JUMP unconditional 1/0/1 0 [11584] 66035 35 0 0 0 0 AB CLEAR PREPARE FOR DIGIT COLLATION 0/0/3 3654 [11585] 66036 100 668 17 0 3 0 SET DECIMAL SET RADIX 24/0/3 3639 [11586] 66037 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 30 [11587] 66038 124 30 0 3 0 R3 MODIFY ADDRESS OF NEXT 0/1/0 30 [11588] 66039 100 30 1 0 0 SET ABC INITIAL ENTRY SI+30>34 COPY REGISTERS Start of procedure 661 at location 3397 in chapter 5 [11589] [11589] 66100 PROCR 661 UPDATE MASTER AVAILABILITY FOR FP/MG/TAG/STORE/ROUTE [11589] 66101 NOTES RADIX 504 CLEAR ALLOC MOD REGISTERS 0/0/3 3639 [11589] 66102 100 668 2 0 3 0 BINARY SET RADIX 6/0/0 0 [11590] 66103 106 0 0 0 0 FP IND SELECT (N) 27/0/0 3406 [11591] 66104 70 661 11 0 0 0 >NOT USED JUMP IF A == 0 Source: ChuckK/Q1000466 6/0/0 10 [11592] 66105 106 10 0 0 0 PROG TAG SELECT (N) 26/1/3 3643 [11593] 66106 126 668 6 1 3 0 6/0 SET MODIFICATION REGISTER 24/0/3 3639 [11594] 66107 124 668 2 0 3 0 ZERO MODIFY ADDRESS OF NEXT 23/1/3 128 [11595] 66108 123 128 1 3 0 COPY INTO TAG 25/0/3 2 [11596] 66109 125 2 0 3 0 STEP ON AND TEST 24/1/0 3402 [11597] 66110 76 661 7 0 0 0 JUMP unconditional 6/0/0 1 [11598] 66111 106 1 0 0 0 MOD GROUP SELECT (N) 27/0/0 3427 [11599] 66112 70 661 32 0 0 0 >NOT USED JUMP IF A == 0 18/0/3 3 [11600] 66113 31 0 0 0 3 SHIFT (A) BY BITS 2/0/0 3642 [11601] 66114 5 668 5 0 0 0 8M TRANSFER 6/0/0 10 [11602] 66115 106 10 0 0 0 TAG SELECT (N) 26/1/3 3643 [11603] 66116 126 668 6 1 3 0 6/0 SET MODIFICATION REGISTER 24/0/3 3642 [11604] 66117 124 668 5 0 3 0 8M MODIFY ADDRESS OF NEXT 23/1/3 2 [11605] 66118 123 2 1 3 0 COPY INTO TAG 25/0/3 2 [11606] 66119 125 2 0 3 0 STEP ON AND TEST 24/1/0 3412 [11607] 66120 76 661 17 0 0 0 JUMP unconditional 6/0/0 1 [11608] 66121 106 1 0 0 0 MOD GROUP SELECT (N) 1/1/2 3 [11609] 66122 12 0 0 0 3 SUBTRACT LITERAL 26/1/3 3643 [11610] 66123 126 668 6 1 3 0 6/0 SET MODIFICATION REGISTER 27/0/0 3423 [11611] 66124 70 661 28 0 0 0 >MG3 JUMP IF A == 0 6/0/0 3642 [11612] 66125 668 5 0 0 0 8M SELECT 1/1/1 2 [11613] 66126 11 0 0 0 2 OVER 'START OF COPY OF MG3' ADDRESS ADD LITERAL 2/0/0 3641 [11614] 66127 5 668 4 0 0 0 TRANSFER 24/0/3 3641 [11615] 66128 124 668 4 0 3 0 LOCN OF MR1 OF MOD GROUP MODIFY ADDRESS OF NEXT 2/1/3 0 [11616] 66129 102 0 1 3 0 TRANSFER (A) TO N 25/0/3 2 [11617] 66130 125 2 0 3 0 STEP ON AND TEST 24/1/0 3423 [11618] 66131 76 661 28 0 0 0 JUMP unconditional 1/1/3 0 [11619] 66132 101 0 1 3 0 (3)FORM QTTY TO COPY SELECT LITERAL ADDRESS 1/1/2 0 [11620] 66133 101 0 1 2 0 (30) SUBTRACT LITERAL ADDRESS 1/1/2 4 [11621] 66134 12 0 0 0 4 SUBTRACT LITERAL 18/0/1 5 [11622] 66135 30 0 0 0 5 SHIFT (A) BY QUARTETS 1/1/1 80 [11623] 66136 101 80 1 1 0 ADD LITERAL ADDRESS 4/0/0 20 [11624] 66137 104 20 0 0 0 ADD (N) TO (A) 24/0/3 3639 [11625] 66138 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 28/1/1 0 [11626] 66139 128 0 1 1 0 (30)UPDATE STORAGE BULK COPY LONG NUMERIC Start of procedure 662 at location 3435 in chapter 5 [11627] [11627] 66200 PROCR 662 SET ASL'S [11627] 66201 NOTES RADIX 505 6/1/0 3663 [11627] 66202 0 668 26 1 0 0 UPDATE TAG AVAILABILITY SELECT 24/0/3 3639 [11628] 66203 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 0 [11629] 66204 102 0 1 0 0 TRANSFER (A) TO N 26/1/3 18 [11630] 66205 126 18 1 3 0 2X(R+T):0 SET MODIFICATION REGISTER 1/0/1 1027 [11631] 66206 35 0 0 0 11- PREPARE FOR DIGIT COLLATION 15/1/3 34 [11632] 66207 115 34 1 3 0 ALLOC ROUTE COLLATE AND ADD 27/0/3 3481 [11633] 66208 73 662 48 0 0 0 >NEGATIVE;IGNORE JUMP IF A < 0 2/0/0 3642 [11634] 66209 5 668 5 0 0 0 W/L TRANSFER 6/0/0 10 [11635] 66210 106 10 0 0 0 TAG SELECT (N) 18/0/1 4 [11636] 66211 30 0 0 0 4 SHIFT (A) BY QUARTETS 4/0/3 66 [11637] 66212 104 66 0 3 0 START ADD (N) TO (A) 24/0/3 3642 [11638] 66213 124 668 5 0 3 0 ROUTE MODIFY ADDRESS OF NEXT 2/0/0 64 [11639] 66214 102 64 0 0 0 TRANSFER (A) TO N 6/0/3 35 [11640] 66215 106 35 0 3 0 FILE ID Q1=4 SELECT (N) 27/0/0 3481 [11641] 66216 70 662 48 0 0 0 >TRANSIT AREA JUMP IF A == 0 6/0/3 34 [11642] 66217 106 34 0 3 0 RT IN Q5 SELECT (N) 18/0/1 4124 [11643] 66218 30 0 0 0 4- SHIFT (A) BY QUARTETS 1/1/2 7 [11644] 66219 12 0 0 0 7 TEST IF M/T SUBTRACT LITERAL 27/0/0 3458 [11645] 66220 70 662 25 0 0 0 IE RTE TYPES JUMP IF A == 0 1/1/2 1 [11646] 66221 12 0 0 0 1 7,8,11 SUBTRACT LITERAL 27/0/0 3458 [11647] 66222 70 662 25 0 0 0 JUMP IF A == 0 Source: ChuckK/Q1000467 1/1/2 3 [11648] 66223 12 0 0 0 3 SUBTRACT LITERAL 27/0/1 3462 [11649] 66224 71 662 29 0 0 0 JUMP IF A != 0 24/0/3 3642 [11650] 66225 124 668 5 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 0 [11651] 66226 102 0 0 0 0 (16)CLEAR REEL CTR TRANSFER (A) TO N 24/1/0 3470 [11652] 66227 76 662 37 0 0 0 JUMP unconditional 2/0/0 0 [11653] 66228 102 0 0 0 0 (35)CLEAR BLOCK COUNTER FOR MT ROUTE TRANSFER (A) TO N 1/1/1 5 [11654] 66229 11 0 0 0 5 TEST CARD INPUT ADD LITERAL 27/0/0 3466 [11655] 66230 70 662 33 0 0 0 >80-COL CARDS(6) JUMP IF A == 0 1/1/2 7 [11656] 66231 12 0 0 0 7 SUBTRACT LITERAL 27/0/1 3470 [11657] 66232 71 662 37 0 0 0 >NOT 40-COL CARDS(15) JUMP IF A != 0 24/0/3 3642 [11658] 66233 124 668 5 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 64 [11659] 66234 106 64 0 0 0 ASL FOR EVEN ROUTE SELECT (N) 24/0/3 3642 [11660] 66235 124 668 5 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 65 [11661] 66236 102 65 0 0 0 COPY FOR ODD ROUTE TRANSFER (A) TO N 6/0/3 34 [11662] 66237 106 34 0 3 0 SELECT (N) 18/0/1 6 [11663] 66238 30 0 0 0 6 ALT ROUTE Q3,4 SHIFT (A) BY QUARTETS 18/0/1 4120 [11664] 66239 30 0 0 0 8- SHIFT (A) BY QUARTETS 1/1/2 128 [11665] 66240 12 0 0 0 80 (32) SUBTRACT LITERAL 27/0/0 3481 [11666] 66241 70 662 48 0 0 0 >NOT USED JUMP IF A == 0 1/1/1 128 [11667] 66242 11 0 0 0 80 (32) ADD LITERAL 2/0/0 3642 [11668] 66243 5 668 5 0 0 0 TRANSFER 6/0/0 10 [11669] 66244 106 10 0 0 0 TAG SELECT (N) 18/0/1 4 [11670] 66245 30 0 0 0 4 SHIFT (A) BY QUARTETS 24/0/3 3642 [11671] 66246 124 668 5 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 64 [11672] 66247 102 64 0 0 0 SET IND THAT NOT AVAILABLE TRANSFER (A) TO N 1/1/3 0 [11673] 66248 10 0 0 0 0 CLEAR A SELECT LITERAL 25/0/3 2 [11674] 66249 125 2 0 3 0 STEP ON AND TEST 24/1/0 3439 [11675] 66250 76 662 6 0 0 0 >NEXT ROUTE JUMP unconditional 2/1/0 3649 [11676] 66251 5 668 12 1 0 0 CLEAR THIS TRANSFER 24/0/3 3639 [11677] 66252 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 5 [11678] 66253 102 5 0 0 0 CLEAR PARAMETER 5 TRANSFER (A) TO N 25/1/2 0 [11679] 66254 125 0 1 2 0 DUMMY INTERROGATE INDICATORS Start of procedure 663 at location 3488 in chapter 5 [11680] [11680] 66300 PROCR 663 SET UP CHAP PARAS;ROUTE PARAS;TX AREA PARAS [11680] 66301 NOTES RADIX 506 MOD GROUP PARAS AND SPECIAL PARAS 26/1/1 3649 [11680] 66302 126 668 12 1 1 0 CLEAR SET MODIFICATION REGISTER 26/1/2 16 [11681] 66303 126 16 1 2 0 2XCHAPS:0 SET MODIFICATION REGISTER 0/0/2 3648 [11682] 66304 34 668 11 0 0 0 BITS 1-13 SET (N) IN B 6/0/2 20 [11683] 66305 106 20 0 2 0 NEXT START SELECT (N) 2/0/1 99 [11684] 66306 102 99 0 1 0 15 BIT TRANSFER (A) TO N 15/0/2 20 [11685] 66307 115 20 0 2 0 COLLATE AND ADD 2/0/1 100 [11686] 66308 102 100 0 1 0 TRANSFER (A) TO N 25/0/1 2 [11687] 66309 125 2 0 1 0 STEP ON AND TEST 25/0/2 2 [11688] 66310 125 2 0 2 0 STEP ON AND TEST 24/1/0 3490 [11689] 66311 76 663 4 0 0 0 >NEXT CHAP JUMP unconditional 2/0/0 98 [11690] 66312 102 98 0 0 0 CLEAR PARA 0 TRANSFER (A) TO N 6/0/0 5 [11691] 66313 106 5 0 0 0 FILES SELECT (N) 4/0/0 5 [11692] 66314 104 5 0 0 0 ADD (N) TO (A) 18/0/1 5 [11693] 66315 30 0 0 0 5 SHIFT (A) BY QUARTETS 24/0/3 3639 [11694] 66316 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 28 [11695] 66317 102 28 1 0 0 R2=2XROUTES:0 TRANSFER (A) TO N 1/0/1 1027 [11696] 66318 35 0 0 0 11- PREPARE FOR DIGIT COLLATION 15/1/2 34 [11697] 66319 115 34 1 2 0 NEXT ROUTE COLLATE AND ADD 27/0/2 3510 [11698] 66320 72 663 24 0 0 0 PARA JUMP IF A >= 0 25/0/2 2 [11699] 66321 125 2 0 2 0 END OF ROUTES STEP ON AND TEST 24/1/0 3507 [11700] 66322 76 663 21 0 0 0 >STEP UP MR TO END JUMP unconditional Source: ChuckK/Q1000468 24/1/0 3514 [11701] 66323 76 663 28 0 0 0 >END JUMP unconditional 2/0/1 99 [11702] 66324 102 99 0 1 0 TRANSFER (A) TO N 25/0/1 1 [11703] 66325 125 1 0 1 0 STEP ON AND TEST 25/0/2 2 [11704] 66326 125 2 0 2 0 STEP ON AND TEST 24/1/0 3505 [11705] 66327 76 663 19 0 0 0 >NEXT ROUTE JUMP unconditional 6/0/0 19 [11706] 66328 106 19 0 0 0 SELECT (N) 24/0/3 3639 [11707] 66329 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 29 [11708] 66330 102 29 0 0 0 ADJUST END VALUE TRANSFER (A) TO N 1/0/1 3 [11709] 66331 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 15/0/2 34 [11710] 66332 115 34 0 2 0 TX AREA COLLATE AND ADD 2/0/1 99 [11711] 66333 102 99 0 1 0 TRANSFER (A) TO N 5/0/1 99 [11712] 66334 105 99 0 1 0 SUBTRACT (N) FROM (A) 1/1/2 64 [11713] 66335 101 64 1 2 0 SUBTRACT LITERAL ADDRESS 2/0/1 100 [11714] 66336 102 100 0 1 0 TRANSFER (A) TO N 25/0/1 2 [11715] 66337 125 2 0 1 0 STEP ON AND TEST 25/0/2 2 [11716] 66338 125 2 0 2 0 STEP ON AND TEST 24/1/0 3518 [11717] 66339 76 663 32 0 0 0 >NEXT TX AREA JUMP unconditional 6/0/0 1 [11718] 66340 106 1 0 0 0 MOD GROUP SELECT (N) 18/0/3 3 [11719] 66341 31 0 0 0 3 SHIFT (A) BY BITS 2/0/1 99 [11720] 66342 102 99 0 1 0 BM TRANSFER (A) TO N 5/0/1 99 [11721] 66343 105 99 0 1 0 SUBTRACT (N) FROM (A) 1/1/2 2 [11722] 66344 101 2 1 2 0 SUBTRACT LITERAL ADDRESS 3/0/1 100 [11723] 66345 103 100 0 1 0 -(8M+2)=R1 COPY (A) TO N 1/1/2 2 [11724] 66346 101 2 1 2 0 SUBTRACT LITERAL ADDRESS 3/0/1 101 [11725] 66347 103 101 0 1 0 -(8M+4)=R2 COPY (A) TO N 1/1/2 2 [11726] 66348 101 2 1 2 0 SUBTRACT LITERAL ADDRESS 2/0/1 102 [11727] 66349 102 102 0 1 0 -(8M+6)=R3 TRANSFER (A) TO N 6/0/0 14 [11728] 66350 106 14 0 0 0 CONTROL DATA SELECT (N) 2/0/1 103 [11729] 66351 102 103 0 1 0 ROUTE TYPE TRANSFER (A) TO N 24/1/1 3639 [11730] 66352 124 668 2 1 1 0 MOD GROUP 0 SET MODIFICATION GROUP 24/0/3 3639 [11731] 66353 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [11732] 66354 126 0 0 0 0 (17)->REQUEST T/W ENTER SUBROUTINE 24/0/3 3639 [11733] 66355 124 668 2 0 3 0 RI MODIFIER MODIFY ADDRESS OF NEXT 6/0/0 26 [11734] 66356 106 26 0 0 0 SELECT (N) 1/1/1 5 [11735] 66357 11 0 0 0 5 ADD LITERAL 2/0/0 14 [11736] 66358 102 14 0 0 0 STORE(PARAS+1)FOR PTS TRANSFER (A) TO N Start of procedure 664 at location 3545 in chapter 5 [11737] [11737] 66400 PROCR 664 TYPE DATE TIME AND ALLOC COMMENT [11737] 66401 NOTES RADIX 507 1/1/2 2 [11737] 66402 12 0 0 0 2 SUBTRACT LITERAL 7/0/0 3658 [11738] 66403 4 668 21 0 0 0 SET TRUE ANNEX START AUGMENT 24/0/2 3665 [11739] 66404 124 669 2 0 2 0 SELECT LITERAL AND DIVISION 24/0/3 3658 [11740] 66405 124 668 21 0 3 0 MODIFY ADDRESS OF NEXT 28/1/2 0 [11741] 66406 128 0 1 2 0 EDIT FIXED FIELD FORMATS 6/0/0 3657 [11742] 66407 668 20 0 0 0 PARA 25 SELECT 27/0/3 3557 [11743] 66408 73 664 14 0 0 0 >MASTER TYPES PAGE HEADINGS ANYWAY JUMP IF A < 0 27/0/1 3556 [11744] 66409 71 664 13 0 0 0 >CLOCK WORKING JUMP IF A != 0 1/1/3 7710 [11745] 66410 10 0 0 0 1.1. SELECT LITERAL 24/0/3 3658 [11746] 66411 124 668 21 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 6 [11747] 66412 102 6 1 0 0 PREMATURE END TRANSFER (A) TO N 26/0/0 3622 [11748] 66413 80 667 2 0 0 0 >TYPE ENTER SUBROUTINE 24/0/3 3639 [11749] 66414 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [11750] 66415 126 0 0 0 0 (17)->REQUEST T/W ENTER SUBROUTINE 1/1/3 76 [11751] 66416 101 76 1 3 0 ANNEX LENGTH SELECT LITERAL ADDRESS 18/0/1 5 [11752] 66417 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 20 [11753] 66418 104 20 0 0 0 CHAP 1 START ADD (N) TO (A) 24/0/3 3639 [11754] 66419 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 28/1/1 0 [11755] 66420 128 0 1 1 0 (18)->MR T/W ANNEX BULK COPY LONG NUMERIC 24/0/3 3639 [11756] 66421 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [11757] 66422 126 0 0 0 0 (19)EDIT TIME SR ENTER SUBROUTINE Source: DaveJ/Q1000469 26/0/0 3622 [11758] 66423 80 667 2 0 0 0 gTYPE ENTER SUBROUTINE Start of procedure 665 at location 3567 in chapter 5 [11759] [11759] 66500 PROCR 665 CLEAR STORE STACK NEW TAG [11759] 66501 NOTES RADIX 508 24/1/1 3654 [11759] 66502 124 668 17 1 1 0 SET MOD GROUP 3 SET MODIFICATION GROUP 26/1/1 16 [11760] 66503 126 16 1 1 0 2XCHAPS:0 SET MODIFICATION REGISTER 6/1/1 20 [11761] 66504 106 20 1 1 0 SELECT (N) 2/1/0 3649 [11762] 66505 5 668 12 1 0 0 START/END NEXT CHAP TRANSFER 24/0/2 0 [11763] 66506 124 0 0 2 0 SELECT LITERAL AND DIVISION 5/0/0 3649 [11764] 66507 2 668 12 0 0 0 SUBTRACT 26/1/2 3649 [11765] 66508 126 668 12 1 2 0 TAG STACKER SET MODIFICATION REGISTER 26/1/3 3649 [11766] 66509 126 668 12 1 3 0 CLEARER SET MODIFICATION REGISTER 27/0/1 3580 [11767] 66510 71 665 15 0 0 0 gNOT SPECIAL CHAP JUMP IF A != 0 25/0/2 200 [11768] 66511 125 200 0 2 0 STEP ON AND TEST 25/0/3 500 [11769] 66512 125 500 0 3 0 STEP ON AND TEST 24/1/0 3580 [11770] 66513 76 665 15 0 0 0 JUMP unconditional 24/1/0 3588 [11771] 66514 76 665 23 0 0 0 gNONE TO CLEAR JUMP unconditional 25/0/3 180 [11772] 66515 125 180 0 3 0 STOP 180 CHAP 1 STEP ON AND TEST 1/1/3 0 [11773] 66516 10 0 0 0 0 SELECT LITERAL 6/0/0 3581 [11774] 66517 106 665 16 0 0 0 CORRECTION AFTER SELECT (N) 2/0/0 3580 [11775] 66518 102 665 15 0 0 0 CHAP 1 TRANSFER (A) TO N 24/0/3 3639 [11776] 66519 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/1/3 0 [11777] 66520 102 0 1 3 0 CLEAR STORE TRANSFER (A) TO N 25/0/3 2 [11778] 66521 125 2 0 3 0 STEP ON AND TEST 24/1/0 3584 [11779] 66522 76 665 19 0 0 0 JUMP unconditional 6/0/0 10 [11780] 66523 106 10 0 0 0 TAG SELECT (N) 24/0/3 3639 [11781] 66524 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 23/1/2 0 [11782] 66525 123 0 1 2 0 STACK AG COPY INTO TAG 25/0/2 2 [11783] 66526 125 2 0 2 0 STEP ON AND TEST 24/1/0 3589 [11784] 66527 76 665 24 0 0 0 JUMP unconditional 25/0/1 2 [11785] 66528 125 2 0 1 0 STEP ON AND TEST 24/1/0 3569 [11786] 66529 76 665 4 0 0 0 gNEXT CHAPTER JUMP unconditional 1/1/3 0 [11787] 66530 101 0 1 3 0 (28) SELECT LITERAL ADDRESS 27/0/0 3605 [11788] 66531 70 666 2 0 0 0 gPTS PART OF MASTER JUMP IF A == 0 6/0/0 11 [11789] 66532 106 11 0 0 0 SELECT (N) 27/0/0 3605 [11790] 66533 70 666 2 0 0 0 gNOT TRIALS ALLOCATED JUMP IF A == 0 24/0/3 3639 [11791] 66534 124 668 2 0 3 0 Q5 OF PARA 43=2X CHAP CONTAINING PTS MODIFY ADDRESS OF NEXT 6/0/0 43 [11792] 66535 106 43 0 0 0 SELECT (N) 18/0/1 4124 [11793] 66536 30 0 0 0 4- SHIFT (A) BY QUARTETS 7/0/0 3604 [11794] 66537 4 665 39 0 0 0 AUGMENT 1/1/3 1500 [11795] 66538 101 1500 1 3 0 ADD PTS SIZE TO CHAP SELECT LITERAL ADDRESS 7/0/0 19 [11796] 66539 107 19 0 0 0 AUGMENT (N) BY (A) Start of procedure 666 at location 3605 in chapter 5 [11797] [11797] 66600 PROCR 666 LOAD FINAL CHUNK [11797] 66601 NOTES RADIX 509 6/0/0 3645 [11797] 66602 668 8 0 0 0 SWITCH START SET RI FOR ENTRY SELECT 18/1/1 4123 [11798] 66603 32 0 0 0 5- TO PROGRAM SHIFT (AB) BY QUARTETS 24/0/2 0 [11799] 66604 124 0 0 2 0 SPECIAL CHAP START SELECT LITERAL AND DIVISION 18/1/1 5 [11800] 66605 32 0 0 0 5 SHIFT (AB) BY QUARTETS 24/0/3 3639 [11801] 66606 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 26 [11802] 66607 102 26 1 0 0 RI TRANSFER (A) TO N 24/0/2 146 [11803] 66608 124 146 0 2 0 SELECT LITERAL AND DIVISION 24/0/3 3639 [11804] 66609 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 28 [11805] 66610 102 28 1 0 0 R2 MODIFIER TRANSFER (A) TO N 1/1/3 146 [11806] 66611 101 146 1 3 0 SET PARA 1 VALUE SELECT LITERAL ADDRESS 24/0/3 3639 [11807] 66612 124 668 2 0 3 0 13 BIT ADDRESS OF LOCN 140 MODIFY ADDRESS OF NEXT 2/0/0 1 [11808] 66613 102 1 0 0 0 TRANSFER (A) TO N 1/1/3 0 [11809] 66614 101 0 1 3 0 PARA TABLE START SELECT LITERAL ADDRESS Source: DaveJ/Q1000470 24/0/3 3639 [11810] 66615 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [11811] 66616 126 0 0 0 0 (6)->LOAD CHAP SR ENTER SUBROUTINE 6/0/0 3645 [11812] 66617 668 8 0 0 0 SELECT 24/1/0 214 [11813] 66618 124 214 1 0 0 UNCONDITIONAL JUMP Start of procedure 667 at location 3622 in chapter 5 [11814] [11814] 66700 PROCR 667 TYPEWRITER S/R [11814] 66701 NOTES RADIX 511 0/0/0 0 [11814] 66702 81 667 2 0 0 0 MOD GROUP=0 START OF SUBROUTINE 24/0/3 3639 [11815] 66703 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 6/0/1 35 [11816] 66704 106 35 0 1 0 (SM+35) SELECT (N) 1/1/1 2 [11817] 66705 11 0 0 0 2 ADD LITERAL 24/0/3 3639 [11818] 66706 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/1 7 [11819] 66707 102 7 0 1 0 gSM+7 TRANSFER (A) TO N 24/0/2 3633 [11820] 66708 124 667 13 0 2 0 SELECT LITERAL AND DIVISION 24/0/3 3639 [11821] 66709 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/1 42 [11822] 66710 102 42 0 1 0 RETURN ADDRESS TRANSFER (A) TO N 24/0/3 3639 [11823] 66711 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 0 [11824] 66712 124 0 1 0 0 (20)->TYPE UNCONDITIONAL JUMP 1/1/3 0 [11825] 66713 101 0 1 3 0 (15)ROUTE CLOSED'LINK SELECT LITERAL ADDRESS 24/0/3 3639 [11826] 66714 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 3/0/1 7 [11827] 66715 103 7 0 1 0 gSM+7 COPY (A) TO N 24/0/3 3639 [11828] 66716 124 668 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/1 42 [11829] 66717 102 42 0 1 0 gSM+42 TRANSFER (A) TO N 26/0/1 3622 [11830] 66718 82 667 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 668 at location 3639 in chapter 5 [11831] [11831] 66800 CONST 668 0 512 0/0/0 0 [11831] 66802 (B)0; ZERO +00000 0/0/0 20 [11832] 66803 20; BULK COPY TE +00014 0/0/0 0 [11833] 66804 0; (10)LOCN OF (MG3) +00000 0/0/0 0 [11834] 66805 0; W/L +00000 0/0/0 0 [11835] 66806 0; MOD REGISTER +00000 0/0/0 6 [11836] 66807 6; +00006 0/0/0 0 [11837] 66808 0; W/L +00000 0/0/0 48 [11838] 66809 48; +00030 0/0/0 0 [11839] 66810 0; NEW TAG AVAILABILITY WRD +00000 0/0/0 8191 [11840] 66811 8191; BITS 1-13 +01FFF 0/0/0 0 [11841] 66812 0; LONG W/L +00000 0/0/0 0 [11842] 66813 0; +00000 0/0/0 0 [11843] 66814 ; (30)PQ START +00000 0/0/0 0 [11844] 66815 ; (29)PQ END +00000 15/0/0 0 [11845] 66816 (D)p0000; +F0000 6/0/3 1638 [11846] 66817 66666; DEC RADIX +66666 3/0/2 7774 [11847] 66818 35.5.; +35E5E 0/0/0 1303 [11848] 66819 517; +00517 0/0/0 0 [11849] 66820 0; (25)CLOCK PARA +00000 0/0/0 0 [11850] 66821 0; (18)T/W ASL +00000 3/0/2 5376 [11851] 66822 35500; +35500 5/0/2 1303 [11852] 66823 54517; +54517 0/0/0 0 [11853] 66824 0; (43)PTS START+CHAP +00000 0/0/0 0 [11854] 66825 0; +00000 0/0/0 0 [11855] 66826 0; +00000 0/0/0 0 [11856] 66827 ; +00000 Start of procedure 669 at location 3665 in chapter 5 [11857] [11857] 66900 PROCR 669 EDIT TABLE IN DISGUISE [11857] 66901 NOTES RADIX 513 0/0/0 3659 [11857] 66902 100 668 22 0 0 0 DATE HALT 3/0/0 5 [11858] 66903 103 5 0 0 0 COPY (A) TO N 0/0/0 138 [11859] 66904 100 138 0 0 0 DAY Q5,6 HALT 2/0/0 1026 [11860] 66905 102 1026 0 0 0 4/0/2 TRANSFER (A) TO N 0/0/0 138 [11861] 66906 100 138 0 0 0 MONTH Q5,4 HALT Source: RayS/Q1000471 2/0/0 1554 [11862] 66907 102 1554 0 0 0 TRANSFER (A) TO N 0/0/0 138 [11863] 66908 100 138 0 0 0 YEAR Q1,2 HALT 2/0/0 2066 [11864] 66909 102 2066 0 0 0 TRANSFER (A) TO N 0/0/0 3655 [11865] 66910 100 668 18 0 0 0 'AT' HALT 3/0/0 290 [11866] 66911 103 290 0 0 0 COPY (A) TO N 0/0/0 156 [11867] 66912 100 156 0 0 0 TIME HALT 0/0/0 20 [11868] 66913 100 20 0 0 0 0/1/4 HALT 0/0/0 3655 [11869] 66914 100 668 18 0 0 0 DOUBLE LINE END HALT 19/0/0 786 [11870] 66915 119 786 0 0 0 OUTPUT 0/0/0 0 [11871] 66916 100 0 0 0 0 HALT 0/0/0 0 [11872] 66917 100 0 0 0 0 HALT 0/0/0 0 [11873] 66918 100 0 0 0 0 HALT 0/0/0 0 [11874] 66919 100 0 0 0 0 HALT Start of procedure 670 at location 3683 in chapter 5 [11875] [11875] 67000 PROCR 670 FINAL CHUNK=LOAD PROGRAM START=LOCN 146 OF SPECIAL CHAP [11875] 67001 NOTES RADIX 601 28/1/1 3687 [11875] 67002 128 670 6 1 1 0 CLEAR 150-197 OF SPECIAL CHAPTER BULK COPY LONG NUMERIC 24/0/3 3687 [11876] 67003 124 670 6 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 0 [11877] 67004 124 0 1 0 0 (9)>REENTER MASTER UNCONDITIONAL JUMP 1/1/3 0 [11878] 67005 101 0 1 3 0 SELECT LITERAL ADDRESS 0/0/0 0 [11879] 67006 100 0 0 0 0 T/E FOR CLEARING HALT 2/0/0 48 [11880] 67007 102 48 0 0 0 FINAL CHUNK TRANSFER (A) TO N 24/0/1 16 [11881] 67008 124 16 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 20 [11882] 67009 106 20 0 0 0 NEXT CHAP START SELECT (N) 24/0/3 3687 [11883] 67010 124 670 6 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 28 [11884] 67011 102 28 1 0 0 R2 TRANSFER (A) TO N 24/0/3 3687 [11885] 67012 124 670 6 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [11886] 67013 126 0 0 0 0 (7)>READ BLOCK ENTER SUBROUTINE 24/1/2 3731 [11887] 67014 124 671 2 1 2 0 -64+R MODIFY ADDRESS OF NEXT 6/1/0 12 [11888] 67015 106 12 1 0 0 SELECT (N) 5/1/0 3733 [11889] 67016 2 671 4 1 0 0 'CHAPT' SUBTRACT 27/0/1 3693 [11890] 67017 71 670 12 0 0 0 >NOT AT CHAP HEADING JUMP IF A != 0 24/0/2 98 [11891] 67018 124 98 0 2 0 PARA TABLE START SELECT LITERAL AND DIVISION 24/0/3 3687 [11892] 67019 124 670 6 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [11893] 67020 126 0 0 0 0 (6)>LOAD CHAP ENTER SUBROUTINE 23/0/0 2 [11894] 67021 123 2 0 0 0 STEP ON AND TEST Procedure 0 (or section) unknown 0/0/-1 8191 [11895] 67022 100 16 0 0 0 (ABSOLUTE ADDRESS FORMED IN 603) Address of modifier 24/1/0 3689 [11896] 67023 76 670 8 0 0 0 >NEXT CHAPTER JUMP unconditional 24/1/0 3712 [11897] 67024 76 670 31 0 0 0 *FORMED ORDER*(1/1/3 IF PTS TO BE LOADED JUMP unconditional 2/0/0 3699 [11898] 67025 5 670 18 0 0 0 TRANSFER 1/1/2 23 [11899] 67026 101 23 1 2 0 SUBTRACT LITERAL ADDRESS 7/0/0 3704 [11900] 67027 4 670 23 0 0 0 STEP LOOP EXIT AUGMENT 7/0/0 3733 [11901] 67028 4 671 4 0 0 0 (CHAPT)>(CHAP') AUGMENT 6/0/0 200 [11902] 67029 106 200 0 0 0 SELECT (N) 24/1/0 3691 [11903] 67030 76 670 10 0 0 0 JUMP unconditional 26/1/2 18 [11904] 67031 126 18 1 2 0 STACK GUARD WORDS SET MODIFICATION REGISTER 6/0/2 67 [11905] 67032 106 67 0 2 0 SELECT (N) 27/0/0 3719 [11906] 67033 70 670 38 0 0 0 JUMP IF A == 0 2/0/0 3689 [11907] 67034 5 670 8 0 0 0 TRANSFER 1/1/3 15 [11908] 67035 101 15 1 3 0 SELECT LITERAL ADDRESS 24/0/3 3689 [11909] 67036 124 670 8 0 3 0 MODIFY ADDRESS OF NEXT 23/1/0 0 [11910] 67037 123 0 1 0 0 TAG 15 GUARD WORD COPY INTO TAG 25/0/2 2 [11911] 67038 125 2 0 2 0 STEP ON AND TEST 24/1/0 3713 [11912] 67039 76 670 32 0 0 0 JUMP unconditional 6/0/0 3732 [11913] 67040 671 3 0 0 0 24/1/0 23 SELECT 1/1/2 0 [11914] 67041 101 0 1 2 0 -(SWITCH START) SUBTRACT LITERAL ADDRESS 24/0/3 3687 [11915] 67042 124 670 6 0 3 0 MODIFY ADDRESS OF NEXT 3/0/1 35 [11916] 67043 103 35 0 1 0 24/1/0 SI*23 IN SI*35 COPY (A) TO N 24/0/3 3687 [11917] 67044 124 670 6 0 3 0 MODIFY ADDRESS OF NEXT Source: RayS/Q1000472 2/0/1 7 [11918] 67045 102 7 0 1 0 TO SI+7 TRANSFER (A) TO N 2/0/0 16 [11919] 67046 102 16 0 0 0 CLEAR MODIFIERS TRANSFER (A) TO N 24/1/1 3687 [11920] 67047 124 670 6 1 1 0 MG 0 SET MODIFICATION GROUP 6/1/0 3687 [11921] 67048 106 670 6 1 0 0 SELECT (N) 24/1/0 3683 [11922] 67049 76 670 2 0 0 0 >CLEAR AND ENTER JUMP unconditional Start of procedure 671 at location 3731 in chapter 5 [11923] [11923] 67100 CONST 671 0 602 PARA FOR LOAD CHAPTER 16/0/0 64 [11923] 67102 (B)64-; (11)PROG PSEUDOROUTE -00040 24/1/0 23 [11924] 67103 (D)88017-; -88017 1/0/3 1907 [11925] 67104 (D)16773; +16773 5/0/1 5509 [11926] 67105 53585; +53585 0/0/0 0 [11927] 67106 ; +00000 0/0/0 0 [11928] 67107 ; +00000 Start of procedure 672 at location 3737 in chapter 5 [11929] [11929] 67200 PROCR 672 603 ARRANGE PTS LOADING LOCATION 200 OF SPECIAL CHAP 0/0/0 0 [11929] 67202 100 0 0 0 0 HALT 28/1/1 204 [11930] 67203 128 204 1 1 0 CLEAR 204-214 OF BULK COPY LONG NUMERIC 24/1/0 3689 [11931] 67204 124 670 8 1 0 0 SPECIAL CHAP UNCONDITIONAL JUMP 28/1/1 214 [11932] 67205 128 214 1 1 0 CLEAR 214-END OF SPECIAL CHAP BULK COPY LONG NUMERIC 6/0/0 3688 [11933] 67206 106 670 7 0 0 0 SELECT (N) 1/1/1 152 [11934] 67207 101 152 1 1 0 CLEAR FIRST 200 ADD LITERAL ADDRESS 18/0/1 5 [11935] 67208 30 0 0 0 5 OF CHAPTER 1 SHIFT (A) BY QUARTETS 24/0/3 20 [11936] 67209 124 20 0 3 0 MODIFY ADDRESS OF NEXT 28/1/1 0 [11937] 67210 128 0 1 1 0 BULK COPY LONG NUMERIC 6/1/0 3749 [11938] 67211 106 672 14 1 0 0 SELECT (N) 24/1/0 3738 [11939] 67212 124 672 3 1 0 0 UNCONDITIONAL JUMP 0/0/0 0 [11940] 67213 100 0 0 0 0 HALT 0/0/0 0 [11941] 67214 100 0 0 0 0 BULK CLEAR CONSTANT HALT 2/0/0 10 [11942] 67215 102 10 0 0 0 TRANSFER (A) TO N 7/0/0 3722 [11943] 67216 107 670 41 0 0 0 FORM 'SUBTRACT SWITCH START' AUGMENT (N) BY (A) 24/0/2 16 [11944] 67217 124 16 0 2 0 FORM ABS ADDRESS INDIREST MOD REGISTER SELECT LITERAL AND DIVISION 2/0/0 3703 [11945] a 67218 5 670 22 0 0 0 TRANSFER 24/0/3 3687 [11946] 67219 124 670 6 0 3 0 SET UP 64 AND MODIFY ADDRESS OF NEXT 6/0/0 64 [11947] 67220 106 64 0 0 0 (24)124 FOR USE SELECT (N) 2/0/0 198 [11948] 67221 102 198 0 0 0 TRANSFER (A) TO N 24/0/3 3687 [11949] 67222 124 670 6 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 124 [11950] 67223 106 124 0 0 0 SELECT (N) 2/0/0 199 [11951] 67224 102 199 0 0 0 TRANSFER (A) TO N 6/0/0 11 [11952] 67225 106 11 0 0 0 TEST PROGRAM TRIALS ALLOCATED SELECT (N) 27/0/0 3781 [11953] 67226 70 672 46 0 0 0 >NO JUMP IF A == 0 1/1/3 0 [11954] 67227 101 0 1 3 0 (28)TEST PTS IN MASTER CODING SELECT LITERAL ADDRESS 27/0/0 3781 [11955] 67228 70 672 46 0 0 0 >YES JUMP IF A == 0 6/0/0 3791 [11956] 67229 672 56 0 0 0 ARRANGE FOR PTS SELECT 2/0/0 3705 [11957] 67230 102 670 24 0 0 0 LOADING PROCEDURE TRANSFER (A) TO N 1/0/1 15 [11958] 67231 35 0 0 0 1111 COLLATION CONST PREPARE FOR DIGIT COLLATION 15/0/0 3793 [11959] 67232 36 672 58 0 0 0 PTS BEGINNING AND COLLATE AND ADD 24/0/3 3687 [11960] 67233 124 670 6 0 3 0 SET UP PARA 2 MODIFY ADDRESS OF NEXT 3/0/0 2 [11961] 67234 103 2 0 0 0 15 BIT START PTS COPY (A) TO N 2/0/0 200 [11962] 67235 102 200 0 0 0 END FOR LOADING TRANSFER (A) TO N 24/0/3 200 [11963] 67236 124 200 0 3 0 SET UP PARA 1 MODIFY ADDRESS OF NEXT 1/1/3 0 [11964] 67237 101 0 1 3 0 13 BIT START PTS SELECT LITERAL ADDRESS 24/0/3 3687 [11965] 67238 124 670 6 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 1 [11966] 67239 102 1 0 0 0 TRANSFER (A) TO N 24/0/3 20 [11967] 67240 124 20 0 3 0 PARA 47 15 BIT MODIFY ADDRESS OF NEXT 5/0/0 165 [11968] 67241 105 165 0 0 0 START OF PRINT S/R SUBTRACT (N) FROM (A) 4/0/0 3794 [11969] 67242 1 672 59 0 0 0 ADD 1/1/2 0 [11970] 67243 101 0 1 2 0 SUBTRACT LITERAL ADDRESS 24/0/3 3687 [11971] 67244 124 670 6 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 47 [11972] 67245 106 47 0 0 0 SELECT (N) Source: ChuckK/Q1000473 24/0/3 20 [11973] 67246 124 20 0 3 0 TEST PRINT S/R MODIFY ADDRESS OF NEXT 6/0/0 122 [11974] 67247 106 122 0 0 0 REQUIRED SELECT (N) 27/0/0 3788 [11975] 67248 70 672 53 0 0 0 >NO JUMP IF A == 0 6/0/0 3792 [11976] 67249 106 672 57 0 0 0 SELECT BULK CLEAR SELECT (N) 18/0/1 5 [11977] 67250 30 0 0 0 5 TABLE ENTRY SHIFT (A) BY QUARTETS 24/0/3 20 [11978] 67251 124 20 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 169 [11979] 67252 124 169 1 0 0 >ENTER 'LOAD PRINT SR' IN CHAP 1 UNCONDITIONAL JUMP 6/0/0 3792 [11980] 67253 106 672 57 0 0 0 SELECT (N) 18/0/1 5 [11981] 67254 30 0 0 0 5 SHIFT (A) BY QUARTETS 24/1/0 3740 [11982] 67255 124 672 5 1 0 0 >LOAD CHAPS UNCONDITIONAL JUMP 6/0/0 3686 [11983] 67256 106 670 5 0 0 0 SELECT (N) 2/0/0 286 [11984] 67257 102 286 0 0 0 TRANSFER (A) TO N 0/0/0 0 [11985] 67258 100 0 0 0 0 43 HALT 26/0/1 0 [11986] 67259 126 0 0 1 0 LEAVE SUBROUTINE Start of procedure 673 at location 3795 in chapter 5 [11987] [11987] 67300 CONST 673 0 FIRST LEVEL PARAS FOR UNLOADER 3/1/0 4681 [11987] 67302 (B5)7(B3)1(B3)1(B3)1(B6)9; 101/1 START OF PG +39249 0/1/0 4175 [11988] 67303 1,1,0,1,15; START OF 2ND ST TB +0904F 0/1/0 4726 [11989] 67304 1,1,1,1,54; +09276 0/1/0 521 [11990] 67305 1,0,1,0,9; +08209 0/0/0 4105 [11991] 67306 0,1,0,0,9; +01009 0/0/0 4681 [11992] 67307 0,1,1,1,9; +01249 0/0/0 4617 [11993] 67308 0,1,1,0,9; +01209 0/1/0 118 [11994] 67309 1,0,0,1,54; +08076 0/0/0 4608 [11995] 67310 0,1,1,0,0; +01200 0/1/3 4616 [11996] 67311 1,7,1,0,8; REJ ALLOC COMM +0F208 0/1/3 4681 [11997] 67312 1,7,1,1,9; LOAD NEXT CHAP +0F249 1/1/1 5057 [11998] 67313 3,3,1,7,1; 102/5 LOAD NEXT CHAP +1B3C1 0/0/0 4617 [11999] 67314 0,1,1,0,9; +01209 0/0/0 4175 [12000] 67315 0,1,0,1,15; UPDATE SWITCH S/R +0104F 0/1/0 577 [12001] 67316 1,0,1,1,1; +08241 0/0/0 513 [12002] 67317 0,0,1,0,1; +00201 0/1/0 521 [12003] 67318 1,0,1,0,9; +08209 0/0/0 4105 [12004] 67319 0,1,0,0,9; +01009 0/0/0 4161 [12005] 67320 0,1,0,1,1; +01041 2/0/0 4160 [12006] 67321 4,1,0,1,0; +21040 0/1/0 4616 [12007] 67322 1,1,1,0,8; +09208 0/0/0 4609 [12008] 67323 0,1,1,0,1; 103/1 +01201 0/0/0 119 [12009] 67324 0,0,0,1,55; CD RTE TYPE +00077 0/1/3 7232 [12010] 67325 1,7,6,1,0; +0FC40 0/0/0 4169 [12011] 67326 0,1,0,1,9; +01049 0/1/0 4217 [12012] 67327 1,1,0,1,57; USE OF ASS TABLE +09079 0/1/0 5056 [12013] 67328 1,1,1,7,0; USE OF ASS TABLE +093C0 0/1/0 961 [12014] 67329 1,0,1,7,1; USE OF ASS TABLE +083C1 0/1/0 521 [12015] 67330 1,0,1,0,9; 104/1 +08209 0/0/0 4105 [12016] 67331 0,1,0,0,9; +01009 0/1/0 4617 [12017] 67332 1,1,1,0,9; +09209 0/0/0 4111 [12018] 67333 0,1,0,0,15; 105/6 +0100F 0/1/0 4681 [12019] 67334 1,1,1,1,9; +09249 0/1/0 4726 [12020] 67335 1,1,1,1,54; +09276 0/1/0 585 [12021] 67336 1,0,1,1,9; 106/3 +08249 0/1/0 4681 [12022] 67337 1,1,1,1,9; +09249 0/1/0 4673 [12023] 67338 1,1,1,1,1; +09241 0/1/0 4673 [12024] 67339 1,1,1,1,1; +09241 0/1/0 584 [12025] 67340 1,0,1,1,8; +08248 0/1/0 577 [12026] 67341 1,0,1,1,1; +08241 0/1/0 4617 [12027] 67342 1,1,1,0,9; 107/3 +09209 0/1/0 4681 [12028] 67343 1,1,1,1,9; +09249 0/1/0 585 [12029] 67344 1,0,1,1,9; +08249 0/1/0 65 [12030] 67345 1,0,0,1,1; +08041 Source: ChuckK/Q1000474 3/1/0 585 [12031] 67346 7,0,1,1,9; XXX COMMENT +38249 0/0/0 4609 [12032] 67347 0,1,1,0,1; +01201 0/1/0 575 [12033] 67348 1,0,1,0,63; 108/5 STRT OF STRE TB +0823F 3/1/1 8191 [12034] 67349 7,3,7,7,63; PRTY AND STR TAB STRT +3BFFF 0/0/0 3776 [12035] 67350 0,0,7,3,0; STORE TAB START +00EC0 0/0/0 56 [12036] 67351 0,0,0,0,56; +00038 3/1/0 0 [12037] 67352 7,0,0,0,0; +38000 3/1/3 3510 [12038] 67353 7,6,6,6,54; +3EDB6 Start of procedure 674 at location 3847 in chapter 5 [12039] [12039] 67400 CONST 674 CONST CONST CONST CONST FIRST LEVEL PARAS FOR ALLO STORAGE 3/1/0 4481 [12039] 67402 (B5)7(B3)1(B3)0(B3)6(B6)1; 202/1 +39181 0/0/0 5055 [12040] 67403 0,1,1,6,63; +013BF 0/1/0 7606 [12041] 67404 1,1,6,6,54; +09DB6 0/1/3 4608 [12042] 67405 1,7,1,0,0; READ NEXT BLOCK S/R +0F200 0/0/0 0 [12043] 67406 0,0,0,0,0; +00000 0/0/0 0 [12044] 67407 0,0,0,0,0; +00000 0/1/0 521 [12045] 67408 1,0,1,0,9; 203/1 +08209 0/0/0 4633 [12046] 67409 0,1,1,0,25; +01219 3/1/0 0 [12047] 67410 7,0,0,0,0; LOAD NEXT CHAP S/R +38000 0/0/0 3592 [12048] 67411 0,0,7,0,8; 204/3 205/5 RTE 0 PSDO RT +00E08 0/0/0 72 [12049] 67412 0,0,0,1,8; +00048 0/0/0 73 [12050] 67413 0,0,0,1,9; +00049 2/1/0 65 [12051] 67414 5,0,0,1,1; +28041 0/1/3 4681 [12052] 67415 1,7,1,1,9; +0F249 0/0/0 4681 [12053] 67416 0,1,1,1,9; +01249 0/1/0 4681 [12054] 67417 1,1,1,1,9; +09249 3/0/1 5046 [12055] 67418 6,3,1,6,54; +333B6 0/0/0 5641 [12056] 67419 0,1,3,0,9; +01609 0/0/0 4681 [12057] 67420 0,1,1,1,9; 206/6 +01249 0/1/0 4617 [12058] 67421 1,1,1,0,9; +09209 0/1/0 7801 [12059] 67422 1,1,7,1,57; +09E79 0/1/0 4673 [12060] 67423 1,1,1,1,1; +09241 0/1/0 4617 [12061] 67424 1,1,1,0,9; +09209 0/1/0 4681 [12062] 67425 1,1,1,1,9; +09249 0/1/0 4681 [12063] 67426 1,1,1,1,9; +09249 0/1/0 4616 [12064] 67427 1,1,1,0,8; +09208 0/0/0 4673 [12065] 67428 0,1,1,1,1; +01241 0/0/3 3510 [12066] 67429 0,6,6,6,54; +06DB6 0/0/0 585 [12067] 67430 0,0,1,1,9; +00249 0/0/0 7233 [12068] 67431 0,1,6,1,1; +01C41 0/1/0 4681 [12069] 67432 1,1,1,1,9; +09249 0/1/0 4681 [12070] 67433 1,1,1,1,9; +09249 0/1/0 65 [12071] 67434 1,0,0,1,1; +08041 0/1/0 4680 [12072] 67435 1,1,1,1,8; 207/2 +09248 0/1/0 4681 [12073] 67436 1,1,1,1,9; +09249 0/1/0 73 [12074] 67437 1,0,0,1,9; +08049 0/1/3 3510 [12075] 67438 1,6,6,6,54; +0EDB6 0/0/0 4105 [12076] 67439 0,1,0,0,9; +01009 0/0/0 4105 [12077] 67440 0,1,0,0,9; +01009 0/0/0 3657 [12078] 67441 0,0,7,1,9; +00E49 0/1/0 65 [12079] 67442 1,0,0,1,1; 208/2 +08041 0/0/0 585 [12080] 67443 0,0,1,1,9; +00249 0/0/0 4480 [12081] 67444 0,1,0,6,0; 209/5 +01180 0/0/0 0 [12082] 67445 0,0,0,0,0; +00000 0/0/0 585 [12083] 67446 0,0,1,1,9; 210/3 +00249 0/1/0 4726 [12084] 67447 1,1,1,1,54; +09276 0/1/0 968 [12085] 67448 1,0,1,7,8; REJECT ALLO COMM +083C8 0/1/0 73 [12086] 67449 1,0,0,1,9; +08049 0/1/0 3510 [12087] 67450 1,0,6,6,54; +08DB6 0/1/0 584 [12088] 67451 1,0,1,1,8; +08248 Source: ChuckK/Q1000475 3/0/3 65 [12089] 67452 6,6,0,1,1; +36041 3/0/3 3510 [12090] 67453 6,6,6,6,54; +36DB6 0/1/0 4169 [12091] 67454 1,1,0,1,9; 211/3 +09049 0/1/0 4617 [12092] 67455 1,1,1,0,9; +09209 0/0/0 4681 [12093] 67456 0,1,1,1,9; +01249 0/1/0 4680 [12094] 67457 1,1,1,1,8; +09248 0/1/0 5001 [12095] 67458 1,1,1,6,9; +09389 0/1/0 4169 [12096] 67459 1,1,0,1,9; +09049 0/1/0 4097 [12097] 67460 1,1,0,0,1; +09001 0/1/0 4681 [12098] 67461 1,1,1,1,9; +09249 0/1/0 4169 [12099] 67462 1,1,0,1,9; +09049 0/1/0 585 [12100] 67463 1,0,1,1,9; +08249 0/1/0 4681 [12101] 67464 1,1,1,1,9; +09249 0/0/3 585 [12102] 67465 0,6,1,1,9; 212/3 +06249 0/1/0 4681 [12103] 67466 1,1,1,1,9; +09249 0/1/0 4681 [12104] 67467 1,1,1,1,9; +09249 0/1/0 3510 [12105] 67468 1,0,6,6,54; +08DB6 3/0/0 4681 [12106] 67469 6,1,1,1,9; 213/2 +31249 0/1/0 4681 [12107] 67470 1,1,1,1,9; +09249 0/1/0 4169 [12108] 67471 1,1,0,1,9; +09049 0/1/0 4097 [12109] 67472 1,1,0,0,1; +09001 0/1/0 4681 [12110] 67473 1,1,1,1,9; +09249 0/0/0 4673 [12111] 67474 0,1,1,1,1; 214/4 215/4 +01241 0/0/0 4616 [12112] 67475 0,1,1,0,8; +01208 0/1/0 4678 [12113] 67476 1,1,1,1,6; +09246 0/1/0 4681 [12114] 67477 1,1,1,1,9; +09249 0/1/0 4169 [12115] 67478 1,1,0,1,9; +09049 0/1/0 4169 [12116] 67479 1,1,0,1,9; 216/5 +09049 0/1/0 4681 [12117] 67480 1,1,1,1,9; +09249 0/1/0 4105 [12118] 67481 1,1,0,0,9; +09009 0/1/0 4616 [12119] 67482 1,1,1,0,8; +09208 0/1/0 4673 [12120] 67483 1,1,1,1,1; +09241 1/1/0 4681 [12121] 67484 3,1,1,1,9; +19249 0/1/1 7561 [12122] 67485 1,3,6,6,9; 217/5 +0BD89 0/1/0 523 [12123] 67486 1,0,1,0,11; +0820B 0/1/3 4619 [12124] 67487 1,7,1,0,11; LOAD CHAP S/R +0F20B 0/0/0 5686 [12125] 67488 0,1,3,0,54; +01636 0/1/0 4617 [12126] 67489 1,1,1,0,9; 218/1 +09209 0/1/0 4161 [12127] 67490 1,1,0,1,1; +09041 0/1/3 3510 [12128] 67491 1,6,6,6,54; +0EDB6 0/1/0 4681 [12129] 67492 1,1,1,1,9; +09249 0/1/0 4617 [12130] 67493 1,1,1,0,9; +09209 0/1/0 9 [12131] 67494 1,0,0,0,9; +08009 0/1/0 4608 [12132] 67495 1,1,1,0,0; +09200 0/0/0 6 [12133] 67496 0,0,0,0,6; +00006 3/1/3 3510 [12134] 67497 7,6,6,6,54; +3EDB6 Start of procedure 675 at location 3943 in chapter 5 [12135] [12135] 67500 CONST 675 0 FIRST LEVEL PARAS FOR ALLOC 1/0/0 65 [12135] 67502 (B5)2(B3)0(B3)0(B3)1(B6)1; 301/0 302/3 +10041 0/1/0 7753 [12136] 67503 1,1,7,1,9; +09E49 0/1/0 4672 [12137] 67504 1,1,1,1,0; +09240 1/0/0 4681 [12138] 67505 2,1,1,1,9; +11249 0/0/0 4618 [12139] 67506 0,1,1,0,10; +0120A 0/1/0 649 [12140] 67507 1,0,1,2,9; +08289 0/0/0 3510 [12141] 67508 0,0,6,6,54; 303/1 +00DB6 0/0/0 0 [12142] 67509 0,0,0,0,0; +00000 0/0/0 0 [12143] 67510 0,0,0,0,0; +00000 2/1/0 2600 [12144] 67511 5,0,5,0,40; 304/1 +28A28 2/1/0 2616 [12145] 67512 5,0,5,0,56; RUN NUMBER +28A38 2/1/0 2560 [12146] 67513 5,0,5,0,0; 306/5 +28A00 Source: ChuckK/Q1000476 0/1/0 5122 [12147] 67514 1,1,2,0,2; +09402 0/1/1 640 [12148] 67515 1,2,1,2,0; +0A280 0/1/0 585 [12149] 67516 1,0,1,1,9; +08249 0/1/0 4161 [12150] 67517 1,1,0,1,1; +09041 0/0/0 4225 [12151] 67518 0,1,0,2,1; +01081 0/0/0 4681 [12152] 67519 0,1,1,1,9; +01249 0/1/1 1024 [12153] 67520 1,2,2,0,0; +0A400 0/1/1 975 [12154] 67521 1,2,1,7,15; +0A3CF 0/1/0 4688 [12155] 67522 1,1,1,1,16; +09250 0/1/0 146 [12156] 67523 1,0,0,2,18; +08092 0/1/1 4617 [12157] 67524 1,3,1,0,9; 307/3 +0B209 1/0/0 4680 [12158] 67525 2,1,1,1,8; +11248 0/1/0 632 [12159] 67526 1,0,1,1,56; READ NEXT BLOCK +08278 3/0/3 3457 [12160] 67527 6,6,6,6,1; +36D81 0/0/0 4609 [12161] 67528 0,1,1,0,1; 308/4 +01201 0/1/0 4681 [12162] 67529 1,1,1,1,9; 8 OR MORE CH +09249 1/0/0 7810 [12163] 67530 2,1,7,2,2; +11E82 0/0/1 3510 [12164] 67531 0,2,6,6,54; +02DB6 0/0/0 1096 [12165] 67532 0,0,2,1,8; +00448 0/1/0 585 [12166] 67533 1,0,1,1,9; +08249 0/1/0 4616 [12167] 67534 1,1,1,0,8; +09208 1/0/0 4161 [12168] 67535 2,1,0,1,1; +11041 1/0/0 630 [12169] 67536 2,0,1,1,54; +10276 0/0/0 4160 [12170] 67537 0,1,0,1,0; 309/2 +01040 0/0/0 4105 [12171] 67538 0,1,0,0,9; +01009 1/0/0 5130 [12172] 67539 2,1,2,0,10; +1140A 0/0/0 577 [12173] 67540 0,0,1,1,1; +00241 0/1/0 4682 [12174] 67541 1,1,1,1,10; +0924A 1/0/0 592 [12175] 67542 2,0,1,1,16; +10250 0/1/0 4225 [12176] 67543 1,1,0,2,1; +09081 0/1/0 4673 [12177] 67544 1,1,1,1,1; +09241 0/0/0 4169 [12178] 67545 0,1,0,1,9; +01049 0/1/0 4662 [12179] 67546 1,1,1,0,54; +09236 1/0/0 4233 [12180] 67547 2,1,0,2,9; +11089 0/1/1 1034 [12181] 67548 1,2,2,0,10; 310/2 +0A40A 1/0/1 566 [12182] 67549 2,2,1,0,54; +12236 0/1/3 4184 [12183] 67550 1,7,0,1,24; LOAD NEXT CHAP +0F058 0/1/0 1656 [12184] 67551 1,0,3,1,56; 311/6 +08678 0/1/0 4681 [12185] 67552 1,1,1,1,9; +09249 0/1/1 73 [12186] 67553 1,2,0,1,9; +0A049 0/0/0 4114 [12187] 67554 0,1,0,0,18; +01012 0/0/0 4681 [12188] 67555 0,1,1,1,9; +01249 0/1/0 584 [12189] 67556 1,0,1,1,8; +08248 0/1/1 72 [12190] 67557 1,2,0,1,8; +0A048 0/1/3 4737 [12191] 67558 1,7,1,2,1; OD RTE TYPE +0F281 0/1/0 4554 [12192] 67559 1,1,0,7,10; CD RTE TYPE +091CA 0/0/0 4681 [12193] 67560 0,1,1,1,9; +01249 0/1/0 4681 [12194] 67561 1,1,1,1,9; +09249 0/1/0 4681 [12195] 67562 1,1,1,1,9; +09249 0/1/0 968 [12196] 67563 1,0,1,7,8; REJ ALLOC COMM +083C8 0/1/0 4616 [12197] 67564 1,1,1,0,8; +09208 1/0/0 4161 [12198] 67565 2,1,0,1,1; +11041 0/0/0 4681 [12199] 67566 0,1,1,1,9; 312/1 +01249 0/1/0 4161 [12200] 67567 1,1,0,1,1; 313/3 +09041 0/1/0 584 [12201] 67568 1,0,1,1,8; +08248 0/1/0 4681 [12202] 67569 1,1,1,1,9; +09249 0/1/0 513 [12203] 67570 1,0,1,0,1; 314/4 +08201 0/0/0 4160 [12204] 67571 0,1,0,1,0; 315/5 +01040 0/0/0 512 [12205] 67572 0,0,1,0,0; +00200 0/0/0 4544 [12206] 67573 0,1,0,7,0; 316/3 PROG RTE NO +011C0 Source: DaveJ/Q1000477 0/0/0 0 [12207] 67574 0,0,0,0,0; +00000 0/0/0 56 [12208] 67575 0,0,0,0,56; PROG RTE NO +00038 0/0/0 0 [12209] 67576 0,0,0,0,0; +00000 0/0/0 56 [12210] 67577 0,0,0,0,56; PROG RTE NO +00038 2/1/0 2600 [12211] 67578 5,0,5,0,40; +28A28 0/0/0 4022 [12212] 67579 0,0,7,6,54; +00FB6 Start of procedure 676 at location 4021 in chapter 5 [12213] [12213] 67600 CONST 676 0 FIRST LEVEL PARAS FOR ALLOC F/P TAG 0/0/1 73 [12213] 67602 (B5)0(B3)2(B3)0(B3)1(B6)9; 402/1 +02049 0/1/0 4681 [12214] 67603 1,1,1,1,9; +09249 0/1/0 2550 [12215] 67604 1,0,4,7,54; +089F6 0/1/0 6156 [12216] 67605 1,1,4,0,12; +0980C 0/1/1 1106 [12217] 67606 1,2,2,1,18; +0A452 1/0/0 4617 [12218] 67607 2,1,1,0,9; +11209 0/0/1 641 [12219] 67608 0,2,1,2,1; +02281 1/0/0 4609 [12220] 67609 2,1,1,0,1; +11201 0/1/1 641 [12221] 67610 1,2,1,2,1; +0A281 0/1/0 8 [12222] 67611 1,0,0,0,8; +08008 0/1/0 1 [12223] 67612 1,0,0,0,1; +08001 3/1/0 4096 [12224] 67613 7,1,0,0,0; REJ ALLOC COMMENT +39000 1/0/0 1152 [12225] 67614 2,0,2,2,0; +10480 1/0/0 129 [12226] 67615 2,0,0,2,1; +10081 0/1/0 4680 [12227] 67616 1,1,1,1,8; +09248 0/1/0 585 [12228] 67617 1,0,1,1,9; +08249 0/0/0 5238 [12229] 67618 0,1,2,1,54; +01476 0/0/0 65 [12230] 67619 0,0,0,1,1; +00041 0/0/0 4161 [12231] 67620 0,1,0,1,1; +01041 0/1/0 4616 [12232] 67621 1,1,1,0,8; 405/3 +09208 0/1/0 585 [12233] 67622 1,0,1,1,9; +08249 0/1/0 527 [12234] 67623 1,0,1,0,15; 45/90K +0820F 0/0/0 7744 [12235] 67624 0,1,7,1,0; +01E40 0/1/3 4673 [12236] 67625 1,7,1,1,1; 406/4 45/90K IND +0F241 0/0/0 5129 [12237] 67626 0,1,2,0,9; +01409 0/1/0 4673 [12238] 67627 1,1,1,1,1; +09241 0/0/0 4534 [12239] 67628 0,1,0,6,54; +011B6 1/0/0 657 [12240] 67629 2,0,1,2,17; 407/1 +10291 0/1/1 576 [12241] 67630 1,2,1,1,0; +0A240 0/0/0 3510 [12242] 67631 0,0,6,6,54; +00DB6 0/1/0 4609 [12243] 67632 1,1,1,0,1; +09201 3/0/0 576 [12244] 67633 6,0,1,1,0; +30240 0/0/1 72 [12245] 67634 0,2,0,1,8; +02048 0/0/0 1041 [12246] 67635 0,0,2,0,17; +00411 0/1/1 7606 [12247] 67636 1,3,6,6,54; +0BDB6 3/0/3 648 [12248] 67637 6,6,1,2,8; 408/3 PRINT RT +36288 0/1/3 5759 [12249] 67638 1,7,3,1,63; LOAD NEXT CHAP +0F67F 0/0/0 320 [12250] 67639 0,0,0,5,0; 409/1 +00140 0/0/0 2565 [12251] 67640 0,0,5,0,5; +00A05 0/0/2 4534 [12252] 67641 0,5,0,6,54; +051B6 3/0/3 128 [12253] 67642 6,6,0,2,0; +36080 2/1/0 1024 [12254] 67643 5,0,2,0,0; +28400 0/0/2 4141 [12255] 67644 0,5,0,0,45; 410/1 +0502D 2/1/2 4422 [12256] 67645 5,5,0,5,6; +2D146 0/0/2 4141 [12257] 67646 0,5,0,0,45; +0502D 0/0/0 2600 [12258] 67647 0,0,5,0,40; +00A28 0/0/0 320 [12259] 67648 0,0,0,5,0; +00140 2/1/0 2565 [12260] 67649 5,0,5,0,5; +28A05 0/0/0 40 [12261] 67650 0,0,0,0,40; +00028 2/1/0 2920 [12262] 67651 5,0,5,5,40; +28B68 0/0/0 3510 [12263] 67652 0,0,6,6,54; +00DB6 0/0/1 40 [12264] 67653 0,2,0,0,40; 410 ENDS ODD'COS 409 ENDS EVEN +02028 Source: DaveJ/Q1000478 1/0/0 0 [12265] 67654 2,0,0,0,0; 411/5 +10000 0/0/0 7 [12266] 67655 0,0,0,0,7; +00007 0/0/0 4032 [12267] 67656 0,0,7,7,0; +00FC0 0/0/0 0 [12268] 67657 0,0,0,0,0; +00000 0/0/0 62 [12269] 67658 0,0,0,0,62; +0003E 0/1/0 521 [12270] 67659 1,0,1,0,9; 501/1 +08209 Start of procedure 677 at location 4079 in chapter 5 [12271] [12271] 67700 CONST 677 0 FIRST LEVEL PARAS FOR SET UP PQ 0/0/3 3506 [12271] 67702 (B5)0(B3)6(B3)6(B3)6(B6)50; +06DB2 1/0/1 137 [12272] 67703 2,2,0,2,9; +12089 0/1/0 137 [12273] 67704 1,0,0,2,9; +08089 0/0/0 4169 [12274] 67705 0,1,0,1,9; +01049 0/1/0 4616 [12275] 67706 1,1,1,0,8; +09208 0/0/0 4097 [12276] 67707 0,1,0,0,1; +01001 0/1/3 3510 [12277] 67708 1,6,6,6,54; +0EDB6 0/0/0 577 [12278] 67709 0,0,1,1,1; +00241 0/1/0 4616 [12279] 67710 1,1,1,0,8; +09208 0/0/0 4687 [12280] 67711 0,1,1,1,15; 502/5 UPDATE SWITCH S/R +0124F 0/0/0 4616 [12281] 67712 0,1,1,0,8; +01208 0/1/0 584 [12282] 67713 1,0,1,1,8; +08248 0/0/0 4624 [12283] 67714 0,1,1,0,16; 503/5 +01210 0/1/0 1041 [12284] 67715 1,0,2,0,17; +08411 0/0/1 529 [12285] 67716 0,2,1,0,17; +02211 0/0/0 4218 [12286] 67717 0,1,0,1,58; +0107A 0/1/0 3649 [12287] 67718 1,0,7,1,1; START OF PRIORITY TAB +08E41 1/1/0 75 [12288] 67719 3,0,0,1,11; ROUTE CLOSED LINK +1804B 0/1/0 576 [12289] 67720 1,0,1,1,0; +08240 0/1/1 649 [12290] 67721 1,2,1,2,9; 504/1 +0A289 0/0/0 648 [12291] 67722 0,0,1,2,8; +00288 0/1/1 576 [12292] 67723 1,2,1,1,0; +0A240 0/1/1 73 [12293] 67724 1,2,0,1,9; +0A049 0/0/0 4609 [12294] 67725 0,1,1,0,1; +01201 1/1/3 4098 [12295] 67726 3,7,0,0,2; +1F002 0/1/3 4706 [12296] 67727 1,7,1,1,34; 505/3 +0F262 0/0/1 592 [12297] 67728 0,2,1,1,16; +02250 1/0/0 4234 [12298] 67729 2,1,0,2,10; +1108A 0/0/0 520 [12299] 67730 0,0,1,0,8; +00208 0/1/0 7800 [12300] 67731 1,1,7,1,56; +09E78 0/1/0 3510 [12301] 67732 1,0,6,6,54; +08DB6 0/1/0 4162 [12302] 67733 1,1,0,1,2; +09042 0/0/0 3705 [12303] 67734 0,0,7,1,57; +00E79 1/0/0 512 [12304] 67735 2,0,1,0,0; +10200 0/1/0 4806 [12305] 67736 1,1,1,3,6; +092C6 0/1/1 658 [12306] 67737 1,2,1,2,18; 506/1 +0A292 1/0/0 82 [12307] 67738 2,0,0,1,18; +10052 1/0/0 514 [12308] 67739 2,0,1,0,2; +10202 0/1/0 950 [12309] 67740 1,0,1,6,54; +083B6 0/1/1 10 [12310] 67741 1,2,0,0,10; +0A00A 0/1/0 146 [12311] 67742 1,0,0,2,18; +08092 0/0/1 10 [12312] 67743 0,2,0,0,10; +0200A 0/0/1 1040 [12313] 67744 0,2,2,0,16; +02410 1/0/0 1169 [12314] 67745 2,0,2,2,17; +10491 0/1/3 4610 [12315] 67746 1,7,1,0,2; REQUEST T/W S/R +0F202 3/0/3 3457 [12316] 67747 6,6,6,6,1; 507/5 +36D81 0/1/0 4169 [12317] 67748 1,1,0,1,9; +09049 0/0/0 4175 [12318] 67749 0,1,0,1,15; REQUEST T/W S/R +0104F 0/0/0 1145 [12319] 67750 0,0,2,1,57; T/W ANNEXE +00479 3/1/0 4753 [12320] 67751 7,1,1,2,17; 508/3 EDIT TIME SR +39291 1/0/0 4680 [12321] 67752 2,1,1,1,8; +11248 0/0/0 4609 [12322] 67753 0,1,1,0,1; +01201 Source: RayS/Q1000479 0/1/0 4106 [12323] 67754 1,1,0,0,10; +0900A 0/1/0 65 [12324] 67755 1,0,0,1,1; +08041 3/1/0 5195 [12325] 67756 7,1,2,1,11; PTS IN MASTER? +3944B 0/0/0 4232 [12326] 67757 0,1,0,2,8; 509/5 +01088 1/0/0 566 [12327] 67758 2,0,1,0,54; +10236 1/0/0 4235 [12328] 67759 2,1,0,2,11; +1108B 1/1/0 7760 [12329] 67760 3,1,7,1,16; 510/6 LOAD CHAP S/R +19E50 0/1/0 65 [12330] 67761 1,0,0,1,1; +08041 0/1/0 1017 [12331] 67762 1,0,1,7,57; LOG ROUTINE/RTE CLSD LK +083F9 0/0/0 4160 [12332] 67763 0,1,0,1,0; 511/5 +01040 0/0/3 3510 [12333] 67764 0,6,6,6,54; +06DB6 3/0/3 3510 [12334] 67765 6,6,6,6,54; +36DB6 3/1/0 0 [12335] 67766 7,0,0,0,0; MOD GRP 3 STORE +38000 0/0/0 63 [12336] 67767 0,0,0,0,63; PRRTY AND STRE TABS +0003F 0/0/0 63 [12337] 67768 0,0,0,0,63; CLOCK IND/T/W ANNEXE +0003F 0/0/0 3584 [12338] 67769 0,0,7,0,0; PTS CHAP START +00E00 2/1/0 0 [12339] 67770 5,0,0,0,0; 513/1 +28000 0/0/0 2560 [12340] 67771 0,0,5,0,0; +00A00 2/1/0 0 [12341] 67772 5,0,0,0,0; +28000 3/1/3 3510 [12342] 67773 7,6,6,6,54; +3EDB6 Start of procedure 678 at location 4151 in chapter 5 [12343] [12343] 67800 CONST 678 0 FIRST LEVEL PARAS OF FINAL CHUNK Query: suspect this should be PTS 0/1/0 7872 [12343] 67802 (B5)1(B3)1(B3)7(B3)3(B6)0; 601/1 RETURN AFTER PLS +09EC0 3/0/1 1089 [12344] 67803 6,2,2,1,1; +32441 3/1/0 4170 [12345] 67804 7,1,0,1,10; READ NEXT BLOCK +3904A 0/1/3 4233 [12346] 67805 1,7,0,2,9; LOAD CHAP S/R +0F089 0/1/0 593 [12347] 67806 1,0,1,1,17; +08251 1/0/1 577 [12348] 67807 2,2,1,1,1; +12241 0/0/0 577 [12349] 67808 0,0,1,1,1; +00241 0/0/0 4233 [12350] 67809 0,1,0,2,9; +01089 0/1/3 4096 [12351] 67810 1,7,0,0,0; +0F000 0/0/0 1105 [12352] 67811 0,0,2,1,17; +00451 0/0/0 1033 [12353] 67812 0,0,2,0,9; 603/1 +00409 0/0/0 438 [12354] 67813 0,0,0,6,54; +001B6 0/1/1 634 [12355] 67814 1,2,1,1,58; +0A27A 0/1/0 1167 [12356] 67815 1,0,2,2,15; PTS IN MASTER +0848F 0/1/0 4617 [12357] 67816 1,1,1,0,9; +09209 1/1/1 1035 [12358] 67817 3,2,2,0,11; +1A40B 1/0/0 651 [12359] 67818 2,0,1,2,11; +1028B 1/0/0 578 [12360] 67819 2,0,1,1,2; +10242 0/0/0 4168 [12361] 67820 0,1,0,1,8; +01048 3/1/0 4022 [12362] 67821 7,0,7,6,54; PTS CHAP START +38FB6 Start of procedure 679 at location 4171 in chapter 5 [12363] [12363] 67900 CONST 679 0 SECOND LEVEL PARAS 1/1/2 6094 [12363] 67902 (B8)29(B6)31(B6)14; UNLOADER +1D7CE 0/0/3 392 [12364] 67903 6,6,8; +06188 2/0/0 2060 [12365] 67904 32,32,12; +2080C 0/1/2 799 [12366] 67905 12,12,31; +0C31F 0/1/2 8191 [12367] 67906 13,63,63; +0DFFF 1/1/3 2015 [12368] 67907 30,31,31; +1E7DF 1/1/2 6045 [12369] 67908 29,30,29; +1D79D 1/1/3 1950 [12370] 67909 30,30,30; +1E79E 1/1/3 8095 [12371] 67910 31,62,31; 2/ALLOC STORAGE +1FF9F 1/1/3 6023 [12372] 67911 31,30,7; +1F787 0/0/3 732 [12373] 67912 6,11,28; +062DC 1/1/2 3102 [12374] 67913 28,48,30; +1CC1E 0/1/3 446 [12375] 67914 14,6,62; +0E1BE 2/0/0 1884 [12376] 67915 32,29,28; 1/ALLOC ROUTES +2075C 1/1/1 511 [12377] 67916 26,7,63; +1A1FF 3/1/3 8160 [12378] 67917 63,63,32; +3FFE0 Source: RayS/Q1000480 0/0/3 417 [12379] 67918 6,6,33; +061A1 2/0/0 5016 [12380] 67919 33,14,24; +21398 1/1/0 4095 [12381] 67920 24,63,63; +18FFF 1/1/0 3997 [12382] 67921 24,62,29; 3/ALLOC F/P +18F9D 0/1/3 1440 [12383] 67922 14,22,32; +0E5A0 1/0/3 4095 [12384] 67923 22,63,63; +16FFF 3/1/3 4486 [12385] 67924 63,6,6; +3F186 1/1/1 8191 [12386] 67925 27,63,63; +1BFFF 1/0/2 5655 [12387] 67926 21,24,23; +15617 3/1/3 541 [12388] 67927 62,8,29; 2/SET UP PQ +3E21D 0/1/3 6046 [12389] 67928 15,30,30; +0F79E 1/0/0 2272 [12390] 67929 16,35,32; +108E0 2/0/0 4095 [12391] 67930 32,63,63; +20FFF 3/1/3 8191 [12392] 67931 63,63,63; DUMMY WORD +3FFFF 1/0/0 5202 [12393] 67932 17,17,18; +11452 1/0/1 5894 [12394] 67933 19,28,6; +13706 1/0/2 970 [12395] 67934 20,15,10; +143CA 1/1/3 1881 [12396] 67935 30,29,25; +1E759 1/0/1 2814 [12397] 67936 18,43,62; +12AFE 0/1/0 4550 [12398] 67937 9,7,6; 1/LOAD CHAP +091C6 0/1/1 5660 [12399] 67938 11,24,28; +0B61C 2/1/1 8127 [12400] 67939 43,62,63; +2BFBF Constants for chapter 5 short constants at 12401 long constants at 12408 0/0/1 0 [12401] 002000 0/0/2 0 [12402] 004000 0/0/3 0 [12403] 006000 0/0/1 1 [12404] 002001 0/0/2 5991 [12405] 005767 8/0/0 0 [12406] 080000 6/0/3 1638 [12407] 066666 0/0/0 4 [12408] 000004 0/0/0 10 [12409] 00000A 0/1/0 153 [12410] 008099 0/0/2 4422 [12411] 005146 0/0/0 0 [12412] 000000 0/0/0 0 [12413] 000000 0/0/0 0 [12414] 000000 2/0/0 40 [12415] 020028 0/0/0 0 [12416] 000000 2/0/0 50 [12417] 020032 0/0/0 0 [12418] 000000 2/0/0 14 [12419] 02000E 0/0/0 0 [12420] 000000 0/0/0 0 [12421] 000000 0/0/0 0 [12422] 000000 0/0/0 0 [12423] 000000 0/0/0 0 [12424] 000000 2/0/0 40 [12425] 020028 0/0/0 0 [12426] 000000 2/0/0 14 [12427] 02000E 0/0/0 6 [12428] 000006 0/0/0 10 [12429] 00000A 0/0/0 1 [12430] 000001 0/0/0 0 [12431] 000000 0/0/0 1 [12432] 000001 0/0/0 100 [12433] 000064 0/0/0 0 [12434] 000000 2/0/0 50 [12435] 020032 0/0/0 0 [12436] 000000 0/0/0 10 [12437] 00000A 0/0/0 0 [12438] 000000 0/0/0 6 [12439] 000006 0/0/0 0 [12440] 000000 0/0/0 3 [12441] 000003 0/0/0 0 [12442] 000000 0/0/0 14 [12443] 00000E 3/0/3 1619 [12444] 036653 5/0/0 5686 [12445] 051636 0/0/0 0 [12446] 000000 0/0/0 8 [12447] 000008 0/0/0 0 [12448] 000000 0/0/0 4 [12449] 000004 0/0/0 0 [12450] 000000 2/0/0 14 [12451] 02000E 13/0/2 7517 [12452] 0D5D5D 5/1/2 5589 [12453] 05D5D5 0/0/0 0 [12454] 000000 0/0/0 10 [12455] 00000A 0/0/0 0 [12456] 000000 2/0/0 31 [12457] 02001F 0/0/0 0 [12458] 000000 0/0/0 48 [12459] 000030 0/0/0 0 [12460] 000000 0/0/0 10 [12461] 00000A 0/0/0 0 [12462] 000000 0/0/0 48 [12463] 000030 0/0/0 1 [12464] 000001 0/0/0 100 [12465] 000064 0/0/0 0 [12466] 000000 0/0/0 48 [12467] 000030 0/0/0 0 [12468] 000000 0/0/0 48 [12469] 000030 0/0/0 0 [12470] 000000 0/0/0 48 [12471] 000030 0/0/0 0 [12472] 000000 0/0/0 17 [12473] 000011 0/0/0 2499 [12474] 0009C3 0/0/0 0 [12475] 000000 0/0/0 0 [12476] 000000 0/0/0 40 [12477] 000028 0/0/0 0 [12478] 000000 0/0/0 48 [12479] 000030 0/0/0 0 [12480] 000000 0/0/0 10 [12481] 00000A 0/0/0 0 [12482] 000000 0/0/0 48 [12483] 000030 0/0/0 0 [12484] 000000 0/0/0 48 [12485] 000030 0/0/0 0 [12486] 000000 0/0/0 144 [12487] 000090 0/0/0 0 [12488] 000000 2/0/0 52 [12489] 020034 0/0/0 0 [12490] 000000 2/0/0 50 [12491] 020032 0/0/0 0 [12492] 000000 2/0/0 52 [12493] 020034 0/0/0 0 [12494] 000000 0/0/0 300 [12495] 00012C 0/0/0 0 [12496] 000000 0/0/0 8 [12497] 000008 0/0/0 0 [12498] 000000 0/0/0 6 [12499] 000006 0/0/0 0 [12500] 000000 0/0/0 3 [12501] 000003 L8192 loading procedure 0 for chapter 5 0/0/0 0 [8192] 000000 0/0/0 5600 [8193] 0015E0 0/0/0 5600 [8194] 0015E0 0/0/1 0 [8195] 002000 0/0/1 0 [8196] 002000 0/0/0 160 [8197] 0000A0 0/0/0 160 [8198] 0000A0 0/0/0 9 [8199] 000009 0/0/0 18 [8200] 000012 0/0/0 27 [8201] 00001B 0/0/0 36 [8202] 000024 0/0/0 45 [8203] 00002D 0/0/0 10 [8204] 00000A 16/0/0 74 [8205] 10004A 0/0/0 19 [8206] 000013 16/0/0 83 [8207] 100053 0/0/0 28 [8208] 00001C 16/0/0 92 [8209] 10005C 0/0/0 37 [8210] 000025 16/0/0 101 [8211] 100065 0/0/0 46 [8212] 00002E 16/0/0 110 [8213] 10006E 0/0/0 8 [8214] 000008 16/0/0 10 [8215] 10000A 16/0/0 12 [8216] 10000C 16/0/0 14 [8217] 10000E 0/0/0 0 [8218] 000000 0/0/0 0 [8219] 000000 0/0/0 0 [8220] 000000 0/0/0 0 [8221] 000000 0/0/0 0 [8222] 000000 0/0/0 0 [8223] 000000 0/0/0 0 [8224] 000000 0/0/0 0 [8225] 000000 0/0/0 0 [8226] 000000 0/0/0 0 [8227] 000000 0/0/0 0 [8228] 000000 0/0/0 0 [8229] 000000 0/0/0 0 [8230] 000000 0/0/0 0 [8231] 000000 O03 8192 12502 Overlaying chapter 5 by 6, equivalent to chapter 2 L8238 loading chapter 6 Start of procedure 680 at location 46 in chapter 6 [8238] [8238] 68000 PROCR 680 START OF PASS 4=READ/STORE PROCR START INDEX PROCR 776 in CHAP 7 overlay = 6 24/0/3 0 [8238] 68002 152 152 2 0 0 0 OVERLAY 23/0/2 106 [8239] 68003 C 776 2 0 0 0 CALL PASS 5 OVERLAY 6/0/0 6323 [8240] 68004 0 27 13 0 0 0 SELECT 27/0/0 52 [8241] 68005 70 680 8 0 0 0 >NOT 'TRAMDING' JUMP IF A == 0 6/1/0 5450 [8242] 68006 0 94 0 1 0 0 SELECT 2/1/0 5078 [8243] 68007 5 16 2 1 0 0 TRANSFER 24/0/2 1764 [8244] 68008 52 5 0 0 0 0 TYPE 'PROG OUT' EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 0 [8246] 68009 C 736 14 0 0 0 6/0/0 6322 [8247] 68010 0 27 12 0 0 0 SELECT 27/0/0 66 [8248] 68011 70 680 18 0 0 0 >NO PTS JUMP IF A == 0 6/1/0 2944 [8249] 68012 10 0 0 0 4+677372 '+PTS' SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 12 [8251] 68013 5 5 12 1 0 0 TRANSFER 6/1/0 1688 [8252] 68014 0 732 24 1 0 0 DOUBLE LE SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 14 [8254] 68015 5 5 14 1 0 0 TRANSFER 1/0/1 15 [8255] 68016 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 24/1/2 15 Extra code needed to address transit area no 1, section 5 14/1/0 10 [8257] 68017 37 5 10 1 0 0 REPLACE SELECTED BITS 0/1/0 40 [8258] 68018 154 5 0 0 0 0 COMMENT IN LOG 0/0/3 0 [8259] 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 0 [8261] 24/0/3 0 [8262] 23/0/2 154 [8263] 0/1/1 40 [8264] 6/1/0 2946 [8265] 68019 54 5 0 1 0 50 BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 0 [8267] 6/0/0 6323 [8268] 68020 0 27 13 0 0 0 SELECT 27/0/1 496 [8269] 68021 71 690 2 0 0 0 >'TRAMDING' JUMP IF A != 0 6/1/0 2948 [8270] 68022 54 26 0 1 0 1080 BULK CLEAR 28/1/1 3070 [8271] 6/1/0 2950 [8272] 68023 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [8273] 68024 C 0 0 0 48 FOR PROCR STARTS Simulated modifier 26/1/2 2952 [8274] 68025 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [8275] 68026 C 0 0 0 144 Limit 26/0/0 1464 [8275] 68027 80 722 2 0 0 0 READ A6>SEC 9 ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 4 [8277] 68028 55 9 4 2 0 8 BULK COPY 18/1/0 4123 [8278] 68029 C 11 0 2 0 0 1/1/3 8 [8279] 18/1/1 5 [8280] 28/1/1 5024 [8281] 24/0/3 0 Extra code needed to address 5664 from 8282 (different chapter) 2/0/0 5664 [8283] 68030 5 18 0 0 0 0 CLEAR CTR TRANSFER 6/1/0 5024 [8284] 68031 11 0 1 0 0 SELECT 18/1/1 4126 [8285] 68032 32 0 0 0 2- TEST TYPE AS EXPECTED SHIFT (AB) BY QUARTETS 5/1/0 1628 [8286] 68033 2 731 8 1 0 0 SUBTRACT 27/0/0 107 [8287] 68034 70 680 41 0 0 0 >OK JUMP IF A == 0 6/1/0 2954 [8288] 68035 10 0 0 0 900000 SELECT LITERAL 4/0/0 6319 [8289] 68036 1 27 9 0 0 0 ADD Source: RayS/Q1000481 3/1/0 40 [8290] 68037 91 0 0 3 0 FOR REENTRY SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [8291] 1/1/3 8 [8292] 68038 150 0 0 0 8 OFFER OPTIONS 0/0/2 2939 [8293] 25/1/1 4096 [8294] 24/0/3 0 [8295] 26/0/2 1 [8296] 0/0/0 5646 [8297] 68039 C 100 2 0 0 0 RE-ENTER PASS 0 0/0/1 82 [8298] s 68040 C 680 25 0 0 0 >READ NEXT BLOCK 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 1 [8300] 68041 9 0 2 0 0 SELECT 2/0/0 1191 [8301] 68042 5 712 2 0 0 0 CURRENT BLOCK SERIAL WL TRANSFER 26/1/2 2956 [8302] 68043 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [8303] 68044 C 0 0 0 144 Limit 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/2 4 [8304] 68045 9 4 1 2 0 SELECT 18/1/1 4126 [8305] 68046 32 0 0 0 2- SHIFT (AB) BY QUARTETS 5/1/0 1628 [8306] 68047 2 731 8 1 0 0 'TYPE' SUBTRACT 27/0/1 132 [8307] 68048 71 680 63 0 0 0 >STEP R2 JUMP IF A != 0 18/1/1 2 [8308] 68049 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/2 70 [8309] 68050 12 0 0 0 46 SUBTRACT LITERAL 27/0/0 132 [8310] 68051 70 680 63 0 0 0 >6=C-PROCR JUMP IF A == 0 1/1/2 1 [8311] 68052 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 132 [8312] 68053 70 680 63 0 0 0 >7=VALUES JUMP IF A == 0 27/0/3 125 [8313] 68054 73 680 58 0 0 0 >TYPE 1-5 JUMP IF A < 0 1/1/2 8 [8314] 68055 12 0 0 0 8 SUBTRACT LITERAL 27/0/0 136 [8315] 68056 70 680 66 0 0 0 >END OF PROGM JUMP IF A == 0 24/1/0 132 [8316] 68057 76 680 63 0 0 0 JUMP unconditional 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/2 7 [8318] 68058 9 6 2 2 0 SELECT 2/0/0 3070 [8319] 68059 5 26 0 0 0 0 TRANSFER 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/2 9 [8321] 68060 9 8 2 2 0 START SELECT 24/0/1 3070 [8322] 68061 124 26 0 0 1 0 MODIFY ADDRESS OF NEXT 2/0/0 3070 [8323] 68062 5 26 0 0 0 0 TRANSFER 25/0/2 8 [8324] 68063 94 680 45 0 2 8 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 111 [8325] s 26/0/0 1464 [8326] 68064 80 722 2 0 0 0 >READ ENTER SUBROUTINE 24/1/0 110 [8327] 68065 76 680 43 0 0 0 JUMP unconditional 0/1/0 40 [8328] 68066 46 A6 4 0 0 1 RUN BACK 0/0/3 0 [8329] 0/1/2 2958 [8330] 68067 C 0 0 0 £££££ RUN BACK 6/1/0 0 [8331] 1/1/1 45 [8332] 25/1/1 4096 [8333] 24/0/3 0 [8334] 23/0/2 46 [8335] 0/1/1 40 [8336] 26/0/0 1464 [8337] 68068 80 722 2 0 0 0 >READ ENTER SUBROUTINE 6/0/0 1191 [8338] 68069 712 2 0 0 0 SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 5/1/0 1 [8340] 68070 2 9 0 2 0 0 SUBTRACT 27/0/3 136 [8341] 68071 73 680 66 0 0 0 >RUN BACK FURTHER JUMP IF A < 0 27/0/1 145 [8342] 68072 71 680 68 0 0 0 >GET TO REQUIRED BLOCK JUMP IF A != 0 24/0/2 5450 [8343] 68073 55 94 0 1 0 100 SECTION START ADDRESSES BULK COPY 18/1/0 4123 [8344] 68074 C 26 0 1 0 0 1/1/3 100 [8345] 18/1/1 5 [8346] 28/1/1 3070 [8347] 1/1/3 204 [8348] 68075 101 204 1 3 0 SELECT LITERAL ADDRESS 2/0/0 4070 [8349] 68076 5 26 1000 0 0 0 CONVERT TABLE START TRANSFER 24/0/1 6043 [8350] 68077 124 92 29 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 4071 [8351] 68078 26 1001 0 0 0 SELECT 24/0/1 6043 [8352] 68079 124 92 29 0 1 0 MODIFY ADDRESS OF NEXT 2/0/0 5415 [8353] 68080 5 72 17 0 0 0 (TO PRESERVE IT IN COPY) TRANSFER 24/0/2 5416 [8354] 68081 55 72 18 0 0 0 SWITCH PROCR STARTS BULK COPY 18/1/0 4123 [8355] 68082 C 26 1002 0 0 0 6/0/0 6043 [8356] 68083 C 92 29 0 0 0 (CHAPS INITIALLY) 18/1/1 5 [8357] 28/0/0 4072 [8358] 24/0/1 6043 [8359] 68084 124 92 29 0 1 0 MODIFY ADDRESS OF NEXT 6/0/0 5400 [8360] 68085 72 2 0 0 0 SPECIAL CHAP LENGTH SELECT 2/0/0 4071 [8361] 68086 5 26 1001 0 0 0 SET START OF PRINT SR TRANSFER 2/0/0 6317 [8362] 68087 5 27 7 0 0 0 CLEAR TRANSFER Start of procedure 681 at location 171 in chapter 6 [8363] [8363] 68100 PROCR 681 SET UP BLOCKS FOR PTS 6/0/0 5078 [8363] 68102 16 2 0 0 0 PROG ID SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 7 [8365] 68103 5 8 6 2 0 0 TRANSFER 6/0/0 5079 [8366] 68104 16 3 0 0 0 PROG SERIAL SELECT Source: ChuckK/Q1000482 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 9 [8368] 68105 5 8 8 2 0 0 TRANSFER 6/1/0 1676 [8369] 68106 732 12 1 0 0 'FIEND' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 4 [8371] 68107 5 8 4 1 0 0 TRANSFER 26/0/0 1579 [8372] 68108 80 727 2 0 0 0 WRITE'FIEND'BLOCK ENTER SUBROUTINE 26/1/2 2960 [8373] 68109 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [8374] 68110 C 0 0 0 48 Limit 26/1/1 2962 [8374] 68111 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8375] 68112 C 0 0 0 1000 Limit 6/0/1 3070 [8375] 68113 0 26 0 0 1 0 PROCR START INDEX SELECT 26/0/0 638 [8376] 68114 80 692 2 0 0 0 >OUT ENTER SUBROUTINE 25/0/1 1 [8377] 68115 94 681 13 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 183 [8378] s 26/1/1 2964 [8379] 68116 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8380] 68117 C 0 0 0 14 FOR CHAPTER ENDS ETC Limit 6/0/1 6024 [8380] 68118 92 10 0 1 0 SELECT 26/0/0 638 [8381] 68119 80 692 2 0 0 0 >OUT ENTER SUBROUTINE 25/0/1 1 [8382] 68120 94 681 18 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 188 [8383] s 26/1/1 2966 [8384] 68121 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8385] 68122 C 0 0 0 40 FOR TRACE POINTS Limit 6/0/1 6250 [8385] 68123 25 2 0 1 0 SELECT 26/0/0 638 [8386] 68124 80 692 2 0 0 0 >OUT ENTER SUBROUTINE 25/0/1 1 [8387] 68125 94 681 23 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 193 [8388] s 26/1/1 2968 [8389] 68126 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8390] 68127 C 0 0 0 100 FOR SECTIONS Limit 6/0/1 5116 [8390] 68128 15 0 0 1 0 SELECT 26/0/0 638 [8391] 68129 80 692 2 0 0 0 >OUT ENTER SUBROUTINE 25/0/1 1 [8392] 68130 94 681 28 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 198 [8393] s 26/1/1 2970 [8394] 68131 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8395] 68132 C 0 0 0 36 FOR FILES AND TX AREAS Limit 6/0/1 5216 [8395] 68133 24 0 0 1 0 SELECT 26/0/0 638 [8396] 68134 80 692 2 0 0 0 >OUT ENTER SUBROUTINE 25/0/1 1 [8397] 68135 94 681 33 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 203 [8398] s 26/0/0 1579 [8399] 68136 80 727 2 0 0 0 WRITE FINAL BLOCK ENTER SUBROUTINE Start of procedure 682 at location 208 in chapter 6 [8400] [8400] 68200 PROCR 682 CHAPTER HEADING BLOCK - THE FIRST ONE 26/1/1 2972 [8400] 68202 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8401] 68203 C 0 0 0 48 Limit 1/1/3 1 [8401] 68204 10 0 0 0 1 SELECT LITERAL 2/0/0 5092 [8402] 68205 5 16 16 0 0 0 TRANSFER 24/0/2 1796 [8403] 68206 52 8 4 0 0 0 EDIT 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/2 4 [8405] 68207 C 738 2 0 0 0 26/0/0 1579 [8406] 68208 80 727 2 0 0 0 WRITE CHAP HEADING BLOCK ENTER SUBROUTINE 24/0/2 1806 [8407] 68209 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [8409] 68210 C 738 12 0 0 0 1/1/3 2 [8410] 68211 10 0 0 0 2 SELECT LITERAL 3/0/0 5092 [8411] 68212 3 16 16 0 0 0 COPY 26/0/0 1499 [8412] 68213 80 724 2 0 0 0 >PRINT CHAP HEADING ENTER SUBROUTINE 26/1/2 2974 [8413] 68214 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [8414] 68215 C 0 0 0 144 Limit 24/1/0 224 [8414] 68216 76 683 3 0 0 0 >DEAL WITH FIRST'TYPE'BLOCK JUMP unconditional Start of procedure 683 at location 223 in chapter 6 [8415] [8415] 68300 PROCR 683 ENTRY POINT [8415] 68301 NOTES RADIX B MAIN LOOP Source: ChuckK/Q1000483 26/0/0 1458 [8415] 68302 80 721 2 0 0 0 >GET NEXT ITEM ENTER SUBROUTINE 26/0/0 1596 [8416] 68303 80 728 2 0 0 0 ENTER SUBROUTINE 6/1/0 5024 [8417] 68304 11 0 1 0 0 SELECT 18/1/1 4126 [8418] 68305 32 0 0 0 2- SHIFT (AB) BY QUARTETS 5/1/0 1628 [8419] 68306 2 731 8 1 0 0 'TYPE' SUBTRACT 27/0/1 666 [8420] 68307 71 695 2 0 0 0 >SWITCH NOT A 'TYPE' UNIT JUMP IF A != 0 18/1/1 2 [8421] 68308 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/2 72 [8422] 68309 12 0 0 0 48 SUBTRACT LITERAL 27/0/2 308 [8423] 68310 72 686 2 0 0 0 (MUST BE 14=CHAP END) JUMP IF A >= 0 1/1/1 8 [8424] 68311 11 0 0 0 8 ADD LITERAL 2/0/0 8161 [8425] 68312 84 695 2 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 6/1/0 5029 [8426] 68313 00 11 4 2 0 0 SELECT 2/0/0 5099 [8427] 68314 05 16 23 0 0 0 SPACE CTR FOR USE WITH VALUES TRANSFER 6/1/0 5027 [8428] 68315 11 2 2 0 0 SELECT 26/0/0 1609 [8429] 68316 80 729 2 0 0 0 TO DEC ENTER SUBROUTINE 3/0/0 5093 [8430] 68317 3 16 17 0 0 0 COPY 2/0/0 1694 [8431] 68318 5 733 6 0 0 0 STORE CURRENT PROCR TRANSFER 0/0/3 0 [8432] 68319 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS Start of procedure 684 at location 241 in chapter 6 [8433] [8433] 68400 PROCR 684 PRINT HEADING FOR INSTRUCTIONS [8433] 68401 NOTES RADIX B MAIN LOOP 24/0/1 8173 [8433] 68402 85 100 2 0 0 0 SWITCH R 26/0/1 242 [8434] 0/0/1 274 [8435] s 68403 C 684 23 0 0 0 >PRINT 0/0/1 245 [8436] s 68404 C 684 5 0 0 0 >DON'T PRINT 6/1/0 5027 [8437] 68405 0 11 2 2 0 0 PROCR SELECT 27/0/0 223 [8438] 68406 70 683 2 0 0 0 >DON'T PRINT JUMP IF A == 0 6/1/0 5029 [8439] 68407 0 11 4 2 0 0 PROCR START SELECT 26/0/0 1609 [8440] 68408 80 729 2 0 0 0 TO DEC ENTER SUBROUTINE 0/0/3 0 [8441] 68409 62 0 0 0 0 SET EXCESS CONSTANTS 2/0/0 5112 [8442] 68410 5 16 36 0 0 0 PROCR START TRANSFER 0/1/0 40 [8443] 68411 52 5 2 0 8 0 EDIT 0/0/3 0 [8444] 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 2 [8446] 4/0/0 8178 [8447] 2/0/0 40 [8448] 0/1/1 40 [8449] 24/0/2 1810 [8450] 24/1/2 40 [8451] 28/1/2 0 [8452] 68412 C 738 16 0 0 0 6/0/0 8161 [8453] 68413 86 695 2 0 0 0 TYPE SELECT SWITCH R 1/1/2 6 [8454] 68414 12 0 0 0 6 SUBTRACT LITERAL 27/0/1 267 [8455] 68415 71 684 18 0 0 0 JUMP IF A != 0 6/1/0 2976 [8456] 68416 10 0 0 0 537354 'CTD' SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 0/0/0 0 act unimp [8458] 68417 5 5 2 1 8 0 simulated modifier in other division 23/0/0 4 [8459] 68418 94 683 2 0 8 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8178 [8460] 24/1/0 223 [8461] 26/0/0 1499 [8462] 68419 80 724 2 0 0 0 >PRINT ENTER SUBROUTINE 6/1/0 2978 [8463] 68420 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [8464] 68421 C 0 0 0 48 Simulated modifier 24/1/0 223 [8465] 68422 76 683 2 0 0 0 JUMP unconditional 6/1/0 8182 [8466] 2/1/0 1658 [8467] 68424 5 731 38 1 0 0 TRANSFER 6/0/0 5077 [8468] 68425 0 16 1 0 0 0 LINE PRINTED? SELECT 27/0/0 279 [8469] 68426 70 684 28 0 0 0 >YES JUMP IF A == 0 26/0/0 1191 [8470] 68427 80 712 2 0 0 0 >O/P LINE ENTER SUBROUTINE 6/1/0 1658 [8471] 68428 91 731 38 0 5 0 RESET R5 SET MODIFICATION REGISTER AT VARIABLE 2/1/0 8182 [8472] 2/0/0 5113 [8473] 68429 5 16 37 0 0 0 CLEAR SUBCTR TRANSFER 6/0/0 8161 [8474] 68430 86 695 2 0 0 0 TEST TYPE 1 SELECT SWITCH R 1/1/2 1 [8475] 68431 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 288 [8476] 68432 71 685 2 0 0 0 IF NOT GO TO 728 JUMP IF A != 0 6/1/0 1648 [8477] 68433 0 731 28 1 0 0 SET UP'PROCEDURE' SELECT Source: RayS/Q1000484 0/1/2 1650 [8478] 68434 34 731 30 1 0 0 SET (N) IN B 24/1/0 302 [8479] 68435 76 685 15 0 0 0 JUMP unconditional Start of procedure 685 at location 288 in chapter 6 [8480] [8480] 68500 PROCR 685 PRINT OTHER HEADINGS [8480] 68501 NOTES RADIX B MAIN LOOP 1/1/2 5 [8480] 68502 12 0 0 0 5 SUBTRACT LITERAL 27/0/1 294 [8481] 68503 71 685 7 0 0 0 >NOT TYPE 6 JUMP IF A != 0 6/1/0 2980 [8482] 68504 10 0 0 0 5366657354 'CONTD' SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 2 [8484] 68505 5 5 2 1 0 0 TRANSFER 24/1/0 306 [8485] 68506 76 685 18 0 0 0 >PRINT JUMP unconditional 1/1/2 1 [8486] 68507 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 300 [8487] 68508 71 685 13 0 0 0 >NOT TYPE 7 JUMP IF A != 0 6/1/0 2982 [8488] 68509 90 0 0 8 0 (FOR SPECIAL PRINTING) SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [8489] 68510 C 0 0 0 40 Simulated modifier 6/1/0 2984 [8490] 68511 10 0 0 0 7551637455 'VALUE' SELECT LITERAL 24/1/0 291 [8491] 68512 76 685 5 0 0 0 JUMP unconditional 6/1/0 1652 [8492] 68513 0 731 32 1 0 0 SELECT 0/1/2 1654 [8493] 68514 34 731 34 1 0 0 SET (N) IN B 0/1/0 5094 [8494] 68515 100 16 18 1 0 0 COPY REGISTERS 24/0/2 1836 [8495] 68516 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [8497] 68517 C 738 42 0 0 0 HEADING BLOCK 26/0/0 1499 [8498] 68518 80 724 2 0 0 0 ENTER SUBROUTINE 24/1/0 223 [8499] 68519 76 683 2 0 0 0 JUMP unconditional Start of procedure 686 at location 308 in chapter 6 [8500] [8500] 68600 PROCR 686 CHAPTER END [8500] 68601 NOTES RADIX B MAIN LOOP 26/0/0 1458 [8500] 68602 80 721 2 0 0 0 GET NEXT ITEM ENTER SUBROUTINE 26/0/0 1596 [8501] 68603 80 728 2 0 0 0 ENTER SUBROUTINE 6/1/0 5024 [8502] 68604 11 0 1 0 0 SELECT 5/1/0 1640 [8503] 68605 2 731 20 1 0 0 BEW SUBTRACT 27/0/0 1461 [8504] 68606 70 721 4 0 0 0 >READ BLOCK, SR LINK STILL SET JUMP IF A == 0 6/1/0 5024 [8505] 68607 11 0 1 0 0 SELECT 18/0/1 4126 [8506] 68608 30 0 0 0 2- SHIFT (A) BY QUARTETS 5/1/0 1628 [8507] 68609 2 731 8 1 0 0 'TYPE' SUBTRACT 27/0/1 308 [8508] 68610 71 686 2 0 0 0 >LOOP JUMP IF A != 0 6/0/0 1744 [8509] 68611 735 10 0 0 0 £ IN Q5 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/1 5 [8511] 68612 5 8 4 2 1 0 =PARAMETER TRANSFER 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/1 6 [8513] 68613 5 8 6 1 1 0 TRANSFER 26/0/0 1579 [8514] 68614 80 727 2 0 0 0 >WRITE ENTER SUBROUTINE 26/1/1 2986 [8515] 68615 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8516] 68616 C 0 0 0 48 Limit 6/0/0 5077 [8516] 68617 0 16 1 0 0 0 SELECT 27/0/0 327 [8517] 68618 70 687 2 0 0 0 JUMP IF A == 0 26/0/0 1191 [8518] 68619 80 712 2 0 0 0 >O/P LINE ENTER SUBROUTINE Start of procedure 687 at location 327 in chapter 6 [8519] [8519] 68700 PROCR 687 NEW CHAPTER HEADING [8519] 68701 NOTES RADIX B MAIN LOOP 1/1/3 0 [8519] 68702 10 0 0 0 0 SELECT LITERAL 2/0/0 5104 [8520] 68703 5 16 28 0 0 0 TRANSFER 2/0/0 5113 [8521] 68704 5 16 37 0 0 0 CLEAR SERIAL SUB-CTR TRANSFER 24/0/2 1796 [8522] 68705 52 8 4 0 0 0 EDIT EDIT 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/2 4 [8524] 68706 C 738 2 0 0 0 6/0/0 5092 [8525] 68707 0 16 16 0 0 0 SELECT 26/0/0 1615 [8526] 68708 80 730 2 0 0 0 >TO BIN ENTER SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 5 [8528] 68709 5 8 4 2 0 0 BIN CHAP NUMBER ON MT TRANSFER 24/0/1 8173 [8529] 68710 85 100 2 0 0 0 SWITCH R 26/0/1 338 [8530] 0/0/1 344 [8531] s 68711 C 687 16 0 0 0 >PRINT 0/0/1 341 [8532] s 68712 C 687 13 0 0 0 >DON'T PRINT Source: TonyJ/Q1000485 26/0/0 1499 [8533] 68713 80 724 2 0 0 0 > PRINT PROCR START LINE ENTER SUBROUTINE 6/1/0 2988 [8534] 68714 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [8535] 68715 C 0 0 0 48 Simulated modifier 24/0/2 1806 [8536] 68716 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [8538] 68717 C 738 12 0 0 0 6/1/0 2990 [8539] 68718 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8182 [8540] 68719 C 0 0 0 40 Simulated modifier 0/0/3 2940 [8541] 68720 60 0 0 0 0 SET DECIMAL RADIX 1/1/3 1 [8542] 68721 10 0 0 0 1 SELECT LITERAL 7/0/0 5092 [8543] 68722 4 16 16 0 0 0 STEP CHAP NUMBER (DEC) AUGMENT 0/0/3 0 [8544] 68723 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 5092 [8545] 68724 16 16 0 0 0 THIS CHAP (DEC) SELECT 1/1/2 1 [8546] 68725 12 0 0 0 1 SUBTRACT LITERAL 5/0/0 6043 [8547] 68726 2 92 29 0 0 0 SPECIAL CHAP (DEC) SUBTRACT 27/0/1 368 [8548] 68727 71 687 35 0 0 0 JUMP IF A != 0 24/0/2 1666 [8549] 68728 55 732 2 1 0 6 'EXTRA CHAPTER' BULK COPY 18/1/0 4123 [8550] 68729 C 5 10 1 0 0 1/1/3 6 [8551] 18/1/1 5 [8552] 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 10 [8554] 1/1/3 202 [8555] 68730 101 202 1 3 0 SELECT LITERAL ADDRESS 2/0/0 5104 [8556] 68731 5 16 28 0 0 0 SET LINE SERIAL TRANSFER 26/0/0 1499 [8557] 68732 80 724 2 0 0 0 PRINT CHAP HEADING ENTER SUBROUTINE 26/0/0 1579 [8558] 68733 80 727 2 0 0 0 > WRITE CHAP HEADING ENTER SUBROUTINE 24/1/0 420 [8559] 68734 76 688 2 0 0 0 > GENERATE SP CHAP JUMP unconditional 6/1/0 5024 [8560] 68735 11 0 1 0 0 'TYPE (SOMETHING) ' SELECT 5/1/0 1624 [8561] 68736 2 731 4 1 0 0 'TYPE£' SUBTRACT 26/1/1 2992 [8562] 68737 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8563] 68738 C 0 0 0 0 ///// Limit 27/0/0 376 [8563] 68739 70 687 45 0 0 0 > END JUMP IF A == 0 26/1/1 2994 [8564] 68740 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8565] 68741 C 0 0 0 48 Limit 26/0/0 1499 [8565] 68742 80 724 2 0 0 0 > PRINT NEW CHAP HEADING ENTER SUBROUTINE 26/0/0 1579 [8566] 68743 80 727 2 0 0 0 > WRITE NEW ENTER SUBROUTINE 24/1/0 225 [8567] 68744 76 683 4 0 0 0 > TEST WHICH TYPE JUMP unconditional 6/0/0 6317 [8568] 68745 27 7 0 0 0 CTR NEG ADDRESSES SELECT 27/0/0 411 [8569] 68746 70 687 71 0 0 0 > NONE JUMP IF A == 0 18/0/1 5 [8570] 68747 30 0 0 0 5 SHIFT (A) BY QUARTETS 3/1/0 40 [8571] 68748 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [8572] 6/1/0 2996 [8573] 68749 54 5 2 1 0 46 BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 2 [8575] 26/0/0 1499 [8576] 68750 80 724 2 0 0 0 ENTER SUBROUTINE 26/0/0 1499 [8577] 68751 80 724 2 0 0 0 ENTER SUBROUTINE 26/0/0 1499 [8578] 68752 80 724 2 0 0 0 3 BLANK LINES ENTER SUBROUTINE 6/1/0 2998 [8579] 68753 10 0 0 0 6955560000 'REF' SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 4 [8581] 68754 5 5 4 1 0 0 TRANSFER 6/1/0 3000 [8582] 68755 10 0 0 0 6769665369 'PROCR' SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 6 [8584] 68756 5 5 6 1 0 0 TRANSFER 26/0/0 1499 [8585] 68757 80 724 2 0 0 0 > HEADING ENTER SUBROUTINE 24/0/3 0 Extra code needed to address 5667 from 8586 (different chapter) 6/0/3 5667 [8587] 68758 18 3 0 3 0 REF SELECT 26/0/0 1609 [8588] 68759 80 729 2 0 0 0 > DEC ENTER SUBROUTINE 2/0/0 1609 [8589] 68760 5 729 2 0 0 0 TRANSFER 24/0/3 0 Extra code needed to address 5666 from 8590 (different chapter) 6/0/3 5666 [8591] 68761 18 2 0 3 0 DEC PROCR SELECT 2/0/0 1499 [8592] 68762 5 724 2 0 0 0 TRANSFER 0/0/3 0 [8593] 68763 62 0 0 0 0 SET EXCESS CONSTANTS 24/0/2 1760 [8594] 68764 52 5 4 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 4 [8596] 68765 C 736 10 0 0 0 26/0/0 1499 [8597] 68766 80 724 2 0 0 0 > PRINT ENTER SUBROUTINE 25/0/3 2 [8598] 68767 94 687 58 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 394 [8599] s 26/0/0 1499 [8600] 68768 80 724 2 0 0 0 > BLANKS ENTER SUBROUTINE 26/0/0 1499 [8601] 68769 80 724 2 0 0 0 ENTER SUBROUTINE 26/0/0 1499 [8602] 68770 80 724 2 0 0 0 ENTER SUBROUTINE 24/0/2 3070 [8603] 68771 55 26 0 1 0 1000 PROCR START INDEX FOR 08005 BULK COPY 18/1/0 4123 [8604] 68772 C 18 1000 1 0 0 1/1/3 1000 [8605] 18/1/1 5 [8606] 24/0/3 0 Extra code needed to address 6664 from 8607 (different chapter) 28/1/1 6664 [8608] Source: TonyJ/Q1000486 6/0/0 6322 [8609] 68773 27 12 0 0 0 SELECT 27/0/0 46 [8610] 68774 70 680 2 0 0 0 > PTS NOT NEEDED. CALL PASS 5 JUMP IF A == 0 24/1/0 1077 [8611] 68775 76 711 2 0 0 0 JUMP unconditional Start of procedure 688 at location 420 in chapter 6 [8612] [8612] 68800 PROCR 688 GENERATE START OF SPECIAL CHAPTER 1/1/3 3840 [8612] 68802 10 0 0 0 £00 SELECT LITERAL 2/1/0 5045 [8613] 68803 5 13 0 2 0 0 PARA TRANSFER 1/1/3 202 [8614] 68804 101 202 1 3 0 SELECT LITERAL ADDRESS 2/1/0 5047 [8615] 68805 5 13 2 2 0 0 TRANSFER 26/0/0 1226 [8616] 68806 80 714 2 0 0 0 > O/P ENTER SUBROUTINE 1/1/3 20 [8617] 68807 10 0 0 0 14 20 SELECT LITERAL 2/0/0 8182 [8618] 68808 92 0 0 5 0 SET MODIFIER AT VARIABLE 1/1/3 0 [8619] 68809 10 0 0 0 0 SELECT LITERAL 2/1/0 5045 [8620] 68810 5 13 0 2 0 0 TRANSFER 2/1/0 5047 [8621] 68811 5 13 2 2 0 0 TRANSFER 26/0/0 1066 [8622] 68812 80 710 2 0 0 0 ENTER SUBROUTINE 26/0/0 1066 [8623] 68813 80 710 2 0 0 0 O/P LOCNS 202 203 BLANK ENTER SUBROUTINE Start of procedure 689 at location 432 in chapter 6 [8624] [8624] 68900 PROCR 689 CALCULATE CONVERT TABLE 6/0/0 6021 [8624] 68902 92 7 0 0 0 SELECT 18/0/1 5 [8625] 68903 30 0 0 0 5 SHIFT (A) BY QUARTETS 27/0/0 317 [8626] 68904 70 686 11 0 0 0 > NO TABLES JUMP IF A == 0 3/1/0 40 [8627] 68905 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [8628] 6/1/3 6150 [8629] 68906 99 0 1 3 0 NEXT OLD/NEW RADIX PAIR SELECT 2/1/0 5624 [8630] 68907 5 70 30 1 0 0 TRANSFER 24/0/3 22 [8631] 68908 95 0 0 3 0 SELECT MODIFICATION REGISTER 6/1/0 6 [8632] 2/1/0 5600 [8633] 68909 5 70 6 1 0 0 WL TRANSFER 1/1/3 1 [8634] 68910 10 0 0 0 1 SELECT LITERAL 2/1/0 5602 [8635] 68911 5 70 8 1 0 0 FIRST TABLE ENTRY TRANSFER 0/0/3 5624 [8636] 68912 100 70 30 0 3 0 NEW RADIX SET RADIX 1/1/2 1 [8637] 68913 12 0 0 0 1 SUBTRACT LITERAL 18/1/1 4118 [8638] 68914 32 0 0 0 10- SHIFT (AB) BY QUARTETS 1/1/3 0 [8639] 68915 10 0 0 0 0 SELECT LITERAL 18/1/1 10 [8640] 68916 32 0 0 0 10 SHIFT (AB) BY QUARTETS 2/1/0 5594 [8641] 68917 5 70 0 1 0 0 LARGEST NUMBER IN NEW RADIX TRANSFER 0/0/3 5625 [8642] 68918 100 70 31 0 3 0 OLD RADIX SET RADIX 1/1/2 1 [8643] 68919 12 0 0 0 1 SUBTRACT LITERAL 0/0/3 0 [8644] 68920 62 0 0 0 0 BIN SET EXCESS CONSTANTS 2/1/0 5596 [8645] 68921 5 70 2 1 0 0 > COMPLEMENT TRANSFER 6/0/0 5625 [8646] 68922 0 70 31 0 0 0 OLD RADIX SELECT 2/0/0 5596 [8647] 68923 5 70 2 0 0 0 TRANSFER 0/1/2 5596 [8648] 68924 34 70 2 1 0 0 (8) = 10QTTS OF OLD EXCESS CONSTS SET (N) IN B 6/1/0 3002 [8649] 68925 90 0 0 4 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8184 [8650] 68926 C 0 0 0 18 CALC 9 TE'S Simulated modifier 15/0/0 1747 [8651] 68927 36 735 13 0 0 0 Q1 COLLATE AND ADD 2/0/0 5598 [8652] 68928 5 70 4 0 0 0 EC Q1 - FORM 16-EC:0 TRANSFER 5/0/0 5598 [8653] 68929 2 70 4 0 0 0 FOR MR SUBTRACT 1/1/1 16 [8654] 68930 11 0 0 0 10 ADD LITERAL 18/0/1 5 [8655] 68931 30 0 0 0 5 SHIFT (A) BY QUARTETS 2/1/0 5596 [8656] 68932 5 70 2 1 0 0 TRANSFER 26/1/3 5596 [8657] 68933 91 70 2 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 0/0/3 5624 [8658] 68934 100 70 30 0 3 0 SET NEW RADIX SET RADIX 5/1/0 5594 [8659] 68935 2 70 0 1 0 0 LARGEST NO IN NEW RADIX SUBTRACT 24/0/1 8184 [8660] 68936 1 70 8 1 4 0 ADD 4/1/0 5602 [8661] 27/0/2 494 [8662] 68937 72 689 56 0 0 0 > WILL GET O'FLOW JUMP IF A >= 0 25/0/3 1 [8663] 68938 94 689 36 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 468 [8664] s 4/1/0 5594 [8665] 68939 1 70 0 1 0 0 ADD 24/0/1 8184 [8666] 68940 5 70 10 1 4 0 STORE NEXT TE TRANSFER 2/1/0 5604 [8667] 0/0/3 0 [8668] 68941 62 0 0 0 0 SET BINARY SET EXCESS CONSTANTS Source: ChuckK/Q1000487 18/1/1 4127 [8669] 68942 32 0 0 0 1- FOR NEXT QTT OF OLD RADIX SHIFT (AB) BY QUARTETS 23/0/0 2 [8670] 68943 94 689 27 0 4 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [8671] 24/1/0 459 [8672] s 26/1/3 3004 [8673] 68944 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [8674] 68945 C 0 0 0 20 Limit 6/0/3 5602 [8674] 68946 0 70 8 0 3 0 SELECT 2/1/0 5047 [8675] 68947 5 13 2 2 0 0 TRANSFER 26/0/0 1066 [8676] 68948 80 710 2 0 0 0 ENTER SUBROUTINE 6/0/3 5603 [8677] 68949 0 70 9 0 3 0 SELECT 2/1/0 5047 [8678] 68950 5 13 2 2 0 0 TRANSFER 26/0/0 1066 [8679] 68951 80 710 2 0 0 0 ENTER SUBROUTINE 25/0/3 2 [8680] 68952 94 689 46 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 482 [8681] s 26/1/3 5600 [8682] 68953 91 70 6 0 3 0 RESTORE R3 SET MODIFICATION REGISTER AT VARIABLE 25/0/3 2 [8683] 68954 94 689 6 0 3 2 >NEXT CONVERT TABLE STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 437 [8684] s 24/1/0 317 [8685] 68955 76 686 11 0 0 0 >FINISH THE EXTRA CHAPTER JUMP unconditional 6/1/0 1734 [8686] 68956 0 734 40 1 0 0 ALL THE p'S SELECT 24/1/0 474 [8687] 68957 76 689 40 0 0 0 >STORE INFINITY AS TABLE ENTRY JUMP unconditional Start of procedure 690 at location 496 in chapter 6 [8688] [8688] 69000 PROCR 690 DIRECTORY ENTRY FROM PASS 5-DEAL WITH END OF INTERCODE*PLS 6/0/0 5078 [8688] 69002 16 2 0 0 0 GENERATE INDEX DETAILS SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 5 [8690] 69003 3 8 4 2 0 0 COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 13 [8692] 69004 5 8 12 2 0 0 TRANSFER 6/0/0 5079 [8693] 69005 16 3 0 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 7 [8695] 69006 3 8 6 2 0 0 COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 15 [8697] 69007 5 8 14 2 0 0 TRANSFER 1/1/3 2 [8698] 69008 10 0 0 0 2 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 11 [8700] 69009 5 8 10 2 0 0 PASS 1 IDENTIFIER TRANSFER 1/1/3 3 [8701] 69010 10 0 0 0 3 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 19 [8703] 69011 5 8 18 2 0 0 PASS 3 IDENTIFIER TRANSFER 1/1/3 4 [8704] 69012 10 0 0 0 4 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 17 [8706] 69013 5 8 16 2 0 0 TRANSFER 6/0/0 1734 [8707] 69014 734 40 0 0 0 'ppppp' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 21 [8709] 69015 5 8 20 2 0 0 TRANSFER 26/0/0 1579 [8710] 69016 80 727 2 0 0 0 >WRITE ENTER SUBROUTINE 26/0/0 655 [8711] 69017 80 694 2 0 0 0 A1-7 ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 5 [8713] 69018 7 4 2 0 0 TEST 'SENTINEL5' SELECT 5/0/0 1734 [8714] 69019 2 734 40 0 0 0 'ppppp' SUBTRACT 27/0/1 519 [8715] 69020 71 690 17 0 0 0 >NO JUMP IF A != 0 1/0/1 1 [8716] 69021 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 24/1/2 17 Extra code needed to address transit area no 2, section 7 15/1/0 7 [8718] 69022 36 7 6 2 0 0 COLLATE AND ADD 1/1/2 5 [8719] 69023 12 0 0 0 5 SUBTRACT LITERAL 27/0/1 519 [8720] 69024 71 690 17 0 0 0 >NO JUMP IF A != 0 6/0/0 5079 [8721] 69025 16 3 0 0 0 SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 11 [8723] 69026 5 7 10 2 0 0 PROG SERIAL TRANSFER 26/0/0 863 [8724] 69027 80 704 2 0 0 0 >WRITE ENTER SUBROUTINE 26/0/0 655 [8725] 69028 80 694 2 0 0 0 >READ ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 42 [8727] 69029 7 42 1 0 0 SELECT 5/1/0 3006 [8728] 69030 12 0 0 0 5163636653 'ALLOC' SUBTRACT LITERAL 27/0/1 532 [8729] 69031 71 690 27 0 0 0 JUMP IF A != 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 13 [8731] 69032 7 12 2 0 0 CHAPS INITIALLY SELECT 3/0/0 6023 [8732] 69033 3 92 9 0 0 0 COPY 2/0/0 6043 [8733] 69034 5 92 29 0 0 0 TRANSFER 6/0/0 5079 [8734] 69035 16 3 0 0 0 SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 41 [8736] 69036 5 7 40 2 0 0 NEW PROG SERIAL TRANSFER 26/0/0 863 [8737] 69037 80 704 2 0 0 0 >WRITE ENTER SUBROUTINE 26/0/0 655 [8738] 69038 80 694 2 0 0 0 >READ ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 4 [8740] 69039 7 4 1 0 0 SELECT 5/1/0 1676 [8741] 69040 2 732 12 1 0 0 'FIEND' SUBTRACT 27/0/1 545 [8742] 69041 71 690 37 0 0 0 >NOT YET JUMP IF A != 0 6/0/0 5079 [8743] 69042 16 3 0 0 0 SELECT Source: ChuckK/Q1000488 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 9 [8745] 69043 5 7 8 2 0 0 TRANSFER 26/0/0 863 [8746] 69044 80 704 2 0 0 0 ENTER SUBROUTINE Start of procedure 691 at location 555 in chapter 6 [8747] [8747] 69100 PROCR 691 STORE 08005 DATA,ALIGN FILES,COPY M/CODE PROGRAM 26/1/2 3008 [8747] 69102 90 0 0 2 0 TRICK SET MODIFICATION REGISTER AT LITERAL [8748] 69103 C 0 0 0 2 Limit 26/1/1 3010 [8748] 69104 90 0 0 1 0 FOR PROCR START INDEX SET MODIFICATION REGISTER AT LITERAL [8749] 69105 C 0 0 0 1000 Limit 26/0/0 646 [8749] 69106 80 693 2 0 0 0 >GET ENTER SUBROUTINE 2/0/1 3070 [8750] 69107 5 26 0 0 1 0 TRANSFER 25/0/1 1 [8751] 69108 94 691 6 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 557 [8752] s 26/1/1 3012 [8753] 69109 90 0 0 1 0 FOR CHAP DETAILS SET MODIFICATION REGISTER AT LITERAL [8754] 69110 C 0 0 0 14 Limit 26/0/0 646 [8754] 69111 80 693 2 0 0 0 >GET ENTER SUBROUTINE 2/0/1 6024 [8755] 69112 5 92 10 0 1 0 TRANSFER 25/0/1 1 [8756] 69113 94 691 11 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 562 [8757] s 26/1/1 3014 [8758] 69114 90 0 0 1 0 FOR TRACE POINTS SET MODIFICATION REGISTER AT LITERAL [8759] 69115 C 0 0 0 40 Limit 26/0/0 646 [8759] 69116 80 693 2 0 0 0 >GET ENTER SUBROUTINE 2/0/1 6250 [8760] 69117 5 25 2 0 1 0 TRANSFER 25/0/1 1 [8761] 69118 94 691 16 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 567 [8762] s 26/1/1 3016 [8763] 69119 90 0 0 1 0 FOR SECTIONS SET MODIFICATION REGISTER AT LITERAL [8764] 69120 C 0 0 0 100 Limit 26/0/0 646 [8764] 69121 80 693 2 0 0 0 >GET ENTER SUBROUTINE 2/0/1 5116 [8765] 69122 5 15 0 0 1 0 TRANSFER 25/0/1 1 [8766] 69123 94 691 21 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 572 [8767] s 26/1/1 3018 [8768] 69124 90 0 0 1 0 FOR FILES AND TX AREAS SET MODIFICATION REGISTER AT LITERAL [8769] 69125 C 0 0 0 36 Limit 26/0/0 646 [8769] 69126 80 693 2 0 0 0 >GET ENTER SUBROUTINE 2/0/1 5216 [8770] 69127 5 24 0 0 1 0 TRANSFER 25/0/1 1 [8771] 69128 94 691 26 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 577 [8772] s 26/0/0 655 [8773] 69129 80 694 2 0 0 0 >READ A1 ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 12 [8775] 69130 7 12 1 0 0 SELECT 5/1/0 1622 [8776] 69131 2 731 2 1 0 0 'CHAPT' SUBTRACT 27/0/0 621 [8777] 69132 70 691 58 0 0 0 >HEADING BLOCK JUMP IF A == 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 4 [8779] 69133 7 4 1 0 0 SELECT 5/1/0 1622 [8780] 69134 2 731 2 1 0 0 'CHAPT' SUBTRACT 27/0/0 626 [8781] 69135 70 691 62 0 0 0 >TRIAL DATA START JUMP IF A == 0 4/1/0 1622 [8782] 69136 1 731 2 1 0 0 ADD 5/1/0 1626 [8783] 69137 2 731 6 1 0 0 'FILES' SUBTRACT 27/0/0 626 [8784] 69138 70 691 62 0 0 0 >PM POINTS START JUMP IF A == 0 4/1/0 1626 [8785] 69139 1 731 6 1 0 0 ADD 1/1/2 85 [8786] 69140 12 0 0 0 55 'E' SUBTRACT LITERAL 27/0/0 611 [8787] 69141 70 691 55 0 0 0 >YES JUMP IF A == 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 12 [8789] 69142 7 12 1 0 0 SELECT 5/1/0 3020 [8790] 69143 12 0 0 0 535851675+ (PTS HEADING) SUBTRACT LITERAL 27/0/1 624 [8791] 69144 71 691 60 0 0 0 >NO JUMP IF A != 0 26/0/0 655 [8792] 69145 80 694 2 0 0 0 (DRAIN OLD PTS PART ONE) ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 4 [8794] 69146 7 4 1 0 0 SELECT 5/1/0 1622 [8795] 69147 2 731 2 1 0 0 'CHAPT' SUBTRACT 27/0/0 626 [8796] 69148 70 691 62 0 0 0 JUMP IF A == 0 4/1/0 1622 [8797] 69149 1 731 2 1 0 0 ADD 5/1/0 1626 [8798] 69150 2 731 6 1 0 0 'FILES' SUBTRACT 27/0/0 626 [8799] 69151 70 691 62 0 0 0 JUMP IF A == 0 4/1/0 1626 [8800] 69152 1 731 6 1 0 0 ADD 1/1/2 85 [8801] 69153 12 0 0 0 55 'E' SUBTRACT LITERAL 27/0/1 600 [8802] 69154 71 691 45 0 0 0 JUMP IF A != 0 2/0/0 6313 [8803] 69155 5 27 3 0 0 0 SET'NO B/FWD TRIAL DATA' TRANSFER 0/1/0 40 [8804] 69156 41 A1 0 0 0 1 CLOSE I/P CLOSE FILE 0/0/3 0 [8805] 6/1/0 0 [8806] 1/1/1 27 [8807] 25/1/1 4096 [8808] 24/0/3 0 [8809] 23/0/2 41 [8810] 0/1/1 40 [8811] 24/1/0 628 [8812] 69157 76 691 64 0 0 0 JUMP unconditional Source: ChuckK/Q1000489 6/0/0 5079 [8813] 69158 16 3 0 0 0 SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 11 [8815] 69159 5 7 10 2 0 0 TRANSFER 26/0/0 863 [8816] 69160 80 704 2 0 0 0 >WRITE ENTER SUBROUTINE 24/1/0 581 [8817] 69161 76 691 29 0 0 0 JUMP unconditional 1/1/3 1 [8818] 69162 10 0 0 0 1 SELECT LITERAL 2/0/0 6313 [8819] 69163 5 27 3 0 0 0 SET'DATA PRESENT' TRANSFER 0/1/0 40 [8820] 69164 40 A6 0 0 0 1 OPEN FILE 0/0/3 0 [8821] 0/1/2 3022 [8822] 6/1/0 3024 [8823] 1/1/1 45 [8824] 25/1/1 4096 [8825] 24/0/3 0 [8826] 23/0/2 40 [8827] 0/0/3 44 [8828] 24/1/0 411 [8829] 69165 76 687 71 0 0 0 JUMP unconditional Start of procedure 692 at location 638 in chapter 6 [8830] [8830] 69200 PROCR 692 WRITE PTS BLOCK TO A2 0/0/0 0 [8830] 69202 81 692 2 0 0 0 START OF SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/2 5 [8832] 69203 5 8 4 2 2 0 TRANSFER 25/0/2 2 [8833] 69204 94 692 8 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 645 [8834] s 26/0/0 1579 [8835] 69205 80 727 2 0 0 0 WRITE->A2 ENTER SUBROUTINE 26/1/2 3026 [8836] 69206 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [8837] 69207 C 0 0 0 48 Limit 26/0/1 638 [8837] 69208 82 692 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 693 at location 646 in chapter 6 [8838] [8838] 69300 PROCR 693 READ/STORE NEXT'FIEND'ITEM 0/0/0 0 [8838] 69302 81 693 2 0 0 0 START OF SUBROUTINE 25/0/2 2 [8839] 69303 94 693 8 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 652 [8840] 26/0/0 655 [8841] 69304 80 694 2 0 0 0 READ A1-7 ENTER SUBROUTINE 26/0/0 863 [8842] 69305 80 704 2 0 0 0 COPY 7->8->A2 ENTER SUBROUTINE 26/1/2 3028 [8843] 69306 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [8844] 69307 C 0 0 0 48 Limit 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/2 5 [8845] 69308 7 4 2 2 0 SELECT 26/0/1 646 [8846] 69309 82 693 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 694 at location 655 in chapter 6 [8847] [8847] 69400 PROCR 694 READ A1-7 0/0/0 0 [8847] 69402 81 694 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [8848] 69403 42 A1 0 0 0 0 INPUT 0/0/3 0 [8849] 0/0/2 16 [8850] 69404 C 7 0 0 0 0 INPUT 6/1/0 0 [8851] 1/1/1 27 [8852] 25/1/1 4096 [8853] 24/0/3 0 [8854] 23/0/2 42 [8855] 0/1/1 40 [8856] 26/0/1 655 [8857] 69405 82 694 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 695 at location 666 in chapter 6 [8858] [8858] 69500 PROCR 695 'TYPE'SWITCH [8858] 69501 NOTES RADIX B MAIN LOOP 24/0/1 8161 [8858] 69502 85 695 2 0 0 0 SWITCH R 26/0/1 667 [8859] 0/0/1 675 [8860] 69503 C 696 2 0 0 0 INSTRUCTIONS 0/0/1 802 [8861] 69504 C 702 2 0 0 0 TABLE ENTRIES 0/0/1 922 [8862] 69505 C 706 2 0 0 0 PROGRAMME CONSTS 0/0/1 922 [8863] 69506 C 706 2 0 0 0 TABLE STARTS 0/0/1 974 [8864] 69507 C 707 2 0 0 0 FORMED CONST 0/0/1 675 [8865] 69508 C 696 2 0 0 0 6=C-PROCR 0/0/1 1000 [8866] 69509 C 708 2 0 0 0 7=VALUES Start of procedure 696 at location 675 in chapter 6 [8867] [8867] 69600 PROCR 696 TEST FOR SEQUENCE CHANGE [8867] 69601 NOTES RADIX B INSTRUCTIONS 6/1/0 5029 [8867] 69602 11 4 2 0 0 SELECT 18/1/1 4126 [8868] 69603 32 0 0 0 2- SHIFT (AB) BY QUARTETS 2/0/0 5094 [8869] 69604 5 16 18 0 0 0 REF TRANSFER 18/1/3 1 [8870] 69605 33 0 0 0 1 SHIFT (AB) BY BITS 2/0/0 5100 [8871] 69606 5 16 24 0 0 0 NEG ITEM IND TRANSFER 18/1/3 7 [8872] 69607 33 0 0 0 7 SHIFT (AB) BY BITS 2/1/0 5045 [8873] 69608 5 13 0 2 0 0 PARA TRANSFER 0/1/2 5031 [8874] 69609 34 11 6 2 0 0 ADM+ITEM SET (N) IN B 6/1/0 5027 [8875] 69610 11 2 2 0 0 TEST FOR SEQUENCE CHANGE SELECT Source: ChuckK/Q1000490 27/0/0 702 [8876] 69611 70 697 2 0 0 0 >NOT SEQ CHANGE OR MR ENTRY JUMP IF A == 0 1/1/2 1 [8877] 69612 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 733 [8878] 69613 70 699 2 0 0 0 >IS SEQ CHANGE JUMP IF A == 0 1/1/2 1 [8879] 69614 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 700 [8880] 69615 71 696 27 0 0 0 >NOT ACTION 16/0/0 JUMP IF A != 0 15/0/0 1737 [8881] 69616 36 735 3 0 0 0 BITS 1-13 COLLATE AND ADD 2/0/0 5095 [8882] 69617 5 16 19 0 0 0 MODULUS OF ITEM TRANSFER 0/0/2 5100 [8883] 69618 34 16 24 0 0 0 SET (N) IN B 27/1/0 695 [8884] 69619 74 696 22 0 0 0 >POSITIVE ITEM JUMP IF AB == 0 // 27, 1, 0 4/0/0 5095 [8885] 69620 1 16 19 0 0 0 ADD 24/1/0 696 [8886] 69621 76 696 23 0 0 0 JUMP unconditional 5/0/0 5095 [8887] 69622 2 16 19 0 0 0 SUBTRACT 24/0/1 5094 [8888] 69623 124 16 18 0 1 0 REF MODIFY ADDRESS OF NEXT 5/0/0 3070 [8889] 69624 2 26 0 0 0 0 SUBTRACT 2/1/0 5047 [8890] 69625 5 13 2 2 0 0 TRANSFER 24/1/0 728 [8891] 69626 76 698 12 0 0 0 >O/P JUMP unconditional 6/1/0 5027 [8892] 69627 0 11 2 2 0 0 SELECT 2/1/0 5045 [8893] 69628 5 13 0 2 0 0 COPY IND AS PARA TRANSFER Start of procedure 697 at location 702 in chapter 6 [8894] [8894] 69700 PROCR 697 INSTRUCTIONS [8894] 69701 NOTES RADIX B INSTRUCTIONS 15/0/0 1737 [8894] 69702 36 735 3 0 0 0 BITS 1-13 COLLATE AND ADD 2/0/0 5095 [8895] 69703 5 16 19 0 0 0 MODULUS OF ITEM TRANSFER 6/1/0 5031 [8896] 69704 11 6 2 0 0 SELECT 2/1/0 5047 [8897] 69705 5 13 2 2 0 0 TRANSFER 0/0/2 5100 [8898] 69706 34 16 24 0 0 0 SET (N) IN B 27/1/0 710 [8899] 69707 74 697 10 0 0 0 >NOT NEGATIVE ITEM JUMP IF AB == 0 // 27, 1, 0 5/0/0 5095 [8900] 69708 2 16 19 0 0 0 SUBTRACT 2/0/0 5095 [8901] 69709 5 16 19 0 0 0 (SET SIGN) TRANSFER 6/0/0 5095 [8902] 69710 16 19 0 0 0 SELECT 24/0/1 5094 [8903] 69711 124 16 18 0 1 0 MODIFY ADDRESS OF NEXT 4/0/0 3070 [8904] 69712 1 26 0 0 0 0 PROCR START ADD 27/0/3 717 [8905] 69713 73 698 2 0 0 0 >REPORT JUMP IF A < 0 0/0/2 1737 [8906] 69714 34 735 3 0 0 0 BITS 1-13 SET (N) IN B 14/1/0 5047 [8907] 69715 37 13 2 2 0 0 REPLACE SELECTED BITS 24/1/0 728 [8908] 69716 76 698 12 0 0 0 JUMP unconditional Start of procedure 698 at location 717 in chapter 6 [8909] [8909] 69800 PROCR 698 REPORT ACTION WITH NEGATIVE ITEM [8909] 69801 NOTES RADIX B ACTION DETAILS 6/0/0 2941 [8909] 69802 10 0 0 0 78000- 23/1/0 ACTION FOR LOCKOUT SELECT LITERAL 2/1/0 5047 [8910] 69803 5 13 2 2 0 0 TRANSFER 2/1/0 5045 [8911] 69804 5 13 0 2 0 0 TRANSFER 26/1/3 6317 [8912] 69805 91 27 7 0 3 0 CTR SET MODIFICATION REGISTER AT VARIABLE 6/0/0 5094 [8913] 69806 16 18 0 0 0 THIS REF SELECT 18/0/1 5 [8914] 69807 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 1694 [8915] 69808 1 733 6 0 0 0 CURRENT PROCR ADD 24/0/3 0 Extra code needed to address 5666 from 8916 (different chapter) 2/1/3 5666 [8917] 69809 5 18 2 1 3 0 TRANSFER 1/1/3 2 [8918] 69810 10 0 0 0 2 SELECT LITERAL 7/0/0 6317 [8919] 69811 4 27 7 0 0 0 STEP CTR AUGMENT 26/0/0 1226 [8920] 69812 80 714 2 0 0 0 EDIT+WRITE INSTRUCTION ENTER SUBROUTINE 24/0/1 8173 [8921] 69813 85 100 2 0 0 0 SWITCH R 26/0/1 730 [8922] 0/0/1 761 [8923] 69814 C 700 2 0 0 0 >PRINT 0/0/1 223 [8924] 69815 C 683 2 0 0 0 >DON'T PRINT Start of procedure 699 at location 733 in chapter 6 [8925] [8925] 69900 PROCR 699 SEQUENCE CHANGES [8925] 69901 NOTES RADIX B INSTRUCTIONS 6/0/0 1749 [8925] 69902 0 735 15 0 0 0 FLIPFLOP SELECT Source: ChuckK/Q1000491 27/0/0 740 [8926] 69903 70 699 7 0 0 0 BOTTOM 10 BITS JUMP IF A == 0 24/0/3 8190 [8927] 69904 0 18 0 0 12 0 SELECT 6/0/0 5664 [8928] 18/0/3 2 [8929] 69905 31 0 0 0 10- SHIFT (A) BY BITS 18/0/1 4125 [8930] 24/1/0 743 [8931] 69906 76 699 9 0 0 0 JUMP unconditional 0/0/2 1748 [8932] 69907 34 735 14 0 0 0 BITS 1-10 SET (N) IN B 24/0/3 8190 [8933] 69908 36 18 0 0 12 0 COLLATE AND ADD 15/0/0 5664 [8934] 24/0/1 5094 [8935] 69909 124 16 18 0 1 0 ITEM WITHIN PROCR IN A MODIFY ADDRESS OF NEXT 4/0/0 3070 [8936] 69910 1 26 0 0 0 0 ADD 2/0/0 5094 [8937] 69911 5 16 18 0 0 0 =SEQ CHANGE ADDRESS TRANSFER 0/1/2 5031 [8938] 69912 34 11 6 2 0 0 SET (N) IN B 15/0/0 1738 [8939] 69913 36 735 4 0 0 0 BITS 14-20+SIGN COLLATE AND ADD 27/0/3 751 [8940] 69914 73 699 17 0 0 0 JUMP IF A < 0 4/0/0 5094 [8941] 69915 1 16 18 0 0 0 ADD 24/1/0 752 [8942] 69916 76 699 18 0 0 0 JUMP unconditional 5/0/0 5094 [8943] 69917 2 16 18 0 0 0 SUBTRACT 2/1/0 5047 [8944] 69918 5 13 2 2 0 0 TRANSFER 1/1/3 1 [8945] 69919 10 0 0 0 1 SELECT LITERAL 5/0/0 1749 [8946] 69920 2 735 15 0 0 0 SUBTRACT 3/0/0 1749 [8947] 69921 3 735 15 0 0 0 REVERSE FLIPFLOP COPY 27/0/1 728 [8948] 69922 71 698 12 0 0 0 >NOW ADDRESSES TOP 10 BITS JUMP IF A != 0 23/0/0 4097 [8949] 69923 94 0 0 12 1- STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8190 [8950] 24/1/0 760 [8951] 24/1/0 728 [8952] 69924 76 698 12 0 0 0 >SAFETY JUMP unconditional Start of procedure 700 at location 761 in chapter 6 [8953] [8953] 70000 PROCR 700 DECODE INSTRUCTION FOR PRINTING [8953] 70001 NOTES RADIX B INSTRUCTIONS 0/1/2 5047 [8953] 70002 34 13 2 2 0 0 (A IS CLEAR) SET (N) IN B 18/1/1 6 [8954] 70003 32 0 0 0 6 SHIFT (AB) BY QUARTETS 2/0/0 5097 [8955] 70004 5 16 21 0 0 0 ACTION TRANSFER 18/1/3 1 [8956] 70005 33 0 0 0 1 SHIFT (AB) BY BITS 2/0/0 5101 [8957] 70006 5 16 25 0 0 0 DISC TRANSFER 18/1/3 2 [8958] 70007 33 0 0 0 2 SHIFT (AB) BY BITS 2/0/0 5102 [8959] 70008 5 16 26 0 0 0 MOD TRANSFER 18/1/3 13 [8960] 70009 33 0 0 0 13 SHIFT (AB) BY BITS 2/0/0 5100 [8961] 70010 5 16 24 0 0 0 ADDRESS TRANSFER 6/1/0 5047 [8962] 70011 0 13 2 2 0 0 SELECT 27/0/2 774 [8963] 70012 72 701 2 0 0 0 >POSITIVE ACTION JUMP IF A >= 0 1/1/3 16 [8964] 70013 10 0 0 0 10 16 SELECT LITERAL 7/0/0 5097 [8965] 70014 4 16 21 0 0 0 AUGMENT Start of procedure 701 at location 774 in chapter 6 [8966] [8966] 70100 PROCR 701 CONVERT FOR PRINT [8966] 70101 NOTES RADIX B INSTRUCTIONS 6/1/0 5045 [8966] 70102 0 13 0 2 0 0 PARA SELECT 26/0/0 1609 [8967] 70103 80 729 2 0 0 0 >CONVERT TO DEC ENTER SUBROUTINE 2/0/0 5048 [8968] 70104 5 13 4 0 0 0 TRANSFER 6/0/0 5100 [8969] 70105 0 16 24 0 0 0 ADDRESS SELECT 26/0/0 1609 [8970] 70106 80 729 2 0 0 0 TO DEC ENTER SUBROUTINE 2/1/0 5046 [8971] 70107 5 13 2 1 0 0 TRANSFER 6/0/0 5097 [8972] 70108 0 16 21 0 0 0 ACTION SELECT 26/0/0 1609 [8973] 70109 80 729 2 0 0 0 TO DEC ENTER SUBROUTINE 2/1/0 5044 [8974] 70110 5 13 0 1 0 0 TRANSFER 0/0/3 0 [8975] 70111 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS 0/1/0 40 [8976] 70112 52 5 4 0 5 0 EDIT 0/0/3 0 [8977] 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 4 [8979] 4/0/0 8182 [8980] 2/0/0 40 [8981] 0/1/1 40 [8982] 24/0/2 1848 [8983] 24/1/2 40 [8984] 28/1/2 0 [8985] 70113 C 739 2 0 0 0 1/1/3 1 [8986] 70114 10 0 0 0 1 SELECT LITERAL 7/0/0 5113 [8987] 70115 4 16 37 0 0 0 AUG SUBCTR AUGMENT 2/0/0 5077 [8988] 70116 5 16 1 0 0 0 TRANSFER 23/0/0 10 [8989] 70117 94 683 2 0 5 10 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8182 [8990] 24/1/0 223 [8991] 26/0/0 1191 [8992] 70118 80 712 2 0 0 0 >O/P LINE ENTER SUBROUTINE 24/1/0 223 [8993] 70119 76 683 2 0 0 0 JUMP unconditional Source: TonyJ/Q1000492 Start of procedure 702 at location 802 in chapter 6 [8994] [8994] 70200 PROCR 702 FORM ADDRESS [8994] 70201 NOTES RADIX B 6/1/0 5025 [8994] 70202 11 0 2 0 0 SELECT 18/1/1 4126 [8995] 70203 32 0 0 0 2- SELECT REFERENCE SHIFT (AB) BY QUARTETS 2/0/0 5094 [8996] 70204 5 16 18 0 0 0 TRANSFER 18/1/3 1 [8997] 70205 33 0 0 0 1 SHIFT (AB) BY BITS 2/0/0 5097 [8998] 70206 5 16 21 0 0 0 NEW ITEM IND TRANSFER 18/1/3 7 [8999] 70207 33 0 0 0 7 SHIFT (AB) BY BITS 3/1/0 5045 [9000] 70208 3 13 0 2 0 0 COPY 2/1/0 5049 [9001] 70209 5 13 4 2 0 0 PARAMETER TRANSFER Start of procedure 703 at location 810 in chapter 6 [9002] [9002] 70300 PROCR 703 DEAL WITH 2ND ITEM FOR CONDENSE [9002] 70301 NOTES RADIX B 6/1/0 5030 [9002] 70302 11 6 1 0 0 SELECT 2/1/0 5050 [9003] 70303 5 13 6 1 0 0 STORE Q'S AND I'S TRANSFER 6/1/0 5029 [9004] 70304 11 4 2 0 0 SELECT 27/0/0 834 [9005] 70305 70 703 26 0 0 0 > NOT CONDENSE/UNPACK TABLE JUMP IF A == 0 24/0/1 5094 [9006] 70306 124 16 18 0 1 0 REF MODIFY ADDRESS OF NEXT 6/0/0 3070 [9007] 70307 0 26 0 0 0 0 SELECT 1/0/1 15 [9008] 70308 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 15/1/0 5029 [9009] 70309 36 11 4 2 0 0 (POSITIVE) ITEM COLLATE AND ADD 2/0/0 5098 [9010] 70310 5 16 22 0 0 0 PROVISIONAL ADDRESS TRANSFER 6/1/0 5051 [9011] 70311 0 13 6 2 0 0 Q + I SELECT 27/0/2 823 [9012] 70312 72 703 15 0 0 0 > NORMAL JUMP IF A >= 0 5/0/0 5098 [9013] 70313 2 16 22 0 0 0 SUBTRACT 24/1/0 824 [9014] 70314 76 703 16 0 0 0 JUMP unconditional 4/0/0 5098 [9015] 70315 1 16 22 0 0 0 ADD 2/1/0 5051 [9016] 70316 5 13 6 2 0 0 SET SECOND ADDRESS + LTE TRANSFER 0/0/2 5097 [9017] 70317 34 16 21 0 0 0 '-0' IND SET (N) IN B 27/1/0 835 [9018] 70318 74 703 27 0 0 0 > NO, CALC FIRST ADDRESS JUMP IF AB == 0 // 27, 1, 0 5/1/0 5051 [9019] 70319 2 13 6 2 0 0 SUBTRACT 27/0/0 832 [9020] 70320 70 703 24 0 0 0 JUMP IF A == 0 2/1/0 5051 [9021] 70321 5 13 6 2 0 0 (SET SIGN BIT) TRANSFER 2/0/0 5097 [9022] 70322 5 16 21 0 0 0 TRANSFER 24/1/0 835 [9023] 70323 76 703 27 0 0 0 JUMP unconditional 2/0/0 5097 [9024] 70324 5 16 21 0 0 0 CLEAR THIS TRANSFER 6/0/0 1742 [9025] 70325 0 735 8 0 0 0 £ IN Q4 (MINUS ZERO) SELECT 2/1/0 5049 [9026] 70326 5 13 4 2 0 0 CLEAR PARA - FIXED FIELD TRANSFER 24/0/1 5094 [9027] 70327 124 16 18 0 1 0 REF MODIFY ADDRESS OF NEXT 6/0/0 3070 [9028] 70328 0 26 0 0 0 0 SELECT 4/1/0 5027 [9029] 70329 1 11 2 2 0 0 FIRST ITEM (ALWAYS > 0) ADD 2/1/0 5047 [9030] 70330 5 13 2 2 0 0 TRANSFER 6/0/0 5097 [9031] 70331 0 16 21 0 0 0 '-0' IND SELECT 27/0/0 843 [9032] 70332 70 703 35 0 0 0 > NO JUMP IF A == 0 6/0/0 1742 [9033] 70333 0 735 8 0 0 0 £ IN Q4 SELECT 2/1/0 5049 [9034] 70334 5 13 4 2 0 0 SET SECOND PARA TRANSFER 26/0/0 1226 [9035] 70335 80 714 2 0 0 0 > O/P MT ENTER SUBROUTINE 6/1/0 5045 [9036] 70336 0 13 0 2 0 0 PARA SELECT 26/0/0 1609 [9037] 70337 80 729 2 0 0 0 TO DEC ENTER SUBROUTINE 2/0/0 5098 [9038] 70338 5 16 22 0 0 0 TRANSFER 0/1/2 5047 [9039] 70339 34 13 2 2 0 0 SET (N) IN B 18/1/1 6 [9040] 70340 32 0 0 0 6 DELETE B17 SHIFT (AB) BY QUARTETS 1/1/3 0 [9041] 70341 10 0 0 0 0 (STERLING INDICATOR) SELECT LITERAL 18/1/1 4 [9042] 70342 32 0 0 0 4 SHIFT (AB) BY QUARTETS 26/0/0 1609 [9043] 70343 80 729 2 0 0 0 TO DEC ENTER SUBROUTINE 2/0/0 5106 [9044] 70344 5 16 30 0 0 0 TRANSFER 0/0/3 0 [9045] 70345 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS 1/0/1 16 [9046] 70346 35 0 0 0 10000 Q5 PREPARE FOR DIGIT COLLATION 15/1/0 5047 [9047] 70347 36 13 2 2 0 0 STERLING IND COLLATE AND ADD Source: KenK/Q1000493 7/0/0 5098 [9048] 70348 4 16 22 0 0 0 STORE WITH PARA AUGMENT 6/1/0 5048 [9049] 70349 13 4 1 0 0 SET UP SECOND HALF OF SELECT 2/1/0 5044 [9050] 70350 5 13 0 1 0 0 DETAILS FOR TRANSFER 6/1/0 5050 [9051] 70351 13 6 1 0 0 OUTPUT SELECT 2/1/0 5046 [9052] 70352 5 13 2 1 0 0 TRANSFER 26/0/0 1226 [9053] 70353 80 714 2 0 0 0 gO/P SECOND HALF ENTER SUBROUTINE 24/1/0 873 [9054] 70354 76 705 2 0 0 0 JUMP unconditional Start of procedure 704 at location 863 in chapter 6 [9055] [9055] 70400 PROCR 704 WRITE SEC 7->A2 0/0/0 0 [9055] 70402 81 704 2 0 0 0 START OF SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 4 [9057] 70403 55 7 4 1 0 50 BULK COPY 18/1/0 4123 [9058] 70404 C 8 4 1 0 0 1/1/3 50 [9059] 18/1/1 5 [9060] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [9062] 26/0/0 1579 [9063] 70405 80 727 2 0 0 0 WRITE 8->A2 ENTER SUBROUTINE 26/0/1 863 [9064] 70406 82 704 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 705 at location 873 in chapter 6 [9065] [9065] 70500 PROCR 705 [9065] 70501 NOTES RADIX 1/0/1 15 [9065] 70502 35 0 0 0 1111 Q1-4 0F INDS/QTTS PREPARE FOR DIGIT COLLATION 24/0/1 8173 [9066] 70503 85 100 2 0 0 0 SWITCH R 26/0/1 875 [9067] 0/0/1 878 [9068] s 70504 C 705 6 0 0 0 gPRINT 0/0/1 223 [9069] 70505 C 683 2 0 0 0 gDONT PRINT 15/1/0 5047 [9070] 70506 36 13 2 2 0 0 COLLATE AND ADD 26/0/0 1609 [9071] 70507 80 729 2 0 0 0 TO DEC ENTER SUBROUTINE 0/0/3 0 [9072] 70508 62 0 0 0 0 ITEM FOR SET EXCESS CONSTANTS 2/0/0 1658 [9073] 70509 5 731 38 0 0 0 CONDENSE TRANSFER 2/0/0 5066 [9074] 70510 5 13 22 0 0 0 CLEAR'LAST TE'IND TRANSFER 6/1/0 5047 [9075] 70511 13 2 2 0 0 QTTS+INDS SELECT 27/0/3 888 [9076] 70512 73 705 16 0 0 0 g LAST TE JUMP IF A < 0 6/1/0 5045 [9077] 70513 13 0 2 0 0 SECOND PARA SELECT 18/0/1 4125 [9078] 70514 30 0 0 0 3- TEST Q 4 NON-ZERO SHIFT (A) BY QUARTETS 27/0/0 890 [9079] 70515 70 705 18 0 0 0 g NOT LTE JUMP IF A == 0 1/1/3 1 [9080] 70516 10 0 0 0 1 SELECT LITERAL 2/0/0 5066 [9081] 70517 5 13 22 0 0 0 SET LTE IND TRANSFER 26/1/3 3030 [9082] 70518 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [9083] 70519 C 0 0 0 5 Limit 0/1/2 5047 [9083] 70520 34 13 2 2 0 0 QTTS SET (N) IN B 18/1/1 6 [9084] 70521 32 0 0 0 6 SHIFT (AB) BY QUARTETS 2/0/3 5044 [9085] 70522 5 13 0 0 3 0 TRANSFER 18/1/1 1 [9086] 70523 32 0 0 0 1 SHIFT (AB) BY QUARTETS 25/0/3 1 [9087] 70524 94 705 22 0 3 1 STORE Q5-1 IN 13/0-4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 893 [9088] 26/1/3 3032 [9089] 70525 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [9090] 70526 C 0 0 0 5 Limit 6/0/3 5044 [9090] 70527 00 13 0 0 3 0 SELECT 26/0/0 1609 [9091] 70528 80 729 2 0 0 0 TO DECIMAL ENTER SUBROUTINE 2/0/3 5044 [9092] 70529 05 13 0 0 3 0 TRANSFER 25/0/3 1 [9093] 70530 94 705 27 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 898 [9094] 0/0/3 0 [9095] 70531 62 0 0 0 0 SET EXCESS CONSTANTS 0/1/0 40 [9096] 70532 52 5 4 0 5 0 EDIT 0/0/3 0 [9097] 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 4 [9099] 4/0/0 8182 [9100] 2/0/0 40 [9101] 0/1/1 40 [9102] 24/0/2 1816 [9103] 24/1/2 40 [9104] 28/1/2 0 [9105] 70533 C 738 22 0 0 0 1/1/3 2 [9106] 70534 10 0 0 0 2 SELECT LITERAL 7/0/0 5113 [9107] 70535 4 16 37 0 0 0 AUG SUBCTR AUGMENT 2/0/0 5077 [9108] 70536 5 16 1 0 0 0 TRANSFER 23/0/0 20 [9109] 70537 94 683 2 0 5 20 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8182 [9110] 24/1/0 223 [9111] 26/0/0 1191 [9112] 70538 80 712 2 0 0 0 g O/P LINE ENTER SUBROUTINE 24/1/0 223 [9113] 70539 76 683 2 0 0 0 JUMP unconditional Start of procedure 706 at location 922 in chapter 6 [9114] [9114] 70600 PROCR 706 [9114] 70601 NOTES RADIX B DEAL WITH PROGRAMME CONSTANTS AND FORMED TSL'S 6/1/0 3034 [9114] 70602 90 0 0 4 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8184 [9115] 70603 C 0 0 0 8 Simulated modifier Source: DaveJ/Q1000494 24/0/1 8184 [9116] 70604 11 0 2 4 0 SELECT 6/1/0 5025 [9117] 18/1/1 4126 [9118] 70605 32 0 0 0 2- SHIFT (AB) BY QUARTETS 2/0/0 5094 [9119] 70606 5 16 18 0 0 0 REF TRANSFER 18/1/1 2 [9120] 70607 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/1/0 5045 [9121] 70608 5 13 0 2 0 0 PARA TRANSFER 0/0/2 1745 [9122] 70609 34 735 11 0 0 0 BIT 8 SET (N) IN B 15/1/0 5045 [9123] 70610 36 13 0 2 0 0 COLLATE AND ADD 27/0/0 935 [9124] 70611 70 706 14 0 0 0 >NOT MINUS ZERO JUMP IF A == 0 6/0/0 1742 [9125] 70612 735 8 0 0 0 p IN Q4 SELECT 2/1/0 5045 [9126] 70613 5 13 0 2 0 0 TRANSFER 6/0/0 8161 [9127] 70614 86 695 2 0 0 0 SELECT SWITCH R 1/1/2 3 [9128] 70615 12 0 0 0 3 SUBTRACT LITERAL 27/0/1 944 [9129] 70616 71 706 22 0 0 0 >TABLE START JUMP IF A != 0 24/0/1 8184 [9130] 70617 0 11 2 2 4 0 PROGRAM CONST SELECT 6/1/0 5027 [9131] 27/0/2 946 [9132] 70618 72 706 23 0 0 0 >POSITIVE ITEM JUMP IF A >= 0 24/0/1 5094 [9133] 70619 124 16 18 0 1 0 MODIFY ADDRESS OF NEXT 5/0/0 3070 [9134] 70620 2 26 0 0 0 0 PROCR START SUBTRACT 24/1/0 948 [9135] 70621 76 706 25 0 0 0 JUMP unconditional 24/0/1 8184 [9136] 70622 0 11 2 2 4 0 SELECT 6/1/0 5027 [9137] 24/0/1 5094 [9138] 70623 124 16 18 0 1 0 MODIFY ADDRESS OF NEXT 4/0/0 3070 [9139] 70624 1 26 0 0 0 0 ADD 2/1/0 5047 [9140] 70625 5 13 2 2 0 0 TRANSFER 26/0/0 1226 [9141] 70626 80 714 2 0 0 0 >O/P ENTER SUBROUTINE 6/1/0 5047 [9142] 70627 0 13 2 2 0 0 CONST SELECT 24/0/1 8184 [9143] 70628 5 13 4 0 4 0 STORE FOR PRINT TRANSFER 2/0/0 5048 [9144] 6/1/0 5045 [9145] 70629 0 13 0 2 0 0 PARA SELECT 24/0/1 8184 [9146] 70630 5 13 6 0 4 0 TRANSFER 2/0/0 5050 [9147] 23/0/0 4 [9148] 70631 94 706 4 0 4 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [9149] 24/1/0 924 [9150] 24/0/1 8173 [9151] 70632 85 100 2 0 0 0 SWITCH R 26/0/1 960 [9152] 0/0/1 963 [9153] s 70633 C 706 35 0 0 0 >PRINT 0/0/1 223 [9154] 70634 C 683 2 0 0 0 >DON'T PRINT 0/1/0 40 [9155] 70635 52 5 4 0 5 0 EDIT 0/0/3 0 [9156] 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 4 [9158] 4/0/0 8182 [9159] 2/0/0 40 [9160] 0/1/1 40 [9161] 24/0/2 1780 [9162] 24/1/2 40 [9163] 28/1/2 0 [9164] 70636 C 737 6 0 0 0 24/1/0 914 [9165] 70637 76 705 34 0 0 0 >VIA TABLE ENTRIES JUMP unconditional Start of procedure 707 at location 974 in chapter 6 [9166] [9166] 70700 PROCR 707 DEAL WITH TRANSLATOR'S FORMED LONG/SHORT CONSTS [9166] 70701 NOTES RADIX B FORMED CONSTS 6/1/0 3036 [9166] 70702 90 0 0 4 0 4 CONSTANTS PER ITEM SET MODIFICATION REGISTER AT LITERAL 2/1/0 8184 [9167] 70703 C 0 0 0 8 Simulated modifier 1/1/3 0 [9168] 70704 10 0 0 0 0 CLEAR PARA SELECT LITERAL 2/1/0 5045 [9169] 70705 5 13 0 2 0 0 TRANSFER 24/0/1 8184 [9170] 70706 0 11 0 1 4 0 SELECT 6/1/0 5024 [9171] 2/1/0 5046 [9172] 70707 5 13 2 1 0 0 TRANSFER 26/0/0 1226 [9173] 70708 80 714 2 0 0 0 ENTER SUBROUTINE 23/0/0 2 [9174] 70709 94 707 6 0 4 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [9175] 24/1/0 978 [9176] 24/0/1 8173 [9177] 70710 85 100 2 0 0 0 SWITCH R 26/0/1 986 [9178] 0/0/1 989 [9179] s 70711 C 707 13 0 0 0 >PRINT 0/0/1 223 [9180] 70712 C 683 2 0 0 0 >DON'T PRINT 6/1/0 3038 [9181] 70713 90 0 0 4 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8184 [9182] 70714 C 0 0 0 8 Simulated modifier 24/0/1 8184 [9183] 70715 0 11 0 2 4 0 SELECT 6/1/0 5025 [9184] 2/0/0 5048 [9185] 70716 5 13 4 0 0 0 TRANSFER 2/0/0 5050 [9186] 70717 5 13 6 0 0 0 TRANSFER 26/0/0 1047 [9187] 70718 80 709 2 0 0 0 ENTER SUBROUTINE 23/0/0 2 [9188] 70719 94 707 15 0 4 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [9189] 24/1/0 991 [9190] s 24/1/0 223 [9191] 70720 76 683 2 0 0 0 JUMP unconditional Start of procedure 708 at location 1000 in chapter 6 [9192] [9192] 70800 PROCR 708 VALUES [9192] 70801 NOTES RADIX B Source: DaveJ/Q1000495 6/1/0 5024 [9192] 70802 11 0 1 0 0 SELECT 5/1/0 1644 [9193] 70803 2 731 24 1 0 0 NOTES' SUBTRACT 27/0/1 1041 [9194] 70804 71 708 32 0 0 0 >NOT NEW REF/ITEM JUMP IF A != 0 6/1/0 5029 [9195] 70805 11 4 2 0 0 REF SELECT 2/0/0 5094 [9196] 70806 5 16 18 0 0 0 TRANSFER 6/1/0 5031 [9197] 70807 11 6 2 0 0 ITEM SELECT 24/0/0 5094 [9198] 70808 124 16 18 0 0 0 MODIFY ADDRESS OF NEXT 4/0/0 3070 [9199] 70809 1 26 0 0 0 0 ADD 5/0/0 5099 [9200] 70810 02 16 23 0 0 0 CURRENT VALUE OF STACKER SUBTRACT 3/1/0 5047 [9201] 70811 03 13 2 2 0 0 >DELTA COPY 7/0/0 5099 [9202] 70812 04 16 23 0 0 0 >NEW VALUE OF STACKER AUGMENT 1/1/3 3840 [9203] 70813 10 0 0 0 £00 SELECT LITERAL 2/1/0 5045 [9204] 70814 5 13 0 2 0 0 PARA FOR DELTA TRANSFER 26/0/0 1226 [9205] 70815 80 714 2 0 0 0 WRITE ENTER SUBROUTINE 24/0/1 8173 [9206] 70816 85 100 2 0 0 0 SWITCH R 26/0/1 1015 [9207] 0/0/1 1018 [9208] s 70817 C 708 19 0 0 0 >PRINT 0/0/1 223 [9209] 70818 C 683 2 0 0 0 >DON'T PRINT 6/1/0 5045 [9210] 70819 0 13 0 2 0 0 PARA SELECT 2/0/0 5050 [9211] 70820 5 13 6 0 0 0 TRANSFER 6/1/0 5047 [9212] 70821 0 13 2 2 0 0 VALUE SELECT 2/0/0 5048 [9213] 70822 5 13 4 0 0 0 TRANSFER 1/1/3 1 [9214] 70823 10 0 0 0 1 SELECT LITERAL 2/0/0 5077 [9215] 70824 5 16 1 0 0 0 SET PRINT IND TRANSFER 0/1/0 40 [9216] 70825 52 5 4 0 8 0 EDIT 0/0/3 0 [9217] 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 4 [9219] 4/0/0 8178 [9220] 2/0/0 40 [9221] 0/1/1 40 [9222] 24/0/2 1776 [9223] 24/1/2 40 [9224] 28/1/2 0 [9225] 70826 C 737 2 0 0 0 23/0/0 10 [9226] 70827 94 683 2 0 8 10 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8178 [9227] 24/1/0 223 [9228] 26/0/0 1499 [9229] 70828 80 724 2 0 0 0 >PRINT ENTER SUBROUTINE 6/1/0 3040 [9230] 70829 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [9231] 70830 C 0 0 0 40 Simulated modifier 24/1/0 223 [9232] 70831 76 683 2 0 0 0 JUMP unconditional 1/1/3 1 [9233] 70832 10 0 0 0 1 SELECT LITERAL 7/0/0 5099 [9234] 70833 04 16 23 0 0 0 AUGMENT LOCN COUNTER AUGMENT 6/1/0 5031 [9235] 70834 00 11 6 2 0 0 SELECT 2/1/0 5047 [9236] 70835 5 13 2 2 0 0 VALUE TRANSFER 6/1/0 5029 [9237] 70836 11 4 2 0 0 PARA FOR VALUE SELECT 24/1/0 1012 [9238] 70837 76 708 14 0 0 0 JUMP unconditional Start of procedure 709 at location 1047 in chapter 6 [9239] [9239] 70900 PROCR 709 PRINT CONVERT TABLES+TRANSLATOR'S CONSTS 0/0/0 0 [9239] 70902 81 709 2 0 0 0 START OF SUBROUTINE 1/1/3 1 [9240] 70903 10 0 0 0 1 SELECT LITERAL 7/0/0 5113 [9241] 70904 4 16 37 0 0 0 AUGMENT 2/0/0 5077 [9242] 70905 5 16 1 0 0 0 TRANSFER 0/1/0 40 [9243] 70906 52 5 4 0 5 0 EDIT 0/0/3 0 [9244] 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 4 [9246] 4/0/0 8182 [9247] 2/0/0 40 [9248] 0/1/1 40 [9249] 24/0/2 1776 [9250] 24/1/2 40 [9251] 28/1/2 0 [9252] 70907 C 737 2 0 0 0 23/0/0 10 [9253] 70908 94 709 10 0 5 10 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8182 [9254] 24/1/0 1065 [9255] s 26/0/0 1191 [9256] 70909 80 712 2 0 0 0 >O/P LINE ENTER SUBROUTINE 26/0/1 1047 [9257] 70910 82 709 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 710 at location 1066 in chapter 6 [9258] [9258] 71000 PROCR 710 0/0/0 0 [9258] 71002 81 710 2 0 0 0 START OF SUBROUTINE 26/0/0 1226 [9259] 71003 80 714 2 0 0 0 >WRITE ENTER SUBROUTINE 6/1/0 5047 [9260] 71004 13 2 2 0 0 SELECT 2/0/0 5048 [9261] 71005 5 13 4 0 0 0 TRANSFER 2/0/0 5050 [9262] 71006 5 13 6 0 0 0 TRANSFER 24/0/1 8173 [9263] 71007 85 100 2 0 0 0 SWITCH R 26/0/1 1072 [9264] 0/0/1 1075 [9265] s 71008 C 710 10 0 0 0 >PRINT 0/0/1 1076 [9266] s 71009 C 710 11 0 0 0 >DON'T PRINT 26/0/0 1047 [9267] 71010 80 709 2 0 0 0 >PRINT ENTER SUBROUTINE 26/0/1 1066 [9268] 71011 82 710 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Source: DaveJ/Q1000496 Start of procedure 711 at location 1077 in chapter 6 [9269] [9269] 71100 PROCR 711 GENERATE PTS(1) 6/1/0 3042 [9269] 71102 10 0 0 0 535851675+ (CHAP') SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 12 [9271] 71103 5 8 12 1 0 0 TRANSFER 26/0/0 1579 [9272] 71104 80 727 2 0 0 0 >WRITE ENTER SUBROUTINE 24/0/2 1916 [9273] 71105 124 741 2 0 2 0 ORDERS SELECT LITERAL AND DIVISION 3/1/0 40 [9274] 71106 91 0 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/2 40 [9275] 24/0/2 1249 [9276] 71107 124 716 2 0 2 0 FIRST LEVEL PARAS SELECT LITERAL AND DIVISION 3/1/0 40 [9277] 71108 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [9278] 24/0/2 1446 [9279] 71109 124 720 2 0 2 0 SECOND LEVEL PARAS SELECT LITERAL AND DIVISION 3/1/0 40 [9280] 71110 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [9281] 6/0/0 1249 [9282] 71111 0 716 2 0 0 0 SELECT 18/0/3 2 [9283] 71112 31 0 0 0 2 SHIFT (A) BY BITS 2/0/0 1217 [9284] 71113 5 713 11 0 0 0 TRANSFER 6/0/0 1446 [9285] 71114 0 720 2 0 0 0 SELECT 18/0/3 2 [9286] 71115 31 0 0 0 2 SHIFT (A) BY BITS 2/0/0 1223 [9287] 71116 5 713 17 0 0 0 TRANSFER 6/1/0 3044 [9288] 71117 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8182 [9289] 71118 C 0 0 0 6 Simulated modifier 6/1/0 3046 [9290] 71119 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [9291] 71120 C 0 0 0 3 Simulated modifier 24/0/3 22 [9292] 71121 96 0 0 2 0 STORE CHUNK START FOR PARAS 1 AND 5 SELECT MODIFIER 6/0/0 4 [9293] 2/0/0 1208 [9294] 71122 5 713 2 0 0 0 TRANSFER 24/0/1 1208 [9295] 71123 124 713 2 0 1 0 MODIFY ADDRESS OF NEXT 1/1/3 0 [9296] 71124 101 0 1 3 0 SELECT LITERAL ADDRESS 2/0/0 1212 [9297] 71125 5 713 6 0 0 0 CHUNK START TRANSFER 24/1/2 19 [9298] 71126 124 999 19 1 2 0 SEC 8 MODIFY ADDRESS OF NEXT 24/0/2 0 [9299] 71127 124 0 0 2 0 SELECT LITERAL AND DIVISION 3/0/0 1191 [9300] 71128 3 712 2 0 0 0 WL COPY 1/1/1 48 [9301] 71129 101 48 1 1 0 ADD LITERAL ADDRESS 18/0/1 5 [9302] 71130 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 1191 [9303] 71131 1 712 2 0 0 0 WL ADD 2/1/0 8184 [9304] 71132 91 0 0 4 0 SET MODIFICATION REGISTER AT VARIABLE 24/0/3 1210 [9305] 71133 124 713 4 0 3 0 STORE WORD MODIFY ADDRESS OF NEXT 6/0/2 0 [9306] 71134 106 0 0 2 0 SELECT (N) 2/0/0 1213 [9307] 71135 5 713 7 0 0 0 STORE WORD TRANSFER 0/1/2 1216 [9308] 71136 34 713 10 1 0 0 FIRST LEVEL PARA WORD SET (N) IN B 18/1/3 3 [9309] 71137 33 0 0 0 3 NEXT ONE TO A SHIFT (AB) BY BITS 0/1/0 1214 [9310] 71138 100 713 8 1 0 0 STORE (A) (B) © COPY REGISTERS 23/0/0 1 [9311] 71139 94 711 47 0 5 1 TEST END OF PARA WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8182 [9312] 24/1/0 1130 [9313] s 6/1/0 3048 [9314] 71140 90 0 0 5 0 SET UP MR FOR SET MODIFICATION REGISTER AT LITERAL 2/1/0 8182 [9315] 71141 C 0 0 0 6 NEXT PARA WORD Simulated modifier 24/0/3 1210 [9316] 71142 124 713 4 0 3 0 STORE PARA WORD MODIFY ADDRESS OF NEXT 6/0/3 1 [9317] 71143 106 1 0 3 0 STORE PARA WORD SELECT (N) 18/1/3 2 [9318] 71144 33 0 0 0 2 RIGHT ALIGN WORD SHIFT (AB) BY BITS 2/0/0 1217 [9319] 71145 5 713 11 0 0 0 TRANSFER 25/0/3 1 [9320] 71146 94 711 47 0 3 1 STEP PARAS MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1130 [9321] s 6/0/0 1214 [9322] 71147 713 8 0 0 0 TEST DUMMY PARA SELECT 1/1/2 6 [9323] 71148 12 0 0 0 6 SUBTRACT LITERAL 27/0/0 1116 [9324] 71149 70 711 36 0 0 0 >YES JUMP IF A == 0 1/1/2 1 [9325] 71150 12 0 0 0 1 TEST SECOND LEVEL REQD SUBTRACT LITERAL 27/0/1 1163 [9326] 71151 71 711 75 0 0 0 >NO JUMP IF A != 0 0/1/2 1222 [9327] 71152 34 713 16 1 0 0 SECOND LEVEL PARA WORD SET (N) IN B 18/1/3 6 [9328] 71153 33 0 0 0 6 NEXT ONE TO A SHIFT (AB) BY BITS 0/1/0 1220 [9329] 71154 100 713 14 1 0 0 STORE (A) (B) © COPY REGISTERS 23/0/0 1 [9330] 71155 94 711 63 0 8 1 TEST END OF PARA WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8178 [9331] 24/1/0 1149 [9332] s 6/1/0 3050 [9333] 71156 90 0 0 8 0 SET UP MR FOR SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [9334] 71157 C 0 0 0 3 NEXT PARA WORD Simulated modifier 24/0/3 1210 [9335] 71158 124 713 4 0 3 0 STORE PARA WORD MODIFY ADDRESS OF NEXT 6/0/1 1 [9336] 71159 106 1 0 1 0 SELECT (N) Source: DaveJ/Q1000497 18/1/3 2 [9337] 71160 33 0 0 0 2 RIGHT ALLIGN WORD SHIFT (AB) BY BITS 2/0/0 1223 [9338] 71161 5 713 17 0 0 0 TRANSFER 25/0/1 1 [9339] 71162 94 711 63 0 1 1 STEP PARAS MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1149 [9340] s 6/0/0 1220 [9341] 71163 713 14 0 0 0 TEST SECOND LEVEL SELECT 1/1/2 63 [9342] 71164 101 63 1 2 0 PARA = 63(DUMMY) SUBTRACT LITERAL ADDRESS 27/0/0 1135 [9343] 71165 70 711 52 0 0 0 >YES JUMP IF A == 0 1/1/1 1 [9344] 71166 101 1 1 1 0 TEST END SIGN(62) ADD LITERAL ADDRESS 27/0/1 1161 [9345] 71167 71 711 73 0 0 0 >NO JUMP IF A != 0 6/1/0 1210 [9346] 71168 713 4 1 0 0 STORE END SIGN SELECT 24/0/3 8184 [9347] 71169 5 4 1 4 0 TRANSFER 2/1/0 4 [9348] 24/0/3 8184 [9349] 71170 5 6 1 4 0 TRANSFER 2/1/0 6 [9350] 26/0/0 1579 [9351] 71171 80 727 2 0 0 0 >WRITE LAST BLOCK ENTER SUBROUTINE 24/1/0 46 [9352] 71172 76 680 2 0 0 0 >CALL PASS 5 JUMP unconditional 6/1/0 1220 [9353] 71173 713 14 1 0 0 STORE ACTUAL PARA SELECT 2/1/0 1214 [9354] 71174 5 713 8 1 0 0 VALUE TRANSFER 6/0/0 1214 [9355] 71175 713 8 0 0 0 TEST PARA=1 SELECT 1/1/2 1 [9356] 71176 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 1168 [9357] 71177 70 711 80 0 0 0 >YES JUMP IF A == 0 1/1/2 1 [9358] 71178 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 1178 [9359] 71179 71 711 90 0 0 0 >NO JUMP IF A != 0 1/1/3 8191 [9360] 71180 101 8191 1 3 0 SELECT LITERAL ADDRESS 18/1/1 4118 [9361] 71181 32 0 0 0 10- ADJUST ORDER BY SHIFT (AB) BY QUARTETS 15/0/0 1213 [9362] 71182 36 713 7 0 0 0 CHUNK START COLLATE AND ADD 5/0/0 1212 [9363] 71183 2 713 6 0 0 0 SUBTRACT 27/0/2 1177 [9364] 71184 72 711 89 0 0 0 >THIS CHAP JUMP IF A >= 0 1/0/1 31 [9365] 71185 35 0 0 0 11111 ADJUST ORDER IN PREPARE FOR DIGIT COLLATION 1/1/3 0 [9366] 71186 10 0 0 0 0 PASS 1 OR 2 WHICH SELECT LITERAL 15/0/0 1213 [9367] 71187 36 713 7 0 0 0 REFERS TO COMMON COLLATE AND ADD 1/1/2 2534 [9368] 71188 101 757 2 1 2 0 CODING START SUBTRACT LITERAL ADDRESS 14/0/0 1213 [9369] 71189 37 713 7 0 0 0 REPLACE SELECTED BITS 6/0/0 1213 [9370] 71190 713 7 0 0 0 SELECT 24/0/3 8184 [9371] 71191 5 6 2 4 0 VALUE TRANSFER 2/1/0 7 [9372] 6/0/0 1214 [9373] 71192 713 8 0 0 0 SELECT 24/0/3 8184 [9374] 71193 5 4 2 4 0 PARA TRANSFER 2/1/0 5 [9375] 25/0/2 1 [9376] 71194 94 711 95 0 2 1 WORD MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1186 [9377] s 23/0/0 4 [9378] 71195 94 711 33 0 4 4 >NEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [9379] 24/1/0 1113 [9380] s 26/0/0 1579 [9381] 71196 80 727 2 0 0 0 >WRITE ENTER SUBROUTINE 24/1/0 1106 [9382] 71197 76 711 26 0 0 0 >NEXT BLOCK JUMP unconditional Start of procedure 712 at location 1191 in chapter 6 [9383] [9383] 71200 PROCR 712 PRINT LINE WHEN FULL,STEP SERIAL [9383] 71201 NOTES RADIX B SUB ROUTINE 0/0/0 0 [9383] 71202 81 712 2 0 0 0 START OF SUBROUTINE 6/0/0 5104 [9384] 71203 0 16 28 0 0 0 SERIAL AT STARTOF LINE SELECT 26/0/0 1609 [9385] 71204 80 729 2 0 0 0 >TO DEC ENTER SUBROUTINE 2/0/0 1660 [9386] 71205 5 731 40 0 0 0 WL TRANSFER 24/0/2 1846 [9387] 71206 52 5 2 0 0 0 EDIT SERIAL EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [9389] 71207 C 738 52 0 0 0 26/0/0 1499 [9390] 71208 80 724 2 0 0 0 >PRINT ENTER SUBROUTINE 0/0/3 0 [9391] 71209 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 5113 [9392] 71210 0 16 37 0 0 0 INCREMENT THIS LINE SELECT 7/0/0 5104 [9393] 71211 4 16 28 0 0 0 UPDATE FOR NEXT AUGMENT 1/1/3 0 [9394] 71212 10 0 0 0 0 SELECT LITERAL 2/0/0 5113 [9395] 71213 5 16 37 0 0 0 TRANSFER 6/1/0 3052 [9396] 71214 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8182 [9397] 71215 C 0 0 0 40 Simulated modifier 26/0/1 1191 [9398] 71216 82 712 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 31/1/3 8191 [9399] Start of procedure 713 at location 1208 in chapter 6 [9400] [9400] 71300 CONST 713 1 CONSTANTS 0/0/0 0 [9400] 71302 (D); 00000 +00000 0/0/0 0 [9401] Source: DaveJ/Q1000498 0/0/0 0 [9402] 71304 (A)p ; 00000 +4F000 4/1/3 4096 [9403] 0/0/0 0 [9404] 71306 (D)0; CHUNK START/ORDER 00000 +00000 0/0/0 0 [9405] 0/0/0 0 [9406] 71308 0; A 00000 +00000 0/0/0 0 [9407] 0/0/0 0 [9408] 71310 0; B 00000 +00000 0/0/0 0 [9409] 0/0/0 0 [9410] 71312 0; C 00000 +00000 0/0/0 0 [9411] 0/0/0 0 [9412] 71314 0; A 00000 +00000 0/0/0 0 [9413] 0/0/0 0 [9414] 71316 0; B 00000 +00000 0/0/0 0 [9415] 0/0/0 0 [9416] 71318 0; C 00000 +00000 0/0/0 0 [9417] Start of procedure 714 at location 1226 in chapter 6 [9418] [9418] 71400 PROCR 714 GENERAL MAG-TAPE EDIT & OUTPUT [9418] 71401 NOTES RADIX B SUB ROUTINE 0/0/0 0 [9418] 71402 81 714 2 0 0 0 START OF SUBROUTINE 6/1/0 5044 [9419] 71403 0 13 0 1 0 0 QUICKER THAN EDIT SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/1 4 [9421] 71404 5 8 4 1 1 0 TRANSFER 6/1/0 5046 [9422] 71405 0 13 2 1 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/1 6 [9424] 71406 5 8 6 1 1 0 TRANSFER 25/0/1 4 [9425] 71407 94 714 11 0 1 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1237 [9426] s 26/0/0 1579 [9427] 71408 80 727 2 0 0 0 >WRITE BLOCK ENTER SUBROUTINE 26/1/1 3054 [9428] 71409 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [9429] 71410 C 0 0 0 48 Limit 26/0/1 1226 [9429] 71411 82 714 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 715 at location 1238 in chapter 6 [9430] [9430] 71500 PROCR 715 READ A2 [9430] 71501 NOTES 0/0/0 0 [9430] 71502 81 715 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [9431] 71503 42 A2 0 0 0 0 INPUT 0/0/3 0 [9432] 0/0/2 18 [9433] 71504 C 8 0 0 0 0 INPUT 6/1/0 0 [9434] 1/1/1 36 [9435] 25/1/1 4096 [9436] 24/0/3 0 [9437] 23/0/2 42 [9438] 0/1/1 40 [9439] 26/0/1 1238 [9440] 71505 82 715 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 716 at location 1249 in chapter 6 [9441] [9441] 71600 CONST 716 0 FIRST LEVEL PARAS,GENERAL CODING 0/1/0 4681 [9441] 71602 (B5)1(B3)1(B3)1(B3)1(B6)9; 1000/0 +09249 0/1/0 4672 [9442] 71603 1,1,1,1,0; 1001/5 +09240 0/0/0 0 [9443] 71604 0,0,0,0,0; +00000 0/0/0 0 [9444] 71605 0,0,0,0,0; +00000 0/0/0 0 [9445] 71606 0,0,0,0,0; +00000 0/0/0 0 [9446] 71607 0,0,0,0,0; +00000 0/0/0 0 [9447] 71608 0,0,0,0,0; +00000 0/0/0 0 [9448] 71609 0,0,0,0,0; +00000 0/0/0 0 [9449] 71610 0,0,0,0,0; +00000 0/0/0 0 [9450] 71611 0,0,0,0,0; +00000 0/0/0 0 [9451] 71612 0,0,0,0,0; 1002/5 +00000 0/0/0 0 [9452] 71613 0,0,0,0,0; +00000 0/0/0 0 [9453] 71614 0,0,0,0,0; +00000 0/0/0 0 [9454] 71615 0,0,0,0,0; +00000 0/0/0 0 [9455] 71616 0,0,0,0,0; +00000 0/0/0 0 [9456] 71617 0,0,0,0,0; +00000 0/0/0 0 [9457] 71618 0,0,0,0,0; +00000 0/0/0 0 [9458] 71619 0,0,0,0,0; +00000 0/0/0 0 [9459] 71620 0,0,0,0,0; +00000 0/0/0 1 [9460] 71621 0,0,0,0,1; 1003/5 +00001 0/1/0 118 [9461] 71622 1,0,0,1,54; +08076 3/1/0 566 [9462] 71623 7,0,1,0,54; +38236 0/0/0 4617 [9463] 71624 0,1,1,0,9; +01209 0/1/3 4623 [9464] 71625 1,7,1,0,15; +0F20F 0/1/3 4617 [9465] 71626 1,7,1,0,9; +0F209 3/1/0 4217 [9466] 71627 7,1,0,1,57; +39079 0/1/3 4681 [9467] 71628 1,7,1,1,9; +0F249 3/0/3 3510 [9468] 71629 6,6,6,6,54; +36DB6 1/1/0 4699 [9469] 71630 3,1,1,1,27; +1925B 0/1/3 4680 [9470] 71631 1,7,1,1,8; +0F248 Source: DaveJ/Q1000499 0/1/3 7606 [9471] 71632 1,7,6,6,54; +0FDB6 0/0/0 4616 [9472] 71633 0,1,1,0,8; +01208 0/1/3 4161 [9473] 71634 1,7,0,1,1; +0F041 0/1/0 4103 [9474] 71635 1,1,0,0,7; +09007 0/0/0 54 [9475] 71636 0,0,0,0,54; +00036 0/1/1 4616 [9476] 71637 1,3,1,0,8; +0B208 0/1/0 950 [9477] 71638 1,0,1,6,54; +083B6 0/1/0 969 [9478] 71639 1,0,1,7,9; +083C9 3/1/0 566 [9479] 71640 7,0,1,0,54; +38236 0/1/0 7753 [9480] 71641 1,1,7,1,9; +09E49 0/0/0 4161 [9481] 71642 0,1,0,1,1; +01041 0/0/0 4161 [9482] 71643 0,1,0,1,1; +01041 0/1/0 4169 [9483] 71644 1,1,0,1,9; +09049 0/1/0 513 [9484] 71645 1,0,1,0,1; +08201 0/1/3 4616 [9485] 71646 1,7,1,0,8; +0F208 3/0/0 5697 [9486] 71647 6,1,3,1,1; +31641 3/1/0 5065 [9487] 71648 7,1,1,7,9; +393C9 0/1/3 3145 [9488] 71649 1,6,6,1,9; +0EC49 0/1/3 4673 [9489] 71650 1,7,1,1,1; +0F241 0/0/0 73 [9490] 71651 0,0,0,1,9; +00049 0/0/3 120 [9491] 71652 0,6,0,1,56; 1004/4 +06078 0/1/0 607 [9492] 71653 1,0,1,1,31; +0825F 0/1/0 630 [9493] 71654 1,0,1,1,54; +08276 3/1/0 438 [9494] 71655 7,0,0,6,54; 1005/2 +381B6 0/1/3 4680 [9495] 71656 1,7,1,1,8; +0F248 0/1/0 4105 [9496] 71657 1,1,0,0,9; +09009 0/0/0 704 [9497] 71658 0,0,1,3,0; +002C0 0/1/0 3510 [9498] 71659 1,0,6,6,54; +08DB6 0/0/0 72 [9499] 71660 0,0,0,1,8; +00048 0/0/0 4623 [9500] 71661 0,1,1,0,15; +0120F 3/0/3 3471 [9501] 71662 6,6,6,6,15; 1006/5 +36D8F 0/1/0 5113 [9502] 71663 1,1,1,7,57; +093F9 3/1/0 4161 [9503] 71664 7,1,0,1,1; +39041 0/0/0 4175 [9504] 71665 0,1,0,1,15; +0104F 0/1/3 4152 [9505] 71666 1,7,0,0,56; 1007/3 +0F038 0/1/0 527 [9506] 71667 1,0,1,0,15; +0820F 0/1/0 5065 [9507] 71668 1,1,1,7,9; +093C9 0/1/0 11 [9508] 71669 1,0,0,0,11; +0800B 0/1/0 5641 [9509] 71670 1,1,3,0,9; +09609 0/1/3 7552 [9510] 71671 1,7,6,6,0; +0FD80 0/0/0 0 [9511] 71672 0,0,0,0,0; 1009/3 +00000 0/0/0 0 [9512] 71673 0,0,0,0,0; +00000 0/0/0 0 [9513] 71674 0,0,0,0,0; +00000 0/0/0 0 [9514] 71675 0,0,0,0,0; +00000 0/0/0 0 [9515] 71676 0,0,0,0,0; +00000 0/0/0 0 [9516] 71677 0,0,0,0,0; +00000 0/0/0 0 [9517] 71678 0,0,0,0,0; +00000 0/0/0 0 [9518] 71679 0,0,0,0,0; 1010/5 +00000 0/0/0 0 [9519] 71680 0,0,0,0,0; +00000 0/0/0 0 [9520] 71681 0,0,0,0,0; +00000 0/0/0 0 [9521] 71682 0,0,0,0,0; +00000 0/0/0 0 [9522] 71683 0,0,0,0,0; +00000 0/0/0 0 [9523] 71684 0,0,0,0,0; +00000 0/0/0 0 [9524] 71685 0,0,0,0,0; +00000 0/0/0 0 [9525] 71686 0,0,0,0,0; +00000 0/0/0 0 [9526] 71687 0,0,0,0,0; +00000 0/0/0 0 [9527] 71688 0,0,0,0,0; 1011/5 +00000 0/0/0 0 [9528] 71689 0,0,0,0,0; +00000 Start of procedure 717 at location 1337 in chapter 6 [9529] [9529] 71700 CONST 717 0 FIRST LEVEL PARAS PASS 1 Source: DaveJ/Q1000500 0/0/0 0 [9529] 71702 (B5)0(B3)0(B3)0(B3)0(B6)0; +00000 0/0/0 0 [9530] 71703 0,0,0,0,0; +00000 0/0/0 0 [9531] 71704 0,0,0,0,0; +00000 0/0/0 0 [9532] 71705 0,0,0,0,0; +00000 0/0/0 0 [9533] 71706 0,0,0,0,0; 1012/5 +00000 0/0/0 0 [9534] 71707 0,0,0,0,0; +00000 0/0/0 0 [9535] 71708 0,0,0,0,0; +00000 0/0/0 0 [9536] 71709 0,0,0,0,0; +00000 0/0/0 0 [9537] 71710 0,0,0,0,0; +00000 0/0/0 0 [9538] 71711 0,0,0,0,0; +00000 0/0/0 0 [9539] 71712 0,0,0,0,0; +00000 0/0/0 0 [9540] 71713 0,0,0,0,0; +00000 Start of procedure 718 at location 1349 in chapter 6 [9541] [9541] 71800 CONST 718 0 FIRST LEVEL PARAS PASS 1 0/0/0 0 [9541] 71802 (B5)0(B3)0(B3)0(B3)0(B6)0; +00000 0/0/0 0 [9542] 71803 0,0,0,0,0; +00000 0/0/0 0 [9543] 71804 0,0,0,0,0; +00000 0/0/0 0 [9544] 71805 0,0,0,0,0; +00000 0/0/0 0 [9545] 71806 0,0,0,0,0; +00000 0/0/0 0 [9546] 71807 0,0,0,0,0; +00000 0/0/0 0 [9547] 71808 0,0,0,0,0; +00000 0/0/0 0 [9548] 71809 0,0,0,0,0; 1013/5 +00000 0/0/0 0 [9549] 71810 0,0,0,0,0; +00000 0/0/0 54 [9550] 71811 0,0,0,0,54; +00036 0/1/0 521 [9551] 71812 (B5)1(B3)0(B3)1(B3)0(B6)9; 1014/0 +08209 1/1/0 4617 [9552] 71813 3,1,1,0,9; +19209 0/1/0 521 [9553] 71814 1,0,1,0,9; +08209 0/1/0 585 [9554] 71815 1,0,1,1,9; +08249 0/0/0 4617 [9555] 71816 0,1,1,0,9; +01209 0/0/0 4609 [9556] 71817 0,1,1,0,1; +01201 0/1/0 4169 [9557] 71818 1,1,0,1,9; +09049 0/1/0 7606 [9558] 71819 1,1,6,6,54; +09DB6 3/0/3 3510 [9559] 71820 6,6,6,6,54; DUMMY WORD +36DB6 0/0/0 4681 [9560] 71821 0,1,1,1,9; +01249 0/0/0 4617 [9561] 71822 0,1,1,0,9; 1015/3 +01209 0/0/0 4681 [9562] 71823 0,1,1,1,9; +01249 0/1/0 630 [9563] 71824 1,0,1,1,54; +08276 3/0/3 577 [9564] 71825 6,6,1,1,1; 1016/3 +36241 0/1/0 64 [9565] 71826 1,0,0,1,0; +08040 0/1/0 8 [9566] 71827 1,0,0,0,8; +08008 0/1/0 4608 [9567] 71828 1,1,1,0,0; +09200 0/1/0 521 [9568] 71829 1,0,1,0,9; +08209 0/0/0 584 [9569] 71830 0,0,1,1,8; 1017/4 +00248 0/1/0 4617 [9570] 71831 1,1,1,0,9; +09209 0/0/0 1 [9571] 71832 0,0,0,0,1; +00001 0/0/0 4609 [9572] 71833 0,1,1,0,1; 1018/4 +01201 0/1/0 72 [9573] 71834 1,0,0,1,8; +08048 0/0/0 521 [9574] 71835 0,0,1,0,9; +00209 0/0/0 4617 [9575] 71836 0,1,1,0,9; +01209 0/0/0 4681 [9576] 71837 0,1,1,1,9; 1019/4 +01249 0/0/0 576 [9577] 71838 0,0,1,1,0; +00240 0/0/0 4104 [9578] 71839 0,1,0,0,8; +01008 0/1/0 64 [9579] 71840 1,0,0,1,0; +08040 0/1/0 513 [9580] 71841 1,0,1,0,1; 1020/5 +08201 0/1/0 4672 [9581] 71842 1,1,1,1,0; +09240 0/1/0 4673 [9582] 71843 1,1,1,1,1; +09241 0/1/0 4104 [9583] 71844 1,1,0,0,8; +09008 0/0/0 8 [9584] 71845 0,0,0,0,8; +00008 0/1/0 521 [9585] 71846 1,0,1,0,9; +08209 0/1/0 64 [9586] 71847 1,0,0,1,0; +08040 Source: DaveJ/Q1000501 0/1/0 4169 [9587] 71848 1,1,0,1,9; +09049 0/1/0 4105 [9588] 71849 1,1,0,0,9; +09009 0/1/0 584 [9589] 71850 1,0,1,1,8; 1021/4 +08248 0/1/0 4617 [9590] 71851 1,1,1,0,9; +09209 0/0/0 4672 [9591] 71852 0,1,1,1,0; +01240 0/1/0 7606 [9592] 71853 1,1,6,6,54; +09DB6 3/0/0 4681 [9593] 71854 6,1,1,1,9; +31249 0/0/0 4609 [9594] 71855 0,1,1,0,1; +01201 0/1/0 577 [9595] 71856 1,0,1,1,1; +08241 0/1/3 3510 [9596] 71857 1,6,6,6,54; +0EDB6 0/0/0 4160 [9597] 71858 0,1,0,1,0; +01040 0/1/0 4616 [9598] 71859 1,1,1,0,8; 1022/5 +09208 0/1/0 4617 [9599] 71860 1,1,1,0,9; +09209 0/1/0 73 [9600] 71861 1,0,0,1,9; +08049 0/0/0 64 [9601] 71862 0,0,0,1,0; +00040 0/1/0 577 [9602] 71863 1,0,1,1,1; +08241 0/1/0 4104 [9603] 71864 1,1,0,0,8; +09008 0/0/0 4617 [9604] 71865 0,1,1,0,9; +01209 0/0/0 4616 [9605] 71866 0,1,1,0,8; +01208 0/1/3 4617 [9606] 71867 1,7,1,0,9; 1023/4 +0F209 0/1/0 5641 [9607] 71868 1,1,3,0,9; +09609 0/0/0 4104 [9608] 71869 0,1,0,0,8; +01008 0/1/0 566 [9609] 71870 1,0,1,0,54; 1024/2 +08236 0/1/0 4104 [9610] 71871 1,1,0,0,8; 1025/6 +09008 0/0/0 4161 [9611] 71872 0,1,0,1,1; +01041 0/0/0 1152 [9612] 71873 0,0,2,2,0; 1026/0 1027/5 +00480 0/0/0 0 [9613] 71874 0,0,0,0,0; +00000 0/0/0 0 [9614] 71875 0,0,0,0,0; +00000 0/0/0 0 [9615] 71876 0,0,0,0,0; 1028/5 +00000 0/0/0 0 [9616] 71877 0,0,0,0,0; 1029/5 +00000 0/0/0 0 [9617] 71878 0,0,0,0,0; 1030/3 1031/5 +00000 0/0/0 0 [9618] 71879 0,0,0,0,0; +00000 0/0/0 0 [9619] 71880 0,0,0,0,0; +00000 0/0/0 0 [9620] 71881 0,0,0,0,0; +00000 0/0/0 0 [9621] 71882 0,0,0,0,0; 1032/3 +00000 0/0/0 4022 [9622] 71883 0,0,7,6,54; +00FB6 Start of procedure 719 at location 1431 in chapter 6 [9623] [9623] 71900 PROCR 719 CLOSE OUTPUT FILES [9623] 71901 NOTES RADIX 0/0/0 0 [9623] 71902 81 719 2 0 0 0 START OF SUBROUTINE 26/0/0 1238 [9624] 71903 80 715 2 0 0 0 ENTER SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 4 [9626] 71904 0 8 4 1 0 0 SELECT 5/1/0 3056 [9627] 71905 12 0 0 0 5659655972 FINIS' SUBTRACT LITERAL 27/0/1 1432 [9628] 71906 71 719 3 0 0 0 JUMP IF A != 0 0/1/0 40 [9629] 71907 41 A2 0 0 0 1 CLOSE I/P CLOSE FILE 0/0/3 0 [9630] 6/1/0 0 [9631] 1/1/1 36 [9632] 25/1/1 4096 [9633] 24/0/3 0 [9634] 23/0/2 41 [9635] 0/1/1 40 [9636] 26/0/1 1431 [9637] 71908 82 719 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 720 at location 1446 in chapter 6 [9638] [9638] 72000 CONST 720 0 SECOND LEVEL PARAS 1/1/0 3251 [9638] 72002 (B8)24(B6)50(B6)51; +18CB3 1/1/0 1543 [9639] 72003 24,24,7; +18607 1/1/0 447 [9640] 72004 24,6,63; +181BF 3/0/1 6552 [9641] 72005 51,38,24; +33998 3/0/3 3407 [9642] 72006 54,53,15; +36D4F 3/0/1 2191 [9643] 72007 50,34,15; +3288F 0/1/3 6424 [9644] 72008 15,36,24; +0F918 2/0/2 6452 [9645] 72009 37,36,52; +25934 2/0/3 6631 [9646] 72010 39,39,39; +279E7 1/0/1 2537 [9647] 72011 18,39,41; +129E9 1/1/0 1560 [9648] 72012 24,24,24; +18618 1/1/0 1086 [9649] 72013 24,16,62; +1843E Source: DaveJ/Q1000698 Start of procedure 721 at location 1458 in chapter 6 [9650] [9650] 72100 PROCR 721 INPUT OFF PASS 2 [9650] 72101 NOTES RADIX B SUB ROUTINE 0/0/0 0 [9650] 72102 81 721 2 0 0 0 START OF SUBROUTINE 25/0/2 8 [9651] 72103 94 721 7 0 2 8 STANDARD INCREMENT STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1463 [9652] 26/0/0 1464 [9653] 72104 80 722 2 0 0 0 READ A6->SEC 9 ENTER SUBROUTINE 26/1/2 3058 [9654] 72105 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [9655] 72106 C 0 0 0 144 Limit 26/0/1 1458 [9655] 72107 82 721 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 722 at location 1464 in chapter 6 [9656] [9656] 72200 PROCR 722 INPUT [9656] 72201 NOTES RADIX B SUB ROUTINE 0/0/0 0 [9656] 72202 81 722 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [9657] 72203 42 A6 0 0 0 0 INPUT 0/0/3 0 [9658] 0/0/2 20 [9659] 72204 C 9 0 0 0 0 INPUT 6/1/0 0 [9660] 1/1/1 45 [9661] 25/1/1 4096 [9662] 24/0/3 0 [9663] 23/0/2 42 [9664] 0/1/1 40 [9665] 26/0/1 1464 [9666] 72205 82 722 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 723 at location 1475 in chapter 6 [9667] [9667] 72300 PROCR 723 WRITE ON WORKING TAPE [9667] 72301 NOTES 0/0/0 0 [9667] 72302 81 723 2 0 0 0 START OF SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 24/0/2 4 [9669] 72303 55 8 4 1 0 50 COPY ANNEXES BULK COPY 18/1/0 4123 [9670] 72304 C 9 4 1 0 0 1/1/3 50 [9671] 18/1/1 5 [9672] 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/1 4 [9674] 6/1/0 1640 [9675] 72305 0 731 20 1 0 0 BEW SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 52 [9677] 72306 5 9 52 1 0 0 TRANSFER 0/1/0 40 [9678] 72307 43 A6 0 0 0 0 OUTPUT 0/0/3 0 [9679] 0/0/2 20 [9680] 72308 C 9 0 0 0 0 OUTPUT 6/1/0 0 [9681] 1/1/1 45 [9682] 25/1/1 4096 [9683] 24/0/3 0 [9684] 23/0/2 43 [9685] 0/1/1 40 [9686] 6/1/0 3060 [9687] 72309 54 9 0 0 0 52 BULK CLEAR 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/0/0 0 [9689] 26/0/1 1475 [9690] 72310 82 723 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 724 at location 1499 in chapter 6 [9691] [9691] 72400 PROCR 724 PRINT [9691] 72401 NOTES RADIX B SUB ROUTINE 0/0/0 0 [9691] 72402 81 724 2 0 0 0 START OF SUBROUTINE 0/0/3 0 [9692] 72403 62 0 0 0 0 SET EXCESS CONSTANTS 6/1/0 1640 [9693] 72404 731 20 1 0 0 SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 52 [9695] 72405 5 5 52 1 0 0 BEW TRANSFER 1/1/3 1 [9696] 72406 10 0 0 0 1 ALWAYS TRACK 1 SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 0 [9698] 72407 5 5 0 1 0 0 FUNCTION WORD TRANSFER 6/0/0 6319 [9699] 72408 27 9 0 0 0 SELECT 27/0/0 1527 [9700] 72409 70 724 14 0 0 0 >PRINTER JUMP IF A == 0 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 0 [9702] 72410 55 5 0 1 0 50 BULK COPY 18/1/0 4123 [9703] 72411 C 10 4 1 6 0 0/0/0 0 act unimp [9704] 72411 C 10 4 1 6 0 Bulk copy simulated modifier 0/1/0 40 [9705] 0/0/3 0 [9706] 24/1/2 13 Extra code needed to address transit area no 0, section 10 24/0/2 4 [9708] 24/0/3 22 [9709] 4/0/0 12 [9710] 2/0/0 40 [9711] 0/1/1 40 [9712] 1/1/3 50 [9713] 18/1/1 5 [9714] 24/1/2 40 [9715] 28/1/1 0 [9716] 26/0/0 1560 [9717] 72412 80 725 2 0 0 0 >O/P ENTER SUBROUTINE 24/1/0 1555 [9718] 72413 76 724 36 0 0 0 JUMP unconditional 6/0/0 6318 [9719] 72414 27 8 0 0 0 PRINTER TYPE SELECT 1/1/2 9 [9720] 72415 12 0 0 0 9 SUBTRACT LITERAL 27/0/0 1546 [9721] 72416 70 724 32 0 0 0 >SPECIAL JUMP IF A == 0 6/0/0 2942 [9722] 72417 10 0 0 0 80000 SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/0/0 1 [9724] 72418 5 5 1 0 0 0 BIT 40 TRANSFER 24/1/2 15 [9725] 72419 124 999 15 1 2 0 SEC 5 MODIFY ADDRESS OF NEXT 24/0/2 0 [9726] 72420 124 0 0 2 0 SELECT LITERAL AND DIVISION 24/1/2 13 [9727] 72421 124 999 13 1 2 0 SEC 10 MODIFY ADDRESS OF NEXT 29/0/1 0 [9728] 72422 129 0 0 1 0 EDIT FOR ANELEX OUTPUT 1/1/3 4 [9729] 72423 10 0 0 0 4 SELECT LITERAL 18/0/1 5 [9730] 72424 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 7 [9731] 72425 1 999 7 0 0 0 ROUTE ADD 0/0/2 12 [9732] 72426 34 999 12 0 0 0 SET (N) IN B 25/1/1 4096 [9733] 72427 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 0 [9734] 72428 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [9735] 72429 123 160 0 2 0 ENTER MASTER ROUTINE 0/0/3 0 [9736] 72430 62 0 0 0 0 SET EXCESS CONSTANTS Source: DaveJ/Q1000699 24/1/0 1555 [9737] 72431 76 724 36 0 0 0 JUMP unconditional 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 0 [9739] 72432 55 5 0 1 0 54 BULK COPY 18/1/0 4123 [9740] 72433 C 10 0 1 0 0 1/1/3 54 [9741] 18/1/1 5 [9742] 24/1/2 13 Extra code needed to address transit area no 0, section 10 28/1/1 0 [9744] 1/1/3 9 [9745] 72434 10 0 0 0 9 SELECT LITERAL 24/1/0 1538 [9746] 72435 76 724 24 0 0 0 JUMP unconditional 6/1/0 3062 [9747] 72436 54 5 0 0 0 50 BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/0/0 0 [9749] 2/0/0 5077 [9750] 72437 5 16 1 0 0 0 CLEAR INDICATORS TRANSFER 26/0/1 1499 [9751] 72438 82 724 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 725 at location 1560 in chapter 6 [9752] [9752] 72500 PROCR 725 O/P->A9 0/0/0 0 [9752] 72502 81 725 2 0 0 0 START OF SUBROUTINE 23/0/0 50 [9753] 72503 94 725 9 0 6 50 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8180 [9754] 24/1/0 1570 [9755] s 6/1/0 1640 [9756] 72504 731 20 1 0 0 BEW SELECT 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 306 [9758] 72505 5 10 306 1 0 0 TRANSFER 26/0/0 1571 [9759] 72506 80 726 2 0 0 0 >O/P ENTER SUBROUTINE 6/1/0 3064 [9760] 72507 90 0 0 6 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8180 [9761] 72508 C 0 0 0 300 Simulated modifier 26/0/1 1560 [9762] 72509 82 725 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 726 at location 1571 in chapter 6 [9763] [9763] 72600 PROCR 726 WRITE A9 0/0/0 0 [9763] 72602 81 726 2 0 0 0 START OF SUBROUTINE 6/1/0 3066 [9764] 72603 10 0 0 0 800000 SELECT LITERAL 0/0/2 12 [9765] 72604 34 999 12 0 0 0 SEC 10 SET (N) IN B 25/1/1 4096 [9766] 72605 125 4096 1 1 0 CLEAR INDICATORS 4/0/0 7 [9767] 72606 1 999 7 0 0 0 D1/A9 ADD 24/0/3 0 [9768] 72607 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [9769] 72608 123 160 0 2 0 ENTER MASTER ROUTINE 26/0/1 1571 [9770] 72609 82 726 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 727 at location 1579 in chapter 6 [9771] [9771] 72700 PROCR 727 OUTPUT ON A2 [9771] 72701 NOTES RADIX B SUB ROUTINE 0/0/0 0 [9771] 72702 81 727 2 0 0 0 START OF SUBROUTINE 6/1/0 1640 [9772] 72703 731 20 1 0 0 BEW SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 52 [9774] 72704 5 8 52 1 0 0 TRANSFER 0/1/0 40 [9775] 72705 43 A2 0 0 0 0 OUTPUT OUTPUT 0/0/3 0 [9776] 0/0/2 18 [9777] 72706 C 8 0 0 0 0 OUTPUT 6/1/0 0 [9778] 1/1/1 36 [9779] 25/1/1 4096 [9780] 24/0/3 0 [9781] 23/0/2 43 [9782] 0/1/1 40 [9783] 6/1/0 3068 [9784] 72707 54 8 0 0 0 52 CLEAR BULK CLEAR 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/0 0 [9786] 26/0/1 1579 [9787] 72708 82 727 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 728 at location 1596 in chapter 6 [9788] [9788] 72800 PROCR 728 0/0/0 0 [9788] 72802 81 728 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [9789] 72803 50 9 4 0 2 0 UNPACK FIXED FIELD DATA 0/0/3 0 [9790] 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 4 [9792] 24/0/3 22 [9793] 4/0/0 4 [9794] 2/0/0 40 [9795] 0/1/1 40 [9796] 24/0/2 1788 [9797] 24/1/2 40 [9798] 28/0/2 0 [9799] 72804 C 737 14 0 0 0 UNPACK NEXT ITEM 26/0/1 1596 [9800] 72805 82 728 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 729 at location 1609 in chapter 6 [9801] [9801] 72900 PROCR 729 CONVERT (A) TO DECIMAL [9801] 72901 NOTES 0/0/0 0 [9801] 72902 81 729 2 0 0 0 START OF SUBROUTINE 2/1/0 1692 [9802] 72903 5 733 4 1 0 0 TRANSFER 0/0/3 2943 [9803] 72904 60 0 0 0 0 SET DECIMAL RADIX 24/0/2 1716 [9804] 72905 124 734 22 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 1692 [9805] 72906 112 733 4 1 0 0 CONVERT 26/0/1 1609 [9806] 72907 82 729 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 730 at location 1615 in chapter 6 [9807] [9807] 73000 PROCR 730 CONVERT (A) TO BIN [9807] 73001 NOTES 0/0/0 0 [9807] 73002 81 730 2 0 0 0 START OF SUBROUTINE 2/1/0 1692 [9808] 73003 5 733 4 1 0 0 TRANSFER 0/0/3 0 [9809] 73004 62 0 0 0 0 SET EXCESS CONSTANTS Source: DaveJ/Q1000700 24/0/2 1696 [9810] 73005 124 734 2 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 1692 [9811] 73006 112 733 4 1 0 0 CONVERT 26/0/1 1615 [9812] 73007 82 730 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 31/1/3 8191 [9813] Start of procedure 731 at location 1622 in chapter 6 [9814] [9814] 73100 CONST 731 1 1/0/3 1907 [9814] 73102 (A)CHAPT; 16773 +53585 5/0/1 5509 [9815] 7/0/2 5455 [9816] 73104 TYPEp; 7554F +73786 7/0/1 6022 [9817] 3/0/2 5490 [9818] 73106 FILES; 35572 +56596 5/0/3 1430 [9819] 8/0/3 1877 [9820] 73108 TYPE; 86755 +00737 0/0/0 1847 [9821] 14/0/3 1622 [9822] 73110 ST.OF; E6656 +72734 7/0/1 1844 [9823] 6/0/2 4962 [9824] 73112 BLOCK; 65362 +52636 5/0/1 1590 [9825] 9/0/3 6485 [9826] 73114 SIZE; 97955 +00725 0/0/0 1829 [9827] 2/0/2 6515 [9828] 73116 SIT; 25973 +00007 0/0/0 7 [9829] 5/0/3 1364 [9830] 73118 PREND; 56554 +67695 6/0/3 5781 [9831] 0/0/0 126 [9832] 73120 (D)7.0000007.; 0007E +7E000 7/1/3 0 [9833] 1/0/3 2419 [9834] 73122 (A)START; 16973 +72735 7/0/1 1845 [9835] 3/0/2 5490 [9836] 73124 NOTES; 35572 +65667 6/0/2 5735 [9837] 6/0/3 1635 [9838] 73126 SPOOL; 66663 +72676 7/0/1 1654 [9839] 9/0/3 1619 [9840] 73128 (A)PROC; 96653 +00676 0/0/0 1654 [9841] 4/0/3 2389 [9842] 73130 EDURE; 46955 +55547 5/0/2 5447 [9843] 2/0/2 5459 [9844] 73132 SEC; 25553 +00007 0/0/0 7 [9845] 6/0/3 1280 [9846] 73134 TION ; 66500 +73596 7/0/1 5526 [9847] 15/0/3 3951 [9848] 73136 (D)6p6p6p6p6p; F6F6F +6F6F6 6/1/3 5878 [9849] 0/0/0 0 [9850] 73138 0; 00000 +00000 0/0/0 0 [9851] 0/0/0 0 [9852] 73140 0; 00000 +00000 0/0/0 0 [9853] 0/0/0 0 [9854] 73142 0; 00000 +00000 0/0/0 0 [9855] 5/0/3 4442 [9856] 73144 (A)ON/=; 5715A +00666 0/0/0 1638 [9857] Start of procedure 732 at location 1666 in chapter 6 [9858] [9858] 73200 CONST 732 1 3/0/3 2385 [9858] 73202 (A)EXTRA; 36951 +55777 5/0/2 6007 [9859] 8/0/2 4455 [9860] 73204 CHAP; 85167 +00535 0/0/0 1333 [9861] 9/0/0 0 [9862] 73206 TER ; 90000 +73556 7/0/1 5462 [9863] 0/0/0 1023 [9864] 73208 (D)7ppp0003pp; BITS 1-10+25-39 003FF +7FFF0 7/1/3 8176 [9865] 0/0/2 7774 [9866] 73210 5.5.; 05E5E +00000 0/0/0 0 [9867] 5/0/3 1364 [9868] 73212 (A)FIEND; 56554 +56595 5/0/3 1429 [9869] 4/0/2 5495 [9870] 73214 (A)INDEX; 45577 +59655 5/1/0 5717 [9871] 1/0/2 6501 [9872] 73216 CHAIN; 15965 +53585 5/0/1 5509 [9873] 0/0/1 4144 [9874] 73218 08000; 03030 +30483 3/0/0 1155 [9875] 9/0/3 1623 [9876] 73220 PROG; 96657 +00676 0/0/0 1654 [9877] 6/0/3 5235 [9878] 73222 OUT; 67473 +00006 0/0/0 6 [9879] 0/0/2 7774 [9880] 73224 (D)5.5.; 05E5E +00000 0/0/0 0 [9881] Start of procedure 733 at location 1690 in chapter 6 [9882] [9882] 73300 CONST 733 1 CONVERT TABLE 0/0/0 1 [9882] 73302 (D)1; BIN->DEC 00001 +00000 0/0/0 0 [9883] 0/0/0 0 [9884] 73304 0; (A) WL 00000 +00000 0/0/0 0 [9885] 0/0/0 0 [9886] 73306 0; CURRENT PROCR 00000 +00000 0/0/0 0 [9887] Start of procedure 734 at location 1696 in chapter 6 [9888] [9888] 73400 CONST 734 1 COMPILER'S CONVERT TABLES 0/0/0 1 [9888] 73402 (D)1; DEC->BIN 00001 +00000 0/0/0 0 [9889] 0/0/0 10 [9890] 73404 t; 0000A +00000 0/0/0 0 [9891] 0/0/0 100 [9892] 73406 64; 00064 +00000 0/0/0 0 [9893] 0/0/0 1000 [9894] 73408 3.8; 003E8 +00000 0/0/0 0 [9895] 0/0/1 1808 [9896] 73410 2710; 02710 +00000 0/0/0 0 [9897] 1/1/0 1696 [9898] 73412 186t0; 186A0 +00000 0/0/0 0 [9899] 15/0/2 576 [9900] 73414 p4240; F4240 +00000 0/0/0 0 [9901] 8/1/0 5760 [9902] 73416 989680; 89680 +00009 0/0/0 9 [9903] 5/1/3 256 [9904] 73418 5p5.100; 5E100 +0005F 0/0/0 95 [9905] 10/1/2 2560 [9906] 73420 3e9t+t00; ACA00 +003B9 0/0/0 953 [9907] 0/0/0 1 [9908] 73422 1; BIN->DEC 00001 +00000 0/0/0 0 [9909] 0/0/0 22 [9910] 73424 16; 00016 +00000 0/0/0 0 [9911] Source: DaveJ/Q1000701 0/0/0 598 [9912] 73426 256; 00256 +00000 0/0/0 0 [9913] 0/0/2 150 [9914] 73428 4096; 04096 +00000 0/0/0 0 [9915] 6/0/2 5430 [9916] 73430 65536; 65536 +00000 0/0/0 0 [9917] 4/1/0 1398 [9918] 73432 1048576; 48576 +00010 0/0/0 16 [9919] 7/0/3 4630 [9920] 73434 16777216; 77216 +00167 0/0/0 359 [9921] 3/0/2 5206 [9922] 73436 268435456; 35456 +02684 0/0/1 1668 [9923] 6/0/3 4758 [9924] 73438 4294967296; 67296 +42949 4/0/1 2377 [9925] 15/1/3 8191 [9926] 73440 pppppppppp; FFFFF +FFFFF 15/1/3 8191 [9927] Start of procedure 735 at location 1736 in chapter 6 [9928] [9928] 73500 CONST 735 0 0/0/0 7 [9928] 73502 (D)7; +00007 0/0/0 8191 [9929] 73503 1ppp; +01FFF 31/1/3 0 [9930] 73504 p.000-; -FE000 0/0/0 127 [9931] 73505 7p; +0007F 0/1/0 0 [9932] 73506 8000; +08000 0/0/3 0 [9933] 73507 6000; +06000 0/1/3 4096 [9934] 73508 p000; +0F000 8/0/0 0 [9935] 73509 80000; +80000 15/0/0 0 [9936] 73510 p0000; +F0000 0/0/0 128 [9937] 73511 80; +00080 31/0/0 0 [9938] 73512 p0000-; -F0000 0/0/0 15 [9939] 73513 p; +0000F 0/0/0 1023 [9940] 73514 3pp; BITS 1-10 +003FF 0/0/0 0 [9941] 73515 0; THIS IS A 0/1 FLIPFLOP FOR SC'S FWD +00000 0/0/0 63 [9942] 73516 3p; BITS 1-6 75200 +0003F 31/1/3 8191 [9943] Start of procedure 736 at location 1752 in chapter 6 [9944] [9944] 73600 TABLE 736 1 PRINT HEADING DATA 0/0/1 5048 [9944] 73602 13 4 0 0 0 0 5 0 0 0 0 0 0 0/0/0 5 [9945] 0/0/1 5047 [9946] 73604 13 3 0 0 0 0 5 0 0 0 0 0 0 0/0/0 5 [9947] 0/0/1 5044 [9948] 73606 13 0 0 0 0 0 5 0 0 0 0 0 0 0/0/0 5 [9949] 0/0/1 5046 [9950] 73608 13 2 0 0 0 0 5 0 0 0 0 0 1 75400 16/0/0 5 [9951] 0/0/1 1609 [9952] 73610 729 2 0 0 0 0 3 2 0 2 0 0 0 REF----ACTIONS WITH NEGATIVE ADDRESSES 0/0/1 515 [9953] 0/0/1 1499 [9954] 73612 724 2 0 0 0 0 5 0 2 4 0 0 1 PROCR 16/0/2 37 [9955] 0/0/1 1682 [9956] 73614 732 18 0 0 2 0 5 0 0 0 0 0 0 08000' 3/0/0 5 [9957] 0/0/1 1684 [9958] 73616 732 20 0 0 2 0 4 1 1 0 0 0 0 PROG' 3/0/0 276 [9959] 0/0/1 1686 [9960] 73618 732 22 0 0 2 0 3 2 1 0 0 0 0 OUT' 3/0/0 531 [9961] 0/0/1 5078 [9962] 73620 16 2 0 0 0 0 5 0 2 0 0 0 0 PROGM 0/0/0 37 [9963] 0/0/1 5079 [9964] 73622 16 3 0 0 0 0 5 0 2 4 0 0 0 SERIAL 0/0/2 37 [9965] 0/0/1 1688 [9966] 73624 732 24 0 0 2 0 2 3 0 0 0 0 1 DOUBLE LE 19/0/0 770 [9967] Start of procedure 737 at location 1776 in chapter 6 [9968] [9968] 73700 TABLE 737 1 0/0/1 5048 [9968] 73702 13 4 0 0 0 0 5 0 7 4 2 0 0 4/0/2 117 [9969] 0/0/1 5050 [9970] 73704 13 6 0 0 0 0 5 0 2 4 0 0 1 16/0/2 37 [9971] 0/0/1 5048 [9972] 73706 13 4 0 0 0 0 5 0 7 4 2 0 0 CONST 4/0/2 117 [9973] 0/0/1 5050 [9974] 73708 13 6 0 0 0 0 5 0 2 4 0 0 0 PARA 0/0/2 37 [9975] 0/0/1 5052 [9976] 73710 13 8 0 0 0 0 5 0 12 4 2 0 0 CONST 4/0/2 197 [9977] 0/0/1 5054 [9978] 73712 13 10 0 0 0 0 5 0 2 4 0 0 1 16/0/2 37 [9979] 0/0/1 5024 [9980] 73714 11 0 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [9981] 0/0/1 5026 [9982] 73716 11 2 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [9983] 0/0/1 5028 [9984] 73718 11 4 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [9985] 0/0/1 5030 [9986] 73720 11 6 0 0 2 0 5 0 0 0 0 0 1 19/0/0 5 [9987] Start of procedure 738 at location 1796 in chapter 6 [9988] [9988] 73800 TABLE 738 3 0/0/1 5092 [9988] 73802 16 16 0 0 0 0 5 0 0 0 0 0 0 0/0/0 5 [9989] 0/0/1 1736 [9990] 73804 735 2 0 0 0 0 5 0 0 0 0 0 0 0/0/0 5 [9991] 0/0/1 5078 [9992] 73806 16 2 0 0 0 0 5 0 0 0 0 0 0 0/0/0 5 [9993] 0/0/1 5079 [9994] 73808 16 3 0 0 0 0 5 0 0 0 0 0 0 SERIAL 0/0/0 5 [9995] Source: DaveJ/Q1000702 0/0/1 1622 [9996] 73810 731 2 0 0 2 0 5 0 0 0 0 0 1 CHAPT' 19/0/0 5 [9997] 0/0/1 1622 [9998] 73812 731 2 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [9999] 0/0/1 5092 [10000] 73814 16 16 0 0 0 0 5 0 3 4 0 0 1 16/0/2 53 [10001] 0/0/1 5093 [10002] 73816 16 17 0 0 0 0 4 1 1 3 0 0 0 PROCR NUMBER 0/0/1 4372 [10003] 0/0/1 1664 [10004] 73818 731 44 0 0 2 0 1 4 0 0 0 0 0 =' 3/0/0 1025 [10005] 0/0/1 5112 [10006] 73820 16 36 0 0 0 0 4 1 0 3 0 0 1 PROCR START 16/0/1 4356 [10007] 0/0/1 5098 [10008] 73822 16 22 0 0 0 0 1 0 4 0 0 0 0 p IND 0/0/0 65 [10009] 0/0/1 5106 [10010] 73824 16 30 0 0 0 0 4 1 3 3 0 0 0 FIRST ADDRESS 0/0/1 4404 [10011] 0/0/1 5098 [10012] 73826 16 22 0 0 0 0 2 3 2 1 0 0 0 PARA 0/0/0 4898 [10013] 0/0/1 1658 [10014] 73828 731 38 0 0 0 0 5 0 4 4 0 0 0 SECOND ADDRESS=Q1-4 0/0/2 69 [10015] 0/0/1 5044 [10016] 73830 13 0 0 0 0 0 2 3 2 1 0 0 0 Q5 0/0/0 4898 [10017] 0/0/1 5045 [10018] 73832 13 1 0 0 0 0 2 3 1 1 0 0 0 Q4 0/0/0 4882 [10019] 0/0/1 5046 [10020] 73834 13 2 0 0 0 0 2 3 1 1 0 0 0 Q3 0/0/0 4882 [10021] 0/0/1 5047 [10022] 73836 13 3 0 0 0 0 2 3 1 1 0 0 0 Q2 0/0/0 4882 [10023] 0/0/1 5048 [10024] 73838 13 4 0 0 0 0 2 3 1 1 0 0 0 Q1 0/0/0 4882 [10025] 0/0/1 5066 [10026] 73840 13 22 0 0 0 0 1 4 3 0 0 0 1 LTE 16/0/0 1073 [10027] 0/0/1 5094 [10028] 73842 16 18 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [10029] 0/0/1 5096 [10030] 73844 16 20 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [10031] 0/0/1 5093 [10032] 73846 16 17 0 0 0 0 4 1 1 3 0 0 1 PROCR NUMBER 16/0/1 4372 [10033] 0/0/1 5044 [10034] 73848 13 0 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [10035] 0/0/1 5046 [10036] 73850 13 2 0 0 2 0 5 0 0 0 0 0 1 19/0/0 5 [10037] 0/0/1 1660 [10038] 73852 731 40 0 0 0 0 5 0 0 4 0 0 1 16/0/2 5 [10039] Start of procedure 739 at location 1848 in chapter 6 [10040] [10040] 73900 TABLE 739 1 0/0/1 5044 [10040] 73902 13 0 0 0 0 0 2 3 6 1 0 0 0 A 0/0/0 4962 [10041] 0/0/1 5101 [10042] 73904 16 25 0 0 0 0 1 4 2 0 0 0 0 D 0/0/0 1057 [10043] 0/0/1 5102 [10044] 73906 16 26 0 0 0 0 1 4 2 0 0 0 0 M 0/0/0 1057 [10045] 0/0/1 5046 [10046] 73908 13 2 0 0 0 0 4 1 2 3 0 0 0 ADDR 0/0/1 4388 [10047] 0/0/1 5048 [10048] 73910 13 4 0 0 0 0 4 1 1 3 0 0 1 PARAMETER 16/0/1 4372 [10049] Start of procedure 740 at location 1858 in chapter 6 [10050] [10050] 74000 CONST 740 1 0/0/0 1 [10050] 74002 (D)1; 00001 +00000 0/0/0 0 [10051] 0/0/0 2 [10052] 74004 2; 00002 +00000 0/0/0 0 [10053] 0/0/0 3 [10054] 74006 3; 00003 +00000 0/0/0 0 [10055] 0/0/0 4 [10056] 74008 4; 00004 +00000 0/0/0 0 [10057] 0/0/0 5 [10058] 74010 5; 00005 +00000 0/0/0 0 [10059] 0/0/0 6 [10060] 74012 6; 00006 +00000 0/0/0 0 [10061] 0/0/0 7 [10062] 74014 7; 00007 +00000 0/0/0 0 [10063] 0/0/0 8 [10064] 74016 8; 00008 +00000 0/0/0 0 [10065] 0/0/0 9 [10066] 74018 9; 00009 +00000 0/0/0 0 [10067] 0/0/0 0 [10068] 74020 0; 00000 +00000 0/0/0 0 [10069] 0/0/0 0 [10070] 74022 0; 00000 +00000 0/0/0 0 [10071] 0/0/0 0 [10072] 74024 0; 00000 +00000 0/0/0 0 [10073] 0/0/0 0 [10074] 74026 0; 00000 +00000 0/0/0 0 [10075] 0/0/0 0 [10076] 74028 0; 00000 +00000 0/0/0 0 [10077] 0/0/0 0 [10078] 74030 0; 00000 +00000 0/0/0 0 [10079] 0/0/0 0 [10080] 74032 0; 00000 +00000 0/0/0 0 [10081] 0/0/0 0 [10082] 74034 0; 00000 +00000 0/0/0 0 [10083] 0/0/0 0 [10084] 74036 0; 00000 +00000 0/0/0 0 [10085] 0/0/0 0 [10086] 74038 0; 00000 +00000 0/0/0 0 [10087] 0/0/0 0 [10088] 74040 0; 00000 +00000 0/0/0 0 [10089] 0/0/0 0 [10090] 74042 0; 00000 +00000 0/0/0 0 [10091] 0/0/0 0 [10092] 74044 0; 00000 +00000 0/0/0 0 [10093] 0/0/0 0 [10094] 74046 0; 00000 +00000 0/0/0 0 [10095] 0/0/0 0 [10096] 74048 0; 00000 +00000 0/0/0 0 [10097] 0/0/0 0 [10098] 74050 0; 00000 +00000 0/0/0 0 [10099] 0/0/0 0 [10100] 74052 0; 00000 +00000 0/0/0 0 [10101] 0/0/0 0 [10102] 74054 0; 00000 +00000 0/0/0 0 [10103] 0/0/0 0 [10104] 74056 0; 00000 +00000 0/0/0 0 [10105] Source: DaveJ/Q1000703 0/0/0 0 [10106] 74058 0; 00000 +00000 0/0/0 0 [10107] Start of procedure 741 at location 1916 in chapter 6 [10108] [10108] 74100 PROCR 741 1000 ENTRIES TO PTS 24/1/0 2539 [10108] 74102 124 757 7 1 0 0 >FROM PROG UNLOAD UNCONDITIONAL JUMP 24/1/0 2194 [10109] 74103 76 746 2 0 0 0 >FROM STORE DUMP START JUMP unconditional 24/1/0 2208 [10110] 74104 124 747 2 1 0 0 >FROM STORE DUMP END ROUTINE UNCONDITIONAL JUMP 24/1/0 2242 [10111] 74105 124 748 2 1 0 0 >FROM TROFL UNCONDITIONAL JUMP 24/1/0 2534 [10112] 74106 124 757 2 1 0 0 >FROM LOADER UNCONDITIONAL JUMP 24/1/0 2535 [10113] 74107 124 757 3 1 0 0 >FROM PROGRAMME UNCONDITIONAL JUMP 24/1/0 2171 [10114] 74108 76 745 63 0 0 0 >FROM'ABANDON VIA MASTER ALARM' JUMP unconditional 24/1/0 2537 [10115] 74109 124 757 5 1 0 0 >FROM OVERLAY(END) UNCONDITIONAL JUMP 24/1/0 2538 [10116] 74110 124 757 6 1 0 0 >FROM OVERLAY(START) UNCONDITIONAL JUMP 24/1/0 2110 [10117] 74111 76 745 2 0 0 0 >FROM'ABANDON BY 2/0/1 COMMAND' JUMP unconditional Start of procedure 742 at location 1926 in chapter 6 [10118] [10118] 74200 CONST 742 1 1001 ANNEXE 1 FOR PASSES 1,2 AND 3 0/0/0 0 [10118] 74202 (D)0; 00000 +00000 0/0/0 0 [10119] 0/0/0 0 [10120] 74204 0; 00000 +00000 0/0/0 0 [10121] 0/0/0 0 [10122] 74206 0; 00000 +00000 0/0/0 0 [10123] 0/0/0 0 [10124] 74208 0; 00000 +00000 0/0/0 0 [10125] 0/0/0 0 [10126] 74210 0; 00000 +00000 0/0/0 0 [10127] 0/0/0 0 [10128] 74212 0; 00000 +00000 0/0/0 0 [10129] 0/0/0 0 [10130] 74214 0; 00000 +00000 0/0/0 0 [10131] 0/0/0 0 [10132] 74216 0; 00000 +00000 0/0/0 0 [10133] 0/0/0 0 [10134] 74218 0; 00000 +00000 0/0/0 0 [10135] 0/0/0 0 [10136] 74220 0; 00000 +00000 0/0/0 0 [10137] 0/0/0 0 [10138] 74222 0; 00000 +00000 0/0/0 0 [10139] 0/0/0 0 [10140] 74224 0; 00000 +00000 0/0/0 0 [10141] 0/0/0 0 [10142] 74226 0; 00000 +00000 0/0/0 0 [10143] 0/0/0 0 [10144] 74228 0; 00000 +00000 0/0/0 0 [10145] 0/0/0 0 [10146] 74230 0; 00000 +00000 0/0/0 0 [10147] 0/0/0 0 [10148] 74232 0; 00000 +00000 0/0/0 0 [10149] 0/0/0 0 [10150] 74234 0; 00000 +00000 0/0/0 0 [10151] 0/0/0 0 [10152] 74236 0; 00000 +00000 0/0/0 0 [10153] 0/0/0 0 [10154] 74238 0; 00000 +00000 0/0/0 0 [10155] 0/0/0 0 [10156] 74240 0; 00000 +00000 0/0/0 0 [10157] 0/0/0 0 [10158] 74242 0; 00000 +00000 0/0/0 0 [10159] 0/0/0 0 [10160] 74244 0; 00000 +00000 0/0/0 0 [10161] 0/0/0 0 [10162] 74246 0; 00000 +00000 0/0/0 0 [10163] 0/0/0 0 [10164] 74248 0; 00000 +00000 0/0/0 0 [10165] 0/0/0 0 [10166] 74250 0; 00000 +00000 0/0/0 0 [10167] 0/0/0 0 [10168] 74252 0; 00000 +00000 0/0/0 0 [10169] 0/0/0 0 [10170] 74254 0; 00000 +00000 0/0/0 0 [10171] Start of procedure 743 at location 1980 in chapter 6 [10172] [10172] 74300 CONST 743 1 1002 ANNEXE 2 FOR PASSES 1,2 AND 3 0/0/0 0 [10172] 74302 (D)0; 00000 +00000 0/0/0 0 [10173] 0/0/0 0 [10174] 74304 0; 00000 +00000 0/0/0 0 [10175] 0/0/0 0 [10176] 74306 0; 00000 +00000 0/0/0 0 [10177] 0/0/0 0 [10178] 74308 0; 00000 +00000 0/0/0 0 [10179] 0/0/0 0 [10180] 74310 0; 00000 +00000 0/0/0 0 [10181] 0/0/0 0 [10182] 74312 0; 00000 +00000 0/0/0 0 [10183] 0/0/0 0 [10184] 74314 0; 00000 +00000 0/0/0 0 [10185] 0/0/0 0 [10186] 74316 0; 00000 +00000 0/0/0 0 [10187] 0/0/0 0 [10188] 74318 0; 00000 +00000 0/0/0 0 [10189] 0/0/0 0 [10190] 74320 0; 00000 +00000 0/0/0 0 [10191] 0/0/0 0 [10192] 74322 0; 00000 +00000 0/0/0 0 [10193] 0/0/0 0 [10194] 74324 0; 00000 +00000 0/0/0 0 [10195] 0/0/0 0 [10196] 74326 0; 00000 +00000 0/0/0 0 [10197] 0/0/0 0 [10198] 74328 0; 00000 +00000 0/0/0 0 [10199] 0/0/0 0 [10200] 74330 0; 00000 +00000 0/0/0 0 [10201] 0/0/0 0 [10202] 74332 0; 00000 +00000 0/0/0 0 [10203] Source: DaveJ/Q1000704 0/0/0 0 [10204] 74334 0; 00000 +00000 0/0/0 0 [10205] 0/0/0 0 [10206] 74336 0; 00000 +00000 0/0/0 0 [10207] 0/0/0 0 [10208] 74338 0; 00000 +00000 0/0/0 0 [10209] 0/0/0 0 [10210] 74340 0; 00000 +00000 0/0/0 0 [10211] 0/0/0 0 [10212] 74342 0; 00000 +00000 0/0/0 0 [10213] 0/0/0 0 [10214] 74344 0; 00000 +00000 0/0/0 0 [10215] 0/0/0 0 [10216] 74346 0; 00000 +00000 0/0/0 0 [10217] 0/0/0 0 [10218] 74348 0; 00000 +00000 0/0/0 0 [10219] 0/0/0 0 [10220] 74350 0; 00000 +00000 0/0/0 0 [10221] 0/0/0 0 [10222] 74352 0; 00000 +00000 0/0/0 0 [10223] 0/0/0 0 [10224] 74354 0; 00000 +00000 0/0/0 0 [10225] Start of procedure 744 at location 2034 in chapter 6 [10226] [10226] 74400 PROCR 744 1003 OVERLAY FOR PTS(WL'S IN PASS 3) 25/1/1 4096 [10226] 74402 125 4096 1 1 0 CLEAR INDICATORS 26/0/0 2283 [10227] 74403 126 749 21 0 0 0 SET(71)FOR MASTER ENTER SUBROUTINE 24/0/3 2104 [10228] 74404 124 744 72 0 3 0 SET UP 64 MODIFY ADDRESS OF NEXT 24/0/3 3 [10229] 74405 124 3 0 3 0 AND 124 MODIFY ADDRESS OF NEXT 6/1/0 198 [10230] 74406 106 198 1 0 0 SELECT (N) 24/0/3 2104 [10231] 74407 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 3/0/0 64 [10232] 74408 103 64 0 0 0 (24) COPY (A) TO N 18/0/1 4123 [10233] 74409 30 0 0 0 5- SHIFT (A) BY QUARTETS 24/0/3 2104 [10234] 74410 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 3/0/0 124 [10235] 74411 103 124 0 0 0 COPY (A) TO N 1/1/3 40 [10236] 74412 101 40 1 3 0 SELECT LITERAL ADDRESS 0/0/2 2102 [10237] 74413 34 744 70 0 0 0 1 SET (N) IN B 26/0/0 2264 [10238] 74414 80 749 2 0 0 0 >BACK 1 I/P->I/P ENTER SUBROUTINE 25/1/1 4096 [10239] 74415 125 4096 1 1 0 CLEAR INDICATORS 24/1/1 2104 [10240] 74416 124 744 72 1 1 0 MOD GROUP 0 SET MODIFICATION GROUP 26/1/1 2522 [10241] 74417 91 755 2 0 1 0 PROG SWITCH SET MODIFICATION REGISTER AT VARIABLE 24/0/3 2104 [10242] 74418 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [10243] 74419 126 0 0 0 0 (50)REQUEST M/R,CLOSE PROGM SWITCH ENTER SUBROUTINE 26/1/1 2302 [10244] 74420 91 751 6 0 1 0 MASTER SWITCH SET MODIFICATION REGISTER AT VARIABLE 1/1/3 7 [10245] 74421 10 0 0 0 7 SELECT LITERAL 24/0/3 2104 [10246] 74422 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 0 [10247] 74423 102 0 0 0 0 (51)SET'OPT A'SWITCH TRANSFER (A) TO N 24/0/3 2104 [10248] 74424 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 64 [10249] 74425 106 64 0 0 0 (24) SELECT (N) 24/0/3 2104 [10250] 74426 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 5/0/0 124 [10251] 74427 105 124 0 0 0 SUBTRACT (N) FROM (A) 27/0/0 2070 [10252] 74428 127 744 38 0 0 0 >YES,AVOID READ JUMP A = Z 24/0/3 2104 [10253] 74429 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 0 [10254] 74430 106 0 0 0 0 (24) SELECT (N) 2/0/0 2108 [10255] 74431 102 744 76 0 0 0 TRANSFER (A) TO N 1/1/3 0 [10256] 74432 101 0 1 3 0 SELECT LITERAL ADDRESS 24/0/3 2104 [10257] 74433 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [10258] 74434 126 0 0 0 0 (7) READ BLOCK TO MR ANNEXES ENTER SUBROUTINE 6/0/0 2108 [10259] 74435 106 744 76 0 0 0 SELECT (N) 24/0/3 2104 [10260] 74436 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 0 [10261] 74437 102 0 0 0 0 (24) TRANSFER (A) TO N 24/1/1 2104 [10262] 74438 124 744 72 1 1 0 MG 0 SET MODIFICATION GROUP 24/0/2 2534 [10263] 74439 124 757 2 0 2 0 SELECT LITERAL AND DIVISION 3/1/0 2534 [10264] 74440 3 757 2 1 0 0 COPY 24/0/3 2104 [10265] 74441 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 2 [10266] 74442 102 2 0 0 0 SET PARA 2 TRANSFER (A) TO N 26/1/2 2534 [10267] 74443 91 757 2 0 2 0 CHUNK START SET MODIFICATION REGISTER AT VARIABLE 1/1/3 2534 [10268] 74444 101 757 2 1 3 0 SELECT LITERAL ADDRESS 24/0/3 2104 [10269] 74445 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 1 [10270] 74446 102 1 0 0 0 SET PARA 1 TRANSFER (A) TO N 1/1/3 0 [10271] 74447 101 0 1 3 0 PARA TABLE START SELECT LITERAL ADDRESS Source: ChuckK/Q1000705 24/0/3 2104 [10272] 74448 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 0 [10273] 74449 123 0 0 2 0 (6) LOAD CHAP SR ENTER MASTER ROUTINE 24/0/2 2096 [10274] 74450 124 744 64 0 2 0 SELECT LITERAL AND DIVISION 4/0/0 2103 [10275] 74451 1 744 71 0 0 0 14 IN Q5 ADD 24/0/3 2522 [10276] 74452 124 755 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 44 [10277] 74453 102 44 0 0 0 SET LINK IN PROG SWITCH TRANSFER (A) TO N 24/0/3 2104 [10278] 74454 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 0 [10279] 74455 102 0 0 0 0 (51)CLEAR 'OPT A' SWITCH TRANSFER (A) TO N 1/1/3 1 [10280] 74456 10 0 0 0 1 SELECT LITERAL 7/0/0 2106 [10281] 74457 4 744 74 0 0 0 STEP PASS IND(-1->0 or 0->1) AUGMENT 24/0/3 2522 [10282] 74458 124 755 2 0 3 0 PROG SWITCH START MODIFY ADDRESS OF NEXT 6/0/0 35 [10283] 74459 106 35 0 0 0 SI+35 SELECT (N) 24/0/3 2522 [10284] 74460 124 755 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 7 [10285] 74461 102 7 0 0 0 >SI+7 (OPEN SWITCH) TRANSFER (A) TO N 24/0/3 2104 [10286] 74462 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 0 [10287] 74463 124 0 1 0 0 >RELEASE MR SWITCH/ENTER PQ/RETURN(38) UNCONDITIONAL JUMP 25/1/1 4096 [10288] 74464 125 4096 1 1 0 CLEAR INDICATORS 26/0/0 2283 [10289] 74465 126 749 21 0 0 0 RESET (71) FOR MASTER ENTER SUBROUTINE 1/1/3 40 [10290] 74466 101 40 1 3 0 SELECT LITERAL ADDRESS 0/0/2 2102 [10291] 74467 34 744 70 0 0 0 SET (N) IN B 26/0/0 2264 [10292] 74468 80 749 2 0 0 0 >SETEP BACK 1 I/P->I/P ENTER SUBROUTINE 24/1/0 2534 [10293] 74469 76 757 2 0 0 0 >ENTER PTS(2,3) JUMP unconditional 0/0/0 1 [10294] 74470 100 1 0 0 0 CONSTS HALT 14/0/0 0 [10295] 74471 114 0 0 0 0 REPLACE SELECTED BITS 0/0/0 0 [10296] 74472 100 0 0 0 0 ZERO HALT 0/0/0 0 [10297] 74473 100 0 0 0 0 (24)PTS CH/ROUTE NO HALT 16/0/0 1 [10298] 74474 116 1 0 0 0 1-=PASS1,0=PASS2,1+PASS3 IN STORE Invalid 0/0/0 0 [10299] 74475 100 0 0 0 0 1=PROGM IN CONTROL,0=PTS IN CONTROL HALT 0/0/0 0 [10300] 74476 100 0 0 0 0 STORE PARA 24 HALT 0/0/0 0 [10301] 74477 100 0 0 0 0 SPARE HALT Start of procedure 745 at location 2110 in chapter 6 [10302] [10302] 74500 PROCR 745 1003A=DISENTANGLE THE ABANDON COMMANDS 24/0/3 2104 [10302] 74502 124 744 72 0 3 0 SET MR3 FOR LOG (2/0/1)COMMAND MODIFY ADDRESS OF NEXT 26/1/3 53 [10303] 74503 126 53 1 3 0 (3)REQUEST QUEUE SET MODIFICATION REGISTER 24/0/3 2104 [10304] 74504 124 744 72 0 3 0 FIND POSITION OP MODIFY ADDRESS OF NEXT 6/0/0 2 [10305] 74505 106 2 0 0 0 THIS PROGRAMS LOG SELECT (N) 24/0/3 2104 [10306] 74506 124 744 72 0 3 0 REQUEST ENTRY MODIFY ADDRESS OF NEXT 5/0/3 2 [10307] 74507 105 2 0 3 0 SUBTRACT (N) FROM (A) 27/0/0 2119 [10308] 74508 127 745 11 0 0 0 >FOUND JUMP A = Z 25/0/3 2 [10309] 74509 125 2 0 3 0 STEP ON AND TEST 24/1/0 2112 [10310] 74510 124 745 4 1 0 0 >NEXT ENTRY UNCONDITIONAL JUMP 24/0/3 2104 [10311] 74511 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 6/0/3 1 [10312] 74512 106 1 0 3 0 LINK IN LOG REQUEST QUEUE SELECT (N) 27/0/0 2129 [10313] 74513 70 745 21 0 0 0 >THIS PROG NOT TRYING TO USE LOG JUMP IF A == 0 1/1/2 0 [10314] 74514 101 0 1 2 0 (54) SUBTRACT LITERAL ADDRESS 27/0/1 2126 [10315] 74515 71 745 18 0 0 0 >THIS PROG NOT TRYING TO OFFER OPTIONS JUMP IF A != 0 24/0/3 2104 [10316] 74516 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 0 [10317] 74517 102 0 0 0 0 (53) DELETE'OPT OUTSTANDING'IND TRANSFER (A) TO N 1/1/3 0 [10318] 74518 10 0 0 0 0 SELECT LITERAL 24/0/3 2104 [10319] 74519 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/3 1 [10320] 74520 102 1 0 3 0 (53)DELETE LOG REQUEST TRANSFER (A) TO N 6/0/0 2106 [10321] 74521 744 74 0 0 0 PASS IND SELECT 27/0/1 2161 [10322] 74522 71 745 53 0 0 0 >NOT PASS 2,ELSE SECOND ABDON JUMP IF A != 0 1/1/3 0 [10323] 74523 101 0 1 3 0 (15)'RC'LINK SELECT LITERAL ADDRESS 3/0/0 2106 [10324] 74524 3 744 74 0 0 0 SET'PASS 3' COPY 3/0/0 2157 [10325] 74525 3 745 49 0 0 0 SET'2/0/1 COMMAND IN PROGRESS' COPY 24/0/3 2104 [10326] 74526 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/1 42 [10327] 74527 102 42 0 1 0 >SI+42 TRANSFER (A) TO N 24/0/3 2104 [10328] 74528 124 744 72 0 3 0 CLEAR ASSOC TIME MODIFY ADDRESS OF NEXT 2/0/1 45 [10329] 74529 102 45 0 1 0 (SI->45) TRANSFER (A) TO N Source: ChuckK/Q1000706 24/0/3 2302 [10330] 74530 124 751 6 0 3 0 MASTER SWITCH START MODIFY ADDRESS OF NEXT 6/0/0 9 [10331] 74531 106 9 0 0 0 SM+9 SELECT (N) 24/0/3 2302 [10332] 74532 124 751 6 0 3 0 SET CLOSED+INTERRUPTIBLE MODIFY ADDRESS OF NEXT 2/0/0 7 [10333] 74533 102 7 0 0 0 >SM+7 TRANSFER (A) TO N 24/0/3 2302 [10334] 74534 124 751 6 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 57 [10335] 74535 106 57 0 0 0 SM+57=SP+9 SELECT (N) 24/0/3 2302 [10336] 74536 124 751 6 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 6 [10337] 74537 102 6 0 0 0 >SM+6 TRANSFER (A) TO N 6/0/0 2107 [10338] 74538 0 744 75 0 0 0 SELECT 27/0/1 2187 [10339] 74539 71 745 79 0 0 0 >PROG IN CONTROL JUMP IF A != 0 24/0/3 2104 [10340] 74540 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 6/0/1 44 [10341] 74541 106 44 0 1 0 PRESENT PTS LINK IN SI+44 SELECT (N) 2/0/0 2192 [10342] 74542 5 745 84 0 0 0 TRANSFER 24/0/2 2187 [10343] 74543 124 745 79 0 2 0 SELECT LITERAL AND DIVISION 4/0/0 2103 [10344] 74544 1 744 71 0 0 0 14 IN Q5 ADD 24/0/3 2104 [10345] 74545 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/1 44 [10346] 74546 102 44 0 1 0 NEW LINK TRANSFER (A) TO N 24/0/3 2522 [10347] 74547 124 755 2 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 7 [10348] 74548 124 7 1 0 0 >SI+7 TO CONTINUE THIS DUMP UNCONDITIONAL JUMP 0/0/0 0 [10349] 74549 100 0 0 0 0 NONZERO='2/0/1 COMMAND IN PROGRESS' HALT 24/1/1 2104 [10350] 74550 124 744 72 1 1 0 MSG 0 SET MODIFICATION GROUP 24/0/3 2104 [10351] 74551 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [10352] 74552 126 0 0 0 0 (50)REQUEST MASTER ENTER SUBROUTINE 24/0/3 2302 [10353] 74553 124 751 6 0 3 0 SET MASTER SWITCH NON-INT MODIFY ADDRESS OF NEXT 6/0/0 58 [10354] 74554 106 58 0 0 0 SM+58=SP+10 SELECT (N) 24/0/3 2302 [10355] 74555 124 751 6 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 6 [10356] 74556 102 6 0 0 0 >SM+6 TRANSFER (A) TO N 24/0/3 2104 [10357] 74557 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 44 [10358] 74558 102 44 0 0 0 (3)CLEAR'TRIAL'IND TRANSFER (A) TO N 24/1/1 2104 [10359] 74559 124 744 72 1 1 0 MG 0 SET MODIFICATION GROUP 1/1/3 0 [10360] 74560 10 0 0 0 0 *FORMED ORDER* 0/2='ABDON/END' SELECT LITERAL 24/0/3 2104 [10361] 74561 124 744 72 0 3 0 >RETURN TO'ABDON'COMMENT MODIFY ADDRESS OF NEXT 24/1/0 0 [10362] 74562 124 0 1 0 0 (34) UNCONDITIONAL JUMP 6/0/0 2157 [10363] 74563 0 745 49 0 0 0 '2/0/1'IND (ABANDON OPTION) SELECT 27/0/0 2177 [10364] 74564 70 745 69 0 0 0 >NO JUMP IF A == 0 1/1/3 1 [10365] 74565 101 1 1 3 0 (15)1*'RC' LINK SELECT LITERAL ADDRESS 5/0/0 2106 [10366] 74566 2 744 74 0 0 0 SUBTRACT 27/0/0 2158 [10367] 74567 70 745 50 0 0 0 >DURING PASS 3 JUMP IF A == 0 24/1/0 2161 [10368] 74568 76 745 53 0 0 0 >SOMETIME IN PASS 2 JUMP unconditional 6/0/0 2106 [10369] 74569 0 744 74 0 0 0 PASS IND SELECT 27/0/1 2158 [10370] 74570 71 745 50 0 0 0 >1 OR 3 JUMP IF A != 0 6/0/0 2107 [10371] 74571 0 744 75 0 0 0 CONTROL IND SELECT 27/0/0 2158 [10372] 74572 70 745 50 0 0 0 >PTS IN CONTROL JUMP IF A == 0 1/1/3 0 [10373] 74573 101 0 1 3 0 (15)'RC' LINK SELECT LITERAL ADDRESS 3/0/0 2106 [10374] 74574 3 744 74 0 0 0 SET'PTS 3' COPY 24/0/3 2104 [10375] 74575 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/1 42 [10376] 74576 102 42 0 1 0 >SI+42 TRANSFER (A) TO N 24/0/3 2104 [10377] 74577 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/1 45 [10378] 74578 102 45 0 1 0 CLEAR ASSOC TIME TRANSFER (A) TO N 1/1/3 0 [10379] 74579 10 0 0 0 0 SELECT LITERAL 1/0/1 4 [10380] 74580 35 0 0 0 100 PREPARE FOR DIGIT COLLATION 14/0/0 2555 [10381] 74581 37 757 23 0 0 0 CLEAR Q3=DISCARDS (2001/23) REPLACE SELECTED BITS Source: ChuckK/Q1000707 26/0/0 2542 [10382] 74582 126 757 10 0 0 0 >TYPE'OP ABANDONS(PROG)' (2001/10) ENTER SUBROUTINE 26/0/1 2192 [10383] 74583 126 745 84 0 1 0 LEAVE SUBROUTINE 0/0/0 0 [10384] 74584 100 0 0 0 0 FORMED PASS 1=1014/4 HALT 1/1/3 2 [10385] 74585 10 0 0 0 2 ORDER CONST SELECT LITERAL Start of procedure 746 at location 2194 in chapter 6 [10386] [10386] 74600 PROCR 746 1004 STORE DUMP (START) 24/0/3 2105 [10386] 74602 124 744 73 0 3 0 TEST TAPE HAS JUST BEEN REWOUND MODIFY ADDRESS OF NEXT 6/0/0 0 [10387] 74603 106 0 0 0 0 (36) SELECT (N) 18/0/0 4124 [10388] 74604 118 4124 0 0 0 ;JUST BEEN REWOUND SHIFT LOGICAL 27/0/0 2200 [10389] 74605 127 746 8 0 0 0 >NO JUMP A = Z 25/1/2 0 [10390] 74606 125 0 1 2 0 INTERROGATE INDICATORS 24/1/0 2203 [10391] 74607 124 746 11 1 0 0 > UNCONDITIONAL JUMP 24/0/3 2104 [10392] 74608 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 35 [10393] 74609 124 35 0 3 0 (3)BLOCK CTRS MODIFY ADDRESS OF NEXT 6/0/0 0 [10394] 74610 106 0 0 0 0 (24)PTS ROUTE SELECT (N) 2/0/0 2297 [10395] 74611 102 750 5 0 0 0 ;SERIAL NO TRANSFER (A) TO N 1/1/3 27 [10396] 74612 101 27 1 3 0 ;CLOSE STORE SELECT LITERAL ADDRESS 26/0/0 2264 [10397] 74613 80 749 2 0 0 0 .CLOSE I/P FILE ENTER SUBROUTINE 24/0/3 2104 [10398] 74614 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 0 [10399] 74615 124 0 1 0 0 (37) UNCONDITIONAL JUMP Start of procedure 747 at location 2208 in chapter 6 [10400] [10400] 74700 PROCR 747 1005 STORE DUMP (END) 1/1/3 0 [10400] 74702 10 0 0 0 0 SELECT LITERAL 1/0/1 16 [10401] 74703 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION 24/0/3 2105 [10402] 74704 124 744 73 0 3 0 PROG ROUTE MODIFY ADDRESS OF NEXT 14/0/0 0 [10403] 74705 114 0 0 0 0 (36)CLEAR Q5='REWIND'IND REPLACE SELECTED BITS 6/0/0 2297 [10404] 74706 106 750 5 0 0 0 ;TEST PTS TAPE TO SELECT (N) 27/0/0 2240 [10405] 74707 127 747 34 0 0 0 >NO;BE REALIGNED JUMP A = Z 0/1/2 2298 [10406] 74708 34 751 2 1 0 0 SET (N) IN B 1/1/3 17 [10407] 74709 101 17 1 3 0 SELECT LITERAL ADDRESS 26/0/0 2264 [10408] 74710 80 749 2 0 0 0 >OPEN I/P FILE ENTER SUBROUTINE 0/0/3 2296 [10409] 74711 100 750 4 0 3 0 DEC SET RADIX 1/1/3 0 [10410] 74712 10 0 0 0 0 SELECT LITERAL 1/1/2 1 [10411] 74713 12 0 0 0 1 SUBTRACT LITERAL 7/0/0 2297 [10412] 74714 4 750 5 0 0 0 STEP DOWN REQUIRED BLOCK AUGMENT 0/0/3 2104 [10413] 74715 100 744 72 0 3 0 BIN SET RADIX 1/1/3 10 [10414] 74716 101 10 1 3 0 WORD 10=IDENTIFIER LOCN SELECT LITERAL ADDRESS 18/0/1 5 [10415] 74717 30 0 0 0 5 SHIFT (A) BY QUARTETS 24/0/3 2104 [10416] 74718 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 4/0/0 55 [10417] 74719 104 55 0 0 0 (3)PARA 55=IDENTIFIER VALUE ADD (N) TO (A) 18/1/1 4118 [10418] 74720 32 0 0 0 10- SHIFT (AB) BY QUARTETS 1/1/3 37 [10419] 74721 101 37 1 3 0 SELECT LITERAL ADDRESS 26/0/0 2264 [10420] 74722 80 749 2 0 0 0 >RUN FWD TO MACHINE CODE START ENTER SUBROUTINE 1/1/3 0 [10421] 74723 10 0 0 0 0 DUMMY SELECT LITERAL 1/1/3 62 [10422] 74724 101 62 1 3 0 STORE DUMP PSEUDO SELECT LITERAL ADDRESS 18/1/1 4118 [10423] 74725 32 0 0 0 10- SHIFT (AB) BY QUARTETS 1/1/3 7 [10424] 74726 101 7 1 3 0 ;REALIGN TAPE SELECT LITERAL ADDRESS 26/0/0 2264 [10425] 74727 80 749 2 0 0 0 >READ;USING MR ANNEXES ENTER SUBROUTINE 24/0/3 2104 [10426] 74728 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 126 [10427] 74729 124 126 0 3 0 STORE PSEUDO MODIFY ADDRESS OF NEXT 6/1/0 1 [10428] 74730 106 1 1 0 0 SELECT (N) 5/0/0 2297 [10429] 74731 2 750 5 0 0 0 REQUIRED BLOCK SUBTRACT 27/0/1 2230 [10430] 74732 71 747 24 0 0 0 >NOT YET JUMP IF A != 0 25/1/1 4096 [10431] 74733 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 2104 [10432] 74734 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 0 [10433] 74735 124 0 1 0 0 (52) UNCONDITIONAL JUMP Start of procedure 748 at location 2242 in chapter 6 [10434] [10434] 74800 PROCR 748 1006 TRIAL OVER FLOW 24/0/3 2104 [10434] 74802 124 744 72 0 3 0 STORE POSN OF OFLOW CONSTANT MODIFY ADDRESS OF NEXT 6/0/0 0 [10435] 74803 106 0 0 0 0 (39) SELECT (N) Source: ChuckK/Q1000708 2/0/0 2297 [10436] 74804 102 750 5 0 0 0 TRANSFER (A) TO N 24/0/2 2300 [10437] 74805 124 751 4 0 2 0 AMEND EDIT TABLE SELECT LITERAL AND DIVISION 24/0/3 2104 [10438] 74806 124 744 72 0 3 0 AMEND EDIT TABLE MODIFY ADDRESS OF NEXT 2/0/0 0 [10439] 74807 102 0 0 0 0 (39) TRANSFER (A) TO N 1/1/3 0 [10440] 74808 101 0 1 3 0 (39) SELECT LITERAL ADDRESS 24/0/3 2104 [10441] 74809 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 28/1/2 0 [10442] 74810 128 0 1 2 0 (10) EDIT FIXED FIELD FORMATS 24/0/3 2104 [10443] 74811 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 6/0/1 38 [10444] 74812 106 38 0 1 0 MOVE (24) SELECT (N) 24/0/3 2104 [10445] 74813 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/1 44 [10446] 74814 102 44 0 1 0 TRANSFER (A) TO N 24/0/3 2104 [10447] 74815 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 6/0/1 35 [10448] 74816 106 35 0 1 0 SET S1=4 SELECT (N) 24/0/3 2104 [10449] 74817 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/1 7 [10450] 74818 102 7 0 1 0 TRANSFER (A) TO N 6/0/0 2297 [10451] 74819 106 750 5 0 0 0 RESTORE EDIT TABLE SELECT (N) 24/0/3 2104 [10452] 74820 124 744 72 0 3 0 RESTORE EDIT TABLE MODIFY ADDRESS OF NEXT 2/0/0 0 [10453] 74821 102 0 0 0 0 (39) TRANSFER (A) TO N 24/0/3 2104 [10454] 74822 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 0 [10455] 74823 124 0 1 0 0 (41) UNCONDITIONAL JUMP Start of procedure 749 at location 2264 in chapter 6 [10456] [10456] 74900 PROCR 749 1007 I/P O/P S/R RTE 7 0/0/0 0 [10456] 74902 100 0 0 0 0 LINK HALT 18/0/0 5 [10457] 74903 118 5 0 0 0 FORM PARAMETER SHIFT LOGICAL 1/1/1 0 [10458] 74904 101 0 1 1 0 (24) ADD LITERAL ADDRESS 25/1/1 4096 [10459] 74905 125 4096 1 1 0 SET NON INT CLEAR INDICATORS 24/0/3 2294 [10460] 74906 124 750 2 0 3 0 MODIFY DIVISION MODIFY ADDRESS OF NEXT 23/0/2 160 [10461] 74907 123 160 0 2 0 ENTER MASTER ROUTINE 26/0/1 2264 [10462] 74908 126 749 2 0 1 0 >LEAVE S/R LEAVE SUBROUTINE 0/0/0 0 [10463] 74909 100 0 0 0 0 ;SWOP 64*R S/R HALT 24/0/3 2104 [10464] 74910 124 744 72 0 3 0 STORE(64*R) MODIFY ADDRESS OF NEXT 6/0/0 64 [10465] 74911 106 64 0 0 0 SELECT (N) 2/0/0 2281 [10466] 74912 102 749 19 0 0 0 TRANSFER (A) TO N 6/0/0 2282 [10467] 74913 106 749 20 0 0 0 RESET(64*R) SELECT (N) 24/0/3 2104 [10468] 74914 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 64 [10469] 74915 102 64 0 0 0 TRANSFER (A) TO N 6/0/0 2281 [10470] 74916 106 749 19 0 0 0 STORE NEXT(64*R) SELECT (N) 2/0/0 2282 [10471] 74917 102 749 20 0 0 0 TRANSFER (A) TO N 26/0/1 2271 [10472] 74918 126 749 9 0 1 0 >LEAVE S/R LEAVE SUBROUTINE 0/0/0 0 [10473] 74919 100 0 0 0 0 STORES FOR (64*R) HALT 0/0/0 0 [10474] 74920 100 0 0 0 0 HALT 0/0/0 0 [10475] 74921 100 0 0 0 0 HALT 24/0/3 2294 [10476] 74922 124 750 2 0 3 0 INTERCHANGE VALUES MODIFY ADDRESS OF NEXT 0/0/2 24 [10477] 74923 100 24 0 2 0 (3)OF PARAMETER 24 REPLACE (B) BY (N) 6/0/0 2293 [10478] 74924 106 749 31 0 0 0 SELECT (N) 24/0/3 2294 [10479] 74925 124 750 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 24 [10480] 74926 102 24 0 0 0 (3) TRANSFER (A) TO N 18/1/1 10 [10481] 74927 32 0 0 0 10 SHIFT (AB) BY QUARTETS 2/0/0 2293 [10482] 74928 102 749 31 0 0 0 TRANSFER (A) TO N 26/0/0 2271 [10483] 74929 126 749 9 0 0 0 ENTER SUBROUTINE 26/0/1 2283 [10484] 74930 126 749 21 0 1 0 >LEAVE(S) LEAVE SUBROUTINE 0/0/0 0 [10485] 74931 100 0 0 0 0 (24) HALT Start of procedure 750 at location 2294 in chapter 6 [10486] [10486] 75000 CONST 750 0 1008 W/L'S USED BY GENERAL CODING 0/0/0 0 [10486] 75002 (D)00000; +00000 0/0/0 2 [10487] 75003 00002; +00002 6/0/3 1638 [10488] 75004 66666; +66666 0/0/0 0 [10489] 75005 00000; O'LAY AND STORE DUMP W/L +00000 Start of procedure 751 at location 2298 in chapter 6 [10490] [10490] 75100 CONST 751 1 1009 LONG CONSTANTS UDED BY GENERAL CODING Source: ChuckK/Q1000709 0/1/0 0 [10490] 75102 (D)0514808000; STORE DUMP I/P O/P CST 08000 +05148 0/0/2 4424 [10491] 6/0/2 5731 [10492] 75104 (A)TROFL; 65663 +73696 7/0/1 5782 [10493] 0/0/0 48 [10494] 75106 0; WL FOR MASTER SWITCH START 00030 +00000 0/0/0 0 [10495] 0/0/0 48 [10496] 75108 0; 8-31=UNPACK WL'S IN PASS 3 00030 +00000 0/0/0 0 [10497] 0/0/0 48 [10498] 75110 0; 00030 +00000 0/0/0 0 [10499] 0/0/0 48 [10500] 75112 0; 00030 +00000 0/0/0 0 [10501] 0/0/0 48 [10502] 75114 0; 00030 +00000 0/0/0 0 [10503] 0/0/0 48 [10504] 75116 0; 00030 +00000 0/0/0 0 [10505] 0/0/0 48 [10506] 75118 0; 00030 +00000 0/0/0 0 [10507] 0/0/0 48 [10508] 75120 0; 00030 +00000 0/0/0 0 [10509] 0/0/0 48 [10510] 75122 0; 00030 +00000 0/0/0 0 [10511] 0/0/0 48 [10512] 75124 0; 00030 +00000 0/0/0 0 [10513] 0/0/0 48 [10514] 75126 0; 00030 +00000 0/0/0 0 [10515] 0/0/0 48 [10516] 75128 0; 00030 +00000 0/0/0 0 [10517] 0/0/0 48 [10518] 75130 0; 00030 +00000 0/0/0 0 [10519] 0/0/0 48 [10520] 75132 0; 00030 +00000 0/0/0 0 [10521] 0/0/0 48 [10522] 75134 0; START OF 256-LOCN PRINT ANNEX PASS 3 00030 +00000 0/0/0 0 [10523] 0/0/0 48 [10524] 75136 0; 00030 +00000 0/0/0 0 [10525] 0/0/0 48 [10526] 75138 0; 00030 +00000 0/0/0 0 [10527] 0/0/0 48 [10528] 75140 0; 00030 +00000 0/0/0 0 [10529] 0/0/0 48 [10530] 75142 0; 00030 +00000 0/0/0 0 [10531] 0/0/0 48 [10532] 75144 0; 00030 +00000 0/0/0 0 [10533] Start of procedure 752 at location 2342 in chapter 6 [10534] [10534] 75200 CONST 752 1 1010 LIST AND PRINTER ANNEXE 0/0/0 0 [10534] 75202 (D)0; I/O SERIAL;ABS ADDRESS 00000 +00000 0/0/0 0 [10535] 0/0/0 0 [10536] 75204 0; REPLACED INSTRUCTIONS 00000 +00000 0/0/0 0 [10537] 0/0/0 0 [10538] 75206 0; CHAP,24 IND,TYPE;N1 ALLOC CHAP,N2 00000 +00000 0/0/0 0 [10539] 0/0/0 0 [10540] 75208 0; SEON START+LENGTH;SECN START 00000 +00000 0/0/0 0 [10541] 0/0/0 0 [10542] 75210 0; SEON NUMBER 00000 +00000 0/0/0 0 [10543] 0/0/0 0 [10544] 75212 0; 00000 +00000 0/0/0 0 [10545] 0/0/0 0 [10546] 75214 0; SUBSEQUENT SECNS 00000 +00000 0/0/0 0 [10547] 0/0/0 0 [10548] 75216 0; 00000 +00000 0/0/0 0 [10549] 0/0/0 0 [10550] 75218 0; 00000 +00000 0/0/0 0 [10551] 0/0/0 0 [10552] 75220 0; 2ND PM POINT 00000 +00000 0/0/0 0 [10553] 0/0/0 0 [10554] 75222 0; 00000 +00000 0/0/0 0 [10555] 0/0/0 0 [10556] 75224 0; 00000 +00000 0/0/0 0 [10557] 0/0/0 0 [10558] 75226 0; 00000 +00000 0/0/0 0 [10559] 0/0/0 0 [10560] 75228 0; 00000 +00000 0/0/0 0 [10561] 0/0/0 0 [10562] 75230 0; 00000 +00000 0/0/0 0 [10563] 0/0/0 0 [10564] 75232 0; 00000 +00000 0/0/0 0 [10565] 0/0/0 0 [10566] 75234 0; 00000 +00000 0/0/0 0 [10567] 0/0/0 0 [10568] 75236 0; 00000 +00000 0/0/0 0 [10569] 0/0/0 0 [10570] 75238 0; 3RD PM POINT 00000 +00000 0/0/0 0 [10571] 0/0/0 0 [10572] 75240 0; 00000 +00000 0/0/0 0 [10573] 0/0/0 0 [10574] 75242 0; 00000 +00000 0/0/0 0 [10575] 0/0/0 0 [10576] 75244 0; 00000 +00000 0/0/0 0 [10577] 0/0/0 0 [10578] 75246 0; 00000 +00000 0/0/0 0 [10579] 0/0/0 0 [10580] 75248 0; 00000 +00000 0/0/0 0 [10581] 0/0/0 0 [10582] 75250 0; 00000 +00000 0/0/0 0 [10583] 0/0/0 0 [10584] 75252 0; 00000 +00000 0/0/0 0 [10585] 0/0/0 0 [10586] 75254 0; 00000 +00000 0/0/0 0 [10587] Start of procedure 753 at location 2396 in chapter 6 [10588] [10588] 75300 CONST 753 1 1011 UNPACKED I/P AND LIST 0/0/0 0 [10588] 75302 (D)0; 4TH PM POINT 00000 +00000 0/0/0 0 [10589] 0/0/0 0 [10590] 75304 0; 00000 +00000 0/0/0 0 [10591] 0/0/0 0 [10592] 75306 0; 00000 +00000 0/0/0 0 [10593] 0/0/0 0 [10594] 75308 0; 00000 +00000 0/0/0 0 [10595] 0/0/0 0 [10596] 75310 0; 00000 +00000 0/0/0 0 [10597] 0/0/0 0 [10598] 75312 0; 00000 +00000 0/0/0 0 [10599] 0/0/0 0 [10600] 75314 0; 00000 +00000 0/0/0 0 [10601] Source: ChuckK/Q1000710 0/0/0 0 [10602] 75316 0; 00000 +00000 0/0/0 0 [10603] 0/0/0 0 [10604] 75318 0; 00000 +00000 0/0/0 0 [10605] 0/0/0 0 [10606] 75320 0; 5TH PM POINT 00000 +00000 0/0/0 0 [10607] 0/0/0 0 [10608] 75322 0; 00000 +00000 0/0/0 0 [10609] 0/0/0 0 [10610] 75324 0; 00000 +00000 0/0/0 0 [10611] 0/0/0 0 [10612] 75326 0; 00000 +00000 0/0/0 0 [10613] 0/0/0 0 [10614] 75328 0; 00000 +00000 0/0/0 0 [10615] 0/0/0 0 [10616] 75330 0; 00000 +00000 0/0/0 0 [10617] 0/0/0 0 [10618] 75332 0; 00000 +00000 0/0/0 0 [10619] 0/0/0 0 [10620] 75334 0; 00000 +00000 0/0/0 0 [10621] 0/0/0 0 [10622] 75336 0; 00000 +00000 0/0/0 0 [10623] Start of procedure 754 at location 2432 in chapter 6 [10624] [10624] 75400 CONST 754 1 1012 LIST CONTINUED 0/0/0 0 [10624] 75402 (D)0; 6TH PM POINT 00000 +00000 0/0/0 0 [10625] 0/0/0 0 [10626] 75404 0; 00000 +00000 0/0/0 0 [10627] 0/0/0 0 [10628] 75406 0; 00000 +00000 0/0/0 0 [10629] 0/0/0 0 [10630] 75408 0; 00000 +00000 0/0/0 0 [10631] 0/0/0 0 [10632] 75410 0; 00000 +00000 0/0/0 0 [10633] 0/0/0 0 [10634] 75412 0; 00000 +00000 0/0/0 0 [10635] 0/0/0 0 [10636] 75414 0; 00000 +00000 0/0/0 0 [10637] 0/0/0 0 [10638] 75416 0; 00000 +00000 0/0/0 0 [10639] 0/0/0 0 [10640] 75418 0; 00000 +00000 0/0/0 0 [10641] 0/0/0 0 [10642] 75420 0; 7TH PM POINT 00000 +00000 0/0/0 0 [10643] 0/0/0 0 [10644] 75422 0; 00000 +00000 0/0/0 0 [10645] 0/0/0 0 [10646] 75424 0; 00000 +00000 0/0/0 0 [10647] 0/0/0 0 [10648] 75426 0; 00000 +00000 0/0/0 0 [10649] 0/0/0 0 [10650] 75428 0; 00000 +00000 0/0/0 0 [10651] 0/0/0 0 [10652] 75430 0; 00000 +00000 0/0/0 0 [10653] 0/0/0 0 [10654] 75432 0; 00000 +00000 0/0/0 0 [10655] 0/0/0 0 [10656] 75434 0; 00000 +00000 0/0/0 0 [10657] 0/0/0 0 [10658] 75436 0; 00000 +00000 0/0/0 0 [10659] 0/0/0 0 [10660] 75438 0; 8TH PM POINT 00000 +00000 0/0/0 0 [10661] 0/0/0 0 [10662] 75440 0; 00000 +00000 0/0/0 0 [10663] 0/0/0 0 [10664] 75442 0; 00000 +00000 0/0/0 0 [10665] 0/0/0 0 [10666] 75444 0; 00000 +00000 0/0/0 0 [10667] 0/0/0 0 [10668] 75446 0; 00000 +00000 0/0/0 0 [10669] 0/0/0 0 [10670] 75448 0; 00000 +00000 0/0/0 0 [10671] 0/0/0 0 [10672] 75450 0; 00000 +00000 0/0/0 0 [10673] 0/0/0 0 [10674] 75452 0; 00000 +00000 0/0/0 0 [10675] 0/0/0 0 [10676] 75454 0; 00000 +00000 0/0/0 0 [10677] 0/0/0 0 [10678] 75456 0; 9TH PM POINT 00000 +00000 0/0/0 0 [10679] 0/0/0 0 [10680] 75458 0; 00000 +00000 0/0/0 0 [10681] 0/0/0 0 [10682] 75460 0; 00000 +00000 0/0/0 0 [10683] 0/0/0 0 [10684] 75462 0; 00000 +00000 0/0/0 0 [10685] 0/0/0 0 [10686] 75464 0; 00000 +00000 0/0/0 0 [10687] 0/0/0 0 [10688] 75466 0; 00000 +00000 0/0/0 0 [10689] 0/0/0 0 [10690] 75468 0; 00000 +00000 0/0/0 0 [10691] 0/0/0 0 [10692] 75470 0; 00000 +00000 0/0/0 0 [10693] 0/0/0 0 [10694] 75472 0; 00000 +00000 0/0/0 0 [10695] 0/0/0 0 [10696] 75474 0; 10TH PM POINT 00000 +00000 0/0/0 0 [10697] 0/0/0 0 [10698] 75476 0; 00000 +00000 0/0/0 0 [10699] 0/0/0 0 [10700] 75478 0; 00000 +00000 0/0/0 0 [10701] 0/0/0 0 [10702] 75480 0; 00000 +00000 0/0/0 0 [10703] 0/0/0 0 [10704] 75482 0; 00000 +00000 0/0/0 0 [10705] 0/0/0 0 [10706] 75484 0; 00000 +00000 0/0/0 0 [10707] 0/0/0 0 [10708] 75486 0; 00000 +00000 0/0/0 0 [10709] 0/0/0 0 [10710] 75488 0; 00000 +00000 0/0/0 0 [10711] 0/0/0 0 [10712] 75490 0; 00000 +00000 0/0/0 0 [10713] Start of procedure 755 at location 2522 in chapter 6 [10714] [10714] 75500 CONST 755 0 1013 W/L'S COMMON TO PASSES 1 AND 2 Source: DaveJ/Q1000711 0/0/0 0 [10714] 75502 (D)0; START OF SWITCH OF TRIAL PROG +00000 0/0/0 0 [10715] 75503 0; START OF SP CHAP OF TRIAL PROG +00000 0/0/0 0 [10716] 75504 0; NO OF PARAMETERS+1 +00000 0/0/0 0 [10717] 75505 0; NO OF INITIAL CHAPS +00000 0/0/0 0 [10718] 75506 0; MOD GROUPX8 +00000 0/0/0 0 [10719] 75507 ; PROG'S ENTRY POINT +00000 0/0/0 0 [10720] 75508 ; (A)ON ENTRY TO PROG +00000 0/0/0 0 [10721] 75509 ; (B) ON ENTRY TO PROG +00000 0/0/0 0 [10722] 75510 ; (C) ON ENTRY TO PROG +00000 0/0/0 0 [10723] 75511 0; 2ND HALF(B) +00000 0/0/0 0 [10724] 75512 0; (C) +00000 0/0/0 0 [10725] 75513 0; SPARE +00000 Start of procedure 756 at location 2534 in chapter 6 [10726] [10726] 75600 PROCR 756 ACHTUNG:IF THE NEXT PROCR IS ALTERED [10726] 75601 NOTES RADIX PROCR 1003 MUST BE CHANGED-IT ADDRESSES 2001 AS 1014 Start of procedure 757 at location 2534 in chapter 6 [10726] [10726] 75700 PROCR 757 1014 STORE DETAILS (1) 2/1/0 2904 [10726] 75702 5 772 4 1 0 0 TRIAL DATA IND Q1-5,LOSE SIGN->WL TRANSFER 25/1/1 4096 [10727] 75703 125 4096 1 1 0 SET NON INT CLEAR INDICATORS 24/0/3 2884 [10728] 75704 124 770 8 0 3 0 MODIFY ADDRESS OF NEXT 6/1/0 2 [10729] 75705 106 2 1 0 0 R1 OF MG 0 SELECT (N) 2/1/0 2302 [10730] 75706 5 751 6 1 0 0 MASTER PROG SWITCH TRANSFER 24/0/3 2884 [10731] 75707 124 770 8 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 44 [10732] 75708 106 44 0 0 0 (3)SWITCH START EX PLS PARAS SELECT (N) 2/0/0 2522 [10733] 75709 102 755 2 0 0 0 TRANSFER (A) TO N 24/0/3 2522 [10734] 75710 124 755 2 0 3 0 START OF SP CHAP MODIFY ADDRESS OF NEXT 6/0/0 37 [10735] 75711 106 37 0 0 0 SELECT (N) 2/0/0 2523 [10736] 75712 102 755 3 0 0 0 TRANSFER (A) TO N 6/1/0 2522 [10737] 75713 106 755 2 1 0 0 SET (MR1)(MG0)FOR PROG UNDER TRIAL SELECT (N) 24/0/3 2884 [10738] 75714 124 770 8 0 3 0 MODIFY ADDRESS OF NEXT 2/1/0 2 [10739] 75715 102 2 1 0 0 TRANSFER (A) TO N 24/0/3 2522 [10740] 75716 124 755 2 0 3 0 STORE (A),(B),© ON ENTRY TO PROG MODIFY ADDRESS OF NEXT 0/1/1 30 [10741] 75717 100 30 1 1 0 REPLACE REGISTERS 0/1/0 2528 [10742] 75718 100 755 8 1 0 0 COPY REGISTERS 0/0/3 2104 [10743] 75719 100 744 72 0 3 0 SET RADIX 24/0/3 2522 [10744] 75720 124 755 2 0 3 0 STORE ENTRY POINT MODIFY ADDRESS OF NEXT 6/0/0 44 [10745] 75721 106 44 0 0 0 SELECT (N) 2/0/0 2527 [10746] 75722 102 755 7 0 0 0 TRANSFER (A) TO N 6/1/0 2930 [10747] 75723 106 775 2 1 0 0 CLEAR LIST SELECT (N) 28/0/0 2342 [10748] 75724 128 752 2 0 0 0 BULK COPY SHORT NUMERIC 24/0/3 2522 [10749] 75725 124 755 2 0 3 0 SET PROGS MOD GROUP MODIFY ADDRESS OF NEXT 24/1/1 29 [10750] 75726 124 29 1 1 0 SET MODIFICATION GROUP 26/1/2 2523 [10751] 75727 126 755 3 1 2 0 SET (MR2)=SP CHAP START SET MODIFICATION REGISTER 24/0/3 2104 [10752] 75728 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 6/0/2 14 [10753] 75729 106 14 0 2 0 STORE NO OF PARAMETERS+1 SELECT (N) 2/0/0 2524 [10754] 75730 102 755 4 0 0 0 TRANSFER (A) TO N 24/0/3 2104 [10755] 75731 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 6/0/2 4 [10756] 75732 106 4 0 2 0 STORE NO OF INITIAL CHAPS SELECT (N) 2/0/0 2525 [10757] 75733 102 755 5 0 0 0 TRANSFER (A) TO N 24/0/3 2104 [10758] 75734 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 6/0/2 1 [10759] 75735 106 1 0 2 0 STORE 8XMOD GROUP SELECT (N) 18/0/3 3 [10760] 75736 118 3 0 3 0 SHIFT BINARY 2/0/0 2526 [10761] 75737 102 755 6 0 0 0 TRANSFER (A) TO N 24/0/2 2536 [10762] 75738 124 757 4 0 2 0 SELECT LITERAL AND DIVISION 2/0/0 2192 [10763] 75739 5 745 84 0 0 0 SET LINK FOR'ABDON' TRANSFER 1/1/3 0 [10764] 75740 10 0 0 0 0 DUMMY ORDER SELECT LITERAL 6/0/0 2876 [10765] 75741 106 769 4 0 0 0 SELECT (N) 2/0/0 2282 [10766] 75742 102 749 20 0 0 0 TRANSFER (A) TO N 26/0/0 2271 [10767] 75743 126 749 9 0 0 0 SET(71)FOR PTS ENTER SUBROUTINE Source: DaveJ/Q1000712 6/0/0 2877 [10768] 75744 106 769 5 0 0 0 SELECT (N) 24/0/3 2104 [10769] 75745 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 123 [10770] 75746 102 123 0 0 0 TRANSFER (A) TO N 1/1/3 2342 [10771] 75747 101 752 2 1 3 0 SET MR1 AT SELECT LITERAL ADDRESS 7/0/0 2893 [10772] 75748 107 770 17 0 0 0 START AND END OF LIST AUGMENT (N) BY (A) 2/0/0 2892 [10773] 75749 102 770 16 0 0 0 TRANSFER (A) TO N 26/1/1 2892 [10774] 75750 126 770 16 1 1 0 SET MODIFICATION REGISTER 0/0/2 2900 [10775] 75751 100 771 6 0 2 0 STEP PROG TAPE REPLACE (B) BY (N) 1/1/3 40 [10776] 75752 101 40 1 3 0 BACK ONE BLOCK SELECT LITERAL ADDRESS 26/0/0 2264 [10777] 75753 126 749 2 0 0 0 g ENTER SUBROUTINE Start of procedure 758 at location 2586 in chapter 6 [10778] [10778] 75800 PROCR 758 1015 TEST DIRECTIVE 0/0/2 2897 [10778] 75802 100 771 3 0 2 0 READ PROG TAPE REPLACE (B) BY (N) 1/1/3 7 [10779] 75803 101 7 1 3 0 SELECT LITERAL ADDRESS 26/0/0 2264 [10780] 75804 126 749 2 0 0 0 > ENTER SUBROUTINE 24/1/2 2896 [10781] 75805 124 771 2 1 2 0 MODIFY ADDRESS OF NEXT 6/1/0 4 [10782] 75806 106 4 1 0 0 TEST=FILES SELECT (N) 5/1/0 2880 [10783] 75807 105 770 4 1 0 0 SUBTRACT (N) FROM (A) 27/0/0 2600 [10784] 75808 127 759 2 0 0 0 >YES JUMP A = Z 4/1/0 2880 [10785] 75809 104 770 4 1 0 0 TEST=CHAPT ADD (N) TO (A) 5/1/0 2878 [10786] 75810 105 770 2 1 0 0 SUBTRACT (N) FROM (A) 27/0/0 2751 [10787] 75811 127 764 2 0 0 0 TEST=''E'' JUMP A = Z 4/1/0 2878 [10788] 75812 104 770 2 1 0 0 ADD (N) TO (A) 1/1/2 85 [10789] 75813 101 85 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 2586 [10790] 75814 127 758 2 0 1 0 JUMP A != 24/1/0 2034 [10791] 75815 76 744 2 0 0 0 >OLAY JUMP unconditional Start of procedure 759 at location 2600 in chapter 6 [10792] [10792] 75900 PROCR 759 1016 STORE PM POINT INFORMATION 6/1/0 2932 [10792] 75902 106 775 4 1 0 0 FORM UP BULK COPY SELECT (N) 24/0/3 2884 [10793] 75903 124 770 8 0 3 0 TABLE MODIFY ADDRESS OF NEXT 4/0/0 123 [10794] 75904 104 123 0 0 0 ADD (N) TO (A) 28/1/0 2908 [10795] 75905 128 774 2 1 0 0 COPY ALPHA->NUMERIC BULK COPY ALPHA TO SHORT 6/0/0 2908 [10796] 75906 106 774 2 0 0 0 STORE I/C SERIAL NO SELECT (N) 2/0/1 1 [10797] 75907 102 1 0 1 0 TRANSFER (A) TO N 1/0/1 24 [10798] 75908 101 24 0 1 0 PREPARE FOR DIGIT COLLATION 15/0/0 2911 [10799] 75909 115 774 5 0 0 0 COLLATE N1 COLLATE AND ADD 18/1/0 4125 [10800] 75910 118 4125 1 0 0 SHIFT LOGICAL 2/0/1 4 [10801] 75911 102 4 0 1 0 STORE N1 TRANSFER (A) TO N 15/0/0 2911 [10802] 75912 115 774 5 0 0 0 COLLATE N2 COLLATE AND ADD 18/0/0 3 [10803] 75913 118 3 0 0 0 SHIFT LOGICAL 7/0/1 4 [10804] 75914 107 4 0 1 0 STORE N2 AUGMENT (N) BY (A) 1/0/1 23 [10805] 75915 101 23 0 1 0 PREPARE FOR DIGIT COLLATION 24/0/3 2526 [10806] 75916 124 755 6 0 3 0 8M MODIFY ADDRESS OF NEXT 6/0/0 2 [10807] 75917 106 2 0 0 0 (MR1) SELECT (N) 2/0/0 2906 [10808] 75918 102 773 2 0 0 0 TRANSFER (A) TO N 26/1/3 2906 [10809] 75919 126 773 2 1 3 0 SET MODIFIER MR3=MODIFIER MR1 SET MODIFICATION REGISTER 15/0/0 2910 [10810] 75920 115 774 4 0 0 0 COLLATE CHAP NO PM TYPE AND N3 COLLATE AND ADD 3/0/1 5 [10811] 75921 103 5 0 1 0 AND STORE COPY (A) TO N 18/0/0 4124 [10812] 75922 118 4124 0 0 0 TEST PM TYPE SHIFT LOGICAL 1/1/2 5 [10813] 75923 101 5 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 2698 [10814] 75924 127 763 2 0 0 0 >TYPE 5 JUMP A = Z 1/1/2 4 [10815] 75925 101 4 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 2673 [10816] 75926 127 762 2 0 0 0 >TYPE 9(CLEO 6) JUMP A = Z 1/1/1 3 [10817] 75927 101 3 1 1 0 ADD LITERAL ADDRESS 27/0/0 2673 [10818] 75928 127 762 2 0 0 0 >TYPE 6 JUMP A = Z Source: DaveJ/Q1000713 27/0/2 2629 [10819] 75929 127 759 31 0 2 0 gTYPE>6 TYPE 7=CLEO 1 JUMP A >= Z 1/1/1 5 [10820] 75930 101 5 1 1 0 ;TYPE 8=CLEO 3 ADD LITERAL ADDRESS 1/1/1 1 [10821] 75931 101 1 1 1 0 ADD LITERAL ADDRESS 2/0/0 2905 [10822] 75932 102 772 5 0 0 0 W/L(FOR TYPE OR TYPE=5) TRANSFER (A) TO N Start of procedure 760 at location 2631 in chapter 6 [10823] [10823] 76000 PROCR 760 1017 CHAPTER PMS 26/1/2 2884 [10823] 76002 126 770 8 1 2 0 SET(MR2)=16:0 TYPE 1,2,3,4,7,8 SET MODIFICATION REGISTER 6/0/0 2905 [10824] 76003 106 772 5 0 0 0 SELECT (N) 1/1/2 3 [10825] 76004 101 3 1 2 0 ;TEST CHAPTER DUMP SUBTRACT LITERAL ADDRESS 27/0/2 2649 [10826] 76005 127 761 2 0 2 0 >NO JUMP A >= Z 6/0/2 2912 [10827] 76006 106 774 6 0 2 0 CHAP NO SELECT (N) 27/0/0 2698 [10828] 76007 127 763 2 0 0 0 >END OF CHAPS JUMP A = Z 3/0/3 8 [10829] 76008 103 8 0 3 0 STORE CHAP NO COPY (A) TO N 4/0/2 2912 [10830] 76009 104 774 6 0 2 0 ADD (N) TO (A) 26/0/0 2843 [10831] 76010 126 766 2 0 0 0 >FORM UP CHAP DETAILS ENTER SUBROUTINE 3/0/3 6 [10832] 76011 103 6 0 3 0 STORE CHAP START COPY (A) TO N 18/0/0 4123 [10833] 76012 118 4123 0 0 0 SHIFT LOGICAL 5/0/3 6 [10834] 76013 105 6 0 3 0 SUBTRACT (N) FROM (A) 2/0/3 7 [10835] 76014 102 7 0 3 0 STORE CHAP LENGTH TRANSFER (A) TO N 25/0/3 3 [10836] 76015 125 3 0 3 0 STEP ON AND TEST 24/1/0 2646 [10837] 76016 124 760 17 1 0 0 g UNCONDITIONAL JUMP 25/0/2 4 [10838] 76017 125 4 0 2 0 ;TEST FOUR CHAPS DEAL STEP ON AND TEST 24/1/0 2632 [10839] 76018 124 760 3 1 0 0 >NO;WITH UNCONDITIONAL JUMP 24/1/0 2698 [10840] 76019 124 763 2 1 0 0 >YES UNCONDITIONAL JUMP Start of procedure 761 at location 2649 in chapter 6 [10841] [10841] 76100 PROCR 761 1018 SECTION PM'S 25/1/2 0 [10841] 76102 125 0 1 2 0 INTERROGATE INDICATORS 1/0/1 7 [10842] 76103 101 7 0 1 0 PREPARE FOR DIGIT COLLATION 15/0/2 2912 [10843] 76104 115 774 6 0 2 0 COLLATE OUT SECTION NO COLLATE AND ADD 27/0/0 2698 [10844] 76105 127 763 2 0 0 0 >END OF SECNS JUMP A = Z 2/0/3 8 [10845] 76106 102 8 0 3 0 STORE SECN NO TRANSFER (A) TO N 1/0/1 16 [10846] 76107 101 16 0 1 0 PREPARE FOR DIGIT COLLATION 15/0/2 2913 [10847] 76108 115 774 7 0 2 0 COLLATE TA IND COLLATE AND ADD 27/0/0 2664 [10848] 76109 127 761 17 0 0 0 >NOT TA IE SECN JUMP A = Z 7/0/3 8 [10849] 76110 107 8 0 3 0 T A IND AUGMENT (N) BY (A) 25/1/2 0 [10850] 76111 125 0 1 2 0 INTERROGATE INDICATORS 1/0/1 24 [10851] 76112 101 24 0 1 0 PREPARE FOR DIGIT COLLATION 15/0/2 2912 [10852] 76113 115 774 6 0 2 0 COLLATE RTE PARAM COLLATE AND ADD 18/0/0 4125 [10853] 76114 118 4125 0 0 0 2XRTE PARAM SHIFT LOGICAL 26/0/0 2859 [10854] 76115 126 767 2 0 0 0 >FORM UP -(64+P) ENTER SUBROUTINE 24/1/0 2670 [10855] 76116 124 761 23 1 0 0 > UNCONDITIONAL JUMP 1/0/1 8 [10856] 76117 101 8 0 1 0 PREPARE FOR DIGIT COLLATION 15/0/2 2912 [10857] 76118 115 774 6 0 2 0 CHAP NO (Q4) COLLATE AND ADD 15/0/2 2912 [10858] 76119 115 774 6 0 2 0 COLLATE AND ADD 18/0/0 4125 [10859] 76120 118 4125 0 0 0 SHIFT LOGICAL 26/0/0 2843 [10860] 76121 126 766 2 0 0 0 >FORM UP CHAP START ENTER SUBROUTINE 4/0/2 2914 [10861] 76122 104 774 8 0 2 0 SECTION START ADD (N) TO (A) 2/0/3 6 [10862] 76123 102 6 0 3 0 SECTION START TRANSFER (A) TO N 6/0/2 2915 [10863] 76124 106 774 9 0 2 0 SECTION LENGTH SELECT (N) 24/1/0 2643 [10864] 76125 124 760 14 1 0 0 > UNCONDITIONAL JUMP Start of procedure 762 at location 2673 in chapter 6 [10865] [10865] 76200 PROCR 762 1019 TRACE POINTS PM'S 26/1/2 2886 [10865] 76202 126 770 10 1 2 0 SET(MR2)=18:0 SET MODIFICATION REGISTER 6/0/2 2912 [10866] 76203 106 774 6 0 2 0 CHAP NO AND REL ADD SELECT (N) 27/0/0 2698 [10867] 76204 127 763 2 0 0 0 END OF TRACE PTS JUMP A = Z 2/0/3 6 [10868] 76205 102 6 0 3 0 STORE TRANSFER (A) TO N 1/0/1 16 [10869] 76206 101 16 0 1 0 ;TEST PT IN SECN PREPARE FOR DIGIT COLLATION 15/0/2 2913 [10870] 76207 115 774 7 0 2 0 COLLATE AND ADD 27/0/0 2687 [10871] 76208 127 762 16 0 0 0 >NO,PROCR JUMP A = Z Source: ChuckK/Q1000714 18/0/3 3 [10872] 76209 118 3 0 3 0 SHIFT BINARY 2/0/3 7 [10873] 76210 102 7 0 3 0 SET BIT 20 (SECN IND) TRANSFER (A) TO N 1/0/1 15 [10874] 76211 101 15 0 1 0 PREPARE FOR DIGIT COLLATION 15/0/2 2913 [10875] 76212 115 774 7 0 2 0 REF COLLATE AND ADD 18/0/0 3 [10876] 76213 118 3 0 0 0 SHIFT 13 BITS LEFT SHIFT LOGICAL 18/0/3 1 [10877] 76214 118 1 0 3 0 SHIFT BINARY 24/1/0 2690 [10878] 76215 124 762 19 1 0 0 > UNCONDITIONAL JUMP 1/0/1 15 [10879] 76216 101 15 0 1 0 PREPARE FOR DIGIT COLLATION 15/0/2 2913 [10880] 76217 115 774 7 0 2 0 REF COLLATE AND ADD 18/0/0 2 [10881] 76218 118 2 0 0 0 SHIFT LOGICAL 7/0/3 7 [10882] 76219 107 7 0 3 0 STORE AUGMENT (N) BY (A) 6/0/2 2914 [10883] 76220 106 774 8 0 2 0 ITEM SELECT (N) 7/0/3 7 [10884] 76221 107 7 0 3 0 STORE AUGMENT (N) BY (A) 25/0/3 2 [10885] 76222 125 2 0 3 0 STEP ON AND TEST 24/1/0 2695 [10886] 76223 124 762 24 1 0 0 UNCONDITIONAL JUMP 25/0/2 3 [10887] 76224 125 3 0 2 0 STEP ON AND TEST 24/1/0 2674 [10888] 76225 124 762 3 1 0 0 >NO UNCONDITIONAL JUMP 25/1/2 0 [10889] 76226 125 0 1 2 0 INTERROGATE INDICATORS Start of procedure 763 at location 2698 in chapter 6 [10890] [10890] 76300 PROCR 763 1020 STORE REPLACED INSTRUCTIONS 1/0/1 1 [10890] 76302 101 1 0 1 0 TYPE 5 PREPARE FOR DIGIT COLLATION 15/0/0 2910 [10891] 76303 115 774 4 0 0 0 UNCORRECTED CHAP NO COLLATE AND ADD 5/0/0 2525 [10892] 76304 105 755 5 0 0 0 SUBTRACT (N) FROM (A) 27/0/2 2748 [10893] 76305 127 763 52 0 2 0 >NO JUMP A >= Z 4/0/0 2525 [10894] 76306 104 755 5 0 0 0 ADD (N) TO (A) 3/0/0 2903 [10895] 76307 103 772 3 0 0 0 W/L COPY (A) TO N 18/0/0 2 [10896] 76308 118 2 0 0 0 SHIFT LOGICAL 7/0/1 4 [10897] 76309 107 4 0 1 0 STORE ALLOCATED CHAP NO AUGMENT (N) BY (A) 6/0/0 2903 [10898] 76310 106 772 3 0 0 0 SELECT (N) 4/0/0 2903 [10899] 76311 104 772 3 0 0 0 ADD (N) TO (A) 26/0/0 2843 [10900] 76312 126 766 2 0 0 0 >FORM UP CHAP START ENTER SUBROUTINE 4/0/0 2909 [10901] 76313 104 774 3 0 0 0 ADD (N) TO (A) 3/0/1 0 [10902] 76314 103 0 0 1 0 STORE ABS ADD COPY (A) TO N 2/0/0 2906 [10903] 76315 102 773 2 0 0 0 W/L TRANSFER (A) TO N 26/1/3 2906 [10904] 76316 126 773 2 1 3 0 SET (MR3)=ABS ADD SET MODIFICATION REGISTER 24/0/3 2104 [10905] 76317 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 6/0/3 0 [10906] 76318 106 0 0 3 0 SELECT (N) 3/0/1 2 [10907] 76319 103 2 0 1 0 COPY (A) TO N 27/0/2 2729 [10908] 76320 127 763 33 0 2 0 >YES JUMP A >= Z 5/0/1 2 [10909] 76321 105 2 0 1 0 FORM COMPLEMENT OF ACTION SUBTRACT (N) FROM (A) 5/0/1 2 [10910] 76322 105 2 0 1 0 SUBTRACT (N) FROM (A) 18/0/3 3 [10911] 76323 118 3 0 3 0 ALIGN INSTRUCTION SHIFT BINARY 18/0/1 4124 [10912] 76324 118 4124 0 1 0 AT LEAST SIG END SHIFT ARITHMETIC 1/1/2 64 [10913] 76325 101 64 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 2731 [10914] 76326 127 763 35 0 0 0 >24/0/0 JUMP A = Z 1/1/2 1 [10915] 76327 101 1 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 2731 [10916] 76328 127 763 35 0 0 0 >24/0/1 JUMP A = Z 1/1/2 2 [10917] 76329 101 2 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 2731 [10918] 76330 127 763 35 0 0 0 >24/0/3 JUMP A = Z 1/1/2 3 [10919] 76331 101 3 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 2731 [10920] 76332 127 763 35 0 0 0 >24/1/2 JUMP A = Z 6/0/0 2874 [10921] 76333 106 769 2 0 0 0 25/1/0 SELECT (N) 24/1/0 2735 [10922] 76334 124 763 39 1 0 0 UNCONDITIONAL JUMP Source: ChuckK/Q1000715 1/1/3 4096 [10923] 76335 101 4096 1 3 0 SELECT LITERAL ADDRESS 7/0/1 5 [10924] 76336 107 5 0 1 0 STORE 24 ACTION IND AUGMENT (N) BY (A) 24/0/3 2104 [10925] 76337 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 6/0/3 1 [10926] 76338 106 1 0 3 0 SELECT (N) 2/0/1 3 [10927] 76339 102 3 0 1 0 STORE 2ND INSTRUCTION TRANSFER (A) TO N 0/0/2 2898 [10928] 76340 100 771 4 0 2 0 REPLACE (B) BY (N) 24/0/3 2902 [10929] 76341 124 772 2 0 3 0 MODIFY ADDRESS OF NEXT 15/0/0 18 [10930] 76342 115 18 0 0 0 COLLATE 13 BIT CHAP START COLLATE AND ADD 2/0/0 2902 [10931] 76343 102 772 2 0 0 0 W/L TRANSFER (A) TO N 5/0/0 2902 [10932] 76344 105 772 2 0 0 0 SUBTRACT (N) FROM (A) 5/0/0 2524 [10933] 76345 105 755 4 0 0 0 NO OF PARAMS+1 SUBTRACT (N) FROM (A) 4/0/0 2875 [10934] 76346 104 769 3 0 0 0 26/0/0 ADD (N) TO (A) 24/0/3 2104 [10935] 76347 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 2/0/3 0 [10936] 76348 102 0 0 3 0 INSERT IN PROG TRANSFER (A) TO N 25/0/1 18 [10937] 76349 125 18 0 1 0 STEP ON AND TEST 24/1/0 2586 [10938] 76350 124 758 2 1 0 0 > UNCONDITIONAL JUMP 24/1/0 2586 [10939] 76351 124 758 2 1 0 0 >END OF 10 PM PTS UNCONDITIONAL JUMP 6/0/0 2909 [10940] 76352 106 774 3 0 0 0 STORE REL ADDRESS SELECT (N) 2/0/1 0 [10941] 76353 102 0 0 1 0 TRANSFER (A) TO N 24/1/0 2745 [10942] 76354 124 763 49 1 0 0 > UNCONDITIONAL JUMP Start of procedure 764 at location 2751 in chapter 6 [10943] [10943] 76400 PROCR 764 1021 OPEN TRIAL DATA FILE 6/1/0 2934 [10943] 76402 0 775 6 1 0 0 SELECT 24/0/3 2884 [10944] 76403 124 770 8 0 3 0 MODIFY ADDRESS OF NEXT 4/0/0 123 [10945] 76404 104 123 0 0 0 ADD (N) TO (A) 28/1/1 2908 [10946] 76405 128 774 2 1 1 0 >UNPACK BULK COPY LONG NUMERIC 6/1/0 2921 [10947] 76406 0 774 14 2 0 0 MT SET NUMBER SELECT 27/0/0 2586 [10948] 76407 70 758 2 0 0 0 >IGNORE SET JUMP IF A == 0 1/1/2 9 [10949] 76408 12 0 0 0 9 SUBTRACT LITERAL 27/0/0 2768 [10950] 76409 70 764 19 0 0 0 >ALWAYS ACCEPT JUMP IF A == 0 0/0/2 2904 [10951] 76410 34 772 4 0 0 0 TRIAL DATA IND SET (N) IN B 1/1/3 0 [10952] 76411 10 0 0 0 0 SELECT LITERAL 15/0/0 2901 [10953] 76412 36 771 7 0 0 0 Q1 COLLATE AND ADD 5/1/0 2921 [10954] 76413 2 774 14 2 0 0 SUBTRACT 27/0/0 2768 [10955] 76414 70 764 19 0 0 0 >ACCEPT JUMP IF A == 0 1/1/3 0 [10956] 76415 10 0 0 0 0 SELECT LITERAL 18/1/1 4127 [10957] 76416 32 0 0 0 1- SHIFT (AB) BY QUARTETS 27/1/1 2761 [10958] 76417 75 764 12 0 0 0 >CONTINUE SEARCH JUMP IF AB != 0 24/1/0 2586 [10959] 76418 76 758 2 0 0 0 >IGNORE SET JUMP unconditional 6/1/0 2917 [10960] 76419 106 774 11 1 0 0 PSEUDO RTE PARAMETER SELECT (N) 26/0/0 2859 [10961] 76420 126 767 2 0 0 0 >FORM UP=(64+R) ENTER SUBROUTINE 2/0/0 2903 [10962] 76421 102 772 3 0 0 0 W/L TRANSFER (A) TO N 6/1/0 2911 [10963] 76422 106 774 5 1 0 0 RTE PARAMETER SELECT (N) 26/0/0 2859 [10964] 76423 126 767 2 0 0 0 >FORM UP=(64+R) ENTER SUBROUTINE 1/1/1 64 [10965] 76424 101 64 1 1 0 ADD LITERAL ADDRESS 2/0/0 2859 [10966] 76425 5 767 2 0 0 0 WL TRANSFER 5/0/0 2859 [10967] 76426 2 767 2 0 0 0 SUBTRACT 18/0/1 0 [10968] 76427 30 0 0 0 0 ///// DUMMY ORDERS SHIFT (A) BY QUARTETS 18/0/1 0 [10969] 76428 30 0 0 0 0 ///// SHIFT (A) BY QUARTETS 2/0/0 2902 [10970] 76429 102 772 2 0 0 0 W/L TRANSFER (A) TO N 24/0/3 2522 [10971] 76430 124 755 2 0 3 0 STORE PROG RUN NO MODIFY ADDRESS OF NEXT 6/0/0 40 [10972] 76431 106 40 0 0 0 SELECT (N) 2/0/0 2899 [10973] 76432 102 771 5 0 0 0 TRANSFER (A) TO N 6/1/0 2915 [10974] 76433 0 774 8 2 0 0 MT RUN NUMBER SELECT 18/0/1 1 [10975] 76434 30 0 0 0 1 SHIFT (A) BY QUARTETS 4/1/0 2921 [10976] 76435 1 774 14 2 0 0 SET NUMBER AS RERUN ADD 24/0/3 2522 [10977] 76436 124 755 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 40 [10978] 76437 102 40 0 0 0 TRANSFER (A) TO N 6/1/0 2909 [10979] 76438 106 774 3 1 0 0 PROG ID SELECT (N) Source: DaveJ/Q1000716 18/1/1 4123 [10980] 76439 118 4123 1 1 0 SHIFT ARITHMETIC 4/1/0 2912 [10981] 76440 104 774 6 1 0 0 FILE ID ADD (N) TO (A) 18/1/1 4123 [10982] 76441 118 4123 1 1 0 SHIFT ARITHMETIC 1/1/1 18 [10983] 76442 101 18 1 1 0 ADD LITERAL ADDRESS 26/0/0 2867 [10984] 76443 126 768 2 0 0 0 >I/P-O/P FOR TRIAL DATA ENTER SUBROUTINE 6/0/0 2899 [10985] 76444 106 771 5 0 0 0 RESTORE RUN NO SELECT (N) 24/0/3 2522 [10986] 76445 124 755 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 40 [10987] 76446 102 40 0 0 0 TRANSFER (A) TO N Start of procedure 765 at location 2796 in chapter 6 [10988] [10988] 76500 PROCR 765 1022 WRITE TRIAL DATA 6/1/0 2919 [10988] 76502 106 774 13 1 0 0 SELECT (N) 18/0/0 5 [10989] 76503 118 5 0 0 0 SHIFT LOGICAL 2/1/0 2906 [10990] 76504 102 773 2 1 0 0 TRANSFER (A) TO N 26/1/3 2906 [10991] 76505 126 773 2 1 3 0 SET (MR3)=TRANSIT ARLENGTH SET MODIFICATION REGISTER 0/0/2 2897 [10992] 76506 100 771 3 0 2 0 READ PROG TAPE REPLACE (B) BY (N) 1/1/3 7 [10993] 76507 101 7 1 3 0 SELECT LITERAL ADDRESS 26/0/0 2264 [10994] 76508 126 749 2 0 0 0 g ENTER SUBROUTINE 26/1/2 2888 [10995] 76509 126 770 12 1 2 0 SET (MR2) AT 48/0 SET MODIFICATION REGISTER 24/0/3 2884 [10996] 76510 124 770 8 0 3 0 ;TEST NEXT WORD MODIFY ADDRESS OF NEXT 24/0/3 123 [10997] 76511 124 123 0 3 0 ;=FIEND MODIFY ADDRESS OF NEXT 6/1/2 4 [10998] 76512 106 4 1 2 0 ;TEST NEXT WORD SELECT (N) 5/1/0 2882 [10999] 76513 105 770 6 1 0 0 SUBTRACT (N) FROM (A) 27/0/0 2837 [11000] 76514 127 765 43 0 0 0 >YES JUMP A = Z 24/0/3 2884 [11001] 76515 124 770 8 0 3 0 CONVERT WORD FROM MODIFY ADDRESS OF NEXT 24/0/3 123 [11002] 76516 124 123 0 3 0 DOUBLE ALPHA MODIFY ADDRESS OF NEXT 6/1/2 5 [11003] 76517 106 5 1 2 0 TO ALPHA SELECT (N) 18/0/0 5 [11004] 76518 118 5 0 0 0 SHIFT LOGICAL 24/0/3 2884 [11005] 76519 124 770 8 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 123 [11006] 76520 124 123 0 3 0 MODIFY ADDRESS OF NEXT 4/1/2 7 [11007] 76521 104 7 1 2 0 ADD (N) TO (A) 24/1/2 2903 [11008] 76522 124 772 3 1 2 0 STORE CONVERTED WORD MODIFY ADDRESS OF NEXT 3/1/3 4 [11009] 76523 103 4 1 3 0 COPY (A) TO N 5/1/0 2890 [11010] 76524 105 770 14 1 0 0 ;TEST BLOCK END WORD SUBTRACT (N) FROM (A) 27/0/0 2825 [11011] 76525 127 765 31 0 0 0 >YES JUMP A = Z 25/0/3 2 [11012] 76526 125 2 0 3 0 ;TEST END OF TRANSIT STEP ON AND TEST 24/1/0 2834 [11013] 76527 124 765 40 1 0 0 >NO;AREA UNCONDITIONAL JUMP 6/1/0 2890 [11014] 76528 106 770 14 1 0 0 B/E WORD SELECT (N) 24/1/2 2903 [11015] 76529 124 772 3 1 2 0 MODIFY ADDRESS OF NEXT 2/1/3 4 [11016] 76530 102 4 1 3 0 TRANSFER (A) TO N 1/1/2 64 [11017] 76531 101 64 1 2 0 SUBTRACT LITERAL ADDRESS 5/0/0 2903 [11018] 76532 105 772 3 0 0 0 SUBTRACT (N) FROM (A) 18/1/0 4118 [11019] 76533 118 4118 1 0 0 SET (B)=PSEUDO RTE SHIFT LOGICAL 1/1/1 8 [11020] 76534 101 8 1 1 0 ADD LITERAL ADDRESS 26/0/0 2867 [11021] 76535 126 768 2 0 0 0 >I/P-O/P FOR TRIAL DATA ENTER SUBROUTINE 6/1/0 2919 [11022] 76536 106 774 13 1 0 0 RESET (MR3) AT TRANSIT SELECT (N) 18/0/0 5 [11023] 76537 118 5 0 0 0 AREA LENGTH SHIFT LOGICAL 2/1/0 2906 [11024] 76538 102 773 2 1 0 0 TRANSFER (A) TO N 26/1/3 2906 [11025] 76539 126 773 2 1 3 0 SET MODIFICATION REGISTER 25/0/2 4 [11026] 76540 125 4 0 2 0 ;TEST END OF INPUT STEP ON AND TEST 24/1/0 2804 [11027] 76541 124 765 10 1 0 0 >NO;AREA UNCONDITIONAL JUMP 24/1/0 2800 [11028] 76542 124 765 6 1 0 0 >YES UNCONDITIONAL JUMP 1/1/3 33 [11029] 76543 101 33 1 3 0 ;REWIND FILE SELECT LITERAL ADDRESS 26/0/0 2867 [11030] 76544 126 768 2 0 0 0 >I/P-O/P FOR TRIAL DATA ENTER SUBROUTINE 25/1/2 0 [11031] 76545 125 0 1 2 0 INTERROGATE INDICATORS 24/0/3 2902 [11032] 76546 124 772 2 0 3 0 ROUTE MODIFY ADDRESS OF NEXT 2/0/0 0 [11033] 76547 102 0 0 0 0 -16 TRANSFER (A) TO N 24/1/0 2586 [11034] 76548 124 758 2 1 0 0 > UNCONDITIONAL JUMP Start of procedure 766 at location 2843 in chapter 6 [11035] [11035] 76600 PROCR 766 1023 FORM UP CHAPTER START & END S/R 0/0/0 0 [11035] 76602 81 766 2 0 0 0 START OF SUBROUTINE Source: DaveJ/Q1000717 3/0/0 2859 [11036] 76603 3 767 2 0 0 0 2X CHAP COPY 4/0/0 2523 [11037] 76604 1 755 3 0 0 0 SPECIAL CHAP START ADD 2/0/0 2902 [11038] 76605 5 772 2 0 0 0 TRANSFER 24/0/3 2884 [11039] 76606 124 770 8 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 43 [11040] 76607 106 43 0 0 0 (3) SELECT (N) 18/0/1 4124 [11041] 76608 30 0 0 0 4- SHIFT (A) BY QUARTETS 5/0/0 2859 [11042] 76609 2 767 2 0 0 0 SUBTRACT 27/0/0 2854 [11043] 76610 70 766 13 0 0 0 >THIS CHAP CONTAINS PTS JUMP IF A == 0 1/1/3 0 [11044] 76611 10 0 0 0 0 SELECT LITERAL 24/1/0 2856 [11045] 76612 76 766 15 0 0 0 JUMP unconditional 1/1/2 1500 [11046] 76613 101 1500 1 2 0 (REDUCE CHAP END VALUE) SUBTRACT LITERAL ADDRESS 18/0/1 5 [11047] 76614 30 0 0 0 5 SHIFT (A) BY QUARTETS 24/0/3 2902 [11048] 76615 124 772 2 0 3 0 MODIFY ADDRESS OF NEXT 4/1/0 18 [11049] 76616 104 18 1 0 0 ADD (N) TO (A) 26/0/1 2843 [11050] 76617 82 766 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 767 at location 2859 in chapter 6 [11051] [11051] 76700 PROCR 767 1024 FORM UP -(64+R)FROM RTE PARAMETER 0/0/0 0 [11051] 76702 100 0 0 0 0 HALT 24/0/3 2523 [11052] 76703 124 755 3 0 3 0 MODIFY ADDRESS OF NEXT 4/0/0 20 [11053] 76704 104 20 0 0 0 START OF 1ST CHAP (2XRTE PARAM IN A) ADD (N) TO (A) 2/0/0 2902 [11054] 76705 102 772 2 0 0 0 W/L TRANSFER (A) TO N 24/0/3 2902 [11055] 76706 124 772 2 0 3 0 MODIFY ADDRESS OF NEXT 5/0/0 0 [11056] 76707 105 0 0 0 0 P SUBTRACT (N) FROM (A) 1/1/2 64 [11057] 76708 101 64 1 2 0 SUBTRACT LITERAL ADDRESS 26/0/1 2859 [11058] 76709 126 767 2 0 1 0 > LEAVE SUBROUTINE Start of procedure 768 at location 2867 in chapter 6 [11059] [11059] 76800 PROCR 768 1025 I/P O/P FOR TRIAL DATA S/R 0/0/0 0 [11059] 76802 100 0 0 0 0 HALT 18/0/0 5 [11060] 76803 118 5 0 0 0 SHIFT LOGICAL 4/0/0 2902 [11061] 76804 104 772 2 0 0 0 ADD (N) TO (A) 25/1/1 4096 [11062] 76805 125 4096 1 1 0 SET NON INT CLEAR INDICATORS 24/0/3 2884 [11063] 76806 124 770 8 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [11064] 76807 123 160 0 2 0 >ENTER M/R ENTER MASTER ROUTINE 26/0/1 2867 [11065] 76808 126 768 2 0 1 0 LEAVE SUBROUTINE Start of procedure 769 at location 2874 in chapter 6 [11066] [11066] 76900 PROCR 769 1026 INSTRUCTION CONSTANTS FOR PASS 1 25/1/0 0 [11066] 76902 125 0 1 0 0 SET INDICATORS 26/0/0 0 [11067] 76903 126 0 0 0 0 ENTER SUBROUTINE 14/0/0 1926 [11068] 76904 114 742 2 0 0 0 REPLACE SELECTED BITS 14/0/0 1980 [11069] 76905 114 743 2 0 0 0 REPLACE SELECTED BITS Start of procedure 770 at location 2878 in chapter 6 [11070] [11070] 77000 CONST 770 1 1027 CONSTANTS FOR PASS 1 1/0/3 1907 [11070] 77002 (A)CHAPT; 16773 +53585 5/0/1 5509 [11071] 3/0/2 5490 [11072] 77004 (A)FILES; 35572 +56596 5/0/3 1430 [11073] 5/0/3 1364 [11074] 77006 (A)FIEND; 56554 +56595 5/0/3 1429 [11075] 0/0/0 0 [11076] 77008 (D)0001000000; 16:00 00000 +00010 0/0/0 16 [11077] 0/0/0 0 [11078] 77010 0001200000; 18:00 00000 +00012 0/0/0 18 [11079] 0/0/0 0 [11080] 77012 0003000000; 48:0 00000 +00030 0/0/0 48 [11081] 0/0/0 126 [11082] 77014 7.0000007.; B/E/WORD 0007E +7E000 7/1/3 0 [11083] 0/0/0 0 [11084] 77016 000e400000; 180:0 00000 +000B4 0/0/0 180 [11085] 0/0/0 0 [11086] 77018 0000500000; MR CONST 00000 +00005 0/0/0 5 [11087] Start of procedure 771 at location 2896 in chapter 6 [11088] [11088] 77100 CONST 771 0 1028 CONSTANTS FOR PASS 1 16/0/0 123 [11088] 77102 (D)0007e-; -123(P.RTE FOR RTE 0) -0007B 0/0/0 59 [11089] 77103 0003e; 59 PRTE FOR RTE 0 +0003B 0/0/0 8191 [11090] 77104 01ppp; BITS 1-13 +01FFF 0/0/0 0 [11091] 77105 00000; RUN NO +00000 0/0/0 1 [11092] 77106 00001; +00001 0/0/0 15 [11093] 77107 p; Q1 +0000F Source: DaveJ/Q1000718 Start of procedure 772 at location 2902 in chapter 6 [11094] [11094] 77200 CONST 772 0 W/L'S FOR PASS 1 1029 0/0/0 0 [11094] 77202 (D)0; GENERAL W/L +00000 0/0/0 0 [11095] 77203 0; GENERAL W/L +00000 0/0/0 0 [11096] 77204 ; TRIALS IND +00000 0/0/0 0 [11097] 77205 0; PM TYPE W/L +00000 Start of procedure 773 at location 2906 in chapter 6 [11098] [11098] 77300 CONST 773 1 1030 LONG W/L'S FOR PASS 1 0/0/0 0 [11098] 77302 (D)0; W/L 00000 +00000 0/0/0 0 [11099] Start of procedure 774 at location 2908 in chapter 6 [11100] [11100] 77400 CONST 774 1 1031 UNPACKED I/P FOR PASS 1 0/0/0 0 [11100] 77402 (D)0; 00000 +00000 0/0/0 0 [11101] 0/0/0 0 [11102] 77404 0; 00000 +00000 0/0/0 0 [11103] 0/0/0 0 [11104] 77406 0; 00000 +00000 0/0/0 0 [11105] 0/0/0 0 [11106] 77408 0; 00000 +00000 0/0/0 0 [11107] 0/0/0 0 [11108] 77410 0; 00000 +00000 0/0/0 0 [11109] 0/0/0 0 [11110] 77412 0; 00000 +00000 0/0/0 0 [11111] 0/0/0 0 [11112] 77414 0; 00000 +00000 0/0/0 0 [11113] 0/0/0 0 [11114] 77416 0; 00000 +00000 0/0/0 0 [11115] 0/0/0 0 [11116] 77418 0; 00000 +00000 0/0/0 0 [11117] 0/0/0 0 [11118] 77420 0; 00000 +00000 0/0/0 0 [11119] 0/0/0 0 [11120] 77422 0; 00000 +00000 0/0/0 0 [11121] Start of procedure 775 at location 2930 in chapter 6 [11122] [11122] 77500 CONST 775 1 1032 BULK CLEAR AND COPY CONSTS 0/0/0 0 [11122] 77502 (D)200e400000; BULK CLEAR 180 00000 +200B4 2/0/0 180 [11123] 0/0/0 7 [11124] 77504 0002+00007; BULK CLEAR 44 FROM7 00007 +0002C 0/0/0 44 [11125] 0/0/0 6 [11126] 77506 0000.00006; BULK CLEAR 14 FROM6 00006 +0000E 0/0/0 14 [11127] Constants for chapter 6 short constants at 11128 long constants at 11136 0/0/1 0 [11128] 002000 0/0/2 0 [11129] 004000 0/0/3 0 [11130] 006000 0/0/0 2 [11131] 000002 6/0/3 1638 [11132] 066666 23/1/0 0 [11133] 178000 8/0/0 0 [11134] 080000 6/0/3 1638 [11135] 066666 7/0/3 4978 [11136] 077372 0/0/0 1222 [11137] 0004C6 0/0/0 0 [11138] 000000 2/0/0 50 [11139] 020032 0/0/0 0 [11140] 000000 2/0/0 1080 [11141] 020438 0/0/0 0 [11142] 000000 0/0/0 48 [11143] 000030 0/0/0 0 [11144] 000000 0/0/0 144 [11145] 000090 0/0/0 0 [11146] 000000 0/0/0 9 [11147] 000009 0/0/0 0 [11148] 000000 0/0/0 144 [11149] 000090 15/1/3 8191 [11150] 0FFFFF 0/0/0 4 [11151] 000004 0/0/0 0 [11152] 000000 0/0/0 48 [11153] 000030 0/0/0 0 [11154] 000000 0/0/0 1000 [11155] 0003E8 0/0/0 0 [11156] 000000 0/0/0 14 [11157] 00000E 0/0/0 0 [11158] 000000 0/0/0 40 [11159] 000028 0/0/0 0 [11160] 000000 0/0/0 100 [11161] 000064 0/0/0 0 [11162] 000000 0/0/0 36 [11163] 000024 0/0/0 0 [11164] 000000 0/0/0 48 [11165] 000030 0/0/0 0 [11166] 000000 0/0/0 144 [11167] 000090 3/0/3 4948 [11168] 037354 0/0/0 5 [11169] 000005 0/0/0 0 [11170] 000000 0/0/0 48 [11171] 000030 5/0/3 4948 [11172] 057354 5/0/1 5734 [11173] 053666 0/0/0 0 [11174] 000000 0/0/0 40 [11175] 000028 3/0/3 5205 [11176] 037455 7/0/2 5398 [11177] 075516 0/0/0 0 [11178] 000000 0/0/0 48 [11179] 000030 0/0/0 0 [11180] 000000 0/0/0 48 [11181] 000030 0/0/0 0 [11182] 000000 0/0/0 40 [11183] 000028 0/0/0 0 [11184] 000000 0/0/0 0 [11185] 000000 0/0/0 0 [11186] 000000 0/0/0 48 [11187] 000030 0/0/0 0 [11188] 000000 2/0/0 46 [11189] 02002E 6/0/0 0 [11190] 060000 6/1/0 5461 [11191] 069555 6/0/2 4969 [11192] 065369 6/0/3 5782 [11193] 067696 0/0/0 0 [11194] 000000 0/0/0 18 [11195] 000012 0/0/0 0 [11196] 000000 0/0/0 20 [11197] 000014 3/0/3 1619 [11198] 036653 5/0/0 5686 [11199] 051636 0/0/0 0 [11200] 000000 0/0/0 2 [11201] 000002 0/0/0 0 [11202] 000000 0/0/0 1000 [11203] 0003E8 0/0/0 0 [11204] 000000 0/0/0 14 [11205] 00000E 0/0/0 0 [11206] 000000 0/0/0 40 [11207] 000028 0/0/0 0 [11208] 000000 0/0/0 100 [11209] 000064 0/0/0 0 [11210] 000000 0/0/0 36 [11211] 000024 1/0/3 1884 [11212] 01675C 5/0/1 5509 [11213] 053585 0/1/0 153 [11214] 008099 0/0/2 4422 [11215] 005146 0/0/0 0 [11216] 000000 0/0/0 0 [11217] 000000 0/0/0 0 [11218] 000000 0/0/0 48 [11219] 000030 0/0/0 0 [11220] 000000 0/0/0 48 [11221] 000030 0/0/0 0 [11222] 000000 0/0/0 5 [11223] 000005 0/0/0 0 [11224] 000000 0/0/0 5 [11225] 000005 0/0/0 0 [11226] 000000 0/0/0 8 [11227] 000008 0/0/0 0 [11228] 000000 0/0/0 8 [11229] 000008 0/0/0 0 [11230] 000000 0/0/0 8 [11231] 000008 0/0/0 0 [11232] 000000 0/0/0 40 [11233] 000028 1/0/3 1884 [11234] 01675C 5/0/1 5509 [11235] 053585 0/0/0 0 [11236] 000000 0/0/0 6 [11237] 000006 0/0/0 0 [11238] 000000 0/0/0 3 [11239] 000003 0/0/0 0 [11240] 000000 0/0/0 6 [11241] 000006 0/0/0 0 [11242] 000000 0/0/0 3 [11243] 000003 0/0/0 0 [11244] 000000 0/0/0 40 [11245] 000028 0/0/0 0 [11246] 000000 0/0/0 48 [11247] 000030 5/0/2 6514 [11248] 055972 5/0/3 1430 [11249] 056596 0/0/0 0 [11250] 000000 0/0/0 144 [11251] 000090 0/0/0 0 [11252] 000000 2/0/0 52 [11253] 020034 0/0/0 0 [11254] 000000 2/0/0 50 [11255] 020032 0/0/0 0 [11256] 000000 0/0/0 300 [11257] 00012C 0/0/0 0 [11258] 000000 0/0/0 8 [11259] 000008 0/0/0 0 [11260] 000000 2/0/0 52 [11261] 020034 L8192 loading procedure 0 for chapter 6 0/0/0 0 [8192] 000000 0/0/0 5600 [8193] 0015E0 0/0/0 5600 [8194] 0015E0 0/0/1 0 [8195] 002000 0/0/1 0 [8196] 002000 0/0/0 160 [8197] 0000A0 0/0/0 160 [8198] 0000A0 0/0/0 9 [8199] 000009 0/0/0 18 [8200] 000012 0/0/0 27 [8201] 00001B 0/0/0 36 [8202] 000024 0/0/0 45 [8203] 00002D 0/0/0 10 [8204] 00000A 16/0/0 74 [8205] 10004A 0/0/0 19 [8206] 000013 16/0/0 83 [8207] 100053 0/0/0 28 [8208] 00001C 16/0/0 92 [8209] 10005C 0/0/0 37 [8210] 000025 16/0/0 101 [8211] 100065 0/0/0 46 [8212] 00002E 16/0/0 110 [8213] 10006E 0/0/0 8 [8214] 000008 16/0/0 10 [8215] 10000A 16/0/0 12 [8216] 10000C 16/0/0 14 [8217] 10000E 0/0/0 0 [8218] 000000 0/0/0 0 [8219] 000000 0/0/0 0 [8220] 000000 0/0/0 0 [8221] 000000 0/0/0 0 [8222] 000000 0/0/0 0 [8223] 000000 0/0/0 0 [8224] 000000 0/0/0 0 [8225] 000000 0/0/0 0 [8226] 000000 0/0/0 0 [8227] 000000 0/0/0 0 [8228] 000000 0/0/0 0 [8229] 000000 0/0/0 0 [8230] 000000 0/0/0 0 [8231] 000000 O04 8192 11262 Overlaying chapter 6 by 7, equivalent to chapter 2 L8238 loading chapter 7 Start of procedure 776 at location 46 in chapter 7 [8238] [8238] 77600 PROCR 776 START OF PASS 5 PROCR 918 in CHAP 8 overlay = 7 24/0/3 0 [8238] 77602 152 152 4 0 0 0 CALL REST OF PTS OVERLAY 23/0/2 107 [8239] 77603 C 918 2 0 0 0 OVERLAY 6/0/0 6323 [8240] 77604 0 27 13 0 0 0 SELECT 27/0/1 90 [8241] 77605 71 777 18 0 0 0 >'TRAMDING'ONLY JUMP IF A != 0 24/1/0 71 [8242] 77606 76 777 2 0 0 0 JUMP unconditional PROCR 994 in CHAP 9 overlay = 8 24/0/3 0 [8243] 77607 152 152 4 0 0 0 OVERLAY 23/0/2 108 [8244] 77608 C 994 2 0 0 0 OVERLAY 24/0/1 8172 [8245] 77609 85 511 2 0 0 0 SWITCH R 26/0/1 54 [8246] 0/0/1 46 [8247] 77610 C 776 2 0 0 0 24/0/1 8171 [8248] 77611 85 514 2 0 0 0 SWITCH R 26/0/1 57 [8249] 0/0/1 46 [8250] 77612 C 776 2 0 0 0 24/0/1 8174 [8251] 77613 85 153 2 0 0 0 SWITCH R 26/0/1 60 [8252] 0/0/1 46 [8253] 77614 C 776 2 0 0 0 0/1/0 40 [8254] 77615 43 A1 0 0 0 0 SET UP SEC 5 OUTPUT 0/0/3 0 [8255] 0/0/2 14 [8256] 77616 C 5 0 0 0 0 OUTPUT 6/1/0 0 [8257] 1/1/1 27 [8258] 25/1/1 4096 [8259] 24/0/3 0 [8260] 23/0/2 43 [8261] 0/1/1 40 [8262] Start of procedure 777 at location 71 in chapter 7 [8263] [8263] 77700 PROCR 777 PREPARE FOR 08005 26/0/0 121 [8263] 77702 80 779 2 0 0 0 >READ A6 ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 4 [8265] 77703 9 4 1 0 0 SELECT 5/1/0 4310 [8266] 77704 2 908 12 1 0 0 INDEX' SUBTRACT 27/0/1 71 [8267] 77705 71 777 2 0 0 0 JUMP IF A != 0 2/0/0 8160 [8268] 77706 84 352 2 0 0 0 CLEAR SWITCH SET SWITCH(ES) AT VARIABLE VALUE 26/1/1 4748 [8269] 77707 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [8270] 77708 C 0 0 0 1010 Limit 26/1/2 4750 [8270] 77709 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [8271] 77710 C 0 0 0 48 Limit 26/0/0 121 [8271] 77711 80 779 2 0 0 0 >READ A6 ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/2 5 [8273] 77712 9 4 2 2 0 SELECT Source: DaveJ/Q1000719 24/0/3 0 Extra code needed to address 5654 from 8274 (different chapter) 2/0/1 5654 [8275] 77713 5 18 10- 0 1 0 TRANSFER 25/0/1 1 [8276] 77714 94 777 16 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 87 [8277] s 24/1/0 90 [8278] 77715 76 777 18 0 0 0 >END JUMP unconditional 25/0/2 2 [8279] 77716 94 777 12 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 80 [8280] s 24/1/0 78 [8281] 77717 76 777 9 0 0 0 JUMP unconditional 6/1/0 4752 [8282] 77718 54 869 5 0 0 3 CLEAR CTRS BULK CLEAR 28/0/0 2560 [8283] 6/0/0 6313 [8284] 77719 27 3 0 0 0 SELECT 27/0/0 109 [8285] 77720 70 778 2 0 0 0 >NO B/FWD TRIAL DATA JUMP IF A == 0 0/1/0 40 [8286] 77721 48 A1 0 0 0 1 STEP BACK 0/0/3 0 [8287] 0/1/2 4754 [8288] 77722 C 0 0 0 1 STEP BACK 6/1/0 0 [8289] 1/1/1 27 [8290] 25/1/1 4096 [8291] 24/0/3 0 [8292] 23/0/2 48 [8293] 0/1/1 40 [8294] 6/0/0 6321 [8295] 77723 0 27 11 0 0 0 SELECT 27/0/1 111 [8296] 77724 71 778 4 0 0 0 PT=TRAMD JUMP IF A != 0 6/1/0 4756 [8297] 77725 10 0 0 0 5565540000 END ' SELECT LITERAL 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 0 [8299] 77726 5 9 0 1 0 0 NO PT TRAMD,SET END TRANSFER 24/1/0 222 [8300] 77727 76 781 2 0 0 0 JUMP unconditional Start of procedure 778 at location 109 in chapter 7 [8301] [8301] 77800 PROCR 778 ALIGN A1,CHECK FIRST P/T BLOCK [8301] 77801 NOTES RADIX B 6/0/0 6321 [8301] 77802 0 27 11 0 0 0 SELECT 27/0/0 3030 [8302] 77803 70 882 2 0 0 0 >NO PT TRAMD OR MT TRIAL DATA JUMP IF A == 0 26/0/0 995 [8303] 77804 80 811 2 0 0 0 >READ P/T ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [8305] 77805 0 9 0 1 0 0 SELECT 5/1/0 2572 [8306] 77806 2 870 2 1 0 0 TRAMD' SUBTRACT 27/0/1 111 [8307] 77807 71 778 4 0 0 0 >NOT YET JUMP IF A != 0 0/0/3 0 [8308] 77808 62 0 0 0 0 SET EXCESS CONSTANTS 26/0/0 3530 [8309] 77809 80 892 2 0 0 0 >3 BLANK LINES ENTER SUBROUTINE 26/0/0 3530 [8310] 77810 80 892 2 0 0 0 ENTER SUBROUTINE 26/0/0 3530 [8311] 77811 80 892 2 0 0 0 ENTER SUBROUTINE 24/1/0 222 [8312] 77812 76 781 2 0 0 0 JUMP unconditional Start of procedure 779 at location 121 in chapter 7 [8313] [8313] 77900 PROCR 779 READ A6->9 0/0/0 0 [8313] 77902 81 779 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [8314] 77903 42 A6 0 0 0 0 INPUT 0/0/3 0 [8315] 0/0/2 20 [8316] 77904 C 9 0 0 0 0 INPUT 6/1/0 0 [8317] 1/1/1 45 [8318] 25/1/1 4096 [8319] 24/0/3 0 [8320] 23/0/2 42 [8321] 0/1/1 40 [8322] 26/0/1 121 [8323] 77905 82 779 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 780 at location 132 in chapter 7 [8324] [8324] 78000 PROCR 780 ADJUST INTERCODE ADDRESSES FOR DUMP POINTS 0/0/0 0 [8324] 78002 81 780 2 0 0 0 (A)=5-DIGIT SERIAL START OF SUBROUTINE 3/0/0 2760 [8325] 78003 3 875 4 0 0 0 WL COPY 5/0/0 4697 [8326] 78004 12 0 0 0 10000 SUBTRACT LITERAL 27/0/3 215 [8327] 78005 73 780 77 0 0 0 >REPORT REF<100 JUMP IF A < 0 5/0/0 4698 [8328] 78006 12 0 0 0 89899 SUBTRACT LITERAL 27/0/2 215 [8329] 78007 72 780 77 0 0 0 >REPORT REF>998 JUMP IF A >= 0 6/0/0 6323 [8330] 78008 0 27 13 0 0 0 0 SELECT 27/0/0 142 [8331] 78009 70 780 12 0 0 0 >NOT TRAMDING ONLY JUMP IF A == 0 6/0/0 2760 [8332] 78010 0 875 4 0 0 0 SELECT 26/0/1 132 [8333] 78011 82 780 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 6/0/0 2760 [8334] 78012 0 875 4 0 0 0 SELECT 18/1/1 4126 [8335] 78013 32 0 0 0 2- SHIFT (AB) BY QUARTETS 2/0/0 2760 [8336] 78014 5 875 4 0 0 0 REF TRANSFER 18/1/1 2 [8337] 78015 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/0/0 2761 [8338] 78016 5 875 5 0 0 0 ITEM TRANSFER 6/0/0 2760 [8339] 78017 875 4 0 0 0 PROCR;REPLACE PROCR SELECT 26/0/0 1160 [8340] 78018 80 821 2 0 0 0 >BIN ENTER SUBROUTINE 18/1/3 3 [8341] 78019 33 0 0 0 1- HALVE SHIFT (AB) BY BITS 18/1/1 4127 [8342] 2/1/0 2758 [8343] 78020 5 875 2 1 0 0 TRANSFER 26/1/3 2758 [8344] 78021 91 875 2 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 27/1/0 159 [8345] 78022 74 780 26 0 0 0 >EVEN JUMP IF AB == 0 // 27, 1, 0 Source: DaveJ/Q1000720 24/0/3 0 Extra code needed to address 5604 from 8346 (different chapter) 6/0/3 5604 [8347] 78023 18 60- 0 3 0 (STARTS 18/10-) SELECT 18/0/3 2 [8348] 78024 31 0 0 0 10- SHIFT (A) BY BITS 18/0/1 4125 [8349] 24/1/0 162 [8350] 78025 76 780 28 0 0 0 JUMP unconditional 0/0/2 2556 [8351] 78026 34 868 6 0 0 0 BITS 1-10 SET (N) IN B 24/0/3 0 Extra code needed to address 5604 from 8352 (different chapter) 15/0/3 5604 [8353] 78027 36 18 60- 0 3 0 COLLATE AND ADD 26/0/0 1166 [8354] 78028 80 822 2 0 0 0 >DEC ENTER SUBROUTINE 0/0/3 4699 [8355] 78029 60 0 0 0 0 SET DECIMAL RADIX 27/0/0 203 [8356] 78030 70 780 66 0 0 0 >TRY UNIQUE REFS JUMP IF A == 0 2/0/0 2760 [8357] 78031 5 875 4 0 0 0 NEW PROCR;ADJUST RESULT TRANSFER 2/0/0 2758 [8358] 78032 5 875 2 0 0 0 CLEAR WL TRANSFER 26/1/3 4758 [8359] 78033 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [8360] 78034 C 0 0 0 460 Limit 24/0/3 0 Extra code needed to address 6104 from 8360 (different chapter) 6/0/3 6104 [8361] 78035 18 440 0 3 0 SELECT 18/1/1 4126 [8362] 78036 32 0 0 0 2- PROCR SHIFT (AB) BY QUARTETS 27/0/0 184 [8363] 78037 70 780 48 0 0 0 >END JUMP IF A == 0 5/0/0 2760 [8364] 78038 2 875 4 0 0 0 NEW PROCR; SUBTRACT 27/0/3 182 [8365] 78039 73 780 47 0 0 0 >SEARCH JUMP IF A < 0 27/0/1 184 [8366] 78040 71 780 48 0 0 0 >END(GREATER) JUMP IF A != 0 18/1/1 2 [8367] 78041 32 0 0 0 2 ITEM IN PROCR SHIFT (AB) BY QUARTETS 5/0/0 2761 [8368] 78042 2 875 5 0 0 0 OLD ITEM SUBTRACT 27/0/0 179 [8369] 78043 70 780 45 0 0 0 JUMP IF A == 0 27/0/2 195 [8370] 78044 72 780 59 0 0 0 >NEXT ADJUST POINT IS LATER JUMP IF A >= 0 24/0/3 0 Extra code needed to address 6105 from 8371 (different chapter) 6/0/3 6105 [8372] 78045 18 441 0 3 0 SELECT 7/0/0 2758 [8373] 78046 4 875 2 0 0 0 AUG TOTAL ADJUSTMENT AUGMENT 25/0/3 2 [8374] 78047 94 780 35 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 168 [8375] s 6/0/0 2758 [8376] 78048 875 2 0 0 0 TOTAL ADJUSTMENT SELECT 4/0/0 2761 [8377] 78049 1 875 5 0 0 0 OLD ITEM ADD 3/0/0 2761 [8378] 78050 3 875 5 0 0 0 COPY 1/1/2 256 [8379] 78051 12 0 0 0 100 SUBTRACT LITERAL 27/0/2 201 [8380] 78052 72 780 64 0 0 0 >ITEM TOO LARGE JUMP IF A >= 0 0/0/3 0 [8381] 78053 62 0 0 0 0 SET EXCESS CONSTANTS 6/0/0 2760 [8382] 78054 875 4 0 0 0 NEW REF SELECT 18/0/1 2 [8383] 78055 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 2761 [8384] 78056 1 875 5 0 0 0 NEW ITEM ADD 26/0/1 132 [8385] 78057 82 780 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 24/1/0 220 [8386] 78058 76 780 81 0 0 0 >EXIT JUMP unconditional 24/0/3 0 Extra code needed to address 6105 from 8387 (different chapter) 4/0/3 6105 [8388] 78059 1 18 441 0 3 0 ADD 27/0/0 199 [8389] 78060 70 780 62 0 0 0 >ADDRESS DELETED JUMP IF A == 0 27/0/2 184 [8390] 78061 72 780 48 0 0 0 >NEXT IS DELETION JUMP IF A >= 0 6/1/0 4760 [8391] 78062 10 0 0 0 5:5:5:5:7p ????DELTA' SELECT LITERAL 24/1/0 897 [8392] 78063 76 805 3 0 0 0 JUMP unconditional 6/1/0 4762 [8393] 78064 10 0 0 0 5:5:5:5:59 ????I' SELECT LITERAL 24/1/0 897 [8394] 78065 76 805 3 0 0 0 JUMP unconditional 6/0/0 2760 [8395] 78066 875 4 0 0 0 REF;UNIQUE REFS SELECT 18/0/1 2 [8396] 78067 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 2761 [8397] 78068 1 875 5 0 0 0 ITEM ADD 2/0/0 2758 [8398] 78069 5 875 2 0 0 0 TRANSFER 26/1/3 4764 [8399] 78070 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [8400] 78071 C 0 0 0 100 Limit 24/0/3 0 Extra code needed to address 6564 from 8400 (different chapter) 6/0/3 6564 [8401] 78072 18 900 0 3 0 SELECT 27/0/0 215 [8402] 78073 70 780 77 0 0 0 >END,REPORT JUMP IF A == 0 5/0/0 2758 [8403] 78074 2 875 2 0 0 0 SUBTRACT 27/0/0 218 [8404] 78075 70 780 80 0 0 0 >MATCH JUMP IF A == 0 25/0/3 2 [8405] 78076 94 780 72 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 208 [8406] s 6/1/0 4766 [8407] 78077 10 0 0 0 5:5:5:5:69 ????R' SELECT LITERAL 0/0/3 0 [8408] 78078 62 0 0 0 0 SET EXCESS CONSTANTS Source: ChuckK/Q1000721 24/1/0 897 [8409] 78079 76 805 3 0 0 0 JUMP unconditional 24/0/3 0 Extra code needed to address 6565 from 8410 (different chapter) 6/0/3 6565 [8411] 78080 18 901 0 3 0 SELECT 0/0/3 0 [8412] 78081 62 0 0 0 0 SET EXCESS CONSTANTS 26/0/1 132 [8413] 78082 82 780 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 781 at location 222 in chapter 7 [8414] [8414] 78100 PROCR 781 STORE TRANSLATOR'S INFORMATION [8414] 78101 NOTES RADIX B COPY TAPE TO TRIALS INFORMATION 6/0/0 6043 [8414] 78102 0 92 29 0 0 0 INITIAL CHAPS SELECT 2/0/0 2558 [8415] 78103 5 869 3 0 0 0 TRANSFER 24/0/2 2758 [8416] 78104 52 5 2 0 0 0 EDIT PRINTER HEADING EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [8418] 78105 C 875 2 0 0 0 6/1/0 2640 [8419] 78106 00 872 6 1 0 0 SELECT 26/0/0 1105 [8420] 78107 80 817 2 0 0 0 PRINT ENTER SUBROUTINE 1/1/3 1 [8421] 78108 83 826 4 0 0 1 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8156 [8422] 1/1/3 2 [8423] 78109 83 129 2 0 0 2 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8175 [8424] 6/0/0 6313 [8425] 78110 00 27 3 0 0 0 SELECT 27/0/1 239 [8426] 78111 71 781 15 0 0 0 >NO JUMP IF A != 0 6/1/0 2578 [8427] 78112 00 870 8 1 0 0 PUT PREND IN ANNEXE SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 2/1/0 4 [8429] 78113 05 7 4 1 0 0 TRANSFER 24/1/0 246 [8430] 78114 76 782 2 0 0 0 JUMP unconditional 26/0/0 984 [8431] 78115 80 810 2 0 0 0 >READ A1 ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 4 [8433] 78116 00 7 4 1 0 0 SELECT 5/1/0 2576 [8434] 78117 02 870 6 1 0 0 SUBTRACT 27/0/0 269 [8435] 78118 70 783 2 0 0 0 >YES JUMP IF A == 0 26/0/0 1582 [8436] 78119 80 841 2 0 0 0 >PRINT DUMPS HEADING ENTER SUBROUTINE 24/1/0 435 [8437] 78120 76 789 2 0 0 0 JUMP unconditional Start of procedure 782 at location 246 in chapter 7 [8438] [8438] 78200 PROCR 782 INITIAL SUBMISSION OF DUMPS POINTS [8438] 78201 NOTES RADIX B AND TRIAL DATA 26/0/0 995 [8438] 78202 80 811 2 0 0 0 >READ B1 ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [8440] 78203 00 9 0 1 0 0 SELECT 5/1/0 2582 [8441] 78204 02 870 12 1 0 0 SUBTRACT 27/0/0 280 [8442] 78205 70 783 11 0 0 0 >YES JUMP IF A == 0 4/1/0 2582 [8443] 78206 01 870 12 1 0 0 ADD 5/1/0 2580 [8444] 78207 02 870 10 1 0 0 SUBTRACT 27/0/0 260 [8445] 78208 70 782 15 0 0 0 JUMP IF A == 0 4/1/0 2580 [8446] 78209 01 870 10 1 0 0 ADD 18/0/1 4124 [8447] 78210 30 0 0 0 4- SHIFT (A) BY QUARTETS 5/1/0 4768 [8448] 78211 12 0 0 0 556554 SUBTRACT LITERAL 27/0/0 886 [8449] 78212 70 804 3 0 0 0 >YES JUMP IF A == 0 26/0/0 1129 [8450] 78213 80 820 2 0 0 0 >PRINT ERROR LINE ENTER SUBROUTINE 24/1/0 246 [8451] 78214 76 782 2 0 0 0 > JUMP unconditional 26/0/0 1063 [8452] 78215 80 814 2 0 0 0 >UNPACK'FILES' ENTER SUBROUTINE 26/0/0 1857 [8453] 78216 80 849 2 0 0 0 ENTER SUBROUTINE 26/0/0 1848 [8454] 78217 80 848 2 0 0 0 >PROCESS/PRINT HEADING ENTER SUBROUTINE 26/0/0 1544 [8455] 78218 80 838 2 0 0 0 >SET PRINT MR+CTRS ENTER SUBROUTINE 6/0/0 4700 [8456] 78219 10 0 0 0 1- SELECT LITERAL 2/0/0 1472 [8457] 78220 5 833 12 0 0 0 SET IND TRANSFER 26/0/0 286 [8458] 78221 80 784 2 0 0 0 >APPLY PT ENTER SUBROUTINE 27/0/1 263 [8459] 78222 71 782 18 0 0 0 >NOT NEW DATA TYPE JUMP IF A != 0 24/1/0 880 [8460] 78223 76 803 37 0 0 0 >TEST JUMP unconditional Start of procedure 783 at location 269 in chapter 7 [8461] [8461] 78300 PROCR 783 PROCESS P.M. POINTS [8461] 78301 NOTES RADIX B 6/0/0 6321 [8461] 78302 0 27 11 0 0 0 SELECT 27/0/1 275 [8462] 78303 71 783 7 0 0 0 >PT=TRAMD JUMP IF A != 0 6/1/0 4770 [8463] 78304 10 0 0 0 5565540000 SET PT='END ' SELECT LITERAL Source: ChuckK/Q1000722 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 0 [8465] 78305 5 9 0 1 0 0 TRANSFER 24/1/0 880 [8466] 78306 76 803 37 0 0 0 >DEAL WITH MT TRIAL DATA JUMP unconditional 26/0/0 995 [8467] 78307 80 811 2 0 0 0 ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [8469] 78308 0 9 0 1 0 0 ;TEST DUMPS BLOC SELECT 5/1/0 2582 [8470] 78309 2 870 12 1 0 0 ;OF P/T SUBTRACT 27/0/1 880 [8471] 78310 71 803 37 0 0 0 >NO JUMP IF A != 0 26/0/0 1582 [8472] 78311 80 841 2 0 0 0 >PREPARE FOR DUMPS POINTS S/R ENTER SUBROUTINE 26/0/0 1029 [8473] 78312 80 813 2 0 0 0 UNPACK P/T ENTER SUBROUTINE 26/0/0 1599 [8474] 78313 80 842 2 0 0 0 PROCESS DUMPS POINT ENTER SUBROUTINE 26/0/0 995 [8475] 78314 80 811 2 0 0 0 >READ P/T ENTER SUBROUTINE 26/0/0 1306 [8476] 78315 80 826 2 0 0 0 >TEST P/T S/R ENTER SUBROUTINE 24/1/0 281 [8477] 78316 76 783 12 0 0 0 > JUMP unconditional Start of procedure 784 at location 286 in chapter 7 [8478] [8478] 78400 PROCR 784 SR TO OUTPUT CURRENT BLOCK OF PT [8478] 78401 NOTES RADIX B 0/0/0 0 [8478] 78402 81 784 2 0 0 0 START OF SUBROUTINE 26/0/0 995 [8479] 78403 80 811 2 0 0 0 READ P/T ENTER SUBROUTINE 26/0/0 521 [8480] 78404 80 791 2 0 0 0 >TEST END OF DATA TYPE ENTER SUBROUTINE 27/0/1 1173 [8481] 78405 71 823 2 0 0 0 >UNPACK PT JUMP IF A != 0 6/0/0 1472 [8482] 78406 833 12 0 0 0 SELECT 27/0/0 420 [8483] 78407 70 787 19 0 0 0 >YES(EXIT WITH A ZERO) JUMP IF A == 0 6/0/0 8177 [8484] 78408 86 786 2 0 0 0 BEW FOUND? SELECT SWITCH R 1/1/2 2 [8485] 78409 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 418 [8486] 78410 71 787 17 0 0 0 >YES;EXIT WITH ZERO JUMP IF A != 0 1/1/3 1 [8487] 78411 83 352 2 0 0 1 SET NO SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8160 [8488] 6/1/0 2638 [8489] 78412 872 4 1 0 0 SELECT 24/1/0 350 [8490] 78413 76 786 17 0 0 0 O/P IT JUMP unconditional 24/0/1 8155 [8491] 78414 85 785 2 0 0 0 ;TEST BLOCK AND SWITCH R 26/0/1 300 [8492] 0/0/1 312 [8493] 78415 C 785 2 0 0 0 >NO;ITEM LENBTHS TO 0/0/1 303 [8494] s 78416 C 784 17 0 0 0 >YES;BE CHECKED 24/0/1 8154 [8495] 78417 85 781 2 0 0 0 ;TEST BEGINNING SWITCH R 26/0/1 304 [8496] 0/0/1 312 [8497] 78418 C 785 2 0 0 0 >NO;OF TD BLOCK 0/0/1 307 [8498] s 78419 C 784 20 0 0 0 >YES 1/1/3 6 [8499] 78420 10 0 0 0 6 SET ITEM LGTH POSN SELECT LITERAL 3/0/0 5799 [8500] 78421 3 32 165 0 0 0 AT 6 COPY 4/1/0 5731 [8501] 78422 1 32 96 2 0 0 ADD 26/0/0 1166 [8502] 78423 80 822 2 0 0 0 >CONVERT TO DEC ENTER SUBROUTINE 2/0/0 5800 [8503] 78424 5 32 166 0 0 0 TRANSFER Start of procedure 785 at location 312 in chapter 7 [8504] [8504] 78500 PROCR 785 DEAL WITH BLANK LINES [8504] 78501 NOTES RADIX B 1/0/1 3 [8504] 78502 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 1/1/3 0 [8505] 78503 10 0 0 0 0 CLEAR A SELECT LITERAL 15/1/0 5727 [8506] 78504 36 32 92 2 0 0 Q1&2 OF PT LINE SERIAL COLLATE AND ADD 2/1/0 5727 [8507] 78505 5 32 92 2 0 0 TRANSFER 6/0/0 5773 [8508] 78506 32 139 0 0 0 LINE CTR SELECT 5/1/0 5727 [8509] 78507 2 32 92 2 0 0 PT LINE SERIAL SUBTRACT 27/0/2 331 [8510] 78508 72 786 2 0 0 0 >NO JUMP IF A >= 0 26/0/0 1565 [8511] 78509 80 839 2 0 0 0 >STEP WORD NOS BY 14 S/R ENTER SUBROUTINE 6/1/0 4772 [8512] 78510 90 0 0 12 0 SET 7 ZERO WORDS SET MODIFICATION REGISTER AT LITERAL 2/1/0 8190 [8513] 78511 C 0 0 0 7 Simulated modifier 26/0/0 1984 [8514] 78512 80 851 2 0 0 0 >STEP(MR1)S/R ENTER SUBROUTINE 23/0/0 1 [8515] 78513 94 785 12 0 12 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8190 [8516] 24/1/0 322 [8517] 1/1/3 1 [8518] 78514 10 0 0 0 1 STEP LINE SERIAL CTR SELECT LITERAL 0/0/3 4701 [8519] 78515 60 0 0 0 0 BY 1 SET DECIMAL RADIX 7/0/0 5773 [8520] 78516 4 32 139 0 0 0 AUGMENT 0/0/3 0 [8521] 78517 62 0 0 0 0 SET EXCESS CONSTANTS 24/1/0 316 [8522] 78518 76 785 6 0 0 0 >GENERATE MORE BLANK LINES JUMP unconditional Source: ChuckK/Q1000723 Start of procedure 786 at location 331 in chapter 7 [8523] [8523] 78600 PROCR 786 PROCESS NEGATIVE WORDS [8523] 78601 NOTES RADIX B 0/0/3 4702 [8523] 78602 60 0 0 0 0 SET DECIMAL RADIX 6/1/0 5727 [8524] 78603 00 32 92 2 0 0 SET LINE CTR=LINE SELECT 1/1/1 1 [8525] 78604 11 0 0 0 1 SERIAL+1 ADD LITERAL 2/0/0 5773 [8526] 78605 05 32 139 0 0 0 TRANSFER 0/0/3 0 [8527] 78606 62 0 0 0 0 SET EXCESS CONSTANTS 24/0/1 8182 [8528] 78607 0 32 94 1 5 0 NEXT PT WORD SELECT 6/1/0 5728 [8529] 27/0/2 350 [8530] 78608 72 786 17 0 0 0 >NO JUMP IF A >= 0 24/0/1 8182 [8531] 78609 00 32 94 2 5 0 SELECT 6/1/0 5729 [8532] 26/0/0 1166 [8533] 78610 80 822 2 0 0 0 >CONVERT TO DEC ENTER SUBROUTINE 2/1/2 5657 [8534] 78611 05 32 22 2 2 0 TRANSFER 6/1/0 4774 [8535] 78612 10 0 0 0 5300000000 SET C SP SP SP SP SELECT LITERAL 1/0/1 768 [8536] 78613 35 0 0 0 1100000000 IN*WORD PREPARE FOR DIGIT COLLATION 14/1/2 5656 [8537] 78614 37 32 22 1 2 0 REPLACE SELECTED BITS 1/1/3 2 [8538] 78615 83 787 4 0 0 2 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8176 [8539] 24/0/1 8182 [8540] 78616 02 32 94 1 5 0 SUBTRACT 5/1/0 5728 [8541] 3/1/1 5670 [8542] 78617 03 32 36 1 1 0 STORE FOR M/T COPY 3/1/2 5634 [8543] 78618 3 32 0 1 2 0 COPY 6/0/0 1472 [8544] 78619 833 12 0 0 0 SELECT 27/0/1 370 [8545] 78620 71 786 34 0 0 0 >BLOCK AMENDMENT JUMP IF A != 0 6/1/2 5634 [8546] 78621 32 0 1 2 0 SELECT 24/0/1 8154 [8547] 78622 85 781 2 0 0 0 FIRST WORD SWITCH SWITCH R 26/0/1 356 [8548] 0/0/1 378 [8549] s 78623 C 786 42 0 0 0 >NO 0/0/1 359 [8550] s 78624 C 786 25 0 0 0 >YES 2/1/2 5636 [8551] 78625 5 32 2 1 2 0 PUT 1ST WORD IN WORD 4 POSITION TRANSFER 2/1/2 5634 [8552] 78626 5 32 0 1 2 0 TRANSFER 1/1/3 6 [8553] 78627 10 0 0 0 6 SELECT LITERAL 3/0/0 5799 [8554] 78628 3 32 165 0 0 0 SET COPY 4/1/2 5637 [8555] 78629 1 32 2 2 2 0 ADD BLOCK LENGTH ADD 26/0/0 1166 [8556] 78630 80 822 2 0 0 0 >DEC ENTER SUBROUTINE 2/0/0 5800 [8557] 78631 5 32 166 0 0 0 SET AS NEW BLOCK LENGTH TRANSFER 1/1/3 1 [8558] 78632 83 781 2 0 0 1 RESET SWITCH SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8154 [8559] 25/0/2 2 [8560] 78633 94 786 42 0 2 2 >(UNCONDITIONAL) STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 378 [8561] s 6/0/0 8153 [8562] 78634 86 849 2 0 0 0 ;BLOCK AMEND SELECT SWITCH R 1/1/2 2 [8563] 78635 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 376 [8564] 78636 71 786 40 0 0 0 >NOT FIRST PRINTED LINE OF BLOCK JUMP IF A != 0 6/0/0 4703 [8565] 78637 10 0 0 0 10000 SELECT LITERAL 1/0/1 16 [8566] 78638 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION 14/0/0 5648 [8567] 78639 37 32 14 0 0 0 SET'>>'IND REPLACE SELECTED BITS 26/0/0 2252 [8568] 78640 80 858 2 0 0 0 >PROCESS WORD ENTER SUBROUTINE 24/1/0 394 [8569] 78641 76 786 57 0 0 0 JUMP unconditional 26/0/0 423 [8570] 78642 80 788 2 0 0 0 >SET'AMEND'IND,PROCESS WORD ENTER SUBROUTINE 6/0/0 8152 [8571] 78643 86 830 2 0 0 0 SELECT SWITCH R 1/1/2 2 [8572] 78644 12 0 0 0 2 SUBTRACT LITERAL 27/0/1 390 [8573] 78645 71 786 53 0 0 0 >INSERTING,NOT REPLACING WORDS JUMP IF A != 0 24/0/1 8178 [8574] 78646 32 140 1 8 0 WORD BEING REPLACED SELECT 6/1/0 5774 [8575] 2/1/0 2760 [8576] 78647 5 875 4 1 0 0 WL TRANSFER 26/0/0 2411 [8577] 78648 80 861 2 0 0 0 STEP (MR8) S/R ENTER SUBROUTINE 26/0/0 1576 [8578] 78649 80 840 2 0 0 0 STEP WORD CTR S/R ENTER SUBROUTINE 6/1/0 2760 [8579] 78650 875 4 1 0 0 WORD JUST REPLACED SELECT 5/1/0 2638 [8580] 78651 2 872 4 1 0 0 BEW SUBTRACT 27/0/0 394 [8581] 78652 70 786 57 0 0 0 >OK,BEW REPLACED BEW JUMP IF A == 0 6/0/0 8177 [8582] 78653 86 786 2 0 0 0 BEW FOUND'SWITCH SELECT SWITCH R 1/1/2 1 [8583] 78654 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 399 [8584] 78655 70 787 2 0 0 0 >BEW NOT OUTPUT JUMP IF A == 0 26/0/0 2443 [8585] 78656 80 862 2 0 0 0 >DRAIN REST OF M/T BLOCK BEING AMENDED ENTER SUBROUTINE Source: ChuckK/Q1000724 24/0/1 8177 [8586] 78657 85 786 4 0 0 0 ;TEST B/E FOUND SWITCH R 26/0/1 395 [8587] 0/0/1 399 [8588] 78658 C 787 2 0 0 0 >NO 0/0/1 415 [8589] s 78659 C 787 14 0 0 0 >YES 0/0/1 416 [8590] s 78660 C 787 15 0 0 0 >YES AT END OF LINE Start of procedure 787 at location 399 in chapter 7 [8591] [8591] 78700 PROCR 787 PREPARE FOR NEXT BLOCK [8591] 78701 NOTES RADIX B 23/0/0 2 [8591] 78702 94 787 4 0 5 2 >NOT END OF THIS PT BLOCK STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8182 [8592] 24/1/0 403 [8593] s 24/1/0 287 [8594] 78703 76 784 3 0 0 0 >READ MORE PT JUMP unconditional 24/0/1 8182 [8595] 78704 00 32 94 1 5 0 NEXT PT WORD SELECT 6/1/0 5728 [8596] 5/1/0 2642 [8597] 78705 02 872 8 1 0 0 'SXBE'=END SIGN SUBTRACT 27/0/1 336 [8598] 78706 71 786 7 0 0 0 >NO JUMP IF A != 0 6/0/0 1472 [8599] 78707 833 12 0 0 0 SELECT 27/0/3 411 [8600] 78708 73 787 11 0 0 0 >INSERTING ENTIRE TD SET JUMP IF A < 0 6/0/0 4704 [8601] 78709 10 0 0 0 1- SELECT LITERAL 26/0/1 286 [8602] 78710 82 784 2 0 0 0 (A)<0 END OF SUBROUTINE / LEAVE SUBROUTINE 1/1/3 0 [8603] 78711 10 0 0 0 0 DELETE END SIGN SELECT LITERAL 24/0/1 8182 [8604] 78712 5 32 94 1 5 0 TRANSFER 2/1/0 5728 [8605] 24/1/0 336 [8606] 78713 76 786 7 0 0 0 JUMP unconditional 26/0/0 2059 [8607] 78714 80 853 2 0 0 0 >END OF TRIAL DATA BLOCK S/R ENTER SUBROUTINE 6/0/0 8160 [8608] 78715 86 352 2 0 0 0 SELECT SWITCH R 27/0/0 421 [8609] 78716 70 787 20 0 0 0 >EXIT WITH 1 JUMP IF A == 0 1/1/3 0 [8610] 78717 10 0 0 0 0 SELECT LITERAL 2/0/0 8160 [8611] 78718 84 352 2 0 0 0 CLEAR SWITCH(EXIT WITH 0) SET SWITCH(ES) AT VARIABLE VALUE 26/0/1 286 [8612] 78719 82 784 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 1/1/3 1 [8613] 78720 10 0 0 0 1 EXIT WITH 1 SELECT LITERAL 26/0/1 286 [8614] 78721 82 784 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 788 at location 423 in chapter 7 [8615] [8615] 78800 PROCR 788 PROCESS WORD EXPT AND SET'->'IND 0/0/0 0 [8615] 78802 81 788 2 0 0 0 START OF SUBROUTINE 24/0/3 22 [8616] 78803 96 0 0 2 0 SELECT MODIFIER 6/0/0 4 [8617] 18/0/3 3 [8618] 78804 31 0 0 0 1- SHIFT (A) BY BITS 18/0/1 4127 [8619] 2/0/0 2252 [8620] 78805 5 858 2 0 0 0 WL TRANSFER 24/0/1 2252 [8621] 78806 124 858 2 0 1 0 MODIFY ADDRESS OF NEXT 5/0/0 5649 [8622] 78807 2 32 15 0 0 0 SUBTRACT 24/0/1 2252 [8623] 78808 124 858 2 0 1 0 MODIFY ADDRESS OF NEXT 2/0/0 5649 [8624] 78809 5 32 15 0 0 0 SET NEGATIVE TRANSFER 26/0/0 2252 [8625] 78810 80 858 2 0 0 0 >PROCESS WORD ENTER SUBROUTINE 26/0/1 423 [8626] 78811 82 788 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 789 at location 435 in chapter 7 [8627] [8627] 78900 PROCR 789 PRINT DUMP POINT IF NOT TO BE AMENDED [8627] 78901 NOTES RADIX B 26/0/0 521 [8627] 78902 80 791 2 0 0 0 >TEST PT=END ENTER SUBROUTINE 27/0/0 458 [8628] 78903 70 789 21 0 0 0 >YES,REST OF MT DUMPS JUMP IF A == 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [8630] 78904 0 9 0 1 0 0 SELECT 18/1/1 4126 [8631] 78905 32 0 0 0 2- SHIFT (AB) BY QUARTETS 5/1/0 4776 [8632] 78906 12 0 0 0 54746467 'DUMP' SUBTRACT LITERAL 27/0/0 445 [8633] 78907 70 789 11 0 0 0 >YES JUMP IF A == 0 26/0/0 1129 [8634] 78908 80 820 2 0 0 0 >PRINT PT ENTER SUBROUTINE 26/0/0 995 [8635] 78909 80 811 2 0 0 0 >READ PT ENTER SUBROUTINE 24/1/0 435 [8636] 78910 76 789 2 0 0 0 JUMP unconditional 18/1/1 2 [8637] 78911 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/2 89 [8638] 78912 12 0 0 0 59 'I' SUBTRACT LITERAL 27/0/1 452 [8639] 78913 71 789 17 0 0 0 >NO JUMP IF A != 0 1/1/3 65 [8640] 78914 10 0 0 0 41 REPLACE 'DUMPI' BY 'DUMP1' SELECT LITERAL Source: ChuckK/Q1000727 1/0/1 3 [8641] 78915 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 24/1/2 21 Extra code needed to address transit area no 4, section 9 14/1/0 0 [8643] 78916 37 9 0 1 0 0 REPLACE SELECTED BITS 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [8645] 78917 0 9 0 1 0 0 ;TEST AMENDMENT TO TH SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 5/1/0 50 [8647] 78918 02 7 50 1 0 0 ;DUMPS POINT SUBTRACT 27/0/0 466 [8648] 78919 70 790 2 0 0 0 >YES JUMP IF A == 0 27/0/3 442 [8649] 78920 73 789 8 0 0 0 >REPORT PT JUMP IF A < 0 24/1/0 2092 [8650] 78921 76 854 2 0 0 0 >OUTPUT DUMPS POINT EX MT JUMP unconditional 26/0/0 2240 [8651] 78922 80 857 2 0 0 0 >READ A1,TEST'CHART/PREND/E' ENTER SUBROUTINE 27/0/1 435 [8652] 78923 71 789 2 0 0 0 >NO,TEST PT JUMP IF A != 0 26/0/0 521 [8653] 78924 80 791 2 0 0 0 >TEST PT=END ENTER SUBROUTINE 27/0/0 880 [8654] 78925 70 803 37 0 0 0 >YES JUMP IF A == 0 26/0/0 1129 [8655] 78926 80 820 2 0 0 0 >PRINT PT ENTER SUBROUTINE 26/0/0 995 [8656] 78927 80 811 2 0 0 0 >READ PT ENTER SUBROUTINE 24/1/0 461 [8657] 78928 76 789 24 0 0 0 >LOOP TO PT END JUMP unconditional Start of procedure 790 at location 466 in chapter 7 [8658] [8658] 79000 PROCR 790 IMPLEMENT DUMPS POINT AMDTS [8658] 79001 NOTES RADIX B 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 2 [8659] 79002 00 9 2 1 0 0 ;TEST DIRECTIVE SELECT 18/0/1 4120 [8660] 79003 30 0 0 0 8- SHIFT (A) BY QUARTETS 1/1/2 84 [8661] 79004 12 0 0 0 54 SUBTRACT LITERAL 27/0/0 499 [8662] 79005 70 790 32 0 0 0 >DELETE JUMP IF A == 0 1/1/2 21 [8663] 79006 12 0 0 0 15 SUBTRACT LITERAL 27/0/0 486 [8664] 79007 70 790 20 0 0 0 >REPLACE JUMP IF A == 0 1/1/2 10 [8665] 79008 12 0 0 0 t SUBTRACT LITERAL 27/0/1 442 [8666] 79009 71 789 8 0 0 0 >NOT INSERT,REPORT JUMP IF A != 0 26/0/0 995 [8667] 79010 80 811 2 0 0 0 >READ PT;INSERTION ENTER SUBROUTINE 26/0/0 521 [8668] 79011 80 791 2 0 0 0 >TEST END ENTER SUBROUTINE 27/0/0 458 [8669] 79012 70 789 21 0 0 0 >YES,FINISH MT JUMP IF A == 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [8671] 79013 0 9 0 1 0 0 SELECT 18/0/1 4126 [8672] 79014 30 0 0 0 2- SHIFT (A) BY QUARTETS 5/1/0 4778 [8673] 79015 12 0 0 0 54746467 'DUMP' SUBTRACT LITERAL 27/0/0 452 [8674] 79016 70 789 17 0 0 0 >END OF INSERTION JUMP IF A == 0 26/0/0 1029 [8675] 79017 80 813 2 0 0 0 >UNPACK PT ENTER SUBROUTINE 26/0/0 1599 [8676] 79018 80 842 2 0 0 0 >PROCESS PT ENTER SUBROUTINE 24/1/0 475 [8677] 79019 76 790 10 0 0 0 JUMP unconditional 26/0/0 1029 [8678] 79020 80 813 2 0 0 0 >UNPACK PT;REPLACEMENT ENTER SUBROUTINE 26/0/0 1599 [8679] 79021 80 842 2 0 0 0 >PROCESS PT ENTER SUBROUTINE 26/0/0 995 [8680] 79022 80 811 2 0 0 0 >READ PT ENTER SUBROUTINE 26/0/0 2240 [8681] 79023 80 857 2 0 0 0 >READ MT,TEST END ENTER SUBROUTINE 27/0/0 461 [8682] 79024 70 789 24 0 0 0 >YES JUMP IF A == 0 26/0/0 521 [8683] 79025 80 791 2 0 0 0 >TEST PT=END ENTER SUBROUTINE 27/0/0 458 [8684] 79026 70 789 21 0 0 0 >YES,FINISH MT JUMP IF A == 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [8686] 79027 0 9 0 1 0 0 SELECT 18/0/1 4126 [8687] 79028 30 0 0 0 2- SHIFT (A) BY QUARTETS 5/1/0 4780 [8688] 79029 12 0 0 0 54746467 'DUMP' SUBTRACT LITERAL 27/0/0 452 [8689] 79030 70 789 17 0 0 0 >NEW DIRECTIVE JUMP IF A == 0 24/1/0 486 [8690] 79031 76 790 20 0 0 0 >ASSUME REPLACES NEXT LINE JUMP unconditional 26/0/0 995 [8691] 79032 80 811 2 0 0 0 >READ PT;DELETIONS ENTER SUBROUTINE 26/0/0 521 [8692] 79033 80 791 2 0 0 0 >TEST END ENTER SUBROUTINE 27/0/0 459 [8693] 79034 70 789 22 0 0 0 >YES DELETION ENDED JUMP IF A == 0 Source: ChuckK/Q1000728 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [8695] 79035 0 9 0 1 0 0 SELECT 18/0/1 4126 [8696] 79036 30 0 0 0 2- SHIFT (A) BY QUARTETS 5/1/0 4782 [8697] 79037 12 0 0 0 54746467 'DUMP' SUBTRACT LITERAL 27/0/1 459 [8698] 79038 71 789 22 0 0 0 >NO,READ MT,PREPARE TO REPORT PT JUMP IF A != 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/0/0 3 [8700] 79039 0 9 3 0 0 0 SELECT 27/0/0 512 [8701] 79040 70 790 43 0 0 0 >OK MULTIPLE DELETION JUMP IF A == 0 5/0/0 2639 [8702] 79041 2 872 5 0 0 0 SUBTRACT 27/0/1 459 [8703] 79042 71 789 22 0 0 0 >NOT MULTIPLE DELETION JUMP IF A != 0 26/0/0 2240 [8704] 79043 80 857 2 0 0 0 >READ MT,TEST END ENTER SUBROUTINE 27/0/0 463 [8705] 79044 70 789 26 0 0 0 >YES,PRINT REPORT JUMP IF A == 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 50 [8707] 79045 0 7 50 1 0 0 SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 5/1/0 0 [8709] 79046 2 9 0 1 0 0 SUBTRACT 27/0/1 512 [8710] 79047 71 790 43 0 0 0 >DELETION NOT FINISHED JUMP IF A != 0 26/0/0 995 [8711] 79048 80 811 2 0 0 0 >READ PT ENTER SUBROUTINE 24/1/0 459 [8712] 79049 76 789 22 0 0 0 JUMP unconditional Start of procedure 791 at location 521 in chapter 7 [8713] [8713] 79100 PROCR 791 TEST PT=END OF DUMPS DATA 0/0/0 0 [8713] 79102 81 791 2 0 0 0 START OF SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [8715] 79103 0 9 0 1 0 0 SELECT 18/0/1 4126 [8716] 79104 30 0 0 0 2- SHIFT (A) BY QUARTETS 5/1/0 4784 [8717] 79105 12 0 0 0 56596355 'FILE' SUBTRACT LITERAL 27/0/0 531 [8718] 79106 70 791 10 0 0 0 >YES JUMP IF A == 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [8720] 79107 0 9 0 1 0 0 SELECT 18/0/1 4124 [8721] 79108 30 0 0 0 4- SHIFT (A) BY QUARTETS 5/1/0 4786 [8722] 79109 12 0 0 0 556554 'END' SUBTRACT LITERAL 26/0/1 521 [8723] 79110 82 791 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 792 at location 532 in chapter 7 [8724] [8724] 79200 PROCR 792 'FILER'AND'FILED'DATA TYPES=REPLACEMENT/DELETION OF WHOLESET [8724] 79201 NOTES RADIX B WHOLE TD SET 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 4 [8725] 79202 00 7 4 1 0 0 ;TEST CHAPT BLOCK SELECT 5/1/0 2576 [8726] 79203 02 870 6 1 0 0 SUBTRACT 27/0/1 885 [8727] 79204 71 804 2 0 0 0 >NO,ERROR JUMP IF A != 0 26/0/0 1063 [8728] 79205 80 814 2 0 0 0 UNPACK ENTER SUBROUTINE 6/1/0 5596 [8729] 79206 0 30 2 1 0 0 ROUTE IDENTIFIER SELECT 26/0/0 1020 [8730] 79207 80 812 2 0 0 0 >R-ALIGN ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 5/1/0 26 [8732] 79208 02 7 26 1 0 0 ;TEST RIGHT FILE SUBTRACT 27/0/0 548 [8733] 79209 70 792 15 0 0 0 >YES JUMP IF A == 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 26 [8735] 79210 7 26 1 0 0 SELECT 18/0/1 6 [8736] 79211 30 0 0 0 6 SHIFT (A) BY QUARTETS 2/1/0 5596 [8737] 79212 5 30 2 1 0 0 TRANSFER 26/0/0 2158 [8738] 79213 80 856 2 0 0 0 >PRINT'FILE UNALTERED' ENTER SUBROUTINE 24/1/0 532 [8739] 79214 76 792 2 0 0 0 > JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 19 [8741] 79215 0 7 18 2 0 0 SELECT 18/0/1 7 [8742] 79216 30 0 0 0 7 LOSE POSSIBLE pp IN Q4 AND Q5 SHIFT (A) BY QUARTETS 18/0/1 4121 [8743] 79217 30 0 0 0 7- SHIFT (A) BY QUARTETS 2/0/0 2563 [8744] 79218 5 869 8 0 0 0 TRANSFER 6/1/0 5605 [8745] 79219 0 30 10 2 0 0 SET EX PT SELECT 26/0/0 1020 [8746] 79220 80 812 2 0 0 0 >R-ALIGN ENTER SUBROUTINE 5/0/0 2563 [8747] 79221 2 869 8 0 0 0 ;TEST RIGHT SET SUBTRACT 27/0/1 542 [8748] 79222 71 792 10 0 0 0 >NO JUMP IF A != 0 26/0/0 2240 [8749] 79223 80 857 2 0 0 0 >READ,TEST PREND,CHAPT OR E ENTER SUBROUTINE 27/0/1 557 [8750] 79224 71 792 23 0 0 0 >NO JUMP IF A != 0 24/1/0 698 [8751] 79225 76 797 17 0 0 0 > JUMP unconditional Start of procedure 793 at location 560 in chapter 7 [8752] [8752] 79300 PROCR 793 'FILEA'DATA TYPE=FIND FILE BEING AMENDED [8752] 79301 NOTES RADIX B 26/0/0 1377 [8752] 79302 80 829 2 0 0 0 >UNPACK PT ENTER SUBROUTINE Source: ChuckK/Q1000729 6/1/0 1462 [8753] 79303 0 833 2 1 0 0 PT FILE SELECT 5/1/0 5760 [8754] 79304 2 32 126 1 0 0 MT FILE SUBTRACT 27/0/1 574 [8755] 79305 71 793 16 0 0 0 >NOT THIS JUMP IF A != 0 6/0/0 1464 [8756] 79306 0 833 4 0 0 0 PT SET SELECT 5/0/0 5759 [8757] 79307 2 32 125 0 0 0 MT SET SUBTRACT 27/0/1 574 [8758] 79308 71 793 16 0 0 0 >NO JUMP IF A != 0 26/0/0 775 [8759] 79309 80 799 2 0 0 0 >TEST'FIEND';REPORT IF SO ENTER SUBROUTINE 6/0/0 1472 [8760] 79310 0 833 12 0 0 0 NEXT IS BLOCK AMEND? SELECT 27/0/1 654 [8761] 79311 71 796 3 0 0 0 >YES,FINISH THIS BLOCK JUMP IF A != 0 6/0/0 1466 [8762] 79312 0 833 6 0 0 0 PT BLOCK;(WORD AMEND) SELECT 5/0/0 5772 [8763] 79313 2 32 138 0 0 0 PT BLOCK SUBTRACT 27/0/1 654 [8764] 79314 71 796 3 0 0 0 >DIFFERENT BLOCK,FINISH THIS ONE JUMP IF A != 0 24/1/0 724 [8765] 79315 76 798 2 0 0 0 >APPLY JUMP unconditional 26/0/0 2462 [8766] 79316 80 864 2 0 0 0 >WRITE AND PRINT TO FIEND ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 4 [8768] 79317 00 7 4 1 0 0 ;TEST CHAPT BLOCK SELECT 5/1/0 2576 [8769] 79318 02 870 6 1 0 0 SUBTRACT 27/0/1 885 [8770] 79319 71 804 2 0 0 0 >NO ERROR JUMP IF A != 0 6/1/0 1462 [8771] 79320 0 833 2 1 0 0 PT FILE SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 5/1/0 26 [8773] 79321 2 7 26 1 0 0 MT FILE SUBTRACT 27/0/1 588 [8774] 79322 71 793 27 0 0 0 >NO JUMP IF A != 0 1/0/1 1 [8775] 79323 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 24/1/2 17 Extra code needed to address transit area no 2, section 7 15/1/0 19 [8777] 79324 36 7 18 2 0 0 MT SET COLLATE AND ADD 5/0/0 1464 [8778] 79325 2 833 4 0 0 0 PT SET SUBTRACT 27/0/0 617 [8779] 79326 70 795 2 0 0 0 >YES JUMP IF A == 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 26 [8781] 79327 0 7 26 1 0 0 ROUTE IDENTIFIER SELECT 18/0/1 6 [8782] 79328 30 0 0 0 6 SHIFT (A) BY QUARTETS 2/1/0 5596 [8783] 79329 5 30 2 1 0 0 TRANSFER 26/0/0 2158 [8784] 79330 80 856 2 0 0 0 >PRINT'FILE UNALTERED' ENTER SUBROUTINE 24/1/0 575 [8785] 79331 76 793 17 0 0 0 > JUMP unconditional Start of procedure 794 at location 594 in chapter 7 [8786] [8786] 79400 PROCR 794 PREPARE TO APPLY AMENDMENTS [8786] 79401 NOTES RADIX B 0/0/0 0 [8786] 79402 81 794 2 0 0 0 START OF SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 13 [8788] 79403 00 7 12 2 0 0 RUN NO SELECT 2/0/0 5598 [8789] 79404 05 30 4 0 0 0 TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 23 [8791] 79405 00 7 22 2 0 0 BLOCK SIZE SELECT 2/0/0 5599 [8792] 79406 05 30 5 0 0 0 TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 21 [8794] 79407 00 7 20 2 0 0 SECN NO SELECT 2/0/0 5600 [8795] 79408 05 30 6 0 0 0 TRANSFER 1/0/1 1 [8796] 79409 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 24/1/2 17 Extra code needed to address transit area no 2, section 7 15/1/0 19 [8798] 79410 36 7 18 2 0 0 'CLEAN'SET NO COLLATE AND ADD 2/0/0 5601 [8799] 79411 05 30 7 0 0 0 TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 25 [8801] 79412 00 7 24 2 0 0 IND SELECT 2/0/0 5602 [8802] 79413 05 30 8 0 0 0 TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 10 [8804] 79414 00 7 10 1 0 0 FILE ID SELECT 18/0/1 6 [8805] 79415 30 0 0 0 6 SHIFT (A) BY QUARTETS 2/1/0 5604 [8806] 79416 05 30 10 1 0 0 TRANSFER 26/0/0 1857 [8807] 79417 80 849 2 0 0 0 >PROCESS TD HEADING ENTER SUBROUTINE 26/0/1 594 [8808] 79418 82 794 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 795 at location 617 in chapter 7 [8809] [8809] 79500 PROCR 795 ALIGN ON FIRST BLOCK TO BE AMENDED [8809] 79501 NOTES RADIX B 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 26 [8810] 79502 00 7 26 1 0 0 SELECT 3/1/0 5760 [8811] 79503 03 32 126 1 0 0 STORE FILE ID COPY 18/0/1 6 [8812] 79504 30 0 0 0 6 SHIFT (A) BY QUARTETS 2/1/0 5596 [8813] 79505 05 30 2 1 0 0 TRANSFER 1/0/1 1 [8814] 79506 35 0 0 0 1 PREPARE FOR DIGIT COLLATION Source: ChuckK/Q1000730 24/1/2 17 Extra code needed to address transit area no 2, section 7 15/1/0 19 [8816] 79507 36 7 18 2 0 0 CLEAN SET NO COLLATE AND ADD 2/0/0 5759 [8817] 79508 05 32 125 0 0 0 TRANSFER 6/0/0 1472 [8818] 79509 833 12 0 0 0 SELECT 27/0/0 631 [8819] 79510 70 795 14 0 0 0 >WORD AMEND OF THIS BLOCK JUMP IF A == 0 6/0/0 1466 [8820] 79511 0 833 6 0 0 0 BLOCK NUMBER SELECT 1/1/2 7 [8821] 79512 12 0 0 0 7 SUBTRACT LITERAL 27/0/0 681 [8822] 79513 70 797 2 0 0 0 >REPLACING FILE HEADING JUMP IF A == 0 26/0/0 594 [8823] 79514 80 794 2 0 0 0 ENTER SUBROUTINE 26/0/0 1848 [8824] 79515 80 848 2 0 0 0 >PROCESS AND PRINT HEADING ENTER SUBROUTINE 1/1/3 8 [8825] 79516 10 0 0 0 8 SET BLOCK CTRS AT 8 SELECT LITERAL 2/0/0 5772 [8826] 79517 05 32 138 0 0 0 TRANSFER 6/1/0 4788 [8827] 79518 90 0 0 8 22 SET(MR8)=24:22 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [8828] 79519 C 0 0 0 24 Simulated modifier 26/0/0 2411 [8829] 79520 80 861 2 0 0 0 >READ AND STORE BLOCK ENTER SUBROUTINE 26/0/0 1544 [8830] 79521 80 838 2 0 0 0 >SET SWITCHES AND WORD NOS ENTER SUBROUTINE 6/0/0 1466 [8831] 79522 0 833 6 0 0 0 PT BLOCK NO SELECT 5/0/0 5772 [8832] 79523 2 32 138 0 0 0 MT BLOCK NO SUBTRACT 27/0/3 679 [8833] 79524 73 796 24 0 0 0 >MISALIGNED JUMP IF A < 0 27/0/0 724 [8834] 79525 70 798 2 0 0 0 >OPERATE ON THIS BLOCK JUMP IF A == 0 24/0/1 8155 [8835] 79526 85 785 2 0 0 0 ;TEST BLOCK AND SWITCH R 26/0/1 644 [8836] 0/0/1 653 [8837] 79527 C 796 2 0 0 0 >NO;ITEM LENGTHS TO BE 0/0/1 647 [8838] s 79528 C 795 29 0 0 0 >YES;CHECKED 6/1/0 5775 [8839] 79529 00 32 140 2 0 0 STORE POSN OF B/E WORD SELECT 1/1/1 6 [8840] 79530 11 0 0 0 6 ADD LITERAL 26/0/0 1166 [8841] 79531 80 822 2 0 0 0 >CONVERT TO DEC ENTER SUBROUTINE 2/0/0 5800 [8842] 79532 05 32 166 0 0 0 TRANSFER 1/1/3 6 [8843] 79533 10 0 0 0 6 SET ITEM LENGTH POSN SELECT LITERAL 2/0/0 5799 [8844] 79534 05 32 165 0 0 0 =WORD 6 TRANSFER Start of procedure 796 at location 653 in chapter 7 [8845] [8845] 79600 PROCR 796 ALIGN ON REQD BLOCK(2) [8845] 79601 NOTES RADIX B 26/0/0 2383 [8845] 79602 80 860 2 0 0 0 >PROCESS WORD ENTER SUBROUTINE 24/0/1 8177 [8846] 79603 85 786 4 0 0 0 ;TEST B/E FOUND SWITCH R 26/0/1 655 [8847] 0/0/1 653 [8848] 79604 C 796 2 0 0 0 >NO 0/0/1 659 [8849] s 79605 C 796 7 0 0 0 >YES 0/0/1 660 [8850] s 79606 C 796 8 0 0 0 >YES,AT END OF LINE 26/0/0 2059 [8851] 79607 80 853 2 0 0 0 >PRINT REST OF LINE ENTER SUBROUTINE 6/0/0 8178 [8852] 4/0/0 8178 [8853] 79609 98 0 0 8 0 ADD MODIFICATION REGISTER TO A 24/0/3 22 [8854] 79610 92 0 0 3 0 SET MODIFIER AT VARIABLE 2/0/0 6 [8855] 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/3 4 [8857] 79611 00 7 4 1 3 0 SELECT 5/1/0 2574 [8858] 79612 02 870 4 1 0 0 SUBTRACT 27/0/1 638 [8859] 79613 71 795 21 0 0 0 >NO JUMP IF A != 0 6/0/0 1466 [8860] 79614 0 833 6 0 0 0 PT BLOCK SELECT 5/0/0 5772 [8861] 79615 2 32 138 0 0 0 PRESENT MT BLOCK SUBTRACT 27/0/1 679 [8862] 79616 71 796 24 0 0 0 >ERROR JUMP IF A != 0 6/0/0 1472 [8863] 79617 0 833 12 0 0 0 SELECT 27/0/0 679 [8864] 79618 70 796 24 0 0 0 >ERROR,WORD AMEND JUMP IF A == 0 6/0/0 8152 [8865] 79619 86 830 2 0 0 0 SELECT SWITCH R 1/1/2 3 [8866] 79620 12 0 0 0 3 SUBTRACT LITERAL 27/0/1 679 [8867] 79621 71 796 24 0 0 0 >ERROR,NOT INSERTING BLOCK JUMP IF A != 0 1/1/3 1 [8868] 79622 83 129 2 0 0 1 SET INSERTING BEFORE FIEND SWITCH SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8175 [8869] 24/1/0 724 [8870] 79623 76 798 2 0 0 0 JUMP unconditional Source: ChuckK/Q1000731 26/0/0 1129 [8871] 79624 80 820 2 0 0 0 >REPORT PT ENTER SUBROUTINE 24/1/0 882 [8872] 79625 76 803 39 0 0 0 > JUMP unconditional Start of procedure 797 at location 681 in chapter 7 [8873] [8873] 79700 PROCR 797 'FILEA' FOR BLOCK 7-PROCESS FOLLOWING'FILES'BLOCK [8873] 79701 NOTES RADIX B 26/0/0 995 [8873] 79702 80 811 2 0 0 0 >READ B1 ENTER SUBROUTINE 26/0/0 1063 [8874] 79703 80 814 2 0 0 0 UNPACK P/T ENTER SUBROUTINE 26/0/0 1857 [8875] 79704 80 849 2 0 0 0 ENTER SUBROUTINE 26/0/0 1848 [8876] 79705 80 848 2 0 0 0 >PROCESS AND PRINT HEADING ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 26 [8878] 79706 0 7 26 1 0 0 STORE FILE ID SELECT 2/1/0 5760 [8879] 79707 5 32 126 1 0 0 TRANSFER 1/0/1 1 [8880] 79708 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 24/1/2 17 Extra code needed to address transit area no 2, section 7 15/1/0 19 [8882] 79709 36 7 18 2 0 0 COLLATE AND ADD 2/0/0 5759 [8883] 79710 5 32 125 0 0 0 TRANSFER 1/1/3 8 [8884] 79711 10 0 0 0 8 SET BLOCK CTRS AT 8 SELECT LITERAL 2/0/0 5772 [8885] 79712 5 32 138 0 0 0 TRANSFER 26/0/0 1544 [8886] 79713 80 838 2 0 0 0 >SET UP WORD NOS ENTER SUBROUTINE 6/1/0 4790 [8887] 79714 90 0 0 8 22 SET (MR8) AT 22:24 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [8888] 79715 C 0 0 0 24 Simulated modifier 26/0/0 2411 [8889] 79716 80 861 2 0 0 0 >READ AND STORE BLOCK ENTER SUBROUTINE 26/0/0 995 [8890] 79717 80 811 2 0 0 0 >READ B1 ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [8892] 79718 9 0 1 0 0 SELECT 5/1/0 4792 [8893] 79719 12 0 0 0 5659635551 'FILEA' SUBTRACT LITERAL 27/0/1 880 [8894] 79720 71 803 37 0 0 0 >NO JUMP IF A != 0 26/0/0 1377 [8895] 79721 80 829 2 0 0 0 UNPACK ENTER SUBROUTINE 6/0/0 1466 [8896] 79722 833 6 0 0 0 BLOCK NO SELECT 5/0/0 5772 [8897] 79723 2 32 138 0 0 0 SUBTRACT 27/0/1 560 [8898] 79724 71 793 2 0 0 0 >NOT THIS JUMP IF A != 0 6/1/0 1462 [8899] 79725 833 2 1 0 0 FILE ID SELECT 5/1/0 5760 [8900] 79726 2 32 126 1 0 0 SUBTRACT 27/0/1 574 [8901] 79727 71 793 16 0 0 0 >NO JUMP IF A != 0 6/1/0 1464 [8902] 79728 833 4 1 0 0 SET NO SELECT 5/0/0 5759 [8903] 79729 2 32 125 0 0 0 SUBTRACT 27/0/1 574 [8904] 79730 71 793 16 0 0 0 >NO JUMP IF A != 0 24/0/1 8175 [8905] 79731 85 129 2 0 0 0 HAVE WE INSERTED BEFORE FIEND? SWITCH R 26/0/1 714 [8906] 0/0/1 717 [8907] s 79732 C 797 34 0 0 0 YES 0/0/1 720 [8908] s 79733 C 797 36 0 0 0 NO 1/1/3 2 [8909] 79734 83 129 2 0 0 2 RESET SWITCH SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8175 [8910] 24/1/0 721 [8911] 79735 76 797 37 0 0 0 JUMP unconditional 26/0/0 775 [8912] 79736 80 799 2 0 0 0 TEST FIEND ENTER SUBROUTINE 6/0/0 1472 [8913] 79737 833 12 0 0 0 SELECT 27/0/0 570 [8914] 79738 70 793 12 0 0 0 >WORD AMDT JUMP IF A == 0 24/1/0 639 [8915] 79739 76 795 22 0 0 0 > JUMP unconditional Start of procedure 798 at location 724 in chapter 7 [8916] [8916] 79800 PROCR 798 'FILEA'FOR DELETION/REPLACEMENT/INSERTION OF WHOLE BLOCKS [8916] 79801 NOTES RADIX B 6/0/0 1472 [8916] 79802 0 833 12 0 0 0 IND SELECT 27/0/0 779 [8917] 79803 70 800 2 0 0 0 >WORD AMDT JUMP IF A == 0 24/0/1 8152 [8918] 79804 85 830 4 0 0 0 AMDT TYPE SWITCH SWITCH R 26/0/1 727 [8919] 0/0/1 731 [8920] s 79805 C 798 8 0 0 0 >D 0/0/1 745 [8921] s 79806 C 798 22 0 0 0 >R 0/0/1 747 [8922] s 79807 C 798 24 0 0 0 >T 6/0/0 1468 [8923] 79808 0 833 8 0 0 0 LAST BLOCK NO;DELETE BLOCK(S) SELECT Source: ChuckK/Q1000732 27/0/1 735 [8924] 79809 71 798 12 0 0 0 >DELETING SEVERAL JUMP IF A != 0 6/0/0 1466 [8925] 79810 0 833 6 0 0 0 FIRST SELECT 2/0/0 1468 [8926] 79811 5 833 8 0 0 0 SET AS LAST TRANSFER 26/0/0 775 [8927] 79812 80 799 2 0 0 0 >TEST'FIEND' ENTER SUBROUTINE 26/0/0 2443 [8928] 79813 80 862 2 0 0 0 >READ TO END OF BLOCK ENTER SUBROUTINE 6/0/0 1466 [8929] 79814 0 833 6 0 0 0 FIRST SELECT 5/0/0 1468 [8930] 79815 2 833 8 0 0 0 =LAST? SUBTRACT 27/0/0 698 [8931] 79816 70 797 17 0 0 0 >YES JUMP IF A == 0 0/0/3 4705 [8932] 79817 60 0 0 0 0 SET DECIMAL RADIX 6/0/0 4706 [8933] 79818 10 0 0 0 1- STEP BLOCK W/L 2 SELECT LITERAL 7/0/0 1468 [8934] 79819 4 833 8 0 0 0 REDUCE LAST AUGMENT 0/0/3 0 [8935] 79820 62 0 0 0 0 SET EXCESS CONSTANTS 24/1/0 735 [8936] 79821 76 798 12 0 0 0 > JUMP unconditional 26/0/0 775 [8937] 79822 80 799 2 0 0 0 >TEST'FIEND' ENTER SUBROUTINE 26/0/0 2443 [8938] 79823 80 862 2 0 0 0 >READ TO END OF BLOCK ENTER SUBROUTINE 26/0/0 1544 [8939] 79824 80 838 2 0 0 0 >NEW O/P BLOCK PRELIMS ENTER SUBROUTINE 26/0/0 286 [8940] 79825 80 784 2 0 0 0 >READ/APPLY PT ENTER SUBROUTINE 27/0/3 748 [8941] 79826 73 798 25 0 0 0 >NOT END OF MT BLOCK JUMP IF A < 0 27/0/0 761 [8942] 79827 70 798 38 0 0 0 >NEW DT JUMP IF A == 0 26/0/0 995 [8943] 79828 80 811 2 0 0 0 >READ PT ENTER SUBROUTINE 26/0/0 521 [8944] 79829 80 791 2 0 0 0 >TEST NEW DT? ENTER SUBROUTINE 27/0/0 761 [8945] 79830 70 798 38 0 0 0 >YES JUMP IF A == 0 6/0/0 8152 [8946] 79831 86 830 2 0 0 0 AMDT TYPE SWITCH SELECT SWITCH R 1/1/2 3 [8947] 79832 12 0 0 0 3 SUBTRACT LITERAL 27/0/0 759 [8948] 79833 70 798 36 0 0 0 >INSERTION JUMP IF A == 0 26/0/0 775 [8949] 79834 80 799 2 0 0 0 >TEST'FIEND';REPLACEMENT ENTER SUBROUTINE 26/0/0 2443 [8950] 79835 80 862 2 0 0 0 >READ TO END OF BLOCK BEING REPLACED ENTER SUBROUTINE 26/0/0 1544 [8951] 79836 80 838 2 0 0 0 >NEW O/P BLOCK PRELIMS ENTER SUBROUTINE 24/1/0 1173 [8952] 79837 76 823 2 0 0 0 >UNPACK PT AND RETURN VIA S/R 768 JUMP unconditional 24/0/1 8177 [8953] 79838 85 786 4 0 0 0 DID LAST BLOCK HAVE BEN? SWITCH R 26/0/1 762 [8954] 0/0/1 766 [8955] s 79839 C 798 42 0 0 0 >NO 0/0/1 842 [8956] 79840 C 803 2 0 0 0 >YES 0/0/1 842 [8957] 79841 C 803 2 0 0 0 >YES 6/1/0 2638 [8958] 79842 872 4 1 0 0 BEW SELECT 3/1/1 5670 [8959] 79843 3 32 36 1 1 0 FOR MT COPY 2/1/2 5634 [8960] 79844 5 32 0 1 2 0 AND PRINTER TRANSFER 26/0/0 423 [8961] 79845 80 788 2 0 0 0 >SET AMENDIND,PROCESS WORD ENTER SUBROUTINE 25/0/2 0 [8962] 79846 94 798 48 0 2 0 /////;END OF LINE STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 773 [8963] s 24/1/0 842 [8964] 79847 76 803 2 0 0 0 JUMP unconditional 26/0/0 2059 [8965] 79848 80 853 2 0 0 0 >END OF BLOCK S/R ENTER SUBROUTINE 24/1/0 842 [8966] 79849 76 803 2 0 0 0 JUMP unconditional Start of procedure 799 at location 775 in chapter 7 [8967] [8967] 79900 PROCR 799 TEST I/P AT'FIEND' 0/0/0 0 [8967] 79902 81 799 2 0 0 0 START OF SUBROUTINE 26/0/0 833 [8968] 79903 80 802 2 0 0 0 > ENTER SUBROUTINE 27/0/0 679 [8969] 79904 70 796 24 0 0 0 >REPORT JUMP IF A == 0 26/0/1 775 [8970] 79905 82 799 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 800 at location 779 in chapter 7 [8971] [8971] 80000 PROCR 800 ALIGN ON REQUIRED WORD [8971] 80001 NOTES RADIX B 24/0/1 8154 [8971] 80002 85 781 2 0 0 0 FIRST WORD? SWITCH R 26/0/1 780 [8972] 0/0/1 785 [8973] s 80003 C 800 7 0 0 0 >NO 0/0/1 783 [8974] s 80004 C 800 5 0 0 0 >YES 1/1/3 4 [8975] 80005 10 0 0 0 4 START AT WORD 4 SELECT LITERAL 2/0/0 5798 [8976] 80006 5 32 164 0 0 0 TRANSFER 6/0/0 1468 [8977] 80007 0 833 8 0 0 0 WORD SELECT 5/0/0 5798 [8978] 80008 2 32 164 0 0 0 ;REQD WORD SUBTRACT Source: RayS/Q1000733 27/0/0 801 [8979] 80009 70 801 2 0 0 0 >YES JUMP IF A == 0 27/0/3 679 [8980] 80010 73 796 24 0 0 0 >YES;TEST ALIGNED AFTER JUMP IF A < 0 26/0/0 2383 [8981] 80011 80 860 2 0 0 0 >PROCESS WORD ENTER SUBROUTINE 24/0/1 8177 [8982] 80012 85 786 4 0 0 0 ;TEST B/E WORD SWITCH R 26/0/1 791 [8983] 0/0/1 795 [8984] s 80013 C 800 16 0 0 0 >NO 0/0/1 797 [8985] s 80014 C 800 18 0 0 0 0/0/1 798 [8986] s 80015 C 800 19 0 0 0 26/0/0 1576 [8987] 80016 80 840 2 0 0 0 STEP WORD CTR BY 2 ENTER SUBROUTINE 24/1/0 785 [8988] 80017 76 800 7 0 0 0 > JUMP unconditional 26/0/0 2059 [8989] 80018 80 853 2 0 0 0 >FINISH PRINTING BLOCK ENTER SUBROUTINE 26/0/0 1129 [8990] 80019 80 820 2 0 0 0 >PRINT PT ENTER SUBROUTINE 26/0/0 1544 [8991] 80020 80 838 2 0 0 0 >PREP FOR NEW BLOCK ENTER SUBROUTINE 24/1/0 882 [8992] 80021 76 803 39 0 0 0 >READ JUMP unconditional Start of procedure 801 at location 801 in chapter 7 [8993] [8993] 80100 PROCR 801 'FILEA' FOR DELETION/REPLACEMENT/INSERTION OF WORDS WITHIN CURRENT [8993] 80101 NOTES RADIX B 24/0/1 8152 [8993] 80102 85 830 4 0 0 0 AMDT TYPE SWITCH SWITCH R 26/0/1 802 [8994] 0/0/1 806 [8995] s 80103 C 801 6 0 0 0 >D 0/0/1 829 [8996] s 80104 C 801 28 0 0 0 >R 0/0/1 829 [8997] s 80105 C 801 28 0 0 0 >T 6/0/0 1470 [8998] 80106 0 833 10 0 0 0 LAST WORD;DELETE WORD(S) SELECT 27/0/1 810 [8999] 80107 71 801 10 0 0 0 >NO;TO BE DELETED JUMP IF A != 0 6/0/0 1468 [9000] 80108 0 833 8 0 0 0 FRST SELECT 2/0/0 1470 [9001] 80109 5 833 10 0 0 0 SET AS LAST TRANSFER 0/0/3 4707 [9002] 80110 60 0 0 0 0 SET DECIMAL RADIX 6/0/0 1470 [9003] 80111 833 10 0 0 0 LAST SELECT 1/1/1 2 [9004] 80112 11 0 0 0 2 ADD LITERAL 2/0/0 1470 [9005] 80113 5 833 10 0 0 0 TRANSFER 0/0/3 0 [9006] 80114 62 0 0 0 0 SET EXCESS CONSTANTS 24/0/1 8178 [9007] 80115 32 140 1 8 0 CURRENT MT WORD SELECT 6/1/0 5774 [9008] 5/1/0 2638 [9009] 80116 2 872 4 1 0 0 SUBTRACT 27/0/0 679 [9010] 80117 70 796 24 0 0 0 >DELETING BEW, REPORT JUMP IF A == 0 26/0/0 2411 [9011] 80118 80 861 2 0 0 0 >STEP(MR8)S/R ENTER SUBROUTINE 26/0/0 1576 [9012] 80119 80 840 2 0 0 0 STEP WORD CTR BY 2 ENTER SUBROUTINE 6/0/0 5798 [9013] 80120 00 32 164 0 0 0 ;TEST LAST WORD SELECT 5/0/0 1470 [9014] 80121 2 833 10 0 0 0 >NO SUBTRACT 27/0/1 815 [9015] 80122 71 801 15 0 0 0 JUMP IF A != 0 26/0/0 995 [9016] 80123 80 811 2 0 0 0 >READ PT ENTER SUBROUTINE 26/0/0 521 [9017] 80124 80 791 2 0 0 0 >TEST RECOGNISABLE ENTER SUBROUTINE 27/0/0 850 [9018] 80125 70 803 8 0 0 0 >YES JUMP IF A == 0 26/0/0 1129 [9019] 80126 80 820 2 0 0 0 >PRINT PT ENTER SUBROUTINE 24/1/0 824 [9020] 80127 76 801 23 0 0 0 JUMP unconditional 26/0/0 286 [9021] 80128 80 784 2 0 0 0 >READ/APPLY PT ENTER SUBROUTINE 27/0/0 850 [9022] 80129 70 803 8 0 0 0 >NEW DATA TYPE JUMP IF A == 0 27/0/3 829 [9023] 80130 73 801 28 0 0 0 >NOT TD BLOCK END JUMP IF A < 0 24/1/0 824 [9024] 80131 76 801 23 0 0 0 >EXPECT A NEW DATA TYPE JUMP unconditional Start of procedure 802 at location 833 in chapter 7 [9025] [9025] 80200 PROCR 802 TEST FIEND 0/0/0 0 [9025] 80202 81 802 2 0 0 0 START OF SUBROUTINE 6/0/0 8178 [9026] 4/0/0 8178 [9027] 80204 98 0 0 8 0 ADD MODIFICATION REGISTER TO A 24/0/3 22 [9028] 80205 92 0 0 3 0 SET MODIFIER AT VARIABLE 2/0/0 6 [9029] 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/3 4 [9031] 80206 7 4 1 3 0 SELECT 5/1/0 2574 [9032] 80207 2 870 4 1 0 0 SUBTRACT 26/0/1 833 [9033] 80208 82 802 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 803 at location 842 in chapter 7 [9034] [9034] 80300 PROCR 803 TEST NEXT PT DIRECTIVE FOR SAME FILE/BOCK Source: RayS/Q1000734 [9034] 80301 NOTES RADIX B 24/0/1 8175 [9034] 80302 85 129 2 0 0 0 HAVE WE INSERTED BEFORE FIEND SWITCH R 26/0/1 843 [9035] 0/0/1 846 [9036] s 80303 C 803 5 0 0 0 0/0/1 849 [9037] s 80304 C 803 7 0 0 0 1/1/3 2 [9038] 80305 83 129 2 0 0 2 RESET SWITCH SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8175 [9039] 24/1/0 880 [9040] 80306 76 803 37 0 0 0 JUMP unconditional 26/0/0 1544 [9041] 80307 80 838 2 0 0 0 ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [9043] 80308 0 9 0 1 0 0 SELECT 5/1/0 4794 [9044] 80309 12 0 0 0 5659635551 'FILEA' SUBTRACT LITERAL 27/0/0 858 [9045] 80310 70 803 15 0 0 0 JUMP IF A == 0 26/0/0 833 [9046] 80311 80 802 2 0 0 0 TEST FIEND ENTER SUBROUTINE 27/0/1 879 [9047] 80312 71 803 36 0 0 0 >NO JUMP IF A != 0 26/0/0 2462 [9048] 80313 80 864 2 0 0 0 WRITE & PRINT TO FIEND ENTER SUBROUTINE 24/1/0 880 [9049] 80314 76 803 37 0 0 0 > JUMP unconditional 26/0/0 1377 [9050] 80315 80 829 2 0 0 0 >UNPACK ENTER SUBROUTINE 6/1/0 1462 [9051] 80316 833 2 1 0 0 PT FILE SELECT 5/1/0 5760 [9052] 80317 2 32 126 1 0 0 MT FILE SUBTRACT 27/0/0 865 [9053] 80318 70 803 22 0 0 0 JUMP IF A == 0 26/0/0 833 [9054] 80319 80 802 2 0 0 0 >TEST FIEND ENTER SUBROUTINE 27/0/0 880 [9055] 80320 70 803 37 0 0 0 >YES JUMP IF A == 0 24/1/0 879 [9056] 80321 76 803 36 0 0 0 >NO JUMP unconditional 6/0/0 1464 [9057] 80322 833 4 0 0 0 PT SET SELECT 5/0/0 5759 [9058] 80323 2 32 125 0 0 0 MT SET SUBTRACT 27/0/1 862 [9059] 80324 71 803 19 0 0 0 JUMP IF A != 0 6/0/0 1466 [9060] 80325 833 6 0 0 0 PT BLOCK SELECT 5/0/0 5772 [9061] 80326 2 32 138 0 0 0 MT BLOCK SUBTRACT 27/0/1 875 [9062] 80327 71 803 32 0 0 0 JUMP IF A != 0 6/0/0 1472 [9063] 80328 833 12 0 0 0 SELECT 27/0/1 660 [9064] 80329 71 796 8 0 0 0 >BLOCK AMDT JUMP IF A != 0 26/0/0 775 [9065] 80330 80 799 2 0 0 0 >REPORT IF AT FIEND ENTER SUBROUTINE 24/1/0 724 [9066] 80331 76 798 2 0 0 0 >WORD AMDT TO SAME BLOCK JUMP unconditional 26/0/0 775 [9067] 80332 80 799 2 0 0 0 >REPORT IF AT FIEND ENTER SUBROUTINE 26/0/0 2452 [9068] 80333 80 863 2 0 0 0 >FINISH BLOCK ENTER SUBROUTINE 26/0/0 1544 [9069] 80334 80 838 2 0 0 0 >RESET SWITCHES ENTER SUBROUTINE 24/1/0 660 [9070] 80335 76 796 8 0 0 0 > JUMP unconditional 26/0/0 2452 [9071] 80336 80 863 2 0 0 0 >PROCESS TO END OF BLOCK S/R ENTER SUBROUTINE 26/0/0 1306 [9072] 80337 80 826 2 0 0 0 TEST P/T ENTER SUBROUTINE 26/0/0 1129 [9073] 80338 80 820 2 0 0 0 >PRINT ERROR LINE ENTER SUBROUTINE 26/0/0 995 [9074] 80339 80 811 2 0 0 0 >READ P/T ENTER SUBROUTINE 26/0/0 1306 [9075] 80340 80 826 2 0 0 0 >TEST P/T ENTER SUBROUTINE 24/1/0 881 [9076] 80341 76 803 38 0 0 0 >PRINT UNTIL RECOGNISED JUMP unconditional Start of procedure 804 at location 885 in chapter 7 [9077] [9077] 80400 PROCR 804 END ROUTINE [9077] 80401 NOTES RADIX B Source: RayS/Q1000735 26/0/0 1129 [9077] 80402 80 820 2 0 0 0 >PRINT PT ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 4 [9079] 80403 7 4 1 0 0 SELECT 5/1/0 2576 [9080] 80404 02 870 6 1 0 0 SUBTRACT 27/0/1 3030 [9081] 80405 71 882 2 0 0 0 >NO, MUST BE PREND OR E JUMP IF A != 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 26 [9083] 80406 0 7 26 1 0 0 SELECT 18/0/1 6 [9084] 80407 30 0 0 0 6 SHIFT (A) BY QUARTETS 2/1/0 5596 [9085] 80408 5 30 2 1 0 0 TRANSFER 26/0/0 2158 [9086] 80409 80 856 2 0 0 0 >PRINT 'FILE UNALTERED LINE ENTER SUBROUTINE 24/1/0 886 [9087] 80410 76 804 3 0 0 0 JUMP unconditional Start of procedure 805 at location 896 in chapter 7 [9088] [9088] 80500 PROCR 805 DUMP TYPE NOT IN RANGE OR TOO MANY POINTS [9088] 80501 NOTES RADIX B 6/1/0 2654 [9088] 80502 0 872 20 1 0 0 '?????' SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 48 [9090] 80503 5 5 48 1 0 0 TRANSFER 0/0/3 0 [9091] 80504 62 0 0 0 0 SET EXCESS CONSTANTS 24/0/2 2814 [9092] 80505 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [9094] 80506 C 877 2 0 0 0 6/1/0 4796 [9095] 80507 54 5 12 1 0 36 BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 12 [9097] 6/1/0 2652 [9098] 80508 00 872 18 1 0 0 REPLACE DUMPX BY SQUARES SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 4 [9100] 80509 05 5 4 1 0 0 TRANSFER 26/0/0 2540 [9101] 80510 80 866 2 0 0 0 >ADD ONE TO DISASTROUS CTR ENTER SUBROUTINE 23/0/0 4097 [9102] 80511 94 0 0 4 1- STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [9103] 24/1/0 913 [9104] 26/0/0 1105 [9105] 80512 80 817 2 0 0 0 >PRINT ENTER SUBROUTINE 26/0/1 1599 [9106] 80513 82 842 2 0 0 0 >LEAVE DUMPS POIT S/R END OF SUBROUTINE / LEAVE SUBROUTINE 24/0/2 2814 [9107] 80514 52 5 2 0 0 0 EDIT DUMP POINT EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [9109] 80515 C 877 2 0 0 0 6/1/0 2654 [9110] 80516 872 20 1 0 0 '?????' SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 48 [9112] 80517 5 5 48 1 0 0 TRANSFER 6/1/0 4798 [9113] 80518 54 5 10 1 0 38 BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 10 [9115] 24/1/0 906 [9116] 80519 76 805 8 0 0 0 JUMP unconditional Start of procedure 806 at location 925 in chapter 7 [9117] [9117] 80600 PROCR 806 N1,N2 OR N3 OUT OF RANGE S/R [9117] 80601 NOTES RADIX 0/0/0 0 [9117] 80602 81 806 2 0 0 0 START OF SUBROUTINE 26/0/0 2546 [9118] 80603 80 867 2 0 0 0 >ADD ONE TO OTHERS CTR ENTER SUBROUTINE 6/1/0 4800 [9119] 80604 10 0 0 0 414243 SELECT LITERAL 14/1/0 2628 [9120] 80605 37 871 40 1 0 0 PACK IN NO REPLACE SELECTED BITS 1/1/3 0 [9121] 80606 10 0 0 0 0 SELECT LITERAL 1/0/1 960 [9122] 80607 35 0 0 0 1111000000 PREPARE FOR DIGIT COLLATION 15/1/0 2618 [9123] 80608 36 871 30 1 0 0 PACK IN*N COLLATE AND ADD 14/1/0 2628 [9124] 80609 37 871 40 1 0 0 REPLACE SELECTED BITS 1/1/3 255 [9125] 80610 101 255 1 3 0 SELECT LITERAL ADDRESS 26/0/1 925 [9126] 80611 82 806 2 0 0 0 > END OF SUBROUTINE / LEAVE SUBROUTINE 1/0/1 48 [9127] 80612 35 0 0 0 110000 PREPARE FOR DIGIT COLLATION 26/0/0 925 [9128] 80613 80 806 2 0 0 0 ENTER SUBROUTINE 24/1/0 1636 [9129] 80614 76 843 17 0 0 0 > JUMP unconditional 1/0/1 12 [9130] 80615 35 0 0 0 1100 PREPARE FOR DIGIT COLLATION 26/0/0 925 [9131] 80616 80 806 2 0 0 0 ENTER SUBROUTINE 24/1/0 1643 [9132] 80617 76 843 24 0 0 0 > JUMP unconditional 1/0/1 3 [9133] 80618 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 26/0/0 925 [9134] 80619 80 806 2 0 0 0 ENTER SUBROUTINE Source: RayS/Q1000736 24/1/0 1650 [9135] 80620 76 843 31 0 0 0 JUMP unconditional Start of procedure 807 at location 944 in chapter 7 [9136] [9136] 80700 PROCR 807 SECOND ERROR WORD S/R [9136] 80701 NOTES RADIX B 0/0/0 0 [9136] 80702 81 807 2 0 0 0 START OF SUBROUTINE 1/0/1 60 [9137] 80703 35 0 0 0 111100 PREPARE FOR DIGIT COLLATION 14/1/0 2630 [9138] 80704 37 871 42 1 0 0 PACK IN *C S OR P REPLACE SELECTED BITS 26/0/0 2546 [9139] 80705 80 867 2 0 0 0 >ADD ONE TO 'OTHERS' CTR ENTER SUBROUTINE 24/0/3 22 [9140] 80706 96 0 0 1 0 SELECT MODIFIER 6/0/0 2 [9141] 27/0/1 955 [9142] 80707 71 807 12 0 0 0 >NO JUMP IF A != 0 1/0/1 3 [9143] 80708 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 1/1/3 65 [9144] 80709 10 0 0 0 41 PACK IN ONE SELECT LITERAL 14/1/0 2630 [9145] 80710 37 871 42 1 0 0 REPLACE SELECTED BITS 1/1/3 0 [9146] 80711 10 0 0 0 0 SELECT LITERAL 26/0/1 944 [9147] 80712 82 807 2 0 0 0 > END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 808 at location 956 in chapter 7 [9148] [9148] 80800 PROCR 808 THIRD ERROR WORD S/R [9148] 80801 NOTES RADIX B 0/0/0 0 [9148] 80802 81 808 2 0 0 0 START OF SUBROUTINE 1/0/1 768 [9149] 80803 35 0 0 0 1100000000 PREPARE FOR DIGIT COLLATION 1/1/2 1 [9150] 80804 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 970 [9151] 80805 70 808 16 0 0 0 >2ND CHAP JUMP IF A == 0 1/1/2 1 [9152] 80806 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 969 [9153] 80807 70 808 15 0 0 0 >3RD CHAP JUMP IF A == 0 1/1/2 1 [9154] 80808 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 968 [9155] 80809 70 808 14 0 0 0 >4TH CHAP JUMP IF A == 0 1/1/2 1 [9156] 80810 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 967 [9157] 80811 70 808 13 0 0 0 >5TH CHAP JUMP IF A == 0 18/1/1 4126 [9158] 80812 32 0 0 0 2- 6TH CHAP SHIFT (AB) BY QUARTETS 18/1/1 4126 [9159] 80813 32 0 0 0 2- SHIFT (AB) BY QUARTETS 18/1/1 4126 [9160] 80814 32 0 0 0 2- SHIFT (AB) BY QUARTETS 18/1/1 4126 [9161] 80815 32 0 0 0 2- SHIFT (AB) BY QUARTETS 6/1/0 4802 [9162] 80816 10 0 0 0 4243444546 SELECT LITERAL 14/1/0 2632 [9163] 80817 37 871 44 1 0 0 PACK IN NO REPLACE SELECTED BITS 26/0/1 956 [9164] 80818 82 808 2 0 0 0 > END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 809 at location 973 in chapter 7 [9165] [9165] 80900 PROCR 809 IGNORE T D FILE ERROR S/R [9165] 80901 NOTES RADIX B 0/0/0 0 [9165] 80902 81 809 2 0 0 0 START OF SUBROUTINE 6/1/0 2630 [9166] 80903 0 871 42 1 0 0 ALREADY DONE? SELECT 5/1/0 2654 [9167] 80904 2 872 20 1 0 0 '?????' SUBTRACT 27/0/0 983 [9168] 80905 70 809 12 0 0 0 >YES JUMP IF A == 0 6/1/0 2654 [9169] 80906 872 20 1 0 0 '?????' SELECT 2/1/0 2630 [9170] 80907 05 871 42 1 0 0 TRANSFER 6/0/0 2552 [9171] 80908 0 868 2 0 0 0 '£££££' SELECT 1/0/1 24 [9172] 80909 35 0 0 0 11000 PACK ££ IN SET NUMBER PREPARE FOR DIGIT COLLATION 14/1/0 5625 [9173] 80910 37 31 12 2 0 0 AS 'IGNORE' IND REPLACE SELECTED BITS 26/0/0 2540 [9174] 80911 80 866 2 0 0 0 >ADD ONE TO 'DISASTROUS' CTR ENTER SUBROUTINE 26/0/1 973 [9175] 80912 82 809 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 810 at location 984 in chapter 7 [9176] [9176] 81000 PROCR 810 READ A1 S/R [9176] 81001 NOTES RADIX B 0/0/0 0 [9176] 81002 81 810 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [9177] 81003 42 A1 0 0 0 0 INPUT 0/0/3 0 [9178] 0/0/2 16 [9179] 81004 C 7 0 0 0 0 INPUT 6/1/0 0 [9180] 1/1/1 27 [9181] 25/1/1 4096 [9182] 24/0/3 0 [9183] 23/0/2 42 [9184] 0/1/1 40 [9185] 26/0/1 984 [9186] 81005 82 810 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 811 at location 995 in chapter 7 [9187] [9187] 81100 PROCR 811 READ B1 S/R [9187] 81101 NOTES RADIX B 0/0/0 0 [9187] 81102 81 811 2 0 0 0 START OF SUBROUTINE Source: ChuckK/Q1000737 26/0/0 121 [9188] 81103 80 779 2 0 0 0 >READ ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 0/1/2 49 [9190] 81104 34 9 48 2 0 0 SET (N) IN B 1/1/3 0 [9191] 81105 10 0 0 0 0 SELECT LITERAL 18/1/1 7 [9192] 81106 32 0 0 0 7 SHIFT (AB) BY QUARTETS 3/1/0 40 [9193] 81107 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [9194] 1/1/3 0 [9195] 81108 10 0 0 0 0 SELECT LITERAL 18/1/1 3 [9196] 81109 32 0 0 0 3 SHIFT (AB) BY QUARTETS 2/0/0 2557 [9197] 81110 05 869 2 0 0 0 TRANSFER 1/0/1 3 [9198] 81111 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 1/1/3 126 [9199] 81112 10 0 0 0 7. SELECT LITERAL 24/0/1 2557 [9200] 81113 124 869 2 0 1 0 MODIFY ADDRESS OF NEXT 18/1/1 0 [9201] 81114 32 0 0 0 0 ///// SHIFT (AB) BY QUARTETS 24/1/2 21 Extra code needed to address transit area no 4, section 9 14/1/3 0 [9203] 81115 37 9 0 1 3 0 REPLACE SELECTED BITS 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 4 [9205] 81116 55 9 4 1 0 44 BULK COPY 18/1/0 4123 [9206] 81117 C 9 0 1 0 0 1/1/3 44 [9207] 18/1/1 5 [9208] 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/1 0 [9210] 26/0/1 995 [9211] 81118 82 811 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 812 at location 1020 in chapter 7 [9212] [9212] 81200 PROCR 812 RIGHT-ALIGN(A) SR 0/0/0 0 [9212] 81202 81 812 2 0 0 0 START OF SUBROUTINE 18/1/1 4118 [9213] 81203 32 0 0 0 10- N->B SHIFT (AB) BY QUARTETS 2/1/0 2569 [9214] 81204 5 869 14 1 0 0 CLEAR WL TRANSFER 6/1/0 2569 [9215] 81205 0 869 14 1 0 0 SELECT 18/1/1 2 [9216] 81206 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/1/0 2569 [9217] 81207 5 869 14 1 0 0 TRANSFER 27/1/1 1023 [9218] 81208 75 812 5 0 0 0 >NOT END JUMP IF AB != 0 6/1/0 2569 [9219] 81209 0 869 14 1 0 0 SELECT 26/0/1 1020 [9220] 81210 82 812 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 813 at location 1029 in chapter 7 [9221] [9221] 81300 PROCR 813 UNPACK DUMPS POINT P/T SR [9221] 81301 NOTES RADIX B 0/0/0 0 [9221] 81302 81 813 2 0 0 0 START OF SUBROUTINE 6/1/0 4804 [9222] 81303 54 30 0 0 0 18 BULK CLEAR 28/0/0 5594 [9223] 24/0/1 6320 [9224] 81304 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 1033 [9225] 0/0/1 1040 [9226] s 81305 C 813 10 0 0 0 P/T 0/0/1 1036 [9227] s 81306 C 813 7 0 0 0 CARD 24/0/2 2692 [9228] 81307 50 9 0 0 0 0 UNPACK CARD UNPACK FIXED FIELD DATA 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/0/2 0 [9230] 81308 C 874 10 0 0 0 24/1/0 1043 [9231] 81309 76 813 13 0 0 0 JUMP unconditional 24/0/2 2668 [9232] 81310 124 873 14 0 2 0 SELECT LITERAL AND DIVISION 24/1/2 21 [9233] 81311 124 999 21 1 2 0 SEC 9 MODIFY ADDRESS OF NEXT 28/0/3 0 [9234] 81312 128 0 0 3 0 UNPACK UNPACK VARIABLE FIELD DATA 6/0/0 6044 [9235] 81313 92 30 0 0 0 SELECT 27/0/0 1046 [9236] 81314 70 813 16 0 0 0 >INITIAL TRANSLATION JUMP IF A == 0 26/0/1 1029 [9237] 81315 82 813 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 0/0/3 4708 [9238] 81316 60 0 0 0 0 SET DECIMAL RADIX 1/1/3 2 [9239] 81317 10 0 0 0 2 SELECT LITERAL 7/0/0 5594 [9240] 81318 4 30 0 0 0 0 STEP LINE SERIAL AUGMENT 6/0/0 5595 [9241] 81319 30 1 0 0 0 PM TYPE SELECT 1/1/2 6 [9242] 81320 12 0 0 0 6 SUBTRACT LITERAL 27/0/1 1061 [9243] 81321 71 813 31 0 0 0 >NOT LOCATION DUMP JUMP IF A != 0 26/1/3 4806 [9244] 81322 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [9245] 81323 C 0 0 0 12 Limit 6/0/3 5599 [9245] 81324 30 5 0 3 0 REF SELECT 27/0/0 1061 [9246] 81325 70 813 31 0 0 0 >END JUMP IF A == 0 1/1/2 256 [9247] 81326 12 0 0 0 100 SUBTRACT LITERAL 27/0/3 1059 [9248] 81327 73 813 30 0 0 0 >NOT PROCR JUMP IF A < 0 1/1/3 2 [9249] 81328 10 0 0 0 2 SELECT LITERAL 7/0/3 5600 [9250] 81329 4 30 6 0 3 0 STEP ITEM AUGMENT 25/0/3 2 [9251] 81330 94 813 24 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1053 [9252] s Source: ChuckK/Q1000738 0/0/3 0 [9253] 81331 62 0 0 0 0 SET EXCESS CONSTANTS 26/0/1 1029 [9254] 81332 82 813 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 814 at location 1063 in chapter 7 [9255] [9255] 81400 PROCR 814 UNPACK TD HEADING P/T S/R [9255] 81401 NOTES RADIX B 0/0/0 0 [9255] 81402 81 814 2 0 0 0 START OF SUBROUTINE 6/1/0 4808 [9256] 81403 54 30 0 0 0 18 BULK CLEAR 28/0/0 5594 [9257] 24/0/1 6320 [9258] 81404 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 1067 [9259] 0/0/1 1080 [9260] s 81405 C 814 16 0 0 0 P/T 0/0/1 1070 [9261] s 81406 C 814 7 0 0 0 CARD 24/0/2 2730 [9262] 81407 50 9 0 0 0 0 UNPACK CARD UNPACK FIXED FIELD DATA 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/0/2 0 [9264] 81408 C 874 48 0 0 0 6/1/0 5596 [9265] 81409 30 2 1 0 0 L-ALIGN ALPHA DATA SELECT 18/0/1 6 [9266] 81410 30 0 0 0 6 SHIFT (A) BY QUARTETS 2/1/0 5596 [9267] 81411 5 30 2 1 0 0 TRANSFER 6/1/0 5604 [9268] 81412 30 10 1 0 0 SELECT 18/0/1 6 [9269] 81413 30 0 0 0 6 SHIFT (A) BY QUARTETS 2/1/0 5604 [9270] 81414 5 30 10 1 0 0 TRANSFER 26/0/1 1063 [9271] 81415 82 814 2 0 0 0 > END OF SUBROUTINE / LEAVE SUBROUTINE 24/0/2 2660 [9272] 81416 124 873 6 0 2 0 SELECT LITERAL AND DIVISION 24/1/2 21 [9273] 81417 124 999 21 1 2 0 SEC 9 MODIFY ADDRESS OF NEXT 28/0/3 0 [9274] 81418 128 0 0 3 0 UNPACK UNPACK VARIABLE FIELD DATA 26/0/1 1063 [9275] 81419 82 814 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 815 at location 1084 in chapter 7 [9276] [9276] 81500 PROCR 815 WRITE A2 FROM SECTION 1 S/R [9276] 81501 NOTES RADIX B 0/0/0 0 [9276] 81502 81 815 2 0 0 0 START OF SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 24/0/2 4 [9278] 81503 55 7 4 1 0 50 BULK COPY 18/1/0 4123 [9279] 81504 C 8 4 1 0 0 1/1/3 50 [9280] 18/1/1 5 [9281] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [9283] 0/1/0 40 [9284] 81505 43 A2 0 0 0 0 OUTPUT 0/0/3 0 [9285] 0/0/2 18 [9286] 81506 C 8 0 0 0 0 OUTPUT 6/1/0 0 [9287] 1/1/1 36 [9288] 25/1/1 4096 [9289] 24/0/3 0 [9290] 23/0/2 43 [9291] 0/1/1 40 [9292] 26/0/1 1084 [9293] 81507 82 815 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 816 at location 1102 in chapter 7 [9294] [9294] 81600 PROCR 816 WRITE A2 FROM SECTION 4 S/R [9294] 81601 NOTES RADIX B 0/0/0 0 [9294] 81602 81 816 2 0 0 0 START OF SUBROUTINE 26/0/0 3494 [9295] 81603 80 890 2 0 0 0 ENTER SUBROUTINE 26/0/1 1102 [9296] 81604 82 816 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 817 at location 1105 in chapter 7 [9297] [9297] 81700 PROCR 817 PRINT S/R [9297] 81701 NOTES RADIX B 0/0/0 0 [9297] 81702 81 817 2 0 0 0 START OF SUBROUTINE 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 0 [9299] 81703 05 5 0 1 0 0 SET UP FUNCTION WORD TRANSFER 26/0/0 3530 [9300] 81704 80 892 2 0 0 0 ENTER SUBROUTINE 26/0/1 1105 [9301] 81705 82 817 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 818 at location 1110 in chapter 7 [9302] [9302] 81800 PROCR 818 PRINT BLANK LINE [9302] 81801 NOTES RADIX B 0/0/0 0 [9302] 81802 81 818 2 0 0 0 START OF SUBROUTINE 6/0/0 6319 [9303] 81803 27 9 0 0 0 ON LINE SELECT 27/0/0 1117 [9304] 81804 70 818 7 0 0 0 >YES JUMP IF A == 0 6/1/0 4810 [9305] 81805 54 5 0 1 0 50 BLANK LINE BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 0 [9307] 24/1/0 1120 [9308] 81806 76 818 9 0 0 0 JUMP unconditional 6/1/0 2638 [9309] 81807 872 4 1 0 0 BEW SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 2 [9311] 81808 5 5 2 1 0 0 TRANSFER 26/0/0 1105 [9312] 81809 80 817 2 0 0 0 ENTER SUBROUTINE 26/0/1 1110 [9313] 81810 82 818 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 819 at location 1122 in chapter 7 [9314] [9314] 81900 PROCR 819 CLEAR 1ST 2 WORDS OF ANNEXE [9314] 81901 NOTES RADIX Source: ChuckK/Q1000739 0/0/0 0 [9314] 81902 81 819 2 0 0 0 START OF SUBROUTINE 1/1/3 0 [9315] 81903 10 0 0 0 0 SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 2 [9317] 81904 05 5 2 1 0 0 TRANSFER 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 4 [9319] 81905 05 5 4 1 0 0 TRANSFER 26/0/1 1122 [9320] 81906 82 819 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 820 at location 1129 in chapter 7 [9321] [9321] 82000 PROCR 820 PRINT UNRECOGNISABLE P/T LINE S/R [9321] 82001 NOTES RADIX B 0/0/0 0 [9321] 82002 81 820 2 0 0 0 START OF SUBROUTINE 26/0/0 1110 [9322] 82003 80 818 2 0 0 0 >LINE FEED S/R ENTER SUBROUTINE 26/0/0 2534 [9323] 82004 80 865 2 0 0 0 >STEP'PT OMITTED' ENTER SUBROUTINE 6/1/0 2634 [9324] 82005 00 871 46 1 0 0 'P/T? ' SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 2 [9326] 82006 05 5 2 1 0 0 TRANSFER 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 49 [9328] 82007 9 48 2 0 0 SELECT 18/0/1 4125 [9329] 82008 30 0 0 0 3- SHIFT (A) BY QUARTETS 1/1/2 4 [9330] 82009 12 0 0 0 4 SUBTRACT LITERAL 3/1/0 40 [9331] 82010 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [9332] 1/1/3 0 [9333] 82011 10 0 0 0 0 CLEAR SELECT LITERAL 1/0/1 3 [9334] 82012 35 0 0 0 11 (FOR ONE CHAR) PREPARE FOR DIGIT COLLATION 24/1/2 21 Extra code needed to address transit area no 4, section 9 15/1/0 49 [9336] 82013 36 9 48 2 0 0 COLLATE AND ADD 2/0/0 1160 [9337] 82014 5 821 2 0 0 0 WL TRANSFER 24/0/1 1160 [9338] 82015 124 821 2 0 1 0 MODIFY ADDRESS OF NEXT 18/1/1 0 [9339] 82016 32 0 0 0 0 ///// SHIFT PACKING BITS OVER BE CHAR SHIFT (AB) BY QUARTETS 24/1/2 21 Extra code needed to address transit area no 4, section 9 14/1/3 0 [9341] 82017 37 9 0 1 3 0 CLEAR BE CHAR REPLACE SELECTED BITS 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 0 [9343] 82018 55 9 0 1 0 32 BULK COPY 18/1/0 4123 [9344] 82019 C 5 4 1 0 0 1/1/3 32 [9345] 18/1/1 5 [9346] 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 4 [9348] 26/0/0 1105 [9349] 82020 80 817 2 0 0 0 >PRINT ENTER SUBROUTINE 26/0/0 1110 [9350] 82021 80 818 2 0 0 0 >LINE FEED S/R ENTER SUBROUTINE 26/0/1 1129 [9351] 82022 82 820 2 0 0 0 > END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 821 at location 1160 in chapter 7 [9352] [9352] 82100 PROCR 821 CONVERT TO BINARY S/R [9352] 82101 NOTES RADIX B 0/0/0 0 [9352] 82102 81 821 2 0 0 0 START OF SUBROUTINE 2/1/0 4352 [9353] 82103 5 908 54 1 0 0 TRANSFER 0/0/3 0 [9354] 82104 62 0 0 0 0 SET EXCESS CONSTANTS 24/0/2 4402 [9355] 82105 124 909 2 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 4352 [9356] 82106 112 908 54 1 0 0 CONVERT 26/0/1 1160 [9357] 82107 82 821 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 822 at location 1166 in chapter 7 [9358] [9358] 82200 PROCR 822 CONVERT TO DECIMAL S/R [9358] 82201 NOTES RADIX B 0/0/0 0 [9358] 82202 81 822 2 0 0 0 START OF SUBROUTINE 2/1/0 4352 [9359] 82203 5 908 54 1 0 0 TRANSFER 0/0/3 4709 [9360] 82204 60 0 0 0 0 SET DECIMAL RADIX 24/0/2 4422 [9361] 82205 124 909 22 0 2 0 SELECT LITERAL AND DIVISION 12/1/0 4352 [9362] 82206 112 908 54 1 0 0 CONVERT 0/0/3 0 [9363] 82207 62 0 0 0 0 SET EXCESS CONSTANTS 26/0/1 1166 [9364] 82208 82 822 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 823 at location 1173 in chapter 7 [9365] [9365] 82300 PROCR 823 UNPACK THIS PT/CARD BLOCK CHARACTER-BY-CHARACTER [9365] 82301 NOTES RADIX B 26/1/3 2636 [9365] 82302 91 872 2 0 3 0 SET (MR3)=0:0 SET MODIFICATION REGISTER AT VARIABLE 6/1/0 4812 [9366] 82303 90 0 0 4 0 SET (MR4)=14:0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8184 [9367] 82304 C 0 0 0 14 Simulated modifier 6/1/0 4814 [9368] 82305 90 0 0 5 0 SET (MRS)=5:0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8182 [9369] 82306 C 0 0 0 5 Simulated modifier 6/1/0 4816 [9370] 82307 54 32 60 0 0 64 CLEAR W/L'S BULK CLEAR 28/0/0 5694 [9371] 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 0 [9373] 82308 55 9 0 0 0 32 BULK COPY 18/1/0 4123 [9374] 82309 C 32 60 0 0 0 1/1/3 32 [9375] 18/1/1 5 [9376] 28/0/0 5694 [9377] Source: ChuckK/Q1000740 24/0/1 6320 [9378] 82310 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 1187 [9379] 0/0/1 1190 [9380] s 82311 C 823 13 0 0 0 P/T 0/0/1 1208 [9381] s 82312 C 823 27 0 0 0 CARD 0/1/0 40 [9382] 82313 34 32 60 1 3 0 SET(B)AT 1ST WORD SET (N) IN B 0/0/3 0 [9383] 6/1/3 5694 [9384] 2/1/0 42 [9385] 0/1/1 40 [9386] 18/1/1 2 [9387] 82314 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/2 125 [9388] 82315 12 0 0 0 7: SUBTRACT LITERAL 27/0/0 1220 [9389] 82316 70 824 2 0 0 0 >YES JUMP IF A == 0 1/1/2 1 [9390] 82317 12 0 0 0 1 TEST BE SUBTRACT LITERAL 27/0/0 1290 [9391] 82318 70 825 47 0 0 0 >YES JUMP IF A == 0 1/1/1 126 [9392] 82319 11 0 0 0 7. ADD LITERAL 2/0/0 5758 [9393] 82320 05 32 124 0 0 0 W/L 2 TRANSFER 6/1/0 5726 [9394] 82321 00 32 92 1 0 0 LINE SERIAL SO FAR SELECT 18/0/1 2 [9395] 82322 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 5758 [9396] 82323 01 32 124 0 0 0 ADD 2/1/0 5726 [9397] 82324 05 32 92 1 0 0 TRANSFER 26/0/0 1329 [9398] 82325 80 827 2 0 0 0 >S/R A ENTER SUBROUTINE 24/1/0 1196 [9399] 82326 76 823 15 0 0 0 > JUMP unconditional 6/1/0 5694 [9400] 82327 00 32 60 1 0 0 STORE LINE SERIAL SELECT 2/1/0 5726 [9401] 82328 05 32 92 1 0 0 TRANSFER 2/0/0 5755 [9402] 82329 05 32 121 0 0 0 CLEAR CARD IND TRANSFER 25/0/3 2 [9403] 82330 94 823 31 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1213 [9404] s 0/1/0 40 [9405] 82331 34 32 60 1 3 0 SET(B) AT NEXT WORD SET (N) IN B 0/0/3 0 [9406] 6/1/3 5694 [9407] 2/1/0 42 [9408] 0/1/1 40 [9409] 18/1/1 2 [9410] 82332 32 0 0 0 2 SHIFT (AB) BY QUARTETS 24/1/0 1221 [9411] 82333 76 824 3 0 0 0 > JUMP unconditional Start of procedure 824 at location 1220 in chapter 7 [9412] [9412] 82400 PROCR 824 PSEUDO UNPACK-MAIN LOOP(1) [9412] 82401 NOTES RADIX B 26/0/0 1329 [9412] 82402 80 827 2 0 0 0 >S/R A ENTER SUBROUTINE 1/1/2 125 [9413] 82403 12 0 0 0 7: SUBTRACT LITERAL 27/0/0 1236 [9414] 82404 70 824 18 0 0 0 >YES JUMP IF A == 0 1/1/2 1 [9415] 82405 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 1290 [9416] 82406 70 825 47 0 0 0 >YES JUMP IF A == 0 1/1/1 31 [9417] 82407 11 0 0 0 1p ADD LITERAL 27/0/0 1302 [9418] 82408 70 825 57 0 0 0 >YES JUMP IF A == 0 1/1/1 4 [9419] 82409 11 0 0 0 4 ADD LITERAL 27/0/0 1245 [9420] 82410 70 825 2 0 0 0 >YES JUMP IF A == 0 1/1/1 91 [9421] 82411 11 0 0 0 5e ADD LITERAL 2/0/0 5758 [9422] 82412 05 32 124 0 0 0 W/L 2 TRANSFER 6/1/0 5756 [9423] 82413 00 32 122 1 0 0 W/L 1 SELECT 18/0/1 2 [9424] 82414 30 0 0 0 2 SHIFT (A) BY QUARTETS 4/0/0 5758 [9425] 82415 01 32 124 0 0 0 ADD 2/1/0 5756 [9426] 82416 05 32 122 1 0 0 TRANSFER 24/1/0 1220 [9427] 82417 76 824 2 0 0 0 > JUMP unconditional 26/0/0 1364 [9428] 82418 80 828 2 0 0 0 >S/R B ENTER SUBROUTINE 24/0/1 8184 [9429] 82419 05 32 94 1 4 0 STORE WORD IN LIST TRANSFER 2/1/0 5728 [9430] 2/0/0 5754 [9431] 82420 05 32 120 0 0 0 CLEAR*C IND TRANSFER 2/1/0 5756 [9432] 82421 05 32 122 1 0 0 CLEAR W/L 1 TRANSFER 23/0/0 2 [9433] 82422 94 824 2 0 4 2 STEP(MR4) STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [9434] 24/1/0 1220 [9435] 24/1/0 1296 [9436] 82423 76 825 51 0 0 0 > JUMP unconditional Source: RayS/Q1000741 Start of procedure 825 at location 1245 in chapter 7 [9437] [9437] 82500 PROCR 825 [9437] 82501 NOTES RADIX B 26/0/0 1329 [9437] 82502 80 827 2 0 0 0 >S/R A ENTER SUBROUTINE 1/1/2 81 [9438] 82503 12 0 0 0 51 SUBTRACT LITERAL 27/0/0 1288 [9439] 82504 70 825 45 0 0 0 >YES JUMP IF A == 0 1/1/2 1 [9440] 82505 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 1286 [9441] 82506 70 825 43 0 0 0 >YES JUMP IF A == 0 1/1/2 1 [9442] 82507 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 1299 [9443] 82508 70 825 54 0 0 0 >YES JUMP IF A == 0 1/1/2 1 [9444] 82509 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 1284 [9445] 82510 70 825 41 0 0 0 >YES JUMP IF A == 0 1/1/2 7 [9446] 82511 12 0 0 0 7 SUBTRACT LITERAL 27/0/0 1282 [9447] 82512 70 825 39 0 0 0 >YES JUMP IF A == 0 1/1/2 8 [9448] 82513 12 0 0 0 8 SUBTRACT LITERAL 27/0/0 1280 [9449] 82514 70 825 37 0 0 0 >YES JUMP IF A == 0 1/1/2 2 [9450] 82515 12 0 0 0 2 SUBTRACT LITERAL 27/0/0 1278 [9451] 82516 70 825 35 0 0 0 >YES JUMP IF A == 0 1/1/2 13 [9452] 82517 12 0 0 0 : SUBTRACT LITERAL 27/0/0 1276 [9453] 82518 70 825 33 0 0 0 >YES JUMP IF A == 0 1/1/2 11 [9454] 82519 12 0 0 0 e SUBTRACT LITERAL 27/0/1 1267 [9455] 82520 71 825 24 0 0 0 >NO JUMP IF A != 0 26/0/0 2546 [9456] 82521 80 867 2 0 0 0 >STEP'OTHERS' ENTER SUBROUTINE 6/1/0 2650 [9457] 82522 00 872 16 1 0 0 ***** SELECT 24/1/0 1237 [9458] 82523 76 824 19 0 0 0 > JUMP unconditional 1/1/2 1 [9459] 82524 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 1272 [9460] 82525 71 825 29 0 0 0 >NO JUMP IF A != 0 26/0/0 2546 [9461] 82526 80 867 2 0 0 0 >STEP'OTHERS' ENTER SUBROUTINE 6/1/0 2650 [9462] 82527 00 872 16 1 0 0 ***** SELECT 24/1/0 1291 [9463] 82528 76 825 48 0 0 0 > JUMP unconditional 1/1/3 0 [9464] 82529 10 0 0 0 0 SELECT LITERAL 26/0/0 1329 [9465] 82530 80 827 2 0 0 0 >S/R A ENTER SUBROUTINE 1/1/2 125 [9466] 82531 12 0 0 0 7: SUBTRACT LITERAL 24/1/0 1263 [9467] 82532 76 825 20 0 0 0 > JUMP unconditional 1/1/3 95 [9468] 82533 10 0 0 0 5£ SQUARE SELECT LITERAL 24/1/0 1230 [9469] 82534 76 824 12 0 0 0 > JUMP unconditional 1/1/3 125 [9470] 82535 10 0 0 0 7: NUMBER END SELECT LITERAL 24/1/0 1230 [9471] 82536 76 824 12 0 0 0 > JUMP unconditional 1/1/3 94 [9472] 82537 10 0 0 0 5. LINE END SELECT LITERAL 24/1/0 1230 [9473] 82538 76 824 12 0 0 0 > JUMP unconditional 1/1/3 91 [9474] 82539 10 0 0 0 5e STAR SELECT LITERAL 24/1/0 1230 [9475] 82540 76 824 12 0 0 0 JUMP unconditional 1/1/3 127 [9476] 82541 10 0 0 0 7£ TRIANGLE SELECT LITERAL 24/1/0 1230 [9477] 82542 76 824 12 0 0 0 > JUMP unconditional 1/1/3 126 [9478] 82543 10 0 0 0 7. BLOCK END SELECT LITERAL 24/1/0 1230 [9479] 82544 76 824 12 0 0 0 > JUMP unconditional 1/1/3 111 [9480] 82545 10 0 0 0 6£ ALIGNMENT MARK SELECT LITERAL 24/1/0 1230 [9481] 82546 76 824 12 0 0 0 > JUMP unconditional 26/0/0 1364 [9482] 82547 80 828 2 0 0 0 >S/R B ENTER SUBROUTINE 24/0/1 8184 [9483] 82548 05 32 94 1 4 0 STORE WORD IN LIST TRANSFER 2/1/0 5728 [9484] 6/1/0 2642 [9485] 82549 00 872 8 1 0 0 SET END SIGN IN LIST SELECT 24/0/1 8184 [9486] 82550 05 32 96 1 4 0 TRANSFER 2/1/0 5730 [9487] 6/1/0 4818 [9488] 82551 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8182 [9489] 82552 C 0 0 0 14 Simulated modifier 24/1/0 299 [9490] 82553 76 784 14 0 0 0 > JUMP unconditional 1/1/3 1 [9491] 82554 10 0 0 0 1 SET*C ID SELECT LITERAL 2/0/0 5754 [9492] 82555 05 32 120 0 0 0 TRANSFER 24/1/0 1220 [9493] 82556 76 824 2 0 0 0 > JUMP unconditional 6/1/0 2642 [9494] 82557 0 872 8 1 0 0 SET END SIGN IN LIST SELECT Source: ChuckK/Q1000742 24/0/1 8184 [9495] 82558 5 32 94 1 4 0 TRANSFER 2/1/0 5728 [9496] 24/1/0 1296 [9497] 82559 76 825 51 0 0 0 JUMP unconditional Start of procedure 826 at location 1306 in chapter 7 [9498] [9498] 82600 PROCR 826 TEST P/T S/R [9498] 82601 NOTES RADIX B 0/0/0 0 [9498] 82602 81 826 2 0 0 0 START OF SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [9500] 82603 00 9 0 1 0 0 SELECT 5/1/0 2580 [9501] 82604 2 870 10 1 0 0 'FILES'' SUBTRACT 27/0/0 1323 [9502] 82605 70 826 17 0 0 0 >INSERTION JUMP IF A == 0 1/1/1 30 [9503] 82606 11 0 0 0 1. ADD LITERAL 27/0/0 1325 [9504] 82607 70 826 19 0 0 0 >'FILED' (DELETION) JUMP IF A == 0 1/1/2 21 [9505] 82608 12 0 0 0 15 SUBTRACT LITERAL 27/0/0 1325 [9506] 82609 70 826 19 0 0 0 >'FILER' (REPLACEMENT) JUMP IF A == 0 1/1/1 24 [9507] 82610 11 0 0 0 18 ADD LITERAL 27/0/0 560 [9508] 82611 70 793 2 0 0 0 >'FILEA' (BLOCK/WORD AMENDMENT) JUMP IF A == 0 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [9510] 82612 9 0 1 0 0 SELECT 18/0/1 4124 [9511] 82613 30 0 0 0 4- SHIFT (A) BY QUARTETS 5/1/0 4820 [9512] 82614 12 0 0 0 556554 'END' SUBTRACT LITERAL 27/0/0 1327 [9513] 82615 70 826 21 0 0 0 >YES JUMP IF A == 0 26/0/1 1306 [9514] 82616 82 826 2 0 0 0 (REPORT) END OF SUBROUTINE / LEAVE SUBROUTINE 26/0/0 2462 [9515] 82617 80 864 2 0 0 0 FILE PREP ENTER SUBROUTINE 24/1/0 260 [9516] 82618 76 782 15 0 0 0 JUMP unconditional 26/0/0 2462 [9517] 82619 80 864 2 0 0 0 FILE PREP ENTER SUBROUTINE 24/1/0 532 [9518] 82620 76 792 2 0 0 0 JUMP unconditional 26/0/0 2462 [9519] 82621 80 864 2 0 0 0 ENTER SUBROUTINE 24/1/0 886 [9520] 82622 76 804 3 0 0 0 JUMP unconditional Start of procedure 827 at location 1329 in chapter 7 [9521] [9521] 82700 PROCR 827 PSEUDO UNPACK S/R A [9521] 82701 NOTES RADIX B 0/0/0 0 [9521] 82702 81 827 2 0 0 0 START OF SUBROUTINE 23/0/0 1 [9522] 82703 94 827 15 0 5 1 STEP (MR5) STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8182 [9523] 24/1/0 1350 [9524] s 24/0/1 6320 [9525] 82704 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 1334 [9526] 0/0/1 1341 [9527] s 82705 C 827 11 0 0 0 P/T 0/0/1 1337 [9528] s 82706 C 827 7 0 0 0 CARD 6/0/0 5755 [9529] 82707 00 32 121 0 0 0 SELECT 27/0/1 1352 [9530] 82708 71 827 17 0 0 0 >YES JUMP IF A != 0 1/1/3 1 [9531] 82709 10 0 0 0 1 SET CARD IND SELECT LITERAL 2/0/0 5755 [9532] 82710 05 32 121 0 0 0 TRANSFER 6/1/0 4822 [9533] 82711 90 0 0 5 0 RESET (MR5) SET MODIFICATION REGISTER AT LITERAL 2/1/0 8182 [9534] 82712 C 0 0 0 5 Simulated modifier 25/0/3 2 [9535] 82713 94 827 14 0 3 2 STEP (MR3) STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1345 [9536] s 0/1/0 40 [9537] 82714 34 32 60 1 3 0 SET(B)AT NEXT WORD SET (N) IN B 0/0/3 0 [9538] 6/1/3 5694 [9539] 2/1/0 42 [9540] 0/1/1 40 [9541] 18/1/1 2 [9542] 82715 32 0 0 0 2 SHIFT (AB) BY QUARTETS 26/0/1 1329 [9543] 82716 82 827 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 1/1/3 0 [9544] 82717 10 0 0 0 0 SELECT LITERAL 2/0/0 5755 [9545] 82718 05 32 121 0 0 0 CLEAR CARD IND TRANSFER 6/1/0 4824 [9546] 82719 90 0 0 5 1- SET(MR5)AT-1:5 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8182 [9547] 82720 C 0 0 0 5 Simulated modifier 25/0/3 2 [9548] 82721 94 827 22 0 3 2 STEP(MR3) STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1358 [9549] s 0/1/0 40 [9550] 82722 34 32 60 1 3 0 SET(B)AT NEXT WORD SET (N) IN B 0/0/3 0 [9551] 6/1/3 5694 [9552] 2/1/0 42 [9553] 0/1/1 40 [9554] 24/1/0 1236 [9555] 82723 76 824 18 0 0 0 > JUMP unconditional Start of procedure 828 at location 1364 in chapter 7 [9556] [9556] 82800 PROCR 828 PSEUDO UNPACK S/R B [9556] 82801 NOTES RADIX B 0/0/0 0 [9556] 82802 81 828 2 0 0 0 START OF SUBROUTINE 6/0/0 5754 [9557] 82803 00 32 120 0 0 0 SELECT 27/0/0 1375 [9558] 82804 70 828 13 0 0 0 >NO JUMP IF A == 0 18/1/1 10 [9559] 82805 32 0 0 0 10 STORE(B) SHIFT (AB) BY QUARTETS 2/1/0 5762 [9560] 82806 05 32 128 1 0 0 TRANSFER Source: ChuckK/Q1000743 6/1/0 5757 [9561] 82807 00 32 122 2 0 0 SELECT 26/0/0 1160 [9562] 82808 80 821 2 0 0 0 >CONVERT TO BINARY ENTER SUBROUTINE 2/1/0 5757 [9563] 82809 05 32 122 2 0 0 TRANSFER 0/1/2 5762 [9564] 82810 34 32 128 1 0 0 RESTORE(B) SET (N) IN B 5/1/0 5756 [9565] 82811 02 32 122 1 0 0 SUBTRACT 24/1/0 1376 [9566] 82812 76 828 14 0 0 0 > JUMP unconditional 6/1/0 5756 [9567] 82813 00 32 122 1 0 0 SELECT 26/0/1 1364 [9568] 82814 82 828 2 0 0 0 > END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 829 at location 1377 in chapter 7 [9569] [9569] 82900 PROCR 829 UNPACK'FILEA'BLOCK [9569] 82901 NOTES RADIX B 0/0/0 0 [9569] 82902 81 829 2 0 0 0 START OF SUBROUTINE 6/1/0 4826 [9570] 82903 54 833 2 1 0 10 BULK CLEAR 28/1/1 1462 [9571] 24/0/1 6320 [9572] 82904 87 27 10 0 0 0 SWITCH ACCORDING TO N 26/0/1 1381 [9573] 0/0/1 1384 [9574] s 82905 C 829 7 0 0 0 >PT 0/0/1 1458 [9575] 82906 C 832 2 0 0 0 >CARDS 24/0/2 2672 [9576] 82907 124 873 18 0 2 0 SELECT LITERAL AND DIVISION 24/1/2 21 [9577] 82908 124 999 21 1 2 0 SEC 9 MODIFY ADDRESS OF NEXT 28/0/3 0 [9578] 82909 128 0 0 3 0 UNPACK VARIABLE FIELD DATA 6/1/0 1462 [9579] 82910 0 833 2 1 0 0 FILE ID SELECT 26/0/0 1020 [9580] 82911 80 812 2 0 0 0 >R-ALIGN ENTER SUBROUTINE 2/1/0 1462 [9581] 82912 5 833 2 1 0 0 TRANSFER 6/1/0 1466 [9582] 82913 0 833 6 1 0 0 SELECT 26/0/0 1020 [9583] 82914 80 812 2 0 0 0 >R-ALIGN ENTER SUBROUTINE 18/1/1 4126 [9584] 82915 32 0 0 0 2- SHIFT (AB) BY QUARTETS 2/1/0 2569 [9585] 82916 5 869 14 1 0 0 WL TRANSFER 18/1/1 2 [9586] 82917 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/2 84 [9587] 82918 12 0 0 0 54 SUBTRACT LITERAL 27/0/0 1440 [9588] 82919 70 831 4 0 0 0 >'D' DELETE BLOCK(S) JUMP IF A == 0 1/1/2 21 [9589] 82920 12 0 0 0 15 SUBTRACT LITERAL 27/0/0 1439 [9590] 82921 70 831 3 0 0 0 >'R' REPLACE BLOCK JUMP IF A == 0 1/1/2 10 [9591] 82922 12 0 0 0 t SUBTRACT LITERAL 27/0/0 1438 [9592] 82923 70 831 2 0 0 0 >'T' INSERT BLOCK JUMP IF A == 0 6/1/0 1466 [9593] 82924 0 833 6 1 0 0 (ASSUME WORD AMEND SELECT 26/0/0 1020 [9594] 82925 80 812 2 0 0 0 >R-ALIGN BLOCK NUMBER ENTER SUBROUTINE 6/1/0 2570 [9595] 82926 0 869 14 2 0 0 SELECT 27/0/3 1436 [9596] 82927 73 830 20 0 0 0 >REJECT JUMP IF A < 0 2/1/0 1466 [9597] 82928 5 833 6 1 0 0 DEC BLOCK NUMBER TRANSFER 6/1/0 1468 [9598] 82929 0 833 8 1 0 0 FIRST WORD NUMBER SELECT 26/0/0 1020 [9599] 82930 80 812 2 0 0 0 >R-ALIGN ENTER SUBROUTINE 3/1/0 2569 [9600] 82931 3 869 14 1 0 0 WL COPY 18/1/1 4126 [9601] 82932 32 0 0 0 2- SHIFT (AB) BY QUARTETS 1/1/3 0 [9602] 82933 10 0 0 0 0 SELECT LITERAL 18/1/1 2 [9603] 82934 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/2 84 [9604] 82935 12 0 0 0 54 'D' SUBTRACT LITERAL 27/0/0 1420 [9605] 82936 70 830 4 0 0 0 >DELETE WORD(S) JUMP IF A == 0 1/1/2 21 [9606] 82937 12 0 0 0 15 SUBTRACT LITERAL 27/0/0 1419 [9607] 82938 70 830 3 0 0 0 >'R' REPLACE WORD(S) JUMP IF A == 0 1/1/2 10 [9608] 82939 12 0 0 0 t SUBTRACT LITERAL 27/0/1 1436 [9609] 82940 71 830 20 0 0 0 >NOT'T';REJECT JUMP IF A != 0 Start of procedure 830 at location 1418 in chapter 7 [9610] [9610] 83000 PROCR 830 UNPACK P/T TD AMDTS (2) [9610] 83001 NOTES RADIX B 1/1/3 1 [9610] 83002 10 0 0 0 1 3=T SELECT LITERAL 1/1/1 1 [9611] 83003 11 0 0 0 1 2=R ADD LITERAL 1/1/1 1 [9612] 83004 11 0 0 0 1 1=D ADD LITERAL 2/0/0 8152 [9613] 83005 84 830 2 0 0 0 SET WORD AMEND SWITCH SET SWITCH(ES) AT VARIABLE VALUE 6/1/0 2569 [9614] 83006 0 869 14 1 0 0 SELECT 18/0/1 4126 [9615] 83007 30 0 0 0 2- SHIFT (A) BY QUARTETS 2/1/0 1468 [9616] 83008 5 833 8 1 0 0 TRANSFER Source: RayS/Q1000744 6/1/0 1469 [9617] 83009 0 833 8 2 0 0 SELECT 27/0/3 1436 [9618] 83010 73 830 20 0 0 0 >REJECT JUMP IF A < 0 2/1/0 1468 [9619] 83011 5 833 8 1 0 0 NUMERIC FIRST WORD NUMBER TRANSFER 6/1/0 1470 [9620] 83012 0 833 10 1 0 0 LAST WORD(DELETIONS) SELECT 27/0/0 1456 [9621] 83013 70 831 20 0 0 0 >OK JUMP IF A == 0 27/0/3 1436 [9622] 83014 73 830 20 0 0 0 >REJECT JUMP IF A < 0 6/0/0 1468 [9623] 83015 833 8 0 0 0 FIRST SELECT 5/0/0 1470 [9624] 83016 2 833 10 0 0 0 LAST SUBTRACT 27/0/2 1436 [9625] 83017 72 830 20 0 0 0 >REJECT JUMP IF A >= 0 1/1/3 0 [9626] 83018 10 0 0 0 0 SELECT LITERAL 24/1/0 1456 [9627] 83019 76 831 20 0 0 0 JUMP unconditional 26/0/0 1129 [9628] 83020 80 820 2 0 0 0 >PRINT PT ENTER SUBROUTINE 24/1/0 882 [9629] 83021 76 803 39 0 0 0 >READ PT UNTIL DT RECOGNISED JUMP unconditional Start of procedure 831 at location 1438 in chapter 7 [9630] [9630] 83100 PROCR 831 UNPACK P/T TO AMDTS (3) [9630] 83101 NOTES RADIX B 1/1/3 1 [9630] 83102 10 0 0 0 1 3=T SELECT LITERAL 1/1/1 1 [9631] 83103 11 0 0 0 1 2=R ADD LITERAL 1/1/1 1 [9632] 83104 11 0 0 0 1 1=D ADD LITERAL 2/0/0 8152 [9633] 83105 84 830 2 0 0 0 SET BLOCK AMEND SWITCH SET SWITCH(ES) AT VARIABLE VALUE 6/1/0 2570 [9634] 83106 0 869 14 2 0 0 SELECT 27/0/3 1436 [9635] 83107 73 830 20 0 0 0 >REJECT JUMP IF A < 0 2/1/0 1466 [9636] 83108 5 833 6 1 0 0 STORE BLOCK NUMBER TRANSFER 6/1/0 1468 [9637] 83109 0 833 8 1 0 0 SELECT 26/0/0 1020 [9638] 83110 80 812 2 0 0 0 >R-ALIGN ENTER SUBROUTINE 2/1/0 2569 [9639] 83111 5 869 14 1 0 0 TRANSFER 6/1/0 2570 [9640] 83112 0 869 14 2 0 0 SELECT 27/0/3 1436 [9641] 83113 73 830 20 0 0 0 >REJECT JUMP IF A < 0 3/1/0 1468 [9642] 83114 3 833 8 1 0 0 LAST BLOCK(DELETIONS) COPY 27/0/0 1455 [9643] 83115 70 831 19 0 0 0 >OK JUMP IF A == 0 6/0/0 1466 [9644] 83116 833 6 0 0 0 FIRST SELECT 5/0/0 1468 [9645] 83117 2 833 8 0 0 0 LAST SUBTRACT 27/0/2 1436 [9646] 83118 72 830 20 0 0 0 >REJECT JUMP IF A >= 0 1/1/3 1 [9647] 83119 10 0 0 0 1 SELECT LITERAL 2/0/0 1472 [9648] 83120 5 833 12 0 0 0 ZERO=WORD AMEND;NONZERO=BLOCK AMEND TRANSFER 26/0/1 1377 [9649] 83121 82 829 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 832 at location 1458 in chapter 7 [9650] [9650] 83200 PROCR 832 UNPACK CARD TD AMDTS [9650] 83201 NOTES RADIX B 24/0/2 2746 [9650] 83202 50 9 0 0 0 0 UNPACK FIXED FIELD DATA 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/0/2 0 [9652] 83203 C 874 64 0 0 0 24/1/0 1387 [9653] 83204 76 829 10 0 0 0 JUMP unconditional Start of procedure 833 at location 1462 in chapter 7 [9654] [9654] 83300 CONST 833 1 UNPACKED PT FOR 'FILEA' DATA 0/0/0 0 [9654] 83302 (D)0; 'FILEA'/FILE ID R-ALIGNED 00000 +00000 0/0/0 0 [9655] 0/0/0 0 [9656] 83304 0; SET(NUMERIC) 00000 +00000 0/0/0 0 [9657] 0/0/0 0 [9658] 83306 0; BLOCK NUMBER(DEC NUMERIC) 00000 +00000 0/0/0 0 [9659] 0/0/0 0 [9660] 83308 0; START WORD/LAST BLOCK(DEC NUMERIC) 00000 +00000 0/0/0 0 [9661] 0/0/0 0 [9662] 83310 0; END WORD(DEC NUMERIC) 00000 +00000 0/0/0 0 [9663] 0/0/0 0 [9664] 83312 ; ZERO=WORD AMEND;NONZERO=BLOCK AMEND 00000 +00000 0/0/0 0 [9665] Start of procedure 834 at location 1474 in chapter 7 [9666] [9666] 83400 PROCR 834 FORM UP RELATIVE ADDRESS S/R Source: RayS/Q1000745 [9666] 83401 NOTES RADIX B 0/0/0 0 [9666] 83402 81 834 2 0 0 0 START OF SUBROUTINE 2/0/0 2557 [9667] 83403 05 869 2 0 0 0 STORE I/C SERIAL TRANSFER 1/0/1 28 [9668] 83404 35 0 0 0 11100 PREPARE FOR DIGIT COLLATION 15/0/0 2557 [9669] 83405 36 869 2 0 0 0 COLLARE PROCR NO COLLATE AND ADD 18/0/1 4126 [9670] 83406 30 0 0 0 2- SHIFT (A) BY QUARTETS 26/0/0 1160 [9671] 83407 80 821 2 0 0 0 >CONVERT TO BINARY ENTER SUBROUTINE 2/0/0 8182 [9672] 83408 92 0 0 5 0 SET (MR5)=PROCR NO SET MODIFIER AT VARIABLE 26/1/3 4828 [9673] 83409 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [9674] 83410 C 0 0 0 40 Limit 6/0/3 6250 [9674] 83411 00 25 2 0 3 0 SELECT 5/0/0 2557 [9675] 83412 02 869 2 0 0 0 SUBTRACT 27/0/0 1500 [9676] 83413 70 834 27 0 0 0 >YES JUMP IF A == 0 25/0/3 2 [9677] 83414 94 834 11 0 3 2 >NO STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1482 [9678] s 24/0/3 8182 [9679] 83415 18 1000 0 5 0 PROCR START SELECT 6/0/0 6664 [9680] 3/0/0 1166 [9681] 83416 3 822 2 0 0 0 PROCR START COPY 27/0/0 1501 [9682] 83417 70 834 28 0 0 0 >PROCR NOT THERE, LEAVE SR (A)=0 JUMP IF A == 0 1/1/3 0 [9683] 83418 10 0 0 0 0 CLEAR A SELECT LITERAL 1/0/1 3 [9684] 83419 35 0 0 0 11 COLLATE ITEM NO PREPARE FOR DIGIT COLLATION 15/0/0 2557 [9685] 83420 36 869 2 0 0 0 COLLATE AND ADD 26/0/0 1160 [9686] 83421 80 821 2 0 0 0 >CONVERT TO BINARY ENTER SUBROUTINE 1/1/2 2 [9687] 83422 12 0 0 0 2 BIN ITEM-2 SUBTRACT LITERAL 3/0/0 1160 [9688] 83423 3 821 2 0 0 0 WL COPY 27/0/1 1502 [9689] 83424 71 834 29 0 0 0 >IGNORE=LINE SERIAL, ACCEPT=PM 6 DATA JUMP IF A != 0 6/0/0 1166 [9690] 83425 822 2 0 0 0 PROCR=START SELECT 24/1/0 1501 [9691] 83426 76 834 28 0 0 0 > JUMP unconditional 6/0/3 6251 [9692] 83427 00 25 3 0 3 0 SELECT 26/0/1 1474 [9693] 83428 82 834 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 1/1/3 0 [9694] 83429 10 0 0 0 0 SELECT LITERAL 26/0/1 1474 [9695] 83430 82 834 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 835 at location 1504 in chapter 7 [9696] [9696] 83500 PROCR 835 FORM UP CHAPTER NO S/R [9696] 83501 NOTES RADIX B 0/0/0 0 [9696] 83502 81 835 2 0 0 0 START OF SUBROUTINE 2/0/0 2557 [9697] 83503 05 869 2 0 0 0 STORE PROCR NO TRANSFER 26/1/3 4830 [9698] 83504 90 0 0 3 1 SET MODIFICATION REGISTER AT LITERAL [9699] 83505 C 0 0 0 15 Limit 1/0/1 28 [9699] 83506 35 0 0 0 11100 PREPARE FOR DIGIT COLLATION 1/1/3 0 [9700] 83507 10 0 0 0 0 SELECT LITERAL 15/0/3 6023 [9701] 83508 36 92 9 0 3 0 LAST PROCR IN CHAP COLLATE AND ADD 18/0/1 4126 [9702] 83509 30 0 0 0 2- SHIFT (A) BY QUARTETS 5/0/0 2557 [9703] 83510 02 869 2 0 0 0 SUBTRACT 27/0/2 1515 [9704] 83511 72 835 13 0 0 0 > JUMP IF A >= 0 25/0/3 1 [9705] 83512 94 835 7 0 3 1 >NO STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1508 [9706] s 1/1/3 0 [9707] 83513 10 0 0 0 0 SELECT LITERAL 1/0/1 1 [9708] 83514 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 15/0/3 6023 [9709] 83515 36 92 9 0 3 0 CORRECTED CHAP NO COLLATE AND ADD 26/0/1 1504 [9710] 83516 82 835 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 836 at location 1519 in chapter 7 [9711] [9711] 83600 PROCR 836 FORM UP CHAPTER NO OF SECN [9711] 83601 NOTES RADIX B 0/0/0 0 [9711] 83602 81 836 2 0 0 0 START OF SUBROUTINE 1/0/1 1 [9712] 83603 35 0 0 0 1 (A)=0 PREPARE FOR DIGIT COLLATION 15/0/3 5116 [9713] 83604 36 15 0 0 3 0 COLLATE AND ADD 2/0/0 8182 [9714] 83605 92 0 0 5 0 SET MODIFIER AT VARIABLE 1/1/3 0 [9715] 83606 10 0 0 0 0 SELECT LITERAL 24/0/1 8182 [9716] 83607 36 92 9 0 5 0 CORRECTED CHAP COLLATE AND ADD 15/0/0 6023 [9717] 26/0/1 1519 [9718] 83608 82 836 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Source: ChuckK/Q1000746 Start of procedure 837 at location 1527 in chapter 7 [9719] [9719] 83700 PROCR 837 FORM UP TRANSIT AREA PARAMETER S/R [9719] 83701 NOTES RADIX B 0/0/0 0 [9719] 83702 81 837 2 0 0 0 START OF SUBROUTINE 2/0/0 2557 [9720] 83703 05 869 2 0 0 0 STORE SECN NO TRANSFER 26/1/3 5218 [9721] 83704 91 24 2 0 3 0 SET(MR3)=2(R+T)/2R SET MODIFICATION REGISTER AT VARIABLE 25/0/3 0 [9722] 83705 94 837 7 0 3 0 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1533 [9723] s 24/1/0 1540 [9724] 83706 76 837 13 0 0 0 >NO TX AREAS JUMP unconditional 1/0/1 1031 [9725] 83707 35 0 0 0 111- PREPARE FOR DIGIT COLLATION 15/0/3 5220 [9726] 83708 36 24 4 0 3 0 SECN NO COLLATE AND ADD 5/0/0 2557 [9727] 83709 02 869 2 0 0 0 SUBTRACT 27/0/0 1541 [9728] 83710 70 837 14 0 0 0 > JUMP IF A == 0 1/1/3 0 [9729] 83711 10 0 0 0 0 SELECT LITERAL 25/0/3 2 [9730] 83712 94 837 8 0 3 2 > STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1534 [9731] s 26/0/1 1527 [9732] 83713 82 837 2 0 0 0 > END OF SUBROUTINE / LEAVE SUBROUTINE 1/0/1 24 [9733] 83714 35 0 0 0 11000 PREPARE FOR DIGIT COLLATION 15/0/3 5220 [9734] 83715 36 24 4 0 3 0 TA PARAMETER COLLATE AND ADD 26/0/1 1527 [9735] 83716 82 837 2 0 0 0 > END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 838 at location 1544 in chapter 7 [9736] [9736] 83800 PROCR 838 SET UP COUNTERS AT START OF NEW TRIAL DATA BLOCK [9736] 83801 NOTES RADIX B 0/0/0 0 [9736] 83802 81 838 2 0 0 0 START OF SUBROUTINE 0/0/3 4710 [9737] 83803 60 0 0 0 0 SET DECIMAL SET DECIMAL RADIX 26/1/3 4832 [9738] 83804 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [9739] 83805 C 0 0 0 7 Limit 1/1/3 2 [9739] 83806 10 0 0 0 2 SELECT LITERAL 3/0/3 5649 [9740] 83807 03 32 15 0 3 0 FOR PRINTING COPY 1/1/1 2 [9741] 83808 11 0 0 0 2 ADD LITERAL 25/0/3 1 [9742] 83809 94 838 7 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1548 [9743] s 0/0/3 0 [9744] 83810 62 0 0 0 0 SET BINARY SET EXCESS CONSTANTS 26/1/2 4834 [9745] 83811 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [9746] 83812 C 0 0 0 14 Limit 1/1/3 1 [9746] 83813 83 787 4 0 0 1 SET*SWITCH AT 1 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8176 [9747] 1/1/3 1 [9748] 83814 83 786 4 0 0 1 SET B/E SWITCH AT 1 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8177 [9749] 1/1/3 2 [9750] 83815 83 849 4 0 0 2 SET BLOCK NO SWITCH AT 2 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8153 [9751] 1/1/3 2 [9752] 83816 83 781 2 0 0 2 SET FIRST WORD SWITCH AT 2 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8154 [9753] 2/1/0 2630 [9754] 83817 05 871 42 1 0 0 CLEAR ERROR WORD TRANSFER 26/0/0 1110 [9755] 83818 80 818 2 0 0 0 >LINE FEED S/R ENTER SUBROUTINE 26/0/1 1544 [9756] 83819 82 838 2 0 0 0 > END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 839 at location 1565 in chapter 7 [9757] [9757] 83900 PROCR 839 STEP WORD NUMBERS FOR PRINTED LINE BY 14 [9757] 83901 NOTES RADIX B 0/0/0 0 [9757] 83902 81 839 2 0 0 0 START OF SUBROUTINE 0/0/3 4711 [9758] 83903 60 0 0 0 0 SET DECIMAL RADIX 26/1/3 4836 [9759] 83904 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [9760] 83905 C 0 0 0 7 Limit 1/0/1 15 [9760] 83906 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 1/1/3 20 [9761] 83907 10 0 0 0 14 SELECT LITERAL 15/0/3 5649 [9762] 83908 36 32 15 0 3 0 COLLATE AND ADD 2/0/3 5649 [9763] 83909 5 32 15 0 3 0 (CLEAR PREVIOUS SIGN) TRANSFER 25/0/3 1 [9764] 83910 94 839 7 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1569 [9765] s 0/0/3 0 [9766] 83911 62 0 0 0 0 SET EXCESS CONSTANTS 26/0/1 1565 [9767] 83912 82 839 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 840 at location 1576 in chapter 7 [9768] [9768] 84000 PROCR 840 STEP WORD COUNTER BY 2 [9768] 84001 NOTES RADIX B 0/0/0 0 [9768] 84002 81 840 2 0 0 0 START OF SUBROUTINE 1/1/3 2 [9769] 84003 10 0 0 0 2 SELECT LITERAL 0/0/3 4712 [9770] 84004 60 0 0 0 0 SET DECIMAL RADIX 7/0/0 5798 [9771] 84005 04 32 164 0 0 0 AUGMENT 0/0/3 0 [9772] 84006 62 0 0 0 0 SET EXCESS CONSTANTS Source: ChuckK/Q1000747 26/0/1 1576 [9773] 84007 82 840 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 841 at location 1582 in chapter 7 [9774] [9774] 84100 PROCR 841 PREPARE FOR DUMPS POINTS S/R [9774] 84101 NOTES RADIX B 0/0/0 0 [9774] 84102 81 841 2 0 0 0 START OF SUBROUTINE 26/0/0 1110 [9775] 84103 80 818 2 0 0 0 >LINE FEED S/R ENTER SUBROUTINE 26/0/0 1110 [9776] 84104 80 818 2 0 0 0 >LINE FEED S/R ENTER SUBROUTINE 6/1/0 4838 [9777] 84105 90 0 0 4 0 SET(MR4)=11:0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8184 [9778] 84106 C 0 0 0 11 Simulated modifier 24/0/2 2784 [9779] 84107 52 5 2 0 0 0 EDIT PM POINT HEADING EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [9781] 84108 C 876 2 0 0 0 26/0/0 1105 [9782] 84109 80 817 2 0 0 0 >PRINT ENTER SUBROUTINE 24/1/2 21 Extra code needed to address transit area no 4, section 9 6/1/0 0 [9784] 84110 9 0 1 0 0 SELECT 18/0/1 4124 [9785] 84111 30 0 0 0 4- SHIFT (A) BY QUARTETS 5/1/0 4840 [9786] 84112 12 0 0 0 556554 'END' SUBTRACT LITERAL 27/0/0 1597 [9787] 84113 70 841 15 0 0 0 >ALREADY AT END JUMP IF A == 0 26/0/0 995 [9788] 84114 80 811 2 0 0 0 >READ P/T ENTER SUBROUTINE 26/0/0 1110 [9789] 84115 80 818 2 0 0 0 >LINE FEED S/R ENTER SUBROUTINE 26/0/1 1582 [9790] 84116 82 841 2 0 0 0 > END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 842 at location 1599 in chapter 7 [9791] [9791] 84200 PROCR 842 PROCESS DUMPS POINT S/R [9791] 84201 NOTES RADIX B 0/0/0 0 [9791] 84202 81 842 2 0 0 0 START OF SUBROUTINE 23/0/0 1 [9792] 84203 94 842 5 0 4 1 STEP(MR4) STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [9793] 24/1/0 1604 [9794] s 24/1/0 915 [9795] 84204 76 805 14 0 0 0 >TOO MANY DUMPS POINTS JUMP unconditional 6/1/0 4842 [9796] 84205 54 31 0 1 0 22 BULK CLEAR 28/1/1 5612 [9797] 2/1/0 2628 [9798] 84206 5 871 40 1 0 0 CLEAR ERROR WORDS TRANSFER 2/1/0 2630 [9799] 84207 5 871 42 1 0 0 TRANSFER 2/1/0 2632 [9800] 84208 5 871 44 1 0 0 TRANSFER 6/0/0 5594 [9801] 84209 0 30 0 0 0 0 STORE I/C SERIAL SELECT 26/0/0 132 [9802] 84210 80 780 2 0 0 0 >UPDATE ADDRESS ENTER SUBROUTINE 3/0/0 5594 [9803] 84211 3 30 0 0 0 0 NEW SERIAL COPY 3/0/0 5612 [9804] 84212 3 31 0 0 0 0 COPY 26/0/0 1474 [9805] 84213 80 834 2 0 0 0 >FORM UP REL ADD S/R ENTER SUBROUTINE 27/0/0 915 [9806] 84214 70 805 14 0 0 0 >NOT PROCR START OR 'TRACE' ,REJECT JUMP IF A == 0 2/0/0 5613 [9807] 84215 5 31 1 0 0 0 TRANSFER 6/0/0 8182 [9808] 26/0/0 1504 [9809] 84217 80 835 2 0 0 0 >FORM UP CHAP NO ENTER SUBROUTINE 24/0/3 22 [9810] 84218 96 0 0 3 0 UNCORRECTED CHAP SELECT MODIFIER 6/0/0 6 [9811] 2/0/0 5614 [9812] 84219 5 31 2 0 0 0 TRANSFER Start of procedure 843 at location 1621 in chapter 7 [9813] [9813] 84300 PROCR 843 PROCESS TYPE N1 N2 AND N3 [9813] 84301 NOTES RADIX B 6/0/0 5595 [9813] 84302 0 30 1 0 0 0 SELECT 27/0/0 896 [9814] 84303 70 805 2 0 0 0 >REJECT JUMP IF A == 0 27/0/3 896 [9815] 84304 73 805 2 0 0 0 JUMP IF A < 0 1/1/2 7 [9816] 84305 12 0 0 0 7 SUBTRACT LITERAL 27/0/2 896 [9817] 84306 72 805 2 0 0 0 >NO,ERROR JUMP IF A >= 0 1/1/1 7 [9818] 84307 11 0 0 0 7 ADD LITERAL 18/0/1 4 [9819] 84308 30 0 0 0 4 SHIFT (A) BY QUARTETS 7/0/0 5614 [9820] 84309 4 31 2 0 0 0 AUGMENT 6/0/0 5595 [9821] 84310 84 780 17 0 0 0 SET SWITCH 2 BY TYPE SET SWITCH(ES) AT VARIABLE VALUE 2/0/0 8151 [9822] 84311 C 30 1 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 6/0/0 5596 [9823] 84312 0 30 2 0 0 0 SELECT 1/1/2 598 [9824] 84313 12 0 0 0 256 SUBTRACT LITERAL 27/0/2 935 [9825] 84314 72 806 12 0 0 0 >NO JUMP IF A >= 0 1/1/1 598 [9826] 84315 11 0 0 0 256 ADD LITERAL 26/0/0 1160 [9827] 84316 80 821 2 0 0 0 >CONVERT TO BINARY ENTER SUBROUTINE 18/0/1 3 [9828] 84317 30 0 0 0 3 SHIFT (A) BY QUARTETS 2/0/0 5615 [9829] 84318 5 31 3 0 0 0 TRANSFER Source: ChuckK/Q1000748 6/0/0 5597 [9830] 84319 0 30 3 0 0 0 SELECT 1/1/2 598 [9831] 84320 12 0 0 0 256 SUBTRACT LITERAL 27/0/2 938 [9832] 84321 72 806 15 0 0 0 >NO JUMP IF A >= 0 1/1/1 598 [9833] 84322 11 0 0 0 256 ADD LITERAL 26/0/0 1160 [9834] 84323 80 821 2 0 0 0 >CONVERT TO BINARY ENTER SUBROUTINE 7/0/0 5615 [9835] 84324 4 31 3 0 0 0 AUGMENT 6/0/0 5598 [9836] 84325 0 30 4 0 0 0 SELECT 27/0/0 941 [9837] 84326 70 806 18 0 0 0 >NO JUMP IF A == 0 1/1/2 598 [9838] 84327 12 0 0 0 256 SUBTRACT LITERAL 27/0/2 941 [9839] 84328 72 806 18 0 0 0 >NO JUMP IF A >= 0 1/1/1 598 [9840] 84329 11 0 0 0 256 ADD LITERAL 26/0/0 1160 [9841] 84330 80 821 2 0 0 0 >CONVERT TO BINARY ENTER SUBROUTINE 18/0/1 1 [9842] 84331 30 0 0 0 1 SHIFT (A) BY QUARTETS 7/0/0 5614 [9843] 84332 4 31 2 0 0 0 AUGMENT 26/1/2 2636 [9844] 84333 91 872 2 0 2 0 SET(MR2)=0:0 SET MODIFICATION REGISTER AT VARIABLE 26/1/1 4844 [9845] 84334 90 0 0 1 0 SET(MR1)=4:0 SET MODIFICATION REGISTER AT LITERAL [9846] 84335 C 0 0 0 4 Limit Start of procedure 844 at location 1654 in chapter 7 [9846] [9846] 84400 PROCR 844 PM TYPE SWITCH,DEAL WITH TYPES 1 &2 [9846] 84401 NOTES RADIX B 24/0/1 8151 [9846] 84402 85 780 17 0 0 0 SWITCH 2,PM TYPE SWITCH R 26/0/1 1655 [9847] 0/0/1 1662 [9848] s 84403 C 844 9 0 0 0 (1) 0/0/1 1662 [9849] s 84404 C 844 9 0 0 0 (2) 0/0/1 1674 [9850] 84405 C 845 2 0 0 0 (3) 0/0/1 1674 [9851] 84406 C 845 2 0 0 0 (4) 0/0/1 1802 [9852] 84407 C 847 2 0 0 0 (5) 0/0/1 1740 [9853] 84408 C 846 2 0 0 0 (6) 6/0/1 5599 [9854] 84409 0 30 5 0 1 0 CHAP NO SELECT 27/0/0 1802 [9855] 84410 70 847 2 0 0 0 >END OF CHAPS JUMP IF A == 0 5/0/0 2558 [9856] 84411 2 869 3 0 0 0 SUBTRACT 27/0/0 1667 [9857] 84412 70 844 14 0 0 0 >YES JUMP IF A == 0 27/0/2 1723 [9858] 84413 72 845 44 0 0 0 >NO ERROR JUMP IF A >= 0 4/0/0 2558 [9859] 84414 1 869 3 0 0 0 ADD 2/0/2 5616 [9860] 84415 5 31 4 0 2 0 TRANSFER 25/0/2 4 [9861] 84416 94 844 17 0 2 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1671 [9862] s 25/0/1 1 [9863] 84417 94 844 9 0 1 1 >NO STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1662 [9864] s 24/1/0 1802 [9865] 84418 76 847 2 0 0 0 >YES JUMP unconditional Start of procedure 845 at location 1674 in chapter 7 [9866] [9866] 84500 PROCR 845 DEAL WITH TYPES 3 & 4 [9866] 84501 NOTES RADIX B 6/0/1 5599 [9866] 84502 0 30 5 0 1 0 SECN NO SELECT 27/0/0 1802 [9867] 84503 70 847 2 0 0 0 >END OF SECNS JUMP IF A == 0 27/0/3 1728 [9868] 84504 73 845 49 0 0 0 >SECN<0 JUMP IF A < 0 1/1/2 256 [9869] 84505 12 0 0 0 100 SUBTRACT LITERAL 27/0/2 1728 [9870] 84506 72 845 49 0 0 0 >SECN>99 JUMP IF A >= 0 6/0/1 5599 [9871] 84507 30 5 0 1 0 SECN NO SELECT 26/0/0 1160 [9872] 84508 80 821 2 0 0 0 >CONVERT TO BINARY ENTER SUBROUTINE 3/0/2 5616 [9873] 84509 3 31 4 0 2 0 COPY 24/0/3 22 [9874] 84510 92 0 0 3 0 SET (MR3)=SECN NO SET MODIFIER AT VARIABLE 2/0/0 6 [9875] 6/0/3 5116 [9876] 84511 0 15 0 0 3 0 SELECT 27/0/0 1728 [9877] 84512 70 845 49 0 0 0 >NO ERROR JUMP IF A == 0 6/0/0 6314 [9878] 84513 0 27 4 0 0 0 COMPILER? SELECT 27/0/0 1697 [9879] 84514 70 845 22 0 0 0 NO-> JUMP IF A == 0 24/0/3 22 [9880] 84515 95 0 0 2 0 SELECT MODIFICATION REGISTER 6/1/0 4 [9881] Source: ChuckK/Q1000749 3/1/0 2758 [9882] 84516 3 875 2 1 0 0 WL COPY 24/0/3 24 [9883] 84517 124 999 24 0 3 0 MODIFY ADDRESS OF NEXT 7/0/0 0 [9884] 84518 107 0 0 0 0 DOUBLE MR 2 AUGMENT (N) BY (A) 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/2 21 [9886] 84519 0 7 20 2 2 0 CLEO LENGTH SELECT 26/1/2 2758 [9887] 84520 91 875 2 0 2 0 RESET SET MODIFICATION REGISTER AT VARIABLE 24/1/0 1700 [9888] 84521 76 845 25 0 0 0 JUMP unconditional 0/0/2 2553 [9889] 84522 34 868 3 0 0 0 BITS 5->19 SET (N) IN B 15/0/3 5116 [9890] 84523 36 15 0 0 3 0 SECN LGTH COLLATE AND ADD 18/0/1 4127 [9891] 84524 30 0 0 0 1- SHIFT (A) BY QUARTETS 27/0/0 1728 [9892] 84525 70 845 49 0 0 0 LENGTH ZERO JUMP IF A == 0 2/0/2 5619 [9893] 84526 5 31 7 0 2 0 TRANSFER 0/0/2 2554 [9894] 84527 34 868 4 0 0 0 BIT 20 SET (N) IN B 15/0/3 5116 [9895] 84528 36 15 0 0 3 0 COLLATE AND ADD 27/0/1 1711 [9896] 84529 71 845 35 0 0 0 >YES JUMP IF A != 0 24/0/3 0 Extra code needed to address 6664 from 9897 (different chapter) 6/0/3 6664 [9898] 84530 18 1000 0 3 0 PROCR START SELECT 2/0/2 5618 [9899] 84531 5 31 6 0 2 0 TRANSFER 26/0/0 1519 [9900] 84532 80 836 2 0 0 0 FORM UP CHAP NO ENTER SUBROUTINE 18/0/1 3 [9901] 84533 30 0 0 0 3 SHIFT (A) BY QUARTETS 24/1/0 1717 [9902] 84534 76 845 40 0 0 0 > JUMP unconditional 18/0/3 1 [9903] 84535 31 0 0 0 3- SHIFT (A) BY BITS 18/0/1 4127 [9904] 2/0/2 5617 [9905] 84536 5 31 5 0 2 0 STORE TA IND TRANSFER 6/0/2 5616 [9906] 84537 0 31 4 0 2 0 SECN NO SELECT 26/0/0 1527 [9907] 84538 80 837 2 0 0 0 >FORM UP TA PARAMETER ENTER SUBROUTINE 27/0/0 1728 [9908] 84539 70 845 49 0 0 0 >T A PARAM NOT FOUND JUMP IF A == 0 7/0/2 5616 [9909] 84540 4 31 4 0 2 0 AUGMENT 25/0/2 4 [9910] 84541 94 845 42 0 2 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1720 [9911] s 25/0/1 1 [9912] 84542 94 845 2 0 1 1 >NEXT SECN STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1674 [9913] 24/1/0 1802 [9914] 84543 76 847 2 0 0 0 > JUMP unconditional 6/1/0 4846 [9915] 84544 10 0 0 0 5e5300 *C SELECT LITERAL 26/0/0 944 [9916] 84545 80 807 2 0 0 0 > ENTER SUBROUTINE 27/0/0 1671 [9917] 84546 70 844 17 0 0 0 > JUMP IF A == 0 26/0/0 956 [9918] 84547 80 808 2 0 0 0 > ENTER SUBROUTINE 24/1/0 1671 [9919] 84548 76 844 17 0 0 0 > JUMP unconditional 6/1/0 4848 [9920] 84549 10 0 0 0 5e7200 *S SELECT LITERAL 26/0/0 944 [9921] 84550 80 807 2 0 0 0 > ENTER SUBROUTINE 27/0/0 1720 [9922] 84551 70 845 42 0 0 0 > JUMP IF A == 0 26/0/0 956 [9923] 84552 80 808 2 0 0 0 > ENTER SUBROUTINE 24/1/0 1720 [9924] 84553 76 845 42 0 0 0 > JUMP unconditional 6/1/0 4850 [9925] 84554 10 0 0 0 5e6700 *P SELECT LITERAL 26/0/0 944 [9926] 84555 80 807 2 0 0 0 > ENTER SUBROUTINE 27/0/0 1800 [9927] 84556 70 846 60 0 0 0 JUMP IF A == 0 18/0/3 3 [9928] 84557 31 0 0 0 1- SHIFT (A) BY BITS 18/0/1 4127 [9929] 26/0/0 956 [9930] 84558 80 808 2 0 0 0 > ENTER SUBROUTINE 24/1/0 1800 [9931] 84559 76 846 60 0 0 0 > JUMP unconditional Start of procedure 846 at location 1740 in chapter 7 [9932] [9932] 84600 PROCR 846 DEAL WITH TYPE 6 [9932] 84601 NOTES RADIX B 26/1/1 4852 [9932] 84602 90 0 0 1 0 SET(MR1)=6:0 SET MODIFICATION REGISTER AT LITERAL [9933] 84603 C 0 0 0 12 Limit Source: ChuckK/Q1000750 6/0/1 5600 [9933] 84604 0 30 6 0 1 0 ITEM SELECT 27/0/3 1733 [9934] 84605 73 845 54 0 0 0 >REPORT NEG ITEM JUMP IF A < 0 26/0/0 1160 [9935] 84606 80 821 2 0 0 0 >CONVERT ENTER SUBROUTINE 2/0/2 5618 [9936] 84607 5 31 6 0 2 0 TRANSFER 6/0/1 5599 [9937] 84608 0 30 5 0 1 0 REF SELECT 27/0/0 1802 [9938] 84609 70 847 2 0 0 0 >ASSUME END OF DETAILS JUMP IF A == 0 27/0/3 1733 [9939] 84610 73 845 54 0 0 0 >REPORT NEG JUMP IF A < 0 1/1/2 2457 [9940] 84611 12 0 0 0 999 SUBTRACT LITERAL 27/0/2 1733 [9941] 84612 72 845 54 0 0 0 >REPORT >998 JUMP IF A >= 0 6/0/1 5599 [9942] 84613 0 30 5 0 1 0 SELECT 18/1/1 4126 [9943] 84614 32 0 0 0 2- SHIFT (AB) BY QUARTETS 27/0/1 1768 [9944] 84615 71 846 29 0 0 0 >PROCR JUMP IF A != 0 18/1/1 2 [9945] 84616 32 0 0 0 2 SHIFT (AB) BY QUARTETS 26/0/0 1160 [9946] 84617 80 821 2 0 0 0 >CONVERT REF ENTER SUBROUTINE 3/0/2 5617 [9947] 84618 3 31 5 0 2 0 COPY 24/0/3 22 [9948] 84619 92 0 0 3 0 SET(MR3)=BIN SECN SET MODIFIER AT VARIABLE 2/0/0 6 [9949] 24/0/3 0 Extra code needed to address 6664 from 9950 (different chapter) 6/0/3 6664 [9951] 84620 18 1000 0 3 0 PROCR START SELECT 27/0/0 1733 [9952] 84621 70 845 54 0 0 0 >NON-EXISTANT SECN JUMP IF A == 0 4/0/2 5618 [9953] 84622 1 31 6 0 2 0 ITEM ADD 2/0/2 5616 [9954] 84623 5 31 4 0 2 0 TRANSFER 6/0/0 4713 [9955] 84624 10 0 0 0 10000 SET SEC IND SELECT LITERAL 7/0/2 5617 [9956] 84625 4 31 5 0 2 0 AUGMENT 1/1/3 0 [9957] 84626 10 0 0 0 0 SELECT LITERAL 26/0/0 1519 [9958] 84627 80 836 2 0 0 0 >FORM UP CHAP NO ENTER SUBROUTINE 24/1/0 1796 [9959] 84628 76 846 57 0 0 0 > JUMP unconditional 18/1/1 2 [9960] 84629 32 0 0 0 2 SHIFT (AB) BY QUARTETS 26/0/0 1160 [9961] 84630 80 821 2 0 0 0 >CONVERT REF ENTER SUBROUTINE 2/0/2 5617 [9962] 84631 5 31 5 0 2 0 TRANSFER 6/0/1 5600 [9963] 84632 0 30 6 0 1 0 ITEM(3-DIGIT REF) SELECT 1/1/2 2 [9964] 84633 12 0 0 0 2 SUBTRACT LITERAL 27/0/3 1733 [9965] 84634 73 845 54 0 0 0 >REPORT<2 JUMP IF A < 0 1/1/2 152 [9966] 84635 12 0 0 0 98 SUBTRACT LITERAL 27/0/2 1733 [9967] 84636 72 845 54 0 0 0 >REPORT>99 JUMP IF A >= 0 6/0/1 5599 [9968] 84637 0 30 5 0 1 0 REF SELECT 18/0/1 2 [9969] 84638 30 0 0 0 2 SHIFT (A) BY QUARTETS 0/0/3 4714 [9970] 84639 60 0 0 0 0 SET DECIMAL SET DECIMAL RADIX 4/0/1 5600 [9971] 84640 1 30 6 0 1 0 ITEM ADD 0/0/3 0 [9972] 84641 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS 26/0/0 132 [9973] 84642 80 780 2 0 0 0 >UPDATE ADDRESS ENTER SUBROUTINE 3/0/0 1474 [9974] 84643 3 834 2 0 0 0 COPY 18/1/1 4126 [9975] 84644 32 0 0 0 2- SHIFT (AB) BY QUARTETS 2/0/1 5599 [9976] 84645 5 30 5 0 1 0 NEW REF TRANSFER 18/1/1 2 [9977] 84646 32 0 0 0 2 SHIFT (AB) BY QUARTETS 2/0/1 5600 [9978] 84647 5 30 6 0 1 0 NEW ITEM TRANSFER 6/0/0 1474 [9979] 84648 834 2 0 0 0 SELECT 26/0/0 1474 [9980] 84649 80 834 2 0 0 0 >FORM UP REL ADD ENTER SUBROUTINE 27/0/1 1793 [9981] 84650 71 846 54 0 0 0 >OK JUMP IF A != 0 6/0/0 1166 [9982] 84651 0 822 2 0 0 0 PROCR START SELECT 27/0/0 1733 [9983] 84652 70 845 54 0 0 0 >REJECT JUMP IF A == 0 4/0/0 1160 [9984] 84653 1 821 2 0 0 0 (BIN ITEM=2) ADD 2/0/2 5616 [9985] 84654 5 31 4 0 2 0 TRANSFER 6/1/0 8182 [9986] 26/0/0 1504 [9987] 84656 80 835 2 0 0 0 >FORM UP CHAP NO ENTER SUBROUTINE 18/0/1 4 [9988] 84657 30 0 0 0 4 SHIFT (A) BY QUARTETS 7/0/2 5616 [9989] 84658 4 31 4 0 2 0 AUGMENT 25/0/2 3 [9990] 84659 94 846 60 0 2 3 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1800 [9991] s 25/0/1 2 [9992] 84660 94 846 4 0 1 2 >NEXT TRACE POINT STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1741 [9993] s Source: DaveJ/Q1000751 Start of procedure 847 at location 1802 in chapter 7 [9994] [9994] 84700 PROCR 847 FORM UP M/T BLOCK AND PRINT [9994] 84701 NOTES RADIX B 6/0/0 8184 [9994] 3/0/0 2559 [9995] 84703 3 869 4 0 0 0 COPY 1/1/1 64 [9996] 84704 11 0 0 0 40 CONVERT TO ALPHA ADD LITERAL 4/1/0 2584 [9997] 84705 1 870 14 1 0 0 DDUMP SP ADD 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 50 [9999] 84706 5 8 50 1 0 0 TRANSFER 6/1/0 2580 [10000] 84707 0 870 10 1 0 0 FILES SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 4 [10002] 84708 5 8 4 1 0 0 TRANSFER 24/0/2 5612 [10003] 84709 55 31 0 0 0 22 BULK COPY 18/1/0 4123 [10004] 84710 C 8 6 1 0 0 1/1/3 22 [10005] 18/1/1 5 [10006] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/1 7 [10008] 26/0/0 1102 [10009] 84711 80 816 2 0 0 0 WRITE ENTER SUBROUTINE 24/0/2 2814 [10010] 84712 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [10012] 84713 C 877 2 0 0 0 6/0/0 5595 [10013] 84714 0 30 1 0 0 0 TEST TYPE 6 SELECT 1/1/2 6 [10014] 84715 12 0 0 0 6 SUBTRACT LITERAL 27/0/0 1828 [10015] 84716 70 847 20 0 0 0 >YES JUMP IF A == 0 24/0/2 2828 [10016] 84717 52 5 18 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 18 [10018] 84718 C 877 16 0 0 0 24/1/0 1846 [10019] 84719 76 847 31 0 0 0 JUMP unconditional 24/0/2 2846 [10020] 84720 52 5 18 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 18 [10022] 84721 C 877 34 0 0 0 26/1/3 4854 [10023] 84722 90 0 0 3 0 LEFT ALIGN ITEMS SET MODIFICATION REGISTER AT LITERAL [10024] 84723 C 0 0 0 24 Limit 1/1/3 0 [10024] 84724 10 0 0 0 0 SELECT LITERAL 0/1/0 40 [10025] 84725 34 5 22 1 3 0 SET (N) IN B 0/0/3 0 [10026] 24/1/2 15 Extra code needed to address transit area no 1, section 5 6/1/3 22 [10028] 2/1/0 42 [10029] 0/1/1 40 [10030] 18/1/1 2 [10031] 84726 32 0 0 0 2 SHIFT (AB) BY QUARTETS 27/0/0 1839 [10032] 84727 70 847 26 0 0 0 JUMP IF A == 0 18/1/1 8 [10033] 84728 32 0 0 0 8 SHIFT (AB) BY QUARTETS 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/3 22 [10035] 84729 5 5 22 1 3 0 TRANSFER 25/0/3 4 [10036] 84730 94 847 25 0 3 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1833 [10037] s 26/0/0 1105 [10038] 84731 80 817 2 0 0 0 >PRINT ENTER SUBROUTINE 26/0/1 1599 [10039] 84732 82 842 2 0 0 0 > END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 848 at location 1848 in chapter 7 [10040] [10040] 84800 PROCR 848 PROCESS AND PRINT T.D. HEADING [10040] 84801 NOTES RADIX B 0/0/0 0 [10040] 84802 81 848 2 0 0 0 START OF SUBROUTINE 24/0/2 2890 [10041] 84803 52 5 2 0 0 0 EDIT EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [10043] 84804 C 878 2 0 0 0 6/1/0 2640 [10044] 84805 0 872 6 1 0 0 HEAD OF FORM SELECT 26/0/0 1105 [10045] 84806 80 817 2 0 0 0 PRINT ENTER SUBROUTINE 1/1/3 2 [10046] 84807 83 826 4 0 0 2 SET FIEND SWITCH SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8156 [10047] 26/0/1 1848 [10048] 84808 82 848 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 849 at location 1857 in chapter 7 [10049] [10049] 84900 PROCR 849 PROCESS TRIAL DATA HEADING S/R (1) [10049] 84901 NOTES RADIX B 0/0/0 0 [10049] 84902 81 849 2 0 0 0 START OF SUBROUTINE 6/0/0 5078 [10050] 84903 0 16 2 0 0 0 PROG ID SELECT 2/1/0 5613 [10051] 84904 5 31 0 2 0 0 TRANSFER 2/1/0 2630 [10052] 84905 5 871 42 1 0 0 CLEAR ERROR W/L TRANSFER 6/0/0 5598 [10053] 84906 0 30 4 0 0 0 RUN NO SELECT 3/0/0 5801 [10054] 84907 3 32 167 0 0 0 COPY 2/1/0 5619 [10055] 84908 5 31 6 2 0 0 TRANSFER 6/0/0 5601 [10056] 84909 0 30 7 0 0 0 T D SET NO SELECT Source: DaveJ/Q1000752 27/0/1 1872 [10057] 84910 71 849 17 0 0 0 >NON-ZERO JUMP IF A != 0 26/0/0 2546 [10058] 84911 80 867 2 0 0 0 >STEP'OTHERS' ENTER SUBROUTINE 6/1/0 2600 [10059] 84912 0 871 12 1 0 0 SET ERROR WORD=SET SELECT 18/0/1 4124 [10060] 84913 30 0 0 0 4- SHIFT (A) BY QUARTETS 2/1/0 2630 [10061] 84914 5 871 42 1 0 0 TRANSFER 1/1/3 9 [10062] 84915 10 0 0 0 9 SET T D SET=9 SELECT LITERAL 3/0/0 5601 [10063] 84916 3 30 7 0 0 0 COPY 3/1/0 5625 [10064] 84917 3 31 12 2 0 0 STORE FOR O/P COPY 6/0/0 5599 [10065] 84918 0 30 5 0 0 0 MAX BLOCK SIZE SELECT 1/1/2 4097 [10066] 84919 12 0 0 0 1001 TEST>1000 SUBTRACT LITERAL 27/0/3 1881 [10067] 84920 73 849 26 0 0 0 >NO JUMP IF A < 0 6/1/0 2620 [10068] 84921 0 871 32 1 0 0 SET UP ERROR REPORT SELECT 2/1/0 2630 [10069] 84922 5 871 42 1 0 0 TRANSFER 26/0/0 2546 [10070] 84923 80 867 2 0 0 0 >STEP'OTHERS' ENTER SUBROUTINE 6/0/0 5599 [10071] 84924 0 30 5 0 0 0 SELECT 1/1/2 4097 [10072] 84925 12 0 0 0 1001 SUBTRACT LITERAL 1/1/1 4097 [10073] 84926 11 0 0 0 1001 ADD LITERAL 3/0/0 5802 [10074] 84927 3 32 168 0 0 0 COPY 3/1/0 5629 [10075] 84928 3 31 16 2 0 0 COPY 26/0/0 1160 [10076] 84929 80 821 2 0 0 0 >CONVERT TO BINARY ENTER SUBROUTINE 18/0/3 1 [10077] 84930 31 0 0 0 1 FORM(2N-4) SHIFT (A) BY BITS 1/1/2 4 [10078] 84931 12 0 0 0 4 SUBTRACT LITERAL 2/1/0 5623 [10079] 84932 5 31 10 2 0 0 TRANSFER 6/0/0 5602 [10080] 84933 0 30 8 0 0 0 FIXED/VARIABLE IND SELECT 3/1/0 5631 [10081] 84934 3 31 18 2 0 0 COPY 27/0/0 1896 [10082] 84935 70 849 41 0 0 0 >FIXED SET UP IND IN JUMP IF A == 0 1/1/3 1 [10083] 84936 10 0 0 0 1 SELECT LITERAL 3/0/0 5602 [10084] 84937 3 30 8 0 0 0 COPY 2/1/0 5631 [10085] 84938 5 31 18 2 0 0 TRANSFER 6/1/0 2626 [10086] 84939 0 871 38 1 0 0 TD HEADING SELECT 24/1/0 1897 [10087] 84940 76 849 42 0 0 0 >VAR JUMP unconditional 6/1/0 2624 [10088] 84941 0 871 36 1 0 0 SELECT 2/1/0 2628 [10089] 84942 5 871 40 1 0 0 TRANSFER Start of procedure 850 at location 1898 in chapter 7 [10090] [10090] 85000 PROCR 850 PROCESS TRIAL DATA HEADING (2) [10090] 85001 NOTES RADIX B 6/0/0 5605 [10090] 85002 0 30 11 0 0 0 TEST TRUE FILE ID ZERO SELECT 27/0/0 1909 [10091] 85003 70 850 13 0 0 0 >YES JUMP IF A == 0 18/1/1 4125 [10092] 85004 32 0 0 0 3- SHIFT (AB) BY QUARTETS 2/0/0 2557 [10093] 85005 5 869 2 0 0 0 COPY ALPHA PART TO W/L TRANSFER 6/0/0 5597 [10094] 85006 0 30 3 0 0 0 TEST ALPHA PART OF SELECT 18/1/1 4125 [10095] 85007 32 0 0 0 3- RTE IDENTIFIER= SHIFT (AB) BY QUARTETS 5/0/0 2557 [10096] 85008 2 869 2 0 0 0 STORED ALPHA VALUE SUBTRACT 27/0/0 1907 [10097] 85009 70 850 11 0 0 0 >YES JUMP IF A == 0 26/0/0 973 [10098] 85010 80 809 2 0 0 0 >ERROR S/R ENTER SUBROUTINE 6/1/0 5604 [10099] 85011 0 30 10 1 0 0 SELECT 24/1/0 1911 [10100] 85012 76 850 15 0 0 0 > JUMP unconditional 6/1/0 5596 [10101] 85013 0 30 2 1 0 0 SET TRUE FILE ID= SELECT 3/1/0 5604 [10102] 85014 3 30 10 1 0 0 ROUTE IDENTIFIER COPY 18/0/1 4122 [10103] 85015 30 0 0 0 6- SHIFT (A) BY QUARTETS 2/1/0 5616 [10104] 85016 5 31 4 1 0 0 TRANSFER 6/1/0 5596 [10105] 85017 0 30 2 1 0 0 STORE RTE IDENTIFIER SELECT 18/0/1 4122 [10106] 85018 30 0 0 0 6- SHIFT (A) BY QUARTETS 2/1/0 5632 [10107] 85019 5 31 20 1 0 0 TRANSFER 6/0/0 5217 [10108] 85020 0 24 1 0 0 0 SELECT 27/0/0 1928 [10109] 85021 70 850 30 0 0 0 >NO FILES JUMP IF A == 0 26/1/1 5216 [10110] 85022 91 24 0 0 1 0 SET(MR1)=2R/0 SET MODIFICATION REGISTER AT VARIABLE 6/0/1 5221 [10111] 85023 24 5 0 1 0 B7-20=FILE ID SELECT 18/0/3 2 [10112] 85024 31 0 0 0 6- SHIFT (A) BY BITS 18/0/1 4126 [10113] 4/0/0 4715 [10114] 85025 11 0 0 0 4000 ADD LITERAL Source: DaveJ/Q1000753 18/0/1 1 [10115] 85026 30 0 0 0 1 SHIFT (A) BY QUARTETS 5/0/0 5597 [10116] 85027 2 30 3 0 0 0 SUBTRACT 27/0/0 1933 [10117] 85028 70 850 35 0 0 0 >YES JUMP IF A == 0 25/0/1 2 [10118] 85029 94 850 23 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1919 [10119] 6/0/0 4716 [10120] 85030 10 0 0 0 7777 DUMMY FILE IDENTY'XX' SELECT LITERAL 3/1/0 5632 [10121] 85031 3 31 20 1 0 0 ON MAG TAPE COPY 18/0/1 6 [10122] 85032 30 0 0 0 6 SHIFT (A) BY QUARTETS 2/1/0 5596 [10123] 85033 5 30 2 1 0 0 AND PRINTER TRANSFER 26/0/0 973 [10124] 85034 80 809 2 0 0 0 >ERROR S/R ENTER SUBROUTINE 1/1/3 63 [10125] 85035 10 0 0 0 3p BITS 1-6 SELECT LITERAL 18/1/1 4118 [10126] 85036 32 0 0 0 10- SHIFT (AB) BY QUARTETS 15/0/1 5221 [10127] 85037 36 24 5 0 1 0 COLLATE AND ADD 1/1/2 7 [10128] 85038 12 0 0 0 7 SUBTRACT LITERAL 27/0/0 1943 [10129] 85039 70 850 45 0 0 0 >YES 7 JUMP IF A == 0 1/1/2 1 [10130] 85040 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 1943 [10131] 85041 70 850 45 0 0 0 >YES 8 JUMP IF A == 0 1/1/2 3 [10132] 85042 12 0 0 0 3 SUBTRACT LITERAL 27/0/0 1943 [10133] 85043 70 850 45 0 0 0 >YES 11 JUMP IF A == 0 26/0/0 973 [10134] 85044 80 809 2 0 0 0 >ERROR S/R ENTER SUBROUTINE 24/0/3 22 [10135] 85045 95 0 0 1 0 FORM UP RTE PARAM SELECT MODIFICATION REGISTER 6/1/0 2 [10136] 18/0/3 3 [10137] 85046 31 0 0 0 1- SHIFT (A) BY BITS 18/0/1 4127 [10138] 1/1/1 1 [10139] 85047 11 0 0 0 1 ADD LITERAL 4/0/0 2558 [10140] 85048 1 869 3 0 0 0 NO OF INITIAL CHAPS ADD 4/0/0 2558 [10141] 85049 1 869 3 0 0 0 ADD 2/1/0 5615 [10142] 85050 5 31 2 2 0 0 TRANSFER 6/0/0 5600 [10143] 85051 0 30 6 0 0 0 SECN NO SELECT 3/0/0 5803 [10144] 85052 3 32 169 0 0 0 COPY 3/1/0 5627 [10145] 85053 3 31 14 2 0 0 COPY 26/0/0 1160 [10146] 85054 80 821 2 0 0 0 >CONVERT TO BINARY ENTER SUBROUTINE 26/0/0 1527 [10147] 85055 80 837 2 0 0 0 >FORM UP PARAMETER ENTER SUBROUTINE 27/0/1 1958 [10148] 85056 71 850 58 0 0 0 >T.A.PARAMETER FOUND JUMP IF A != 0 26/0/0 973 [10149] 85057 80 809 2 0 0 0 >ERROR S/R ENTER SUBROUTINE 18/0/1 4125 [10150] 85058 30 0 0 0 3- SHIFT (A) BY QUARTETS 2/1/0 5621 [10151] 85059 5 31 8 2 0 0 TRANSFER 26/0/0 1110 [10152] 85060 80 818 2 0 0 0 >LINE FEED S/R ENTER SUBROUTINE 26/0/0 1110 [10153] 85061 80 818 2 0 0 0 >LINE FEED S/R ENTER SUBROUTINE 6/1/0 4856 [10154] 85062 54 8 0 0 0 54 BULK CLEAR 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/0/0 0 [10156] 6/1/0 2576 [10157] 85063 0 870 6 1 0 0 CHAPT SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 4 [10159] 85064 5 8 4 1 0 0 TRANSFER 24/0/2 5612 [10160] 85065 55 31 0 1 0 22 BULK COPY 18/1/0 4123 [10161] 85066 C 8 6 1 0 0 1/1/3 22 [10162] 18/1/1 5 [10163] 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 6 [10165] 26/0/0 1102 [10166] 85067 80 816 2 0 0 0 WRITE ENTER SUBROUTINE 6/1/0 4858 [10167] 85068 54 32 0 0 0 60 CLEAR W/L'S BULK CLEAR 28/0/0 5634 [10168] 1/1/3 8 [10169] 85069 10 0 0 0 8 SET BLOCK CTR AT 8 SELECT LITERAL 2/0/0 5648 [10170] 85070 5 32 14 0 0 0 TRANSFER 26/1/1 4860 [10171] 85071 90 0 0 1 0 SET (MR1) AT 24:0 SET MODIFICATION REGISTER AT LITERAL [10172] 85072 C 0 0 0 24 Limit 6/0/0 5602 [10172] 85073 0 30 8 0 0 0 FIXED/VARIABLE IND SELECT 1/1/1 1 [10173] 85074 11 0 0 0 1 ADD LITERAL 2/0/0 8155 [10174] 85075 84 785 2 0 0 0 SET BLOCK LGTH SWITCH SET SWITCH(ES) AT VARIABLE VALUE 26/0/1 1857 [10175] 85076 82 849 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 851 at location 1984 in chapter 7 [10176] [10176] 85100 PROCR 851 OUTPUT M/T BLOCK S/R [10176] 85101 NOTES RADIX B 0/0/0 0 [10176] 85102 81 851 2 0 0 0 START OF SUBROUTINE 24/0/1 8154 [10177] 85103 85 781 2 0 0 0 TEST THIS IS FIRST WORD OF TD BLOCK SWITCH R 26/0/1 1986 [10178] 0/0/1 1992 [10179] s 85104 C 851 8 0 0 0 >NO 0/0/1 1989 [10180] s 85105 C 851 6 0 0 0 >YES Source: DaveJ/Q1000754 1/1/3 1 [10181] 85106 83 781 2 0 0 1 SET FIRST WORD SWITCH AT 1 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8154 [10182] 24/1/0 2010 [10183] 85107 76 851 23 0 0 0 JUMP unconditional 25/0/1 2 [10184] 85108 94 851 23 0 1 2 >NO TEST END OF BLOCK STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2010 [10185] s 26/1/3 4862 [10186] 85109 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [10187] 85110 C 0 0 0 24 Limit 26/1/1 4864 [10187] 85111 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [10188] 85112 C 0 0 0 48 Limit 6/0/3 5671 [10188] 85113 0 32 37 0 3 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/1 5 [10190] 85114 5 8 4 2 1 0 TRANSFER 6/0/3 5670 [10191] 85115 0 32 36 0 3 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/1 7 [10193] 85116 5 8 6 2 1 0 TRANSFER 25/0/1 4 [10194] 85117 94 0 0 1 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2004 [10195] 25/0/3 2 [10196] 85118 94 851 13 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 1996 [10197] s 26/0/0 1102 [10198] 85119 80 816 2 0 0 0 >WRITE ENTER SUBROUTINE 26/1/1 4866 [10199] 85120 90 0 0 1 0 RESET (MR1) SET MODIFICATION REGISTER AT LITERAL [10200] 85121 C 0 0 0 24 Limit 6/1/0 4868 [10200] 85122 54 32 36 0 0 24 CLEAR W/L'S BULK CLEAR 28/0/0 5670 [10201] 26/0/1 1984 [10202] 85123 82 851 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 852 at location 2011 in chapter 7 [10203] [10203] 85200 PROCR 852 EDIT NEXT PRINTER TRIAL DATA LINE+BLOCK NUMBER IF REQUIRED [10203] 85201 NOTES RADIX B 0/0/0 0 [10203] 85202 81 852 2 0 0 0 START OF SUBROUTINE 24/0/1 8153 [10204] 85203 85 849 4 0 0 0 TEST BLOCK TO BE EDITED SWITCH R 26/0/1 2013 [10205] 0/0/1 2034 [10206] s 85204 C 852 21 0 0 0 >NO 0/0/1 2016 [10207] s 85205 C 852 6 0 0 0 >YES 24/0/2 2930 [10208] 85206 52 5 2 0 0 0 EDIT BLOCK NO EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [10210] 85207 C 879 2 0 0 0 0/0/3 4717 [10211] 85208 60 0 0 0 0 SET DECIMAL RADIX 1/1/3 1 [10212] 85209 10 0 0 0 1 SELECT LITERAL 7/0/0 5648 [10213] 85210 4 32 14 0 0 0 STEP IT READY FOR NEXT BLOCK AUGMENT 0/0/3 0 [10214] 85211 62 0 0 0 0 SET EXCESS CONSTANTS 1/1/3 1 [10215] 85212 83 849 2 0 0 1 SET BLOCK NO SWITCH SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8153 [10216] 6/0/0 5648 [10217] 85213 0 32 14 0 0 0 SELECT 18/1/1 4124 [10218] 85214 32 0 0 0 4- SHIFT (AB) BY QUARTETS 27/0/0 2033 [10219] 85215 70 852 20 0 0 0 >NOT EX PT JUMP IF A == 0 6/0/0 4718 [10220] 85216 10 0 0 0 2+2+0 >>' SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/0/0 3 [10222] 85217 5 5 3 0 0 0 TRANSFER 18/1/1 4 [10223] 85218 32 0 0 0 4 SHIFT (AB) BY QUARTETS 2/0/0 5648 [10224] 85219 5 32 14 0 0 0 CLEAR IND TRANSFER 24/1/0 2035 [10225] 85220 76 852 22 0 0 0 JUMP unconditional 26/0/0 1122 [10226] 85221 80 819 2 0 0 0 CLEAR ANNEXE START ENTER SUBROUTINE 24/0/2 2936 [10227] 85222 52 5 6 0 0 0 EDIT LINE EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 6 [10229] 85223 C 879 8 0 0 0 24/0/3 22 [10230] 85224 95 0 0 1 0 SET 'EX PT' INDS SELECT MODIFICATION REGISTER 6/1/0 2 [10231] 2/1/0 2569 [10232] 85225 5 869 14 1 0 0 WL TRANSFER 24/0/3 22 [10233] 85226 95 0 0 2 0 SELECT MODIFICATION REGISTER 6/1/0 4 [10234] 2/1/0 4352 [10235] 85227 5 908 54 1 0 0 WL TRANSFER 26/1/1 4870 [10236] 85228 90 0 0 1 0 SCAN WORD NUMBERS SET MODIFICATION REGISTER AT LITERAL [10237] 85229 C 0 0 0 7 Limit 26/1/2 4872 [10237] 85230 90 0 0 2 0 SCAN SEC 5 SET MODIFICATION REGISTER AT LITERAL [10238] 85231 C 0 0 0 42 Limit 6/0/1 5649 [10238] 85232 32 15 0 1 0 SELECT 27/0/2 2052 [10239] 85233 72 852 37 0 0 0 >NORMAL JUMP IF A >= 0 1/0/1 6 [10240] 85234 35 0 0 0 110 PREPARE FOR DIGIT COLLATION 1/1/3 672 [10241] 85235 10 0 0 0 2t0 '->' SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 14/0/2 7 [10243] 85236 37 5 7 0 2 0 REPLACE SELECTED BITS 25/0/1 1 [10244] 85237 94 0 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2054 [10245] 25/0/2 6 [10246] 85238 94 852 32 0 2 6 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2046 [10247] s 26/1/1 2569 [10248] 85239 91 869 14 0 1 0 RESTORE SET MODIFICATION REGISTER AT VARIABLE Source: ChuckK/Q1000755 26/1/2 4352 [10249] 85240 91 908 54 0 2 0 SET MODIFICATION REGISTER AT VARIABLE 26/0/1 2011 [10250] 85241 82 852 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 853 at location 2059 in chapter 7 [10251] [10251] 85300 PROCR 853 END OF TRIAL DATA BLOCK S/R [10251] 85301 NOTES RADIX B 0/0/0 0 [10251] 85302 81 853 2 0 0 0 START OF SUBROUTINE 26/0/0 2011 [10252] 85303 80 852 2 0 0 0 >EDIT BLOCK NO IF REQD ENTER SUBROUTINE 1/1/3 42 [10253] 85304 10 0 0 0 2t SET(MR3)=42/3XMR SELECT LITERAL 18/0/1 5 [10254] 85305 30 0 0 0 5 SHIFT (A) BY QUARTETS 24/0/3 22 [10255] 85306 98 0 0 2 0 ADD MODIFICATION REGISTER TO A 4/0/0 4 [10256] 24/0/3 22 [10257] 85307 98 0 0 2 0 ADD MODIFICATION REGISTER TO A 4/0/0 4 [10258] 24/0/3 22 [10259] 85308 98 0 0 2 0 ADD MODIFICATION REGISTER TO A 4/0/0 4 [10260] 3/1/0 40 [10261] 85309 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [10262] 6/1/0 4874 [10263] 85310 54 5 6 0 3 6 CLEAR REST OF ANNEXE BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/0/0 6 [10265] 25/0/3 6 [10266] 85311 94 853 10 0 3 6 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2071 [10267] s 2/0/0 5773 [10268] 85312 5 32 139 0 0 0 CLEAR LINE CTR TRANSFER 26/0/0 1105 [10269] 85313 80 817 2 0 0 0 PRINT ENTER SUBROUTINE 24/0/1 8176 [10270] 85314 85 787 4 0 0 0 SWITCH R 26/0/1 2079 [10271] 0/0/1 2089 [10272] s 85315 C 853 22 0 0 0 >NO 0/0/1 2082 [10273] s 85316 C 853 17 0 0 0 >YES 24/0/2 2996 [10274] 85317 52 5 6 0 0 0 EDIT LINE EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 6 [10276] 85318 C 880 2 0 0 0 26/0/0 1122 [10277] 85319 80 819 2 0 0 0 CLEAR ANNEXE START ENTER SUBROUTINE 26/0/0 1105 [10278] 85320 80 817 2 0 0 0 PRINT ENTER SUBROUTINE 6/1/0 4876 [10279] 85321 54 32 22 0 0 14 BULK CLEAR 28/0/0 5656 [10280] 1/1/3 3 [10281] 85322 83 786 4 0 0 3 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8177 [10282] 26/0/1 2059 [10283] 85323 82 853 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 854 at location 2092 in chapter 7 [10284] [10284] 85400 PROCR 854 PROCESS DUMP POINT FROM MT [10284] 85401 NOTES RADIX B 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 7 [10285] 85402 00 7 6 2 0 0 I/C SERIAL SELECT 2/0/0 5594 [10286] 85403 05 30 0 0 0 0 TRANSFER 1/0/1 16 [10287] 85404 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION 24/1/2 17 Extra code needed to address transit area no 2, section 7 15/1/0 11 [10289] 85405 36 7 10 2 0 0 PM TYPE COLLATE AND ADD 18/0/1 4124 [10290] 85406 30 0 0 0 4- SHIFT (A) BY QUARTETS 2/0/0 5595 [10291] 85407 05 30 1 0 0 0 TRANSFER 1/0/1 24 [10292] 85408 35 0 0 0 11000 N1 PREPARE FOR DIGIT COLLATION 24/1/2 17 Extra code needed to address transit area no 2, section 7 15/1/0 13 [10294] 85409 36 7 12 2 0 0 COLLATE AND ADD 18/0/1 4125 [10295] 85410 30 0 0 0 3- SHIFT (A) BY QUARTETS 26/0/0 1166 [10296] 85411 80 822 2 0 0 0 >CONVERT TO DEC ENTER SUBROUTINE 2/0/0 5596 [10297] 85412 05 30 2 0 0 0 TRANSFER 1/0/1 3 [10298] 85413 35 0 0 0 11 N2 PREPARE FOR DIGIT COLLATION 24/1/2 17 Extra code needed to address transit area no 2, section 7 15/1/0 13 [10300] 85414 36 7 12 2 0 0 COLLATE AND ADD 26/0/0 1166 [10301] 85415 80 822 2 0 0 0 >CONVERT TO DEC ENTER SUBROUTINE 2/0/0 5597 [10302] 85416 05 30 3 0 0 0 TRANSFER 1/0/1 6 [10303] 85417 35 0 0 0 110 N3 PREPARE FOR DIGIT COLLATION 24/1/2 17 Extra code needed to address transit area no 2, section 7 15/1/0 11 [10305] 85418 36 7 10 2 0 0 COLLATE AND ADD 18/0/1 4127 [10306] 85419 30 0 0 0 1- SHIFT (A) BY QUARTETS 26/0/0 1166 [10307] 85420 80 822 2 0 0 0 >CONVERT TO DEC ENTER SUBROUTINE 2/0/0 5598 [10308] 85421 05 30 4 0 0 0 TRANSFER Start of procedure 855 at location 2117 in chapter 7 [10309] [10309] 85500 PROCR 855 -2 [10309] 85501 NOTES RADIX B 6/0/0 5595 [10309] 85502 00 30 1 0 0 0 SELECT 1/1/2 6 [10310] 85503 12 0 0 0 6 SUBTRACT LITERAL 27/0/1 2137 [10311] 85504 71 855 19 0 0 0 >NO JUMP IF A != 0 26/1/1 4878 [10312] 85505 90 0 0 1 0 SET (MR1)=6:0 SET MODIFICATION REGISTER AT LITERAL [10313] 85506 C 0 0 0 12 Limit 26/1/2 2636 [10313] 85507 91 872 2 0 2 0 SET (MR2)=0:0 SET MODIFICATION REGISTER AT VARIABLE 1/1/3 0 [10314] 85508 10 0 0 0 0 SELECT LITERAL Source: ChuckK/Q1000756 1/0/1 15 [10315] 85509 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 24/1/2 17 Extra code needed to address transit area no 2, section 7 15/1/2 17 [10317] 85510 36 7 16 2 2 0 REF COLLATE AND ADD 26/0/0 1166 [10318] 85511 80 822 2 0 0 0 >CONVERT TO DEC ENTER SUBROUTINE 2/0/1 5599 [10319] 85512 5 30 5 0 1 0 TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/2 19 [10321] 85513 0 7 18 2 2 0 ITEM SELECT 26/0/0 1166 [10322] 85514 80 822 2 0 0 0 >CONVERT TO DEC ENTER SUBROUTINE 2/0/1 5600 [10323] 85515 5 30 6 0 1 0 TRANSFER 25/0/2 6 [10324] 85516 94 855 17 0 2 6 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2134 [10325] s 25/0/1 2 [10326] 85517 94 855 8 0 1 2 >NEXT ONE STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2122 [10327] s 24/1/0 2156 [10328] 85518 76 855 36 0 0 0 > JUMP unconditional 6/0/0 5595 [10329] 85519 0 30 1 0 0 0 ;TEST TYPE 5 SELECT 1/1/2 5 [10330] 85520 12 0 0 0 5 SUBTRACT LITERAL 27/0/1 2144 [10331] 85521 71 855 26 0 0 0 >NO JUMP IF A != 0 2/0/0 5599 [10332] 85522 5 30 5 0 0 0 CLEAR W/L'S TRANSFER 2/1/0 5600 [10333] 85523 5 30 6 1 0 0 TRANSFER 2/1/0 5602 [10334] 85524 5 30 8 1 0 0 TRANSFER 24/1/0 2156 [10335] 85525 76 855 36 0 0 0 > JUMP unconditional 26/1/1 4880 [10336] 85526 90 0 0 1 0 SET (MR1)=4:0 SET MODIFICATION REGISTER AT LITERAL [10337] 85527 C 0 0 0 4 Limit 26/1/2 2636 [10337] 85528 91 872 2 0 2 0 SET (MR2)=0:0 SET MODIFICATION REGISTER AT VARIABLE 1/1/3 0 [10338] 85529 10 0 0 0 0 SELECT LITERAL 1/0/1 7 [10339] 85530 35 0 0 0 111 PREPARE FOR DIGIT COLLATION 24/1/2 17 Extra code needed to address transit area no 2, section 7 15/1/2 15 [10341] 85531 36 7 14 2 2 0 CHAP OR SECN NO COLLATE AND ADD 26/0/0 1166 [10342] 85532 80 822 2 0 0 0 >CONVERT TO DEC ENTER SUBROUTINE 2/0/1 5599 [10343] 85533 5 30 5 0 1 0 TRANSFER 25/0/2 8 [10344] 85534 94 855 35 0 2 8 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2154 [10345] s 25/0/1 1 [10346] 85535 94 855 29 0 1 1 >NEXT ONE STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2146 [10347] s 26/0/0 1599 [10348] 85536 80 842 2 0 0 0 >PROCESS DUMPS POINT ENTER SUBROUTINE 24/1/0 459 [10349] 85537 76 789 22 0 0 0 JUMP unconditional Start of procedure 856 at location 2158 in chapter 7 [10350] [10350] 85600 PROCR 856 PRINT FILE UNALTERED S/R [10350] 85601 NOTES RADIX B 0/0/0 0 [10350] 85602 81 856 2 0 0 0 START OF SUBROUTINE 6/0/0 6310 [10351] 85603 0 27 0 0 0 0 ;TEST ISSUE 6 OR SELECT 18/0/1 4124 [10352] 85604 30 0 0 0 4- ;EARLIER SHIFT (A) BY QUARTETS 1/1/2 7 [10353] 85605 12 0 0 0 7 SUBTRACT LITERAL 27/0/2 2221 [10354] 85606 72 856 55 0 0 0 >NO JUMP IF A >= 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 10 [10356] 85607 0 7 10 1 0 0 FILE ID SELECT 2/1/0 5604 [10357] 85608 5 30 10 1 0 0 TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 13 [10359] 85609 0 7 12 2 0 0 RUN NO SELECT 2/0/0 5598 [10360] 85610 5 30 4 0 0 0 TRANSFER 2/0/0 5601 [10361] 85611 5 30 7 0 0 0 SET NO TRANSFER 2/0/0 5602 [10362] 85612 5 30 8 0 0 0 IND TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 17 [10364] 85613 0 7 16 2 0 0 TA LGTH SELECT 18/0/3 3 [10365] 85614 31 0 0 0 1- SHIFT (A) BY BITS 18/0/1 4127 [10366] 26/0/0 1166 [10367] 85615 80 822 2 0 0 0 >TO DEC ENTER SUBROUTINE 2/0/0 5599 [10368] 85616 5 30 5 0 0 0 TRANSFER 0/0/3 0 [10369] 85617 62 0 0 0 0 SET EXCESS CONSTANTS 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 15 [10371] 85618 0 7 14 2 0 0 P RTE PARAM SELECT 18/0/1 3 [10372] 85619 30 0 0 0 3 ;SEARCH LIST FOR SHIFT (A) BY QUARTETS 2/0/0 2557 [10373] 85620 5 869 2 0 0 0 W/L;SECN ASSOCIATED TRANSFER 26/1/3 5218 [10374] 85621 91 24 2 0 3 0 2(R+T):2R;WITH THIS P RTE SET MODIFICATION REGISTER AT VARIABLE 25/0/3 0 [10375] 85622 94 856 24 0 3 0 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2186 [10376] s 24/1/0 2193 [10377] 85623 76 856 30 0 0 0 >NO TX AREAS JUMP unconditional 1/0/1 24 [10378] 85624 35 0 0 0 11000 PREPARE FOR DIGIT COLLATION 15/0/3 5220 [10379] 85625 36 24 4 0 3 0 COLLATE AND ADD 5/0/0 2557 [10380] 85626 2 869 2 0 0 0 SUBTRACT 27/0/0 2194 [10381] 85627 70 856 31 0 0 0 >SECN FOUND JUMP IF A == 0 Source: ChuckK/Q1000757 1/1/3 0 [10382] 85628 10 0 0 0 0 SELECT LITERAL 25/0/3 2 [10383] 85629 94 856 24 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2186 [10384] s 26/0/0 973 [10385] 85630 80 809 2 0 0 0 NOT FOUND ERROR S/R ENTER SUBROUTINE 1/0/1 7 [10386] 85631 35 0 0 0 111 PREPARE FOR DIGIT COLLATION 15/0/3 5220 [10387] 85632 36 24 4 0 3 0 SECN NO COLLATE AND ADD 26/0/0 1160 [10388] 85633 80 821 2 0 0 0 >TO BIN ENTER SUBROUTINE 2/0/0 5600 [10389] 85634 5 30 6 0 0 0 TRANSFER 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 9 [10391] 85635 0 7 8 2 0 0 RTE PARAM SELECT 5/0/0 2558 [10392] 85636 2 869 3 0 0 0 NO OF CHAPS SUBTRACT 5/0/0 2558 [10393] 85637 2 869 3 0 0 0 SUBTRACT 1/1/2 1 [10394] 85638 12 0 0 0 1 SUBTRACT LITERAL 18/0/3 1 [10395] 85639 31 0 0 0 1 SHIFT (A) BY BITS 3/1/0 40 [10396] 85640 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [10397] 6/0/3 5221 [10398] 85641 24 5 0 3 0 FILE ID BITS 7-20 SELECT 18/0/3 2 [10399] 85642 31 0 0 0 6- SHIFT (A) BY BITS 18/0/1 4126 [10400] 4/0/0 4719 [10401] 85643 11 0 0 0 4000 RESTORE TOP CONTROL ADD LITERAL 18/0/1 6 [10402] 85644 30 0 0 0 6 SHIFT (A) BY QUARTETS 2/1/0 5596 [10403] 85645 5 30 2 1 0 0 TRUE FILE ID OF TRIAL DATA SET TRANSFER 26/0/0 1857 [10404] 85646 80 849 2 0 0 0 >PROCESS T D HEADING ENTER SUBROUTINE 26/0/0 1848 [10405] 85647 80 848 2 0 0 0 >PRINT T D HEADING ENTER SUBROUTINE 1/1/3 8 [10406] 85648 10 0 0 0 8 SET BLOCK CTR 2 AT 8 SELECT LITERAL 2/0/0 5772 [10407] 85649 5 32 138 0 0 0 TRANSFER 6/1/0 4882 [10408] 85650 90 0 0 8 22 SET(MR8)=24:22 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [10409] 85651 C 0 0 0 24 Simulated modifier 26/0/0 2411 [10410] 85652 80 861 2 0 0 0 >READ AND STORE BLOCK ENTER SUBROUTINE 26/0/0 2462 [10411] 85653 80 864 2 0 0 0 >PRINT T D SET ENTER SUBROUTINE 26/0/1 2158 [10412] 85654 82 856 2 0 0 0 > END OF SUBROUTINE / LEAVE SUBROUTINE 26/0/0 594 [10413] 85655 80 794 2 0 0 0 >PROCESS T D HEADING ENTER SUBROUTINE 6/0/0 6246 [10414] 85656 23 46 0 0 0 'PRINTOUT'INDICATOR SELECT 27/0/1 2213 [10415] 85657 71 856 47 0 0 0 >PRINT ALL B/FWD DATA JUMP IF A != 0 6/1/0 2630 [10416] 85658 0 871 42 1 0 0 ERROR WORD SELECT 27/0/1 2213 [10417] 85659 71 856 47 0 0 0 >HEADING REPORTED;PRINT WHOLE SET JUMP IF A != 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 26 [10419] 85660 0 7 26 1 0 0 STORE FILE ID SELECT 2/0/0 2632 [10420] 85661 5 871 44 0 0 0 TRANSFER 24/0/2 3012 [10421] 85662 52 5 2 0 0 0 EDIT 'FILE UNALTERED' LINE EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [10423] 85663 C 881 2 0 0 0 26/0/0 1105 [10424] 85664 80 817 2 0 0 0 >PRINT ENTER SUBROUTINE 26/0/0 2240 [10425] 85665 80 857 2 0 0 0 >READ,TEST CHAPT,PREND OR E ENTER SUBROUTINE 27/0/0 2237 [10426] 85666 70 856 69 0 0 0 >YES JUMP IF A == 0 26/0/0 1084 [10427] 85667 80 815 2 0 0 0 >WRITE A2 ENTER SUBROUTINE 24/1/0 2233 [10428] 85668 76 856 65 0 0 0 > JUMP unconditional 1/1/3 1 [10429] 85669 83 826 4 0 0 1 SET FIEND SWITCH AT 1 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8156 [10430] 26/0/1 2158 [10431] 85670 82 856 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 857 at location 2240 in chapter 7 [10432] [10432] 85700 PROCR 857 READ A1,TEST CHAPT PREND OR E [10432] 85701 NOTES RADIX B 0/0/0 0 [10432] 85702 81 857 2 0 0 0 START OF SUBROUTINE 26/0/0 984 [10433] 85703 80 810 2 0 0 0 >READ A1 ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 4 [10435] 85704 0 7 4 1 0 0 SELECT 5/1/0 2578 [10436] 85705 2 870 8 1 0 0 SUBTRACT 27/0/0 2251 [10437] 85706 70 857 12 0 0 0 >YES JUMP IF A == 0 4/1/0 2578 [10438] 85707 1 870 8 1 0 0 ADD 5/1/0 2576 [10439] 85708 2 870 6 1 0 0 SUBTRACT 27/0/0 2251 [10440] 85709 70 857 12 0 0 0 >YES JUMP IF A == 0 4/1/0 2576 [10441] 85710 1 870 6 1 0 0 ADD 1/1/2 85 [10442] 85711 12 0 0 0 55 SUBTRACT LITERAL 26/0/1 2240 [10443] 85712 82 857 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Source: DaveJ/Q1000758 Start of procedure 858 at location 2252 in chapter 7 [10444] [10444] 85800 PROCR 858 FORM TD WORD FOR PRINTING S/R [10444] 85801 NOTES RADIX B 0/0/0 0 [10444] 85802 81 858 2 0 0 0 START OF SUBROUTINE 6/1/2 5634 [10445] 85803 00 32 0 1 2 0 TEST ERROR WORD SELECT 5/1/0 2650 [10446] 85804 02 872 16 1 0 0 SUBTRACT 27/0/1 2261 [10447] 85805 71 858 10 0 0 0 >NO JUMP IF A != 0 6/1/0 2650 [10448] 85806 00 872 16 1 0 0 SELECT 2/1/2 5656 [10449] 85807 05 32 22 1 2 0 TRANSFER 1/1/3 2 [10450] 85808 83 787 4 0 0 2 SET -LINE SWITCH AT 2 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8176 [10451] 24/1/0 2329 [10452] 85809 76 858 71 0 0 0 JUMP unconditional 1/1/3 63 [10453] 85810 10 0 0 0 3p SET (B)=63 SELECT LITERAL 18/1/1 4118 [10454] 85811 32 0 0 0 10- SHIFT (AB) BY QUARTETS 15/1/2 5634 [10455] 85812 36 32 0 1 2 0 TEST WORD CONTAINS COLLATE AND ADD 2/1/0 5756 [10456] 85813 05 32 122 1 0 0 W/L TRANSFER 15/1/0 2642 [10457] 85814 36 872 8 1 0 0 COLLATE AND ADD 5/1/0 5756 [10458] 85815 02 32 122 1 0 0 SUBTRACT 27/0/0 2318 [10459] 85816 70 858 62 0 0 0 >YES JUMP IF A == 0 1/1/3 0 [10460] 85817 10 0 0 0 0 SELECT LITERAL 15/1/0 2644 [10461] 85818 36 872 10 1 0 0 TEST WORD CONTAINS COLLATE AND ADD 5/1/0 5756 [10462] 85819 02 32 122 1 0 0 SUBTRACT 27/0/0 2327 [10463] 85820 70 858 69 0 0 0 >YES JUMP IF A == 0 18/1/1 2 [10464] 85821 32 0 0 0 2 SHIFT (AB) BY QUARTETS 1/1/3 0 [10465] 85822 10 0 0 0 0 TEST END OF WORD SELECT LITERAL 27/1/1 2263 [10466] 85823 75 858 12 0 0 0 >NO JUMP IF AB != 0 24/0/1 8177 [10467] 85824 85 786 4 0 0 0 TEST B/E FOUND SWITCH R 26/0/1 2276 [10468] 0/0/1 2329 [10469] s 85825 C 858 71 0 0 0 >NO 0/0/1 2280 [10470] s 85826 C 858 28 0 0 0 >YES 0/0/1 881 [10471] s 85827 C 803 38 0 0 0 GHASTLY MISTAKE 6/1/0 2638 [10472] 85828 872 4 1 0 0 SAFETY SELECT 2/1/1 5670 [10473] 85829 5 32 36 1 1 0 TRANSFER 6/1/2 5634 [10474] 85830 0 32 0 1 2 0 SELECT 5/1/0 4884 [10475] 85831 12 0 0 0 5200000052 SUBTRACT LITERAL 27/0/0 2289 [10476] 85832 70 858 37 0 0 0 >YES JUMP IF A == 0 1/0/1 48 [10477] 85833 35 0 0 0 110000 ERROR REPORT B PREPARE FOR DIGIT COLLATION 6/1/0 4886 [10478] 85834 10 0 0 0 525963 BIL SELECT LITERAL 14/1/0 2630 [10479] 85835 37 871 42 1 0 0 REPLACE SELECTED BITS 26/0/0 2546 [10480] 85836 80 867 2 0 0 0 >ADD ONE TO OTHERS CTR ENTER SUBROUTINE 24/0/1 8155 [10481] 85837 85 785 2 0 0 0 ;TEST BLOCK AND ITEM SWITCH R 26/0/1 2290 [10482] 0/0/1 2348 [10483] s 85838 C 858 87 0 0 0 >NO;LGHS BEING CHECKED 0/0/1 2293 [10484] s 85839 C 858 40 0 0 0 >YES 24/0/3 22 [10485] 85840 96 0 0 2 0 ;FORM UP WORD NO SELECT MODIFIER 6/0/0 4 [10486] 18/0/3 3 [10487] 85841 31 0 0 0 1- ;OF B/E WORD SHIFT (A) BY BITS 18/0/1 4127 [10488] 24/0/3 22 [10489] 85842 92 0 0 3 0 SET MODIFIER AT VARIABLE 2/0/0 6 [10490] 1/1/3 0 [10491] 85843 10 0 0 0 0 SELECT LITERAL 1/0/1 15 [10492] 85844 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 15/0/3 5649 [10493] 85845 36 32 15 0 3 0 COLLATE AND ADD 5/0/0 5800 [10494] 85846 02 32 166 0 0 0 ;WORD CORRECT SUBTRACT 27/0/0 2308 [10495] 85847 70 858 52 0 0 0 >YES JUMP IF A == 0 1/0/1 3 [10496] 85848 35 0 0 0 11 ERROR REPORT L PREPARE FOR DIGIT COLLATION 6/1/0 4888 [10497] 85849 10 0 0 0 525963 SELECT LITERAL 14/1/0 2630 [10498] 85850 37 871 42 1 0 0 REPLACE SELECTED BITS 26/0/0 2546 [10499] 85851 80 867 2 0 0 0 >ADD ONE TO OTHERS CTR ENTER SUBROUTINE 1/1/3 0 [10500] 85852 10 0 0 0 0 SELECT LITERAL 1/0/1 15 [10501] 85853 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 15/0/3 5649 [10502] 85854 36 32 15 0 3 0 COLLATE AND ADD 5/0/0 5799 [10503] 85855 02 32 165 0 0 0 ;LGTHS CORRECT SUBTRACT 27/0/0 2333 [10504] 85856 70 858 74 0 0 0 >OK JUMP IF A == 0 1/0/1 12 [10505] 85857 35 0 0 0 1100 ERROR REPORT 1 PREPARE FOR DIGIT COLLATION 6/1/0 4890 [10506] 85858 10 0 0 0 525963 SELECT LITERAL 14/1/0 2630 [10507] 85859 37 871 42 1 0 0 REPLACE SELECTED BITS Source: DaveJ/Q1000759 26/0/0 2546 [10508] 85860 80 867 2 0 0 0 >ADD ONE TO 'OTHERS'CTR ENTER SUBROUTINE 24/1/0 2333 [10509] 85861 76 858 74 0 0 0 JUMP unconditional 1/1/3 2 [10510] 85862 83 786 4 0 0 2 SET B/E FOUND SWITCH AT 2 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8177 [10511] 6/1/0 2646 [10512] 85863 0 872 12 1 0 0 REPLACE B/E BY B SELECT 14/1/2 5634 [10513] 85864 37 32 0 1 2 0 REPLACE SELECTED BITS 6/1/0 2650 [10514] 85865 0 872 16 1 0 0 SET UP * SELECT 14/1/2 5656 [10515] 85866 37 32 22 1 2 0 REPLACE SELECTED BITS 1/1/3 2 [10516] 85867 83 787 4 0 0 2 SET*LINE SWITCH AT 2 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8176 [10517] 24/1/0 2272 [10518] 85868 76 858 21 0 0 0 > JUMP unconditional 6/1/0 2648 [10519] 85869 0 872 14 1 0 0 REPLACE L/E BY L SELECT 24/1/0 2321 [10520] 85870 76 858 64 0 0 0 > JUMP unconditional 24/0/1 8155 [10521] 85871 85 785 2 0 0 0 CHECK BLOCK AND ITEM LENGTH' SWITCH R 26/0/1 2330 [10522] 0/0/1 2348 [10523] s 85872 C 858 87 0 0 0 >NO 0/0/1 2333 [10524] s 85873 C 858 74 0 0 0 >YES 24/0/3 22 [10525] 85874 96 0 0 2 0 SELECT MODIFIER 6/0/0 4 [10526] 18/0/3 3 [10527] 85875 31 0 0 0 1- SHIFT (A) BY BITS 18/0/1 4127 [10528] 2/0/0 1565 [10529] 85876 5 839 2 0 0 0 WL TRANSFER 1/0/1 15 [10530] 85877 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 24/0/1 1565 [10531] 85878 124 839 2 0 1 0 MODIFY ADDRESS OF NEXT 15/0/0 5649 [10532] 85879 36 32 15 0 0 0 PRINTER WORD NUMBER COLLATE AND ADD 5/0/0 5799 [10533] 85880 2 32 165 0 0 0 POSITION OF NEXT ITEM LENGTH WORD SUBTRACT 27/0/1 2348 [10534] 85881 71 858 87 0 0 0 >NOT ITEM LENGTH POSITION JUMP IF A != 0 6/1/1 5671 [10535] 85882 32 36 2 1 0 ITEM LENGTH SELECT 26/0/0 1166 [10536] 85883 80 822 2 0 0 0 >DEC ENTER SUBROUTINE 0/0/3 4720 [10537] 85884 60 0 0 0 0 SET DECIMAL RADIX 7/0/0 5799 [10538] 85885 4 32 165 0 0 0 EXPECTED POSITION NEXT ITEM LENGTH WORD AUGMENT 0/0/3 0 [10539] 85886 62 0 0 0 0 SET EXCESS CONSTANTS 26/0/0 1984 [10540] 85887 80 851 2 0 0 0 >WRITE O/P IF FULL ENTER SUBROUTINE 25/0/2 2 [10541] 85888 94 859 22 0 2 2 PRINTER LINE N OT FULL STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2382 [10542] s 26/1/3 4892 [10543] 85889 90 0 0 3 0 TEST ZERO ANNEX SET MODIFICATION REGISTER AT LITERAL [10544] 85890 C 0 0 0 14 Limit 6/1/3 5634 [10544] 85891 32 0 1 3 0 SELECT 27/0/1 2357 [10545] 85892 71 859 2 0 0 0 >SOMETHING TO PRINT JUMP IF A != 0 25/0/3 2 [10546] 85893 94 858 91 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2352 [10547] s 24/1/0 2375 [10548] 85894 76 859 16 0 0 0 >NOTHING TO PRINT JUMP unconditional Start of procedure 859 at location 2357 in chapter 7 [10549] [10549] 85900 PROCR 859 PRINT LINE OF TRIAL DATA 26/0/0 2011 [10549] 85902 80 852 2 0 0 0 >EDIT BLOCK NUMBER ENTER SUBROUTINE 26/0/0 1105 [10550] 85903 80 817 2 0 0 0 >PRINT ENTER SUBROUTINE 24/0/1 8176 [10551] 85904 85 787 2 0 0 0 LAST LINE CONTAINED FUNNIES' SWITCH R 26/0/1 2360 [10552] 0/0/1 2375 [10553] s 85905 C 859 16 0 0 0 >NO 0/0/1 2363 [10554] s 85906 C 859 7 0 0 0 >YES 26/0/0 1122 [10555] 85907 80 819 2 0 0 0 >CLEAR FRONT OF ANNEX ENTER SUBROUTINE 24/0/2 2996 [10556] 85908 52 5 6 0 0 0 EDIT WEIRD LINE EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 6 [10558] 85909 C 880 2 0 0 0 26/0/0 1105 [10559] 85910 80 817 2 0 0 0 >PRINT ENTER SUBROUTINE 6/1/0 4894 [10560] 85911 54 32 22 1 0 14 BULK CLEAR 28/1/1 5656 [10561] 24/0/1 8177 [10562] 85912 85 786 2 0 0 0 BEW FOUND IN MT TRIAL DATA' SWITCH R 26/0/1 2371 [10563] 0/0/1 2375 [10564] s 85913 C 859 16 0 0 0 >NO 0/0/1 2380 [10565] s 85914 C 859 21 0 0 0 >YES 0/0/1 881 [10566] s 85915 C 803 38 0 0 0 >GHASTLY MISTAKE 26/1/2 4896 [10567] 85916 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL [10568] 85917 C 0 0 0 14 Limit Source: DaveJ/Q1000760 26/0/0 1565 [10568] 85918 80 839 2 0 0 0 >STEP MT WORD NUMBERS ENTER SUBROUTINE 1/1/3 1 [10569] 85919 83 787 2 0 0 1 CLEAR'FUNNY LINE'IND SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8176 [10570] 26/0/1 2252 [10571] 85920 82 858 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 1/1/3 3 [10572] 85921 83 786 2 0 0 3 SET'BEW FOUND AND PRINTED' SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8177 [10573] 26/0/1 2252 [10574] 85922 82 858 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 860 at location 2383 in chapter 7 [10575] [10575] 86000 PROCR 860 PROCESS UNAMENDED TRIAL DATA WORD EX MT [10575] 86001 NOTES RADIX B 0/0/0 0 [10575] 86002 81 860 2 0 0 0 START OF SUBROUTINE 24/0/1 8178 [10576] 86003 0 32 140 1 8 0 NEXT I/P MT WORD SELECT 6/1/0 5774 [10577] 3/1/1 5670 [10578] 86004 3 32 36 1 1 0 STORE FOR MT O/P COPY 2/1/2 5634 [10579] 86005 5 32 0 1 2 0 STORE FOR PRINTING TRANSFER 24/0/1 8154 [10580] 86006 85 781 2 0 0 0 TEST 1ST WORD OF BLOCK SWITCH R 26/0/1 2389 [10581] 0/0/1 2408 [10582] s 86007 C 860 22 0 0 0 >NO 0/0/1 2392 [10583] s 86008 C 860 9 0 0 0 >YES 24/0/1 8155 [10584] 86009 85 785 2 0 0 0 TEST BLOCK AND ITEM LGTHS TO BE CHECKED SWITCH R 26/0/1 2393 [10585] 0/0/1 2401 [10586] s 86010 C 860 17 0 0 0 >NO 0/0/1 2396 [10587] s 86011 C 860 12 0 0 0 >YES 1/1/3 6 [10588] 86012 10 0 0 0 6 SET ITEM LGTH POSN=6 SELECT LITERAL 3/0/0 5799 [10589] 86013 3 32 165 0 0 0 COPY 4/1/2 5635 [10590] 86014 1 32 0 2 2 0 FORM AND STORE POSN OF B/E WORD ADD 26/0/0 1166 [10591] 86015 80 822 2 0 0 0 >CONVERT TO DEC ENTER SUBROUTINE 2/0/0 5800 [10592] 86016 5 32 166 0 0 0 TRANSFER 1/1/3 1 [10593] 86017 83 781 2 0 0 1 SET SWITCH AT 1 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8154 [10594] 6/1/2 5634 [10595] 86018 0 32 0 1 2 0 (DON'T PRINT FIRST WORD IN'WORD 2'POSITION SELECT 2/1/2 5636 [10596] 86019 5 32 2 1 2 0 NEXT POSN TRANSFER 2/1/2 5634 [10597] 86020 5 32 0 1 2 0 TRANSFER 25/0/2 2 [10598] 86021 94 860 22 0 2 2 STEP(MR2) STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2408 [10599] s 26/0/0 2252 [10600] 86022 80 858 2 0 0 0 >PROCESS WORD ENTER SUBROUTINE 26/0/0 2411 [10601] 86023 80 861 2 0 0 0 >ADDRESS NEXT I/P MT WORD ENTER SUBROUTINE 26/0/1 2383 [10602] 86024 82 860 2 0 0 0 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 861 at location 2411 in chapter 7 [10603] [10603] 86100 PROCR 861 ADDRESS NEXT I/P TRIAL DATA WORD EX MT [10603] 86101 NOTES RADIX B 0/0/0 0 [10603] 86102 81 861 2 0 0 0 START OF SUBROUTINE 24/0/1 8178 [10604] 86103 32 140 1 8 0 LAST MT WORD SELECT 6/1/0 5774 [10605] 5/1/0 2638 [10606] 86104 2 872 4 1 0 0 BEW SUBTRACT 27/0/1 2420 [10607] 86105 71 861 10 0 0 0 >NO JUMP IF A != 0 0/0/3 4721 [10608] 86106 60 0 0 0 0 SET DECIMAL RADIX 1/1/3 1 [10609] 86107 10 0 0 0 1 SELECT LITERAL 7/0/0 5772 [10610] 86108 4 32 138 0 0 0 AUGMENT 0/0/3 0 [10611] 86109 62 0 0 0 0 STEP I/P BLOCK CTR SET EXCESS CONSTANTS 23/0/0 2 [10612] 86110 94 861 27 0 8 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8178 [10613] 24/1/0 2442 [10614] s 26/0/0 984 [10615] 86111 80 810 2 0 0 0 >READ A1 ENTER SUBROUTINE 24/0/3 22 [10616] 86112 95 0 0 1 0 PRESERVE SELECT MODIFICATION REGISTER 6/1/0 2 [10617] 2/1/0 2758 [10618] 86113 5 875 2 1 0 0 TRANSFER 26/1/1 4898 [10619] 86114 90 0 0 1 0 COPY NEXT I/P BLOCK SET MODIFICATION REGISTER AT LITERAL [10620] 86115 C 0 0 0 48 Limit 26/1/3 4900 [10620] 86116 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [10621] 86117 C 0 0 0 24 Limit 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/1 5 [10622] 86118 0 7 4 2 1 0 SELECT 18/0/1 5 [10623] 86119 30 0 0 0 5 SHIFT (A) BY QUARTETS 24/1/2 17 Extra code needed to address transit area no 2, section 7 4/1/1 7 [10625] 86120 1 7 6 2 1 0 ADD 2/1/3 5774 [10626] 86121 5 32 140 1 3 0 TRANSFER 25/0/1 4 [10627] 86122 94 0 0 1 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2437 [10628] 25/0/3 2 [10629] 86123 94 861 18 0 3 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2429 [10630] s 26/1/1 2758 [10631] 86124 91 875 2 0 1 0 RESTORE MR1 SET MODIFICATION REGISTER AT VARIABLE 6/1/0 4902 [10632] 86125 90 0 0 8 0 RESET (MR8) SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [10633] 86126 C 0 0 0 24 Simulated modifier Source: DaveJ/Q1000761 26/0/1 2411 [10634] 86127 82 861 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 862 at location 2443 in chapter 7 [10635] [10635] 86200 PROCR 862 READ TO END OF BLOCK S/R [10635] 86201 NOTES RADIX B 0/0/0 0 [10635] 86202 81 862 2 0 0 0 START OF SUBROUTINE 24/0/1 8178 [10636] 86203 00 32 140 1 8 0 ;TEST B/E WORD SELECT 6/1/0 5774 [10637] 5/1/0 2638 [10638] 86204 02 872 4 1 0 0 SUBTRACT 27/0/0 2450 [10639] 86205 70 862 8 0 0 0 >YES LEAVE S/R JUMP IF A == 0 26/0/0 2411 [10640] 86206 80 861 2 0 0 0 >STEP MR8 S/R ENTER SUBROUTINE 24/1/0 2444 [10641] 86207 76 862 3 0 0 0 > JUMP unconditional 26/0/0 2411 [10642] 86208 80 861 2 0 0 0 >ADDRESS NEXT I/P MT WORD S/R ENTER SUBROUTINE 26/0/1 2443 [10643] 86209 82 862 2 0 0 0 > END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 863 at location 2452 in chapter 7 [10644] [10644] 86300 PROCR 863 PROCESS TO END OF TD BLOCK S/R [10644] 86301 NOTES RADIX B 0/0/0 0 [10644] 86302 81 863 2 0 0 0 START OF SUBROUTINE 24/0/1 8177 [10645] 86303 85 786 4 0 0 0 B/E SWITCH SWITCH R 26/0/1 2454 [10646] 0/0/1 2458 [10647] s 86304 C 863 7 0 0 0 >NO 0/0/1 2460 [10648] s 86305 C 863 9 0 0 0 >YES 0/0/1 2461 [10649] s 86306 C 863 10 0 0 0 >YES 26/0/0 2383 [10650] 86307 80 860 2 0 0 0 >PROCESS WORD ENTER SUBROUTINE 24/1/0 2453 [10651] 86308 76 863 3 0 0 0 > JUMP unconditional 26/0/0 2059 [10652] 86309 80 853 2 0 0 0 >END OF TRIAL DATA BLOCK S/R ENTER SUBROUTINE 26/0/1 2452 [10653] 86310 82 863 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 864 at location 2462 in chapter 7 [10654] [10654] 86400 PROCR 864 WRITE AND PRINT TO FIEND S/R [10654] 86401 NOTES RADIX B 0/0/0 0 [10654] 86402 81 864 2 0 0 0 START OF SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 4 [10656] 86403 00 7 4 1 0 0 ;TEST PREND OR SELECT 5/1/0 2578 [10657] 86404 02 870 8 1 0 0 ;E BLOCK IN ANNEXE SUBTRACT 27/0/0 2485 [10658] 86405 70 864 22 0 0 0 >YES JUMP IF A == 0 4/1/0 2578 [10659] 86406 01 870 8 1 0 0 ADD 1/1/2 85 [10660] 86407 12 0 0 0 55 SUBTRACT LITERAL 27/0/0 2485 [10661] 86408 70 864 22 0 0 0 >YES JUMP IF A == 0 1/1/1 85 [10662] 86409 11 0 0 0 55 ;TEST CHAPT ADD LITERAL 5/1/0 2576 [10663] 86410 02 870 6 1 0 0 SUBTRACT 27/0/0 2485 [10664] 86411 70 864 22 0 0 0 >YES JUMP IF A == 0 6/0/0 8178 [10665] 4/0/0 8178 [10666] 86413 98 0 0 8 0 ADD MODIFICATION REGISTER TO A 24/0/3 22 [10667] 86414 92 0 0 2 0 SET MODIFIER AT VARIABLE 2/0/0 4 [10668] 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/2 4 [10670] 86415 00 7 4 1 2 0 SELECT 5/1/0 2574 [10671] 86416 02 870 4 1 0 0 SUBTRACT 27/0/0 2484 [10672] 86417 70 864 21 0 0 0 >YES JUMP IF A == 0 26/0/0 1544 [10673] 86418 80 838 2 0 0 0 >RESET WORD NOS,MR2 AND SWITCHES ENTER SUBROUTINE 26/0/0 2452 [10674] 86419 80 863 2 0 0 0 >PROCESS TO END OF T.D.BLOCK ENTER SUBROUTINE 24/1/0 2473 [10675] 86420 76 864 12 0 0 0 JUMP unconditional 26/0/0 984 [10676] 86421 80 810 2 0 0 0 READ A1 ENTER SUBROUTINE 24/0/1 8156 [10677] 86422 85 826 4 0 0 0 FIEND SWITCH SWITCH R 26/0/1 2486 [10678] 0/0/1 2533 [10679] s 86423 C 864 53 0 0 0 0/0/1 2489 [10680] s 86424 C 864 25 0 0 0 6/1/0 4904 [10681] 86425 90 0 0 12 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8190 [10682] 86426 C 0 0 0 24 Simulated modifier 26/1/3 4906 [10683] 86427 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [10684] 86428 C 0 0 0 48 Limit 24/0/1 8190 [10684] 86429 00 32 37 0 12 0 SELECT 6/0/0 5671 [10685] 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/3 5 [10687] 86430 05 8 4 2 3 0 TRANSFER 24/0/1 8190 [10688] 86431 00 32 36 0 12 0 SELECT 6/0/0 5670 [10689] 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/3 7 [10691] 86432 05 8 6 2 3 0 TRANSFER Source: DaveJ/Q1000762 25/0/3 4 [10692] 86433 94 0 0 3 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 2502 [10693] 23/0/0 2 [10694] 86434 94 864 29 0 12 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8190 [10695] 24/1/0 2492 [10696] s 24/0/3 22 [10697] 86435 96 0 0 1 0 SELECT MODIFIER 6/0/0 2 [10698] 24/0/3 22 [10699] 86436 98 0 0 1 0 ADD MODIFICATION REGISTER TO A 4/0/0 2 [10700] 24/0/3 22 [10701] 86437 92 0 0 1 0 SET MODIFIER AT VARIABLE 2/0/0 2 [10702] 6/1/0 2574 [10703] 86438 00 870 4 1 0 0 FIEND SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/1 4 [10705] 86439 05 8 4 1 1 0 TRANSFER 26/0/0 1102 [10706] 86440 80 816 2 0 0 0 WRITE ENTER SUBROUTINE 24/0/2 2930 [10707] 86441 52 5 2 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 2 [10709] 86442 C 879 2 0 0 0 EDIT BLOCK NUMBER 6/1/0 4908 [10710] 86443 10 0 0 0 5659655972 FINIS' SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 8 [10712] 86444 5 5 8 1 0 0 TRANSFER 6/0/0 6319 [10713] 86445 27 9 0 0 0 SELECT 27/0/0 2527 [10714] 86446 70 864 49 0 0 0 >YES JUMP IF A == 0 6/1/0 4910 [10715] 86447 54 5 10 0 0 40 CLEAR REST OF LINE BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/0/0 10 [10717] 24/1/0 2530 [10718] 86448 76 864 51 0 0 0 >PRINT JUMP unconditional 6/1/0 2638 [10719] 86449 0 872 4 1 0 0 BEW SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 10 [10721] 86450 5 5 10 1 0 0 TRANSFER 26/0/0 1105 [10722] 86451 80 817 2 0 0 0 >PRINT ENTER SUBROUTINE 1/1/3 1 [10723] 86452 83 826 4 0 0 1 RESET FIEND SWITCH SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8156 [10724] 26/0/1 2462 [10725] 86453 82 864 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 865 at location 2534 in chapter 7 [10726] [10726] 86500 PROCR 865 ADD ONE TO P/T OMITTED COUNTER 0/0/0 0 [10726] 86502 81 865 2 0 0 0 START OF SUBROUTINE 1/1/3 1 [10727] 86503 10 0 0 0 1 SELECT LITERAL 0/0/3 4722 [10728] 86504 60 0 0 0 0 SET DECIMAL RADIX 7/0/0 2560 [10729] 86505 04 869 5 0 0 0 AUGMENT 0/0/3 0 [10730] 86506 62 0 0 0 0 SET EXCESS CONSTANTS 26/0/1 2534 [10731] 86507 82 865 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 866 at location 2540 in chapter 7 [10732] [10732] 86600 PROCR 866 ADD ONE TO DISASTROUS COUNTER 0/0/0 0 [10732] 86602 81 866 2 0 0 0 START OF SUBROUTINE 1/1/3 1 [10733] 86603 10 0 0 0 1 SELECT LITERAL 0/0/3 4723 [10734] 86604 60 0 0 0 0 SET DECIMAL RADIX 7/0/0 2561 [10735] 86605 04 869 6 0 0 0 AUGMENT 0/0/3 0 [10736] 86606 62 0 0 0 0 SET EXCESS CONSTANTS 26/0/1 2540 [10737] 86607 82 866 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 867 at location 2546 in chapter 7 [10738] [10738] 86700 PROCR 867 ADD ONE TO OTHERS COUNTER 0/0/0 0 [10738] 86702 81 867 2 0 0 0 START OF SUBROUTINE 1/1/3 1 [10739] 86703 10 0 0 0 1 SELECT LITERAL 0/0/3 4724 [10740] 86704 60 0 0 0 0 SET DECIMAL RADIX 7/0/0 2562 [10741] 86705 04 869 7 0 0 0 AUGMENT 0/0/3 0 [10742] 86706 62 0 0 0 0 SET EXCESS CONSTANTS 26/0/1 2546 [10743] 86707 82 867 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 868 at location 2552 in chapter 7 [10744] [10744] 86800 CONST 868 0 15/1/3 8191 [10744] 86802 (D)ppppp; +FFFFF 3/1/3 8176 [10745] 86803 3ppp0; BITS 5-18 +3FFF0 8/0/0 0 [10746] 86804 80000; BIT 20 +80000 1/0/1 1005 [10747] 86805 123.:; PRINTING +123ED 0/0/0 1023 [10748] 86806 3pp; BITS 1-10 +003FF Start of procedure 869 at location 2557 in chapter 7 [10749] [10749] 86900 CONST 869 0 0/0/0 0 [10749] 86902 (D)0; GENERAL W/L +00000 0/0/0 0 [10750] 86903 0; NO OF CHAPS INITIALLY +00000 0/0/0 0 [10751] 86904 0; W/L FOR PRINTING +00000 0/0/0 0 [10752] 86905 0; P/T OMITTED +00000 0/0/0 0 [10753] 86906 0; DISASTROUS +00000 0/0/0 0 [10754] 86907 0; OTHERS +00000 Source: DaveJ/Q1000763 0/0/0 0 [10755] 86908 ; ACTUAL SET NUMBER IN Q1 +00000 0/0/0 0 [10756] 86909 ; +00000 0/0/0 0 [10757] 86910 ; FILE +00000 0/0/0 0 [10758] 86911 ; +00000 0/0/0 0 [10759] 86912 ; SET NUMBER +00000 0/0/0 0 [10760] 86913 ; +00000 0/0/0 0 [10761] 86914 ; WL FOR R-ALIGN SR +00000 0/0/0 0 [10762] 86915 ; +00000 31/1/3 8191 [10763] Start of procedure 870 at location 2572 in chapter 7 [10764] [10764] 87000 CONST 870 1 ALPHA CONSTANTS 1/0/3 1108 [10764] 87002 (A)TRAMD; 16454 +73695 7/0/1 5781 [10765] 5/0/3 1364 [10766] 87004 FIEND; 56554 +56595 5/0/3 1429 [10767] 1/0/3 1907 [10768] 87006 CHAPT; 16773 +53585 5/0/1 5509 [10769] 5/0/3 1364 [10770] 87008 PREND; 56554 +67695 6/0/3 5781 [10771] 3/0/2 5490 [10772] 87010 (A)FILES; 35572 +56596 5/0/3 1430 [10773] 4/0/3 1906 [10774] 87012 (A)DUMPS; 46772 +54746 5/0/2 1862 [10775] 4/0/3 1792 [10776] 87014 (A)DUMP ; 46700 +54746 5/0/2 1862 [10777] 6/0/2 5888 [10778] 87016 PROG ; 65700 +67696 6/0/3 5782 [10779] 4/0/0 0 [10780] 87018 IND ; 40000 +59655 5/1/0 5717 [10781] Start of procedure 871 at location 2590 in chapter 7 [10782] [10782] 87100 CONST 871 1 PRINTING CONSTANTS 9/0/2 4451 [10782] 87102 (A)ERIAL; 95163 +55695 5/0/2 5781 [10783] 8/0/3 1877 [10784] 87104 TYPE; 86755 +00737 0/0/0 1847 [10785] 1/0/3 1906 [10786] 87106 CHAPS; 16772 +53585 5/0/1 5509 [10787] 3/0/3 1394 [10788] 87108 SECNS; 36572 +72555 7/0/1 1365 [10789] 9/0/3 1395 [10790] 87110 POINT; 96573 +67665 6/0/3 5733 [10791] 3/0/3 1641 [10792] 87112 SETOR; 36669 +72557 7/0/1 1367 [10793] 6/0/2 4962 [10794] 87114 BLOCK; 65362 +52636 5/0/1 1590 [10795] 7/0/3 4952 [10796] 87116 LGTH; 77358 +00635 0/0/0 1589 [10797] 5/0/3 6779 [10798] 87118 (A)RUN(D)7t7e; 57A7B +69746 6/1/0 5958 [10799] 1/0/3 883 [10800] 87120 UNALT; 16373 +74655 7/0/2 1621 [10801] 5/0/2 5120 [10802] 87122 ERED ; 55400 +55695 5/0/2 5781 [10803] 4/0/3 1109 [10804] 87124 RAMME; 46455 +69516 6/1/0 5398 [10805] 9/0/2 4451 [10806] 87126 TRIAL; 95163 +73695 7/0/1 5781 [10807] 3/0/2 4352 [10808] 87128 DATA ; 35100 +54517 5/0/2 1303 [10809] 1/0/3 1364 [10810] 87130 *NAND; 16554 +5B655 5/1/1 5717 [10811] 4/0/2 4722 [10812] 87132 MBS; 45272 +00006 0/0/0 6 [10813] 4/0/2 5481 [10814] 87134 ORDER; 45569 +66695 6/0/3 1685 [10815] 6/0/2 6519 [10816] 87136 = FIX; 65977 +5A005 5/1/1 5 [10817] 5/0/2 4457 [10818] 87138 = VAR; 55169 +5A007 5/1/1 7 [10819] 0/0/0 0 [10820] 87140 ; PRINTER W/L 00000 +00000 0/0/0 0 [10821] 0/0/0 0 [10822] 87142 ; ERROR W/L 00000 +00000 0/0/0 0 [10823] 0/0/0 0 [10824] 87144 ; ERROR W/L 00000 +00000 0/0/0 0 [10825] 1/0/3 4864 [10826] 87146 (D)5:677173 ; ?P/T 17300 +5D677 5/1/2 5751 [10827] Start of procedure 872 at location 2636 in chapter 7 [10828] [10828] 87200 CONST 872 1 DECIMAL CONSTANTS 0/0/0 0 [10828] 87202 (D)0; 00000 +00000 0/0/0 0 [10829] 0/0/0 126 [10830] 87204 7.0000007.; B/E WORD 0007E +7E000 7/1/3 0 [10831] 0/0/0 2048 [10832] 87206 0000000800; HEAD OF FORM FUNCTION WD 00800 +00000 0/0/0 0 [10833] 14/0/3 7806 [10834] 87208 7.7.7.7.7.; BLOCK ENDS E7E7E +7E7E7 7/1/3 2023 [10835] 14/0/2 7774 [10836] 87210 5.5.5.5.5.; LINE ENDS E5E5E +5E5E5 5/1/3 1509 [10837] 2/0/2 4690 [10838] 87212 5252525252; B'S 25252 +52525 5/0/1 1317 [10839] 3/0/3 867 [10840] 87214 6363636363; L'S 36363 +63636 6/0/1 5686 [10841] 11/0/2 7003 [10842] 87216 5e5e5e5e5e; ASTERISKS B5B5B +5B5B5 5/1/1 5557 [10843] 15/0/2 8031 [10844] 87218 5p5p5p5p5p; SQUARES F5F5F +5F5F5 5/1/3 5621 [10845] 13/0/2 7517 [10846] 87220 5:5:5:5:5:; QUESTION MARKS D5D5D +5D5D5 5/1/2 5589 [10847] Start of procedure 873 at location 2656 in chapter 7 [10848] [10848] 87300 TABLE 873 4 VARIOUS UNPACK TABLES 0/0/1 5594 [10848] 87302 30 0 0 0 2 0 0 0 0 0 0 0 0 TRAMD 3/0/0 0 [10849] Source: TonyJ/Q1000764 0/0/1 5596 [10850] 87304 30 2 0 0 0 1 0 0 0 0 0 0 1 SUITE JOB SERIAL 24/0/0 0 [10851] 0/0/1 5594 [10852] 87306 30 0 0 0 2 0 0 0 0 0 0 0 0 FILES 3/0/0 0 [10853] 0/0/1 5596 [10854] 87308 30 2 0 0 2 0 0 0 0 0 0 0 0 ROUTE IDENTIFIER 3/0/0 0 [10855] 0/0/1 5604 [10856] 87310 30 10 0 0 2 0 0 0 0 0 0 0 0 FILE ID 3/0/0 0 [10857] 0/0/1 5598 [10858] 87312 30 4 0 0 0 1 0 0 0 0 0 0 1 RUN NO , BLOCK SIZE, SECN, SET,IND 24/0/0 0 [10859] 0/0/1 2557 [10860] 87314 869 2 0 0 0 0 0 0 0 0 0 0 0 LINE SERIAL 0/0/0 0 [10861] 0/0/1 5594 [10862] 87316 30 0 0 0 0 1 0 0 0 0 0 0 1 P M POINT 24/0/0 0 [10863] 0/0/1 1462 [10864] 87318 833 2 0 0 2 0 0 0 0 0 0 0 0 FILEA' 3/0/0 0 [10865] 0/0/1 1462 [10866] 87320 833 2 0 0 2 0 0 0 0 0 0 0 0 FILE 3/0/0 0 [10867] 0/0/1 1464 [10868] 87322 833 4 0 0 1 0 0 0 0 0 0 0 0 SET 2/0/0 0 [10869] 0/0/1 1466 [10870] 87324 833 6 0 0 2 0 0 0 0 0 0 0 0 BLOCK (+LETTER ?) 3/0/0 0 [10871] 0/0/1 1468 [10872] 87326 833 8 0 0 2 0 0 0 0 0 0 0 0 FIRST WORD/LAST BLOCK (+LETTER ?) 3/0/0 0 [10873] 0/0/1 1470 [10874] 87328 833 10 0 0 1 0 0 0 0 0 0 0 1 LAST WORD 18/0/0 0 [10875] Start of procedure 874 at location 2684 in chapter 7 [10876] [10876] 87400 TABLE 874 3 UNPACK TABLES FOR CARDS 0/0/1 5594 [10876] 87402 30 0 0 0 2 0 5 0 0 0 0 0 0 TRAMD 3/0/0 5 [10877] 0/0/1 5596 [10878] 87404 30 2 0 0 0 0 3 0 0 0 0 0 0 SUITE 0/0/0 3 [10879] 0/0/1 5597 [10880] 87406 30 3 0 0 0 0 2 0 0 0 0 0 0 JOB 0/0/0 2 [10881] 0/0/1 5598 [10882] 87408 30 4 0 0 0 0 5 0 0 0 0 0 1 SERIAL 16/0/0 5 [10883] 0/0/1 5594 [10884] 87410 30 0 0 0 0 0 6 0 0 0 0 0 0 /////LINE SERIAL 0/0/0 6 [10885] 0/0/1 5594 [10886] 87412 30 0 0 0 0 0 5 0 0 0 0 0 0 I/O SERIAL 0/0/0 5 [10887] 0/0/1 5595 [10888] 87414 30 1 0 0 0 0 1 0 0 0 0 0 0 TYPE 0/0/0 1 [10889] 0/0/1 5596 [10890] 87416 30 2 0 0 0 0 3 0 0 0 0 0 0 N1 0/0/0 3 [10891] 0/0/1 5597 [10892] 87418 30 3 0 0 0 0 3 0 0 0 0 0 0 N2 0/0/0 3 [10893] 0/0/1 5598 [10894] 87420 30 4 0 0 0 0 3 0 0 0 0 0 0 N3 0/0/0 3 [10895] 0/0/1 5599 [10896] 87422 30 5 0 0 0 0 4 0 0 0 0 0 0 DETAILS 0/0/0 4 [10897] 0/0/1 5600 [10898] 87424 30 6 0 0 0 0 4 0 0 0 0 0 0 0/0/0 4 [10899] 0/0/1 5601 [10900] 87426 30 7 0 0 0 0 4 0 0 0 0 0 0 0/0/0 4 [10901] 0/0/1 5602 [10902] 87428 30 8 0 0 0 0 4 0 0 0 0 0 0 0/0/0 4 [10903] 0/0/1 5603 [10904] 87430 30 9 0 0 0 0 4 0 0 0 0 0 0 0/0/0 4 [10905] 0/0/1 5604 [10906] 87432 30 10 0 0 0 0 4 0 0 0 0 0 0 0/0/0 4 [10907] 0/0/1 5605 [10908] 87434 30 11 0 0 0 0 4 0 0 0 0 0 0 0/0/0 4 [10909] 0/0/1 5606 [10910] 87436 30 12 0 0 0 0 4 0 0 0 0 0 0 0/0/0 4 [10911] 0/0/1 5607 [10912] 87438 30 13 0 0 0 0 4 0 0 0 0 0 0 0/0/0 4 [10913] 0/0/1 5608 [10914] 87440 30 14 0 0 0 0 4 0 0 0 0 0 0 0/0/0 4 [10915] 0/0/1 5609 [10916] 87442 30 15 0 0 0 0 4 0 0 0 0 0 0 0/0/0 4 [10917] 0/0/1 5610 [10918] 87444 30 16 0 0 0 0 4 0 0 0 0 0 0 0/0/0 4 [10919] 0/0/1 5611 [10920] 87446 30 17 0 0 0 0 4 0 0 0 0 0 1 16/0/0 4 [10921] 0/0/1 5594 [10922] 87448 30 0 0 0 2 0 5 0 0 0 0 0 0 FILES 3/0/0 5 [10923] 0/0/1 5596 [10924] 87450 30 2 0 0 2 0 2 0 0 0 0 0 0 RTE IDENT 3/0/0 2 [10925] 0/0/1 5604 [10926] 87452 30 10 0 0 2 0 2 0 0 0 0 0 0 FILE ID 3/0/0 2 [10927] 0/0/1 5598 [10928] 87454 30 4 0 0 0 0 4 0 0 0 0 0 0 RUN NO 0/0/0 4 [10929] 0/0/1 5599 [10930] 87456 30 5 0 0 0 0 4 0 0 0 0 0 0 BLOCK LGTH 0/0/0 4 [10931] 0/0/1 5600 [10932] 87458 30 6 0 0 0 0 2 0 0 0 0 0 0 SECN NO 0/0/0 2 [10933] 0/0/1 5601 [10934] 87460 30 7 0 0 0 0 1 0 0 0 0 0 0 SET NO 0/0/0 1 [10935] 0/0/1 5602 [10936] 87462 30 8 0 0 0 0 1 0 0 0 0 0 1 IND 16/0/0 1 [10937] 0/0/1 1462 [10938] 87464 833 2 0 0 2 0 5 0 0 0 0 0 0 FILEA' 3/0/0 5 [10939] 0/0/1 1462 [10940] 87466 833 2 0 0 2 0 2 0 0 0 0 0 0 FILE ID 3/0/0 2 [10941] 0/0/1 1464 [10942] 87468 833 4 0 0 1 0 1 0 0 0 0 0 0 SET 2/0/0 1 [10943] 0/0/1 1466 [10944] 87470 833 6 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [10945] 0/0/1 1468 [10946] 87472 833 8 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [10947] 0/0/1 1470 [10948] 87474 833 10 0 0 1 0 5 0 0 0 0 0 1 18/0/0 5 [10949] Start of procedure 875 at location 2758 in chapter 7 [10950] [10950] 87500 TABLE 875 1 PRINTER HEADING 0/0/1 2586 [10950] 87502 870 16 0 0 2 0 4 0 5 0 0 0 0 PROG' 3/0/0 84 [10951] 0/0/1 2612 [10952] 87504 871 24 0 0 2 0 5 0 0 0 0 0 0 RAMME 3/0/0 5 [10953] 0/0/1 5078 [10954] 87506 16 2 0 0 0 0 5 0 1 0 0 0 0 PROG ID 0/0/0 21 [10955] 0/0/1 2580 [10956] 87508 870 10 0 0 2 0 1 4 2 0 0 0 0 2 SP S 3/0/0 1057 [10957] Source: TonyJ/Q1000765 0/0/1 2590 [10958] 87510 871 2 0 0 2 0 5 0 0 0 0 0 0 SERIAL 3/0/0 5 [10959] 0/0/1 5079 [10960] 87512 16 3 0 0 0 0 5 0 1 4 0 0 0 PROG SERIAL 0/0/2 21 [10961] 0/0/1 2614 [10962] 87514 871 26 0 0 2 0 5 0 2 0 0 0 0 2 SP TRIAL 3/0/0 37 [10963] 0/0/1 2616 [10964] 87516 871 28 0 0 2 0 4 0 1 0 0 0 0 SP DATA 3/0/0 20 [10965] 0/0/1 2618 [10966] 87518 871 30 0 0 2 0 3 2 1 0 0 0 0 SP AND 3/0/0 531 [10967] 0/0/1 2582 [10968] 87520 870 12 0 0 2 0 5 0 1 0 0 0 0 SP DUMPS 3/0/0 21 [10969] 0/0/1 2598 [10970] 87522 871 10 0 0 2 0 5 0 1 0 0 0 0 SP POINT 3/0/0 21 [10971] 0/0/1 2580 [10972] 87524 870 10 0 0 2 0 1 4 0 0 0 0 0 S 3/0/0 1025 [10973] 0/0/1 2638 [10974] 87526 872 4 0 0 2 0 1 1 1 0 0 0 1 19/0/0 273 [10975] Start of procedure 876 at location 2784 in chapter 7 [10976] [10976] 87600 TABLE 876 1 PM POINT HEADING LINE 0/0/1 2596 [10976] 87602 871 8 0 0 2 0 1 0 13 0 0 0 0 13 SP S 3/0/0 209 [10977] 0/0/1 2590 [10978] 87604 871 2 0 0 2 0 5 0 0 0 0 0 0 ERIAL 3/0/0 5 [10979] 0/0/1 2592 [10980] 87606 871 4 0 0 2 0 4 1 2 0 0 0 0 2SP TYPE 3/0/0 292 [10981] 0/0/1 2596 [10982] 87608 871 8 0 0 2 0 1 3 2 0 0 0 0 2SPN 3/0/0 801 [10983] 0/0/1 2555 [10984] 87610 868 5 0 0 0 0 1 0 0 0 0 0 0 1 0/0/0 1 [10985] 0/0/1 2596 [10986] 87612 871 8 0 0 2 0 1 3 3 0 0 0 0 3 SP N 3/0/0 817 [10987] 0/0/1 2555 [10988] 87614 868 5 0 0 0 0 1 1 0 0 0 0 0 2 0/0/0 257 [10989] 0/0/1 2596 [10990] 87616 871 8 0 0 2 0 1 3 3 0 0 0 0 3 SP N 3/0/0 817 [10991] 0/0/1 2555 [10992] 87618 868 5 0 0 0 0 1 2 0 0 0 0 0 3 0/0/0 513 [10993] 0/0/1 2594 [10994] 87620 871 6 0 0 2 0 5 0 5 0 0 0 0 5 SP CHAPS 3/0/0 85 [10995] 0/0/1 2596 [10996] 87622 871 8 0 0 2 0 5 0 1 0 0 0 0 SP SECNS 3/0/0 21 [10997] 0/0/1 2600 [10998] 87624 871 12 0 0 2 0 2 3 1 0 0 0 0 SP OR 3/0/0 786 [10999] 0/0/1 2598 [11000] 87626 871 10 0 0 2 0 5 0 1 0 0 0 0 SP POINT 3/0/0 21 [11001] 0/0/1 2596 [11002] 87628 871 8 0 0 2 0 1 0 0 0 0 0 0 S 3/0/0 1 [11003] 0/0/1 2638 [11004] 87630 872 4 0 0 2 0 1 1 4 0 0 0 1 B/E 19/0/0 321 [11005] Start of procedure 877 at location 2814 in chapter 7 [11006] [11006] 87700 TABLE 877 1 PRINT PM POINT LINE 0/0/1 2582 [11006] 87702 870 12 0 0 2 0 4 0 5 0 0 0 0 DUMP 3/0/0 84 [11007] 0/0/1 2559 [11008] 87704 869 4 0 0 0 0 1 4 0 0 0 0 0 DUMP NO 0/0/0 1025 [11009] 0/0/1 5594 [11010] 87706 30 0 0 0 0 0 5 0 3 0 0 0 0 3 SP R/C SERIAL 0/0/0 53 [11011] 0/0/1 5595 [11012] 87708 30 1 0 0 0 0 2 3 4 1 2 0 0 4SP TYPE 4/0/0 4930 [11013] 0/0/1 5596 [11014] 87710 30 2 0 0 0 0 3 2 1 2 2 0 0 1SP TYPE***** 4/0/1 531 [11015] 0/0/1 5597 [11016] 87712 30 3 0 0 0 0 3 2 1 2 2 0 0 1SP N2 4/0/1 531 [11017] 0/0/1 5598 [11018] 87714 30 4 0 0 0 0 3 2 1 2 2 0 1 1SP N3 20/0/1 531 [11019] 0/0/1 5599 [11020] 87716 30 5 0 0 0 0 3 2 6 3 2 0 0 IST CHAP OR SECN 4/0/1 4707 [11021] 0/0/1 5600 [11022] 87718 30 6 0 0 0 0 3 2 6 3 2 0 0 2ND CHAP OR SECN 4/0/1 4707 [11023] 0/0/1 5601 [11024] 87720 30 7 0 0 0 0 3 2 6 3 2 0 0 3RD CHAP OR SECN 4/0/1 4707 [11025] 0/0/1 5602 [11026] 87722 30 8 0 0 0 0 3 2 6 3 2 0 0 4TH CHAP OR SECN 4/0/1 4707 [11027] 0/0/1 2636 [11028] 87724 872 2 0 0 1 0 10 0 0 10 0 0 0 10 SP 2/1/1 10 [11029] 0/0/1 2628 [11030] 87726 871 40 0 0 2 0 5 0 15 0 0 0 0 14 SP ERROR REPORT 3/0/0 245 [11031] 0/0/1 2630 [11032] 87728 871 42 0 0 2 0 5 0 0 0 0 0 0 15 SP ERROR REPORT 3/0/0 5 [11033] 0/0/1 2632 [11034] 87730 871 44 0 0 2 0 5 0 0 0 0 0 0 MORE 3/0/0 5 [11035] 0/0/1 2638 [11036] 87732 872 4 0 0 2 0 5 0 0 0 0 0 1 19/0/0 5 [11037] 0/0/1 5599 [11038] 87734 30 5 0 0 0 0 3 2 6 2 0 0 0 6SP FIRST REF 0/0/1 611 [11039] 0/0/1 2555 [11040] 87736 868 5 0 0 0 0 1 4 0 0 0 0 0 : 0/0/0 1025 [11041] 0/0/1 5600 [11042] 87738 30 6 0 0 0 0 4 1 0 3 2 0 0 1ST ITEM 4/0/1 4356 [11043] 0/0/1 5601 [11044] 87740 30 7 0 0 0 0 3 2 1 2 0 0 0 1SP 2ND REF 0/0/1 531 [11045] 0/0/1 2555 [11046] 87742 868 5 0 0 0 0 1 4 0 0 0 0 0 : 0/0/0 1025 [11047] 0/0/1 5602 [11048] 87744 30 8 0 0 0 0 4 1 0 3 2 0 0 2ND ITEM 4/0/1 4356 [11049] 0/0/1 5603 [11050] 87746 30 9 0 0 0 0 3 2 1 2 0 0 0 1SP 3RD REF 0/0/1 531 [11051] 0/0/1 2555 [11052] 87748 868 5 0 0 0 0 1 4 0 0 0 0 0 : 0/0/0 1025 [11053] 0/0/1 5604 [11054] 87750 30 10 0 0 0 0 4 1 0 3 2 0 0 3RD ITEM 4/0/1 4356 [11055] 0/0/1 5605 [11056] 87752 30 11 0 0 0 0 3 2 1 2 0 0 0 1SP 4TH REF 0/0/1 531 [11057] 0/0/1 2555 [11058] 87754 868 5 0 0 0 0 1 4 0 0 0 0 0 : 0/0/0 1025 [11059] 0/0/1 5606 [11060] 87756 30 12 0 0 0 0 4 1 0 3 2 0 0 4TH ITEM 4/0/1 4356 [11061] 0/0/1 5607 [11062] 87758 30 13 0 0 0 0 3 2 1 2 0 0 0 1SP 5TH REF 0/0/1 531 [11063] 0/0/1 2555 [11064] 87760 868 5 0 0 0 0 1 4 0 0 0 0 0 : 0/0/0 1025 [11065] Source: DavidH/Q1000766 0/0/1 5608 [11066] 87762 30 14 0 0 0 0 4 1 0 3 2 0 0 5TH ITEM 4/0/1 4356 [11067] 0/0/1 5609 [11068] 87764 30 15 0 0 0 0 3 2 1 2 0 0 0 1SP 6TH REF 0/0/1 531 [11069] 0/0/1 2555 [11070] 87766 868 5 0 0 0 0 1 4 0 0 0 0 0 : 0/0/0 1025 [11071] 0/0/1 5610 [11072] 87768 30 16 0 0 0 0 4 1 0 3 2 0 0 6TH ITEM 4/0/1 4356 [11073] 0/0/1 2628 [11074] 87770 871 40 0 0 2 0 5 0 0 0 0 0 0 ERROR REPORTS 3/0/0 5 [11075] 0/0/1 2630 [11076] 87772 871 42 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [11077] 0/0/1 2632 [11078] 87774 871 44 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [11079] 0/0/1 2638 [11080] 87776 872 4 0 0 2 0 5 0 0 0 0 0 1 8/E 19/0/0 5 [11081] Start of procedure 878 at location 2890 in chapter 7 [11082] [11082] 87800 TABLE 878 1 TRIAL DATA HEADING LINE 0/0/1 2580 [11082] 87802 870 10 0 0 2 0 4 0 5 0 0 0 0 FILE 3/0/0 84 [11083] 0/0/1 5596 [11084] 87804 30 2 0 0 2 0 2 0 1 0 0 0 0 SP FILE ID 3/0/0 18 [11085] 0/0/1 2606 [11086] 87806 871 18 0 0 2 0 1 3 1 0 0 0 0 SP ( 3/0/0 785 [11087] 0/0/1 5604 [11088] 87808 30 10 0 0 2 0 2 0 0 0 0 0 0 OTHER FILE ID 3/0/0 2 [11089] 0/0/1 2606 [11090] 87810 871 18 0 0 2 0 1 4 0 0 0 0 0 ) 3/0/0 1025 [11091] 0/0/1 2606 [11092] 87812 871 18 0 0 2 0 3 0 2 0 0 0 0 ZSP RUN 3/0/0 35 [11093] 0/0/1 5801 [11094] 87814 32 167 0 0 0 0 4 1 1 3 0 0 0 SP RUN NO 0/0/1 4372 [11095] 0/0/1 2602 [11096] 87816 871 14 0 0 2 0 5 0 2 0 0 0 0 2SP BLOCK 3/0/0 37 [11097] 0/0/1 2604 [11098] 87818 871 16 0 0 2 0 4 1 1 0 0 0 0 SP LGTH 3/0/0 276 [11099] 0/0/1 5802 [11100] 87820 32 168 0 0 0 0 4 1 1 3 0 0 0 SP LENGTH 0/0/1 4372 [11101] 0/0/1 2596 [11102] 87822 871 8 0 0 2 0 4 0 2 0 0 0 0 2SP SECN 3/0/0 36 [11103] 0/0/1 5803 [11104] 87824 32 169 0 0 0 0 2 3 1 1 0 0 0 0/0/0 4882 [11105] 0/0/1 2600 [11106] 87826 871 12 0 0 2 0 3 0 2 0 0 0 0 2SP SET 3/0/0 35 [11107] 0/0/1 5601 [11108] 87828 30 7 0 0 0 0 2 3 1 1 0 0 0 0/0/0 4882 [11109] 0/0/1 2588 [11110] 87830 870 18 0 0 2 0 3 0 2 0 0 0 0 'IND' 3/0/0 35 [11111] 0/0/1 5602 [11112] 87832 30 8 0 0 0 0 1 4 1 0 0 0 0 0/0/0 1041 [11113] 0/0/1 2628 [11114] 87834 871 40 0 0 2 0 5 0 1 0 0 0 0 SP IND 3/0/0 21 [11115] 0/0/1 2636 [11116] 87836 872 2 0 0 1 0 10 0 15 10 0 0 0 25 SPACES 2/1/1 250 [11117] 0/0/1 2630 [11118] 87838 871 42 0 0 2 0 5 0 10 0 0 0 0 10 SP ERROR REPORT 3/0/0 165 [11119] 0/0/1 2638 [11120] 87840 872 4 0 0 2 0 1 1 0 0 0 0 1 19/0/0 257 [11121] Start of procedure 879 at location 2930 in chapter 7 [11122] [11122] 87900 TABLE 879 1 EDIT LINE OF TRIAL DATA 0/0/1 2555 [11122] 87902 868 5 0 0 0 0 1 3 3 0 0 0 0 3SP. 0/0/0 817 [11123] 0/0/1 5648 [11124] 87904 32 14 0 0 0 0 4 1 1 3 0 0 0 BLOCK NO 0/0/1 4372 [11125] 0/0/1 2555 [11126] 87906 868 5 0 0 0 0 1 3 0 0 0 0 1 . 16/0/0 769 [11127] 0/0/1 5649 [11128] 87908 32 15 0 0 0 0 4 1 2 3 0 0 0 2 SP WORD NO 0/0/1 4388 [11129] 0/0/1 2555 [11130] 87910 868 5 0 0 0 0 1 3 2 0 0 0 0 2SP. 0/0/0 801 [11131] 0/0/1 5634 [11132] 87912 32 0 0 0 2 0 5 0 0 0 0 0 0 1ST WORD 3/0/0 5 [11133] 0/0/1 2555 [11134] 87914 868 5 0 0 0 0 1 3 0 0 0 0 0 . 0/0/0 769 [11135] 0/0/1 5650 [11136] 87916 32 16 0 0 0 0 4 1 2 3 0 0 0 0/0/1 4388 [11137] 0/0/1 2555 [11138] 87918 868 5 0 0 0 0 1 3 2 0 0 0 0 0/0/0 801 [11139] 0/0/1 5636 [11140] 87920 32 2 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [11141] 0/0/1 2555 [11142] 87922 868 5 0 0 0 0 1 3 0 0 0 0 0 0/0/0 769 [11143] 0/0/1 5651 [11144] 87924 32 17 0 0 0 0 4 1 2 3 0 0 0 0/0/1 4388 [11145] 0/0/1 2555 [11146] 87926 868 5 0 0 0 0 1 3 2 0 0 0 0 0/0/0 801 [11147] 0/0/1 5638 [11148] 87928 32 4 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [11149] 0/0/1 2555 [11150] 87930 868 5 0 0 0 0 1 3 0 0 0 0 0 0/0/0 769 [11151] 0/0/1 5652 [11152] 87932 32 18 0 0 0 0 4 1 2 3 0 0 0 0/0/1 4388 [11153] 0/0/1 2555 [11154] 87934 868 5 0 0 0 0 1 3 2 0 0 0 0 0/0/0 801 [11155] 0/0/1 5640 [11156] 87936 32 6 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [11157] 0/0/1 2555 [11158] 87938 868 5 0 0 0 0 1 3 0 0 0 0 0 0/0/0 769 [11159] 0/0/1 5653 [11160] 87940 32 19 0 0 0 0 4 1 2 3 0 0 0 0/0/1 4388 [11161] 0/0/1 2555 [11162] 87942 868 5 0 0 0 0 1 3 2 0 0 0 0 0/0/0 801 [11163] 0/0/1 5642 [11164] 87944 32 8 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [11165] 0/0/1 2555 [11166] 87946 868 5 0 0 0 0 1 3 0 0 0 0 0 0/0/0 769 [11167] 0/0/1 5654 [11168] 87948 32 20 0 0 0 0 4 1 2 3 0 0 0 0/0/1 4388 [11169] 0/0/1 2555 [11170] 87950 868 5 0 0 0 0 1 3 2 0 0 0 0 0/0/0 801 [11171] 0/0/1 5644 [11172] 87952 32 10 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [11173] Source: DavidH/Q1000767 0/0/1 2555 [11174] 87954 868 5 0 0 0 0 1 3 0 0 0 0 0 0/0/0 769 [11175] 0/0/1 5655 [11176] 87956 32 21 0 0 0 0 4 1 2 3 0 0 0 0/0/1 4388 [11177] 0/0/1 2555 [11178] 87958 868 5 0 0 0 0 1 3 2 0 0 0 0 0/0/0 801 [11179] 0/0/1 5646 [11180] 87960 32 12 0 0 2 0 5 0 0 0 0 0 0 3/0/0 5 [11181] 0/0/1 2555 [11182] 87962 868 5 0 0 0 0 1 3 0 0 0 0 0 0/0/0 769 [11183] 0/0/1 2630 [11184] 87964 871 42 0 0 2 0 3 2 2 0 0 0 0 2SP ERROR INDS 3/0/0 547 [11185] 0/0/1 2638 [11186] 87966 872 4 0 0 2 0 5 0 0 0 0 0 1 B/E 19/0/0 5 [11187] Start of procedure 880 at location 2996 in chapter 7 [11188] [11188] 88000 TABLE 880 1 EDIT + LINE 0/0/1 5656 [11188] 88002 32 22 0 0 2 0 5 0 9 0 0 0 0 3/0/0 149 [11189] 0/0/1 5658 [11190] 88004 32 24 0 0 2 0 5 0 10 0 0 0 0 3/0/0 165 [11191] 0/0/1 5660 [11192] 88006 32 26 0 0 2 0 5 0 10 0 0 0 0 3/0/0 165 [11193] 0/0/1 5662 [11194] 88008 32 28 0 0 2 0 5 0 10 0 0 0 0 3/0/0 165 [11195] 0/0/1 5664 [11196] 88010 32 30 0 0 2 0 5 0 10 0 0 0 0 3/0/0 165 [11197] 0/0/1 5666 [11198] 88012 32 32 0 0 2 0 5 0 10 0 0 0 0 3/0/0 165 [11199] 0/0/1 5668 [11200] 88014 32 34 0 0 2 0 5 0 10 0 0 0 0 3/0/0 165 [11201] 0/0/1 2638 [11202] 88016 872 4 0 0 2 0 1 1 0 0 0 0 1 19/0/0 257 [11203] Start of procedure 881 at location 3012 in chapter 7 [11204] [11204] 88100 TABLE 881 1 FILE UNALTERED LINE 0/0/1 2580 [11204] 88102 870 10 0 0 2 0 4 0 15 0 0 0 0 15SP FILE 3/0/0 244 [11205] 0/0/1 2632 [11206] 88104 871 44 0 0 2 0 2 3 2 0 0 0 0 2SP FILE ID 3/0/0 802 [11207] 0/0/1 2600 [11208] 88106 871 12 0 0 2 0 1 2 3 0 0 0 0 3SP T 3/0/0 561 [11209] 0/0/1 2572 [11210] 88108 870 2 0 0 2 0 1 4 1 0 0 0 0 'D' 3/0/0 1041 [11211] 0/0/1 2600 [11212] 88110 871 12 0 0 2 0 3 0 1 0 0 0 0 SP SET 3/0/0 19 [11213] 0/0/1 5601 [11214] 88112 30 7 0 0 0 0 2 3 1 1 0 0 0 SP SET NO 0/0/0 4882 [11215] 0/0/1 2608 [11216] 88114 871 20 0 0 2 0 5 0 3 0 0 0 0 3SP UNALT 3/0/0 53 [11217] 0/0/1 2610 [11218] 88116 871 22 0 0 2 0 4 0 0 0 0 0 0 ERED 3/0/0 4 [11219] 0/0/1 2638 [11220] 88118 872 4 0 0 2 0 1 1 1 0 0 0 1 19/0/0 273 [11221] Start of procedure 882 at location 3030 in chapter 7 [11222] [11222] 88200 PROCR 882 08005 INSERTED BEFORE HERE-FINAL ROUTINES 6/0/0 6313 [11222] 88202 0 27 3 0 0 0 SELECT 27/0/0 3051 [11223] 88203 70 882 9 0 0 0 JUMP IF A == 0 6/0/0 6314 [11224] 88204 27 4 0 0 0 COMPILER CALLED TRANSLATOR? SELECT 27/0/0 3043 [11225] 88205 70 882 8 0 0 0 gNO JUMP IF A == 0 0/1/0 40 [11226] 88206 45 A1 0 0 0 1 REWIND REWIND 0/0/3 0 [11227] 6/1/0 0 [11228] 1/1/1 27 [11229] 25/1/1 4096 [11230] 24/0/3 0 [11231] 23/0/2 45 [11232] 0/1/1 40 [11233] 24/1/0 3051 [11234] 88207 76 882 9 0 0 0 JUMP unconditional 0/1/0 40 [11235] 88208 41 A1 0 0 0 1 CLOSE FILE 0/0/3 0 [11236] 6/1/0 0 [11237] 1/1/1 27 [11238] 25/1/1 4096 [11239] 24/0/3 0 [11240] 23/0/2 41 [11241] 0/1/1 40 [11242] 6/1/0 4912 [11243] 88209 54 8 4 1 0 48 BULK CLEAR 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [11245] 1/1/3 85 [11246] 88210 10 0 0 0 55 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 4 [11248] 88211 5 8 4 1 0 0 TRANSFER 26/0/0 3494 [11249] 88212 80 890 2 0 0 0 gWRITE'E' ENTER SUBROUTINE 6/0/0 6322 [11250] 88213 27 12 0 0 0 SELECT 27/0/1 46 [11251] 88214 71 776 2 0 0 0 gCALL PASS 6,WRITE PTS(2)AND(3) JUMP IF A != 0 6/1/0 4300 [11252] 88215 908 2 1 0 0 'PREND' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 4 [11254] 88216 5 8 4 1 0 0 TRANSFER 6/0/0 5078 [11255] 88217 16 2 0 0 0 PROG ID SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 7 [11257] 88218 5 8 6 2 0 0 TRANSFER 26/0/0 3494 [11258] 88219 80 890 2 0 0 0 gWRITE'PREND' ENTER SUBROUTINE 6/1/0 4310 [11259] 88220 908 12 1 0 0 'INDEX' 'INDEX'BLOX SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 6 [11261] 88221 5 8 6 1 0 0 TRANSFER 6/1/0 4325 [11262] 88222 908 26 2 0 0 '£££££' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 9 [11264] 88223 5 8 8 2 0 0 TRANSFER 1/1/3 4 [11265] 88224 10 0 0 0 4 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 10 [11267] 88225 5 8 10 1 0 0 TRANSFER 6/1/0 4324 [11268] 88226 908 26 1 0 0 ALIGNMENT MARKS SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 4 [11270] 88227 5 8 4 1 0 0 TRANSFER Source: ChuckK/Q1000768 26/0/0 3494 [11271] 88228 80 890 2 0 0 0 >WRITE ENTER SUBROUTINE 6/0/0 5078 [11272] 88229 16 2 0 0 0 PROG IDENTITY SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 5 [11274] 88230 3 8 4 2 0 0 COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 13 [11276] 88231 5 8 12 2 0 0 TRANSFER 6/0/0 5079 [11277] 88232 16 3 0 0 0 PROG SERIAL SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 7 [11279] 88233 3 8 6 2 0 0 COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 15 [11281] 88234 5 8 14 2 0 0 TRANSFER 1/1/3 2 [11282] 88235 10 0 0 0 2 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 11 [11284] 88236 5 8 10 2 0 0 TRANSFER 1/1/3 3 [11285] 88237 10 0 0 0 3 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 19 [11287] 88238 3 8 18 2 0 0 COPY 1/1/3 2 [11288] 88239 10 0 0 0 2 SELECT LITERAL 4/0/0 6322 [11289] 88240 1 27 12 0 0 0 0/2=PTS NO/YES ADD 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 17 [11291] 88241 5 8 16 2 0 0 TRANSFER 6/1/0 4325 [11292] 88242 908 26 2 0 0 'ppppp' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 21 [11294] 88243 5 8 20 2 0 0 TRANSFER 26/0/0 3494 [11295] 88244 80 890 2 0 0 0 >WRITE'INDEX'DATA ENTER SUBROUTINE 0/1/0 40 [11296] 88245 45 A6 0 0 0 1 REWIND 0/0/3 0 [11297] 6/1/0 0 [11298] 1/1/1 45 [11299] 25/1/1 4096 [11300] 24/0/3 0 [11301] 23/0/2 45 [11302] 0/1/1 40 [11303] 6/1/0 4914 [11304] 88246 54 5 0 1 0 48 BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 0 [11306] 26/1/1 4916 [11307] 88247 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [11308] 88248 C 0 0 0 5 Limit 26/0/0 3530 [11308] 88249 80 892 2 0 0 0 >PRINT 5 BLANK LINES ENTER SUBROUTINE 25/0/1 1 [11309] 88250 94 882 49 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3116 [11310] s 24/0/2 4376 [11311] 88251 55 908 78 1 0 26 BULK COPY 18/1/0 4123 [11312] 88252 C 5 10 1 0 0 1/1/3 26 [11313] 18/1/1 5 [11314] 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 10 [11316] 26/0/0 3470 [11317] 88253 80 888 2 0 0 0 >SUPPRESS I/C IF TRAMD ONLY ENTER SUBROUTINE 26/0/0 3530 [11318] 88254 80 892 2 0 0 0 >PRINT ENTER SUBROUTINE Start of procedure 883 at location 3127 in chapter 7 [11319] [11319] 88300 PROCR 883 PRINT FINAL LINE, TEST FOR PASS 3 COPY 26/1/1 4918 [11319] 88302 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [11320] 88303 C 0 0 0 13 Limit 6/0/0 6316 [11320] 88304 27 6 0 0 0 'PT OMITTED' SELECT 27/0/0 3132 [11321] 88305 70 883 8 0 0 0 >NO JUMP IF A == 0 6/1/0 4372 [11322] 88306 908 74 1 0 0 'YES' SELECT 24/1/0 3133 [11323] 88307 76 883 9 0 0 0 JUMP unconditional 6/1/0 4374 [11324] 88308 908 76 1 0 0 'NO' SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 12 [11326] 88309 5 5 12 1 0 0 TRANSFER 6/0/0 2560 [11327] 88310 0 869 5 0 0 0 TRIAL DATA PT IND SELECT 27/0/0 3139 [11328] 88311 70 883 14 0 0 0 JUMP IF A == 0 6/1/0 4372 [11329] 88312 0 908 74 1 0 0 'YES' SELECT 24/1/0 3140 [11330] 88313 76 883 15 0 0 0 JUMP unconditional 6/1/0 4374 [11331] 88314 0 908 76 1 0 0 'NO' SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 18 [11333] 88315 5 5 18 1 0 0 TRANSFER 26/0/0 4613 [11334] 88316 80 915 2 0 0 0 PRINT ENTER SUBROUTINE 25/0/1 4 [11335] 88317 94 0 0 1 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3145 [11336] 6/0/0 2561 [11337] 88318 869 6 0 0 0 TD'DISASTEROUS' SELECT 2/0/0 4354 [11338] 88319 5 908 56 0 0 0 TRANSFER 6/0/0 8172 [11339] 88320 86 511 2 0 0 0 SERIOUS ERRORS CTR SELECT SWITCH R 26/0/0 4588 [11340] 88321 80 912 2 0 0 0 CONVERT ENTER SUBROUTINE 26/0/0 4623 [11341] 88322 80 916 2 0 0 0 EDIT ENTER SUBROUTINE 26/0/0 4613 [11342] 88323 80 915 2 0 0 0 PRINT ENTER SUBROUTINE 25/0/1 4 [11343] 88324 94 0 0 1 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3153 [11344] 6/0/0 2562 [11345] 88325 869 7 0 0 0 TD'OTHERS' SELECT 2/0/0 4354 [11346] 88326 5 908 56 0 0 0 TRANSFER 6/0/0 8171 [11347] 88327 86 514 2 0 0 0 OTHER ERRORS CTR SELECT SWITCH R 26/0/0 4588 [11348] 88328 80 912 2 0 0 0 CONVERT ENTER SUBROUTINE 26/0/0 4623 [11349] 88329 80 916 2 0 0 0 EDIT ENTER SUBROUTINE 26/0/0 4613 [11350] 88330 80 915 2 0 0 0 PRINT ENTER SUBROUTINE 6/1/0 4920 [11351] 88331 54 40 0 0 0 20 BULK CLEAR 28/0/0 6290 [11352] 0/0/3 0 [11353] 88332 62 0 0 0 0 SET EXCESS CONSTANTS Source: ChuckK/Q1000769 26/0/0 3530 [11354] 88333 80 892 2 0 0 0 >MORE BLANK LINES ENTER SUBROUTINE 25/0/1 1 [11355] 88334 94 883 33 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3162 [11356] s 6/1/0 4922 [11357] 88335 155 0 0 0 0 TRANSLATOR SERIAL SELECT PROGRAM SERIAL TO A 2/1/0 4338 [11358] 88336 5 908 40 1 0 0 TRANSFER 24/0/2 4326 [11359] 88337 55 908 28 1 0 14 BULK COPY 18/1/0 4123 [11360] 88338 C 5 6 1 0 0 1/1/3 14 [11361] 18/1/1 5 [11362] 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 6 [11364] 24/0/3 0 [11365] 6/1/0 138 [11366] 88339 153 0 0 0 0 DATE SELECT DATE TO A, TIME TO B 24/0/3 0 [11367] 0/0/2 156 [11368] 2/1/0 4338 [11369] 88340 5 908 40 1 0 0 TRANSFER 6/0/0 8174 [11370] 88341 86 153 2 0 0 0 A2 SPOOL NUMBER SELECT SWITCH R 2/0/0 4320 [11371] 88342 5 908 22 0 0 0 TRANSFER 24/0/2 4516 [11372] 88343 52 5 20 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 20 [11374] 88344 C 910 18 0 0 0 26/0/0 3530 [11375] 88345 80 892 2 0 0 0 PRINT 'MADE BY' ENTER SUBROUTINE 6/0/0 6319 [11376] 88346 27 9 0 0 0 SELECT 27/0/1 3193 [11377] 88347 71 883 55 0 0 0 >OFF-LINE PRINT JUMP IF A != 0 6/0/0 6318 [11378] 88348 27 8 0 0 0 PRINTER TYPE SELECT 1/1/1 20 [11379] 88349 11 0 0 0 14 ADD LITERAL 18/0/1 5 [11380] 88350 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 7 [11381] 88351 1 999 7 0 0 0 ADD 25/1/1 4096 [11382] 88352 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 0 [11383] 88353 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [11384] 88354 123 160 0 2 0 CLOSE PRINTER ENTER MASTER ROUTINE 0/0/3 0 [11385] 88355 62 0 0 0 0 SET EXCESS CONSTANTS 0/1/0 40 [11386] 88356 46 A2 10 0 0 0 RUN BACK TO SECOND'INDEX'BLOCK RUN BACK 0/0/3 0 [11387] 0/1/2 4924 [11388] 88357 C 0 0 0 3 RUN BACK 6/1/0 0 [11389] 1/1/1 36 [11390] 25/1/1 4096 [11391] 24/0/3 0 [11392] 23/0/2 46 [11393] 0/1/1 40 [11394] 1/1/3 1 [11395] 88358 10 0 0 0 1 SELECT LITERAL 2/0/0 4358 [11396] 88359 5 908 60 0 0 0 SET IND TRANSFER 6/0/0 5078 [11397] 88360 16 2 0 0 0 PROGM BEING TRANSLATED SELECT 5/0/0 4725 [11398] 88361 12 0 0 0 8000 SUBTRACT LITERAL 27/0/0 3219 [11399] 88362 70 883 74 0 0 0 >TRANSLATOR JUMP IF A == 0 6/0/0 5078 [11400] 88363 16 2 0 0 0 SELECT 5/0/0 4726 [11401] 88364 12 0 0 0 9001 SUBTRACT LITERAL 27/0/0 3219 [11402] 88365 70 883 74 0 0 0 >MASTER JUMP IF A == 0 6/0/0 5078 [11403] 88366 16 2 0 0 0 SELECT 5/0/0 4727 [11404] 88367 12 0 0 0 8060 SUBTRACT LITERAL 27/0/0 3650 [11405] 88368 70 897 5 0 0 0 >COMPILER;ALARM 5 JUMP IF A == 0 1/1/2 1 [11406] 88369 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 3648 [11407] 88370 70 897 3 0 0 0 >BIG COMPILER JUMP IF A == 0 1/1/2 5 [11408] 88371 12 0 0 0 5 SUBTRACT LITERAL 27/0/0 3647 [11409] 88372 70 897 2 0 0 0 >CHAR HANDLING COMP JUMP IF A == 0 24/1/0 3316 [11410] 88373 76 884 40 0 0 0 >ORDINARY PROGMS JUMP unconditional 1/1/3 0 [11411] 88374 10 0 0 0 0 SELECT LITERAL 2/0/0 4358 [11412] 88375 5 908 60 0 0 0 CLEAR IND TRANSFER 6/0/0 6314 [11413] 88376 0 27 4 0 0 0 COMPILER? SELECT 27/0/0 3228 [11414] 88377 70 883 83 0 0 0 >NO JUMP IF A == 0 0/0/2 9 [11415] 88378 34 999 9 0 0 0 A1 ROUTE---INTERCHANGE A1,A6 SET (N) IN B 6/0/0 11 [11416] 88379 0 999 11 0 0 0 A6 ROUTE SELECT 2/0/0 9 [11417] 88380 5 999 9 0 0 0 >A1 TRANSFER 18/1/1 10 [11418] 88381 32 0 0 0 10 SHIFT (AB) BY QUARTETS 2/0/0 11 [11419] 88382 5 999 11 0 0 0 >A6 TRANSFER 0/1/0 40 [11420] 88383 40 A6 0 0 0 0 OPEN FILE 0/0/3 0 [11421] 0/1/2 4926 [11422] 6/1/0 4928 [11423] 1/1/1 45 [11424] 25/1/1 4096 [11425] 24/0/3 0 [11426] 23/0/2 40 [11427] 0/0/3 44 [11428] 0/1/0 4352 [11429] 88384 100 908 54 1 0 0 SPOOL NUMBER->66 COPY REGISTERS 24/0/2 4532 [11430] 88385 52 9 4 0 0 0 EDIT 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/2 4 [11432] 88386 C 910 34 0 0 0 0/1/0 40 [11433] 88387 154 9 4 0 0 0 TYPE COMMENT COMMENT IN LOG 0/0/3 0 [11434] 24/1/2 21 Extra code needed to address transit area no 4, section 9 24/0/2 4 [11436] 24/0/3 0 [11437] 23/0/2 154 [11438] 0/1/1 40 [11439] 26/0/0 3592 [11440] 88388 80 893 2 0 0 0 >WRITE BLANKS ENTER SUBROUTINE 26/0/0 3592 [11441] 88389 80 893 2 0 0 0 >WRITE 2 BLANK BLOCKS->A6 ENTER SUBROUTINE Source: ChuckK/Q1000770 26/0/0 3616 [11442] 88390 80 894 2 0 0 0 READ A2 ENTER SUBROUTINE 1/1/3 2 [11443] 88391 10 0 0 0 2 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 11 [11445] 88392 5 8 10 2 0 0 TRANSFER 6/1/0 4302 [11446] 88393 908 4 1 0 0 'CHAIN' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 12 [11448] 88394 5 8 12 1 0 0 TRANSFER 26/0/0 3592 [11449] 88395 80 893 2 0 0 0 gA6 ENTER SUBROUTINE 26/0/0 3616 [11450] 88396 80 894 2 0 0 0 A2-> ENTER SUBROUTINE Start of procedure 884 at location 3259 in chapter 7 [11451] [11451] 88400 PROCR 884 ALARM 6 or 7 6/0/0 6314 [11451] 88402 27 4 0 0 0 COMPILER? SELECT 27/0/0 3263 [11452] 88403 70 884 6 0 0 0 >NO JUMP IF A == 0 1/1/3 2 [11453] 88404 10 0 0 0 2 SELECT LITERAL 24/1/0 3265 [11454] 88405 76 884 8 0 0 0 JUMP unconditional 1/1/3 2 [11455] 88406 10 0 0 0 2 SELECT LITERAL 4/0/0 6322 [11456] 88407 1 27 12 0 0 0 0/2=PTS NO/YES ADD 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 9 [11458] 88408 5 8 8 2 0 0 TRANSFER 6/0/0 4728 [11459] 88409 10 0 0 0 ppppp SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 13 [11461] 88410 5 8 12 2 0 0 TRANSFER 26/0/0 3592 [11462] 88411 80 893 2 0 0 0 gA6 ENTER SUBROUTINE 26/0/0 3616 [11463] 88412 80 894 2 0 0 0 A2-> ENTER SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 6 [11465] 88413 0 8 6 1 0 0 SELECT 5/1/0 4310 [11466] 88414 2 908 12 1 0 0 'INDEX' SUBTRACT 27/0/0 3278 [11467] 88415 70 884 18 0 0 0 >YES JUMP IF A == 0 26/0/0 3592 [11468] 88416 80 893 2 0 0 0 >WRITE ENTER SUBROUTINE 24/1/0 3271 [11469] 88417 76 884 12 0 0 0 JUMP unconditional 26/0/0 3592 [11470] 88418 80 893 2 0 0 0 >WRITE 'INDEX' ENTER SUBROUTINE 26/0/0 3616 [11471] 88419 80 894 2 0 0 0 >READ ENTER SUBROUTINE 6/0/0 6314 [11472] 88420 27 4 0 0 0 COMPILER? SELECT 27/0/0 3284 [11473] 88421 70 884 24 0 0 0 >NO JUMP IF A == 0 1/1/3 2 [11474] 88422 10 0 0 0 2 SELECT LITERAL 24/1/0 3286 [11475] 88423 76 884 26 0 0 0 JUMP unconditional 1/1/3 2 [11476] 88424 10 0 0 0 2 SELECT LITERAL 4/0/0 6322 [11477] 88425 1 27 12 0 0 0 0/2=PTS NO/YES ADD 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 9 [11479] 88426 5 8 8 2 0 0 TRANSFER 6/0/0 4729 [11480] 88427 10 0 0 0 ppppp SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 13 [11482] 88428 5 8 12 2 0 0 TRANSFER 26/0/0 3592 [11483] 88429 80 893 2 0 0 0 >WRITE ENTER SUBROUTINE 0/1/0 40 [11484] 88430 41 A6 0 0 0 0 CLOSE FILE 0/0/3 0 [11485] 6/1/0 0 [11486] 1/1/1 45 [11487] 25/1/1 4096 [11488] 24/0/3 0 [11489] 23/0/2 41 [11490] 0/1/1 40 [11491] 6/0/0 6314 [11492] 88431 0 27 4 0 0 0 COMPILER? SELECT 27/0/0 3307 [11493] 88432 70 884 38 0 0 0 >NO JUMP IF A == 0 0/0/2 9 [11494] 88433 34 999 9 0 0 0 RESTORE A1,A6 ROUTE NUMBERS SET (N) IN B 6/0/0 11 [11495] 88434 0 999 11 0 0 0 SELECT 2/0/0 9 [11496] 88435 5 999 9 0 0 0 TRANSFER 18/1/1 10 [11497] 88436 32 0 0 0 10 SHIFT (AB) BY QUARTETS 2/0/0 11 [11498] 88437 5 999 11 0 0 0 TRANSFER 0/1/0 40 [11499] 88438 46 A2 10 0 0 1 RUN BACK TO SECOND 'INDEX' BLOCK RUN BACK 0/0/3 0 [11500] 0/1/2 4930 [11501] 88439 C 0 0 0 3 RUN BACK 6/1/0 0 [11502] 1/1/1 36 [11503] 25/1/1 4096 [11504] 24/0/3 0 [11505] 23/0/2 46 [11506] 0/1/1 40 [11507] 26/1/1 4932 [11508] 88440 90 0 0 1 0 CLEAR R1 SET MODIFICATION REGISTER AT LITERAL [11509] 88441 C 0 0 0 0 ///// Limit 1/1/3 6 [11509] 88442 10 0 0 0 6 SELECT LITERAL 2/0/0 4320 [11510] 88443 5 908 22 0 0 0 TRANSFER 6/0/0 6319 [11511] 88444 0 27 9 0 0 0 SELECT 27/0/0 3327 [11512] 88445 70 884 52 0 0 0 >ON-LINE PRINT JUMP IF A == 0 6/0/0 8172 [11513] 88446 86 511 2 0 0 0 'DISASTEROUS' SELECT SWITCH R 4/0/0 2561 [11514] 88447 1 869 6 0 0 0 (TD) ADD 27/0/1 3331 [11515] 88448 71 884 56 0 0 0 JUMP IF A != 0 6/0/0 6316 [11516] 88449 0 27 6 0 0 0 'PT OMITTED' SELECT 4/0/0 2560 [11517] 88450 1 869 5 0 0 0 (TD) ADD Source: ChuckK/Q1000771 27/0/1 3331 [11518] 88451 71 884 56 0 0 0 JUMP IF A != 0 6/0/0 6317 [11519] 88452 27 7 0 0 0 SELECT 27/0/1 3331 [11520] 88453 71 884 56 0 0 0 >REF/PROCR REPORT JUMP IF A != 0 6/0/0 6315 [11521] 88454 27 5 0 0 0 25?'S IND SELECT 27/0/0 3333 [11522] 88455 70 884 58 0 0 0 JUMP IF A == 0 1/1/3 7 [11523] 88456 10 0 0 0 7 SELECT LITERAL 2/0/0 4320 [11524] 88457 5 908 22 0 0 0 TRANSFER 6/0/0 6319 [11525] 88458 27 9 0 0 0 SELECT 27/0/0 3360 [11526] 88459 70 884 78 0 0 0 >ON JUMP IF A == 0 1/1/3 300 [11527] 88460 101 300 1 3 0 SELECT LITERAL ADDRESS 5/0/0 8180 [11528] 88461 99 0 0 6 0 SUBTRACT MODIFICATION REGISTER FROM A 2/0/0 3494 [11529] 88462 5 890 2 0 0 0 TRANSFER 0/0/0 0 act unimp [11530] 88463 54 10 4 0 6 0 CLEAR REST OF ANNEX Bulk clear with continuation line 6/1/0 4934 [11531] 88463 54 10 4 0 6 0 CLEAR REST OF ANNEX Bulk clear with continuation line 24/1/2 13 Extra code needed to address transit area no 0, section 10 28/0/0 4 [11533] 0/0/0 0 act unimp [11534] 88464 C 890 2 0 0 0 6/1/0 4322 [11535] 88465 908 24 1 0 0 SELECT 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 306 [11537] 88466 5 10 306 1 0 0 TRANSFER 26/0/0 4605 [11538] 88467 80 914 2 0 0 0 WRITE LAST BLOCK ENTER SUBROUTINE 6/1/0 4936 [11539] 88468 54 10 0 1 0 306 BULK CLEAR 24/1/2 13 Extra code needed to address transit area no 0, section 10 28/1/1 0 [11541] 6/1/0 4322 [11542] 88469 908 24 1 0 0 BEW SELECT 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 306 [11544] 88470 5 10 306 1 0 0 TRANSFER 26/0/0 4605 [11545] 88471 80 914 2 0 0 0 WRITE BLANK BLOCK ENTER SUBROUTINE 0/0/2 4402 [11546] 88472 34 909 2 0 0 0 STEP BACK A9 SET (N) IN B 6/1/0 4938 [11547] 88473 10 0 0 0 2700000 O/P->O/P 1 BLOCK SELECT LITERAL 4/0/0 7 [11548] 88474 1 999 7 0 0 0 ADD 25/1/1 4096 [11549] 88475 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 0 [11550] 88476 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [11551] 88477 123 160 0 2 0 ENTER MASTER ROUTINE 6/0/0 4320 [11552] 88478 150 908 22 0 0 0 ALARM 6 or 7 OFFER OPTIONS 0/0/2 4730 [11553] 25/1/1 4096 [11554] 24/0/3 0 [11555] 26/0/2 1 [11556] 0/0/1 3371 [11557] s 88479 C 884 85 0 0 0 >END 0/0/1 3402 [11558] s 88480 C 884 99 0 0 0 >CLOSE FILES:REENTER TO PRINT 0/0/1 3219 [11559] s 88481 C 883 74 0 0 0 >COPY TO PASS 3 O/P TO A6 0/0/1 3425 [11560] 88482 C 885 24 0 0 0 0/0/1 3442 [11561] s 88483 C 885 43 0 0 0 0/0/1 3429 [11562] 88484 C 885 28 0 0 0 26/0/0 4574 [11563] 88485 80 911 2 0 0 0 ENTER SUBROUTINE 26/0/0 3483 [11564] 88486 80 889 2 0 0 0 >CLOSE A9 ENTER SUBROUTINE 6/0/0 4358 [11565] 88487 908 60 0 0 0 SELECT 27/0/1 3379 [11566] 88488 71 884 93 0 0 0 JUMP IF A != 0 6/0/0 6314 [11567] 88489 27 4 0 0 0 SELECT 27/0/0 3399 [11568] 88490 70 884 98 0 0 0 JUMP IF A == 0 26/0/0 3511 [11569] 88491 80 891 2 0 0 0 CLOSE A6 ENTER SUBROUTINE 24/1/0 3399 [11570] 88492 76 884 98 0 0 0 JUMP unconditional 6/0/0 6314 [11571] 88493 27 4 0 0 0 SELECT 27/0/0 3398 [11572] 88494 70 884 97 0 0 0 >NO JUMP IF A == 0 0/1/0 40 [11573] 88495 40 A1 0 0 0 1 OPEN FILE 0/0/3 0 [11574] 0/1/2 4940 [11575] 6/1/0 4942 [11576] 1/1/1 27 [11577] 25/1/1 4096 [11578] 24/0/3 0 [11579] 23/0/2 40 [11580] 0/0/3 44 [11581] 0/1/0 40 [11582] 88496 41 A1 0 0 0 1 CLOSE FILE 0/0/3 0 [11583] 6/1/0 0 [11584] 1/1/1 27 [11585] 25/1/1 4096 [11586] 24/0/3 0 [11587] 23/0/2 41 [11588] 0/1/1 40 [11589] 26/0/0 3511 [11590] 88497 80 891 2 0 0 0 >OPEN AND CLOSE A6 ENTER SUBROUTINE 25/1/1 4096 [11591] 88498 151 0 0 0 0 UNLOAD PROGRAMME 24/0/3 0 [11592] 26/0/2 2 [11593] 26/0/0 4574 [11594] 88499 80 911 2 0 0 0 ENTER SUBROUTINE Start of procedure 885 at location 3403 in chapter 7 [11595] [11595] 88500 PROCR 885 IF AMEND BEWARE ADDRESSES OF 23/0/2'S 26/1/3 4944 [11595] 88502 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [11596] 88503 C 0 0 0 2 Limit 26/0/0 3483 [11596] 88504 80 889 2 0 0 0 CLOSE A9 OR PRINTER ENTER SUBROUTINE 6/0/0 6319 [11597] 88505 27 9 0 0 0 SELECT 27/0/0 3408 [11598] 88506 70 885 9 0 0 0 >ON JUMP IF A == 0 26/1/3 4946 [11599] 88507 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL [11600] 88508 C 0 0 0 4 Limit Source: ChuckK/Q1000773 6/0/0 6314 [11600] 88509 27 4 0 0 0 SELECT 27/0/1 3413 [11601] 88510 71 885 13 0 0 0 JUMP IF A != 0 6/0/0 3592 [11602] 88511 893 2 0 0 0 SELECT 24/0/3 0 Extra code needed to address 5646 from 11603 (different chapter) 24/1/0 5646 [11604] 88512 76 100 2 0 0 0 >CALL TRANSLATOR PASS 0 JUMP unconditional 26/0/0 3511 [11605] 88513 80 891 2 0 0 0 OPEN AND CLOSE A6 ENTER SUBROUTINE 25/1/1 4096 [11606] 88514 125 4096 1 1 0 CLEAR INDICATORS 23/0/2 3627 [11607] 88515 123 895 2 0 2 0 ENTER MASTER ROUTINE 24/0/2 4402 [11608] 88516 124 909 2 0 2 0 SELECT LITERAL AND DIVISION 18/1/1 4123 [11609] 88517 32 0 0 0 5- SHIFT (AB) BY QUARTETS 1/1/3 80 [11610] 88518 101 80 1 3 0 SELECT LITERAL ADDRESS 18/1/1 5 [11611] 88519 32 0 0 0 5 ESTORE COMPILER SHIFT (AB) BY QUARTETS 24/0/3 5 [11612] 88520 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 28/1/1 204 [11613] 88521 128 204 1 1 0 BULK COPY LONG NUMERIC 6/0/0 3592 [11614] 88522 893 2 0 0 0 SELECT 24/0/3 0 Extra code needed to address 5646 from 11615 (different chapter) 24/1/0 5646 [11616] 88523 76 100 2 0 0 0 >CALL COMPILER PASS 1 JUMP unconditional 26/0/0 3449 [11617] 88524 80 886 2 0 0 0 IS MATCH HD?;OPT 4 ENTER SUBROUTINE 27/0/0 3433 [11618] 88525 70 885 32 0 0 0 >NO JUMP IF A == 0 1/1/3 0 [11619] 88526 10 0 0 0 0 SELECT LITERAL 24/1/0 3457 [11620] 88527 76 887 2 0 0 0 JUMP unconditional 26/0/0 3449 [11621] 88528 80 886 2 0 0 0 IS MATCH HD?;OPT 6 ENTER SUBROUTINE 27/0/0 3433 [11622] 88529 70 885 32 0 0 0 >NO JUMP IF A == 0 1/1/3 88 [11623] 88530 10 0 0 0 58 H SELECT LITERAL 24/1/0 3457 [11624] 88531 76 887 2 0 0 0 JUMP unconditional 26/0/0 4574 [11625] 88532 80 911 2 0 0 0 ENTER SUBROUTINE 26/1/3 4948 [11626] 88533 90 0 0 3 1 SET MODIFICATION REGISTER AT LITERAL [11627] 88534 C 0 0 0 2 Limit 6/0/0 6319 [11627] 88535 27 9 0 0 0 OFF? SELECT 27/0/0 3408 [11628] 88536 70 885 9 0 0 0 JUMP IF A == 0 6/0/0 0 [11629] 88537 84 787 2 0 0 0 CLEAR,A9 NOW CLOSED SET SWITCH(ES) AT VARIABLE VALUE 2/0/0 8176 [11630] 88538 C 999 0 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 26/0/0 3483 [11631] 88539 80 889 2 0 0 0 CLOSE A9 OR PRINTER ENTER SUBROUTINE 26/1/3 4950 [11632] 88540 90 0 0 3 1 SET MODIFICATION REGISTER AT LITERAL [11633] 88541 C 0 0 0 4 Limit 24/1/0 3408 [11633] 88542 76 885 9 0 0 0 JUMP unconditional 6/0/0 6319 [11634] 88543 27 9 0 0 0 SELECT 27/0/0 3425 [11635] 88544 70 885 24 0 0 0 >AS OPT 4 JUMP IF A == 0 1/1/3 1 [11636] 88545 83 787 2 0 0 1 SET SWITCH(ES) AT LITERAL VALUE 2/0/0 8176 [11637] 26/0/0 4574 [11638] 88546 80 911 2 0 0 0 >CLOSE A2 ENTER SUBROUTINE 26/1/3 4952 [11639] 88547 90 0 0 3 1 SET MODIFICATION REGISTER AT LITERAL [11640] 88548 C 0 0 0 3 Limit 24/1/0 3408 [11640] 88549 76 885 9 0 0 0 JUMP unconditional Start of procedure 886 at location 3449 in chapter 7 [11641] [11641] 88600 PROCR 886 TEST IF MACHINE IS HIGH DENSITY 0/0/0 0 [11641] 88602 81 886 2 0 0 0 START OF SUBROUTINE 23/0/2 3452 [11642] 88603 123 886 5 0 2 0 ENTER MASTER ROUTINE 26/0/1 3449 [11643] 88604 82 886 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 0/0/0 0 [11644] 88605 100 0 0 0 0 HALT 24/0/3 5 [11645] 88606 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 32 [11646] 88607 124 32 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 21 [11647] 88608 106 21 0 0 0 SELECT (N) 26/0/3 3452 [11648] 88609 126 886 5 0 3 0 LEAVE MASTER ROUTINE Source: ChuckK/Q1000774 Start of procedure 887 at location 3457 in chapter 7 [11649] [11649] 88700 PROCR 887 INFORM MASTER OF DENSITY REQUIRED 2/0/0 3592 [11649] 88702 5 893 2 0 0 0 TRANSFER 23/0/2 3460 [11650] 88703 123 887 5 0 2 0 ENTER MASTER ROUTINE 24/1/0 3433 [11651] 88704 76 885 32 0 0 0 JUMP unconditional 0/0/0 0 [11652] 88705 100 0 0 0 0 HALT 24/0/3 5 [11653] 88706 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 32 [11654] 88707 124 32 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 22 [11655] 88708 106 22 0 0 0 SELECT (N) 4/0/0 7 [11656] 88709 1 999 7 0 0 0 ADD 2/0/0 3511 [11657] 88710 5 891 2 0 0 0 TRANSFER 6/0/0 3592 [11658] 88711 893 2 0 0 0 SELECT 24/0/3 3511 [11659] 88712 124 891 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 0 [11660] 88713 102 0 0 0 0 TRANSFER (A) TO N 26/0/3 3460 [11661] 88714 126 887 5 0 3 0 LEAVE MASTER ROUTINE Start of procedure 888 at location 3470 in chapter 7 [11662] [11662] 88800 PROCR 888 0/0/0 0 [11662] 88802 81 888 14 0 0 0 START OF SUBROUTINE 0/0/2 6323 [11663] 88803 34 27 13 0 0 0 (DONT SPOIL CLEARNESS OF A) SET (N) IN B 27/1/0 3482 [11664] 88804 74 888 9 0 0 0 >NOT TRAMD ONLY JUMP IF AB == 0 // 27, 1, 0 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 10 [11666] 88805 5 5 10 1 0 0 CLEAR TRANSFER 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 12 [11668] 88806 5 5 12 1 0 0 TRANSFER 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 14 [11670] 88807 5 5 14 1 0 0 TRANSFER 6/1/0 4954 [11671] 88808 54 5 22 1 0 14 BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 22 [11673] 26/0/1 3470 [11674] 88809 82 888 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 889 at location 3483 in chapter 7 [11675] [11675] 88900 PROCR 889 CLOSE A9 0/0/0 0 [11675] 88902 81 889 2 0 0 0 START OF SUBROUTINE 6/0/0 6319 [11676] 88903 27 9 0 0 0 >PRINTING SELECT 27/0/0 3493 [11677] 88904 70 889 12 0 0 0 JUMP IF A == 0 6/0/0 0 [11678] 88905 84 787 2 0 0 0 CLEAR'DONT OPEN A9' IND SET SWITCH(ES) AT VARIABLE VALUE 2/0/0 8176 [11679] 88906 C 999 0 0 0 0 SET SWITCH(ES) AT VARIABLE VALUE 6/1/0 4956 [11680] 88907 10 0 0 0 1+00000 SELECT LITERAL 4/0/0 7 [11681] 88908 1 999 7 0 0 0 ADD 25/1/1 4096 [11682] 88909 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 0 [11683] 88910 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [11684] 88911 123 160 0 2 0 ENTER MASTER ROUTINE 26/0/1 3483 [11685] 88912 82 889 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 890 at location 3494 in chapter 7 [11686] [11686] 89000 PROCR 890 WRITE->A2 0/0/0 0 [11686] 89002 81 890 2 0 0 0 START OF SUBROUTINE 6/1/0 4322 [11687] 89003 908 24 1 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 52 [11689] 89004 5 8 52 1 0 0 TRANSFER 0/1/0 40 [11690] 89005 43 A2 0 0 0 0 OUTPUT 0/0/3 0 [11691] 0/0/2 18 [11692] 89006 C 8 0 0 0 0 OUTPUT 6/1/0 0 [11693] 1/1/1 36 [11694] 25/1/1 4096 [11695] 24/0/3 0 [11696] 23/0/2 43 [11697] 0/1/1 40 [11698] 6/1/0 4958 [11699] 89007 54 8 0 1 0 52 BULK CLEAR 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 0 [11701] 26/0/1 3494 [11702] 89008 82 890 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 891 at location 3511 in chapter 7 [11703] [11703] 89100 PROCR 891 OPEN & CLOSE A6 0/0/0 0 [11703] 89102 81 891 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [11704] 89103 40 A6 0 0 0 1 OPEN FILE 0/0/3 0 [11705] 0/1/2 4960 [11706] 6/1/0 4962 [11707] 1/1/1 45 [11708] 25/1/1 4096 [11709] 24/0/3 0 [11710] 23/0/2 40 [11711] 0/0/3 44 [11712] 0/1/0 40 [11713] 89104 41 A6 0 0 0 1 CLOSE FILE 0/0/3 0 [11714] 6/1/0 0 [11715] 1/1/1 45 [11716] 25/1/1 4096 [11717] 24/0/3 0 [11718] 23/0/2 41 [11719] 0/1/1 40 [11720] 26/0/1 3511 [11721] 89105 82 891 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 892 at location 3530 in chapter 7 [11722] [11722] 89200 PROCR 892 PRINT SR 0/0/0 0 [11722] 89202 81 892 2 0 0 0 START OF SUBROUTINE 0/0/3 0 [11723] 89203 62 0 0 0 0 SET EXCESS CONSTANTS 6/1/0 4322 [11724] 89204 908 24 1 0 0 SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 52 [11726] 89205 5 5 52 1 0 0 TRANSFER 6/0/0 4358 [11727] 89206 908 60 0 0 0 HEAD OF FORM OR TRACK 1 SELECT Source: ChuckK/Q1000775 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 1 [11729] 89207 5 5 0 2 0 0 TRANSFER 1/1/3 1 [11730] 89208 10 0 0 0 1 SELECT LITERAL 2/0/0 4358 [11731] 89209 5 908 60 0 0 0 TRANSFER 6/0/0 6319 [11732] 89210 27 9 0 0 0 SELECT 27/0/0 3560 [11733] 89211 70 892 16 0 0 0 >PRINTER JUMP IF A == 0 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 0 [11735] 89212 55 5 0 1 0 50 BULK COPY 18/1/0 4123 [11736] 89213 C 10 4 1 6 0 0/0/0 0 act unimp [11737] 89213 C 10 4 1 6 0 Bulk copy simulated modifier 0/1/0 40 [11738] 0/0/3 0 [11739] 24/1/2 13 Extra code needed to address transit area no 0, section 10 24/0/2 4 [11741] 24/0/3 22 [11742] 4/0/0 12 [11743] 2/0/0 40 [11744] 0/1/1 40 [11745] 1/1/3 50 [11746] 18/1/1 5 [11747] 24/1/2 40 [11748] 28/1/1 0 [11749] 26/0/0 4594 [11750] 89214 80 913 2 0 0 0 O/P->A9 ENTER SUBROUTINE 24/1/0 3588 [11751] 89215 76 892 38 0 0 0 JUMP unconditional 6/0/0 6318 [11752] 89216 27 8 0 0 0 PRINTER TYPE SELECT 1/1/2 9 [11753] 89217 12 0 0 0 9 SUBTRACT LITERAL 27/0/0 3579 [11754] 89218 70 892 34 0 0 0 >SPECIAL PRINTER JUMP IF A == 0 6/0/0 4731 [11755] 89219 10 0 0 0 80000 SELECT LITERAL 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/0/0 1 [11757] 89220 5 5 1 0 0 0 TRANSFER 24/1/2 15 [11758] 89221 124 999 15 1 2 0 MODIFY ADDRESS OF NEXT 24/0/2 0 [11759] 89222 124 0 0 2 0 SELECT LITERAL AND DIVISION 24/1/2 13 [11760] 89223 124 999 13 1 2 0 MODIFY ADDRESS OF NEXT 29/0/1 0 [11761] 89224 129 0 0 1 0 EDIT FOR ANELEX OUTPUT 1/1/3 4 [11762] 89225 10 0 0 0 4 SELECT LITERAL 18/0/1 5 [11763] 89226 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 7 [11764] 89227 1 999 7 0 0 0 ADD 0/0/2 12 [11765] 89228 34 999 12 0 0 0 SET (N) IN B 25/1/1 4096 [11766] 89229 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 0 [11767] 89230 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [11768] 89231 123 160 0 2 0 ENTER MASTER ROUTINE 0/0/3 0 [11769] 89232 62 0 0 0 0 SET EXCESS CONSTANTS 24/1/0 3588 [11770] 89233 76 892 38 0 0 0 JUMP unconditional 24/1/2 15 Extra code needed to address transit area no 1, section 5 24/0/2 0 [11772] 89234 55 5 0 1 0 54 BULK COPY 18/1/0 4123 [11773] 89235 C 10 0 1 0 0 1/1/3 54 [11774] 18/1/1 5 [11775] 24/1/2 13 Extra code needed to address transit area no 0, section 10 28/1/1 0 [11777] 1/1/3 9 [11778] 89236 10 0 0 0 9 SELECT LITERAL 24/1/0 3571 [11779] 89237 76 892 26 0 0 0 JUMP unconditional 6/1/0 4964 [11780] 89238 54 5 0 1 0 50 BULK CLEAR 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/1 0 [11782] 26/0/1 3530 [11783] 89239 82 892 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 893 at location 3592 in chapter 7 [11784] [11784] 89300 PROCR 893 WRITE ON A6 0/0/0 0 [11784] 89302 81 893 2 0 0 0 START OF SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 24/0/2 4 [11786] 89303 55 8 4 1 0 50 BULK COPY 18/1/0 4123 [11787] 89304 C 9 4 1 0 0 1/1/3 50 [11788] 18/1/1 5 [11789] 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/1 4 [11791] 6/1/0 4322 [11792] 89305 908 24 1 0 0 BEW SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 52 [11794] 89306 5 9 52 1 0 0 TRANSFER 0/1/0 40 [11795] 89307 43 A6 0 0 0 0 OUTPUT 0/0/3 0 [11796] 0/0/2 20 [11797] 89308 C 9 0 0 0 0 OUTPUT 6/1/0 0 [11798] 1/1/1 45 [11799] 25/1/1 4096 [11800] 24/0/3 0 [11801] 23/0/2 43 [11802] 0/1/1 40 [11803] 6/1/0 4966 [11804] 89309 54 9 0 1 0 52 BULK CLEAR 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/1 0 [11806] 26/0/1 3592 [11807] 89310 82 893 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 894 at location 3616 in chapter 7 [11808] [11808] 89400 PROCR 894 READ A2 0/0/0 0 [11808] 89402 81 894 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [11809] 89403 42 A2 0 0 0 0 INPUT 0/0/3 0 [11810] 0/0/2 18 [11811] 89404 C 8 0 0 0 0 INPUT 6/1/0 0 [11812] 1/1/1 36 [11813] 25/1/1 4096 [11814] 24/0/3 0 [11815] 23/0/2 42 [11816] 0/1/1 40 [11817] 26/0/1 3616 [11818] 89405 82 894 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 895 at location 3627 in chapter 7 [11819] [11819] 89500 PROCR 895 DELETE GUARD WORDS 0/0/0 0 [11819] 89502 81 895 2 0 0 0 START OF SUBROUTINE 24/0/3 5 [11820] 89503 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 26/1/2 20 [11821] 89504 126 20 1 2 0 SET MODIFICATION REGISTER 26/0/0 3640 [11822] 89505 80 896 2 0 0 0 ENTER SUBROUTINE 24/0/3 5 [11823] 89506 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 26/1/2 22 [11824] 89507 126 22 1 2 0 SET MODIFICATION REGISTER 26/0/0 3640 [11825] 89508 80 896 2 0 0 0 ENTER SUBROUTINE Source: ChuckK/Q1000776 24/0/3 5 [11826] 89509 124 999 5 0 3 0 MODIFY ADDRESS OF NEXT 26/1/2 24 [11827] 89510 126 24 1 2 0 SET MODIFICATION REGISTER 25/0/2 204 [11828] 89511 125 204 0 2 0 STEP ON AND TEST 26/0/0 3640 [11829] 89512 80 896 2 0 0 0 ENTER SUBROUTINE 26/1/1 4968 [11830] 89513 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [11831] 89514 C 0 0 0 0 ///// Limit 26/0/3 3627 [11831] 89515 126 895 2 0 3 0 LEAVE MASTER ROUTINE Start of procedure 896 at location 3640 in chapter 7 [11832] [11832] 89600 PROCR 896 STACK TAG SR 0/0/0 0 [11832] 89602 81 896 2 0 0 0 START OF SUBROUTINE 23/0/3 4402 [11833] 89603 123 909 2 0 3 0 PROG TAG SELECT TAG 24/0/3 0 [11834] 89604 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/1/2 0 [11835] 89605 123 0 1 2 0 COPY INTO TAG 25/0/2 2 [11836] 89606 94 896 4 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3642 [11837] 26/0/1 3640 [11838] 89607 82 896 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 897 at location 3647 in chapter 7 [11839] [11839] 89700 PROCR 897 1/1/3 5 [11839] 89702 10 0 0 0 5 SELECT LITERAL 1/1/1 17 [11840] 89703 11 0 0 0 11 ADD LITERAL 7/0/0 4312 [11841] 89704 4 908 14 0 0 0 AUGMENT 1/1/3 5 [11842] 89705 150 0 0 0 5 PAUSE TO PUT TRANSLATOR ON A1 ROUTE OFFER OPTIONS 0/0/2 4732 [11843] 25/1/1 4096 [11844] 24/0/3 0 [11845] 26/0/2 1 [11846] 0/0/1 3658 [11847] s 89706 C 897 9 0 0 0 0/0/1 3219 [11848] s 89707 C 883 74 0 0 0 0/0/1 3829 [11849] s 89708 C 898 32 0 0 0 6/0/0 5078 [11850] 89709 16 2 0 0 0 ARE WE 08066? SELECT 5/0/0 4733 [11851] 89710 12 0 0 0 8066 SUBTRACT LITERAL 27/0/1 3681 [11852] 89711 71 897 27 0 0 0 >NO JUMP IF A != 0 1/1/3 9 [11853] 89712 10 0 0 0 9 SELECT LITERAL 2/0/0 4498 [11854] 89713 5 909 98 0 0 0 TRANSFER 26/0/0 3985 [11855] 89714 80 900 2 0 0 0 MERGE S/R ENTER SUBROUTINE 26/1/1 4970 [11856] 89715 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [11857] 89716 C 0 0 0 6 Limit 6/0/1 2574 [11857] 89717 870 4 0 1 0 SELECT 26/0/0 3942 [11858] 89718 80 899 2 0 0 0 CONVERT TO DEC ENTER SUBROUTINE 25/0/1 2 [11859] 89719 94 897 17 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3665 [11860] s 24/0/2 4500 [11861] 89720 52 870 10 0 0 0 EDIT CHAP LENGTHS EDIT 28/1/2 2580 [11862] 89721 C 910 2 0 0 0 FOR TYPING 0/1/0 40 [11863] 89722 154 870 10 0 0 0 TYPE COMMENT IN LOG 0/0/3 0 [11864] 24/0/2 2580 [11865] 24/0/3 0 [11866] 23/0/2 154 [11867] 0/1/1 40 [11868] 6/0/0 4734 [11869] 89723 10 0 0 0 4630 SELECT LITERAL 2/0/0 4312 [11870] 89724 5 908 14 0 0 0 TRANSFER 26/1/1 5086 [11871] 89725 91 16 10 0 1 0 SET M/R AT NO OFCHAPS SET MODIFICATION REGISTER AT VARIABLE 24/1/0 3806 [11872] 89726 76 898 11 0 0 0 >COPY TRANSLATOR JUMP unconditional 0/1/0 40 [11873] 89727 40 A1 0 0 0 1 OPEN FILE 0/0/3 0 [11874] 0/1/2 4972 [11875] 6/1/0 4974 [11876] 1/1/1 27 [11877] 25/1/1 4096 [11878] 24/0/3 0 [11879] 23/0/2 40 [11880] 0/0/3 44 [11881] 26/0/0 4206 [11882] 89728 80 903 2 0 0 0 >READ A1 TO SEC 7 ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 4 [11884] 89729 7 4 1 0 0 SELECT 5/1/0 4304 [11885] 89730 2 908 6 1 0 0 'FINIS' SUBTRACT 27/0/1 3704 [11886] 89731 71 897 34 0 0 0 JUMP IF A != 0 0/1/0 40 [11887] 89732 41 A1 0 0 0 1 CLOSE FILE 0/0/3 0 [11888] 6/1/0 0 [11889] 1/1/1 27 [11890] 25/1/1 4096 [11891] 24/0/3 0 [11892] 23/0/2 41 [11893] 0/1/1 40 [11894] 24/1/0 3650 [11895] 89733 76 897 5 0 0 0 JUMP unconditional 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 5 [11897] 89734 7 4 2 0 0 SELECT 5/0/0 4735 [11898] 89735 12 0 0 0 ppppp SUBTRACT LITERAL 27/0/1 3690 [11899] 89736 71 897 28 0 0 0 JUMP IF A != 0 1/0/1 1 [11900] 89737 35 0 0 0 1 PREPARE FOR DIGIT COLLATION 24/1/2 17 Extra code needed to address transit area no 2, section 7 15/1/0 7 [11902] 89738 36 7 6 2 0 0 COLLATE AND ADD 1/1/2 5 [11903] 89739 12 0 0 0 5 SUBTRACT LITERAL Source: ChuckK/Q1000777 27/0/1 3690 [11904] 89740 71 897 28 0 0 0 >NOT SENTINEL 5 JUMP IF A != 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 9 [11906] 89741 7 8 2 0 0 SELECT 5/0/0 4736 [11907] 89742 12 0 0 0 8000 SUBTRACT LITERAL 27/0/1 3690 [11908] 89743 71 897 28 0 0 0 > NOT TRANSLATOR JUMP IF A != 0 26/0/0 4206 [11909] 89744 80 903 2 0 0 0 ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 42 [11911] 89745 7 42 1 0 0 SELECT 5/1/0 4308 [11912] 89746 2 908 10 1 0 0 'ALLOC' SUBTRACT 27/0/1 3717 [11913] 89747 71 897 44 0 0 0 JUMP IF A != 0 0/1/0 40 [11914] 89748 40 A6 0 0 0 0 OPEN FOR FINAL PROGM OPEN FILE 0/0/3 0 [11915] 0/1/2 4976 [11916] 6/1/0 4978 [11917] 1/1/1 45 [11918] 25/1/1 4096 [11919] 24/0/3 0 [11920] 23/0/2 40 [11921] 0/0/3 44 [11922] 18/1/1 10 [11923] 89749 32 0 0 0 10 SHIFT (AB) BY QUARTETS 2/0/0 2569 [11924] 89750 5 869 14 0 0 0 SPOOL NUMBER TRANSFER 26/0/0 4217 [11925] 89751 80 904 2 0 0 0 WRITE 2 ZERO BLOX ENTER SUBROUTINE 26/0/0 4217 [11926] 89752 80 904 2 0 0 0 ENTER SUBROUTINE 26/0/0 3616 [11927] 89753 80 894 2 0 0 0 >READ A2 ENTER SUBROUTINE 1/1/3 2 [11928] 89754 10 0 0 0 2 INDEX IDENTIFIER SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 11 [11930] 89755 5 8 10 2 0 0 TRANSFER 6/1/0 4302 [11931] 89756 908 4 1 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 12 [11933] 89757 5 8 12 1 0 0 TRANSFER 26/0/0 4217 [11934] 89758 80 904 2 0 0 0 >WRITE ENTER SUBROUTINE 26/0/0 3616 [11935] 89759 80 894 2 0 0 0 >READ A2 ENTER SUBROUTINE 1/1/3 2 [11936] 89760 10 0 0 0 2 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 9 [11938] 89761 5 8 8 2 0 0 TRANSFER 6/0/0 4737 [11939] 89762 10 0 0 0 ppppp SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 13 [11941] 89763 5 8 12 2 0 0 TRANSFER 26/0/0 4217 [11942] 89764 80 904 2 0 0 0 >WRITE ENTER SUBROUTINE 26/0/0 3616 [11943] 89765 80 894 2 0 0 0 >READ A2 ENTER SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 42 [11945] 89766 8 42 1 0 0 SELECT 5/1/0 4308 [11946] 89767 2 908 10 1 0 0 'ALLOC' SUBTRACT 27/0/0 3758 [11947] 89768 70 897 71 0 0 0 JUMP IF A == 0 26/0/0 4217 [11948] 89769 80 904 2 0 0 0 >WRITE SEC 8 TO A6 ENTER SUBROUTINE 24/1/0 3751 [11949] 89770 76 897 65 0 0 0 JUMP unconditional 26/1/1 4980 [11950] 89771 90 0 0 1 0 REFORM ALLOC DATA SET MODIFICATION REGISTER AT LITERAL [11951] 89772 C 0 0 0 6 Limit 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/1 25 [11952] 89773 7 24 2 1 0 MAXAMISE ALL 3 CHAP LENGTHS SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 5/1/1 25 [11954] 89774 2 8 24 2 1 0 SUBTRACT 27/0/3 3766 [11955] 89775 73 897 77 0 0 0 JUMP IF A < 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 7/1/1 25 [11957] 89776 4 8 24 2 1 0 AUGMENT 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/1 25 [11959] 89777 0 8 24 2 1 0 SELECT 26/0/0 3942 [11960] 89778 80 899 2 0 0 0 CONVERT TO DEC ENTER SUBROUTINE 25/0/1 2 [11961] 89779 94 897 73 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3759 [11962] s 24/0/2 4500 [11963] 89780 52 870 10 0 0 0 EDIT 28/1/2 2580 [11964] 89781 C 910 2 0 0 0 0/1/0 40 [11965] 89782 154 870 10 0 0 0 TYPE COMBINED CHAP LENGTHS COMMENT IN LOG 0/0/3 0 [11966] 24/0/2 2580 [11967] 24/0/3 0 [11968] 23/0/2 154 [11969] 0/1/1 40 [11970] 6/0/0 4738 [11971] 89783 10 0 0 0 4630 SELECT LITERAL 2/0/0 4312 [11972] 89784 5 908 14 0 0 0 TRANSFER 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 11 [11974] 89785 0 8 10 2 0 0 TOTAL CHAPS IN OBJECT PROGRAM SELECT 2/1/0 5086 [11975] 89786 5 16 10 1 0 0 TRANSFER 26/1/1 5086 [11976] 89787 91 16 10 0 1 0 0:X SET MODIFICATION REGISTER AT VARIABLE 1/1/3 4 [11977] 89788 10 0 0 0 4 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 7/1/0 11 [11979] 89789 4 8 10 2 0 0 AUGMENT 26/0/0 4217 [11980] 89790 80 904 2 0 0 0 >WRITE ENTER SUBROUTINE Start of procedure 898 at location 3789 in chapter 7 [11981] [11981] 89800 PROCR 898 COPY OBJECT PROGRAM: JOIN ON TRANSLATOR 26/0/0 3616 [11981] 89802 80 894 2 0 0 0 READ A2 ENTER SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 4 [11983] 89803 8 4 1 0 0 SELECT 5/1/0 4300 [11984] 89804 2 908 2 1 0 0 'PREND' SUBTRACT 27/0/1 3803 [11985] 89805 71 898 8 0 0 0 >NO JUMP IF A != 0 0/1/0 40 [11986] 89806 41 A2 0 0 0 1 CSE CLOSE FILE 0/0/3 0 [11987] 6/1/0 0 [11988] 1/1/1 36 [11989] 25/1/1 4096 [11990] 24/0/3 0 [11991] 23/0/2 41 [11992] 0/1/1 40 [11993] 24/1/0 3805 [11994] 89807 76 898 10 0 0 0 JUMP unconditional 26/0/0 4217 [11995] 89808 80 904 2 0 0 0 >WRITE A6 ENTER SUBROUTINE Source: RayS/Q1000778 24/1/0 3789 [11996] 89809 76 898 2 0 0 0 JUMP unconditional 26/0/0 4241 [11997] 89810 80 905 2 0 0 0 >READ A1 TO SEC 8 OF TRANSLATOR ENTER SUBROUTINE 26/0/0 4269 [11998] 89811 80 907 2 0 0 0 'CHAPT' SR ENTER SUBROUTINE 27/0/1 3805 [11999] 89812 71 898 10 0 0 0 >NOT START JUMP IF A != 0 24/1/0 3812 [12000] 89813 76 898 17 0 0 0 >(AT START OF PASS 1 NOW) JUMP unconditional 26/0/0 4241 [12001] 89814 80 905 2 0 0 0 >READ A1 ENTER SUBROUTINE 26/0/0 4269 [12002] 89815 80 907 2 0 0 0 >'CHAPT' SR ENTER SUBROUTINE 27/0/1 3823 [12003] 89816 71 898 27 0 0 0 >NO JUMP IF A != 0 26/0/0 4241 [12004] 89817 80 905 2 0 0 0 READ/WRITE FIRST BLOCK ENTER SUBROUTINE 26/0/0 4217 [12005] 89818 80 904 2 0 0 0 ENTER SUBROUTINE 26/0/0 4241 [12006] 89819 80 905 2 0 0 0 READ/WRITE SECOND BLOCK ENTER SUBROUTINE 26/0/0 4217 [12007] 89820 80 904 2 0 0 0 ENTER SUBROUTINE 26/0/0 4241 [12008] 89821 80 905 2 0 0 0 READ BLOCK WITH LOCN 35=1/1/3 N ENTER SUBROUTINE 6/0/0 5086 [12009] 89822 0 16 10 0 0 0 X=TOT CHAPS IN OBJECT PROGM SELECT 4/0/0 4739 [12010] 89823 11 0 0 0 1.001 1/1/3 1 ADD LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 51 [12012] 89824 5 8 50 2 0 0 TRANSFER 1/1/3 1 [12013] 89825 10 0 0 0 1 SELECT LITERAL 7/0/0 5086 [12014] 89826 4 16 10 0 0 0 STEP CTR AUGMENT 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 4 [12016] 89827 8 4 1 0 0 SELECT 5/1/0 4300 [12017] 89828 2 908 2 1 0 0 'PREND' SUBTRACT 27/0/0 3950 [12018] 89829 70 899 10 0 0 0 >YES JUMP IF A == 0 26/0/0 4217 [12019] 89830 80 904 2 0 0 0 >WRITE A6 ENTER SUBROUTINE 24/1/0 3809 [12020] 89831 76 898 14 0 0 0 >LOOP JUMP unconditional 26/0/0 3985 [12021] 89832 80 900 2 0 0 0 MERGE S/R ENTER SUBROUTINE 0/1/0 40 [12022] 89833 41 A1 0 0 0 1 CLOSE FILE 0/0/3 0 [12023] 6/1/0 0 [12024] 1/1/1 27 [12025] 25/1/1 4096 [12026] 24/0/3 0 [12027] 23/0/2 41 [12028] 0/1/1 40 [12029] 0/1/0 40 [12030] 89834 40 A1 0 0 0 1 OPEN FILE 0/0/3 0 [12031] 0/1/2 4982 [12032] 6/1/0 4984 [12033] 1/1/1 27 [12034] 25/1/1 4096 [12035] 24/0/3 0 [12036] 23/0/2 40 [12037] 0/0/3 44 [12038] 26/0/0 4206 [12039] 89835 80 903 2 0 0 0 READ A1 TO SECN 7 ENTER SUBROUTINE 26/0/0 4252 [12040] 89836 80 906 2 0 0 0 ENTER SUBROUTINE 24/1/0 3851 [12041] 0/0/1 4483 [12042] 89837 C 909 83 0 0 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 6 [12044] 89838 7 6 1 0 0 SELECT 5/1/0 4310 [12045] 89839 2 908 12 1 0 0 'INDEX' SUBTRACT 27/0/1 3847 [12046] 89840 71 898 35 0 0 0 >GET TO INDEX BLOCK JUMP IF A != 0 26/0/0 4206 [12047] 89841 80 903 2 0 0 0 ENTER SUBROUTINE 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 5 [12049] 89842 7 4 2 0 0 SELECT 5/0/0 4740 [12050] 89843 12 0 0 0 8000 SUBTRACT LITERAL 27/0/1 3847 [12051] 89844 71 898 35 0 0 0 >GET TO TRANS JUMP IF A != 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 7 [12053] 89845 7 6 2 0 0 SELECT 18/0/1 4126 [12054] 89846 30 0 0 0 2- SHIFT (A) BY QUARTETS 1/1/2 2201 [12055] 89847 12 0 0 0 899 SUBTRACT LITERAL 27/0/1 3847 [12056] 89848 71 898 35 0 0 0 >GET TO 899 VERSION JUMP IF A != 0 26/0/0 4206 [12057] 89849 80 903 2 0 0 0 READ ENTER SUBROUTINE 26/0/0 4252 [12058] 89850 80 906 2 0 0 0 ENTER SUBROUTINE 24/1/0 3869 [12059] 0/0/1 4483 [12060] 89851 C 909 83 0 0 0 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/0 42 [12062] 89852 7 42 1 0 0 SELECT 5/1/0 4308 [12063] 89853 2 908 10 1 0 0 'ALLOC' SUBTRACT 27/0/1 3865 [12064] 89854 71 898 49 0 0 0 >GET TO ALLOC BLOCK JUMP IF A != 0 26/1/1 4986 [12065] 89855 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [12066] 89856 C 0 0 0 6 Limit 6/0/1 2574 [12066] 89857 870 4 0 1 0 SELECT 24/1/2 17 Extra code needed to address transit area no 2, section 7 5/1/1 25 [12068] 89858 2 7 24 2 1 0 SUBTRACT 27/0/3 3881 [12069] 89859 73 898 62 0 0 0 JUMP IF A < 0 25/0/1 2 [12070] 89860 94 898 57 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3874 [12071] s 24/1/0 3664 [12072] 89861 76 897 15 0 0 0 >ALL CHAPS OK JUMP unconditional 0/1/0 40 [12073] 89862 46 A6 10 0 0 0 RUN BACK TO PASS 3 START RUN BACK 0/0/3 0 [12074] 0/1/2 4988 [12075] 89863 C 0 0 0 2 RUN BACK 6/1/0 0 [12076] 1/1/1 45 [12077] 25/1/1 4096 [12078] 24/0/3 0 [12079] 23/0/2 46 [12080] 0/1/1 40 [12081] 0/1/0 40 [12082] 89864 42 A6 0 0 0 0 READ INPUT 0/0/3 0 [12083] 0/0/2 18 [12084] 89865 C 8 0 0 0 0 INPUT 6/1/0 0 [12085] 1/1/1 45 [12086] 25/1/1 4096 [12087] 24/0/3 0 [12088] 23/0/2 42 [12089] 0/1/1 40 [12090] Source: KenK/Q1000779 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 42 [12092] 89866 8 42 1 0 0 SELECT 5/1/0 4308 [12093] 89867 2 908 10 1 0 0 ALLOC' SUBTRACT 27/0/1 3890 [12094] 89868 71 898 64 0 0 0 gGET TO ALLOC BLOCK JUMP IF A != 0 26/1/1 4990 [12095] 89869 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [12096] 89870 C 0 0 0 6 Limit 24/1/2 17 Extra code needed to address transit area no 2, section 7 6/1/1 25 [12097] 89871 7 24 2 1 0 SELECT 5/0/1 2574 [12098] 89872 2 870 4 0 1 0 SUBTRACT 27/0/3 3911 [12099] 89873 73 898 76 0 0 0 gCHAP NOT BIGGER JUMP IF A < 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 7/1/1 25 [12101] 89874 4 8 24 2 1 0 AUGMENT 7/0/1 2574 [12102] 89875 4 870 4 0 1 0 AUGMENT 25/0/1 2 [12103] 89876 94 898 71 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 3904 [12104] s 0/1/0 40 [12105] 89877 48 A6 0 0 0 3 STEP BACK 0/0/3 0 [12106] 0/1/2 4992 [12107] 89878 C 0 0 0 1 STEP BACK 6/1/0 0 [12108] 1/1/1 45 [12109] 25/1/1 4096 [12110] 24/0/3 0 [12111] 23/0/2 48 [12112] 0/1/1 40 [12113] 26/0/0 4217 [12114] 89879 80 904 2 0 0 0 REWRITE ALLOC BLOCK ENTER SUBROUTINE 0/1/0 40 [12115] 89880 47 A6 2 0 0 0 RUN ON 0/0/3 0 [12116] 0/1/2 4994 [12117] 89881 C 0 0 0 ppppp RUN ON 6/1/0 0 [12118] 1/1/1 45 [12119] 25/1/1 4096 [12120] 24/0/3 0 [12121] 23/0/2 47 [12122] 0/1/1 40 [12123] 0/1/0 40 [12124] 89882 48 A6 0 0 0 0 STEP BACK 0/0/3 0 [12125] 0/1/2 4996 [12126] 89883 C 0 0 0 1 STEP BACK 6/1/0 0 [12127] 1/1/1 45 [12128] 25/1/1 4096 [12129] 24/0/3 0 [12130] 23/0/2 48 [12131] 0/1/1 40 [12132] 24/1/0 3664 [12133] 89884 76 897 15 0 0 0 gJOIN UP JUMP unconditional Start of procedure 899 at location 3942 in chapter 7 [12134] [12134] 89900 PROCR 899 END ROUTINE 0/0/0 0 [12134] 89902 81 899 2 0 0 0 CONVERT S/R START OF SUBROUTINE 2/0/0 2572 [12135] 89903 5 870 2 0 0 0 TRANSFER 0/0/3 4741 [12136] 89904 60 0 0 0 0 SET DECIMAL RADIX 24/0/2 4422 [12137] 89905 124 909 22 0 2 0 SELECT LITERAL AND DIVISION 12/0/0 2572 [12138] 89906 112 870 2 0 0 0 CONVERT 2/0/1 2574 [12139] 89907 5 870 4 0 1 0 TRANSFER 0/0/3 0 [12140] 89908 62 0 0 0 0 SET EXCESS CONSTANTS 26/0/1 3942 [12141] 89909 82 899 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE 26/0/0 4217 [12142] 89910 80 904 2 0 0 0 g WRITE 'PREND' ENTER SUBROUTINE 6/1/0 4324 [12143] 89911 908 26 1 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 4 [12145] 89912 5 8 4 1 0 0 TRANSFER 6/1/0 4310 [12146] 89913 0 908 12 1 0 0 INDEX' SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 6 [12148] 89914 5 8 6 1 0 0 TRANSFER 6/0/0 4742 [12149] 89915 10 0 0 0 ppppp SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 9 [12151] 89916 5 8 8 2 0 0 TRANSFER 1/1/3 3 [12152] 89917 10 0 0 0 3 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 10 [12154] 89918 5 8 10 1 0 0 TRANSFER 26/0/0 4217 [12155] 89919 80 904 2 0 0 0 g WRITE 2ND INDEX BLOCK ENTER SUBROUTINE 26/0/0 4189 [12156] 89920 80 902 2 0 0 0 ENTER SUBROUTINE 0/1/0 40 [12157] 89921 41 A1 0 0 0 1 CLOSE FILE 0/0/3 0 [12158] 6/1/0 0 [12159] 1/1/1 27 [12160] 25/1/1 4096 [12161] 24/0/3 0 [12162] 23/0/2 41 [12163] 0/1/1 40 [12164] 0/1/0 40 [12165] 89922 41 A6 0 0 0 0 CLOSE FILE 0/0/3 0 [12166] 6/1/0 0 [12167] 1/1/1 45 [12168] 25/1/1 4096 [12169] 24/0/3 0 [12170] 23/0/2 41 [12171] 0/1/1 40 [12172] 25/1/2 0 [12173] 89923 125 0 1 2 0 CLEAR INTERROGATE INDICATORS 2/0/0 4358 [12174] 89924 5 908 60 0 0 0 TRANSFER 2/0/0 4498 [12175] 89925 5 909 98 0 0 0 TRANSFER 24/1/0 3316 [12176] 89926 76 884 40 0 0 0 JUMP unconditional Start of procedure 900 at location 3985 in chapter 7 [12177] [12177] 90000 PROCR 900 S/R TO MERGE 08066 AND 08061 0/0/0 0 [12177] 90002 81 900 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [12178] 90003 40 A6 0 0 0 0 OPEN FILE 0/0/3 0 [12179] 0/1/2 4998 [12180] 6/1/0 5000 [12181] 1/1/1 45 [12182] 25/1/1 4096 [12183] 24/0/3 0 [12184] 23/0/2 40 [12185] 0/0/3 44 [12186] 18/1/1 10 [12187] 90004 32 0 0 0 10 SHIFT (AB) BY QUARTETS 2/0/0 2569 [12188] 90005 5 869 14 0 0 0 SPOOL NUMBER TRANSFER 26/0/0 4217 [12189] 90006 80 904 2 0 0 0 WRITE 2 BLANK BLOCKS ENTER SUBROUTINE 26/0/0 4217 [12190] 90007 80 904 2 0 0 0 ENTER SUBROUTINE 6/1/0 4324 [12191] 90008 908 26 1 0 0 ALIGNMENT MARKS SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 4 [12193] 90009 5 8 4 1 0 0 TRANSFER 6/1/0 4310 [12194] 90010 908 12 1 0 0 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 6 [12196] 90011 5 8 6 1 0 0 INDEX' TRANSFER 6/0/0 4743 [12197] 90012 10 0 0 0 ppppp SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 9 [12199] 90013 5 8 8 2 0 0 TRANSFER Source: KenK/Q1000780 1/1/3 2 [12200] 90014 10 0 0 0 2 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 11 [12202] 90015 5 8 10 2 0 0 TRANSFER 26/0/0 4217 [12203] 90016 80 904 2 0 0 0 WRITE ENTER SUBROUTINE 26/0/0 4189 [12204] 90017 80 902 2 0 0 0 WRITE 2ND INDEX BLOCK ENTER SUBROUTINE 0/1/0 40 [12205] 90018 47 A2 10 0 0 0 RUN ON 0/0/3 0 [12206] 0/1/2 5002 [12207] 90019 C 0 0 0 2 RUN ON 6/1/0 0 [12208] 1/1/1 36 [12209] 25/1/1 4096 [12210] 24/0/3 0 [12211] 23/0/2 47 [12212] 0/1/1 40 [12213] 26/0/0 3616 [12214] 90020 80 894 2 0 0 0 READ A2 TO SCN 8 ENTER SUBROUTINE 26/0/0 4252 [12215] 90021 80 906 2 0 0 0 ENTER SUBROUTINE 24/1/0 4026 [12216] 0/0/1 4482 [12217] 90022 C 909 82 0 0 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 12 [12219] 90023 8 12 1 0 0 SELECT 5/1/0 5004 [12220] 90024 12 0 0 0 6751727243 'PASS 3' SUBTRACT LITERAL 27/0/1 4022 [12221] 90025 71 900 20 0 0 0 gREAD TILL PASS 3 JUMP IF A != 0 26/0/0 4217 [12222] 90026 80 904 2 0 0 0 WRITE ENTER SUBROUTINE 26/0/0 3616 [12223] 90027 80 894 2 0 0 0 READ A2 ENTER SUBROUTINE 26/0/0 4252 [12224] 90028 80 906 2 0 0 0 ENTER SUBROUTINE 24/1/0 4035 [12225] 0/0/1 4482 [12226] 90029 C 909 82 0 0 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 42 [12228] 90030 8 42 1 0 0 SELECT 5/1/0 4308 [12229] 90031 2 908 10 1 0 0 'ALLOC' SUBTRACT 27/0/1 4030 [12230] 90032 71 900 26 0 0 0 gCOPY BLOCKS TILL 'ALLOC' JUMP IF A != 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 11 [12232] 90033 8 10 2 0 0 SELECT 2/1/0 5086 [12233] 90034 5 16 10 1 0 0 TRANSFER 26/1/1 5006 [12234] 90035 90 0 0 1 0 ;STORE CHAP LENGHTS SET MODIFICATION REGISTER AT LITERAL [12235] 90036 C 0 0 0 6 Limit 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/1 25 [12236] 90037 8 24 2 1 0 SELECT 2/0/1 2574 [12237] 90038 5 870 4 0 1 0 TRANSFER 25/0/1 2 [12238] 90039 94 900 37 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4043 [12239] s 26/0/0 4217 [12240] 90040 80 904 2 0 0 0 WRITE ENTER SUBROUTINE 26/0/0 3616 [12241] 90041 80 894 2 0 0 0 READ A2 ENTER SUBROUTINE 26/0/0 4252 [12242] 90042 80 906 2 0 0 0 ENTER SUBROUTINE 24/1/0 4053 [12243] 0/0/1 4482 [12244] 90043 C 909 82 0 0 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 12 [12246] 90044 8 12 1 0 0 SELECT 5/1/0 4306 [12247] 90045 2 908 8 1 0 0 'CHAPT' SUBTRACT 27/0/1 4048 [12248] 90046 71 900 40 0 0 0 WRITE UNTIL CHAPT JUMP IF A != 0 Start of procedure 901 at location 4057 in chapter 7 [12249] [12249] 90100 PROCR 901 0/1/0 40 [12249] 90102 40 A1 0 0 0 1 OPEN FILE 0/0/3 0 [12250] 0/1/2 5008 [12251] 6/1/0 5010 [12252] 1/1/1 27 [12253] 25/1/1 4096 [12254] 24/0/3 0 [12255] 23/0/2 40 [12256] 0/0/3 44 [12257] 26/0/0 4241 [12258] 90103 80 905 2 0 0 0 READ A1 ENTER SUBROUTINE 26/0/0 4252 [12259] 90104 80 906 2 0 0 0 ENTER SUBROUTINE 24/1/0 4070 [12260] 0/0/1 4483 [12261] 90105 C 909 83 0 0 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 6 [12263] 90106 8 6 1 0 0 SELECT 5/1/0 4310 [12264] 90107 2 908 12 1 0 0 'INDEX' SUBTRACT 27/0/1 4066 [12265] 90108 71 901 3 0 0 0 gGET TO INDEX JUMP IF A != 0 26/0/0 4241 [12266] 90109 80 905 2 0 0 0 READ NEXT BLOCK ENTER SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 5 [12268] 90110 8 4 2 0 0 SELECT 5/0/0 4744 [12269] 90111 12 0 0 0 8061 HAS CORR PROG BEEN LOADED? SUBTRACT LITERAL 27/0/1 3650 [12270] 90112 71 897 5 0 0 0 gNO, RETURN TO *05 JUMP IF A != 0 26/0/0 4241 [12271] 90113 80 905 2 0 0 0 READ A1 ENTER SUBROUTINE 26/0/0 4252 [12272] 90114 80 906 2 0 0 0 ENTER SUBROUTINE 24/1/0 4083 [12273] 0/0/1 4483 [12274] 90115 C 909 83 0 0 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 42 [12276] 90116 0 8 42 1 0 0 SELECT 5/1/0 4308 [12277] 90117 2 908 10 1 0 0 'ALLOC' SUBTRACT 27/0/1 4079 [12278] 90118 71 901 13 0 0 0 gGET TO ALLOC JUMP IF A != 0 26/1/1 5012 [12279] 90119 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL [12280] 90120 C 0 0 0 6 ;COMPARE CHAP LENGHTS Limit 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/1 25 [12281] 90121 8 24 2 1 0 ;08066 AND 08061 SELECT 5/0/1 2574 [12282] 90122 2 870 4 0 1 0 SUBTRACT 27/0/3 4093 [12283] 90123 73 901 25 0 0 0 JUMP IF A < 0 7/0/1 2574 [12284] 90124 4 870 4 0 1 0 AUGMENT 25/0/1 2 [12285] 90125 94 901 21 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4088 [12286] s 26/0/0 4241 [12287] 90126 80 905 2 0 0 0 READ A1 TO SECN 8 ENTER SUBROUTINE Source: KenK/Q1000781 26/0/0 4252 [12288] 90127 80 906 2 0 0 0 ENTER SUBROUTINE 24/1/0 4099 [12289] 0/0/1 4483 [12290] 90128 C 909 83 0 0 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 12 [12292] 90129 8 12 1 0 0 SELECT 5/1/0 4306 [12293] 90130 2 908 8 1 0 0 'CHAPT' SUBTRACT 27/0/1 4095 [12294] 90131 71 901 26 0 0 0 gGET TO'CHAPT' JUMP IF A != 0 26/1/1 5014 [12295] 90132 90 0 0 1 1 SET MODIFICATION REGISTER AT LITERAL [12296] 90133 C 0 0 0 5 Limit 6/0/0 5078 [12296] 90134 16 2 0 0 0 PROG ID 08066 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 9 [12298] 90135 5 8 8 2 0 0 TRANSFER 6/0/0 5079 [12299] 90136 16 3 0 0 0 SERIAL SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 11 [12301] 90137 5 8 10 2 0 0 TRANSFER 26/0/0 4217 [12302] 90138 80 904 2 0 0 0 WRITE ENTER SUBROUTINE 26/0/0 4241 [12303] 90139 80 905 2 0 0 0 READ ENTER SUBROUTINE 26/0/0 4252 [12304] 90140 80 906 2 0 0 0 ENTER SUBROUTINE 24/1/0 4115 [12305] 0/0/1 4483 [12306] 90141 C 909 83 0 0 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 12 [12308] 90142 8 12 1 0 0 SELECT 5/1/0 4306 [12309] 90143 2 908 8 1 0 0 'CHAPT' SUBTRACT 27/0/1 4110 [12310] 90144 71 901 38 0 0 0 gWRITE CONTENTS JUMP IF A != 0 25/0/1 1 [12311] 90145 94 901 34 0 1 1 gWRITE CHAPT BLOCK STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4104 [12312] s 26/0/0 3616 [12313] 90146 80 894 2 0 0 0 READ A2 ENTER SUBROUTINE 26/0/0 4252 [12314] 90147 80 906 2 0 0 0 ENTER SUBROUTINE 24/1/0 4125 [12315] 0/0/1 4482 [12316] 90148 C 909 82 0 0 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 12 [12318] 90149 8 12 1 0 0 SELECT 5/1/0 4306 [12319] 90150 2 908 8 1 0 0 'CHAPT' SUBTRACT 27/0/1 4121 [12320] 90151 71 901 46 0 0 0 gGET TO CHAPT JUMP IF A != 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 5 [12322] 90152 8 4 2 0 0 SELECT 1/1/2 5 [12323] 90153 12 0 0 0 5 SUBTRACT LITERAL 27/0/1 4121 [12324] 90154 71 901 46 0 0 0 gGET TO CHAPT 5 JUMP IF A != 0 26/1/1 5016 [12325] 90155 90 0 0 1 5 SET MODIFICATION REGISTER AT LITERAL [12326] 90156 C 0 0 0 10 Limit 26/0/0 4217 [12326] 90157 80 904 2 0 0 0 WRITE ENTER SUBROUTINE 26/0/0 3616 [12327] 90158 80 894 2 0 0 0 READ A2 ENTER SUBROUTINE 26/0/0 4252 [12328] 90159 80 906 2 0 0 0 ENTER SUBROUTINE 24/1/0 4139 [12329] 0/0/1 4482 [12330] 90160 C 909 82 0 0 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 12 [12332] 90161 8 12 1 0 0 SELECT 5/1/0 4306 [12333] 90162 2 908 8 1 0 0 'CHAPT' SUBTRACT 27/0/1 4134 [12334] 90163 71 901 57 0 0 0 gWRITE CONTENTS JUMP IF A != 0 25/0/1 1 [12335] 90164 94 901 57 0 1 1 gWRITE CHAPT BLOCK STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 4134 [12336] s 26/0/0 4241 [12337] 90165 80 905 2 0 0 0 READ A1 ENTER SUBROUTINE 26/0/0 4252 [12338] 90166 80 906 2 0 0 0 ENTER SUBROUTINE 24/1/0 4149 [12339] 0/0/1 4483 [12340] 90167 C 909 83 0 0 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 12 [12342] 90168 8 12 1 0 0 SELECT 5/1/0 4306 [12343] 90169 2 908 8 1 0 0 'CHAPT' SUBTRACT 27/0/1 4145 [12344] 90170 71 901 65 0 0 0 GET TO CHAPT JUMP IF A != 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 5 [12346] 90171 8 4 2 0 0 SELECT 1/1/2 10 [12347] 90172 101 10 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 4145 [12348] 90173 71 901 65 0 0 0 gGET TO CHAPT 10 JUMP IF A != 0 6/0/0 5078 [12349] 90174 16 2 0 0 0 PROG ID 08066 SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 9 [12351] 90175 5 8 8 2 0 0 TRANSFER 6/0/0 5079 [12352] 90176 16 3 0 0 0 SERIAL SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 11 [12354] 90177 5 8 10 2 0 0 TRANSFER 26/0/0 4217 [12355] 90178 80 904 2 0 0 0 WRITE ENTER SUBROUTINE 26/0/0 4241 [12356] 90179 80 905 2 0 0 0 READ A1 ENTER SUBROUTINE 26/0/0 4252 [12357] 90180 80 906 2 0 0 0 ENTER SUBROUTINE 24/1/0 4168 [12358] 0/0/1 4483 [12359] 90181 C 909 83 0 0 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 4 [12361] 90182 8 4 1 0 0 SELECT 5/1/0 4300 [12362] 90183 2 908 2 1 0 0 'PREND' SUBTRACT Source: RayS/Q1000782 27/0/0 4180 [12363] 90184 70 901 91 0 0 0 JUMP IF A == 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 12 [12365] 90185 8 12 1 0 0 SELECT 5/1/0 4306 [12366] 90186 2 908 8 1 0 0 'CHAPT' SUBTRACT 27/0/1 4163 [12367] 90187 71 901 78 0 0 0 >WRITE CONTENTS JUMP IF A != 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 5 [12369] 90188 8 4 2 0 0 SELECT 1/1/2 13 [12370] 90189 101 13 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 4157 [12371] 90190 71 901 74 0 0 0 >WRITE CHAPT BLOCK JUMP IF A != 0 0/1/0 40 [12372] 90191 41 A2 0 0 0 1 CLOSE FILE 0/0/3 0 [12373] 6/1/0 0 [12374] 1/1/1 36 [12375] 25/1/1 4096 [12376] 24/0/3 0 [12377] 23/0/2 41 [12378] 0/1/1 40 [12379] 26/0/1 3985 [12380] 90192 82 900 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 902 at location 4189 in chapter 7 [12381] [12381] 90200 PROCR 902 WRITE 2ND INDEX BLOCK S/R 0/0/0 0 [12381] 90202 81 902 2 0 0 0 START OF SUBROUTINE 6/0/0 5078 [12382] 90203 16 2 0 0 0 PROG ID SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 5 [12384] 90204 5 8 4 2 0 0 TRANSFER 6/0/0 5079 [12385] 90205 16 3 0 0 0 SERIAL SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 7 [12387] 90206 5 8 6 2 0 0 TRANSFER 1/1/3 2 [12388] 90207 10 0 0 0 2 SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 3/1/0 9 [12390] 90208 3 8 8 2 0 0 COPY 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 11 [12392] 90209 5 8 10 2 0 0 TRANSFER 6/0/0 4745 [12393] 90210 10 0 0 0 £££££ SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 13 [12395] 90211 5 8 12 2 0 0 TRANSFER 26/0/0 4217 [12396] 90212 80 904 2 0 0 0 WRITE ENTER SUBROUTINE 26/0/1 4189 [12397] 90213 82 902 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 903 at location 4206 in chapter 7 [12398] [12398] 90300 PROCR 903 READ A1>SEC 7 0/0/0 0 [12398] 90302 81 903 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [12399] 90303 42 A1 0 0 0 0 INPUT 0/0/3 0 [12400] 0/0/2 16 [12401] 90304 C 7 0 0 0 0 INPUT 6/1/0 0 [12402] 1/1/1 27 [12403] 25/1/1 4096 [12404] 24/0/3 0 [12405] 23/0/2 42 [12406] 0/1/1 40 [12407] 26/0/1 4206 [12408] 90305 82 903 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 904 at location 4217 in chapter 7 [12409] [12409] 90400 PROCR 904 WRITE SEC 8>A6 0/0/0 0 [12409] 90402 81 904 2 0 0 0 START OF SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 24/0/2 4 [12411] 90403 55 8 4 1 0 50 BULK COPY 18/1/0 4123 [12412] 90404 C 9 4 1 0 0 1/1/3 50 [12413] 18/1/1 5 [12414] 24/1/2 21 Extra code needed to address transit area no 4, section 9 28/1/1 4 [12416] 6/1/0 4322 [12417] 90405 908 24 1 0 0 BEW SELECT 24/1/2 21 Extra code needed to address transit area no 4, section 9 2/1/0 52 [12419] 90406 5 9 52 1 0 0 TRANSFER 6/1/0 5018 [12420] 90407 54 8 4 1 0 50 BULK CLEAR 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [12422] 0/1/0 40 [12423] 90408 43 A6 0 0 0 0 OUTPUT 0/0/3 0 [12424] 0/0/2 20 [12425] 90409 C 9 0 0 0 0 OUTPUT 6/1/0 0 [12426] 1/1/1 45 [12427] 25/1/1 4096 [12428] 24/0/3 0 [12429] 23/0/2 43 [12430] 0/1/1 40 [12431] 26/0/1 4217 [12432] 90410 82 904 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 905 at location 4241 in chapter 7 [12433] [12433] 90500 PROCR 905 READ A1>SEC 8 0/0/0 0 [12433] 90502 81 905 2 0 0 0 START OF SUBROUTINE 0/1/0 40 [12434] 90503 42 A1 0 0 0 0 INPUT 0/0/3 0 [12435] 0/0/2 18 [12436] 90504 C 8 0 0 0 0 INPUT 6/1/0 0 [12437] 1/1/1 27 [12438] 25/1/1 4096 [12439] 24/0/3 0 [12440] 23/0/2 42 [12441] 0/1/1 40 [12442] 26/0/1 4241 [12443] 90505 82 905 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 906 at location 4252 in chapter 7 [12444] [12444] 90600 PROCR 906 TEST FINIS ON A2 AND A1 (08066 ONLY) 0/0/0 0 [12444] 90602 81 906 2 0 0 0 START OF SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 4 [12446] 90603 8 4 1 0 0 SELECT 5/1/0 4304 [12447] 90604 2 908 6 1 0 0 'FINIS' SUBTRACT 27/0/1 4268 [12448] 90605 71 906 10 0 0 0 >NO JUMP IF A != 0 24/0/3 4252 Extra code needed to address caller 24/0/3 1 Extra code needed to address parameter 6/0/0 0 [12451] 90606 1001 0 0 0 0 SELECT 2/0/0 4494 [12452] 90607 5 909 94 0 0 0 TRANSFER 0/1/0 40 [12453] 90608 154 909 84 0 0 0 COMMENT IN LOG 0/0/3 0 [12454] 24/0/2 4484 [12455] 24/0/3 0 [12456] 23/0/2 154 [12457] 0/1/1 40 [12458] 24/1/0 3316 [12459] 90609 76 884 40 0 0 0 JUMP unconditional 26/0/1 4252 [12460] 90610 82 906 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 907 at location 4269 in chapter 7 [12461] [12461] 90700 PROCR 907 'CHAPT' SR 0/0/0 0 [12461] 90702 81 907 2 0 0 0 START OF SUBROUTINE Source: RayS/Q1000783 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 12 [12463] 90703 8 12 1 0 0 SELECT 5/1/0 4306 [12464] 90704 2 908 8 1 0 0 'CHAPT' SUBTRACT 27/0/1 4298 [12465] 90705 71 907 24 0 0 0 >NO JUMP IF A != 0 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 5 [12467] 90706 0 8 4 2 0 0 CHAP NUMBER SELECT 1/1/2 4 [12468] 90707 12 0 0 0 4 SUBTRACT LITERAL 5/0/0 4498 [12469] 90708 2 909 98 0 0 0 0 OR 9 SUBTRACT 27/0/3 4280 [12470] 90709 73 907 11 0 0 0 >CHAP 1, PASS 0, SPECIAL JUMP IF A < 0 24/1/0 4286 [12471] 90710 76 907 16 0 0 0 JUMP unconditional 26/0/0 4241 [12472] 90711 80 905 2 0 0 0 >READ ENTER SUBROUTINE 24/1/2 19 Extra code needed to address transit area no 3, section 8 6/1/0 12 [12474] 90712 0 8 12 1 0 0 SELECT 5/1/0 4306 [12475] 90713 2 908 8 1 0 0 'CHAPT' SUBTRACT 27/0/1 4280 [12476] 90714 71 907 11 0 0 0 >DRAIN TO NEXT CHAP START JUMP IF A != 0 24/1/0 4274 [12477] 90715 76 907 6 0 0 0 JUMP unconditional 25/0/1 1 [12478] 90716 125 1 0 1 0 STEP CTR STEP ON AND TEST 24/0/3 22 [12479] 90717 96 0 0 1 0 SELECT MODIFIER 6/0/0 2 [12480] 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 5 [12482] 90718 5 8 4 2 0 0 SET CHAP NUMBER TRANSFER 6/0/0 5078 [12483] 90719 16 2 0 0 0 OBJECT PROG ID SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 9 [12485] 90720 5 8 8 2 0 0 TRANSFER 6/0/0 5079 [12486] 90721 16 3 0 0 0 SERIAL SELECT 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 11 [12488] 90722 5 8 10 2 0 0 TRANSFER 26/0/0 4217 [12489] 90723 80 904 2 0 0 0 >WRITE A6 ENTER SUBROUTINE 26/0/1 4269 [12490] 90724 82 907 2 0 0 0 A CLEAR IF WAS 'CHAPT' END OF SUBROUTINE / LEAVE SUBROUTINE 31/1/3 8191 [12491] Start of procedure 908 at location 4300 in chapter 7 [12492] [12492] 90800 CONST 908 1 5/0/3 1364 [12492] 90802 (A)PREND; 56554 +67695 6/0/3 5781 [12493] 1/0/2 6501 [12494] 90804 CHAIN; 15965 +53585 5/0/1 5509 [12495] 5/0/2 6514 [12496] 90806 FINIS; 55972 +56596 5/0/3 1430 [12497] 1/0/3 1907 [12498] 90808 CHAPT; 16773 +53585 5/0/1 5509 [12499] 3/0/3 1619 [12500] 90810 ALLOC; 36653 +51636 5/0/0 5686 [12501] 4/0/2 5495 [12502] 90812 INDEX; 45577 +59655 5/1/0 5717 [12503] 0/0/2 1584 [12504] 90814 (A)08060; 04630 +30483 3/0/0 1155 [12505] 1/0/3 1906 [12506] 90816 CHAPS; 16772 +53585 5/0/1 5509 [12507] 0/0/3 1637 [12508] 90818 ON; 06665 +00000 0/0/0 0 [12509] 0/0/2 7774 [12510] 90820 (D)5.5.; 05E5E +00000 0/0/0 0 [12511] 0/0/0 48 [12512] 90822 (A)0; 00030 +00000 0/0/0 0 [12513] 0/0/0 126 [12514] 90824 (D)7.0000007.; 0007E +7E000 7/1/3 0 [12515] 15/0/3 3951 [12516] 90826 6£6£6£6£6£; F6F6F +6F6F6 6/1/3 5878 [12517] 4/0/2 5376 [12518] 90828 (A)MADE ; 45500 +64515 6/0/2 1301 [12519] 0/0/1 4168 [12520] 90830 BY 08; 03048 +52780 5/0/1 1920 [12521] 0/0/0 89 [12522] 90832 000 I; 00059 +30303 3/0/0 771 [12523] 4/0/2 5376 [12524] 90834 SSUE ; 45500 +72727 7/0/1 1831 [12525] 0/0/3 4693 [12526] 90836 8 SE; 07255 +48000 4/1/0 0 [12527] 1/0/3 768 [12528] 90838 RIAL ; 16300 +69595 6/1/0 5525 [12529] 0/0/1 4144 [12530] 90840 70000; 03030 +47303 4/0/3 4867 [12531] 0/0/0 113 [12532] 90842 /; 00071 +00000 0/0/0 0 [12533] 6/0/3 1635 [12534] 90844 SPOOL; 66663 +72676 7/0/1 1654 [12535] 0/0/1 4144 [12536] 90846 08000; 03030 +30483 3/0/0 1155 [12537] 2/0/2 5490 [12538] 90848 MAKES; 25572 +64516 6/0/2 1302 [12539] 7/0/3 6144 [12540] 90850 COPY ; 77800 +53666 5/0/1 5734 [12541] 2/0/3 4675 [12542] 90852 PASS3; 27243 +67517 6/0/3 5399 [12543] 0/0/0 48 [12544] 90854 0; WL'S 00030 +00000 0/0/0 0 [12545] 0/0/0 48 [12546] 90856 0; WL'S 00030 +00000 0/0/0 0 [12547] 0/0/0 48 [12548] 90858 0; WL'S 00030 +00000 0/0/0 0 [12549] 0/0/0 48 [12550] 90860 0; IND 00030 +00000 0/0/0 0 [12551] 0/0/3 1636 [12552] 90862 (A)PT OM; 06664 +67730 6/0/3 5936 [12553] 3/0/2 5460 [12554] 90864 ITTED; 35554 +59737 5/1/0 5943 [12555] 2/0/2 4466 [12556] 90866 DISAS; 25172 +54597 5/0/2 1431 [12557] 6/0/3 5234 [12558] 90868 TROUS; 67472 +73696 7/0/1 5782 [12559] 8/0/2 5481 [12560] 90870 OTHER; 85569 +66735 6/0/3 1845 [12561] Source: DaveJ/Q1000784 0/0/0 0 [12562] 90872 S ; 00000 +72000 7/0/1 0 [12563] 8/0/2 5490 [12564] 90874 YES; 85572 +00007 0/0/0 7 [12565] 0/0/3 1382 [12566] 90876 NO; 06566 +00000 0/0/0 0 [12567] 0/0/2 6501 [12568] 90878 IN; 05965 +00000 0/0/0 0 [12569] 9/0/2 4966 [12570] 90880 TERCO; 95366 +73556 7/0/1 5462 [12571] 0/0/0 0 [12572] 90882 DE ; 00000 +54550 5/0/2 1360 [12573] 3/0/3 2393 [12574] 90884 TRI; 36959 +00007 0/0/0 7 [12575] 0/0/2 5201 [12576] 90886 AL DA; 05451 +51630 5/0/0 5680 [12577] 0/0/0 0 [12578] 90888 TA ; 00000 +73510 7/0/1 5392 [12579] 9/0/2 6481 [12580] 90890 SERIA; 95951 +72556 7/0/1 1366 [12581] 5/0/3 5220 [12582] 90892 L NUM; 57464 +63006 6/0/1 4102 [12583] 9/0/3 4608 [12584] 90894 BERS ; 97200 +52556 5/0/1 1366 [12585] 0/0/2 6501 [12586] 90896 OF IN; 05965 +66560 6/0/3 1376 [12587] 9/0/2 4966 [12588] 90898 TERCO; 95366 +73556 7/0/1 5462 [12589] Query: !!!REPLICATED SERIAL NUMBER 0/0/3 2389 [12590] 90898 DE RE; ///// 06955 +54550 5/0/2 1360 [12591] Query: DITTO - NOT SURE WHAT WILL HAPPEN HERE 9/0/3 4978 [12592] 90898 PORTS; ///// 97372 +67666 6/0/3 5734 [12593] Start of procedure 909 at location 4402 in chapter 7 [12594] [12594] 90900 CONST 909 1 COMPILER'S CONVERT TABLES 0/0/0 1 [12594] 90902 (D)1; DEC->BIN 00001 +00000 0/0/0 0 [12595] 0/0/0 10 [12596] 90904 t; 0000A +00000 0/0/0 0 [12597] 0/0/0 100 [12598] 90906 64; 00064 +00000 0/0/0 0 [12599] 0/0/0 1000 [12600] 90908 3.8; 003E8 +00000 0/0/0 0 [12601] 0/0/1 1808 [12602] 90910 2710; 02710 +00000 0/0/0 0 [12603] 1/1/0 1696 [12604] 90912 186t0; 186A0 +00000 0/0/0 0 [12605] 15/0/2 576 [12606] 90914 p4240; F4240 +00000 0/0/0 0 [12607] 8/1/0 5760 [12608] 90916 989680; 89680 +00009 0/0/0 9 [12609] 5/1/3 256 [12610] 90918 5p5.100; 5E100 +0005F 0/0/0 95 [12611] 10/1/2 2560 [12612] 90920 3e9t+t00; ACA00 +003B9 0/0/0 953 [12613] 0/0/0 1 [12614] 90922 1; BIN->DEC 00001 +00000 0/0/0 0 [12615] 0/0/0 22 [12616] 90924 16; 00016 +00000 0/0/0 0 [12617] 0/0/0 598 [12618] 90926 256; 00256 +00000 0/0/0 0 [12619] 0/0/2 150 [12620] 90928 4096; 04096 +00000 0/0/0 0 [12621] 6/0/2 5430 [12622] 90930 65536; 65536 +00000 0/0/0 0 [12623] 4/1/0 1398 [12624] 90932 1048576; 48576 +00010 0/0/0 16 [12625] 7/0/3 4630 [12626] 90934 16777216; 77216 +00167 0/0/0 359 [12627] 3/0/2 5206 [12628] 90936 268435456; 35456 +02684 0/0/1 1668 [12629] 6/0/3 4758 [12630] 90938 4294967296; 67296 +42949 4/0/1 2377 [12631] 15/1/3 8191 [12632] 90940 pppppppppp; FFFFF +FFFFF 15/1/3 8191 [12633] 0/0/0 1 [12634] 90942 1; STERLINGgBIN 00001 +00000 0/0/0 0 [12635] 0/0/0 12 [12636] 90944 +; 0000C +00000 0/0/0 0 [12637] 0/0/0 120 [12638] 90946 78; 00078 +00000 0/0/0 0 [12639] 0/0/0 240 [12640] 90948 p0; 000F0 +00000 0/0/0 0 [12641] 0/0/0 2400 [12642] 90950 960; 00960 +00000 0/0/0 0 [12643] 0/0/2 7616 [12644] 90952 5:+0; 05DC0 +00000 0/0/0 0 [12645] 3/1/1 2432 [12646] 90954 3t980; 3A980 +00000 0/0/0 0 [12647] 4/1/0 7936 [12648] 90956 249p00; 49F00 +00002 0/0/0 2 [12649] 14/0/1 5632 [12650] 90958 16.3600; E3600 +00016 0/0/0 22 [12651] 14/0/0 7168 [12652] 90960 .4.1+00; E1C00 +000E4 0/0/0 228 [12653] 0/0/0 1 [12654] 90962 1; BINgSTERLING 00001 +00000 0/0/0 0 [12655] 0/0/0 20 [12656] 90964 14; 00014 +00000 0/0/0 0 [12657] 0/0/0 4116 [12658] 90966 1014; 01014 +00000 0/0/0 0 [12659] 1/0/3 4116 [12660] 90968 17014; 17014 +00000 0/0/0 0 [12661] 7/0/1 4116 [12662] 90970 273014; 73014 +00002 0/0/0 2 [12663] 6/1/0 4116 [12664] 90972 4369014; 69014 +00043 0/0/0 67 [12665] 0/0/2 4116 [12666] 90974 69905014; 05014 +00699 0/0/0 1689 [12667] 8/0/0 4116 [12668] 90976 1118481014; 81014 +11184 1/0/0 4484 [12669] 15/1/3 8191 [12670] 90978 pppppppppp; FFFFF +FFFFF 15/1/3 8191 [12671] 15/1/3 8191 [12672] 90980 pppppppppp; FFFFF +FFFFF 15/1/3 8191 [12673] 2/0/0 0 [12674] 90982 1000020000; 20000 +10000 1/0/0 0 [12675] 0/0/1 4144 [12676] 90984 (A)08000; 03030 +30483 3/0/0 1155 [12677] Source: DaveJ/Q1000785 5/0/2 5495 [12678] 90986 UNEX; 55577 +00746 0/0/0 1862 [12679] 3/0/3 4949 [12680] 90988 PECTE; 37355 +67555 6/0/3 5461 [12681] 6/0/2 6501 [12682] 90990 D FIN; 65965 +54005 5/0/2 5 [12683] 0/0/3 1637 [12684] 90992 IS ON; 06665 +59720 5/1/0 5920 [12685] 0/0/0 0 [12686] 90994 A ; 00000 +00510 0/0/0 1296 [12687] 0/0/2 7774 [12688] 90996 (D)5.5.; 05E5E +00000 0/0/0 0 [12689] 0/0/0 0 [12690] 90998 0; N.B. THIS IS NOT SPARE 00000 +00000 0/0/0 0 [12691] Start of procedure 910 at location 4500 in chapter 7 [12692] [12692] 91000 TABLE 910 1 0/0/1 4312 [12692] 91002 908 14 0 0 2 0 5 0 0 0 0 0 0 08060' 3/0/0 5 [12693] 0/0/1 4314 [12694] 91004 908 16 0 0 2 0 5 0 1 0 0 0 0 CHAPS' 3/0/0 21 [12695] 0/0/1 2574 [12696] 91006 870 4 0 0 0 0 5 0 1 4 0 0 0 LENGTHS 0/0/2 21 [12697] 0/0/1 2576 [12698] 91008 870 6 0 0 0 0 5 0 1 4 0 0 0 0/0/2 21 [12699] 0/0/1 2578 [12700] 91010 870 8 0 0 0 0 5 0 0 4 0 0 0 0/0/2 5 [12701] 0/0/1 4316 [12702] 91012 908 18 0 0 2 0 2 3 2 0 0 0 0 ON' 3/0/0 802 [12703] 0/0/1 2569 [12704] 91014 869 14 0 0 0 0 5 0 1 0 0 0 0 SPOOL NUMBER 0/0/0 21 [12705] 0/0/1 4318 [12706] 91016 908 20 0 0 2 0 2 3 0 0 0 0 1 DOUBLE LE 19/0/0 770 [12707] 0/0/1 4316 [12708] 91018 908 18 0 0 2 0 2 3 1 0 0 0 0 ON' 3/0/0 786 [12709] 0/0/1 4338 [12710] 91020 908 40 0 0 1 0 2 4 1 2 0 0 0 DAY 2/0/1 1042 [12711] 0/0/1 4340 [12712] 91022 908 42 0 0 2 0 1 4 0 0 0 0 0 /' 3/0/0 1025 [12713] 0/0/1 4338 [12714] 91024 908 40 0 0 0 0 2 1 0 2 0 0 0 MONTH 0/0/1 258 [12715] 0/0/1 4340 [12716] 91026 908 42 0 0 2 0 1 4 0 0 0 0 0 /' 3/0/0 1025 [12717] 0/0/1 4338 [12718] 91028 908 40 0 0 0 0 2 3 0 2 0 0 0 YEAR 0/0/1 770 [12719] 0/0/1 4342 [12720] 91030 908 44 0 0 2 0 5 0 2 0 0 0 0 SPOOL' 3/0/0 37 [12721] 0/0/1 4320 [12722] 91032 908 22 0 0 0 0 5 0 1 5 0 0 1 NUMBER 16/0/2 4117 [12723] 0/0/1 4344 [12724] 91034 908 46 0 0 2 0 5 0 2 0 0 0 0 08000' 3/0/0 37 [12725] 0/0/1 4346 [12726] 91036 908 48 0 0 2 0 5 0 1 0 0 0 0 MAKES 3/0/0 21 [12727] 0/0/1 4350 [12728] 91038 908 52 0 0 2 0 5 0 1 0 0 0 0 PASS5 3/0/0 21 [12729] 0/0/1 4348 [12730] 91040 908 50 0 0 2 0 5 0 1 0 0 0 0 COPY' 3/0/0 21 [12731] 0/0/1 4316 [12732] 91042 908 18 0 0 2 0 2 3 0 0 0 0 0 ON' 3/0/0 770 [12733] 0/0/1 4354 [12734] 91044 908 56 0 0 0 0 5 0 1 5 0 0 0 SPOOL NUMBER 0/0/2 4117 [12735] 0/0/1 4318 [12736] 91046 908 20 0 0 2 0 2 3 0 0 0 0 1 DOUBLE LINE END 19/0/0 770 [12737] 0/0/1 4241 [12738] 91048 905 2 0 0 0 0 3 2 0 2 0 0 0 REF----ACTIONS WITH NEG ADDRESS 0/0/1 515 [12739] 0/0/1 4217 [12740] 91050 904 2 0 0 0 0 5 0 2 4 0 0 1 PROCR 16/0/2 37 [12741] 0/0/1 4352 [12742] 91052 908 54 0 0 0 0 4 1 1 3 0 0 0 TRANSLATOR REPORTS 0/0/1 4372 [12743] 0/0/1 4354 [12744] 91054 908 56 0 0 0 0 5 0 10 4 0 0 0 08005 REPORTS 0/0/2 165 [12745] 0/0/1 6290 [12746] 91056 40 0 0 0 0 0 5 0 6 5 0 0 0 SERIAL NUMBERS OF 0/0/2 4197 [12747] 0/0/1 6291 [12748] 91058 40 1 0 0 0 0 5 0 1 5 0 0 0 INTERCODE REPORTS 0/0/2 4117 [12749] 0/0/1 6292 [12750] 91060 40 2 0 0 0 0 5 0 1 5 0 0 0 0/0/2 4117 [12751] 0/0/1 6293 [12752] 91062 40 3 0 0 0 0 5 0 1 5 0 0 0 0/0/2 4117 [12753] 0/0/1 6294 [12754] 91064 40 4 0 0 0 0 5 0 1 5 0 0 0 0/0/2 4117 [12755] 0/0/1 6295 [12756] 91066 40 5 0 0 0 0 5 0 1 5 0 0 0 0/0/2 4117 [12757] 0/0/1 6296 [12758] 91068 40 6 0 0 0 0 5 0 1 5 0 0 0 0/0/2 4117 [12759] 0/0/1 6297 [12760] 91070 40 7 0 0 0 0 5 0 1 5 0 0 0 0/0/2 4117 [12761] 0/0/1 6298 [12762] 91072 40 8 0 0 0 0 5 0 1 5 0 0 0 0/0/2 4117 [12763] 0/0/1 6299 [12764] 91074 40 9 0 0 0 0 5 0 1 5 0 0 1 16/0/2 4117 [12765] Start of procedure 911 at location 4574 in chapter 7 [12766] [12766] 91100 PROCR 911 CLOSE I/P FILE 0/0/0 0 [12766] 91102 81 911 2 0 0 0 START OF SUBROUTINE 6/1/0 4304 [12767] 91103 0 908 6 1 0 0 FINIS' SELECT 24/0/3 10 [12768] 91104 124 999 10 0 3 0 MODIFY ADDRESS OF NEXT 24/1/2 64 [12769] 91105 124 64 1 2 0 MODIFY ADDRESS OF NEXT 2/1/0 4 [12770] 91106 102 4 1 0 0 PLANT TRANSFER (A) TO N 0/1/0 40 [12771] 91107 41 A2 0 0 0 1 CLOSE FILE 0/0/3 0 [12772] 6/1/0 0 [12773] 1/1/1 36 [12774] 25/1/1 4096 [12775] 24/0/3 0 [12776] 23/0/2 41 [12777] 0/1/1 40 [12778] 26/0/1 4574 [12779] 91108 82 911 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 912 at location 4588 in chapter 7 [12780] [12780] 91200 PROCR 912 CONVERT TO DEC 0/0/0 0 [12780] 91202 81 912 2 0 0 0 START OF SUBROUTINE 2/0/0 4574 [12781] 91203 5 911 2 0 0 0 TRANSFER 0/0/3 4746 [12782] 91204 60 0 0 0 0 SET DECIMAL RADIX Source: DaveJ/Q1000786 24/0/2 4422 [12783] 91205 124 909 22 0 2 0 SELECT LITERAL AND DIVISION 12/0/0 4574 [12784] 91206 112 911 2 0 0 0 CONVERT 26/0/1 4588 [12785] 91207 82 912 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 913 at location 4594 in chapter 7 [12786] [12786] 91300 PROCR 913 O/P->A9 0/0/0 0 [12786] 91302 81 913 2 0 0 0 START OF SUBROUTINE 23/0/0 50 [12787] 91303 94 913 9 0 6 50 STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8180 [12788] 24/1/0 4604 [12789] s 6/1/0 4322 [12790] 91304 908 24 1 0 0 SELECT 24/1/2 13 Extra code needed to address transit area no 0, section 10 2/1/0 306 [12792] 91305 5 10 306 1 0 0 TRANSFER 26/0/0 4605 [12793] 91306 80 914 2 0 0 0 ENTER SUBROUTINE 6/1/0 5020 [12794] 91307 90 0 0 6 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8180 [12795] 91308 C 0 0 0 300 Simulated modifier 26/0/1 4594 [12796] 91309 82 913 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 914 at location 4605 in chapter 7 [12797] [12797] 91400 PROCR 914 WRITE A9 0/0/0 0 [12797] 91402 81 914 2 0 0 0 START OF SUBROUTINE 6/1/0 5022 [12798] 91403 10 0 0 0 800000 SELECT LITERAL 0/0/2 12 [12799] 91404 34 999 12 0 0 0 SEC 10 SET (N) IN B 25/1/1 4096 [12800] 91405 125 4096 1 1 0 CLEAR INDICATORS 4/0/0 7 [12801] 91406 1 999 7 0 0 0 D1/A9 ADD 24/0/3 0 [12802] 91407 124 999 0 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [12803] 91408 123 160 0 2 0 ENTER MASTER ROUTINE 26/0/1 4605 [12804] 91409 82 914 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 915 at location 4613 in chapter 7 [12805] [12805] 91500 PROCR 915 COPY WORDS FOR ERROR TOTALS REPORTS 0/0/0 0 [12805] 91502 81 915 2 0 0 0 START OF SUBROUTINE 6/1/1 4360 [12806] 91503 908 62 1 1 0 SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 6 [12808] 91504 5 5 6 1 0 0 TRANSFER 6/1/1 4362 [12809] 91505 908 64 1 1 0 SELECT 24/1/2 15 Extra code needed to address transit area no 1, section 5 2/1/0 8 [12811] 91506 5 5 8 1 0 0 TRANSFER 26/0/0 3470 [12812] 91507 80 888 2 0 0 0 >SUPPRESS I/C IF TRAMD ONLY ENTER SUBROUTINE 26/0/0 3530 [12813] 91508 80 892 2 0 0 0 PRINT ENTER SUBROUTINE 26/0/1 4613 [12814] 91509 82 915 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 916 at location 4623 in chapter 7 [12815] [12815] 91600 PROCR 916 EDIT NUMBER OF REPORTS 0/0/0 0 [12815] 91602 81 916 2 0 0 0 START OF SUBROUTINE 2/0/0 4352 [12816] 91603 5 908 54 0 0 0 TRANSFER 24/0/2 4550 [12817] 91604 52 5 12 0 0 0 EDIT 24/1/2 15 Extra code needed to address transit area no 1, section 5 28/1/2 12 [12819] 91605 C 910 52 0 0 0 24/0/2 6300 [12820] 91606 55 40 10 0 0 10 COPY'OTHERS'SERIAL NOS BULK COPY 18/1/0 4123 [12821] 91607 C 40 0 0 0 0 1/1/3 10 [12822] 18/1/1 5 [12823] 28/0/0 6290 [12824] 26/0/1 4623 [12825] 91608 82 916 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 917 at location 4634 in chapter 7 [12826] [12826] 91700 CONST 917 1 BLISTER SPACE PASS 5 0/0/0 0 [12826] 91702 (D)0; 00000 +00000 0/0/0 0 [12827] 0/0/0 0 [12828] 91704 0; 00000 +00000 0/0/0 0 [12829] 0/0/0 0 [12830] 91706 0; 00000 +00000 0/0/0 0 [12831] 0/0/0 0 [12832] 91708 0; 00000 +00000 0/0/0 0 [12833] 0/0/0 0 [12834] 91710 0; 00000 +00000 0/0/0 0 [12835] 0/0/0 0 [12836] 91712 0; 00000 +00000 0/0/0 0 [12837] 0/0/0 0 [12838] 91714 0; 00000 +00000 0/0/0 0 [12839] 0/0/0 0 [12840] 91716 0; 00000 +00000 0/0/0 0 [12841] 0/0/0 0 [12842] 91718 0; 00000 +00000 0/0/0 0 [12843] 0/0/0 0 [12844] 91720 0; 00000 +00000 0/0/0 0 [12845] 0/0/0 0 [12846] 91722 0; 00000 +00000 0/0/0 0 [12847] 0/0/0 0 [12848] 91724 0; 00000 +00000 0/0/0 0 [12849] 0/0/0 0 [12850] 91726 0; 00000 +00000 0/0/0 0 [12851] 0/0/0 0 [12852] 91728 0; 00000 +00000 0/0/0 0 [12853] 0/0/0 0 [12854] 91730 0; 00000 +00000 0/0/0 0 [12855] 0/0/0 0 [12856] 91732 0; 00000 +00000 0/0/0 0 [12857] Source: DaveJ/Q1000787 0/0/0 0 [12858] 91734 0; 00000 +00000 0/0/0 0 [12859] 0/0/0 0 [12860] 91736 0; 00000 +00000 0/0/0 0 [12861] 0/0/0 0 [12862] 91738 0; 00000 +00000 0/0/0 0 [12863] 0/0/0 0 [12864] 91740 0; 00000 +00000 0/0/0 0 [12865] 0/0/0 0 [12866] 91742 0; 00000 +00000 0/0/0 0 [12867] 0/0/0 0 [12868] 91744 0; 00000 +00000 0/0/0 0 [12869] 0/0/0 0 [12870] 91746 0; 00000 +00000 0/0/0 0 [12871] 0/0/0 0 [12872] 91748 0; 00000 +00000 0/0/0 0 [12873] 0/0/0 0 [12874] 91750 0; 00000 +00000 0/0/0 0 [12875] 0/0/0 0 [12876] 91752 0; 00000 +00000 0/0/0 0 [12877] 0/0/0 0 [12878] 91754 0; 00000 +00000 0/0/0 0 [12879] 0/0/0 0 [12880] 91756 0; 00000 +00000 0/0/0 0 [12881] 0/0/0 0 [12882] 91758 0; 00000 +00000 0/0/0 0 [12883] 0/0/0 0 [12884] 91760 0; 00000 +00000 0/0/0 0 [12885] Constants for chapter 7 short constants at 12886 long constants at 12940 0/0/1 0 [12886] 002000 0/0/2 0 [12887] 004000 0/0/3 0 [12888] 006000 1/0/0 0 [12889] 010000 8/1/0 6297 [12890] 089899 6/0/3 1638 [12891] 066666 16/0/0 1 [12892] 100001 6/0/3 1638 [12893] 066666 6/0/3 1638 [12894] 066666 1/0/0 0 [12895] 010000 16/0/0 1 [12896] 100001 6/0/3 1638 [12897] 066666 16/0/0 1 [12898] 100001 6/0/3 1638 [12899] 066666 6/0/3 1638 [12900] 066666 6/0/3 1638 [12901] 066666 6/0/3 1638 [12902] 066666 6/0/3 1638 [12903] 066666 6/0/3 1638 [12904] 066666 1/0/0 0 [12905] 010000 6/0/3 1638 [12906] 066666 0/0/2 0 [12907] 004000 0/0/3 6007 [12908] 007777 6/0/3 1638 [12909] 066666 2/1/2 704 [12910] 02C2C0 0/0/2 0 [12911] 004000 6/0/3 1638 [12912] 066666 6/0/3 1638 [12913] 066666 6/0/3 1638 [12914] 066666 6/0/3 1638 [12915] 066666 6/0/3 1638 [12916] 066666 0/1/0 0 [12917] 008000 0/1/0 4097 [12918] 009001 0/1/0 96 [12919] 008060 15/1/3 8191 [12920] 0FFFFF 15/1/3 8191 [12921] 0FFFFF 0/0/0 6 [12922] 000006 8/0/0 0 [12923] 080000 0/0/0 3 [12924] 000003 0/1/0 102 [12925] 008066 0/0/2 1584 [12926] 004630 15/1/3 8191 [12927] 0FFFFF 0/1/0 0 [12928] 008000 15/1/3 8191 [12929] 0FFFFF 0/0/2 1584 [12930] 004630 1/1/3 1 [12931] 01E001 0/1/0 0 [12932] 008000 6/0/3 1638 [12933] 066666 15/1/3 8191 [12934] 0FFFFF 15/1/3 8191 [12935] 0FFFFF 0/1/0 97 [12936] 008061 15/1/3 8191 [12937] 0FFFFF 6/0/3 1638 [12938] 066666 0/0/0 0 [12939] 000000 0/0/0 0 [12940] 000000 0/0/0 1010 [12941] 0003F2 0/0/0 0 [12942] 000000 0/0/0 48 [12943] 000030 0/0/0 0 [12944] 000000 2/0/0 3 [12945] 020003 0/0/0 1 [12946] 000001 0/0/0 0 [12947] 000000 4/0/0 0 [12948] 040000 5/0/2 5717 [12949] 055655 0/0/0 0 [12950] 000000 0/0/0 460 [12951] 0001CC 13/0/2 7551 [12952] 0D5D7F 5/1/2 5589 [12953] 05D5D5 13/0/2 7513 [12954] 0D5D59 5/1/2 5589 [12955] 05D5D5 0/0/0 0 [12956] 000000 0/0/0 100 [12957] 000064 13/0/2 7529 [12958] 0D5D69 5/1/2 5589 [12959] 05D5D5 5/0/3 1364 [12960] 056554 0/0/0 5 [12961] 000005 4/0/0 0 [12962] 040000 5/0/2 5717 [12963] 055655 0/0/0 0 [12964] 000000 0/0/0 7 [12965] 000007 0/0/0 0 [12966] 000000 5/0/1 4096 [12967] 053000 4/0/3 1127 [12968] 046467 0/0/0 1351 [12969] 000547 4/0/3 1127 [12970] 046467 0/0/0 1351 [12971] 000547 4/0/3 1127 [12972] 046467 0/0/0 1351 [12973] 000547 4/0/3 1127 [12974] 046467 0/0/0 1351 [12975] 000547 9/0/3 853 [12976] 096355 0/0/0 1381 [12977] 000565 5/0/3 1364 [12978] 056554 0/0/0 5 [12979] 000005 0/0/0 22 [12980] 000016 0/0/0 24 [12981] 000018 0/0/0 22 [12982] 000016 0/0/0 24 [12983] 000018 3/0/2 5457 [12984] 035551 5/0/3 1430 [12985] 056596 3/0/2 5457 [12986] 035551 5/0/3 1430 [12987] 056596 0/0/0 0 [12988] 000000 2/0/0 36 [12989] 020024 0/0/0 0 [12990] 000000 2/0/0 38 [12991] 020026 1/0/2 579 [12992] 014243 0/0/0 4 [12993] 000004 4/0/2 1350 [12994] 044546 4/0/1 1076 [12995] 042434 0/0/0 0 [12996] 000000 2/0/0 18 [12997] 020012 0/0/0 0 [12998] 000000 0/0/0 12 [12999] 00000C 0/0/0 0 [13000] 000000 2/0/0 18 [13001] 020012 0/0/0 0 [13002] 000000 2/0/0 50 [13003] 020032 0/0/0 0 [13004] 000000 0/0/0 14 [13005] 00000E 0/0/0 0 [13006] 000000 0/0/0 5 [13007] 000005 0/0/0 0 [13008] 000000 2/0/0 64 [13009] 020040 0/0/0 0 [13010] 000000 0/0/0 14 [13011] 00000E 5/0/3 1364 [13012] 056554 0/0/0 5 [13013] 000005 0/0/0 0 [13014] 000000 0/0/0 5 [13015] 000005 0/0/3 8191 [13016] 007FFF 0/0/0 5 [13017] 000005 0/0/0 0 [13018] 000000 2/0/0 10 [13019] 02000A 0/0/0 0 [13020] 000000 0/0/0 40 [13021] 000028 0/0/0 1 [13022] 000001 0/0/0 15 [13023] 00000F 0/0/0 0 [13024] 000000 0/0/0 7 [13025] 000007 0/0/0 0 [13026] 000000 0/0/0 14 [13027] 00000E 0/0/0 0 [13028] 000000 0/0/0 7 [13029] 000007 0/0/0 0 [13030] 000000 0/0/0 11 [13031] 00000B 5/0/3 1364 [13032] 056554 0/0/0 5 [13033] 000005 0/0/0 0 [13034] 000000 2/0/0 22 [13035] 020016 0/0/0 0 [13036] 000000 0/0/0 4 [13037] 000004 11/0/2 4864 [13038] 0B5300 0/0/0 5 [13039] 000005 11/0/3 4608 [13040] 0B7200 0/0/0 5 [13041] 000005 11/0/3 1792 [13042] 0B6700 0/0/0 5 [13043] 000005 0/0/0 0 [13044] 000000 0/0/0 12 [13045] 00000C 0/0/0 0 [13046] 000000 0/0/0 24 [13047] 000018 0/0/0 0 [13048] 000000 2/0/0 54 [13049] 020036 0/0/0 0 [13050] 000000 2/0/0 60 [13051] 02003C 0/0/0 0 [13052] 000000 0/0/0 24 [13053] 000018 0/0/0 0 [13054] 000000 0/0/0 24 [13055] 000018 0/0/0 0 [13056] 000000 0/0/0 48 [13057] 000030 0/0/0 0 [13058] 000000 0/0/0 24 [13059] 000018 0/0/0 0 [13060] 000000 2/0/0 24 [13061] 020018 0/0/0 0 [13062] 000000 0/0/0 7 [13063] 000007 0/0/0 0 [13064] 000000 0/0/0 42 [13065] 00002A 0/0/0 0 [13066] 000000 2/0/0 6 [13067] 020006 0/0/0 0 [13068] 000000 2/0/0 14 [13069] 02000E 0/0/0 0 [13070] 000000 0/0/0 12 [13071] 00000C 0/0/0 0 [13072] 000000 0/0/0 4 [13073] 000004 0/0/0 22 [13074] 000016 0/0/0 24 [13075] 000018 0/0/0 82 [13076] 000052 5/0/1 0 [13077] 052000 2/0/2 6499 [13078] 025963 0/0/0 5 [13079] 000005 2/0/2 6499 [13080] 025963 0/0/0 5 [13081] 000005 2/0/2 6499 [13082] 025963 0/0/0 5 [13083] 000005 0/0/0 0 [13084] 000000 0/0/0 14 [13085] 00000E 0/0/0 0 [13086] 000000 2/0/0 14 [13087] 02000E 0/0/0 0 [13088] 000000 0/0/0 14 [13089] 00000E 0/0/0 0 [13090] 000000 0/0/0 48 [13091] 000030 0/0/0 0 [13092] 000000 0/0/0 24 [13093] 000018 0/0/0 0 [13094] 000000 0/0/0 24 [13095] 000018 0/0/0 0 [13096] 000000 0/0/0 24 [13097] 000018 0/0/0 0 [13098] 000000 0/0/0 48 [13099] 000030 5/0/2 6514 [13100] 055972 5/0/3 1430 [13101] 056596 0/0/0 0 [13102] 000000 2/0/0 40 [13103] 020028 0/0/0 0 [13104] 000000 2/0/0 48 [13105] 020030 0/0/0 0 [13106] 000000 2/0/0 48 [13107] 020030 0/0/0 0 [13108] 000000 0/0/0 5 [13109] 000005 0/0/0 0 [13110] 000000 0/0/0 13 [13111] 00000D 0/0/0 0 [13112] 000000 2/0/0 20 [13113] 020014 0/0/2 321 [13114] 004141 3/0/0 1155 [13115] 030483 0/0/0 3 [13116] 000003 0/0/0 10 [13117] 00000A 0/1/0 153 [13118] 008099 0/0/2 4422 [13119] 005146 0/0/0 0 [13120] 000000 0/0/0 0 [13121] 000000 0/0/0 3 [13122] 000003 0/0/0 10 [13123] 00000A 0/0/0 0 [13124] 000000 0/0/0 0 [13125] 000000 0/0/0 0 [13126] 000000 2/0/0 0 [13127] 020000 0/0/0 0 [13128] 000000 2/0/0 306 [13129] 020132 0/0/0 0 [13130] 000000 0/0/0 39 [13131] 000027 0/1/0 153 [13132] 008099 0/0/2 4417 [13133] 005141 0/0/0 0 [13134] 000000 0/0/0 0 [13135] 000000 0/0/0 0 [13136] 000000 0/0/0 2 [13137] 000002 0/0/0 0 [13138] 000000 0/0/0 4 [13139] 000004 0/0/0 1 [13140] 000001 0/0/0 2 [13141] 000002 0/0/0 1 [13142] 000001 0/0/0 4 [13143] 000004 0/0/0 1 [13144] 000001 0/0/0 3 [13145] 000003 0/0/0 0 [13146] 000000 2/0/0 14 [13147] 02000E 0/0/0 0 [13148] 000000 0/0/0 28 [13149] 00001C 0/0/0 0 [13150] 000000 2/0/0 52 [13151] 020034 0/1/0 153 [13152] 008099 0/0/2 4422 [13153] 005146 0/0/0 0 [13154] 000000 0/0/0 0 [13155] 000000 0/0/0 0 [13156] 000000 2/0/0 50 [13157] 020032 0/0/0 0 [13158] 000000 2/0/0 52 [13159] 020034 0/0/0 0 [13160] 000000 0/0/0 0 [13161] 000000 0/0/0 0 [13162] 000000 0/0/0 6 [13163] 000006 0/1/0 153 [13164] 008099 0/0/2 4417 [13165] 005141 0/0/0 0 [13166] 000000 0/0/0 0 [13167] 000000 0/1/0 153 [13168] 008099 0/0/2 4422 [13169] 005146 0/0/0 0 [13170] 000000 0/0/0 0 [13171] 000000 0/0/0 0 [13172] 000000 0/0/0 6 [13173] 000006 0/1/0 153 [13174] 008099 0/0/2 4417 [13175] 005141 0/0/0 0 [13176] 000000 0/0/0 0 [13177] 000000 0/0/0 0 [13178] 000000 0/0/0 6 [13179] 000006 0/0/0 2 [13180] 000002 0/0/0 10 [13181] 00000A 0/0/0 0 [13182] 000000 0/0/0 6 [13183] 000006 0/0/0 1 [13184] 000001 0/0/0 0 [13185] 000000 15/1/3 8191 [13186] 0FFFFF 0/0/0 2 [13187] 000002 0/0/0 1 [13188] 000001 0/0/0 0 [13189] 000000 0/1/0 153 [13190] 008099 0/0/2 4422 [13191] 005146 0/0/0 0 [13192] 000000 0/0/0 0 [13193] 000000 0/0/0 2 [13194] 000002 0/0/0 10 [13195] 00000A 2/0/3 4675 [13196] 027243 6/0/3 5399 [13197] 067517 0/0/0 0 [13198] 000000 0/0/0 6 [13199] 000006 0/1/0 153 [13200] 008099 0/0/2 4417 [13201] 005141 0/0/0 0 [13202] 000000 0/0/0 0 [13203] 000000 0/0/0 0 [13204] 000000 0/0/0 6 [13205] 000006 0/0/0 1 [13206] 000001 0/0/0 5 [13207] 000005 0/0/0 5 [13208] 000005 0/0/0 10 [13209] 00000A 0/0/0 0 [13210] 000000 2/0/0 50 [13211] 020032 0/0/0 0 [13212] 000000 0/0/0 300 [13213] 00012C 0/0/0 0 [13214] 000000 0/0/0 8 [13215] 000008 L8192 loading procedure 0 for chapter 7 0/0/0 0 [8192] 000000 0/0/0 5600 [8193] 0015E0 0/0/0 5600 [8194] 0015E0 0/0/1 0 [8195] 002000 0/0/1 0 [8196] 002000 0/0/0 160 [8197] 0000A0 0/0/0 160 [8198] 0000A0 0/0/0 9 [8199] 000009 0/0/0 18 [8200] 000012 0/0/0 27 [8201] 00001B 0/0/0 36 [8202] 000024 0/0/0 45 [8203] 00002D 0/0/0 10 [8204] 00000A 16/0/0 74 [8205] 10004A 0/0/0 19 [8206] 000013 16/0/0 83 [8207] 100053 0/0/0 28 [8208] 00001C 16/0/0 92 [8209] 10005C 0/0/0 37 [8210] 000025 16/0/0 101 [8211] 100065 0/0/0 46 [8212] 00002E 16/0/0 110 [8213] 10006E 0/0/0 8 [8214] 000008 16/0/0 10 [8215] 10000A 16/0/0 12 [8216] 10000C 16/0/0 14 [8217] 10000E 0/0/0 0 [8218] 000000 0/0/0 0 [8219] 000000 0/0/0 0 [8220] 000000 0/0/0 0 [8221] 000000 0/0/0 0 [8222] 000000 0/0/0 0 [8223] 000000 0/0/0 0 [8224] 000000 0/0/0 0 [8225] 000000 0/0/0 0 [8226] 000000 0/0/0 0 [8227] 000000 0/0/0 0 [8228] 000000 0/0/0 0 [8229] 000000 0/0/0 0 [8230] 000000 0/0/0 0 [8231] 000000 O05 8192 13216 Overlaying chapter 7 by 8, equivalent to chapter 2 L8238 loading chapter 8 Start of procedure 918 at location 46 in chapter 8 [8238] [8238] 91800 PROCR 918 PASS 6=REMAINDER OF PTS PROCR 995 in CHAP 10 overlay = 9 24/0/3 0 [8238] 91802 152 101 2 0 0 0 OVERLAY 23/0/2 109 [8239] 91803 C 995 0 0 0 0 OVERLAY 24/0/2 2111 [8240] 91804 124 992 2 0 2 0 SECOND LEVEL PARAS SELECT LITERAL AND DIVISION 3/1/0 40 [8241] 91805 91 0 0 1 0 SECOND LEVEL PARAS SET MODIFICATION REGISTER AT VARIABLE 26/1/1 40 [8242] 24/0/2 204 [8243] 91806 124 922 2 0 2 0 SELECT LITERAL AND DIVISION 3/1/0 40 [8244] 91807 91 0 0 2 0 ORDERS SET MODIFICATION REGISTER AT VARIABLE 26/1/2 40 [8245] 24/0/2 1822 [8246] 91808 124 987 2 0 2 0 SELECT LITERAL AND DIVISION 3/1/0 40 [8247] 91809 91 0 0 3 0 FIRST LEVEL PARAS SET MODIFICATION REGISTER AT VARIABLE 26/1/3 40 [8248] 6/0/0 1822 [8249] 91810 0 987 2 0 0 0 SELECT 18/0/3 2 [8250] 91811 31 0 0 0 2 SHIFT (A) BY BITS 2/0/0 195 [8251] 91812 5 921 11 0 0 0 TRANSFER 6/0/0 2111 [8252] 91813 0 992 2 0 0 0 SELECT 18/0/3 2 [8253] 91814 31 0 0 0 2 SHIFT (A) BY BITS 2/0/0 201 [8254] 91815 5 921 17 0 0 0 TRANSFER 6/1/0 2146 [8255] 91816 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8182 [8256] 91817 C 0 0 0 6 Simulated modifier 6/1/0 2148 [8257] 91818 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [8258] 91819 C 0 0 0 3 Simulated modifier 26/0/0 91 [8259] 91820 80 920 2 0 0 0 gO/P PTS(2) ENTER SUBROUTINE 6/1/0 2150 [8260] 91821 10 0 0 0 5358596773 CHIPT' SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 12 [8262] 91822 5 8 12 1 0 0 TRANSFER 26/0/0 74 [8263] 91823 80 919 2 0 0 0 gWRITE ENTER SUBROUTINE 26/0/0 91 [8264] 91824 80 920 2 0 0 0 gO/P PTS(3) ENTER SUBROUTINE 24/1/0 3060 [8265] 91825 76 882 15 0 0 0 gO/P'PREND' JUMP unconditional Start of procedure 919 at location 74 in chapter 8 [8266] [8266] 91900 PROCR 919 WRITE8->A2 0/0/0 0 [8266] 91902 81 919 2 0 0 0 START OF SUBROUTINE 6/1/0 2152 [8267] 91903 10 0 0 0 7.0000007. SELECT LITERAL 24/1/2 19 Extra code needed to address transit area no 3, section 8 2/1/0 52 [8269] 91904 5 8 52 1 0 0 TRANSFER 0/1/0 40 [8270] 91905 43 A2 0 0 0 0 OUTPUT 0/0/3 0 [8271] 0/0/2 18 [8272] 91906 C 8 0 0 0 0 OUTPUT 6/1/0 0 [8273] 1/1/1 36 [8274] 25/1/1 4096 [8275] 24/0/3 0 [8276] 23/0/2 43 [8277] 0/1/1 40 [8278] 6/1/0 2154 [8279] 91907 54 8 4 1 0 50 BULK CLEAR 24/1/2 19 Extra code needed to address transit area no 3, section 8 28/1/1 4 [8281] 26/0/1 74 [8282] 91908 82 919 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 920 at location 91 in chapter 8 [8283] [8283] 92000 PROCR 920 WRITE CHUNK.SR 0/0/0 0 [8283] 92002 81 920 2 0 0 0 START OF SUBROUTINE 24/0/3 22 [8284] 92003 96 0 0 2 0 STORE CHUNK START FOR PARAS 1 AND 5 SELECT MODIFIER 6/0/0 4 [8285] 2/0/0 186 [8286] 92004 5 921 2 0 0 0 TRANSFER 24/0/1 186 [8287] 92005 124 921 2 0 1 0 MODIFY ADDRESS OF NEXT 1/1/3 0 [8288] 92006 101 0 1 3 0 SELECT LITERAL ADDRESS 2/0/0 190 [8289] 92007 5 921 6 0 0 0 CHUNK START TRANSFER 24/1/2 19 [8290] 92008 124 999 19 1 2 0 MODIFY ADDRESS OF NEXT 24/0/2 0 [8291] 92009 124 0 0 2 0 SELECT LITERAL AND DIVISION 3/0/0 74 [8292] 92010 3 919 2 0 0 0 COPY Source: RayS/Q1000788 1/1/1 48 [8293] 92011 101 48 1 1 0 ADD LITERAL ADDRESS 18/0/1 5 [8294] 92012 30 0 0 0 5 SHIFT (A) BY QUARTETS 4/0/0 74 [8295] 92013 1 919 2 0 0 0 ADD 2/1/0 8184 [8296] 92014 91 0 0 4 0 SET MODIFICATION REGISTER AT VARIABLE 24/0/3 188 [8297] 92015 124 921 4 0 3 0 STORE WORD MODIFY ADDRESS OF NEXT 6/0/2 0 [8298] 92016 106 0 0 2 0 SELECT (N) 2/0/0 191 [8299] 92017 5 921 7 0 0 0 STORE WORD TRANSFER 0/1/2 194 [8300] 92018 34 921 10 1 0 0 FIRST LEVEL PARA WORD SET (N) IN B 18/1/3 3 [8301] 92019 33 0 0 0 3 NEXT ONE TO A SHIFT (AB) BY BITS 0/1/0 192 [8302] 92020 100 921 8 1 0 0 STORE (A) (B) ( C) COPY REGISTERS 23/0/0 1 [8303] 92021 94 920 29 0 5 1 TEST END OF PARA WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8182 [8304] 24/1/0 122 [8305] s 6/1/0 2156 [8306] 92022 90 0 0 5 0 SET UP MR FOR SET MODIFICATION REGISTER AT LITERAL 2/1/0 8182 [8307] 92023 C 0 0 0 6 NEXT PARA WORD Simulated modifier 24/0/3 188 [8308] 92024 124 921 4 0 3 0 STORE PARA WORD MODIFY ADDRESS OF NEXT 6/0/3 1 [8309] 92025 106 1 0 3 0 STORE PARA WORD SELECT (N) 18/1/3 2 [8310] 92026 33 0 0 0 2 RIGHT ALIGN WORD SHIFT (AB) BY BITS 2/0/0 195 [8311] 92027 5 921 11 0 0 0 TRANSFER 25/0/3 1 [8312] 92028 94 920 29 0 3 1 STEP PARAS MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 122 [8313] s 6/0/0 192 [8314] 92029 921 8 0 0 0 TEST DUMMY PARA SELECT 1/1/2 6 [8315] 92030 12 0 0 0 6 SUBTRACT LITERAL 27/0/0 108 [8316] 92031 70 920 18 0 0 0 >YES JUMP IF A == 0 1/1/2 1 [8317] 92032 12 0 0 0 1 TEST SECOND LEVEL REQD SUBTRACT LITERAL 27/0/1 155 [8318] 92033 71 920 57 0 0 0 >NO JUMP IF A != 0 0/1/2 200 [8319] 92034 34 921 16 1 0 0 SECOND LEVEL PARA WORD SET (N) IN B 18/1/3 6 [8320] 92035 33 0 0 0 6 NEXT ONE TO A SHIFT (AB) BY BITS 0/1/0 198 [8321] 92036 100 921 14 1 0 0 STORE (A) (B) ( C) COPY REGISTERS 23/0/0 1 [8322] 92037 94 920 45 0 8 1 TEST END OF PARA WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8178 [8323] 24/1/0 141 [8324] s 6/1/0 2158 [8325] 92038 90 0 0 8 0 SET UP MR FOR SET MODIFICATION REGISTER AT LITERAL 2/1/0 8178 [8326] 92039 C 0 0 0 3 NEXT PARA WORD Simulated modifier 24/0/3 188 [8327] 92040 124 921 4 0 3 0 STORE PARA WORD MODIFY ADDRESS OF NEXT 6/0/1 1 [8328] 92041 106 1 0 1 0 SELECT (N) 18/1/3 2 [8329] 92042 33 0 0 0 2 RIGHT ALIGN WORD SHIFT (AB) BY BITS 2/0/0 201 [8330] 92043 5 921 17 0 0 0 TRANSFER 25/0/1 1 [8331] 92044 94 920 45 0 1 1 STEP PARAS MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 141 [8332] s 6/0/0 198 [8333] 92045 921 14 0 0 0 TEST SECOND LEVEL SELECT 1/1/2 63 [8334] 92046 101 63 1 2 0 PARA=63(DUMMY) SUBTRACT LITERAL ADDRESS 27/0/0 127 [8335] 92047 70 920 34 0 0 0 >YES JUMP IF A == 0 1/1/1 1 [8336] 92048 101 1 1 1 0 TEST END SIGN(62) ADD LITERAL ADDRESS 27/0/1 153 [8337] 92049 71 920 55 0 0 0 >NO JUMP IF A != 0 6/1/0 188 [8338] 92050 921 4 1 0 0 STORE END SIGN SELECT 24/0/3 8184 [8339] 92051 5 4 1 4 0 TRANSFER 2/1/0 4 [8340] 24/0/3 8184 [8341] 92052 5 6 1 4 0 TRANSFER 2/1/0 6 [8342] 26/0/0 74 [8343] 92053 80 919 2 0 0 0 >WRITE LAST BLOCK ENTER SUBROUTINE 26/0/1 91 [8344] 92054 82 920 2 0 0 0 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE 6/1/0 198 [8345] 92055 921 14 1 0 0 STORE ACTUAL PARA SELECT 2/1/0 192 [8346] 92056 5 921 8 1 0 0 VALUE TRANSFER 6/0/0 192 [8347] 92057 921 8 0 0 0 TEST PARA=1 SELECT 1/1/2 1 [8348] 92058 12 0 0 0 1 SUBTRACT LITERAL 27/0/0 160 [8349] 92059 70 920 62 0 0 0 >YES JUMP IF A == 0 1/1/2 1 [8350] 92060 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 170 [8351] 92061 71 920 72 0 0 0 >NO JUMP IF A != 0 1/1/3 8191 [8352] 92062 101 8191 1 3 0 SELECT LITERAL ADDRESS 18/1/1 4118 [8353] 92063 32 0 0 0 10- SHIFT (AB) BY QUARTETS 15/0/0 191 [8354] 92064 36 921 7 0 0 0 INSTRUCTION 13-BIT ADDRESS COLLATE AND ADD 1/1/2 1822 [8355] 92065 101 987 2 1 2 0 PTS(2,3)END SUBTRACT LITERAL ADDRESS 27/0/3 183 [8356] 92066 73 920 80 0 0 0 >NORMAL ORDER NOT ADDRESSING PTS(1) JUMP IF A < 0 1/0/1 31 [8357] 92067 35 0 0 0 11111 PREPARE FOR DIGIT COLLATION 1/1/3 0 [8358] 92068 10 0 0 0 0 SELECT LITERAL Source: RayS/Q1000789 15/0/0 191 [8359] 92069 36 921 7 0 0 0 COLLATE AND ADD 1/1/2 2534 [8360] 92070 101 757 2 1 2 0 PTS(2,3)START IN PTS(1) SUBTRACT LITERAL ADDRESS 14/0/0 191 [8361] 92071 37 921 7 0 0 0 REPLACE SELECTED BITS 6/0/0 191 [8362] 92072 921 7 0 0 0 SELECT 24/0/3 8184 [8363] 92073 5 6 2 4 0 TRANSFER 2/1/0 7 [8364] 6/0/0 192 [8365] 92074 921 8 0 0 0 SELECT 24/0/3 8184 [8366] 92075 5 4 2 4 0 TRANSFER 2/1/0 5 [8367] 25/0/2 1 [8368] 92076 94 920 77 0 2 1 WORD MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 24/1/0 178 [8369] s 23/0/0 4 [8370] 92077 94 920 15 0 4 4 >NEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL) 0/0/1 8184 [8371] 24/1/0 105 [8372] s 26/0/0 74 [8373] 92078 80 919 2 0 0 0 ENTER SUBROUTINE 24/1/0 98 [8374] 92079 76 920 8 0 0 0 >NEXT BLOCK JUMP unconditional 1/1/1 1822 [8375] 92080 101 987 2 1 1 0 ADD LITERAL ADDRESS 5/0/0 190 [8376] 92081 2 921 6 0 0 0 13-BIT CHUNK START SUBTRACT 24/1/0 169 [8377] 92082 76 920 71 0 0 0 JUMP unconditional Start of procedure 921 at location 186 in chapter 8 [8378] [8378] 92100 CONST 921 1 CONSTANTS 0/0/0 0 [8378] 92102 (D); 00000 +00000 0/0/0 0 [8379] 0/0/0 0 [8380] 92104 (A)£ ; 00000 +4F000 4/1/3 4096 [8381] 0/0/0 0 [8382] 92106 (D)0; CHUNK START/ORDER 00000 +00000 0/0/0 0 [8383] 0/0/0 0 [8384] 92108 0; A 00000 +00000 0/0/0 0 [8385] 0/0/0 0 [8386] 92110 0; B 00000 +00000 0/0/0 0 [8387] 0/0/0 0 [8388] 92112 0; C 00000 +00000 0/0/0 0 [8389] 0/0/0 0 [8390] 92114 0; A 00000 +00000 0/0/0 0 [8391] 0/0/0 0 [8392] 92116 0; B 00000 +00000 0/0/0 0 [8393] 0/0/0 0 [8394] 92118 0; C 00000 +00000 0/0/0 0 [8395] Start of procedure 922 at location 204 in chapter 8 [8396] [8396] 92200 PROCR 922 2001 WRITE START BLOCK 24/1/0 234 [8396] 92202 124 922 32 1 0 0 >FROM PASS1 UNCONDITIONAL JUMP 24/1/0 268 [8397] 92203 124 923 2 1 0 0 >FROM PROGRAMME UNCONDITIONAL JUMP 24/1/0 632 [8398] 92204 124 935 2 1 0 0 >FROM OPT 20 AND ABDON UNCONDITIONAL JUMP 24/1/0 682 [8399] 92205 124 937 2 1 0 0 >FROM OVERLAY(END) UNCONDITIONAL JUMP 24/1/0 768 [8400] 92206 76 939 2 0 0 0 >FROM OVERLAY(START) JUMP unconditional 1/1/3 2 [8401] 92207 10 0 0 0 2 (FROM PROGRAM UNLOAD) SELECT LITERAL 2/0/0 1916 [8402] 92208 5 741 2 0 0 0 SET 'END' IND TRANSFER 24/1/0 484 [8403] 92209 76 931 4 0 0 0 JUMP unconditional 0/0/0 0 [8404] 92210 100 0 0 0 0 LINK HALT 24/0/3 2522 [8405] 92211 124 755 2 0 3 0 PROG ID MODIFY ADDRESS OF NEXT 6/0/0 39 [8406] 92212 106 39 0 0 0 WL SELECT (N) 2/0/0 508 [8407] 92213 5 932 2 0 0 0 TRANSFER 24/0/2 224 [8408] 92214 124 922 22 0 2 0 SELECT LITERAL AND DIVISION 28/1/2 2330 [8409] 92215 128 751 34 1 2 0 EDIT FIXED FIELD FORMATS 24/0/2 2330 [8410] 92216 124 751 34 0 2 0 SELECT LITERAL AND DIVISION 25/1/1 4096 [8411] 92217 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 886 [8412] 92218 124 951 8 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 168 [8413] 92219 123 168 0 2 0 ENTER MASTER ROUTINE 0/0/3 886 [8414] 92220 100 951 8 0 3 0 SET RADIX 26/0/1 212 [8415] 92221 126 922 10 0 1 0 LEAVE SUBROUTINE 0/0/0 932 [8416] 92222 100 953 8 0 0 0 'PTS' ('OP') HALT 1/0/0 515 [8417] 92223 101 515 0 0 0 2/0/3(0/0/3) TABLE LOOK UP 0/0/0 926 [8418] 92224 100 953 2 0 0 0 'ABAND' HALT 1/0/0 21 [8419] 92225 101 21 0 0 0 1/5 TABLE LOOK UP 0/0/0 928 [8420] 92226 100 953 4 0 0 0 'ONS' HALT 1/0/0 3 [8421] 92227 101 3 0 0 0 TABLE LOOK UP 0/0/0 508 [8422] 92228 100 932 2 0 0 0 PROG ID HALT 0/0/0 21 [8423] 92229 100 21 0 0 0 1/5 HALT 0/0/0 928 [8424] 92230 100 953 4 0 0 0 DOUBLE LE HALT 17/0/0 770 [8425] 92231 117 770 0 0 0 3/0/2 SPECIAL SELECT 0/0/2 872 [8426] 92232 100 950 6 0 2 0 REPLACE (B) BY (N) 1/1/3 7 [8427] 92233 101 7 1 3 0 SELECT LITERAL ADDRESS Source: RayS/Q1000790 26/0/0 2264 [8428] 92234 126 749 2 0 0 0 ENTER SUBROUTINE 24/1/2 874 [8429] 92235 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT 6/1/0 4 [8430] 92236 106 4 1 0 0 SELECT (N) 5/1/0 930 [8431] 92237 105 953 6 1 0 0 SUBTRACT (N) FROM (A) 27/0/0 245 [8432] 92238 127 922 43 0 0 0 >YES JUMP A = Z 24/1/2 874 [8433] 92239 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT 6/1/0 12 [8434] 92240 106 12 1 0 0 SELECT (N) 5/1/0 882 [8435] 92241 105 951 4 1 0 0 SUBTRACT (N) FROM (A) 27/0/1 234 [8436] 92242 127 922 32 0 1 0 >NO JUMP A != 0/0/2 934 [8437] 92243 100 954 2 0 2 0 REPLACE (B) BY (N) 1/1/3 44 [8438] 92244 101 44 1 3 0 SELECT LITERAL ADDRESS 26/0/0 2264 [8439] 92245 126 749 2 0 0 0 >STEP BACK 1 I/P> ENTER SUBROUTINE 24/0/2 920 [8440] 92246 124 952 14 0 2 0 SET UP SELECT LITERAL AND DIVISION 2/0/0 467 [8441] a 92247 102 930 11 0 0 0 IND MOD REG TRANSFER (A) TO N 24/0/2 922 [8442] 92248 124 952 16 0 2 0 AND ANOTHER SELECT LITERAL AND DIVISION 2/0/0 556 [8443] a 92249 102 933 10 0 0 0 TRANSFER (A) TO N 6/0/0 2522 [8444] 92250 0 755 2 0 0 0 SWITCH START SELECT 1/1/1 39 [8445] 92251 101 39 1 1 0 ADD LITERAL ADDRESS 2/0/0 918 [8446] 92252 5 952 12 0 0 0 ADDRESS OF PROG ID TRANSFER 24/0/2 908 [8447] 92253 124 952 2 0 2 0 SELECT LITERAL AND DIVISION 24/1/2 874 [8448] 92254 124 950 8 1 2 0 -123 MODIFY ADDRESS OF NEXT 28/1/2 4 [8449] 92255 128 4 1 2 0 EDIT 'START' BLOCK EDIT FIXED FIELD FORMATS 26/0/0 782 [8450] 92256 126 942 2 0 0 0 >WRITE BLOCK, SET TAG 15 ENTER SUBROUTINE 25/1/1 4096 [8451] 92257 125 4096 1 1 0 SET NON INT CLEAR INDICATORS 6/1/0 948 [8452] 92258 0 955 6 1 0 0 SELECT 24/0/3 2526 [8453] 92259 124 755 6 0 3 0 8X MOD GROUP MODIFY ADDRESS OF NEXT 28/0/0 2 [8454] 92260 128 2 0 0 0 CLEAR PROGS MOD REGISTERS BULK COPY SHORT NUMERIC 1/1/3 15 [8455] 92261 10 0 0 0 £ SELECT LITERAL 3/0/0 2107 [8456] 92262 3 744 75 0 0 0 SET 'PROG IN CONTROL' COPY 2/0/0 867 [8457] 92263 5 949 11 0 0 0 SET 'STATE OF TAPE' IND TRANSFER 0/1/1 2528 [8458] 92264 100 755 8 1 1 0 RESTORE ORIGINAL (ABC) REPLACE REGISTERS 26/0/3 2527 [8459] 92265 126 755 7 0 3 0 >GO TO PROGS ENTRY POINT LEAVE MASTER ROUTINE Start of procedure 923 at location 268 in chapter 8 [8460] [8460] 92300 PROCR 923 2002 ENTRY FROM PM POINT VIA 172-STORE LINKS, TEST TIME FOR PM 0/1/0 908 [8460] 92302 100 952 2 1 0 0 (ABC)>WL AND PROG SWITCH COPY REGISTERS 24/0/3 2522 [8461] 92303 124 755 2 0 3 0 MODIFY ADDRESS OF NEXT 0/1/0 30 [8462] 92304 100 30 1 0 0 COPY REGISTERS 0/0/3 886 [8463] 92305 100 951 8 0 3 0 BIN SET RADIX 6/1/0 944 [8464] 92306 106 955 2 1 0 0 STORE CONTENTS OF SELECT (N) 4/0/0 2526 [8465] 92307 104 755 6 0 0 0 PROG'S MOD REGS ADD (N) TO (A) 28/0/0 914 [8466] 92308 128 952 8 0 0 0 BULK COPY SHORT NUMERIC 2/0/0 2107 [8467] 92309 5 744 75 0 0 0 SET 'PTS IN CONTROL' TRANSFER 1/0/1 15 [8468] 92310 101 15 0 1 0 PREPARE FOR DIGIT COLLATION 24/0/3 886 [8469] 92311 124 951 8 0 3 0 MODIFY ADDRESS OF NEXT 15/0/0 172 [8470] 92312 115 172 0 0 0 ADDRESS OF PM SR LINK COLLATE AND ADD 1/1/2 4 [8471] 92313 101 4 1 2 0 SUBTRACT LITERAL ADDRESS 2/0/0 913 [8472] 92314 102 952 7 0 0 0 TRANSFER (A) TO N 24/0/3 913 [8473] 92315 124 952 7 0 3 0 STORE PM SR LINK-1 MODIFY ADDRESS OF NEXT 6/0/0 0 [8474] 92316 106 0 0 0 0 SELECT (N) 1/1/2 1 [8475] 92317 101 1 1 2 0 SUBTRACT LITERAL ADDRESS 2/0/0 862 [8476] 92318 102 949 6 0 0 0 TRANSFER (A) TO N 26/0/0 824 [8477] 92319 80 946 2 0 0 0 >SET MR2 TO SCAN PM LIST ENTER SUBROUTINE 6/0/2 0 [8478] 92320 106 0 0 2 0 SELECT (N) 5/0/0 862 [8479] 92321 105 949 6 0 0 0 SUBTRACT (N) FROM (A) 27/0/1 324 [8480] 92322 71 924 28 0 0 0 >NO, STEP R2 JUMP IF A != 0 6/1/2 6 [8481] 92323 106 6 1 2 0 TEST NOTHING TO DUMP SELECT (N) 27/0/0 301 [8482] 92324 70 924 5 0 0 0 >RETURN TO PROG JUMP IF A == 0 1/1/3 0 [8483] 92325 10 0 0 0 0 SELECT LITERAL 1/0/1 3 [8484] 92326 101 3 0 1 0 COLLATE N1 PREPARE FOR DIGIT COLLATION 15/0/2 4 [8485] 92327 115 4 0 2 0 COLLATE AND ADD Source: ChuckK/Q1000791 27/0/1 298 [8486] 92328 127 924 2 0 1 0 >NO JUMP A != 1/0/1 6 [8487] 92329 101 6 0 1 0 PREPARE FOR DIGIT COLLATION 15/0/2 5 [8488] 92330 115 5 0 2 0 COLLATE AND ADD 27/0/1 328 [8489] 92331 71 926 2 0 0 0 >NO,TAKE A DUMP JUMP IF A != 0 Start of procedure 924 at location 298 in chapter 8 [8490] [8490] 92400 PROCR 924 RETURN TO PROGRAM AFTER DUMP OR IF NOT DUMPING THIS TIME 6/0/2 4 [8490] 92402 106 4 0 2 0 AUGMENT N1 BY -1 SELECT (N) 1/1/2 1 [8491] 92403 101 1 1 2 0 SUBTRACT LITERAL ADDRESS 2/0/2 4 [8492] 92404 102 4 0 2 0 TRANSFER (A) TO N 1/0/1 8 [8493] 92405 101 8 0 1 0 AUGMENT LINK BY PREPARE FOR DIGIT COLLATION 15/0/2 5 [8494] 92406 115 5 0 2 0 24 ACTION IND COLLATE AND ADD 18/0/0 4125 [8495] 92407 118 4125 0 0 0 SHIFT LOGICAL 24/0/3 913 [8496] 92408 124 952 7 0 3 0 MODIFY ADDRESS OF NEXT 7/0/0 0 [8497] 92409 107 0 0 0 0 AUGMENT (N) BY (A) 6/0/2 2 [8498] 92410 106 2 0 2 0 REPLACE INSTRUCTIONS SELECT (N) 24/0/3 913 [8499] 92411 124 952 7 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 4 [8500] 92412 102 4 0 0 0 TRANSFER (A) TO N 6/0/2 3 [8501] 92413 106 3 0 2 0 SELECT (N) 24/0/3 913 [8502] 92414 124 952 7 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 5 [8503] 92415 102 5 0 0 0 TRANSFER (A) TO N 2/1/0 858 [8504] 92416 102 949 2 1 0 0 CLEAR W/L'S 1,2 TRANSFER (A) TO N 2/0/0 860 [8505] 92417 102 949 4 0 0 0 AND 3 TRANSFER (A) TO N 6/1/0 950 [8506] 92418 106 956 2 1 0 0 SELECT (N) 24/0/3 2526 [8507] 92419 124 755 6 0 3 0 PROG'S MOD REGS MODIFY ADDRESS OF NEXT 28/0/0 2 [8508] 92420 128 2 0 0 0 BULK COPY SHORT NUMERIC 25/1/1 4096 [8509] 92421 125 4096 1 1 0 CLEAR INDICATORS 1/1/3 1 [8510] 92422 10 0 0 0 1 SELECT LITERAL 2/0/0 2107 [8511] 92423 5 744 75 0 0 0 SET'PROG IN CONTROL' TRANSFER 24/1/0 321 [8512] 92424 76 924 25 0 0 0 DUMMY JUMP unconditional 0/1/1 908 [8513] 92425 100 952 2 1 1 0 RESTORE A;B;C REPLACE REGISTERS 24/0/3 886 [8514] 92426 124 951 8 0 3 0 MODIFY ADDRESS OF NEXT 26/0/3 172 [8515] 92427 126 172 0 3 0 >RETURN TO PROGRAM VIA PTS SR LEAVE MASTER ROUTINE 25/0/2 18 [8516] 92428 125 18 0 2 0 STEP ON AND TEST 24/1/0 286 [8517] 92429 76 923 20 0 0 0 >NEXT PM POINT JUMP unconditional 26/0/0 212 [8518] 92430 126 922 10 0 0 0 >TYPE'PTS ABANDONS(PROG)' ENTER SUBROUTINE 24/1/0 640 [8519] 92431 76 935 10 0 0 0 >CONTINUE AS IF ABDON COMMAND JUMP unconditional Start of procedure 925 at location 328 in chapter 8 [8520] [8520] 92500 PROCR 925 2004 TYPE'PTS ABANDONS(PROG)' Start of procedure 926 at location 328 in chapter 8 [8520] [8520] 92600 PROCR 926 2005 SET UP HEADING BLOCK 1/1/2 16 [8520] 92602 101 16 1 2 0 STEP N3 BY -1 SUBTRACT LITERAL ADDRESS 14/0/2 5 [8521] 92603 114 5 0 2 0 REPLACE SELECTED BITS 6/0/0 867 [8522] 92604 106 949 11 0 0 0 SELECT (N) 27/0/1 333 [8523] 92605 127 926 7 0 1 0 >YES JUMP A != 26/0/0 844 [8524] 92606 126 948 2 0 0 0 >RUN FORWARD TO FINIS:STEP BACK 1 ENTER SUBROUTINE 1/1/3 15 [8525] 92607 101 15 1 3 0 SET STATE OF TAPE INAT 15 SELECT LITERAL ADDRESS 2/0/0 867 [8526] 92608 102 949 11 0 0 0 TRANSFER (A) TO N 1/0/1 24 [8527] 92609 101 24 0 1 0 SET N1=N2 PREPARE FOR DIGIT COLLATION 15/0/2 4 [8528] 92610 115 4 0 2 0 COLLATE AND ADD 18/0/0 4125 [8529] 92611 118 4125 0 0 0 SHIFT LOGICAL 7/0/2 4 [8530] 92612 107 4 0 2 0 AUGMENT (N) BY (A) 25/1/2 0 [8531] 92613 125 0 1 2 0 INTERROGATE INDICATORS 1/0/1 16 [8532] 92614 101 16 0 1 0 PREPARE FOR DIGIT COLLATION 15/0/2 5 [8533] 92615 115 5 0 2 0 COLLATE AND ADD 3/0/0 860 [8534] 92616 103 949 4 0 0 0 COPY TAPE TO W/L 3 COPY (A) TO N 5/0/0 868 [8535] 92617 105 950 2 0 0 0 SUBTRACT (N) FROM (A) 27/0/1 347 [8536] 92618 127 926 21 0 1 0 >NO JUMP A != 6/0/0 868 [8537] 92619 106 950 2 0 0 0 SELECT (N) Source: ChuckK/Q1000792 24/1/0 646 [8538] 92620 124 935 16 1 0 0 >YES UNCONDITIONAL JUMP 26/0/0 832 [8539] 92621 126 947 2 0 0 0 >TRANSFER CONTENTS OF MOD REGS TO O/P SE ENTER SUBROUTINE 6/0/2 1 [8540] 92622 106 1 0 2 0 ;TRANSFER I/C SERIAL SELECT (N) 24/1/2 874 [8541] 92623 124 950 8 1 2 0 ;TO O/P SECN MODIFY ADDRESS OF NEXT 2/1/0 9 [8542] 92624 102 9 1 0 0 TRANSFER (A) TO N 26/1/1 886 [8543] 92625 126 951 8 1 1 0 SET(MR1)=10/0 SET MODIFICATION REGISTER 26/1/3 888 [8544] 92626 126 951 10 1 3 0 SET(MR3)=5/0 SET MODIFICATION REGISTER 6/0/3 908 [8545] 92627 106 952 2 0 3 0 ;TRANSFER CONTENTS SELECT (N) 24/1/2 874 [8546] 92628 124 950 8 1 2 0 ;OF (A), (B), C) TO MODIFY ADDRESS OF NEXT 2/1/1 11 [8547] 92629 102 11 1 1 0 ;O/P SECN TRANSFER (A) TO N 25/0/1 2 [8548] 92630 125 2 0 1 0 STEP MR1 STEP ON AND TEST 24/1/0 358 [8549] 92631 124 926 32 1 0 0 > UNCONDITIONAL JUMP 25/0/3 1 [8550] 92632 125 1 0 3 0 STEP MR3 STEP ON AND TEST 24/1/0 353 [8551] 92633 124 926 27 1 0 0 > UNCONDITIONAL JUMP Start of procedure 927 at location 360 in chapter 8 [8552] [8552] 92700 PROCR 927 2006 SET UP HEADING BLOCK (2) 1/1/3 1 [8552] 92702 101 1 1 3 0 SET HEADING IND SELECT LITERAL ADDRESS 2/0/0 863 [8553] 92703 102 949 7 0 0 0 TRANSFER (A) TO N 6/1/0 890 [8554] 92704 106 951 12 1 0 0 SET IND MOD AT 12/0 SELECT (N) 2/1/0 920 [8555] 92705 102 952 14 1 0 0 TRANSFER (A) TO N 6/0/0 860 [8556] 92706 106 949 4 0 0 0 TRANSFER PM TYPE TO SECN SELECT (N) 24/1/2 874 [8557] 92707 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT 3/1/0 7 [8558] 92708 103 7 1 0 0 ;TEST PM TYPE 6 COPY (A) TO N 5/0/0 875 [8559] 92709 105 950 9 0 0 0 SUBTRACT (N) FROM (A) 27/0/0 548 [8560] 92710 127 933 2 0 0 0 >YES JUMP A = Z 27/0/2 378 [8561] 92711 127 927 20 0 2 0 >YES;TEST TYPE >6 JUMP A >= Z 18/0/1 4124 [8562] 92712 30 0 0 0 4- SHIFT (A) BY QUARTETS 1/1/1 2 [8563] 92713 101 2 1 1 0 ;TEST TYPE 4 ADD LITERAL ADDRESS 27/0/0 375 [8564] 92714 127 927 17 0 0 0 >YES JUMP A = Z 1/1/1 2 [8565] 92715 101 2 1 1 0 ;TEST TYPE 2 ADD LITERAL ADDRESS 27/0/1 381 [8566] 92716 127 927 23 0 1 0 >NO JUMP A != 1/1/3 1 [8567] 92717 101 1 1 3 0 SET COMP DUMP TAKEN SELECT LITERAL ADDRESS 2/0/0 865 [8568] 92718 102 949 9 0 0 0 TRANSFER (A) TO N 24/1/0 381 [8569] 92719 124 927 23 1 0 0 > UNCONDITIONAL JUMP 3/0/0 866 [8570] 92720 103 949 10 0 0 0 SET CLEO DUMP TAKEN IND COPY (A) TO N 5/0/0 869 [8571] 92721 105 950 3 0 0 0 ;TEST TYPE 9 DUMP SUBTRACT (N) FROM (A) 27/0/0 548 [8572] 92722 127 933 2 0 0 0 >YES JUMP A = Z 24/0/1 920 [8573] 92723 124 952 14 0 1 0 ;TEST ZERO CHAP MODIFY ADDRESS OF NEXT 6/0/2 6 [8574] 92724 106 6 0 2 0 ;OR SECN START SELECT (N) 27/0/0 469 [8575] 92725 127 930 13 0 0 0 >YES END OF DUMP JUMP A = Z 27/0/2 392 [8576] 92726 127 927 34 0 2 0 >NO;TEST IF TRANSIT AREA JUMP A >= Z 6/0/0 920 [8577] 92727 106 952 14 0 0 0 SELECT (N) 24/0/3 2526 [8578] 92728 124 755 6 0 3 0 MODIFY ADDRESS OF NEXT 4/0/0 4 [8579] 92729 104 4 0 0 0 ADD (N) TO (A) 2/0/0 861 [8580] 92730 102 949 5 0 0 0 W/L TRANSFER (A) TO N 24/0/1 861 [8581] 92731 124 949 5 0 1 0 MODIFY ADDRESS OF NEXT 24/0/3 6 [8582] 92732 124 6 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 0 [8583] 92733 106 0 0 0 0 TRANSIT AREA START SELECT (N) 18/0/0 6 [8584] 92734 118 6 0 0 0 FORM UP 13 BIT ADD SHIFT LOGICAL 18/0/0 4122 [8585] 92735 118 4122 0 0 0 OF SECTION OR CHAP START SHIFT LOGICAL 3/0/0 924 [8586] 92736 103 952 18 0 0 0 ;SET (MR1) AT START/S COPY (A) TO N 24/1/2 874 [8587] 92737 124 950 8 1 2 0 ;+LENGTH MODIFY ADDRESS OF NEXT 3/1/0 33 [8588] 92738 103 33 1 0 0 ;TRANSFER (MR1) TO COPY (A) TO N 24/0/1 920 [8589] 92739 124 952 14 0 1 0 ;O/P SECN MODIFY ADDRESS OF NEXT 4/0/2 7 [8590] 92740 104 7 0 2 0 SECTION LENGTH ADD (N) TO (A) 18/0/0 6 [8591] 92741 118 6 0 0 0 FORM UP 15 BIT ADD SHIFT LOGICAL 18/0/0 4122 [8592] 92742 118 4122 0 0 0 OF SECTION END SHIFT LOGICAL 3/0/0 925 [8593] 92743 103 952 19 0 0 0 COPY (A) TO N 24/1/2 874 [8594] 92744 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT Source: ChuckK/Q1000793 2/1/0 35 [8595] 92745 102 35 1 0 0 TRANSFER (A) TO N 1/0/1 3 [8596] 92746 101 3 0 1 0 PREPARE FOR DIGIT COLLATION 24/0/1 920 [8597] 92747 124 952 14 0 1 0 MODIFY ADDRESS OF NEXT 15/0/2 8 [8598] 92748 115 8 0 2 0 CHAP OR SECN NO COLLATE AND ADD 26/0/0 774 [8599] 92749 126 941 2 0 0 0 >CONVERT TO DEC ENTER SUBROUTINE 24/1/2 874 [8600] 92750 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT 7/1/0 7 [8601] 92751 107 7 1 0 0 AUGMENT (N) BY (A) Start of procedure 928 at location 410 in chapter 8 [8602] [8602] 92800 PROCR 928 2007 OUTPUT THIS DUMP'S HEADING BLOCK 6/0/0 863 [8602] 92802 106 949 7 0 0 0 SELECT (N) 27/0/0 417 [8603] 92803 127 928 9 0 0 0 >NO JUMP A = Z 25/1/2 0 [8604] 92804 125 0 1 2 0 CLEAR IND INTERROGATE INDICATORS 2/0/0 863 [8605] 92805 102 949 7 0 0 0 TRANSFER (A) TO N 1/1/3 4096 [8606] 92806 101 4096 1 3 0 SET IND IN O/P SECN SELECT LITERAL ADDRESS 24/1/2 874 [8607] 92807 124 950 8 1 2 0 1 IN Q4 MODIFY ADDRESS OF NEXT 7/1/0 7 [8608] 92808 107 7 1 0 0 32=ABS START,34=ABS END AREA DUMPED AUGMENT (N) BY (A) 6/1/0 880 [8609] 92809 106 951 2 1 0 0 4='DUMPS',36=BEW SELECT (N) 24/1/2 874 [8610] 92810 124 950 8 1 2 0 (6)Q1+2=DEC SEC/CHAP,Q4=HEAD IND MODIFY ADDRESS OF NEXT 2/1/0 4 [8611] 92811 102 4 1 0 0 Q5=DUMP TYPE TRANSFER (A) TO N 6/1/0 896 [8612] 92812 106 951 18 1 0 0 10,12,14=(ABC) 8=PM POINT SELECT (N) 24/1/2 874 [8613] 92813 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT 2/1/0 36 [8614] 92814 102 36 1 0 0 BEW TRANSFER (A) TO N 26/0/0 782 [8615] 92815 126 942 2 0 0 0 >WRITE BLOCK S/R ENTER SUBROUTINE Start of procedure 929 at location 424 in chapter 8 [8616] [8616] 92900 PROCR 929 2008 MAIN DUMP ROUTINE 26/0/0 794 [8616] 92902 126 943 2 0 0 0 >SET (MR3)=(123)+48/(123) ENTER SUBROUTINE 6/0/0 859 [8617] 92903 106 949 3 0 0 0 SELECT (N) 27/0/1 567 [8618] 92904 127 934 2 0 1 0 >YES JUMP A != 1/1/3 20 [8619] 92905 101 20 1 3 0 SET ABSURD TAG SELECT LITERAL ADDRESS 2/0/0 900 [8620] 92906 102 951 22 0 0 0 TRANSFER (A) TO N 24/0/3 924 [8621] 92907 124 952 18 0 3 0 MODIFY ADDRESS OF NEXT 23/0/3 0 [8622] 92908 123 0 0 3 0 SELECT TAG 5/0/0 900 [8623] 92909 105 951 22 0 0 0 SUBTRACT (N) FROM (A) 27/0/0 440 [8624] 92910 127 929 18 0 0 0 >NO JUMP A = Z 7/0/0 900 [8625] 92911 107 951 22 0 0 0 STORE NEW TAG AUGMENT (N) BY (A) 6/1/0 900 [8626] 92912 106 951 22 1 0 0 TRANSFER TAG CHANGE SELECT (N) 2/1/3 4 [8627] 92913 102 4 1 3 0 WORD TO O/P SECN TRANSFER (A) TO N 2/1/3 6 [8628] 92914 102 6 1 3 0 TRANSFER (A) TO N 25/0/3 4 [8629] 92915 125 4 0 3 0 STEP ON AND TEST 24/1/0 440 [8630] 92916 124 929 18 1 0 0 >NO UNCONDITIONAL JUMP 26/0/0 802 [8631] 92917 126 944 2 0 0 0 >OUTPUT BLOCK AND ENTER SUBROUTINE 6/1/0 892 [8632] 92918 106 951 14 1 0 0 SELECT (N) 4/0/0 924 [8633] 92919 104 952 18 0 0 0 ADD (N) TO (A) 24/0/3 2526 [8634] 92920 124 755 6 0 3 0 MODIFY ADDRESS OF NEXT 24/0/1 6 [8635] 92921 124 6 0 1 0 COPY LONG WORD MODIFY ADDRESS OF NEXT 28/0/1 5 [8636] 92922 128 5 0 1 0 TO O/P SECN BULK COPY SHORT NUMERIC 26/1/1 924 [8637] 92923 126 952 18 1 1 0 SET MODIFICATION REGISTER 25/0/1 2 [8638] 92924 125 2 0 1 0 STEP ON AND TEST 24/1/0 449 [8639] 92925 124 929 27 1 0 0 >NO UNCONDITIONAL JUMP 24/1/0 458 [8640] 92926 124 930 2 1 0 0 >YES UNCONDITIONAL JUMP 1/1/3 2 [8641] 92927 101 2 1 3 0 STEP INDIRECT MOD SELECT LITERAL ADDRESS 7/0/0 924 [8642] 92928 107 952 18 0 0 0 AUGMENT (N) BY (A) 6/0/0 924 [8643] 92929 106 952 18 0 0 0 TEST IF SECN ENDS AT 7/8191 SELECT (N) 18/0/0 4124 [8644] 92930 118 4124 0 0 0 SHIFT LOGICAL 27/0/1 458 [8645] 92931 127 930 2 0 1 0 >YES JUMP A != 25/0/3 4 [8646] 92932 125 4 0 3 0 STEP ON AND TEST Source: ChuckK/Q1000794 24/1/0 429 [8647] 92933 124 929 7 1 0 0 >NO UNCONDITIONAL JUMP 26/0/0 802 [8648] 92934 126 944 2 0 0 0 >OUTPUT BLOCK AND RESET (MR3) ENTER SUBROUTINE 24/1/0 429 [8649] 92935 124 929 7 1 0 0 > UNCONDITIONAL JUMP Start of procedure 930 at location 458 in chapter 8 [8650] [8650] 93000 PROCR 930 2009 END OF DUMPS 25/0/3 4 [8650] 93002 125 4 0 3 0 STEP ON AND TEST 24/1/0 460 [8651] 93003 124 930 4 1 0 0 UNCONDITIONAL JUMP 26/0/0 802 [8652] 93004 126 944 2 0 0 0 >WRITE BLOCK ENTER SUBROUTINE 6/0/0 925 [8653] 93005 106 952 19 0 0 0 SELECT (N) 5/0/0 781 [8654] 93006 2 941 9 0 0 0 SUBTRACT 27/0/0 656 [8655] 93007 127 936 6 0 0 0 >YES JUMP A = Z 6/0/0 858 [8656] 93008 106 949 2 0 0 0 SELECT (N) 27/0/1 472 [8657] 93009 127 930 16 0 1 0 >YES JUMP A != 23/0/0 3 [8658] 93010 123 3 0 0 0 STEP ON AND TEST 0/0/1 920 [8659] 93011 100 952 14 0 0 0 Address of modifier 24/1/0 364 [8660] 93012 124 927 6 1 0 0 >NO UNCONDITIONAL JUMP 6/0/0 2157 [8661] 93013 745 49 0 0 0 SELECT 27/0/0 301 [8662] 93014 70 924 5 0 0 0 >NORMAL JUMP IF A == 0 24/1/0 640 [8663] 93015 76 935 10 0 0 0 >DO FINAL DUMP AFTER THIS JUMP unconditional 26/1/1 920 [8664] 93016 126 952 14 1 1 0 SET MODIFICATION REGISTER 25/0/1 1 [8665] 93017 125 1 0 1 0 STEP ON AND TEST 24/1/0 479 [8666] 93018 124 930 23 1 0 0 >NO UNCONDITIONAL JUMP 6/0/0 860 [8667] 93019 106 949 4 0 0 0 SELECT (N) 27/0/0 482 [8668] 93020 70 931 2 0 0 0 >YES,END OF FINAL DUMP JUMP IF A == 0 25/1/2 0 [8669] 93021 125 0 1 2 0 INTERROGATE INDICATORS 24/1/0 469 [8670] 93022 76 930 13 0 0 0 >THIS WAY FOR TYPE 5 JUMP unconditional 1/1/3 1 [8671] 93023 101 1 1 3 0 STEP IND MOD SELECT LITERAL ADDRESS 7/0/0 920 [8672] 93024 107 952 14 0 0 0 AUGMENT (N) BY (A) 24/1/0 656 [8673] 93025 124 936 6 1 0 0 > UNCONDITIONAL JUMP Start of procedure 931 at location 482 in chapter 8 [8674] [8674] 93100 PROCR 931 2010 ENTRY FROM PROGRAMUNLOAD 2/0/0 1916 [8674] 93102 5 741 2 0 0 0 SET'ABDON'IND TRANSFER 25/1/1 4096 [8675] 93103 125 4096 1 1 0 CLEAR INDICATORS 2/0/0 2107 [8676] 93104 5 744 75 0 0 0 SET 'PTS IN CONTROL' TRANSFER 6/0/0 866 [8677] 93105 949 10 0 0 0 TEST CLEO DUMP TAKEN SELECT 27/0/1 494 [8678] 93106 127 931 14 0 1 0 >YES JUMP A != 24/0/3 886 [8679] 93107 124 951 8 0 3 0 TEST BTS PRINTS ON-LINE MODIFY ADDRESS OF NEXT 6/0/0 26 [8680] 93108 106 26 0 0 0 (3) SELECT (N) 27/0/0 494 [8681] 93109 127 931 14 0 0 0 >NO JUMP A = Z 1/1/2 1 [8682] 93110 12 0 0 0 1 SUBTRACT LITERAL 27/0/1 523 [8683] 93111 71 932 17 0 0 0 >YES O'LAY PASS 3 JUMP IF A != 0 6/0/0 865 [8684] 93112 106 949 9 0 0 0 TEST ANY DUMPS 2 OR 4 TAKEN(COMPARISONS) SELECT (N) 27/0/1 523 [8685] 93113 127 932 17 0 1 0 >YES O'LAY PASS 3 JUMP A != 6/0/0 867 [8686] 93114 106 949 11 0 0 0 SELECT (N) 27/0/1 497 [8687] 93115 127 931 17 0 1 0 >YES JUMP A != 26/0/0 844 [8688] 93116 80 948 2 0 0 0 >GET TO'FINIS'BEFORE CLOSING FILE ENTER SUBROUTINE 1/1/3 28 [8689] 93117 101 28 1 3 0 SELECT LITERAL ADDRESS 26/0/0 2264 [8690] 93118 126 749 2 0 0 0 >CLOSE RTE 7 TAPE ENTER SUBROUTINE 25/1/1 4096 [8691] 93119 125 4096 1 1 0 SET NON INT CLEAR INDICATORS 6/0/0 2157 [8692] 93120 0 745 49 0 0 0 '2/0/1' IND SELECT 27/0/1 2161 [8693] 93121 71 745 53 0 0 0 >YES JUMP IF A != 0 6/0/0 1916 [8694] 93122 0 741 2 0 0 0 'PROG END' IND SELECT 27/0/0 2158 [8695] 93123 70 745 50 0 0 0 >NO JUMP IF A == 0 6/0/0 2193 [8696] 93124 0 745 85 0 0 0 1/1/3 2 SELECT 2/0/0 2168 [8697] 93125 5 745 60 0 0 0 TRANSFER 24/1/0 2158 [8698] 93126 76 745 50 0 0 0 JUMP unconditional 1/1/3 0 [8699] 93127 10 0 0 0 0 DUMMY ORDER SELECT LITERAL Source: RayS/Q1000795 Start of procedure 932 at location 508 in chapter 8 [8700] [8700] 93200 PROCR 932 2011 PREPARE TO READ IN PASS 3 0/0/0 0 [8700] 93202 100 0 0 0 0 LINK HALT 6/0/0 867 [8701] 93203 106 949 11 0 0 0 TEST TAPE ALIGNED SELECT (N) 27/0/0 522 [8702] 93204 127 932 16 0 0 0 >NO JUMP A = Z 0/1/2 906 [8703] 93205 100 951 28 1 2 0 RUN BACK TO START REPLACE (B) BY (N) 1/1/3 35 [8704] 93206 101 35 1 3 0 (O/P) SELECT LITERAL ADDRESS 26/0/0 2264 [8705] 93207 126 749 2 0 0 0 ENTER SUBROUTINE 1/1/3 10 [8706] 93208 101 10 1 3 0 10=WORD HOLDING IDENTIFIER SELECT LITERAL ADDRESS 18/0/1 5 [8707] 93209 30 0 0 0 5 SHIFT (A) BY QUARTETS 24/0/3 2104 [8708] 93210 124 744 72 0 3 0 MODIFY ADDRESS OF NEXT 4/0/0 55 [8709] 93211 104 55 0 0 0 (3) ADD (N) TO (A) 18/1/1 4118 [8710] 93212 32 0 0 0 10- SHIFT (AB) BY QUARTETS 1/1/3 36 [8711] 93213 101 36 1 3 0 SELECT LITERAL ADDRESS 26/0/0 2264 [8712] 93214 126 749 2 0 0 0 > ENTER SUBROUTINE 1/1/3 1 [8713] 93215 101 1 1 3 0 SELECT LITERAL ADDRESS 26/0/1 508 [8714] 93216 126 932 2 0 1 0 >LEAVE S/R LEAVE SUBROUTINE 1/1/3 40 [8715] 93217 101 40 1 3 0 SELECT LITERAL ADDRESS 0/0/2 2102 [8716] 93218 34 744 70 0 0 0 SET (N) IN B 6/0/0 2264 [8717] 93219 106 749 2 0 0 0 DUMMY SELECT (N) 26/0/0 508 [8718] 93220 80 932 2 0 0 0 >ALIGN TAPE ENTER SUBROUTINE 0/0/2 872 [8719] 93221 100 950 6 0 2 0 READ TO START REPLACE (B) BY (N) 1/1/3 7 [8720] 93222 101 7 1 3 0 OF PASS 3 OF SELECT LITERAL ADDRESS 26/0/0 2264 [8721] 93223 126 749 2 0 0 0 >READ ENTER SUBROUTINE 24/1/2 874 [8722] 93224 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT 6/1/0 12 [8723] 93225 106 12 1 0 0 SELECT (N) 5/1/0 904 [8724] 93226 105 951 26 1 0 0 SUBTRACT (N) FROM (A) 27/0/1 527 [8725] 93227 71 932 21 0 0 0 >NOT AT 'CHIPT' YET JUMP IF A != 0 6/0/0 2157 [8726] 93228 0 745 49 0 0 0 '2/0/1' IND SELECT 27/0/0 2034 [8727] 93229 70 744 2 0 0 0 >NOT SET, NORMAL OLAY JUMP IF A == 0 25/1/1 4096 [8728] 93230 125 4096 1 1 0 CLEAR INDICATORS 26/0/0 2271 [8729] 93231 126 749 9 0 0 0 >SET(71)FOR MASTER ENTER SUBROUTINE 1/1/3 40 [8730] 93232 101 40 1 3 0 SELECT LITERAL ADDRESS 0/0/2 2102 [8731] 93233 34 744 70 0 0 0 SET (N) IN B 26/0/0 2264 [8732] 93234 80 749 2 0 0 0 >BACK 1 I/P>I/P ENTER SUBROUTINE 25/1/1 4096 [8733] 93235 125 4096 1 1 0 CLEAR INDICATORS 24/0/3 2522 [8734] 93236 124 755 2 0 3 0 CLOSE PROGM SWITCH MODIFY ADDRESS OF NEXT 6/0/0 9 [8735] 93237 106 9 0 0 0 SELECT (N) 24/0/3 2522 [8736] 93238 124 755 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/0 7 [8737] 93239 102 7 0 0 0 TRANSFER (A) TO N 24/1/1 2104 [8738] 93240 124 744 72 1 1 0 MG 0 SET MODIFICATION GROUP 24/1/0 2052 [8739] 93241 76 744 20 0 0 0 >CONTINUE WITH OLAY JUMP unconditional Start of procedure 933 at location 548 in chapter 8 [8740] [8740] 93300 PROCR 933 2012 FORM UP NUMBER OF TRACE POINTS 1/1/3 1 [8740] 93302 101 1 1 3 0 SET W/L 2 NON ZERO SELECT LITERAL ADDRESS 2/0/0 859 [8741] 93303 102 949 3 0 0 0 TRANSFER (A) TO N 6/1/0 890 [8742] 93304 106 951 12 1 0 0 SET IND MOD=12:0 SELECT (N) 2/1/0 922 [8743] 93305 102 952 16 1 0 0 TEST I/C SERIAL TRANSFER (A) TO N 24/0/1 922 [8744] 93306 124 952 16 0 1 0 MODIFY ADDRESS OF NEXT 6/0/2 7 [8745] 93307 106 7 0 2 0 SELECT (N) 27/0/0 558 [8746] 93308 127 933 12 0 0 0 >YES JUMP A = Z 23/0/0 2 [8747] 93309 123 2 0 0 0 TEST END OF TRACE PT STEP ON AND TEST 0/0/1 922 [8748] 93310 100 952 16 0 0 0 Address of modifier 24/1/0 552 [8749] 93311 124 933 6 1 0 0 >NO UNCONDITIONAL JUMP 6/0/0 922 [8750] 93312 106 952 16 0 0 0 SELECT (N) 24/1/2 874 [8751] 93313 124 950 8 1 2 0 TRANSFER 2XNO OF MODIFY ADDRESS OF NEXT 2/1/0 35 [8752] 93314 102 35 1 0 0 TRACE PTS TO O/P SECN TRANSFER (A) TO N 24/1/2 874 [8753] 93315 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT Source: DaveJ/Q1000796 2/1/0 33 [8754] 93316 102 33 1 0 0 TRANSFER (A) TO N 6/0/0 922 [8755] 93317 106 952 16 0 0 0 SET IND MOD AT 2XNO OF TRACE PTS/0 SELECT (N) 18/0/0 5 [8756] 93318 118 5 0 0 0 SHIFT LOGICAL 2/1/0 920 [8757] 93319 102 952 14 1 0 0 TRANSFER (A) TO N 24/1/0 410 [8758] 93320 124 928 2 1 0 0 g UNCONDITIONAL JUMP Start of procedure 934 at location 567 in chapter 8 [8759] [8759] 93400 PROCR 934 2013 DUMP TRACE POINTS 25/1/2 0 [8759] 93402 125 0 1 2 0 INTERROGATE INDICATORS 0/0/2 878 [8760] 93403 100 950 12 0 2 0 BIT 20 TEST SEC OR PROCR REPLACE (B) BY (N) 24/0/1 920 [8761] 93404 124 952 14 0 1 0 MODIFY ADDRESS OF NEXT 15/0/2 7 [8762] 93405 115 7 0 2 0 COLLATE AND ADD 27/0/0 581 [8763] 93406 127 934 16 0 0 0 gPROCR JUMP A = Z 25/1/2 0 [8764] 93407 125 0 1 2 0 INTERROGATE INDICATORS 0/0/2 879 [8765] 93408 100 950 13 0 2 0 BITS 14->19 REPLACE (B) BY (N) 24/0/1 920 [8766] 93409 124 952 14 0 1 0 0 MODIFY ADDRESS OF NEXT 15/0/2 7 [8767] 93410 115 7 0 2 0 REF COLLATE AND ADD 18/0/3 3 [8768] 93411 118 3 0 3 0 SHIFT BINARY 18/0/0 4124 [8769] 93412 118 4124 0 0 0 SHIFT LOGICAL 2/1/3 7 [8770] 93413 102 7 1 3 0 TRANSFER (A) TO N 0/0/2 877 [8771] 93414 100 950 11 0 2 0 BITS 1->13 REPLACE (B) BY (N) 24/1/0 587 [8772] 93415 124 934 22 1 0 0 g UNCONDITIONAL JUMP 1/0/1 28 [8773] 93416 101 28 0 1 0 Q3,4,5 PREPARE FOR DIGIT COLLATION 24/0/1 920 [8774] 93417 124 952 14 0 1 0 MODIFY ADDRESS OF NEXT 15/0/2 7 [8775] 93418 115 7 0 2 0 REF COLLATE AND ADD 18/0/0 4126 [8776] 93419 118 4126 0 0 0 SHIFT LOGICAL 2/1/3 7 [8777] 93420 102 7 1 3 0 TRANSFER (A) TO N 1/0/1 3 [8778] 93421 101 3 0 1 0 PREPARE FOR DIGIT COLLATION 24/0/1 920 [8779] 93422 124 952 14 0 1 0 MODIFY ADDRESS OF NEXT 15/0/2 7 [8780] 93423 115 7 0 2 0 ITEM COLLATE AND ADD 2/1/3 5 [8781] 93424 102 5 1 3 0 TRANSFER (A) TO N 1/0/1 15 [8782] 93425 101 15 0 1 0 PREPARE FOR DIGIT COLLATION 24/0/1 920 [8783] 93426 124 952 14 0 1 0 TRANSFER REL ADD TO MODIFY ADDRESS OF NEXT 15/0/2 6 [8784] 93427 115 6 0 2 0 O/P SECN COLLATE AND ADD 2/1/3 9 [8785] 93428 102 9 1 3 0 TRANSFER (A) TO N 1/0/1 16 [8786] 93429 101 16 0 1 0 PREPARE FOR DIGIT COLLATION 24/0/1 920 [8787] 93430 124 952 14 0 1 0 FORM UP 2X CHAP NO MODIFY ADDRESS OF NEXT 15/0/2 6 [8788] 93431 115 6 0 2 0 COLLATE AND ADD 18/0/0 4124 [8789] 93432 118 4124 0 0 0 SHIFT LOGICAL 18/0/3 1 [8790] 93433 118 1 0 3 0 SHIFT BINARY 26/0/0 808 [8791] 93434 126 945 2 0 0 0 gFORM UP CHAP START ENTER SUBROUTINE 2/1/0 922 [8792] 93435 102 952 16 1 0 0 START+END TRANSFER (A) TO N 6/0/0 922 [8793] 93436 106 952 16 0 0 0 START ONLY SELECT (N) 4/1/3 9 [8794] 93437 104 9 1 3 0 ADD (N) TO (A) 3/1/3 11 [8795] 93438 103 11 1 3 0 TRANSFER ABS ADD TO O/P SECN COPY (A) TO N 3/0/0 861 [8796] 93439 103 949 5 0 0 0 W/L COPY (A) TO N 18/0/3 3 [8797] 93440 118 3 0 3 0 ROUND DOWN TO EVEN ADDRESS SHIFT BINARY 18/0/0 4127 [8798] 93441 118 4127 0 0 0 SHIFT LOGICAL 18/0/3 1 [8799] 93442 118 1 0 3 0 SHIFT BINARY 4/1/0 892 [8800] 93443 104 951 14 1 0 0 ADD (N) TO (A) 4/1/0 892 [8801] 93444 104 951 14 1 0 0 ADD (N) TO (A) 24/0/3 2526 [8802] 93445 124 755 6 0 3 0 COPY 2 LONG WORDS MODIFY ADDRESS OF NEXT 24/0/1 6 [8803] 93446 124 6 0 1 0 MODIFY ADDRESS OF NEXT 28/0/1 13 [8804] 93447 128 13 0 1 0 BULK COPY SHORT NUMERIC 24/0/3 861 [8805] 93448 124 949 5 0 3 0 TFRANSFER TAG TO O/P SECN MODIFY ADDRESS OF NEXT 23/0/3 0 [8806] 93449 123 0 0 3 0 SELECT TAG 1/1/1 64 [8807] 93450 101 64 1 1 0 ADD LITERAL ADDRESS 18/0/0 8 [8808] 93451 118 8 0 0 0 SHIFT LOGICAL 4/1/3 6 [8809] 93452 104 6 1 3 0 ADD (N) TO (A) Source: DaveJ/Q1000797 2/1/3 6 [8810] 93453 102 6 1 3 0 TRANSFER (A) TO N 26/1/1 920 [8811] 93454 126 952 14 1 1 0 TEST END OF TRACE POINTS SET MODIFICATION REGISTER 25/0/1 2 [8812] 93455 125 2 0 1 0 STEP ON AND TEST 24/1/0 626 [8813] 93456 124 934 61 1 0 0 gNO UNCONDITIONAL JUMP 6/1/0 896 [8814] 93457 106 951 18 1 0 0 SET UP B/E WORD SELECT (N) 2/1/3 20 [8815] 93458 102 20 1 3 0 TRANSFER (A) TO N 26/0/0 782 [8816] 93459 126 942 2 0 0 0 gWRITE BLOCK ENTER SUBROUTINE 24/1/0 301 [8817] 93460 124 924 5 1 0 0 g UNCONDITIONAL JUMP 1/1/3 2 [8818] 93461 101 2 1 3 0 STEP IND MOD SELECT LITERAL ADDRESS 7/0/0 920 [8819] 93462 107 952 14 0 0 0 AUGMENT (N) BY (A) 25/0/3 16 [8820] 93463 125 16 0 3 0 TEST END OF BLOCK STEP ON AND TEST 24/1/0 567 [8821] 93464 124 934 2 1 0 0 gNO UNCONDITIONAL JUMP 26/0/0 802 [8822] 93465 126 944 2 0 0 0 gOUTPUT BLOCK AND RESET (MR3) ENTER SUBROUTINE 24/1/0 567 [8823] 93466 124 934 2 1 0 0 g UNCONDITIONAL JUMP Start of procedure 935 at location 632 in chapter 8 [8824] [8824] 93500 PROCR 935 2014 FROM UNLOADER WHEN PROG IS ABANDONED 1/1/3 0 [8824] 93502 10 0 0 0 0 SELECT LITERAL 2/0/0 2107 [8825] 93503 5 744 75 0 0 0 SET 'PTS IN CONTROL' TRANSFER 6/1/0 944 [8826] 93504 106 955 2 1 0 0 STORE CONTENTS SELECT (N) 4/0/0 2526 [8827] 93505 104 755 6 0 0 0 OF PROGS MOD ADD (N) TO (A) 28/0/0 914 [8828] 93506 128 952 8 0 0 0 REGS BULK COPY SHORT NUMERIC 24/0/3 886 [8829] 93507 124 951 8 0 3 0 SET PROGS MOD MODIFY ADDRESS OF NEXT 24/0/3 2 [8830] 93508 124 2 0 3 0 GROUP MODIFY ADDRESS OF NEXT 24/1/1 29 [8831] 93509 124 29 1 1 0 SET MODIFICATION GROUP 26/0/0 832 [8832] 93510 126 947 2 0 0 0 gTRANSFER CONTENTS OF MOD REGS TO O/P SE ENTER SUBROUTINE 25/1/2 0 [8833] 93511 125 0 1 2 0 INTERROGATE INDICATORS 2/0/0 860 [8834] 93512 102 949 4 0 0 0 CLEAR DUMP TYPE OF DUMP IN PROGRESS TRANSFER (A) TO N 6/0/0 870 [8835] 93513 106 950 4 0 0 0 10 IN Q5 SELECT (N) 3/0/0 863 [8836] 93514 103 949 7 0 0 0 SET HEADING IND COPY (A) TO N 3/0/0 864 [8837] 93515 103 949 8 0 0 0 SET TYPE 7 IND COPY (A) TO N 2/0/0 858 [8838] 93516 102 949 2 0 0 0 STORE TYPE IN W/L 1 TRANSFER (A) TO N 6/0/0 867 [8839] 93517 0 949 11 0 0 0 TEST TAPE ALIGNED AT END OF DUMPS SELECT 27/0/1 652 [8840] 93518 71 936 2 0 0 0 gYES JUMP IF A != 0 26/0/0 844 [8841] 93519 80 948 2 0 0 0 gRUN FWD TO 'FINIS' ENTER SUBROUTINE 1/1/3 15 [8842] 93520 10 0 0 0 p SELECT LITERAL 2/0/0 867 [8843] 93521 5 949 11 0 0 0 SET ALIGN IND TRANSFER Start of procedure 936 at location 652 in chapter 8 [8844] [8844] 93600 PROCR 936 2015 INITIAL AND FINAL DUMPS 1/1/3 1 [8844] 93602 101 1 1 3 0 SET IND MOD AT SELECT LITERAL ADDRESS 3/0/0 920 [8845] 93603 103 952 14 0 0 0 NO OF CHAPS+1/1 COPY (A) TO N 4/0/0 2525 [8846] 93604 104 755 5 0 0 0 ADD (N) TO (A) 2/0/0 921 [8847] 93605 102 952 15 0 0 0 TRANSFER (A) TO N 6/0/0 858 [8848] 93606 106 949 2 0 0 0 TRANSFER PM TYPE SELECT (N) 24/1/2 874 [8849] 93607 124 950 8 1 2 0 TO O/P SECN MODIFY ADDRESS OF NEXT 2/1/0 7 [8850] 93608 102 7 1 0 0 TRANSFER (A) TO N 6/0/0 864 [8851] 93609 106 949 8 0 0 0 TEST TYPE 7 IND SET SELECT (N) 27/0/0 670 [8852] 93610 127 936 20 0 0 0 gNO JUMP A = Z 6/0/0 781 [8853] 93611 0 941 9 0 0 0 PQ END FINAL DUMP SELECT 3/0/0 925 [8854] 93612 103 952 19 0 0 0 COPY (A) TO N 24/1/2 874 [8855] 93613 124 950 8 1 2 0 SET MOD REG IN O/P SECN MODIFY ADDRESS OF NEXT 2/1/0 35 [8856] 93614 102 35 1 0 0 AT 600:0 TRANSFER (A) TO N 2/0/0 924 [8857] 93615 102 952 18 0 0 0 TRANSFER (A) TO N 24/1/2 874 [8858] 93616 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT 2/1/0 32 [8859] 93617 102 32 1 0 0 TRANSFER (A) TO N 2/0/0 864 [8860] 93618 102 949 8 0 0 0 CLEAR TYPE 7 IND TRANSFER (A) TO N 24/1/0 410 [8861] 93619 76 928 2 0 0 0 gJOIN UP WITH MAIN DUMP ROUTINE JUMP unconditional 6/0/0 920 [8862] 93620 0 952 14 0 0 0 CHAP NO INITIAL DUMP SELECT 24/1/2 874 [8863] 93621 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT Source: RayS/Q1000798 7/1/0 7 [8864] 93622 107 7 1 0 0 AUGMENT (N) BY (A) 4/0/0 920 [8865] 93623 104 952 14 0 0 0 ADD (N) TO (A) 26/0/0 808 [8866] 93624 126 945 2 0 0 0 .FORM UP CHAP START AND END ENTER SUBROUTINE 3/1/0 924 [8867] 93625 103 952 18 1 0 0 COPY (A) TO N 24/1/2 874 [8868] 93626 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT 2/1/0 33 [8869] 93627 102 33 1 0 0 TRANSFER (A) TO N 6/0/0 925 [8870] 93628 106 952 19 0 0 0 SELECT (N) 24/1/2 874 [8871] 93629 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT 2/1/0 35 [8872] 93630 102 35 1 0 0 TRANSFER (A) TO N 24/1/0 410 [8873] 93631 76 928 2 0 0 0 >JOIN UP WITH MAIN DUMP ROUTINE JUMP unconditional Start of procedure 937 at location 682 in chapter 8 [8874] [8874] 93700 PROCR 937 2016 ENTRY AT END OF PROGRAM OVERLAY 26/0/0 824 [8874] 93702 126 946 2 0 0 0 >SET UP (MR2) ENTER SUBROUTINE 24/0/3 2522 [8875] 93703 124 755 2 0 3 0 STORE OVERLAYED CHAP MODIFY ADDRESS OF NEXT 6/0/0 32 [8876] 93704 106 32 0 0 0 SELECT (N) 3/0/0 858 [8877] 93705 103 949 2 0 0 0 COPY (A) TO N 4/0/0 858 [8878] 93706 104 949 2 0 0 0 SET (MR1) AI ADD (N) TO (A) 4/0/0 2523 [8879] 93707 104 755 3 0 0 0 ((2XCHAP NO)+SP CHAP START ADD (N) TO (A) 2/0/0 922 [8880] 93708 102 952 16 0 0 0 TRANSFER (A) TO N 26/1/1 922 [8881] 93709 126 952 16 1 1 0 SET MODIFICATION REGISTER 24/0/3 2522 [8882] 93710 124 755 2 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 30 [8883] 93711 106 30 0 0 0 TEST O'LAYING CHAP SELECT (N) 5/0/0 2525 [8884] 93712 105 755 5 0 0 0 AN INITIAL CHAP SUBTRACT (N) FROM (A) 27/0/3 695 [8885] 93713 127 937 15 0 3 0 >YES JUMP A < Z 1/1/2 1 [8886] 93714 101 1 1 2 0 SUBTRACT LITERAL ADDRESS 4/0/0 2525 [8887] 93715 104 755 5 0 0 0 STORE CORRECTED O'LAYING ADD (N) TO (A) 2/0/0 859 [8888] 93716 102 949 3 0 0 0 CHAP NO TRANSFER (A) TO N 1/0/1 1 [8889] 93717 101 1 0 1 0 TEST PM PT DETAILS PREPARE FOR DIGIT COLLATION 15/0/2 5 [8890] 93718 115 5 0 2 0 ZERO COLLATE AND ADD 27/0/0 709 [8891] 93719 127 937 29 0 0 0 >YES JUMP A = Z 5/0/0 859 [8892] 93720 105 949 3 0 0 0 TEST O'LAYING CHAP SUBTRACT (N) FROM (A) 27/0/0 716 [8893] 93721 127 938 2 0 0 0 >YES JUMP A = Z 4/0/0 859 [8894] 93722 104 949 3 0 0 0 ADD (N) TO (A) 5/0/0 858 [8895] 93723 105 949 2 0 0 0 TEST OVERLAID SUBTRACT (N) FROM (A) 27/0/1 707 [8896] 93724 127 937 27 0 1 0 >NO JUMP A != 5/0/2 0 [8897] 93725 105 0 0 2 0 SET PM POINT CLOSED SUBTRACT (N) FROM (A) 2/0/2 0 [8898] 93726 102 0 0 2 0 TRANSFER (A) TO N 25/0/2 18 [8899] 93727 125 18 0 2 0 TEST ALL PTS STEP ON AND TEST 24/1/0 683 [8900] 93728 124 937 3 1 0 0 CHECKED >NO UNCONDITIONAL JUMP 2/1/0 858 [8901] 93729 102 949 2 1 0 0 CLEAR WLS TRANSFER (A) TO N 2/0/0 860 [8902] 93730 102 949 4 0 0 0 TRANSFER (A) TO N 2/0/0 867 [8903] 93731 102 949 11 0 0 0 CLEAR STATE OF TAPE IND TRANSFER (A) TO N 1/1/3 0 [8904] 93732 10 0 0 0 0 DUMMY ORDER SELECT LITERAL 26/0/0 2271 [8905] 93733 126 749 9 0 0 0 >RESTORE(71)FOR PTS ENTER SUBROUTINE 24/0/3 886 [8906] 93734 124 951 8 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 0 [8907] 93735 124 0 1 0 0 (40) UNCONDITIONAL JUMP Start of procedure 938 at location 716 in chapter 8 [8908] [8908] 93800 PROCR 938 2017 1/0/1 4 [8908] 93802 101 4 0 1 0 TEST PM POINT PREPARE FOR DIGIT COLLATION 15/0/2 4 [8909] 93803 115 4 0 2 0 NOT YET USED COLLATE AND ADD 27/0/0 723 [8910] 93804 127 938 9 0 0 0 >YES JUMP A = Z 25/1/2 0 [8911] 93805 125 0 1 2 0 INTERROGATE INDICATORS 5/0/2 0 [8912] 93806 105 0 0 2 0 SET PM POINT SUBTRACT (N) FROM (A) 2/0/2 0 [8913] 93807 102 0 0 2 0 OPEN TRANSFER (A) TO N 24/1/0 755 [8914] 93808 124 938 41 1 0 0 > UNCONDITIONAL JUMP 6/0/0 858 [8915] 93809 106 949 2 0 0 0 SET ALLOCATED CHAP SELECT (N) 18/0/0 2 [8916] 93810 118 2 0 0 0 NO IN LIST SHIFT LOGICAL 14/0/2 4 [8917] 93811 114 4 0 2 0 REPLACE SELECTED BITS 24/0/3 886 [8918] 93812 124 951 8 0 3 0 MODIFY ADDRESS OF NEXT Source: DaveJ/Q1000799 6/0/1 18 [8919] 93813 106 18 0 1 0 FORM ABS ADD OF SELECT (N) 4/0/2 0 [8920] 93814 104 0 0 2 0 PM POINT ADD (N) TO (A) 3/0/2 0 [8921] 93815 103 0 0 2 0 COPY (A) TO N 2/0/0 922 [8922] 93816 102 952 16 0 0 0 TRANSFER (A) TO N 26/1/3 922 [8923] 93817 126 952 16 1 3 0 SET MODIFICATION REGISTER 24/0/3 886 [8924] 93818 124 951 8 0 3 0 MODIFY ADDRESS OF NEXT 6/0/3 0 [8925] 93819 106 0 0 3 0 STORE REPLACED INSTRUCTION SELECT (N) 3/0/2 2 [8926] 93820 103 2 0 2 0 COPY (A) TO N 27/0/2 748 [8927] 93821 127 938 34 0 2 0 gYES TEST ACTION POSITIVE JUMP A >= Z 5/0/2 2 [8928] 93822 105 2 0 2 0 FORM COMPLEMENT SUBTRACT (N) FROM (A) 5/0/2 2 [8929] 93823 105 2 0 2 0 OF ACTION SUBTRACT (N) FROM (A) 18/0/3 3 [8930] 93824 118 3 0 3 0 ALIGN INSTRUCTION SHIFT BINARY 18/0/1 4124 [8931] 93825 118 4124 0 1 0 AT LEAST SIG END SHIFT ARITHMETIC 1/1/2 64 [8932] 93826 101 64 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 750 [8933] 93827 127 938 36 0 0 0 g24/0/0 JUMP A = Z 1/1/2 1 [8934] 93828 101 1 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 750 [8935] 93829 127 938 36 0 0 0 g24/0/1 JUMP A = Z 1/1/2 2 [8936] 93830 101 2 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 750 [8937] 93831 127 938 36 0 0 0 g24/0/3 JUMP A = Z 1/1/2 3 [8938] 93832 101 3 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 750 [8939] 93833 127 938 36 0 0 0 g24/1/2 JUMP A = Z 6/0/0 873 [8940] 93834 0 950 7 0 0 0 25/01/2000 SELECT 24/1/0 754 [8941] 93835 124 938 40 1 0 0 g UNCONDITIONAL JUMP 1/1/3 4096 [8942] 93836 101 4096 1 3 0 SET 24 ACTION IND SELECT LITERAL ADDRESS 7/0/2 5 [8943] 93837 107 5 0 2 0 IN LIST AUGMENT (N) BY (A) 24/0/3 886 [8944] 93838 124 951 8 0 3 0 MODIFY ADDRESS OF NEXT 6/0/3 1 [8945] 93839 106 1 0 3 0 STORE NEXT INSTRUCTION SELECT (N) 2/0/2 3 [8946] 93840 102 3 0 2 0 TRANSFER (A) TO N 6/0/2 0 [8947] 93841 106 0 0 2 0 SELECT (N) 2/0/0 922 [8948] 93842 102 952 16 0 0 0 TRANSFER (A) TO N 26/1/3 922 [8949] 93843 126 952 16 1 3 0 SET MODIFICATION REGISTER 0/0/2 877 [8950] 93844 34 950 11 0 0 0 BITS 1-13 SET (N) IN B 24/0/3 886 [8951] 93845 124 951 8 0 3 0 MODIFY ADDRESS OF NEXT 15/0/1 18 [8952] 93846 115 18 0 1 0 COLLATE AND ADD 2/0/0 860 [8953] 93847 5 949 4 0 0 0 TRANSFER 5/0/0 860 [8954] 93848 2 949 4 0 0 0 SUBTRACT 5/0/0 2524 [8955] 93849 2 755 4 0 0 0 (PARAS+1) SUBTRACT 4/0/0 876 [8956] 93850 1 950 10 0 0 0 26/0/0 ADD 24/0/3 886 [8957] 93851 124 951 8 0 3 0 MODIFY ADDRESS OF NEXT 2/0/3 0 [8958] 93852 102 0 0 3 0 INSERT ENTRY POINT TRANSFER (A) TO N 24/1/0 707 [8959] 93853 76 937 27 0 0 0 JUMP unconditional Start of procedure 939 at location 768 in chapter 8 [8960] [8960] 93900 PROCR 939 2017A ENTRY AT START OF PROGRAM OVERLAY 26/0/0 508 [8960] 93902 80 932 2 0 0 0 gRUN BACK TO M/CODE START ENTER SUBROUTINE 26/0/0 2271 [8961] 93903 126 749 9 0 0 0 gSET(71)FOR MASTER ENTER SUBROUTINE 1/1/3 0 [8962] 93904 10 0 0 0 0 DUMMY SELECT LITERAL 6/0/0 867 [8963] 93905 0 949 11 0 0 0 REALIGNMENT IND SELECT 24/0/3 886 [8964] 93906 124 951 8 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 0 [8965] 93907 124 0 1 0 0 (45)->DO OVERLAY UNCONDITIONAL JUMP Start of procedure 940 at location 774 in chapter 8 [8966] [8966] 94000 PROCR 940 2018 INSTRUCTION CONSTANTS FOR PASS 2 Start of procedure 941 at location 774 in chapter 8 [8966] [8966] 94100 PROCR 941 2019 CONVERT S/R 0/0/0 0 [8966] 94102 100 0 0 0 0 HALT 2/0/0 861 [8967] 94103 102 949 5 0 0 0 W/L TRANSFER (A) TO N 0/0/3 871 [8968] 94104 100 950 5 0 3 0 SET DECIMAL SET RADIX 24/0/2 934 [8969] 94105 124 954 2 0 2 0 SELECT LITERAL AND DIVISION Source: DaveJ/Q1000800 12/0/0 861 [8970] 94106 112 949 5 0 0 0 CONVERT TO DECIMAL CONVERT 0/0/3 886 [8971] 94107 100 951 8 0 3 0 SET BINARY SET RADIX 26/0/1 774 [8972] 94108 126 941 2 0 1 0 LEAVE SUBROUTINE 0/0/0 0 [8973] 94109 100 0 0 0 0 (49)CONST IN PROCR 2015=PQ END HALT Start of procedure 942 at location 782 in chapter 8 [8974] [8974] 94200 PROCR 942 2020 WRITE S/R 0/0/0 0 [8974] 94202 100 0 0 0 0 HALT 0/0/2 872 [8975] 94203 100 950 6 0 2 0 REPLACE (B) BY (N) 1/1/3 8 [8976] 94204 101 8 1 3 0 SELECT LITERAL ADDRESS 26/0/0 2264 [8977] 94205 126 749 2 0 0 0 gI/P-O/P FOR RTE 7 S/R ENTER SUBROUTINE 6/1/0 946 [8978] 94206 106 955 4 1 0 0 BULK CLEAR O/P SECN SELECT (N) 24/1/2 874 [8979] 94207 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT 28/1/1 0 [8980] 94208 128 0 1 1 0 BULK COPY LONG NUMERIC 25/1/1 4096 [8981] 94209 125 4096 1 1 0 CLEAR INDICATORS 1/1/3 0 [8982] 94210 10 0 0 0 0 DUMMY ORDER SELECT LITERAL 24/0/3 886 [8983] 94211 124 951 8 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [8984] 94212 126 0 0 0 0 (42)->SET TAG 15 ENTER SUBROUTINE 26/0/1 782 [8985] 94213 126 942 2 0 1 0 gLEAVE S/R LEAVE SUBROUTINE Start of procedure 943 at location 794 in chapter 8 [8986] [8986] 94300 PROCR 943 2021 SET UP (MR3) S/R 0/0/0 0 [8986] 94302 100 0 0 0 0 LINK HALT 24/1/2 874 [8987] 94303 124 950 8 1 2 0 -123 MODIFY ADDRESS OF NEXT 1/1/3 0 [8988] 94304 101 0 1 3 0 13-BIT ASL SELECT LITERAL ADDRESS 3/0/0 922 [8989] 94305 103 952 16 0 0 0 48+(123)/(123) COPY (A) TO N 1/1/1 48 [8990] 94306 101 48 1 1 0 ADD LITERAL ADDRESS 2/0/0 923 [8991] 94307 102 952 17 0 0 0 TRANSFER (A) TO N 26/1/3 922 [8992] 94308 126 952 16 1 3 0 SET MODIFICATION REGISTER 26/0/1 794 [8993] 94309 126 943 2 0 1 0 LEAVE SUBROUTINE Start of procedure 944 at location 802 in chapter 8 [8994] [8994] 94400 PROCR 944 2022 OUTPUT BLOCK AND RESET(MR3)S/R 0/0/0 0 [8994] 94402 100 0 0 0 0 HALT 6/1/0 896 [8995] 94403 106 951 18 1 0 0 SET UP B/E WORD SELECT (N) 2/1/3 4 [8996] 94404 102 4 1 3 0 TRANSFER (A) TO N 26/0/0 782 [8997] 94405 126 942 2 0 0 0 gWRITE BLOCK ENTER SUBROUTINE 26/0/0 794 [8998] 94406 126 943 2 0 0 0 gRESET (MR3) ENTER SUBROUTINE 26/0/1 802 [8999] 94407 126 944 2 0 1 0 gLEAVE S/R LEAVE SUBROUTINE Start of procedure 945 at location 808 in chapter 8 [9000] [9000] 94500 PROCR 945 2023 FORM UP CHAP START AND END S/R 0/0/0 0 [9000] 94502 81 945 2 0 0 0 START OF SUBROUTINE 3/0/0 861 [9001] 94503 3 949 5 0 0 0 2XCHAP COPY 4/0/0 2523 [9002] 94504 1 755 3 0 0 0 SPECIAL CHAP START ADD 2/0/0 824 [9003] 94505 5 946 2 0 0 0 WL TRANSFER 24/0/3 886 [9004] 94506 124 951 8 0 3 0 MODIFY ADDRESS OF NEXT 6/0/0 43 [9005] 94507 106 43 0 0 0 (3)PARA 43=TWICE PTS CHAP IN Q5 SELECT (N) 18/0/1 4124 [9006] 94508 30 0 0 0 4- SHIFT (A) BY QUARTETS 5/0/0 861 [9007] 94509 2 949 5 0 0 0 SUBTRACT 27/0/0 819 [9008] 94510 70 945 13 0 0 0 gTHIS CHAP CONTAINS PTS JUMP IF A == 0 1/1/3 0 [9009] 94511 10 0 0 0 0 SELECT LITERAL 24/1/0 821 [9010] 94512 76 945 15 0 0 0 JUMP unconditional 1/1/2 1500 [9011] 94513 101 1500 1 2 0 REDUCE CHAP END BY PTS LENGTH SUBTRACT LITERAL ADDRESS 18/0/1 5 [9012] 94514 30 0 0 0 5 SHIFT (A) BY QUARTETS 24/0/3 824 [9013] 94515 124 946 2 0 3 0 MODIFY ADDRESS OF NEXT 4/1/0 18 [9014] 94516 104 18 1 0 0 CHAP DETAILS EX SPECIAL CHAPTER ADD (N) TO (A) 26/0/1 808 [9015] 94517 82 945 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 946 at location 824 in chapter 8 [9016] [9016] 94600 PROCR 946 2024 SET UP(MR2) S/R 0/0/0 0 [9016] 94602 100 0 0 0 0 HALT 1/1/3 2342 [9017] 94603 101 752 2 1 3 0 START OF LIST SELECT LITERAL ADDRESS 3/0/0 922 [9018] 94604 103 952 16 0 0 0 W/L COPY (A) TO N 1/1/1 180 [9019] 94605 101 180 1 1 0 ADD LITERAL ADDRESS Source: ChuckK/Q1000801 2/0/0 923 [9020] 94606 102 952 17 0 0 0 TRANSFER (A) TO N 26/1/2 922 [9021] 94607 126 952 16 1 2 0 SET MODIFICATION REGISTER 26/0/1 824 [9022] 94608 126 946 2 0 1 0 >LEAVE S/R LEAVE SUBROUTINE 0/1/0 4097 [9023] 94609 100 4097 1 0 0 CONST=09001(PROCR 2001) COPY REGISTERS Start of procedure 947 at location 832 in chapter 8 [9024] [9024] 94700 PROCR 947 2025 TRANSFER CONTENTS OF MOD REGS TO O/P SECN 0/0/0 0 [9024] 94702 100 0 0 0 0 HALT 26/1/1 890 [9025] 94703 126 951 12 1 1 0 SET (MR1) AT 12/0 SET MODIFICATION REGISTER 26/1/3 898 [9026] 94704 126 951 20 1 3 0 SET (MR3) AT 6/0 SET MODIFICATION REGISTER 6/0/3 914 [9027] 94705 106 952 8 0 3 0 SELECT (N) 26/0/0 774 [9028] 94706 126 941 2 0 0 0 >CONVERT TO DECIMAL ENTER SUBROUTINE 24/1/2 874 [9029] 94707 124 950 8 1 2 0 MODIFY ADDRESS OF NEXT 2/1/1 21 [9030] 94708 102 21 1 1 0 TRANSFER (A) TO N 25/0/1 2 [9031] 94709 125 2 0 1 0 STEP ON AND TEST 24/1/0 841 [9032] 94710 124 947 11 1 0 0 > UNCONDITIONAL JUMP 25/0/3 1 [9033] 94711 125 1 0 3 0 STEP ON AND TEST 24/1/0 835 [9034] 94712 124 947 5 1 0 0 > UNCONDITIONAL JUMP 26/0/1 832 [9035] 94713 126 947 2 0 1 0 >LEAVE S/R LEAVE SUBROUTINE Start of procedure 948 at location 844 in chapter 8 [9036] [9036] 94800 PROCR 948 2026 RUN FWD TO FINIS,STEP BACK 1 S/R 0/0/0 0 [9036] 94802 100 0 0 0 0 HALT 0/1/2 894 [9037] 94803 100 951 16 1 2 0 ///// IN WORD 2 REPLACE (B) BY (N) 1/1/3 38 [9038] 94804 101 38 1 3 0 RUN BACK CONST SELECT LITERAL ADDRESS 26/0/0 2264 [9039] 94805 126 749 2 0 0 0 >I/P O/P S/R RTE 7 ENTER SUBROUTINE 24/0/3 886 [9040] 94806 124 951 8 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 64 [9041] 94807 124 64 0 3 0 MODIFY ADDRESS OF NEXT 6/1/0 4 [9042] 94808 106 4 1 0 0 SELECT (N) 1/1/1 0 [9043] 94809 101 0 1 1 0 ADD LITERAL ADDRESS 5/1/0 930 [9044] 94810 105 953 6 1 0 0 SUBTRACT (N) FROM (A) 27/0/1 845 [9045] 94811 127 948 3 0 1 0 >NO JUMP A != 0/0/2 935 [9046] 94812 100 954 3 0 2 0 REPLACE (B) BY (N) 1/1/3 44 [9047] 94813 101 44 1 3 0 SELECT LITERAL ADDRESS 26/0/0 2264 [9048] 94814 126 749 2 0 0 0 >I/P O/P S/R ENTER SUBROUTINE 26/0/1 844 [9049] 94815 126 948 2 0 1 0 >LEAVE S/R LEAVE SUBROUTINE Start of procedure 949 at location 858 in chapter 8 [9050] [9050] 94900 CONST 949 0 2027 SHORT W/L'S FOR PASS 2 0/0/0 0 [9050] 94902 (D)0; W/L 1 ALSO USED IN O'LAY +00000 0/0/0 0 [9051] 94903 0; W/L 2 ALSO USED IN O'LAY +00000 0/0/0 0 [9052] 94904 0; +00000 0/0/0 0 [9053] 94905 0; GENARAL W/L +00000 0/0/0 0 [9054] 94906 0; W/L FOR PMSR LINK-1 +00000 0/0/0 0 [9055] 94907 0; HEADING IND +00000 0/0/0 0 [9056] 94908 0; TYPE 10 IND +00000 0/0/0 0 [9057] 94909 0; COMP DUMP TAKEN IND +00000 0/0/0 0 [9058] 94910 0; CLEO DUMP TAKEN IND +00000 0/0/0 0 [9059] 94911 0; DUMP TAKEN SINCE O'LAY IND +00000 Start of procedure 950 at location 868 in chapter 8 [9060] [9060] 95000 CONST 950 0 2028 SHORT CONSTANTS FOR PASS 2 5/0/0 0 [9060] 95002 (D)50000; +50000 3/0/0 0 [9061] 95003 30000; +30000 10/0/0 0 [9062] 95004 t0000; +A0000 6/0/3 1638 [9063] 95005 66666; +66666 0/0/0 59 [9064] 95006 0003e; 59 +0003B 25/1/0 0 [9065] 95007 98000-; 25/0/1 ORDER -98000 16/0/0 123 [9066] 95008 0007e-; -(123) P RTE FOR RTE 7 -0007B 6/0/0 0 [9067] 95009 60000; +60000 26/0/0 0 [9068] 95010 t0000-; 26/0/0 ORDER -A0000 0/0/0 8191 [9069] 95011 01ppp; BITS 1->13 +01FFF 8/0/0 0 [9070] 95012 80000; BIT 20 +80000 7/1/3 0 [9071] 95013 7.000; BITS 14->19 +7E000 Source: ChuckK/Q1000802 Start of procedure 951 at location 880 in chapter 8 [9072] [9072] 95100 CONST 951 1 1 2029 LONG CONSTANTS FOR PASS 2 4/0/3 1906 [9072] 95102 (A)DUMPS; 46772 +54746 5/0/2 1862 [9073] 1/0/3 2419 [9074] 95104 START; 16973 +72735 7/0/1 1845 [9075] 15/0/3 3951 [9076] 95106 (D)6p6p6p6p6p; RESTART MARK WORD F6F6F +6F6F6 6/1/3 5878 [9077] 0/0/0 0 [9078] 95108 0000t00000; 10:0 00000 +0000A 0/0/0 10 [9079] 0/0/0 0 [9080] 95110 0000500000; 5:0 00000 +00005 0/0/0 5 [9081] 0/0/0 0 [9082] 95112 0000+00000; 12:0 00000 +0000C 0/0/0 12 [9083] 0/0/0 0 [9084] 95114 0000200000; 2:0 00000 +00002 0/0/0 2 [9085] 15/1/3 8191 [9086] 95116 00002ppppp; FFFFF +00002 0/0/0 2 [9087] 0/0/0 126 [9088] 95118 7.0000007.; BLOSK END WORD 0007E +7E000 7/1/3 0 [9089] 0/0/0 0 [9090] 95120 0000600000; 6:0 00000 +00006 0/0/0 6 [9091] 0/0/0 0 [9092] 95122 7777000000; XX/TAG W/L 00000 +77770 7/0/3 6000 [9093] 15/1/3 8191 [9094] 95124 00004ppppp; FFFFF +00004 0/0/0 4 [9095] 9/0/3 1907 [9096] 95126 (A)CHIPT; 96773 +53585 5/0/1 5509 [9097] 15/1/3 8191 [9098] 95128 (D)0000tppppp; FFFFF +0000A 0/0/0 10 [9099] Start of procedure 952 at location 908 in chapter 8 [9100] [9100] 95200 PROCR 952 2030 EDIT TABLE FOR'START'BLOCK,THEN LONG WL'S 0/0/0 831 [9100] 95202 100 946 9 0 0 0 09001 HALT 0/0/0 5 [9101] 95203 100 5 0 0 0 HALT 0/0/0 175 [9102] 95204 100 175 0 0 0 DATE HALT 0/0/0 5 [9103] 95205 100 5 0 0 0 HALT 0/0/0 156 [9104] 95206 100 156 0 0 0 TIME HALT 0/0/0 5 [9105] 95207 100 5 0 0 0 HALT 0/0/0 884 [9106] 95208 100 951 6 0 0 0 ALIGN WORD HALT 1/0/0 5 [9107] 95209 101 5 0 0 0 TABLE LOOK UP 0/0/0 924 [9108] 95210 100 952 18 0 0 0 'START' HALT 1/0/0 5 [9109] 95211 101 5 0 0 0 TABLE LOOK UP 0/0/0 0 [9110] 95212 100 0 0 0 0 PROG ID HALT 0/0/0 5 [9111] 95213 100 5 0 0 0 HALT 0/0/0 49 [9112] 95214 100 49 0 0 0 (3)PQ END HALT 0/0/0 5 [9113] 95215 100 5 0 0 0 HALT 0/0/0 896 [9114] 95216 100 951 18 0 0 0 BEW HALT 17/0/0 5 [9115] 95217 117 5 0 0 0 SPECIAL SELECT 1/0/3 2419 [9116] 95218 101 2419 0 3 0 CONST='START' INTERCHANGE AREA ADDRESSES 7/0/1 1845 [9117] 95219 107 1845 0 1 0 AUGMENT (N) BY (A) Start of procedure 953 at location 926 in chapter 8 [9118] [9118] 95300 CONST 953 1 2031 TYPING ANNEXE FOR ABANDON 1/0/3 1364 [9118] 95302 (A)ABAND; TYPING CONSTANTS 16554 +51525 5/0/0 5413 [9119] 2/0/2 7774 [9120] 95304 (A)ONS(D)5.5.; 25E5E +66657 6/0/3 1623 [9121] 5/0/2 6514 [9122] 95306 (A)FINIS; 55972 +56596 5/0/3 1430 [9123] 7/0/3 4978 [9124] 95308 OPTS; 77372 +00666 0/0/0 1638 [9125] Start of procedure 954 at location 934 in chapter 8 [9126] [9126] 95400 CONST 954 1 2032 BINARY TO DECIMAL CONVERSION TABLE 0/0/0 1 [9126] 95402 (D)0000000001; 00001 +00000 0/0/0 0 [9127] 0/0/0 22 [9128] 95404 0000000016; 00016 +00000 0/0/0 0 [9129] 0/0/0 598 [9130] 95406 0000000256; 00256 +00000 0/0/0 0 [9131] 0/0/2 150 [9132] 95408 0000004096; 04096 +00000 0/0/0 0 [9133] 6/0/2 5430 [9134] 95410 0000065536; 65536 +00000 0/0/0 0 [9135] Start of procedure 955 at location 944 in chapter 8 [9136] [9136] 95500 CONST 955 1 2033 BULK CLEAR COPY ITEMS 0/0/0 2 [9136] 95502 (D)0000600002; BULK COPY MOD REGS 00002 +00006 0/0/0 6 [9137] 0/0/0 0 [9138] 95504 2003600000; BULK CLEAR 54 00000 +20036 2/0/0 54 [9139] 0/0/0 0 [9140] 95506 2000600000; BULK CLEAR 6 00000 +20006 2/0/0 6 [9141] Start of procedure 956 at location 950 in chapter 8 [9142] [9142] 95600 PROCR 956 2034 TABLES 0/0/0 914 [9142] 95602 100 952 8 0 0 0 RESTORE MOD REGS HALT 0/0/0 6 [9143] 95603 100 6 0 0 0 HALT Start of procedure 957 at location 952 in chapter 8 [9144] [9144] 95700 PROCR 957 3801 PREPERATION AND W/L'S Source: ChuckK/Q1000803 1/0/1 3 [9144] 95702 35 0 0 0 11 PREPARE FOR DIGIT COLLATION 1/1/3 2 [9145] 95703 10 0 0 0 2 SELECT LITERAL 7/0/0 957 [9146] 95704 4 957 7 0 0 0 (STEP ORDER) AUGMENT 24/0/3 1678 [9147] 95705 124 982 2 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 3 [9148] 95706 124 3 0 3 0 SPECIAL CHAP START=R1 END VALUE MODIFY ADDRESS OF NEXT 6/0/0 30 [9149] 95707 106 30 0 0 0 SCAN PROGRAM'S ALLOCATED ROUTE LIST SELECT (N) 14/0/0 1582 [9150] 95708 114 979 22 0 0 0 STORE ROUTE NUMBER REPLACE SELECTED BITS 18/1/0 4124 [9151] 95709 118 4124 1 0 0 RTE TYPE IN Q1 SHIFT LOGICAL 1/1/2 4 [9152] 95710 101 4 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 964 [9153] 95711 70 957 14 0 0 0 >ROUTE TYPE 4 JUMP IF A == 0 1/1/2 5 [9154] 95712 101 5 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/1 952 [9155] 95713 127 957 2 0 1 0 >NOT PRINTER TRY NEXT ONE JUMP A != 24/0/2 2330 [9156] 95714 124 751 34 0 2 0 PRINT ASL SELECT LITERAL AND DIVISION 4/0/0 981 [9157] 95715 1 957 31 0 0 0 14 IN Q5 ADD 24/0/3 1582 [9158] 95716 124 979 22 0 3 0 ROUTE MODIFY ADDRESS OF NEXT 2/0/0 64 [9159] 95717 102 64 0 0 0 TRANSFER (A) TO N 1/1/2 64 [9160] 95718 101 64 1 2 0 SUBTRACT LITERAL ADDRESS 5/0/0 1582 [9161] 95719 2 979 22 0 0 0 SUBTRACT 2/0/0 1583 [9162] 95720 5 979 23 0 0 0 FORM-(64+R) TRANSFER 24/0/2 1184 [9163] a 95721 124 961 16 0 2 0 SELECT LITERAL AND DIVISION 2/0/0 1303 [9164] a 95722 102 965 23 0 0 0 TRANSFER (A) TO N 24/0/2 1594 [9165] 95723 124 980 6 0 2 0 SELECT LITERAL AND DIVISION 2/0/0 1373 [9166] a 95724 102 967 23 0 0 0 TRANSFER (A) TO N 24/0/2 1596 [9167] 95725 124 980 8 0 2 0 SELECT LITERAL AND DIVISION 2/0/0 1377 [9168] a 95726 102 967 27 0 0 0 TRANSFER (A) TO N 6/0/0 1582 [9169] 95727 979 22 0 0 0 SELECT 24/0/3 1678 [9170] 95728 124 982 2 0 3 0 RTE NO MODIFY ADDRESS OF NEXT 2/0/0 26 [9171] 95729 102 26 0 0 0 (3) SET FOR PRINT SR TRANSFER (A) TO N 24/1/0 1170 [9172] 95730 76 962 2 0 0 0 JUMP unconditional 14/0/0 0 [9173] 95731 114 0 0 0 0 CONST REPLACE SELECTED BITS Start of procedure 958 at location 982 in chapter 8 [9174] [9174] 95800 CONST 958 1 3001 EXTRA ROOM FOR 120 COLS 0/0/0 0 [9174] 95802 (D); 00000 +00000 0/0/0 0 [9175] 0/0/0 0 [9176] 95804 ; 00000 +00000 0/0/0 0 [9177] 0/0/0 0 [9178] 95806 ; 00000 +00000 0/0/0 0 [9179] 0/0/0 0 [9180] 95808 ; 00000 +00000 0/0/0 0 [9181] 0/0/0 0 [9182] 95810 ; 00000 +00000 0/0/0 0 [9183] 0/0/0 0 [9184] 95812 ; 00000 +00000 0/0/0 0 [9185] 0/0/0 0 [9186] 95814 ; 00000 +00000 0/0/0 0 [9187] 0/0/0 0 [9188] 95816 ; 00000 +00000 0/0/0 0 [9189] 0/0/0 0 [9190] 95818 ; 00000 +00000 0/0/0 0 [9191] 0/0/0 0 [9192] 95820 ; 00000 +00000 0/0/0 0 [9193] 0/0/0 0 [9194] 95822 ; 00000 +00000 0/0/0 0 [9195] 0/0/0 0 [9196] 95824 ; 00000 +00000 0/0/0 0 [9197] 0/0/0 0 [9198] 95826 ; 00000 +00000 0/0/0 0 [9199] 0/0/0 0 [9200] 95828 ; 00000 +00000 0/0/0 0 [9201] 0/0/0 0 [9202] 95830 ; 00000 +00000 0/0/0 0 [9203] 0/0/0 0 [9204] 95832 ; 00000 +00000 0/0/0 0 [9205] 0/0/0 0 [9206] 95834 ; 00000 +00000 0/0/0 0 [9207] 0/0/0 0 [9208] 95836 ; 00000 +00000 0/0/0 0 [9209] 0/0/0 0 [9210] 95838 ; 00000 +00000 0/0/0 0 [9211] 0/0/0 0 [9212] 95840 ; 00000 +00000 0/0/0 0 [9213] 0/0/0 0 [9214] 95842 ; 00000 +00000 0/0/0 0 [9215] 0/0/0 0 [9216] 95844 ; 00000 +00000 0/0/0 0 [9217] 0/0/0 0 [9218] 95846 ; 00000 +00000 0/0/0 0 [9219] 0/0/0 0 [9220] 95848 ; 00000 +00000 0/0/0 0 [9221] 0/0/0 0 [9222] 95850 ; 00000 +00000 0/0/0 0 [9223] 0/0/0 0 [9224] 95852 ; 00000 +00000 0/0/0 0 [9225] 0/0/0 0 [9226] 95854 ; 00000 +00000 0/0/0 0 [9227] 0/0/0 0 [9228] 95856 ; 00000 +00000 0/0/0 0 [9229] Source: ChuckK/Q1000804 0/0/0 0 [9230] 95858 ; 00000 +00000 0/0/0 0 [9231] 0/0/0 0 [9232] 95860 ; 00000 +00000 0/0/0 0 [9233] 0/0/0 0 [9234] 95862 ; 00000 +00000 0/0/0 0 [9235] 0/0/0 0 [9236] 95864 ; 00000 +00000 0/0/0 0 [9237] 0/0/0 0 [9238] 95866 ; 00000 +00000 0/0/0 0 [9239] Start of procedure 959 at location 1048 in chapter 8 [9240] [9240] 95900 CONST 959 1 3001A 0/0/0 0 [9240] 95902 (D); 00000 +00000 0/0/0 0 [9241] 0/0/0 0 [9242] 95904 ; 00000 +00000 0/0/0 0 [9243] 0/0/0 0 [9244] 95906 ; 00000 +00000 0/0/0 0 [9245] 0/0/0 0 [9246] 95908 ; 00000 +00000 0/0/0 0 [9247] 0/0/0 0 [9248] 95910 ; 00000 +00000 0/0/0 0 [9249] 0/0/0 0 [9250] 95912 ; 00000 +00000 0/0/0 0 [9251] 0/0/0 0 [9252] 95914 ; 00000 +00000 0/0/0 0 [9253] 0/0/0 0 [9254] 95916 ; 00000 +00000 0/0/0 0 [9255] 0/0/0 0 [9256] 95918 ; 00000 +00000 0/0/0 0 [9257] 0/0/0 0 [9258] 95920 ; 00000 +00000 0/0/0 0 [9259] 0/0/0 0 [9260] 95922 ; 00000 +00000 0/0/0 0 [9261] 0/0/0 0 [9262] 95924 ; 00000 +00000 0/0/0 0 [9263] 0/0/0 0 [9264] 95926 ; 00000 +00000 0/0/0 0 [9265] 0/0/0 0 [9266] 95928 ; 00000 +00000 0/0/0 0 [9267] 0/0/0 0 [9268] 95930 ; 00000 +00000 0/0/0 0 [9269] 0/0/0 0 [9270] 95932 ; 00000 +00000 0/0/0 0 [9271] 0/0/0 0 [9272] 95934 ; 00000 +00000 0/0/0 0 [9273] 0/0/0 0 [9274] 95936 ; 00000 +00000 0/0/0 0 [9275] 0/0/0 0 [9276] 95938 ; 00000 +00000 0/0/0 0 [9277] 0/0/0 0 [9278] 95940 ; 00000 +00000 0/0/0 0 [9279] 0/0/0 0 [9280] 95942 ; 00000 +00000 0/0/0 0 [9281] 0/0/0 0 [9282] 95944 ; 00000 +00000 0/0/0 0 [9283] 0/0/0 0 [9284] 95946 ; 00000 +00000 0/0/0 0 [9285] 0/0/0 0 [9286] 95948 ; 00000 +00000 0/0/0 0 [9287] 0/0/0 0 [9288] 95950 ; 00000 +00000 0/0/0 0 [9289] 0/0/0 0 [9290] 95952 ; 00000 +00000 0/0/0 0 [9291] 0/0/0 0 [9292] 95954 ; 00000 +00000 0/0/0 0 [9293] 0/0/0 0 [9294] 95956 ; 00000 +00000 0/0/0 0 [9295] 0/0/0 0 [9296] 95958 ; 00000 +00000 0/0/0 0 [9297] 0/0/0 0 [9298] 95960 ; 00000 +00000 0/0/0 0 [9299] 0/0/0 0 [9300] 95962 ; 00000 +00000 0/0/0 0 [9301] 0/0/0 0 [9302] 95964 ; 00000 +00000 0/0/0 0 [9303] 0/0/0 0 [9304] 95966 ; 00000 +00000 0/0/0 0 [9305] 0/0/0 0 [9306] 95968 ; 00000 +00000 0/0/0 0 [9307] 0/0/0 0 [9308] 95970 ; 00000 +00000 0/0/0 0 [9309] 0/0/0 0 [9310] 95972 ; 00000 +00000 0/0/0 0 [9311] 0/0/0 0 [9312] 95974 ; 00000 +00000 0/0/0 0 [9313] 0/0/0 0 [9314] 95976 ; 00000 +00000 0/0/0 0 [9315] 0/0/0 0 [9316] 95978 ; 00000 +00000 0/0/0 0 [9317] 0/0/0 0 [9318] 95980 ; 00000 +00000 0/0/0 0 [9319] 0/0/0 0 [9320] 95982 ; 00000 +00000 0/0/0 0 [9321] 0/0/0 0 [9322] 95984 ; 00000 +00000 0/0/0 0 [9323] 0/0/0 0 [9324] 95986 ; 00000 +00000 0/0/0 0 [9325] 0/0/0 0 [9326] 95988 ; 00000 +00000 0/0/0 0 [9327] 0/0/0 0 [9328] 95990 ; 00000 +00000 0/0/0 0 [9329] Start of procedure 960 at location 1138 in chapter 8 [9330] [9330] 96000 PROCR 960 3001B=TABLE1 0/0/0 1638 [9330] 96002 100 981 16 0 0 0 'PRINT' HALT 1/0/0 229 [9331] 96003 101 229 0 0 0 14/5 TABLE LOOK UP 0/0/0 1640 [9332] 96004 100 981 18 0 0 0 'OUT' HALT 1/0/0 19 [9333] 96005 101 19 0 0 0 1/3 TABLE LOOK UP 0/0/0 1640 [9334] 96006 100 981 18 0 0 0 'OF' HALT 1/0/0 786 [9335] 96007 101 786 0 0 0 3/1/2 TABLE LOOK UP Source: ChuckK/Q1000805 0/0/0 1646 [9336] 96008 100 981 24 0 0 0 'DUMPS' HALT 1/0/0 21 [9337] 96009 101 21 0 0 0 1/3 TABLE LOOK UP 0/0/0 1640 [9338] 96010 100 981 18 0 0 0 'OF' HALT 1/0/0 786 [9339] 96011 101 786 0 0 0 3/1/2 TABLE LOOK UP 0/0/0 1598 [9340] 96012 100 980 10 0 0 0 (PROG ID) HALT 0/0/0 21 [9341] 96013 100 21 0 0 0 1/5 HALT 0/0/0 1648 [9342] 96014 100 981 26 0 0 0 'TAKEN' HALT 1/0/0 21 [9343] 96015 101 21 0 0 0 1/5 TABLE LOOK UP 0/0/0 1650 [9344] 96016 100 981 28 0 0 0 'ON' HALT 1/0/0 18 [9345] 96017 101 18 0 0 0 1/2 TABLE LOOK UP 0/0/0 1596 [9346] 96018 100 980 8 0 0 0 (DAY) HALT 2/0/0 5154 [9347] 96019 102 5154 0 0 0 1/4/2/2 TRANSFER (A) TO N 0/0/0 1596 [9348] 96020 100 980 8 0 0 0 (MONTH) HALT 2/0/0 5650 [9349] 96021 102 5650 0 0 0 1/6/1/2 TRANSFER (A) TO N 0/0/0 1596 [9350] 96022 100 980 8 0 0 0 (YEAR) HALT 2/0/0 2066 [9351] 96023 102 2066 0 0 0 8/1/2 TRANSFER (A) TO N 0/0/0 1650 [9352] 96024 100 981 28 0 0 0 'AT' HALT 1/0/0 786 [9353] 96025 101 786 0 0 0 3/1/2 TABLE LOOK UP 0/0/0 1595 [9354] 96026 100 980 7 0 0 0 (HRS) HALT 0/0/0 4130 [9355] 96027 100 4130 0 0 0 1/0/2/2 HALT 0/0/0 1595 [9356] 96028 100 980 7 0 0 0 (MINS) HALT 0/0/0 4626 [9357] 96029 100 4626 0 0 0 1/2/1/2 HALT 0/0/0 1656 [9358] 96030 100 981 34 0 0 0 BE HALT 17/0/0 1089 [9359] 96031 117 1089 0 0 0 4/4/1 SPECIAL SELECT 0/0/0 0 [9360] 96032 100 0 0 0 0 BULK CLEAR HALT 2/0/0 36 [9361] 96033 102 36 0 0 0 CONSTANT TRANSFER (A) TO N Start of procedure 961 at location 1170 in chapter 8 [9362] [9362] 96100 PROCR 961 DUMMY PROCEDURE Start of procedure 962 at location 1170 in chapter 8 [9362] [9362] 96200 PROCR 962 3002 RUN FORARD TO START AND OPEN PRINTER 0/1/2 1594 [9362] 96202 100 980 6 1 2 0 SET CONST IN B REPLACE (B) BY (N) 1/1/3 38 [9363] 96203 101 38 1 3 0 SET TYPE IN A SELECT LITERAL ADDRESS 26/0/0 2264 [9364] 96204 126 749 2 0 0 0 >I/P O/P RTE 7 ENTER SUBROUTINE 0/0/2 1684 [9365] 96205 100 982 8 0 2 0 REPLACE (B) BY (N) 1/1/3 7 [9366] 96206 101 7 1 3 0 SELECT LITERAL ADDRESS 26/0/0 2264 [9367] 96207 126 749 2 0 0 0 >I/P O/P RTE 7 ENTER SUBROUTINE 24/1/2 1681 [9368] 96208 124 982 5 1 2 0 TEST IF START OF BLOCK MODIFY ADDRESS OF NEXT 6/1/0 12 [9369] 96209 106 12 1 0 0 SELECT (N) 5/1/0 1596 [9370] 96210 105 980 8 1 0 0 'START' SUBTRACT (N) FROM (A) 27/0/1 1170 [9371] 96211 127 962 2 0 1 0 >NO JUMP A != 1/1/2 20 [9372] 96212 101 20 1 2 0 FORM T/E SUBTRACT LITERAL ADDRESS 26/0/0 1516 [9373] 96213 126 976 2 0 0 0 >FORM T/E S/R ENTER SUBROUTINE 28/1/0 1593 [9374] 96214 128 980 5 1 0 0 BULK COPY ALPHA->NUMERIC BULK COPY ALPHA TO SHORT 24/0/3 1678 [9375] 96215 124 982 2 0 3 0 MODIFY ADDRESS OF NEXT 6/1/0 138 [9376] 96216 106 138 1 0 0 STORE 6 CHARACTER DATE SELECT (N) 2/1/0 1596 [9377] 96217 102 980 8 1 0 0 TRANSFER (A) TO N 24/0/3 1678 [9378] 96218 124 982 2 0 3 0 TEST IF CLOCK EXISTS MODIFY ADDRESS OF NEXT 6/0/0 25 [9379] 96219 106 25 0 0 0 (3) SELECT (N) 27/0/1 1191 [9380] 96220 127 962 23 0 1 0 >YES JUMP A != 2/0/0 1595 [9381] 96221 102 980 7 0 0 0 CLEAR TIME TRANSFER (A) TO N 2/0/0 1650 [9382] 96222 102 981 28 0 0 0 CLEAR 'AT' TRANSFER (A) TO N 24/1/0 1194 [9383] 96223 76 962 26 0 0 0 *****SPARE ORDERS JUMP unconditional 24/1/2 1583 [9384] 96224 124 979 23 1 2 0 MODIFY ADDRESS OF NEXT 28/1/1 0 [9385] 96225 128 0 1 1 0 BULK COPY LONG NUMERIC 1/1/3 10 [9386] 96226 101 10 1 3 0 SELECT LITERAL ADDRESS 26/0/0 1554 [9387] 96227 126 978 2 0 0 0 >OPEN/CLOSE S/R ENTER SUBROUTINE 6/1/0 1168 [9388] 96228 106 960 32 1 0 0 CLEAR AREA SELECT (N) 28/1/1 2034 [9389] 96229 128 744 2 1 1 0 BULK COPY LONG NUMERIC 24/0/2 1138 [9390] 96230 124 960 2 0 2 0 HEADING LINE SELECT LITERAL AND DIVISION Source: DaveJ/Q1000806 26/0/0 1524 [9391] 96231 126 977 2 0 0 0 gEDIT AND O/P S/R ENTER SUBROUTINE Start of procedure 963 at location 1200 in chapter 8 [9392] [9392] 96300 PROCR 963 3003 READ NEXT BLOCK,TEST DUMPS,TEST FINIS,END ROUTINE 0/0/2 1684 [9392] 96302 100 982 8 0 2 0 READ NEXT BLOCK REPLACE (B) BY (N) 1/1/3 7 [9393] 96303 101 7 1 3 0 SELECT LITERAL ADDRESS 26/0/0 2264 [9394] 96304 126 749 2 0 0 0 gI/P O/P RTE 7 ENTER SUBROUTINE 24/1/2 1681 [9395] 96305 124 982 5 1 2 0 TEST DUMPS BLOCK MODIFY ADDRESS OF NEXT 6/1/0 4 [9396] 96306 106 4 1 0 0 SELECT (N) 5/1/0 1646 [9397] 96307 105 981 24 1 0 0 'DUMPS' SUBTRACT (N) FROM (A) 27/0/0 1222 [9398] 96308 127 964 2 0 0 0 gYES JUMP A = Z 4/1/0 1646 [9399] 96309 104 981 24 1 0 0 TEST FINIS BLOCK ADD (N) TO (A) 5/1/0 1654 [9400] 96310 105 981 32 1 0 0 'FINIS SUBTRACT (N) FROM (A) 27/0/1 1282 [9401] 96311 127 965 2 0 1 0 gNO JUMP A != 24/0/2 1686 [9402] 96312 124 983 2 0 2 0 EDIT FINIS LINE SELECT LITERAL AND DIVISION 26/0/0 1524 [9403] 96313 126 977 2 0 0 0 gEDIT AND O/P S/R ENTER SUBROUTINE 1/1/3 20 [9404] 96314 101 20 1 3 0 CLOSE PRINTER FILE SELECT LITERAL ADDRESS 26/0/0 1554 [9405] 96315 126 978 2 0 0 0 gOPEN/CLOSE S/R ENTER SUBROUTINE 1/1/3 27 [9406] 96316 101 27 1 3 0 SELECT LITERAL ADDRESS 26/0/0 2264 [9407] 96317 126 749 2 0 0 0 gCLOSE RTE 7 TAPE ENTER SUBROUTINE 25/1/1 4096 [9408] 96318 125 4096 1 1 0 SET NON -INT CLEAR INDICATORS 6/0/0 1916 [9409] 96319 0 741 2 0 0 0 ABDON/END'IND SELECT 27/0/0 2158 [9410] 96320 70 745 50 0 0 0 gABDON JUMP IF A == 0 6/0/0 2193 [9411] 96321 0 745 85 0 0 0 1/1/3 2 SELECT 2/0/0 2168 [9412] 96322 5 745 60 0 0 0 TRANSFER 24/1/0 2158 [9413] 96323 76 745 50 0 0 0 gEND JUMP unconditional Start of procedure 964 at location 1222 in chapter 8 [9414] [9414] 96400 PROCR 964 3004 PRINT HEADING BLOCKS 6/0/0 1503 [9414] 96402 106 975 15 0 0 0 RESET ORDER SELECT (N) 2/0/0 1282 [9415] 96403 102 965 2 0 0 0 TRANSFER (A) TO N 26/0/0 1516 [9416] 96404 126 976 2 0 0 0 gFORM T/E S/R UNPACK DUMPS BLOCK ENTER SUBROUTINE 28/1/0 2305 [9417] 96405 128 751 9 1 0 0 ALPHA->NUM BULK COPY ALPHA TO SHORT 6/0/0 2306 [9418] 96406 751 10 0 0 0 DUMP TYPE IN Q5 SELECT 18/1/0 4124 [9419] 96407 118 4124 1 0 0 SHIFT LOGICAL 2/0/0 1680 [9420] 96408 102 982 4 0 0 0 TRANSFER (A) TO N 18/1/0 1 [9421] 96409 118 1 1 0 0 TEST HEADING IND SET SHIFT LOGICAL 27/0/0 1244 [9422] 96410 127 964 24 0 0 0 gNO JUMP A = Z 6/0/0 1680 [9423] 96411 106 982 4 0 0 0 TEST DUMP TYPE 6 SELECT (N) 1/1/2 6 [9424] 96412 101 6 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 1236 [9425] 96413 127 964 16 0 0 0 gYES JUMP A = Z 6/0/0 2319 [9426] 96414 751 23 0 0 0 TEST 600 LOCNS OF M/R TO BE OUTPUT SELECT 27/0/0 1274 [9427] 96415 127 964 54 0 0 0 gYES JUMP A = Z 24/0/2 1688 [9428] 96416 124 983 4 0 2 0 (BLANK LINE) SELECT LITERAL AND DIVISION 26/0/0 1524 [9429] 96417 126 977 2 0 0 0 gEDIT AND O/P S/R ENTER SUBROUTINE 24/0/2 1690 [9430] 96418 124 984 2 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 1524 [9431] 96419 126 977 2 0 0 0 gEDIT AND O/P S/R ENTER SUBROUTINE 24/0/2 1706 [9432] 96420 124 984 18 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 1524 [9433] 96421 126 977 2 0 0 0 gEDIT AND O/P S/R ENTER SUBROUTINE 24/0/2 1724 [9434] 96422 124 984 36 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 1524 [9435] 96423 126 977 2 0 0 0 gEDIT AND O/P S/R ENTER SUBROUTINE 6/0/0 1680 [9436] 96424 106 982 4 0 0 0 TEST PM TYPE SELECT (N) 1/1/2 3 [9437] 96425 101 3 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/3 1256 [9438] 96426 127 964 36 0 3 0 g1,2 JUMP A < Z 1/1/2 2 [9439] 96427 101 2 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/3 1260 [9440] 96428 127 964 40 0 3 0 g3,4 JUMP A < Z 1/1/2 2 [9441] 96429 101 2 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/3 1267 [9442] 96430 127 964 47 0 3 0 g5,6 JUMP A < Z Source: RayS/Q1000807 1/1/2 3 [9443] 96431 101 3 1 2 0 TEST DUMP TYPE 10 SUBTRACT LITERAL ADDRESS 27/0/0 1256 [9444] 96432 127 964 36 0 0 0 >YES JUMP A = Z 6/0/0 1255 [9445] 96433 106 964 35 0 0 0 STOP PROCESSING BLOCKS SELECT (N) 2/0/0 1282 [9446] 96434 102 965 2 0 0 0 UNTIL NEXT DUMPS BLOCK TRANSFER (A) TO N 24/1/0 1200 [9447] 96435 124 963 2 1 0 0 >READ NEXT BLOCK UNCONDITIONAL JUMP 6/1/0 1630 [9448] 96436 106 981 8 1 0 0 FORM UP CHAPTER CHAPTER FOR 1,2,7 SELECT (N) 2/1/0 1638 [9449] 96437 102 981 16 1 0 0 OR SECTION TRANSFER (A) TO N 6/1/0 1632 [9450] 96438 106 981 10 1 0 0 SELECT (N) 24/1/0 1264 [9451] 96439 124 964 44 1 0 0 UNCONDITIONAL JUMP 6/1/0 1634 [9452] 96440 106 981 12 1 0 0 SECTION FOR 3,4 SELECT (N) 2/1/0 1638 [9453] 96441 102 981 16 1 0 0 TRANSFER (A) TO N 2/0/0 1186 [9454] a 96442 102 961 18 0 0 0 CLEAR INDICATORS TRANSFER (A) TO N 6/1/0 1636 [9455] 96443 106 981 14 1 0 0 SELECT (N) 2/1/0 1640 [9456] 96444 102 981 18 1 0 0 TRANSFER (A) TO N 24/0/2 1744 [9457] 96445 124 985 2 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 1524 [9458] 96446 126 977 2 0 0 0 >EDIT AND O/P S/R ENTER SUBROUTINE 6/0/0 2320 [9459] 96447 751 24 0 0 0 START/END ADDRESSES SELECT 18/0/0 5 [9460] 96448 118 5 0 0 0 128 FOR DUMP TYPE 6 SHIFT LOGICAL 4/0/0 2319 [9461] 96449 104 751 23 0 0 0 ADD (N) TO (A) 3/1/0 1184 [9462] a 96450 103 961 16 1 0 0 FOR DUMP TYPE 6 COPY (A) TO N 2/1/0 1594 [9463] 96451 102 980 6 1 0 0 FOR SECT OR CHAP TRANSFER (A) TO N 2/0/0 1593 [9464] 96452 102 980 5 0 0 0 CLEAR CHAP ADDRESS C TRANSFER (A) TO N 24/1/0 1200 [9465] 96453 124 963 2 1 0 0 >READ NEXT BLOCK UNCONDITIONAL JUMP 2/0/0 1648 [9466] 96454 102 981 26 0 0 0 SET 0-600 INDICATOR TRANSFER (A) TO N 24/0/2 1754 [9467] 96455 124 985 12 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 1524 [9468] 96456 126 977 2 0 0 0 HEADING LINES >EDIT AND O/P S/R ENTER SUBROUTINE 24/0/2 1724 [9469] 96457 124 984 36 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 1524 [9470] 96458 126 977 2 0 0 0 >EDIT AND O/P S/R ENTER SUBROUTINE 24/0/2 1764 [9471] 96459 124 985 22 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 1524 [9472] 96460 126 977 2 0 0 0 >EDIT AND O/P S/R ENTER SUBROUTINE 24/1/0 1267 [9473] 96461 124 964 47 1 0 0 UNCONDITIONAL JUMP Start of procedure 965 at location 1282 in chapter 8 [9474] [9474] 96500 PROCR 965 3005 TEST PM TYPE AND PROCESS PM TYPE 6 1/1/3 16 [9474] 96502 101 16 1 3 0 UNPACK ALPHA>NUMERIC SELECT LITERAL ADDRESS 26/0/0 1516 [9475] 96503 126 976 2 0 0 0 >FORM T/E ENTER SUBROUTINE 28/1/0 2305 [9476] 96504 128 751 9 1 0 0 UNPACK BULK COPY ALPHA TO SHORT 6/1/0 1678 [9477] 96505 106 982 2 1 0 0 SET IND MOD REG 2 SELECT (N) 2/1/0 1596 [9478] 96506 102 980 8 1 0 0 0/48 TRANSFER (A) TO N 6/0/0 1680 [9479] 96507 106 982 4 0 0 0 SELECT (N) 1/1/2 6 [9480] 96508 101 6 1 2 0 TEST PM TYPE 6 SUBTRACT LITERAL ADDRESS 27/0/1 1306 [9481] 96509 127 966 2 0 1 0 >NO JUMP A != 2/0/0 1590 [9482] 96510 102 980 2 0 0 0 CLEAR NEW/OLD IND FOR S/R TRANSFER (A) TO N 24/0/1 1596 [9483] 96511 124 980 8 0 1 0 STORE NEXT LONG WORD MODIFY ADDRESS OF NEXT 24/0/2 2309 [9484] 96512 124 751 13 0 2 0 AND FORM SIGN PARAS SELECT LITERAL AND DIVISION 26/0/0 1490 [9485] 96513 126 975 2 0 0 0 >STORE LONG WORD ETC S/R ENTER SUBROUTINE 24/0/1 1596 [9486] 96514 124 980 8 0 1 0 MODIFY ADDRESS OF NEXT 24/0/2 2305 [9487] 96515 124 751 9 0 2 0 REL+ABS ADDRESS SELECT LITERAL AND DIVISION 4/1/0 1584 [9488] 96516 1 979 24 1 0 0 4 IN Q6 ADD 28/0/0 1591 [9489] 96517 128 980 3 0 0 0 BULK COPY SHORT>SHORT BULK COPY SHORT NUMERIC 2/1/0 1610 [9490] 96518 102 980 22 1 0 0 SET PARAS AT 0 FOR NEW WORD TRANSFER (A) TO N 26/0/0 1410 [9491] 96519 126 971 2 0 0 0 PRINT NEXT LINE FORM UP AND O/P S/R ENTER SUBROUTINE 1/1/3 6 [9492] 96520 101 6 1 3 0 STEP IND MRS ADJUST IND MRS SELECT LITERAL ADDRESS 7/0/0 1596 [9493] 96521 107 980 8 0 0 0 AUGMENT (N) BY (A) 23/0/0 2 [9494] 96522 123 2 0 0 0 TEST LAST TRACE STEP ON AND TEST 0/0/1 1184 [9495] a 96523 100 961 16 0 0 0 Address of modifier 24/1/0 1376 [9496] 96524 124 967 26 1 0 0 >NO, NEXT TRACE UNCONDITIONAL JUMP 24/1/0 1200 [9497] 96525 124 963 2 1 0 0 >YES, NEXT BLOCK UNCONDITIONAL JUMP Source: KenK/Q1000808 Start of procedure 966 at location 1306 in chapter 8 [9498] [9498] 96600 PROCR 966 PROCESS NEXT WORD ON MT BLOCK,DECODE IF AN INSTRUCTION 6/0/0 1204 [9498] 96602 106 963 6 0 0 0 FORM UP ACTIONM ;TEST TAG CHANGE SELECT (N) 4/0/0 1596 [9499] 96603 104 980 8 0 0 0 ;REQUIRED ADD (N) TO (A) 4/0/0 1596 [9500] 96604 104 980 8 0 0 0 ADD (N) TO (A) 2/0/0 1311 [9501] 96605 102 966 7 0 0 0 TRANSFER (A) TO N 24/1/2 1681 [9502] 96606 124 982 5 1 2 0 MODIFY BY 123 MODIFY ADDRESS OF NEXT 6/1/0 0 [9503] 96607 106 0 1 0 0 *FORMED ORDER* NEXT WORD EX T/X AREA SELECT (N) 5/1/0 1672 [9504] 96608 105 981 50 1 0 0 'XX ' SUBTRACT (N) FROM (A) 27/0/3 1318 [9505] 96609 127 966 14 0 3 0 gNOT CHANGE JUMP A < Z 18/0/0 4 [9506] 96610 118 4 0 0 0 NEW TAG TO Q5 SHIFT LOGICAL 3/0/0 1592 [9507] 96611 103 980 4 0 0 0 ;STORE NEW TAG COPY (A) TO N 2/0/0 1651 [9508] 96612 102 981 29 0 0 0 ;SET TAG CHANGE IND TRANSFER (A) TO N 24/1/0 1376 [9509] 96613 124 967 26 1 0 0 STEP MRS UNCONDITIONAL JUMP 1/1/3 0 [9510] 96614 101 0 1 3 0 SET PARAS=0 ;STORE NEW LONG WORD SELECT LITERAL ADDRESS 2/0/0 1590 [9511] 96615 102 980 2 0 0 0 ;AND FORM SIGN PATTER TRANSFER (A) TO N 24/0/1 1596 [9512] 96616 124 980 8 0 1 0 I/O MODIFIER MODIFY ADDRESS OF NEXT 24/0/2 2305 [9513] 96617 124 751 9 0 2 0 SELECT LITERAL AND DIVISION 26/0/0 1490 [9514] 96618 80 975 2 0 0 0 gDECODE/STORE''AFTER'' ENTER SUBROUTINE 1/1/3 0 [9515] 96619 10 0 0 0 0 DUMMY ORDER SELECT LITERAL 24/0/3 1678 [9516] 96620 124 982 2 0 3 0 MODIFY ADDRESS OF NEXT 26/0/0 0 [9517] 96621 126 0 0 0 0 (42)SET TAG 15 ENTER SUBROUTINE 1/1/3 2 [9518] 96622 101 2 1 3 0 FORM PARAS SELECT LITERAL ADDRESS 2/0/0 1590 [9519] 96623 102 980 2 0 0 0 TRANSFER (A) TO N 6/0/0 1594 [9520] 96624 106 980 6 0 0 0 SELECT (N) 26/0/0 1490 [9521] 96625 80 975 2 0 0 0 gDECODE/STORE''BEFORE'' ENTER SUBROUTINE 6/1/0 1604 [9522] 96626 106 980 16 1 0 0 TEST SIGN PATTERNS TEST WORDS EQUAL SELECT (N) 5/1/0 1606 [9523] 96627 105 980 18 1 0 0 EQUAL SUBTRACT (N) FROM (A) 27/0/1 1336 [9524] 96628 127 966 32 0 1 0 gNO JUMP A != 6/1/0 1602 [9525] 96629 106 980 14 1 0 0 TEST MAGNITUDE EQUAL SELECT (N) 5/1/0 1600 [9526] 96630 105 980 12 1 0 0 SUBTRACT (N) FROM (A) 27/0/0 1349 [9527] 96631 127 966 45 0 0 0 gYES ;->YES JUMP A = Z 6/0/0 1648 [9528] 96632 106 981 26 0 0 0 ;TEST 0-600 SET SELECT (N) 27/0/0 1348 [9529] 96633 127 966 44 0 0 0 gYES JUMP A = Z 6/0/0 1594 [9530] 96634 0 980 6 0 0 0 ADDRESS TO WRITE INTO SELECT 24/0/3 1678 [9531] 96635 124 982 2 0 3 0 MODIFY ADDRESS OF NEXT 5/0/0 3 [9532] 96636 105 3 0 0 0 R1 END=SPECIAL CHAP START SUBTRACT (N) FROM (A) 27/0/3 1344 [9533] 96637 73 966 40 0 0 0 gOK JUMP IF A < 0 1/1/2 204 [9534] 96638 101 204 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/3 1348 [9535] 96639 73 966 44 0 0 0 gNEVER OVERWRITE 0-203 OF SPECIAL CHAPTE JUMP IF A < 0 24/0/2 1600 [9536] 96640 124 980 12 0 2 0 ;COPY NEW RECORD SELECT LITERAL AND DIVISION 4/1/0 1608 [9537] 96641 104 980 20 1 0 0 ;TO STORE ADD (N) TO (A) 24/0/3 1594 [9538] 96642 124 980 6 0 3 0 MODIFY ADDRESS OF NEXT 28/0/0 0 [9539] 96643 128 0 0 0 0 BULK COPY SHORT NUMERIC 1/1/3 1 [9540] 96644 101 1 1 3 0 ;SET EQUALITY INDIC SELECT LITERAL ADDRESS 2/0/0 1599 [9541] 96645 102 980 11 0 0 0 TRANSFER (A) TO N 23/0/2 1351 [9542] 96646 123 966 47 0 2 0 ;SET TAG 14 ENTER MASTER ROUTINE 0/0/0 0 [9543] 96647 100 0 0 0 0 HALT Start of procedure 967 at location 1352 in chapter 8 [9544] [9544] 96700 PROCR 967 TEST PM TYPE 6/0/0 1680 [9544] 96702 106 982 4 0 0 0 ;SWTICH BY PM TYPE SELECT (N) 1/1/2 5 [9545] 96703 101 5 1 2 0 SUBTRACT LITERAL ADDRESS 27/0/0 1370 [9546] 96704 127 967 20 0 0 0 JUMP A = Z 1/1/1 1 [9547] 96705 101 1 1 1 0 ADD LITERAL ADDRESS 27/0/0 1380 [9548] 96706 127 968 2 0 0 0 JUMP A = Z 1/1/1 2 [9549] 96707 101 2 1 1 0 ADD LITERAL ADDRESS 27/0/0 1380 [9550] 96708 127 968 2 0 0 0 JUMP A = Z 6/0/0 1651 [9551] 96709 106 981 29 0 0 0 ;TEST TAG CHANGE SELECT (N) 27/0/1 1365 [9552] 96710 127 967 15 0 1 0 gYES ;INDICATOR SET JUMP A != Source: RayS/Q1000809 6/1/0 1600 [9553] 96711 106 980 12 1 0 0 TEST LONG WORD SELECT (N) 27/0/1 1365 [9554] 96712 127 967 15 0 1 0 TRUE ZERO >NO JUMP A != 6/1/0 1604 [9555] 96713 106 980 16 1 0 0 SELECT (N) 27/0/0 1368 [9556] 96714 127 967 18 0 0 0 >YES JUMP A = Z 1/1/3 0 [9557] 96715 101 0 1 3 0 FORM PARAMETER SELECT LITERAL ADDRESS 2/1/0 1610 [9558] 96716 102 980 22 1 0 0 TRANSFER (A) TO N 26/0/0 1398 [9559] 96717 126 970 2 0 0 0 >FORM UP AND O/P S/R** ENTER SUBROUTINE 1/1/3 0 [9560] 96718 101 0 1 3 0 ***DELETE SELECT LITERAL ADDRESS 2/0/0 1651 [9561] 96719 102 981 29 0 0 0 CLEAR TAG CHANGE INDICATOR TRANSFER (A) TO N 1/1/3 2 [9562] 96720 101 2 1 3 0 STEP ADDRESS COUNTER SELECT LITERAL ADDRESS 7/0/0 1593 [9563] 96721 107 980 5 0 0 0 AUGMENT (N) BY (A) 23/0/0 2 [9564] 96722 123 2 0 0 0 STEP IND MR1 STEP ON AND TEST 0/0/1 1594 [9565] 96723 100 980 6 0 0 0 Address of modifier 24/1/0 1376 [9566] 96724 124 967 26 1 0 0 UNCONDITIONAL JUMP 24/1/0 1200 [9567] 96725 124 963 2 1 0 0 >NEXT BLOCK UNCONDITIONAL JUMP 23/0/0 2 [9568] 96726 123 2 0 0 0 STEP IND MR2 STEP ON AND TEST 0/0/1 1596 [9569] 96727 100 980 8 0 0 0 Address of modifier 24/1/0 1287 [9570] 96728 124 965 7 1 0 0 >NEXT WORD UNCONDITIONAL JUMP 24/1/0 1200 [9571] 96729 124 963 2 1 0 0 >NEXT BLOCK UNCONDITIONAL JUMP Start of procedure 968 at location 1380 in chapter 8 [9572] [9572] 96800 PROCR 968 3008 TYPES 2 AND 4 6/0/0 1599 [9572] 96802 106 980 11 0 0 0 TEST NEW WORD=OLD SELECT (N) 27/0/0 1370 [9573] 96803 127 967 20 0 0 0 >YES JUMP A = Z 6/1/0 1602 [9574] 96804 106 980 14 1 0 0 TEST OLD WORD MAGNITUDE=0 SELECT (N) 27/0/1 1386 [9575] 96805 127 968 8 0 1 0 IS TRUE ZERO >NO JUMP A != 6/1/0 1606 [9576] 96806 106 980 18 1 0 0 SIGN PATTERN=0 SELECT (N) 27/0/0 1361 [9577] 96807 127 967 11 0 0 0 >YES >YES JUMP A = Z 6/1/0 1612 [9578] 96808 106 980 24 1 0 0 SELECT (N) 2/1/0 1610 [9579] 96809 102 980 22 1 0 0 TRANSFER (A) TO N 26/0/0 1398 [9580] 96810 126 970 2 0 0 0 >FORM UP AND O/P S/R ENTER SUBROUTINE 24/1/0 1361 [9581] 96811 124 967 11 1 0 0 >OUTPUT NEW WORD UNCONDITIONAL JUMP Start of procedure 969 at location 1390 in chapter 8 [9582] [9582] 96900 PROCR 969 3009 CONVERT S/R BINARY>DECIMAL 0/0/0 0 [9582] 96902 100 0 0 0 0 LINK HALT 0/1/0 1188 [9583] a 96903 100 961 20 1 0 0 STORE (A) (B) ( C) COPY REGISTERS 0/0/3 1683 [9584] 96904 100 982 7 0 3 0 SET DECIMAL SET RADIX 24/0/2 1614 [9585] 96905 124 980 26 0 2 0 SELECT TABLE START SELECT LITERAL AND DIVISION 12/0/0 1188 [9586] a 96906 112 961 20 0 0 0 CONVERT CONVERT 2/1/0 1188 [9587] a 96907 102 961 20 1 0 0 TRANSFER (A) TO N 0/1/1 1188 [9588] a 96908 100 961 20 1 1 0 RESET (A) (B) ( C) REPLACE REGISTERS 26/0/1 1390 [9589] 96909 126 969 2 0 1 0 >LEAVE S/R LEAVE SUBROUTINE Start of procedure 970 at location 1398 in chapter 8 [9590] [9590] 97000 PROCR 970 33010 FORM UP AND O/P S/R IF NOT TYPE 6 0/0/0 0 [9590] 97002 100 0 0 0 0 LINK HALT 1/0/1 31 [9591] 97003 101 31 0 1 0 COLLATION CONST PREPARE FOR DIGIT COLLATION 6/0/0 1594 [9592] 97004 106 980 6 0 0 0 CONVERT AND STORE SELECT (N) 18/1/3 3 [9593] 97005 118 3 1 3 0 REL ADDRESS REMOVE DIVISION NO SHIFT BINARY 18/1/0 4124 [9594] 97006 118 4124 1 0 0 SHIFT LOGICAL 14/0/0 1592 [9595] 97007 114 980 4 0 0 0 STORE DIVISION NO REPLACE SELECTED BITS 1/1/3 0 [9596] 97008 101 0 1 3 0 CLEAR A SELECT LITERAL ADDRESS 18/1/3 13 [9597] 97009 118 13 1 3 0 SHIFT BINARY 2/0/0 1591 [9598] 97010 102 980 3 0 0 0 STORE ADDRESS TRANSFER (A) TO N 26/0/0 1410 [9599] 97011 126 971 2 0 0 0 >FORM UP AND OUTPUT S/R ENTER SUBROUTINE 26/0/1 1398 [9600] 97012 126 970 2 0 1 0 >LEAVE S/R LEAVE SUBROUTINE 2/0/0 1170 [9601] a 97013 5 961 2 0 0 0 ORDER CONST TRANSFER Source: KenK/Q1000810 Start of procedure 971 at location 1410 in chapter 8 [9602] [9602] 97100 PROCR 971 FORM UP LINE OF PRINT,PRINT IT,PRINT STARRY LINE IF REQUIRED 0/0/0 0 [9602] 97102 81 971 2 0 0 0 START OF SUBROUTINE 24/0/1 1611 [9603] 97103 124 980 23 0 1 0 0/2=OLD/NEW WORD MODIFY ADDRESS OF NEXT 24/0/2 1600 [9604] 97104 124 980 12 0 2 0 SELECT LITERAL AND DIVISION 4/1/0 1608 [9605] 97105 1 980 20 1 0 0 2 IN Q6=QTTY ADD 28/0/0 1602 [9606] 97106 128 980 14 0 0 0 COPY CURRENT LONG WORD->WL BULK COPY SHORT NUMERIC 24/0/1 1611 [9607] 97107 124 980 23 0 1 0 MODIFY ADDRESS OF NEXT 6/1/0 1604 [9608] 97108 0 980 16 1 0 0 COPY INDS THAT ACTION>16 SELECT 2/1/0 1606 [9609] 97109 5 980 18 1 0 0 TRANSFER 1/0/1 15 [9610] 97110 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION 15/0/0 1592 [9611] 97111 36 980 4 0 0 0 DIVISION OR REF COLLATE AND ADD 26/0/0 1472 [9612] 97112 126 973 2 0 0 0 CONVERT AND STORE ENTER SUBROUTINE 6/0/0 1591 [9613] 97113 106 980 3 0 0 0 CONVERT 13 BIT ADDRESS SELECT (N) 26/0/0 1390 [9614] 97114 126 969 2 0 0 0 (OR ITEM) TO DECIMAL ENTER SUBROUTINE 2/0/0 1591 [9615] 97115 102 980 3 0 0 0 TRANSFER (A) TO N 0/1/2 1602 [9616] 97116 100 980 14 1 2 0 ;PROCESS LONG WORD REPLACE (B) BY (N) 26/0/0 1476 [9617] 97117 126 974 2 0 0 0 gPROCESS WORD S/R ;MOSST SIG HALF ENTER SUBROUTINE 6/0/0 1606 [9618] 97118 106 980 18 0 0 0 STORE SIGN PARAS SELECT (N) 2/0/0 1607 [9619] 97119 102 980 19 0 0 0 TRANSFER (A) TO N 26/0/0 1476 [9620] 97120 126 974 2 0 0 0 gPROCESS WORD S/R ;LEAST SIG HALF ENTER SUBROUTINE 6/1/0 1602 [9621] 97121 106 980 14 1 0 0 STORE ALPHA WORD SELECT (N) 2/1/0 1640 [9622] 97122 102 981 18 1 0 0 ;L/E'S IN LONG WORD TRANSFER (A) TO N 2/1/0 1606 [9623] 97123 102 980 18 1 0 0 ;WITH B'S AND L'S TRANSFER (A) TO N 0/0/2 1489 [9624] 97124 34 974 15 0 0 0 BITS 1-6 SET (N) IN B 15/1/0 1640 [9625] 97125 115 981 18 1 0 0 STORE NEXT QRTET ;LINE COLLATE AND ADD 2/1/0 1638 [9626] 97126 102 981 16 1 0 0 TRANSFER (A) TO N 15/1/0 1674 [9627] 97127 115 981 52 1 0 0 TET FOR B/E COLLATE AND ADD 5/1/0 1638 [9628] 97128 105 981 16 1 0 0 SUBTRACT (N) FROM (A) 27/0/0 1440 [9629] 97129 127 971 32 0 0 0 gYES JUMP A = Z 1/1/3 0 [9630] 97130 101 0 1 3 0 SELECT LITERAL ADDRESS 24/1/0 1442 [9631] 97131 124 971 34 1 0 0 gNO UNCONDITIONAL JUMP 6/1/0 1628 [9632] 97132 106 981 6 1 0 0 g'S AND B'S SELECT (N) 24/1/0 1446 [9633] 97133 124 971 38 1 0 0 UNCONDITIONAL JUMP 15/1/0 1676 [9634] 97134 115 981 54 1 0 0 TEST FOR L/E'S COLLATE AND ADD 5/1/0 1638 [9635] 97135 105 981 16 1 0 0 SUBTRACT (N) FROM (A) 27/0/1 1449 [9636] 97136 71 971 41 0 0 0 gNO JUMP IF A != 0 6/1/0 1626 [9637] 97137 106 981 4 1 0 0 SELECT (N) 14/1/0 1640 [9638] 97138 114 981 18 1 0 0 REPLACE SELECTED BITS 6/1/0 1624 [9639] 97139 106 981 2 1 0 0 SELECT (N) 14/1/0 1606 [9640] 97140 114 980 18 1 0 0 g'S REPLACE SELECTED BITS 18/1/0 2 [9641] 97141 118 2 1 0 0 SHIFT LOGICAL 1/1/3 0 [9642] 97142 101 0 1 3 0 SELECT LITERAL ADDRESS 27/1/1 1433 [9643] 97143 127 971 25 1 1 0 gNEXT QRTET JUMP AB != Z 6/0/0 1592 [9644] 97144 106 980 4 0 0 0 ;CONVERT TAG S/R SELECT (N) 18/0/0 4124 [9645] 97145 118 4124 0 0 0 SHIFT TO Q1 SHIFT LOGICAL 26/0/0 1472 [9646] 97146 126 973 2 0 0 0 CONVERT AND TRANSFER S/R ENTER SUBROUTINE 6/0/0 1593 [9647] 97147 106 980 5 0 0 0 RELATIVE ADDRESS SELECT (N) 26/0/0 1472 [9648] 97148 126 973 2 0 0 0 gCONVERT AND TRANSFER S/R ENTER SUBROUTINE 24/0/2 1772 [9649] 97149 124 986 2 0 2 0 ;EDIT LINE SELECT LITERAL AND DIVISION 26/0/0 1524 [9650] 97150 126 977 2 0 0 0 gEDIT AND O/P S/R ENTER SUBROUTINE 6/1/0 1606 [9651] 97151 106 980 18 1 0 0 ;OUTPUT * LINE SELECT (N) 27/0/0 1463 [9652] 97152 127 971 55 0 0 0 ;IF NEEDED JUMP A = Z 24/0/2 1808 [9653] 97153 124 986 38 0 2 0 ;EDIT LINE SELECT LITERAL AND DIVISION 26/0/0 1524 [9654] 97154 126 977 2 0 0 0 gEDIT AND O/P S/R ENTER SUBROUTINE 6/0/0 1409 [9655] 97155 0 970 13 0 0 0 RESET ORDDER SELECT 2/0/0 1467 [9656] 97156 5 972 3 0 0 0 TRANSFER 26/0/1 1410 [9657] 97157 126 971 2 0 1 0 ;FOR NEXT WORD LEAVE SUBROUTINE Start of procedure 972 at location 1466 in chapter 8 [9658] [9658] 97200 PROCR 972 3812 TRANSPER S/R Source: RayS/Q1000811 0/0/0 0 [9658] 97202 81 972 2 0 0 0 START OF SUBROUTINE 2/0/0 1170 [9659] a 97203 5 961 2 0 0 0 >FORMED ORDER TRANSFER 1/1/3 1 [9660] 97204 10 0 0 0 1 SELECT LITERAL 7/0/0 1467 [9661] 97205 4 972 3 0 0 0 STEP ADDRESS AUGMENT 1/1/3 0 [9662] 97206 10 0 0 0 0 CLEAR A SELECT LITERAL 26/0/1 1466 [9663] 97207 82 972 2 0 0 0 END OF SUBROUTINE / LEAVE SUBROUTINE Start of procedure 973 at location 1472 in chapter 8 [9664] [9664] 97300 PROCR 973 3013 CONVERT AND TRANSFER S/R 0/0/0 0 [9664] 97302 100 0 0 0 0 LINK HALT 26/0/0 1390 [9665] 97303 126 969 2 0 0 0 >CONVERT S/R ENTER SUBROUTINE 26/0/0 1466 [9666] 97304 126 972 2 0 0 0 >TRANSFER S/R ENTER SUBROUTINE 26/0/1 1472 [9667] 97305 126 973 2 0 1 0 >LEAVE S/R LEAVE SUBROUTINE Start of procedure 974 at location 1476 in chapter 8 [9668] [9668] 97400 PROCR 974 3014 PROCESS WORD S/R 0/0/0 0 [9668] 97402 100 0 0 0 0 LINK HALT 1/1/3 0 [9669] 97403 101 0 1 3 0 TRANSFER ACTION CLEAR A SELECT LITERAL ADDRESS 18/1/0 1 [9670] 97404 118 1 1 0 0 SHIFT ACTION INTO B SHIFT LOGICAL 4/0/0 1607 [9671] 97405 104 980 19 0 0 0 0 OR 16 IF ACTION <OR >16 ADD (N) TO (A) 26/0/0 1472 [9672] 97406 126 973 2 0 0 0 DISCRIMINANT D IN A ENTER SUBROUTINE 18/1/3 1 [9673] 97407 118 1 1 3 0 >TRANSFER SHIFT BINARY 26/0/0 1466 [9674] 97408 126 972 2 0 0 0 MODIFIER M IN A ENTER SUBROUTINE 18/1/3 2 [9675] 97409 118 2 1 3 0 >TRANSFER SHIFT BINARY 26/0/0 1466 [9676] 97410 126 972 2 0 0 0 ADDRESS ENTER SUBROUTINE 18/1/3 1 [9677] 97411 118 1 1 3 0 SHIFT BINARY 18/1/0 3 [9678] 97412 118 3 1 0 0 SHIFT LOGICAL 26/0/0 1472 [9679] 97413 126 973 2 0 0 0 >CONVERT AND TRANSFER ENTER SUBROUTINE 26/0/1 1476 [9680] 97414 126 974 2 0 1 0 >LEAVE S/R LEAVE SUBROUTINE 0/0/0 63 [9681] 97415 100 63 0 0 0 CONST=BITS 1-6 HALT Start of procedure 975 at location 1490 in chapter 8 [9682] [9682] 97500 PROCR 975 3015 STORE LONG WORD AND FORM SIGN PARAS S/R 0/0/0 0 [9682] 97502 100 0 0 0 0 LINK HALT 4/1/0 1608 [9683] 97503 104 980 20 1 0 0 STORE WORD FORM T/E ADD (N) TO (A) 24/0/0 1590 [9684] 97504 124 980 2 0 0 0 MODIFY ADDRESS OF NEXT 28/0/0 1600 [9685] 97505 128 980 12 0 0 0 BULK COPY LONG WORD BULK COPY SHORT NUMERIC 24/0/1 1590 [9686] 97506 124 980 2 0 1 0 0/2=OLD/NEW WORD MODIFY ADDRESS OF NEXT 24/0/2 1600 [9687] 97507 124 980 12 0 2 0 SELECT LITERAL AND DIVISION 4/1/0 1586 [9688] 97508 1 979 26 1 0 0 1 IN Q6 ADD 18/0/0 0 [9689] 97509 118 0 0 0 0 DUMMY ORDER SHIFT LOGICAL 28/0/0 1649 [9690] 97510 128 981 27 0 0 0 BULK COPY SHORT WORD BULK COPY SHORT NUMERIC 0/1/1 1648 [9691] 97511 100 981 26 1 1 0 FORM SIGN PATTERN FORM SIGN PATTERN REPLACE REGISTERS 27/0/3 1503 [9692] 97512 127 975 15 0 3 0 0 IF POSIVIE FOR LEAST SIG HALF JUMP A < Z 1/1/3 0 [9693] 97513 101 0 1 3 0 16 IF POSITIVE POSITIVE SELECT LITERAL ADDRESS 24/1/0 1504 [9694] 97514 124 975 16 1 0 0 UNCONDITIONAL JUMP 1/1/3 16 [9695] 97515 101 16 1 3 0 NEGATIVE SELECT LITERAL ADDRESS 24/0/1 1590 [9696] 97516 124 980 2 0 1 0 MODIFY ADDRESS OF NEXT 2/0/0 1604 [9697] 97517 102 980 16 0 0 0 TRANSFER (A) TO N 24/0/1 1590 [9698] 97518 124 980 2 0 1 0 FORM SIGN PATTERN MODIFY ADDRESS OF NEXT 0/1/1 1600 [9699] 97519 100 980 12 1 1 0 FOR MOST SIG HALF REPLACE REGISTERS 27/0/3 1511 [9700] 97520 127 975 23 0 3 0 JUMP A < Z 1/1/3 0 [9701] 97521 101 0 1 3 0 POSITIVE SELECT LITERAL ADDRESS 24/1/0 1512 [9702] 97522 124 975 24 1 0 0 UNCONDITIONAL JUMP 1/1/3 16 [9703] 97523 101 16 1 3 0 NEGATIVE SELECT LITERAL ADDRESS 24/0/0 1590 [9704] 97524 124 980 2 0 0 0 MODIFY ADDRESS OF NEXT 2/0/0 1605 [9705] 97525 102 980 17 0 0 0 TRANSFER (A) TO N 0/0/3 1678 [9706] 97526 100 982 2 0 3 0 RESET BINARY SET RADIX 26/0/1 1490 [9707] 97527 126 975 2 0 1 0 LEAVE SUBROUTINE Start of procedure 976 at location 1516 in chapter 8 [9708] [9708] 97600 PROCR 976 3016 UNPACK FROM WORD 6 S/R 0/0/0 0 [9708] 97602 100 0 0 0 0 LINK HALT 1/1/1 32 [9709] 97603 101 32 1 1 0 FORM T/E ADD LITERAL ADDRESS Source: KenK/Q1000812 18/0/0 5 [9710] 97604 118 5 0 0 0 SHIFT LOGICAL 1/1/1 5 [9711] 97605 101 5 1 1 0 ADD LITERAL ADDRESS 24/0/3 1678 [9712] 97606 124 982 2 0 3 0 MODIFY ADDRESS OF NEXT 4/0/0 123 [9713] 97607 104 123 0 0 0 ADD (N) TO (A) 26/0/1 1516 [9714] 97608 126 976 2 0 1 0 gLEAVE S/R LEAVE SUBROUTINE 1/1/3 0 [9715] 97609 10 0 0 0 0 DUMMY ORDER SELECT LITERAL Start of procedure 977 at location 1524 in chapter 8 [9716] [9716] 97700 PROCR 977 3017 EDIT AND O/P S/R 0/0/0 0 [9716] 97702 81 977 2 0 0 0 START OF SUBROUTINE 28/1/2 2044 [9717] 97703 128 744 12 1 2 0 EDIT FIXED FIELD FORMATS 24/0/2 1820 [9718] 97704 124 986 50 0 2 0 EDIT 20 SPACES SELECT LITERAL AND DIVISION 28/1/2 2036 [9719] 97705 128 744 4 1 2 0 BEFORE PRINTING EDIT FIXED FIELD FORMATS 2/1/0 2034 [9720] 97706 5 744 2 1 0 0 CLEAR FUNCTION WORD TRANSFER 1/0/1 1 [9721] 97707 101 1 0 1 0 PREPARE FOR DIGIT COLLATION 24/0/3 1678 [9722] 97708 124 982 2 0 3 0 MODIFY ADDRESS OF NEXT 15/0/0 27 [9723] 97709 115 27 0 0 0 COLLATE AND ADD 1/1/2 4 [9724] 97710 12 0 0 0 4 SUBTRACT LITERAL 27/0/0 1546 [9725] 97711 70 977 24 0 0 0 gGP PRINTER JUMP IF A == 0 24/0/2 2034 [9726] 97712 124 744 2 0 2 0 ;SPECIAL PRINT SELECT LITERAL AND DIVISION 4/1/0 1588 [9727] 97713 1 979 28 1 0 0 48 IN Q6 ADD 24/1/2 1583 [9728] 97714 124 979 23 1 2 0 MODIFY ADDRESS OF NEXT 28/1/1 0 [9729] 97715 128 0 1 1 0 COPY ANNEX,CLEAR A BULK COPY LONG NUMERIC 6/0/0 1582 [9730] 97716 979 22 0 0 0 SELECT 18/1/1 4123 [9731] 97717 32 0 0 0 5- ROUTE IN TOP OF B SHIFT (AB) BY QUARTETS 6/0/0 1582 [9732] 97718 979 22 0 0 0 SELECT 18/1/1 4123 [9733] 97719 32 0 0 0 5- AND IN BOTTOM SHIFT (AB) BY QUARTETS 26/0/0 1554 [9734] 97720 80 978 2 0 0 0 gPRINT ENTER SUBROUTINE 23/0/2 1562 [9735] 97721 123 979 2 0 2 0 gTEST PRINT FINISHED ENTER MASTER ROUTINE 1/1/3 0 [9736] 97722 10 0 0 0 0 CLEAR A SELECT LITERAL 26/0/1 1524 [9737] 97723 82 977 2 0 0 0 (YES) END OF SUBROUTINE / LEAVE SUBROUTINE 1/1/3 8 [9738] 97724 10 0 0 0 8 ;GP PRINT SELECT LITERAL 18/0/1 4 [9739] 97725 30 0 0 0 4 SHIFT (A) BY QUARTETS 2/0/0 2035 [9740] 97726 5 744 3 0 0 0 (PRINT ON COLS 1-120) TRANSFER 24/0/2 2034 [9741] 97727 124 744 2 0 2 0 SELECT LITERAL AND DIVISION 24/1/2 1583 [9742] 97728 124 979 23 1 2 0 MODIFY ADDRESS OF NEXT 29/0/1 0 [9743] 97729 129 0 0 1 0 EDIT EDIT FOR ANELEX OUTPUT 1/1/3 0 [9744] 97730 10 0 0 0 0 CLEAR A SELECT LITERAL 24/1/0 1538 [9745] 97731 76 977 16 0 0 0 gGO TO PRINT JUMP unconditional Start of procedure 978 at location 1554 in chapter 8 [9746] [9746] 97800 PROCR 978 3018 ENTER MASTER FOR PRINTER 0/0/0 0 [9746] 97802 100 0 0 0 0 LINK HALT 18/0/0 5 [9747] 97803 118 5 0 0 0 FORM T/E SHIFT LOGICAL 24/0/3 1678 [9748] 97804 124 982 2 0 3 0 MODIFY ADDRESS OF NEXT 4/1/0 26 [9749] 97805 104 26 1 0 0 (PARAS 26,27) ADD (N) TO (A) 25/1/1 4096 [9750] 97806 125 4096 1 1 0 SET NON INT CLEAR INDICATORS 24/0/3 1678 [9751] 97807 124 982 2 0 3 0 MODIFY ADDRESS OF NEXT 23/0/2 160 [9752] 97808 123 160 0 2 0 gOPEN PRINTER ENTER MASTER ROUTINE 26/0/1 1554 [9753] 97809 126 978 2 0 1 0 gLEAVE S/R LEAVE SUBROUTINE Start of procedure 979 at location 1562 in chapter 8 [9754] [9754] 97900 PROCR 979 3019 TEST PREVIOUS PRINT ORDER FINISHED 0/0/0 0 [9754] 97902 81 979 2 0 0 0 START OF SUBROUTINE 25/1/1 4096 [9755] 97903 125 4096 1 1 0 CLEAR INDICATORS 24/1/1 1678 [9756] 97904 124 982 2 1 1 0 MG C SET MODIFICATION GROUP 6/0/0 1582 [9757] 97905 979 22 0 0 0 ROUTE SELECT 24/0/3 1678 [9758] 97906 124 982 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/1 30 [9759] 97907 102 30 0 1 0 gSI+30 TRANSFER (A) TO N 6/0/0 1581 [9760] 97908 979 21 0 0 0 “26/1/0” SELECT 5/0/0 1582 [9761] 97909 2 979 22 0 0 0 SUBTRACT 24/0/3 1678 [9762] 97910 124 982 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/1 7 [9763] 97911 102 7 0 1 0 SI+7 TRANSFER (A) TO N Source: RayS/Q1000813 24/0/3 1678 [9764] 97912 124 982 2 0 3 0 MODIFY ADDRESS OF NEXT 2/0/1 45 [9765] 97913 102 45 0 1 0 CLEAR ASSOCIATED TIME TRANSFER (A) TO N 24/0/2 1577 [9766] 97914 124 979 17 0 2 0 (RETURN ADDRESS) SELECT LITERAL AND DIVISION 24/0/3 1678 [9767] 97915 124 982 2 0 3 0 MODIFY ADDRESS OF NEXT 24/1/0 174 [9768] 97916 124 174 1 0 0 >MASTER TO TEST ROUTE UNCONDITIONAL JUMP 24/0/3 1678 [9769] 97917 124 982 2 0 3 0 MODIFY ADDRESS OF NEXT 24/0/3 2 [9770] 97918 124 2 0 3 0 MODIFY ADDRESS OF NEXT 24/1/1 29 [9771] 97919 124 29 1 1 0 RESTORE PROG'S MOD GROUP SET MODIFICATION GROUP 26/0/3 1562 [9772] 97920 126 979 2 0 3 0 >(SET INTERRUPTIBLE) LEAVE MASTER ROUTINE 26/1/0 0 [9773] 97921 126 0 1 0 0 CONST SET MODIFICATION REGISTER 0/0/0 0 [9774] 97922 100 0 0 0 0 WL FOR ALLOCATED ROUTE R HALT 0/0/0 0 [9775] 97923 100 0 0 0 0 WL FOR-(64+R) HALT 0/0/0 0 [9776] 97924 100 0 0 0 0 )COPY 4 HALT 0/0/0 4 [9777] 97925 100 4 0 0 0 ) HALT 0/0/0 0 [9778] 97926 100 0 0 0 0 (COPY 1 HALT 0/0/0 1 [9779] 97927 100 1 0 0 0 ( HALT 0/0/0 0 [9780] 97928 100 0 0 0 0 )COPY 48 HALT 0/0/0 48 [9781] 97929 100 48 0 0 0 ) HALT Start of procedure 980 at location 1590 in chapter 8 [9782] [9782] 98000 CONST 980 1 3020 W/L'S AND CONVERT TABLES 0/0/0 0 [9782] 98002 (D)0; I/O SERIAL/W/L 00000 +00000 0/0/0 0 [9783] 0/0/0 0 [9784] 98004 0; RELATIVE ADDRESS/TAG 00000 +00000 0/0/0 0 [9785] 15/1/3 8191 [9786] 98006 t£££££; TIME/DATE,IND MOD1 FFFFF +0000A 0/0/0 10 [9787] 1/0/3 2419 [9788] 98008 (A)START; (LONG DATE)IND MOD 2 16973 +72735 7/0/1 1845 [9789] 0/0/0 0 [9790] 98010 (D)0; =INDIC/PROG IDENTITY 00000 +00000 0/0/0 0 [9791] 0/0/0 0 [9792] 98012 0; NEW LONG WORD 00000 +00000 0/0/0 0 [9793] 0/0/0 0 [9794] 98014 0; OLD LONG WORD 00000 +00000 0/0/0 0 [9795] 0/0/0 0 [9796] 98016 0; 0/16 IN ODD/EVEN IF ODD/EVEN NEW WORD PO 00000 +00000 0/0/0 0 [9797] 0/0/0 0 [9798] 98018 0; DITTO FOR OLD VALUE OF WORD 00000 +00000 0/0/0 0 [9799] 0/0/0 0 [9800] 98020 200000; TABLE CONSTANT 00000 +00002 0/0/0 2 [9801] 0/0/0 0 [9802] 98022 0; PARAS NEW/OLD 00000 +00000 0/0/0 0 [9803] 0/0/0 91 [9804] 98024 (D)2000(A)*; OLD WORD CONSTANT 0005B +00002 0/0/0 2 [9805] 0/0/0 1 [9806] 98026 (D)1; CONVERT TABLE 00001 +00000 0/0/0 0 [9807] 0/0/0 22 [9808] 98028 16; BINARY>DECIMAL 00016 +00000 0/0/0 0 [9809] 0/0/0 598 [9810] 98030 256; 00256 +00000 0/0/0 0 [9811] 0/0/2 150 [9812] 98032 4096; 04096 +00000 0/0/0 0 [9813] 6/0/2 5430 [9814] 98034 65536; 65536 +00000 0/0/0 0 [9815] Start of procedure 981 at location 1624 in chapter 8 [9816] [9816] 98100 CONST 981 1 3021 ALPHA CONSTANTS 11/0/2 7003 [9816] 98102 (A)*****; B5B5B +5B5B5 5/1/1 5557 [9817] 3/0/3 867 [9818] 98104 LLLLL; 36363 +63636 6/0/1 5686 [9819] 2/0/2 4690 [9820] 98106 BBBBB; 25252 +52525 5/0/1 1317 [9821] 1/0/3 1907 [9822] 98108 (A)CHAPT; CONSTANTS FOR HEADING 16773 +53585 5/0/1 5509 [9823] 0/0/0 0 [9824] 98110 ER ; BLOCKS 00000 +55690 5/0/2 5776 [9825] 3/0/3 4953 [9826] 98112 (A)SECTI; 37359 +72555 7/0/1 1365 [9827] 0/0/0 0 [9828] 98114 ON ; 00000 +66650 6/0/3 1616 [9829] 9/0/3 1395 [9830] 98116 PRINT; W/L FOR HEADING 96573 +67695 6/0/3 5781 [9831] 3/0/3 1622 [9832] 98118 OUTOF; W/L FOR HEADING 36656 +66747 6/0/3 1863 [9833] 9/0/3 1395 [9834] 98120 POINT; CONSTANTS FOR PRINTING 96573 +67665 6/0/3 5733 [9835] 4/0/0 82 [9836] 98122 P M B; HEADING BLOCK 40052 +67006 6/0/3 4102 [9837] 4/0/3 1906 [9838] 98124 (A)DUMPS; 46772 +54746 5/0/2 1862 [9839] 2/0/2 5477 [9840] 98126 TAKEN; W/L/0-600 IND 25565 +73516 7/0/1 5398 [9841] 0/0/2 4467 [9842] 98128 ON AT; TAG CH IND/W/L 05173 +66650 6/0/3 1616 [9843] 6/0/2 5988 [9844] 98130 (A)PROGM; 65764 +67696 6/0/3 5782 [9845] 5/0/2 6514 [9846] 98132 (A)FINIS; 55972 +56596 5/0/3 1430 [9847] 7/0/2 5502 [9848] 98134 (A)TYPE(D)7.; 7557E +73786 7/0/1 6022 [9849] 5/0/2 4451 [9850] 98136 (A)FINAL; 55163 +56596 5/0/3 1430 [9851] 2/0/3 4949 [9852] 98138 MASTE; 27355 +64517 6/0/2 1303 [9853] 9/0/3 1652 [9854] 98140 R ROU; 96674 +69006 6/1/0 4102 [9855] 1/0/0 0 [9856] 98142 MR1 ; 10000 +64694 6/0/2 1684 [9857] Source: RayS/Q1000814 2/0/0 0 [9858] 98144 MR2 ; 20000 +64694 6/0/2 1684 [9859] 3/0/0 0 [9860] 98146 MR3 ; 30000 +64694 6/0/2 1684 [9861] 5/0/2 5376 [9862] 98148 TINE ; 55500 +73596 7/0/1 5526 [9863] 0/0/0 0 [9864] 98150 XX ; 00000 +77770 7/0/3 6000 [9865] 14/0/3 7806 [9866] 98152 (D)7.7.7.7.7.; E7E7E +7E7E7 7/1/3 2023 [9867] 14/0/2 7774 [9868] 98154 5.5.5.5.5.; E5E5E +5E5E5 5/1/3 1509 [9869] Start of procedure 982 at location 1678 in chapter 8 [9870] [9870] 98200 CONST 982 0 3022 NUMERIC CONSTANTS 0/0/0 0 [9870] 98202 (D)00000; ZERO +00000 0/0/0 24 [9871] 98203 00018; M/R SETTING 0/24 +00018 0/0/0 0 [9872] 98204 0; STORE FOR PM TYPE +00000 16/0/0 123 [9873] 98205 7e-; ASL 123 -0007B 0/0/0 61 [9874] 98206 3:; 61 +0003D 6/0/3 1638 [9875] 98207 66666; +66666 0/0/0 59 [9876] 98208 3e; 59 +0003B 0/0/0 0 [9877] 98209 0; +00000 Start of procedure 983 at location 1686 in chapter 8 [9878] [9878] 98300 PROCR 983 3023 TABLE 1 0/0/0 1654 [9878] 98302 100 981 32 0 0 0 FINIS HALT 1/0/0 5 [9879] 98303 101 5 0 0 0 TABLE LOOK UP 0/0/0 1656 [9880] 98304 100 981 34 0 0 0 B/E HALT 17/0/0 1029 [9881] 98305 117 1029 0 0 0 SPECIAL SELECT Start of procedure 984 at location 1690 in chapter 8 [9882] [9882] 98400 PROCR 984 3024 TABLE 2 0/0/0 1652 [9882] 98402 100 981 30 0 0 0 15 SP PROGM HALT 1/0/0 245 [9883] 98403 101 245 0 0 0 TABLE LOOK UP 0/0/0 1598 [9884] 98404 100 980 10 0 0 0 SP PROG ID HALT 0/0/0 21 [9885] 98405 100 21 0 0 0 HALT 0/0/0 1644 [9886] 98406 100 981 22 0 0 0 4SP PM HALT 1/0/0 68 [9887] 98407 101 68 0 0 0 TABLE LOOK UP 0/0/0 1642 [9888] 98408 100 981 20 0 0 0 POINT HALT 1/0/0 5 [9889] 98409 101 5 0 0 0 TABLE LOOK UP 8/0/0 2307 [9890] 98410 108 751 11 0 0 0 LINE SERIAL MERGE CONSTANT LENGTH 0/0/0 53 [9891] 98411 100 53 0 0 0 HALT 0/0/0 1656 [9892] 98412 100 981 34 0 0 0 4SP TYPE HALT 1/0/0 68 [9893] 98413 101 68 0 0 0 TABLE LOOK UP 0/0/0 1680 [9894] 98414 100 982 4 0 0 0 SP TYPE NO HALT 0/0/0 1041 [9895] 98415 100 1041 0 0 0 HALT 0/0/0 1656 [9896] 98416 100 981 34 0 0 0 2SP B/E HALT 17/0/0 1057 [9897] 98417 117 1057 0 0 0 SPECIAL SELECT 0/0/0 1630 [9898] 98418 100 981 8 0 0 0 15SP A HALT 1/0/0 753 [9899] 98419 101 753 0 0 0 TABLE LOOK UP 8/0/0 2309 [9900] 98420 108 751 13 0 0 0 (A) MERGE CONSTANT LENGTH 0/0/0 53 [9901] 98421 100 53 0 0 0 HALT 8/0/0 2308 [9902] 98422 108 751 12 0 0 0 MERGE CONSTANT LENGTH 6/0/0 1285 [9903] 98423 106 1285 0 0 0 SELECT (N) 0/0/0 1644 [9904] 98424 100 981 22 0 0 0 4SP B HALT 1/0/0 1089 [9905] 98425 101 1089 0 0 0 TABLE LOOK UP 8/0/0 2311 [9906] 98426 108 751 15 0 0 0 (B) MERGE CONSTANT LENGTH 0/0/0 53 [9907] 98427 100 53 0 0 0 HALT 8/0/0 2310 [9908] 98428 108 751 14 0 0 0 MERGE CONSTANT LENGTH 6/0/0 1285 [9909] 98429 106 1285 0 0 0 SELECT (N) 0/0/0 1630 [9910] 98430 100 981 8 0 0 0 4SP C HALT 1/0/0 65 [9911] 98431 101 65 0 0 0 TABLE LOOK UP 8/0/0 2312 [9912] 98432 108 751 16 0 0 0 © MERGE CONSTANT LENGTH 4/0/0 53 [9913] 98433 104 53 0 0 0 ADD (N) TO (A) 0/0/0 1656 [9914] 98434 100 981 34 0 0 0 4SP B/E HALT 17/0/0 1089 [9915] 98435 117 1089 0 0 0 SPECIAL SELECT 0/0/0 1664 [9916] 98436 100 981 42 0 0 0 MR1 HALT 1/0/0 243 [9917] 98437 101 243 0 0 0 TABLE LOOK UP Source: RayS/Q1000815 8/0/0 2314 [9918] 98438 108 751 18 0 0 0 (R1) MERGE CONSTANT LENGTH 4/0/0 21 [9919] 98439 104 21 0 0 0 ADD (N) TO (A) 8/0/0 2313 [9920] 98440 108 751 17 0 0 0 MERGE CONSTANT LENGTH 4/0/0 5 [9921] 98441 104 5 0 0 0 ADD (N) TO (A) 0/0/0 1666 [9922] 98442 100 981 44 0 0 0 MR2 HALT 1/0/0 67 [9923] 98443 101 67 0 0 0 TABLE LOOK UP 8/0/0 2316 [9924] 98444 108 751 20 0 0 0 (R2) MERGE CONSTANT LENGTH 4/0/0 21 [9925] 98445 104 21 0 0 0 CONTENTS OF MR2 ADD (N) TO (A) 8/0/0 2315 [9926] 98446 108 751 19 0 0 0 MERGE CONSTANT LENGTH 4/0/0 5 [9927] 98447 104 5 0 0 0 ADD (N) TO (A) 0/0/0 1668 [9928] 98448 100 981 46 0 0 0 MR3 HALT 1/0/0 67 [9929] 98449 101 67 0 0 0 TABLE LOOK UP 8/0/0 2318 [9930] 98450 108 751 22 0 0 0 (MR3) MERGE CONSTANT LENGTH 4/0/0 21 [9931] 98451 104 21 0 0 0 ADD (N) TO (A) 8/0/0 2317 [9932] 98452 108 751 21 0 0 0 MERGE CONSTANT LENGTH 4/0/0 5 [9933] 98453 104 5 0 0 0 ADD (N) TO (A) 0/0/0 1656 [9934] 98454 100 981 34 0 0 0 3SP BE HALT 17/0/0 1073 [9935] 98455 117 1073 0 0 0 SPECIAL SELECT Start of procedure 985 at location 1744 in chapter 8 [9936] [9936] 98500 PROCR 985 3025 TABLE 3 0/0/0 1598 [9936] 98502 100 980 10 0 0 0 15 SP PROG ID HALT 0/0/0 245 [9937] 98503 100 245 0 0 0 HALT 0/0/0 1638 [9938] 98504 100 981 16 0 0 0 2SP CHAPTER/SECTION HALT 1/0/0 37 [9939] 98505 101 37 0 0 0 TABLE LOOK UP 0/0/0 1640 [9940] 98506 100 981 18 0 0 0 HALT 1/0/0 5 [9941] 98507 101 5 0 0 0 TABLE LOOK UP 8/0/0 2306 [9942] 98508 108 751 10 0 0 0 CHAP/SECTION MERGE CONSTANT LENGTH 0/0/0 4866 [9943] 98509 100 4866 0 0 0 HALT 0/0/0 1656 [9944] 98510 100 981 34 0 0 0 B/E HALT 17/0/0 1025 [9945] 98511 117 1025 0 0 0 SPECIAL SELECT 0/0/0 1652 [9946] 98512 100 981 30 0 0 0 15SP PROGM HALT 1/0/0 245 [9947] 98513 101 245 0 0 0 TABLE LOOK UP 0/0/0 1598 [9948] 98514 100 980 10 0 0 0 SERIAL NO HALT 0/0/0 21 [9949] 98515 100 21 0 0 0 HALT 0/0/0 1658 [9950] 98516 100 981 36 0 0 0 FINAL HALT 1/0/0 37 [9951] 98517 101 37 0 0 0 TABLE LOOK UP 0/0/0 1646 [9952] 98518 100 981 24 0 0 0 DUMP HALT 1/0/0 20 [9953] 98519 101 20 0 0 0 TABLE LOOK UP 0/0/0 1656 [9954] 98520 100 981 34 0 0 0 SP B/E HALT 17/0/0 1041 [9955] 98521 117 1041 0 0 0 SPECIAL SELECT 0/0/0 1660 [9956] 98522 100 981 38 0 0 0 MASTER HALT 1/0/0 245 [9957] 98523 101 245 0 0 0 TABLE LOOK UP 0/0/0 1662 [9958] 98524 100 981 40 0 0 0 ROUTINE HALT 1/0/0 5 [9959] 98525 101 5 0 0 0 TABLE LOOK UP 0/0/0 1670 [9960] 98526 100 981 48 0 0 0 HALT 1/0/0 5 [9961] 98527 101 5 0 0 0 TABLE LOOK UP 0/0/0 1656 [9962] 98528 100 981 34 0 0 0 4SP B/E HALT 17/0/0 1089 [9963] 98529 117 1089 0 0 0 SPECIAL SELECT Start of procedure 986 at location 1772 in chapter 8 [9964] [9964] 98600 PROCR 986 3026 TABLE 4 0/0/0 1610 [9964] 98602 100 980 22 0 0 0 ASTERISK HALT 1/0/0 1025 [9965] 98603 101 1025 0 0 0 4/0/1 TABLE LOOK UP 0/0/0 1170 [9966] a 98604 100 961 2 0 0 0 DIVISION NO OR REF HALT 0/0/1 515 [9967] 98605 100 515 0 1 0 2/2/0/3 Invalid 0/0/0 1591 [9968] 98606 100 980 3 0 0 0 13 BIT DEC ADD HALT 0/0/2 5 [9969] 98607 100 5 0 2 0 4/0/0/5 REPLACE (B) BY (N) 0/0/0 1180 [9970] a 98608 100 961 12 0 0 0 RELATIVE ADDRESS HALT 0/0/2 21 [9971] 98609 100 21 0 2 0 4/0/1/5 REPLACE (B) BY (N) 0/0/0 1594 [9972] 98610 100 980 6 0 0 0 15 BIT BINARY ADDRESS HALT 0/0/0 4117 [9973] 98611 100 4117 0 0 0 1/0/1/5 HALT Source: RayS/Q1000816 0/0/0 1175 [9974] a 98612 100 961 7 0 0 0 ACTION HALT 0/0/1 531 [9975] 98613 100 531 0 1 0 2/2/1/3 Invalid 0/0/0 1176 [9976] a 98614 100 961 8 0 0 0 DISC HALT 0/0/0 1041 [9977] 98615 100 1041 0 0 0 4/1/1 HALT 0/0/0 1177 [9978] a 98616 100 961 9 0 0 0 MOD HALT 0/0/0 1041 [9979] 98617 100 1041 0 0 0 4/1/1 HALT 0/0/0 1178 [9980] a 98618 100 961 10 0 0 0 ADDRESS HALT 0/0/2 21 [9981] 98619 100 21 0 2 0 1/5 REPLACE (B) BY (N) 0/0/0 1171 [9982] a 98620 100 961 3 0 0 0 ACTION HALT 0/0/1 531 [9983] 98621 100 531 0 1 0 2/2/1/3 Invalid 0/0/0 1172 [9984] a 98622 100 961 4 0 0 0 DISC HALT 0/0/0 1041 [9985] 98623 100 1041 0 0 0 4/1/1 HALT 0/0/0 1173 [9986] a 98624 100 961 5 0 0 0 MOD HALT 0/0/0 1041 [9987] 98625 100 1041 0 0 0 4/1/4 HALT 0/0/0 1174 [9988] a 98626 100 961 6 0 0 0 ADDRESS HALT 0/0/2 21 [9989] 98627 100 21 0 2 0 1/5 REPLACE (B) BY (N) 0/0/0 1602 [9990] 98628 100 980 14 0 0 0 LSH NUMERIC HALT 4/0/2 69 [9991] 98629 104 69 0 2 0 4/0/2/5 ADD (N) TO (A) 0/0/0 1603 [9992] 98630 100 980 15 0 0 0 MSH NUMERIC HALT 4/0/2 37 [9993] 98631 104 37 0 2 0 4/0/2/5 ADD (N) TO (A) 0/0/0 1640 [9994] 98632 100 981 18 0 0 0 PROCESSED ALPHA HALT 1/0/0 37 [9995] 98633 101 37 0 0 0 2/5 TABLE LOOK UP 0/0/0 1179 [9996] a 98634 100 961 11 0 0 0 TAG HALT 0/0/0 4882 [9997] 98635 100 4882 0 0 0 1/3/1/2 HALT 0/0/0 1674 [9998] 98636 100 981 52 0 0 0 BEW HALT 17/0/0 5 [9999] 98637 117 5 0 0 0 0/5 SPECIAL SELECT 0/0/0 1678 [10000] 98638 100 982 2 0 0 0 STARRY LINE HALT 0/0/2 4341 [10001] 98639 100 4341 0 2 0 5/0/15/5 REPLACE (B) BY (N) 0/0/0 1678 [10002] 98640 100 982 2 0 0 0 HALT 0/0/2 4341 [10003] 98641 100 4341 0 2 0 REPLACE (B) BY (N) 0/0/0 1678 [10004] 98642 100 982 2 0 0 0 HALT 0/0/2 4341 [10005] 98643 100 4341 0 2 0 REPLACE (B) BY (N) 0/0/0 1678 [10006] 98644 100 982 2 0 0 0 HALT 0/0/2 4117 [10007] 98645 100 4117 0 2 0 5/0/1/5 REPLACE (B) BY (N) 0/0/0 1606 [10008] 98646 100 980 18 0 0 0 STARTS HALT 1/0/0 53 [10009] 98647 101 53 0 0 0 TABLE LOOK UP 0/0/0 1674 [10010] 98648 100 981 52 0 0 0 BEW HALT 17/0/0 5 [10011] 98649 117 5 0 0 0 0/5 SPECIAL SELECT 0/0/0 1678 [10012] 98650 100 982 2 0 0 0 20 SPACES HALT 16/0/2 4341 [10013] 98651 116 4341 0 2 0 Invalid Start of procedure 987 at location 1822 in chapter 8 [10014] [10014] 98700 CONST 987 0 FIRST LEVEL PARAS PASS 2 0/1/0 4680 [10014] 98702 (B5)1(B3)1(B3)1(B3)1(B6)8; 2001/0 +09248 0/1/0 4161 [10015] 98703 1,1,0,1,1; +09041 0/1/0 4616 [10016] 98704 1,1,1,0,8; +09208 0/1/0 5136 [10017] 98705 1,1,2,0,16; +09410 1/0/0 1040 [10018] 98706 2,0,2,0,16; +10410 0/1/0 577 [10019] 98707 1,0,1,1,1; +08241 0/1/0 4169 [10020] 98708 1,1,0,1,9; +09049 0/0/0 7606 [10021] 98709 0,1,6,6,54; +01DB6 3/0/0 4681 [10022] 98710 6,1,1,1,9; +31249 0/0/0 4678 [10023] 98711 0,1,1,1,6; +01246 0/1/0 576 [10024] 98712 1,0,1,1,0; +08240 0/1/0 4681 [10025] 98713 1,1,1,1,9; 2002/5 +09249 0/0/0 4681 [10026] 98714 0,1,1,1,9; +01249 0/0/0 4150 [10027] 98715 0,1,0,0,54; +01036 0/1/0 4105 [10028] 98716 1,1,0,0,9; +09009 0/0/0 4616 [10029] 98717 0,1,1,0,8; +01208 0/0/0 950 [10030] 98718 0,0,1,6,54; +003B6 3/0/3 3510 [10031] 98719 6,6,6,6,54; +36DB6 Source: RayS/Q1000817 0/0/0 512 [10032] 98720 0,0,1,0,0; 2003/4 +00200 0/0/0 64 [10033] 98721 0,0,0,1,0; +00040 0/1/0 65 [10034] 98722 1,0,0,1,1; +08041 0/1/0 4614 [10035] 98723 1,1,1,0,6; +09206 0/0/0 4680 [10036] 98724 0,1,1,1,8; +01248 0/0/0 4678 [10037] 98725 0,1,1,1,6; 2004/5 2005/5 +01246 0/0/0 4673 [10038] 98726 0,1,1,1,1; +01241 0/0/0 0 [10039] 98727 0,0,0,0,0; +00000 0/0/0 4681 [10040] 98728 0,1,1,1,9; +01249 0/1/0 521 [10041] 98729 1,0,1,0,9; +08209 0/1/0 4104 [10042] 98730 1,1,0,0,8; +09008 0/1/0 585 [10043] 98731 1,0,1,1,9; 2006/2 +08249 0/1/0 584 [10044] 98732 1,0,1,1,8; +08248 0/0/0 4161 [10045] 98733 0,1,0,1,1; +01041 0/1/0 4680 [10046] 98734 1,1,1,1,8; +09248 0/1/0 4673 [10047] 98735 1,1,1,1,1; +09241 0/1/0 1 [10048] 98736 1,0,0,0,1; +08001 0/1/0 512 [10049] 98737 1,0,1,0,0; +08200 0/1/0 4104 [10050] 98738 1,1,0,0,8; +09008 0/1/0 4168 [10051] 98739 1,1,0,1,8; 2007/4 +09048 0/1/0 521 [10052] 98740 1,0,1,0,9; +08209 0/0/0 4617 [10053] 98741 0,1,1,0,9; 2008/6 +01209 0/1/0 4168 [10054] 98742 1,1,0,1,8; +09048 0/1/0 4672 [10055] 98743 1,1,1,1,0; +09240 0/0/0 4681 [10056] 98744 0,1,1,1,9; +01249 0/0/0 521 [10057] 98745 0,0,1,0,9; +00209 0/0/0 4616 [10058] 98746 0,1,1,0,8; +01208 0/1/0 5046 [10059] 98747 1,1,1,6,54; +093B6 0/0/0 4681 [10060] 98748 0,1,1,1,9; 2009/0 +01249 0/1/0 4169 [10061] 98749 1,1,0,1,9; +09049 0/1/0 5046 [10062] 98750 1,1,1,6,54; +093B6 3/0/0 584 [10063] 98751 6,0,1,1,8; +30248 0/1/0 584 [10064] 98752 1,0,1,1,8; 2010/5 +08248 0/1/0 5003 [10065] 98753 1,1,1,6,11; +0938B 0/1/0 585 [10066] 98754 1,0,1,1,9; +08249 0/1/0 4161 [10067] 98755 1,1,0,1,1; +09041 0/1/0 4681 [10068] 98756 1,1,1,1,9; +09249 0/0/3 3081 [10069] 98757 0,6,6,0,9; 2011/4 +06C09 0/1/0 513 [10070] 98758 1,0,1,0,1; +08201 1/1/0 118 [10071] 98759 3,0,0,1,54; +18076 0/0/0 4169 [10072] 98760 0,1,0,1,9; +01049 0/1/0 950 [10073] 98761 1,0,1,6,54; +083B6 0/1/0 585 [10074] 98762 1,0,1,1,9; +08249 0/0/0 4168 [10075] 98763 0,1,0,1,8; +01048 0/1/0 521 [10076] 98764 1,0,1,0,9; +08209 0/0/3 3510 [10077] 98765 0,6,6,6,54; 2012/1 +06DB6 0/1/0 4673 [10078] 98766 1,1,1,1,1; +09241 0/0/0 4680 [10079] 98767 0,1,1,1,8; +01248 0/1/0 521 [10080] 98768 1,0,1,0,9; +08209 0/0/0 4616 [10081] 98769 0,1,1,0,8; 2013/0 +01208 0/1/0 4096 [10082] 98770 1,1,0,0,0; +09000 0/1/0 4160 [10083] 98771 1,1,0,1,0; +09040 0/0/0 512 [10084] 98772 0,0,1,0,0; +00200 0/1/0 8 [10085] 98773 1,0,0,0,8; +08008 0/0/0 584 [10086] 98774 0,0,1,1,8; +00248 0/0/0 4097 [10087] 98775 0,1,0,0,1; +01001 0/1/0 4104 [10088] 98776 1,1,0,0,8; +09008 0/0/0 8 [10089] 98777 0,0,0,0,8; +00008 0/1/0 4168 [10090] 98778 1,1,0,1,8; +09048 0/1/0 584 [10091] 98779 1,0,1,1,8; 2014/6 +08248 Source: RayS/Q1000818 0/1/0 4680 [10092] 98780 1,1,1,1,8; +09248 0/0/0 4169 [10093] 98781 0,1,0,1,9; +01049 0/1/3 3510 [10094] 98782 1,6,6,6,54; +0EDB6 0/1/0 4673 [10095] 98783 1,1,1,1,1; +09241 0/0/0 4681 [10096] 98784 0,1,1,1,9; 2015/0 +01249 0/0/0 4681 [10097] 98785 0,1,1,1,9; +01249 0/0/0 4617 [10098] 98786 0,1,1,0,9; +01209 0/1/0 4169 [10099] 98787 1,1,0,1,9; +09049 0/1/0 577 [10100] 98788 1,0,1,1,1; +08241 0/1/0 4169 [10101] 98789 1,1,0,1,9; 2016/0 +09049 0/1/0 4617 [10102] 98790 1,1,1,0,9; +09209 0/0/0 4992 [10103] 98791 0,1,1,6,0; +01380 0/1/0 4681 [10104] 98792 1,1,1,1,9; +09249 0/0/0 113 [10105] 98793 0,0,0,1,49; +00071 Start of procedure 988 at location 1914 in chapter 8 [10106] [10106] 98800 CONST 988 0 FIRST LEVEL PARA PASS 2 CONTD 0/1/0 4175 [10106] 98802 (B5)1(B3)1(B3)0(B3)1(B6)15; +0904F 0/0/0 512 [10107] 98803 0,0,1,0,0; 2017/1 +00200 0/1/0 4104 [10108] 98804 1,1,0,0,8; +09008 0/0/0 584 [10109] 98805 0,0,1,1,8; +00248 0/0/0 4096 [10110] 98806 0,1,0,0,0; +01000 0/0/0 4161 [10111] 98807 0,1,0,1,1; +01041 0/0/0 4672 [10112] 98808 0,1,1,1,0; +01240 0/1/0 9 [10113] 98809 1,0,0,0,9; +08009 0/1/0 4169 [10114] 98810 1,1,0,1,9; +09049 0/1/0 4169 [10115] 98811 1,1,0,1,9; 2017A/5 +09049 0/0/0 5057 [10116] 98812 0,1,1,7,1; 2018/5 2019/5 +013C1 0/1/0 4687 [10117] 98813 1,1,1,1,15; +0924F 0/0/0 4169 [10118] 98814 0,1,0,1,9; 2020/1 +01049 0/0/0 121 [10119] 98815 0,0,0,1,57; +00079 0/0/0 4534 [10120] 98816 0,1,0,6,54; 2022/1 +011B6 0/1/0 584 [10121] 98817 1,0,1,1,8; 2022/6 +08248 0/1/0 584 [10122] 98818 1,0,1,1,8; 2023/6 +08248 0/1/0 4696 [10123] 98819 1,1,1,1,24; +09258 0/1/0 4160 [10124] 98820 1,1,0,1,0; +09040 0/1/0 566 [10125] 98821 1,0,1,0,54; 2024/4 +08236 0/1/0 4169 [10126] 98822 1,1,0,1,9; +09049 0/0/3 3510 [10127] 98823 0,6,6,6,54; +06DB6 0/0/0 4681 [10128] 98824 0,1,1,1,9; 2025/0 +01249 0/0/0 521 [10129] 98825 0,0,1,0,9; +00209 0/0/0 4175 [10130] 98826 0,1,0,1,15; 2026/0 +0104F 0/0/0 584 [10131] 98827 0,0,1,1,8; +00248 0/1/0 4096 [10132] 98828 1,1,0,0,0; 2027/3 +09000 0/0/0 0 [10133] 98829 0,0,0,0,0; +00000 0/0/0 0 [10134] 98830 0,0,0,0,0; 2028/0 +00000 0/0/0 0 [10135] 98831 0,0,0,0,0; +00000 0/0/0 0 [10136] 98832 0,0,0,0,0; 2029/0 +00000 0/0/0 0 [10137] 98833 0,0,0,0,0; +00000 0/0/0 0 [10138] 98834 0,0,0,0,0; +00000 0/0/0 0 [10139] 98835 0,0,0,0,0; +00000 0/0/0 16 [10140] 98836 0,0,0,0,16; 2030/5 +00010 0/0/0 16 [10141] 98837 0,0,0,0,16; +00010 1/0/0 24 [10142] 98838 2,0,0,0,24; +10018 1/0/0 0 [10143] 98839 2,0,0,0,0; 2031/5 +10000 0/0/0 0 [10144] 98840 0,0,0,0,0; +00000 0/0/0 0 [10145] 98841 0,0,0,0,0; 2032/1 +00000 0/0/0 0 [10146] 98842 0,0,0,0,0; 2033/5 +00000 0/0/0 16 [10147] 98843 0,0,0,0,16; 2034/5 +00010 3/1/3 3510 [10148] 98844 7,6,6,6,54; (CHAP END) +3EDB6 3/0/3 3510 [10149] 98845 6,6,6,6,54; DUMMY WORD +36DB6 Source: RayS/Q1000819 Start of procedure 989 at location 1958 in chapter 8 [10150] [10150] 98900 CONST 989 0 FIRST LEVEL PARAS PASS 3 0/0/0 576 [10150] 98902 (B5)0(B3)0(B3)1(B3)1(B6)0; 3001/0 +00240 0/1/0 65 [10151] 98903 1,0,0,1,1; +08041 0/1/0 4614 [10152] 98904 1,1,1,0,6; +09206 0/1/0 4681 [10153] 98905 1,1,1,1,9; +09249 0/1/0 4697 [10154] 98906 1,1,1,1,25; +09259 0/0/3 3510 [10155] 98907 0,6,6,6,54; +06DB6 0/0/0 0 [10156] 98908 0,0,0,0,0; 3001.5/1 +00000 0/0/0 0 [10157] 98909 0,0,0,0,0; +00000 0/0/0 0 [10158] 98910 0,0,0,0,0; +00000 0/0/0 0 [10159] 98911 0,0,0,0,0; +00000 0/0/0 0 [10160] 98912 0,0,0,0,0; +00000 0/0/0 0 [10161] 98913 0,0,0,0,0; +00000 0/0/0 0 [10162] 98914 0,0,0,0,0; +00000 0/0/0 0 [10163] 98915 0,0,0,0,0; +00000 0/0/0 0 [10164] 98916 0,0,0,0,0; +00000 0/0/0 0 [10165] 98917 0,0,0,0,0; +00000 0/0/0 0 [10166] 98918 0,0,0,0,0; 3001A/1 +00000 0/0/0 0 [10167] 98919 0,0,0,0,0; +00000 0/0/0 0 [10168] 98920 0,0,0,0,0; +00000 0/0/0 0 [10169] 98921 0,0,0,0,0; +00000 0/0/0 0 [10170] 98922 0,0,0,0,0; +00000 0/0/0 0 [10171] 98923 0,0,0,0,0; +00000 0/0/0 0 [10172] 98924 0,0,0,0,0; +00000 0/0/0 0 [10173] 98925 0,0,0,0,0; +00000 0/0/0 0 [10174] 98926 0,0,0,0,0; +00000 0/0/0 0 [10175] 98927 0,0,0,0,0; +00000 0/0/0 0 [10176] 98928 0,0,0,0,0; +00000 0/0/0 0 [10177] 98929 0,0,0,0,0; +00000 0/0/0 0 [10178] 98930 0,0,0,0,0; +00000 0/0/0 0 [10179] 98931 0,0,0,0,0; +00000 0/0/0 0 [10180] 98932 0,0,0,0,0; +00000 0/0/0 0 [10181] 98933 0,0,0,0,0; +00000 1/0/0 1040 [10182] 98934 2,0,2,0,16; 30018/1 +10410 1/0/0 1040 [10183] 98935 2,0,2,0,16; +10410 1/0/0 1040 [10184] 98936 2,0,2,0,16; +10410 1/0/0 1040 [10185] 98937 2,0,2,0,16; +10410 1/0/0 1040 [10186] 98938 2,0,2,0,16; +10410 0/0/0 521 [10187] 98939 0,0,1,0,9; 3002/3 +00209 0/0/0 4617 [10188] 98940 0,1,1,0,9; +01209 0/0/0 4673 [10189] 98941 0,1,1,1,1; +01241 0/1/1 4681 [10190] 98942 1,3,1,1,9; +0B249 0/1/0 73 [10191] 98943 1,0,0,1,9; +08049 0/1/0 7606 [10192] 98944 1,1,6,6,54; +09DB6 0/1/0 577 [10193] 98945 1,0,1,1,1; 3003/0 +08241 0/1/0 4681 [10194] 98946 1,1,1,1,9; +09249 0/0/0 4161 [10195] 98947 0,1,0,1,1; +01041 0/1/0 4721 [10196] 98948 1,1,1,1,49; 3004/6 +09271 3/0/3 3510 [10197] 98949 6,6,6,6,54; +36DB6 0/1/0 4726 [10198] 98950 1,1,1,1,54; +09276 0/0/0 4168 [10199] 98951 0,1,0,1,8; +01048 0/1/0 4681 [10200] 98952 1,1,1,1,9; +09249 0/1/0 4681 [10201] 98953 1,1,1,1,9; +09249 0/0/0 4161 [10202] 98954 0,1,0,1,1; +01041 0/0/0 4681 [10203] 98955 0,1,1,1,9; +01249 0/1/0 4681 [10204] 98956 1,1,1,1,9; +09249 0/1/0 4680 [10205] 98957 1,1,1,1,8; +09248 0/1/0 7606 [10206] 98958 1,1,6,6,54; +09DB6 0/1/0 4681 [10207] 98959 1,1,1,1,9; +09249 Source: RayS/Q1000820 0/1/0 4680 [10208] 98960 1,1,1,1,8; 3005/6 +09248 0/1/0 4680 [10209] 98961 1,1,1,1,8; +09248 0/1/0 4681 [10210] 98962 1,1,1,1,9; +09249 0/1/0 7241 [10211] 98963 1,1,6,1,9; +09C49 0/0/0 4169 [10212] 98964 0,1,0,1,9; +01049 0/1/0 4680 [10213] 98965 1,1,1,1,8; 3006/0 +09248 0/1/0 4169 [10214] 98966 1,1,0,1,9; +09049 0/0/0 4680 [10215] 98967 0,1,1,1,8; +01248 0/1/3 4169 [10216] 98968 1,7,0,1,9; +0F049 0/1/0 4681 [10217] 98969 1,1,1,1,9; +09249 0/1/0 4673 [10218] 98970 1,1,1,1,1; +09241 0/0/0 4680 [10219] 98971 0,1,1,1,8; +01248 0/0/0 4616 [10220] 98972 0,1,1,0,8; 3007/5 +01208 0/1/0 521 [10221] 98973 1,0,1,0,9; +08209 0/1/0 4680 [10222] 98974 1,1,1,1,8; +09248 0/1/0 4161 [10223] 98975 1,1,0,1,1; +09041 0/0/0 4673 [10224] 98976 0,1,1,1,1; +01241 0/1/0 4681 [10225] 98977 1,1,1,1,9; 3008/3 +09249 0/1/0 4681 [10226] 98978 1,1,1,1,9; +09249 0/0/0 4681 [10227] 98979 0,1,1,1,9; 3009/0 +01249 0/1/0 4104 [10228] 98980 1,1,0,0,8; 3010/3 +09008 0/0/0 4105 [10229] 98981 0,1,0,0,9; +01009 0/1/0 7606 [10230] 98982 1,1,6,6,54; +09DB6 3/0/0 3465 [10231] 98983 6,0,6,6,9; 3011/2 +30D89 0/1/0 4680 [10232] 98984 1,1,1,1,8; +09248 0/1/0 4681 [10233] 98985 1,1,1,1,9; +09249 0/1/0 4681 [10234] 98986 1,1,1,1,9; +09249 0/1/0 4681 [10235] 98987 1,1,1,1,9; +09249 0/1/0 945 [10236] 98988 1,0,1,6,49; +083B1 0/1/0 4681 [10237] 98989 1,1,1,1,9; +09249 0/1/0 4105 [10238] 98990 1,1,0,0,9; +09009 0/0/0 4681 [10239] 98991 0,1,1,1,9; +01249 0/1/0 4681 [10240] 98992 1,1,1,1,9; +09249 0/1/0 520 [10241] 98993 1,0,1,0,8; 3012/2 +08208 0/1/0 584 [10242] 98994 1,0,1,1,8; 3013/2 3014/6 +08248 0/0/0 577 [10243] 98995 0,0,1,1,1; +00241 0/0/0 4105 [10244] 98996 0,1,0,0,9; +01009 0/0/3 3510 [10245] 98997 0,6,6,6,54; +06DB6 0/0/0 4681 [10246] 98998 0,1,1,1,9; 3015/1 +01249 0/1/0 584 [10247] 98999 1,0,1,1,8; +08248 Start of procedure 990 at location 2056 in chapter 8 [10248] [10248] 99000 CONST 990 0 0/1/0 585 [10248] 99002 (B5)1(B3)0(B3)1(B3)1(B6)9; +08249 0/1/0 521 [10249] 99003 1,0,1,0,9; +08209 0/1/0 4096 [10250] 99004 1,1,0,0,0; 3016/3 +09000 0/1/0 513 [10251] 99005 1,0,1,0,1; 3017/4 +08201 0/1/0 4619 [10252] 99006 1,1,1,0,11; +0920B 0/0/0 5046 [10253] 99007 0,1,1,6,54; +013B6 0/1/0 4161 [10254] 99008 1,1,0,1,1; +09041 0/0/0 4616 [10255] 99009 0,1,1,0,8; +01208 0/0/0 4672 [10256] 99010 0,1,1,1,0; +01240 0/1/0 118 [10257] 99011 1,0,0,1,54; 3018/2 +08076 1/1/0 520 [10258] 99012 3,0,1,0,8; 3019/6 +18208 0/0/0 4673 [10259] 99013 0,1,1,1,1; +01241 0/1/0 4161 [10260] 99014 (B5)1(B3)1(B3)0(B3)1(B6)1; +09041 0/1/0 513 [10261] 99015 1,0,1,0,1; +08201 0/0/0 0 [10262] 99016 0,0,0,0,0; +00000 0/0/0 438 [10263] 99017 0,0,0,6,54; +001B6 0/0/0 0 [10264] 99018 0,0,0,0,0; 3020/1 +00000 0/0/0 0 [10265] 99019 0,0,0,0,0; +00000 Source: RayS/Q1000821 0/0/0 0 [10266] 99020 0,0,0,0,0; +00000 0/0/0 0 [10267] 99021 (B5)0(B3)0(B3)0(B3)0(B6)0; +00000 0/0/0 0 [10268] 99022 0,0,0,0,0; +00000 0/0/0 0 [10269] 99023 0,0,0,0,0; 3021/5 +00000 0/0/0 0 [10270] 99024 0,0,0,0,0; +00000 0/0/0 0 [10271] 99025 0,0,0,0,0; +00000 0/0/0 0 [10272] 99026 0,0,0,0,0; +00000 0/0/0 0 [10273] 99027 0,0,0,0,0; +00000 0/0/0 0 [10274] 99028 0,0,0,0,0; +00000 0/0/0 0 [10275] 99029 0,0,0,0,0; +00000 Start of procedure 991 at location 2084 in chapter 8 [10276] [10276] 99100 CONST 991 0 FIRST LEVEL PARAS PASS C CONTD 0/0/0 0 [10276] 99102 (B5)0(B3)0(B3)0(B3)0(B6)0; +00000 0/0/0 0 [10277] 99103 0,0,0,0,0; +00000 0/0/0 0 [10278] 99104 0,0,0,0,0; 3022/5 +00000 0/0/0 0 [10279] 99105 0,0,0,0,0; +00000 1/0/0 1040 [10280] 99106 2,0,2,0,16; 3023/1+3024/5 +10410 1/0/0 1040 [10281] 99107 2,0,2,0,16; +10410 1/0/0 1040 [10282] 99108 2,0,2,0,16; +10410 1/0/0 1040 [10283] 99109 2,0,2,0,16; +10410 1/0/0 1040 [10284] 99110 2,0,2,0,16; +10410 1/0/0 1040 [10285] 99111 2,0,2,0,16; +10410 1/0/0 1040 [10286] 99112 2,0,2,0,16; +10410 1/0/0 1040 [10287] 99113 2,0,2,0,16; +10410 1/0/0 1040 [10288] 99114 2,0,2,0,16; +10410 1/0/0 1040 [10289] 99115 2,0,2,0,16; 3025/4 +10410 1/0/0 1040 [10290] 99116 2,0,2,0,16; +10410 1/0/0 1040 [10291] 99117 2,0,2,0,16; +10410 1/0/0 1040 [10292] 99118 2,0,2,0,16; +10410 1/0/0 1040 [10293] 99119 2,0,2,0,16; +10410 1/0/0 1040 [10294] 99120 2,0,2,0,16; 3026/2 +10410 1/0/0 1040 [10295] 99121 2,0,2,0,16; +10410 1/0/0 1040 [10296] 99122 2,0,2,0,16; +10410 1/0/0 1040 [10297] 99123 2,0,2,0,16; +10410 1/0/0 1040 [10298] 99124 2,0,2,0,16; +10410 1/0/0 1040 [10299] 99125 2,0,2,0,16; +10410 1/0/0 1040 [10300] 99126 2,0,2,0,16; +10410 1/0/0 1040 [10301] 99127 2,0,2,0,16; +10410 1/0/0 1086 [10302] 99128 2,0,2,0,62; +1043E Start of procedure 992 at location 2111 in chapter 8 [10303] [10303] 99200 CONST 992 0 SECOND LEVEL PARAS 2/1/0 2929 [10303] 99202 (B8)40(B6)45(B6)49; PASS 2 +28B71 0/0/0 2814 [10304] 99203 42,24,62; +00AFE 0/0/0 3071 [10305] 99204 42,62,63; PASS 3 +00BFF Start of procedure 993 at location 2114 in chapter 8 [10306] [10306] 99300 CONST 993 1 BLISTER SPACE 0/0/0 0 [10306] 99302 (D)0; 00000 +00000 0/0/0 0 [10307] 0/0/0 0 [10308] 99304 0; 00000 +00000 0/0/0 0 [10309] 0/0/0 0 [10310] 99306 0; 00000 +00000 0/0/0 0 [10311] 0/0/0 0 [10312] 99308 0; 00000 +00000 0/0/0 0 [10313] 0/0/0 0 [10314] 99310 0; 00000 +00000 0/0/0 0 [10315] 0/0/0 0 [10316] 99312 0; 00000 +00000 0/0/0 0 [10317] 0/0/0 0 [10318] 99314 0; 00000 +00000 0/0/0 0 [10319] 0/0/0 0 [10320] 99316 0; 00000 +00000 0/0/0 0 [10321] 0/0/0 0 [10322] 99318 0; 00000 +00000 0/0/0 0 [10323] 0/0/0 0 [10324] 99320 0; 00000 +00000 0/0/0 0 [10325] 0/0/0 0 [10326] 99322 0; 00000 +00000 0/0/0 0 [10327] 0/0/0 0 [10328] 99324 0; 00000 +00000 0/0/0 0 [10329] 0/0/0 0 [10330] 99326 0; 00000 +00000 0/0/0 0 [10331] 0/0/0 0 [10332] 99328 0; 00000 +00000 0/0/0 0 [10333] Source: DavidH/Q1000999 Query: May need a 152 action Constants for chapter 8 short constants at 10334 long constants at 10338 0/0/1 0 [10334] 002000 0/0/2 0 [10335] 004000 0/0/3 0 [10336] 006000 0/0/0 0 [10337] 000000 0/0/0 0 [10338] 000000 0/0/0 6 [10339] 000006 0/0/0 0 [10340] 000000 0/0/0 3 [10341] 000003 9/0/3 1907 [10342] 096773 5/0/1 5509 [10343] 053585 0/0/0 126 [10344] 00007E 7/1/3 0 [10345] 07E000 0/0/0 0 [10346] 000000 2/0/0 50 [10347] 020032 0/0/0 0 [10348] 000000 0/0/0 6 [10349] 000006 0/0/0 0 [10350] 000000 0/0/0 3 [10351] 000003 L8192 loading procedure 0 for chapter 8 0/0/0 0 [8192] 000000 0/0/0 5600 [8193] 0015E0 0/0/0 5600 [8194] 0015E0 0/0/1 0 [8195] 002000 0/0/1 0 [8196] 002000 0/0/0 160 [8197] 0000A0 0/0/0 160 [8198] 0000A0 0/0/0 9 [8199] 000009 0/0/0 18 [8200] 000012 0/0/0 27 [8201] 00001B 0/0/0 36 [8202] 000024 0/0/0 45 [8203] 00002D 0/0/0 10 [8204] 00000A 16/0/0 74 [8205] 10004A 0/0/0 19 [8206] 000013 16/0/0 83 [8207] 100053 0/0/0 28 [8208] 00001C 16/0/0 92 [8209] 10005C 0/0/0 37 [8210] 000025 16/0/0 101 [8211] 100065 0/0/0 46 [8212] 00002E 16/0/0 110 [8213] 10006E 0/0/0 8 [8214] 000008 16/0/0 10 [8215] 10000A 16/0/0 12 [8216] 10000C 16/0/0 14 [8217] 10000E 0/0/0 0 [8218] 000000 0/0/0 0 [8219] 000000 0/0/0 0 [8220] 000000 0/0/0 0 [8221] 000000 0/0/0 0 [8222] 000000 0/0/0 0 [8223] 000000 0/0/0 0 [8224] 000000 0/0/0 0 [8225] 000000 0/0/0 0 [8226] 000000 0/0/0 0 [8227] 000000 0/0/0 0 [8228] 000000 0/0/0 0 [8229] 000000 0/0/0 0 [8230] 000000 0/0/0 0 [8231] 000000 O06 8192 10352 Overlaying chapter 8 by 9, equivalent to chapter 2 L8238 loading chapter 9 Start of procedure 994 at location 46 in chapter 9 [8238] [8238] 99400 PROCR 994 CHAPTER 9 Query: May need a 152 action and END Constants for chapter 9 short constants at 8238 long constants at 8242 0/0/1 0 [8238] 002000 0/0/2 0 [8239] 004000 0/0/3 0 [8240] 006000 0/0/0 0 [8241] 000000 L8192 loading procedure 0 for chapter 9 0/0/0 0 [8192] 000000 0/0/0 5600 [8193] 0015E0 0/0/0 5600 [8194] 0015E0 0/0/1 0 [8195] 002000 0/0/1 0 [8196] 002000 0/0/0 160 [8197] 0000A0 0/0/0 160 [8198] 0000A0 0/0/0 9 [8199] 000009 0/0/0 18 [8200] 000012 0/0/0 27 [8201] 00001B 0/0/0 36 [8202] 000024 0/0/0 45 [8203] 00002D 0/0/0 10 [8204] 00000A 16/0/0 74 [8205] 10004A 0/0/0 19 [8206] 000013 16/0/0 83 [8207] 100053 0/0/0 28 [8208] 00001C 16/0/0 92 [8209] 10005C 0/0/0 37 [8210] 000025 16/0/0 101 [8211] 100065 0/0/0 46 [8212] 00002E 16/0/0 110 [8213] 10006E 0/0/0 8 [8214] 000008 16/0/0 10 [8215] 10000A 16/0/0 12 [8216] 10000C 16/0/0 14 [8217] 10000E 0/0/0 0 [8218] 000000 0/0/0 0 [8219] 000000 0/0/0 0 [8220] 000000 0/0/0 0 [8221] 000000 0/0/0 0 [8222] 000000 0/0/0 0 [8223] 000000 0/0/0 0 [8224] 000000 0/0/0 0 [8225] 000000 0/0/0 0 [8226] 000000 0/0/0 0 [8227] 000000 0/0/0 0 [8228] 000000 0/0/0 0 [8229] 000000 0/0/0 0 [8230] 000000 0/0/0 0 [8231] 000000 O07 8192 8242 Overlaying chapter 9 by 10, equivalent to chapter 2 L8238 loading chapter 10 Start of procedure 995 at location 46 in chapter 10 [8238] [8238] 99500 PROCR 995 CHAPTER 10 [8238] 99502 168 4 4 ADD 4 WORDS TO CHAP 4 Constants for chapter 10 short constants at 8238 long constants at 8242 0/0/1 0 [8238] 002000 0/0/2 0 [8239] 004000 0/0/3 0 [8240] 006000 0/0/0 0 [8241] 000000 L8192 loading procedure 0 for chapter 10 0/0/0 0 [8192] 000000 0/0/0 5600 [8193] 0015E0 0/0/0 5600 [8194] 0015E0 0/0/1 0 [8195] 002000 0/0/1 0 [8196] 002000 0/0/0 160 [8197] 0000A0 0/0/0 160 [8198] 0000A0 0/0/0 9 [8199] 000009 0/0/0 18 [8200] 000012 0/0/0 27 [8201] 00001B 0/0/0 36 [8202] 000024 0/0/0 45 [8203] 00002D 0/0/0 10 [8204] 00000A 16/0/0 74 [8205] 10004A 0/0/0 19 [8206] 000013 16/0/0 83 [8207] 100053 0/0/0 28 [8208] 00001C 16/0/0 92 [8209] 10005C 0/0/0 37 [8210] 000025 16/0/0 101 [8211] 100065 0/0/0 46 [8212] 00002E 16/0/0 110 [8213] 10006E 0/0/0 8 [8214] 000008 16/0/0 10 [8215] 10000A 16/0/0 12 [8216] 10000C 16/0/0 14 [8217] 10000E 0/0/0 0 [8218] 000000 0/0/0 0 [8219] 000000 0/0/0 0 [8220] 000000 0/0/0 0 [8221] 000000 0/0/0 0 [8222] 000000 0/0/0 0 [8223] 000000 0/0/0 0 [8224] 000000 0/0/0 0 [8225] 000000 0/0/0 0 [8226] 000000 0/0/0 0 [8227] 000000 0/0/0 0 [8228] 000000 0/0/0 0 [8229] 000000 0/0/0 0 [8230] 000000 0/0/0 0 [8231] 000000 O08 8192 8242 Overlaying final chapter 10, equivalent to chapter 2 L73 loading ASL for D1 section 10 in chapter 0 0/0/0 160 [73] 0000A0 0/0/0 1074 [74] 000432 L82 loading ASL for B1 section 5 in chapter 4 0/0/0 554 [82] 00022A 0/0/1 6330 [83] 0038BA L91 loading ASL for A1 section 7 in chapter 4 0/0/0 612 [91] 000264 0/0/1 6384 [92] 0038F0 L100 loading ASL for A2 section 8 in chapter 4 0/0/0 766 [100] 0002FE 0/0/1 6534 [101] 003986 L109 loading ASL for A6 section 9 in chapter 4 0/0/0 920 [109] 000398 0/0/1 6684 [110] 003A1C X160 chapter 0 is here L160 loading chapter 0 0/0/0 0 [160] 000000 0/0/0 1 [161] 000001 0/0/0 3 [162] 000003 0/0/0 10 [163] 00000A 0/0/0 3 [164] 000003 0/0/0 4 [165] 000004 0/0/0 5 [166] 000005 0/0/0 0 [167] 000000 0/0/1 2011 [168] 0027DB 0/0/0 2 [169] 000002 0/0/0 7 [170] 000007 0/0/0 0 [171] 000000 0/0/0 128 [172] 000080 0/1/0 2067 [173] 008813 0/0/0 1 [174] 000001 0/0/0 1 [175] 000001 0/0/0 6 [176] 000006 0/0/0 0 [177] 000000 0/0/0 62 [178] 00003E 0/0/0 0 [179] 000000 0/0/0 0 [180] 000000 0/0/0 0 [181] 000000 0/0/0 0 [182] 000000 0/0/0 0 [183] 000000 0/0/0 0 [184] 000000 0/0/0 0 [185] 000000 0/0/0 0 [186] 000000 0/0/0 0 [187] 000000 0/0/0 0 [188] 000000 0/0/0 0 [189] 000000 0/0/0 0 [190] 000000 0/0/0 0 [191] 000000 0/0/0 0 [192] 000000 0/0/0 0 [193] 000000 14/1/0 9 [194] 0E8009 0/0/2 5185 [195] 005441 5/1/0 18 [196] 058012 0/0/2 4673 [197] 005241 7/1/0 27 [198] 07801B 0/0/2 4417 [199] 005141 8/1/0 36 [200] 088024 0/0/2 4418 [201] 005142 7/1/0 45 [202] 07802D 0/0/2 4422 [203] 005146 0/0/0 0 [204] 000000 0/0/0 0 [205] 000000 0/0/0 0 [206] 000000 0/0/0 0 [207] 000000 0/0/0 0 [208] 000000 0/0/0 0 [209] 000000 0/0/0 0 [210] 000000 0/0/0 0 [211] 000000 0/0/0 0 [212] 000000 0/0/0 0 [213] 000000 0/0/0 0 [214] 000000 0/0/0 0 [215] 000000 0/0/0 0 [216] 000000 0/0/0 0 [217] 000000 0/0/0 0 [218] 000000 0/0/0 0 [219] 000000 0/0/0 0 [220] 000000 0/0/0 0 [221] 000000 0/0/0 0 [222] 000000 0/0/0 0 [223] 000000 0/0/0 0 [224] 000000 0/0/0 0 [225] 000000 0/0/0 0 [226] 000000 0/0/0 0 [227] 000000 0/0/0 0 [228] 000000 0/0/0 0 [229] 000000 0/0/0 0 [230] 000000 0/0/0 0 [231] 000000 0/0/0 0 [232] 000000 0/0/0 0 [233] 000000 0/0/0 0 [234] 000000 0/0/0 0 [235] 000000 0/0/0 0 [236] 000000 0/0/0 0 [237] 000000 0/0/0 0 [238] 000000 0/0/0 0 [239] 000000 0/0/0 0 [240] 000000 0/0/0 0 [241] 000000 0/0/0 0 [242] 000000 0/0/0 0 [243] 000000 0/0/0 0 [244] 000000 0/0/0 0 [245] 000000 0/0/0 0 [246] 000000 0/0/0 0 [247] 000000 0/0/0 0 [248] 000000 0/0/0 0 [249] 000000 0/0/0 0 [250] 000000 0/0/0 0 [251] 000000 0/0/0 0 [252] 000000 0/0/0 0 [253] 000000 0/0/0 0 [254] 000000 0/0/0 0 [255] 000000 0/0/0 0 [256] 000000 0/0/0 0 [257] 000000 0/0/0 0 [258] 000000 0/0/0 0 [259] 000000 0/0/0 0 [260] 000000 0/0/0 0 [261] 000000 0/0/0 0 [262] 000000 0/0/0 0 [263] 000000 0/0/0 0 [264] 000000 0/0/0 0 [265] 000000 0/0/0 0 [266] 000000 0/0/0 0 [267] 000000 0/0/0 0 [268] 000000 0/0/0 0 [269] 000000 0/0/0 0 [270] 000000 0/0/0 0 [271] 000000 0/0/0 0 [272] 000000 0/0/0 0 [273] 000000 0/0/0 0 [274] 000000 0/0/0 0 [275] 000000 0/0/0 0 [276] 000000 0/0/0 0 [277] 000000 0/0/0 0 [278] 000000 0/0/0 0 [279] 000000 0/0/0 0 [280] 000000 0/0/0 0 [281] 000000 0/0/0 0 [282] 000000 0/0/0 0 [283] 000000 0/0/0 0 [284] 000000 0/0/0 0 [285] 000000 0/0/0 0 [286] 000000 0/0/0 0 [287] 000000 0/0/0 0 [288] 000000 0/0/0 0 [289] 000000 0/0/0 0 [290] 000000 0/0/0 0 [291] 000000 0/0/0 0 [292] 000000 0/0/0 0 [293] 000000 0/0/0 0 [294] 000000 0/0/0 0 [295] 000000 0/0/0 0 [296] 000000 0/0/0 0 [297] 000000 0/0/0 0 [298] 000000 0/0/0 0 [299] 000000 0/0/0 0 [300] 000000 0/0/0 0 [301] 000000 0/0/0 0 [302] 000000 0/0/0 0 [303] 000000 0/0/0 0 [304] 000000 0/0/0 0 [305] 000000 0/0/0 0 [306] 000000 0/0/0 0 [307] 000000 0/0/0 0 [308] 000000 0/0/0 0 [309] 000000 0/0/0 0 [310] 000000 0/0/0 0 [311] 000000 0/0/0 0 [312] 000000 0/0/0 0 [313] 000000 0/0/0 0 [314] 000000 0/0/0 0 [315] 000000 0/0/0 0 [316] 000000 0/0/0 0 [317] 000000 0/0/0 0 [318] 000000 0/0/0 0 [319] 000000 0/0/0 0 [320] 000000 0/0/0 0 [321] 000000 0/0/0 0 [322] 000000 0/0/0 0 [323] 000000 0/0/0 0 [324] 000000 0/0/0 0 [325] 000000 0/0/0 0 [326] 000000 0/0/0 0 [327] 000000 0/0/0 0 [328] 000000 0/0/0 0 [329] 000000 0/0/0 0 [330] 000000 0/0/0 0 [331] 000000 0/0/0 0 [332] 000000 0/0/0 0 [333] 000000 0/0/0 0 [334] 000000 0/0/0 0 [335] 000000 0/0/0 0 [336] 000000 0/0/0 0 [337] 000000 0/0/0 0 [338] 000000 0/0/0 0 [339] 000000 0/0/0 0 [340] 000000 0/0/0 0 [341] 000000 0/0/0 0 [342] 000000 0/0/0 0 [343] 000000 0/0/0 0 [344] 000000 0/0/0 0 [345] 000000 0/0/0 0 [346] 000000 0/0/0 0 [347] 000000 0/0/0 0 [348] 000000 0/0/0 0 [349] 000000 0/0/0 0 [350] 000000 0/0/0 0 [351] 000000 0/0/0 0 [352] 000000 0/0/0 0 [353] 000000 0/0/0 0 [354] 000000 0/0/0 0 [355] 000000 0/0/0 0 [356] 000000 0/0/0 0 [357] 000000 0/0/0 0 [358] 000000 0/0/0 0 [359] 000000 E8241 entry point Address map chapaddr chapsize proc0size secsize equivchap ovrindex 0 160 0 0 1304 1 100 1 5600 54 40 2510 1 101 2 8192 2542 40 2158 2 152 3 8192 5292 40 136 2 327 4 8192 5250 40 1584 2 553 5 8192 4310 40 0 2 680 6 8192 3070 40 1080 2 776 7 8192 5024 40 228 2 918 8 8192 2160 40 0 2 994 9 8192 50 40 1130 2 995 10 8192 50 40 580 2 -1 Alternative address map chap code base sec base sec top 0 160 160 1464 1 5600 5654 8164 2 8192 10734 12892 3 8192 13484 13620 4 8192 13442 15026 5 8192 12502 12502 6 8192 11262 12342 7 8192 13216 13444 8 8192 10352 10352 9 8192 8242 9372 10 8192 8242 8822 End of free store = 16339