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