Source image: P1000054.JPG
PROGM 080 0 801 INTERCODE TRANSLATOR
ENTRY 102 3
D1 14 0 195 0 PRINTER(OR CLEO-SIZEDANNEX)
B1 15 4 27 0 PT/CARDS MODS
A1 7 4 75 0
A2 8 4 75 0
A6 7 4 75 0
CHAPS 10 100 101 152 327 553 680 776 918 994 995
INDEX 3 1 2 2 2 2 2 2 2 2 2
*1001 3 24 0 2 PROCR 'LENGTH' INDEX B/FWD
*1002 4 50 0 2 PASS 0 INPUT UNPACKED
*1003 6 450 0 2 PASS 0 OLD/NEW PROCR INDEX
*1004 17 50 0 2 WL'S IN PASS 0
*1005 22 225 0 2 PASS 0 PROCR INDEX
*1006 19 230 0 2 PASS 0 ADJUST DETAILS
*1007 21 50 0 2 PASS 0 UNIQUE REFS
*1008 2 5 0 1 EXTENSION BACKWARDS OF SECTION 18
*1009 18 1250 0 1 SEQUENCE CHANGES FORWARD AND BACK
*1010 1 23 0 3 PASS 1 INPUT UNPACKED
*1011 28 23 0 3 PASS 1 NEXT RECORD
*1012 29 22 0 3 PASS 1 NEXT OUTPUT REC
Source image: P1000055.JPG
*1013 66 12 0 4 PASS 2 INPUT UNPACKED
*1014 67 2 0 4 PASS 2 O/P UNPACKED
*1015 61 60 0 4 PASS 2 WL'S
*1016 72 16 0 4 SWITCH PROCR LENGTHS+CHAP LENGTHS
*1017 71 10 0 4 17 'MR>3' DETAILS+COUNTER
*1018 94 50 0 4 MISC EACH PASS
*1019 53 0 0 4 PASS 1 PROCR INDEX EX ISSUE 5(LENGTH 127
*1020 77 22 0 4 PASS 2 NEXT INPUT REC
*1021 70 0 0 4 PASS 1 SECTION DETAILS(LENGTH 50)
*1022 30 9 0 4 UNPACKED PT FOR 08005
*1023 31 11 0 4 FOR MT BLOCK FOR 08005
*1024 32 85 0 4 TD WL'S FOR 08005
*1025 54 80 0 4 PASS 1 ADJUST DETAILS
*1026 55 25 0 4 PASS 1 UNIQUE REFS
*1027 92 19 0 4 GENERAL ALL PASSES
*1028 91 18 0 4 TWO OTRS.FILES LIST-TX AREAS LIST
*1029 98 6 0 4 10 'ITEM+'DETAILS AND COUNTER
*1030 95 25 0 4 48 SWITCH DETAILS AND COUNTER
*1031 99 25 0 4 25 RADIX PAIRS PER PROGRAMME
*1032 23 24 0 4 'PRINT PROCEDURES' INDICATORS
*1033 25 21 0 4 'TRACE'DETAILS
*1034 40 10 0 4 FRILL FOR PRINTING REPORT SERIALS
*1035 27 10 0 4 PERMANENT WL'S
*1036 10 195 1 0 PRINTER/CLEO I/P TX AREA
*1037 14 0 0 4 DUMMY
*1038 5 27 1 4 PT IN+PRINT
*1039 7 75 1 4 MTIN,OUT+PRINT
*1040 8 75 1 4
*1041 9 75 1 4
*1042 26 540 0 6 PROCR START ADDRESSES
*1043 11 10 0 7
*1044 13 16 0 7
*1045 16 20 0 7
*1046 15 50 0 7
*1047 24 18 0 7
*1048 12 60 0 9 PASS 1 WL'S
*1049 93 225 0 9 PASS 1 OLD/NEW PROCR INDEX
*1050 97 230 0 9 PASS 1 ADJUST DETAILS
*1051 52 50 0 9 PASS 1 UNIQUE REFS
*1052 63 30 0 10 PASS 2 60 SHORT CONSTS PER CHAPTER
*1053 62 110 0 10 PASS 2 90 LONG+20 TSL PER CHAPTER
*1054 20 150 0 10 PASS 2 100 ACTIVE SEQ CHANGES FWD
10000 PROCR 100 100 CHAPTER ONE
10001 NOTES MAIN OVERLAY ORDER TO RECALL PASS 0 SELECT
10715>
16271>
68039>
88512>
88523>10002 152 101 2 0 0 0 101 OVERLAY
10003 C 101 2 0 0 0 101
10004 76 102 2 0 0 0 102 JUMP unconditional
10100 PROCR 101 101 CALL PASS 1-THIS IS THE FIRST PROCR IN PASS 0
12541>
12546>10102 152 101 2 0 0 0 101 OVERLAY
10103 C 152 2 0 0 0 152
10200 PROCR 102 102 STORE PRINTER AND I/P TYPE,ALLOCATE NEW DEVICE
10408>
Source image: P1000056.JPG
10004>10202 62 0 0 0 0 SET EXCESS CONSTANTS
10203 125 4096 1 1 0 clear indicators
10204 123 102 5 0 2 0 102 enter master routine
10205 100 0 0 0 0 Halt
10206 5 148 42 1 0 0 148 ORIGINAL(A) TRANSFER
10207 5 27 0 1 0 0 CLEAR WL'S TRANSFER
10208 5 27 2 1 0 0 TRANSFER
10209 5 27 4 1 0 0 TRANSFER
10210 5 27 6 1 0 0 TRANSFER
10211 5 27 11 0 0 0 TRANSFER
10212 5 27 13 0 0 0 TRANSFER
10213 84 786 2 0 0 0 786 CLEAR SWITCH 772 SET SWITCH(ES) AT VARIABLE VALUE
10214 123 128 2 0 3 0 128 PROG TAG select tag
10215 30 0 0 0 4 SHIFT (A) BY QUARTETS
10216 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION
10217 37 125 4 0 0 0 125 FORM LINKS REPLACE SELECTED BITS
10218 37 125 5 0 0 0 125 REPLACE SELECTED BITS
10219 37 125 6 0 0 0 125 REPLACE SELECTED BITS
10220 94 102 87 0 3 0 102 ///// *REENTRY STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
10221 124 999 5 0 3 0 modify address of next
10222 106 34 0 0 0 D1 select (N)
10223 30 0 0 0 4- SHIFT (A) BY QUARTETS
10224 5 27 8 1 0 0 INITIAL PRINTER TYPE+CLEAR 'OFFLINE' TRANSFER
10225 124 999 5 0 3 0 modify address of next
10226 106 36 0 0 0 B1 select (N)
10227 30 0 0 0 4- SHIFT (A) BY QUARTETS
10228 12 0 0 0 4 SUBTRACT LITERAL
10229 5 27 10 0 0 0 INPUT TYPE TRANSFER
10230 0 126 15 0 0 0 126 23/0/2 SELECT
10231 5 126 7 0 0 0 126 TRANSFER
10232 148 42 2 0 0 148 SELECT
10233 70 102 98 0 0 0 102 >THINGS OK.EXIT JUMP IF A == 0
10291>10234 0 148 42 0 0 0 148 SELECT
10235 5 999 31 0 0 0 TRANSFER
10236 10 0 0 0 7 RT7 SELECT LITERAL
10237 80 103 2 0 0 0 103 ENTER SUBROUTINE
10238 70 102 45 0 0 0 102 >OK JUMP IF A == 0
10239 10 0 0 0 8 RT8 SELECT LITERAL
10240 80 103 2 0 0 0 103 ENTER SUBROUTINE
10241 70 102 45 0 0 0 102 JUMP IF A == 0
10242 10 0 0 0 ‼ RT11 SELECT LITERAL
10243 80 103 2 0 0 0 103 ENTER SUBROUTINE
10244 71 104 2 0 0 0 104 >ALARM*10 JUMP IF A != 0
10241>
10238>10245 84 787 2 0 0 0 787 CLEAR SWITCH SET SWITCH(ES) AT VARIABLE VALUE
10246 C 999 0 0 0 0 TO OPEN A9
10247 10 0 0 0 1 SELECT LITERAL
10297>10248 5 27 9 0 0 0 TRANSFER
10249 96 0 0 2 0 ALLOC ROUTE SELECT MODIFIER
10250 12 0 0 0 40 64 SUBTRACT LITERAL
10251 3 999 7 0 0 0 COPY
10252 31 0 0 0 1 SHIFT (A) BY BITS
10253 32 0 0 0 1- SHIFT (AB) BY QUARTETS
10254 5 126 2 0 0 0 126 CHANNEL TRANSFER
10255 33 0 0 0 3 SHIFT (AB) BY BITS
10256 5 129 2 0 0 0 129 ROUTE TRANSFER
10257 126 2 0 0 0 126 CHANNEL SELECT
10258 80 143 2 0 0 0 143 *DEC ENTER SUBROUTINE
10259 5 148 42 0 0 0 148 TRANSFER
10260 62 0 0 0 0 SET EXCESS CONSTANTS
Source image: P1000057.JPG
10261 27 9 0 0 0 SELECT
10262 70 104 9 0 0 0 104 JUMP IF A == 0
10263 124 999 5 0 3 0 SP CHAP START modify address of next
10264 124 32 0 3 0 modify address of next
10265 124 16 0 3 0 modify address of next
10266 10 0 0 0 0 START OF REEL CTRS SELECT LITERAL
10267 1 999 7 0 0 0 ADD
10268 5 142 2 0 0 0 142 WL TRANSFER
10269 124 142 2 0 3 0 142 modify address of next
10270 102 0 0 0 0 CLEAR REEL CTR FOR ROUTE transfer (A) to N
10271 124 999 5 0 3 0 FORM MODIFIER FOR HIGH LOW modify address of next
10272 124 32 0 3 0 modify address of next
10273 106 22 0 0 0 select (N)
10274 1 999 7 0 0 0 ADD
10275 5 103 2 0 0 0 103 TRANSFER
10276 124 999 5 0 3 0 TEST MACHINE IS HIGH DENSITY modify address of next
10277 124 32 0 3 0 modify address of next
10278 106 21 0 0 0 select (N)
10279 70 104 9 0 0 0 104 >NO JUMP IF A == 0
10280 999 31 0 0 0 SELECT
10281 12 0 0 0 58 'H'(=HIGH DENSITY WANTED) SUBTRACT LITERAL
10282 71 103 22 0 0 0 103 >NO JUMP IF A != 0
10283 10 0 0 0 1 SELECT LITERAL
10323>10284 124 103 2 0 3 0 103 modify address of next
10285 102 0 0 0 0 transfer (A) to N
10286 76 104 9 0 0 0 104 JUMP unconditional
10220>10287 96 0 0 3 0 SELECT MODIFIER
10288 70 102 92 0 0 0 102 >PRINTER WANTED REENTRY JUMP IF A == 0
10289 27 9 0 0 0 SELECT
10290 71 102 98 0 0 0 102 >MT WANTED AND GOT,EXIT JUMP IF A != 0
10291 76 102 34 0 0 0 102 >GET MT JUMP unconditional
10288>10292 27 9 0 0 0 SELECT
10293 70 102 98 0 0 0 102 >PRINTER WANTED AND GOT,EXIT JUMP IF A == 0
10294 27 8 0 0 0 INITIAL PRINTER TYPE SELECT
10295 80 103 2 0 0 0 103 ENTER SUBROUTINE
10296 71 104 2 0 0 0 104 >ALARM*10 JUMP IF A != 0
10297 76 102 48 0 0 0 102 JUMP unconditional
10293>
10290>
10233>10298 126 125 4 0 3 0 125 >TO MAIN PATH leave master routine
10300 PROCR 103 103 ALLOCATE ANOTHER DEVICE
10302 81 103 2 0 0 0 103 START OF SUBROUTINE
10303 5 140 2 0 0 0 140 TRANSFER
10304 90 0 0 2 64 SET MODIFICATION REGISTER AT LITERAL
10305 C 0 0 0 128
10310>10306 140 2 0 0 0 140 SELECT
10307 124 999 0 0 3 0 modify address of next
10308 105 0 0 2 0 subtract (N) from (A)
10309 70 103 21 0 0 0 103 >MATCH END JUMP IF A == 0
10310 94 103 6 0 2 1 103 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
10311 999 9 0 0 0 KNOWN MT ROUTE SELECT
10312 12 0 0 0 18 CH3/0 SUBTRACT LITERAL
10313 73 103 21 0 0 0 103 >SLOW CHANNEL END WITHOUT MATCH JUMP IF A < 0
10314 90 0 0 2 192 SET MODIFICATION REGISTER AT LITERAL
10315 C 0 0 0 240
10320>10316 124 999 0 0 3 0 TRY FAST CHANNEL modify address of next
10317 106 0 0 2 0 select (N)
10318 2 140 2 0 0 0 140 SUBTRACT
10319 70 103 21 0 0 0 103 JUMP IF A == 0
Source image: P1000058.JPG
10320 94 103 16 0 2 1 103 THE ALLOCATED ROUTE STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
10319>
10313>
10309>10321 82 103 2 0 0 0 103 (A) NONZERO IF NO MATCH END OF SUBROUTINE / LEAVE SUBROUTINE
10282>10322 10 0 0 0 0 SELECT LITERAL
10323 76 102 84 0 0 0 102 JUMP unconditional
10400 PROCR 104 104 ALARM IF CANT FIND REQUIRED ???
10296>
10244>10402 126 125 5 0 3 0 125 leave master routine
12504>10403 150 0 0 0 10 OFFER OPTIONS
10404 C 136 61 0 0 0 136 >UNLOAD
10405 C 104 7 0 0 0 104 >TRY AGAIN
10406 C 105 38 0 0 0 105 >AS YOU ARE
10405>10407 148 42 1 0 0 148 ORIGINAL (A) SELECT
10408 76 102 2 0 0 0 102 JUMP unconditional
10286>
10279>
10262>10409 124 999 5 0 3 0 modify address of next
10410 106 34 0 0 0 select (N)
10411 32 0 0 0 4- SHIFT (AB) BY QUARTETS
10412 5 142 2 0 0 0 142 ROUTE TYPE TRANSFER
10413 32 0 0 0 2 SHIFT (AB) BY QUARTETS
10414 10 0 0 0 0 (ALT ROUTE) SELECT LITERAL
10415 32 0 0 0 2 SHIFT (AB) BY QUARTETS
10416 5 143 2 0 0 0 143 ROUTE TRANSFER
10417 124 999 5 0 3 0 modify address of next
10418 124 32 0 3 0 modify address of next
10419 124 12 0 3 0 START OF ASSEMBLER TABLE modify address of next
10420 101 0 1 3 0 select literal address
10421 34 143 2 0 0 0 143 BITS 4-8 SET (N) IN B
10422 36 148 96 0 0 0 148 8XCHANNEL COLLATE AND ADD
10423 5 126 2 0 0 0 126 TRANSFER
10500 PROCR 105 105 START PASS 0-DEAL WITH INITIAL TRANSLATION
10502 11 0 0 0 80 * ADD LITERAL
10503 106 105 2 0 0 0 105 ** select (N)
10504 124 999 5 0 3 0 ADJUST ORDERS modify address of next
10505 124 32 0 3 0 FOR FCC MACHINES modify address of next
10506 104 32 0 0 0 ***** add (N) to (A)
10507 103 105 24 0 0 0 105 **** copy (A) to N
10508 102 105 31 0 0 0 105 *** transfer (A) to N
10509 124 126 2 0 3 0 126 modify address of next
10510 106 0 0 0 0 LAST ROUTE ON CHANNEL select (N)
10511 2 143 2 0 0 0 143 SUBTRACT
10512 71 105 15 0 0 0 105 NOT THIS ONE JUMP IF A != 0
10513 124 126 2 0 3 0 126 modify address of next
10514 102 0 1 0 0 CLEAR DETAILS transfer (A) to N
10512>10515 124 143 2 0 3 0 143 modify address of next
10516 106 64 0 0 0 OLD ASL select (N)
10517 124 999 7 0 3 0 NEW ROUTE modify address of next
10518 102 64 0 0 0 transfer (A) to N
10519 142 2 0 0 0 142 OLD ROUTE TYPE LOAD NEW ROUTE SELECT
10520 124 143 2 0 3 0 143 modify address of next
10521 102 64 0 0 0 transfer (A) to N
10522 140 2 0 0 0 140 NEW ROUTE TYPE SELECT
10523 30 0 0 0 2 SHIFT (A) BY QUARTETS
10524 11 0 0 0 80 ***** DON'T MOVE ***** ADD LITERAL
10525 30 0 0 0 2 SHIFT (A) BY QUARTETS
10526 1 999 7 0 0 0 NEW ROUTE ADD
Source image: P1000059.JPG
10527 124 999 5 0 3 0 modify address of next
10528 102 34 0 0 0 transfer (A) to N
10529 999 7 0 0 0 SELECT
10530 30 0 0 0 2 SHIFT (A) BY QUARTETS
10531 11 0 0 0 80 ***** DON'T MOVE ***** ADD LITERAL
10532 124 999 5 0 3 0 modify address of next
10533 102 35 0 0 0 transfer (A) to N
10534 126 125 6 0 3 0 125 leave master routine
12505>10535 52 3 0 0 0 0 EDIT
10536 C 149 16 0 0 0 149
10537 154 3 0 0 0 0 COMMENT IN LOG
12503>
10406>10538 62 0 0 0 0 SET EXCESS CONSTANTS
10539 80 134 2 0 0 0 134 >INTERCHANGE A1 D1 ASL'S ENTER SUBROUTINE
10540 27 10 0 0 0 INPUT TYPE SELECT
10541 11 0 0 0 . ADD LITERAL
10542 34 148 70 1 0 0 148 SET (N) IN B
10543 80 126 2 0 0 0 126 >OPEN B1 ENTER SUBROUTINE
10544 54 3 0 1 0 2158 ALL SECTIONS PASS 0 BULK CLEAR
10545 54 72 0 1 0 838 ALL SECTIONS PASS 2 BULK CLEAR
10546 80 141 2 0 0 0 141 READ PT ENTER SUBROUTINE
10547 5 0 1 0 0 SELECT
10548 2 148 44 1 0 0 148 PROGM' SUBTRACT
10549 3 148 44 1 0 0 148 IND'INITIAL TRANSLATION' COPY
10550 71 107 2 0 0 0 107 >AMENDMENT JUMP IF A != 0
10551 40 A6 0 0 0 0 OPEN FILE
10552 80 131 2 0 0 0 131 >WRITE ENTER SUBROUTINE
10553 10 0 0 0 63 99 SELECT LITERAL
10554 5 94 45 0 0 0 TRANSLATORS PROCR TRANSFER
10639>10555 80 141 2 0 0 0 141 READ PT ENTER SUBROUTINE
10556 70 125 19 0 0 0 125 >PT AT END SIGN JUMP IF A == 0
10557 0 5 0 1 0 0 SELECT
10558 2 148 72 1 0 0 148 TRAMD' SUBTRACT
10559 71 105 66 0 0 0 105 JUMP IF A != 0
10560 10 0 0 0 1 SELECT LITERAL
10561 5 27 11 0 0 0 IND'INITIAL TRANSLATION' TRANSFER
10565>10562 80 131 2 0 0 0 131 >WRITE ENTER SUBROUTINE
10563 80 141 2 0 0 0 141 READ ENTER SUBROUTINE
10564 70 125 19 0 0 0 125 >PT AT END JUMP IF A == 0
10565 76 105 62 0 0 0 105 JUMP unconditional
10559>10566 54 4 0 1 0 18 BULK CLEAR
10567 27 10 0 0 0 SELECT
10568 12 0 0 0 1 SUBTRACT LITERAL
10569 70 105 73 0 0 0 105 >PT JUMP IF A == 0
10570 50 5 4 0 0 0 UNPACK FIXED FIELD DATA
10571 C 150 4 0 0 0 150
10572 76 105 76 0 0 0 105 JUMP unconditional
10569>10573 124 150 4 0 2 0 150 select literal and division
10574 124 999 15 1 2 0 SEC 5 modify address of next
10575 128 0 0 3 0 unpack variable field data
10572>10576 4 6 1 0 0 SELECT
10577 2 148 46 1 0 0 148 PROCR' SUBTRACT
10578 71 105 81 0 0 0 105 >NO JUMP IF A != 0
10579 3 148 90 0 0 0 148 SET IND FOR 'PROCR' COPY
10580 76 105 91 0 0 0 105 JUMP unconditional
10578>10581 4 6 1 0 0 SELECT
10582 2 148 48 1 0 0 148 TABLE' SUBTRACT
10583 70 105 90 0 0 0 105 JUMP IF A == 0
10584 4 6 1 0 0 SELECT
10585 2 148 50 1 0 0 148 CONST' SUBTRACT
Source image: P1000060.JPG
10586 71 106 37 0 0 0 106 >NOT A DIRECTIVE JUMP IF A != 0
10587 34 4 16 0 0 0 CONSTANT TYPE SET (N) IN B
10588 36 148 2 0 0 0 148 BIT 1 COLLATE AND ADD
10589 70 105 91 0 0 0 105 >SHORT JUMP IF A == 0
10583>10590 10 0 0 0 1 SELECT LITERAL
10589>
10580>10591 5 17 0 0 0 0 TRANSFER
10592 62 0 0 0 0 SET EXCESS CONSTANTS
10593 10 0 0 0 1 SELECT LITERAL
10594 4 94 45 0 0 0 TRANSLATOR PROCR AUGMENT
10595 60 0 0 0 0 SET DECIMAL RADIX
10600 PROCR 106 106 DEAL WITH CODERS PROCR NUMBER-INITIAL TRANSLATION
10602 4 8 1 0 0 CODERS PROCR SELECT
10603 12 0 0 0 100 SUBTRACT LITERAL
10604 73 106 40 0 0 0 106 >LESS THAN 100 JUMP IF A < 0
10605 12 0 0 0 899 SUBTRACT LITERAL
10606 72 106 40 0 0 0 106 JUMP IF A >= 0
10607 4 8 1 0 0 >GREATER THAN 998 SELECT
10608 80 142 2 0 0 0 142 CONVERT TO BIN ENTER SUBROUTINE
10609 12 0 0 0 64 -100 SUBTRACT LITERAL
10610 33 0 0 0 1- SHIFT (AB) BY BITS
10611 5 17 8 1 0 0 TRANSFER
10612 74 106 15 0 0 0 106 >C-100 EVEN JUMP IF AB == 0 // 27, 1, 0
10613 10 0 0 0 Ю SELECT LITERAL
10614 5 17 9 0 0 0 NO OF BITS TO BE SHIFTED TRANSFER
10612>10615 94 45 0 0 0 TRANSLATORS PROCR SELECT
10616 34 148 68 0 0 0 148 BITS 1-10 SET (N) IN B
10617 124 17 9 0 1 0 LS HALF EVEN PROCR NUMBER modify address of next
10618 33 0 0 0 0 ///// SHIFT (AB) BY BITS
10619 5 142 2 0 0 0 142 WL TRANSFER
10620 124 17 8 0 1 0 modify address of next
10621 36 22 0 0 0 0 COLLATE AND ADD
10622 71 106 40 0 0 0 106 >PROCR ALREADY USED JUMP IF A != 0
10623 142 2 0 0 0 142 SELECT
10624 124 17 8 0 1 0 modify address of next
10625 37 22 0 0 0 0 REPLACE SELECTED BITS
10642>10626 62 0 0 0 0 SET BIN SET EXCESS CONSTANTS
10627 94 45 0 0 0 TRANSLATORS PROCR SELECT
10628 19 0 0 0 14 DIVIDE BY 20 DIVIDE LITERAL
10629 5 17 10 0 0 0 TRANSFER
10630 32 0 0 0 9 SHIFT (AB) BY QUARTETS
10631 5 17 9 0 0 0 TRANSFER
10632 17 0 0 0 0 SHORT/LONG IND SELECT
10633 124 17 9 0 1 0 modify address of next
10634 31 0 0 0 0 ///// SHIFT (A) BY BITS
10635 124 17 10 0 1 0 modify address of next
10636 4 94 5- 0 0 0 AUGMENT TABLE AUGMENT
10586>10637 80 131 2 0 0 0 131 WRITE A6 ENTER SUBROUTINE
10638 60 0 0 0 0 SET DECIMAL RADIX
10639 76 105 55 0 0 0 105 >READ PT, TEST NEXT BLOCK JUMP unconditional
10622>
10606>
10604>10640 10 0 0 0 1 SELECT LITERAL
10641 5 17 16 2 0 0 SET 'PASS 0 DOESN'T LIKE IT' TRANSFER
10642 76 106 26 0 0 0 106 >O/P, UPDATE 'LENGTH' IND JUMP unconditional
10700 PROCR 107 107 START OF AMENDMENT RUN
10550>10702 0 5 0 1 0 0 SELECT
10703 2 148 52 1 0 0 148 'AMEND' SUBTRACT
Source image: P1000061.JPG
10704 70 107 16 0 0 0 107 JUMP IF A == 0
10705 5 0 1 0 0 SELECT
10706 2 148 72 1 0 0 148 'TRAMD' SUBTRACT
10707 70 144 2 0 0 0 144 > JUMP IF A == 0
10708 150 0 0 0 3 ALARM*3 OFFER OPTIONS
10709 C 136 61 0 0 0 136 >UNLOAD
10710 C 107 11 0 0 0 107 >REENTER
10965>
12524>
13658>
10710>10711 27 9 0 0 0 SELECT
10712 11 0 0 0 900000 ADD LITERAL
10713 91 0 0 3 0 (END VALUE NON ZERO) SET MODIFICATION REGISTER AT VARIABLE
10714 80 134 2 0 0 0 134 >INTERCHANGE A1,D1 ASL'S ENTER SUBROUTINE
10715 76 100 2 0 0 0 100 JUMP unconditional
10704>10716 80 145 2 0 0 0 145 UNPACK AND CHECK AMEND BLOCK ENTER SUBROUTINE
10717 40 A6 0 0 0 0 OPEN FILE
10718 54 9 4 1 0 50 BULK CLEAR
10719 91 0 0 3 0 CLEAR R3 SET MODIFICATION REGISTER AT VARIABLE
10720 80 131 2 0 0 0 131 >WRITE 'AMEND' ENTER SUBROUTINE
10721 0 10 14 1 0 0 SELECT
10722 12 0 0 0 7.0000007. SUBTRACT LITERAL
10723 71 107 27 0 0 0 107 >NOT ISSUE 2.3 OUTPUT JUMP IF A != 0
10724 5 10 12 1 0 0 TRANSFER
10725 5 10 14 1 0 0 TRANSFER
10726 5 10 16 1 0 0 TRANSFER
10723>10727 0 10 16 2 0 0 'MULTI-RECORD'IND SELECT
10728 5 27 1 0 0 0 TRANSFER
10729 0 10 14 2 0 0 'PSEUDO-ISSUE 5'IND SELECT
10730 5 27 2 0 0 0 TRANSFER
10731 0 10 12 2 0 0 'ISSUE 6 OR LATER'IND SELECT
10732 3 27 0 0 0 0 COPY
10733 71 111 2 0 0 0 111 >YES JUMP IF A != 0
10747>10734 80 137 2 0 0 0 137 >READ MT ENTER SUBROUTINE
10735 27 1 0 0 0 SELECT
10736 70 107 39 0 0 0 107 >1-RECORD BLOX JUMP IF A == 0
10737 0 10 12 1 0 0 SELECT
10738 76 107 40 0 0 0 107 JUMP unconditional
10736>10739 0 10 10 1 0 0 SELECT
10738>10740 2 148 46 1 0 0 148 'PROCR' SUBTRACT
10741 70 107 48 0 0 0 107 JUMP IF A == 0
10742 1 148 46 1 0 0 148 ADD
10743 2 148 48 1 0 0 148 'TABLE' SUBTRACT
10744 70 107 48 0 0 0 107 JUMP IF A == 0
10745 1 148 48 1 0 0 148 ADD
10746 2 148 50 1 0 0 148 'CONST' SUBTRACT
10747 71 107 34 0 0 0 107 >GET TO FIRST PROCR START JUMP IF A != 0
10744>
10741>10748 27 1 0 0 0 SELECT
10749 70 107 52 0 0 0 107 >1-RECORD BLOX JUMP IF A == 0
10750 59 10 6 0 8 0 SET MODIFICATION REGISTER FOR MERGE
10751 C 10 4 2 0 0
10866>
10870>
10872>
10749>10752 27 1 0 0 0 SELECT
10753 70 107 56 0 0 0 107 JUMP IF A == 0
10754 6 1 8 0 SELECT
10755 76 107 57 0 0 0 107 JUMP unconditional
10753>10756 0 10 10 1 0 0 SELECT
Source image: P1000062.JPG
10755>10757 2 148 60 1 0 0 148 'END ' SUBTRACT
10758 70 109 9 0 0 0 109 >END OF INTERCODE JUMP IF A == 0
10759 1 148 60 1 0 0 148 ADD
10760 2 148 46 1 0 0 148 'PROCR' SUBTRACT
10761 70 108 12 0 0 0 108 >YES JUMP IF A == 0
10762 1 148 46 1 0 0 148 ADD
10763 2 148 48 1 0 0 148 'TABLE' SUBTRACT
10764 70 108 11 0 0 0 108 >YES JUMP IF A == 0
10765 1 148 48 1 0 0 148 ADD
10766 2 148 50 1 0 0 148 'CONST' SUBTRACT
10767 70 108 2 0 0 0 108 >YES JUMP IF A == 0
10768 1 148 50 1 0 0 148 ADD
10769 2 148 56 1 0 0 148 'DUMPS' SUBTRACT
10770 70 109 2 0 0 0 109 >YES JUMP IF A == 0
10771 1 148 56 1 0 0 148 ADD
10772 2 148 58 1 0 0 148 'FILES' SUBTRACT
10773 70 109 2 0 0 0 109 >YES JUMP IF A == 0
10774 1 148 58 1 0 0 148 ADD
10775 12 0 0 0 7551637455 'VALUE' SUBTRACT LITERAL
10776 71 108 61 0 0 0 108 >NOT A DIRECTIVE JUMP IF A != 0
10777 27 1 0 0 0 SELECT
10778 70 107 81 0 0 0 107 JUMP IF A == 0
10779 4 2 8 0 SELECT
10780 76 107 82 0 0 0 107 JUMP unconditional
10778>10781 0 10 6 2 0 0 LINE SERIAL SELECT
10780>10782 70 108 61 0 0 0 108 >DON'T COUNT JUMP IF A == 0
10783 94 108 61 0 3 1 108 >(NEVER RUNS OUT) STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
10800 PROCR 108 108 STORE PROCR LENGTH AT DIRECTIVE BLOCK-ISSUE 5 TRANSLATOR O/P
10767>10802 27 1 0 0 0 SELECT
10803 70 108 6 0 0 0 108 JUMP IF A == 0
10804 34 14 2 8 0 CONST TYPE 05 SET (N) IN B
10805 76 108 7 0 0 0 108 JUMP unconditional
10803>10806 34 10 20 2 0 0 SET (N) IN B
10805>10807 10 0 0 0 0 SELECT LITERAL
10808 32 0 0 0 4- SHIFT (AB) BY QUARTETS
10809 36 148 2 0 0 0 148 BIT 1 COLLATE AND ADD
10810 70 108 12 0 0 0 108 >SHORT JUMP IF A == 0
10764>10811 10 0 0 0 1 TABLE SELECT LITERAL
10810>
10761>10812 5 3 45 0 0 0 WL PROCR TRANSFER
10813 60 0 0 0 0 SET DECIMAL RADIX
10814 10 0 0 0 1 SELECT LITERAL
10815 4 17 10 0 0 0 COUNT DIRECTIVE BLOX AUGMENT
10816 17 10 0 0 0 SELECT
10817 11 0 0 0 99 ADD LITERAL
10818 80 142 2 0 0 0 142 >BIN ENTER SUBROUTINE
10819 3 6 0 0 3 0 COPY
10820 94 0 0 3 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
10821 19 0 0 0 14 DIVIDE BY 20 DIVIDE LITERAL
10822 5 148 42 1 0 0 148 TRANSFER
10823 91 148 42 0 1 0 148 SET MODIFICATION REGISTER AT VARIABLE
10824 32 0 0 0 9 REMAINDER>A SHIFT (AB) BY QUARTETS
10825 5 3 46 0 0 0 WL PROCR TRANSFER
10826 0 3 45 0 0 0 BIT IND SELECT
10827 124 3 46 0 1 0 modify address of next
10828 31 0 0 0 0 ///// SHIFT (A) BY BITS
10829 4 3 5- 0 1 0 LIST IN 3/0-44 AUGMENT
10830 27 2 0 0 0 SELECT
10831 71 108 61 0 0 0 108 >PSEUDO-ISSUE 5 JUMP IF A != 0
Source image: P1000063.JPG
10832 4 2 0 0 0 PROG ID TEST DUMMY CLEO MOD SELECT
10833 34 4 4 0 0 0 PROG SERIAL SET (N) IN B
10834 74 108 61 0 0 0 108 >SKIP BUILDING UP SEC 53 FROM LINE SERIAJUMP IF AB == 0 // 27, 1, 0
10835 27 1 0 0 0 SELECT
10836 70 108 39 0 0 0 108 JUMP IF A == 0
10837 4 2 8 0 SELECT
10838 76 108 40 0 0 0 108 JUMP unconditional
10836>10839 0 10 6 2 0 0 LINE SERIAL SELECT
10838>10840 30 0 0 0 2- SHIFT (A) BY QUARTETS
10841 80 142 2 0 0 0 142 >BIN(NEW PROG) ENTER SUBROUTINE
10842 5 143 2 0 0 0 143 WL TRANSFER
10843 27 1 0 0 0 SELECT
10844 70 108 47 0 0 0 108 JUMP IF A == 0
10845 10 2 8 0 SELECT
10846 76 108 48 0 0 0 108 JUMP unconditional
10844>10847 0 10 16 2 0 0 OLD PROG SELECT
10846>10848 30 0 0 0 2- SHIFT (A) BY QUARTETS
10849 70 108 61 0 0 0 108 >DON'T COUNT JUMP IF A == 0
10850 80 142 2 0 0 0 142 >BIN(NEW PROG) ENTER SUBROUTINE
10851 33 0 0 0 1- HALVE SHIFT (AB) BY BITS
10852 92 0 0 2 0 (CLEARS A) SET MODIFIER AT VARIABLE
10853 74 108 58 0 0 0 108 >EVEN JUMP IF AB == 0 // 27, 1, 0
10854 34 148 68 0 0 0 148 BITS 1-10 SET (N) IN B
10855 143 2 0 0 0 143 SELECT
10856 33 0 0 0 10 SHIFT (AB) BY BITS
10857 76 108 60 0 0 0 108 JUMP unconditional
10853>10858 34 148 68 0 0 0 148 SET (N) IN B
10859 143 2 0 0 0 143 SELECT
10857>10860 37 53 50- 0 2 0 REPLACE SELECTED BITS
10849>
10834>
10831>
10783>
10782>
10776>10861 27 1 0 0 0 SELECT
10862 70 108 71 0 0 0 108 >1-RECORD BLOCKS JUMP IF A == 0
10863 0 2 8 0 CURRENT RECORD LENGTH SELECT
10864 5 137 2 0 0 0 137 TRANSFER
10865 97 137 2 0 8 0 137 STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
10866 C 107 52 0 0 0 107 >NOT EMPTY
10867 80 137 2 0 0 0 137 >READ A1 ENTER SUBROUTINE
10868 59 10 6 0 8 0 SET MODIFICATION REGISTER FOR MERGE
10869 C 10 4 2 0 0
10870 76 107 52 0 0 0 107 JUMP unconditional
10862>10871 80 137 2 0 0 0 137 >READ A1 ENTER SUBROUTINE
10872 76 107 52 0 0 0 107 JUMP unconditional
10900 PROCR 109 109 DEAL WITH DUMPS/FILES/END-STORE B/FWD OLD/NEW PROCR INDEX-ISSUE 5
10773>
10770>10902 0 10 6 2 0 0 SELECT
10903 5 3 45 0 0 0 STORE 5-DIGIT SERIAL FIRST LINE TRANSFER
10907>10904 80 137 2 0 0 0 137 >READ MT ENTER SUBROUTINE
10905 0 10 10 1 0 0 SELECT
10906 2 148 60 1 0 0 148 'END ' SUBTRACT
10907 71 109 4 0 0 0 109 JUMP IF A != 0
10908 76 109 15 0 0 0 109 END JUMP unconditional
10758>10909 27 1 0 0 0 SELECT
10910 70 109 13 0 0 0 109 >SINGLE-RECORD BLOX JUMP IF A == 0
10911 4 2 8 0 LINE SERIAL SELECT
10912 76 109 14 0 0 0 109 JUMP unconditional
Source image: P1000064.JPG
10910>10913 0 10 6 2 0 0 SELECT
10912>10914 5 3 45 0 0 0 STORE HIGHEST LINE SERIAL TRANSFER
10908>10915 3 45 0 0 0 SELECT
10916 71 109 22 0 0 0 109 JUMP IF A != 0
10917 60 0 0 0 0 SET DECIMAL RADIX
10918 0 17 10 0 0 0 DIRECTIVE CTR SELECT
10919 11 0 0 0 100 ADD LITERAL
10920 30 0 0 0 2 SHIFT (A) BY QUARTETS
10921 3 3 45 0 0 0 COPY
10916>10922 5 17 21 0 0 0 TRANSFER
10923 60 0 0 0 0 HIGHEST EFFECTIVE LINE SERIAL SET DECIMAL RADIX
10924 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
10925 36 3 45 0 0 0 LINE SERIAL OF DUMPS/FILES/END COLLATE AND ADD
10926 70 109 28 0 0 0 109 >A PROCR-SHAPED LINE JUMP IF A == 0
10927 10 0 0 0 100 STEP PROCR SELECT LITERAL
10926>10928 1 3 45 0 0 0 ADD
10929 30 0 0 0 2- SHIFT (A) BY QUARTETS
10930 80 142 2 0 0 0 142 >TO BIN ENTER SUBROUTINE
10931 5 3 45 0 0 0 (HIGHEST B/FWD PROCR+1) IN BINARY TRANSFER
10932 17 10 0 0 0 DIRECTIVE CTR SELECT
10933 11 0 0 0 100 ADD LITERAL
10934 80 142 2 0 0 0 142 >BIN ENTER SUBROUTINE
10935 5 94 45 0 0 0 PROVIS(MAX C/FWD PROCR)+1 TRANSFER
10936 27 2 0 0 0 SELECT
10937 71 110 27 0 0 0 110 >PEUDO-ISSUE 5 O/P JUMP IF A != 0
10938 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
10939 C 0 0 0 900
10940 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
10941 C 0 0 0 2 TRICK SETTING
10951>10942 80 139 2 0 0 0 139 >GET NEXT LOCN ENTER SUBROUTINE
10943 4 2 0 0 0 PROG ID SELECT
10944 34 4 4 0 0 0 PROG SERIAL SET (N) IN B
10945 75 109 51 0 0 0 109 >BY PASS,EXCEPT PROG'00000' JUMP IF AB != 0
10946 0 10 4 2 2 0 SELECT
10947 33 0 0 0 10- SHIFT (AB) BY BITS
10948 5 6 1 0 3 0 TRANSFER
10949 33 0 0 0 10 SHIFT (AB) BY BITS
10950 5 6 0 0 3 0 TRANSFER
10945>10951 94 109 42 0 3 2 109 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
10952 4 2 0 0 0 SELECT
10953 34 4 4 0 0 0 SET (N) IN B
10954 75 109 58 0 0 0 109 >NOT PROGM'00000' JUMP IF AB != 0
10955 10 0 0 0 1 SELECT LITERAL
10956 5 27 2 0 0 0 SET PSEUDO ISSUE 5 TRANSFER
10957 76 110 27 0 0 0 110 JUMP unconditional
10954>10958 17 10 0 0 0 COUNTER OF DIRECTIVE BLOX SELECT
10959 12 0 0 0 500 SUBTRACT LITERAL
10960 73 110 2 0 0 0 110 >OK JUMP IF A < 0
11013>
11026>
14410>10961 41 A1 0 0 0 1 CLOSE FILE
10962 45 A6 0 0 0 1 REWIND
10963 150 0 0 0 9 OFFER OPTIONS
10964 C 136 61 0 0 0 136 >UNLOAD
10965 C 107 11 0 0 0 107 >REENTER
11000 PROCR 110 110 STORE B/FWD ADJUST DETAILS+UNIQUE REFS I/P TAPE-ISSUE 5
10960>11002 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
11003 C 0 0 0 460 (FOR ADJUST DETAILS)
11004 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
11005 C 0 0 0 160 FOR STORING
Source image: P1000065.JPG
11010>11006 80 139 2 0 0 0 139 >GET ITEM ENTER SUBROUTINE
11007 0 10 4 2 2 0 SELECT
11008 5 54 0 0 1 0 TRANSFER
11009 94 0 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11010 94 110 6 0 3 1 110 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11014>11011 80 139 2 0 0 0 139 >GET ENTER SUBROUTINE
11012 10 4 2 2 0 SELECT
11013 71 109 61 0 0 0 109 >ALARM 7, TOO MANY ADJUST DETAILS JUMP IF A != 0
11014 94 110 11 0 1 1 110 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11015 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
11016 C 0 0 0 50
11017 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
11018 C 0 0 0 100 (FOR UNIQUE REFS)
11023>11019 80 139 2 0 0 0 139 >GET ENTER SUBROUTINE
11020 0 10 4 2 2 0 SELECT
11021 5 55 0 0 1 0 TRANSFER
11022 94 0 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11023 94 110 19 0 3 1 110 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11024 80 139 2 0 0 0 139 >GET ENTER SUBROUTINE
11025 0 10 4 2 2 0 SELECT
11026 71 109 61 0 0 0 109 >ALARM 7, TOO MANY UNIQUE REFS JUMP IF A != 0
10957>
10937>11027 46 A1 8 0 0 1 RUN BACK
11028 C 0 0 0
11029 80 137 2 0 0 0 137 >READ ENTER SUBROUTINE
11030 0 10 6 1 0 0 SELECT
11031 2 148 62 1 0 0 148 INDEX' SUBTRACT
11032 70 110 41 0 0 0 110 >READ FWD TO 'PASS 1' JUMP IF A == 0
11033 0 10 4 2 0 0 SELECT
11034 2 4 2 0 0 0 PROG IDENTITY SUBTRACT
11035 71 110 39 0 0 0 110 >MISALIGNED JUMP IF A != 0
11036 0 10 6 2 0 0 SELECT
11037 2 4 4 0 0 0 SERIAL SUBTRACT
11038 70 111 23 0 0 0 111 >OK JUMP IF A == 0
11035>11039 45 A1 0 0 0 1 REWIND
11040 80 138 2 0 0 0 138 >OPEN A1 ENTER SUBROUTINE
11032>11041 80 136 2 0 0 0 136 >APPROACH FROM START OF TAPE ENTER SUBROUTINE
11042 76 111 23 0 0 0 111 JUMP unconditional
11100 PROCR 111 111 DEAL WITH I/P TAPE EX ISSUE 6-AMEND RUN
10733>11102 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
11103 C 0 0 0 46
11107>11104 80 137 2 0 0 0 137 READ MT ENTER SUBROUTINE
11105 55 10 4 2 0 46 BULK COPY
11106 C 3 0 0 1 0 INDEX 3/0-45
11107 94 111 4 0 1 23 111 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11108 3 45 0 0 0 SELECT
11109 80 143 2 0 0 0 143 >DEC ENTER SUBROUTINE
11110 30 0 0 0 2 SHIFT (A) BY QUARTETS
11111 5 17 21 0 0 0 HIGHEST EFFECTIVE LINE SERIAL TRANSFER
11112 62 0 0 0 0 SET EXCESS CONSTANTS
11113 3 45 0 0 0 (HIGHEST B/FWD PROCR+1) IN BINARY SELECT
11114 30 0 0 0 5 SHIFT (A) BY QUARTETS
11115 101 100 1 1 0 CREATE B/FWD OLD-NEW PROCR INDEX add literal address
11116 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
11117 101 100 1 3 0 select literal address
11120>11118 3 6 100- 0 1 0 STORE ONE-FOR-ONE COPY
11119 11 0 0 0 1 ADD LITERAL
11120 94 111 18 0 1 1 111 MAX B/FWD PROCR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
Source image: P1000066.JPG
11121 3 45 0 0 0 =PROVIS MAX C/FWD PROCR SELECT
11122 5 94 45 0 0 0 TRANSFER
11042>
11038>11123 52 18 0 0 0 0 EDIT
11124 C 149 2 0 0 0 149
11125 154 18 0 0 0 0 TYPE 'AMEND' COMMENT COMMENT IN LOG
11200 PROCR 112 112 READ/WRITE MODS UP TO FIRST DIRECTIVE
11205>11202 80 127 2 0 0 0 127 >READ/TEST PT ENTER SUBROUTINE
11203 70 112 6 0 0 0 112 >YES JUMP IF A == 0
11212>11204 80 131 2 0 0 0 131 >WRITE ENTER SUBROUTINE
11205 76 112 2 0 0 0 112 JUMP unconditional
11203>11206 10 0 0 0 9999 SELECT LITERAL
11207 3 17 10 0 0 0 SET FOR SEQUENCE CHECKS COPY
11208 5 17 14 0 0 0 TRANSFER
11209 0 4 3 0 0 0 LINE SERIAL SELECT
11210 30 0 0 0 3- SHIFT (A) BY QUARTETS
11211 12 0 0 0 5‼ * SUBTRACT LITERAL
11212 70 112 4 0 0 0 112 >MOD TO SECTIONS JUMP IF A == 0
11213 17 28 1 0 0 PROG + SERIAL SELECT
11214 71 113 16 0 0 0 113 >NORMAL JUMP IF A != 0
11218>11215 10 0 0 0 1 PROGM 00000 SELECT LITERAL
11216 5 17 16 1 0 0 SET PASS 0 DOESN'T LIKE IT TRANSFER
11217 80 133 2 0 0 0 133 >COPY ENTER SUBROUTINE
11218 76 112 15 0 0 0 112 >IGNORE ALL MODS JUMP unconditional
11300 PROCR 113 113 MAIN LOOP
11651>11302 80 141 2 0 0 0 141 >READ ENTER SUBROUTINE
11303 70 124 2 0 0 0 124 >PT END JUMP IF A == 0
11304 0 5 0 1 0 0 SELECT
11305 2 148 72 1 0 0 148 TRAMD' SUBTRACT
11306 71 113 13 0 0 0 113 >NO JUMP IF A != 0
11533>
12382>
12707>11307 10 0 0 0 1 SELECT LITERAL
11308 5 27 11 0 0 0 SET IND THAT TRAMDING TRANSFER
11311>11309 80 131 2 0 0 0 131 >WRITE ENTER SUBROUTINE
11310 80 141 2 0 0 0 141 >READ ENTER SUBROUTINE
11311 71 113 9 0 0 0 113 >NOT PT END JUMP IF A != 0
11312 76 124 2 0 0 0 124 JUMP unconditional
11306>11313 80 132 2 0 0 0 132 >UNPACK ENTER SUBROUTINE
11314 80 129 2 0 0 0 129 >STORE SWITCH, TEST DIRECTIVE ENTER SUBROUTINE
11315 71 120 2 0 0 0 120 JUMP IF A != 0
11534>
11932>
12147>
12383>
11214>11316 60 0 0 0 0 SET DECIMAL RADIX
11317 17 10 0 0 0 CHECK SEQUENCE AT NEW DIRECTIVE SELECT
11318 2 4 2 2 0 0 SUBTRACT
11319 73 113 24 0 0 0 113 >OK JUMP IF A < 0
11320 71 121 44 0 0 0 121 >REJECT, READ/COPY TO NEXT DIRECTIVE JUMP IF A != 0
11321 0 17 12 0 0 0 SELECT
11322 12 0 0 0 3 SUBTRACT LITERAL
11323 71 121 44 0 0 0 121 >PREVIOUS NOT 'T' H53, IGNORE THIS JUMP IF A != 0
11319>11324 17 21 0 0 0 MAX B/FWD LINE SERIAL SELECT
11325 2 4 2 2 0 0 THIS LINE SERIAL SUBTRACT
11326 72 113 31 0 0 0 113 >NORMAL JUMP IF A >= 0
11330>
11334>11327 10 0 0 0 1 SELECT LITERAL
Source image: P1000067.JPG
11328 5 17 16 1 0 0 SET 'PASS 0 DOESNT LIKE IT' TRANSFER
11329 80 133 2 0 0 0 133 >WRITE A6 ENTER SUBROUTINE
11330 76 113 27 0 0 0 113 JUMP unconditional
11326>11331 71 113 36 0 0 0 113 >OK JUMP IF A != 0
11332 86 129 2 0 0 0 129 SELECT SWITCH R
11333 12 0 0 0 3 SUBTRACT LITERAL
11334 71 113 27 0 0 0 113 >MOD AT END IS NOT 'INSERT' JUMP IF A != 0
11335 76 119 7 0 0 0 119 >INSERTING AT END SIGN JUMP unconditional
11331>11336 4 2 2 0 0 SELECT
11337 30 0 0 0 2- SHIFT (A) BY QUARTETS
11338 80 142 2 0 0 0 142 BIN TEST IF VALUE ENTER SUBROUTINE
11339 5 143 2 0 0 0 143 DIRECTIVE? TRANSFER
11340 124 143 2 0 1 0 143 EQUIV OF CURRENT PROCR modify address of next
11341 6 100- 0 0 0 SELECT
11342 70 121 44 0 0 0 121 >REJECT.READ/COPY TO NEXT DIRECTIVE JUMP IF A == 0
11343 85 129 2 0 0 0 129 SWITCH R
11344 C 118 2 0 0 0 118 R
11345 C 114 2 0 0 0 114 D
11346 C 119 2 0 0 0 119 T
11347 C 118 30 0 0 0 118 A
11400 PROCR 114 114
11345>11402 80 130 2 0 0 0 130 >FIND 'PROCR 'LENGTH' ENTER SUBROUTINE
11403 5 17 0 0 0 0 0=SHORT, 1=LONG TRANSFER
11404 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
11405 36 4 2 2 0 0 COLLATE AND ADD
11406 12 0 0 0 1 SUBTRACT LITERAL
11407 70 114 12 0 0 0 114 >DELETION BEGINS AT'NOTES' JUMP IF A == 0
11408 10 0 0 0 0 SELECT LITERAL
11409 34 17 0 0 0 0 SET (N) IN B
11410 36 4 2 2 0 0 LINE SERIAL COLLATE AND ADD
11411 71 121 44 0 0 0 121 >UNACCEPTABLE MOD JUMP IF A != 0
11407>11412 0 4 2 2 0 0 SELECT
11413 3 17 14 0 0 0 COPY
11414 30 0 0 0 8 SHIFT (A) BY QUARTETS
11415 70 114 19 0 0 0 114 >DELETING PROCR JUMP IF A == 0
11416 17 3 0 0 0 CTR OF ADJUST DETAILS SELECT
11417 101 460 1 2 0 subtract literal address
11418 70 121 44 0 0 0 121 >LIST FULL.COPY TO NEXT DIRECTIVE JUMP IF A == 0
11415>11419 80 131 2 0 0 0 131 >WRITE A6 ENTER SUBROUTINE
11420 80 141 2 0 0 0 141 >READ ENTER SUBROUTINE
11421 70 115 2 0 0 0 115 >PT AT END. SINGLE LINE DELETE JUMP IF A == 0
11422 5 0 1 0 0 SELECT
11423 2 148 72 1 0 0 148 'TRAMD' SUBTRACT
11424 70 115 2 0 0 0 115 JUMP IF A == 0
11425 80 132 2 0 0 0 132 >UNPACK ENTER SUBROUTINE
11426 80 129 2 0 0 0 129 >TEST DIRECTIVE ENTER SUBROUTINE
11427 71 116 2 0 0 0 116 >NO, HENCE MULTIPLE DELETE JUMP IF A != 0
11500 PROCR 115 115 DEAL WITH SINGLE LINE DELETION
11424>
11421>11502 0 17 14 0 0 0 SELECT
11503 3 17 10 0 0 0 FOR SEQUENCE CHECKS COPY
11504 30 0 0 0 8 SHIFT (A) BY QUARTETS
11505 71 115 8 0 0 0 115 >NOT DELETING 'PROCR' JUMP IF A != 0
11506 17 14 0 0 0 SELECT
11507 76 116 19 0 0 0 116 >JOIN UP WITH MULTIPLE DELETION JUMP unconditional
11505>11508 30 0 0 0 8- SHIFT (A) BY QUARTETS
11509 12 0 0 0 1 SUBTRACT LITERAL
11510 70 115 26 0 0 0 115 >DELETING 'NOTES'ONLY JUMP IF A == 0
Source image: P1000068.JPG
11511 10 0 0 0 0 SELECT LITERAL
11512 2 17 0 0 0 0 SUBTRACT
11513 12 0 0 0 1 SUBTRACT LITERAL
11514 5 17 15 0 0 0 TRANSFER
11515 17 14 0 0 0 SELECT
11516 32 0 0 0 2- SHIFT (AB) BY QUARTETS
11517 5 17 19 0 0 0 PROCR TRANSFER
11518 17 14 0 0 0 SELECT
11519 2 17 15 0 0 0 -(NEGATIVE ADJUST DETAILS) SUBTRACT
11520 5 17 14 0 0 0 TRANSFER
11521 17 14 0 0 0 LINE SERIAL+ADJUST DETAIL SELECT
11522 32 0 0 0 2- SHIFT (AB) BY QUARTETS
11523 2 17 19 0 0 0 SUBTRACT
11524 71 115 26 0 0 0 115 CARRY INTO NEXT PROCR.DON'T STORE JUMP IF A != 0
11525 80 140 2 0 0 0 140 >STORE ADJUSTMENT ENTER SUBROUTINE
11755>
11524>
11510>11526 0 5 0 1 0 0 SELECT
11527 30 0 0 0 4- SHIFT (A) BY QUARTETS
11528 30 0 0 0 4 SHIFT (A) BY QUARTETS
11529 2 148 60 1 0 0 148 'END' SUBTRACT
11530 70 124 2 0 0 0 124 >PT AT END JUMP IF A == 0
11531 5 0 1 0 0 SELECT
11532 2 148 72 1 0 0 148 'TRAMD' SUBTRACT
11533 70 113 7 0 0 0 113 JUMP IF A == 0
11534 76 113 16 0 0 0 113 >TEST NEW DIRECTIVE IN SEQUENCE JUMP unconditional
11600 PROCR 116 116 DEAL WITH MULTIPLE DELETION
11427>11602 4 2 2 0 0 SELECT
11603 30 0 0 0 2- TEST IF DIRECTIVE SHIFT (A) BY QUARTETS
11604 80 142 2 0 0 0 142 >BIN IS VALUE SERIAL? ENTER SUBROUTINE
11605 5 143 2 0 0 0 143 TRANSFER
11606 124 143 2 0 1 0 143 modify address of next
11607 6 100- 0 0 0 SELECT
11608 70 121 44 0 0 0 121 >ATTEMPTING TO DELETE 'VALUE' REJECT JUMP IF A == 0
11609 80 130 2 0 0 0 130 >FIND PROCR 'LENGTH' ENTER SUBROUTINE
11610 5 17 0 0 0 0 TRANSFER
11611 34 17 0 0 0 0 SET (N) IN B
11612 36 4 2 2 0 0 LINE SERIAL 'TO' COLLATE AND ADD
11613 71 121 44 0 0 0 121 >REJECT AMENDMENT JUMP IF A != 0
11614 0 17 14 0 0 0 'FROM' SELECT
11615 2 4 2 2 0 0 'TO' SUBTRACT
11616 72 121 44 0 0 0 121 >REJECT.OUT OF SEQUENCE JUMP IF A >= 0
11617 4 2 2 0 0 'TO'PROCR SELECT
11618 3 17 10 0 0 0 FOR SEQUENCE CHECKS COPY
11507>11619 32 0 0 0 2- SHIFT (AB) BY QUARTETS
11620 5 17 15 0 0 0 3-DIGIT'TO' TRANSFER
11621 17 14 0 0 0 'FROM'PROCR SELECT
11622 32 0 0 0 2- 'TO'PROCR SHIFT (AB) BY QUARTETS
11623 3 17 19 0 0 0 '3-DIGIT'FROM' COPY
11624 2 17 15 0 0 0 SUBTRACT
11625 70 116 30 0 0 0 116 >DELETIONS IN SAME PROCR JUMP IF A == 0
11626 17 14 0 0 0 'FROM'SERIAL SELECT
11627 30 0 0 0 8 SHIFT (A) BY QUARTETS
11628 70 117 2 0 0 0 117 >OK.ALLOW DELETION JUMP IF A == 0
11629 76 121 44 0 0 0 121 >REJECT JUMP unconditional
11625>11630 32 0 0 0 2 SHIFT (AB) BY QUARTETS
11631 70 117 2 0 0 0 117 >'FROM' PROCR DELETED ONLY JUMP IF A == 0
11632 0 17 14 0 0 0 SELECT
11633 30 0 0 0 8 SHIFT (A) BY QUARTETS
Source image: P1000069.JPG
11634 30 0 0 0 8- SHIFT (A) BY QUARTETS
11635 12 0 0 0 1 SUBTRACT LITERAL
11636 70 121 44 0 0 0 121 >MULTIPLE DELETION BEGINS AT'NOTES.REJE JUMP IF A == 0
11637 17 14 0 0 0 'FROM'SERIAL SELECT
11638 2 4 2 2 0 0 'TO'SERIAL SUBTRACT
11639 2 17 0 0 0 0 LENGTH SUBTRACT
11640 12 0 0 0 1 SUBTRACT LITERAL
11641 5 17 15 0 0 0 (NEGATIVE ADJUST DETAIL) TRANSFER
11642 17 14 0 0 0 SELECT
11643 2 17 15 0 0 0 -(NEGATIVE ADJUST DETAIL) SUBTRACT
11644 5 17 14 0 0 0 TRANSFER
11645 17 14 0 0 0 LINE SERIAL+ADJUSTMENT SELECT
11646 30 0 0 0 2- SHIFT (A) BY QUARTETS
11647 2 17 19 0 0 0 PREVIOUS PROCR SUBTRACT
11648 71 116 50 0 0 0 116 >CARRY INTO PROCR.DON'T STORE JUMP IF A != 0
11649 80 140 2 0 0 0 140 >STORE ADJUSTMENT ENTER SUBROUTINE
11756>
12024>
12309>
11648>11650 80 131 2 0 0 0 131 >WRITE ENTER SUBROUTINE
11651 76 113 2 0 0 0 113 >READ NEXT BLOCK JUMP unconditional
11700 PROCR 117 117 DELETE MANY PROCEDURES
11631>
11628>11702 17 15 0 0 0 'TO'PROCR SELECT
11703 80 142 2 0 0 0 142 >BIN ENTER SUBROUTINE
11704 11 0 0 0 1 ADD LITERAL
11705 2 3 45 0 0 0 (HIGHEST PROCR+1) SUBTRACT
11706 73 117 8 0 0 0 117 JUMP IF A < 0
11707 10 0 0 0 0 SELECT LITERAL
11706>11708 1 3 45 0 0 0 ADD
11709 5 17 15 0 0 0 EFFECTIVE'TO'PROCR TRANSFER
11710 17 19 0 0 0 'FROM'PROCR SELECT
11711 80 142 2 0 0 0 142 >BIN ENTER SUBROUTINE
11712 5 17 19 0 0 0 TRANSFER
11713 17 14 0 0 0 'FROM' SERIAL SELECT
11714 30 0 0 0 8 SHIFT (A) BY QUARTETS
11715 70 117 18 0 0 0 117 JUMP IF A == 0
11716 10 0 0 0 1 NOT DELETING ALL 'FROM' PROCR SELECT LITERAL
11717 4 17 19 0 0 0 AUGMENT
11715>11718 17 15 0 0 0 'TO' PROCR+1 SELECT
11719 30 0 0 0 5 SHIFT (A) BY QUARTETS
11720 1 17 19 0 0 0 'FROM' PROCR ADD
11721 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
11722 10 0 0 0 0 SELECT LITERAL
11723 5 17 22 0 0 0 CTR OF VALUE BLOCKS TRANSFER
11728>11724 6 100- 0 1 0 SELECT
11725 71 117 28 0 0 0 117 > JUMP IF A != 0
11726 10 0 0 0 1 SELECT LITERAL
11727 4 17 22 0 0 0 AUGMENT CTR OF VALUES AUGMENT
11725>11728 94 117 24 0 1 1 117 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11729 17 15 0 0 0 SELECT
11730 2 17 19 0 0 0 SUBTRACT
11731 3 142 2 0 0 0 142 WL-DELETED QTTY COPY
11732 11 0 0 0 20000 B Ю 18 ADD LITERAL
11733 30 0 0 0 5 SHIFT (A) BY QUARTETS
11734 124 17 19 0 1 0 'FROM'PROCR modify address of next
11735 128 6 100- 0 0 0 DELETE ALL PROCEDURES bulk copy short numeric
11736 3 45 0 0 0 HIGHEST PROCR+1 SELECT
11737 30 0 0 0 5 SHIFT (A) BY QUARTETS
Source image: P1000070.JPG
11738 1 17 15 0 0 0 'TO'PROCR+1 ADD
11739 5 148 42 1 0 0 148 TRANSFER
11740 2 142 2 0 0 0 142 SUBTRACT
11741 1 17 22 0 0 0 >NUMBER OF VALUES ADD
11742 3 143 2 0 0 0 143 (-DELETED QTTY) COPY
11743 4 94 45 0 0 0 REDUCE MAX C/FWD PROCR AUGMENT
11744 91 148 42 0 1 0 148 SET MODIFICATION REGISTER AT VARIABLE
11745 94 117 47 0 1 0 117 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11746 76 117 52 0 0 0 117 >NONE TO UPDATE JUMP unconditional
11751>
11745>11747 6 100- 0 1 0 SELECT
11748 70 117 51 0 0 0 117 >VALUE DON'T UPDATE JUMP IF A == 0
11749 143 2 0 0 0 143 NON-ZERO LOCNS DELETED SELECT
11750 4 6 100- 0 1 0 UPDATE PROCR AUGMENT
11748>11751 94 117 47 0 1 1 117 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11746>11752 60 0 0 0 0 DEC SET DECIMAL RADIX
11753 17 10 0 0 0 'TO' SERIAL SELECT
11754 2 17 14 0 0 0 'FROM' SERIAL SUBTRACT
11755 70 115 26 0 0 0 115 >SINGLE LINE DELETE JUMP IF A == 0
11756 76 116 50 0 0 0 116 JUMP unconditional
11800 PROCR 118 118 'R'DIRECTIVES AND 'A' DIRECTIVES
11344>11802 35 0 0 0 11 DIRECTIVE LINE 'R' PREPARE FOR DIGIT COLLATION
11803 10 0 0 0 0 SELECT LITERAL
11804 36 4 2 2 0 0 COLLATE AND ADD
11805 71 118 30 0 0 0 118 >NOT REPLACING ***00 JUMP IF A != 0
11806 4 2 2 0 0 SELECT
11807 32 0 0 0 2- SHIFT (AB) BY QUARTETS
11808 80 142 2 0 0 0 142 BIN ENTER SUBROUTINE
11809 2 3 45 0 0 0 HIGHEST B/FWD PROCR+1 SUBTRACT
11810 72 118 40 0 0 0 118 >REPLACING DUMPS OR FILES JUMP IF A >= 0
11811 4 6 1 0 0 SELECT
11812 2 148 46 1 0 0 148 'PROCR' SUBTRACT
11813 70 118 24 0 0 0 118 JUMP IF A == 0
11814 4 6 1 0 0 SELECT
11815 2 148 48 1 0 0 148 'TABLE' SUBTRACT
11816 70 118 23 0 0 0 118 JUMP IF A == 0
11817 4 6 1 0 0 SELECT
11818 2 148 50 1 0 0 148 'CONST' SUBTRACT
11819 71 121 44 0 0 0 121 >NOT REPLACING BY ANREJE DIRECTIVE JUMP IF A != 0
11820 34 4 16 0 0 0 SET (N) IN B
11821 36 148 2 0 0 0 148 BIT 1 COLLATE AND ADD
11822 70 118 24 0 0 0 118 >SHORT CONST JUMP IF A == 0
11816>11823 10 0 0 0 1 SELECT LITERAL
11822>
11813>11824 5 143 2 0 0 0 143 WL=LENGTH OF REPLADEMENT TRANSFER
11825 80 130 2 0 0 0 130 FIND 'LENGTH'OF REPLACED BLOCK ENTER SUBROUTINE
11826 3 17 0 0 0 0 COPY
11827 2 143 2 0 0 0 143 SUBTRACT
11828 71 121 44 0 0 0 121 >TRYING TO CHANGE'LENGHT',REJECT JUMP IF A != 0
11829 76 119 30 0 0 0 119 >OK JUMP unconditional
11805>
11347>11830 80 130 2 0 0 0 130 ENTER SUBROUTINE
11831 5 17 0 0 0 0 >FIND'LENGTH' TRANSFER
11832 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
11833 36 4 2 2 0 0 LINE SERIAL COLLATE AND ADD
11834 12 0 0 0 1 SUBTRACT LITERAL
11835 70 118 40 0 0 0 118 >NOTES JUMP IF A == 0
11836 10 0 0 0 0 SELECT LITERAL
11837 34 17 0 0 0 0 SET (N) IN B
Source image: P1000071.JPG
11838 36 4 2 2 0 0 COLLATE AND ADD
11839 71 121 44 0 0 0 121 >UNACCEPTABLE JUMP IF A != 0
11835>
11810>11840 4 2 2 0 0 SELECT
11841 3 17 14 0 0 0 COPY
11842 3 17 10 0 0 0 COPY
11843 32 0 0 0 2- SHIFT (AB) BY QUARTETS
11844 5 17 19 0 0 0 TRANSFER
11845 4 6 1 0 0 SELECT
11846 2 148 46 1 0 0 148 PROCR' SUBTRACT
11847 70 121 44 0 0 0 121 >NOT ALLOWED JUMP IF A == 0
11848 4 6 1 0 0 SELECT
11849 2 148 48 1 0 0 148 TABLE' SUBTRACT
11850 70 121 44 0 0 0 121 > JUMP IF A == 0
11851 4 6 1 0 0 SELECT
11852 2 148 50 1 0 0 148 CONST' SUBTRACT
11853 70 121 44 0 0 0 121 >TRYING TO REPLACE BY A DIRECTIVE JUMP IF A == 0
11854 76 119 30 0 0 0 119 >O/P JUMP unconditional
11900 PROCR 119 119 DEAL WITH INSERTIONS
11346>11902 80 130 2 0 0 0 130 FIND 'LENGTH' INSERTION FIRST LINEENTER SUBROUTINE
11903 5 17 0 0 0 0 TRANSFER
11904 34 17 0 0 0 0 SET (N) IN B
11905 36 4 2 2 0 0 COLLATE AND ADD
11906 71 121 44 0 0 0 121 >UNACCEPTABLE JUMP IF A != 0
11335>11907 4 2 2 0 0 LINE SERIAL SELECT
11908 3 17 10 0 0 0 COPY
11909 5 17 14 0 0 0 TRANSFER
11910 17 10 0 0 0 SELECT
11911 3 17 18 0 0 0 COPY
11912 32 0 0 0 2- SHIFT (AB) BY QUARTETS
11913 80 142 2 0 0 0 142 >TO BIN ENTER SUBROUTINE
11914 5 17 7 0 0 0 3 DIGIT REF 'INSERT BEFORE' BIN TRANSFER
11915 17 21 0 0 0 HIGHEST LINR SERIAL SELECT
11916 2 17 18 0 0 0 INSERT BEFORE' SERIAL SUBTRACT
11917 71 119 24 0 0 0 119 >NOT INSERTING BEFORE END SIGN JUMP IF A != 0
11918 60 0 0 0 0 SET DECIMAL RADIX
11919 17 18 0 0 0 SELECT
11920 11 0 0 0 99 ROUND UP INSERT SERIAL ADD LITERAL
11921 32 0 0 0 2- TO DEAL WITH ISSUE 5 END SHIFT (AB) BY QUARTETS
11922 80 142 2 0 0 0 142 >BIN ENTER SUBROUTINE
11923 5 17 7 0 0 0 TRANSFER
11917>11924 4 2 2 0 0 SELECT
11925 30 0 0 0 8 SHIFT (A) BY QUARTETS
11926 70 119 30 0 0 0 119 >INSERTING BEFORE PROCR START NO.ADJUST JUMP IF A == 0
11927 17 3 0 0 0 CTR OF ADJUST DETAILS SELECT
11928 101 460 1 2 0 subtract literal address
11929 70 121 44 0 0 0 121 >LIST FULL COPY TO NEXR DIRECTIVE JUMP IF A == 0
12228>
11926>
11854>
11829>11930 80 131 2 0 0 0 131 WRITE ENTER SUBROUTINE
11931 80 127 2 0 0 0 127 >READ/TEST PT ENTER SUBROUTINE
11932 70 113 16 0 0 0 113 >YES JUMP IF A == 0
12000 PROCR 120 120 DEAL WITH NON-DIRECTIVE LINE
12368>
11315>12002 85 129 2 0 0 0 129 SWITCH R
12003 C 120 7 0 0 0 120 R
12004 C 121 44 0 0 0 121 D-NOT ACCEPTED, 2 LINES ALREADY
Source image: P1000072.JPG
12005 C 121 2 0 0 0 121 T
12006 C 120 7 0 0 0 120 A
12006>
12003>12007 60 0 0 0 0 SET DECIMAL RADIX
12008 17 0 0 0 0 CURRENT LENGTH SELECT
12009 11 0 0 0 1 ADD LITERAL
12010 4 17 10 0 0 0 STEP SEQ CTR AUGMENT
12011 17 10 0 0 0 SELECT
12012 32 0 0 0 2- SHIFT (AB) BY QUARTETS
12013 2 17 19 0 0 0 PROCR OF R OR A-DIRECTIVE SUBTRACT
12014 71 120 25 0 0 0 120 > NOT STILL IN SAME PROCR JUMP IF A != 0
12015 4 6 1 0 0 SELECT
12016 2 148 46 1 0 0 148 'PROCR' SUBTRACT
12017 70 121 44 0 0 0 121 JUMP IF A == 0
12018 4 6 1 0 0 SELECT
12019 2 148 48 1 0 0 148 TABLE' SUBTRACT
12020 70 121 44 0 0 0 121 >UN ACCEPTABLE JUMP IF A == 0
12021 4 6 1 0 0 SELECT
12022 2 148 50 1 0 0 148 CONST SUBTRACT
12023 70 121 44 0 0 0 121 >UNACCEPTABLE JUMP IF A == 0
12024 76 116 50 0 0 0 116 JUMP unconditional
12014>12025 10 0 0 0 1- SELECT LITERAL
12026 2 17 0 0 0 0 SUBTRACT
12027 4 17 10 0 0 0 STEP BACK SEQ CTR SO NEVER ALTERS AUGMENT
12028 76 121 44 0 0 0 121 > READ/COPY TO NEXT DIRECTIVE JUMP unconditional
12100 PROCR 121 121 DEAL WITH INSERTIONS
12005>12102 4 6 1 0 0 INSERTIONS SELECT
12103 2 148 46 1 0 0 148 'PROCR' SUBTRACT
12104 70 121 15 0 0 0 121 JUMP IF A == 0
12105 4 6 1 0 0 SELECT
12106 2 148 48 1 0 0 148 SUBTRACT
12107 70 121 14 0 0 0 121 JUMP IF A == 0
12108 4 6 1 0 0 SELECT
12109 2 148 50 1 0 0 148 'CONST' SUBTRACT
12110 71 123 2 0 0 0 123 'NOT A DIRECTIVE' JUMP IF A != 0
12111 34 4 16 0 0 0 CONST TYPE SET (N) IN B
12112 36 148 2 0 0 0 148 BIT 1 COLLATE AND ADD
12113 70 121 15 0 0 0 121 > SHORT CONST JUMP IF A == 0
12107>12114 10 0 0 0 1 SELECT LITERAL
12113>
12104>12115 5 17 0 0 0 0 'LENGTH' OF INSERTED PROCR TRANSFER
12116 35 0 0 0 0 PREPARE FOR DIGIT COLLATION
12117 17 18 0 0 0 SELECT
12118 32 0 0 0 2- SHIFT (AB) BY QUARTETS
12119 10 0 0 0 0 SELECT LITERAL
12120 74 121 32 0 0 0 121 > INSERTING BEFORE PROCR START JUMP IF AB == 0 // 27, 1, 0
12121 17 18 0 0 0 SELECT
12122 2 17 21 0 0 0 SUBTRACT
12123 70 121 32 0 0 0 121 > INSERTING AT END OF PROGM JUMP IF A == 0
12124 17 10 0 0 0 SELECT
12125 2 17 14 0 0 0 SUBTRACT
12126 70 121 44 0 0 0 121 > NOT IN THE MIDDLE OF AN INSERTION JUMP IF A == 0
12127 5 17 15 0 0 0 ADJUST DETAIL TRANSFER
12128 17 10 0 0 0 SELECT
12129 5 17 14 0 0 0 TRANSFER
12130 80 140 2 0 0 0 140 STORE ADJUST DETAIL ENTER SUBROUTINE
12131 76 121 44 0 0 0 121 > REJECT 'PROCR' JUMP unconditional
12123>
12120>12132 4 8 1 0 0 SELECT
Source image: P1000073.JPG
12133 80 142 2 0 0 0 142 CONVERT TO BIN ENTER SUBROUTINE
12134 73 121 44 0 0 0 121 > NEGATIVE, IGNORE JUMP IF A < 0
12135 3 17 4 0 0 0 NEW PROCR NUMBER (BIN) COPY
12136 2 3 45 0 0 0 HIGHEST B/FWD PROCR (BIN) SUBTRACT
12137 73 121 44 0 0 0 121 NOT UNIQUE JUMP IF A < 0
12138 17 4 0 0 0 SELECT
12139 101 999 1 2 0 MAX PROCR subtract literal address
12140 72 121 44 0 0 0 121 >IGNORE JUMP IF A >= 0
12141 124 17 4 0 1 0 modify address of next
12142 106 6 100- 0 0 0 select (N)
12143 70 122 2 0 0 0 122 > OK, PROCR NOT ALREADY INSETED JUMP IF A == 0
12305>
13566>
12140>
12137>
12134>
12131>
12126>
12028>
12023>
12020>
12017>
12004>
11929>
11906>
11853>
11850>
11847>
11839>
11828>
11819>
11636>
11629>
11616>
11613>
11608>
11418>
11411>
11342>
11323>
11320>12144 10 0 0 0 1 SET IND 'PASS 0 DOESN'T LIKE IT' SELECT LITERAL
12145 5 17 16 1 0 0 TRANSFER
12146 80 133 2 0 0 0 133 READ/WRITE TO NEXT DIRECTIVE ENTER SUBROUTINE
12147 76 113 16 0 0 0 113 JUMP unconditional
12200 PROCR 122 122 INSERT NEW PROCR INTO LIST IN SEC 6
12143>12202 62 0 0 0 0 STEP BACK SEQ CTR SO NEVER ALTERS SET EXCESS CONSTANTS
12203 3 45 0 0 0 > READ/COPY TO NEXT DIRECTIVE SELECT
12204 30 0 0 0 5 SHIFT (A) BY QUARTETS
12205 1 17 7 0 0 0 ADD
12206 91 0 0 1 0 'PROCR' SET MODIFICATION REGISTER AT VARIABLE
12207 94 122 10 0 1 0 122 /////> NOT INSERTING BEFORE END SIGN STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
12208 94 45 0 0 0 CURRENT (HIGHEST C/FWD PROCR) +1 SELECT
12209 76 122 12 0 0 0 122 JUMP unconditional
12207>12210 124 17 7 0 1 0 modify address of next
12211 6 100- 0 0 0 UPDATED REF ''INSERT BEFORE'' SELECT
12209>12212 5 135 2 0 0 0 135 TRANSFER
12213 10 0 0 0 1 SELECT LITERAL
12214 4 94 45 0 0 0 AUGMENT
12215 0 17 0 0 0 0 LENGTH IND SELECT
Source image: P1000074.JPG
12216 30 0 0 0 4 SHIFT (A) BY QUARTETS
12217 1 135 2 0 0 0 135 UPDATED REF ADD
12218 124 17 4 0 1 0 CODER'S PROCR modify address of next
12219 5 6 100- 0 0 0 TRANSFER
12220 94 122 22 0 1 0 122 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
12221 76 122 27 0 0 0 122 >INSERTING BEFORE END SIGN, SKIP JUMP unconditional
12226>
12220>12222 6 100- 0 1 0 SELECT
12223 70 122 26 0 0 0 122 >'VALUE' DON'T UPDATE JUMP IF A == 0
12224 10 0 0 0 1 SELECT LITERAL
12225 4 6 100- 0 1 0 AUGMENT
12223>12226 94 122 22 0 1 1 122 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
12221>12227 60 0 0 0 0 SET DECIMAL RADIX
12228 76 119 30 0 0 0 119 >READ PT JUMP unconditional
12300 PROCR 123 123 INSERTING INSTRUCTIONS
12110>12302 35 0 0 0 0 PREPARE FOR DIGIT COLLATION
12303 17 18 0 0 0 SELECT
12304 12 0 0 0 10002 SUBTRACT LITERAL
12305 73 121 44 0 0 0 121 >UNACCEPTABLE JUMP IF A < 0
12306 17 18 0 0 0 SELECT
12307 32 0 0 0 2- SHIFT (AB) BY QUARTETS
12308 10 0 0 0 0 SELECT LITERAL
12309 74 116 50 0 0 0 116 >INSERTING AT END OF PROCR JUMP IF AB == 0 // 27, 1, 0
12310 4 2 2 0 0 LINE SERIAL SELECT
12311 30 0 0 0 2- SHIFT (A) BY QUARTETS
12312 80 142 2 0 0 0 142 CONVERT TO BIN ENTER SUBROUTINE
12313 2 3 45 0 0 0 (HIGHEST B/FWD PROCR+1) SUBTRACT
12314 73 123 56 0 0 0 123 >NOT A UNIQUE REF JUMP IF A < 0
12315 17 2 0 0 0 SELECT
12316 12 0 0 0 64 SUBTRACT LITERAL
12317 72 123 56 0 0 0 123 >TOO MANY UNIQUE REFS, DON'T STORE THIS JUMP IF A >= 0
12318 4 2 2 0 0 UNIQUE REF SELECT
12319 124 17 2 0 1 0 modify address of next
12320 5 21 0 0 0 0 TRANSFER
12321 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
12322 36 17 14 0 0 0 COLLATE AND ADD
12323 5 136 2 0 0 0 136 ITEM DEC TRANSFER
12324 17 14 0 0 0 SELECT
12325 30 0 0 0 2- SHIFT (A) BY QUARTETS
12326 80 142 2 0 0 0 142 ENTER SUBROUTINE
12327 5 141 2 0 0 0 141 REF BIN TRANSFER
12328 124 141 2 0 1 0 141 modify address of next
12329 6 100- 0 0 0 SELECT
12330 80 143 2 0 0 0 143 DEC ENTER SUBROUTINE
12331 3 17 19 0 0 0 UPDATED REF DEC COPY
12332 30 0 0 0 2 SHIFT (A) BY QUARTETS
12333 1 136 2 0 0 0 136 DEC ITEM NOT UPDATED ADD
12334 5 17 6 0 0 0 TRANSFER
12335 17 7 0 0 0 INSERT BEFORE REF SELECT
12336 2 141 2 0 0 0 141 SUBTRACT
12337 70 123 40 0 0 0 123 >HASN'T GONE OVER THE TOP JUMP IF A == 0
12338 10 0 0 0 1- SELECT LITERAL
12339 4 17 19 0 0 0 TO GET THE RIGHT ADJUST DETAILS AUGMENT
12337>12340 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
12341 C 0 0 0 460
12349>12342 19 0 0 1 0 SELECT
12343 70 123 50 0 0 0 123 >END OF ADJUST DETAILS JUMP IF A == 0
12344 30 0 0 0 2- SHIFT (A) BY QUARTETS
12345 2 17 19 0 0 0 3 DIGIT PROCR SUBTRACT
Source image: P1000110.JPG
12346 71 123 49 0 0 0 123 JUMP IF A != 0
12347 19 1 0 1 0 SELECT
12348 4 17 6 0 0 0 ADJUST ADDRESS AUGMENT
12346>12349 94 123 42 0 1 2 123 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
12343>12350 62 0 0 0 0 BIN SET EXCESS CONSTANTS
12351 17 6 0 0 0 SELECT
12352 124 17 2 0 1 0 modify address of next
12353 102 21 1 0 0 0 transfer (A) to N
12354 10 0 0 0 2 SELECT LITERAL
12355 4 17 2 0 0 0 AUGMENT
12317>
12314>12356 60 0 0 0 0 SET DECIMAL RADIX
12357 17 0 0 0 0 LENGTH IND SELECT
12358 11 0 0 0 1 ADD LITERAL
12359 4 17 14 0 0 0 AUGMENT'NEW'LINE SERIAL AUGMENT
12360 80 131 2 0 0 0 131 O/P ENTER SUBROUTINE
12361 80 141 2 0 0 0 141 READ ENTER SUBROUTINE
12362 70 123 69 0 0 0 123 >PT AT END JUMP IF A == 0
12363 5 0 1 0 0 SELECT
12364 2 148 72 1 0 0 148 'TRAMS' SUBTRACT
12365 70 123 69 0 0 0 123 JUMP IF A == 0
12366 80 132 2 0 0 0 132 UNPACK ENTER SUBROUTINE
12367 80 129 2 0 0 0 129 DIRECTIVE? ENTER SUBROUTINE
12368 71 120 2 0 0 0 120 >NO JUMP IF A != 0
12365>
12362>12369 17 14 0 0 0 END OF MULTIPLE INSESELECT
12370 2 17 10 0 0 0 DIFFERENCE SUBTRACT
12371 5 17 15 0 0 0 QUANTITY ADJUST TRANSFER
12372 17 10 0 0 0 SELECT
12373 5 17 14 0 0 0 TRANSFER
12374 80 140 2 0 0 0 140 STORE ADJUST DETAIL ENTER SUBROUTINE
12375 0 5 0 1 0 0 > SELECT
12376 30 0 0 0 4- SHIFT (A) BY QUARTETS
12377 30 0 0 0 4 SHIFT (A) BY QUARTETS
12378 2 148 60 1 0 0 148 'END ' SUBTRACT
12379 70 124 2 0 0 0 124 JUMP IF A == 0
12380 5 0 1 0 0 SELECT
12381 2 148 72 1 0 0 148 'TRAMD' SUBTRACT
12382 70 113 7 0 0 0 113 JUMP IF A == 0
12383 71 113 16 0 0 0 113 > PT AT DIRECTIVE JUMP IF A != 0
12400 PROCR 124 124 CONSTRUCT C/FWD PROCR LENGTH INDEX
12704>
12379>
11530>
11312>
11303>12402 62 0 0 0 0 SET EXCESS CONSTANTS
12403 54 94 0 0 0 45 BULK CLEAR
12404 3 45 0 0 0 (HIGHEST B/FWD PROCR+1) SELECT
12405 30 0 0 0 5 SHIFT (A) BY QUARTETS
12406 101 100 1 1 0 add literal address
12407 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
12408 90 0 0 2 0 SCAN SEC 3 SET MODIFICATION REGISTER AT LITERAL
12409 C 0 0 0 45
12434>12410 90 0 0 3 0 SCAN WORD IN SEC 3 SET MODIFICATION REGISTER AT LITERAL
12411 C 0 0 0 20
12412 34 148 2 0 0 0 148 BIT 1 SET (N) IN B
12433>12413 6 100- 0 1 0 SELECT
12414 70 124 30 0 0 0 124 > PROCR DELETED JUMP IF A == 0
12415 10 0 0 0 0 SELECT LITERAL
Source image: P1000111.JPG
12416 36 3 0 0 2 0 COLLATE AND ADD
12417 70 124 30 0 0 0 124 > B/FWD PROCR WAS SHORT JUMP IF A == 0
12418 100 17 0 1 0 0 COPY B copy registers
12419 6 100- 0 1 0 C/FWD EQUIVALENT SELECT
12420 19 0 0 0 14 20 DIVIDE LITERAL
12421 5 148 42 0 0 0 148 TRANSFER
12422 32 0 0 0 9 SHIFT (AB) BY QUARTETS
12423 5 148 43 0 0 0 148 REMAINDER TRANSFER
12424 10 0 0 0 1 SELECT LITERAL
12425 124 148 43 0 1 0 148 modify address of next
12426 31 0 0 0 0 ///// SHIFT (A) BY BITS
12427 124 148 42 0 1 0 148 modify address of next
12428 4 94 5- 0 0 0 SET C/FWD LENGTH IND AUGMENT
12429 100 17 0 1 1 0 RESTORE B replace registers
12417>
12414>12430 33 0 0 0 1 SHIFT COLLATOR SHIFT (AB) BY BITS
12431 94 124 33 0 1 1 124 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
12432 76 124 35 0 0 0 124 > END JUMP unconditional
12431>12433 94 124 13 0 3 1 124 > THIS BIT NEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
12434 94 124 10 0 2 1 124 > NEXT WORD (SHOULD NEVER RUN OUT) STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
12432>12435 101 1000 1 3 0 DEAL WITH INSERTED PROCEDURES select literal address
12436 30 0 0 0 5 SHIFT (A) BY QUARTETS
12437 1 3 45 0 0 0 ADD
12438 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
12454>12439 0 6 100- 0 1 0 SELECT
12440 70 124 54 0 0 0 124 >NOT USED JUMP IF A == 0
12441 32 0 0 0 4- SHIFT (AB) BY QUARTETS
12442 70 124 54 0 0 0 124 >SHORT PROCEDURE JUMP IF A == 0
12443 10 0 0 0 0 SELECT LITERAL
12444 32 0 0 0 4 SHIFT (AB) BY QUARTETS
12445 19 0 0 0 14 DIVIDE LITERAL
12446 5 148 42 1 0 0 148 TRANSFER
12447 91 148 42 0 2 0 148 SET MODIFICATION REGISTER AT VARIABLE
12448 32 0 0 0 9 SHIFT (AB) BY QUARTETS
12449 5 17 1 0 0 0 TRANSFER
12450 10 0 0 0 1 SELECT LITERAL
12451 124 17 1 0 1 0 modify address of next
12452 31 0 0 0 0 ///// SHIFT (A) BY BITS
12453 4 94 5- 0 2 0 AUGMENT
12442>
12440>12454 94 124 39 0 1 1 124 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
12455 76 125 6 0 0 0 125 JUMP unconditional
12500 PROCR 125 125 END OF PASS 0
12502 85 129 2 0 0 0 129 3 ORDER CONST SWITCH R
12503 C 105 38 0 0 0 105
12504 C 104 3 0 0 0 104
12505 C 105 35 0 0 0 105
12455>12506 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
12507 C 0 0 0 450
12508 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
12509 C 0 0 0 900
12510 10 0 0 0 0 SELECT LITERAL
12511 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
12517>12512 36 6 1 0 2 0 COLLATE AND ADD
12513 31 0 0 0 10 SHIFT (A) BY BITS
12514 36 6 0 0 2 0 COLLATE AND ADD
12515 5 22 0 0 1 0 TRANSFER
12516 94 0 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
12517 94 125 12 0 2 2 125 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
Source image: P1000112.JPG
12518 76 125 27 0 0 0 125 JUMP unconditional
10564>
10556>12519 62 0 0 0 0 SET BIN SET EXCESS CONSTANTS
12520 148 90 0 0 0 148 IND SELECT
12521 70 125 25 0 0 0 125 JUMP IF A == 0
12522 150 0 0 0 11 OFFER OPTIONS
12523 C 136 61 0 0 0 136 > END
12524 C 107 11 0 0 0 107 > REENTER
12521>12525 10 0 0 0 1 SELECT LITERAL
12526 4 94 45 0 0 0 AUGMENT
12518>12527 80 131 2 0 0 0 131 > WRITE END ENTER SUBROUTINE
12528 62 0 0 0 0 SET EXCESS CONSTANTS
12529 27 10 0 0 0 SELECT
12530 11 0 0 0 18 24 ADD LITERAL
12531 80 126 2 0 0 0 126 > CLOSE B1 ENTER SUBROUTINE
12532 45 A6 0 0 0 0 REWIND
12533 55 22 0 0 0 1010 OLD/NEW PROCRS + ADJUSTS + UNIQUE BULK COPY
12534 C 18 0 0 0 0
12535 55 94 0 0 0 46 BULK COPY
12536 C 18 1010 0 0 0
12537 91 0 0 3 0 CLEAR R3 SET MODIFICATION REGISTER AT VARIABLE
12538 91 0 0 1 0 & R1 SET MODIFICATION REGISTER AT VARIABLE
12539 80 134 2 0 0 0 134 > INTERCHANGE A1. D1 ASL'S ENTER SUBROUTINE
14767>
14784>12540 148 44 1 0 0 148 SELECT
12541 70 101 2 0 0 0 101 > INITIAL TRANSLATION JUMP IF A == 0
12542 48 A1 0 0 0 1 BACK 1 I/P > I/P STEP BACK
12543 C 0 0 0 1
12544 42 A1 0 0 0 0 INPUT
12545 C 7 0 0 0 0
12546 76 101 2 0 0 0 101 > CANN PASS 1 JUMP unconditional
12600 PROCR 126 126 OR B1
12602 81 126 2 0 0 0 126 START OF SUBROUTINE
12603 30 0 0 0 5 SHIFT (A) BY QUARTETS
12604 1 999 8 0 0 0 ADD
12605 125 4096 1 1 0 clear indicators
12606 124 999 0 0 3 0 modify address of next
12607 123 160 0 2 0 enter master routine
12608 82 126 2 0 0 0 126 END OF SUBROUTINE / LEAVE SUBROUTINE
12609 41 A1 0 0 0 0 DUMMY FOR ENTRY TO MR CLOSE FILE
12610 126 126 5 0 3 0 126 leave master routine
12700 PROCR 127 127 READ, TEST NEXT P/T BLOCK
12702 81 127 2 0 0 0 127 3 ORDER CONST START OF SUBROUTINE
12703 80 141 2 0 0 0 141 > READ PT ENTER SUBROUTINE
12704 70 124 2 0 0 0 124 > END JUMP IF A == 0
12705 5 0 1 0 0 SELECT
12706 2 148 72 1 0 0 148 'TRAMD' SUBTRACT
12707 70 113 7 0 0 0 113 > YES JUMP IF A == 0
12708 80 132 2 0 0 0 132 > UNPACK ENTER SUBROUTINE
12709 80 129 2 0 0 0 129 > TEST DIRECTIVE ENTER SUBROUTINE
12710 82 127 2 0 0 0 127 END OF SUBROUTINE / LEAVE SUBROUTINE
12800 PROCR 128 128 COPY INTERCODE BLOCKS
12802 81 128 2 0 0 0 128 START OF SUBROUTINE
12803 55 10 4 1 0 148 BULK COPY
12804 C 8 4 1 0 0
12805 43 A2 0 0 0 0 OUTPUT
12806 C 8 0 0 0 0
Source image: P1000113.JPG
12807 80 137 2 0 0 0 137 >READ ENTER SUBROUTINE
12808 82 128 2 0 0 0 128 END OF SUBROUTINE / LEAVE SUBROUTINE
12900 PROCR 129 129 TEST DIRECTIVE
12902 81 129 2 0 0 0 129 START OF SUBROUTINE
12903 60 0 0 0 0 SET DECIMAL RADIX
12904 34 4 4 1 0 0 SET (N) IN B
12905 10 0 0 0 0 SELECT LITERAL
12906 32 0 0 0 2 SHIFT (AB) BY QUARTETS
12907 12 0 0 0 69 SUBTRACT LITERAL
12908 70 129 18 0 0 0 129 JUMP IF A == 0
12909 11 0 0 0 15 ADD LITERAL
12910 70 129 17 0 0 0 129 JUMP IF A == 0
12911 12 0 0 0 19 SUBTRACT LITERAL
12912 70 129 16 0 0 0 129 JUMP IF A == 0
12913 11 0 0 0 22 ADD LITERAL
12914 71 129 24 0 0 0 129 >NO DIRECTIVE JUMP IF A != 0
12915 10 0 0 0 1 SELECT LITERAL
12912>12916 11 0 0 0 1 ADD LITERAL
12910>12917 11 0 0 0 1 ADD LITERAL
12908>12918 11 0 0 0 1 ADD LITERAL
12919 5 130 2 0 0 0 130 TRANSFER
12920 86 129 2 0 0 0 129 SELECT SWITCH R
12921 5 17 12 0 0 0 STORE PREVIOUS SETTING TRANSFER
12922 84 129 2 0 0 0 129 SET SWITCH(ES) AT VARIABLE VALUE
12923 C 130 2 0 0 0 130 (A)ZERO DIRECTIVE FOUND
12914>12924 82 129 2 0 0 0 129 (A) NON=-ZERO,NO DIRECTIVE FOUND END OF SUBROUTINE / LEAVE SUBROUTINE
13000 PROCR 130 130 FIND 'LENGTH'
13002 81 130 2 0 0 0 130 START OF SUBROUTINE
13003 4 2 2 0 0 LINE SERIAL OF AMENDMENT SELECT
13004 30 0 0 0 2- SHIFT (A) BY QUARTETS
13005 80 142 2 0 0 0 142 CONVERT TO BIN ENTER SUBROUTINE
13006 101 100 1 2 0 subtract literal address
13007 19 0 0 0 14 DIVIDE BY 20 DIVIDE LITERAL
13008 5 148 42 0 0 0 148 TRANSFER
13009 32 0 0 0 9 SHIFT (AB) BY QUARTETS
13010 5 148 43 0 0 0 148 TRANSFER
13011 34 148 2 0 0 0 148 SET (N) IN B
13012 124 148 43 0 1 0 148 modify address of next
13013 33 0 0 0 0 ///// SHIFT (AB) BY BITS
13014 124 148 42 0 1 0 148 modify address of next
13015 36 3 0 0 0 0 COLLATE AND ADD
13016 70 130 18 0 0 0 130 >SHORT JUMP IF A == 0
13017 10 0 0 0 1 SELECT LITERAL
13016>13018 60 0 0 0 0 SET DECIMAL RADIX
13019 82 130 2 0 0 0 130 (A)=ZERO OR ONE END OF SUBROUTINE / LEAVE SUBROUTINE
13100 PROCR 131 131 WRITE->A6 FROM SEC9
13102 81 131 2 0 0 0 131 START OF SUBROUTINE
13103 80 135 2 0 0 0 135 REPLACE 'BE' BY 'LE' ENTER SUBROUTINE
13104 10 0 0 0 7.0000007. SELECT LITERAL
13105 5 9 52 1 0 0 TRANSFER
13106 17 16 1 0 0 IND'PASS 0 DIDN'T LIKE IT' NON-ZERO SELECT
13107 5 9 50 1 0 0 TRANSFER
13108 43 A6 0 0 0 0 OUTPUT
13109 C 9 0 0 0 0
13110 54 9 4 1 0 50 BULK CLEAR
13111 5 17 16 1 0 0 CLEAR IND TRANSFER
13112 82 131 2 0 0 0 131 END OF SUBROUTINE / LEAVE SUBROUTINE
Source image: P1000114.JPG
13200 PROCR 132 132 UNPACK POSSIBLE DIRECTIVE BLOCK
13202 81 132 2 0 0 0 132 START OF SUBROUTINE
13203 10 0 0 0 0 SELECT LITERAL
13204 5 4 4 1 0 0 WL FOR AMEND DIRECTIVE TRANSFER
13205 5 4 16 1 0 0 TRANSFER
13206 87 27 10 0 0 0 SWITCH ACCORDING TO N
13207 C 132 12 0 0 0 132 >PT
13208 C 132 9 0 0 0 132 >CARDS
13208>13209 50 5 0 0 0 0 UNPACK FIXED FIELD DATA
13210 C 150 18 0 0 0 150
13211 82 132 2 0 0 0 132 END OF SUBROUTINE / LEAVE SUBROUTINE
13207>13212 124 150 2 0 2 0 150 UNPACK PT select literal and division
13213 124 999 15 1 2 0 modify address of next
13214 128 0 0 3 0 unpack variable field data
13215 82 132 2 0 0 0 132 END OF SUBROUTINE / LEAVE SUBROUTINE
13300 PROCR 133 133 O/P WHEN MOD NOT ACCEPTED
13302 81 133 2 0 0 0 133 START OF SUBROUTINE
13305>13303 80 131 2 0 0 0 131 >O/P TO A6 ENTER SUBROUTINE
13304 80 127 2 0 0 0 127 >READ/TEST PT ENTER SUBROUTINE
13305 71 133 3 0 0 0 133 >NOT YET JUMP IF A != 0
13306 82 133 2 0 0 0 133 NEXT DIRECTIVE FOUND-> END OF SUBROUTINE / LEAVE SUBROUTINE
13400 PROCR 134 134 INTERCHANGE A1,D1 ASL'S SR
13402 81 134 2 0 0 0 134 START OF SUBROUTINE
13403 125 4096 1 1 0 clear indicators
13404 123 134 6 0 2 0 134 enter master routine
13405 82 134 2 0 0 0 134 END OF SUBROUTINE / LEAVE SUBROUTINE
13406 100 0 0 0 0 Halt
13407 124 999 9 0 3 0 modify address of next
13408 100 64 0 2 0 replace (B) by (N)
13409 124 999 7 0 3 0 modify address of next
13410 106 64 0 0 0 select (N)
13411 124 999 9 0 3 0 D1->A1 modify address of next
13412 102 64 0 0 0 transfer (A) to N
13413 32 0 0 0 10 SHIFT (AB) BY QUARTETS
13414 124 999 7 0 3 0 A1->D1 modify address of next
13415 102 64 0 0 0 transfer (A) to N
13416 126 134 6 0 3 0 134 leave master routine
13500 PROCR 135 135 REPLACE BE CHAR BY LE CHAR IN SEC 5
13502 81 135 2 0 0 0 135 START OF SUBROUTINE
13503 87 27 10 0 0 0 SWITCH ACCORDING TO N
13504 C 135 51 0 0 0 135 >PT
13505 C 135 6 0 0 0 135 >CARDS
13505>13506 10 0 0 0 0 SELECT LITERAL
13507 5 132 2 0 0 0 132 TRANSFER
13508 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
13509 C 0 0 0 32
13520>13510 90 0 0 2 8 SET MODIFICATION REGISTER AT LITERAL
13511 C 0 0 0 2-
13512 34 5 0 1 1 0 SET (N) IN B
13517>13513 10 0 0 0 0 SELECT LITERAL
13514 32 0 0 0 2 SHIFT (AB) BY QUARTETS
13515 12 0 0 0 7. SUBTRACT LITERAL
13516 70 135 22 0 0 0 135 >BE FOUND JUMP IF A == 0
13550>13517 94 135 13 0 2 2- 135 >NEXT CHAR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
13518 5 0 1 1 0 SELECT
13519 5 9 4 1 1 0 TRANSFER
Source image: P1000115.JPG
13520 94 135 10 0 1 2 135 >NEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
13521 82 135 2 0 0 0 135 END OF SUBROUTINE / LEAVE SUBROUTINE
13516>13522 100 17 22 1 0 0 COPY B copy registers
13523 62 0 0 0 0 SET EXCESS CONSTANTS
13524 96 0 0 1 0 SELECT MODIFIER
13525 16 0 0 0 5 MULTIPLY LITERAL
13526 5 148 42 1 0 0 148 =10 TIMES WORD NUMBER+CLEAR WL TRANSFER
13527 96 0 0 2 0 SELECT MODIFIER
13528 3 136 2 0 0 0 136 COPY
13529 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
13530 37 148 43 0 0 0 148 REPLACE SELECTED BITS
13531 10 0 0 0 Ю SELECT LITERAL
13532 2 148 43 0 0 0 148 =SUBTRACT R2 MODIFIER SUBTRACT
13533 4 148 42 0 0 0 148 AUG COL POSN AUGMENT
13534 60 0 0 0 0 SET DECIMAL RADIX
13535 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
13536 10 0 0 0 5. SELECT LITERAL
13537 124 136 2 0 1 0 136 modify address of next
13538 32 0 0 0 0 ///// SHIFT (AB) BY QUARTETS
13539 37 5 0 1 1 0 REPLACE BE BY LE REPLACE SELECTED BITS
13540 62 0 0 0 0 SET EXCESS CONSTANTS
13541 132 2 0 0 0 132 CT OF BE'S X 2 SELECT
13542 12 0 0 0 Ю SUBTRACT LITERAL
13543 70 135 49 0 0 0 135 >5 ALREADY STORED JUMP IF A == 0
13544 92 132 2 0 4 0 132 SET MODIFIER AT VARIABLE
13545 148 42 0 0 0 148 SELECT
13546 5 9 36 2 4 0 2XBE POSN CTR TRANSFER
13547 10 0 0 0 2 SELECT LITERAL
13548 4 132 2 0 0 0 132 STEP CTR AUGMENT
13543>13549 100 17 22 1 1 0 replace registers
13550 76 135 17 0 0 0 135 > NEXT CHAR JUMP unconditional
13504>13551 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
13552 C 0 0 0 56
13563>13553 90 0 0 2 8 SET MODIFICATION REGISTER AT LITERAL
13554 C 0 0 0 2-
13555 34 5 0 1 1 0 SET (N) IN B
13560>13556 10 0 0 0 0 SELECT LITERAL
13557 32 0 0 0 2 SHIFT (AB) BY QUARTETS
13558 12 0 0 0 7. SUBTRACT LITERAL
13559 70 135 67 0 0 0 135 > BE FOUND JUMP IF A == 0
13560 94 135 56 0 2 2- 135 > GET NEXT CHAR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
13561 5 0 1 1 0 COPY TO O/P SECTION SELECT
13562 5 9 4 1 1 0 TRANSFER
13563 94 135 53 0 1 2 135 >GET NEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
13564 10 0 0 0 7. MISREAD SELECT LITERAL
13565 5 9 46 1 0 0 TRANSFER
13566 76 121 44 0 0 0 121 JUMP unconditional
13559>13567 96 0 0 2 0 SELECT MODIFIER
13568 5 136 2 0 0 0 136 TRANSFER
13569 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
13570 10 0 0 0 5. SELECT LITERAL
13571 124 136 2 0 1 0 136 modify address of next
13572 32 0 0 0 0 ///// SHIFT (AB) BY QUARTETS
13573 37 5 0 1 1 0 REPLACE BE BY LE REPLACE SELECTED BITS
13574 5 0 1 1 0 COPY LAST WORD SELECT
13575 5 9 4 1 1 0 TRANSFER
13576 100 17 22 1 0 0 copy registers
13577 62 0 0 0 0 SET EXCESS CONSTANTS
13578 96 0 0 1 0 SELECT MODIFIER
13579 11 0 0 0 4 ADD LITERAL
Source image: P1000116.JPG
13580 30 0 0 0 3 >Q4,5 SHIFT (A) BY QUARTETS
13581 5 9 48 2 0 0 TRANSFER
13582 35 0 0 0 11 COLUMN POSITION PREPARE FOR DIGIT COLLATION
13583 36 136 2 0 0 0 136 COLLATE AND ADD
13584 37 9 48 2 0 0 REPLACE SELECTED BITS
13585 100 17 26 0 3 0 set radix
13586 82 135 2 0 0 0 135 END OF SUBROUTINE / LEAVE SUBROUTINE
13600 PROCR 136 136 GET TO START OF AMENDED PROGRAM
13602 81 136 2 0 0 0 136 START OF SUBROUTINE
13610>
13616>
13624>
13646>
13649>
13660>13603 80 137 2 0 0 0 137 READ MT ENTER SUBROUTINE
13604 62 0 0 0 0 SET EXCESS CONSTANTS
13605 0 10 4 1 0 0 SELECT
13606 2 148 64 1 0 0 148 FINIS' SUBTRACT
13607 70 136 51 0 0 0 136 >ALARM*02 JUMP IF A == 0
13608 0 10 8 2 0 0 SELECT
13609 12 0 0 0 SUBTRACT LITERAL
13610 71 136 3 0 0 0 136 JUMP IF A != 0
13611 0 10 10 1 0 0 SELECT
13612 2 148 54 1 0 0 148 PASS I' SUBTRACT
13613 70 136 43 0 0 0 136 JUMP IF A == 0
13614 0 10 6 1 0 0 SELECT
13615 2 148 62 1 0 0 148 INDEX' USE'INDEX'DATA TO SUBTRACT
13616 71 136 3 0 0 0 136 >NO SEE IF PROGM ON TAPEJUMP IF A != 0
13642>13617 80 137 2 0 0 0 137 >READ ENTER SUBROUTINE
13618 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
13619 C 0 0 0 48
13641>13620 0 10 4 2 1 0 PROG ID SELECT
13621 2 148 20 0 0 0 148 SUBTRACT
13622 71 136 26 0 0 0 136 >NOT END SIGN JUMP IF A != 0
13623 148 92 0 0 0 148 SELECT
13624 70 136 3 0 0 0 136 >INTERCODE FOUND.REATO 'PASS I' JUMP IF A == 0
13625 76 136 51 0 0 0 136 >ALARM02 JUMP unconditional
13622>13626 1 148 20 0 0 0 148 ADD
13627 2 4 2 0 0 0 PROG ID SUBTRACT
13628 71 136 41 0 0 0 136 >NOT JUMP IF A != 0
13629 0 10 6 2 1 0 SELECT
13630 2 4 4 0 0 0 SERIAL SUBTRACT
13631 71 136 41 0 0 0 136 >NOT JUMP IF A != 0
13632 10 8 1 1 0 PASS IND SELECT
13633 12 0 0 0 20 SUBTRACT LITERAL
13634 70 136 41 0 0 0 136 >CLEO SKIP JUMP IF A == 0
13635 10 8 2 1 0 SELECT
13636 70 136 40 0 0 0 136 >INTERCODE JUMP IF A == 0
13637 10 10 2 1 0 IDENTIFIER SELECT
13638 84 786 2 0 0 0 786 SET SWITCH(ES) AT VARIABLE VALUE
13639 76 136 41 0 0 0 136 JUMP unconditional
13636>13640 5 148 92 0 0 0 148 SET'PROGRAM TAPE' TRANSFER
13639>
13634>
13631>
13628>13641 94 136 20 0 1 8 136 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
13642 76 136 17 0 0 0 136 >NEXT BLOCK JUMP unconditional
13613>13643 60 0 0 0 0 SET DEC SET DECIMAL RADIX
13644 0 10 4 2 0 0 SELECT
Source image: P1000117.JPG
13645 2 4 2 0 0 0 PROG IDENTITY SUBTRACT
13646 71 136 3 0 0 0 136 >NO JUMP IF A != 0
13647 0 10 6 2 0 0 SELECT
13648 2 4 4 0 0 0 SUBTRACT
13649 71 136 3 0 0 0 136 >NO JUMP IF A != 0
13650 82 136 2 0 0 0 136 MATCH FOUND END OF SUBROUTINE / LEAVE SUBROUTINE
13625>
13607>13651 41 A1 0 0 0 1 CLOSE FILE
13652 10 0 0 0 1 SELECT LITERAL
13653 5 148 92 0 0 0 148 TRANSFER
13654 84 786 2 0 0 0 786 CLEAR SET SWITCH(ES) AT VARIABLE VALUE
13655 150 0 0 0 2 OFFER OPTIONS
13656 C 136 61 0 0 0 136 >UNLOAD
13657 C 136 59 0 0 0 136 >TRY NEW INPUT TAPE
13658 C 107 11 0 0 0 107 >REENTER
13657>13659 80 138 2 0 0 0 138 >OPEN A1 ENTER SUBROUTINE
13660 76 136 3 0 0 0 136 >TRY AGAIN JUMP unconditional
13656>
12523>
10964>
10709>
10404>13661 151 0 0 0 0 UNLOAD PROGRAMME
13700 PROCR 137 137 READ A1+SEC7
13702 81 137 2 0 0 0 137 START OF SUBROUTINE
13703 42 A1 0 0 0 0 INPUT
13704 C 10 0 0 0 0
13705 82 137 2 0 0 0 137 END OF SUBROUTINE / LEAVE SUBROUTINE
13800 PROCR 138 138 OPEN A1
13802 81 138 2 0 0 0 138 START OF SUBROUTINE
13803 40 A1 0 0 0 1 OPEN FILE
13804 82 138 2 0 0 0 138 END OF SUBROUTINE / LEAVE SUBROUTINE
13900 PROCR 139 139 GET NEXT ITEM
13902 81 139 2 0 0 0 139 START OF SUBROUTINE
13903 94 139 7 0 2 2 139 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
13904 80 137 2 0 0 0 137 >READ MT ENTER SUBROUTINE
13905 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
13906 C 0 0 0 46
13903>13907 82 139 2 0 0 0 139 END OF SUBROUTINE / LEAVE SUBROUTINE
14000 PROCR 140 140 STORE ADJUST DETAILS SR
14002 81 140 2 0 0 0 140 START OF SUBROUTINE
14003 17 3 0 0 0 SELECT
14004 101 460 1 2 0 subtract literal address
14005 72 140 28 0 0 0 140 >TOO MANY STORED JUMP IF A >= 0
14006 10 0 0 0 0 SELECT LITERAL
14007 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
14008 36 17 14 0 0 0 COLLATE AND ADD
14009 5 136 2 0 0 0 136 ITEM TRANSFER
14010 17 14 0 0 0 SELECT
14011 30 0 0 0 2- SHIFT (A) BY QUARTETS
14012 80 142 2 0 0 0 142 ENTER SUBROUTINE
14013 5 141 2 0 0 0 141 BIN REF TRANSFER
14014 124 141 2 0 1 0 141 modify address of next
14015 6 100- 0 0 0 UPDATED REF SELECT
14016 80 143 2 0 0 0 143 >TO DEC ENTER SUBROUTINE
14017 30 0 0 0 2 SHIFT (A) BY QUARTETS
14018 1 136 2 0 0 0 136 ADD
Source image: P1000118.JPG
14019 124 17 3 0 1 0 modify address of next
14020 5 19 0 0 0 0 LOCN OF ADJUSTMENT TRANSFER
14021 0 17 15 0 0 0 SELECT
14022 124 17 3 0 1 0 modify address of next
14023 5 19 1 0 0 0 QUANTITY TRANSFER
14024 62 0 0 0 0 SET EXCESS CONSTANTS
14025 10 0 0 0 2 SELECT LITERAL
14026 4 17 3 0 0 0 STEP CTR AUGMENT
14027 60 0 0 0 0 SET DECIMAL RADIX
14005>14028 82 140 2 0 0 0 140 END OF SUBROUTINE / LEAVE SUBROUTINE
14100 PROCR 141 141 SR TO READ PT AND TEST END
14102 81 141 2 0 0 0 141 START OF SUBROUTINE
14114>14103 100 17 22 1 0 0 copy registers
14104 62 0 0 0 0 SET EXCESS CONSTANTS
14105 34 999 14 0 0 0 SET (N) IN B
14106 27 10 0 0 0 SELECT
14107 11 0 0 0 4 ADD LITERAL
14108 80 126 2 0 0 0 126 >READ B1 ENTER SUBROUTINE
14109 100 17 22 1 1 0 replace registers
14110 5 0 1 0 0 SELECT
14111 12 0 0 0 7258555573 SHEET' SUBTRACT LITERAL
14112 71 141 15 0 0 0 141 JUMP IF A != 0
14113 80 131 2 0 0 0 131 ENTER SUBROUTINE
14114 76 141 3 0 0 0 141 >READ NEXT BLOCK JUMP unconditional
14112>14115 0 5 0 1 0 0 SELECT
14116 30 0 0 0 4- SHIFT (A) BY QUARTETS
14117 30 0 0 0 4 SHIFT (A) BY QUARTETS
14118 2 148 60 1 0 0 148 END ' SUBTRACT
14119 82 141 2 0 0 0 141 (A)=0 IF END END OF SUBROUTINE / LEAVE SUBROUTINE
14200 PROCR 142 142 CONVERT TO BIN
14202 81 142 2 0 0 0 142 START OF SUBROUTINE
14203 5 148 42 1 0 0 148 TRANSFER
14204 62 0 0 0 0 SET EXCESS CONSTANTS
14205 124 148 22 0 2 0 148 select literal and division
14206 112 148 42 1 0 0 148 convert
14207 82 142 2 0 0 0 142 END OF SUBROUTINE / LEAVE SUBROUTINE
14300 PROCR 143 143
14302 81 143 2 0 0 0 143 CONVERT TO DEC START OF SUBROUTINE
14303 5 148 42 1 0 0 148 TRANSFER
14304 60 0 0 0 0 SET DECIMAL RADIX
14305 124 148 2 0 2 0 148 select literal and division
14306 112 148 42 1 0 0 148 convert
14307 82 143 2 0 0 0 143 END OF SUBROUTINE / LEAVE SUBROUTINE
14400 PROCR 144 144 DEAL WITH 'TRAMD' BLOCK IF FIRST PT BLOCK
10707>14402 80 145 2 0 0 0 145 UNPACK AND CHECK PROG ID ENTER SUBROUTINE
14403 40 A6 0 0 0 0 OPEN FILE
14404 0 10 12 2 0 0 SELECT
14405 5 27 0 0 0 0 SET 'EX ISSUE 7' IND TRANSFER
14406 10 0 0 0 0 SELECT LITERAL
14407 34 10 12 1 0 0 SET (N) IN B
14408 32 0 0 0 2 SHIFT (AB) BY QUARTETS
14409 12 0 0 0 47 SUBTRACT LITERAL
14410 73 109 61 0 0 0 109 >MADE BEFORE ISSUE 7, ALARM 7 JUMP IF A < 0
14411 10 16 2 0 0 MULTIRECORD IND SELECT
14412 5 27 1 0 0 0 TRANSFER
14413 0 148 72 1 0 0 148 'TRAMD' SELECT
Source image: P1000119.JPG
14414 5 148 52 1 0 0 148 OVER 'AMEND' TRANSFER
14415 55 149 12 1 0 4 149 ADD'->PTS'TO COMMENT BULK COPY
14416 C 149 10 1 0 0 149
14417 52 18 0 0 0 0 EDIT
14418 C 149 2 0 0 0 149
14419 154 18 0 0 0 0 TYPE 'TRAMD' COMMENT COMMENT IN LOG
14422>14420 80 131 2 0 0 0 131 ENTER SUBROUTINE
14421 80 141 2 0 0 0 141 READ PT ENTER SUBROUTINE
14422 71 144 20 0 0 0 144 >NOT END JUMP IF A != 0
14423 80 131 2 0 0 0 131 WRITE END BLOCK ***REWIND A6 ENTER SUBROUTINE
14424 45 A6 0 0 0 0 REWIND A6 REWIND
14425 62 0 0 0 0 SET EXCESS CONSTANTS
14426 27 10 0 0 0 SELECT
14427 11 0 0 0 18 ADD LITERAL
14428 80 126 2 0 0 0 126 CLOSE B1 ENTER SUBROUTINE
14429 54 8 4 1 0 46 BULK CLEAR
14430 40 A2 0 0 0 0 OPEN OUTPUT OPEN FILE
14431 32 0 0 0 10 SPOOL NO->A SHIFT (AB) BY QUARTETS
14432 84 153 2 0 0 0 153 SET SWITCH(ES) AT VARIABLE VALUE
14433 80 146 2 0 0 0 146 WRITE TWO BLANK BLOCKS ENTER SUBROUTINE
14434 80 146 2 0 0 0 146 ENTER SUBROUTINE
14435 55 148 74 1 0 10 148 BULK COPY
14436 C 8 4 1 0 0
14437 80 146 2 0 0 0 146 WRITE 'INDEX' BLOCK ENTER SUBROUTINE
14438 17 28 0 0 0 PROG IDENTITY SELECT
14439 3 94 0 0 0 0 COPY
14440 3 8 4 2 0 0 COPY
14441 3 8 12 2 0 0 COPY
14442 60 0 0 0 0 SET DECIMAL RADIX
14443 10 0 0 0 1 SELECT LITERAL
14444 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
14445 36 17 29 0 0 0 COLLATE AND ADD
14446 37 17 29 0 0 0 UPDATED PROG SERIAL REPLACE SELECTED BITS
14447 62 0 0 0 0 SET EXCESS CONSTANTS
14448 17 29 0 0 0 SELECT
14449 3 8 6 2 0 0 COPY
14450 5 8 14 2 0 0 TRANSFER
14451 10 0 0 0 2 SELECT LITERAL
14452 5 8 10 2 0 0 TRANSFER
14453 10 0 0 0 3 SELECT LITERAL
14454 5 8 18 2 0 0 TRANSFER
14455 10 0 0 0 4 SELECT LITERAL
14456 5 8 16 2 0 0 TRANSFER
14457 148 78 1 0 0 148 SELECT
14458 5 8 20 1 0 0 TRANSFER
14459 80 146 2 0 0 0 146 ENTER SUBROUTINE
14460 17 28 0 0 0 PROG IDENTITY SELECT
14461 5 8 4 2 0 0 TRANSFER
14462 17 29 0 0 0 SELECT
14463 5 8 6 2 0 0 TRANSFER
14464 148 78 1 0 0 148 SELECT
14465 5 8 8 1 0 0 TRANSFER
14466 148 54 1 0 0 148 'PASS ' SELECT
14467 5 8 10 1 0 0 TRANSFER
14468 155 0 0 0 0 TRANSLATOR SERIAL SELECT PROGRAM SERIAL TO A
14469 5 8 12 1 0 0 TRANSFER
14470 5 8 14 1 0 0 TRANSFER
14471 27 1 0 0 0 SELECT
14472 5 8 16 2 0 0 MULTI RECORD IND TRANSFER
14473 80 146 2 0 0 0 146 WRITE 'PASS 1' BLOCK ENTER SUBROUTINE
Source image: P1000120.JPG
14474 80 137 2 0 0 0 137 >READA1 ENTER SUBROUTINE
14475 80 128 2 0 0 0 128 >WRITE +READ PROCR LENGTH INDEX ENTER SUBROUTINE
14476 80 128 2 0 0 0 128 ENTER SUBROUTINE
14477 17 29 0 0 0 SELECT
14478 3 94 1 0 0 0 COPY
14479 5 10 12 2 0 0 UPDATE SERIAL IN'PROGM'BLOCK TRANSFER
14493>14480 80 128 2 0 0 0 128 >COPY ENTER SUBROUTINE
14481 27 1 0 0 0 SELECT
14482 70 144 85 0 0 0 144 >SINGLE-RECORD BLOCKS JUMP IF A == 0
14483 0 10 12 1 0 0 SELECT
14484 76 144 86 0 0 0 144 OF INTERCODE JUMP unconditional
14482>14485 0 10 10 1 0 0 SELECT
14484>14486 2 148 46 1 0 0 148 'PROCR' SUBTRACT
14487 70 147 2 0 0 0 147 JUMP IF A == 0
14488 1 148 46 1 0 0 148 ADD
14489 2 148 50 1 0 0 148 'CONST' SUBTRACT
14490 70 147 2 0 0 0 147 JUMP IF A == 0
14491 1 148 50 1 0 0 148 ADD
14492 2 148 48 1 0 0 148 'TABLE' SUBTRACT
14493 71 144 80 0 0 0 144 JUMP IF A != 0
14494 76 147 2 0 0 0 147 JUMP unconditional
14500 PROCR 145 145 UNPACK AMEND HEADING, GET TO PROGM START
14502 81 145 2 0 0 0 145 START OF SUBROUTINE
14503 87 27 10 0 0 0 SWITCH ACCORDING TO N
14504 C 145 9 0 0 0 145 >PT
14505 C 145 6 0 0 0 145 >CARDS
14505>14506 50 5 0 0 0 0 UNPACK FIXED FIELD DATA
14507 C 150 10 0 0 0 150
14508 76 145 12 0 0 0 145 JUMP unconditional
14504>14509 124 150 10 0 2 0 150 UNPACK PT select literal and division
14510 124 999 15 1 2 0 modify address of next
14511 128 0 0 3 0 unpack variable field data
14508>14512 4 2 0 0 0 SUITE SELECT
14513 30 0 0 0 2 SHIFT (A) BY QUARTETS
14514 1 4 3 0 0 0 ADD
14515 3 4 2 0 0 0 COPY
14516 5 17 28 0 0 0 PROG ID TRANSFER
14517 4 4 0 0 0 PROG SELECT
14518 5 17 29 0 0 0 TRANSFER
14519 80 138 2 0 0 0 138 >OPEN A1 ENTER SUBROUTINE
14520 80 136 2 0 0 0 136 >CHECK PROG ID, GET TO 'PASSI' BLOCK ENTER SUBROUTINE
14521 82 145 2 0 0 0 145 END OF SUBROUTINE / LEAVE SUBROUTINE
14600 PROCR 146 146 O/P->A2
14602 81 146 2 0 0 0 146 START OF SUBROUTINE
14603 10 0 0 0 7.0000007. SELECT LITERAL
14604 5 8 50 1 0 0 TRANSFER
14605 43 A2 0 0 0 0 OUTPUT
14606 C 8 0 0 0 0
14607 54 8 4 1 0 46 BULK CLEAR
14608 82 146 2 0 0 0 146 END OF SUBROUTINE / LEAVE SUBROUTINE
14700 PROCR 147 147 'TRAMD'RUN-COPY INTERCODE UP TO MIDDLE INDEX
14715>
14494>
14490>
14487>14702 27 1 0 0 0 SELECT
14703 70 147 16 0 0 0 147 JUMP IF A == 0
14704 0 10 4 2 0 0 SELECT
Source image: P1000121.JPG
14705 30 0 0 0 5 SHIFT (A) BY QUARTETS
14706 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
14713>14707 0 10 12 1 1 0 SELECT
14708 2 148 60 1 0 0 148 'END' SUBTRACT
14709 70 147 19 0 0 0 147 >YES JUMP IF A == 0
14710 0 10 6 2 1 0 RECORD LENGTH SELECT
14711 5 146 2 0 0 0 146 TRANSFER
14712 97 146 2 0 1 0 146 STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
14713 C 147 7 0 0 0 147
14718>14714 80 128 2 0 0 0 128 >WRITE/READ ENTER SUBROUTINE
14715 76 147 2 0 0 0 147 JUMP unconditional
14703>14716 0 10 10 1 0 0 SELECT
14717 2 148 60 1 0 0 148 'END' SUBTRACT
14718 71 147 14 0 0 0 147 >NOT YET JUMP IF A != 0
14722>
14709>14719 80 128 2 0 0 0 128 >WRITE/READ/(END SIGNGET TO 'INDEX' ENTER SUBROUTINE
14720 0 10 6 1 0 0 SELECT
14721 2 148 76 1 0 0 148 'INDEX' SUBTRACT
14722 71 147 19 0 0 0 147 >NOT YET JUMP IF A != 0
14723 10 10 2 0 0 SELECT
14724 12 0 0 0 3 SUBTRACT LITERAL
14725 70 147 33 0 0 0 147 JUMP IF A == 0
14726 86 786 2 0 0 0 786 PASS 3 ID SELECT SWITCH R
14727 5 142 2 0 0 0 142 TRANSFER
14728 46 A1 10 0 0 1 RUN BACK
14729 C 142 2 0 0 0 142
14730 80 137 2 0 0 0 137 ENTER SUBROUTINE
14731 10 0 0 0 3 SELECT LITERAL
14732 5 10 10 2 0 0 TRANSFER
14725>14733 80 128 2 0 0 0 128 >WRITE/READ ENTER SUBROUTINE
14741>14734 90 0 0 1 0 DRAIN INDEX DETAILS SET MODIFICATION REGISTER AT LITERAL
14735 C 0 0 0 48
14739>14736 0 10 4 2 1 0 PROG IDENTITY SELECT
14737 2 148 20 0 0 0 148 SUBTRACT
14738 70 147 42 0 0 0 147 >END JUMP IF A == 0
14739 94 147 36 0 1 8 147 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
14740 80 137 2 0 0 0 137 >READ ENTER SUBROUTINE
14741 76 147 34 0 0 0 147 JUMP unconditional
14738>14742 10 0 0 0 1.006 1/1/3 6(R1 NON-ZERO) SELECT LITERAL
14743 3 92 30 0 0 0 SET'AMEND RUN' COPY
14744 3 27 13 0 0 0 SET NONZERO COPY
14745 3 27 11 0 0 0 COPY
14746 5 101 4 0 0 0 101 CHANGE OLAY ORDER TRANSFER
14747 10 0 0 0 2 SELECT LITERAL
14748 5 27 12 0 0 0 SET'PTS NEEDED' TRANSFER
14749 80 134 2 0 0 0 134 RESTORE ASLS ENTER SUBROUTINE
14750 27 9 0 0 0 OFF LINE PRINT? SELECT
14751 70 147 59 0 0 0 147 >PRINTER JUMP IF A == 0
14752 90 0 0 6 0 SET MODIFICATION REGISTER AT LITERAL
14753 C 0 0 0 300
14754 86 787 2 0 0 0 787 A9 OR NOT SELECT SWITCH R
14755 71 147 68 0 0 0 147 >'PRINT'BLOCK JUMP IF A != 0
14756 10 0 0 0 1200000 OPEN MT SELECT LITERAL
14757 34 148 98 1 0 0 148 OFF LINE PRINT? SET (N) IN B
14758 76 147 62 0 0 0 147 JUMP unconditional
14751>14759 27 8 0 0 0 OPEN PRINTER SELECT
14760 11 0 0 0 Ю ADD LITERAL
14761 30 0 0 0 5 SHIFT (A) BY QUARTETS
14758>14762 1 999 7 0 0 0 ADD
14763 125 4096 1 1 0 clear indicators
Source image: P1000122.JPG
14764 124 999 0 0 3 0 modify address of next
14765 123 160 0 2 0 enter master routine
14766 27 9 0 0 0 SELECT
14767 70 125 40 0 0 0 125 >ENTER PASS 4 JUMP IF A == 0
14755>14768 10 0 0 0 6769596573 PRINT' SELECT LITERAL
14769 5 10 4 1 0 0 TRANSFER
14770 10 0 0 0 8000 SELECT LITERAL
14771 5 10 6 2 0 0 TRANSFER
14772 155 0 0 0 0 SELECT PROGRAM SERIAL TO A
14773 5 10 8 1 0 0 TRANSLATOR SERIAL TRANSFER
14774 17 28 0 0 0 PROG ID SELECT
14775 5 10 10 2 0 0 TRANSFER
14776 10 0 0 0 7.0000007. SELECT LITERAL
14777 5 10 12 1 0 0 TRANSFER
14778 10 0 0 0 800000 WRITE A9 HDG BLOCK SELECT LITERAL
14779 34 999 12 0 0 0 SET (N) IN B
14780 125 4096 1 1 0 clear indicators
14781 1 999 7 0 0 0 ADD
14782 124 999 0 0 3 0 modify address of next
14783 123 160 0 2 0 enter master routine
14784 76 125 40 0 0 0 125 >ENTER PASS 4 JUMP unconditional
14800 CONST 148 148 1 CONVERT TABLES
14802 (D)1; BIN>DEC
14804 16;
14806 256;
14808 4096;
14810 65536;
14812 1048576;
14814 16777216;
14816 268435456;
14818 4294967296;
14820 ££££££££££;
14822 1; DEC>BIN
14824 Ю;
14826 64;
14828 3.8;
14830 2710;
14832 186Ю0;
14834 £4240;
14836 989680;
14838 5£5.100;
14840 3‼9Ю+Ю00;
14842 0; WL(A)
14844 (A)PROGM;
14846 (A)PROCR;
14848 (A)TABLE;
14850 (A)CONST;
14852 AMEND;
14854 (A)PASSI;
14856 (A)DUMPS;
14858 (A)FILES;
14860 (A)END ;
14862 (A)INDEX;
14864 FINIS;
14866 (D)0000005.5.; DOUBLE LINE END
14868 (D)3££; BITS 1-10
14870 0524108000;
14872 (A)TRAMD;
14874 (D)6£6£6£6£6£;
Source image: P1000123.JPG
14876 (A)INDEX;
14878 £££££;
14880 2;
14882 CHAIN;
14884 FIEND;
14886 08000;
14888 ALLOC;
14890 ATED ;
14892 EXTRA;
14894 ROUTE;
14896 (D)£8;
14898 (D)0514908000; BITS 4-8
14900 TABLE 149 149 1 TYPE'AMEND'COMMENT
14902 148 86 0 0 2 0 5 0 0 0 0 0 0 08000'
14904 148 52 0 0 2 0 5 0 2 0 0 0 0 AMEND'
14906 4 2 0 0 0 0 5 0 2 0 0 0 0 PROG NO
14908 4 4 0 0 0 0 5 0 1 4 0 0 0 SERIAL NO
14910 148 66 0 0 2 0 2 3 3 0 0 0 1 DOUBLE LINE END
14912 151 2 0 0 2 0 5 0 5 0 0 0 0 & Ю
14914 148 66 0 0 2 0 2 3 3 0 0 0 1 DOUBLE LINE END
14916 148 86 0 0 2 0 5 0 0 0 0 0 0 08000'
14918 148 88 0 0 2 0 5 0 1 0 0 0 0 ALLOC'
14920 148 90 0 0 2 0 5 0 0 0 0 0 0 ATED'
14922 148 92 0 0 2 0 5 0 0 0 0 0 0 EXTRA'
14924 148 94 0 0 2 0 5 0 1 0 0 0 0 ROUTE'
14926 148 42 0 0 0 0 2 3 2 1 0 0 0 CHANNEL
14928 129 2 0 0 0 0 1 4 0 0 0 0 0 ROUTE
14930 148 66 0 0 2 0 2 3 1 0 0 0 1 DOUBLE LE
15000 TABLE 150 150 3 UNPACK PT OR CARD INPUT
15002 4 2 0 0 2 0 5 0 0 0 0 0 0 SER+AMEND DIRECTIVE
15004 4 6 0 0 2 0 5 0 0 0 0 0 0 DIRECTIVE WORD
15006 4 8 0 0 1 0 3 0 0 0 0 0 0 PROCR NUMBER
15008 4 16 0 0 0 0 1 0 0 0 0 0 1 /////TYPE OR(ANNOTATION+TYPE)
15010 4 6 0 0 2 0 5 0 0 0 0 0 0 (AMEND)
15012 4 2 0 0 0 0 3 0 0 0 0 0 0 SUITE
15014 4 3 0 0 0 0 2 0 0 0 0 0 0 JOB
15016 4 4 0 0 0 0 5 0 0 0 0 0 1 SERIAL
15018 4 2 0 0 2 0 5 0 0 0 0 0 0 SERIAL
15020 4 4 0 0 2 0 5 0 0 0 0 0 0 DIRECTIVE LETER
15022 4 6 0 0 2 0 5 0 0 0 0 0 0 DIRECTIVE WORD
15024 4 8 0 0 1 0 3 0 0 0 0 0 0 PROCR NUMBER
15026 4 16 0 0 0 0 1 0 0 0 0 0 1 TYPE
15100 CONST 151 151 1
15102 (A)+ PTS;
15104 ;
15106 ;
15108 ;
15110 ;
15112 ;
15114 ;
15116 ;
15118 ;
15120 ;
15122 ;
15124 ;
15126 ;
15128 ;
Source image: P1000124.JPG
15130 ;
15132 ;
15134 ;
15136 ;
15138 ;
15140 ;
15142 ;
15144 ;
15146 ;
15148 ;
15150 ;
15152 ;
15154 ;
15156 ;
15158 ;
15160 ;
15162 ;
15164 ;
15166 ;
15168 ;
15170 ;
15172 ;
15174 ;
15176 ;
15178 ;
15180 ;
15182 ;
15184 ;
15186 ;
15188 ;
15190 ;
15192 ;
15194 ;
15196 ;
15198 ;
15200 PROCR 152 152 START OF PASS 1
15201 NOTES 152 SELECT
32446>
32473>
32478>
32480>15202 152 152 4 0 0 0 152 CALL/ENTER PASS 2 OVERLAY
15203 C 327 6 0 0 0 327 (OVERLAY THE OLAY ORDER)
15204 62 0 0 0 0 SET EXCESS CONSTANTS
15205 54 25 0 1 0 42 CLEAR TRACE SECN BULK CLEAR
15206 27 10 0 0 0 SELECT
15207 12 0 0 0 1 SUBTRACT LITERAL
15208 70 152 12 0 0 0 152 >B1 IS PT JUMP IF A == 0
15209 326 8 0 0 0 326 28/0/2 SELECT
15210 5 326 4 0 0 0 326 SET 'UNPACK FIXED' TRANSFER
15211 76 152 17 0 0 0 152 JUMP unconditional
15208>15212 101 512 0 1 0 Q10 prepare for digit collation
15213 33 0 0 0 3 SHIFT (AB) BY BITS
15214 10 0 0 0 0 SELECT LITERAL
15215 37 312 8 1 0 0 312 CLEAR BIT 40 REPLACE SELECTED BITS
15216 37 312 14 1 0 0 312 DO. REPLACE SELECTED BITS
15211>15217 326 6 0 0 0 326 SELECT
15218 3 23 46 0 0 0 SET 'PRINT PASS 2' COPY
15219 5 326 3 0 0 0 326 TRANSFER
15220 54 1 0 1 0 46 BULK CLEAR
Source image: P1000125.JPG
15221 83 100 2 0 0 1 100 SET 'PRINT PASS 3' SET SWITCH(ES) AT LITERAL VALUE
15222 5 27 6 0 0 0 CLEAR 'PT OMITTED' TRANSFER
15223 84 511 2 0 0 0 511 SET SWITCH(ES) AT VARIABLE VALUE
15224 84 514 2 0 0 0 514 SET SWITCH(ES) AT VARIABLE VALUE
15225 5 27 4 0 0 0 TRANSFER
15226 83 252 2 0 0 5 252 AMEND DIRECTIVE SWITCH SET SWITCH(ES) AT LITERAL VALUE
15227 95 0 0 1 0 SELECT MODIFICATION REGISTER
15228 70 157 2 0 0 0 157 >COMPILER DIDN'T CALL TRAMSLATOR JUMP IF A == 0
15229 3 1 0 1 0 0 COPY
15230 54 27 0 1 0 20 BULK CLEAR
15231 96 0 0 3 0 MOD ONLY A9 IND SELECT MODIFIER
15232 3 27 9 0 0 0 SET IND COPY
15233 10 0 0 0 70000 SELECT LITERAL
15234 3 27 0 0 0 0 SET 'MULTI RECORD' COPY
15235 3 27 4 0 0 0 SET'COMPILER' COPY
15236 5 27 1 0 0 0 SET 'ISSUE 7 O/P' TRANSFER
15237 54 72 0 1 0 888 BULK CLEAR
15238 34 1 1 0 0 0 SET (N) IN B
15239 36 320 22 0 0 0 320 1 COLLATE AND ADD
15240 70 152 42 0 0 0 152 JUMP IF A == 0
15241 83 100 2 0 0 2 100 SET 'DONT PRINT' SET SWITCH(ES) AT LITERAL VALUE
15240>15242 36 318 2 0 0 0 318 BIT 2 COLLATE AND ADD
15243 12 0 0 0 2 SUBTRACT LITERAL
15244 5 23 46 0 0 0 INHIBIT PRINT TRANSFER
15245 36 318 10 0 0 0 318 BIT 3='PTS NEEDED' COLLATE AND ADD
15246 12 0 0 0 4 SUBTRACT LITERAL
15247 70 152 50 0 0 0 152 >NO JUMP IF A == 0
15248 10 0 0 0 2 SELECT LITERAL
15249 5 27 12 0 0 0 TRANSFER
15247>15250 36 318 7 0 0 0 318 BIT 4='CLEO TRAMD'IF NON-ZERO COLLATE AND ADD
15251 5 27 2 0 0 0 SET'PSEUDO-ISSUE 5' TRANSFER
15252 101 450 1 3 0 select literal address
15253 30 0 0 0 5 SHIFT (A) BY QUARTETS
15254 1 1 0 0 0 0 DATA START ADD
15255 124 999 1 0 3 0 modify address of next
15256 128 18 0 1 1 0 bulk copy long numeric
15257 5 153 2 0 0 0 153 TRANSFER
15258 90 0 0 3 0 CALC COMPILER'S HIGHEST PROCR SET MODIFICATION REGISTER AT LITERAL
15259 C 0 0 0 450
15272>15260 34 18 0 0 3 0 SET (N) IN B
15261 32 0 0 0 7 SHIFT (AB) BY QUARTETS
15262 33 0 0 0 2 SHIFT (AB) BY BITS
15263 2 153 2 0 0 0 153 SUBTRACT
15264 73 152 66 0 0 0 152 JUMP IF A < 0
15265 4 153 2 0 0 0 153 UPDATE AUGMENT
15264>15266 10 0 0 0 0 SELECT LITERAL
15267 33 0 0 0 10 SHIFT (AB) BY BITS
15268 2 153 2 0 0 0 153 SUBTRACT
15269 73 152 71 0 0 0 152 JUMP IF A < 0
15270 4 153 2 0 0 0 153 UPDATE AUGMENT
15269>15271 10 0 0 0 0 SELECT LITERAL
15272 94 152 60 0 3 1 152 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
15273 153 2 0 0 0 153 SELECT
15274 11 0 0 0 1 ADD LITERAL
15275 5 18 1055 0 0 0 (HIGHEST C/FWD PROCR+1)IN BINARY TRANSFER
15276 54 18 450 1 0 596 BULK CLEAR
15277 95 0 0 2 0 SELECT MODIFICATION REGISTER
15278 5 1 0 1 0 0 PROG ID+SERIAL TRANSFER
15279 125 4096 1 1 0 clear indicators
15280 123 153 2 0 2 0 153 >SET ASL'S+GUARD WORDS enter master routine
Source image: P1000126.JPG
15281 76 156 2 0 0 0 156 JUMP unconditional
15300 PROCR 153 153 SET UP TAGS 15 WORDS FOR TX AREAS, AND FILES IN CHAP 3
15302 81 153 2 0 0 0 153 LINK START OF SUBROUTINE
15303 10 0 0 0 SELECT LITERAL
15304 124 317 92 0 3 0 317 modify address of next
15305 123 56 1 0 0 SEC 5 copy into tag
15306 124 317 92 0 3 0 317 modify address of next
15307 123 210 1 0 0 SEC 7 copy into tag
15308 124 317 92 0 3 0 317 modify address of next
15309 123 364 1 0 0 SEC 8 copy into tag
15310 124 317 92 0 3 0 317 modify address of next
15311 123 518 1 0 0 SEC 9 copy into tag
15312 124 317 92 0 3 0 317 modify address of next
15313 123 576 1 0 0 B1 copy into tag
15314 124 317 92 0 3 0 317 modify address of next
15315 123 730 1 0 0 A1 copy into tag
15316 124 317 92 0 3 0 317 modify address of next
15317 123 884 1 0 0 A2 copy into tag
15318 124 317 92 0 3 0 317 modify address of next
15319 123 1038 1 0 0 A6 copy into tag
15400 PROCR 154 154 SET UP ASL'S FOR TX AREAS, AND FILES IN CHAP 3
15402 123 317 2 0 3 0 317 PROG TAG select tag
15403 30 0 0 0 4 SHIFT (A) BY QUARTETS
15404 4 317 92 0 0 0 317 AUGMENT
15405 317 92 0 0 0 317 ABS START SELECT
15406 124 999 14 1 2 0 SEC 5 modify address of next
15407 103 64 0 0 0 copy (A) to N
15408 101 58 1 1 0 add literal address
15409 124 999 16 1 2 0 SEC 7 modify address of next
15410 103 64 0 0 0 copy (A) to N
15411 101 154 1 1 0 add literal address
15412 124 999 18 1 2 0 SEC 8 modify address of next
15413 103 64 0 0 0 copy (A) to N
15414 101 154 1 1 0 add literal address
15415 124 999 20 1 2 0 SEC 9 modify address of next
15416 103 64 0 0 0 copy (A) to N
15417 101 154 1 1 0 add literal address
15418 124 999 8 0 3 0 B1 modify address of next
15419 103 64 0 0 0 copy (A) to N
15420 101 58 1 1 0 add literal address
15421 124 999 9 0 3 0 A1 modify address of next
15422 103 64 0 0 0 copy (A) to N
15423 101 154 1 1 0 add literal address
15424 124 999 10 0 3 0 A2 modify address of next
15425 103 64 0 0 0 copy (A) to N
15426 101 154 1 1 0 add literal address
15427 124 999 11 0 3 0 A6 modify address of next
15428 102 64 0 0 0 transfer (A) to N
15500 PROCR 155 155 SET UP ASL'S FOR FILES
15502 124 999 5 0 3 0 modify address of next
15503 106 34 0 0 0 PRINTER ROUTE ENTRY SPECIAL CHAPTER select (N)
15504 30 0 0 0 4- SHIFT (A) BY QUARTETS
15505 5 27 8 0 0 0 TRANSFER
15506 35 0 0 0 1111 Q1-4 PREPARE FOR DIGIT COLLATION
15507 999 5 0 0 0 15-BIT START SPECIAL CHAP SELECT
15508 101 204 1 1 0 add literal address
15509 124 999 12 1 2 0 SEC 10 modify address of next
Source image: P1000127.JPG
15510 114 64 0 0 0 replace selected bits
15511 999 5 0 0 0 SELECT
15512 101 598 1 1 0 394+204 add literal address
15513 124 999 7 1 2 0 modify address of next
15514 114 64 0 0 0 replace selected bits
15515 10 0 0 0 SELECT LITERAL
15516 124 999 5 0 3 0 SPECIAL CHAP 15-BIT START modify address of next
15517 123 596 1 0 0 copy into tag
15518 124 999 5 0 3 0 modify address of next
15519 123 990 1 0 0 204+392+394=D1 copy into tag
15520 126 153 2 0 3 0 153 >EXIT leave master routine
15600 PROCR 156 156 TIDY UP FOR COMPILER
15281>15602 54 12 0 1 0 120 BULK CLEAR
15603 0 1 0 1 0 0 SELECT
15604 5 12 0 1 0 0 TRANSFER
15605 40 A1 0 0 0 1 OPEN FILE
15609>15606 80 291 2 0 0 0 291 >READ ENTER SUBROUTINE
15607 0 7 10 1 0 0 SELECT
15608 2 181 20 1 0 0 181 'PASS1' SUBTRACT
15609 71 156 6 0 0 0 156 >NOT YET JUMP IF A != 0
15610 10 0 0 0 1 SELECT LITERAL
15611 3 92 30 0 0 0 COPY
15612 5 12 8 0 0 0 TRANSFER
15613 319 14 1 0 0 319 'END ' SELECT
15614 5 9 4 1 0 0 SET END SIGN TRANSFER
15615 76 158 3 0 0 0 158 >ENTER PASS 1 (SIC) JUMP unconditional
15700 PROCR 157 157 TEST INITIAL RUN
15701 NOTES RADIX SELECT
15228>15702 40 A6 0 0 0 1 OPEN FILE
15703 54 12 0 1 0 120 BULK CLEAR
15704 10 0 0 0 6700 SELECT LITERAL
15705 5 12 3 0 0 0 ERROR LETTER'P' TRANSFER
15706 80 292 2 0 0 0 292 >READ FIRST BLOCK ENTER SUBROUTINE
15707 124 179 2 0 2 0 179 select literal and division
15708 80 326 2 0 0 0 326 >UNPACK BLOCK ENTER SUBROUTINE
15709 60 0 0 0 0 SET DECIMAL RADIX
15710 1 2 1 0 0 TESTTHIS IS AN SELECT
15711 2 181 16 1 0 0 181 'AMEND' SUBTRACT
15712 70 157 20 0 0 0 157 JUMP IF A == 0
15713 80 297 2 0 0 0 297 >ANNOTATION IF CARD ENTER SUBROUTINE
15714 80 176 2 0 0 0 176 >CHECK PROGM BLOC ENTER SUBROUTINE
15715 10 0 0 0 2 SELECT LITERAL
15716 3 12 33 0 0 0 SET'PT INPUT' COPY
15717 5 27 12 0 0 0 SET'PTS NEEDED' TRANSFER
15718 5 1 8 1 0 0 ENSURE FIRST SERIAL=0,INITIAL TRANSLATIOTRANSFER
15719 76 160 2 0 0 0 160 JUMP unconditional
15712>15720 5 1 16 1 0 0 CLEAR FOR INDS TRANSFER
15721 5 1 18 1 0 0 TRANSFER
15722 124 179 38 0 2 0 179 select literal and division
15723 80 326 2 0 0 0 326 >UNPACK 'AMEND' BLOCK AGAIN ENTER SUBROUTINE
15724 10 0 0 0 0 SELECT LITERAL
15725 34 1 16 0 0 0 PRINT INDS SET (N) IN B
15726 36 318 2 0 0 0 318 BIT 2 COLLATE AND ADD
15727 5 23 46 0 0 0 TRANSFER
15728 87 27 10 0 0 0 SWITCH ACCORDING TO N
15729 C 157 34 0 0 0 157 >PT
15730 C 157 31 0 0 0 157 >CARDS
15730>15731 1 18 1 0 0 SELECT
Source image: P1000128.JPG
15732 12 0 0 0 73 SUBTRACT LITERAL
15733 76 157 36 0 0 0 157 JUMP unconditional
15729>15734 1 20 1 0 0 SELECT
15735 12 0 0 0 7300000000 SUBTRACT LITERAL
15733>15736 71 157 39 0 0 0 157 JUMP IF A != 0
15737 10 0 0 0 2 SELECT LITERAL
15738 76 157 40 0 0 0 157 JUMP unconditional
15736>15739 10 0 0 0 0 SELECT LITERAL
15738>15740 5 27 12 0 0 0 0/2=PTS NO/YES TRANSFER
15741 27 0 0 0 0 SELECT
15742 71 157 46 0 0 0 157 >ISSUE 6 O/P JUMP IF A != 0
15743 1 16 0 0 0 SELECT
15744 12 0 0 0 4 SUBTRACT LITERAL
15745 5 23 46 0 0 0 PRINT ISSUE5 O/P TRANSFER
15742>15746 10 0 0 0 2- SELECT LITERAL
15747 36 320 2 0 0 0 320 BIT 1 COLLATE AND ADD
15748 84 100 2 0 0 0 100 SET AT 1 OR 2 SET SWITCH(ES) AT VARIABLE VALUE
15749 0 1 17 0 0 0 CHANGE TO ISSUE? SELECT
15750 5 197 2 0 0 0 197 SR LINK TRANSFER
15751 80 297 2 0 0 0 297 >ANNOTATION IF CARD ENTER SUBROUTINE
15752 71 157 57 0 0 0 157 >NOT CARD JUMP IF A != 0
15753 0 1 8 1 0 0 RE-FORM ISSUE+SERIAL IN 18' SELECT
15754 30 0 0 0 6 SHIFT (A) BY QUARTETS
15755 1 1 20 1 0 0 CARD SERIAL ADD
15756 5 1 8 1 0 0 TRANSFER
15752>15757 0 1 4 0 0 0 SUITE SELECT
15758 30 0 0 0 2 SHIFT (A) BY QUARTETS
15759 1 1 6 0 0 0 ADD
15760 5 12 0 0 0 0 TRANSFER
15761 34 1 8 1 0 0 SET (N) IN B
15762 80 321 2 0 0 0 321 RIGHT ALIGN ENTER SUBROUTINE
15763 0 12 88 2 0 0 SELECT
15764 5 12 1 0 0 0 TRANSFER
15765 10 0 0 0 1 SET'AMEND RUN' SELECT LITERAL
15766 3 92 30 0 0 0 COPY
15767 5 12 8 0 0 0 TRANSFER
15800 PROCR 158 158
15801 NOTES RADIX SELECT
15802 80 292 2 0 0 0 292 >READ PT ENTER SUBROUTINE
15615>15803 54 1 0 0 0 46 BULK CLEAR
15807>15804 80 291 2 0 0 0 291 >READ MT ENTER SUBROUTINE
15805 0 7 6 1 0 0 SELECT
15806 2 181 12 1 0 0 181 PROGM' SUBTRACT
15807 71 158 4 0 0 0 158 >GET TO IT JUMP IF A != 0
15808 9 4 1 0 0 SELECT
15809 2 181 12 1 0 0 181 PROGM' SUBTRACT
15810 70 159 2 0 0 0 159 ='PROGM' BLOCK IS AMENDED JUMP IF A == 0
15811 50 7 4 0 0 0 UNPACK FIXED FIELD DATA
15812 C 175 32 0 0 0 175
15813 55 7 20 1 0 30 COPY ANNOTATION BULK COPY
15814 C 1 16 1 0 0
15912>15815 60 0 0 0 0 SET DECIMAL RADIX
15816 10 0 0 0 1 AUGMENT PROG SERIAL SELECT LITERAL
15817 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
15818 36 1 8 2 0 0 COLLATE AND ADD
15819 37 1 8 2 0 0 NO CARRY AFTER 99 REPLACE SELECTED BITS
15820 76 160 2 0 0 0 160 JUMP unconditional
15900 PROCR 159 159 INPUT AMENDMENTS TO PRGRAM
Source image: P1000129.JPG
15901 NOTES RADIX SELECT
15810>15902 124 179 2 0 2 0 179 select literal and division
15903 80 326 2 0 0 0 326 >UNPACK NEW 'PROGM' BLOCK ENTER SUBROUTINE
15904 80 297 2 0 0 0 297 >WORDS IF CARDS ENTER SUBROUTINE
15905 0 12 1 0 0 0 SELECT
15906 3 1 8 2 0 0 COPY
15907 11 0 0 0 1 ADD LITERAL
15908 30 0 0 0 2 SHIFT (A) BY QUARTETS
15909 5 1 0 0 0 0 TRANSFER
15910 5 12 8 0 0 0 SET PAPER TAPE INPUT INDICATOR TRANSFER
15911 80 176 2 0 0 0 176 >CHECK 'PROGM' BLOCK ENTER SUBROUTINE
15912 76 158 15 0 0 0 158 >UPDATE SERIAL JUMP unconditional
16000 PROCR 160 160 OPEN O/P FILE WRITE INDEX BLOX+'PASSI' BLOCK+'PROGM' BLOCK
16001 NOTES 160 SELECT
15820>
15719>16002 54 8 4 0 0 46 BULK CLEAR
16003 27 4 0 0 0 COMPILER? SELECT
16004 70 160 9 0 0 0 160 >NORMAL JUMP IF A == 0
16005 48 A2 0 0 0 3 BACK 0 I/P+O/P STEP BACK
16006 C 999 0 0 0 0
16007 10 0 0 0 0 (ZERO SPOOL NUMBER) SELECT LITERAL
16008 76 160 11 0 0 0 160 > JUMP unconditional
16004>16009 40 A2 0 0 0 0 OPEN FILE OPEN FILE
16010 32 0 0 0 10 SHIFT (AB) BY QUARTETS
16008>16011 84 153 2 0 0 0 153 SPOOL NUMBER+WL SET SWITCH(ES) AT VARIABLE VALUE
16012 80 289 2 0 0 0 289 ENTER SUBROUTINE
16013 80 289 2 0 0 0 289 >2 BLANKS ENTER SUBROUTINE
16014 55 319 30 1 0 10 319 BULK COPY
16015 C 8 4 1 0 0
16016 80 289 2 0 0 0 289 ENTER SUBROUTINE
16017 1 4 0 0 0 SUITE SELECT
16018 30 0 0 0 2 SHIFT (A) BY QUARTETS
16019 1 1 6 0 0 0 ADD
16020 3 12 32 0 0 0 WL=PROG IDENTITY COPY
16021 3 8 4 2 0 0 COPY
16022 3 8 12 2 0 0 COPY
16023 0 1 8 2 0 0 PROGRAM SERIAL SELECT
16024 5 12 1 0 0 0 WL TRANSFER
16025 0 197 2 0 0 0 197 NEW ISSUE WL SELECT
16026 70 160 30 0 0 0 160 >NO CHANGE JUMP IF A == 0
16027 30 0 0 0 2 SHIFT (A) BY QUARTETS
16028 35 0 0 0 11100 PREPARE FOR DIGIT COLLATION
16029 37 12 1 0 0 0 REPLACE EXISTING ISSUE REPLACE SELECTED BITS
16026>16030 52 1 8 0 0 0 EDIT
16031 C 175 30 0 0 0 175 RESTORE TD 1/8 WITH SIG ZEROS
16032 0 1 8 1 0 0 SELECT
16033 3 8 6 1 0 0 COPY
16034 5 8 14 1 0 0 TRANSFER
16035 10 0 0 0 2 INTERCODE IDENTIFIER SELECT LITERAL
16036 5 8 10 2 0 0 TRANSFER
16037 10 0 0 0 3 MACHINE CODE IDENTIFIER SELECT LITERAL
16038 3 8 18 2 0 0 COPY
16039 10 0 0 0 2 SELECT LITERAL
16040 1 27 12 0 0 0 0 OR 2 ADD
16041 5 8 16 2 0 0 TRANSFER
16042 319 30 2 0 0 319 SELECT
16043 5 8 20 2 0 0 TRANSFER
16044 80 289 2 0 0 0 289 ENTER SUBROUTINE
16045 12 32 0 0 0 SELECT
Source image: P1000130.JPG
16046 5 8 4 2 0 0 PROG IDENTITY TRANSFER
16047 1 8 1 0 0 SELECT
16048 5 8 6 1 0 0 PROG SERIAL TRANSFER
16049 10 0 0 0 SELECT LITERAL
16050 5 8 8 2 0 0 TRANSFER
16051 181 20 1 0 0 181 PASSI' SELECT
16052 5 8 10 1 0 0 TRANSFER
16053 0 27 4 0 0 0 NON-ZERO IF COMPILER SELECT
16054 3 8 14 2 0 0 SET 'PSEUDO ISSUE 5' COPY
16055 71 160 58 0 0 0 160 JUMP IF A != 0
16056 155 0 0 0 0 PROG SERIAL SELECT PROGRAM SERIAL TO A
16057 3 8 12 1 0 0 ISSUE 6' ND COPY
16055>16058 5 8 16 2 0 0 SET 'MULTI RECORD' TRANSFER
16059 80 289 2 0 0 0 289 ENTER SUBROUTINE
16060 18 1055 0 0 0 SELECT
16061 5 319 23 0 0 0 319 TRANSFER
16062 27 4 0 0 0 SELECT
16063 71 160 70 0 0 0 160 >COMPILER O/P JUMP IF A != 0
16064 55 18 1010 0 0 23 FIRST PROCR LENGTH DETAILS BLOCK BULK COPY
16065 C 8 4 2 0 0 A6
16066 80 289 2 0 0 0 289 ENTER SUBROUTINE
16067 55 18 1033 0 0 23 SECOND PROCR LENGTH DETAILS BLOCK BULK COPY
16068 C 8 4 2 0 0
16069 80 289 2 0 0 0 289 ENTER SUBROUTINE
16063>16070 52 8 4 0 0 0 EDIT
16071 C 175 32 0 0 0 175
16072 55 1 16 1 0 30 COPY ANNOTATION BULK COPY
16073 C 8 20 1 0 0
16074 80 289 2 0 0 0 289 ENTER SUBROUTINE
16075 0 317 89 0 0 0 317 ABS ADDRESS 18:2496 SELECT
16076 5 92 9 0 0 0 TRANSFER
16077 60 0 0 0 0 SET DECIMAL RADIX
16100 PROCR 161 161 DEAL WITH UNAMENDED ENTRY, FILES, CHAP STARTS
16101 NOTES 161 SELECT
16102 12 8 0 0 0 SELECT
16103 70 162 2 0 0 0 162 > FILES REPLACED EX PT JUMP IF A == 0
16104 80 291 2 0 0 0 291 > READ 'ENTRY' EX MT ENTER SUBROUTINE
16105 10 0 0 0 0 SELECT LITERAL
16106 5 7 46 1 0 0 CLEAR REPORT WORDS TRANSFER
16107 5 7 48 1 0 0 TRANSFER
16108 5 12 33 0 0 0 SET 'MT INPUT' TRANSFER
16109 7 8 2 0 0 SELECT
16110 80 200 2 0 0 0 200 > REPLACE PROCR ENTER SUBROUTINE
16111 C 178 2 0 0 0 178
16112 71 161 16 0 0 0 161 > OK JUMP IF A != 0
16113 319 40 1 0 0 319 ????R' SELECT
16114 5 7 48 1 0 0 TRANSFER
16115 76 161 17 0 0 0 161 > USE OLD VALUE JUMP unconditional
16112>16116 5 7 8 2 0 0 TRANSFER
16132>
16115>16117 80 171 2 0 0 0 171 > WRITE ENTER SUBROUTINE
16118 80 291 2 0 0 0 291 > READ ENTER SUBROUTINE
16119 7 6 1 0 0 SELECT
16120 2 181 18 1 0 0 181 CHAPS SUBTRACT
16121 70 161 33 0 0 0 161 > YES JUMP IF A == 0
16122 0 7 8 2 0 0 ROUTE TYPE SELECT
16123 80 245 2 0 0 0 245 > TO BIN ENTER SUBROUTINE
16124 33 0 0 0 2- SHIFT (AB) BY BITS
16125 1 7 7 0 0 0 FILE ID ADD
Source image: P1000131.JPG
16126 33 0 0 0 18- SHIFT (AB) BY BITS
16127 7 46 1 0 0 SELECT
16128 80 164 2 0 0 0 164 >STORE FILE DETAILS ENTER SUBROUTINE
16129 71 161 32 0 0 0 161 >LIST NOT FULL JUMP IF A != 0
16130 319 26 1 0 0 319 SET 'IGNORE' SELECT
16131 5 7 46 1 0 0 TRANSFER
16129>16132 76 161 17 0 0 0 161 >WRITE JUMP unconditional
16257>
16121>16133 9 4 1 0 0 SELECT
16134 2 181 18 1 0 0 181 'CHAPS' SUBTRACT
16135 70 165 2 0 0 0 165 >PT & MT BOTH AT 'CHAPS' JUMP IF A == 0
16136 55 7 8 2 0 30 BULK COPY
16137 C 12 13 0 0 0 MT 'CHAPS' UNAMENDED
16138 5 12 33 0 0 0 SET 'MT INPUT' TRANSFER
16139 12 13 0 0 0 NUMBER OF CHAPS SELECT
16140 80 245 2 0 0 0 245 >TO BIN ENTER SUBROUTINE
16141 5 12 13 0 0 0 TRANSFER
16142 91 12 12 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
16151>16143 12 14 0 2 0 START SELECT
16144 80 200 2 0 0 0 200 >REPLACE PROCR ENTER SUBROUTINE
16145 C 178 2 0 0 0 178
16146 71 161 50 0 0 0 161 >OK JUMP IF A != 0
16147 319 40 1 0 0 319 '????R' SELECT
16148 5 8 48 1 0 0 TRANSFER
16149 76 161 51 0 0 0 161 >USE OLD VALUE JUMP unconditional
16146>16150 5 12 14 0 2 0 TRANSFER
16149>16151 94 161 43 0 2 1 161 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
16152 55 12 14 0 0 14 BULK COPY
16153 C 7 10 2 0 0
16154 55 7 4 1 0 34 COPY ANNEXES BULK COPY
16155 C 8 4 1 0 0
16156 76 165 51 0 0 0 165 >TO TEST 'STORE' JUMP unconditional
16200 PROCR 162 162 DEAL WITH PT INPUT FOR ENTRY FILES
16201 NOTES 162 SELECT
16103>16202 54 1 0 1 0 46 BULK CLEAR
16203 80 292 2 0 0 0 292 >RAD PT ENTER SUBROUTINE
16204 124 179 2 0 2 0 179 select literal and division
16205 80 326 2 0 0 0 326 >UNPACK ENTER SUBROUTINE
16206 80 297 2 0 0 0 297 >COPY ANNOTATION FOR CARDS ENTER SUBROUTINE
16207 10 0 0 0 5500 SELECT LITERAL
16208 5 12 3 0 0 0 LETTER E FOR REPORTS TRANSFER
16209 1 2 1 0 0 CHECK 'ENTRY' SELECT
16210 2 181 14 1 0 0 181 'ENTRY' SUBTRACT
16211 70 162 14 0 0 0 162 >OK JUMP IF A == 0
16212 10 0 0 0 1 SELECT LITERAL
16213 80 177 2 0 0 0 177 >REPORT *E1 ENTER SUBROUTINE
16211>16214 1 4 0 0 0 ENTRY PROCR SELECT
16215 12 0 0 0 100 SUBTRACT LITERAL
16216 73 162 19 0 0 0 162 >WRONG JUMP IF A < 0
16217 12 0 0 0 899 SUBTRACT LITERAL
16218 73 162 22 0 0 0 162 >OK JUMP IF A < 0
16216>16219 10 0 0 0 2 SELECT LITERAL
16220 80 177 2 0 0 0 177 >REPORT *E2 ENTER SUBROUTINE
16221 80 295 2 0 0 0 295 IGNORE ENTER SUBROUTINE
16218>16222 10 0 0 0 1 SELECT LITERAL
16223 5 12 33 0 0 0 SET 'PT INPUT' TRANSFER
16224 1 4 0 0 0 SELECT
16225 80 200 2 0 0 0 200 REPLACE PROCR ENTER SUBROUTINE
16226 C 178 2 0 0 0 178
Source image: P1000132.JPG
16227 71 162 31 0 0 0 162 >OK JUMP IF A != 0
16228 319 40 1 0 0 319 '????R' SELECT
16229 5 1 44 1 0 0 TRANSFER
16230 76 162 32 0 0 0 162 JUMP unconditional
16227>16231 5 1 4 0 0 0 NEW PROCR TRANSFER
16230>16232 1 6 1 0 0 PRIORITY CLASS SELECT
16233 12 0 0 0 1 SUBTRACT LITERAL
16234 73 162 37 0 0 0 162 >WRONG JUMP IF A < 0
16235 12 0 0 0 4 SUBTRACT LITERAL
16236 73 162 40 0 0 0 162 >OK JUMP IF A < 0
16234>16237 10 0 0 0 3 SELECT LITERAL
16238 80 177 2 0 0 0 177 >REPORT*E3 ENTER SUBROUTINE
16239 80 295 2 0 0 0 295 IGNORE ENTER SUBROUTINE
16236>16240 52 8 4 0 0 0 EDIT
16241 C 175 32 0 0 0 175
16242 55 1 16 1 0 30 ANNOTATION BULK COPY
16243 C 8 20 1 0 0
16244 80 289 2 0 0 0 289 >WRITE ENTER SUBROUTINE
16398>16245 80 292 2 0 0 0 292 >READ PT TESTS FOR END OF ENTER SUBROUTINE
16246 92 30 0 0 0 PT FILE DETAILS SELECT
16247 70 162 58 0 0 0 162 >INITIAL TRANSLATION JUMP IF A == 0
16248 80 294 2 0 0 0 294 >TEST PT AT AMEND DIRECTIVE ENTER SUBROUTINE
16249 71 162 53 0 0 0 162 >YES JUMP IF A != 0
16250 9 4 1 0 0 SELECT
16251 2 181 18 1 0 0 181 'CHAPS' SUBTRACT
16252 71 162 73 0 0 0 162 >ASSUME ANOTHER FILE EX PT JUMP IF A != 0
16256>
16249>16253 80 291 2 0 0 0 291 >READ MT ENTER SUBROUTINE
16254 7 6 1 0 0 IGNORE MT FILES SELECT
16255 2 181 18 1 0 0 181 'CHAPS' SUBTRACT
16256 71 162 53 0 0 0 162 >READ/IGNORE MT FILES->PROCESS MT CHAPS JUMP IF A != 0
16257 76 161 33 0 0 0 161 >PROCESS MT CHAPS JUMP unconditional
16247>16258 9 4 1 0 0 SELECT
16259 2 181 18 1 0 0 181 'CHAPS' SUBTRACT
16260 70 165 2 0 0 0 165 >END OF FILE DETAILS EX PT JUMP IF A == 0
16261 9 4 1 0 0 SELECT
16262 30 0 0 0 4- SHIFT (A) BY QUARTETS
16263 30 0 0 0 4 SHIFT (A) BY QUARTETS
16264 2 319 14 1 0 0 319 'END ' SUBTRACT
16265 71 162 73 0 0 0 162 JUMP IF A != 0
16266 10 0 0 0 900000 SELECT LITERAL
16267 1 27 9 0 0 0 ADD
16268 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
16269 150 0 0 0 1 END' BEFORE 'CHAPS'ALARM*01 OFFER OPTIONS
16270 C 162 72 0 0 0 162 >UNLOAD
16271 C 100 2 0 0 0 100 >RE-ENTER
16270>16272 151 0 0 0 0 UNLOAD PROGRAMME
16265>
16252>16273 54 1 0 1 0 46 BULK CLEAR
16274 5 12 2 0 0 0 CLEAR CTR TRANSFER
16275 124 179 12 0 2 0 179 select literal and division
16276 80 326 2 0 0 0 326 >UNPACK FILE DETAILS ENTER SUBROUTINE
16277 80 297 2 0 0 0 297 >UNPACK CARD ANNOTATION ENTER SUBROUTINE
16300 PROCR 163 163 CHECK/STORE/OUTPUT FILR DETAILS EX PT
16301 NOTES 163 SELECT
16302 10 0 0 0 5600 SELECT LITERAL
16303 5 12 3 0 0 0 ERROR LETER F TRANSFER
16304 34 1 2 1 0 0 FILE IDENTITY SET (N) IN B
16305 80 300 2 0 0 0 300 >L-ALIGN IN A ENTER SUBROUTINE
Source image: P1000133.JPG
16306 3 1 2 1 0 0 COPY
16307 32 0 0 0 9- SHIFT (AB) BY QUARTETS
16308 12 0 0 0 5 CONTROL OF ALPHA PART SUBTRACT LITERAL
16309 73 163 24 0 0 0 163 >REPORT JUMP IF A < 0
16310 10 0 0 0 0 SELECT LITERAL
16311 32 0 0 0 1 BASIC OF ALPHA PART SHIFT (AB) BY QUARTETS
16312 12 0 0 0 Ю SUBTRACT LITERAL
16313 72 163 24 0 0 0 163 >REPORT JUMP IF A >= 0
16314 10 0 0 0 0 SELECT LITERAL
16315 32 0 0 0 2 NUMERIC PART SHIFT (AB) BY QUARTETS
16316 12 0 0 0 30 SUBTRACT LITERAL
16317 70 163 22 0 0 0 163 >OK JUMP IF A == 0
16318 12 0 0 0 11 SUBTRACT LITERAL
16319 73 163 24 0 0 0 163 >REPORT JUMP IF A < 0
16320 12 0 0 0 9 SUBTRACT LITERAL
16321 72 163 24 0 0 0 163 >REPORT JUMP IF A >= 0
16317>16322 10 0 0 0 0 SELECT LITERAL
16323 74 163 26 0 0 0 163 >OK JUMP IF AB == 0 // 27, 1, 0
16321>
16319>
16313>
16309>16324 10 0 0 0 1 SELECT LITERAL
16325 80 177 2 0 0 0 177 >REPORT*F1 ENTER SUBROUTINE
16323>16326 1 4 1 0 0 ROUTE TYPE SELECT
16327 12 0 0 0 1 SUBTRACT LITERAL
16328 73 163 62 0 0 0 163 >IGNORE JUMP IF A < 0
16329 12 0 0 0 2 SUBTRACT LITERAL
16330 71 163 33 0 0 0 163 >NOT 3. DEC CARD O/P JUMP IF A != 0
16331 10 0 0 0 26 SELECT LITERAL
16332 76 163 60 0 0 0 163 >SET BLOCK LENGTH JUMP unconditional
16330>16333 12 0 0 0 1 SUBTRACT LITERAL
16334 70 163 51 0 0 0 163 >GP PRINTER JUMP IF A == 0
16335 12 0 0 0 15 SUBTRACT LITERAL
16336 70 163 51 0 0 0 163 >RT 19 JUMP IF A == 0
16337 12 0 0 0 1 SUBTRACT LITERAL
16338 70 163 70 0 0 0 163 > OUT, IF RT20 JUMP IF A == 0
16339 12 0 0 0 1 SUBTRACT LITERAL
16340 70 163 62 0 0 0 163 >REJECT RT 21 JUMP IF A == 0
16341 12 0 0 0 1 SUBTRACT LITERAL
16342 70 163 70 0 0 0 163 >22,DATA LINK JUMP IF A == 0
16343 12 0 0 0 1 SUBTRACT LITERAL
16344 70 163 62 0 0 0 163 >REJECT RT 23 JUMP IF A == 0
16345 12 0 0 0 1 SUBTRACT LITERAL
16346 70 163 70 0 0 0 163 >RT24 JUMP IF A == 0
16347 12 0 0 0 1 SUBTRACT LITERAL
16348 70 163 70 0 0 0 163 >RT25 JUMP IF A == 0
16349 72 163 62 0 0 0 163 >REJECT JUMP IF A >= 0
16350 76 163 70 0 0 0 163 JUMP unconditional
16336>
16334>16351 1 8 1 0 0 BLOCK LENGTH SELECT
16352 80 245 2 0 0 0 245 >TO BIN ENTER SUBROUTINE
16353 33 0 0 0 6- DIVIDE BY 64 SHIFT (AB) BY BITS
16354 39 0 0 0 0 ROUND UP ROUND UP
16355 12 0 0 0 5 SUBTRACT LITERAL
16356 72 163 66 0 0 0 163 >TOO BIG JUMP IF A >= 0
16357 11 0 0 0 5 ADD LITERAL
16358 31 0 0 0 6 SHIFT (A) BY BITS
16359 80 244 2 0 0 0 244 >TO DEC ENTER SUBROUTINE
16332>16360 5 1 8 1 0 0 TRANSFER
16361 76 163 70 0 0 0 163 JUMP unconditional
16349>
16344>
16340>
Source image: P1000134.JPG
16328>16362 10 0 0 0 2 SELECT LITERAL
16363 80 177 2 0 0 0 177 >REPORT*F2 ENTER SUBROUTINE
16364 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
16365 76 163 70 0 0 0 163 JUMP unconditional
16371>
16372>
16356>16366 10 0 0 0 4 SELECT LITERAL
16367 80 177 2 0 0 0 177 >REPORT*F4 ENTER SUBROUTINE
16368 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
16369 76 163 73 0 0 0 163 JUMP unconditional
16365>
16361>
16350>
16348>
16346>
16342>
16338>16370 0 1 8 1 0 0 BLOCK LENGTH SELECT
16371 73 163 66 0 0 0 163 JUMP IF A < 0
16372 70 163 66 0 0 0 163 JUMP IF A == 0
16369>16373 76 164 15 0 0 0 164 JUMP unconditional
16419>
16433>
16436>
16441>16374 10 0 0 0 5 SELECT LITERAL
16375 80 177 2 0 0 0 177 >REPORT*F5 ENTER SUBROUTINE
16376 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
16420>
16437>
16440>16377 1 6 1 0 0 CHAP IND SELECT
16378 73 163 81 0 0 0 163 >REPORT JUMP IF A < 0
16379 12 0 0 0 100 SUBTRACT LITERAL
16380 73 163 84 0 0 0 163 >OK JUMP IF A < 0
16378>16381 10 0 0 0 3 SELECT LITERAL
16382 80 177 2 0 0 0 177 >REPORT*F3 ENTER SUBROUTINE
16383 80 295 2 0 0 0 295 IGNORE ENTER SUBROUTINE
16380>16384 1 4 1 0 0 ROUTE TYPE SELECT
16385 80 245 2 0 0 0 245 >TO BIN ENTER SUBROUTINE
16386 33 0 0 0 2- SHIFT (AB) BY BITS
16387 1 1 3 0 0 0 FILE ID ADD
16388 33 0 0 0 18- SHIFT (AB) BY BITS
16389 1 42 1 0 0 SELECT
16390 80 164 2 0 0 0 164 >STORE DETAIL ENTER SUBROUTINE
16391 71 163 93 0 0 0 163 >OK, LIST NOT FULL JUMP IF A != 0
16392 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
16391>16393 52 8 6 0 0 0 EDIT
16394 C 175 2 0 0 0 175
16395 55 1 28 1 0 18 BULK COPY
16396 C 8 32 1 0 0
16397 80 289 2 0 0 0 289 >WRITE ENTER SUBROUTINE
16398 76 162 45 0 0 0 162 JUMP unconditional
16400 PROCR 164 164 STORE FILE DETAILS SR
16401 NOTES 164 SELECT
16402 81 164 2 0 0 0 164 START OF SUBROUTINE
16403 2 319 26 1 0 0 319 SUBTRACT
16404 70 164 13 0 0 0 164 >IGNORED ALREADY JUMP IF A == 0
16405 10 0 0 0 10 =16 SELECT LITERAL
Source image: P1000135.JPG
16406 2 91 1 0 0 0 SUBTRACT
16407 70 164 13 0 0 0 164 LIST FULL. IGNORE JUMP IF A == 0
16408 32 0 0 0 5 SHIFT (AB) BY QUARTETS
16409 124 91 1 0 1 0 modify address of next
16410 5 91 5 0 0 0 STORE TRANSFER
16411 10 0 0 0 2 SELECT LITERAL
16412 4 91 1 0 0 0 STEP CTR AUGMENT
16407>
16404>16413 60 0 0 0 0 SET DECIMAL RADIX
16414 82 164 2 0 0 0 164 (A)=0 IF FILE TO BE IGNORED END OF SUBROUTINE / LEAVE SUBROUTINE
16373>16415 1 10 0 0 0 ALT ROUTE IND SELECT
16416 71 164 21 0 0 0 164 JUMP IF A != 0
16417 1 4 0 0 0 SELECT
16418 12 0 0 0 19 SUBTRACT LITERAL
16419 70 163 74 0 0 0 163 >REPORT JUMP IF A == 0
16420 76 163 77 0 0 0 163 >OK JUMP unconditional
16416>16421 1 4 0 0 0 ROUTE TYPE SELECT
16422 12 0 0 0 5 SUBTRACT LITERAL
16423 70 164 38 0 0 0 164 >PT JUMP IF A == 0
16424 12 0 0 0 2 SUBTRACT LITERAL
16425 70 164 38 0 0 0 164 >MT 7 JUMP IF A == 0
16426 12 0 0 0 1 SUBTRACT LITERAL
16427 70 164 38 0 0 0 164 >MT 8 JUMP IF A == 0
16428 12 0 0 0 3 SUBTRACT LITERAL
16429 70 164 38 0 0 0 164 >MT 11 JUMP IF A == 0
16430 12 0 0 0 4 SUBTRACT LITERAL
16431 70 164 38 0 0 0 164 >PT 15 JUMP IF A == 0
16432 12 0 0 0 4 SUBTRACT LITERAL
16433 71 163 74 0 0 0 163 >REPORT. NOT 19 JUMP IF A != 0
16434 1 10 0 0 0 SPECIAL ANNEX LENGTH SELECT
16435 12 0 0 0 4096 SUBTRACT LITERAL
16436 72 163 74 0 0 0 163 >REPORT JUMP IF A >= 0
16437 76 163 77 0 0 0 163 >OK JUMP unconditional
16431>
16429>
16427>
16425>
16423>16438 1 10 0 0 0 ALT ROUTE IND SELECT
16439 12 0 0 0 1 >OK SUBTRACT LITERAL
16440 70 163 77 0 0 0 163 >REPORT JUMP IF A == 0
16441 76 163 74 0 0 0 163 JUMP unconditional
16500 PROCR 165 165 'CHAPS' ON PT
16501 NOTES 165 SELECT
16260>
16135>16502 10 0 0 0 5300 SELECT LITERAL
16503 3 12 33 0 0 0 SET 'PT IN' COPY
16504 5 12 3 0 0 0 ERROR LETTER C TRANSFER
16505 54 1 0 1 0 46 BULK CLEAR
16506 12 1 0 0 0 STORE AMEND SERIAL INDICATOR SELECT
16507 30 0 0 0 2 SHIFT (A) BY QUARTETS
16508 5 1 0 0 0 0 TRANSFER
16509 124 180 2 0 2 0 180 select literal and division
16510 80 326 2 0 0 0 326 >UNPACK 'CHAPS' ENTER SUBROUTINE
16511 1 4 0 0 0 NO OF CHARS SELECT
16512 12 0 0 0 1 SUBTRACT LITERAL
16513 73 165 16 0 0 0 165 >REPORT JUMP IF A < 0
16514 12 0 0 0 14 SUBTRACT LITERAL
16515 73 165 19 0 0 0 165 >OK JUMP IF A < 0
16513>16516 10 0 0 0 1 SELECT LITERAL
Source image: P1000136.JPG
16517 3 1 4 0 0 0 (SAFE VALUE) COPY
16518 80 177 2 0 0 0 177 >REPORT*C1 ENTER SUBROUTINE
16515>16519 1 4 0 0 0 SELECT
16520 80 245 2 0 0 0 245 >TO BIN ENTER SUBROUTINE
16521 5 12 13 0 0 0 TRANSFER
16522 60 0 0 0 0 SET DECIMAL RADIX
16523 91 12 12 0 2 0 C:0 SET MODIFICATION REGISTER AT VARIABLE
16539>16524 1 5 0 2 0 SELECT
16525 80 200 2 0 0 0 200 >REPLACE PROCR ENTER SUBROUTINE
16526 C 178 2 0 0 0 178
16527 71 165 31 0 0 0 165 >OK JUMP IF A != 0
16528 319 40 1 0 0 319 '????R' SELECT
16529 5 1 44 1 0 0 TRANSFER
16530 1 5 0 2 0 OLD VALUE SELECT
16527>16531 3 12 14 0 2 0 STORE START POINTS COPY
16532 3 1 5 0 2 0 COPY
16533 12 0 0 0 100 SUBTRACT LITERAL
16534 73 165 37 0 0 0 165 >REPORT JUMP IF A < 0
16535 12 0 0 0 899 SUBTRACT LITERAL
16536 73 165 39 0 0 0 165 >OK JUMP IF A < 0
16534>16537 10 0 0 0 2 SELECT LITERAL
16538 80 177 2 0 0 0 177 >REPORT*C2 ENTER SUBROUTINE
16536>16539 94 165 24 0 2 1 165 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
16540 1 5 0 2 0 NEXT CHAP START SELECT
16541 70 165 44 0 0 0 165 >OK JUMP IF A == 0
16542 10 0 0 0 3 SELECT LITERAL
16543 80 177 2 0 0 0 177 >REPORT*C3 ENTER SUBROUTINE
16541>16544 55 1 4 0 0 15 NO OF CHAPS*START BULK COPY
16545 C 8 8 2 0 0
16546 55 1 34 1 0 12 REPORTS BULK COPY
16547 C 8 38 1 0 0
16548 52 8 4 0 0 0 EDIT AMEND IND+'CHARS' EDIT
16549 C 175 26 0 0 0 175
16550 80 292 2 0 0 0 292 >READ PT ENTER SUBROUTINE
16156>16551 9 4 1 0 0 DEAL WITH 'STOR SELECT
16552 2 181 22 1 0 0 181 'STORE' SUBTRACT
16553 70 165 57 0 0 0 165 >PT AT STORE JUMP IF A == 0
16554 92 30 0 0 0 SELECT
16555 71 165 74 0 0 0 165 >MT UNAMENDED JUMP IF A != 0
16556 76 166 2 0 0 0 166 >INITIAL TRANS WITHOUT STORE JUMP unconditional
16553>16557 92 30 0 0 0 SELECT
16558 70 165 64 0 0 0 165 INITIAL TRANS JUMP IF A == 0
16559 80 291 2 0 0 0 291 READ A1 ENTER SUBROUTINE
16560 7 6 1 0 0 SELECT
16561 2 181 22 1 0 0 181 'STORE' SUBTRACT
16562 71 165 64 0 0 0 165 JUMP IF A != 0
16563 80 291 2 0 0 0 291 READ A1 ENTER SUBROUTINE
16562>
16558>16564 54 1 0 1 0 20 BULK CLEAR
16565 124 180 2 0 2 0 180 select literal and division
16566 80 326 2 0 0 0 326 UNPACK 'STORE' ENTER SUBROUTINE
16567 80 289 2 0 0 0 289 WRITE 'CHAPS' ENTER SUBROUTINE
16568 55 1 4 0 0 7 BULK COPY
16569 C 8 8 1 0 0
16570 181 22 1 0 0 181 'STORE' SELECT
16571 5 8 6 1 0 0 TRANSFER
16572 80 292 2 0 0 0 292 READ A6 ENTER SUBROUTINE
16573 76 166 2 0 0 0 166 JUMP unconditional
16555>16574 80 291 2 0 0 0 291 READ A1 MT UNAMENDED ENTER SUBROUTINE
16575 7 6 1 0 0 SELECT
Source image: P1000137.JPG
16576 2 181 22 1 0 0 181 SUBTRACT
16577 71 166 2 0 0 0 166 >NOT STORE JUMP IF A != 0
16578 80 289 2 0 0 0 289 WRITE 'CHAPS' ENTER SUBROUTINE
16579 55 7 4 1 0 40 BULK COPY
16580 C 8 4 1 0 0
16581 80 291 2 0 0 0 291 >READ A1 ENTER SUBROUTINE
16600 PROCR 166 166 PREPARE TP PROCESS SECTION DETAILS+DEAL WITH INITIAL TRANSLATION
16601 NOTES 166 SELECT
16577>
16573>
16556>16602 10 0 0 0 SELECT LITERAL
16603 5 18 2498 1 0 0 LIST END SIGN TRANSFER
16604 5 18 2496 1 0 0 CLEAR FIRST ENTRY TRANSFER
16605 83 267 2 0 0 1 267 SAFETY SETTINGS SET SWITCH(ES) AT LITERAL VALUE
16606 0 12 13 0 0 0 NO OF CHAPS SELECT
16607 80 244 2 0 0 0 244 >TO DEC ENTER SUBROUTINE
16608 5 181 8 0 0 0 181 TRANSFER
16609 10 0 0 0 7200 SELECT LITERAL
16610 5 12 3 0 0 0 ERROR LETTERS TRANSFER
16611 10 0 0 0 99 SELECT LITERAL
16612 5 92 3 0 0 0 FIRST PROCR-1 TRANSFER
16613 90 0 0 4 0 SET MODIFICATION REGISTER AT LITERAL
16614 C 0 0 0 14 TO STORE CHAPTER ENDS
16615 62 0 0 0 0 SET EXCESS CONSTANTS
16616 91 12 12 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
16619>16617 11 0 0 0 1 ADD LITERAL
16618 3 92 10 0 3 0 STORE UNCORRECETD CHAP NUMBERS COPY
16619 94 166 17 0 3 1 166 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
16620 60 0 0 0 0 SET DECIMAL RADIX
16621 10 0 0 0 1001 SELECT LITERAL
16622 5 12 9 0 0 0 SET FIRST SECTION SERIAL NUMBER TRANSFER
16623 92 30 0 0 0 SELECT
16624 71 167 2 0 0 0 167 >NOT INITIAL TRANSLATION JUMP IF A != 0
16635>16625 87 27 10 0 0 0 SWITCH ACCORDING TO N
16626 C 166 28 0 0 0 166 >PT
16627 C 166 30 0 0 0 166 >CARDS
16626>16628 9 4 1 0 0 SELECT
16629 76 166 31 0 0 0 166 JUMP unconditional
16627>16630 9 8 1 0 0 SELECT
16629>16631 80 287 2 0 0 0 287 >TEST PT='PROCR' ETC ENTER SUBROUTINE
16632 12 38 0 0 0 SELECT
16633 73 185 2 0 0 0 185 >YES, END OF SECTION DETAILS JUMP IF A < 0
16634 80 170 2 0 0 0 170 >UNPACK/OUTPUT PT ENTER SUBROUTINE
16635 76 166 25 0 0 0 166 JUMP unconditional
16700 PROCR 167 167 DEAL WITH UNAMENDED SECTION LINE
16624>16702 80 173 2 0 0 0 173 >TEST PT AT AMEND DIRECTIVE ENTER SUBROUTINE
16703 71 167 7 0 0 0 167 JUMP IF A != 0
16704 34 181 10 1 0 0 181 FIVE SQUARES SET (N) IN B
16705 76 169 3 0 0 0 169 JUMP unconditional
16722>
16812>
16817>16706 80 291 2 0 0 0 291 >READ MT ENTER SUBROUTINE
16831>
16921>
16703>16707 12 45 0 0 0 SELECT
16708 71 167 13 0 0 0 167 >NO MORE PT AMENDS TO SECTIONS JUMP IF A != 0
16709 7 4 2 0 0 SELECT
16710 2 9 4 2 0 0 SUBTRACT
Source image: P1000138.JPG
16711 70 168 2 0 0 0 168 >MT AMENDED JUMP IF A == 0
16712 73 169 2 0 0 0 169 >MT>PT, REPORT JUMP IF A < 0
16708>16713 80 174 2 0 0 0 174 >TEST MT=PROCR ETC ENTER SUBROUTINE
16714 12 38 0 0 0 SELECT
16715 73 185 2 0 0 0 185 >YES JUMP IF A < 0
16716 50 7 6 0 0 0 UNPACK FIXED FIELD DATA
16717 C 175 16 0 0 0 175
16718 55 7 32 1 0 16 BULK COPY
16719 C 1 28 1 0 0
16720 5 1 44 1 0 0 CLEAR REPORT WL TRANSFER
16721 80 172 2 0 0 0 172 >CHECK/EDIT/WRITE SECTION DETAIL ENTER SUBROUTINE
16722 76 167 6 0 0 0 167 JUMP unconditional
16800 PROCR 168 168 EFFECT REPLACEMENTS, DELETIONS, INSERTIONS
16711>16802 85 252 2 0 0 0 252 SWITCH R
16803 C 168 7 0 0 0 168 >REPLACE
16804 C 168 15 0 0 0 168 >DELETE
16805 C 168 27 0 0 0 168 >INSERT BEFORE
16806 C 168 7 0 0 0 168 >ANNOTATION
16814>
16806>
16803>16807 80 174 2 0 0 0 174 >TEST MT=PROCR ETC ENTER SUBROUTINE
16808 0 12 38 0 0 0 SELECT
16809 73 185 2 0 0 0 185 >YES 'REPLACE'LOOP JUMP IF A < 0
16810 80 170 2 0 0 0 170 >APPLY PT ENTER SUBROUTINE
16811 80 173 2 0 0 0 173 >TEST NEXT PT=DIRECTIVE ENTER SUBROUTINE
16812 71 167 6 0 0 0 167 >YES JUMP IF A != 0
16813 80 291 2 0 0 0 291 >READ MT ENTER SUBROUTINE
16814 76 168 7 0 0 0 168 JUMP unconditional
16825>
16804>16815 80 292 2 0 0 0 292 >READ PT ENTER SUBROUTINE
16816 80 173 2 0 0 0 173 >TEST DIRECTIVE DELETE ENTER SUBROUTINE
16817 71 167 6 0 0 0 167 >YES JUMP IF A != 0
16826>16818 80 291 2 0 0 0 291 >READ MT ENTER SUBROUTINE
16819 80 174 2 0 0 0 174 > TEST MT=PROCR ETC ENTER SUBROUTINE
16820 12 38 0 0 0 SELECT
16821 73 185 2 0 0 0 185 >YES JUMP IF A < 0
16822 7 4 2 0 0 SELECT
16823 2 9 4 2 0 0 SUBTRACT
16824 73 169 2 0 0 0 169 >MODS OUT OF ORDER JUMP IF A < 0
16825 70 168 15 0 0 0 168 >END OF DELETION JUMP IF A == 0
16826 76 168 18 0 0 0 168 >READ/IGNORE MT JUMP unconditional
16805>16827 80 292 2 0 0 0 292 READ FIRST INSERTED BLOCK ENTER SUBROUTINE
16830>16828 80 170 2 0 0 0 170 >UNPACK/OUTPUT/READ NEXT PT BLOCK ENTER SUBROUTINE
16829 80 173 2 0 0 0 173 >TEST AMEND DIRECTIVE ENTER SUBROUTINE
16830 70 168 28 0 0 0 168 >NO JUMP IF A == 0
16831 76 167 7 0 0 0 167 >YES JUMP unconditional
16900 PROCR 169 169 DEAL WITH SEQUENCE ERROR IN MODS
16824>
16712>16902 34 1 2 1 0 0 SET (N) IN B
16705>16903 0 8 47 0 0 0 TEST TOP HALF TO BE'??5' SELECT
16904 2 318 27 0 0 0 318 SUBTRACT
16905 70 169 10 0 0 0 169 >LINE IGNORED, DONT OVERWRITE WORD JUMP IF A == 0
16906 10 0 0 0 0 CLEAR SIGN BIT A SELECT LITERAL
16907 32 0 0 0 10 SHIFT (AB) BY QUARTETS
16908 5 8 46 1 0 0 TRANSFER
16909 76 169 12 0 0 0 169 JUMP unconditional
16905>16910 32 0 0 0 10 SHIFT (AB) BY QUARTETS
16911 5 8 44 1 0 0 TRANSFER
Source image: P1000139.JPG
16909>16912 0 1 4 1 0 0 AMEND LETTER SELECT
16913 5 8 48 1 0 0 TRANSFER
16914 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
16915 10 0 0 0 1:1: SELECT LITERAL
16916 3 27 6 0 0 0 SET 'PT OMITTED' COPY
16917 37 8 48 1 0 0 PLANT '??' REPLACE SELECTED BITS
16920>16918 80 292 2 0 0 0 292 >READPT ENTER SUBROUTINE
16919 80 173 2 0 0 0 173 >TEST AMEND DIRECTIVE ENTER SUBROUTINE
16920 70 169 18 0 0 0 169 >NO JUMP IF A == 0
16921 76 167 7 0 0 0 167 >YES(DEAL WITH CURRENT MT BLOCK) JUMP unconditional
17000 PROCR 170 170 AMENDS TO SECTION DESCRIPTION EX PT
17002 81 170 2 0 0 0 170 START OF SUBROUTINE
17003 54 1 0 1 0 46 BULK CLEAR
17004 124 179 26 0 2 0 179 select literal and division
17005 80 326 2 0 0 0 326 >UNPACK PT SECTION ENTER SUBROUTINE
17006 80 297 2 0 0 0 297 UNPACK ANNOTATION(CARDS) ENTER SUBROUTINE
17007 86 252 2 0 0 0 252 SELECT SWITCH R
17008 12 0 0 0 4 SUBTRACT LITERAL
17009 71 170 13 0 0 0 170 >NOT 'UNPACK ANNOTATION' JUMP IF A != 0
17010 50 7 6 0 0 0 UNPACK FIXED FIELD DATA
17011 C 175 16 0 0 0 175 UNPACK MT DETAILS
17012 76 170 15 0 0 0 170 JUMP unconditional
17009>17013 0 12 1 0 0 0 SET AMEND IND SELECT
17014 5 1 6 0 0 0 TRANSFER
17012>17015 80 292 2 0 0 0 292 >READ NEXT PT BLOCK ENTER SUBROUTINE
17016 80 172 2 0 0 0 172 >CHECK/EDIT/OUTPUT SECTION DETAIL ENTER SUBROUTINE
17017 82 170 2 0 0 0 170 END OF SUBROUTINE / LEAVE SUBROUTINE
17100 PROCR 171 171
17102 81 171 2 0 0 0 171 START OF SUBROUTINE
17103 43 A2 0 0 0 0 OUTPUT
17104 C 7 0 0 0 0
17105 82 171 2 0 0 0 171 END OF SUBROUTINE / LEAVE SUBROUTINE
17200 PROCR 172 172 CHECK/EDIT/WRITE SECTION DETAILS
17202 81 172 2 0 0 0 172 START OF SUBROUTINE
17203 80 189 2 0 0 0 189 DELETE B/FWD REPORTS ENTER SUBROUTINE
17204 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
17205 C 0 0 0 4
17206 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
17207 C 0 0 0 8
17208 10 0 0 0 0 SELECT LITERAL
17209 5 1 44 1 0 0 CLEAR REPORT WORD TRANSFER
17222>17210 1 2 0 1 0 SELECT
17211 2 181 3 0 2 0 181 LOWER LIMIT SUBTRACT
17212 73 172 16 0 0 0 172 >REPORT JUMP IF A < 0
17213 181 2 0 2 0 181 UPPER LIMIT SELECT
17214 2 1 2 0 1 0 SUBTRACT
17215 72 172 21 0 0 0 172 >OK JUMP IF A >= 0
17212>17216 96 0 0 1 0 SELECT MODIFIER
17217 11 0 0 0 1 ADD LITERAL
17230>17218 80 177 2 0 0 0 177 >REPORT S(NOMBER) ENTER SUBROUTINE
17219 80 295 2 0 0 0 295 >IGNORE SECTION ENTER SUBROUTINE
17220 76 172 44 0 0 0 172 JUMP unconditional
17215>17221 94 0 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
17222 94 172 10 0 2 2 172 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
17223 1 4 0 0 0 TX AREA IND SELECT
17224 70 172 31 0 0 0 172 >NO JUMP IF A == 0
17225 4 92 6 0 0 0 AUG CTR AUGMENT
Source image: P1000140.JPG
17226 92 6 0 0 0 SELECT
17227 12 0 0 0 9 SUBTRACT LITERAL
17228 73 172 31 0 0 0 172 >OK, NOT >8 TX AREAS JUMP IF A < 0
17235>17229 10 0 0 0 5 SELECT LITERAL
17230 76 172 18 0 0 0 172 >REPORT, IGNORE JUMP unconditional
17228>
17224>17231 1 2 0 0 0 SELECT
17232 80 183 2 0 0 0 183 >DECODE SEC NUMBER ENTER SUBROUTINE
17233 34 12 40 0 0 0 SET (N) IN B
17234 36 12 72 0 3 0 COLLATE AND ADD
17235 71 172 29 0 0 0 172 >SECTION ALREADY USED JUMP IF A != 0
17236 62 0 0 0 0 SET EXCESS CONSTANTS
17237 12 40 0 0 0 SELECT
17238 4 12 72 0 3 0 SET ' AM A SECTION' IND AUGMENT
17239 1 4 0 0 0 SELECT
17240 70 172 44 0 0 0 172 >NOT TX AREA JUMP IF A == 0
17241 12 40 0 0 0 SELECT
17242 31 0 0 0 10 SHIFT (A) BY BITS
17243 4 12 72 0 3 0 SET ' AM A TX AREA' IND AUGMENT
17240>
17220>17244 60 0 0 0 0 SET DECIMAL RADIX
17245 80 289 2 0 0 0 289 >WRITE PREVINS BLOCK ENTER SUBROUTINE
17246 52 8 4 0 0 0 EDIT
17247 C 175 12 0 0 0 175
17248 10 0 0 0 1 SELECT LITERAL
17249 4 12 9 0 0 0 STEP SERIAL CTR AUGMENT
17250 55 1 28 1 0 18 ANNOTATION BULK COPY
17251 C 8 32 1 0 0
17252 82 172 2 0 0 0 172 END OF SUBROUTINE / LEAVE SUBROUTINE
17300 PROCR 173 173 TEST PT REPRESENTS AMENDMENT TO SECTION DESCRIPTION
17302 81 173 2 0 0 0 173 START OF SUBROUTINE
17303 80 294 2 0 0 0 294 >TEST AMEND DIRECTIVE/END ENTER SUBROUTINE
17304 70 173 12 0 0 0 173 >NO JUMP IF A == 0
17305 1 3 0 0 0 TOPCHAR OF SERIAL NUMBER SELECT
17306 30 0 0 0 3- SHIFT (A) BY QUARTETS
17307 12 0 0 0 5‼ * SUBTRACT LITERAL
17308 70 173 11 0 0 0 173 >IS MOD TO SECTIONS JUMP IF A == 0
17309 10 0 0 0 1 SELECT LITERAL
17310 5 12 45 0 0 0 TRANSFER
17308>17311 10 0 0 0 1 SELECT LITERAL
17304>17312 82 173 2 0 0 0 173 (A)=0 IF NOT DIRECTIVE END OF SUBROUTINE / LEAVE SUBROUTINE
17400 PROCR 174 174 TEST MT AT START OF CODING
17402 81 174 2 0 0 0 174 START OF SUBROUTINE
17403 27 1 0 0 0 SELECT
17404 70 174 8 0 0 0 174 >SINGLE RECORD BLOCKS JUMP IF A == 0
17405 7 12 1 0 0 DIRECTIVE WORD SELECT
17409>17406 80 287 2 0 0 0 287 ENTER SUBROUTINE
17407 82 174 2 0 0 0 174 END OF SUBROUTINE / LEAVE SUBROUTINE
17404>17408 7 10 1 0 0 SELECT
17409 76 174 6 0 0 0 174 JUMP unconditional
17500 TABLE 175 175 1
17501 NOTES
17502 1 2 0 0 2 0 5 0 0 0 0 0 0 FILE IDENTITY==FILES LINE
17504 1 4 0 0 0 0 5 0 0 5 0 0 0 RTE TYPE
17506 1 6 0 0 0 0 5 0 0 5 0 0 0 RETN PERIOD
17508 1 8 0 0 0 0 5 0 0 5 0 0 0 MAX BLOCK
17510 1 10 0 0 0 0 5 0 0 5 0 0 1 ALT ROUTE
Source image: P1000141.JPG
17512 319 8 0 0 2 0 1 0 0 0 0 0 0 *
17514 12 9 0 0 0 0 4 1 0 3 0 0 0 SECTION SERIAL NUMBER
17516 1 2 0 0 0 0 5 0 0 4 0 0 0 SECTION==SECTION LINE
17518 1 3 0 0 0 0 5 0 0 4 0 0 0 LENGTH
17520 1 4 0 0 0 0 5 0 0 4 0 0 0 TX AREA IND
17522 1 5 0 0 0 0 5 0 0 4 0 0 0 CHAPTER
17524 1 6 0 0 0 0 5 0 0 5 0 0 1 AMEND IND
17526 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND
17528 1 2 0 0 2 0 5 0 0 0 0 0 1 'CHAPS'
17530 12 1 0 0 0 0 5 0 0 4 0 0 1 FOR UPDATED SERIAL
17532 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND
17534 1 2 0 0 2 0 5 0 0 0 0 0 0
17536 1 4 0 0 0 0 5 0 0 5 0 0 0
17538 1 6 0 0 0 0 5 0 0 4 0 0 0
17540 1 8 0 0 2 0 5 0 0 0 0 0 0 SERIAL/CODER
17542 1 10 0 0 1 0 10 0 0 10 0 0 0 (SPACER)
17544 1 10 0 0 0 0 5 0 0 5 0 0 1 (SPACER)
17600 PROCR 176 176 CHECK PERFORATING IN PROGM BLOCK
17601 NOTES 176 SELECT
17602 81 176 2 0 0 0 176 START OF SUBROUTINE
17603 1 4 0 0 0 SUITE SELECT
17604 12 0 0 0 1000 SUBTRACT LITERAL
17605 73 176 8 0 0 0 176 >OK JUMP IF A < 0
17606 10 0 0 0 41 SELECT LITERAL
17607 80 177 2 0 0 0 177 >REPORT*P1 ENTER SUBROUTINE
17605>17608 1 6 0 0 0 JOB SELECT
17609 12 0 0 0 100 SUBTRACT LITERAL
17610 73 176 13 0 0 0 176 >OK JUMP IF A < 0
17611 10 0 0 0 42 SELECT LITERAL
17612 80 177 2 0 0 0 177 >REPORT*P2 ENTER SUBROUTINE
17610>17613 1 4 0 0 0 SELECT
17614 1 1 6 0 0 0 ADD
17615 71 176 18 0 0 0 176 >OK JUMP IF A != 0
17616 10 0 0 0 43 SELECT LITERAL
17617 80 177 2 0 0 0 177 >REPORT*P3 ENTER SUBROUTINE
17615>17618 92 30 0 0 0 SELECT
17619 71 176 21 0 0 0 176 >AMEND RUN JUMP IF A != 0
17620 5 1 8 1 0 0 CLEAR SERIAL NUMBER TRANSFER
17619>17621 10 0 0 0 0 SELECT LITERAL
17622 5 12 2 0 0 0 CLEAR CTR TRANSFER
17623 82 176 2 0 0 0 176 END OF SUBROUTINE / LEAVE SUBROUTINE
17700 PROCR 177 177 ERROR REPORT SR
17702 81 177 2 0 0 0 177 START OF SUBROUTINE
17703 5 12 4 0 0 0 TRANSFER
17704 91 12 2 0 3 0 CTR SET MODIFICATION REGISTER AT VARIABLE
17705 319 8 1 0 0 319 * SELECT
17706 1 12 4 0 0 0 REPORT NUMBER ADD
17707 1 12 3 0 0 0 REPORT LETTER ADD
17708 5 1 38 1 3 0 TRANSFER
17709 12 0 0 0 2 SUBTRACT LITERAL
17710 4 12 2 0 0 0 REDUCE CTR AUGMENT
17711 10 0 0 0 0 SELECT LITERAL
17712 82 177 2 0 0 0 177 END OF SUBROUTINE / LEAVE SUBROUTINE
17800 PROCR 178 178 REPLACE CODERS PROCR-ISSUE 6 O/P-ENTRY AND CHAPS
17802 81 178 2 0 0 0 178 (12/119=DEC PROCR) START OF SUBROUTINE
17803 12 119 0 0 0 SELECT
17804 80 245 2 0 0 0 245 >BIN ENTER SUBROUTINE
Source image: P1000142.JPG
17805 33 0 0 0 1- SHIFT (AB) BY BITS
17806 5 320 42 1 0 0 320 TRANSFER
17807 91 320 42 0 1 0 320 SET MODIFICATION REGISTER AT VARIABLE
17808 74 178 12 0 0 0 178 >EVEN JUMP IF AB == 0 // 27, 1, 0
17809 18 50- 0 1 0 SELECT
17810 31 0 0 0 10- SHIFT (A) BY BITS
17811 76 178 14 0 0 0 178 JUMP unconditional
17808>17812 34 319 20 0 0 0 319 BITS 1-10 SET (N) IN B
17813 36 18 50- 0 1 0 COLLATE AND ADD
17811>17814 80 244 2 0 0 0 244 >DEC ENTER SUBROUTINE
17815 82 178 2 0 0 0 178 END OF SUBROUTINE / LEAVE SUBROUTINE
17900 TABLE 179 179 3 UNPACK PROGM/ENTRY/SECTION
17901 NOTES SALE DESCRIPTION FROM P/T & CARDS
17902 1 2 0 0 2 0 5 0 0 0 0 0 0 PROGM/ENTRY
17904 1 4 0 0 1 0 3 0 0 0 0 0 0 SUITE NO/E POINT
17906 1 6 0 0 1 0 2 0 0 0 0 0 0 JOB NO/PRIORITY CLASS
17908 1 8 0 0 2 0 5 0 0 0 0 0 0 SERIAL, VERSION, BLANK/CODER
17910 1 16 0 0 2 1 5 0 0 0 0 0 1 /////ANNOTATION/CHECKER
17912 12 48 0 0 0 0 2 0 0 0 0 0 0 FILES DESCRIPTION-SERIAL NO
17914 1 2 0 0 2 0 2 0 0 0 0 0 0 FILE ID
17916 1 4 0 0 1 0 2 0 0 0 0 0 0 ROUTE TYPE
17918 1 6 0 0 1 0 2 0 0 0 0 0 0 CHAPTER
17920 1 8 0 0 1 0 4 0 0 0 0 0 0 BLOCK LENGTH
17922 1 10 0 0 1 0 4 0 0 0 0 0 0 ALT ROUTE IND
17924 1 28 0 0 2 0 5 0 0 0 0 0 1 ANNOTATION
17926 12 48 0 0 0 0 6 0 0 0 0 0 0 /////SERIAL-SEC DESCRIPTION
17928 1 2 0 0 0 0 2 0 0 0 0 0 0 SECTION NO
17930 1 3 0 0 0 0 4 0 0 0 0 0 0 LENGTH
17932 1 4 0 0 0 0 1 0 0 0 0 0 0 TX?
17934 1 5 0 0 0 0 2 0 0 0 0 0 0 CHAP NO
17936 1 28 0 0 2 0 5 0 0 0 0 0 1 ANNOTATION
17938 1 2 0 0 2 0 5 0 0 0 0 0 0 'AMEND'
17940 1 4 0 0 1 0 3 0 0 0 0 0 0 SUITE NO
17942 1 6 0 0 1 0 2 0 0 0 0 0 0 JOB NO
17944 1 8 0 0 2 0 2 0 0 0 0 0 0 (ISSUE+SERIAL)/ISSUE
17946 1 20 0 0 2 0 3 0 0 0 0 0 0 (WORDS ETC)/SERIAL
17948 1 16 0 0 0 0 1 0 0 0 0 0 0 ''PRINT PASS 3'' IND
17950 1 17 0 0 0 0 3 0 0 0 0 0 0 NEW ISSUE
17952 1 18 0 0 2 0 1 0 0 0 0 0 1 PTS IND(CARDS)
18000 TABLE 180 180 3 UNPACK CHAPS BLOCK
18001 NOTES FROM CARDS
18002 1 2 0 0 2 0 5 0 0 0 0 0 0 CHAPS'
18004 1 4 0 0 0 0 2 0 0 0 0 0 0 NO OF CHAPS
18006 1 5 0 0 0 0 3 0 0 0 0 0 0 1-ST START
18008 1 6 0 0 0 0 3 0 0 0 0 0 0 2-ND START
18010 1 7 0 0 0 0 3 0 0 0 0 0 0
18012 1 8 0 0 0 0 3 0 0 0 0 0 0
18014 1 9 0 0 0 0 3 0 0 0 0 0 0
18016 1 10 0 0 0 0 3 0 0 0 0 0 0
18018 1 11 0 0 0 0 3 0 0 0 0 0 0
18020 1 12 0 0 0 0 3 0 0 0 0 0 0
18022 1 13 0 0 0 0 3 0 0 0 0 0 0
18024 1 14 0 0 0 0 3 0 0 0 0 0 0 10-TH START
18026 1 15 0 0 0 0 3 0 0 0 0 0 0
18028 1 16 0 0 0 0 3 0 0 0 0 0 0
18030 1 17 0 0 0 0 3 0 0 0 0 0 0
18032 1 18 0 0 0 0 3 0 0 0 0 0 1 14-TH START
Source image: P1000143.JPG
18100 CONST 181 181 1 FUNCTIONAL
18102 (D)100099; UPPER/LOWER LIM SEC NUMBER
18104 4096; DO LENGTH
18106 1; DO TX AREA IND
18108 0; DO CHAP NUMBER
18110 1£1£1£1£1£;
18112 (A)PROGM;
18114 ENTRY;
18116 AMEND;
18118 CHAPS;
18120 PASSI;
18122 STORE;
18200 CONST 182 182 1 DUMMY
18202 (B)0;
18204 ;
18206 ;
18208 ;
18210 ;
18300 PROCR 183 183 DECODE SECTION NUMBER
18301 NOTES RADIX D BITS 1-10 OF 10 LOCATIONS SELECT
18302 81 183 2 0 0 0 183 START OF SUBROUTINE
18303 70 183 11 0 0 0 183 >ZERO SECTION JUMP IF A == 0
18304 32 0 0 0 1- DIVIDE BY 10 SHIFT (AB) BY QUARTETS
18305 92 0 0 3 0 SET MODIFIER=LOCN CLEAR A SET MODIFIER AT VARIABLE
18306 32 0 0 0 1 REMAINDER SHIFT (AB) BY QUARTETS
18307 5 12 40 0 0 0 WL TRANSFER
18308 10 0 0 0 1 SELECT LITERAL
18309 124 12 40 0 0 0 modify address of next
18310 31 0 0 0 0 ///// SHIFT (A) BY BITS
18303>18311 5 12 40 0 0 0 STORE COLLATION BIT TRANSFER
18312 82 183 2 0 0 0 183 END OF SUBROUTINE / LEAVE SUBROUTINE
18400 CONST 184 184 1 DUMMY
18500 PROCR 185 185 MAIN LOOP-DEAL WITH INITIAL TRANSLATION
18501 NOTES RADIX SELECT
16821>
16809>
16715>
16633>18502 55 18 0 0 0 1010 COPY CURRENT AMEND DETAILS BULK COPY
18503 C 93 0 0 0 0
18504 54 29 0 1 0 44 BULK CLEAR
18505 83 191 2 0 0 2 191 SAFETY SETTINGS SET SWITCH(ES) AT LITERAL VALUE
18506 10 0 0 0 1 SELECT LITERAL
18507 5 27 5 0 0 0 UNPACK SWITCH TRANSFER
18508 0 92 30 0 0 0 SELECT
18509 3 12 8 1 0 0 (CLEAR 12/9) COPY
18510 70 185 14 0 0 0 185 >INITIAL TRANSLATION JUMP IF A == 0
18511 59 7 6 0 8 0 SET I/P MR SET MODIFICATION REGISTER FOR MERGE
18512 C 7 4 2 0 0
18513 76 251 2 0 0 0 251 JUMP unconditional
18510>18514 10 0 0 0 1 SELECT LITERAL
18515 5 12 33 0 0 0 SET 'PT INS INPUT' TRANSFER
18534>18516 9 4 1 0 0 SELECT
18517 30 0 0 0 4- SHIFT (A) BY QUARTETS
18518 30 0 0 0 4 SHIFT (A) BY QUARTETS
18519 2 319 14 1 0 0 319 'END ' SUBTRACT
18520 70 322 2 0 0 0 322 >END OF INITIAL TRANSLATION JUMP IF A == 0
Source image: P1000144.JPG
18521 9 4 1 0 0 SELECT
18522 2 319 46 1 0 0 319 'TRAMD' SUBTRACT
18523 70 322 2 0 0 0 322 JUMP IF A == 0
18524 87 27 10 0 0 0 SWITCH ACCORDING TO N
18525 C 185 27 0 0 0 185 >PT
18526 C 185 29 0 0 0 185 >CARDS
18525>18527 9 4 1 0 0 SELECT
18528 76 185 30 0 0 0 185 JUMP unconditional
18526>18529 9 8 1 0 0 SELECT
18528>18530 80 287 2 0 0 0 287 >TEST STACK DIRECTIVE ENTER SUBROUTINE
18531 80 283 2 0 0 0 283 >UNPACK PT ENTER SUBROUTINE
18532 80 186 2 0 0 0 186 >CHECK/EDIT/OUTPUT ENTER SUBROUTINE
18533 80 292 2 0 0 0 292 >READ PT ENTER SUBROUTINE
18534 76 185 16 0 0 0 185 >LOOP TILL END JUMP unconditional
18600 PROCR 186 186 START OF CHECK/EDIT/OUTPUT SR
18601 NOTES RADIX SELECT
18602 81 186 2 0 0 0 186 START OF SUBROUTINE
18603 12 38 0 0 0 STACKING DIRECTIVE SELECT
18604 70 190 2 0 0 0 190 NO JUMP IF A == 0
18605 72 191 2 0 0 0 191 >'NOTES' BLOCK JUMP IF A >= 0
18606 12 61 0 0 0 C-LINE MUST FOLLOW SELECT
18607 70 186 9 0 0 0 186 INDICATOR JUMP IF A == 0
18608 80 296 2 0 0 0 296 IGNORE THIS INSTRUCTION ENTER SUBROUTINE
18607>18609 12 54 0 0 0 SELECT
18610 12 0 0 0 55 SUBTRACT LITERAL
18611 70 186 14 0 0 0 186 JUMP IF A == 0
18612 10 0 0 0 0 SELECT LITERAL
18613 5 12 60 1 0 0 TRANSFER
18611>18614 5 12 9 0 0 0 TRANSFER
18615 5 12 43 0 0 0 CLEAR LINE INCREMENT FOR 'SER' CHECKS TRANSFER
18616 92 30 0 0 0 SELECT
18617 71 186 22 0 0 0 186 >AMEND RUN JUMP IF A != 0
18618 9 50 2 0 0 PASS 0 DOESN'T LIKE IT' IND SELECT
18619 70 186 22 0 0 0 186 >OK JUMP IF A == 0
18620 319 40 1 0 0 319 ????R' SELECT
18621 5 1 44 1 0 0 TRANSFER
18619>
18617>18622 27 5 0 0 0 SELECT
18623 12 0 0 0 4 SUBTRACT LITERAL
18624 70 187 38 0 0 0 187 >VALUE (DIRECTIVE OR DATA) JUMP IF A == 0
18625 92 3 0 0 0 SELECT
18626 11 0 0 0 1 FORM TRANSLATORS PROCR ADD LITERAL
18627 3 92 3 0 0 0 COPY
18628 3 12 0 0 0 0 COPY
18629 5 12 4 0 0 0 TRANSFER
18700 PROCR 187 187 TEST NEW CHAPTER
18702 1 8 2 0 0 SELECT
18703 30 0 0 0 2- SHIFT (A) BY QUARTETS
18704 3 1 14 0 0 0 B/FWD PROCR COPY
18705 80 200 2 0 0 0 200 >REPLACE PROCR ENTER SUBROUTINE
18706 C 202 2 0 0 0 202
18707 2 92 3 0 0 0 SUBTRACT
18708 70 187 11 0 0 0 187 >OK PASS 0 HASN'T BOOBED JUMP IF A == 0
18709 319 40 1 0 0 319 ????R' SELECT
18710 5 1 44 1 0 0 TRANSFER
18708>18711 52 1 8 0 0 0 EDIT NEW PROCR EDIT
18712 C 306 2 0 0 0 306
Source image: P1000145.JPG
18713 27 4 0 0 0 SELECT
18714 71 187 19 0 0 0 187 >COMPILER.DONT SET IND JUMP IF A != 0
18715 1 14 0 0 0 OLD SELECT
18716 2 12 4 0 0 0 NEW SUBTRACT
18717 70 187 19 0 0 0 187 >PROCR DOESNT CHANGE JUMP IF A == 0
18718 80 188 2 0 0 0 188 >SET 'PRINT PROCR' ENTER SUBROUTINE
18717>
18714>18719 92 3 0 0 0 SELECT
18720 12 0 0 0 100 SUBTRACT LITERAL
18721 71 187 25 0 0 0 187 >NOT FIRST TIME THROUGH JUMP IF A != 0
18722 0 12 0 0 0 0 FIRST CODERS PROCR SELECT
18723 5 12 14 0 0 0 SET AS FIRST CHAP START TRANSFER
18724 76 187 33 0 0 0 187 JUMP unconditional
18721>18725 12 14 0 4 0 SELECT
18726 2 12 0 0 0 0 SUBTRACT
18727 71 187 38 0 0 0 187 >THIS PROCR IS NOT A CHAPTER START JUMP IF A != 0
18728 92 3 0 0 0 SELECT
18729 12 0 0 0 1 SUBTRACT LITERAL
18730 80 245 2 0 0 0 245 >CHAP END IN BIN ENTER SUBROUTINE
18731 30 0 0 0 2 SHIFT (A) BY QUARTETS
18732 4 92 9 0 4 0 STORE CHAP END POINT AUGMENT
18724>18733 62 0 0 0 0 SET EXCESS CONSTANTS
18734 10 0 0 0 1 SELECT LITERAL
18735 4 92 0 0 0 0 STEP UNCORR CHAP IN BIN AUGMENT
18736 60 0 0 0 0 SET DECIMAL RADIX
18737 94 0 0 4 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
18727>
18624>18738 83 191 2 0 0 1 191 SET CHECK SWITCH FOR DIRECTIVES SET SWITCH(ES) AT LITERAL VALUE
18739 76 191 2 0 0 0 191 JUMP unconditional
18800 PROCR 188 188 SET IND IN SEC 23 IF PROCR TO BE PRINTED
18802 81 188 2 0 0 0 188 START OF SUBROUTINE
18803 92 3 0 0 0 CURRENT PROCR SELECT
18804 80 245 2 0 0 0 245 >BIN ENTER SUBROUTINE
18805 19 0 0 0 14 DIVIDE LITERAL
18806 5 320 42 0 0 0 320 TRANSFER
18807 32 0 0 0 9 SHIFT (AB) BY QUARTETS
18808 5 320 43 0 0 0 320 REMAINDER TRANSFER
18809 34 320 22 0 0 0 320 1 SET (N) IN B
18810 124 320 43 0 1 0 320 modify address of next
18811 33 0 0 0 0 ///// SHIFT (AB) BY BITS
18812 320 20 0 0 0 320 £X5 SELECT
18813 124 320 42 0 1 0 320 modify address of next
18814 37 23 5- 0 0 0 SET BIT REPLACE SELECTED BITS
18815 60 0 0 0 0 SET DECIMAL RADIX
18816 82 188 2 0 0 0 188 END OF SUBROUTINE / LEAVE SUBROUTINE
18900 PROCR 189 189 CHECK FOR B/FWD ERROR REPORTS
18901 NOTES 0 SELECT
18902 81 189 2 0 0 0 189 START OF SUBROUTINE
18903 1 42 1 0 0 LAST 5 CHARS OF ANNOTATION SELECT
18904 2 319 26 1 0 0 319 '?????' SUBTRACT
18905 70 189 12 0 0 0 189 JUMP IF A == 0
18906 1 42 1 0 0 SELECT
18907 12 0 0 0 5£5£5£5£5£ FIVE SQUARES SUBTRACT LITERAL
18908 70 189 12 0 0 0 189 JUMP IF A == 0
18909 1 42 1 0 0 SELECT
18910 2 319 24 1 0 0 319 'SHEET' SUBTRACT
18911 71 189 13 0 0 0 189 JUMP IF A != 0
18908>
Source image: P1000146.JPG
18905>18912 5 1 42 1 0 0 CLEAR OUT REPORT TRANSFER
18911>18913 82 189 2 0 0 0 189 END OF SUBROUTINE / LEAVE SUBROUTINE
19000 PROCR 190 190 CHECK SERIAL NUMBER SEQUENCE - INITIAL TRANSLATION
19001 NOTES RADIX SELECT
18604>19002 92 30 0 0 0 SELECT
19003 71 191 2 0 0 0 191 JUMP IF A != 0
19004 34 1 2 1 0 0 RIGHT ALIGN SET (N) IN B
19005 80 321 2 0 0 0 321 SERIAL NO ENTER SUBROUTINE
19006 12 88 2 0 0 SELECT
19007 2 12 43 0 0 0 SUBTRACT
19008 70 190 14 0 0 0 190 SERIAL NO IS IN FACT SERIAL JUMP IF A == 0
19009 86 191 2 0 0 0 191 SELECT SWITCH R
19010 12 0 0 0 6 SUBTRACT LITERAL
19011 72 191 2 0 0 0 191 >NO CHECK ON PM+TRIAL DATA JUMP IF A >= 0
19012 10 0 0 0 725569 PUT'SER' IN ERROR INDICATOR SELECT LITERAL
19013 5 1 44 1 0 0 TRANSFER
19008>19014 12 88 2 0 0 STORE THIS SERIAL NO SELECT
19015 1 12 90 0 0 0 >LONG/SHORT COUNTER ADD
19016 11 0 0 0 1 1 ADD LITERAL
19017 5 12 43 0 0 0 TO TEST NEXT INSTRUCTION TRANSFER
19100 PROCR 191 191 SWITCH B
19101 NOTES RADIX SELECT
19011>
19003>
18739>
18605>19102 80 189 2 0 0 0 189 >DELETE B/FWD ERROR REPORTS ENTER SUBROUTINE
20712>19103 12 33 0 0 0 SELECT
19104 70 191 9 0 0 0 191 >EX MT JUMP IF A == 0
19105 92 30 0 0 0 SELECT
19106 70 191 9 0 0 0 191 JUMP IF A == 0
19107 80 188 2 0 0 0 188 >SET'PRINT PROCR' ENTER SUBROUTINE
19108 10 0 0 0 0 SELECT LITERAL
19106>
19104>19109 85 191 2 0 0 0 191 SWITCH R
19110 C 205 2 0 0 0 205 STACKING DIRECTIVE
19111 C 210 2 0 0 0 210 INSTRUCTIONS
19112 C 276 2 0 0 0 276 TABLES
19113 C 260 2 0 0 0 260 CONSTANTS
19114 C 191 15 0 0 0 191 VALUE'=5
19114>19115 0 1 9 0 0 0 REF SELECT
19116 34 1 10 0 0 0 SET (N) IN B
19117 74 191 23 0 0 0 191 ZERO REF & ITEM JUMP IF AB == 0 // 27, 1, 0
19118 80 275 2 0 0 0 275 >UPDATE ADDRESS ENTER SUBROUTINE
19119 0 12 4 0 0 0 SELECT
19120 5 1 9 0 0 0 NEW REF TRANSFER
19121 80 277 2 0 0 0 277 CHECK ADJUSTED REF ENTER SUBROUTINE
19122 76 247 2 0 0 0 247 >EDIT AND OUTPUT JUMP unconditional
19117>19123 85 108 2 0 0 0 108 SWITCH R
19124 C 247 2 0 0 0 247 >LAST REF/ITEM CORRECT
19125 C 191 26 0 0 0 191 >LAST REF/ITEM IGNORED
19125>19126 80 195 2 0 0 0 195 REPORT R ENTER SUBROUTINE
19127 80 295 2 0 0 0 295 IGNORE THIS LINE ENTER SUBROUTINE
19128 76 247 2 0 0 0 247 >EDIT AND OUTPUT JUMP unconditional
19200 PROCR 192 192 CHECK I IS EVEN,REPORT IF NOT
19201 NOTES 0 0 SELECT
19202 81 192 2 0 0 0 192 START OF SUBROUTINE
19203 5 245 2 0 0 0 245 ITEM TO WL=SR LINK TRANSFER
Source image: P1000147.JPG
19204 10 0 0 0 1 SELECT LITERAL
19205 32 0 0 0 10- SHIFT (AB) BY QUARTETS
19206 36 245 2 0 0 0 245 COLLATE AND ADD
19207 70 192 9 0 0 0 192 >OK JUMP IF A == 0
19208 80 196 2 0 0 0 196 >REPORT I ENTER SUBROUTINE
19207>19209 82 192 2 0 0 0 192 END OF SUBROUTINE / LEAVE SUBROUTINE
19300 PROCR 193 193 ERROR REPORT OF D
19301 NOTES 193 SELECT
19302 81 193 2 0 0 0 193 START OF SUBROUTINE
19303 10 0 0 0 54 D SELECT LITERAL
19304 80 199 2 0 0 0 199 ENTER SUBROUTINE
19305 82 193 2 0 0 0 193 END OF SUBROUTINE / LEAVE SUBROUTINE
19400 PROCR 194 194 ERROR REPORT OF M
19401 NOTES 194 SELECT
19402 81 194 2 0 0 0 194 START OF SUBROUTINE
19403 10 0 0 0 64 M SELECT LITERAL
19404 80 199 2 0 0 0 199 ENTER SUBROUTINE
19405 82 194 2 0 0 0 194 END OF SUBROUTINE / LEAVE SUBROUTINE
19500 PROCR 195 195 ERROR REPORT OF R
19501 NOTES 195 SELECT
19502 81 195 2 0 0 0 195 START OF SUBROUTINE
19503 10 0 0 0 69 SELECT LITERAL
19504 80 199 2 0 0 0 199 ENTER SUBROUTINE
19505 82 195 2 0 0 0 195 END OF SUBROUTINE / LEAVE SUBROUTINE
19600 PROCR 196 196 ERROR REPORT OF I
19601 NOTES 196 SELECT
19602 81 196 2 0 0 0 196 START OF SUBROUTINE
19603 10 0 0 0 59 I SELECT LITERAL
19604 80 199 2 0 0 0 199 ENTER SUBROUTINE
19605 82 196 2 0 0 0 196 END OF SUBROUTINE / LEAVE SUBROUTINE
19700 PROCR 197 197 ERROR REPORT OF L
19701 NOTES 197 SELECT
19702 81 197 2 0 0 0 197 START OF SUBROUTINE
19703 10 0 0 0 63 L SELECT LITERAL
19704 80 199 2 0 0 0 199 ENTER SUBROUTINE
19705 82 197 2 0 0 0 197 END OF SUBROUTINE / LEAVE SUBROUTINE
19800 PROCR 198 198 ERROR REPORT OF T
19801 NOTES 198 SELECT
19802 81 198 2 0 0 0 198 START OF SUBROUTINE
19803 10 0 0 0 73 T SELECT LITERAL
19804 80 199 2 0 0 0 199 ENTER SUBROUTINE
19805 82 198 2 0 0 0 198 END OF SUBROUTINE / LEAVE SUBROUTINE
19900 PROCR 199 199 MAKE ERROR REPORT
19901 NOTES 199 SELECT
19902 81 199 2 0 0 0 199 START OF SUBROUTINE
19903 32 0 0 0 10- SHIFT (AB) BY QUARTETS
19904 1 44 1 0 0 TEST REPORT ALREADY MADE SELECT
19905 30 0 0 0 2- WITH '????' SHIFT (A) BY QUARTETS
19906 12 0 0 0 5:5:5:5: SUBTRACT LITERAL
19907 70 199 20 0 0 0 199 >YES,DON'T CORRUPT IT JUMP IF A == 0
19908 1 44 1 0 0 SELECT
19909 12 0 0 0 725569 'SER' SUBTRACT LITERAL
19910 71 199 12 0 0 0 199 JUMP IF A != 0
Source image: P1000148.JPG
19911 5 1 44 1 0 0 LET OTHERS TAKE PRECEDENCE TRANSFER
19910>19912 10 0 0 0 0 SELECT LITERAL
19913 32 0 0 0 10 SHIFT (AB) BY QUARTETS
19914 124 12 115 1 2 0 modify address of next
19915 30 0 0 0 0 ///// SHIFT (A) BY QUARTETS
19916 4 1 44 1 0 0 AUGMENT
19917 10 0 0 0 2 SELECT LITERAL
19918 1 12 115 0 0 0 ADD
19919 5 12 115 0 0 0 TRANSFER
19907>19920 82 199 2 0 0 0 199 END OF SUBROUTINE / LEAVE SUBROUTINE
20000 PROCR 200 200 REPLACE CODERS PROCR TO C/FWD VALUE
20002 81 200 2 0 0 0 200 START OF SUBROUTINE
20003 3 12 119 0 0 0 COPY
20004 3 12 118 0 0 0 COPY
20005 12 0 0 0 100 SUBTRACT LITERAL
20006 73 200 27 0 0 0 200 >EX RANGE JUMP IF A < 0
20007 12 0 0 0 899 SUBTRACT LITERAL
20008 72 200 27 0 0 0 200 >DON'T REPLACE JUMP IF A >= 0
20009 12 33 0 0 0 SELECT
20010 71 200 21 0 0 0 200 >EX PT JUMP IF A != 0
20011 27 0 0 0 0 SELECT
20012 71 200 21 0 0 0 200 >ISSUE 6 O/P JUMP IF A != 0
20013 27 4 0 0 0 SELECT
20014 71 200 21 0 0 0 200 >COMPILER CALLED TRANSLATOR JUMP IF A != 0
20015 80 201 2 0 0 0 201 >REPLACE EX ISSUE 5 ENTER SUBROUTINE
20016 71 200 19 0 0 0 200 >OK JUMP IF A != 0
20017 80 195 2 0 0 0 195 >REPORT R ENTER SUBROUTINE
20018 76 200 21 0 0 0 200 JUMP unconditional
20016>20019 3 12 119 0 0 0 COPY
20020 5 12 118 0 0 0 TRANSFER
20018>
20014>
20012>
20010>20021 80 1001 0 0 0 0 >REPLACE EX ISSUE 6 ENTER SUBROUTINE
20022 71 200 26 0 0 0 200 >OK JUMP IF A != 0
20023 319 40 1 0 0 319 '????R' SELECT
20024 5 1 44 1 0 0 TRANSFER
20025 82 200 2 0 0 0 200 END OF SUBROUTINE / LEAVE SUBROUTINE
20022>20026 3 12 119 0 0 0 COPY
20008>
20006>20027 82 200 2 0 0 0 200 END OF SUBROUTINE / LEAVE SUBROUTINE
20100 PROCR 201 201 REPLACE CODERS PROCR-ISSUE 5 O/P
20102 81 201 2 0 0 0 201 (12/119)=DEC PROCR START OF SUBROUTINE
20103 27 2 0 0 0 SELECT
20104 70 201 7 0 0 0 201 >NOT PSEUDO-ISSUE 5 O/P JUMP IF A == 0
20105 12 119 0 0 0 REPLACEMENT=ITSELF SELECT
20106 76 201 23 0 0 0 201 JUMP unconditional
20104>20107 12 119 0 0 0 SELECT
20108 12 0 0 0 600 SUBTRACT LITERAL
20109 72 201 24 0 0 0 201 >OUT OF RANGE JUMP IF A >= 0
20110 12 119 0 0 0 SELECT
20111 80 245 2 0 0 0 245 >TO BIN ENTER SUBROUTINE
20112 33 0 0 0 1- SHIFT (AB) BY BITS
20113 5 245 2 0 0 0 245 SR LINK TRANSFER
20114 74 201 19 0 0 0 201 >EVEN JUMP IF AB == 0 // 27, 1, 0
20115 124 245 2 0 1 0 245 modify address of next
20116 53 50- 0 0 0 SELECT
20117 31 0 0 0 10- SHIFT (A) BY BITS
Source image: P1000149.JPG
20118 76 201 22 0 0 0 201 JUMP unconditional
20114>20119 34 319 20 0 0 0 319 BITS 1 -10 SET (N) IN B
20120 124 245 2 0 1 0 245 modify address of next
20121 36 53 50- 0 0 0 COLLATE AND ADD
20118>20122 80 244 2 0 0 0 244 > TO DEC ENTER SUBROUTINE
20106>20123 82 201 2 0 0 0 201 END OF SUBROUTINE / LEAVE SUBROUTINE
20109>20124 10 0 0 0 0 SELECT LITERAL
20125 82 201 2 0 0 0 201 END OF SUBROUTINE / LEAVE SUBROUTINE
20200 PROCR 202 202 REPLACE CODERS PROCR-ISSUE 6 O/P
20202 81 202 2 0 0 0 202 (12/119-DEC PROCR) START OF SUBROUTINE
20203 12 119 0 0 0 SELECT
20204 80 245 2 0 0 0 245 > TO BIN ENTER SUBROUTINE
20205 33 0 0 0 1- SHIFT (AB) BY BITS
20206 5 245 2 0 0 0 245 TRANSFER
20207 74 202 12 0 0 0 202 > EVEN JUMP IF AB == 0 // 27, 1, 0
20208 124 245 2 0 1 0 245 modify address of next
20209 93 50- 0 0 0 SELECT
20210 31 0 0 0 10- SHIFT (A) BY BITS
20211 76 202 15 0 0 0 202 JUMP unconditional
20207>20212 34 319 20 0 0 0 319 BITS 1 -10 SET (N) IN B
20213 124 245 2 0 1 0 245 modify address of next
20214 36 93 50- 0 0 0 COLLATE AND ADD
20211>20215 80 244 2 0 0 0 244 > TO DEC ENTER SUBROUTINE
20216 82 202 2 0 0 0 202 END OF SUBROUTINE / LEAVE SUBROUTINE
20300 PROCR 203 203 ADJUST SR-ISSUE 5 O/P
20302 81 203 2 0 0 0 203 (A) = SERIAL TO BE ADJUSTED START OF SUBROUTINE
20303 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
20304 C 0 0 0 160
20305 5 12 58 0 0 0 TRANSFER
20306 5 12 46 0 0 0 TRANSFER
20307 35 0 0 0 11100 PREPARE FOR DIGIT COLLATION
20308 36 12 58 0 0 0 COLLATE AND ADD
20309 5 12 30 0 0 0 STORE PROCR TRANSFER
20316>20310 36 54 0 0 1 0 COLLATE AND ADD
20311 70 203 17 0 0 0 203 > END JUMP IF A == 0
20312 2 12 30 0 0 0 SUBTRACT
20313 70 203 20 0 0 0 203 > PROCR MATCHES JUMP IF A == 0
20314 72 203 17 0 0 0 203 > POINT PASSED END JUMP IF A >= 0
20322>
20325>20315 10 0 0 0 0 SELECT LITERAL
20316 94 203 10 0 1 2 203 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
20314>
20311>20317 12 46 0 0 0 TOTAL ADJUSTMENT SELECT
20318 1 12 58 0 0 0 ADD
20319 82 203 2 0 0 0 203 END OF SUBROUTINE / LEAVE SUBROUTINE
20313>20320 12 58 0 0 0 SEARCH WITHIN PROCR SELECT
20321 2 54 0 0 1 0 SUBTRACT
20322 73 203 15 0 0 0 203 > NOT FOR THIS POINT IN PROCR JUMP IF A < 0
20323 54 1 0 1 0 SELECT
20324 4 12 46 0 0 0 FORM TOTAL ADJUSTMENT AUGMENT
20325 76 203 15 0 0 0 203 JUMP unconditional
20400 PROCR 204 204 ADJUST SR-ISSUE 6 O/P
20402 81 204 2 0 0 0 204 START OF SUBROUTINE
20403 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
20404 C 0 0 0 460
20405 10 0 0 0 0 (12/58)= SERIAL TO BE ADJUSTED SELECT LITERAL
20406 5 12 46 0 0 0 CLEAR FOR TOTAL ADJUSTMENT TRANSFER
Source image: P1000150.JPG
20407 35 0 0 0 11100 PREPARE FOR DIGIT COLLATION
20408 36 12 58 0 0 0 COLLATE AND ADD
20409 5 12 30 0 0 0 PROCR TRANSFER
20422>20410 36 97 0 0 1 0 COLLATE AND ADD
20411 70 204 23 0 0 0 204 > END JUMP IF A == 0
20412 2 12 30 0 0 0 SUBTRACT
20413 73 204 21 0 0 0 204 > SEARCH JUMP IF A < 0
20414 71 204 23 0 0 0 204 > END JUMP IF A != 0
20415 97 0 0 1 0 SELECT
20416 2 12 58 0 0 0 SUBTRACT
20417 70 204 19 0 0 0 204 JUMP IF A == 0
20418 72 204 32 0 0 0 204 > NEXT ADJUST POINT IN PROCR IS LATER JUMP IF A >= 0
20417>20419 97 1 0 1 0 SELECT
20420 4 12 46 0 0 0 AUGMENT
20413>20421 10 0 0 0 0 SELECT LITERAL
20422 94 204 10 0 1 2 204 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
20434>
20440>
20442>
20444>
20446>
20449>
20414>
20411>20423 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
20424 12 46 0 0 0 TOTAL ADJUSTMENT SELECT
20425 36 12 58 0 0 0 COLLATE AND ADD
20426 3 12 58 0 0 0 NEW ITEM COPY
20427 12 0 0 0 100 SUBTRACT LITERAL
20428 73 204 31 0 0 0 204 JUMP IF A < 0
20429 319 42 1 0 0 319 '???? ' SELECT
20430 5 1 44 1 0 0 REPORT WRITTEN ITEM >99 TRANSFER
20428>20431 82 204 2 0 0 0 204 END OF SUBROUTINE / LEAVE SUBROUTINE
20418>20432 1 97 1 0 1 0 QUANTITY (+ -) ADD
20433 70 204 35 0 0 0 204 > ADDRESS DELETED JUMP IF A == 0
20434 72 204 23 0 0 0 204 > NEXT IS INSERTION JUMP IF A >= 0
20433>20435 0 1 7 0 0 0 SELECT
20436 12 0 0 0 53000 SUBTRACT LITERAL
20437 70 204 47 0 0 0 204 > C-LINE REPORT JUMP IF A == 0
20438 12 54 0 0 0 BIN ACTION SELECT
20439 101 83 1 2 0 subtract literal address
20440 70 204 23 0 0 0 204 > 83 DON'T REPORT JUMP IF A == 0
20441 101 1 1 2 0 subtract literal address
20442 70 204 23 0 0 0 204 > 84 JUMP IF A == 0
20443 101 1 1 2 0 subtract literal address
20444 70 204 23 0 0 0 204 > 85 JUMP IF A == 0
20445 101 1 1 2 0 subtract literal address
20446 70 204 23 0 0 0 204 > 86 JUMP IF A == 0
20437>20447 319 44 1 0 0 319 '???? DELTA' SELECT
20448 5 1 44 1 0 0 TRANSFER
20449 76 204 23 0 0 0 204 JUMP unconditional
20500 PROCR 205 205 DEAL WITH PROCR/TABLE/CONST
20501 NOTES RADIX SELECT
19110>20502 1 6 1 0 0 SELECT
20503 2 319 6 1 0 0 319 PROCR SUBTRACT
20504 71 205 7 0 0 0 205 NO JUMP IF A != 0
20505 5 12 90 1 0 0 TRANSFER
20506 76 247 2 0 0 0 247 FORM SERIAL JUMP unconditional
20504>20507 1 6 1 0 0 SELECT
20508 2 319 2 1 0 0 319 TABLE SUBTRACT
Source image: P1000151.JPG
20509 71 206 5 0 0 0 206 NO JUMP IF A != 0
20510 10 0 0 0 100001 SET LONG/SHORT SELECT LITERAL
20511 5 12 90 1 0 0 COUNTER TRANSFER
20512 34 1 16 1 0 0 TABLE TYPE SET (N) IN B
20513 80 321 2 0 0 0 321 >RIGHT ALIGN ENTER SUBROUTINE
20514 0 12 88 2 0 0 SELECT
20515 73 205 20 0 0 0 205 TABLE TYPE IS JUMP IF A < 0
20516 3 12 59 0 0 0 COPY
20517 70 205 20 0 0 0 205 JUMP IF A == 0
20518 12 0 0 0 5 SUBTRACT LITERAL
20519 73 206 2 0 0 0 206 JUMP IF A < 0
20517>
20515>20520 83 278 8 0 0 5 278 TABLE TYPE IS OUT SET SWITCH(ES) AT LITERAL VALUE
20521 76 282 29 0 0 0 282 JUMP unconditional
20600 PROCR 206 206
20601 NOTES RADIX SELECT
20519>20602 84 278 8 0 0 0 278 SET TABLE CHECKING SET SWITCH(ES) AT VARIABLE VALUE
20603 C 12 59 0 0 0 SWITCH ACCORDING TO
20604 76 247 2 0 0 0 247 FORM SERIAL NO. JUMP unconditional
20509>20605 1 6 1 0 0 SELECT
20606 2 319 4 1 0 0 319 CONST SUBTRACT
20607 71 206 25 0 0 0 206 >NO JUMP IF A != 0
20608 54 94 60 0 0 40 BULK CLEAR
20609 34 318 3 0 0 0 318 BIT 17 SET (N) IN B
20610 36 1 16 2 0 0 COLLATE AND ADD
20611 30 0 0 0 4- SHIFT (A) BY QUARTETS
20612 3 12 90 0 0 0 LONG/SHORT IND COPY
20613 71 206 15 0 0 0 206 >LONG JUMP IF A != 0
20614 10 0 0 0 30 ALPHA ZERO SELECT LITERAL
20613>20615 30 0 0 0 3 SHIFT (A) BY QUARTETS
20616 35 0 0 0 11000 PREPARE FOR DIGIT COLLATION
20617 37 1 17 0 0 0 REPLACE SELECTED BITS
20618 76 206 21 0 0 0 206 SET ALPHA 0 OR 1 JUMP unconditional
20619 10 0 0 0 1 SELECT LITERAL
20620 3 12 90 0 0 0 COPY
20618>20621 83 263 2 0 0 1 263 SAFETY VALUE SET SWITCH(ES) AT LITERAL VALUE
20622 10 0 0 0 4 SET CHECK SWITCH SELECT LITERAL
20623 84 191 2 0 0 0 191 SET SWITCH(ES) AT VARIABLE VALUE
20624 76 247 2 0 0 0 247 >O/P JUMP unconditional
20607>20625 0 1 6 1 0 0 SELECT
20626 2 319 28 1 0 0 319 'VALUE' SUBTRACT
20627 71 207 2 0 0 0 207 >HENCE 'NOTES' JUMP IF A != 0
20628 10 0 0 0 5 SELECT LITERAL
20629 84 191 2 0 0 0 191 SET SWITCH(ES) AT VARIABLE VALUE
20630 5 12 90 1 0 0 CLEAR IND=SHORT TRANSFER
20631 76 247 2 0 0 0 247 O/P JUMP unconditional
20700 PROCR 207 207 DEAL WITH NOTES
20701 NOTES RADIX SELECT
20627>20702 12 91 0 0 0 SELECT
20703 71 207 6 0 0 0 207 JUMP IF A != 0
20704 10 0 0 0 2 FOR INSTRUCTIONS SELECT LITERAL
20705 76 207 7 0 0 0 207 JUMP unconditional
20703>20706 10 0 0 0 3 FOR TABLE ENTRIES SELECT LITERAL
20705>20707 84 191 2 0 0 0 191 SET CHECK SWITCH SET SWITCH(ES) AT VARIABLE VALUE
20708 2 12 38 0 0 0 DIRECTIVE IND FOR THIS LINE SUBTRACT
20709 73 247 2 0 0 0 247 >IS'NOTES'(IE>0) JUMP IF A < 0
20710 10 0 0 0 2 SELECT LITERAL
20711 5 12 9 0 0 0 SET THIS LINE SERIAL TRANSFER
Source image: P1000152.JPG
20712 76 191 3 0 0 0 191 >TO CHECK SWITCH JUMP unconditional
20800 PROCR 208 208 REPLACE AND ADJUST B/FWD ADDRESSES IN TABLE ENTRIES AND INSTRUCTI
20801 NOTES RADIX SELECT
20802 81 208 2 0 0 0 208 START OF SUBROUTINE
20803 34 1 8 1 0 0 REF SET (N) IN B
20804 80 321 2 0 0 0 321 >RIGHT ALIGN ENTER SUBROUTINE
20805 12 0 0 0 67 SUBTRACT LITERAL
20806 3 274 2 0 0 0 274 COPY
20807 71 208 10 0 0 0 208 >NOT'P' JUMP IF A != 0
20808 0 12 0 0 0 0 SELECT
20809 5 12 88 2 0 0 TRANSFER
27507>
20807>20810 0 12 88 2 0 0 SELECT
20811 3 12 4 0 0 0 COPY
20812 12 0 0 0 100 SUBTRACT LITERAL
20813 73 208 32 0 0 0 208 >SECTION JUMP IF A < 0
20814 12 0 0 0 899 SUBTRACT LITERAL
20815 72 208 32 0 0 0 208 >NOT REPLACEABLE (INCLUDES 999) JUMP IF A >= 0
20816 1 10 1 0 0 SELECT
20817 5 294 2 0 0 0 294 'PREVIOUS' ITEM TRANSFER
20818 80 209 2 0 0 0 209 >CALC C/FWD ADDRESS ENTER SUBROUTINE
20819 27 4 0 0 0 SELECT
20820 71 208 28 0 0 0 208 >COMPILER, DONT SET IND JUMP IF A != 0
20821 12 88 2 0 0 TEST IMPLICIT SELECT
20822 2 12 4 0 0 0 AMENDMENT SUBTRACT
20823 71 208 27 0 0 0 208 >CHANGE TO REF JUMP IF A != 0
20824 1 10 1 0 0 SELECT
20825 2 294 2 0 0 0 294 SUBTRACT
20826 70 208 28 0 0 0 208 >NO CHANGE TO ITEM JUMP IF A == 0
20823>20827 80 188 2 0 0 0 188 >SET'PRINT PROCEDURE' ENTER SUBROUTINE
20826>
20820>20828 12 88 2 0 0 SELECT
20829 5 12 4 0 0 0 NEW REF TRANSFER
20830 52 1 8 0 0 0 REPLACE REF WITH ZEROS EDIT
20831 C 306 2 0 0 0 306
20815>
20813>20832 82 208 2 0 0 0 208 END OF SUBROUTINE / LEAVE SUBROUTINE
20900 PROCR 209 209 REPLACE AND ADJUSR ADDRESS
20901 NOTES 209 SELECT
20902 81 209 2 0 0 0 209 START OF SUBROUTINE
20903 92 30 0 0 0 SELECT
20904 71 209 8 0 0 0 209 >NOT INITIAL JUMP IF A != 0
20905 10 0 0 0 2 SELECT LITERAL
20906 4 1 10 1 0 0 AUGMENT
20907 76 209 50 0 0 0 209 JUMP unconditional
20904>20908 27 0 0 0 0 SELECT
20909 34 12 33 0 0 0 SET (N) IN B
20910 75 209 50 0 0 0 209 >ISSUE 6 I/P OR PT I/P JUMP IF AB != 0
20911 274 2 0 0 0 274 SELECT
20912 70 209 50 0 0 0 209 >REF WAS'P' JUMP IF A == 0
20913 27 4 0 0 0 SELECT
20914 71 209 50 0 0 0 209 >COMPILER CALLED TRANSLATOR JUMP IF A != 0
20915 12 88 2 0 0 SELECT
20916 5 12 119 0 0 0 TRANSFER
20917 80 201 2 0 0 0 201 >REPLACE OLD PROCR ENTER SUBROUTINE
20918 71 209 38 0 0 0 209 >MATCH FOUND NOW ADJUST JUMP IF A != 0
20919 12 88 2 0 0 SELECT
20920 30 0 0 0 2 TRY UNIQUE REFS SHIFT (A) BY QUARTETS
Source image: P1000153.JPG
20921 1 1 10 0 0 0 ADD
20922 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
20923 C 0 0 0 50
20924 5 245 2 0 0 0 245 TRANSFER
20929>20925 55 1 0 1 0 SELECT
20926 70 209 30 0 0 0 209 >END,NO MATCH JUMP IF A == 0
20927 2 245 2 0 0 0 245 SUBTRACT
20928 70 209 32 0 0 0 209 JUMP IF A == 0
20929 94 209 25 0 1 2 209 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
20926>20930 80 195 2 0 0 0 195 >REPORT R ENTER SUBROUTINE
20931 76 209 50 0 0 0 209 >CARRY ON JUMP unconditional
20928>20932 55 0 0 1 0 EQUIVALENT OF UNIQUE REF SELECT
20933 32 0 0 0 2- SHIFT (AB) BY QUARTETS
20934 5 12 88 2 0 0 TRANSFER
20935 32 0 0 0 2 SHIFT (AB) BY QUARTETS
20936 5 1 10 0 0 0 TRANSFER
20937 76 209 50 0 0 0 209 >NOW REPLACE/ADJUST(NEW STYLE) JUMP unconditional
20918>20938 3 12 88 2 0 0 COPY
20939 30 0 0 0 2 SHIFT (A) BY QUARTETS
20940 1 1 10 0 0 0 ADD
20941 5 203 2 0 0 0 203 WL TRANSFER
20942 1 10 1 0 0 SELECT
20943 73 209 50 0 0 0 209 >DONT ADJUST NEG ITEM JUMP IF A < 0
20944 203 2 0 0 0 203 SELECT
20945 80 203 2 0 0 0 203 >ADJUST(OLD STYLE) ENTER SUBROUTINE
20946 32 0 0 0 2- SHIFT (AB) BY QUARTETS
20947 5 12 88 2 0 0 TRANSFER
20948 32 0 0 0 2 SHIFT (AB) BY QUARTETS
20949 5 1 10 0 0 0 TRANSFER
20943>
20937>
20931>
20914>
20912>
20910>
20907>20950 12 88 2 0 0 REPLACE PROCR(NEW STYLE) SELECT
20951 3 12 118 0 0 0 COPY
20952 5 12 119 0 0 0 TRANSFER
20953 274 2 0 0 0 274 SELECT
20954 71 209 57 0 0 0 209 >REF WAS NOT'P' JUMP IF A != 0
20955 12 88 2 0 0 SELECT
20956 76 209 79 0 0 0 209 JUMP unconditional
20954>20957 80 202 2 0 0 0 202 >REPLACE ENTER SUBROUTINE
20958 71 209 79 0 0 0 209 >MATCH JUMP IF A != 0
20959 12 88 2 0 0 SELECT
20960 30 0 0 0 2 TRY UNIQUE REFS SHIFT (A) BY QUARTETS
20961 1 1 10 0 0 0 (NEW STYLE) ADD
20962 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
20963 C 0 0 0 100
20964 5 245 2 0 0 0 245 TRANSFER
20969>20965 52 0 0 1 0 SELECT
20966 70 209 70 0 0 0 209 >END,NO MATCH JUMP IF A == 0
20967 2 245 2 0 0 0 245 SUBTRACT
20968 70 209 73 0 0 0 209 >MATCH JUMP IF A == 0
20969 94 209 65 0 1 2 209 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
20966>20970 319 40 1 0 0 319 '????R' SELECT
20971 5 1 44 1 0 0 TRANSFER
20972 76 209 88 0 0 0 209 >END JUMP unconditional
20968>20973 52 1 0 1 0 SELECT
20974 32 0 0 0 2- SHIFT (AB) BY QUARTETS
Source image: P1000154.JPG
20975 5 12 88 2 0 0 TRANSFER
20976 32 0 0 0 2 SHIFT (AB) BY QUARTETS
20977 5 1 10 0 0 0 TRANSFER
20978 76 209 88 0 0 0 209 >NEW ADDRESS CALCULATED JUMP unconditional
20958>
20956>20979 3 12 88 2 0 0 COPY
20980 30 0 0 0 2 NEW REF SHIFT (A) BY QUARTETS
20981 1 1 10 0 0 0 ADD
20982 5 12 58 0 0 0 TRANSFER
20983 1 10 1 0 0 SELECT
20984 73 209 88 0 0 0 209 >DONT ADJUST NEG ITEMS JUMP IF A < 0
20985 80 204 2 0 0 0 204 >ADJUST SR(NEW STYLE) ENTER SUBROUTINE
20986 12 58 0 0 0 NEW ITEM SELECT
20987 5 1 10 0 0 0 TRANSFER
20984>
20978>
20972>20988 82 209 2 0 0 0 209 END OF SUBROUTINE / LEAVE SUBROUTINE
21000 PROCR 210 210 BEGIN CHECKS ON ACTION OR C-LINE
21001 NOTES RADIX SELECT
19111>21002 80 208 2 0 0 0 208 >DEAL WITH ADDRESS OF INSTRUCTION ENTER SUBROUTINE
21003 12 4 0 0 0 NEW REF SELECT
21004 12 0 0 0 100 SUBTRACT LITERAL
21005 73 210 10 0 0 0 210 >SECTION JUMP IF A < 0
21006 12 0 0 0 899 SUBTRACT LITERAL
21007 72 210 10 0 0 0 210 >REF=999+ JUMP IF A >= 0
21008 12 118 0 0 0 PEVIOUS PROCR SELECT
21009 5 1 22 0 0 0 TRANSFER
21007>
21005>21010 1 7 0 0 0 SELECT
21011 12 0 0 0 53000 'C ' SUBTRACT LITERAL
21012 71 210 28 0 0 0 210 >NOT C-LINE JUMP IF A != 0
21013 12 60 1 0 0 SELECT
21014 70 211 2 0 0 0 211 >IGNORE C-LINE NOT POSSIBLE JUMP IF A == 0
21015 124 12 55 1 2 0 modify address of next
21016 100 1 0 2 0 C-LINE CHECK CONSTANT TO B replace (B) by (N)
21017 0 317 88 0 0 0 317 A 55 ACTION WILL TERMINATE SELECT
21018 5 317 25 0 0 0 317 AFTER 2 C-LINES TRANSFER
21019 62 0 0 0 0 SET EXCESS CONSTANTS
21020 0 12 54 0 0 0 ACION SELECT
21021 12 0 0 0 2‼ 43 SUBTRACT LITERAL
21022 70 210 25 0 0 0 210 >YES JUMP IF A == 0
21023 11 0 0 0 1 ADD LITERAL
21024 71 210 62 0 0 0 210 >NOT JUMP IF A != 0
21022>21025 10 0 0 0 1 SELECT LITERAL
21026 4 12 55 0 0 0 (TO GET NEXT C-LINE CHECK CONST) AUGMENT
21027 76 210 62 0 0 0 210 JUMP unconditional
21012>21028 12 61 0 0 0 SELECT
21029 70 210 31 0 0 0 210 JUMP IF A == 0
21030 80 296 2 0 0 0 296 ENTER SUBROUTINE
21029>21031 34 1 6 1 0 0 SET (N) IN B
21032 80 321 2 0 0 0 321 RIGHT ALIGN ACTION ENTER SUBROUTINE
21033 0 12 88 2 0 0 SELECT
21034 73 211 2 0 0 0 211 >NEGATIVE ACTION JUMP IF A < 0
21035 12 0 0 0 159 REJECT ACTION>158 SUBTRACT LITERAL
21036 72 211 2 0 0 0 211 JUMP IF A >= 0
21037 0 12 88 2 0 0 SELECT
21038 80 245 2 0 0 0 245 >BIN ENTER SUBROUTINE
21039 3 12 54 0 0 0 BINARY ACTION COPY
21040 12 0 0 0 41 65 SUBTRACT LITERAL
Source image: P1000156.JPG
21041 72 210 54 0 0 0 210 > SECOND HALF OF TABLE JUMP IF A >= 0
21042 0 12 54 0 0 0 SELECT
21043 30 0 0 0 3 SHIFT (A) BY QUARTETS
21044 101 316 2 0 0 0 316 TLU table look up
21057>21045 32 0 0 0 10 ABS BIN ADDRESS > A SHIFT (AB) BY QUARTETS
21046 3 12 55 0 0 0 LOCN TO SELECT C-LINE CHECK CONSTANT COPY
21047 0 12 54 0 0 0 BIN ACTION SELECT
21048 12 0 0 0 37 = 55 SUBTRACT LITERAL
21049 71 210 60 0 0 0 210 > NOT JUMP IF A != 0
21050 0 1 16 1 0 0 LITERAL SELECT
21051 71 210 58 0 0 0 210 > SET SECOND C-LINE IMPOSSIBLE JUMP IF A != 0
21052 0 317 86 0 0 0 317 SELECT
21053 76 210 59 0 0 0 210 > SET SECOND C-LINE ESSENTIAL JUMP unconditional
21041>21054 0 12 54 0 0 0 SELECT
21055 30 0 0 0 3 SHIFT (A) BY QUARTETS
21056 101 317 34 0 0 0 317 TLU FOR ACTION > 64 table look up
21057 76 210 45 0 0 0 210 JUMP unconditional
21051>21058 0 317 88 0 0 0 317 SELECT
21053>21059 5 317 25 0 0 0 317 CHECK CONST FOR ACTION 55 C-LINE TRANSFER
21049>21060 124 12 55 1 2 0 modify address of next
21061 100 0 0 2 0 CHECK CONST replace (B) by (N)
21027>
21024>21062 10 0 0 0 0 SELECT LITERAL
21063 36 318 4 0 0 0 318 Q1-3 COLLATE AND ADD
21064 71 211 6 0 0 0 211 > ACTION EXISTS JUMP IF A != 0
Source image: P1000160.JPG
21100 PROCR 211 211
21101 NOTES RADIX SELECT
21036>
21034>
21014>21102 10 0 0 0 5100000000 SELECT LITERAL
21103 5 1 44 1 0 0 NONEXISTENT ACTION = ERROR OF A TRANSFER
21319>21104 80 295 2 0 0 0 295 ENTER SUBROUTINE
21105 76 247 2 0 0 0 247 JUMP unconditional
21064>21106 30 0 0 0 2- SHIFT (A) BY QUARTETS
21107 84 227 2 0 0 0 227 LITERAL' SWITCH BY Q3 SET SWITCH(ES) AT VARIABLE VALUE
21108 36 318 5 0 0 0 318 BITS 5-7 COLLATE AND ADD
21109 30 0 0 0 1- SHIFT (A) BY QUARTETS
21110 84 217 2 0 0 0 217 'REF/ITEM' SET SWITCH(ES) AT VARIABLE VALUE
21111 36 318 6 0 0 0 318 BITS 1-3 COLLATE AND ADD
21112 84 214 2 0 0 0 214 'DISC/MOD' SWITCH BY Q1 SET SWITCH(ES) AT VARIABLE VALUE
21113 36 318 7 0 0 0 318 BIT 4 COLLATE AND ADD
21114 5 12 61 0 0 0 IND THAT C-LINE ESSENTIAL TRANSFER
21115 36 318 8 0 0 0 318 BIT 8 COLLATE AND ADD
21116 5 12 60 0 0 0 IND THAT C-LINE IS POSSIBLE TRANSFER
21117 5 12 59 0 0 0 CLEAR THIS TRANSFER
21200 PROCR 212 212
21201 NOTES RADIX SELECT
21202 60 0 0 0 0 SET DECIMAL RADIX
21203 1 10 0 0 0 MODULUS OF ITEM SELECT
21204 12 0 0 0 8192 SUBTRACT LITERAL
21205 72 212 8 0 0 0 212 > REPORT JUMP IF A >= 0
21206 1 11 0 0 0 SELECT
21207 70 212 9 0 0 0 212 > OK JUMP IF A == 0
21205>21208 80 196 2 0 0 0 196 > REPORT 1 ENTER SUBROUTINE
21207>21209 0 12 54 0 0 0 BIN ACTION SELECT
21210 12 0 0 0 64 100 SUBTRACT LITERAL
21211 73 212 26 0 0 0 212 > NOT MACHINE CODE JUMP IF A < 0
21212 0 12 54 0 0 0 SELECT
Source image: P1000161.JPG
21213 12 0 0 0 84 132 SUBTRACT LITERAL
21214 72 212 26 0 0 0 212 >NOT MACHINE CODE JUMP IF A >= 0
21215 0 1 12 1 0 0 DISC SELECT
21216 70 212 20 0 0 0 212 >OK JUMP IF A == 0
21217 12 0 0 0 1 SUBTRACT LITERAL
21218 70 212 20 0 0 0 212 >OK JUMP IF A == 0
21219 80 193 2 0 0 0 193 >REPORT D ENTER SUBROUTINE
21218>
21216>21220 0 1 14 1 0 0 MOD SELECT
21221 70 217 2 0 0 0 217 >OK JUMP IF A == 0
21222 12 0 0 0 4 SUBTRACT LITERAL
21223 73 217 2 0 0 0 217 >OK JUMP IF A < 0
21224 80 194 2 0 0 0 194 >REPORT M ENTER SUBROUTINE
21225 76 217 2 0 0 0 217 >TO CHECK R,I,L JUMP unconditional
21214>
21211>21226 0 1 12 1 0 0 D SELECT
21227 70 213 7 0 0 0 213 >OK JUMP IF A == 0
21228 0 1 10 0 0 0 SELECT
21229 80 192 2 0 0 0 192 >CHECK I ENTER SUBROUTINE
21300 PROCR 213 213 TEST D AND M ARE IN RANGE
21301 NOTES RADIX ACCEPTABLE SELECT
21302 1 12 1 0 0 SELECT
21303 73 213 6 0 0 0 213 JUMP IF A < 0
21304 12 0 0 0 3 SUBTRACT LITERAL
21305 73 213 7 0 0 0 213 JUMP IF A < 0
21303>21306 80 193 2 0 0 0 193 >REPORT D ENTER SUBROUTINE
21305>
21227>21307 1 14 1 0 0 MOD DIGITS SELECT
21308 70 214 2 0 0 0 214 >OK JUMP IF A == 0
21309 73 213 18 0 0 0 213 JUMP IF A < 0
21310 12 0 0 0 21 SUBTRACT LITERAL
21311 72 213 18 0 0 0 213 >WRONG JUMP IF A >= 0
21312 0 1 14 0 0 0 SELECT
21313 12 0 0 0 4 SUBTRACT LITERAL
21314 72 214 2 0 0 0 214 JUMP IF A >= 0
21315 10 0 0 0 1 IF MR 1-3 SELECT LITERAL
21316 5 92 4 0 0 0 SETTING 'REQUIRED' IND TRANSFER
21317 76 214 2 0 0 0 214 JUMP unconditional
21311>
21309>21318 80 194 2 0 0 0 194 >REPORT M ENTER SUBROUTINE
21319 76 211 4 0 0 0 211 >IGNORE JUMP unconditional
21400 PROCR 214 214
21401 NOTES RADIX SELECT
21317>
21314>
21308>21402 85 214 2 0 0 0 214 SWITCH R
21403 C 217 2 0 0 0 217 >D,M ANY VALUE
21404 C 215 2 0 0 0 215 >D,M MUST BOTH BE ZERO
21405 C 215 7 0 0 0 215 >D ZERO, M ANY
21406 C 215 3 0 0 0 215 >M ZERO, D ANY
21407 C 215 9 0 0 0 215 >D ZERO, M NONZERO
21408 C 215 10 0 0 0 215 >M NONZERO, D ANY
21409 C 214 10 0 0 0 214 >D,M ZERO, R NON-ZERO IF L=0
21409>21410 1 16 0 0 0 L SELECT
21411 70 214 16 0 0 0 214 >EXPECT R JUMP IF A == 0
21412 0 1 8 2 0 0 REF SELECT
21413 70 215 2 0 0 0 215 >OK JUMP IF A == 0
21414 80 195 2 0 0 0 195 >REPORT R ENTER SUBROUTINE
Source image: P1000166.JPG
21415 76 215 2 0 0 0 215 JUMP unconditional
21411>21416 1 8 2 0 0 SELECT
21417 71 215 2 0 0 0 215 >OK JUMP IF A != 0
21418 80 197 2 0 0 0 197 >REPORT L ENTER SUBROUTINE
21500 PROCR 215 215 CHECK D AND M
21501 NOTES RADIX SELECT
21417>
21415>
21413>
21404>21502 80 216 2 0 0 0 216 ENTER SUBROUTINE
21406>21503 1 14 1 0 0 SELECT
21504 70 217 2 0 0 0 217 JUMP IF A == 0
21513>21505 80 194 2 0 0 0 194 >REPORT M ENTER SUBROUTINE
21506 76 217 2 0 0 0 217 JUMP unconditional
21405>21507 80 216 2 0 0 0 216 ENTER SUBROUTINE
21508 76 217 2 0 0 0 217 >CHECK D=0 JUMP unconditional
21407>21509 80 216 2 0 0 0 216 ENTER SUBROUTINE
21408>21510 1 14 1 0 0 >OK SELECT
21511 71 217 2 0 0 0 217 >IGNORE JUMP IF A != 0
21512 80 295 2 0 0 0 295 >REPORT M ENTER SUBROUTINE
21513 76 215 5 0 0 0 215 JUMP unconditional
21600 PROCR 216 216 TO CHECK REFERENCE AND ITEM
21601 NOTES RADIX SELECT
21602 81 216 2 0 0 0 216 START OF SUBROUTINE
21603 1 12 1 0 0 SELECT
21604 70 216 6 0 0 0 216 JUMP IF A == 0
21605 80 193 2 0 0 0 193 >REPORT D ENTER SUBROUTINE
21604>21606 82 216 2 0 0 0 216 END OF SUBROUTINE / LEAVE SUBROUTINE
21700 PROCR 217 217
21701 NOTES RADIX SELECT
21511>
21508>
21506>
21504>
21403>
21225>
21223>
21221>21702 85 217 2 0 0 0 217 SWITCH R
21703 C 218 2 0 0 0 218 >R ZERO, PROCR, SECTION OR '1000+'
21704 C 219 2 0 0 0 219 >R, I BOTH ZERO
21705 C 220 2 0 0 0 220 MAINLINE OF FILE CONTROL
21706 C 224 2 0 0 0 224 R=100-998 OR 1000+, I EVEN
21707 C 225 2 0 0 0 225 >R IS A TRANSIT AREA
21708 C 226 2 0 0 0 226 >R IN RANGE 100-998
21709 C 218 58 0 0 0 218 >R IS PROCR OR SECTION, BUT NOT TX AREA
21800 PROCR 218 218 SWITCH = 1
21801 NOTES RADIX SELECT
22011>
22504>
21703>21802 12 4 0 0 0 SELECT
21803 73 218 36 0 0 0 218 >IGNORE R JUMP IF A < 0
21804 71 218 20 0 0 0 218 >OK JUMP IF A != 0
21805 1 14 0 0 0 MOD DIGITS SELECT
21806 71 218 49 0 0 0 218 >OK EXCEPT FOR 93,97 JUMP IF A != 0
21807 0 1 10 1 0 0 ITEM SELECT
21808 73 218 13 0 0 0 218 >ACCEPT ONLY IF ITEM JUMP IF A < 0
Source image: P1000167.JPG
21809 71 218 55 0 0 0 218 >OK JUMP IF A != 0
21810 0 12 54 0 0 0 ACTION SELECT
21811 70 218 36 0 0 0 218 >IGNORE R JUMP IF A == 0
21812 76 218 55 0 0 0 218 >OJ JUMP unconditional
21808>21813 10 0 0 0 0 SELECT LITERAL
21814 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
21815 36 1 10 0 0 0 COLLATE AND ADD
21816 12 0 0 0 + SUBTRACT LITERAL
21817 70 218 55 0 0 0 218 >OK(ITEM*) JUMP IF A == 0
22207>
22208>
22210>
22216>21818 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
21819 76 219 6 0 0 0 219 >REPORT I JUMP unconditional
21804>21820 12 0 0 0 100 SUBTRACT LITERAL
21821 73 218 31 0 0 0 218 >SECTION JUMP IF A < 0
21822 12 0 0 0 900 SUBTRACT LITERAL
21823 73 218 55 0 0 0 218 >OK JUMP IF A < 0
21824 70 218 36 0 0 0 218 >IGNORE IF=1000 JUMP IF A == 0
21825 12 0 0 0 21 SUBTRACT LITERAL
21826 72 218 36 0 0 0 218 >IGNORE IF>1020 JUMP IF A >= 0
21827 0 12 54 0 0 0 BIN ACTION SELECT
21828 12 0 0 0 50 80 SUBTRACT LITERAL
21829 70 218 36 0 0 0 218 >IGNORE JUMP IF A == 0
21830 76 218 55 0 0 0 218 >OK JUMP unconditional
21821>21831 12 4 0 0 0 DECSECTION SELECT
21832 80 183 2 0 0 0 183 >DECODE SECTION NUMBER ENTER SUBROUTINE
21833 34 12 40 0 0 0 SET (N) IN B
21834 36 12 72 0 3 0 COLLATE AND ADD
21835 71 218 55 0 0 0 218 >SECTION EXISTS JUMP IF A != 0
21851>
21854>
22407>
22411>
22413>
22604>
22606>
21829>
21826>
21824>
21811>
21803>21836 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
21903>21837 80 195 2 0 0 0 195 >REPORT R ENTER SUBROUTINE
21838 86 217 2 0 0 0 217 SELECT SWITCH R
21839 12 0 0 0 5 SUBTRACT LITERAL
21840 70 225 31 0 0 0 225 >42 OR 43 ACTION.IGNORE PREVIOUS LINE JUMP IF A == 0
21841 12 54 0 0 0 SELECT
21842 101 40 1 2 0 40 subtract literal address
21843 70 225 31 0 0 0 225 >IGNORE PREVIOUS LINE JUMP IF A == 0
21844 101 93 1 2 0 133 subtract literal address
21845 70 225 31 0 0 0 225 >IGNORE PREVIOUS LINE JUMP IF A == 0
21846 101 1 1 2 0 134 subtract literal address
21847 70 225 31 0 0 0 225 >IGNORE PREVIOUS LINE JUMP IF A == 0
21848 76 227 2 0 0 0 227 JUMP unconditional
21806>21849 12 54 0 0 0 SELECT
21850 101 93 1 2 0 93? subtract literal address
21851 70 218 36 0 0 0 218 >REPORT JUMP IF A == 0
21852 12 54 0 0 0 SELECT
21853 101 97 1 2 0 97? subtract literal address
21854 70 218 36 0 0 0 218 >REPORT JUMP IF A == 0
21835>
21830>
21823>
21817>
21812>
Source image: P1000168.JPG
21809>21855 12 59 0 0 0 SELECT
21856 70 227 2 0 0 0 227 >GO TO CHECK L JUMP IF A == 0
21857 76 225 5 0 0 0 225 >CHECK SECTION IS TX AREA JUMP unconditional
21709>21858 80 277 2 0 0 0 277 >CHECK REF ENTER SUBROUTINE
21859 76 227 2 0 0 0 227 >CHECK LITERAL JUMP unconditional
21900 PROCR 219 219 TEST R AND I ARE BOTH ZERO
21901 NOTES RADIX SELECT
21704>21902 1 8 2 0 0 TEST REF IS ZERO SELECT
21903 71 218 37 0 0 0 218 JUMP IF A != 0
21904 1 10 1 0 0 SELECT
21905 70 227 2 0 0 0 227 JUMP IF A == 0
21819>21906 80 196 2 0 0 0 196 >REPORT I ENTER SUBROUTINE
21907 76 227 2 0 0 0 227 >NO CHECK LITERAL JUMP unconditional
22000 PROCR 220 220 CHECK FILES
22001 NOTES RADIX SELECT
21705>22002 12 54 0 0 0 ACTION SELECT
22003 101 40 1 2 0 subtract literal address
22004 71 220 12 0 0 0 220 >NOT ACTION 40 JUMP IF A != 0
22005 12 60 1 0 0 SELECT
22006 70 220 12 0 0 0 220 >NOT C-LINE JUMP IF A == 0
22007 1 7 0 0 0 SELECT
22008 12 0 0 0 53000 'C ' SUBTRACT LITERAL
22009 71 220 12 0 0 0 220 >NOT THE C-LINE JUMP IF A != 0
22010 1 12 1 0 0 C-LINE DISC SELECT
22011 71 218 2 0 0 0 218 >CHECK REF IS SEC/PROCR JUMP IF A != 0
22009>
22006>
22004>22012 91 1 0 0 0 SELECT
22013 30 0 0 0 5 SHIFT (A) BY QUARTETS
22014 91 0 0 5 0 SET MODIFICATION REGISTER AT VARIABLE
22015 317 94 0 0 0 317 SET 2ND C-LINE POSSIBLE SELECT
22016 5 317 14 0 0 0 317 TRANSFER
22024>22017 91 5 0 5 0 SELECT
22018 33 0 0 0 6- SHIFT (AB) BY BITS
22019 70 220 30 0 0 0 220 >NO FILES JUMP IF A == 0
22020 11 0 0 0 4000 BIT 15 ADD LITERAL
22021 30 0 0 0 1 SHIFT (A) BY QUARTETS
22022 2 1 9 0 0 0 SUBTRACT
22023 70 220 39 0 0 0 220 >MATCH FOUND JUMP IF A == 0
22024 94 220 17 0 5 2 220 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
22025 1 7 0 0 0 SELECT
22026 12 0 0 0 53000 'C ' SUBTRACT LITERAL
22027 71 220 30 0 0 0 220 > JUMP IF A != 0
22028 80 295 2 0 0 0 295 SET C-LINE IMPOSS ENTER SUBROUTINE
22029 80 296 2 0 0 0 296 IGNORE PREVIOUS LINE ENTER SUBROUTINE
22532>
22027>
22019>22030 80 195 2 0 0 0 195 >REPORT R ENTER SUBROUTINE
22031 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
22164>22032 12 54 0 0 0 SELECT
22033 101 42 1 2 0 subtract literal address
22034 70 220 37 0 0 0 220 JUMP IF A == 0
22035 101 1 1 2 0 subtract literal address
Source image: P1000169.JPG
22036 71 235 2 0 0 0 235 > JUMP IF A != 0
22034>22037 5 12 60 1 0 0 42 OR 43 TRANSFER
22038 76 235 2 0 0 0 235 > JUMP unconditional
22023>22039 62 0 0 0 0 SET EXCESS CONSTANTS
22040 12 54 0 0 0 SELECT
22041 101 132 1 2 0 subtract literal address
22042 73 220 47 0 0 0 220 >HENCE GROUP 4 JUMP IF A < 0
22043 101 3 1 2 0 subtract literal address
22044 73 222 2 0 0 0 222 >ACTIONS 132-134 JUMP IF A < 0
22045 76 227 2 0 0 0 227 >ACTION 156 JUMP unconditional
22046 70 227 2 0 0 0 227 >ACTION 156 CHECK L JUMP IF A == 0
22042>22047 10 0 0 0 0 CLEAR A SELECT LITERAL
22048 33 0 0 0 6 ROUTE TYPE SHIFT (AB) BY BITS
22049 12 0 0 0 5 SUBTRACT LITERAL
22050 73 221 20 0 0 0 221 >RT1-4 JUMP IF A < 0
22051 70 221 13 0 0 0 221 >RT5 JUMP IF A == 0
22052 12 0 0 0 1 SUBTRACT LITERAL
22053 70 221 2 0 0 0 221 >RT6 JUMP IF A == 0
22054 12 0 0 0 3 SUBTRACT LITERAL
22055 73 221 24 0 0 0 221 >RT7,8 JUMP IF A < 0
22056 70 221 20 0 0 0 221 >RT9 JUMP IF A == 0
22057 12 0 0 0 1 SUBTRACT LITERAL
22058 70 221 2 0 0 0 221 >RT10 JUMP IF A == 0
22059 12 0 0 0 1 SUBTRACT LITERAL
22060 70 221 24 0 0 0 221 >RT11 JUMP IF A == 0
22061 12 0 0 0 1 SUBTRACT LITERAL
22062 70 221 2 0 0 0 221 >RT12 JUMP IF A == 0
22063 12 0 0 0 1 SUBTRACT LITERAL
22064 70 221 65 0 0 0 221 >RT13 JUMP IF A == 0
22065 12 0 0 0 2 SUBTRACT LITERAL
22066 70 221 2 0 0 0 221 >RT15 JUMP IF A == 0
22067 12 0 0 0 1 SUBTRACT LITERAL
22068 70 221 20 0 0 0 221 >RT16 JUMP IF A == 0
22069 12 0 0 0 2 SUBTRACT LITERAL
22070 70 221 65 0 0 0 221 >RT 18 JUMP IF A == 0
22071 12 0 0 0 1 SUBTRACT LITERAL
22072 70 221 20 0 0 0 221 >RT19 JUMP IF A == 0
22073 12 0 0 0 1 SUBTRACT LITERAL
22074 70 220 82 0 0 0 220 >RT 20 JUMP IF A == 0
22075 12 0 0 0 2 SUBTRACT LITERAL
22076 70 221 55 0 0 0 221 >22 JUMP IF A == 0
22077 12 0 0 0 2 SUBTRACT LITERAL
22078 70 221 9 0 0 0 221 >RT24 JUMP IF A == 0
22079 12 0 0 0 1 SUBTRACT LITERAL
22080 71 221 60 0 0 0 221 >NOT 25 JUMP IF A != 0
22081 76 221 20 0 0 0 221 >LIKE1 JUMP unconditional
22074>22082 12 54 0 0 0 ACTION SELECT
22083 101 40 1 2 0 subtract literal address
22084 70 222 6 0 0 0 222 >ACTION 40 JUMP IF A == 0
22085 12 0 0 0 1 SUBTRACT LITERAL
22086 70 221 60 0 0 0 221 >REJECT JUMP IF A == 0
22100 PROCR 221 221 CHECK FILES (CONTD)
22115>
22066>
22062>
22058>
22053>22102 12 54 0 0 0 ACTION SELECT
22103 101 42 1 2 0 subtract literal address
22104 70 235 2 0 0 0 235 >OK JUMP IF A == 0
Source image: P1000170.JPG
22123>22105 12 54 0 0 0 RT 1-6+9-10 SELECT
22106 101 42 1 2 0 subtract literal address
22107 73 235 2 0 0 0 235 >OK JUMP IF A < 0
22108 76 221 60 0 0 0 221 >REJECT JUMP unconditional
22078>22109 12 54 0 0 0 ACTION SELECT
22110 101 42 1 2 0 subtract literal address
22111 70 235 2 0 0 0 235 >OK JUMP IF A == 0
22112 76 221 60 0 0 0 221 >REJECT JUMP unconditional
22051>22113 12 54 0 0 0 RT 5 SELECT
22114 101 44 1 2 0 subtract literal address
22115 71 221 2 0 0 0 221 JUMP IF A != 0
22116 1 16 0 0 0 L SELECT
22117 12 0 0 0 3 SUBTRACT LITERAL
22118 70 235 2 0 0 0 235 >OK JUMP IF A == 0
22119 76 228 4 0 0 0 228 >IGNORE L JUMP unconditional
22159>
22081>
22072>
22068>
22056>
22050>22120 12 54 0 0 0 RT 1-4+9 SELECT
22121 101 43 1 2 0 subtract literal address
22122 70 235 2 0 0 0 235 >OK JUMP IF A == 0
22123 76 221 5 0 0 0 221 JUMP unconditional
22060>
22055>22124 0 12 54 0 0 0 BIN ACTION SELECT
22125 12 0 0 0 30 48 SUBTRACT LITERAL
22126 70 221 50 0 0 0 221 >ACTION 48 JUMP IF A == 0
22127 12 54 0 0 0 SELECT
22128 12 0 0 0 29 41 SUBTRACT LITERAL
22129 70 221 50 0 0 0 221 >ACTION 41 FOR M/T JUMP IF A == 0
22130 12 54 0 0 0 SELECT
22131 12 0 0 0 2+ SUBTRACT LITERAL
22132 70 221 45 0 0 0 221 >44 JUMP IF A == 0
22133 12 0 0 0 2 SUBTRACT LITERAL
22134 70 221 37 0 0 0 221 >46 JUMP IF A == 0
22135 12 0 0 0 1 SUBTRACT LITERAL
22136 71 227 2 0 0 0 227 >NOT 47, CHECK L JUMP IF A != 0
22134>22137 1 10 1 0 0 SELECT
22138 73 221 43 0 0 0 221 >REPORT JUMP IF A < 0
22139 35 0 0 0 0 PREPARE FOR DIGIT COLLATION
22140 33 0 0 0 1- SHIFT (AB) BY BITS
22141 10 0 0 0 0 SELECT LITERAL
22142 74 227 2 0 0 0 227 >EVEN, OK JUMP IF AB == 0 // 27, 1, 0
22138>22143 80 196 2 0 0 0 196 REPORT I ENTER SUBROUTINE
22144 76 227 2 0 0 0 227 JUMP unconditional
22132>22145 1 16 1 0 0 L SELECT
22146 12 0 0 0 2 SUBTRACT LITERAL
22147 70 235 2 0 0 0 235 >OK JUMP IF A == 0
22148 12 0 0 0 1 SUBTRACT LITERAL
22149 76 228 2 0 0 0 228 JUMP unconditional
22129>
22126>22150 1 16 1 0 0 LITERAL SELECT
22151 73 228 5 0 0 0 228 >REPORT L JUMP IF A < 0
22152 12 0 0 0 4 SUBTRACT LITERAL
22153 72 228 5 0 0 0 228 >REPORT L JUMP IF A >= 0
22154 76 235 2 0 0 0 235 >OK JUMP unconditional
22076>22155 317 87 0 0 0 317 CONST FOR 2ND C-LINE SELECT
22156 5 317 14 0 0 0 317 TRANSFER
22157 12 54 0 0 0 ACTION SELECT
Source image: P1000171.JPG
22158 101 41 1 2 0 subtract literal address
22159 71 221 20 0 0 0 221 >OK, NOT 41 JUMP IF A != 0
22168>
22205>
22112>
22108>
22086>
22080>22160 10 0 0 0 5100000000 A SELECT LITERAL
22161 5 1 44 1 0 0 TRANSFER
22162 80 295 2 0 0 0 295 >IGNORE THIS INSTRUCTION ENTER SUBROUTINE
22163 5 2 60 1 0 0 SET C LINE IMPOSSIBLE TRANSFER
22164 76 220 32 0 0 0 220 >CHECK FOR C-LINE JUMP unconditional
22070>
22064>22165 12 54 0 0 0 SELECT
22166 101 44 1 2 0 subtract literal address
22167 73 235 2 0 0 0 235 >OK JUMP IF A < 0
22168 76 221 60 0 0 0 221 >REJECT JUMP unconditional
22200 PROCR 222 222 ACTIONS 132-134
22044>22202 10 0 0 0 0 CLEAR A SELECT LITERAL
22203 33 0 0 0 6 RT SHIFT (AB) BY BITS
22204 12 0 0 0 11 SUBTRACT LITERAL
22205 71 221 60 0 0 0 221 >WRONG FILE JUMP IF A != 0
22084>22206 1 10 1 0 0 ITEM SELECT
22207 73 218 18 0 0 0 218 >IGNORE I JUMP IF A < 0
22208 70 218 18 0 0 0 218 >IGNORE I JUMP IF A == 0
22209 12 0 0 0 100 SUBTRACT LITERAL
22210 72 218 18 0 0 0 218 >IGNORE I JUMP IF A >= 0
22211 1 10 1 0 0 SELECT
22212 80 183 2 0 0 0 183 >DECODE SECTION NO ENTER SUBROUTINE
22213 34 12 40 0 0 0 COLLATION BIT SET (N) IN B
22214 33 0 0 0 10 SHIFT (AB) BY BITS
22215 36 12 72 0 3 0 COLLATE AND ADD
22216 70 218 18 0 0 0 218 >NOT A TX AREA, IGNORE I JUMP IF A == 0
22217 76 225 17 0 0 0 225 >X AREA CHECK, & CHECK L JUMP unconditional
22300 PROCR 223 223 ACTIONS 132-134
22400 PROCR 224 224 TEST R IS A PROCEDURE NUMBER
22401 NOTES RADIX SWITCH=4 SELECT
21706>22402 12 4 0 0 0 SELECT
22403 71 224 6 0 0 0 224 >NOT ABSOLUTE ADDRESS JUMP IF A != 0
22404 0 1 14 0 0 0 MOD DIGITS SELECT
22405 71 224 14 0 0 0 224 >OK JUMP IF A != 0
22403>22406 12 0 0 0 100 SUBTRACT LITERAL
22407 73 218 36 0 0 0 218 >IGNORE R JUMP IF A < 0
22408 12 0 0 0 899 SUBTRACT LITERAL
22409 73 224 14 0 0 0 224 >OK JUMP IF A < 0
22410 12 0 0 0 2 SUBTRACT LITERAL
22411 73 218 36 0 0 0 218 >IGNORE R JUMP IF A < 0
22412 12 0 0 0 20 SUBTRACT LITERAL
22413 72 218 36 0 0 0 218 >IGNORE R JUMP IF A >= 0
22409>
22405>22414 12 54 0 0 0 SELECT
22415 101 70 1 2 0 subtract literal address
22416 73 224 19 0 0 0 224 >CHECK I JUMP IF A < 0
22417 101 10 1 2 0 subtract literal address
22418 73 227 2 0 0 0 227 >ACTION 70-79, DON'T CHECK I JUMP IF A < 0
22416>22419 1 10 0 0 0 SELECT
22420 80 192 2 0 0 0 192 >CHECK I EVEN ENTER SUBROUTINE
Source image: P1000172.JPG
22421 76 227 2 0 0 0 227 >CHECK LITERAL JUMP unconditional
22500 PROCR 225 225
22501 NOTES RADIX SELECT
21707>22502 10 0 0 0 1 SWITCHES SELECT LITERAL
22503 5 12 59 0 0 0 TRANSFER
22504 76 218 2 0 0 0 218 >CHECK R IS A SECTION JUMP unconditional
21857>22505 10 0 0 0 0 SELECT LITERAL
22506 34 12 40 0 0 0 SET (N) IN B
22507 33 0 0 0 10 SHIFT (AB) BY BITS
22508 36 12 72 0 3 0 COLLATE TX AREA IND COLLATE AND ADD
22509 70 225 31 0 0 0 225 >NOT, IGNORE PREVIOUS INSTRUCTION JUMP IF A == 0
22510 10 0 0 0 0 SELECT LITERAL
22511 34 320 44 0 0 0 320 BITS 1-6 SET (N) IN B
22512 36 91 5 0 5 0 COLLATE AND ADD
22513 12 0 0 0 3 SUBTRACT LITERAL
22514 70 227 2 0 0 0 227 >RT 3 CARD O/P JUMP IF A == 0
22515 12 0 0 0 1 SUBTRACT LITERAL
22516 70 227 2 0 0 0 227 >RT 4 GP PRINT JUMP IF A == 0
22217>22517 96 0 0 3 0 SELECT MODIFIER
22518 35 0 0 0 0 CLEAR B PREPARE FOR DIGIT COLLATION
22519 33 0 0 0 1- HALVE THE MODIFIER SHIFT (AB) BY BITS
22520 92 0 0 3 0 SET NEW MODIFIER, CLEAR A SET MODIFIER AT VARIABLE
22521 74 225 26 0 0 0 225 > NO REMAINDER JUMP IF AB == 0 // 27, 1, 0
22522 34 12 40 0 0 0 SET (N) IN B
22523 12 40 0 0 0 SELECT
22524 33 0 0 0 10 FORM 5-LOCN MATRIX FOR ALL TX AREAS SHIFT (AB) BY BITS
22525 76 225 28 0 0 0 225 NOT USED IN GPOP ORDERS JUMP unconditional
22521>22526 12 40 0 0 0 SELECT
22527 34 12 40 0 0 0 SET (N) IN B
22525>22528 37 12 100 0 3 0 SET BIT REPLACE SELECTED BITS
22529 60 0 0 0 0 AREA PATTERN SET DECIMAL RADIX
22530 76 227 2 0 0 0 227 JUMP unconditional
22509>
21847>
21845>
21843>
21840>22531 80 296 2 0 0 0 296 IGNORE PREVIOUS INSTRUCTION ENTER SUBROUTINE
22532 76 220 30 0 0 0 220 JUMP unconditional
22600 PROCR 226 226 TEST REFERENCE IS GREATER THAN 99
22601 NOTES RADIX SWITCH=6 SELECT
21708>22602 12 4 0 0 0 SELECT
22603 12 0 0 0 100 SUBTRACT LITERAL
22604 73 218 36 0 0 0 218 JUMP IF A < 0
22605 12 0 0 0 900 SUBTRACT LITERAL
22606 72 218 36 0 0 0 218 IGNORE R JUMP IF A >= 0
22700 PROCR 227 227 SWITCH FOR LITERALS
22701 NOTES RADIX CHECK L IS NOT > 10 QUARTETS SELECT
22530>
22516>
22514>
22421>
22418>
22144>
22142>
22136>
22046>
22045>
21907>
21905>
21859>
21856>
Source image: P1000173.JPG
21848>22702 0 1 18 1 0 0 SELECT
22703 71 228 4 0 0 0 228 >IGNORE L JUMP IF A != 0
22704 34 1 16 1 0 0 SET (N) IN B
22705 32 0 0 0 10 SHIFT (AB) BY QUARTETS
22706 5 1 18 1 0 0 STORE MODULUS L TRANSFER
22707 85 227 2 0 0 0 227 SWITCH R
22708 C 235 2 0 0 0 235 >NO FURTHER CHECK
22709 C 233 2 0 0 0 233 >MOD L<8192
22710 C 229 2 0 0 0 229 >L POSITIVE/ZERO
22711 C 230 2 0 0 0 230 MOD<32
22712 C 231 2 0 0 0 231 L HAS DIGITS 0 OR 1
22713 C 232 2 0 0 0 232 1-<L<16
22714 C 233 12 0 0 0 233 1-<L<8182
22715 C 234 2 0 0 0 234 -1<L<5 QTTS
22716 C 234 5 0 0 0 234 MOD L<4096
22717 C 234 17 0 0 0 234 >L NONZERO
22718 C 234 20 0 0 0 234 >L ZERO
22719 C 234 22 0 0 0 234 >L<100
22720 C 234 32 0 0 0 234 >IF L=0,MUST HAVE C-LINE
22800 PROCR 228 228 MAKE REPORTS ON L
22801 NOTES RADIX SWITCH=2 SELECT
23404>
23421>
22149>22802 70 235 2 0 0 0 235 JUMP IF A == 0
22803 76 228 5 0 0 0 228 JUMP unconditional
22904>
23203>
23313>
23319>
23409>
23425>
23430>
22703>
22119>22804 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
23003>
23005>
23109>
23205>
23306>
23310>
23418>
23423>
22803>
22153>
22151>22805 80 197 2 0 0 0 197 >REPORT L ENTER SUBROUTINE
22806 76 235 2 0 0 0 235 >END OF CHECKS JUMP unconditional
22900 PROCR 229 229 TEST L IS POSITIVE OR ZERO
22901 NOTES RADIX SWITCH=3 SELECT
22710>22902 1 16 1 0 0 (ACTIONS 11,12) SELECT
22903 72 235 2 0 0 0 235 >OK JUMP IF A >= 0
22904 76 228 4 0 0 0 228 >IGNORE L JUMP unconditional
23000 PROCR 230 230 L=1-31 INCLUSIVE
23001 NOTES RADIX SWITCH=4 SELECT
Source image: P1000183.JPG
22711>23002 0 1 18 1 0 0 MOD L (ACTIONS 30-33) SELECT
23003 70 228 5 0 0 0 228 >REPORT L JUMP IF A == 0
23004 12 0 0 0 32 SUBTRACT LITERAL
23416>23005 72 228 5 0 0 0 228 >REPORT L JUMP IF A >= 0
23006 76 235 2 0 0 0 235 JUMP unconditional
23100 PROCR 231 231 TEST DIGITS OF L ARE 1 OR 0
23101 NOTES RADIX SWITCH=5 SELECT
22712>23102 90 0 0 3 0 ACTION 35, CERTAIN GROUP 4 SET MODIFICATION REGISTER AT LITERAL
23103 C 0 0 0 10
23104 10 0 0 0 0 SELECT LITERAL
23105 34 1 16 1 0 0 SET (N) IN B
23110>23106 32 0 0 0 1 SHIFT (AB) BY QUARTETS
23107 70 231 10 0 0 0 231 JUMP IF A == 0
23108 12 0 0 0 1 SUBTRACT LITERAL
23109 71 228 5 0 0 0 228 JUMP IF A != 0
23107>23110 94 231 6 0 3 1 231 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
23111 76 235 2 0 0 0 235 >OK JUMP unconditional
23200 PROCR 232 232 TEST L IS IN RANGE 1-15
23201 NOTES RADIX SWITCH=6 SELECT
22713>23202 1 16 1 0 0 ACTION 38 SELECT
23203 73 228 4 0 0 0 228 >REPORT L IGNORE JUMP IF A < 0
23204 12 0 0 0 16 SUBTRACT LITERAL
23205 72 228 5 0 0 0 228 JUMP IF A >= 0
23206 76 235 2 0 0 0 235 >OK JUMP unconditional
23300 PROCR 233 233 L IS LESS THAN 8192 BULK COPY
23301 NOTES RADIX SWITCH=7 SELECT
22709>23302 12 61 0 0 0 C-LINE IND (ACTION 90) SELECT
23303 71 233 7 0 0 0 233 >NOT C-LINE JUMP IF A != 0
23304 12 46 0 0 0 FIRST LINE LITERAL SELECT
23305 34 1 18 0 0 0 C-LINE LITERAL SET (N) IN B
23306 74 228 5 0 0 0 228 >REPORT L IF BOTH ZERO JUMP IF AB == 0 // 27, 1, 0
23303>23307 1 18 1 0 0 SELECT
23308 3 12 46 0 0 0 COPY
23309 12 0 0 0 8192 SUBTRACT LITERAL
23310 72 228 5 0 0 0 228 >REPORT L JUMP IF A >= 0
23311 76 235 2 0 0 0 235 >OK JUMP unconditional
22714>23312 1 16 1 0 0 ACTION 55 SELECT
23313 73 228 4 0 0 0 228 >IGNORE L JUMP IF A < 0
23413>23314 1 12 0 0 0 DISC SELECT
23315 70 233 17 0 0 0 233 >SHORT JUMP IF A == 0
23316 10 0 0 0 4095 SELECT LITERAL
23315>23317 11 0 0 0 4095 ADD LITERAL
23318 2 1 16 1 0 0 SUBTRACT
23319 73 228 4 0 0 0 228 >IGNORE L JUMP IF A < 0
23320 76 235 2 0 0 0 235 >OK JUMP unconditional
23400 PROCR 234 234
23401 NOTES RADIX SELECT
22715>23402 0 1 16 1 0 0 LITERAL IN 5 QUARTETS SELECT
23403 30 0 0 0 5- (LEAVE SIGN IN A) SHIFT (A) BY QUARTETS
23404 76 228 2 0 0 0 228 JUMP unconditional
22716>23405 0 12 54 0 0 0 ACTIONS 54,94 SELECT
23406 12 0 0 0 36 SUBTRACT LITERAL
23407 71 234 14 0 0 0 234 >NOT ACTION 54 JUMP IF A != 0
23408 0 1 16 1 0 0 SELECT
23409 73 228 4 0 0 0 228 >IGNORE L JUMP IF A < 0
23410 70 234 34 0 0 0 234 JUMP IF A == 0
Source image: P1000185.JPG
23411 10 0 0 0 0 SELECT LITERAL
23412 5 12 60 1 0 0 TRANSFER
23413 76 233 14 0 0 0 233 >CHECK RANGE JUMP unconditional
23407>23414 0 1 18 1 0 0 MOD L SELECT
23415 12 0 0 0 4096 SUBTRACT LITERAL
23416 76 230 5 0 0 0 230 JUMP unconditional
22717>23417 0 1 16 1 0 0 CHECK L NONZERO (ACTION 17:19) SELECT
23418 70 228 5 0 0 0 228 JUMP IF A == 0
23419 76 235 2 0 0 0 235 JUMP unconditional
22718>23420 1 16 1 0 0 CHECK L=0 ACTIONS 83 SELECT
23421 76 228 2 0 0 0 228 JUMP unconditional
22719>23422 1 16 1 0 0 L<100 SELECT
23423 73 228 5 0 0 0 228 > REPORT L JUMP IF A < 0
23424 12 0 0 0 100 SUBTRACT LITERAL
23425 72 228 4 0 0 0 228 > IGNORE L JUMP IF A >= 0
23426 0 12 54 0 0 0 ACTION SELECT
23427 101 83 1 2 0 subtract literal address
23428 71 235 2 0 0 0 235 > NOT 83 JUMP IF A != 0
23429 0 1 16 0 0 0 SELECT
23430 70 228 4 0 0 0 228 > IGNORE L JUMP IF A == 0
23431 76 235 2 0 0 0 235 JUMP unconditional
22720>23432 0 1 16 1 0 0 ACTION 77, 78 SELECT
23433 71 235 2 0 0 0 235 > OK JUMP IF A != 0
23410>23434 10 0 0 0 1 (ZERO L FOR 54, 77, 78 ACTIONS) SELECT LITERAL
23435 5 12 61 0 0 0 MUST BE C-LINE TRANSFER
23500 PROCR 235 235 TEST FP/MG USED, STORE MR>3 DETAILS
23501 NOTES RADIX SELECT
23433>
23431>
23428>
23419>
23320>
23311>
23206>
23111>
23006>
22903>
22806>
22802>
22708>
22167>
22154>
22147>
22122>
22118>
22111>
22107>
22104>
22038>
22036>23502 62 0 0 0 0 SET EXCESS CONSTANTS
23503 12 54 0 0 0 SELECT
23504 12 0 0 0 14 TEST ACTION IS 20 - 29 SUBTRACT LITERAL
23505 73 247 2 0 0 0 247 JUMP IF A < 0
23506 12 0 0 0 Ю SUBTRACT LITERAL
23507 73 235 17 0 0 0 235 JUMP IF A < 0
23508 12 0 0 0 15 SUBTRACT LITERAL
23509 73 247 2 0 0 0 247 >30 - 50 JUMP IF A < 0
23510 12 0 0 0 SUBTRACT LITERAL
23511 70 235 14 0 0 0 235 > 66 JUMP IF A == 0
Source image: P1000186.JPG
23512 12 0 0 0 1 SUBTRACT LITERAL
23513 71 235 19 0 0 0 235 >NOT 67 JUMP IF A != 0
23511>23514 10 0 0 0 1- SELECT LITERAL
23515 5 92 5 0 0 0 TRANSFER
23516 76 235 19 0 0 0 235 JUMP unconditional
23507>23517 5 92 5 0 0 0 SET F. PT. INDICATOR FOR PASS 3 TRANSFER
23518 76 247 2 0 0 0 247 JUMP unconditional
23516>
23513>23519 1 14 0 0 0 MOD DIGITS SELECT
23520 80 245 2 0 0 0 245 >CONVERT ENTER SUBROUTINE
23521 3 12 88 0 0 0 STORE COPY
23522 70 236 2 0 0 0 236 JUMP IF A == 0
23523 12 0 0 0 4 SUBTRACT LITERAL
23524 73 236 2 0 0 0 236 >MR 1-3 JUMP IF A < 0
23525 12 54 0 0 0 ACTION SELECT
23526 12 0 0 0 3‼ 59 SUBTRACT LITERAL
23527 70 235 32 0 0 0 235 >ACTION 59 JUMP IF A == 0
23528 12 0 0 0 1£ 31 SUBTRACT LITERAL
23529 73 236 2 0 0 0 236 ><90 JUMP IF A < 0
23530 12 0 0 0 4 SUBTRACT LITERAL
23531 72 236 2 0 0 0 236 >>93 JUMP IF A >= 0
23527>23532 91 71 0 0 3 0 CTR OF MR'S (INITIALLY 0:0) SET MODIFICATION REGISTER AT VARIABLE
23539>23533 10 0 0 0 0 SELECT LITERAL
23534 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
23535 36 71 2 0 3 0 COLLATE AND ADD
23536 70 235 40 0 0 0 235 >NONE STORED YET JUMP IF A == 0
23537 2 12 88 0 0 0 THIS ONE SUBTRACT
23538 70 236 2 0 0 0 236 >ALREADY STORED JUMP IF A == 0
23539 94 235 33 0 3 1 235 >SEARCH STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
23536>23540 92 0 0 0 0 UNCORR CHAP (BIN) SELECT
23541 30 0 0 0 4 SHIFT (A) BY QUARTETS
23542 1 12 88 0 0 0 MR (BIN) ADD
23543 5 71 2 0 3 0 STORE DETAIL TRANSFER
23544 10 0 0 0 1 SELECT LITERAL
23545 4 71 1 0 0 0 AUG CTR AUGMENT
23600 PROCR 236 236 TEST ACTION IS C
23601 NOTES RADIX FOR ACTIONS 85 AND 150 SELECT
23538>
23531>
23529>
23524>
23522>23602 62 0 0 0 0 SET EXCESS CONSTANTS
23700 PROCR 237 237 TEST FOR SEQUENCE CHANGES
23701 NOTES RADIX SELECT
23702 0 12 54 0 0 0 BIN ACTION SELECT
23703 12 0 0 0 46 SUBTRACT LITERAL
23704 73 243 2 0 0 0 243 >ACTION <70 JUMP IF A < 0
23705 12 0 0 0 7 SUBTRACT LITERAL
23706 73 240 2 0 0 0 240 ACTIONS 70-76 JUMP IF A < 0
23707 12 0 0 0 2 SUBTRACT LITERAL
23708 70 240 2 0 0 0 240 >ACTION 79 JUMP IF A == 0
23709 72 237 14 0 0 0 237 >OTHERS JUMP IF A >= 0
23710 0 1 6 1 0 0 ACTION OR C SELECT
23711 12 0 0 0 5300000000 SUBTRACT LITERAL
23712 71 240 2 0 0 0 240 >MAINLINE OF 77, 78 JUMP IF A != 0
23713 76 247 2 0 0 0 247 >HENCE C-LINE OF 77-78 JUMP unconditional
23709>23714 12 0 0 0 6 SUBTRACT LITERAL
23715 70 238 2 0 0 0 238 >ACTION 85 JUMP IF A == 0
Source image: P1000187.JPG
23716 12 0 0 0 2 SUBTRACT LITERAL
23717 70 237 22 0 0 0 237 >87 JUMP IF A == 0
23718 12 0 0 0 7 SUBTRACT LITERAL
23719 70 239 13 0 0 0 239 >ACTION 94 JUMP IF A == 0
23720 12 0 0 0 3 SUBTRACT LITERAL
23721 71 237 26 0 0 0 237 >ACTIONS>97 JUMP IF A != 0
23727>
23717>23722 1 7 0 0 0 SELECT
23723 12 0 0 0 53000 SUBTRACT LITERAL
23724 70 240 2 0 0 0 240 >IS C-LINE, COUNT AS CHANGE JUMP IF A == 0
23725 76 247 2 0 0 0 247 >OUTPUT JUMP unconditional
23721>23726 12 0 0 0 35 SUBTRACT LITERAL
23727 70 237 22 0 0 0 237 >ACTION 150 JUMP IF A == 0
23728 76 239 2 0 0 0 239 >TRY MACHINE CODE ACTIONS JUMP unconditional
23800 PROCR 238 238 FORM SWITCH DETAILS
23801 NOTES RADIX SELECT
23715>23802 1 7 0 0 0 SELECT
23803 12 0 0 0 53000 SUBTRACT LITERAL
23804 70 240 2 0 0 0 240 >IS C-LINE OF 85 ACTION JUMP IF A == 0
23805 91 95 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
23806 12 4 0 0 0 PROCR SELECT
23807 80 245 2 0 0 0 245 >CONVERT ENTER SUBROUTINE
23808 5 12 32 0 0 0 TRANSFER
23815>23809 10 0 0 0 0 SELECT LITERAL
23810 34 319 20 0 0 0 319 BITS 1-10 SET (N) IN B
23811 36 95 2 0 3 0 COLLATE AND ADD
23812 70 238 16 0 0 0 238 >NONE STORED YET JUMP IF A == 0
23813 2 12 32 0 0 0 SUBTRACT
23814 70 238 25 0 0 0 238 >ALREADY STORED JUMP IF A == 0
23815 94 238 9 0 3 1 238 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
23812>23816 0 95 1 0 0 0 SELECT
23817 12 0 0 0 30 SUBTRACT LITERAL
23818 72 238 25 0 0 0 238 >DONT STORE 49-TH JUMP IF A >= 0
23819 0 92 0 0 0 0 CURRENT BIN UNCORR CHAP SELECT
23820 30 0 0 0 4 SHIFT (A) BY QUARTETS
23821 1 12 32 0 0 0 SWITCH PROCR ADD
23822 5 95 2 0 3 0 STORE DETAIL TRANSFER
23823 10 0 0 0 1 SELECT LITERAL
23824 4 95 1 0 0 0 STEP CTR AUGMENT
23818>
23814>23825 60 0 0 0 0 COUNTER IN BINARY SET DECIMAL RADIX
23826 76 247 2 0 0 0 247 >O/P INSTRUCTION JUMP unconditional
23900 PROCR 239 239 MACHINE CODE SEQUENCE CHANGES
23901 NOTES RADIX SELECT
23728>23902 0 12 54 0 0 0 BIN ACTION SELECT
23903 12 0 0 0 7 SUBTRACT LITERAL
23904 70 240 2 0 0 0 240 >ACTION 127/D/M JUMP IF A == 0
23905 11 0 0 0 3 ADD LITERAL
23906 71 241 2 0 0 0 241 >NOT 124/D/M JUMP IF A != 0
23907 1 12 0 0 0 SELECT
23908 12 0 0 0 1 SUBTRACT LITERAL
23909 71 241 2 0 0 0 241 >NOT 124/1/M JUMP IF A != 0
23910 1 14 0 0 0 SELECT
23911 71 241 2 0 0 0 241 >NOT 124/1/0 JUMP IF A != 0
23912 76 240 2 0 0 0 240 ACTION 94 JUMP unconditional
23719>23913 60 0 0 0 0 SET DECIMAL RADIX
23914 0 1 16 1 0 0 SELECT
23915 71 239 17 0 0 0 239 JUMP IF A != 0
Source image: P1000188.JPG
23916 80 197 2 0 0 0 197 >REPORT L ENTER SUBROUTINE
23915>23917 0 1 8 1 0 0 SELECT
23918 71 240 2 0 0 0 240 >COUNT AS SEQ CHANGE JUMP IF A != 0
23919 0 1 10 0 0 0 SELECT
23920 70 247 2 0 0 0 247 JUMP IF A == 0
23921 80 196 2 0 0 0 196 >REPORT I ENTER SUBROUTINE
23922 76 247 2 0 0 0 247 JUMP unconditional
24000 PROCR 240 240 TEST IF SEQUENCE CHANGE IS FORWARD OR BACK
24001 NOTES RADIX SELECT
23918>
23912>
23904>
23804>
23724>
23712>
23708>
23706>24002 0 12 4 0 0 0 DEC REF SELECT
24003 12 0 0 0 999 SUBTRACT LITERAL
24004 72 247 2 0 0 0 247 JUMP IF A >= 0
24005 0 92 3 0 0 0 (CURRENT LINE SERIAL) SELECT
24006 30 0 0 0 2 SHIFT (A) BY QUARTETS
24007 1 12 9 0 0 0 SEQ CHANGE SOURCE ADD
24008 3 12 118 0 0 0 SOURCE COPY
24009 2 1 8 2 0 0 L-ALIGNED REF SUBTRACT
24010 2 1 10 0 0 0 ITEM SUBTRACT
24011 73 247 2 0 0 0 247 >SOURCE<DEST. SEQ CHANGE FWD JUMP IF A < 0
24012 1 8 2 0 0 SELECT
24013 70 247 2 0 0 0 247 >SC TO ABS ADDRESS, DON'T STORE JUMP IF A == 0
24014 1 1 10 0 0 0 ADD
24015 73 247 2 0 0 0 247 >SKIP JUMP IF A < 0
24016 5 12 119 0 0 0 DESTINATION TRANSFER
24017 0 12 118 1 0 0 SELECT
24018 62 0 0 0 0 SET EXCESS CONSTANTS
24019 124 92 9 1 2 0 ABS START OF LIST 918+2496 INITIALLY) modify address of next
24020 101 0 1 0 0 TABLE LOOKUP table look up
24021 32 0 0 0 10 SHIFT (AB) BY QUARTETS
24022 91 0 0 1 0 STORE LOCN OF FIRST GREATER SET MODIFICATION REGISTER AT VARIABLE
24023 2 92 9 0 0 0 SUBTRACT
24024 30 0 0 0 5 SHIFT QTTY TO BE MOVED SHIFT (A) BY QUARTETS
24025 1 92 9 0 0 0 START ADD
24026 5 12 88 1 0 0 WL=BULK COPY TABLE ENTRY TRANSFER
24027 0 92 9 0 0 0 CURRENT LIST START SELECT
24028 2 317 90 0 0 0 317 ABS ADDRESS 18:0 SUBTRACT
24029 70 247 2 0 0 0 247 >LIST FULL, DONT STORE JUMP IF A == 0
24030 10 0 0 0 2- SELECT LITERAL
24031 4 92 9 0 0 0 ADJUST FOR NEW START AUGMENT
24032 12 88 1 0 0 SELECT
24033 124 92 9 1 2 0 modify address of next
24034 128 0 1 1 0 BULK COPY UP ONE WORD bulk copy long numeric
24035 94 0 0 1 2- ADJUST STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24036 12 118 1 0 0 NEW SEQ CH BACK SELECT
24037 5 0 1 1 0 PLACE IN LIST TRANSFER
24038 76 247 2 0 0 0 247 JUMP unconditional
24100 PROCR 241 241 STORE OVERLAY DETAILS
24101 NOTES RADIX SELECT
23911>
23909>
23906>24102 12 54 0 0 0 BIN ACTION SELECT
Source image: P1000189.JPG
24103 12 0 0 0 98 SUBTRACT LITERAL
24104 71 243 2 0 0 0 243 >NOT ACTION 152, OVERLAY JUMP IF A != 0
24105 91 12 12 0 3 0 SCAN CHAPTER STARTS SET MODIFICATION REGISTER AT VARIABLE
24109>24106 12 4 0 0 0 PROCR OF OLAID/OLAYER CHAP START SELECT
24107 2 12 14 0 3 0 NEXT CHAP START SUBTRACT
24108 70 241 13 0 0 0 241 >MATCH FOUND JUMP IF A == 0
24109 94 241 6 0 3 1 241 >TRY NEXT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24110 80 195 2 0 0 0 195 >REPORT R ENTER SUBROUTINE
24111 80 295 2 0 0 0 295 >IGNORE INSTRUCTION ENTER SUBROUTINE
24112 76 241 14 0 0 0 241 >PRETEND IS CHAP 1 JUMP unconditional
24108>24113 95 0 0 3 0 SELECT MODIFICATION REGISTER
24112>24114 11 0 0 0 1 ADD LITERAL
24115 5 12 46 0 0 0 TRANSFER
24116 0 12 61 0 0 0 IS C-LINE READ YET? SELECT
24117 70 242 2 0 0 0 242 >THIS IS C-LINE NOW JUMP IF A == 0
24118 0 12 46 0 0 0 OLAID CHAP SELECT
24119 5 12 47 0 0 0 TRANSFER
24120 76 247 2 0 0 0 247 >O/P+READ C-LINE JUMP unconditional
24200 PROCR 242 242 UPDATE CORR CHAP INDEX, UPDATE NO OF INITIAL CHAPS
24201 NOTES RADIX SELECT
24117>24202 10 0 0 0 10 BIT 5 SELECT LITERAL
24203 32 0 0 0 10- SHIFT (AB) BY QUARTETS
24204 10 0 0 0 10 SELECT LITERAL
24205 124 12 46 0 1 0 OLAYER SET 'NON-UNIQUE' INDmodify address of next
24206 37 92 9 0 0 0 BIT 5 REPLACE SELECTED BITS
24207 124 12 47 0 1 0 OLAID modify address of next
24208 37 92 9 0 0 0 REPLACE SELECTED BITS
24209 10 0 0 0 0 SELECT LITERAL
24210 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
24211 124 12 46 0 1 0 modify address of next
24212 36 92 9 0 0 0 OLAYER PREVIOUS CORR CHAP COLLATE AND ADD
24213 5 12 46 0 0 0 TRANSFER
24214 124 12 47 0 1 0 modify address of next
24215 36 92 9 0 0 0 CORR CHAP OF OLAID COLLATE AND ADD
24216 3 12 47 0 0 0 COPY
24217 2 12 46 0 0 0 SUBTRACT
24218 70 247 2 0 0 0 247 >NO ADJUSTMENTS NEEDED JUMP IF A == 0
24219 73 242 24 0 0 0 242 >12/46>12/47 JUMP IF A < 0
24220 34 12 46 0 0 0 SET (N) IN B
24221 4 12 46 0 0 0 AUGMENT
24222 32 0 0 0 10 SHIFT (AB) BY QUARTETS
24223 5 12 47 0 0 0 GREATER IN 46 LESSER IN 47 TRANSFER
24219>24224 91 12 12 0 3 0 UNCORR CHAPS:0 SET MODIFICATION REGISTER AT VARIABLE
24225 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
24232>24226 10 0 0 0 0 SELECT LITERAL
24227 36 92 10 0 3 0 CORR CHAP COLLATE AND ADD
24228 2 12 46 0 0 0 GREATER IN THIS OVERLAY SUBTRACT
24229 71 242 32 0 0 0 242 >NOT TO BE REPLACED JUMP IF A != 0
24230 12 47 0 0 0 SELECT
24231 37 92 10 0 3 0 REPLACE REPLACE SELECTED BITS
24229>24232 94 242 26 0 3 1 242 >TREAT ALL CHAPS STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24233 76 247 2 0 0 0 247 O/P INSTRUCTION JUMP unconditional
24300 PROCR 243 243 STORE OLD/NEW RADICES FOR CONVERT ACTIONS
24301 NOTES RADIX SELECT
24104>
23704>24302 62 0 0 0 0 SET EXCESS CONSTANTS
24303 12 54 0 0 0 SELECT
24304 12 0 0 0 5: SUBTRACT LITERAL
Source image: P1000190.JPG
24305 70 243 14 0 0 0 243 >ACTION 93 DEC-BIN JUMP IF A == 0
24306 11 0 0 0 1+ ADD LITERAL
24307 70 243 32 0 0 0 243 >ACTION 65 ANY-ANY JUMP IF A == 0
24308 11 0 0 0 2 ADD LITERAL
24309 70 243 13 0 0 0 243 >ACTION 63 DEC-STERLING JUMP IF A == 0
24310 12 0 0 0 1 SUBTRACT LITERAL
24311 71 246 2 0 0 0 246 >ACTION NOT 64, STERLING - DECIMAL JUMP IF A != 0
24312 10 0 0 0 7£:££802 SELECT LITERAL
24309>24313 11 0 0 0 66.64 ADD LITERAL
24305>24314 11 0 0 0 6666600000 ADD LITERAL
24315 5 12 46 1 0 0 STORE OLD - NEW RADIX TRANSFER
24335>24316 92 7 0 0 0 CTR OF CONVERT TABLES TO DATE SELECT
24317 30 0 0 0 5 SHIFT (A) BY QUARTETS
24318 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
24319 70 243 27 0 0 0 243 > NONE STORED YET JUMP IF A == 0
24323>24320 99 0 1 3 0 SELECT
24321 2 12 46 1 0 0 SUBTRACT
24322 70 247 2 0 0 0 247 > ALREADY STORED JUMP IF A == 0
24323 94 243 20 0 3 2 243 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24324 0 92 7 0 0 0 SELECT
24325 12 0 0 0 32 50 SUBTRACT LITERAL
24326 72 247 2 0 0 0 247 > DONT STORE 26-TH JUMP IF A >= 0
24319>24327 0 12 46 1 0 0 SELECT
24328 5 99 0 1 3 0 TRANSFER
24329 10 0 0 0 2 SELECT LITERAL
24330 4 92 7 0 0 0 AUG CTR AUGMENT
24331 76 247 2 0 0 0 247 > O/P INSTRUCTION JUMP unconditional
24307>24332 1 16 0 0 0 L=RADIX SELECT
24333 5 12 46 0 0 0 TRANSFER
24334 12 61 0 0 0 C-LINE IND SELECT
24335 70 243 16 0 0 0 243 > THIS IS C-LINE INSERT RADIX PAIR JUMP IF A == 0
24336 12 46 0 0 0 SELECT
24337 5 12 47 0 0 0 SET OLD RADIX TRANSFER
24338 76 247 2 0 0 0 247 > GET C-LINE JUMP unconditional
24400 PROCR 244 244 CONVERT (A) TO DEC
24401 NOTES 244 SELECT
24402 81 244 2 0 0 0 244 START OF SUBROUTINE
24403 5 320 42 1 0 0 320 TRANSFER
24404 60 0 0 0 0 SET DEC SET DECIMAL RADIX
24405 124 320 2 0 2 0 320 select literal and division
24406 112 320 42 1 0 0 320 convert
24407 82 244 2 0 0 0 244 END OF SUBROUTINE / LEAVE SUBROUTINE
24500 PROCR 245 245 CONVERT (A) TO BINARY
24501 NOTES 245 SELECT
24502 81 245 2 0 0 0 245 START OF SUBROUTINE
24503 5 320 42 1 0 0 320 TRANSFER
24504 62 0 0 0 0 SET BIN SET EXCESS CONSTANTS
24505 124 320 22 0 2 0 320 select literal and division
24506 112 320 42 1 0 0 320 convert
24507 82 245 2 0 0 0 245 END OF SUBROUTINE / LEAVE SUBROUTINE
24600 PROCR 246 246 STORE UNPACK AND CONDENSE
24601 NOTES RADIX SELECT
24311>24602 0 12 61 0 0 0 SELECT
24603 70 247 2 0 0 0 247 > THIS IS C-LINE JUMP IF A == 0
24604 0 12 54 0 0 0 ACTION SELECT
24605 101 51 1 2 0 subtract literal address
24606 70 246 11 0 0 0 246 > UNPACK JUMP IF A == 0
Source image: P1000191.JPG
24607 101 2 1 2 0 subtract literal address
24608 70 246 11 0 0 0 246 >CONDENSE JUMP IF A == 0
24609 101 104 1 2 0 subtract literal address
24610 71 247 2 0 0 0 247 >NOT EXPAND (157) JUMP IF A != 0
24608>
24606>24611 12 4 0 0 0 SECTION SELECT
24612 80 245 2 0 0 0 245 >CONVERT ENTER SUBROUTINE
24613 3 12 88 0 0 0 SEC/ PROCR COPY
24614 12 0 0 0 64 100 SUBTRACT LITERAL
24615 72 247 2 0 0 0 247 >DON'T STORE FOR 3-DIGT REP JUMP IF A >= 0
24616 98 0 1 0 0 SELECT
24617 91 98 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
24618 70 246 28 0 0 0 246 >NONE STORED YET JUMP IF A == 0
24624>24619 10 0 0 0 0 SELECT LITERAL
24620 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
24621 36 98 2 0 3 0 COLLATE AND ADD
24622 2 12 88 0 0 0 SUBTRACT
24623 70 247 2 0 0 0 247 > MATCH FWND JUMP IF A == 0
24624 94 246 19 0 3 1 246 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24625 0 98 1 0 0 0 SELECT
24626 12 0 0 0 Ю SUBTRACT LITERAL
24627 72 247 2 0 0 0 247 > DONT STORE 11 - TH JUMP IF A >= 0
24618>24628 0 92 0 0 0 0 THIS CHAP UNCORR SELECT
24629 30 0 0 0 4 SHIFT (A) BY QUARTETS
24630 1 12 88 0 0 0 SECTION ADD
24631 5 98 2 0 3 0 TRANSFER
24632 10 0 0 0 1 SELECT LITERAL
24633 4 98 1 0 0 0 AUG CTR AUGMENT
24700 PROCR 247 247 FORM SERIAL NUMBER
24701 NOTES RADIX SELECT
26621>
26624>
26714>
26725>
26727>
26729>
26733>
26808>
27103>
27107>
27304>
27813>
28026>
28037>
28143>
28231>
24627>
24623>
24615>
24610>
24603>
24338>
24331>
24326>
24322>
24233>
24218>
24120>
24038>
24029>
24015>
24013>
24011>
24004>
23922>
23920>
23826>
23725>
23713>
23518>
23509>
23505>
21105>
20709>
20631>
20624>
20604>
20506>
19128>
19124>
Source image: P1000192.JPG
19122>24702 0 12 85 0 0 0 TEST IF TO IGNORE SELECT
24703 70 247 5 0 0 0 247 THIS BLOCK JUMP IF A == 0
24704 80 295 2 0 0 0 295 YES - IGNORE ENTER SUBROUTINE
24703>24705 60 0 0 0 0 SET DECIMAL RADIX
24706 92 3 0 0 0 TRANSLATOR'S PROCR SELECT
24707 30 0 0 0 2 SHIFT (A) BY QUARTETS
24708 5 12 88 0 0 0 TRANSFER
24709 86 191 2 0 0 0 191 SELECT SWITCH R
24710 12 0 0 0 5 SUBTRACT LITERAL
24711 70 247 26 0 0 0 247 >VALUES JUMP IF A == 0
24712 12 9 0 0 0 LONE SERIAL IN PROCR SELECT
24713 12 0 0 0 100 SUBTRACT LITERAL
24714 73 247 26 0 0 0 247 >OK JUMP IF A < 0
24715 86 191 2 0 0 0 191 SELECT SWITCH R
24716 12 0 0 0 2 SUBTRACT LITERAL
24717 70 247 22 0 0 0 247 >INSTRUCTIONS, IGNORE JUMP IF A == 0
24718 35 0 0 0 111111 TABLE ENTRIES, CONSTS='SER' PREPARE FOR DIGIT COLLATION
24719 10 0 0 0 725569 SELECT LITERAL
24720 37 1 44 1 0 0 REPLACE SELECTED BITS
24721 76 247 23 0 0 0 247 JUMP unconditional
24717>24722 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
24721>24723 10 0 0 0 99 SELECT LITERAL
24724 2 12 90 0 0 0 (0=SHORT, 1=LONG) SUBTRACT
24725 76 247 27 0 0 0 247 >SET 98 OR 99 JUMP unconditional
24714>
24711>24726 12 9 0 0 0 SELECT
24725>24727 4 12 88 0 0 0 AUGMENT
24728 52 1 2 0 0 0 EDIT SERIAL EDIT
24729 C 306 6 0 0 0 306
24800 PROCR 248 248 AUGMENT INSTRUCTION COUNTER
24801 NOTES RADIX SELECT
24802 10 0 0 0 0 SELECT LITERAL
24803 85 191 2 0 0 0 191 SWITCH R
24804 C 248 11 0 0 0 248 >'PROCR/TABLE'
24805 C 249 13 0 0 0 249 >INSTRUCTIONS/'NNOTES'
24806 C 249 2 0 0 0 249 >TABLE ENTRY/'NOTES'
24807 C 249 7 0 0 0 249 >CONSTANT/'CONST'
24808 C 248 9 0 0 0 248 VALUE ENTRY/VALUE
Source image: P1000193.JPG
24808>24809 5 1 2 1 0 0 CLEAR LINE SERIAL TRANSFER
24810 76 248 13 0 0 0 248 JUMP unconditional
24804>24811 0 12 9 0 0 0 SERIAL THIS LINE WITHIN SECTION SELECT
24812 71 248 18 0 0 0 248 >NOTES BLOCK JUMP IF A != 0
24911>
24810>24813 319 22 0 0 0 319 SW 27/5 LAST TIME THRU SELECT
24814 12 0 0 0 3 SUBTRACT LITERAL
24815 71 248 18 0 0 0 248 >LAST TIME WASN'T FOR CONSTANTS JUMP IF A != 0
24816 10 0 0 0 1 SELECT LITERAL
24817 5 29 6 1 0 0 CONSTS END SIGN TRANSFER
24815>
24812>24818 10 0 0 0 0 SELECT LITERAL
24819 76 249 13 0 0 0 249 JUMP unconditional
24900 PROCR 249 249 AUGMENT INSTRUCTION
24901 NOTES RADIX SELECT
24806>24902 12 9 0 0 0 SELECT
24903 12 0 0 0 1 SUBTRACT LITERAL
24904 70 249 13 0 0 0 249 JUMP IF A == 0
24905 10 0 0 0 2 SELECT LITERAL
24906 76 249 14 0 0 0 249 JUMP unconditional
24807>24907 12 9 0 0 0 SELECT
24908 71 249 12 0 0 0 249 >NOT 'CONST' BLOCK JUMP IF A != 0
24909 10 0 0 0 1 SELECT LITERAL
24910 4 12 9 0 0 0 (SO AS TO STEP BY 2 EVENTUALLY) AUGMENT
24911 76 248 13 0 0 0 248 >TEST IF LAST SECTION WAS CONSTANTS JUMP unconditional
24908>24912 0 12 90 0 0 0 SELECT
24904>
24819>
24805>24913 11 0 0 0 1 ADD LITERAL
24906>24914 4 12 9 0 0 0 AUGMENT
24915 0 12 33 0 0 0 SELECT
24916 70 249 20 0 0 0 249 >BLOCK EX MT JUMP IF A == 0
24917 0 12 1 0 0 0 SELECT
24918 30 0 0 0 2 SHIFT (A) BY QUARTETS
24919 5 1 0 1 0 0 AMEND IND TRANSFER
24916>24920 5 92 34 1 0 0 CLEAR TRANSFER
25000 PROCR 250 250 EDIT
25002 62 0 0 0 0 SET EXCESS CONSTANTS
25003 318 11 0 0 0 318 INDICATOR SELECT
25004 70 250 7 0 0 0 250 >FIRST RECORD JUMP IF A == 0
25005 80 288 2 0 0 0 288 ENTER SUBROUTINE
25006 76 250 8 0 0 0 250 JUMP unconditional
25004>25007 80 289 2 0 0 0 289 >WRITE LAST SECTION ENTER SUBROUTINE
25006>25008 12 38 0 0 0 SELECT
25009 71 250 30 0 0 0 250 >DIRECTIVE JUMP IF A != 0
25010 27 5 0 0 0 SWITCH SELECT
25011 12 0 0 0 4 SUBTRACT LITERAL
25012 70 250 25 0 0 0 250 >VALUES JUMP IF A == 0
25013 124 27 5 0 1 0 modify address of next
25014 305 6 0 0 0 305 SELECT
25015 128 29 2 1 2 0 EDIT PROCR, TABLE, CONST. edit fixed field formats
25016 319 48 1 0 0 319 SELECT
25017 124 27 5 0 1 0 modify address of next
25018 124 305 2 0 1 0 305 modify address of next
25019 128 29 0 1 1 0 COPY ANNOTATION bulk copy long numeric
25020 1 44 1 0 0 SELECT
25021 124 27 5 0 1 0 modify address of next
25022 124 305 2 0 1 0 305 modify address of next
Source image: P1000194.JPG
25023 5 29 2- 1 0 0 COPY REPORTS PASS 1 TRANSFER
25024 76 250 48 0 0 0 250 JUMP unconditional
25012>25025 55 1 11 0 0 16 VALUES BULK COPY
25026 C 29 10 2 0 0
25027 52 29 6 0 0 0 REF+ITEM EDIT
25028 C 315 2 0 0 0 315
25029 76 250 48 0 0 0 250 JUMP unconditional
25009>25030 52 29 2 0 0 0 DIRECTIVES EDIT
25031 C 307 16 0 0 0 307
25032 10 0 0 0 0 SELECT LITERAL
25033 5 319 22 0 0 0 319 TRANSFER
25034 27 5 0 0 0 SELECT
25035 12 0 0 0 1 SUBTRACT LITERAL
25036 71 250 43 0 0 0 250 >NOT PROCR JUMP IF A != 0
25037 12 38 0 0 0 SELECT
25038 73 250 43 0 0 0 250 NOT NOTES OF PROCR JUMP IF A < 0
25039 1 8 1 0 0 SELECT
25040 5 29 12 1 0 0 COPY 'RADIX' TRANSFER
25041 5 29 8 1 0 0 CLEAR TRANSFER
25042 76 250 45 0 0 0 250 JUMP unconditional
25038>
25036>25043 1 44 1 0 0 PASS 1 REPORTS SELECT
25044 5 29 12 1 0 0 TRANSFER
25042>25045 55 1 16 1 0 28 BULK COPY ANNOTATION BULK COPY
25046 C 29 14 1 0 0
25047 76 250 50 0 0 0 250 JUMP unconditional
25029>
25024>25048 27 5 0 0 0 SELECT
25049 5 319 22 0 0 0 319 TRANSFER
25047>25050 10 0 0 0 1 SELECT LITERAL
25051 5 318 11 0 0 0 318 SET INDICATOR TRANSFER
25052 60 0 0 0 0 SET DECIMAL RADIX
25053 10 0 0 0 0 SELECT LITERAL
25054 5 12 115 0 0 0 ERROR REPROT SHIFT CONTROL TRANSFER
25055 0 23 47 0 0 0 SELECT
25056 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
25057 37 29 2 1 0 0 REPLACE SELECTED BITS
25058 10 0 0 0 0 SELECT LITERAL
25059 5 23 47 0 0 0 IMPLICITLY AMENDED' TRANSFER
25060 82 186 2 0 0 0 186 END OF SUBROUTINE / LEAVE SUBROUTINE
25100 PROCR 251 251 START OF UPDATING LOOP-DEAL WITH UNAMENDED MT OR PT AT END
25428>
25562>
25619>
18513>25102 80 294 2 0 0 0 294 >TEST PT AT DIRECTIVE/END ENTER SUBROUTINE
25103 70 252 2 0 0 0 252 >NO JUMP IF A == 0
25121>
25317>
25532>
25843>25104 0 12 45 0 0 0 SELECT
25105 71 251 14 0 0 0 251 >PT AT END JUMP IF A != 0
25106 27 1 0 0 0 SELECT
25107 70 251 10 0 0 0 251 >SINGLE-RECORD BLOCKS JUMP IF A == 0
25108 4 2 8 0 (ABS MR) SELECT
25109 76 251 11 0 0 0 251 JUMP unconditional
25107>25110 0 7 6 2 0 0 MT SERIAL SELECT
25109>25111 2 9 4 2 0 0 A6 SERIAL SUBTRACT
25112 70 252 2 0 0 0 252 >MT AMENDED JUMP IF A == 0
25113 72 253 2 0 0 0 253 >MT>PT, REPORT JUMP IF A >= 0
Source image: P1000195.JPG
25105>25114 80 299 2 0 0 0 299 >TEST MT=END ENTER SUBROUTINE
25115 10 0 0 0 0 SET 'MT INPUT' SELECT LITERAL
25116 5 12 33 0 0 0 TRANSFER
25117 80 303 2 0 0 0 303 >TEST MT=PROCR ENTER SUBROUTINE
25118 80 284 2 0 0 0 284 >UNPACK ENTER SUBROUTINE
25119 80 186 2 0 0 0 186 >CHECK/EDIT/OUTPUT ENTER SUBROUTINE
25120 80 302 2 0 0 0 302 >GET NEXT RECORD ENTER SUBROUTINE
25121 76 251 4 0 0 0 251 JUMP unconditional
25200 PROCR 252 252 SWITCH FOR AMENDMENTS
25201 NOTES RADIX SELECT
25112>
25103>25202 85 252 2 0 0 0 252 SWITCH R
25203 C 254 2 0 0 0 254 >REPLACE
25204 C 255 2 0 0 0 255 >DELETE
25205 C 258 2 0 0 0 258 >INSERT BEFORE
25206 C 256 2 0 0 0 256 >REPLACE ANNOTATION
25300 PROCR 253 253 DEAL WITH OUT-OF-SEQUENCE DIRECTIVE
25301 NOTES RADIX SELECT
25113>25302 1 4 1 0 0 AMENDMENTS MODS ARE SELECT
25303 124 319 22 0 1 0 319 modify address of next
25304 124 305 10 0 1 0 305 modify address of next
25305 5 29 0 1 0 0 REPORT WORD TRANSFER
25306 34 1 2 1 0 0 SERIAL SET (N) IN B
25543>
25545>25307 80 259 2 0 0 0 259 PUT ERROR REPORT ENTER SUBROUTINE
25308 10 0 0 0 1:5: '??' OF 5-DIGIT SELECT LITERAL
25309 3 27 6 0 0 0 SET 'PT OMITTED' COPY
25310 35 0 0 0 1111 SERIAL AND PREPARE FOR DIGIT COLLATION
25311 124 319 22 0 1 0 319 modify address of next
25312 124 305 10 0 1 0 305 modify address of next
25313 37 29 0 1 0 0 REPORT WORD REPLACE SELECTED BITS
25316>25314 80 292 2 0 0 0 292 INPUT ON PAPER ENTER SUBROUTINE
25315 80 294 2 0 0 0 294 FIND DIRECTIVE ENTER SUBROUTINE
25316 70 253 14 0 0 0 253 >READ/IGNORE PT TO NEXT DIRECTIVE JUMP IF A == 0
25317 76 251 4 0 0 0 251 >MAKE THIS AMENDMENT JUMP unconditional
25400 PROCR 254 254 REPLACE
25401 NOTES RADIX SELECT
25203>25402 9 50 2 0 0 'PASS 0' IND SELECT
25403 71 254 34 0 0 0 254 >REJECT JUMP IF A != 0
25404 27 5 0 0 0 'UNPACK SWITCH' SELECT
25405 5 296 2 0 0 0 296 TRANSFER
25406 80 303 2 0 0 0 303 >TEST MT=PROCR ENTER SUBROUTINE
25407 0 12 38 0 0 0 SELECT
25408 5 197 2 0 0 0 197 TRANSFER
25409 80 293 2 0 0 0 293 >TEST PT=STACK DIRECTIVE ENTER SUBROUTINE
25410 0 12 38 0 0 0 IS REPLACING BLOCK STACK DIR OR NOT SELECT
25411 2 197 2 0 0 0 197 ARE BOTH BLOCKS SIMILAR SUBTRACT
25412 71 254 29 0 0 0 254 ILLEGAL? JUMP IF A != 0
25431>25413 10 0 0 0 1 SET AS PT INPUT SELECT LITERAL
25414 5 12 33 0 0 0 TRANSFER
25415 80 283 2 0 0 0 283 >UNPACK PT ENTER SUBROUTINE
25416 80 299 2 0 0 0 299 >DON'T REPLACE END SIGN ENTER SUBROUTINE
25417 0 12 38 0 0 0 SELECT
25418 72 254 25 0 0 0 254 >NOT PT DIRECTIVE JUMP IF A >= 0
25419 27 1 0 0 0 SELECT
25420 70 254 23 0 0 0 254 >1 RECORD PER BLOCK JUMP IF A == 0
25421 8 1 8 0 PROCR NO SELECT
Source image: P1000196.JPG
25422 76 254 24 0 0 0 254 JUMP unconditional
25420>25423 0 7 16 1 0 0 SELECT
25422>25424 5 1 8 1 0 0 TRANSFER MT PROCR NUMBER TRANSFER
25418>25425 80 302 2 0 0 0 302 >GET NEXT A1 RECORD ENTER SUBROUTINE
25426 80 186 2 0 0 0 186 >CHECK/EDIT/OUTPUT ENTER SUBROUTINE
25427 80 292 2 0 0 0 292 >READ PT ENTER SUBROUTINE
25428 76 251 2 0 0 0 251 JUMP unconditional
25412>25429 0 12 38 0 0 0 PT DIRECTIVE SELECT
25430 1 197 2 0 0 0 197 MT DIRECTIVE ADD
25431 72 254 13 0 0 0 254 >NEITHER IS STACK DIRECTIVE, ALLOW REPLAJUMP IF A >= 0
25432 296 2 0 0 0 296 SELECT
25433 5 27 5 0 0 0 RESTORE SWITCH TRANSFER
25403>25434 10 0 0 0 69 SELECT LITERAL
25435 76 255 36 0 0 0 255 >REPORT JUMP unconditional
25500 PROCR 255 255 DELETION LOOP
25501 NOTES RADIX SELECT
25204>25502 80 299 2 0 0 0 299 >END SIGN ON MT? ENTER SUBROUTINE
25503 9 4 1 0 0 SELECT
25504 5 1 0 1 0 0 STORE SERIAL TRANSFER
25505 9 50 2 0 0 'PASS 0' IND SELECT
25506 71 255 35 0 0 0 255 >REPORT JUMP IF A != 0
25507 80 292 2 0 0 0 292 >READ PT ENTER SUBROUTINE
25508 80 294 2 0 0 0 294 >TEST DIRECTIVE ENTER SUBROUTINE
25509 71 255 46 0 0 0 255 >YES (SINGLE-LINE DELETE) JUMP IF A != 0
25510 9 50 2 0 0 PASS 0 IND SELECT
25511 71 255 35 0 0 0 255 >MOD REJECTED JUMP IF A != 0
25512 27 1 0 0 0 SELECT
25513 70 255 16 0 0 0 255 >1 RECORD/BLOCK JUMP IF A == 0
25514 4 2 8 0 SELECT
25515 76 255 17 0 0 0 255 JUMP unconditional
25513>25516 7 6 2 0 0 MT SERIAL SELECT
25515>25517 30 0 0 0 8 SHIFT (A) BY QUARTETS
25518 70 255 20 0 0 0 255 >DIRECTIVE DELETED JUMP IF A == 0
25519 80 188 2 0 0 0 188 >SET 'PRINT PROCEDURE' ENTER SUBROUTINE
25534>
25518>25520 80 302 2 0 0 0 302 >GET NEXT RECORD ENTER SUBROUTINE
25521 80 299 2 0 0 0 299 >TEST END ENTER SUBROUTINE
25522 27 1 0 0 0 SELECT
25523 70 255 26 0 0 0 255 JUMP IF A == 0
25524 4 2 8 0 SELECT
25525 76 255 27 0 0 0 255 JUMP unconditional
25523>25526 7 6 2 0 0 MT SERIAL SELECT
25525>25527 2 1 2 2 0 0 PT SERIAL SUBTRACT
25528 71 255 34 0 0 0 255 JUMP IF A != 0
25529 80 302 2 0 0 0 302 >GET NEXT RECORD ENTER SUBROUTINE
25530 80 292 2 0 0 0 292 >READ PT(NEXT DIRECTIVE) ENTER SUBROUTINE
25531 80 294 2 0 0 0 294 >TEST DIRECTIVE ENTER SUBROUTINE
25532 71 251 4 0 0 0 251 >YES JUMP IF A != 0
25533 76 255 35 0 0 0 255 >REJECT JUMP unconditional
25528>25534 73 255 20 0 0 0 255 >LOOP JUMP IF A < 0
25533>
25511>
25506>25535 10 0 0 0 54 REPORT SELECT LITERAL
25607>
25847>
25435>25536 30 0 0 0 8 SHIFT (A) BY QUARTETS
25537 124 319 22 0 1 0 319 modify address of next
25538 124 305 10 0 1 0 305 modify address of next
25539 5 29 0 1 0 0 REPORT WORD TRANSFER
Source image: P1000197.JPG
25540 27 1 0 0 0 SELECT
25541 70 255 44 0 0 0 255 >1 RECORD BLOCK JUMP IF A == 0
25542 34 4 1 8 0 SET (N) IN B
25543 76 253 7 0 0 0 253 JUMP unconditional
25541>25544 34 7 6 1 0 0 SERIAL BEING DELETED SET (N) IN B
25545 76 253 7 0 0 0 253 >REPORT JUMP unconditional
25509>25546 27 1 0 0 0 SELECT
25547 70 255 50 0 0 0 255 JUMP IF A == 0
25548 4 2 8 0 SELECT
25549 76 255 51 0 0 0 255 JUMP unconditional
25547>25550 7 6 2 0 0 SELECT
25549>25551 30 0 0 0 8 SHIFT (A) BY QUARTETS
25552 70 255 54 0 0 0 255 JUMP IF A == 0
25553 80 188 2 0 0 0 188 ENTER SUBROUTINE
25561>
25552>25554 80 302 2 0 0 0 302 >GET RECORD AFTER DELETED ONE ENTER SUBROUTINE
25555 27 1 0 0 0 SELECT
25556 70 255 59 0 0 0 255 JUMP IF A == 0
25557 4 2 8 0 SELECT
25558 76 255 60 0 0 0 255 JUMP unconditional
25556>25559 7 6 2 0 0 SELECT
25558>25560 2 1 0 2 0 0 PT SERIAL FOR DELETION SUBTRACT
25561 70 255 54 0 0 0 255 >DELETE ALL BLOCKS THIS SERIAL JUMP IF A == 0
25562 76 251 2 0 0 0 251 JUMP unconditional
25600 PROCR 256 256 REPLACE ANNOTATION
25601 NOTES RADIX SELECT
25206>25602 80 303 2 0 0 0 303 >TEST MT=PROCR ENTER SUBROUTINE
25603 80 283 2 0 0 0 283 >UNPACK PT BLOCK ENTER SUBROUTINE
25604 9 50 2 0 0 'PASS 0' IND SELECT
25605 70 256 8 0 0 0 256 JUMP IF A == 0
25606 10 0 0 0 51 SELECT LITERAL
25607 76 255 36 0 0 0 255 >REPORT, READ NEXT DIRECTIVE JUMP unconditional
25605>25608 10 0 0 0 1 SELECT LITERAL
25609 3 23 47 0 0 0 SET 'IMPLICITLY AMENDED' COPY
25610 5 12 86 0 0 0 SET IND FOR SR TRANSFER
25611 80 257 2 0 0 0 257 ENTER SUBROUTINE
25612 10 0 0 0 0 SELECT LITERAL
25613 5 12 86 0 0 0 TRANSFER
25614 80 292 2 0 0 0 292 >READ PT ENTER SUBROUTINE
25615 10 0 0 0 0 SELECT LITERAL
25616 5 12 33 0 0 0 TRANSFER
25617 80 186 2 0 0 0 186 SET 'MT IN' ENTER SUBROUTINE
25618 80 302 2 0 0 0 302 >CHECK/EDIT/OUTPUT ENTER SUBROUTINE
25619 76 251 2 0 0 0 251 >GET NEXT A1 RECORD JUMP unconditional
25700 PROCR 257 257 ENTRY TO 'UNPACK' SR
25702 81 257 2 0 0 0 257 START OF SUBROUTINE
25703 0 257 2 0 0 0 257 SELECT
25704 5 284 2 0 0 0 284 PLANT LINK TRANSFER
25705 76 284 4 0 0 0 284 AVOID BULK CLEAR JUMP unconditional
25800 PROCR 258 258 INSERTION LOOP
25801 NOTES RADIX SELECT
25205>25802 9 50 2 0 0 PASS 0' IND SELECT
25803 71 258 46 0 0 0 258 >REPORT JUMP IF A != 0
25804 5 12 38 0 0 0 SET NON DIRECTIVE TRANSFER
25805 87 27 5 0 0 0 SWITCH ACCORDING TO N
25806 C 258 17 0 0 0 258
25807 C 258 17 0 0 0 258
Source image: P1000198.JPG
25808 C 258 10 0 0 0 258 CONST
25809 C 258 17 0 0 0 258
25808>25810 54 1 0 1 0 46 BULK CLEAR
25811 124 312 2 0 2 0 312 select literal and division
25812 80 326 2 0 0 0 326 UNPACK (PRETEND ITS PROCR) ENTER SUBROUTINE
25813 10 0 0 0 0 SELECT LITERAL
25814 5 1 20 1 0 0 CLEAR CLEO WORD TRANSFER
25815 5 1 44 1 0 0 CLEAR ERROR WORD TRANSFER
25816 76 258 18 0 0 0 258 JUMP unconditional
25809>
25807>
25806>25817 80 283 2 0 0 0 283 UNPACK ENTER SUBROUTINE
25816>25818 90 0 0 1 6 SET MODIFICATION REGISTER AT LITERAL
25819 C 0 0 0 44
25822>25820 1 0 1 1 0 SELECT
25821 71 258 24 0 0 0 258 >REPORT, CODING JUMP IF A != 0
25822 94 258 20 0 1 2 258 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
25823 76 258 41 0 0 0 258 JUMP unconditional
25821>25824 10 0 0 0 73 SELECT LITERAL
25825 30 0 0 0 8 SHIFT (A) BY QUARTETS
25826 124 319 22 0 1 0 319 modify address of next
25827 124 305 10 0 1 0 305 modify address of next
25828 5 29 0 1 0 0 REPORT WORD TRANSFER
25829 27 1 0 0 0 SELECT
25830 70 258 33 0 0 0 258 >1 RECORD/BLOCK JUMP IF A == 0
25831 34 4 1 8 0 LINE SERIAL SET (N) IN B
25832 76 258 34 0 0 0 258 JUMP unconditional
25830>25833 34 7 6 1 0 0 LINE SERIAL SET (N) IN B
25832>25834 80 259 2 0 0 0 259 STORE REPORT ENTER SUBROUTINE
25835 10 0 0 0 1:5: SELECT LITERAL
25836 3 27 6 0 0 0 SET 'PT OMITTED' COPY
25837 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
25838 124 319 22 0 1 0 319 modify address of next
25839 124 305 10 0 1 0 305 modify address of next
25840 37 29 0 1 0 0 REPLACE SELECTED BITS
25853>
25823>25841 80 292 2 0 0 0 292 >READ PT ENTER SUBROUTINE
25842 80 294 2 0 0 0 294 FIND AMENDMENT DIRECTIVE ENTER SUBROUTINE
25843 71 251 4 0 0 0 251 >NEW DIRECTIVE OR END SIGN JUMP IF A != 0
25844 9 50 2 0 0 PASS 0' IND SELECT
25845 70 258 48 0 0 0 258 >MOD OK JUMP IF A == 0
25803>25846 10 0 0 0 73 SELECT LITERAL
25847 76 255 36 0 0 0 255 >REPORT, READ TO NEXT AMEND DIRECTIVE JUMP unconditional
25845>25848 80 293 2 0 0 0 293 >TEST STACK DIRECTIVE ENTER SUBROUTINE
25849 10 0 0 0 1 SELECT LITERAL
25850 5 12 33 0 0 0 SET 'PT IS INPUT' TRANSFER
25851 80 283 2 0 0 0 283 >UNPACK ENTER SUBROUTINE
25852 80 186 2 0 0 0 186 >CHECK/EDIT/OUTPUT ENTER SUBROUTINE
25853 76 258 41 0 0 0 258 JUMP unconditional
25900 PROCR 259 259 STORE ERROR REPORT FOR OUT-OF-SEQUENCE MODS
25902 81 259 2 0 0 0 259 (B)=REPORT WORD START OF SUBROUTINE
25903 124 319 22 0 1 0 319 modify address of next
25904 124 305 2 0 1 0 305 modify address of next
25905 29 15 0 0 0 LAST 2.5 CHARS ANNOTATION SELECT
25906 2 319 27 0 0 0 319 SUBTRACT
25907 70 259 14 0 0 0 259 >LINE IGNORED DON'T OVERWRITE WORDJUMP IF A == 0
25908 10 0 0 0 0 CLEAR SIGN BIT A SELECT LITERAL
25909 32 0 0 0 10 SHIFT (AB) BY QUARTETS
25910 124 319 22 0 1 0 319 modify address of next
Source image: P1000199.JPG
25911 124 305 2 0 1 0 305 LAST FIVE CHARS ANNOTATION modify address of next
25912 5 29 14 1 0 0 TRANSFER
25913 82 259 2 0 0 0 259 END OF SUBROUTINE / LEAVE SUBROUTINE
25907>25914 32 0 0 0 10 SHIFT (AB) BY QUARTETS
25915 124 319 22 0 1 0 319 modify address of next
25916 124 305 2 0 1 0 305 modify address of next
25917 5 29 12 1 0 0 TRANSFER
25918 82 259 2 0 0 0 259 END OF SUBROUTINE / LEAVE SUBROUTINE
26000 PROCR 260 260 CONSTANTS ROUTINE
26001 NOTES RADIX SELECT
19113>26002 5 12 69 0 0 0 TRANSFER
26003 5 12 66 1 0 0 CLEAR INDICATORS TRANSFER
26004 5 12 70 0 0 0 TRANSFER
26005 84 695 2 0 0 0 695 CLEAR WL=SWITCH SET SWITCH(ES) AT VARIABLE VALUE
26006 91 12 66 0 2 0 CLEAR R2 SET MODIFICATION REGISTER AT VARIABLE
26007 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
26008 C 0 0 0 5
26009 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
26010 C 0 0 0 18
26011 54 94 0 0 0 60 CLEAR UNPACK AREA BULK CLEAR
26012 62 0 0 0 0 SET EXCESS CONSTANTS
26013 34 1 6 1 0 0 FIRST WORD SET (N) IN B
26014 12 33 0 0 0 NON ZERO IF EX PT SELECT
26015 5 12 70 0 0 0 SET 'NE FOUND' IND TRANSFER
26016 76 261 3 0 0 0 261 JUMP unconditional
26311>
26339>26017 80 295 2 0 0 0 295 >IGNORE CONST ENTER SUBROUTINE
26100 PROCR 261 261
26101 NOTES RADIX SELECT
26110>
26116>
26321>
26332>
26336>
26362>
26403>
26413>
26416>
26454>26102 80 274 2 0 0 0 274 >GET NEXT CHAR ENTER SUBROUTINE
26016>26103 32 0 0 0 2 SHIFT (AB) BY QUARTETS
26104 3 12 88 1 0 0 COPY
26105 12 0 0 0 7: SUBTRACT LITERAL
26106 70 261 12 0 0 0 261 >NE JUMP IF A == 0
26107 12 0 0 0 1 SUBTRACT LITERAL
26108 70 265 2 0 0 0 265 >BE,STORE NE AND END JUMP IF A == 0
26109 12 70 0 0 0 SELECT
26110 71 261 2 0 0 0 261 >NO, DONT STORE CHAR JUMP IF A != 0
26111 76 261 17 0 0 0 261 >STORE AND PROCESS JUMP unconditional
26106>26112 12 70 0 0 0 'NE FOUND' IND SELECT
26113 70 265 2 0 0 0 265 >YES, STORE NE AND END JUMP IF A == 0
26114 5 12 70 0 0 0 TRANSFER
26115 5 12 70 0 0 0 CLEAR TRANSFER
26116 76 261 2 0 0 0 261 >GNC JUMP unconditional
26111>26117 12 88 0 0 0 SELECT
26118 5 94 0 0 2 0 STORE THIS CHAR TRANSFER
26200 PROCR 262 262
26201 NOTES RADIX SELECT
Source image: P1000200.JPG
26202 96 0 0 2 0 SELECT MODIFIER
26203 94 262 4 0 2 1 262 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
26203>26204 71 262 21 0 0 0 262 >NOT FIRST CHAR IN LINE JUMP IF A != 0
26205 12 88 0 0 0 THIS CHAR SELECT
26206 12 0 0 0 7Ю SUBTRACT LITERAL
26207 70 262 23 0 0 0 262 >'(' JUMP IF A == 0
26208 83 263 10 0 0 5 263 IGNORE '(' SET SWITCH(ES) AT LITERAL VALUE
26209 5 94 60 0 0 0 TRANSFER
26210 0 94 61 0 0 0 SF CTR IN DIRECTIVE LINE SELECT
26211 70 262 19 0 0 0 262 >WRONG JUMP IF A == 0
26212 84 267 2 0 0 0 267 SET CHECK SWITCH SET SWITCH(ES) AT VARIABLE VALUE
26213 C 94 62 0 0 0
26214 0 94 62 0 0 0 SWITCH FOR FIRST SUBFIELD SELECT
26215 12 0 0 0 5 SUBTRACT LITERAL
26216 71 262 21 0 0 0 262 >NOT REL ADDRESS JUMP IF A != 0
26217 83 695 2 0 0 1 695 SET WL=1 SET SWITCH(ES) AT LITERAL VALUE
26218 76 262 21 0 0 0 262 JUMP unconditional
26317>
26328>
26351>
26447>
26211>26219 83 263 10 0 0 1 263 >IGNORE UNDIRECTED CONST SET SWITCH(ES) AT LITERAL VALUE
26220 80 263 10 0 0 0 263 >CLEAR OUT ALL DETAILS ENTER SUBROUTINE
26218>
26216>
26204>26221 12 88 0 0 0 SELECT
26222 76 263 10 0 0 0 263 CHECK JUMP unconditional
26207>26223 80 263 10 0 0 0 263 >CLEAR OUT ALL DETAILS ENTER SUBROUTINE
26224 76 263 20 0 0 0 263 >SET SWITCH AT 2 JUMP unconditional
26300 PROCR 263 263
26301 NOTES RADIX SELECT
26302 81 263 10 0 0 0 263 START OF SUBROUTINE
26303 5 94 60 1 0 0 CLEAR DETAILS TRANSFER
26304 5 94 62 1 0 0 TRANSFER
26305 5 94 64 1 0 0 TRANSFER
26306 5 94 66 1 0 0 TRANSFER
26307 5 94 68 1 0 0 TRANSFER
26308 5 94 70 1 0 0 TRANSFER
26309 82 263 10 0 0 0 263 END OF SUBROUTINE / LEAVE SUBROUTINE
26222>26310 85 263 10 0 0 0 263 SWITCH R
26311 C 260 17 0 0 0 260 >IGNORE
26312 C 263 40 0 0 0 263 >PREVIOUS WAS'C' DIRECTIV E LETTER
26313 C 264 39 0 0 0 264 >')' EXPECTED
26314 C 263 16 0 0 0 263 >',' FORBIDDEN, '(' ALLOWED
26315 C 263 22 0 0 0 263 >'(' FORBIDDEN, ',' ALLOWED
26314>26316 12 0 0 0 7+ COMMA SUBTRACT LITERAL
26317 70 262 19 0 0 0 262 >IGNORE JUMP IF A == 0
26318 11 0 0 0 2 ADD LITERAL
26319 71 264 2 0 0 0 264 >CHECK CHAR JUMP IF A != 0
26224>26320 83 263 10 0 0 2 263 SET TO EXPECT DIRECTIVE LETTER SET SWITCH(ES) AT LITERAL VALUE
26321 76 261 2 0 0 0 261 >GET NEXT CHAR JUMP unconditional
26315>26322 12 0 0 0 7+ SUBTRACT LITERAL
26323 71 263 37 0 0 0 263 >NOT COMMA JUMP IF A != 0
26324 10 0 0 0 2 SELECT LITERAL
26325 4 94 60 0 0 0 AUGMENT
26326 124 94 60 0 0 0 SF CTR IN NON-DIRECTIVE LINE modify address of next
26327 94 62 0 0 0 SF DETAILS SELECT
26328 70 262 19 0 0 0 262 >IGNORE JUMP IF A == 0
26329 84 267 2 0 0 0 267 SET SWITCH(ES) AT VARIABLE VALUE
Source image: P1000201.JPG
26330 86 267 2 0 0 0 267 SELECT SWITCH R
26331 12 0 0 0 5 SUBTRACT LITERAL
26332 71 261 2 0 0 0 261 >NOT REL ADDRESS JUMP IF A != 0
26333 96 0 0 2 0 SELECT MODIFIER
26334 11 0 0 0 1 ADD LITERAL
26335 84 695 2 0 0 0 695 WL=LOCN OF SECOND CHAR SET SWITCH(ES) AT VARIABLE VALUE
26336 76 261 2 0 0 0 261 >GET NEXT CHAR JUMP unconditional
26323>26337 11 0 0 0 2 ADD LITERAL
26338 71 264 2 0 0 0 264 >NOT '(', CHECK CHAR JUMP IF A != 0
26339 76 260 17 0 0 0 260 >IGNORE GET NEXT CHAR JUMP unconditional
26312>26340 12 0 0 0 51 SUBTRACT LITERAL
26341 70 263 59 0 0 0 263 >A JUMP IF A == 0
26342 12 0 0 0 1 SUBTRACT LITERAL
26343 70 263 57 0 0 0 263 >B JUMP IF A == 0
26344 12 0 0 0 1 SUBTRACT LITERAL
26345 70 263 52 0 0 0 263 >C JUMP IF A == 0
26346 12 0 0 0 1 SUBTRACT LITERAL
26347 70 263 58 0 0 0 263 >D JUMP IF A == 0
26348 12 0 0 0 13 SUBTRACT LITERAL
26349 70 263 56 0 0 0 263 >P JUMP IF A == 0
26350 12 0 0 0 2 SUBTRACT LITERAL
26351 71 262 19 0 0 0 262 >IGNORE NOT R JUMP IF A != 0
26345>26352 96 0 0 2 0 SELECT MODIFIER
26353 11 0 0 0 2 ADD LITERAL
26354 84 695 2 0 0 0 695 WL=LOCN OF SECOND CHAR SET SWITCH(ES) AT VARIABLE VALUE
26355 10 0 0 0 1 RANDO SELECT LITERAL
26349>26356 11 0 0 0 1 P ADD LITERAL
26343>26357 11 0 0 0 1 B ADD LITERAL
26347>26358 11 0 0 0 1 D ADD LITERAL
26341>26359 11 0 0 0 1 A ADD LITERAL
26360 84 267 2 0 0 0 267 SET CHECKING SWITCH SET SWITCH(ES) AT VARIABLE VALUE
26361 83 263 10 0 0 3 263 SET TO EXPECT ')' SET SWITCH(ES) AT LITERAL VALUE
26362 76 261 2 0 0 0 261 >GET NEXT CHAR JUMP unconditional
26400 PROCR 264 264
26401 NOTES RADIX SELECT
26338>
26319>26402 85 267 2 0 0 0 267 CHECK SWITCH SWITCH R
26403 C 261 2 0 0 0 261 >A,GNC
26404 C 264 8 0 0 0 264 >D
26405 C 264 17 0 0 0 264 >B
26406 C 264 21 0 0 0 264 >P
26407 C 264 26 0 0 0 264 >R
26420>
26422>
26424>
26432>
26404>26408 0 12 88 0 0 0 DECIMAL SELECT
26409 30 0 0 0 1- CONTROL SHIFT (A) BY QUARTETS
26410 12 0 0 0 2 SUBTRACT LITERAL
26411 70 264 14 0 0 0 264 >REPORT * JUMP IF A == 0
26412 12 0 0 0 3 SUBTRACT LITERAL
26413 73 261 2 0 0 0 261 >OK JUMP IF A < 0
26419>
26425>
26411>26414 10 0 0 0 5‼ * SELECT LITERAL
26415 5 1 44 1 0 0 TRANSFER
26416 76 261 2 0 0 0 261 JUMP unconditional
26438>
26443>
26446>
Source image: P1000202.JPG
26405>26417 0 12 88 2 0 0 BASIC BINARY SELECT
26418 12 0 0 0 Ю SUBTRACT LITERAL
26419 72 264 14 0 0 0 264 >REPORT JUMP IF A >= 0
26420 76 264 8 0 0 0 264 >CHECK CONTROL JUMP unconditional
26406>26421 0 12 88 2 0 0 BASIC PATTERN SELECT
26422 70 264 8 0 0 0 264 JUMP IF A == 0
26423 12 0 0 0 1 SUBTRACT LITERAL
26424 70 264 8 0 0 0 264 JUMP IF A == 0
26425 76 264 14 0 0 0 264 >REPORT JUMP unconditional
26407>26426 12 88 0 0 0 CHAR RELATIVE ADDRESS SELECT
26427 12 0 0 0 4: SUBTRACT LITERAL
26428 71 264 33 0 0 0 264 >NOT COLON JUMP IF A != 0
26429 0 12 66 0 0 0 SELECT
26430 5 12 67 0 0 0 12/67=REF, 12/66=ITEM TRANSFER
26431 5 12 66 0 0 0 TRANSFER
26432 76 264 8 0 0 0 264 >CHECK CONTROL JUMP unconditional
26428>26433 0 12 66 0 0 0 SELECT
26434 30 0 0 0 1 SHIFT (A) BY QUARTETS
26435 1 12 88 2 0 0 ASSEMBLE REF/ITEM ADD
26436 5 12 66 0 0 0 TRANSFER
26437 83 263 10 0 0 5 263 INHIBIT ANOTHER DIRECTIVE SET SWITCH(ES) AT LITERAL VALUE
26438 76 264 17 0 0 0 264 >CHECK AS BINARY JUMP unconditional
26313>26439 12 0 0 0 7‼ SUBTRACT LITERAL
26440 70 264 48 0 0 0 264 >IS ')' JUMP IF A == 0
26441 0 94 2- 0 2 0 SELECT
26442 12 0 0 0 52 SUBTRACT LITERAL
26443 70 264 17 0 0 0 264 LAST CHAR WAS 'B' +CHECK THIS JUMP IF A == 0
26444 0 94 3- 0 2 0 SELECT
26445 12 0 0 0 52 SUBTRACT LITERAL
26446 70 264 17 0 0 0 264 ONE BEFORE WAS 'B' +CHECK THIS JUMP IF A == 0
26447 76 262 19 0 0 0 262 NEITHER WAS 'B' +IGNORE JUMP unconditional
26440>26448 86 267 2 0 0 0 267 CHECK SWITCH SELECT SWITCH R
26449 124 94 61 0 0 0 CTR IN DIRECTIVE LINE modify address of next
26450 5 94 62 0 0 0 TRANSFER
26451 10 0 0 0 2 SELECT LITERAL
26452 4 94 61 0 0 0 AUGMENT
26453 83 263 10 0 0 4 263 COMMA FORBIDDEN' SET SWITCH(ES) AT LITERAL VALUE
26454 76 261 2 0 0 0 261 >GNC JUMP unconditional
26500 PROCR 265 265 TIDY UP AND REASSEMBLE CONST
26501 NOTES RADIX SELECT
26113>
26108>26502 10 0 0 0 7: SELECT LITERAL
26503 5 94 0 0 2 0 STORE END SIGN TRANSFER
26504 86 263 10 0 0 0 263 DIRECTIVE SWITCH SELECT SWITCH R
26505 12 0 0 0 4 SUBTRACT LITERAL
26506 72 265 8 0 0 0 265 >OK SWITCH SETTINGS JUMP IF A >= 0
26507 80 295 2 0 0 0 295 >IGNORE THIS CONST ENTER SUBROUTINE
26506>26508 94 60 0 0 0 COMMAS X2 SELECT
26509 70 265 14 0 0 0 265 JUMP IF A == 0
26510 11 0 0 0 2 ADD LITERAL
26511 2 94 61 0 0 0 DIRECTIVE CTR SUBTRACT
26512 70 265 14 0 0 0 265 JUMP IF A == 0
26513 80 295 2 0 0 0 295 >IGNORE THIS CONST ENTER SUBROUTINE
26512>
26509>26514 94 61 0 0 0 DIRECTIVE CTR SELECT
26515 12 0 0 0 + SUBTRACT LITERAL
26516 73 265 18 0 0 0 265 >OK, NOT MORE THAN 5 JUMP IF A < 0
26517 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
Source image: P1000203.JPG
26516>26518 96 0 0 2 0 SELECT MODIFIER
26519 5 12 70 0 0 0 TOT NO OF CHARS TRANSFER
26520 91 0 0 2 0 CLEAR BOTH SET MODIFICATION REGISTER AT VARIABLE
26521 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
26522 86 695 2 0 0 0 695 SELECT SWITCH R
26523 70 265 47 0 0 0 265 >NO REL ADDRESS IN CONST JUMP IF A == 0
26524 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
26525 0 12 67 0 0 0 REF SELECT
26526 12 0 0 0 100 SUBTRACT LITERAL
26527 73 265 47 0 0 0 265 >SECTION JUMP IF A < 0
26528 12 0 0 0 899 SUBTRACT LITERAL
26529 72 265 47 0 0 0 265 >EX RANGE JUMP IF A >= 0
26530 0 12 67 0 0 0 SELECT
26531 80 200 2 0 0 0 200 >REPLACE PROCR ENTER SUBROUTINE
26532 C 202 2 0 0 0 202
26533 12 119 0 0 0 SELECT
26534 62 0 0 0 0 SET EXCESS CONSTANTS
26535 32 0 0 0 2- REPLACE 3-DIGIT NUMBER SHIFT (AB) BY QUARTETS
26536 5 94 1- 0 1 0 (FIRST DIGIT ALWAYS ZERO) TRANSFER
26537 32 0 0 0 1 SHIFT (AB) BY QUARTETS
26538 71 265 40 0 0 0 265 JUMP IF A != 0
26539 10 0 0 0 30 SELECT LITERAL
26538>26540 5 94 0 0 1 0 TRANSFER
26541 32 0 0 0 1 SHIFT (AB) BY QUARTETS
26542 71 265 44 0 0 0 265 JUMP IF A != 0
26543 10 0 0 0 30 SELECT LITERAL
26542>26544 5 94 1 0 1 0 TRANSFER
26545 54 1 6 0 0 18 BULK CLEAR
26546 76 265 83 0 0 0 265 >ASSEMBLE JUMP unconditional
26529>
26527>
26523>26547 0 12 33 0 0 0 SELECT
26548 70 266 17 0 0 0 266 >MT JUMP IF A == 0
26549 54 1 6 0 0 18 CLEAR 1/6'-1.22'=EDIT AREA BULK CLEAR
26550 87 27 10 0 0 0 SWITCH ACCORDING TO N
26551 C 265 83 0 0 0 265 >PT
26552 C 265 53 0 0 0 265 >CARDS
26552>26553 94 61 0 0 0 DIRECTIVE CTR SELECT
26554 12 0 0 0 4 SUBTRACT LITERAL
26555 72 265 72 0 0 0 265 >MIXED CONSTANT JUMP IF A >= 0
26556 86 267 2 0 0 0 267 SELECT SWITCH R
26557 12 0 0 0 1 SUBTRACT LITERAL
26558 71 265 72 0 0 0 265 >NOT ALPHA JUMP IF A != 0
26559 94 0 0 0 0 FIRST CHAR SELECT
26560 12 0 0 0 7Ю SUBTRACT LITERAL
26561 70 265 63 0 0 0 265 >'(' JUMP IF A == 0
26562 10 0 0 0 3- SELECT LITERAL
26561>26563 11 0 0 0 3 ADD LITERAL
26564 17 12 90 0 0 3 LONG/SHORT CTR MULTIPLY LITERAL and ADD
26565 11 0 0 0 1.00002 END VLAUE 30 ADD LITERAL
26566 3 12 70 0 0 0 NEW CONSTANT LENGTH COPY
26567 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
26568 10 0 0 0 7: SELECT LITERAL
26570>26569 5 94 0 0 1 0 TRANSFER
26570 94 265 69 0 1 1 265 >CLEAR REST OF CONSTANT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
26571 76 265 83 0 0 0 265 JUMP unconditional
26558>
26555>26572 90 0 0 1 28 SET MODIFICATION REGISTER AT LITERAL
26573 C 0 0 0 0
26576>26574 94 0 0 1 0 SELECT
Source image: P1000204.JPG
26575 71 265 77 0 0 0 265 >FIRST NON ZERO CHAR FROM END JUMP IF A != 0
26576 94 265 74 0 1 1- 265 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
26575>26577 10 0 0 0 7: SELECT LITERAL
26578 5 94 1 0 1 0 SET CONST END TRANSFER
26579 5 94 29 0 0 0 CLEAR OLD END TRANSFER
26580 96 0 0 1 0 SELECT MODIFIER
26581 11 0 0 0 1 ADD LITERAL
26582 5 12 70 0 0 0 NEW NUMBERS OF CHARS TRANSFER
26616>
26571>
26551>
26546>26583 94 0 0 2 0 SELECT
26600 PROCR 266 266
26601 NOTES RADIX STORE OLD - NEW RADIX SELECT
26602 30 0 0 0 2 CTR OF CONVERT TABLES TO DATE SHIFT (A) BY QUARTETS
26603 1 94 1 0 2 0 ADD
26604 30 0 0 0 2 SHIFT (A) BY QUARTETS
26605 1 94 2 0 2 0 ADD
26606 30 0 0 0 2 SHIFT (A) BY QUARTETS
26607 1 94 3 0 2 0 ADD
26608 30 0 0 0 2 SHIFT (A) BY QUARTETS
26609 1 94 4 0 2 0 ADD
26610 5 1 6 1 3 0 STORE NEXT WORD OF CONST TRANSFER
26611 125 2 0 3 0 step on and test
26612 125 5 0 2 0 step on and test
26613 96 0 0 2 0 SELECT MODIFIER
26614 12 0 0 0 1 SUBTRACT LITERAL
26615 2 12 70 0 0 0 NO OF CHARS SUBTRACT
26616 73 265 83 0 0 0 265 > CYCLE FOR MULTIPLE OF 5 JUMP IF A < 0
26548>26617 1 42 1 0 0 SELECT
26618 2 319 26 1 0 0 319 SUBTRACT
26619 71 266 22 0 0 0 266 > OK JUMP IF A != 0
26620 80 263 10 0 0 0 263 CLEAR ALL DETAILS ENTER SUBROUTINE
26621 76 247 2 0 0 0 247 JUMP unconditional
26619>26622 0 94 61 0 0 0 SF CTR IN DIRECTIVE LINE SELECT
26623 12 0 0 0 4 SUBTRACT LITERAL
26624 72 247 2 0 0 0 247 > CONST IS MIXED OR CONTAINS JUMP IF A >= 0
26625 90 0 0 1 0 CLEAR MODIFIER SET MODIFICATION REGISTER AT LITERAL
26626 C 0 0 0 0 /////
26627 94 0 0 1 0 NEXT CHAR SELECT
26628 12 0 0 0 7Ю P ‼ ‼ ½‼ I ½ ‼ Ю ‼ Ю‼ SUBTRACT LITERAL
26629 71 267 2 0 0 0 267 > NOT '(' JUMP IF A != 0
26633>26630 0 94 1 0 1 0 CHAR AFTER '(' SELECT
26631 94 0 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
26632 12 0 0 0 7‼ P ‼ ‼ ½‼ I ½ ‼ Ю ‼ Ю‼ SUBTRACT LITERAL
26633 71 266 30 0 0 0 266 JUMP IF A != 0
26634 94 0 0 1 1 TO SELECT CHAR AFTER DIRECTIVE STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
26700 PROCR 267 267 CONSTANTS SWITCH
26701 NOTES 267 SELECT
26629>26702 85 267 2 0 0 0 267 SWITCH R
26703 C 268 2 0 0 0 268
26704 C 269 2 0 0 0 269
26705 C 270 2 0 0 0 270
26706 C 272 2 0 0 0 272
26707 C 267 8 0 0 0 267 > RELATIVE ADDRESS
26707>26708 12 67 0 0 0 REF (DEC) SELECT
26709 12 0 0 0 1000 SUBTRACT LITERAL
26710 72 267 28 0 0 0 267 > REPORT R JUMP IF A >= 0
Source image: P1000205.JPG
26711 11 0 0 0 £67 1000 - 99 BIN RADIX ADD LITERAL
26712 72 267 30 0 0 0 267 >REF IS A PROCR JUMP IF A >= 0
26713 12 67 0 0 0 SECTION IN DEC SELECT
26714 70 247 2 0 0 0 247 >ABS ADDRESS, NO CHECKS JUMP IF A == 0
26715 80 183 2 0 0 0 183 >DECODE ENTER SUBROUTINE
26716 34 12 40 0 0 0 SET (N) IN B
26717 36 12 72 0 3 0 COLLATE AND ADD
26718 70 267 28 0 0 0 267 > SECTION NON-EXISTEREPORT R JUMP IF A == 0
26719 10 0 0 0 0 SELECT LITERAL
26720 33 0 0 0 10 SHIFT COLLATOR SHIFT (AB) BY BITS
26721 36 12 72 0 3 0 COLLATE AND ADD
26722 71 267 28 0 0 0 267 > SECTION IS TX AREAREPORT R JUMP IF A != 0
26723 12 66 0 0 0 ITEM SELECT
26724 12 0 0 0 8191 SUBTRACT LITERAL
26725 73 247 2 0 0 0 247 > OK JUMP IF A < 0
26732>26726 80 196 2 0 0 0 196 > REPORT ENTER SUBROUTINE
26727 76 247 2 0 0 0 247 JUMP unconditional
26722>
26718>
26710>26728 80 195 2 0 0 0 195 > REPORT R ENTER SUBROUTINE
26729 76 247 2 0 0 0 247 JUMP unconditional
26712>26730 12 66 0 0 0 ITEM SELECT
26731 12 0 0 0 99 SUBTRACT LITERAL
26732 72 267 26 0 0 0 267 > REPORT 1 JUMP IF A >= 0
26733 76 247 2 0 0 0 247 > OK JUMP unconditional
26800 PROCR 268 268 CHECK ALPHA CONSTANTS
26801 NOTES 268 SELECT
26703>26802 0 12 90 0 0 0 LONG/SHORT CONST INDICATOR SELECT
26803 70 268 5 0 0 0 268 JUMP IF A == 0
26804 10 0 0 0 3 SELECT LITERAL
26803>26805 11 0 0 0 2 ADD LITERAL
26912>
26915>26806 98 0 0 1 0 > MODIFIER = DIRECTIVE LENGTH ADD MODIFICATION REGISTER TO A
26807 2 12 70 0 0 0 TOT CHARS IN CONST+1 (INDIRECTIVE) SUBTRACT
26808 72 247 2 0 0 0 247 > OK JUMP IF A >= 0
26809 76 273 2 0 0 0 273 > REPORT JUMP unconditional
26900 PROCR 269 269 CHECK DECIMAL CONSTANTS
26901 NOTES RADIX SELECT
26704>26902 0 12 90 0 0 0 LONG/SHORT CONST INDICATOR SELECT
26903 70 269 5 0 0 0 269 > SHORT JUMP IF A == 0
26904 10 0 0 0 5 SELECT LITERAL
26903>26905 11 0 0 0 5 ADD LITERAL
27206>26906 5 12 67 0 0 0 TRANSFER
26907 124 12 70 0 0 0 CHARS IN CONST modify address of next
26908 94 1- 0 0 0 FINAL BEFOR NE SELECT
26909 12 0 0 0 10 SUBTRACT LITERAL
26910 70 269 13 0 0 0 269 > ALLOW FOR SIGN JUMP IF A == 0
26911 0 12 67 0 0 0 SELECT
26912 76 268 6 0 0 0 268 > CHECK JUMP unconditional
26910>26913 0 12 67 0 0 0 SELECT
26914 11 0 0 0 1 ADD LITERAL
26915 76 268 6 0 0 0 268 > CHECK JUMP unconditional
27000 PROCR 270 270 BINARY NUMBERS
27001 NOTES RADIX SELECT
26705>27002 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
27003 C 0 0 0 11
27016>27004 94 0 0 1 0 NEXT CHAR SELECT
Source image: P1000206.JPG
27005 12 0 0 0 7: SUBTRACT LITERAL
27006 70 271 2 0 0 0 271 >NUMBER END JUMP IF A == 0
27007 11 0 0 0 6: ADD LITERAL
27008 70 271 2 0 0 0 271 >MINUS SIGN JUMP IF A == 0
27009 11 0 0 0 10 ADD LITERAL
27010 5 12 10 1 0 0 STORE CHARACTER TRANSFER
27011 0 12 66 1 0 0 SELECT
27012 30 0 0 0 1 SHIFT (A) BY QUARTETS
27013 1 12 10 2 0 0 BASIC QTT ADD
27014 5 12 66 1 0 0 ASSEMBLE CONST QTT BY QTT TRANSFER
27015 94 270 16 0 1 1 270 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
27015>27016 94 270 4 0 2 1 270 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
27017 76 273 2 0 0 0 273 >REPORT TOO MANY CHARS JUMP unconditional
27100 PROCR 271 271
27101 NOTES RADIX SELECT
27008>
27006>27102 0 12 90 0 0 0 LONG/SHORT CONST IND SELECT
27103 71 247 2 0 0 0 247 JUMP IF A != 0
27104 12 66 1 0 0 SELECT
27105 12 0 0 0 1048576 SUBTRACT LITERAL
27106 72 273 2 0 0 0 273 JUMP IF A >= 0
27107 76 247 2 0 0 0 247 JUMP unconditional
27200 PROCR 272 272 BINARY PATTERN
27201 NOTES RADIX SELECT
26706>27202 0 12 90 0 0 0 LONG/SHORT CONSTANT IND SELECT
27203 70 272 5 0 0 0 272 JUMP IF A == 0
27204 10 0 0 0 14 SELECT LITERAL
27203>27205 11 0 0 0 14 ADD LITERAL
27206 76 269 6 0 0 0 269 >CHECK LENGTH VIA DEC JUMP unconditional
27300 PROCR 273 273 ERROR REPORT
27301 NOTES RADIX SELECT
27106>
27017>
26809>27302 10 0 0 0 5‼ SELECT LITERAL
27303 5 1 44 1 0 0 TRANSFER
27304 76 247 2 0 0 0 247 JUMP unconditional
27400 PROCR 274 274 GET NEXT CHAR OF CONSTANT(IE NEXT WORD)
27401 NOTES RADIX SELECT
27402 81 274 2 0 0 0 274 START OF SUBROUTINE
27403 10 0 0 0 0 SELECT LITERAL
27404 94 274 13 0 3 1 274 >HAVE NOT EXHAUSTED 5-CHAR WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
27405 94 274 10 0 1 2 274 STEP FOR NEXT WORD IF PRESENT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
27406 80 295 2 0 0 0 295 *IGNORE MORE THAN 45 CHAR ENTER SUBROUTINE
27407 10 0 0 0 7: SELECT LITERAL
27408 32 0 0 0 2- SHIFT (AB) BY QUARTETS
27409 82 274 2 0 0 0 274 END OF SUBROUTINE / LEAVE SUBROUTINE
27405>27410 90 0 0 3 0 R3 COUNTS A 5-CHAR WORD SET MODIFICATION REGISTER AT LITERAL
27411 C 0 0 0 5
27412 34 1 6 1 1 0 NEXT WORD CONSTANT SET (N) IN B
27404>27413 82 274 2 0 0 0 274 END OF SUBROUTINE / LEAVE SUBROUTINE
27500 PROCR 275 275 ALTERNATIVE ENTRY TO UPDATE ADDRESS
27502 81 275 2 0 0 0 275 START OF SUBROUTINE
27503 5 12 88 2 0 0 TRANSFER
27504 0 275 2 0 0 0 275 SELECT
27505 3 274 2 0 0 0 274 SET NONZERO='NOT P' COPY
Source image: P1000207.JPG
27506 5 208 2 0 0 0 208 TRANSFER
27507 76 208 10 0 0 0 208 >ENTER JUMP unconditional
27600 PROCR 276 276
27601 NOTES RADIX SELECT
19112>27602 5 12 3 0 0 0 CLEAR ERROR WL TRANSFER
27603 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
27604 C 0 0 0 8
27618>27605 0 1 22 0 2 0 ITEM SELECT
27606 5 1 10 0 0 0 TRANSFER
27607 0 1 20 1 2 0 REF (NUM) SELECT
27608 80 275 2 0 0 0 275 >UPDATE ADDRESS ENTER SUBROUTINE
27609 0 1 10 0 0 0 NEW ITEM SELECT
27610 5 1 22 0 2 0 TRANSFER
27611 0 12 4 0 0 0 NEW REF SELECT
27612 5 1 20 0 2 0 TRANSFER
27613 80 277 2 0 0 0 277 CHECK REF ENTER SUBROUTINE
27614 1 19 0 0 0 DISC SELECT
27615 70 276 18 0 0 0 276 JUMP IF A == 0
27616 1 10 0 0 0 SELECT
27617 80 192 2 0 0 0 192 >CHECK ITEM IS EVEN ENTER SUBROUTINE
27615>27618 94 276 5 0 2 4 276 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
27619 76 278 2 0 0 0 278 JUMP unconditional
27700 PROCR 277 277 SR TO CHECK TABLE ADDRESSES AND VALUE ADDRESSES
27701 NOTES RADIX SELECT
27702 81 277 2 0 0 0 277 START OF SUBROUTINE
27703 83 108 2 0 0 1 108 SET SWITCH(ES) AT LITERAL VALUE
27704 12 4 0 0 0 REF TO BE CHECKED SELECT
27705 12 0 0 0 100 SUBTRACT LITERAL
27706 72 277 27 0 0 0 277 >NOT SECTION JUMP IF A >= 0
27707 0 12 4 0 0 0 SELECT
27708 73 277 23 0 0 0 277 JUMP IF A < 0
27709 70 277 18 0 0 0 277 JUMP IF A == 0
27710 80 183 2 0 0 0 183 >DECODE SR ENTER SUBROUTINE
27711 34 12 40 0 0 0 SET (N) IN B
27712 36 12 72 0 3 0 COLLATE AND ADD
27713 70 277 23 0 0 0 277 >IGNORE, SECTION NONEXISTENT JUMP IF A == 0
27714 33 0 0 0 10 SHIFT (AB) BY BITS
27715 10 0 0 0 0 SELECT LITERAL
27716 36 12 72 0 3 0 COLLATE AND ADD
27717 71 277 23 0 0 0 277 >IGNORE, SECTION IS TX AREA JUMP IF A != 0
27709>27718 0 1 10 0 0 0 SELECT
27719 12 0 0 0 8192 SUBTRACT LITERAL
27720 73 277 29 0 0 0 277 JUMP IF A < 0
27721 80 196 2 0 0 0 196 >REPORT I ENTER SUBROUTINE
27722 76 277 24 0 0 0 277 JUMP unconditional
27728>
27717>
27713>
27708>27723 80 195 2 0 0 0 195 >REPORT R ENTER SUBROUTINE
27722>27724 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
27725 83 108 2 0 0 2 108 IGNORE ANY MORE 'VALTHIS REF FOR SET SWITCH(ES) AT LITERAL VALUE
27726 76 277 29 0 0 0 277 JUMP unconditional
27706>27727 12 0 0 0 900 SUBTRACT LITERAL
27728 72 277 23 0 0 0 277 >REF>999, IGNORE JUMP IF A >= 0
27726>
27720>27729 82 277 2 0 0 0 277 END OF SUBROUTINE / LEAVE SUBROUTINE
27800 PROCR 278 278 TABLE SWITCH
Source image: P1000208.JPG
27801 NOTES RADIX SELECT
27619>27802 0 1 19 0 0 0 DISC SELECT
27803 73 282 18 0 0 0 282 >REPORT T5 JUMP IF A < 0
27804 12 0 0 0 3 SUBTRACT LITERAL
27805 72 282 18 0 0 0 282 JUMP IF A >= 0
27806 0 1 20 0 0 0 FIRST REF SELECT
27807 70 282 24 0 0 0 282 >REPORT T1 JUMP IF A == 0
27808 85 278 8 0 0 0 278 SWITCH R
27809 C 279 2 0 0 0 279
27810 C 281 2 0 0 0 281
27811 C 279 10 0 0 0 279 >TYPE 3
27812 C 281 23 0 0 0 281 >TYPE 4
27813 C 247 2 0 0 0 247
27900 PROCR 279 279 TYPES 1 AND 3
27901 NOTES RADIX EDIT AND UNPACK FIXED SELECT
27809>27902 1 12 0 0 0 NO OF CHARS SELECT
27903 1 1 14 0 0 0 SPACES ADD
27904 4 12 5 0 0 0 TOTAL FOR TABLE AUGMENT
27905 1 16 0 0 0 SIGN SELECT
27906 12 0 0 0 2 SUBTRACT LITERAL
27907 71 279 10 0 0 0 279 >NOT SEPARATE CHARACTER JUMP IF A != 0
27908 10 0 0 0 1 SELECT LITERAL
27909 4 12 5 0 0 0 STEP TOTAL AUGMENT
27907>
27811>27910 1 24 0 0 0 SECOND REF SELECT
27911 34 1 26 0 0 0 SECON ITEM SET (N) IN B
27912 75 282 22 0 0 0 282 >REPORT T3 JUMP IF AB != 0
27913 1 11 0 0 0 SELECT
27914 71 282 16 0 0 0 282 >'UNPACK TO BE' IS SET JUMP IF A != 0
27915 0 1 19 0 0 0 DISC SELECT
27916 12 0 0 0 1 SUBTRACT LITERAL
27917 70 279 19 0 0 0 279 JUMP IF A == 0
27918 10 0 0 0 5- SELECT LITERAL
27917>27919 11 0 0 0 10 ADD LITERAL
27920 2 1 12 0 0 0 CHARS SUBTRACT
27921 2 1 13 0 0 0 DISCARDS SUBTRACT
27922 73 282 14 0 0 0 282 >INCONSISTENT WITH SOURCE LENGTH JUMP IF A < 0
27923 1 1 12 0 0 0 ADD
27924 1 1 13 0 0 0 ADD
27925 2 1 15 0 0 0 ZEROS SUBTRACT
27926 73 282 8 0 0 0 282 >MORE ZEROS THAN SOURCE JUMP IF A < 0
27927 1 12 0 0 0 CHARS SELECT
27928 2 1 15 0 0 0 ZEROS SUBTRACT
27929 73 282 8 0 0 0 282 >ZEROS>NO CHARS 'T10' JUMP IF A < 0
28000 PROCR 280 280
28001 NOTES RADIX SELECT
28002 1 14 0 0 0 SELECT
28003 12 0 0 0 16 SUBTRACT LITERAL
28004 72 282 10 0 0 0 282 >TOO MANY SPCES JUMP IF A >= 0
28005 0 1 12 0 0 0 CHARS SELECT
28006 70 282 14 0 0 0 282 >REPORT 'T7' JUMP IF A == 0
28007 0 1 19 0 0 0 DISC SELECT
28008 12 0 0 0 2 SUBTRACT LITERAL
28009 71 280 12 0 0 0 280 >NOT ALPHA JUMP IF A != 0
28010 0 1 15 0 0 0 ZEROS SELECT
28011 71 282 8 0 0 0 282 >REPORT 'T10' JUMP IF A != 0
28009>28012 1 17 0 0 0 STERLING INDICATOR SELECT
28013 71 280 17 0 0 0 280 JUMP IF A != 0
Source image: P1000209.JPG
28014 2 12 63 0 0 0 STERLING CTR SUBTRACT
28015 70 280 24 0 0 0 280 JUMP IF A == 0
28016 76 280 38 0 0 0 280 >REPORT 'T12' JUMP unconditional
28013>28017 12 0 0 0 1 SUBTRACT LITERAL
28018 71 282 4 0 0 0 282 JUMP IF A != 0
28019 12 63 0 0 0 SELECT
28020 12 0 0 0 2 SUBTRACT LITERAL
28021 70 280 23 0 0 0 280 JUMP IF A == 0
28022 11 0 0 0 3 ADD LITERAL
28021>28023 5 12 63 0 0 0 TRANSFER
28015>28024 1 18 0 0 0 LAST TABLE ENTRY SELECT
28025 3 12 6 0 0 0 COPY TO WL COPY
28026 70 247 2 0 0 0 247 JUMP IF A == 0
28027 12 0 0 0 1 SUBTRACT LITERAL
28028 71 282 2 0 0 0 282 >'T13' IF LTE WRONG JUMP IF A != 0
28029 12 5 0 0 0 CHARACTERS EDITED SELECT
28030 1 12 5 0 0 0 ADD
28031 30 0 0 0 9 SHIFT (A) BY QUARTETS
28032 70 280 35 0 0 0 280 >MULT OF 5 JUMP IF A == 0
28033 10 0 0 0 727464 SUM' SELECT LITERAL
28034 5 1 44 1 0 0 TRANSFER
28032>28035 5 12 5 0 0 0 CLEAR STR AT EACH LTE TRANSFER
28036 2 12 63 0 0 0 STERLING INDICATORS NOT SUBTRACT
28037 70 247 2 0 0 0 247 OCCURRED IN 3 CONSECUTIVE LINES JUMP IF A == 0
28016>28038 4 12 63 0 0 0 CLEAR COUNTER AUGMENT
28039 76 282 4 0 0 0 282 ERROR REPORT T12 JUMP unconditional
28100 PROCR 281 281 CHECK TABLES
28101 NOTES RADIX TYPES 2 AND 4 SELECT
27810>28102 1 24 0 0 0 2ND REF SELECT
28103 70 281 23 0 0 0 281 >IS ZERO JUMP IF A == 0
28104 30 0 0 0 2- SHIFT (A) BY QUARTETS
28105 71 281 13 0 0 0 281 >3 DIG REF JUMP IF A != 0
28106 1 20 0 0 0 SELECT
28107 32 0 0 0 2- SHIFT (AB) BY QUARTETS
28108 71 282 22 0 0 0 282 >3 DIG + 2 DIG 'T3' JUMP IF A != 0
28109 32 0 0 0 2 SHIFT (AB) BY QUARTETS
28110 2 1 24 0 0 0 2ND REF SUBTRACT
28111 71 282 22 0 0 0 282 >2 DIG REF JUMP IF A != 0
28112 76 281 20 0 0 0 281 >CHECK ITEMS JUMP unconditional
28105>28113 1 20 0 0 0 1ST REF SELECT
28114 32 0 0 0 2- SHIFT (AB) BY QUARTETS
28115 70 282 22 0 0 0 282 >2 DIG + 3 DIG RED (3 DIG) 'T3' JUMP IF A == 0
28116 1 24 0 0 0 2ND REF SELECT
28117 2 1 20 0 0 0 1ST REF SUBTRACT
28118 73 282 22 0 0 0 282 >2ND REF <1ST REF (3 DIG) 'T3' JUMP IF A < 0
28119 71 281 23 0 0 0 281 JUMP IF A != 0
28112>28120 1 26 0 0 0 2ND ITEM SELECT
28121 2 1 22 0 0 0 FIRST ITEM SUBTRACT
28122 73 282 20 0 0 0 282 >2ND <1ST 'T4' JUMP IF A < 0
28119>
28103>
27812>28123 1 11 0 0 0 'SINGLE/BE' SELECT
28124 70 281 29 0 0 0 281 JUMP IF A == 0
28125 12 0 0 0 1 SUBTRACT LITERAL
28126 71 282 16 0 0 0 282 JUMP IF A != 0
28127 1 18 0 0 0 LAST TABLE ENTRY' SELECT
28128 70 282 2 0 0 0 282 JUMP IF A == 0
28124>28129 1 12 0 0 0 NO OF CHARS SELECT
28130 71 282 14 0 0 0 282 JUMP IF A != 0
Source image: P1000210.JPG
28131 1 13 0 0 0 DISCARDS SELECT
28132 71 282 12 0 0 0 282 JUMP IF A != 0
28133 1 14 0 0 0 SPACES SELECT
28134 71 282 10 0 0 0 282 JUMP IF A != 0
28135 1 15 0 0 0 ZEROS SELECT
28136 71 282 8 0 0 0 282 JUMP IF A != 0
28137 1 16 0 0 0 SIGN SELECT
28138 70 281 41 0 0 0 281 JUMP IF A == 0
28139 12 0 0 0 2 SUBTRACT LITERAL
28140 71 282 6 0 0 0 282 JUMP IF A != 0
28138>28141 1 17 0 0 0 STERLING IND SELECT
28142 71 282 4 0 0 0 282 JUMP IF A != 0
28143 76 247 2 0 0 0 247 JUMP unconditional
28200 PROCR 282 282 MAKE REPORT 'T*'
28201 NOTES RADIX SELECT
28128>
28028>28202 10 0 0 0 1 SELECT LITERAL
28203 5 12 3 0 0 0 TRANSFER
28142>
28039>
28018>28204 10 0 0 0 1 SELECT LITERAL
28205 4 12 3 0 0 0 AUGMENT
28140>28206 10 0 0 0 1 SELECT LITERAL
28207 4 12 3 0 0 0 AUGMENT
28136>
28011>
27929>
27926>28208 10 0 0 0 1 SELECT LITERAL
28209 4 12 3 0 0 0 AUGMENT
28134>
28004>28210 10 0 0 0 1 SELECT LITERAL
28211 4 12 3 0 0 0 AUGMENT
28132>28212 10 0 0 0 1 SELECT LITERAL
28213 4 12 3 0 0 0 AUGMENT
28130>
28006>
27922>28214 10 0 0 0 1 SELECT LITERAL
28215 4 12 3 0 0 0 AUGMENT
28126>
27914>28216 10 0 0 0 1 SELECT LITERAL
28217 4 12 3 0 0 0 AUGMENT
27805>
27803>28218 10 0 0 0 1 SELECT LITERAL
28219 4 12 3 0 0 0 AUGMENT
28122>28220 10 0 0 0 1 SELECT LITERAL
28221 4 12 3 0 0 0 AUGMENT
28118>
28115>
28111>
28108>
27912>28222 10 0 0 0 2 SELECT LITERAL
28223 4 12 3 0 0 0 AUGMENT
27807>28224 10 0 0 0 1 SELECT LITERAL
28225 1 12 3 0 0 0 ADD
28226 5 12 88 0 0 0 TRANSFER
28227 52 1 44 0 0 0 EDIT
28228 C 306 6 0 0 0 306
20521>28229 10 0 0 0 730000 SELECT LITERAL
28230 4 1 44 1 0 0 AUGMENT
Source image: P1000211.JPG
28231 76 247 2 0 0 0 247 JUMP unconditional
28300 PROCR 283 283 UNPACK PAPER TAPE PART ONE-DIRECTIVES
28301 NOTES RADIX SELECT
28302 81 283 2 0 0 0 283 START OF SUBROUTINE
28303 54 1 0 1 0 46 BULK CLEAR
28304 12 38 0 0 0 SELECT
28305 70 285 2 0 0 0 285 NOT A DIRECTIVE JUMP IF A == 0
28306 87 27 10 0 0 0 SWITCH ACCORDING TO N
28307 C 283 9 0 0 0 283
28308 C 283 31 0 0 0 283 CARDS
28307>28309 0 92 30 0 0 0 AMEND RUN? SELECT
28310 70 283 13 0 0 0 283 JUMP IF A == 0
28311 124 311 2 0 2 0 311 select literal and division
28312 76 283 14 0 0 0 283 JUMP unconditional
28310>28313 124 311 4 0 2 0 311 select literal and division
28312>28314 80 326 2 0 0 0 326 UNPACK P/T S/DIR ENTER SUBROUTINE
28315 0 27 5 0 0 0 SELECT
28316 12 0 0 0 2 SUBTRACT LITERAL
28317 71 283 28 0 0 0 283 >NOT TABLE JUMP IF A != 0
28318 0 12 38 0 0 0 SELECT
28319 73 283 28 0 0 0 283 >NOT 'NOTES' OF TABLE JUMP IF A < 0
28320 10 0 0 0 0 S/DIR WAS 'NOTES' OF TABLE SELECT LITERAL
28321 5 1 8 1 0 0 & MUST BE UNPACKED DIFFERENTLY TRANSFER
28322 0 92 30 0 0 0 SELECT
28323 70 283 26 0 0 0 283 >INITIAL TRANSLATION JUMP IF A == 0
28324 124 311 10 0 2 0 311 select literal and division
28325 76 283 27 0 0 0 283 JUMP unconditional
28323>28326 124 311 12 0 2 0 311 select literal and division
28325>28327 80 326 2 0 0 0 326 UNPACK CORRECTLY ENTER SUBROUTINE
28339>
28342>
28506>
28612>
28638>
28649>
28319>
28317>28328 10 0 0 0 0 SELECT LITERAL
28329 5 1 44 1 0 0 CLEAR ERROR WL TRANSFER
28330 82 283 2 0 0 0 283 END OF SUBROUTINE / LEAVE SUBROUTINE
28308>28331 50 9 8 0 0 0 UNPACK S/DIR FROM CARD UNPACK FIXED FIELD DATA
28332 C 311 4 0 0 0 311
28333 55 9 18 1 0 16 BULK COPY
28334 C 1 18 1 0 0
28335 0 1 8 1 0 0 SELECT
28336 30 0 0 0 4 LEFT ALIGN SECTION NO SHIFT (A) BY QUARTETS
28337 5 1 8 1 0 0 TRANSFER
28338 0 12 38 0 0 0 SELECT
28339 73 283 28 0 0 0 283 NOT 'NOTES' JUMP IF A < 0
28340 27 5 0 0 0 SELECT
28341 12 0 0 0 1 SUBTRACT LITERAL
28342 71 283 28 0 0 0 283 >NOT 'PROCR' LEAVE SR JUMP IF A != 0
28343 0 1 18 1 0 0 S/DIR WAS ''NOTES'' OF PROCR SELECT
28344 5 1 8 1 0 0 MOVE ''RADIX'' TRANSFER
28345 55 9 20 1 0 16 COPY WORDS BULK COPY
28346 C 1 18 1 0 0
28347 82 283 2 0 0 0 283 END OF SUBROUTINE / LEAVE SUBROUTINE
28400 PROCR 284 284 UNPACK OFF MAGNETIC TAPE-ONE RECORD PER BLOCK
28401 NOTES RADIX SELECT
Source image: P1000212.JPG
28402 81 284 2 0 0 0 284 START OF SUBROUTINE
28403 54 1 6 1 0 40 BULK CLEAR
25705>28404 27 1 0 0 0 SELECT
28405 71 304 2 0 0 0 304 >MULTI-RECORD BLOCKS JUMP IF A != 0
28406 12 38 0 0 0 SELECT
28407 70 284 21 0 0 0 284 >NOT DIRECTIVE JUMP IF A == 0
28408 50 7 4 0 0 0 UNPACK FIXED FIELD DATA
28409 C 307 2 0 0 0 307
28410 12 86 0 0 0 SELECT
28411 70 284 18 0 0 0 284 JUMP IF A == 0
28412 27 5 0 0 0 SELECT
28413 12 0 0 0 1 SUBTRACT LITERAL
28414 70 284 46 0 0 0 284 >'PROCR' JUMP IF A == 0
28415 0 7 20 1 0 0 SELECT
28416 5 1 16 1 0 0 COPY TABLE OR CONST TYPE TRANSFER
28417 76 284 46 0 0 0 284 JUMP unconditional
28411>28418 55 7 20 1 0 30 BULK COPY
28419 C 1 16 1 0 0
28420 76 284 45 0 0 0 284 JUMP unconditional
28407>28421 87 27 5 0 0 0 SWITCH ACCORDING TO N
28422 C 284 31 0 0 0 284 >'PROCR'
28423 C 284 34 0 0 0 284 >'TABLE'
28424 C 284 37 0 0 0 284 >'CONST'
28425 C 284 26 0 0 0 284 VALUE'=4
28425>28426 55 7 8 2 0 36 R, I+VALUES BULK COPY
28427 C 1 9 0 0 0
28428 55 7 44 2 0 6 ANNOTATION BULK COPY
28429 C 1 40 2 0 0
28430 82 284 2 0 0 0 284 END OF SUBROUTINE / LEAVE SUBROUTINE
28422>28431 50 7 4 0 0 0 INSTRUCTIONS UNPACK FIXED FIELD DATA
28432 C 308 2 0 0 0 308
28433 76 284 41 0 0 0 284 JUMP unconditional
28423>28434 50 7 4 0 0 0 UNPACK FIXED FIELD DATA
28435 C 309 2 0 0 0 309 UNPACK TABLE ENTRIES.
28436 76 284 41 0 0 0 284 JUMP unconditional
28424>28437 55 7 12 1 0 18 CONSTANTS BULK COPY
28438 C 1 6 1 0 0
28439 7 4 2 0 0 AMEND IND SELECT
28440 5 1 0 1 0 0 TRANSFER
28436>
28433>28441 12 86 0 0 0 SELECT
28442 71 284 46 0 0 0 284 JUMP IF A != 0
28443 55 7 32 1 0 18 BULK COPY
28444 C 1 28 1 0 0
28420>28445 5 1 44 1 0 0 CLEAR ERROR INDICATOR TRANSFER
28442>
28417>
28414>28446 82 284 2 0 0 0 284 END OF SUBROUTINE / LEAVE SUBROUTINE
28500 PROCR 285 285
28501 NOTES RADIX SELECT
28305>28502 87 27 5 0 0 0 SWITCH ACCORDING TO N
28503 C 286 2 0 0 0 286 >'PROCR'
28504 C 286 9 0 0 0 286 >'TABLE'
28505 C 286 14 0 0 0 286 >'CONST'
28506 C 283 28 0 0 0 283 VALUE' (DUMMY)
28600 PROCR 286 286
28601 NOTES RADIX SELECT
28503>28602 124 312 2 0 2 0 312 select literal and division
Source image: P1000213.JPG
28603 80 326 2 0 0 0 326 >INSTRUCTIONS ENTER SUBROUTINE
28604 10 0 0 0 0 SELECT LITERAL
28605 5 1 20 1 0 0 CLEAR 'CLEO' WORD TRANSFER
28606 87 27 10 0 0 0 SWITCH ACCORDING TO N
28607 C 286 38 0 0 0 286 P/T INSTRUCTIONS
28608 C 286 19 0 0 0 286 CARD INSTRUCTIONS
28504>28609 124 313 2 0 2 0 313 select literal and division
28610 80 326 2 0 0 0 326 >TABLE ENTRIES ENTER SUBROUTINE
28611 87 27 10 0 0 0 SWITCH ACCORDING TO N
28612 C 283 28 0 0 0 283
28613 C 286 35 0 0 0 286 TABLE ENTRY FROM CARD
28505>28614 124 314 2 0 2 0 314 select literal and division
28615 80 326 2 0 0 0 326 >CONSTANTS ENTER SUBROUTINE
28616 87 27 10 0 0 0 SWITCH ACCORDING TO N
28617 C 286 47 0 0 0 286 P/T CONST
28618 C 286 39 0 0 0 286 CARD CONST
28608>28619 62 0 0 0 0 SET EXCESS CONSTANTS
28620 1 8 1 0 0 REF ALPHA E-ALIGNED SELECT
28621 32 0 0 0 4- TEST TOP CHAR SHIFT (AB) BY QUARTETS
28622 12 0 0 0 10 SUBTRACT LITERAL
28623 70 286 26 0 0 0 286 >'Ю' FIRST WAY JUMP IF A == 0
28624 12 0 0 0 3Ю SUBTRACT LITERAL
28625 71 286 27 0 0 0 286 >NOT 'Ю' OTHER WAY JUMP IF A != 0
28623>28626 10 0 0 0 40.6 SELECT LITERAL
28625>28627 11 0 0 0 4Ю ADD LITERAL
28628 60 0 0 0 0 SET DECIMAL RADIX
28629 32 0 0 0 6- R-ALIGN IN B SHIFT (AB) BY QUARTETS
28630 80 300 2 0 0 0 300 LEFT ALIGN ENTER SUBROUTINE
28631 5 1 8 1 0 0 REF ALPHA E-ALIGNED TRANSFER
28632 34 1 6 1 0 0 SET (N) IN B
28633 80 300 2 0 0 0 300 LEFT ALIGN ENTER SUBROUTINE
28634 5 1 6 1 0 0 ACTION TRANSFER
28613>28635 9 4 1 0 0 LINE SERIAL SELECT
28636 5 1 2 1 0 0 TRANSFER
28637 80 298 2 0 0 0 298 >UNPACK ANNOTATION ENTER SUBROUTINE
28607>28638 76 283 28 0 0 0 283 JUMP unconditional
28618>28639 9 4 1 0 0 LINE SERIAL SELECT
28640 5 1 2 1 0 0 TRANSFER
28641 80 298 2 0 0 0 298 >UNPACK ANNOTATION ENTER SUBROUTINE
28642 10 0 0 0 7: SELECT LITERAL
28643 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
28644 32 0 0 0 8 SHIFT (AB) BY QUARTETS
28645 37 9 18 1 0 0 IN 36-TH CHAR POSN REPLACE SELECTED BITS
28646 37 9 6 1 0 0 IN 6-TH CHAR POSN REPLACE SELECTED BITS
28617>28647 50 9 4 0 0 0 UNPACK FIXED FIELD DATA
28648 C 310 8 0 0 0 310
28649 76 283 28 0 0 0 283 JUMP unconditional
28700 PROCR 287 287 TEST WORD IN ACCUMULATOR
28701 NOTES RADIX IS A STACKING DIRECTIVE SELECT
28702 81 287 2 0 0 0 287 START OF SUBROUTINE
28703 2 319 4 1 0 0 319 'CONST' SUBTRACT
28704 73 287 35 0 0 0 287 >NOT DIRECTIVE JUMP IF A < 0
28705 70 287 28 0 0 0 287 JUMP IF A == 0
28706 1 319 4 1 0 0 319 ADD
28707 2 319 12 1 0 0 319 'NOTES' SUBTRACT
28708 71 287 14 0 0 0 287 JUMP IF A != 0
28709 27 5 0 0 0 SELECT
28710 12 0 0 0 3 SUBTRACT LITERAL
28711 70 287 35 0 0 0 287 >NOTES FOLLOWING 'CONST'-NOT DIRECTIVE JUMP IF A == 0
Source image: P1000214.JPG
28712 10 0 0 0 10 SET (12/38)>0 SELECT LITERAL
28713 76 287 33 0 0 0 287 JUMP unconditional
28708>28714 1 319 12 1 0 0 319 'NOTES' ADD
28715 2 319 6 1 0 0 319 'PROCR' SUBTRACT
28716 70 287 30 0 0 0 287 >YES JUMP IF A == 0
28717 73 287 35 0 0 0 287 >NOT A DIRECTIVE JUMP IF A < 0
28718 1 319 6 1 0 0 319 'PROCR' ADD
28719 2 319 2 1 0 0 319 'TABLE' SUBTRACT
28720 70 287 29 0 0 0 287 >YES JUMP IF A == 0
28721 73 287 35 0 0 0 287 >NOT A DIRECTIVE JUMP IF A < 0
28722 1 319 2 1 0 0 319 'TABLE' ADD
28723 2 319 28 1 0 0 319 'VALUE' SUBTRACT
28724 71 287 35 0 0 0 287 >HENCE NOT A DIRECTIVE JUMP IF A != 0
28725 12 33 0 0 0 SELECT
28726 71 287 35 0 0 0 287 >PT IN, 'VALUE' ISNT A DIRECTIVE JUMP IF A != 0
28727 10 0 0 0 1 SELECT LITERAL
28705>28728 11 0 0 0 1 (CONST) ADD LITERAL
28720>28729 11 0 0 0 1 (TABLE) ADD LITERAL
28716>28730 11 0 0 0 1 (PROCR) ADD LITERAL
28731 5 27 5 0 0 0 TRANSFER
28732 12 0 0 0 10 SUBTRACT LITERAL
28713>28733 5 12 38 0 0 0 SET<0 IF PROCR/TABLE/CONST/VALUE TRANSFER
28734 82 287 2 0 0 0 287 END OF SUBROUTINE / LEAVE SUBROUTINE
28726>
28724>
28721>
28717>
28711>
28704>28735 10 0 0 0 0 SELECT LITERAL
28736 5 12 38 0 0 0 TRANSFER
28737 82 287 2 0 0 0 287 END OF SUBROUTINE / LEAVE SUBROUTINE
28800 PROCR 288 288 SQUASH NEXT RECORD IN SEC 29, COPY TO 8, WRITE 8 IF FULL
28801 NOTES RADIX SELECT
28802 81 288 2 0 0 0 288 START OF SUBROUTINE
28803 12 110 0 0 0 SELECT
28804 70 288 11 0 0 0 288 JUMP IF A == 0
28805 12 111 0 0 0 CARD SER ERROR SELECT
28806 70 288 10 0 0 0 288 >NO ERROR JUMP IF A == 0
28807 124 319 22 0 1 0 319 modify address of next
28808 124 305 10 0 1 0 305 modify address of next
28809 5 29 0 1 0 0 WRONG SERIAL TO ERROR REPORT WORD TRANSFER
28806>28810 5 12 110 0 0 0 TRANSFER
28804>28811 90 0 0 1 44 SET MODIFICATION REGISTER AT LITERAL
28812 C 0 0 0 2
28817>28813 29 2- 1 1 0 LAST WORD SELECT
28814 70 288 17 0 0 0 288 JUMP IF A == 0
28815 2 319 10 1 0 0 319 SUBTRACT
28816 71 288 18 0 0 0 288 JUMP IF A != 0
28814>28817 94 288 13 0 1 2- 288 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
28816>28818 96 0 0 1 0 CONTENTS OF MODIFIER SELECT MODIFIER
28819 3 29 0 2 0 0 REC LENGTH COPY
28820 10 0 0 0 90 TOTAL ROOM SEC 8 SELECT LITERAL
28821 2 318 12 0 0 0 318 SUBTRACT
28822 2 29 0 2 0 0 CURRENT RECORD LENGTH SUBTRACT
28823 72 288 32 0 0 0 288 >+VE OR ZERO JUMP IF A >= 0
32505>28824 318 12 0 0 0 318 SELECT
28825 3 8 4 2 0 0 BLOCK LENGTH COPY
28826 91 318 12 0 1 0 318 SET MODIFICATION REGISTER AT VARIABLE
28827 319 10 1 0 0 319 BE WORD SELECT
Source image: P1000215.JPG
28828 5 8 6 1 1 0 TRANSFER
28829 80 290 2 0 0 0 290 >WRITE ENTER SUBROUTINE
28830 54 8 4 1 0 46 BULK CLEAR
28831 5 318 12 0 0 0 318 TRANSFER
28823>28832 10 0 0 0 6 SELECT LITERAL
28833 5 12 2 0 0 0 TRANSFER
28834 91 318 12 0 1 0 318 SET MODIFICATION REGISTER AT VARIABLE
28835 55 29 0 1 0 0 COPY TO SEC 8 BULK COPY
28836 C 8 6 1 1 0
28837 C 29 0 2 0 0
28838 29 0 2 0 0 SELECT
28839 4 318 12 0 0 0 318 STEP QTTY IN BLOCK TO DATE AUGMENT
28840 54 29 0 1 0 44 CLEAR SEC 29 BULK CLEAR
28841 82 288 2 0 0 0 288 END OF SUBROUTINE / LEAVE SUBROUTINE
28900 PROCR 289 289
28902 81 289 2 0 0 0 289 START OF SUBROUTINE
28903 0 319 10 1 0 0 319 SELECT
28904 5 8 50 1 0 0 TRANSFER
28905 80 290 2 0 0 0 290 ENTER SUBROUTINE
28906 54 8 4 1 0 46 BULK CLEAR
28907 82 289 2 0 0 0 289 END OF SUBROUTINE / LEAVE SUBROUTINE
29000 PROCR 290 290
29002 81 290 2 0 0 0 290 START OF SUBROUTINE
29003 43 A2 0 0 0 0 OUTPUT
29004 C 8 0 0 0 0
29005 82 290 2 0 0 0 290 END OF SUBROUTINE / LEAVE SUBROUTINE
29100 PROCR 291 291 READ B/FWD MT FILE
29102 81 291 2 0 0 0 291 START OF SUBROUTINE
29103 42 A1 0 0 0 0 INPUT
29104 C 7 0 0 0 0
29105 82 291 2 0 0 0 291 END OF SUBROUTINE / LEAVE SUBROUTINE
29200 PROCR 292 292 INPUT OFF PAPER TAPE
29201 NOTES RADIX SELECT
29202 81 292 2 0 0 0 292 START OF SUBROUTINE
29224>
29233>29203 80 301 2 0 0 0 301 >READ A6 ENTER SUBROUTINE
29204 87 27 10 0 0 0 SWITCH ACCORDING TO N
29205 C 292 13 0 0 0 292
29206 C 292 7 0 0 0 292 CARDS-CHECK CARD SER
29206>29207 9 34 2 0 0 SELECT
29208 2 12 111 0 0 0 PREVIOUS SER SUBTRACT
29209 4 12 111 0 0 0 STORE THIS SER AUGMENT
29210 12 0 0 0 1 SUBTRACT LITERAL
29211 5 12 110 0 0 0 STORE ANY ERROR TRANSFER
29212 5 9 34 1 0 0 TRANSFER
29205>29213 9 4 1 0 0 SELECT
29214 2 319 24 1 0 0 319 'SHEET' SUBTRACT
29215 71 292 34 0 0 0 292 JUMP IF A != 0
29216 124 306 8 0 2 0 306 select literal and division
29217 80 326 2 0 0 0 326 UNPACK ENTER SUBROUTINE
29218 34 12 88 1 0 0 SHEET NO SET (N) IN B
29219 80 321 2 0 0 0 321 ENTER SUBROUTINE
29220 0 12 88 2 0 0 SELECT
29221 2 12 92 0 0 0 PREVIOUS SER SUBTRACT
29222 4 12 92 0 0 0 REPLACE BY CURRENT AUGMENT
29223 12 0 0 0 1 CHECK SEQUENCE SUBTRACT LITERAL
Source image: P1000216.JPG
29224 70 292 3 0 0 0 292 >CORRECT JUMP IF A == 0
29225 0 319 24 1 0 0 319 'SHEET'' SELECT
29226 124 319 22 0 1 0 319 modify address of next
29227 124 305 2 0 1 0 305 modify address of next
29228 5 29 14 1 0 0 TRANSFER
29229 0 12 88 1 0 0 WRONG NUMBER SELECT
29230 124 319 22 0 1 0 319 modify address of next
29231 124 305 10 0 1 0 305 modify address of next
29232 5 29 0 1 0 0 TRANSFER
29233 76 292 3 0 0 0 292 JUMP unconditional
29215>29234 9 4 1 0 0 SELECT
29235 2 319 46 1 0 0 319 'TRAMD' SUBTRACT
29236 70 292 49 0 0 0 292 >DON'T INSERT BE JUMP IF A == 0
29237 34 9 48 2 0 0 SET (N) IN B
29238 10 0 0 0 0 SELECT LITERAL
29239 32 0 0 0 7 SHIFT (AB) BY QUARTETS
29240 5 320 42 1 0 0 320 WORD CTR TRANSFER
29241 91 320 42 0 1 0 320 SET MODIFICATION REGISTER AT VARIABLE
29242 32 0 0 0 3 SHIFT (AB) BY QUARTETS
29243 5 288 2 0 0 0 288 COL POSN+WL TRANSFER
29244 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
29245 10 0 0 0 7. SELECT LITERAL
29246 124 288 2 0 1 0 288 modify address of next
29247 32 0 0 0 0 ///// SHIFT (AB) BY QUARTETS
29248 37 9 0 1 1 0 REPLACE SELECTED BITS
29236>29249 82 292 2 0 0 0 292 END OF SUBROUTINE / LEAVE SUBROUTINE
29300 PROCR 293 293 TEST AMENDMENT IS A STACKING DIRECTIVE
29301 NOTES RADIX SELECT
29302 81 293 2 0 0 0 293 START OF SUBROUTINE
29303 54 1 0 1 0 8 BULK CLEAR
29304 87 27 10 0 0 0 SWITCH ACCORDING TO N
29305 C 293 13 0 0 0 293
29306 C 293 7 0 0 0 293 CARDS
29306>29307 50 9 8 0 0 0 UNPACK FIXED FIELD DATA
29308 C 311 4 0 0 0 311
29309 0 1 8 1 0 0 SELECT
29310 30 0 0 0 4 SHIFT (A) BY QUARTETS
29311 5 1 8 1 0 0 L-ALIGN PROCR NUMBER TRANSFER
29312 76 293 15 0 0 0 293 JUMP unconditional
29305>29313 124 311 2 0 2 0 311 select literal and division
29314 80 326 2 0 0 0 326 ENTER SUBROUTINE
29312>29315 1 6 1 0 0 SELECT
29316 80 287 2 0 0 0 287 >TEST DIRECTIVE ENTER SUBROUTINE
29317 82 293 2 0 0 0 293 END OF SUBROUTINE / LEAVE SUBROUTINE
29400 PROCR 294 294 TEST FOR MOD END SIGN
29401 NOTES RADIX OR DIRECTIVE SELECT
29402 81 294 4 0 0 0 294 START OF SUBROUTINE
29403 9 4 1 0 0 SELECT
29404 30 0 0 0 4- SHIFT (A) BY QUARTETS
29405 30 0 0 0 4 SHIFT (A) BY QUARTETS
29406 2 319 14 1 0 0 319 'END ' SUBTRACT
29407 70 294 11 0 0 0 294 JUMP IF A == 0
29408 9 4 1 0 0 SELECT
29409 2 319 46 1 0 0 319 'TRAMD' SUBTRACT
29410 71 294 13 0 0 0 294 JUMP IF A != 0
29407>29411 10 0 0 0 100000 SELECT LITERAL
29412 76 294 39 0 0 0 294 JUMP unconditional
29410>29413 10 0 0 0 0 CLEAR LOCATION TO WHICH SELECT LITERAL
Source image: P1000217.JPG
29414 5 1 4 1 0 0 AMENDMENT DIRECTIVE IS UNPACKED TRANSFER
29415 124 311 10 0 2 0 311 select literal and division
29416 80 326 2 0 0 0 326 >UNPACK AMEND LETTER ENTER SUBROUTINE
29417 87 27 10 0 0 0 SWITCH ACCORDING TO N
29418 C 294 22 0 0 0 294 P/T
29419 C 294 20 0 0 0 294 CARDS
29419>29420 34 1 6 1 0 0 SET (N) IN B
29421 76 294 23 0 0 0 294 JUMP unconditional
29418>29422 34 1 4 1 0 0 SET (N) IN B
29421>29423 10 0 0 0 0 SELECT LITERAL
29424 32 0 0 0 2 SHIFT (AB) BY QUARTETS
29425 12 0 0 0 69 SUBTRACT LITERAL
29426 70 294 36 0 0 0 294 JUMP IF A == 0
29427 11 0 0 0 15 ADD LITERAL
29428 70 294 35 0 0 0 294 JUMP IF A == 0
29429 12 0 0 0 19 SUBTRACT LITERAL
29430 70 294 34 0 0 0 294 JUMP IF A == 0
29431 11 0 0 0 22 ADD LITERAL
29432 71 294 41 0 0 0 294 JUMP IF A != 0
29433 10 0 0 0 1 SELECT LITERAL
29430>29434 11 0 0 0 1 ADD LITERAL
29428>29435 11 0 0 0 1 ADD LITERAL
29426>29436 11 0 0 0 1 ADD LITERAL
29437 84 252 2 0 0 0 252 SET SWITCH(ES) AT VARIABLE VALUE
29438 10 0 0 0 1 SELECT LITERAL
29442>
29412>29439 3 12 44 1 0 0 COPY
29440 82 294 2 0 0 0 294 END OF SUBROUTINE / LEAVE SUBROUTINE
29432>29441 10 0 0 0 0 SELECT LITERAL
29442 76 294 39 0 0 0 294 JUMP unconditional
29500 PROCR 295 295 IGNORE THIS INSTRUCTION
29501 NOTES RADIX SELECT
29502 81 295 2 0 0 0 295 START OF SUBROUTINE
29503 319 26 1 0 0 319 IGNORE INDICATOR SELECT
29504 5 1 42 1 0 0 TRANSFER
29505 82 295 2 0 0 0 295 END OF SUBROUTINE / LEAVE SUBROUTINE
29600 PROCR 296 296 IGNORE PREVIOUS INSTRUCTION
29601 NOTES RADIX SELECT
29602 81 296 2 0 0 0 296 START OF SUBROUTINE
29603 319 26 1 0 0 319 SELECT
29604 124 319 22 0 1 0 319 modify address of next
29605 124 305 2 0 1 0 305 modify address of next
29606 5 29 14 1 0 0 TRANSFER
29607 82 296 2 0 0 0 296 END OF SUBROUTINE / LEAVE SUBROUTINE
29700 PROCR 297 297 >ANNOTATION IF CARD
29701 NOTES RADIX SELECT
29702 81 297 2 0 0 0 297 START OF SUBROUTINE
29703 10 0 0 0 SELECT LITERAL
29704 87 27 10 0 0 0 SWITCH ACCORDING TO N
29705 C 297 8 0 0 0 297 P/T
29706 C 297 7 0 0 0 297 CARDS
29706>29707 80 298 2 0 0 0 298 BULK COPY WORDS-THUS SETTING (A)=0 ENTER SUBROUTINE
29705>29708 82 297 2 0 0 0 297 END OF SUBROUTINE / LEAVE SUBROUTINE
29800 PROCR 298 298 BULK COPY ANNOTATION
29801 NOTES RADIX SELECT
29802 81 298 2 0 0 0 298 START OF SUBROUTINE
Source image: P1000218.JPG
29803 55 9 18 1 0 16 BULK COPY
29804 C 1 28 1 0 0
29805 82 298 2 0 0 0 298 END OF SUBROUTINE / LEAVE SUBROUTINE
29900 PROCR 299 299 TEST END SIGN ON MAG TAPE
29901 NOTES RADIX SELECT
29902 81 299 2 0 0 0 299 START OF SUBROUTINE
29903 27 1 0 0 0 SELECT
29904 70 299 7 0 0 0 299 >1 RECORD PER BLOCK JUMP IF A == 0
29905 6 1 8 0 SELECT
29906 76 299 8 0 0 0 299 JUMP unconditional
29904>29907 0 7 10 1 0 0 SELECT
29906>29908 2 319 14 1 0 0 319 SUBTRACT
29909 70 322 2 0 0 0 322 JUMP IF A == 0
29910 1 319 14 1 0 0 319 ADD
29911 2 319 16 1 0 0 319 'DUMPS' SUBTRACT
29912 70 322 2 0 0 0 322 JUMP IF A == 0
29913 1 319 16 1 0 0 319 ADD
29914 2 319 18 1 0 0 319 'FILES' SUBTRACT
29915 70 322 2 0 0 0 322 JUMP IF A == 0
29916 82 299 2 0 0 0 299 END OF SUBROUTINE / LEAVE SUBROUTINE
30000 PROCR 300 300 LEFT ALIGN SUBROUTINE
30001 NOTES RADIX SELECT
30002 81 300 2 0 0 0 300 DATA IN B START OF SUBROUTINE
30003 10 0 0 0 0 SELECT LITERAL
30004 74 300 8 0 0 0 300 ZERO NUMBER? JUMP IF AB == 0 // 27, 1, 0
30006>30005 32 0 0 0 2 SHIFT (AB) BY QUARTETS
30006 70 300 5 0 0 0 300 JUMP IF A == 0
30007 32 0 0 0 8 LEFT ALIGN IN A SHIFT (AB) BY QUARTETS
30004>30008 82 300 2 0 0 0 300 END OF SUBROUTINE / LEAVE SUBROUTINE
30100 PROCR 301 301
30102 81 301 2 0 0 0 301 START OF SUBROUTINE
30103 42 A6 0 0 0 0 INPUT
30104 C 9 0 0 0 0
30105 82 301 2 0 0 0 301 END OF SUBROUTINE / LEAVE SUBROUTINE
30200 PROCR 302 302 STEP MR.TEST END OF BLOCK
30202 81 302 2 0 0 0 302 START OF SUBROUTINE
30203 27 1 0 0 0 SELECT
30204 70 302 13 0 0 0 302 >1 RECORD PER BLOCK JUMP IF A == 0
30205 0 2 8 0 CURRENT RECORD LENGTH SELECT
30206 5 291 2 0 0 0 291 WL TRANSFER
30207 97 291 2 0 8 0 291 STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
30208 C 302 12 0 0 0 302 >BLOCK NOT EMPTY
30209 80 291 2 0 0 0 291 >READ A1 ENTER SUBROUTINE
30210 59 7 6 0 8 0 SET MODIFICATION REGISTER FOR MERGE
30211 C 7 4 2 0 0
30208>30212 82 302 2 0 0 0 302 END OF SUBROUTINE / LEAVE SUBROUTINE
30204>30213 80 291 2 0 0 0 291 >READ A1 ENTER SUBROUTINE
30214 82 302 2 0 0 0 302 END OF SUBROUTINE / LEAVE SUBROUTINE
30300 PROCR 303 303 TEST MT=STACK DIRECTIVE
30302 81 303 2 0 0 0 303 START OF SUBROUTINE
30303 27 1 0 0 0 SELECT
30304 70 303 8 0 0 0 303 JUMP IF A == 0
30305 6 1 8 0 SELECT
30309>30306 80 287 2 0 0 0 287 ENTER SUBROUTINE
30307 82 303 2 0 0 0 303 END OF SUBROUTINE / LEAVE SUBROUTINE
Source image: P1000219.JPG
30304>30308 7 10 1 0 0 SELECT
30309 76 303 6 0 0 0 303 JUMP unconditional
30400 PROCR 304 304 UNPACK MT-MULTIRECORD BLOCKS
28405>30402 62 0 0 0 0 SET EXCESS CONSTANTS
30403 54 28 0 1 0 46 BULK CLEAR
30404 12 38 0 0 0 SELECT
30405 70 304 37 0 0 0 304 >NOT DIRECTIVE JUMP IF A == 0
30406 0 2 8 0 SELECT
30407 30 0 0 0 5 SHIFT (A) BY QUARTETS
30408 98 0 0 8 0 ADD MODIFICATION REGISTER TO A
30409 128 28 0 1 1 0 COPY DIRECTIVE+LENGTH WORD bulk copy long numeric
30410 50 28 2 0 0 0 UNPACK UNPACK FIXED FIELD DATA
30411 C 307 16 0 0 0 307
30412 27 5 0 0 0 SELECT
30413 12 0 0 0 1 SUBTRACT LITERAL
30414 71 304 19 0 0 0 304 >NOT'PROCR' JUMP IF A != 0
30415 12 38 0 0 0 SELECT
30416 73 304 19 0 0 0 304 >NOT NOTES OF PROCR JUMP IF A < 0
30417 28 12 1 0 0 SELECT
30418 5 1 8 1 0 0 COPY 'RADIX' TRANSFER
30416>
30414>30419 12 86 0 0 0 SELECT
30420 70 304 34 0 0 0 304 >NOT 'REPLACE ANNOTATION' JUMP IF A == 0
30421 27 5 0 0 0 SELECT
30422 12 0 0 0 1 SUBTRACT LITERAL
30423 70 304 29 0 0 0 304 >PROCR,TEST NOTES JUMP IF A == 0
30424 12 0 0 0 1 SUBTRACT LITERAL
30425 71 304 31 0 0 0 304 >CONST JUMP IF A != 0
30426 12 38 0 0 0 SELECT
30427 72 304 52 0 0 0 304 >NOTES OF TABLE JUMP IF A >= 0
30428 76 304 31 0 0 0 304 >NOT TABLE NOTES JUMP unconditional
30423>30429 12 38 0 0 0 SELECT
30430 73 304 52 0 0 0 304 >NOT NOTES OF PROCR JUMP IF A < 0
30428>
30425>30431 28 14 1 0 0 SELECT
30432 5 1 16 1 0 0 CONST/TABLE TYPE OR RADIX LETTER TRANSFER
30433 76 304 52 0 0 0 304 JUMP unconditional
30420>30434 55 28 14 1 0 26 ANNOTATION ETC EVEN IF ABSENT BULK COPY
30435 C 1 16 1 0 0
30436 76 304 52 0 0 0 304 JUMP unconditional
30405>30437 27 5 0 0 0 SELECT
30438 12 0 0 0 4 SUBTRACT LITERAL
30439 70 304 66 0 0 0 304 >VALUES JUMP IF A == 0
30440 0 2 8 0 SELECT
30441 3 320 42 0 0 0 320 LENGTH COPY
30442 124 27 5 0 1 0 modify address of next
30443 2 305 2 0 0 0 305 (MAX DATA LENGTH*2) SUBTRACT
30444 72 304 54 0 0 0 304 >RECORD HAS ANNOTATION JUMP IF A >= 0
30445 320 42 0 0 0 320 SELECT
30465>30446 30 0 0 0 5 SHIFT (A) BY QUARTETS
30447 98 0 0 8 0 DATA START ADD MODIFICATION REGISTER TO A
30448 128 28 0 1 1 0 COPY RECORD bulk copy long numeric
30449 124 27 5 0 1 0 modify address of next
30450 305 6 0 0 0 305 SELECT
30451 128 28 2 0 2 0 UNPACK-SEC1 unpack fixed field data
30472>
30436>
30433>
30430>
Source image: P1000220.JPG
30427>30452 60 0 0 0 0 SET DECIMAL RADIX
30453 82 284 2 0 0 0 284 END OF SUBROUTINE / LEAVE SUBROUTINE
30444>30454 5 320 43 0 0 0 320 ANNOTATION LENGTH ANNOTATED DATA TRANSFER
30455 12 86 0 0 0 SELECT
30456 71 304 63 0 0 0 304 >JUST HERE TO UNPACK NUMBERS JUMP IF A != 0
30457 320 43 0 0 0 320 SELECT
30458 30 0 0 0 5 SHIFT (A) BY QUARTETS
30459 98 0 0 8 0 ADD MODIFICATION REGISTER TO A
30460 124 27 5 0 1 0 modify address of next
30461 1 305 2 0 0 0 305 DATA LENGTH+2 ADD
30462 128 1 28 1 1 0 COPY ANNOTATION bulk copy long numeric
30456>30463 124 27 5 0 1 0 modify address of next
30464 305 2 0 0 0 305 SELECT
30465 76 304 46 0 0 0 304 >UNPACK NUMBERS JUMP unconditional
30439>30466 0 2 8 0 LENGTH VALUES SELECT
30467 12 0 0 0 6 SUBTRACT LITERAL
30468 30 0 0 0 5 SHIFT (A) BY QUARTETS
30469 98 0 0 8 0 START ADD MODIFICATION REGISTER TO A
30470 11 0 0 0 7 ADD LITERAL
30471 128 1 9 1 0 0 ALPHA+NUM bulk copy alpha to short
30472 76 304 52 0 0 0 304 >EXIT JUMP unconditional
30500 CONST 305 305 0 FOR UNPACKING MULTIRECORD MT
30502 (B)24; DIRECTIVES-ANNOTATION
30503 24; ORDER LENGTH+2
30504 24; TABLE
30505 28; CONSTANT
30506 28; VALUES
30507 (R)308:0; UNPACK ORDERS
30508 309:0; UNPACK TABLES
30509 310:0; UNPACK CONSTANTS
30510 (B)12; DIRECTIVES-PASS 1 REPORTS
30511 22; ORDERS
30512 22; TABLE
30513 26; CONSTANT
30514 42; VALUES
30600 TABLE 306 306 1 'INDEX' LINE
30601 NOTES
30602 12 4 0 0 0 0 3 2 0 2 0 0 0 TO REPLACE CODERS REF
30604 92 8 0 0 0 0 2 0 0 2 0 0 1
30606 12 88 0 0 0 0 5 0 0 5 0 0 1
30608 12 88 0 0 2 0 5 0 0 0 0 0 0 'SHEET '
30610 12 88 0 0 2 0 5 0 0 0 0 0 1 SHEET NUMBER
30700 TABLE 307 307 1 EDIT STACKING DIRECTIVE
30701 NOTES
30702 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND
30704 1 2 0 0 2 0 5 0 0 0 0 0 0 'PROCR'/TABLE/CONST' ETC
30706 92 35 0 0 0 0 5 0 0 5 0 0 0
30708 1 6 0 0 2 0 5 0 0 0 0 0 0 TYPE
30710 92 34 0 0 1 0 10 0 0 10 0 0 0
30712 1 8 0 0 2 0 5 0 0 0 0 0 0 NEW PROCR NUMBER
30714 1 14 0 0 0 0 5 0 0 4 0 0 1 PREVIOUS PROCR NUMBER
30716 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND-----MULTIREC BLOX
30718 1 2 0 0 2 0 5 0 0 0 0 0 0 LINE SERIAL
30720 1 6 0 0 2 0 5 0 0 0 0 0 0 'PROCR' ETC
30722 1 8 0 0 2 0 5 0 0 0 0 0 0 CURRENT PROCR
30724 1 14 0 0 0 0 5 0 0 5 0 0 1 PREVIOUS PROCR
Source image: P1000221.JPG
30800 TABLE 308 308 3 EDIT INSTRUCTIONS
30801 NOTES
30802 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND
30804 1 2 0 0 2 0 5 0 0 0 0 0 0 LINE SERIAL
30806 1 6 0 0 2 0 5 0 0 0 0 0 0 ACTION
30808 1 8 0 0 2 0 5 0 0 0 0 0 0 REF
30810 1 10 0 0 1 0 5 5 0 5 1 0 0 ITEM +/-
30812 1 12 0 0 0 0 2 3 0 2 0 0 0 DISC
30814 1 14 0 0 0 0 3 2 0 3 0 0 0 MODIFIER
30816 1 16 0 0 1 0 10 0 0 10 1 0 0 LITERAL +/-
30818 1 20 0 0 2 0 5 0 0 0 0 0 0 'CLEO' PARA WORD
30820 1 22 0 0 0 0 5 0 0 5 0 0 1 PREVIOUS PROCR NO
30900 TABLE 309 309 1 EDIT TABLE ENTRIES
30901 NOTES
30902 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND
30904 1 2 0 0 2 0 5 0 0 0 0 0 0
30906 1 20 0 0 0 0 5 0 0 5 0 0 0 FIRST REF
30908 1 22 0 0 0 0 5 0 0 5 0 0 0 FIRST ITEM
30910 1 24 0 0 0 0 5 0 0 5 0 0 0 SECOND REF
30912 1 26 0 0 0 0 5 0 0 5 0 0 0 SECOND ITEM
30914 1 19 0 0 0 0 2 3 0 2 0 0 0 DISC
30916 1 11 0 0 0 0 3 2 0 3 0 0 0 SINGLE/TO BE
30918 1 12 0 0 0 0 2 3 0 2 0 0 0 NO
30920 1 13 0 0 0 0 3 2 0 3 0 0 0 DISCARDED
30922 1 14 0 0 0 0 2 3 0 2 0 0 0 SPACES
30924 1 15 0 0 0 0 3 2 0 3 0 0 0 ZEROS
30926 1 16 0 0 0 0 1 4 0 1 0 0 0 SIGN
30928 1 17 0 0 0 0 2 3 0 2 0 0 0 STERLING
30930 1 18 0 0 0 0 2 3 0 2 0 0 1 LAST TABLE ENTRY
31000 TABLE 310 310 3 UNPACK CONSTANT AND EDIT
31001 NOTES
31002 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND
31004 1 2 0 0 2 0 5 0 0 0 0 0 0
31006 92 34 0 0 0 0 5 0 0 5 0 0 0 ZERO WORD
31008 1 6 0 0 2 0 5 0 0 0 0 0 0 CONSTANT UNPACKED
31010 1 8 0 0 2 0 5 0 0 0 0 0 0 FIXED FIELD TO
31012 1 10 0 0 2 0 5 0 0 0 0 0 0 1/6' ONWARD
31014 1 12 0 0 2 0 5 0 0 0 0 0 0
31016 1 14 0 0 2 0 5 0 0 0 0 0 0
31018 1 16 0 0 2 0 5 0 0 0 0 0 0
31020 1 18 0 0 2 0 5 0 0 0 0 0 0
31022 1 20 0 0 2 0 5 0 0 0 0 0 0
31024 1 22 0 0 2 0 5 0 0 0 0 0 1
31100 TABLE 311 311 3 UNPACK STACKING DIRECTIVE
31101 NOTES FROM CARDS OR PAPER TAPE
31102 1 2 0 0 2 0 5 0 0 0 0 0 0 SER+AMEND DIR?
31104 1 6 0 0 2 0 5 0 0 0 0 0 0 DIRECTIVE
31106 1 8 0 0 2 0 3 0 0 0 0 0 0 SECTION NO
31108 1 16 0 0 2 1 5 0 0 0 0 0 1 /////TYPE OR ANNOTATION
31110 1 2 0 0 2 0 5 0 0 0 0 0 0 SER NO +AMEND DIR?
31112 1 6 0 0 2 0 5 0 0 0 0 0 0 ''NOTES'' OF TABLE
31114 1 16 0 0 2 0 5 0 0 0 0 0 1 ANNOTATION
31200 TABLE 312 312 3 UNPACK INSTRUCTIONS
31201 NOTES FROM P/T OR CARDS
31202 1 2 0 0 2 0 6 0 0 0 0 0 0 /////SER+AMEND LETTER
31204 1 6 0 0 2 0 3 0 0 0 0 0 0 ACTION
Source image: P1000222.JPG
31206 1 8 0 0 2 0 3 0 0 0 0 0 0 REF
31208 1 10 0 0 1 0 5 0 0 0 1 0 0 ITEM
31210 1 12 0 0 0 0 1 0 0 0 0 0 0 D
31212 1 14 0 0 0 0 2 0 0 0 0 0 0 M
31214 1 16 0 0 1 0 10 0 0 0 1 0 0 LITERAL
31216 1 28 0 0 2 0 5 0 0 0 0 0 0 NOTES FROM P/T -RUBBISH FROM CARD
31218 1 36 0 0 2 0 5 0 0 0 0 0 1 COMMENTARY FROM P/T
31300 TABLE 313 313 3 UNPACK TABLE ENTRIES
31302 1 2 0 0 2 0 6 0 0 0 0 0 0 /////SER+AMEND LETTER
31304 1 20 0 0 0 0 3 0 0 0 0 0 0 FIRST REF
31306 1 22 0 0 0 0 5 0 0 0 0 0 0 FIRST ITEM
31308 1 24 0 0 0 0 3 0 0 0 0 0 0 SECOND REF
31310 1 26 0 0 0 0 5 0 0 0 0 0 0 SECOND ITEM
31312 1 19 0 0 0 0 1 0 0 0 0 0 0 DISC
31314 1 11 0 0 0 0 1 0 0 0 0 0 0 SINGLE TO BE
31316 1 12 0 0 0 0 2 0 0 0 0 0 0 NO OF CHARS
31318 1 13 0 0 0 0 2 0 0 0 0 0 0 DISCARDS
31320 1 14 0 0 0 0 2 0 0 0 0 0 0 SPACES
31322 1 15 0 0 0 0 2 0 0 0 0 0 0 ZEROS
31324 1 16 0 0 0 0 1 0 0 0 0 0 0 SIGN
31326 1 17 0 0 0 0 1 0 0 0 0 0 0
31328 1 18 0 0 0 0 1 0 0 0 0 0 0 LTE
31330 1 28 0 0 2 0 5 0 0 0 0 0 1 P/T ANNOTATION-SPACES IF CARD
31400 TABLE 314 314 3 UNPACK CONSTANT (FIRST STAGE)
31402 1 2 0 0 2 0 6 0 0 0 0 0 0 /////SER+AMEND LETTER
31404 1 6 0 0 2 0 5 0 0 0 0 0 0 CONSTANT (OR FIRST 5 CHS OF CONST)
31406 1 28 0 0 2 0 5 0 0 0 0 0 1 ANNOTATION (FROM P/T) OR NEXT 5
31500 TABLE 315 315 1 EDIT ALL BUT TRIAL DATA
31502 1 9 0 0 0 0 5 0 0 4 0 0 0 REF---VALUES
31504 1 10 0 0 0 0 5 0 0 4 1 0 1 LTE
31600 CONST 316 316 0 CHECKING CONST FOR INSTRUCTIONS
31602 (D)06‼11; 'LITERAL' SWITCH Q3
31603 08‼19; 'REF/ITEM' SW Q2
31604 00‼11; 'DISC/MOD' SWITCH Q1
31605 09‼11;
31606 0Ю122; ACTION 10
31607 0+322;
31608 0£000;
31609 11Ю11;
31610 12000;
31611 13Ю91;
31700 CONST 317 317 0 CHECKING CONSTANTS FOR INSTRUCTIONS
31702 (D)1Ю‼11; ACTIONS 20-26
31703 1+000; 2728
31704 1:‼11; 29
31705 21422; 30-33
31706 22‼11;
31707 23522;
31708 25‼11;
31709 26622;
31710 27‼22;
31711 295‼2;
Source image: P1000223.JPG
31712 005‼2; ACTIONS 42, 43
31713 2‼‼39; 42, 43 FIRST C-LINE
31714 00‼:1; 43 SECOND LINE
31715 00‼41; 44
31716 2++32;
31717 2:531; ACTIONS 46-49
31718 3153Ю; 46-49 C-LINES
31719 00114; ACTIONS 50-53
31720 35‼1‼;
31721 00‼43; ACTION 54
31722 36991;
31723 00‼13;
31724 37719;
31725 00‼91;
31726 38‼11;
31727 39117; 57
31728 3Ю112;
31729 3‼11:; 59
31730 00‼14; C-LINE
31731 3:‼22; 6061
31732 3.822;
31733 40‼11;
31734 41819;
31735 00822;
31736 43‼22; 66.67
31737 45000; 6869
31738 4+‼42; 70-76
31739 4.:+2; 77-78
31740 00‼12; C-LINE
31741 4£‼42; 79
31742 50‼+2; 80
31743 00‼92; C-LINE
31744 52‼42; 81-82
31745 53+62; 83
31746 54‼.2; 84
31747 00‼11; 84 C-LINE
31748 55‼6Ю; 85
31749 00‼.1;
31750 56162; 86
31751 57‼1‼;
31752 00‼.1; C-LINE
31753 59000;
31754 5Ю22:; ACTION 90
31755 00222;
31756 5:‼16; ACTIONS 91-93
31757 5.915; 94
31758 60‼25;
31759 61‼95; ACTION 97
31760 00‼62;
31761 63‼26; 9899
31762 83‼91;
31763 00‼11;
31764 84‼32; 132
31765 8653Ю; 133-4
31766 00‼62; C-LINE
31767 8‼000;
31768 8£‼91; 140-143
31769 90000; 144
31770 94‼91; ACTIONS 145-148
31771 00‼11; CONTINUATION LINES
Source image: P1000224.JPG
31772 95000;
31773 96+1£;
31774 00‼.1;
31775 97‼22;
31776 98‼4Ю;
31777 00‼42;
31778 99‼22; ACTION 153
31779 9Ю‼12; ACTION 153-154
31780 9‼‼22;
31781 9+‼31;
31782 9:‼1‼;
31783 00‼43; C-LINE
31784 9.511;
31785 ££000;
31786 00‼19; CONST FOR ACTION 55=2 C-LINES
31787 00‼:9; 2ND C LINE RT 22 ACTION 43
31788 00‼11; =1 C-LINE
31789 (R)18:2496; FOR SEQUENCE CHANGES
31790 (R)18:0;
31791 (R)93:0;
31792 (R)14:0;
31793 (D)0; ZERO IF RT9 PRINTER
31794 00‼:1; 43 ACTIONS
31800 CONST 318 318 0 MISC
31802 (D)2;
31803 10000; BIT 17
31804 £££; Q1-3
31805 70; BITS 5-7
31806 7; BITS 1-3
31807 8; BIT 4
31808 80; BIT 8
31809 £00;
31810 4; BIT3
31811 0; FIRST RECORD INDICATOR
31812 0; ACC.RECORD LENGTH
31900 CONST 319 319 1 ALPHA CONSTANTS
31902 (A)TABLE;
31904 CONST;
31906 PROCR;
31908 * ;
31910 (D)7.0000007.; BLOCK END WORD
31912 (A)NOTES;
31914 END ;
31916 DUMPS;
31918 FILES;
31920 (D)££+00003££; BITS 1-10 AND 31-40
31922 0; EVEN=WL FOR EDIT SWITCH, ODD=C/FWD HIGHE
31924 (A)SHEET;
31926 (D)5:5:5:5:5:; '?????'
31928 (A)VALUE;
31930 (D)6£6£6£6£6£;
31932 (A)INDEX;
31934 £££££;
31936 2;
31938 CHAIN;
31940 ????R;
31942 ????I;
31944 ????*;
Source image: P1000225.JPG
31946 (A)TRAMD;
31948 (B20)16(D)0(C)1:28; BULK COPY
31950 (A)FINIS;
32000 CONST 320 320 1 CONVERT TABLES
32002 (D)1; BIN+DEC
32004 16;
32006 256;
32008 4096;
32010 65536;
32012 1048576;
32014 16777216;
32016 268435456;
32018 4294967296;
32020 ££££££££££;
32022 1; DEC+BIN
32024 Ю;
32026 64;
32028 3.8;
32030 2710;
32032 186Ю0;
32034 £4240;
32036 989680;
32038 5£5.100;
32040 3‼9Ю+Ю00;
32042 0; (A)WL
32044 3£; BITS 1-6
32046 (A)CHAPT;
32048 PREND;
32100 PROCR 321 321 RIGHT ALIGN A WORD
32101 NOTES RADIX PLACED IN B SELECT
32102 81 321 2 0 0 0 321 START OF SUBROUTINE
32103 10 0 0 0 0 SELECT LITERAL
32104 5 12 88 1 0 0 TRANSFER
32108>32105 1 12 88 1 0 0 ADD
32106 32 0 0 0 2 LEAVE A CLEAR SHIFT (AB) BY QUARTETS
32107 5 12 88 1 0 0 TRANSFER
32108 75 321 5 0 0 0 321 AND PUT WORD JUMP IF AB != 0
32109 12 88 1 0 0 SELECT
32110 82 321 2 0 0 0 321 IN 12/88' END OF SUBROUTINE / LEAVE SUBROUTINE
32200 PROCR 322 322 END ROUTINE
32201 NOTES RADIX SELECT
29915>
29912>
29909>
18523>
18520>32202 60 0 0 0 0 SET DECIMAL RADIX
32203 10 0 0 0 1 SELECT LITERAL
32204 4 92 3 0 0 0 STEP PROCR AUGMENT
32205 62 0 0 0 0 SET EXCESS CONSTANTS
32206 319 22 0 0 0 319 DIRECTIVE FOR LAST BLOCK EDITED SELECT
32207 12 0 0 0 3 SUBTRACT LITERAL
32208 71 322 11 0 0 0 322 >WASN'T A CONSTANT JUMP IF A != 0
32209 10 0 0 0 1 SELECT LITERAL
32210 5 29 6 0 0 0 TRANSFER
32208>32211 80 288 2 0 0 0 288 >O/P FINAL DATA BLOCK ENTER SUBROUTINE
32212 0 92 3 0 0 0 SELECT
32213 30 0 0 0 2 SHIFT (A) BY QUARTETS
Source image: P1000226.JPG
32214 5 12 88 0 0 0 TRANSFER
32215 52 29 4 0 0 0 EDIT
32216 C 306 6 0 0 0 306
32229>32217 9 4 1 0 0 SELECT
32218 30 0 0 0 4- SHIFT (A) BY QUARTETS
32219 30 0 0 0 4 SHIFT (A) BY QUARTETS
32220 2 319 14 1 0 0 319 SUBTRACT
32221 70 322 30 0 0 0 322 > END WITHOUT TD JUMP IF A == 0
32222 9 4 1 0 0 SELECT
32223 2 319 46 1 0 0 319 'TRAMD' SUBTRACT
32224 70 322 32 0 0 0 322 JUMP IF A == 0
32225 10 0 0 0 5£5£5£5£5£ 5 SQUARES SELECT LITERAL
32226 3 27 6 0 0 0 'PT OMMITTED' COPY
32227 5 29 12 1 0 0 TRANSFER
32228 80 301 2 0 0 0 301 > READ PT ENTER SUBROUTINE
32229 76 322 17 0 0 0 322 > TEST NEXT BLOCK JUMP unconditional
32221>32230 319 50 1 0 0 319 'FINIS' SELECT
32231 5 9 4 1 0 0 TRANSFER
32224>32232 319 14 1 0 0 319 SELECT
32233 5 29 6 1 0 0 'END' TRANSFER
32234 80 288 2 0 0 0 288 > WRITE INTERCODE END SIGN ENTER SUBROUTINE
32235 80 325 2 0 0 0 325 ENTER SUBROUTINE
32236 90 0 0 1 1 SET MODIFICATION REGISTER AT LITERAL
32237 C 0 0 0 100
32238 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
32239 C 0 0 0 200
32268>32240 96 0 0 1 0 SELECT MODIFIER
32241 80 244 2 0 0 0 244 > TO DEC ENTER SUBROUTINE
32242 62 0 0 0 0 SET EXCESS CONSTANTS
32243 32 0 0 0 1- DIVIDE BY 10 SHIFT (AB) BY QUARTETS
32244 92 0 0 3 0 TENS DIGIT SET MODIFIER AT VARIABLE
32245 32 0 0 0 1 SHIFT (AB) BY QUARTETS
32246 5 244 2 0 0 0 244 WL TRANSFER
32247 10 0 0 0 1 SELECT LITERAL
32248 124 244 2 0 1 0 244 modify address of next
32249 31 0 0 0 0 /////BIT PATTERN OF UNITS DIGIT SHIFT (A) BY BITS
32250 3 244 2 0 0 0 244 COPY
32251 33 0 0 0 30- REL TO BIT 10 OF 8 SHIFT (AB) BY BITS
32252 36 12 72 0 3 0 12/72-81= SECTION BIT PATTERNS COLLATE AND ADD
32253 70 322 68 0 0 0 322 > NOT TX AREA JUMP IF A == 0
32254 96 0 0 3 0 SELECT MODIFIER
32255 35 0 0 0 0 CLEAR B PREPARE FOR DIGIT COLLATION
32256 33 0 0 0 1- HALVE SHIFT (AB) BY BITS
32257 92 0 0 3 0 SET MODIFIER AT VARIABLE
32258 75 322 61 0 0 0 322 > WAS ODD JUMP IF AB != 0
32259 34 244 2 0 0 0 244 SET (N) IN B
32260 76 322 63 0 0 0 322 JUMP unconditional
32258>32261 34 244 2 0 0 0 244 SET (N) IN B
32262 33 0 0 0 10 SHIFT (AB) BY BITS
32260>32263 36 12 100 0 3 0 12/100-104='TX AREA USED' INDS COLLATE AND ADD
32264 71 322 68 0 0 0 322 > NOT PSEUDEO-TX AREA JUMP IF A != 0
32265 96 0 0 1 0 SELECT MODIFIER
32266 5 92 34 0 2 0 STORE SECTION NUMBER TRANSFER
32267 94 0 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32264>
32253>32268 94 322 40 0 1 1 322 > NEXT SECTION STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32300 PROCR 323 323 CALC CHAPS INITIALLY
32302 10 0 0 0 £££00 SELECT LITERAL
32303 3 23 47 0 0 0 (TO PRINT HEADING) COPY
Source image: P1000227.JPG
32304 124 92 0 0 0 0 modify address of next
32305 4 92 9 0 0 0 'LAST PROCR' IN FINAL CHAP AUGMENT
32306 91 12 12 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
32313>32307 92 10 0 3 0 SELECT
32308 30 0 0 0 9 SHIFT (A) BY QUARTETS
32309 30 0 0 0 9- ISOLATE Q1-CORR CHAP SHIFT (A) BY QUARTETS
32310 2 92 29 0 0 0 (ZERO INITIALLY) SUBTRACT
32311 73 323 13 0 0 0 323 JUMP IF A < 0
32312 4 92 29 0 0 0 UPDATE AUGMENT
32311>32313 94 323 7 0 3 1 323 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32314 10 0 0 0 1 SELECT LITERAL
32315 4 92 29 0 0 0 FORM CHAPS INITIALLY AUGMENT
32316 92 9 0 0 0 SELECT
32317 5 92 8 0 0 0 STORE SC CTR TRANSFER
32318 92 29 0 0 0 SELECT
32319 5 92 9 0 0 0 SPEC CHAP - 'UNCORR CHAP 0' EQUIVALENT TRANSFER
32400 PROCR 324 324 READ/COPY TRIAL DATA MODS
32401 NOTES RADIX 1 SELECT
32402 80 289 2 0 0 0 289 ENTER SUBROUTINE
32403 80 289 2 0 0 0 289 > WRITE 2 BLANKS ENTER SUBROUTINE
32404 319 30 1 0 0 319 SELECT
32405 5 8 4 1 0 0 5 ALIGN MARKS TRANSFER
32406 10 0 0 0 6 SELECT LITERAL
32407 5 8 10 0 0 0 TRANSFER
32408 80 289 2 0 0 0 289 > WRITE ALIGN BLOCK FOR PASS 3 ENTER SUBROUTINE
32409 319 32 1 0 0 319 'INDEX' SELECT
32410 5 8 4 1 0 0 TRANSFER
32411 80 289 2 0 0 0 289 > WRITE ENTER SUBROUTINE
32412 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
32413 C 0 0 0 1010
32414 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
32415 C 0 0 0 48
32424>32416 93 0 0 1 0 SELECT
32417 5 8 4 2 2 0 TRANSFER
32418 94 324 24 0 2 2 324 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32419 319 10 1 0 0 319 BEW SELECT
32420 5 8 52 1 0 0 TRANSFER
32421 80 290 2 0 0 0 290 > WRITE ENTER SUBROUTINE
32422 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
32423 C 0 0 0 48
32418>32424 94 324 16 0 1 1 324 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32425 80 290 2 0 0 0 290 > LAST BLOCK ENTER SUBROUTINE
32426 80 289 2 0 0 0 289 ENTER SUBROUTINE
32427 80 289 2 0 0 0 289 > TWO BLANKS ENTER SUBROUTINE
32435>32428 0 9 4 1 0 0 SELECT
32429 2 319 50 1 0 0 319 'FINIS' SUBTRACT
32430 70 324 36 0 0 0 324 JUMP IF A == 0
32431 55 9 4 1 0 50 BULK COPY
32432 C 8 4 1 0 0
32433 80 289 2 0 0 0 289 > WRITE ENTER SUBROUTINE
32434 80 301 2 0 0 0 301 > READ ENTER SUBROUTINE
32435 76 324 28 0 0 0 324 JUMP unconditional
32430>32436 27 4 0 0 0 COMPILER ? SELECT
32437 70 324 41 0 0 0 324 > NORMAL JUMP IF A == 0
32438 46 A2 10 0 0 0 (TO START OF INTERCODE) RUN BACK
32439 C 0 0 0 2
32440 76 324 43 0 0 0 324 JUMP unconditional
32437>32441 45 A2 0 0 0 0 REWIND
32442 45 A6 0 0 0 1 REWIND
Source image: P1000228.JPG
32440>32443 0 12 12 1 0 0 COPY DATA FOR PASS 2 PREP STAGE SELECT
32444 5 94 0 1 0 0 TRANSFER
32445 0 92 30 0 0 0 IND OF AMEND RUN SELECT
32446 70 152 2 0 0 0 152 >NO, CALL PASS 2 JUMP IF A == 0
32447 27 4 0 0 0 SELECT
32448 70 324 52 0 0 0 324 >NORMAL JUMP IF A == 0
32449 27 2 0 0 0 SELECT
32450 70 324 74 0 0 0 324 JUMP IF A == 0
32451 76 324 58 0 0 0 324 JUMP unconditional
32448>32452 86 786 2 0 0 0 786 SELECT SWITCH R
32453 70 324 74 0 0 0 324 >NO TRIAL DATA JUMP IF A == 0
32454 5 289 2 0 0 0 289 WL TRANSFER
32455 47 A1 10 0 0 0 RUN TO START OF THIS PROGS MACHINE CODE RUN ON
32456 C 289 2 0 0 0 289
32470>32457 80 291 2 0 0 0 291 >READ A1 ENTER SUBROUTINE
32451>32458 7 4 1 0 0 TESTS FOR CLOSING A1SELECT
32459 2 320 48 1 0 0 320 'PREND' SUBTRACT
32460 70 324 74 0 0 0 324 >YES JUMP IF A == 0
32461 1 320 48 1 0 0 320 ADD
32462 2 319 18 1 0 0 319 'FILES' SUBTRACT
32463 70 324 71 0 0 0 324 JUMP IF A == 0
32464 1 319 18 1 0 0 319 ADD
32465 2 320 46 1 0 0 320 'CHAPT' SUBTRACT
32466 70 324 71 0 0 0 324 >YES JUMP IF A == 0
32467 1 320 46 1 0 0 320 ADD
32468 2 319 50 1 0 0 319 'FINIS' SUBTRACT
32469 70 324 74 0 0 0 324 >YES JUMP IF A == 0
32470 76 324 57 0 0 0 324 >READ/IGNORE JUMP unconditional
32466>
32463>32471 10 0 0 0 1 SELECT LITERAL
32472 5 27 3 0 0 0 TRANSFER
32473 76 152 2 0 0 0 152 >CALL PASS 2,LEAVE A1 OPEN JUMP unconditional
32469>
32460>
32453>
32450>32474 5 27 3 0 0 0 TRANSFER
32475 27 4 0 0 0 COMPILER CALLED TRANSLATOR? SELECT
32476 70 324 79 0 0 0 324 >NO JUMP IF A == 0
32477 45 A1 0 0 0 1 REWIND
32478 76 152 2 0 0 0 152 >CALL PASS 2 JUMP unconditional
32476>32479 41 A1 0 0 0 1 CLOSE FILE
32480 76 152 2 0 0 0 152 >CALL PASS 2 JUMP unconditional
32500 PROCR 325 325
32502 81 325 2 0 0 0 325 START OF SUBROUTINE
32503 325 2 0 0 0 325 SELECT
32504 5 288 2 0 0 0 288 TRANSFER
32505 76 288 24 0 0 0 288 JUMP unconditional
32600 PROCR 326 326 UNPACK SECTION 9 SUBROUTINE
32601 NOTES RADIX SELECT
32602 81 326 2 0 0 0 326 START OF SUBROUTINE
32603 124 999 0 1 2 0 (FORMED) modify address of next
32604 128 4 0 3 0 unpack variable field data
32605 82 326 2 0 0 0 326 END OF SUBROUTINE / LEAVE SUBROUTINE
32606 9 0 0 0 0 DUMMY FOR PARAMETER SELECT
32607 128 4 0 2 0 unpack fixed field data
32700 PROCR 327 327 START OF PASS 2
32701 NOTES RADIX DEAL WITH SECTIONS USED ONLY FOR GP OUTPUT SELECT
36935>
Source image: P1000229.JPG
36937>32702 152 152 4 0 0 0 152 CALL/ENTER PASS 3 OVERLAY
32703 C 553 4 0 0 0 553
32704 999 16 1 0 0 COPY SEC 7 PARAS-PTS WL'S SELECT
32705 5 999 30 1 0 0 TRANSFER
32706 54 5 0 0 0 50 BULK CLEAR
32707 52 5 2 0 0 0 EDIT
32708 C 342 36 0 0 0 342 EDIT 'INDEX' LINE
32800 PROCR 328 328 CALC LENGTHS OF SWITCH PROCR IN EACH CORRECTED CHAPTER
32801 NOTES RADIX AND MOVE THE SC BACK LIST SELECT
32802 54 72 3 0 0 14 BULK CLEAR
32803 90 0 0 19 0 SET MODIFICATION REGISTER AT LITERAL
32804 C 0 0 0 10
32805 90 0 0 20 0 SET MODIFICATION REGISTER AT LITERAL
32806 C 0 0 0 10
32807 10 0 0 0 1 SELECT LITERAL
32808 5 61 4 0 0 0 CTR INCREMENT TRANSFER
32809 95 1 0 0 0 NO OF SWITCHES SELECT
32810 70 328 16 0 0 0 328 >NONE JUMP IF A == 0
32811 5 61 1 0 0 0 TRANSFER
32812 10 0 0 0 Ю SELECT LITERAL
32813 5 61 3 0 0 0 BIT SHIFT CONTROL TRANSFER
32814 124 95 0 0 2 0 select literal and division
32815 80 329 2 0 0 0 329 >PROCESS ENTER SUBROUTINE
32810>32816 10 0 0 0 8 SELECT LITERAL
32817 5 61 3 0 0 0 BIT SHIFT CONTROL TRANSFER
32818 98 1 0 0 0 NO OF ITEM+ SELECT
32819 70 328 23 0 0 0 328 >NONE JUMP IF A == 0
32820 5 61 1 0 0 0 TRANSFER
32821 124 98 0 0 2 0 select literal and division
32822 80 329 2 0 0 0 329 >PROCESS ENTER SUBROUTINE
32819>32823 91 94 0 0 3 0 UNCORR CHAP CTR SET MODIFICATION REGISTER AT VARIABLE
32828>32824 10 0 0 0 1 SELECT LITERAL
32825 32 0 0 0 10- SHIFT (AB) BY QUARTETS
32826 36 72 3 0 3 0 COLLATE AND ADD
32827 4 72 3 0 3 0 ROUND UP CTRS AUGMENT
32828 94 328 24 0 3 1 328 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32829 71 1 0 0 0 CTR OF INDIRECT MR'S SELECT
32830 70 328 36 0 0 0 328 >NONE JUMP IF A == 0
32831 5 61 1 0 0 0 TRANSFER
32832 10 0 0 0 2 SELECT LITERAL
32833 5 61 4 0 0 0 CTR INCREMENT TRANSFER
32834 124 71 0 0 2 0 select literal and division
32835 80 329 2 0 0 0 329 >PROCESS ENTER SUBROUTINE
32830>32836 10 0 0 0 2 SEQ CHANGE LIST SELECT LITERAL
32837 4 92 8 0 0 0 AUGMENT
32838 1 545 74 0 0 0 545 ABS ADDRESS 18:2496 ADD
32839 2 92 8 0 0 0 SUBTRACT
32840 3 344 2 0 0 0 344 QTY TO COPY COPY
32841 70 328 46 0 0 0 328 >NONE JUMP IF A == 0
32842 30 0 0 0 5 SHIFT (A) BY QUARTETS
32843 1 92 8 0 0 0 START ADD
32844 124 544 17 1 2 0 544 ABS ADDRESS 18/0 modify address of next
32845 128 0 1 1 0 bulk copy long numeric
32841>32846 544 17 0 0 0 544 SELECT
32847 1 344 2 0 0 0 344 QTTY ADD
32848 5 92 8 0 0 0 NEW LIST END TRANSFER
32849 27 4 0 0 0 COMPILER? SELECT
32850 70 330 2 0 0 0 330 >NO JUMP IF A == 0
Source image: P1000230.JPG
32851 76 330 3 0 0 0 330 JUMP unconditional
32900 PROCR 329 329 PROCESS SW/ITEM+/INDIRECT MR LISTS
32901 NOTES 329 SELECT
32902 81 329 2 0 0 0 329 START OF SUBROUTINE
32903 3 61 0 0 0 0 COPY
32904 4 61 1 0 0 0 AUGMENT
32905 91 61 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
32914>32906 2 0 1 0 SELECT
32907 30 0 0 0 4- SHIFT (A) BY QUARTETS
32908 5 61 2 0 0 0 UNCORR CHAP TRANSFER
32909 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
32910 124 61 2 0 1 0 modify address of next
32911 36 92 9 0 0 0 COLLATE AND ADD
32912 32 0 0 0 4 SHIFT (AB) BY QUARTETS
32913 37 2 0 1 0 REPLACE BY CORR CHAP REPLACE SELECTED BITS
32914 94 329 6 0 1 1 329 >NEXT DETAIL STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32915 10 0 0 0 0 SELECT LITERAL
32916 5 61 2 0 0 0 TRANSFER
32917 91 94 0 0 2 0 UNCORR CHAP CTR SET MODIFICATION REGISTER AT VARIABLE
32934>32918 10 0 0 0 1 SELECT LITERAL
32919 4 61 2 0 0 0 AUGMENT
32920 91 61 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
32933>32921 2 0 1 0 SELECT
32922 30 0 0 0 4- SHIFT (A) BY QUARTETS
32923 2 61 2 0 0 0 SUBTRACT
32924 71 329 33 0 0 0 329 >NOT IN THIS CORR CHAP JUMP IF A != 0
32925 124 61 2 0 1 0 modify address of next
32926 72 2 0 0 0 CTR WITHIN SWITCH PROCR SELECT
32927 124 61 3 0 1 0 modify address of next
32928 31 0 0 0 0 /////AS NEEDED SHIFT (A) BY BITS
32929 4 2 0 1 0 AUGMENT
32930 61 4 0 0 0 INCREMENT SELECT
32931 124 61 2 0 1 0 modify address of next
32932 4 72 2 0 0 0 STEP CTR AUGMENT
32924>32933 94 329 21 0 1 1 329 >NEXT DETAIL STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32934 94 329 18 0 2 1 329 >NEXT CORR CHAP STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32935 82 329 2 0 0 0 329 END OF SUBROUTINE / LEAVE SUBROUTINE
33000 PROCR 330 330 OPEN FILES CLEAR W/LS
33001 NOTES RADIX PREP STAGE SELECT
32850>33002 40 A2 0 0 0 1 *****DON'T MOVE***** OPEN FILE
32851>33003 0 27 9 0 0 0 SELECT
33004 71 330 13 0 0 0 330 >NOT PRINT JUMP IF A != 0
33005 27 8 0 0 0 PRINTER TYPE SELECT
33006 11 0 0 0 Ю ADD LITERAL
33007 30 0 0 0 5 SHIFT (A) BY QUARTETS
33008 1 999 7 0 0 0 ROUTE ADD
33009 125 4096 1 1 0 clear indicators
33010 124 999 0 0 3 0 modify address of next
33011 123 160 0 2 0 >OPEN PRINTER OR MT A9 enter master routine
33012 62 0 0 0 0 SET EXCESS CONSTANTS
33004>33013 54 61 0 0 0 120 BULK CLEAR
33014 54 94 0 0 0 100 BULK CLEAR
33015 54 66 0 0 0 34 66+49 BULK CLEAR
33016 10 0 0 0 1 SELECT LITERAL
33017 4 92 0 0 0 0 NO OF CHAPS AUGMENT
33018 101 998 1 3 0 select literal address
33019 1 92 0 0 0 0 (CHAPS CODED)+1 ADD
33020 3 61 5 0 0 0 LONG CONSTS PROCR COPY
Source image: P1000325.JPG
33021 11 0 0 0 1 ADD LITERAL
33022 3 61 6 0 0 0 SHORT CONSTS PROCR COPY
33023 11 0 0 0 1 ADD LITERAL
33024 5 61 7 0 0 0 TSL PROCR TRANSFER
33025 10 0 0 0 800000 SELECT LITERAL
33026 1 27 9 0 0 0 ADD
33027 91 0 0 3 0 SET FOR REENTRY SET MODIFICATION REGISTER AT VARIABLE
33100 PROCR 331 331 I/P 1ST BLOCK, UNPACK, PRINT
33101 NOTES RADIX B PREP STAGE SELECT
33108>33102 80 539 2 0 0 0 539 >READ ENTER SUBROUTINE
33103 8 6 1 0 0 SELECT
33104 2 343 4 1 0 0 343 'PROGM' SUBTRACT
33105 70 331 12 0 0 0 331 >OK JUMP IF A == 0
33106 8 4 1 0 0 SELECT
33107 12 0 0 0 5659650000 ' FIN' SUBTRACT LITERAL
33108 71 331 2 0 0 0 331 >KEEP READING JUMP IF A != 0
33109 150 0 0 0 4 OFFER OPTIONS
33110 C 331 11 0 0 0 331 >UNLOAD
33110>33111 151 0 0 0 0 UNLOAD PROGRAMME
33105>33112 50 8 4 0 0 0 UNPACK FIXED FIELD DATA
33113 C 341 2 0 0 0 341
33114 52 8 2 0 0 0 EDIT
33115 C 341 2 0 0 0 341
33116 66 4 1 0 0 SUITE NO SELECT
33117 30 0 0 0 2 SHIFT (A) BY QUARTETS
33118 1 66 6 2 0 0 JOB NO ADD
33119 5 61 112 0 0 0 PROG ID TRANSFER
33120 00 66 8 1 0 0 SELECT
33121 5 72 0 1 0 0 ALPHA SERIAL NUMBER TRANSFER
33122 27 9 0 0 0 SELECT
33123 70 331 48 0 0 0 331 >PRINTING JUMP IF A == 0
33124 27 4 0 0 0 SELECT
33125 71 331 46 0 0 0 331 >DON'T WRITE HDG EITHER JUMP IF A != 0
33126 86 787 2 0 0 0 787 SELECT SWITCH R
33127 71 331 34 0 0 0 331 >DON'T OPEN A9 JUMP IF A != 0
33128 10 0 0 0 1200000 SELECT LITERAL
33129 34 343 14 1 0 0 343 SET (N) IN B
33130 1 999 7 0 0 0 ADD
33131 125 4096 1 1 0 clear indicators
33132 124 999 0 0 3 0 modify address of next
33133 123 160 0 2 0 >OPEN A9 O/P MT enter master routine
33127>33134 62 0 0 0 0 SET EXCESS CONSTANTS
33135 10 0 0 0 6769596573 'PRINT' SELECT LITERAL
33136 5 10 4 1 0 0 TRANSFER
33137 10 0 0 0 8000 SELECT LITERAL
33138 5 10 6 2 0 0 TRANSFER
33139 155 0 0 0 0 SELECT PROGRAM SERIAL TO A
33140 5 10 8 1 0 0 TRANSFER
33141 61 112 0 0 0 OBJECT PROG ID SELECT
33142 5 10 10 2 0 0 TRANSFER
33143 544 2 1 0 0 544 SELECT
33144 5 10 12 1 0 0 TRANSFER
33145 80 541 2 0 0 0 541 >WRITE A9 HEADING BLOCK ENTER SUBROUTINE
33125>33146 90 0 0 6 0 PREPARE FOR 6 BLKS SET MODIFICATION REGISTER AT LITERAL
33147 C 0 0 0 300
33123>33148 80 340 2 0 0 0 340 >WRITE/PRINT 'PROGM' ENTER SUBROUTINE
33149 27 4 0 0 0 COMPILER? SELECT
33150 71 331 53 0 0 0 331 >YES JUMP IF A != 0
33151 40 A6 0 0 0 0 OPEN FILE
Source image: P1000326.JPG
33152 76 331 56 0 0 0 331 JUMP unconditional
33150>33153 48 A6 0 0 0 3 BACK 0 I/P>O/P STEP BACK
33154 C 999 0 0 0 0
33155 76 331 64 0 0 0 331 >DON'T WRITE 'INDEX' JUMP unconditional
33152>33156 52 9 4 0 0 0 EDIT FIRST HEADING EDIT
33157 C 341 12 0 0 0 341 BLOCK
33158 80 514 2 0 0 0 514 OP ENTER SUBROUTINE
33159 543 20 0 0 0 543 '£££££' SELECT
33160 5 9 4 2 0 0 TRANSFER
33161 544 2 1 0 0 544 BEW SELECT
33162 5 9 6 1 0 0 TRANSFER
33163 80 514 2 0 0 0 514 >DUMMY 'INDEX' DATA ENTER SUBROUTINE
33155>33164 52 9 4 0 0 0 PROG & SERIAL FOR PASS 3 EDIT
33165 C 341 20 0 0 0 341
33166 5 9 16 1 0 0 TRANSFER
33167 80 514 2 0 0 0 514 >SHORT RUBBISH BLOCK ENTER SUBROUTINE
33168 80 539 2 0 0 0 539 I/P ENTER SUBROUTINE
33169 50 8 4 0 0 0 UNPACK FIXED FIELD DATA
33170 C 341 2 0 0 0 341
33171 66 4 1 0 0 PROCR OF ENTRY SELECT
33172 80 537 2 0 0 0 537 >CONVERT ENTER SUBROUTINE
33173 5 72 2 0 0 0 TRANSFER
33174 52 8 2 0 0 0 EDIT
33175 C 341 2 0 0 0 341
33176 80 340 2 0 0 0 340 PRINT 'ENTRY' ENTER SUBROUTINE
33177 52 9 4 0 0 0 EDIT SECOND BLOCK EDIT
33178 C 341 28 0 0 0 341
33179 80 514 2 0 0 0 514 >O/P ENTER SUBROUTINE
33200 PROCR 332 332 DEAL WITH FILE IDS
33201 NOTES RADIX B SELECT
33202 17 92 7 0 0 10 SPACE OCCUPIED BY CONVERT TABLES MULTIPLY LITERAL and ADD
33203 101 204 1 1 0 FOR ALLOCATOR add literal address
33204 5 61 100 0 0 0 SP CHAP SPACE CTR TRANSFER
33205 0 91 1 0 0 0 2R SELECT
33206 31 0 0 0 1- SHIFT (A) BY BITS
33207 1 92 29 0 0 0 EXTRA CHAP NO ADD
33208 1 92 29 0 0 0 ADD
33209 3 61 40 0 0 0 LAST ROUTE PARAMETER COPY
33210 5 61 39 0 0 0 PARA CTR TRANSFER
33211 0 91 1 0 0 0 2R SELECT
33212 3 91 2 0 0 0 COPY
33213 5 91 3 0 0 0 TRANSFER
33214 91 91 0 0 2 0 SCAN FILE LIST SET MODIFICATION REGISTER AT VARIABLE
33445>33215 90 0 0 1 0 O/P M.R. SET MODIFICATION REGISTER AT LITERAL
33216 C 0 0 0 48
33406>
33441>33217 80 539 2 0 0 0 539 I/P ENTER SUBROUTINE
33218 8 6 1 0 0 SELECT
33219 2 343 8 1 0 0 343 'CHAPS' SUBTRACT
33220 70 335 2 0 0 0 335 >YES JUMP IF A == 0
33221 50 8 4 0 0 0 UNPACK FIXED FIELD DATA
33222 C 341 52 0 0 0 341 UNPACK FILE IDENTITIES
33223 8 46 1 0 0 SELECT
33224 2 542 28 1 0 0 542 '?????' SUBTRACT
33225 3 344 2 1 0 0 344 WL COPY
33226 70 334 2 0 0 0 334 >FILE IGNORED JUMP IF A == 0
33227 66 4 0 0 0 ROUTE TYPE SELECT
33228 12 0 0 0 19 SUBTRACT LITERAL
33229 70 332 54 0 0 0 332 >ROUTE TYPE 19 JUMP IF A == 0
Source image: P1000327.JPG
33230 66 6 0 0 0 CHAP NO SELECT
33231 80 537 2 0 0 0 537 CONVERT TO BIN ENTER SUBROUTINE
33232 2 92 0 0 0 0 CHAPS +1 SUBTRACT
33233 73 333 2 0 0 0 333 >OK JUMP IF A < 0
33234 542 28 1 0 0 542 ?????' SELECT
33235 5 8 46 1 0 0 TRANSFER
33236 5 344 2 1 0 0 344 TRANSFER
33237 91 3 0 0 0 2(R+T)=LIST LENGTH SELECT
33238 99 0 0 2 0 -R2 MODIFIER SUBTRACT MODIFICATION REGISTER FROM A
33239 30 0 0 0 5 FORM LENGTH OF REMAINDER OF LIST Q6-10 SHIFT (A) BY QUARTETS
33240 1 343 2 0 0 0 343 ADDRESS 91:6 ADD
33241 98 0 0 2 0 FORM ADDRESS OF FIRST TO OPY ADD MODIFICATION REGISTER TO A
33242 124 999 24 0 0 0 (R2) modify address of next
33243 128 91 4 0 0 0 COPY UP TO DELETE A FILE bulk copy short numeric
33244 12 0 0 0 2 SUBTRACT LITERAL
33245 4 91 1 0 0 0 REDUCE CTRS FOR DELETED FILE AUGMENT
33246 4 91 2 0 0 0 AUGMENT
33247 4 91 3 0 0 0 AUGMENT
33248 124 999 22 0 3 0 modify address of next
33249 107 5 0 0 0 REDUCE R2 END VALUE augment (N) by (A)
33250 11 0 0 0 1 ADD LITERAL
33251 4 61 39 0 0 0 (REDUCE BY 1) AUGMENT
33252 4 61 40 0 0 0 AUGMENT
33253 76 334 2 0 0 0 334 >FILE IGNORED JUMP unconditional
33229>33254 66 6 0 0 0 CHAPTER PAIR RT19 SELECT
33255 30 0 0 0 2 Q2->Q4 SHIFT (A) BY QUARTETS
33256 35 0 0 0 1000 PREPARE FOR DIGIT COLLATION
33257 124 91 3 0 1 0 modify address of next
33258 37 91 4 0 0 0 STORE TX AREA CHAP WITH GP DETAILS REPLACE SELECTED BITS
33259 66 10 0 0 0 SPECIAL LENGTH SELECT
33260 80 537 2 0 0 0 537 >BIN ENTER SUBROUTINE
33261 35 0 0 0 111 PREPARE FOR DIGIT COLLATION
33262 124 91 3 0 1 0 modify address of next
33263 37 91 4 0 0 0 STORE HALF-LENGTH AS GP LENGTH REPLACE SELECTED BITS
33264 66 8 0 0 0 GP HALF-LENGTH SELECT
33265 80 537 2 0 0 0 537 >BIN ENTER SUBROUTINE
33266 76 333 9 0 0 0 333 JUMP unconditional
33300 PROCR 333 333 FILE IDS
33301 NOTES RADIX B SELECT
33233>33302 66 4 0 0 0 ROUTE TYPE SELECT
33303 12 0 0 0 3 SUBTRACT LITERAL
33304 70 333 11 0 0 0 333 JUMP IF A == 0
33305 12 0 0 0 1 SUBTRACT LITERAL
33306 71 334 2 0 0 0 334 >NOT 4 JUMP IF A != 0
33307 0 66 8 0 0 0 ANNEX LENGTH SELECT
33308 80 537 2 0 0 0 537 >CONVERT ENTER SUBROUTINE
33266>33309 33 0 0 0 6- DIVIDE BY 64 SHIFT (AB) BY BITS
33310 5 61 8 0 0 0 MULTIPLES FOR Q10 FN WORD TRANSFER
33304>33311 61 39 0 0 0 PARA CTR SELECT
33312 11 0 0 0 1 ADD LITERAL
33313 124 91 3 0 1 0 modify address of next
33314 5 91 5 0 0 0 TX AREA ENTRY TRANSFER
33315 35 0 0 0 1000 PREPARE FOR DIGIT COLLATION
33316 66 8 0 0 0 HALF LENGTH SELECT
33317 80 537 2 0 0 0 537 >BIN ENTER SUBROUTINE
33318 35 0 0 0 111 PREPARE FOR DIGIT COLLATION
33319 11 0 0 0 2 ADD LITERAL
33320 37 91 4 1 2 0 REPLACE SELECTED BITS
33321 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION
Source image: P1000328.JPG
33322 91 3 0 0 0 2(R+T) SELECT
33323 2 91 2 0 0 0 SUBTRACT
33324 30 0 0 0 4 CTR WITHIN GPTXAREAS SHIFT (A) BY QUARTETS
33325 37 91 4 1 2 0 REPLACE SELECTED BITS
33326 10 0 0 0 0 SELECT LITERAL
33327 124 91 3 0 1 0 modify address of next
33328 2 91 4 0 0 0 SUBTRACT
33329 124 91 3 0 1 0 modify address of next
33330 5 91 4 0 0 0 SET GP TX AREA SIGN B/T TRANSFER
33331 10 0 0 0 2 SELECT LITERAL
33332 4 91 3 0 0 0 STEP(ROUTES +TX AREAS) CTR AUGMENT
33333 4 61 39 0 0 0 STEP PARA CTR AUGMENT
33400 PROCR 334 334 FILE IDS
33401 NOTES RADIX SELECT
33306>
33253>
33226>33402 52 8 2 0 0 0 EDIT
33403 C 341 52 0 0 0 341
33404 80 340 2 0 0 0 340 PRINT FILES ENTER SUBROUTINE
33405 0 344 2 1 0 0 344 SELECT
33406 70 332 17 0 0 0 332 >FILE IGNORED JUMP IF A == 0
33407 94 0 0 2 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
33408 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
33409 C 0 0 0 6
33413>33410 66 4 1 3 0 SELECT
33411 80 537 2 0 0 0 537 CONVERT ENTER SUBROUTINE
33412 5 66 4 1 3 0 TRANSFER
33413 94 334 10 0 3 2 334 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
33414 35 0 0 0 1000 PREPARE FOR DIGIT COLLATION
33415 66 6 1 0 0 SELECT
33416 30 0 0 0 3 SHIFT (A) BY QUARTETS
33417 37 91 2 1 2 0 CHAP NO (BIN) REPLACE SELECTED BITS
33418 66 4 0 0 0 SELECT
33419 12 0 0 0 13 SUBTRACT LITERAL
33420 71 334 28 0 0 0 334 >NOT RT 19 JUMP IF A != 0
33421 66 6 0 0 0 PAIR OF CHAPS SELECT
33422 80 538 2 0 0 0 538 >DEC ENTER SUBROUTINE
33423 62 0 0 0 0 SET EXCESS CONSTANTS
33424 35 0 0 0 1000 PREPARE FOR DIGIT COLLATION
33425 30 0 0 0 3 SHIFT (A) BY QUARTETS
33426 37 91 2 1 2 0 STORE Q1 OF DECIMAL PAIR REPLACE SELECTED BITS
33427 76 334 33 0 0 0 334 JUMP unconditional
33420>33428 66 8 1 0 0 ANNEX (BIN) IN WORDS SELECT
33429 11 0 0 0 2 ADD LITERAL
33430 4 91 2 1 2 0 HALF LENGTH AUGMENT
33431 3 66 8 1 0 0 SET ANNEX LENGTH COPY
33432 4 66 8 1 0 0 AUGMENT
33427>33433 0 66 4 1 0 0 ROUTE TYPE SELECT
33434 30 0 0 0 1 SHIFT (A) BY QUARTETS
33435 5 66 4 1 0 0 TRANSFER
33436 0 66 2 1 0 0 SELECT
33437 30 0 0 0 6- RT. ALIGN THE FILE I.D. SHIFT (A) BY QUARTETS
33438 5 66 2 1 0 0 TRANSFER
33439 52 9 4 0 1 0 EDIT
33440 C 341 64 0 0 0 341
33441 94 332 17 0 1 12 332 O/P CTR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
33442 544 2 1 0 0 544 B.E.WORD SELECT
33443 5 9 52 1 0 0 TRANSFER
33444 80 514 2 0 0 0 514 ENTER SUBROUTINE
Source image: P1000329.JPG
33445 76 332 15 0 0 0 332 JUMP unconditional
33500 PROCR 335 335 O/P REMAINING FILE IDS, CHAP START POINTS
33501 NOTES RADIX B PREP SELECT
33220>33502 96 0 0 1 0 SELECT MODIFIER
33503 70 335 7 0 0 0 335 JUMP IF A == 0
33504 544 2 1 0 0 544 BE WORD SELECT
33505 5 9 4 1 1 0 TRANSFER
33506 80 514 2 0 0 0 514 O/P ENTER SUBROUTINE
33503>33507 50 8 4 0 0 0 UNPACK FIXED FIELD DATA
33508 C 342 2 0 0 0 342 UNPACK 'CHAPS'
33509 54 70 0 1 0 100 CLEAR FOR SECTION DETAILS BULK CLEAR
33510 80 512 2 0 0 0 512 >BLANK LINE ENTER SUBROUTINE
33511 52 8 2 0 0 0 EDIT
33512 C 342 2 0 0 0 342
33513 80 340 2 0 0 0 340 PRINT 'CHAPS' ENTER SUBROUTINE
33514 80 539 2 0 0 0 539 >READ MT ENTER SUBROUTINE
33515 8 6 1 0 0 SELECT
33516 12 0 0 0 7273666955 'STORE' SUBTRACT LITERAL
33517 71 337 2 0 0 0 337 >NO JUMP IF A != 0
33518 50 8 8 0 0 0 UNPACK FIXED FIELD DATA
33519 C 342 8 0 0 0 342 66/6 ET SEQ
33520 10 0 0 0 7273666955 'STORE' SELECT LITERAL
33521 5 66 2 1 0 0 TRANSFER
33522 5 66 4 1 0 0 TRANSFER
33523 52 8 4 0 0 0 EDIT
33524 C 342 4 0 0 0 342
33525 5 8 8 1 0 0 CLEAR TRANSFER
33600 PROCR 336 336 DEAL WITH 'STORE' DATA
33602 91 92 28 0 1 0 CHAPS INITIALLY SET MODIFICATION REGISTER AT VARIABLE
33603 92 0 0 1 0 (CLEAR MODIFIER) SET MODIFIER AT VARIABLE
33613>33604 66 6 0 1 0 SELECT
33605 12 0 0 0 1 SUBTRACT LITERAL
33606 70 336 13 0 0 0 336 >OP,FIRST STORE JUMP IF A == 0
33607 12 0 0 0 1 SUBTRACT LITERAL
33608 71 336 16 0 0 0 336 >REJECT JUMP IF A != 0
33609 10 0 0 0 20 BIT 6 SELECT LITERAL
33610 32 0 0 0 10- SHIFT (AB) BY QUARTETS
33611 10 0 0 0 20 SELECT LITERAL
33612 37 92 10 0 1 0 SET IND FOR SECOND STORE REPLACE SELECTED BITS
33606>33613 94 336 4 0 1 1 336 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
33614 66 7 0 1 0 SELECT
33615 70 336 18 0 0 0 336 >OK JUMP IF A == 0
33608>33616 542 28 1 0 0 542 '?????' SELECT
33617 5 8 46 1 0 0 TRANSFER
33615>33618 80 340 2 0 0 0 340 >PRINT STORE ENTER SUBROUTINE
33619 80 539 2 0 0 0 539 >READ ENTER SUBROUTINE
33700 PROCR 337 337 PRINT CHAPS I/P & TEST S/D
33701 NOTES RADIX B PREP STAGE SELECT
33517>33702 80 530 2 0 0 0 530 >PRINT'INDEX'EX SEC 5 ENTER SUBROUTINE
33703 80 530 2 0 0 0 530 >PRINT BLANK LINE ENTER SUBROUTINE
33704 76 337 7 0 0 0 337 JUMP unconditional
33812>33705 80 340 2 0 0 0 340 PRINT IGNORED SECTION ENTER SUBROUTINE
33927>33706 80 539 2 0 0 0 539 >READ ENTER SUBROUTINE
33704>33707 8 12 1 0 0 SELECT
33708 2 542 8 1 0 0 542 PROCR SUBTRACT
33709 70 346 2 0 0 0 346 JUMP IF A == 0
33710 1 542 8 1 0 0 542 ADD
Source image: P1000330.JPG
33711 2 542 4 1 0 0 542 TABLE SUBTRACT
33712 70 346 2 0 0 0 346 JUMP IF A == 0
33713 1 542 4 1 0 0 542 ADD
33714 2 542 6 1 0 0 542 CONST SUBTRACT
33715 70 346 2 0 0 0 346 JUMP IF A == 0
33800 PROCR 338 338 SECTION DETAILS
33801 NOTES RADIX B PREP STAGE SELECT
33802 8 14 1 0 0 AMEND IND SELECT
33803 30 0 0 0 4 SHIFT (A) BY QUARTETS
33804 5 8 2 1 0 0 TRANSFER
33805 5 8 14 1 0 0 TRANSFER
33806 50 8 2 0 0 0 UNPACK FIXED FIELD DATA
33807 C 341 40 0 0 0 341
33808 52 8 2 0 0 0 EDIT
33809 C 341 40 0 0 0 341
33810 8 46 1 0 0 SELECT
33811 2 542 28 1 0 0 542 ????? SUBTRACT
33812 70 337 5 0 0 0 337 >IGNORE THIS SECTION JUMP IF A == 0
33813 80 340 2 0 0 0 340 PRINT SECTIONS ENTER SUBROUTINE
33814 66 4 1 0 0 SELECT
33815 80 537 2 0 0 0 537 CONVERT ENTER SUBROUTINE
33816 5 66 4 1 0 0 TRANSFER
33817 66 8 1 0 0 SELECT
33818 80 537 2 0 0 0 537 >CONVERT ENTER SUBROUTINE
33819 5 66 8 1 0 0 CHAP OF SECTION TRANSFER
33820 66 2 1 0 0 SELECT
33821 80 537 2 0 0 0 537 CONVERT ENTER SUBROUTINE
33822 3 66 2 1 0 0 SECT NO COPY
33823 92 0 0 1 0 SET MODIFIER AT VARIABLE
33824 66 6 1 0 0 T.A. IND SELECT
33825 70 339 16 0 0 0 339 -NOT T.A. JUMP IF A == 0
33826 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
33827 C 0 0 0 4
33831>33828 92 34 0 2 0 CODER'S TRANSIT AREAS ONLY FOR GP O/P SELECT
33829 2 66 2 1 0 0 SECTION NUMBER SUBTRACT
33830 70 339 16 0 0 0 339 >DON'T COUNT SECTION AS TRANSIT AREA JUMP IF A == 0
33831 94 338 28 0 2 1 338 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
33832 10 0 0 0 2 SELECT LITERAL
33833 4 91 3 0 0 0 TX AREA CTR AUGMENT
33834 4 66 4 1 0 0 INCREASE ANNEX LENGTH AUGMENT
33835 4 61 39 0 0 0 PARA COUNTER AUGMENT
33900 PROCR 339 339 SECT DETAILS
33901 NOTES RADIX B PREP STAGE SELECT
33902 0 66 4 1 0 0 LENGTH IN WORDS SELECT
33903 31 0 0 0 5 IN LOCNS IN Q2 SHIFT (A) BY BITS
33904 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
33905 124 66 8 0 0 0 UNCORRECTED CHAPTER modify address of next
33906 36 92 9 0 0 0 CORRECTED CHAP OF TRANSIT AREA COLLATE AND ADD
33907 30 0 0 0 2 LENGTH Q7-10,CHAP Q6 SHIFT (A) BY QUARTETS
33908 1 61 39 0 0 0 PARA CTR ADD
33909 12 0 0 0 1 SUBTRACT LITERAL
33910 30 0 0 0 3 PARAMETER IN Q4-5 SHIFT (A) BY QUARTETS
33911 1 66 2 1 0 0 SECTION NUMBER Q1-3 ADD
33912 124 91 3 0 1 0 2(ROUTES+TX AREAS) modify address of next
33913 5 91 2 1 0 0 TRANSFER
33914 545 58 0 0 0 545 BIT 19 AND 20 BIT 20 FOR T.A. INSELECT
33915 76 339 17 0 0 0 339 JUMP unconditional
33830>
Source image: P1000331.JPG
33825>33916 545 9 0 0 0 545 BIT 19 SELECT
33915>33917 17 66 4 1 0 32 LENGTH X 2 AND SHIFT Q MULTIPLY LITERAL and ADD
33918 1 66 8 1 0 0 UNCORR CHAP NO ADD
33919 5 70 0 0 1 0 SECT DETS TRANSFER
33920 92 66 8 0 2 0 UNCORR CHAP SET MODIFIER AT VARIABLE
33921 0 61 54 0 2 0 SPACE CTR SELECT
33922 124 66 2 0 0 0 SEC NO modify address of next
33923 5 94 0 0 0 0 SET REL START TRANSFER
33924 0 66 4 0 0 0 SELECT
33925 1 66 4 0 0 0 LENGTH (LOCNS) ADD
33926 4 61 54 0 2 0 AUGMENT
33927 76 337 6 0 0 0 337 >NEXT SECTION JUMP unconditional
34000 PROCR 340 340
34002 81 340 2 0 0 0 340 START OF SUBROUTINE
34003 55 8 0 1 0 52 BULK COPY
34004 C 7 0 1 0 0
34005 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
34006 37 7 2 0 0 0 REPLACE SELECTED BITS
34007 80 511 2 0 0 0 511 PRINT ENTER SUBROUTINE
34008 82 340 2 0 0 0 340 END OF SUBROUTINE / LEAVE SUBROUTINE
34100 TABLE 341 341 1
34101 NOTES
34102 66 0 0 0 2 0 5 0 0 0 0 0 0 AMEND IND
34104 66 2 0 0 2 0 5 0 11 0 0 0 0 PROGM/ENTRY
34106 66 4 0 0 1 0 5 5 1 2 0 0 0 SUITE/PROCR
34108 66 6 0 0 2 0 5 0 2 0 0 0 0 JOB/PRIORITY
34110 66 8 0 0 2 0 5 0 1 0 0 0 1 SERIAL/CODER
34112 343 12 0 0 2 0 5 0 0 0 0 0 0 ALIGN MARKS
34114 343 10 0 0 2 0 5 0 0 0 0 0 0 'INDEX'
34116 543 20 0 0 0 0 5 0 0 0 0 0 0
34118 343 15 0 0 0 0 1 3 4 0 0 0 0 '4'
34120 66 4 0 0 1 0 3 7 0 0 0 0 0 PROG SUITE
34122 66 6 0 0 2 0 2 3 0 0 0 0 0 PROG ID
34124 66 8 0 0 2 0 5 0 0 0 0 0 0 PROG SERIAL
34126 544 2 0 0 2 0 5 0 0 0 0 0 1 BEW
34128 92 5 0 0 0 0 5 0 0 4 0 0 0 FP IND
34130 92 4 0 0 0 0 5 0 0 4 0 0 0 MG
34132 66 6 0 0 2 0 5 0 0 0 0 0 0 PRIORITY
34134 92 0 0 0 0 0 5 0 0 4 0 0 0 CHAPS+1
34136 92 29 0 0 0 0 5 0 0 4 0 0 0 CHAPS INITIALLY
34138 544 2 0 0 2 0 5 0 0 0 0 0 1 BEW
34140 66 10 0 0 2 0 5 0 0 0 0 0 0 AMEND IND
34142 66 0 0 0 2 0 5 0 5 0 0 0 0 SERIAL/CODER
34144 66 2 0 0 1 0 5 5 4 4 0 0 0 SEC NO
34146 66 4 0 0 1 0 5 5 3 4 0 0 0 LENGTH
34148 66 6 0 0 1 0 5 5 0 4 0 0 0 TX AREA IND
34150 66 8 0 0 1 0 5 5 3 4 0 0 1 CHAP
34152 66 0 0 0 2 0 5 0 0 0 0 0 0 AMEND IND == FILES
34154 66 2 0 0 2 0 5 0 15 0 0 0 0 FILE ID
34156 66 4 0 0 1 0 5 5 1 4 0 0 0 ROUTE TYPE
34158 66 6 0 0 1 0 5 5 2 4 0 0 0 RETN PERIOD
34160 66 8 0 0 1 0 5 5 2 4 0 0 0 MBS
34162 66 10 0 0 1 0 5 5 0 4 0 0 1 ALT ROUTE
34164 66 2 0 0 2 0 5 0 0 0 0 0 0 FILE ID == FILES
34166 66 4 0 0 1 0 5 5 0 4 0 0 0 ROUTE TYPE
34168 66 6 0 0 1 0 5 5 0 4 0 0 0 RETN PERIOD
34170 66 8 0 0 1 0 5 5 0 4 0 0 0 MBS
34172 61 0 0 0 0 0 5 0 0 4 0 0 0 START LOCN
Source image: P1000332.JPG
34174 66 10 0 0 1 0 5 5 0 4 0 0 1 ALT ROUTE
34200 TABLE 342 342 1
34202 66 0 0 0 2 0 5 0 0 0 0 0 0 AMEND IND
34204 66 2 0 0 2 0 5 0 1 0 0 0 0 'CHAPS'
34206 66 4 0 0 0 0 5 0 0 4 0 0 0 NUMBER OF CHAPS
34208 66 6 0 0 0 0 5 0 1 4 0 0 0 1
34210 66 7 0 0 0 0 5 0 1 5 0 0 0 2
34212 66 8 0 0 0 0 5 0 1 5 0 0 0 3
34214 66 9 0 0 0 0 5 0 1 5 0 0 0 4
34216 66 10 0 0 0 0 5 0 1 5 0 0 0 5
34218 66 11 0 0 0 0 5 0 1 5 0 0 0 6
34220 66 12 0 0 0 0 5 0 1 5 0 0 0 7
34222 66 13 0 0 0 0 5 0 1 5 0 0 0 8
34224 66 14 0 0 0 0 5 0 1 5 0 0 0 9
34226 66 15 0 0 0 0 5 0 1 5 0 0 0 10
34228 66 16 0 0 0 0 5 0 1 5 0 0 0 11
34230 66 17 0 0 0 0 5 0 1 5 0 0 0 12
34232 66 18 0 0 0 0 5 0 1 5 0 0 0 13
34234 66 19 0 0 0 0 5 0 1 5 0 0 1 14-TH START
34236 343 10 0 0 2 0 5 0 6 0 0 0 0 'INDEX'
34238 92 29 0 0 0 0 1 4 4 0 0 0 0 CHAPS INITIALLY
34240 92 10 0 0 0 0 1 4 5 1 0 0 0 CORRECTED CHAPTER NUMBERS
34242 92 11 0 0 0 0 1 4 5 1 0 0 0
34244 92 12 0 0 0 0 1 4 5 1 0 0 0
34246 92 13 0 0 0 0 1 4 5 1 0 0 0
34248 92 14 0 0 0 0 1 4 5 1 0 0 0
34250 92 15 0 0 0 0 1 4 5 1 0 0 0
34252 92 16 0 0 0 0 1 4 5 1 0 0 0
34254 92 17 0 0 0 0 1 4 5 1 0 0 0
34256 92 18 0 0 0 0 1 4 5 1 0 0 0
34258 92 19 0 0 0 0 1 4 5 1 0 0 0
34260 92 20 0 0 0 0 1 4 5 1 0 0 0
34262 92 21 0 0 0 0 1 4 5 1 0 0 0
34264 92 22 0 0 0 0 1 4 5 1 0 0 0
34266 92 23 0 0 0 0 1 4 5 1 0 0 1 LAST ENTRY
34300 CONST 343 343 1 FOR PASS 2 PREP STAGE
34302 (R)91:6;
34304 (A)PROGM;
34306 ENTRY;
34308 CHAPS;
34310 INDEX;
34312 (D)6£6£6£6£6£;
34314 0514908000; 08000 FILE A9
34316 (A);
34400 PROCR 344 344 DUMMIES FOR SEC 61 DESCRIPTION
34401 NOTES 344 SELECT
34402 61 0 0 0 0 ACTION WL/ENTRY POINT SELECT
34403 61 1 0 0 0 NON-ARITH IND SELECT
34500 PROCR 345 345
34502 81 345 2 0 0 0 345 START OF SUBROUTINE
34503 0 345 2 0 0 0 345 SELECT
34504 5 509 2 0 0 0 509 TRANSFER
34505 76 509 8 0 0 0 509 JUMP unconditional
34600 PROCR 346 346 FORM PARA CTR ETC
34601 NOTES RADIX B PREP STAGE SELECT
33715>
33712>
Source image: P1000333.JPG
33709>34602 80 345 2 0 0 0 345 ENTER SUBROUTINE
34603 80 363 2 0 0 0 363 >EDIT FIRST DIRECTIVE ENTER SUBROUTINE
34604 10 0 0 0 0 SELECT LITERAL
34605 5 545 99 0 0 0 545 TRANSFER
34606 61 39 0 0 0 SELECT
34607 11 0 0 0 1 FORM ADD LITERAL
34608 3 61 41 0 0 0 MOD GROUP PARAMETER COPY
34609 11 0 0 0 4 ADD LITERAL
34610 5 61 39 0 0 0 TOTAL NO OF PARAMETORS TRANSFER
34611 0 92 8 0 0 0 LIST END SELECT
34612 30 0 0 0 5 SHIFT (A) BY QUARTETS
34613 1 544 17 0 0 0 544 ABS ADDRESS 18:0 ADD
34614 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
34615 544 16 0 0 0 544 ABS ADDRESS 18:2499 SELECT
34616 5 61 118 0 0 0 LOCN CTR SC'S FWD TRANSFER
34617 544 4 1 0 0 544 0:144 SELECT
34618 5 61 44 1 0 0 O/P MOD CTR TRANSFER
34619 10 0 0 0 1 SELECT LITERAL
34620 5 61 111 0 0 0 UNCORRECTED CHAP NO. TRANSFER
34621 5 91 0 0 0 0 TRANSFER
34622 54 63 0 1 0 580 63+62+20 BULK CLEAR
36819>34623 10 0 0 0 41 SELECT LITERAL
34624 5 61 26 1 0 0 TYPE TRANSFER
34625 5 61 28 1 0 0 SECTION NO. TRANSFER
34626 80 516 2 0 0 0 516 O/P TYPE S/R THIS CLEARS S67 INITENTER SUBROUTINE
34627 10 0 0 0 1 SELECT LITERAL
34628 5 61 42 1 0 0 TRANSFER
34629 5 61 109 0 0 0 CLEAR STERLING CTR TRANSFER
34630 5 67 0 0 0 0 67/0 NOT CLEARED BY O/P TYPE S/R TRANSFER
34700 PROCR 347 347 O/P PARAS
34701 NOTES RADIX B CHAP START ROUTINE SELECT
34702 61 39 0 0 0 PARA CTR SELECT
34703 30 0 0 0 5 SHIFT (A) BY QUARTETS
34704 5 61 0 1 0 0 TRANSFER
34705 91 61 0 1 3 0 M/R 3 AT W/L SET MODIFICATION REGISTER AT VARIABLE
34709>34706 95 0 0 3 0 SELECT MODIFICATION REGISTER
34707 5 67 2 0 0 0 TRANSFER
34708 80 518 2 0 0 0 518 ENTER SUBROUTINE
34709 94 347 6 0 3 1 347 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
34710 10 0 0 0 3 SELECT LITERAL
34711 4 61 5 0 0 0 LONG PROCR AUGMENT
34712 4 61 6 0 0 0 SHORT PROCR AUGMENT
34713 4 61 7 0 0 0 TSL PROCR AUGMENT
34714 10 0 0 0 0 SELECT LITERAL
34715 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
34716 124 61 111 0 0 0 UNCORRECTED CHAP NO modify address of next
34717 36 92 9 0 0 0 CORRECTED CHAP NUMBER COLLATE AND ADD
34718 3 61 51 0 0 0 COPY
34719 1 61 51 0 0 0 ADD
34720 5 61 3 0 0 0 TRANSFER
34721 61 5 0 0 0 SELECT
34722 30 0 0 0 2 SHIFT (A) BY QUARTETS
34723 1 61 3 0 0 0 ADD
34724 5 61 4 0 0 0 LN:2C TRANSFER
34725 10 0 0 0 .0000. 14:14 SELECT LITERAL
34726 5 61 12 1 0 0 LN CTR TRANSFER
34727 5 61 14 1 0 0 SN CTR TRANSFER
Source image: P1000334.JPG
34728 544 18 1 0 0 544 SE Ю½ ‼ Ю Ю ‼ ‼‼ SELECT
34729 5 61 16 1 0 0 TSL CTR TRANSFER
34730 5 61 10 1 0 0 TRANSFER
34731 80 518 2 0 0 0 518 O/P ZERO COMPARTMENTFOR LINK ENTER SUBROUTINE
34732 80 453 2 0 0 0 453 O/P 25/1/1 4096+24/0/3 0 ENTER SUBROUTINE
34733 10 0 0 0 700 7 IN Q3 SELECT LITERAL
34734 5 67 1 0 0 0 SET'MR ENTRY' IND TRANSFER
34735 0 545 60 0 0 0 545 23/0/2 0 SELECT
34736 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
34737 80 518 2 0 0 0 518 O/P TWO ZERO COMPARTMENTS ENTER SUBROUTINE
34738 80 518 2 0 0 0 518 ENTER SUBROUTINE
34739 546 15 0 0 0 546 26/0/1/6- SELECT
34740 80 498 2 0 0 0 498 >O/P INT SC ENTER SUBROUTINE
34800 PROCR 348 348 SECTION START ROUTINE
34801 NOTES RADIX B SELECT
36510>
36512>34802 62 0 0 0 0 SET EXCESS CONSTANTS
34803 6 1 12 0 SELECT
34804 2 542 8 1 0 0 542 PROCR SUBTRACT
34805 71 348 9 0 0 0 348 JUMP IF A != 0
34806 10 0 0 0 1 SELECT LITERAL
34807 5 61 42 0 0 0 TRANSFER
34808 76 350 4 0 0 0 350 JUMP unconditional
34805>34809 1 542 8 1 0 0 542 ADD
34810 2 542 2 1 0 0 542 'VALUE' SUBTRACT
34811 70 351 24 0 0 0 351 >YES JUMP IF A == 0
34812 80 353 2 0 0 0 353 ROUND UP SPACE CTR ENTER SUBROUTINE
34813 14 2 12 0 CONST OR TABLE TYPE SELECT
34814 30 0 0 0 4- SHIFT (A) BY QUARTETS
34815 5 61 47 0 0 0 TRANSFER
34816 10 0 0 0 2 SELECT LITERAL
34817 5 61 42 0 0 0 TRANSFER
34818 6 1 12 0 SELECT
34819 2 542 4 1 0 0 542 TABLE SUBTRACT
34820 70 350 3 0 0 0 350 JUMP IF A == 0
34900 PROCR 349 349 SECTION START ROUTINE
34901 NOTES RADIX B SELECT
35000 PROCR 350 350 SECTION START ROUTINE
35001 NOTES RADIX B SELECT
35002 10 0 0 0 1 'CONST' SELECT LITERAL
34820>35003 11 0 0 0 1 TABLE ADD LITERAL
34808>35004 11 0 0 0 1 PROCR ADD LITERAL
35005 3 61 26 2 0 0 COPY
35006 84 352 2 0 0 0 352 SET SWITCH(ES) AT VARIABLE VALUE
35007 7 12 2 0 0 NEW PROCR NO SELECT
35100 PROCR 351 351
35101 NOTES RADIX B SELECT
35102 80 537 2 0 0 0 537 >CONVERT ENTER SUBROUTINE
35103 3 61 28 2 0 0 COPY
35104 3 61 10 0 0 0 CURRENT PROCR COPY
35105 2 72 2 0 0 0 ENTRY PROCR SUBTRACT
35106 71 351 9 0 0 0 351 >NO JUMP IF A != 0
35107 61 43 0 0 0 SELECT
35108 5 27 5 0 0 0 ENTRY LOCN TRANSFER
35106>35109 0 61 43 0 0 0 SELECT
35110 5 61 11 0 0 0 STORE PROCR START ADDRESS TRANSFER
Source image: P1000335.JPG
35111 80 354 2 0 0 0 354 >SET'PRINT PROCEDURE'IND ENTER SUBROUTINE
35132>35112 80 516 2 0 0 0 516 O/P TYPE ENTER SUBROUTINE
35126>35113 10 0 0 0 80 TRACK 8 SELECT LITERAL
35114 5 61 46 0 0 0 HEAD OF FORM TRANSFER
35115 27 4 0 0 0 COMPILER? SELECT
35116 70 351 20 0 0 0 351 >NO JUMP IF A == 0
35117 5 545 99 0 0 0 545 (ALWAYS PRINT DIRECTIVE BLOX) TRANSFER
35118 23 46 0 0 0 SELECT
35119 70 351 21 0 0 0 351 >PARTIAL. NO BLANK LINE JUMP IF A == 0
35116>35120 80 530 2 0 0 0 530 >SECOND PRINT SR ENTER SUBROUTINE
35119>35121 80 510 2 0 0 0 510 >PRINT ENTER SUBROUTINE
35122 80 360 2 0 0 0 360 BULK CLEAR SEC 7 ENTER SUBROUTINE
35123 76 362 2 0 0 0 362 JUMP unconditional
36218>
34811>35124 86 352 2 0 0 0 352 'VALUE' DIRECTIVE SELECT SWITCH R
35125 12 0 0 0 7 SUBTRACT LITERAL
35126 70 351 13 0 0 0 351 >'VALUE' FOLLOWS 'VALUE' JUMP IF A == 0
35127 10 0 0 0 7 SELECT LITERAL
35128 3 61 26 2 0 0 COPY
35129 84 352 2 0 0 0 352 SET SWITCH(ES) AT VARIABLE VALUE
35130 5 61 28 1 0 0 CLEAR 'PROCR NUMBER' TRANSFER
35131 5 61 42 0 0 0 CLEAR SPACE CTR INCREMENT TRANSFER
35132 76 351 12 0 0 0 351 JUMP unconditional
35200 PROCR 352 352 SWITCH A
35201 NOTES RADIX B SELECT
36205>
36228>35202 85 352 2 0 0 0 352 SWITCH R
35203 C 370 2 0 0 0 370 INST
35204 C 475 2 0 0 0 475 TABLE
35205 C 454 2 0 0 0 454 CONST
35206 C 362 2 0 0 0 362 DUMMY
35207 C 362 2 0 0 0 362 ' '
35208 C 362 2 0 0 0 362 ' '
35209 C 480 2 0 0 0 480 VALUE
35300 PROCR 353 353 SUBROUTINE 1
35301 NOTES RADIX B ROUND OFF TO MULT OF 2 SELECT
35302 81 353 2 0 0 0 353 START OF SUBROUTINE
35303 10 0 0 0 0 SELECT LITERAL
35304 34 544 6 0 0 0 544 SET (N) IN B
35305 36 61 43 0 0 0 SPACE CTR COLLATE AND ADD
35306 70 353 11 0 0 0 353 JUMP IF A == 0
35307 5 61 42 0 0 0 TRANSFER
35308 5 67 0 1 0 0 TRANSFER
35309 5 67 2 1 0 0 TRANSFER
35310 80 518 2 0 0 0 518 >O/P ZERO LOCATION ENTER SUBROUTINE
35306>35311 82 353 2 0 0 0 353 END OF SUBROUTINE / LEAVE SUBROUTINE
35400 PROCR 354 354 EXTRACT 'PRINT' PROCEDURE'IND FROM ARRAY IN SEC 23
35402 81 354 2 0 0 0 354 START OF SUBROUTINE
35403 19 61 10 0 0 14 PROCR/20 DIVIDE LITERAL
35404 5 355 2 0 0 0 355 TRANSFER
35405 32 0 0 0 9 SHIFT (AB) BY QUARTETS
35406 5 356 2 0 0 0 356 REMAINDER TRANSFER
35407 34 543 22 0 0 0 543 L ‼ 35406 Ю 35411 Ю ‼ Ю SET (N) IN B
35408 124 356 2 0 1 0 356 modify address of next
35409 33 0 0 0 0 ///// SHIFT (AB) BY BITS
35410 124 355 2 0 1 0 355 modify address of next
35411 36 23 5- 0 0 0 COLLATE AND ADD
Source image: P1000336.JPG
35412 5 23 47 0 0 0 NON-ZERO TO PRINT WHOLE PROCR TRANSFER
35413 82 354 2 0 0 0 354 END OF SUBROUTINE / LEAVE SUBROUTINE
35500 PROCR 355 355 O/P WITH ZERO REF: PARA=2C
35501 NOTES 355 SELECT
35502 81 355 2 0 0 0 355 (A)=INSTRUCTION START OF SUBROUTINE
35503 5 67 3 0 0 0 TRANSFER
35504 61 3 0 0 0 2C SELECT
35505 5 67 2 0 0 0 TRANSFER
35506 80 518 2 0 0 0 518 ENTER SUBROUTINE
35507 82 355 2 0 0 0 355 END OF SUBROUTINE / LEAVE SUBROUTINE
35600 PROCR 356 356 O/P NON-ARITH INSTRUCTION
35601 NOTES 356 SELECT
35602 81 356 2 0 0 0 356 START OF SUBROUTINE
35603 5 61 0 0 0 0 TRANSFER
35604 10 0 0 0 1 SELECT LITERAL
35605 5 61 1 0 0 0 TRANSFER
35606 80 536 2 0 0 0 536 >COMPLEX O/P ENTER SUBROUTINE
35607 82 356 2 0 0 0 356 END OF SUBROUTINE / LEAVE SUBROUTINE
35700 PROCR 357 357 TEST SHORT/LONG NUMBER
35701 NOTES 357 SELECT
35702 81 357 2 0 0 0 357 START OF SUBROUTINE
35703 5 61 0 0 0 0 STORE ACTION TRANSFER
35704 61 53 0 0 0 SELECT
35705 70 357 8 0 0 0 357 >SHORT NO JUMP IF A == 0
35706 80 481 2 0 0 0 481 >LONG NO S/R ENTER SUBROUTINE
35707 82 357 2 0 0 0 357 END OF SUBROUTINE / LEAVE SUBROUTINE
35705>35708 80 483 2 0 0 0 483 >SHORT NO S/R ENTER SUBROUTINE
35709 82 357 2 0 0 0 357 END OF SUBROUTINE / LEAVE SUBROUTINE
35800 PROCR 358 358 O/P ARITH INSTRUCTION
35801 NOTES 358 SELECT
35802 81 358 2 0 0 0 358 START OF SUBROUTINE
35803 5 61 0 0 0 0 TRANSFER
35804 5 61 1 0 0 0 TRANSFER
35805 80 536 2 0 0 0 536 >COMPLEX O/P ENTER SUBROUTINE
35806 82 358 2 0 0 0 358 END OF SUBROUTINE / LEAVE SUBROUTINE
35900 PROCR 359 359 O/P WITH ZERO REF/PARA
35901 NOTES 359 SELECT
35902 81 359 2 0 0 0 359 START OF SUBROUTINE
35903 5 67 3 0 0 0 TRANSFER
35904 80 518 2 0 0 0 518 >O/P ENTER SUBROUTINE
35905 82 359 2 0 0 0 359 END OF SUBROUTINE / LEAVE SUBROUTINE
36000 PROCR 360 360
36002 81 360 2 0 0 0 360 START OF SUBROUTINE
36003 54 7 2 1 0 48 BULK CLEAR SECTION 7 BULK CLEAR
36004 82 360 2 0 0 0 360 END OF SUBROUTINE / LEAVE SUBROUTINE
36100 PROCR 361 361 LN:2C SUBROUTINE
36101 NOTES 361 SELECT
36102 81 361 2 0 0 0 361 (A)=INSTRUCTION START OF SUBROUTINE
36103 5 67 3 0 0 0 TRANSFER
36104 0 61 4 0 0 0 LN:2C FOR FIRST LN PROCR SELECT
36105 5 67 2 0 0 0 IN CHAP TRANSFER
36106 80 518 2 0 0 0 518 >O/P ENTER SUBROUTINE
36107 82 361 2 0 0 0 361 END OF SUBROUTINE / LEAVE SUBROUTINE
37623>
37927>
38609>
41326>
43228>
44526>
Source image: P1000337.JPG
44534>36108 80 361 2 0 0 0 361 (THEN GET NEXT BLOCK) ENTER SUBROUTINE
36200 PROCR 362 362 GET NEXT BLOCK
36201 NOTES RADIX B SELECT
36231>
37010>
37011>
37013>
37313>
37413>
37513>
37805>
37911>
37912>
37919>
38211>
38822>
39731>
39733>
40116>
40125>
40129>
40313>
40822>
40913>
41020>
41515>
42405>
43022>
43127>
43132>
43213>
43312>
43421>
43609>
43709>
44113>
44508>
44522>
44836>
44917>
45113>
45232>
46118>
48044>
52809>
35208>
35207>
35206>
35123>36202 80 509 2 0 0 0 509 >READ ENTER SUBROUTINE
39726>
39730>
42335>
42372>
42515>
43610>
45204>
45225>
Source image: P1000338.JPG
52209>36203 6 1 12 0 SELECT
36204 2 542 6 1 0 0 542 'CONST' SUBTRACT
36205 73 352 2 0 0 0 352 >NOT A DIRECTIVE JUMP IF A < 0
36206 80 363 2 0 0 0 363 EDIT DIRECTIVES ENTER SUBROUTINE
36207 6 1 12 0 SELECT
36208 2 542 6 1 0 0 542 'CONST' SUBTRACT
36209 70 365 2 0 0 0 365 JUMP IF A == 0
36210 1 542 6 1 0 0 542 ADD
36211 2 542 4 1 0 0 542 TABLE SUBTRACT
36212 70 365 2 0 0 0 365 JUMP IF A == 0
36213 1 542 4 1 0 0 542 ADD
36214 2 542 8 1 0 0 542 'PROCR' SUBTRACT
36215 70 365 2 0 0 0 365 JUMP IF A == 0
36216 1 542 8 1 0 0 542 ADD
36217 2 542 2 1 0 0 542 'VALUE' SUBTRACT
36218 70 351 24 0 0 0 351 >YES JUMP IF A == 0
36219 1 542 2 1 0 0 542 ADD
36220 2 542 12 1 0 0 542 END(SPACE) (SPACE) SUBTRACT
36221 71 362 26 0 0 0 362 JUMP IF A != 0
36222 10 0 0 0 1 SELECT LITERAL
36223 5 61 48 0 0 0 TRANSFER
36224 80 364 2 0 0 0 364 >TEST PREVIOUS DIRECTIVE WAS 'VALUE' ENTER SUBROUTINE
36225 76 365 14 0 0 0 365 JUMP unconditional
36221>36226 1 542 12 1 0 0 542 ADD
36227 2 542 10 1 0 0 542 'NOTES' SUBTRACT
36228 71 352 2 0 0 0 352 JUMP IF A != 0
36229 80 510 2 0 0 0 510 >PRINT 'NOTES' LINE ENTER SUBROUTINE
36230 80 360 2 0 0 0 360 BULK CLEAR SEC 7 ENTER SUBROUTINE
36231 76 362 2 0 0 0 362 JUMP unconditional
36300 PROCR 363 363 EDIT DIRECTIVES
36302 81 363 2 0 0 0 363 START OF SUBROUTINE
36303 80 360 2 0 0 0 360 BULK CLEAR SEC 7 ENTER SUBROUTINE
36304 77 2 1 0 0 AMEND IND SELECT
36305 5 7 2 1 0 0 TRANSFER
36306 77 4 1 0 0 LINE SERIAL SELECT
36307 5 7 6 1 0 0 TRANSFER
36308 77 6 1 0 0 'PROCR/TABLE/CONST/NOTES/VALUE/END' SELECT
36309 5 7 10 1 0 0 TRANSFER
36310 77 8 1 0 0 PROCR NO SELECT
36311 30 0 0 0 4- SHIFT (A) BY QUARTETS
36312 5 7 12 1 0 0 TRANSFER
36313 77 10 1 0 0 OLD PROCR NO SELECT
36314 5 7 16 1 0 0 TRANSFER
36315 77 6 1 0 0 SELECT
36316 2 542 10 1 0 0 542 'NOTES' SUBTRACT
36317 71 363 21 0 0 0 363 >NO JUMP IF A != 0
36318 77 12 1 0 0 'RADIX' SELECT
36319 5 7 16 1 0 0 TRANSFER
36320 76 363 23 0 0 0 363 JUMP unconditional
36317>36321 77 12 1 0 0 PASS 1 REPORTS SELECT
36322 5 7 48 1 0 0 TRANSFER
36320>36323 77 6 1 0 0 SELECT
36324 2 542 8 1 0 0 542 'PROCR' SUBTRACT
36325 70 363 29 0 0 0 363 >YES JUMP IF A == 0
36326 77 14 1 0 0 TABLE/CONST TYPE/RADIX LETTER SELECT
Source image: P1000339.JPG
36327 5 7 20 1 0 0 TRANSFER
36328 76 363 31 0 0 0 363 JUMP unconditional
36325>36329 77 14 1 0 0 FIRST 5 CHARS ANNOTATION SELECT
36330 5 7 20 1 0 0 TRANSFER
36328>36331 55 77 16 1 0 26 COPY ANNOTATION BULK COPY
36332 C 7 22 1 0 0
36333 82 363 2 0 0 0 363 END OF SUBROUTINE / LEAVE SUBROUTINE
36400 PROCR 364 364 DEAL WITH 'VALUE' DIRECTIVE
36401 NOTES 364 SELECT
36402 81 364 2 0 0 0 364 START OF SUBROUTINE
36403 86 352 2 0 0 0 352 SWITCH LAST TIME THRU SELECT SWITCH R
36404 12 0 0 0 7 SUBTRACT LITERAL
36405 71 364 15 0 0 0 364 >NOT 'VALUE' JUMP IF A != 0
36406 542 10 1 0 0 542 'NOTES' SELECT
36407 5 61 26 1 0 0 TRANSFER
36408 5 67 2 0 0 0 REF=0 ITEM=SPACE CTR TRANSFER
36409 61 43 0 0 0 SELECT
36410 5 67 3 0 0 0 TRANSFER
36411 80 517 2 0 0 0 517 >O/P TERMINAL 'REF' UNIT ENTER SUBROUTINE
36412 10 0 0 0 6 SELECT LITERAL
36413 5 61 26 2 0 0 TRANSFER
36414 80 516 2 0 0 0 516 >O/P'TYPE6' ENTER SUBROUTINE
36405>36415 82 364 2 0 0 0 364 END OF SUBROUTINE / LEAVE SUBROUTINE
36500 PROCR 365 365 TEST NEW CHAP
36501 NOTES RADIX B SELECT
36215>
36212>
36209>36502 80 364 2 0 0 0 364 >TEST LAST DIRECTIVE WAS 'VALUE' ENTER SUBROUTINE
36503 7 12 2 0 0 NEW PROCR SELECT
36504 5 61 35 0 0 0 TRANSFER
36505 124 61 111 0 0 0 THIS CHAP UNCORR modify address of next
36506 92 9 0 0 0 LAST PROCR THIS CHAP SELECT
36507 30 0 0 0 2- SHIFT (A) BY QUARTETS
36508 80 538 2 0 0 0 538 >CONVERT TO DEC ENTER SUBROUTINE
36509 2 61 35 0 0 0 SUBTRACT
36510 72 348 2 0 0 0 348 NOT NEW CHAP JUMP IF A >= 0
36511 11 0 0 0 1 TEST THIS PROCEDURE SAFETY ADD LITERAL
36512 71 348 2 0 0 0 348 ONE GREATER THAN PREDEVICE JUMP IF A != 0
36513 62 0 0 0 0 SET EXCESS CONSTANTS
36225>36514 80 353 2 0 0 0 353 >ROUND UP SPACE CTR ENTER SUBROUTINE
36515 80 366 2 0 0 0 366 >ROUND UP FORMED SECTIONS ENTER SUBROUTINE
36516 80 367 2 0 0 0 367 >O/P FORMED SECTIONS ENTER SUBROUTINE
36517 76 368 2 0 0 0 368 JUMP unconditional
36600 PROCR 366 366 ROUND UP SECTION CTRS
36601 NOTES RADIX B SUBROUTINE SELECT
36602 81 366 2 0 0 0 366 START OF SUBROUTINE
36603 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
36604 C 0 0 0 6
36611>36605 0 61 13 0 2 0 END VALUE SELECT
36606 31 0 0 0 2 SHIFT (A) BY BITS
36607 32 0 0 0 1- (DIVIDE BY 4) SHIFT (AB) BY QUARTETS
36608 38 0 0 0 4 ROUND UP TO MULTIPLE OF 4 ROUND OFF
36609 31 0 0 0 2 SHIFT (A) BY BITS
36610 5 61 13 0 2 0 TRANSFER
36611 94 366 5 0 2 2 366 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
36612 82 366 2 0 0 0 366 END OF SUBROUTINE / LEAVE SUBROUTINE
Source image: P1000340.JPG
36700 PROCR 367 367 O/P FORMED SECTIONS
36701 NOTES RADIX B SUBROUTINE SELECT
36702 81 367 2 0 0 0 367 START OF SUBROUTINE
36703 10 0 0 0 600000 SELECT LITERAL
36704 5 61 0 1 0 0 TRANSFER
36705 5 61 12 0 0 0 TRANSFER
36706 5 61 2 0 0 0 TRANSFER
36734>36707 91 61 2 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
36708 544 7 0 3 0 544 TYPE NO SELECT
36709 5 61 26 1 0 0 TRANSFER
36710 61 5 0 3 0 SELECT
36711 5 61 28 2 0 0 PROCR NUMBER TRANSFER
36712 80 516 2 0 0 0 516 O/P TYPE ENTER SUBROUTINE
36713 544 10 0 3 0 544 SELECT
36714 5 61 42 0 0 0 NO OF LOCNS TO STEP ON LON CTR ON O/P TRANSFER
36715 124 61 0 0 0 0 modify address of next
36716 61 12 1 0 0 SECT COUNTER SELECT
36717 5 61 30 1 0 0 TRANSFER
36718 0 61 30 0 0 0 SELECT
36719 2 61 31 0 0 0 SUBTRACT
36720 70 367 30 0 0 0 367 >NOTHING TO OUTPUT JUMP IF A == 0
36729>36721 544 10 0 0 0 544 4 SELECT
36722 30 0 0 0 5 SHIFT (A) BY QUARTETS
36723 1 544 13 0 3 0 544 SECT NO OF TRANS SECT ADD
36724 1 61 30 0 0 0 ADD
36725 128 67 0 0 0 0 bulk copy short numeric
36726 80 518 2 0 0 0 518 O/P ENTER SUBROUTINE
36727 123 4 0 0 0 step on and test
36728 C 61 30 0 0 0
36729 76 367 21 0 0 0 367 JUMP unconditional
36720>36730 10 0 0 0 1 SELECT LITERAL
36731 4 61 2 0 0 0 AUGMENT
36732 123 2 0 0 0 step on and test
36733 C 61 0 0 0 0
36734 76 367 7 0 0 0 367 JUMP unconditional
36735 82 367 2 0 0 0 367 END OF SUBROUTINE / LEAVE SUBROUTINE
36800 PROCR 368 368 DEAL WITH TRANS VACANT SECTIONS
36801 NOTES RADIX B CHAP END ROUTINE SELECT
36517>36802 10 0 0 0 1 TYPE 1 SELECT LITERAL
36803 5 61 26 2 0 0 TRANSFER
36804 101 1001 1 3 0 CALC SWITCH PROCR select literal address
36805 1 61 111 0 0 0 THIS CHAP UNCORRECTED ADD
36806 5 61 28 2 0 0 61/43= CHAP LENGTH TRANSFER
36807 80 516 2 0 0 0 516 >O/P 'TYPE' ENTER SUBROUTINE
36808 61 43 0 0 0 CHAP LENGTH SELECT
36809 124 61 111 0 1 0 UNCORR CHAP modify address of next
36810 5 72 17 0 0 0 STORE 72/18-36 TRANSFER
36811 542 24 1 0 0 542 'TYPE.' SELECT
36812 5 61 26 1 0 0 TRANSFER
36813 5 61 28 1 0 0 TRANSFER
36814 80 517 2 0 0 0 517 ALPHA O/P SR ENTER SUBROUTINE
36815 10 0 0 0 1 SELECT LITERAL
36816 1 61 111 0 0 0 ADD
36817 3 61 111 0 0 0 COPY
36818 61 48 0 0 0 SELECT
36819 70 346 23 0 0 0 346 JUMP IF A == 0
36820 76 369 3 0 0 0 369 JUMP unconditional
36900 PROCR 369 369 PROG END ROUTINE
Source image: P1000341.JPG
36901 NOTES RADIX B SELECT
36902 76 369 9 0 0 0 369 THIS AN ORDER CONTANT JUMP unconditional
36820>36903 80 520 2 0 0 0 520 -O/P REMAINING DETS S/R ENTER SUBROUTINE
36904 0 545 6 0 0 0 545 ALL THE £'S SELECT
36905 5 66 2 1 0 0 SET AS BLOCK SERIAL TRANSFER
36906 369 2 0 0 0 369 SELECT
36907 5 526 2 0 0 0 526 PLANT AN EXIT ORDER TRANSFER
36908 76 522 23 0 0 0 522 >I/P C-LINE SR JUMP unconditional
36902>36909 10 0 0 0 1 SELECT LITERAL
36910 5 23 47 0 0 0 ALWAYS PRINT END SIGN TRANSFER
36911 80 530 2 0 0 0 530 >BLANK LINE ENTER SUBROUTINE
36912 80 511 2 0 0 0 511 >PRINT END SIGN ENTER SUBROUTINE
36913 72 2 0 0 0 ENTRY POINT SELECT
36914 5 61 35 0 0 0 TRANSFER
36915 80 486 2 0 0 0 486 ENTER SUBROUTINE
36916 5 92 8 0 0 0 CHAP OF ENTRY TRANSFER
36917 27 5 0 0 0 ENTRY LOCN SELECT
36918 5 92 6 0 0 0 TRANSFER
36919 0 542 30 1 0 0 542 'TYPE£' SELECT
36920 5 9 4 1 0 0 TRANSFER
36921 544 2 1 0 0 544 SELECT
36922 5 9 6 1 0 0 BEW TRANSFER
36923 80 514 2 0 0 0 514 -O/P REMAINING DETS S/R ENTER SUBROUTINE
36931>36924 80 539 2 0 0 0 539 >READ A2 ENTER SUBROUTINE
36925 8 4 1 0 0 SELECT
36926 12 0 0 0 5659655972 'FINIS' SUBTRACT LITERAL
36927 70 369 32 0 0 0 369 >END JUMP IF A == 0
36928 55 8 4 1 0 50 BULK COPY
36929 C 9 4 1 0 0
36930 80 514 2 0 0 0 514 >WRITE A6 ENTER SUBROUTINE
36931 76 369 24 0 0 0 369 JUMP unconditional
36927>36932 55 70 0 1 0 100 COPY DETAILS FOR PASS 3 BULK COPY
36933 C 9 0 1 0 0
36934 27 4 0 0 0 COMPILER? SELECT
36935 71 327 2 0 0 0 327 >YES, CALL PASS 3 JUMP IF A != 0
36936 45 A6 0 0 0 0 REWIND O/P FILE REWIND
36937 76 327 2 0 0 0 327 >CALL PASS 3 JUMP unconditional
37000 PROCR 370 370 INST ROUTINE
37001 NOTES RADIX B NOTES AND CONTINUATION OF SWITCH INTO NEXT PROCEDURE SELECT
35203>37002 10 0 0 0 1 SELECT LITERAL
37003 5 61 99 0 0 0 NON I/P IND TRANSFER
37004 80 522 2 0 0 0 522 -I/P C-LINE S/R ENTER SUBROUTINE
37005 66 2 1 0 0 LINE SERIAL SELECT
37006 5 67 0 1 0 0 TRANSFER
37007 5 61 2 0 0 0 CLEAR MOD DIGITS TRANSFER
37008 5 61 25 0 0 0 SET BINARY INDICATOR TRANSFER
37009 0 61 110 0 0 0 GROUP+1 SELECT
37010 70 362 2 0 0 0 362 G.N.B. JUMP IF A == 0
37011 73 362 2 0 0 0 362 G.N.B. JUMP IF A < 0
37012 12 0 0 0 11 SUBTRACT LITERAL
37013 72 362 2 0 0 0 362 G.N.B. JUMP IF A >= 0
37014 84 372 2 0 0 0 372 SWITCH B (GROUP) SET SWITCH(ES) AT VARIABLE VALUE
37015 C 61 110 0 0 0
37016 84 381 2 0 0 0 381 VARIANT SWITCH SET SWITCH(ES) AT VARIABLE VALUE
37017 C 61 50 0 0 0 VARIANT+1
37018 0 61 13 0 0 0 LONG SELECT
37019 101 148 1 2 0 TEST 32 REMAIN subtract literal address
37020 72 371 2 0 0 0 371 >DUMP JUMP IF A >= 0
37021 0 61 15 0 0 0 SHORT SELECT
Source image: P1000342.JPG
37022 101 56 1 2 0 TEST 3 REMAIN subtract literal address
37023 72 371 2 0 0 0 371 >DUMP JUMP IF A >= 0
37024 0 61 17 0 0 0 TSL SELECT
37025 101 218 1 2 0 TEST 1 REMAINS subtract literal address
37026 73 372 2 0 0 0 372 >OK JUMP IF A < 0
37100 PROCR 371 371
37101 NOTES 371 SELECT
37023>
37020>37102 80 366 2 0 0 0 366 >ROUND UP CTRS ENTER SUBROUTINE
37103 0 61 17 0 0 0 SELECT
37104 2 61 16 0 0 0 TWICE TSL'S SUBTRACT
37105 31 0 0 0 1- SHIFT (A) BY BITS
37106 1 61 15 0 0 0 SHORT ADD
37107 1 61 13 0 0 0 LONG ADD
37108 5 366 2 0 0 0 366 INCREMENT TO SPACE CTR TRANSFER
37109 34 544 6 0 0 0 544 BIT 1 SET (N) IN B
37110 36 61 43 0 0 0 SPACE CTR COLLATE AND ADD
37111 12 0 0 0 2 SUBTRACT LITERAL
37112 2 366 2 0 0 0 366 LENTH OF FORMED CONSTANTS SUBTRACT
37113 1 545 46 0 0 0 545 24/1/0 TO NEXT ORDER ADD
37114 80 498 2 0 0 0 498 >O/P INT SC ENTER SUBROUTINE
37115 80 353 2 0 0 0 353 >ROUND UP SPACE CTR ENTER SUBROUTINE
37116 80 367 2 0 0 0 367 >O/P FORMD SECTIONS ENTER SUBROUTINE
37117 10 0 0 0 1 SELECT LITERAL
37118 5 61 42 0 0 0 SPACE CTR INCR TRANSFER
37119 5 61 2 0 0 0 CLEAR TRANSFER
37120 54 63 0 1 0 280 CLEAR 63+62 BULK CLEAR
37121 0 542 6 1 0 0 542 'CONST' SELECT
37122 5 5 2 1 0 0 TRANSFER
37123 5 61 12 1 0 0 TRANSFER
37124 5 61 14 1 0 0 TRANSFER
37125 80 530 2 0 0 0 530 >PRINT ENTER SUBROUTINE
37126 0 544 18 1 0 0 544 180:180 SELECT
37127 5 61 16 1 0 0 TSL CTR TRANSFER
37128 10 0 0 0 3 SELECT LITERAL
37129 4 61 5 0 0 0 AUG PROCR NUMBERS AUGMENT
37130 4 61 6 0 0 0 AUGMENT
37131 4 61 7 0 0 0 AUGMENT
37132 10 0 0 0 6 SELECT LITERAL
37133 5 61 26 2 0 0 TRANSFER
37134 80 516 2 0 0 0 516 >O/P 'TYPE 6' ENTER SUBROUTINE
37200 PROCR 372 372 SWITCH B
37201 NOTES RADIX B SELECT
37026>37202 10 0 0 0 0 SELECT LITERAL
37203 85 372 2 0 0 0 372 SWITCH R
37204 C 373 2 0 0 0 373 GRP 0
37205 C 374 2 0 0 0 374 1
37206 C 379 2 0 0 0 379 2
37207 C 381 2 0 0 0 381 3
37208 C 387 2 0 0 0 387 4
37209 C 400 2 0 0 0 400 5
37210 C 411 2 0 0 0 411 6
37211 C 417 2 0 0 0 417 7
37212 C 422 2 0 0 0 422 8
37213 C 430 2 0 0 0 430 9
37214 C 440 5 0 0 0 440 10
37215 C 440 4 0 0 0 440 11
37216 C 440 3 0 0 0 440 12
Source image: P1000343.JPG
37217 C 440 2 0 0 0 440 13
37218 C 445 2 0 0 0 445 14
37219 C 447 2 0 0 0 447 15
37300 PROCR 373 373 GROUP 0 ACTIONS
37301 NOTES RADIX B SELECT
37204>37302 61 50 0 0 0 SELECT
37303 12 0 0 0 8 SUBTRACT LITERAL
37304 73 373 10 0 0 0 373 >ACTIONS 0-6 JUMP IF A < 0
37305 12 0 0 0 2 SUBTRACT LITERAL
37306 72 373 14 0 0 0 373 >ACTION 9 JUMP IF A >= 0
37307 545 27 0 0 0 545 0/0/2 SELECT
37308 80 356 2 0 0 0 356 >COMPLEX O/P NON-A ENTER SUBROUTINE
37309 80 521 2 0 0 0 521 >I/P INSTRUCTION ENTER SUBROUTINE
37316>
37304>37310 124 61 50 0 1 0 VARIANT+1 modify address of next
37311 545 7 0 0 0 545 SELECT
37626>
37916>
38404>
41403>
44519>37312 80 358 2 0 0 0 358 >COMPLES O/P ARITH ENTER SUBROUTINE
37313 76 362 2 0 0 0 362 >GNB JUMP unconditional
37306>37314 545 18 0 0 0 545 18/1/1 1 SELECT
37315 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
37316 76 373 10 0 0 0 373 JUMP unconditional
37400 PROCR 374 374 GROUP 1 ACTIONS
37401 NOTES RADIX SELECT
37205>37402 66 14 1 0 0 LITERAL SELECT
37403 5 61 52 1 0 0 TRANSFER
37404 61 50 0 0 0 VARIANT+1 SELECT
37405 12 0 0 0 4 SUBTRACT LITERAL
37406 72 376 2 0 0 0 376 >NOT ACTIONS 10-12 JUMP IF A >= 0
37407 66 15 0 0 0 SELECT
37408 70 374 14 0 0 0 374 >SHORT LITERAL JUMP IF A == 0
37409 124 61 50 0 0 0 modify address of next
37410 545 7 0 0 0 545 SELECT
37411 5 61 0 1 0 0 TRANSFER
37412 80 481 2 0 0 0 481 LONG NO S/R ENTER SUBROUTINE
37413 76 362 2 0 0 0 362 G.N.B JUMP unconditional
37408>37414 61 50 0 0 0 VARIANT +1 SELECT
37415 12 0 0 0 2 TEST VARIANT >0 SUBTRACT LITERAL
37416 72 375 2 0 0 0 375 >NOT ACTION 10 JUMP IF A >= 0
37417 66 14 1 0 0 SELECT
37418 73 375 9 0 0 0 375 - JUMP IF A < 0
37500 PROCR 375 375 GROUP 1 ACTIONS 0-2
37501 NOTES RADIX B SELECT
37416>37502 544 22 0 0 0 544 1 SELECT
37503 2 66 14 0 0 0 LITERAL (MODULUS) SUBTRACT
37504 73 375 9 0 0 0 375 >NOT LITERAL JUMP IF A < 0
37505 124 61 50 0 0 0 modify address of next
37506 545 21 0 0 0 545 SELECT
37507 1 66 14 0 0 0 ADD
37508 76 382 9 0 0 0 382 - JUMP unconditional
37504>
37418>37509 124 61 50 0 0 0 modify address of next
37510 545 7 0 0 0 545 SELECT
41109>37511 5 61 0 0 0 0 TRANSFER
Source image: P1000344.JPG
40907>37512 80 483 2 0 0 0 483 SHORT NO S/R ENTER SUBROUTINE
37513 76 362 2 0 0 0 362 -G.N.B. JUMP unconditional
37600 PROCR 376 376 ACTION 16
37601 NOTES RADIX B SELECT
37406>37602 80 534 2 0 0 0 534 -SUSPEND S/R ENTER SUBROUTINE
37603 54 66 6 0 0 8 BULK CLEAR
37604 61 50 0 0 0 VARIANT +1 SELECT
37605 12 0 0 0 8 TEST VARIANT >6 SUBTRACT LITERAL
37606 72 377 2 0 0 0 377 >ACTIONS 17 OR 19 JUMP IF A >= 0
37607 61 26 1 0 0 SUSPENDED REF SELECT
37608 34 61 28 1 0 0 ITEM SET (N) IN B
37609 75 376 12 0 0 0 376 >ON(N) JUMP IF AB != 0
37610 61 32 1 0 0 SUSPENDED MOD SELECT
37611 70 376 15 0 0 0 376 >ON(A) JUMP IF A == 0
37609>37612 545 22 0 0 0 545 1/1/30 SELECT
37613 80 359 2 0 0 0 359 ZERO REF/PARA ENTER SUBROUTINE
37614 76 376 17 0 0 0 376 JUMP unconditional
37611>37615 546 4 0 0 0 546 2/1/0/6 SELECT
37707>37616 80 361 2 0 0 0 361 >LN:2C SR ENTER SUBROUTINE
37705>
37614>37617 545 27 0 0 0 545 0/0/2 SELECT
37618 80 357 2 0 0 0 357 >TEST LONG/SHORT NO S/R ENTER SUBROUTINE
37619 0 61 26 1 0 0 SUSPENDED REF SELECT
37620 34 61 28 1 0 0 SUSPENDED ITEM SET (N) IN B
37621 75 376 24 0 0 0 376 JUMP IF AB != 0
37622 0 545 3 0 0 0 545 10/1/0 6 SELECT
37623 76 361 8 0 0 0 361 >LN:2C+GNB JUMP unconditional
37621>37624 80 535 2 0 0 0 535 >RESTORE ENTER SUBROUTINE
37625 0 545 15 0 0 0 545 10/1/0 0 SELECT
37626 76 373 12 0 0 0 373 >O/P+GNB JUMP unconditional
37700 PROCR 377 377 ACTIONS 17 AND 19
37701 NOTES RADIX B SELECT
37606>37702 71 377 8 0 0 0 377 -IE VARIANT 9 JUMP IF A != 0
37703 61 26 1 0 0 SUSPENDED REF SELECT
37704 34 61 28 1 0 0 ITEM SET (N) IN B
37705 75 376 17 0 0 0 376 >ACTS ON(N) JUMP IF AB != 0
37706 546 5 0 0 0 546 3/1/0/6 SELECT
37707 76 376 16 0 0 0 376 JUMP unconditional
37702>37708 545 36 0 0 0 545 1/0/1 0 SELECT
37709 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
37710 0 61 26 1 0 0 REF SELECT
37711 34 61 28 1 0 0 ITEM SET (N) IN B
37712 74 377 16 0 0 0 377 JUMP IF AB == 0 // 27, 1, 0
37713 80 535 2 0 0 0 535 -RESTORE S/R ENTER SUBROUTINE
37714 545 8 0 0 0 545 6/0/0 SELECT
37715 80 358 2 0 0 0 358 >COMPLEX O/P ARITH ENTER SUBROUTINE
37712>37716 545 64 0 0 0 545 18/1/1/0/4119 SELECT
37717 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
37800 PROCR 378 378 ACTION 19
37801 NOTES RADIX B SELECT
37802 54 66 6 0 0 8 CLEAR REF, I,D,M BULK CLEAR
37803 545 17 0 0 0 545 13/0/0 SELECT
44823>37804 80 357 2 0 0 0 357 >TEST SHORT/LONG NO SR ENTER SUBROUTINE
37805 76 362 2 0 0 0 362 GNB JUMP unconditional
37900 PROCR 379 379 GROUP2
37901 NOTES RADIX B SELECT
Source image: P1000345.JPG
37206>37902 5 66 10 1 0 0 CLEAR DISC TRANSFER
37903 85 381 2 0 0 0 381 SWITCH R
37904 C 379 17 0 0 0 379 20
37905 C 379 14 0 0 0 379 21
37906 C 379 14 0 0 0 379 22
37907 C 379 14 0 0 0 379 23
37908 C 379 20 0 0 0 379 24
37909 C 379 14 0 0 0 379 25
37910 C 379 14 0 0 0 379 26=MULTIPLY
37911 C 362 2 0 0 0 362 27 GNB
37912 C 362 2 0 0 0 362 28 GNB
37913 C 379 14 0 0 0 379 29=DIVIDE
37913>
37910>
37909>
37907>
37906>
37905>37914 124 61 50 0 0 0 VARIANT+1 modify address of next
37915 0 545 80 0 0 0 545 F.P. ACTION SELECT
37916 76 373 12 0 0 0 373 >COMPLEX O/P+GNB JUMP unconditional
37904>37917 0 545 86 0 0 0 545 21/0/0 DRAIN A* SELECT
37918 80 380 2 0 0 0 380 F.P.S/R ENTER SUBROUTINE
37919 76 362 2 0 0 0 362 G.N.B. JUMP unconditional
37908>37920 80 534 2 0 0 0 534 >SUSPEND ENTER SUBROUTINE
37921 545 84 0 0 0 545 21/1/0 SELECT
37922 80 380 2 0 0 0 380 F.P.S/R ENTER SUBROUTINE
37923 80 535 2 0 0 0 535 >RESTORE ENTER SUBROUTINE
37924 0 545 86 0 0 0 545 21/0/0 SELECT
37925 80 358 2 0 0 0 358 >COMPLEX O/P ENTER SUBROUTINE
37926 0 545 85 0 0 0 545 20/0/0 8 SELECT
37927 76 361 8 0 0 0 361 >LN:2C+GNB JUMP unconditional
38000 PROCR 380 380 GROUP 2 S/R
38001 NOTES RADIX B SELECT
38002 81 380 2 0 0 0 380 START OF SUBROUTINE
38003 12 0 0 0 8 SUBTRACT LITERAL
38004 80 361 2 0 0 0 361 >LN:2C SR ENTER SUBROUTINE
38005 545 82 0 0 0 545 20/0/0 SELECT
38006 80 358 2 0 0 0 358 >COMPLEX O/P ENTER SUBROUTINE
38007 82 380 2 0 0 0 380 END OF SUBROUTINE / LEAVE SUBROUTINE
38100 PROCR 381 381 GROUP 3 SWITCH
38101 NOTES RADIX B SELECT
37207>38102 85 381 2 0 0 0 381 SWITCH R
38103 C 382 2 0 0 0 382 30 QTT SHIFT A
38104 C 382 14 0 0 0 382 31 BIT SHIFT A
38105 C 382 2 0 0 0 382 32 QTT SHFT AB
38106 C 382 14 0 0 0 382 33 BIT SHIFT AB
38107 C 382 12 0 0 0 382 34 SELECT TO B
38108 C 383 2 0 0 0 383 35 SET QTTS OF B
38109 C 384 2 0 0 0 384 36 COLLATE
38110 C 384 2 0 0 0 384 37 REPLACE BITS
38111 C 385 2 0 0 0 385 38 ROUND OFF VBLE
38112 C 386 2 0 0 0 386 39 ROUND UP
38200 PROCR 382 382 GROUP 3 30-33 AND 34
38201 NOTES RADIX B SELECT
38105>
38103>38202 66 14 1 0 0 SELECT
38203 72 382 6 0 0 0 382 JUMP IF A >= 0
Source image: P1000346.JPG
38204 10 0 0 0 1020 SET NEGATIVE LITERAL SELECT LITERAL
38205 4 66 14 1 0 0 POSITIVE AUGMENT
38215>
38233>
38203>38206 124 61 50 0 0 0 modify address of next
38207 545 31 0 0 0 545 18 ACTION SELECT
38208 2 66 14 0 0 0 SUBTRACT
38313>
38504>
41518>
42304>
44516>
37508>38209 5 67 3 0 0 0 TRANSFER
44105>
47917>
47920>38210 80 518 2 0 0 0 518 -O/P ENTER SUBROUTINE
38211 76 362 2 0 0 0 362 -GNB JUMP unconditional
38107>38212 0 545 27 0 0 0 545 0/0/2 SELECT
38213 76 403 12 0 0 0 403 >COMPLEX O/P+GNB JUMP unconditional
38106>
38104>38214 0 66 14 1 0 0 LITERAL SELECT
38215 72 382 6 0 0 0 382 >TREAT AS ACTIONS 30, 32 JUMP IF A >= 0
38216 32 0 0 0 10- SHIFT (AB) BY QUARTETS
38217 10 0 0 0 0 COMPLEMENT IN B SELECT LITERAL
38218 36 544 20 0 0 0 544 BITS 1 2 COLLATE AND ADD
38219 5 518 2 0 0 0 518 > BIT SHIFTS LEFT REQUIRED TRANSFER
38220 36 545 91 0 0 0 545 BITS 3-8+15 COLLATE AND ADD
38221 36 545 91 0 0 0 545 =(4096+32-N)X4 COLLATE AND ADD
38222 36 545 91 0 0 0 545 COLLATE AND ADD
38223 36 545 91 0 0 0 545 COLLATE AND ADD
38224 30 0 0 0 1- DIVIDE COMPLEMENT BY 4 SHIFT (A) BY QUARTETS
38225 5 66 14 1 0 0 SET AS ADDRESS FOR QTT RIGHT SHIFT TRANSFER
38226 2 518 2 0 0 0 518 SUBTRACT
38227 70 382 31 0 0 0 382 >NO BITS LEFT JUMP IF A == 0
38228 124 61 50 0 0 0 VARIANT +1 modify address of next
38229 1 545 31 0 0 0 545 18/D/3 ADD
38230 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
38227>38231 12 0 0 0 1 SUBTRACT LITERAL
38232 4 61 50 0 0 0 REDUCE VARIANT AUGMENT
38233 76 382 6 0 0 0 382 >O/P QTT SHIFT RIGHT JUMP unconditional
38300 PROCR 383 383 ACTION 35
38301 NOTES RADIX SELECT
38108>38302 0 66 14 1 0 0 SELECT
38303 80 538 2 0 0 0 538 >CONVERT TO DEC ENTER SUBROUTINE
38304 5 66 14 1 0 0 TRANSFER
38305 62 0 0 0 0 SET EXCESS CONSTANTS
38306 124 542 32 0 2 0 542 select literal and division
38307 112 66 14 1 0 0 CONVERT TO BASE 2 convert
38308 72 383 12 0 0 0 383 - JUMP IF A >= 0
38309 5 66 14 1 0 0 TRANSFER
38310 2 66 14 1 0 0 SUBTRACT
38311 11 0 0 0 400 ADD LITERAL
38308>38312 1 545 36 0 0 0 545 1/0/1 ACTION ADD
38313 76 382 9 0 0 0 382 JUMP unconditional
38400 PROCR 384 384 ACTIONS 36 AND 37
38401 NOTES RADIX B SELECT
38110>
38109>38402 124 61 50 0 0 0 VARIANT +1 modify address of next
Source image: P1000347.JPG
38403 545 30 0 0 0 545 15 OR 14 SELECT
38404 76 373 12 0 0 0 373 JUMP unconditional
38500 PROCR 385 385 ACTION 38
38501 NOTES RADIX SELECT
38111>38502 545 39 0 0 0 545 1/0/2 SELECT
38503 1 66 14 1 0 0 LITERAL ADD
38504 76 382 9 0 0 0 382 O/P & GNB JUMP unconditional
38600 PROCR 386 386 ACTION 39
38601 NOTES RADIX SELECT
38112>38602 545 30 0 0 0 545 2/1/0 SELECT
38603 80 361 2 0 0 0 361 >LN:2C SR ENTER SUBROUTINE
38604 546 6 0 0 0 546 27/1/0/2 SELECT
38605 80 498 2 0 0 0 498 >O/P INT SC ENTER SUBROUTINE
38606 545 53 0 0 0 545 1/1/3/0/1 SELECT
38607 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
38608 0 545 54 0 0 0 545 4/1/0 0 SELECT
38609 76 361 8 0 0 0 361 >LN:2C+GNB JUMP unconditional
38700 PROCR 387 387 GROUP 4 ACTIONS
38701 NOTES RADIX SELECT
37208>38702 61 50 0 0 0 VARIANT + 1 SELECT
38703 12 0 0 0 4 SUBTRACT LITERAL
38704 70 387 6 0 0 0 387 >43 JUMP IF A == 0
44303>38705 80 508 2 0 0 0 508 0/1/0 0/0/3 S/R ENTER SUBROUTINE
39655>
38704>38706 0 66 6 0 0 0 FILE ID SELECT
38707 5 61 54 0 0 0 TRANSFER
38708 80 499 2 0 0 0 499 >CALC ROUTE PARA ENTER SUBROUTINE
38709 5 61 114 0 0 0 TRANSFER
38710 33 0 0 0 6 ROUTE TYPE SHIFT (AB) BY BITS
38711 3 61 54 0 0 0 COPY
38712 12 0 0 0 7 SUBTRACT LITERAL
38713 70 387 32 0 0 0 387 >RT7 JUMP IF A == 0
38714 12 0 0 0 4 SUBTRACT LITERAL
38715 70 387 32 0 0 0 387 >RT11 JUMP IF A == 0
38716 12 0 0 0 4 SUBTRACT LITERAL
38717 70 392 19 0 0 0 392 >RT15 JUMP IF A == 0
38718 12 0 0 0 5 SUBTRACT LITERAL
38719 71 387 34 0 0 0 387 >NOT 20 JUMP IF A != 0
38720 61 50 0 0 0 VARIANT+1 SELECT
38721 12 0 0 0 1 SUBTRACT LITERAL
38722 71 387 34 0 0 0 387 >NOT 40 JUMP IF A != 0
38723 66 8 0 0 0 CONVERT TO BINARY SELECT
38724 80 537 2 0 0 0 537 ENTER SUBROUTINE
38725 5 66 6 0 0 0 CLEAR TRANSFER
38726 5 66 8 0 0 0 TRANSFER
38727 545 66 0 0 0 545 SELECT
38728 80 356 2 0 0 0 356 >COMPLEX O/P ENTER SUBROUTINE
38729 545 72 0 0 0 545 18/1/1/ 5- SELECT
38730 80 359 2 0 0 0 359 ENTER SUBROUTINE
38731 76 387 34 0 0 0 387 >EVERYTHING ELSE JUMP unconditional
38715>
38713>38732 11 0 0 0 8 IF 7 OR 11 SET=8 ADD LITERAL
38733 5 61 54 0 0 0 ROUTE TYPE TRANSFER
38731>
38722>
38719>38734 91 4 0 3 0 SELECT
38735 30 0 0 0 4- GP CTR OR ZERO SHIFT (A) BY QUARTETS
Source image: P1000348.JPG
38736 1 91 1 0 0 0 2R ADD
38737 5 61 115 0 0 0 TRANSFER
38738 124 61 115 0 1 0 modify address of next
38739 91 5 0 0 0 GP TX AREA PARA SELECT
38740 5 61 115 0 0 0 TRANSFER
38741 61 50 0 0 0 VARIANT+1 SELECT
38742 31 0 0 0 5 SHIFT (A) BY BITS
38743 1 61 54 0 0 0 ROUTE TYPE ADD
38744 31 0 0 0 3 SHIFT (A) BY BITS
38745 34 545 5 0 0 0 545 BITS 1-3 SET (N) IN B
38746 36 66 14 0 0 0 LITERAL COLLATE AND ADD
38747 30 0 0 0 2 TO Q3,4,5 SHIFT (A) BY QUARTETS
38748 101 398 2 0 0 0 398 TABLE LOOKUP table look up
38749 100 61 56 1 0 0 copy registers
38750 10 0 0 0 0 SELECT LITERAL
38751 35 0 0 0 11 Q1,2 PREPARE FOR DIGIT COLLATION
38752 124 61 58 0 3 0 modify address of next
38753 115 0 0 0 0 COLLATE MASTER ROUTE TYPE collate and add
38754 33 0 0 0 7- B8+B1 SHIFT (AB) BY BITS
38755 30 0 0 0 3 SHIFT (A) BY QUARTETS
38756 33 0 0 0 6 B8+B19, B2-7+B1-6 SHIFT (AB) BY BITS
38757 5 61 61 0 0 0 TRANSFER
38758 33 0 0 0 1 SHIFT (AB) BY BITS
38759 5 61 60 0 0 0 SET SPECIAL IND FOR 'READ RT 10' TRANSFER
38760 86 372 2 0 0 0 372 SELECT SWITCH R
38761 12 0 0 0 . SUBTRACT LITERAL
38762 70 443 4 0 0 0 443 >CHEQUE-SORTER JUMP IF A == 0
38763 61 50 0 0 0 VARIANT+1 SELECT
38764 12 0 0 0 4 SUBTRACT LITERAL
38765 71 392 8 0 0 0 392 JUMP IF A != 0
38766 80 522 2 0 0 0 522 >NOT ACTION 43 ENTER SUBROUTINE
38767 80 508 2 0 0 0 508 >I/P C-LINE ENTER SUBROUTINE
38768 0 66 6 2 0 0 0/1/0 0/0/3 S/R SELECT
38769 80 537 2 0 0 0 537 >TO BIN ENTER SUBROUTINE
38770 5 66 6 1 0 0 TRANSFER
38771 0 61 54 0 0 0 ROUTE TYPE SELECT
38772 12 0 0 0 3 SUBTRACT LITERAL
38773 70 388 26 0 0 0 388 >CARD JUMP IF A == 0
38774 12 0 0 0 1 SUBTRACT LITERAL
38775 70 388 23 0 0 0 388 >GP PRINT JUMP IF A == 0
38776 12 0 0 0 9 SUBTRACT LITERAL
38777 70 391 2 0 0 0 391 >RT 13 JUMP IF A == 0
38778 12 0 0 0 5 SUBTRACT LITERAL
38779 70 391 2 0 0 0 391 >RT 18 JUMP IF A == 0
38780 12 0 0 0 1 SUBTRACT LITERAL
38781 71 393 6 0 0 0 393 >NOT ROUTE 19 JUMP IF A != 0
38782 0 545 8 0 0 0 545 6/0/0 SELECT
38783 1 61 114 0 0 0 RTE PARA ADD
38784 80 355 2 0 0 0 355 O/P ENTER SUBROUTINE
38785 80 390 2 0 0 0 390 ENTER SUBROUTINE
38786 70 387 92 0 0 0 387 >NO FN WORD BITS SET JUMP IF A == 0
38787 0 545 13 0 0 0 545 2/0/0 SELECT
38788 101 8 1 1 0 add literal address
38789 80 498 2 0 0 0 498 O/P ENTER SUBROUTINE
38790 80 389 2 0 0 0 389 ENTER SUBROUTINE
38791 76 387 95 0 0 0 387 JUMP unconditional
38786>38792 0 545 13 0 0 0 545 2/0/0 SELECT
38793 101 4 1 1 0 add literal address
38794 80 498 2 0 0 0 498 O/P ENTER SUBROUTINE
38791>38795 92 29 0 0 0 NUMBER OD CHAPS SELECT
Source image: P1000349.JPG
38796 80 504 2 0 0 0 504 >O/P 24/0/3 BY SPECIAL CHAP START ENTER SUBROUTINE
38797 101 1001 1 3 0 select literal address
38798 30 0 0 0 2 REF=1001, PARA=0 SHIFT (A) BY QUARTETS
38799 5 67 2 0 0 0 TRANSFER
38800 PROCR 388 388 43 DEAL WITH G.P. O/P
38801 NOTES RADIX B SET UP A FOR EDIT SELECT
38802 0 545 47 0 0 0 545 26/0/0 SELECT
38803 80 359 2 0 0 0 359 > O/P 'ENTER PRINT SR' ENTER SUBROUTINE
38804 546 26 0 0 0 546 24/1/0 5 SELECT
38805 80 498 2 0 0 0 498 > O/P INT SEQ CHANGE ENTER SUBROUTINE
38806 61 114 0 0 0 SELECT
38807 5 67 2 0 0 0 TRANSFER
38808 80 359 2 0 0 0 359 >O/P ROUTE PARA AS A LITERAL ENTER SUBROUTINE
38809 80 488 2 0 0 0 488 SELECT SECTION TX AREA PARA ENTER SUBROUTINE
38810 11 0 0 0 1 ADD LITERAL
38811 5 67 2 0 0 0 TRANSFER
38812 80 359 2 0 0 0 359 >O/P ROUTE PARA AS LITYERAL ENTER SUBROUTINE
38813 61 115 0 0 0 GP TX AREA PARA SELECT
38814 11 0 0 0 1 ADD LITERAL
38815 5 67 2 0 0 0 TRANSFER
38816 80 359 2 0 0 0 359 >O/P AS LITERAL ENTER SUBROUTINE
38817 61 8 0 0 0 TX AREA LENGTH (OVERFLOW FROM TX ABOVE PSELECT
38818 118 7 0 3 0 X64 shift binary
38819 1 545 13 0 0 0 545 BIT 18 ADD
38820 80 359 2 0 0 0 359 *****O/P TOP OF BULK CLEAR CONST ENTER SUBROUTINE
38821 80 399 2 0 0 0 399 >RESTORE ABC ENTER SUBROUTINE
38822 76 362 2 0 0 0 362 >GNB JUMP unconditional
38775>38823 80 390 2 0 0 0 390 ENTER SUBROUTINE
38824 70 388 26 0 0 0 388 > NO FN WORD BITS SET JUMP IF A == 0
38825 80 389 2 0 0 0 389 ENTER SUBROUTINE
38824>
38773>38826 5 66 10 1 0 0 TRANSFER
38827 545 66 0 0 0 545 24/0/2 SELECT
38828 80 356 2 0 0 0 356 COMPLEX O/P NON-ARITH ENTER SUBROUTINE
38829 0 545 19 0 0 0 545 24/1/2 SELECT
38830 2 61 115 0 0 0 GP TX AREA PARA SUBTRACT
38831 12 0 0 0 1 SUBTRACT LITERAL
38832 80 355 2 0 0 0 355 >O/P ENTER SUBROUTINE
38833 61 54 0 0 0 FILE TYPE SELECT
38834 12 0 0 0 4 SUBTRACT LITERAL
38835 70 388 37 0 0 0 388 >ANELEX JUMP IF A == 0
38836 0 545 26 0 0 0 545 BIT 14 SELECT
38835>38837 1 545 67 0 0 0 545 29/0/1 ADD
38838 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
38839 0 61 115 0 0 0 GP TX AREA PARA SELECT
38840 76 393 7 0 0 0 393 JUMP unconditional
38900 PROCR 389 389 S/R TO SET BITS FOR PRINTING
38902 81 389 2 0 0 0 389 START OF SUBROUTINE
38903 545 27 0 0 0 545 0/0/2 SELECT
38904 80 357 2 0 0 0 357 >LONG O/P ENTER SUBROUTINE
38905 545 8 0 0 0 545 6/0/0 SELECT
38906 80 357 2 0 0 0 357 >LONGOP ENTER SUBROUTINE
38907 80 535 2 0 0 0 535 >RESTORE ENTER SUBROUTINE
38908 10 0 0 0 1 SELECT LITERAL
38909 5 66 10 1 0 0 TRANSFER
38910 545 38 0 0 0 545 SELECT
38911 80 358 2 0 0 0 358 COMPLEX OP ARITH ENTER SUBROUTINE
38912 61 26 1 0 0 SUSPENDED REF SELECT
Source image: P1000350.JPG
38913 5 66 6 1 0 0 TRANSFER
38914 82 389 2 0 0 0 389 END OF SUBROUTINE / LEAVE SUBROUTINE
39000 PROCR 390 390 SET BITS FOR FN WORD
39002 81 390 2 0 0 0 390 START OF SUBROUTINE
39003 80 534 2 0 0 0 534 SUSPEND ENTER SUBROUTINE
39004 12 0 0 0 1 SUBTRACT LITERAL
39005 124 61 8 0 1 0 SET BITS OF 64 WORDS (1-4) modify address of next
39006 31 0 0 0 0 ///// SHIFT (A) BY BITS
39007 11 0 0 0 10 ADD LITERAL
39008 30 0 0 0 9 TO Q10 SHIFT (A) BY QUARTETS
39009 3 61 52 1 0 0 BITS FOR FN WORD COPY
39010 82 390 2 0 0 0 390 END OF SUBROUTINE / LEAVE SUBROUTINE
39100 PROCR 391 391 DEAL WITH 43 FOR 'UPTIME' CARD READER
38779>
38777>39102 545 27 0 0 0 545 0/0/2 0 SELECT
39103 80 361 2 0 0 0 361 >LN:2C (ORIG(A)>B) ENTER SUBROUTINE
39104 76 396 2 0 0 0 396 JUMP unconditional
39200 PROCR 392 392 GROUP 4 SWITCH
39201 NOTES RADIX SELECT
39202 81 392 8 0 0 0 392 START OF SUBROUTINE
39203 61 39 0 0 0 LAST PARA NUMBER SELECT
39204 5 67 2 0 0 0 TRANSFER
39205 545 22 0 0 0 545 1/1/3 0 SELECT
39206 80 359 2 0 0 0 359 >OUTPUT(SELECT PARA VALUE) ENTER SUBROUTINE
39207 82 392 8 0 0 0 392 END OF SUBROUTINE / LEAVE SUBROUTINE
38765>39208 85 381 2 0 0 0 381 SWITCH R
39209 C 394 2 0 0 0 394 40
39210 C 396 2 0 0 0 396 >41
39211 C 393 2 0 0 0 393 42
39212 C 393 2 0 0 0 393 43
39213 C 393 19 0 0 0 393 44
39214 C 396 3 0 0 0 396 45
39215 C 394 59 0 0 0 394 46
39216 C 394 59 0 0 0 394 47
39217 C 394 59 0 0 0 394 >48
39218 C 394 59 0 0 0 394 49
38717>39219 61 50 0 0 0 V+1 SELECT
39220 12 0 0 0 2 SUBTRACT LITERAL
39221 70 392 31 0 0 0 392 >CLOSE JUMP IF A == 0
39222 72 393 2 0 0 0 393 >READ JUMP IF A >= 0
39223 80 392 8 0 0 0 392 >O/P 1/1/3 P ENTER SUBROUTINE
39224 546 23 0 0 0 546 3/0/0 2 SELECT
39225 80 361 2 0 0 0 361 >LN:2C ENTER SUBROUTINE
39226 546 22 0 0 0 546 1/1/1 10 SELECT
39227 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
39228 546 8 0 0 0 546 18/0/0 5 SELECT
39229 80 359 2 0 0 0 359 ENTER SUBROUTINE
39230 76 394 2 0 0 0 394 JUMP unconditional
39221>39231 80 392 8 0 0 0 392 ENTER SUBROUTINE
39232 546 24 0 0 0 546 1/1/ 20 SELECT
39233 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
39234 546 8 0 0 0 546 18/0/0 5 SELECT
39235 80 359 2 0 0 0 359 ENTER SUBROUTINE
39236 76 396 2 0 0 0 396 JUMP unconditional
39300 PROCR 393 393 GROUP 4
39301 NOTES RADIX VARIANTS 2 & 3 SELECT
39222>
39212>
Source image: P1000351.JPG
39211>39302 80 522 2 0 0 0 522 I/P C-LINE ENTER SUBROUTINE
39303 66 6 2 0 0 SELECT
39304 80 537 2 0 0 0 537 CONVERT TO BIN ENTER SUBROUTINE
39305 5 66 6 0 0 0 TRANSFER
38781>39306 80 488 2 0 0 0 488 >SELECT TX AREA PARA ENTER SUBROUTINE
38840>39307 1 545 27 0 0 0 545 0/0/2 ADD
39308 80 355 2 0 0 0 355 >O/P ENTER SUBROUTINE
39309 61 54 0 0 0 ROUTE TYPE SELECT
39310 12 0 0 0 18 SUBTRACT LITERAL
39311 71 396 2 0 0 0 396 >NOT RT 24 JUMP IF A != 0
39312 545 55 0 0 0 545 18/1/1 5 SELECT
39313 80 359 2 0 0 0 359 >O/P ZERO REF/PARA ENTER SUBROUTINE
39314 546 30 0 0 0 546 1/1/3 1 SELECT
39315 80 359 2 0 0 0 359 >O/P S/R ENTER SUBROUTINE
39316 545 72 0 0 0 545 18/1/1 5- SELECT
39317 80 359 2 0 0 0 359 >O/P S/R ENTER SUBROUTINE
39318 76 396 2 0 0 0 396 JUMP unconditional
39213>39319 0 545 27 0 0 0 545 0/0/2 SELECT
39320 80 361 2 0 0 0 361 >LN:2C SR ENTER SUBROUTINE
39321 101 1 1 3 0 (A) NON ZERO select literal address
39322 76 396 3 0 0 0 396 JUMP unconditional
39400 PROCR 394 394 GROUP 4
39401 NOTES RADIX B SELECT
39230>
39209>39402 61 54 0 0 0 SELECT
39403 12 0 0 0 + SUBTRACT LITERAL
39404 71 394 34 0 0 0 394 >NOT AUTOLECTOR JUMP IF A != 0
39405 61 61 0 0 0 SELECT
39406 5 543 43 0 0 0 543 TRANSFER
39407 35 0 0 0 111 PREPARE FOR DIGIT COLLATION
39408 36 91 4 0 3 0 ANNEX HALF-LENGTH COLLATE AND ADD
39409 36 91 4 0 3 0 COLLATE AND ADD
39410 12 0 0 0 2 SUBTRACT LITERAL
39411 1 545 13 0 0 0 545 BIT 18 ADD
39412 30 0 0 0 5 SHIFT (A) BY QUARTETS
39413 5 61 60 1 0 0 TRANSFER
39414 12 0 0 0 40 64- SUBTRACT LITERAL
39415 5 61 52 1 0 0 TRANSFER
39416 545 8 0 0 0 545 6/0/0 SELECT
39417 80 357 2 0 0 0 357 >SHORT O/P ENTER SUBROUTINE
39418 61 114 0 0 0 ROUTE PARA SELECT
39419 1 545 10 0 0 0 545 5/0/0 ADD
39420 80 355 2 0 0 0 355 >O/P ENTER SUBROUTINE
39421 546 16 0 0 0 546 2/0/0 6 SELECT
39422 80 361 2 0 0 0 361 >LN:2C SR ENTER SUBROUTINE
39423 61 60 1 0 0 SELECT
39424 5 61 52 1 0 0 TRANSFER
39425 545 8 0 0 0 545 6/0/0 SELECT
39426 80 357 2 0 0 0 357 >LONG O/P ENTER SUBROUTINE
39427 546 21 0 0 0 546 24/1/2 6 SELECT
39428 80 361 2 0 0 0 361 >LN:2C SR ENTER SUBROUTINE
39429 10 0 0 0 +4000- 28/1/1 0 SELECT LITERAL
39430 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
39431 543 43 0 0 0 543 SELECT
39432 5 61 61 0 0 0 TRANSFER
39433 76 396 2 0 0 0 396 JUMP unconditional
39404>39434 12 0 0 0 8 SUBTRACT LITERAL
Source image: P1000352.JPG
39435 70 396 2 0 0 0 396 JUMP IF A == 0
39436 66 6 1 0 0 FILE IDENTITY R-ALIGNED SELECT
39437 30 0 0 0 5 SHIFT (A) BY QUARTETS
39438 1 61 112 0 0 0 PROG ID ADD
39439 5 61 52 1 0 0 TRANSFER
39440 80 397 2 0 0 0 397 >TEST C-LINE FOLLOWS ENTER SUBROUTINE
39441 3 397 2 0 0 0 397 COPY
39442 71 394 54 0 0 0 394 >NO JUMP IF A != 0
39443 80 534 2 0 0 0 534 >SUSPEND ENTER SUBROUTINE
39444 66 10 0 0 0 C-LINE DISC SELECT
39445 70 394 54 0 0 0 394 >ANOTHER 40 ACTION JUMP IF A == 0
39446 66 6 2 0 0 REF SELECT
39447 80 537 2 0 0 0 537 >BIN ENTER SUBROUTINE
39448 5 66 6 1 0 0 TRANSFER
39449 10 0 0 0 1 SELECT LITERAL
39450 5 66 10 1 0 0 TRANSFER
39451 545 27 0 0 0 545 0/0/2 SELECT
39452 80 356 2 0 0 0 356 >COMPLEX O/P NON-ARITH ENTER SUBROUTINE
39453 76 396 2 0 0 0 396 >GET NEXT LINE JUMP unconditional
39445>
39442>39454 545 27 0 0 0 545 0/0/2 SELECT
39455 80 357 2 0 0 0 357 >LONG NUMBER O/P ENTER SUBROUTINE
39456 397 2 0 0 0 397 INDICATOR SELECT
39457 71 396 20 0 0 0 396 JUMP IF A != 0
39458 76 396 6 0 0 0 396 JUMP unconditional
39218>
39217>
39216>
39215>39459 80 522 2 0 0 0 522 IP C-LINE ENTER SUBROUTINE
39460 66 6 2 0 0 SELECT
39461 80 537 2 0 0 0 537 CONVERT ENTER SUBROUTINE
39462 3 66 6 1 0 0 COPY
39463 71 395 2 0 0 0 395 JUMP IF A != 0
39464 0 61 28 1 0 0 SUSPENDED ITEM SELECT
39465 30 0 0 0 5 SHIFT (A) BY QUARTETS
39466 1 66 14 1 0 0 ADD
39467 5 61 52 1 0 0 TRANSFER
39468 545 27 0 0 0 545 0/0/2 SELECT
39469 80 357 2 0 0 0 357 >LONG NO O/P ENTER SUBROUTINE
39470 76 396 2 0 0 0 396 -SET UP A JUMP unconditional
39500 PROCR 395 395 GROUP 4
39501 NOTES RADIX VARIANTS 6,7,8,9 SELECT
39463>39502 61 50 0 0 0 SELECT
39503 12 0 0 0 9 SUBTRACT LITERAL
39504 73 395 8 0 0 0 395 JUMP IF A < 0
39505 545 27 0 0 0 545 0/0/2 SELECT
39506 80 356 2 0 0 0 356 >COMPLEX O/P NON-ARITH ENTER SUBROUTINE
39507 76 396 2 0 0 0 396 JUMP unconditional
39504>39508 545 8 0 0 0 545 6/0/0 SELECT
39509 80 358 2 0 0 0 358 >COMPLEX O/P ARITH ENTER SUBROUTINE
39510 61 28 1 0 0 SUSPENDED ITEM SELECT
39511 30 0 0 0 5 SHIFT (A) BY QUARTETS
39512 5 61 52 1 0 0 TRANSFER
39513 545 9 0 0 0 545 4/0/0 SELECT
39514 80 357 2 0 0 0 357 >LONG NO O/P ENTER SUBROUTINE
39515 545 62 0 0 0 545 18/1/1/0/10 SELECT
39516 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
39600 PROCR 396 396 SET UP A
Source image: P1000353.JPG
39601 NOTES RADIX B SELECT
39507>
39470>
39453>
39435>
39433>
39318>
39311>
39236>
39210>
39104>39602 80 397 2 0 0 0 397 > TEST C-LINE FOLLOWS SR ENTER SUBROUTINE
39322>
39214>39603 3 397 2 0 0 0 397 STORE IND COPY
39604 71 396 20 0 0 0 396 > NO C-LINE JUMP IF A != 0
39605 80 534 2 0 0 0 534 > SUSPEND C-LINE ENTER SUBROUTINE
39458>39606 0 61 50 0 0 0 V + 1 SELECT
39607 12 0 0 0 3 SUBTRACT LITERAL
39608 73 396 20 0 0 0 396 > ACTIONS 40, 41 NOT 42, 43 JUMP IF A < 0
39609 0 545 55 0 0 0 545 18//1/1/5 SELECT
39610 80 359 2 0 0 0 359 > O/P ENTER SUBROUTINE
39611 0 66 6 2 0 0 REP (UNCONVERTED FOR GROUP 4) SELECT
39612 80 537 2 0 0 0 537 > CONVERT ENTER SUBROUTINE
39613 5 66 6 1 0 0 TRANSFER
39614 5 66 8 1 0 0 CLEAR ITEM TRANSFER
39615 0 545 66 0 0 0 545 24/0/2 SELECT
39616 80 356 2 0 0 0 356 > COMPLEX O/P NON-A ENTER SUBROUTINE
39617 545 72 0 0 0 545 18/1/1 5- SELECT
39618 80 359 2 0 0 0 359 > O/P ENTER SUBROUTINE
39619 80 397 2 0 0 0 397 > I/P, SET 380/2 NONZERO ENTER SUBROUTINE
39608>
39604>
39457>39620 61 54 0 0 0 ROUTE TYPE SELECT
39621 12 0 0 0 SUBTRACT LITERAL
39622 71 396 30 0 0 0 396 > OTHER THAN RT 15 JUMP IF A != 0
39623 61 50 0 0 0 V + 1 SELECT
39624 12 0 0 0 3 SUBTRACT LITERAL
39625 71 396 44 0 0 0 396 > NOT 42 ACTION JUMP IF A != 0
39626 80 392 2 0 0 0 392 > O/P 1/1/3 R ENTER SUBROUTINE
39627 0 546 8 0 0 0 546 18/0/0 5 SELECT
39628 80 359 2 0 0 0 359 > O/P ENTER SUBROUTINE
39629 76 396 44 0 0 0 396 JUMP unconditional
39622>39630 61 54 0 0 0 ROUTE TYPE SELECT
39631 12 0 0 0 2 SUBTRACT LITERAL
39632 70 396 35 0 0 0 396 JUMP IF A == 0
39633 12 0 0 0 1 SUBTRACT LITERAL
39634 71 396 40 0 0 0 396 > NOT RT 2 OR 3 JUMP IF A != 0
39632>39635 61 50 0 0 0 V + 1 SELECT
39636 12 0 0 0 2 ACTION 41 SUBTRACT LITERAL
39637 71 396 40 0 0 0 396 > NO JUMP IF A != 0
39638 545 27 0 0 0 545 0/0/2 SELECT
39639 80 355 2 0 0 0 355 > ZERO REF PARA=2CNO ENTER SUBROUTINE
44320>
39637>
39634>39640 61 60 1 0 0 SELECT
39641 5 61 52 1 0 0 (61/52 IS CLEARED) TRANSFER
39642 545 8 0 0 0 545 6/0/0 SELECT
39643 80 357 2 0 0 0 357 > LONG NO O/P ENTER SUBROUTINE
39629>
39625>39644 0 61 114 0 0 0 ROUTE PARA SELECT
39645 1 545 9 0 0 0 545 4/0/0 ADD
Source image: P1000354.JPG
39646 80 355 2 0 0 0 355 > O/P ENTER SUBROUTINE
39647 80 453 2 0 0 0 453 > O/P 25/1/1 4096 > 24/0/3 0 ENTER SUBROUTINE
39648 10 0 0 0 100 SELECT LITERAL
39649 5 67 1 0 0 0 TRANSFER
39650 545 60 0 0 0 545 23/0/2 SELECT
39651 80 359 2 0 0 0 359 > O/P ENTER SUBROUTINE
39652 0 397 2 0 0 0 397 C LINE FOLLOWS ? SELECT
39653 71 397 12 0 0 0 397 > NO JUMP IF A != 0
39654 80 535 2 0 0 0 535 > RESTORE C LINE ENTER SUBROUTINE
39655 76 387 6 0 0 0 387 > ASSUME 40/41/44 ACTION. TRANSLATE C-LIJUMP unconditional
39700 PROCR 397 397 TEST CONTINUATION LINE
39701 NOTES RADIX SELECT
39702 81 397 2 0 0 0 397 START OF SUBROUTINE
39703 80 509 2 0 0 0 509 ENTER SUBROUTINE
39704 7 0 12 0 TOP OF L-ALIGNED ACTION SELECT
39705 2 542 27 0 0 0 542 SUBTRACT
39706 71 397 11 0 0 0 397 > EXIT WITH A NONZERO IF NOT C-LINE JUMP IF A != 0
39707 10 0 0 0 1 SELECT LITERAL
39708 5 61 99 0 0 0 NON I/P IND TRANSFER
39709 80 522 2 0 0 0 522 C-LINE S/R ENTER SUBROUTINE
39710 10 0 0 0 0 EXIT WITH A ZERO IF C-LINE SELECT LITERAL
39706>39711 82 397 2 0 0 0 397 END OF SUBROUTINE / LEAVE SUBROUTINE
39653>39712 0 61 50 0 0 0 V + 1 SELECT
39713 12 0 0 0 1 SUBTRACT LITERAL
39714 71 397 21 0 0 0 397 > NOT ACTION 40 JUMP IF A != 0
39715 61 54 0 0 0 SELECT
39716 12 0 0 0 SUBTRACT LITERAL
39717 71 397 27 0 0 0 397 > 40 BUT NOT RT 15 JUMP IF A != 0
39718 546 25 0 0 0 546 0/0/2 2 SELECT
39719 80 361 2 0 0 0 361 > LN : 2C ENTER SUBROUTINE
39720 76 397 27 0 0 0 397 JUMP unconditional
39714>39721 12 0 0 0 4 SUBTRACT LITERAL
39722 70 397 27 0 0 0 397 > ACTION 44 JUMP IF A == 0
39723 12 0 0 0 1 SUBTRACT LITERAL
39724 70 397 32 0 0 0 397 > 45 JUMP IF A == 0
39725 80 399 2 0 0 0 399 > RESTORE ABC ENTER SUBROUTINE
39726 76 362 3 0 0 0 362 > GNB (NON-INPUT) JUMP unconditional
39722>
39720>
39717>39727 80 405 2 0 0 0 405 > RESTORE C ENTER SUBROUTINE
39728 61 50 0 0 0 VARIANT +1 SELECT
39729 12 0 0 0 1 SUBTRACT LITERAL
39730 70 362 3 0 0 0 362 > 40 ACTION JUMP IF A == 0
39731 76 362 2 0 0 0 362 READ NEXT BLOCK JUMP unconditional
39724>39732 80 399 2 0 0 0 399 RESTORE ABC ENTER SUBROUTINE
39733 76 362 2 0 0 0 362 JUMP unconditional
39800 CONST 398 398 0
39802 (B4)1(B5)1(B3)7(B7)11(B1)0; B17-20=VARIANT+1
39803 1,3,7,13,0; B12-16=INTERCODE R,TYPE
39804 1,4,7,14,0; B9-11=LITERAL
39805 1,5,7,15,0; B2-8=MASTER R,TYPE
39806 1,6,7,16,0; B1 =NON-STD CARD I/P
39807 1,8,0,18,0; B8=IND FOR Q5 MASTER RT
39808 1,8,7,17,0;
39809 1,9,7,19,0;
39810 1,10,7,16,0;
39811 1,12,7,20,0;
39812 1,13,7,16,0;
Source image: P1000355.JPG
39813 1,16,7,75,0; OPEN RT 16
39814 1,18,7,16,0;
39815 1,19,7,19,0; OPEN RT 19
39816 1,20,7,53,0; DT
39817 1,22,7,59,0; DATA LINK
39818 1,25,7,55,0;
39819 2,1,7,21,0;
39820 2,3,7,23,0;
39821 2,4,7,24,0;
39822 2,5,7,25,0;
39823 2,6,7,26,0;
39824 2,8,0,28,0;
39825 2,8,1,27,0;
39826 2,8,2,45,0;
39827 2,8,7,46,0;
39828 2,9,7,29,0;
39829 2,10,7,26,0;
39830 2,12,7,30,0;
39831 2,13,7,26,0;
39832 2,16,7,85,0; CLOSE RT 16
39833 2,18,7,26,0;
39834 2,19,7,29,0; CLOSE RT 19
39835 2,25,7,56,0;
39836 3,5,7,5,0;
39837 3,6,7,6,0;
39838 3,8,7,7,0;
39839 3,10,7,6,1;
39840 3,12,7,10,0;
39841 3,13,7,6,0;
39842 3,17,7,52,0; ACTION 132
39843 3,18,7,6,1;
39844 3,20,7,54,0; DT
39845 3,24,7,5,0; 8 HOLE PT
39846 4,1,7,1,0;
39847 4,3,7,3,0;
39848 4,4,7,4,0;
39849 4,8,7,8,0;
39850 4,9,7,9,0;
39851 4,13,7,49,0;
39852 4,16,7,65,0; WRITE RT 16
39853 4,17,7,50,0; ACTION 133
39854 4,18,7,49,0;
39855 4,22,7,58,0;
39856 5,5,7,48,0;
39857 5,8,2,47,0;
39858 5,8,7,48,0;
39859 5,17,7,51,0; ACTION 134
39860 5,25,7,57,0;
39861 6,8,0,33,0;
39862 6,8,7,34,0;
39863 7,8,0,35,0;
39864 7,8,7,36,0;
39865 8,8,7,37,0;
39866 9,8,0,39,0;
39867 9,8,1,40,0;
39868 9,8,2,43,0;
39869 9,8,7,44,0;
39870 10,8,0,41,0;
39871 10,8,7,42,0;
Source image: P1000356.JPG
39900 PROCR 399 399 0/1/1 S/R
39901 NOTES RADIX B SELECT
39902 81 399 2 0 0 0 399 START OF SUBROUTINE
39903 61 25 0 0 0 SET BINARY INDICATOR SELECT
39904 12 0 0 0 1 SUBTRACT LITERAL
39905 3 61 25 0 0 0 COPY
39906 70 399 8 0 0 0 399 JUMP IF A == 0
39907 10 0 0 0 8 SELECT LITERAL
39906>39908 1 545 21 0 0 0 545 0/1/1 ADD
39909 80 361 2 0 0 0 361 >LN:2C SR ENTER SUBROUTINE
39910 82 399 2 0 0 0 399 END OF SUBROUTINE / LEAVE SUBROUTINE
40000 PROCR 400 400 GROUP 5 SWITCH
40001 NOTES RADIX B SELECT
37209>40002 85 381 2 0 0 0 381 SWITCH R
40003 C 401 4 0 0 0 401 50
40004 C 401 2 0 0 0 401 51
40005 C 401 4 0 0 0 401 52
40006 C 401 3 0 0 0 401 53
40007 C 402 2 0 0 0 402 54
40008 C 404 2 0 0 0 404 55
40009 C 408 2 0 0 0 408 56
40010 C 409 2 0 0 0 409 57
40011 C 409 11 0 0 0 409 58=MERGE VARIABLE
40012 C 410 2 0 0 0 410 59
40100 PROCR 401 401 ACTIONS 50-53
40101 NOTES RADIX B SELECT
40004>40102 10 0 0 0 1 SELECT LITERAL
40006>40103 11 0 0 0 1 ADD LITERAL
40005>
40003>40104 5 61 84 0 0 0 -INDIC TRANSFER
40105 5 66 10 1 0 0 CLEAR FIRST LINE DISC TRANSFER
40106 80 522 2 0 0 0 522 - I/P C-LINE ENTER SUBROUTINE
40107 10 0 0 0 0 SELECT LITERAL
40108 5 66 10 1 0 0 TRANSFER
40109 545 66 0 0 0 545 24/0/2 SELECT
40110 80 356 2 0 0 0 356 >COMPLEX O/P NON-A ENTER SUBROUTINE
40111 80 535 2 0 0 0 535 -REPLACE ENTER SUBROUTINE
40112 124 61 50 0 0 0 VARIANT+1 modify address of next
40113 545 67 0 0 0 545 SELECT
40114 80 356 2 0 0 0 356 >COMPLEX O/P NON-A ENTER SUBROUTINE
40115 61 84 0 0 0 SELECT
40116 70 362 2 0 0 0 362 -GNB JUMP IF A == 0
40117 12 0 0 0 1 SUBTRACT LITERAL
40118 70 401 23 0 0 0 401 >ACTION 53 JUMP IF A == 0
44846>40119 80 508 2 0 0 0 508 ENTER SUBROUTINE
40120 546 7 0 0 0 546 1/1/1/2 SELECT
40121 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
40122 80 405 2 0 0 0 405 RESTORE C ENTER SUBROUTINE
40118>40123 0 61 26 0 0 0 SUSPENDED REF SELECT
40124 12 0 0 0 64 100 SUBTRACT LITERAL
40125 72 362 2 0 0 0 362 >GNB (NO +CTR) JUMP IF A >= 0
40126 80 535 2 0 0 0 535 RESTORE S/R ENTER SUBROUTINE
40127 0 545 11 0 0 0 545 3/0/0 SELECT
40128 80 502 2 0 0 0 502 >'ITEM+' SR ENTER SUBROUTINE
40129 76 362 2 0 0 0 362 >GNB (NO +CTR) JUMP unconditional
40200 PROCR 402 402 BULK CLEAR
40201 NOTES RADIX B ACTION 54 SELECT
Source image: P1000357.JPG
40007>40202 80 534 2 0 0 0 534 > SUSPEND FIRST LINEO/P ENTER SUBROUTINE
40203 66 14 1 0 0 LITERAL SELECT
40204 70 402 8 0 0 0 402 > LITERAL ZERO JUMP IF A == 0
40205 1 545 13 0 0 0 545 BIT 18 ADD
40206 30 0 0 0 5 SHIFT (A) BY QUARTETS
40207 76 402 12 0 0 0 402 JUMP unconditional
40204>40208 80 521 2 0 0 0 521 - I/P INST ENTER SUBROUTINE
40209 80 508 2 0 0 0 508 0/1/0 0/0/3 S/R ENTER SUBROUTINE
40210 80 406 2 0 0 0 406 - SECOND SUSPEND S/R ENTER SUBROUTINE
40211 545 13 0 0 0 545 BIT 18 SELECT
40207>40212 5 61 52 1 0 0 TRANSFER
40213 545 8 0 0 0 545 6/0/0 SELECT
40214 80 357 2 0 0 0 357 > SHORT NO O/P ENTER SUBROUTINE
40215 66 14 1 0 0 LITERAL SELECT
40216 71 403 4 0 0 0 403 > NO CONT LINE JUMP IF A != 0
40217 80 407 2 0 0 0 407 > SECOND RESTORE S/R ENTER SUBROUTINE
40218 545 9 0 0 0 545 SELECT
40219 80 358 2 0 0 0 358 > COMPLEX O/P ARITH ENTER SUBROUTINE
40220 80 405 2 0 0 0 405 RESTORE C S/R ENTER SUBROUTINE
40300 PROCR 403 403 BULK CLEAR
40301 NOTES RADIX SELECT
40302 546 8 0 0 0 546 18/0/1/5 SELECT
40303 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
40216>40304 80 535 2 0 0 0 535 - RESTORE S/R ENTER SUBROUTINE
40305 66 10 0 0 0 FIRST LINE DISC SELECT
40306 70 403 11 0 0 0 403 JUMP IF A == 0
40307 10 0 0 0 0 SELECT LITERAL
40308 5 66 10 1 0 0 CLEAR DISC TRANSFER
40309 546 29 0 0 0 546 28/1/1 SELECT
40310 76 403 12 0 0 0 403 JUMP unconditional
40306>40311 545 65 0 0 0 545 28/0/0 SELECT
40443>
40910>
44852>
40310>
38213>40312 80 356 2 0 0 0 356 > COMPLEX O/P NON-A ENTER SUBROUTINE
40313 76 362 2 0 0 0 362 > GNB JUMP unconditional
40400 PROCR 404 404 BULK COPY
40401 NOTES RADIX SELECT
40008>40402 66 14 1 0 0 LITERAL SELECT
40403 5 61 113 0 0 0 W/L TRANSFER
40404 80 522 2 0 0 0 522 I/P C-LINE ENTER SUBROUTINE
40405 80 406 2 0 0 0 406 SECOND SUSPEND C/R ENTER SUBROUTINE
40406 0 61 62 0 0 0 SELECT
40407 70 404 10 0 0 0 404 > SHORT BEST JUMP IF A == 0
40408 10 0 0 0 1 READ NEXT BLOCK SELECT LITERAL
40409 5 61 62 0 0 0 TRANSFER
40407>40410 61 30 0 0 0 DISC. FIRST LINE SELECT
40411 70 404 16 0 0 0 404 > SHORT SOURCE JUMP IF A == 0
40412 10 0 0 0 1 SELECT LITERAL
40413 3 61 30 0 0 0 COPY
40414 2 61 62 0 0 0 SUBTRACT
40415 4 61 28 1 0 0 AUG BY 0 OR 1 AUGMENT
40411>40416 80 535 2 0 0 0 535 RESTORE FIRST LINE ENTER SUBROUTINE
40417 5 66 10 1 0 0 DISC TRANSFER
40418 545 66 0 0 0 545 24/0/2 SELECT
40419 80 356 2 0 0 0 356 > COMPLEX O/P NON-A ENTER SUBROUTINE
40420 545 72 0 0 0 545 18/1/15- SELECT
Source image: P1000358.JPG
40421 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
40422 61 113 0 0 0 FIRST LINE LITERAL SELECT
40423 71 404 28 0 0 0 404 JUMP IF A != 0
40424 80 521 2 0 0 0 521 I/P INSTRUCTION ENTER SUBROUTINE
40425 545 8 0 0 0 545 6/0/0 SELECT
40426 80 358 2 0 0 0 358 > COMPLEX O/P ARITH ENTER SUBROUTINE
40427 76 404 30 0 0 0 404 JUMP unconditional
40423>40428 1 545 22 0 0 0 545 1/1/3 ADD
40429 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
40427>40430 545 55 0 0 0 545 18/1/1/0/5 SELECT
40431 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
40432 80 407 2 0 0 0 407 SECOND RESTORE S/R ENTER SUBROUTINE
40433 61 30 0 0 0 1ST LINE DISC SELECT
40434 3 66 10 0 0 0 COPY
40435 71 404 40 0 0 0 404 JUMP IF A != 0
40436 0 61 62 0 0 0 DISC (2ND LINE) SELECT
40437 70 404 40 0 0 0 404 JUMP IF A == 0
40438 10 0 0 0 1 SELECT LITERAL
40439 4 66 8 1 0 0 ITEM AUGMENT
40437>
40435>40440 545 65 0 0 0 545 28/0/0 SELECT
40441 124 61 62 0 0 0 C-LINE DISC modify address of next
40442 2 545 25 0 0 0 545 SUBTRACT
40443 76 403 12 0 0 0 403 > COMPLEX O/P > GNB JUMP unconditional
40500 PROCR 405 405 RESTORE C S/R
40501 NOTES RADIX B SELECT
40502 81 405 2 0 0 0 405 START OF SUBROUTINE
40503 61 25 0 0 0 BINARY INDICATOR SELECT
40504 12 0 0 0 1 SUBTRACT LITERAL
40505 3 61 25 0 0 0 COPY
40506 71 405 9 0 0 0 405 JUMP IF A != 0
40507 546 9 0 0 0 546 0/0/3/4 SELECT
40508 80 361 2 0 0 0 361 > LN:2C SR ENTER SUBROUTINE
40506>40509 82 405 2 0 0 0 405 END OF SUBROUTINE / LEAVE SUBROUTINE
40600 PROCR 406 406 SECOND SUSPEND S/R
40601 NOTES RADIX B SELECT
40602 81 406 2 0 0 0 406 START OF SUBROUTINE
40603 66 6 1 0 0 REF SELECT
40604 5 61 60 0 0 0 TRANSFER
40605 66 8 1 0 0 ITEM SELECT
40606 5 61 61 0 0 0 TRANSFER
40607 66 10 1 0 0 DISC SELECT
40608 5 61 62 0 0 0 TRANSFER
40609 66 12 1 0 0 MOD SELECT
40610 5 61 63 0 0 0 TRANSFER
40611 66 14 1 0 0 LIT SELECT
40612 5 61 64 0 0 0 TRANSFER
40613 66 16 0 0 0 ITEM + IND SELECT
40614 5 66 18 0 0 0 ITEM + IND (2ND STORE) TRANSFER
40615 82 406 2 0 0 0 406 END OF SUBROUTINE / LEAVE SUBROUTINE
40700 PROCR 407 407 SECOND RESTORE S/R
40701 NOTES RADIX B SELECT
40702 81 407 2 0 0 0 407 START OF SUBROUTINE
40703 61 60 0 0 0 SELECT
40704 5 66 6 1 0 0 REF TRANSFER
40705 61 61 0 0 0 SELECT
40706 5 66 8 1 0 0 ITEM TRANSFER
Source image: P1000359.JPG
40707 61 62 0 0 0 SELECT
40708 5 66 10 1 0 0 DISC TRANSFER
40709 61 63 0 0 0 SELECT
40710 5 66 12 1 0 0 MOD TRANSFER
40711 61 64 0 0 0 SELECT
40712 5 66 14 1 0 0 LIT TRANSFER
40713 66 18 0 0 0 ITEM + IND (2ND STORE) SELECT
40714 5 66 16 0 0 0 ITEM + IND TRANSFER
40715 82 407 2 0 0 0 407 END OF SUBROUTINE / LEAVE SUBROUTINE
40800 PROCR 408 408 TABLE LOOK UP
40801 NOTES RADIX B SELECT
40009>40802 80 508 2 0 0 0 508 0/1/0 0/0/3 S/R ENTER SUBROUTINE
40803 80 534 2 0 0 0 534 >SUSPEND ENTER SUBROUTINE
40804 545 49 0 0 0 545 1/0/0 SELECT
40805 80 356 2 0 0 0 356 >COMPLEX O/P NON-A ENTER SUBROUTINE
40806 545 50 0 0 0 545 18/1/1 10 SELECT
40807 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
40808 0 61 32 0 0 0 SUSPENDED MOD DIGITS SELECT
40809 70 408 19 0 0 0 408 >UNMODIFIED JUMP IF A == 0
40810 545 10 0 0 0 545 5/0/0 SELECT
40811 80 439 2 0 0 0 439 MR S/R ENTER SUBROUTINE
40812 61 26 0 0 0 REF SELECT
40813 71 408 19 0 0 0 408 > JUMP IF A != 0
40814 61 28 0 0 0 ITEM SELECT
40815 70 408 21 0 0 0 408 >DON'T BOTHER JUMP IF A == 0
40816 1 545 24 0 0 0 545 1/1/2 ADD
40817 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
40818 76 408 21 0 0 0 408 JUMP unconditional
40813>
40809>40819 545 10 0 0 0 545 5/0/0 SELECT
40820 80 484 2 0 0 0 484 T.S.L'S ENTER SUBROUTINE
40818>
40815>40821 80 405 2 0 0 0 405 RESTORE C ENTER SUBROUTINE
40822 76 362 2 0 0 0 362 GNB JUMP unconditional
40900 PROCR 409 409 MERGE FIXED FIELD
40901 NOTES RADIX B SELECT
40010>40902 545 51 0 0 0 545 8/0/0 SELECT
40903 5 61 0 0 0 0 TRANSFER
40904 66 14 1 0 0 SELECT
40905 70 409 8 0 0 0 409 JUMP IF A == 0
40906 5 61 52 1 0 0 TRANSFER
40907 76 375 12 0 0 0 375 >SHORT NO SR, GNB JUMP unconditional
40905>40908 5 66 12 1 0 0 CLEAR MOD DIGITS TRANSFER
40909 545 51 0 0 0 545 8/0/0 SELECT
40910 76 403 12 0 0 0 403 >COMPLEX O/P + GNB JUMP unconditional
40011>40911 545 52 0 0 0 545 8/1/0 SELECT
40912 80 355 2 0 0 0 355 >O/P ENTER SUBROUTINE
40913 76 362 2 0 0 0 362 >GNB JUMP unconditional
41000 PROCR 410 410 ACTION 59
41001 NOTES RADIX B SELECT
40012>41002 80 508 2 0 0 0 508 0/1/0 0/0/3 SR ENTER SUBROUTINE
41003 66 12 1 0 0 SELECT
41004 5 61 38 0 0 0 W/L TRANSFER
41005 5 66 12 1 0 0 TRANSFER
41006 545 66 0 0 0 545 24/0/2 SELECT
41007 80 356 2 0 0 0 356 >COMPLEX O/P NON-A ENTER SUBROUTINE
41008 0 61 38 0 0 0 SELECT
Source image: P1000360.JPG
41009 5 61 32 0 0 0 TX MOD DIGITS TRANSFER
41010 0 545 11 0 0 0 545 3/0/0 SELECT
41011 80 439 2 0 0 0 439 >MOD REGISTER SR ENTER SUBROUTINE
41012 80 522 2 0 0 0 522 I/P C-LINE ENTER SUBROUTINE
41013 545 9 0 0 0 545 4/0/0 SELECT
41014 80 358 2 0 0 0 358 >COMPLEX O/P ARITH ENTER SUBROUTINE
41015 61 38 0 0 0 SELECT
41016 5 61 32 0 0 0 T. MOD DIGITS TRANSFER
41017 546 10 0 0 0 546 2/0/0/1 SELECT
41018 80 439 2 0 0 0 439 >MOD REGISTER S/R ENTER SUBROUTINE
41019 80 399 2 0 0 0 399 >0/0/1 ENTER SUBROUTINE
41020 76 362 2 0 0 0 362 >GNB JUMP unconditional
41100 PROCR 411 411 GROUP 6 ACTIONS
41101 NOTES RADIX B VARIANT 0-2 SELECT
37210>41102 61 50 0 0 0 VARIANT+1 SELECT
41103 12 0 0 0 3 SUBTRACT LITERAL
41104 72 411 10 0 0 0 411 JUMP IF A >= 0
41105 124 61 50 0 0 0 modify address of next
41106 544 22 0 0 0 544 DEC OR ST RADIX SELECT
41112>41107 5 61 52 1 0 0 W/L TRANSFER
41108 545 28 0 0 0 545 0/0/3 SELECT
41109 76 375 11 0 0 0 375 JUMP unconditional
41104>41110 71 412 2 0 0 0 412 JUMP IF A != 0
41111 66 14 1 0 0 LITERAL SELECT
41112 76 411 7 0 0 0 411 JUMP unconditional
41200 PROCR 412 412 VARIANTS 3-5
41201 NOTES RADIX B STORE NO TO BE CONVERTED IF ACTION WORKS ON (A) SELECT
41110>41202 12 0 0 0 4 SUBTRACT LITERAL
41203 72 415 2 0 0 0 415 >ACTION 66-69 JUMP IF A >= 0
41204 66 12 0 0 0 MOD SELECT
41205 71 413 2 0 0 0 413 >ACTING ON (N) JUMP IF A != 0
41206 0 66 6 0 0 0 REFERENCE SELECT
41207 34 66 8 0 0 0 SET (N) IN B
41208 75 413 2 0 0 0 413 JUMP IF AB != 0
41209 10 0 0 0 6 SELECT LITERAL
41210 1 545 30 0 0 0 545 2/1/0 ADD
41211 80 361 2 0 0 0 361 >LN:2C SR ENTER SUBROUTINE
41300 PROCR 413 413 VARIANTS 3-5
41301 NOTES RADIX B SELECT
41208>
41205>41302 61 50 0 0 0 TEST SELECT
41303 12 0 0 0 6 VARIANT 5 SUBTRACT LITERAL
41304 70 414 4 0 0 0 414 - JUMP IF A == 0
41305 80 534 2 0 0 0 534 - SUSPEND ENTER SUBROUTINE
41306 124 61 50 0 0 0 modify address of next
41307 0 544 20 0 0 0 544 NEW RADIX SELECT
41409>41308 3 61 76 0 0 0 FORM TABLE W/L COPY
41309 5 61 52 1 0 0 W/L FOR S.N. S/R TRANSFER
41310 545 28 0 0 0 545 0/0/3 SELECT
41311 80 357 2 0 0 0 357 >CONSTS O/P ENTER SUBROUTINE
41312 61 50 0 0 0 SELECT
41313 12 0 0 0 6 SUBTRACT LITERAL
41314 70 414 10 0 0 0 414 JUMP IF A == 0
41315 124 61 50 0 0 0 modify address of next
41316 0 544 19 0 0 0 544 OLD RADIX SELECT
41411>41317 5 61 77 0 0 0 TRANSFER
41318 80 416 2 0 0 0 416 CONVERT S/R ENTER SUBROUTINE
Source image: P1000361.JPG
41319 80 535 2 0 0 0 535 >RESTORE SR ENTER SUBROUTINE
41320 66 12 0 0 0 MOD SELECT
41321 71 414 2 0 0 0 414 >ACTING ON (N) JUMP IF A != 0
41322 0 66 6 0 0 0 SELECT
41323 34 66 8 0 0 0 SET (N) IN B
41324 75 414 2 0 0 0 414 >ACTS ON (N) JUMP IF AB != 0
41325 0 545 4 0 0 0 545 12/1/0 6 SELECT
41326 76 361 8 0 0 0 361 >LN:2C+GNB JUMP unconditional
41400 PROCR 414 414 ACTIONS 63-65
41401 NOTES RADIX B SELECT
41324>
41321>41402 545 58 0 0 0 545 12 TO B17 SELECT
41403 76 373 12 0 0 0 373 >COMPLEX O/P+GNB JUMP unconditional
41304>41404 66 14 0 0 0 SELECT
41405 5 61 38 0 0 0 GEN W/L TRANSFER
41406 80 522 2 0 0 0 522 - C-LINE S/R ENTER SUBROUTINE
41407 54 66 6 0 0 8 BULK CLEAR
41408 66 14 0 0 0 SELECT
41409 76 413 8 0 0 0 413 JUMP unconditional
41314>41410 61 38 0 0 0 SELECT
41411 76 413 17 0 0 0 413 JUMP unconditional
41500 PROCR 415 415 ACTIONS 66 AND 667
41501 NOTES RADIX B SET FP SIGDIG/NORMAL MODE SELECT
41203>41502 70 415 5 0 0 0 415 >66, SIGDIG JUMP IF A == 0
41503 10 0 0 0 8000000025 =(B40+37) SELECT LITERAL
41504 76 415 6 0 0 0 415 SELECT FP CONST JUMP unconditional
41502>41505 12 0 0 0 8000000025 TO PUT INTO 132' SUBTRACT LITERAL
41504>41506 5 61 52 1 0 0 TRANSFER
41507 0 545 8 0 0 0 545 6/0/0 SELECT
41508 80 357 2 0 0 0 357 >LONG NO O/P ENTER SUBROUTINE
41509 10 0 0 0 0 SELECT LITERAL
41510 80 504 2 0 0 0 504 >O/P 24/1/2 2C COPY FP CONST ENTER SUBROUTINE
41511 10 0 0 0 38084 3/1/0 132 LONG TO 132' SELECT LITERAL
41512 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
41513 0 61 50 0 0 0 VARIANT+1 SELECT
41514 12 0 0 0 7 TEST ACTION 67 SUBTRACT LITERAL
41515 71 362 2 0 0 0 362 >YES, GNB JUMP IF A != 0
41516 80 504 2 0 0 0 504 >O/P 24/1/2 2C COPY SHORT TO 132 TOENTER SUBROUTINE
41517 10 0 0 0 20084 2/0/0 132 SET SIGN BIT THERE SELECT LITERAL
41518 76 382 9 0 0 0 382 O/P AND GET NEXT BLOCK JUMP unconditional
41600 PROCR 416 416 CONVERSION TABLE S/R
41601 NOTES RADIX B SELECT
41602 81 416 2 0 0 0 416 START OF SUBROUTINE
41603 92 7 0 0 0 SELECT
41604 30 0 0 0 5 SHIFT (A) BY QUARTETS
41605 91 0 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
41606 70 416 11 0 0 0 416 >NONE STORED JUMP IF A == 0
41610>41607 61 76 1 0 0 SELECT
41608 2 99 0 1 2 0 SUBTRACT
41609 70 416 13 0 0 0 416 >MATCH JUMP IF A == 0
41610 94 416 7 0 2 2 416 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
41606>41611 10 0 0 0 53 =C SELECT LITERAL
41612 80 501 2 0 0 0 501 >MISMATCH SR ENTER SUBROUTINE
41609>41613 10 0 0 0 3.8 PROCR 1000 SELECT LITERAL
41614 30 0 0 0 2 SHIFT (A) BY QUARTETS
41615 1 92 29 0 0 0 FORM 2C FOR EXTRA CHAP ADD
41616 1 92 29 0 0 0 ADD
Source image: P1000362.JPG
41617 12 0 0 0 1 REF: 2C-1 SUBTRACT LITERAL
41618 5 61 52 0 0 0 TRANSFER
41619 96 0 0 2 0 SELECT MODIFIER
41620 16 0 0 0 10 MULTIPLY LITERAL
41621 5 61 53 0 0 0 CTR WITHIN PROCR TRANSFER
41622 545 8 0 0 0 545 6 TO B17 SELECT
41623 5 61 0 0 0 0 TRANSFER
41624 80 485 2 0 0 0 485 TSL S/R ENTER SUBROUTINE
41625 82 416 2 0 0 0 416 EXIT END OF SUBROUTINE / LEAVE SUBROUTINE
41700 PROCR 417 417 GROUP 7 ACTIONS
41701 NOTES RADIX B SELECT
43615>
37211>41702 0 61 50 0 0 0 VARIANT+1 SELECT
41703 12 0 0 0 8 TEST ACTIONS 77-79 SUBTRACT LITERAL
41704 73 417 37 0 0 0 417 >ACTIONS 70-76 JUMP IF A < 0
41705 80 534 2 0 0 0 534 SUSPEND LINE ENTER SUBROUTINE
41706 80 504 2 0 0 0 504 24/1/2 2C ENTER SUBROUTINE
41707 0 61 50 0 0 0 V+1 SELECT
41708 12 0 0 0 Ю SUBTRACT LITERAL
41709 70 417 11 0 0 0 417 >ACTION 79 JUMP IF A == 0
41710 10 0 0 0 2- SELECT LITERAL
41709>41711 12 0 0 0 10080 17/0/0 128 SUBTRACT LITERAL
41712 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
41713 0 61 50 0 0 0 V+1 SELECT
41714 12 0 0 0 Ю SELECT A* SUBTRACT LITERAL
41715 70 417 34 0 0 0 417 >ACTION 79 EXPT OR MANT JUMP IF A == 0
41716 0 545 10 0 0 0 545 5/0/0 TO A SELECT
41717 5 61 0 1 0 0 TRANSFER
41718 0 66 14 1 0 0 LITERAL SELECT
41719 71 417 27 0 0 0 417 >NO C-LINE JUMP IF A != 0
41720 80 522 2 0 0 0 522 >I/P C-LINE SUBTRACT NC1 ENTER SUBROUTINE
41721 80 536 2 0 0 0 536 >O/P INSTRUCTION OR LITERAL ENTER SUBROUTINE
41722 60 0 0 0 0 SET DECIMAL RADIX
41723 12 0 0 0 1 SUBTRACT LITERAL
41724 4 66 2 1 0 0 AUGMENT
41725 62 0 0 0 0 SET EXCESS CONSTANTS
41726 76 417 30 0 0 0 417 JUMP unconditional
41719>41727 5 61 52 1 0 0 LONG CONST W/L TRANSFER
41728 545 10 0 0 0 545 5/0/0 SELECT
41729 80 357 2 0 0 0 357 >LONG/SHORT NO S/R ENTER SUBROUTINE
41726>41730 80 535 2 0 0 0 535 RESTORE FORST LINE ENTER SUBROUTINE
41731 0 61 50 0 0 0 V+1 SELECT
41732 12 0 0 0 8 79,78 AS 72 SUBTRACT LITERAL
41733 70 417 35 0 0 0 417 >ACTION 77 77 AS 73 JUMP IF A == 0
41715>41734 10 0 0 0 1- SELECT LITERAL
41733>41735 11 0 0 0 4 ADD LITERAL
41736 3 61 50 0 0 0 SET TRICK VARIANT COPY
41704>41737 5 61 1 0 0 0 SET NON-ARITH IND TRANSFER
41738 80 489 2 0 0 0 489 >M&P ENTER SUBROUTINE
41739 80 418 2 0 0 0 418 S. CHANGE S.R. ENTER SUBROUTINE
41740 124 61 50 0 0 0 modify address of next
41741 545 39 0 0 0 545 27 ACTION SELECT
41742 5 61 0 0 0 0 TRANSFER
41743 76 441 4 0 0 0 441 - STACK O/P GNB JUMP unconditional
41800 PROCR 418 418 S.C. S/R
41801 NOTES RADIX B SELECT
41802 81 418 2 0 0 0 418 START OF SUBROUTINE
41803 0 66 6 1 0 0 REF SELECT
Source image: P1000363.JPG
41804 70 420 9 0 0 0 420 JUMP IF A == 0
41805 12 0 0 0 3.7 999 SUBTRACT LITERAL
41806 72 420 9 0 0 0 420 > SKIP JUMP IF A >= 0
41807 66 8 1 0 0 ITEM SELECT
41808 71 418 13 0 0 0 418 > NOT TO PROCR START JUMP IF A != 0
41809 61 10 0 0 0 THIS PROCR SELECT
41810 2 66 6 0 0 0 REF SUBTRACT
41811 72 419 30 0 0 0 419 > SC BACK TO PROCR STARTNOT TO PROCR STAJUMP IF A >= 0
41812 76 418 23 0 0 0 418 >SC FORWARD JUMP unconditional
41808>41813 95 0 0 1 0 CURRENT HEAD OF 'SC BACK' LIST SELECT MODIFICATION REGISTER
41814 30 0 0 0 5 SHIFT (A) BY QUARTETS
41815 1 544 17 0 0 0 544 ABS ADDRESS 18/0 ADD
41816 91 0 0 2 0 R2* (A) SET MODIFICATION REGISTER AT VARIABLE
41817 94 418 19 0 2 0 418 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
41818 76 418 23 0 0 0 418 NO DESTS REPLACED YET JUMP unconditional
41822>
41817>41819 66 2 0 0 0 THIS ORDER SELECT
41820 2 1 0 2 0 INTERCODE DEST SUBTRACT
41821 70 420 2 0 0 0 420 > MATCH FOUND JUMP IF A == 0
41822 94 418 19 0 2 2 418 > TRY NEXT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
41818>
41812>41823 0 66 6 1 0 0 ASSUME SEQ CH FWD SELECT
41824 80 538 2 0 0 0 538 >REF TO DEC ENTER SUBROUTINE
41825 30 0 0 0 2 SHIFT (A) BY QUARTETS
41826 5 61 18 0 0 0 TRANSFER
41827 0 66 8 1 0 0 SELECT
41828 80 538 2 0 0 0 538 > ITEM TO DEC ENTER SUBROUTINE
41829 11 0 0 0 2 ADD 2 TO ITEM ADD LITERAL
41830 4 61 18 0 0 0 AUGMENT
41831 62 0 0 0 0 SET BINARY SET EXCESS CONSTANTS
41832 0 61 117 0 0 0 CTR OF SEC 20 LENGTH SELECT
41833 91 0 0 2 0 ZERO END VALUE SET MODIFICATION REGISTER AT VARIABLE
41834 70 419 9 0 0 0 419 > EMPTY JUMP IF A == 0
41835 12 0 0 0 12+ 300 SUBTRACT LITERAL
41836 73 418 40 0 0 0 418 > OK JUMP IF A < 0
41837 10 0 0 0 78 'Y' SELECT LITERAL
41838 80 501 2 0 0 0 501 > REPORT ENTER SUBROUTINE
41839 82 418 2 0 0 0 418 > EXIT, DON'T SET S'C IND END OF SUBROUTINE / LEAVE SUBROUTINE
41908>
41836>41840 0 20 3- 0 2 0 NEXT DEST (LAST IN LIST FIRST) SELECT
41841 2 61 18 0 0 0 SUBTRACT
41842 73 419 9 0 0 0 419 > FITS NOW JUMP IF A < 0
41900 PROCR 419 419 S.C. S/R
41901 NOTES RADIX SELECT
41902 0 20 3- 0 2 0 MOVE LIST DOWN 1 ITEM SELECT
41903 5 20 0 0 2 0 TRANSFER
41904 0 20 2- 0 2 0 SELECT
41905 5 20 1 0 2 0 TRANSFER
41906 0 20 1- 0 2 0 SELECT
41907 5 20 2 0 2 0 TRANSFER
41908 94 418 40 0 2 3- 418 > NEXT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
41842>
41834>41909 0 61 18 0 0 0 DEST OF NEWCOMER SELECT
41910 5 20 0 0 2 0 TRANSFER
41911 66 2 1 0 0 SOURCE SELECT
41912 5 20 1 0 2 0 TRANSFER
41913 66 8 1 0 0 SELECT
41914 3 20 2 0 2 0 COPY
41915 70 419 28 0 0 0 419 > DEST IS A PROCR START JUMP IF A == 0
Source image: P1000364.JPG
41916 10 0 0 0 1 SELECT LITERAL
41917 5 67 1 0 0 0 SET 'SEQ' CH' IND TRANSFER
41918 0 546 19 0 0 0 546 FLIPFLOP 0/10 SELECT
41919 30 0 0 0 4 TO Q5 SHIFT (A) BY QUARTETS
41920 1 61 118 0 0 0 ABS LOCN IN SEC 18 918:2499 INITIALLY) ADD
41921 5 20 2 0 2 0 TRANSFER
41922 10 0 0 0 Ю SELECT LITERAL
41923 2 546 19 0 0 0 546 SUBTRACT
41924 3 546 19 0 0 0 546 REVERSE COPY
41925 71 419 28 0 0 0 419 > NEXT TIME IS TOP 10 BITS OF SAME LOCN JUMP IF A != 0
41926 12 0 0 0 1 SUBTRACT LITERAL
41927 4 61 118 0 0 0 REDUCE ABS ADDRESS AUGMENT
41925>
41915>41928 10 0 0 0 3 SELECT LITERAL
41929 4 61 117 0 0 0 STEP CTR OF ACTIVE SC'S AUGMENT
41811>41930 82 418 2 0 0 0 418 END OF SUBROUTINE / LEAVE SUBROUTINE
42000 PROCR 420 420 S.C. S/R: MATCH FOUND IN SC BACK LIST
42001 NOTES RADIX B SELECT
41821>42002 34 0 0 2 0 PROCR + ITEM SET (N) IN B
42003 33 0 0 0 30 SHIFT (AB) BY BITS
42004 5 66 6 1 0 0 REF (BITS 11 - 20) TRANSFER
42005 33 0 0 0 10 SHIFT (AB) BY BITS
42006 5 66 8 1 0 0 ITEM (BITS 1 - 10) TRANSFER
42007 96 0 0 2 0 SELECT MODIFIER
42008 80 421 2 0 0 0 421 > CONTRACT LIST ENTER SUBROUTINE
41806>
41804>42009 82 418 2 0 0 0 418 END OF SUBROUTINE / LEAVE SUBROUTINE
42100 PROCR 421 421 CONTRACT THE SC BACK LIST BY 1 WORD
42101 NOTES 421 SELECT
42102 81 421 2 0 0 0 421 START OF SUBROUTINE
42103 5 61 114 0 0 0 WORD TO BE OVERWRITTEN TRANSFER
42104 95 0 0 1 0 SELECT MODIFICATION REGISTER
42105 5 61 18 1 0 0 START/END OF LIST (ABS) TRANSFER
42106 61 19 0 0 0 SELECT
42107 2 61 114 0 0 0 SUBTRACT
42108 70 421 18 0 0 0 421 > NONE TO BE MOVED JUMP IF A == 0
42109 30 0 0 0 5 SHIFT (A) BY QUARTETS
42110 1 61 114 0 0 0 ADD
42111 11 0 0 0 2 FORM SOURCE IN A ADD LITERAL
42112 124 61 114 0 3 0 modify address of next
42113 128 0 1 1 0 COPY UP BY 1 WORD bulk copy long numeric
42114 12 0 0 0 2 SUBTRACT LITERAL
42115 4 61 18 0 0 0 AUGMENT
42116 4 61 19 0 0 0 ADJUST R1 FOR NEW LIST POSITION AUGMENT
42117 91 61 18 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
42108>42118 82 421 2 0 0 0 421 END OF SUBROUTINE / LEAVE SUBROUTINE
42200 PROCR 422 422 GROUP 8 SWITCH
42201 NOTES RADIX B SELECT
37212>42202 85 381 2 0 0 0 381 SWITCH R
42203 C 423 5 0 0 0 423 > 80
42204 C 423 2 0 0 0 423 > 81
42205 C 424 2 0 0 0 424 82
42206 C 425 2 0 0 0 425 83
42207 C 426 2 0 0 0 426 84
42208 C 427 2 0 0 0 427 85
42209 C 424 6 0 0 0 424 86 ACTION SELECT SWITCH SETTIN
42210 C 422 11 0 0 0 422 87 (85 ON A COMPT)
Source image: P1000365.JPG
42210>42211 5 66 10 1 0 0 CLEAR DISC TRANSFER
42212 0 546 3 0 0 0 546 24/0/1 SELECT
42213 80 356 2 0 0 0 356 >O/P NON-A ENTER SUBROUTINE
42214 76 427 7 0 0 0 427 >CONTINUE AS 85 JUMP unconditional
42300 PROCR 423 423 ACTIONS 81 AND 80
42301 NOTES 0 0 SELECT
42204>42302 0 61 10 0 0 0 COPY CURRENT PROCR ACTION 81 SELECT
42303 5 61 9 0 0 0 TRANSFER
42304 76 382 9 0 0 0 382 >O/P ZERO LOCN, GNB JUMP unconditional
42203>42305 80 534 2 0 0 0 534 > SUSPEND ACTION 80 ENTER SUBROUTINE
42306 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
42307 C 0 0 0 40 (UP TO 20 C-LINES)
42317>42308 80 397 2 0 0 0 397 > TEST C-LINE ENTER SUBROUTINE
42309 71 423 19 0 0 0 423 > NO JUMP IF A != 0
42310 0 66 6 0 0 0 SELECT
42311 5 61 54 0 2 0 REF TRANSFER
42312 66 10 0 0 0 DISC SELECT
42313 30 0 0 0 4 SHIFT (A) BY QUARTETS
42314 4 61 54 0 2 0 STORE WITH REF AUGMENT
42315 0 66 8 1 0 0 SELECT
42316 5 61 55 0 2 0 ITEM(+-) TRANSFER
42317 94 423 8 0 2 2 423 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
42318 80 509 2 0 0 0 509 PROMOTE READ NEXT BLOCK ENTER SUBROUTINE
42309>42319 80 535 2 0 0 0 535 >RESTORE FIRST LINE ENTER SUBROUTINE
42320 96 0 0 2 0 SELECT MODIFIER
42321 5 66 15 0 0 0 STORE MODIFIER OVER LITERAL TRANSFER
42322 66 6 0 0 0 BIN REF SELECT
42323 101 1000 1 2 0 subtract literal address
42324 73 423 27 0 0 0 423 >REF NOT 1000+ JUMP IF A < 0
42325 10 0 0 0 0 SELECT LITERAL
42326 76 423 29 0 0 0 423 >DON'T CLEAR ITEM JUMP unconditional
42324>42327 10 0 0 0 0 SELECT LITERAL
42328 5 66 8 1 0 0 CLEAR I.D.M TRANSFER
42326>42329 5 66 10 1 0 0 TRANSFER
42330 5 66 12 1 0 0 TRANSFER
42331 5 66 14 0 0 0 TRANSFER
42332 0 545 47 0 0 0 545 26/0/0 SELECT
42333 80 356 2 0 0 0 356 >COMPLEX O/P NON-A ENTER SUBROUTINE
42334 66 15 0 0 0 SELECT
42335 70 362 3 0 0 0 362 >NO C-LINES, GNB(NON-I/P) JUMP IF A == 0
42336 31 0 0 0 1- SHIFT (A) BY BITS
42337 5 61 18 0 0 0 WL TRANSFER
42338 546 11 0 0 0 546 24/1/0/1 SELECT
42339 2 61 18 0 0 0 SPACE OCCUPIED BY C-LINES SUBTRACT
42340 80 498 2 0 0 0 498 >O/P INT SC ENTER SUBROUTINE
42341 91 66 14 0 4 0 SET MODIFICATION REGISTER AT VARIABLE
42371>42342 35 0 0 0 111 PREPARE FOR DIGIT COLLATION
42343 36 61 54 0 4 0 COLLATE AND ADD
42344 3 66 6 0 0 0 REF COPY
42345 5 61 35 0 0 0 TRANSFER
42346 80 486 2 0 0 0 486 >DETERMINE CHAPTER ENTER SUBROUTINE
42347 32 0 0 0 1- SHIFT (AB) BY QUARTETS
42348 71 423 51 0 0 0 423 >TX AREA JUMP IF A != 0
42349 32 0 0 0 1 SHIFT (AB) BY QUARTETS
42350 76 423 56 0 0 0 423 JUMP unconditional
42348>42351 80 488 2 0 0 0 488 >PSEUDOROUTE SR ENTER SUBROUTINE
42352 11 0 0 0 1 PARA ADD LITERAL
42353 5 61 34 0 0 0 TRANSFER
42354 5 66 6 1 0 0 CLEAR REF TRANSFER
Source image: P1000366.JPG
42355 76 423 66 0 0 0 423 JUMP unconditional
42350>42356 3 61 34 0 0 0 COPY
42357 70 423 60 0 0 0 423 >ZERO PARA JUMP IF A == 0
42358 12 0 0 0 1 SUBTRACT LITERAL
42359 4 61 34 0 0 0 AUGMENT
42357>42360 61 54 0 4 0 SELECT
42361 30 0 0 0 4- SHIFT (A) BY QUARTETS
42362 70 423 65 0 0 0 423 >NO DISC IN C-LINE JUMP IF A == 0
42363 10 0 0 0 2 SELECT LITERAL
42364 5 67 1 0 0 0 SEQ CH IND='ON' TRANSFER
42362>42365 0 61 55 0 4 0 ITEM SELECT
42355>42366 5 66 8 1 0 0 TRANSFER
42367 5 61 0 0 0 0 CLEAR ACTION TRANSFER
42368 80 531 2 0 0 0 531 >NEG NO ENTER SUBROUTINE
42369 80 532 2 0 0 0 532 >STACK ENTER SUBROUTINE
42370 80 518 2 0 0 0 518 >O/P ENTER SUBROUTINE
42371 94 423 42 0 4 2 423 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
42372 76 362 3 0 0 0 362 >GNB(NON-I/P) JUMP unconditional
42400 PROCR 424 424 ACTIONS 82 AND 86
42401 NOTES RADIX B SELECT
42205>42402 54 66 8 0 0 6 CLEAR I, D, M ACTION 82 BULK CLEAR
42403 0 545 48 0 0 0 545 26/0/1 SELECT
42404 80 356 2 0 0 0 356 >COMPLEX O/P NON-A ENTER SUBROUTINE
42405 76 362 2 0 0 0 362 >GNB JUMP unconditional
42209>42406 10 0 0 0 0 86 ACTION SELECT LITERAL
42407 5 61 113 0 0 0 INDICATOR WHETHER TO I/P OR NOT AT GNB. TRANSFER
42408 545 8 0 0 0 545 6/0/0 SELECT
42409 76 425 7 0 0 0 425 JUMP unconditional
42500 PROCR 425 425 ACTION 83
42501 NOTES RADIX B SELECT
42206>42502 545 22 0 0 0 545 1/1/3 SELECT
42503 1 66 14 0 0 0 ADD
42504 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
42505 5 61 113 0 0 0 INDICATOR TRANSFER
42612>42506 545 13 0 0 0 545 2/0/0 SELECT
42409>42507 5 61 0 0 0 0 ACTION W/L TRANSFER
42508 80 429 2 0 0 0 429 SWITCH SR ENTER SUBROUTINE
42509 61 113 0 0 0 SELECT
42510 70 441 4 0 0 0 441 - STACK O/P GNB JUMP IF A == 0
42511 80 532 2 0 0 0 532 - STACK ENTER SUBROUTINE
42512 80 518 2 0 0 0 518 O/P ENTER SUBROUTINE
42513 0 397 2 0 0 0 397 RESTORE IND SELECT
42514 5 545 99 0 0 0 545 TRANSFER
42515 76 362 3 0 0 0 362 - GNB (NO I/P) JUMP unconditional
42600 PROCR 426 426 ACTION 84
42601 NOTES RADIX B SELECT
42207>42602 80 534 2 0 0 0 534 - SUSPEND ENTER SUBROUTINE
42603 80 397 2 0 0 0 397 >TEST C-LINE SR ENTER SUBROUTINE
42604 3 61 113 0 0 0 NON-I/P IND COPY
42605 70 426 9 0 0 0 426 >YES JUMP IF A == 0
42606 0 545 99 0 0 0 545 'PRINT ME' IND FOR LINE READ BY ACCIDENTSELECT
42607 5 397 2 0 0 0 397 STORE IND TRANSFER
42608 76 426 11 0 0 0 426 JUMP unconditional
42605>42609 545 8 0 0 0 545 6/0/0 SELECT
42610 80 358 2 0 0 0 358 >COMPLEX O/P ARITH ENTER SUBROUTINE
42608>42611 80 535 2 0 0 0 535 - RESTORE S/R ENTER SUBROUTINE
42612 76 425 6 0 0 0 425 JUMP unconditional
Source image: P1000367.JPG
42700 PROCR 427 427 ACTION 85
42701 NOTES RADIX B SELECT
42208>42702 80 429 2 0 0 0 429 SWITCH SR ENTER SUBROUTINE
42703 0 546 3 0 0 0 546 24/0/1 SELECT
42704 5 61 0 0 0 0 TRANSFER
42705 80 532 2 0 0 0 532 - STACK S/R ENTER SUBROUTINE
42706 80 518 2 0 0 0 518 > = O/P S/R ENTER SUBROUTINE
42214>42707 545 48 0 0 0 545 26/0/1 SELECT
42708 80 498 2 0 0 0 498 > O/P INT SC ENTER SUBROUTINE
42812>42709 80 522 2 0 0 0 522 I/P C-LINE S/R ENTER SUBROUTINE
42710 10 0 0 0 0 SELECT LITERAL
42711 5 61 0 0 0 0 CLEAR ACTION W/L TRANSFER
42800 PROCR 428 428 ACTION 85 (2)
42801 NOTES RADIX SELECT
42802 66 6 0 0 0 SELECT
42803 5 61 35 0 0 0 TRANSFER
42804 80 486 2 0 0 0 486 ENTER SUBROUTINE
42805 3 61 34 0 0 0 COPY
42806 70 428 8 0 0 0 428 > DON'T MAKE A PARA 1- JUMP IF A == 0
42807 12 0 0 0 1 SUBTRACT LITERAL
42806>42808 4 61 34 0 0 0 AUGMENT
42809 80 418 2 0 0 0 418 SEQUENCE CHANGE S/R ENTER SUBROUTINE
42810 80 532 2 0 0 0 532 STACK ENTER SUBROUTINE
42811 80 518 2 0 0 0 518 > O/P ENTER SUBROUTINE
42812 76 427 9 0 0 0 427 JUMP unconditional
42900 PROCR 429 429 SWITCH S/R
42901 NOTES RADIX B SELECT
42902 81 429 2 0 0 0 429 START OF SUBROUTINE
42903 91 95 0 0 8 0 NO OF SWITCHES SET MODIFICATION REGISTER AT VARIABLE
42904 34 544 26 0 0 0 544 BITS 1-10 SET (N) IN B
42910>42905 10 0 0 0 0 SELECT LITERAL
42906 36 95 2 0 8 0 COLLATE AND ADD
42907 70 429 11 0 0 0 429 > MISMATCH JUMP IF A == 0
42908 2 66 6 1 0 0 SUBTRACT
42909 70 429 13 0 0 0 429 > OK JUMP IF A == 0
42910 94 429 5 0 8 1 429 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
42907>42911 10 0 0 0 72 ERRORS SELECT LITERAL
42912 80 501 2 0 0 0 501 > MISMATCH SR ENTER SUBROUTINE
42909>42913 95 2 0 8 0 SELECT
42914 32 0 0 0 4- CHAP TO Q1 SHIFT (AB) BY QUARTETS
42915 3 61 54 0 0 0 COPY
42916 101 1001 1 1 0 (1001+CHAP)= SWITCH PROCR add literal address
42917 5 66 6 0 0 0 PROCR TO SWITCH TRANSFER
42918 33 0 0 0 6 SHIFT (AB) BY BITS
42919 5 66 8 0 0 0 POSITION IN PROCR TRANSFER
42920 61 54 0 0 0 CHAP NO. SWITCH SELECT
42921 2 61 51 0 0 0 THIS CHAP SUBTRACT
42922 70 429 26 0 0 0 429 > YES JUMP IF A == 0
42923 1 61 51 0 0 0 ADD
42924 80 504 2 0 0 0 504 24/1/2/2C-1/2C S/R ENTER SUBROUTINE
42925 76 429 27 0 0 0 429 > ZERO PARA JUMP unconditional
42922>42926 61 3 0 0 0 SELECT
42925>42927 5 61 34 0 0 0 TRANSFER
42928 82 429 2 0 0 0 429 END OF SUBROUTINE / LEAVE SUBROUTINE
43000 PROCR 430 430 GROUP 9 SWITCH
43001 NOTES RADIX SELECT
Source image: P1000368.JPG
37213>43002 85 381 2 0 0 0 381 SWITCH R
43003 C 431 2 0 0 0 431 90
43004 C 432 2 0 0 0 432 91
43005 C 433 2 0 0 0 433 92
43006 C 434 2 0 0 0 434 93
43007 C 435 2 0 0 0 435 94
43008 C 437 2 0 0 0 437 95
43009 C 437 3 0 0 0 437 96
43010 C 438 2 0 0 0 438 97
43011 C 430 13 0 0 0 430 98 ADD(MR)
43012 C 430 14 0 0 0 430 99 SUBTRACT (MR)
43011>43013 2 545 49 0 0 0 545 1/0/0 (A IS CLEAR) SUBTRACT
43012>43014 1 545 10 0 0 0 545 5/0/0 ADD
43015 5 537 2 0 0 0 537 TRANSFER
43016 80 534 2 0 0 0 534 > SUSPEND ENTER SUBROUTINE
43017 0 66 10 1 0 0 DISC SELECT
43018 70 430 20 0 0 0 430 JUMP IF A == 0
43019 0 545 29 0 0 0 545 BIT 16 SELECT
43018>43020 1 537 2 0 0 0 537 WL ADD
43021 80 439 2 0 0 0 439 > MR SR ENTER SUBROUTINE
43022 76 362 2 0 0 0 362 > GNB JUMP unconditional
43100 PROCR 431 431 ACTION 90
43101 NOTES RADIX B SELECT
43003>43102 80 534 2 0 0 0 534 - SUSPEND S/R ENTER SUBROUTINE
43103 66 14 1 0 0 SELECT
43104 5 61 52 0 0 0 SUSPEND LITERAL TRANSFER
43105 80 521 2 0 0 0 521 I/P INST S/R ENTER SUBROUTINE
43106 66 14 1 0 0 SELECT
43107 5 61 53 0 0 0 TRANSFER
43108 61 52 0 0 0 SELECT
43109 73 431 12 0 0 0 431 > NEGATIVE MODIFIER JUMP IF A < 0
43110 0 61 53 0 0 0 SELECT
43111 72 431 15 0 0 0 431 > POSITIVE MODIFIER > END VALUE JUMP IF A >= 0
43109>43112 545 49 0 0 0 545 BIT 17 SELECT
43113 4 61 52 0 0 0 START VALUE AUGMENT
43114 4 61 53 0 0 0 END VALUE AUGMENT
43111>43115 61 32 1 0 0 MOD DIGITS SELECT
43116 12 0 0 0 4 SUBTRACT LITERAL
43117 73 431 22 0 0 0 431 > MR 1 - 3 JUMP IF A < 0
43118 0 545 8 0 0 0 545 6/0/0 MR>3 SELECT
43119 5 61 0 0 0 0 A CLEAR AT START TRANSFER
43120 80 481 2 0 0 0 481 > LONG NUMBER ENTER SUBROUTINE
43121 76 431 28 0 0 0 431 JUMP unconditional
43117>43122 545 47 0 0 0 545 26/0/0 SELECT
43123 124 61 32 0 0 0 modify address of next
43124 2 545 25 0 0 0 545 SUBTRACT
43125 5 61 0 0 0 0 TRANSFER
43126 80 481 2 0 0 0 481 > LONG NO SR ENTER SUBROUTINE
43127 76 362 2 0 0 0 362 > GNB JUMP unconditional
43218>
43222>
43121>43128 0 61 32 0 0 0 SUSPEND MOD DIGITS SELECT
43129 5 61 2 0 0 0 TRANSFER
43130 545 30 0 0 0 545 2/1/0 SELECT
43131 80 506 2 0 0 0 506 MR >3 SR ENTER SUBROUTINE
43132 76 362 2 0 0 0 362 JUMP unconditional
43200 PROCR 432 432 ACTION 91
43201 NOTES RADIX B SELECT
Source image: P1000369.JPG
43004>43202 10 0 0 0 0 STORE ABC SET BIN RA SELECT LITERAL
43203 5 66 10 1 0 0 CLEAR DISCRIMINANT TRANSFER
43204 66 6 1 0 0 REF SELECT
43205 34 66 8 1 0 0 ITEM SET (N) IN B
43206 74 432 19 0 0 0 432 > REF AND ITEM ZERO JUMP IF AB == 0 // 27, 1, 0
43207 66 12 0 0 0 MOD DIGITS SELECT
43208 3 61 32 0 0 0 COPY
43209 12 0 0 0 4 SUBTRACT LITERAL
43210 72 432 14 0 0 0 432 >MR>3 JUMP IF A >= 0
43211 545 56 0 0 0 545 26/1/0 SELECT
43212 80 358 2 0 0 0 358 >COMPLEX O/P ARITH ENTER SUBROUTINE
43213 76 362 2 0 0 0 362 >GNB JUMP unconditional
43210>43214 10 0 0 0 0 SELECT LITERAL
43215 5 66 12 1 0 0 TRANSFER
43216 0 545 57 0 0 0 545 6/1/0 SELECT
43217 80 358 2 0 0 0 358 >COMPLEX O/P ARITH ENTER SUBROUTINE
43218 76 431 28 0 0 0 431 JUMP unconditional
43206>43219 66 12 0 0 0 MOD DIGITS SELECT
43220 3 61 32 0 0 0 COPY
43221 12 0 0 0 4 SUBTRACT LITERAL
43222 72 431 28 0 0 0 431 JUMP IF A >= 0
43223 545 31 0 0 0 545 3/1/0 SELECT
43224 80 361 2 0 0 0 361 >LN:2C SR ENTER SUBROUTINE
43225 0 545 56 0 0 0 545 26/1/0 SELECT
43226 124 66 12 0 0 0 MOD DIGITS modify address of next
43227 2 545 25 0 0 0 545 SUBTRACT
43228 76 361 8 0 0 0 361 >LN:2C +GNB JUMP unconditional
43300 PROCR 433 433 ACTION 92
43301 NOTES RADIX B SELECT
43005>43302 0 66 12 0 0 0 SELECT
43303 5 61 32 0 0 0 WL TRANSFER
43304 5 66 12 0 0 0 CLEAR MOD DIGITS TRANSFER
43305 0 66 6 0 0 0 REF SELECT
43306 34 66 8 0 0 0 ITEM SET (N) IN B
43307 74 433 10 0 0 0 433 >ACTS ON (A) JUMP IF AB == 0 // 27, 1, 0
43308 545 8 0 0 0 545 6 TO B17 SELECT
43309 80 358 2 0 0 0 358 >COMPLEX O/P ARITH ENTER SUBROUTINE
43307>43310 0 545 13 0 0 0 545 2/0/0 SELECT
43311 80 439 2 0 0 0 439 >MOD REGISTER SR ENTER SUBROUTINE
43312 76 362 2 0 0 0 362 >GNB JUMP unconditional
43400 PROCR 434 434 ACTION 93 (1)
43401 NOTES RADIX B SELECT
43006>43402 80 508 2 0 0 0 508 -0/1/0 0/0/3 S/R ENTER SUBROUTINE
43403 80 534 2 0 0 0 534 SUSPEND ENTER SUBROUTINE
43404 544 23 0 0 0 544 DEC RADIX SELECT
43405 30 0 0 0 5 SHIFT (A) BY QUARTETS
43406 5 61 76 1 0 0 TRANSFER
43407 80 416 2 0 0 0 416 CONVERSION TABLE SR ENTER SUBROUTINE
43408 80 535 2 0 0 0 535 REPLACE S/R ENTER SUBROUTINE
43409 5 66 12 1 0 0 CLEAR TRANSFER
43410 545 58 0 0 0 545 12/0/0 SELECT
43411 80 358 2 0 0 0 358 >COMPLEX O/P ARITH ENTER SUBROUTINE
43412 546 12 0 0 0 546 27/0/2/2 SELECT
43413 80 498 2 0 0 0 498 >O/P INT SC ENTER SUBROUTINE
43414 545 49 0 0 0 545 BIT 17 SELECT
43415 5 61 52 1 0 0 TRANSFER
43416 545 9 0 0 0 545 4/0/0 SELECT
43417 80 357 2 0 0 0 357 >SHORT NO O/P ENTER SUBROUTINE
Source image: P1000370.JPG
43418 545 13 0 0 0 545 2/0/0 SELECT
43419 80 439 2 0 0 0 439 MOD REGISTER S/R ENTER SUBROUTINE
43420 80 399 2 0 0 0 399 >RESTORE ABC ENTER SUBROUTINE
43421 76 362 2 0 0 0 362 >GNB JUMP unconditional
43500 PROCR 435 435 ACTION 94
43501 NOTES RADIX B SELECT
43814>
43007>43502 0 66 14 1 0 0 LITERAL SELECT
43503 72 435 6 0 0 0 435 JUMP IF A >= 0
43504 10 0 0 0 1000 4096 SELECT LITERAL
43505 4 66 14 0 0 0 AUGMENT MODULAS AUGMENT
43503>43506 66 12 0 0 0 SELECT
43507 3 61 2 0 0 0 STORE DIGITS COPY
43508 12 0 0 0 4 SUBTRACT LITERAL
43509 72 436 16 0 0 0 436 >MR>3 JUMP IF A >= 0
43510 545 59 0 0 0 545 25/0/0 SELECT
43511 2 66 14 0 0 0 MOD L SUBTRACT
43512 124 66 12 0 0 0 modify address of next
43513 2 545 25 0 0 0 545 0/0/0 0/0/3 SUBTRACT
43514 80 359 2 0 0 0 359 >OUTPUT ENTER SUBROUTINE
43600 PROCR 436 436 ACTION 94
43601 NOTES RADIX B SELECT
43620>43602 66 6 1 0 0 REF SELECT
43603 34 66 8 1 0 0 ITEM SET (N) IN B
43604 75 436 11 0 0 0 436 REF & ITEM NON ZERO JUMP IF AB != 0
43605 546 11 0 0 0 546 24/1/0/1 SELECT
43606 80 498 2 0 0 0 498 >O/P INT SC ENTER SUBROUTINE
43607 0 61 50 0 0 0 VARIANT +1 TEST IF WE CAME IN SELECT
43608 12 0 0 0 8 WITH 97 ACTION SUBTRACT LITERAL
43609 71 362 2 0 0 0 362 >GNB JUMP IF A != 0
43610 76 362 3 0 0 0 362 >GNB (NO INPUT) JUMP unconditional
43604>43611 10 0 0 0 7 SET VARIAMT AS SELECT LITERAL
43612 5 61 50 0 0 0 THOUGH 76 ACTION TRANSFER
43613 5 61 2 0 0 0 TRANSFER
43614 5 66 12 1 0 0 TRANSFER
43615 76 417 2 0 0 0 417 GROUP 7 ACTIONS JUMP unconditional
43509>43616 0 545 61 0 0 0 545 23/0/0 MR>3 SELECT
43617 2 66 14 0 0 0 MOD L SUBTRACT
43618 80 359 2 0 0 0 359 >O/P, CLEAR A ENTER SUBROUTINE
43619 80 506 2 0 0 0 506 >MR>3 SR ENTER SUBROUTINE
43620 76 436 2 0 0 0 436 JUMP unconditional
43700 PROCR 437 437 ACTIONS 95 AND 96
43701 NOTES RADIX B SELECT
43008>43702 0 545 29 0 0 0 545 BIT 16=DISC SELECT
43009>43703 1 545 8 0 0 0 545 6/0/0 ADD
43704 32 0 0 0 10- SHIFT (AB) BY QUARTETS
43705 0 66 12 0 0 0 SELECT
43706 5 61 32 0 0 0 STORE MOD DIGITS TRANSFER
43707 32 0 0 0 10 ACTION SHIFT (AB) BY QUARTETS
43708 80 439 2 0 0 0 439 >MOD REGISTER SR ENTER SUBROUTINE
43709 76 362 2 0 0 0 362 >GNB JUMP unconditional
43800 PROCR 438 438
43801 NOTES RADIX B ACTION 97 SELECT
43010>43802 80 534 2 0 0 0 534 ENTER SUBROUTINE
43803 5 66 12 1 0 0 TRANSFER
43804 5 66 10 1 0 0 CLEAR DISC. TRANSFER
Source image: P1000371.JPG
43805 0 546 3 0 0 0 546 24/0/1 SELECT
43806 80 356 2 0 0 0 356 >COMPLEX O/P NON-A ENTER SUBROUTINE
43807 80 397 2 0 0 0 397 >TEST C-LINE FOLLOWS ENTER SUBROUTINE
43808 70 438 12 0 0 0 438 >YES JUMP IF A == 0
43809 10 0 0 0 0 SELECT LITERAL
43810 5 66 6 1 0 0 TRANSFER
43811 5 66 8 1 0 0 TRANSFER
43808>43812 0 61 32 1 0 0 STORED MOD DIGITS SELECT
43813 5 66 12 1 0 0 TRANSFER
43814 76 435 2 0 0 0 435 JUMP unconditional
43900 PROCR 439 439 ARITHMETIC ON MOD REGISTERS=SEL/COPY/SUBTRACT/ADD
43901 NOTES 439 SELECT
43902 81 439 2 0 0 0 439 61/32=MR,(A)=ACTION+DISC START OF SUBROUTINE
43903 5 537 2 0 0 0 537 CONVERT SR LINK TRANSFER
43904 0 61 32 0 0 0 SELECT
43905 12 0 0 0 4 SUBTRACT LITERAL
43906 72 439 16 0 0 0 439 >MR>3 JUMP IF A >= 0
43907 80 505 2 0 0 0 505 >24/0/3 2C ENTER SUBROUTINE
43908 0 537 2 0 0 0 537 ACTION SELECT
43909 1 61 32 0 0 0 2M AS ADDRESS ADD
43910 1 61 32 0 0 0 ADD
43911 5 67 3 0 0 0 TRANSFER
43912 0 61 41 0 0 0 MOD GROUP PARA SELECT
43913 5 67 2 0 0 0 TRANSFER
43914 80 518 2 0 0 0 518 >O/P ENTER SUBROUTINE
43915 82 439 2 0 0 0 439 END OF SUBROUTINE / LEAVE SUBROUTINE
43906>43916 0 61 32 0 0 0 SELECT
43917 5 61 2 0 0 0 TX MOD DIGITS TRANSFER
43918 0 537 2 0 0 0 537 ACTION+DISC SELECT
43919 80 506 2 0 0 0 506 MR>3 SR ENTER SUBROUTINE
43920 82 439 2 0 0 0 439 END OF SUBROUTINE / LEAVE SUBROUTINE
44000 PROCR 440 440 M/C ACTIONS
44001 NOTES RADIX B CALCULATE PARAMETERS, TEST 24/1/0 OR 27/D/M SELECT
37217>44002 10 0 0 0 Ю GROUP 13 SELECT LITERAL
37216>44003 11 0 0 0 Ю 12 ADD LITERAL
37215>44004 11 0 0 0 Ю 11 ADD LITERAL
37214>44005 12 0 0 0 1 10 SUBTRACT LITERAL
44006 1 61 50 0 0 0 V+1 ADD
44007 3 61 0 0 0 0 ACTION COPY
44008 12 0 0 0 17 23 SUBTRACT LITERAL
44009 70 442 2 0 0 0 442 >ACTION 23 JUMP IF A == 0
44010 12 0 0 0 9 SUBTRACT LITERAL
44011 72 443 2 0 0 0 443 >32,33 OR 34 JUMP IF A >= 0
44204>44012 66 6 0 0 0 REF PARA 0 OR 2C ROUTINE SELECT
44013 70 440 50 0 0 0 440 JUMP IF A == 0
44014 3 61 35 0 0 0 COPY
44015 101 999 1 2 0 subtract literal address
44016 71 440 37 0 0 0 440 >NOT REF 999 JUMP IF A != 0
44017 543 44 1 0 0 543 CLEO'PARA WORD SELECT
44018 70 440 37 0 0 0 440 >NOT APPLICABLE JUMP IF A == 0
44019 32 0 0 0 6- SHIFT (AB) BY QUARTETS
44020 70 440 24 0 0 0 440 >NOT FILE ID JUMP IF A == 0
44021 5 61 54 0 0 0 TRANSFER
44022 80 499 2 0 0 0 499 >CALC PARA ENTER SUBROUTINE
44023 76 440 34 0 0 0 440 JUMP unconditional
44020>44024 32 0 0 0 2 SHIFT (AB) BY QUARTETS
44025 70 440 30 0 0 0 440 >NOT MR PARA,HENCE TX AREA JUMP IF A == 0
44026 5 543 44 1 0 0 543 TRANSFER
Source image: P1000372.JPG
44027 0 61 41 0 0 0 MOD GROUP PARA SELECT
44028 1 543 44 2 0 0 543 ADD
44029 76 440 34 0 0 0 440 JUMP unconditional
44025>44030 543 44 2 0 0 543 SELECT
44031 5 66 6 0 0 0 SECTION NUMBER TRANSFER
44032 80 488 2 0 0 0 488 ENTER SUBROUTINE
44033 11 0 0 0 1 ADD LITERAL
44029>
44023>44034 5 66 8 1 0 0 ITEM TRANSFER
44035 5 66 6 1 0 0 CLEAR REF TRANSFER
44036 76 440 47 0 0 0 440 >PARA 2C JUMP unconditional
44018>
44016>44037 0 61 112 0 0 0 PROG IDENTITY SELECT
44038 30 0 0 0 2- SHIFT (A) BY QUARTETS
44039 12 0 0 0 90 SUBTRACT LITERAL
44040 71 440 44 0 0 0 440 >NOT MASTER SUITE JUMP IF A != 0
44041 80 486 2 0 0 0 486 ENTER SUBROUTINE
44042 31 0 0 0 1 FORM 2C' SHIFT (A) BY BITS
44043 76 440 51 0 0 0 440 >STORE PARA JUMP unconditional
44040>44044 80 486 2 0 0 0 486 >DET CHAP ENTER SUBROUTINE
44045 2 61 51 0 0 0 THIS CHAP SUBTRACT
44046 71 440 50 0 0 0 440 - JUMP IF A != 0
44036>44047 61 51 0 0 0 SELECT
44048 1 61 51 0 0 0 ADD
44049 76 440 51 0 0 0 440 - JUMP unconditional
44046>
44013>44050 10 0 0 0 0 SELECT LITERAL
44049>
44043>44051 5 61 34 0 0 0 PARA W/L TRANSFER
44052 0 66 10 0 0 0 DISC SELECT
44053 12 0 0 0 2 SUBTRACT LITERAL
44054 71 440 58 0 0 0 440 >TAKE YOUR CHANCE JUMP IF A != 0
44055 10 0 0 0 1 SELECT LITERAL
44056 3 66 10 0 0 0 COPY
44057 4 66 8 1 0 0 ADJUST ITEM AUGMENT
44054>44058 61 0 0 0 0 ACTION SELECT
44059 3 418 2 0 0 0 418 COPY
44060 31 0 0 0 1 SHIFT (A) BY BITS
44061 34 543 2 0 0 0 543 BIT 1 SET (N) IN B
44062 36 66 10 0 0 0 DISC COLLATE AND ADD
44063 31 0 0 0 2 SHIFT (A) BY BITS
44064 34 544 20 0 0 0 544 BITS 1+2 SET (N) IN B
44065 36 66 12 0 0 0 MOD DIGITS COLLATE AND ADD
44066 31 0 0 0 1 SHIFT (A) BY BITS
44067 30 0 0 0 3 SHIFT (A) BY QUARTETS
44068 3 61 0 0 0 0 COMBINED A/D/M COPY
44069 30 0 0 0 5- SHIFT (A) BY QUARTETS
44070 70 440 78 0 0 0 440 >POSITIVE ACTION JUMP IF A == 0
44071 61 0 0 0 0 SELECT
44072 71 440 75 0 0 0 440 >NOT 'O-' JUMP IF A != 0
44073 10 0 0 0 2 SELECT LITERAL
44074 5 67 1 0 0 0 SET IND TRANSFER
44072>44075 10 0 0 0 0 SELECT LITERAL
44076 2 61 0 0 0 0 SUBTRACT
44077 5 61 0 0 0 0 NEGATE ACTION TRANSFER
44070>44078 5 66 10 1 0 0 TRANSFER
44079 5 66 12 1 0 0 TRANSFER
44080 61 0 0 0 0 SELECT
44081 2 545 46 0 0 0 545 24/1/0 SUBTRACT
44082 70 441 2 0 0 0 441 >IS A SEQ CHANGE JUMP IF A == 0
Source image: P1000373.JPG
44083 418 2 0 0 0 418 SELECT
44084 12 0 0 0 1‼ TEST FOR 27/D/M SUBTRACT LITERAL
44085 71 441 6 0 0 0 441 >NO JUMP IF A != 0
44100 PROCR 441 441 M/C ACTIONS
44101 NOTES RADIX B SELECT
44082>44102 80 418 2 0 0 0 418 -S.C. S/R ENTER SUBROUTINE
44107>
44221>44103 80 531 2 0 0 0 531 -NEG NO S/R ENTER SUBROUTINE
42510>
41743>44104 80 532 2 0 0 0 532 - STACK ENTER SUBROUTINE
44105 76 382 10 0 0 0 382 - O/P GNB JUMP unconditional
44085>44106 66 14 0 0 0 LITERAL SELECT
44107 70 441 3 0 0 0 441 >NO 'M&P' JUMP IF A == 0
44108 30 0 0 0 1- SHIFT (A) BY QUARTETS
44109 80 537 2 0 0 0 537 >BIN ENTER SUBROUTINE
44110 5 66 12 0 0 0 SET EXTRA MOD DIGITS TRANSFER
44111 61 0 0 0 0 SELECT
44112 80 356 2 0 0 0 356 >COMPLEX O/PNON-ARITH ENTER SUBROUTINE
44113 76 362 2 0 0 0 362 >GNB JUMP unconditional
44200 PROCR 442 442 ACTION 123/0/0
44201 NOTES RADIX B SELECT
44009>44202 66 12 0 0 0 MOD SELECT
44203 34 66 10 0 0 0 DISC SET (N) IN B
44204 75 440 12 0 0 0 440 JUMP IF AB != 0
44205 5 61 34 0 0 0 SET PARA ZERO TRANSFER
44206 0 545 61 0 0 0 545 23/0/0 SELECT
44207 5 61 0 0 0 0 TRANSFER
44208 80 532 2 0 0 0 532 -STACK ENTER SUBROUTINE
44209 80 518 2 0 0 0 518 -O/P ENTER SUBROUTINE
44210 80 521 2 0 0 0 521 I/P INSTRUCTION ENTER SUBROUTINE
44211 66 6 0 0 0 SELECT
44212 70 442 19 0 0 0 442 -ABS ADD JUMP IF A == 0
44213 5 61 35 0 0 0 TRANSFER
44214 80 486 2 0 0 0 486 -DET CHAP ENTER SUBROUTINE
44215 3 61 34 0 0 0 COPY
44216 1 61 34 0 0 0 ADD
44217 70 442 19 0 0 0 442 >DON'T MAKE A PARA 1- JUMP IF A == 0
44218 12 0 0 0 1 SUBTRACT LITERAL
44217>
44212>44219 5 61 34 0 0 0 TRANSFER
44220 5 61 0 0 0 0 TRANSFER
44221 76 441 3 0 0 0 441 JUMP unconditional
44300 PROCR 443 443 CHEQUE-SORTER ACTIONS 132-134
44011>44302 80 534 2 0 0 0 534 >SUSPEND S/R ENTER SUBROUTINE
44303 76 387 5 0 0 0 387 JUMP unconditional
38762>44304 80 535 2 0 0 0 535 >REPLACE S/R ENTER SUBROUTINE
44305 66 8 0 0 0 SELECT
44306 5 66 6 1 0 0 >REF TRANSFER
44307 5 66 8 1 0 0 CLEAR ITEM TRANSFER
44308 5 66 10 1 0 0 &DISC TRANSFER
44309 5 66 12 1 0 0 &MOD TRANSFER
44310 80 534 2 0 0 0 534 >RE-SUSPEND S/R ENTER SUBROUTINE
44311 61 50 0 0 0 V+1 SELECT
44312 12 0 0 0 3 SUBTRACT LITERAL
44313 71 443 21 0 0 0 443 >133 OR 134 JUMP IF A != 0
44427>44314 545 66 0 0 0 545 24/0/2 SELECT
44315 80 356 2 0 0 0 356 >COMPLEX O/P ENTER SUBROUTINE
Source image: P1000374.JPG
44316 545 72 0 0 0 545 18/1/1 5- SELECT
44317 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
44318 5 61 50 0 0 0 CLEAR TRANSFER
44319 80 397 2 0 0 0 397 >'TEST CONTINUATION LINE' ENTER SUBROUTINE
44320 76 396 40 0 0 0 396 > JUMP unconditional
44313>44321 12 0 0 0 1 SUBTRACT LITERAL
44322 71 444 20 0 0 0 444 >ACTION 134 JUMP IF A != 0
44400 PROCR 444 444 CHEQUE-SORTER
44402 34 544 21 0 0 0 544 BITS 5-19 ACTION 133 SET (N) IN B
44403 124 66 6 0 1 0 REF(EX-ITEM) modify address of next
44404 36 70 0 0 0 0 COLLATE AND ADD
44405 30 0 0 0 1- SHIFT (A) BY QUARTETS
44406 12 0 0 0 2 SUBTRACT LITERAL
44407 1 545 13 0 0 0 545 BIT 18 ADD
44408 5 61 53 0 0 0 TRANSFER
44409 5 61 52 0 0 0 CLEAR TRANSFER
44410 545 8 0 0 0 545 6/0/0 SELECT
44411 80 357 2 0 0 0 357 >LONG NO O/P ENTER SUBROUTINE
44412 80 535 2 0 0 0 535 >REPLACE S/R ENTER SUBROUTINE
44413 545 65 0 0 0 545 28/0/0 SELECT
44414 80 356 2 0 0 0 356 COMPLEX O/P NON-A ENTER SUBROUTINE
44415 66 14 1 0 0 LITERAL SELECT
44416 1 545 22 0 0 0 545 1/1/3 ADD
44417 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
44418 545 72 0 0 0 545 18/1/1 5- SELECT
44419 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
44322>44420 80 522 2 0 0 0 522 >I/P C-LINE S/R ENTER SUBROUTINE
44421 66 6 2 0 0 C-LINE REF SELECT
44422 80 537 2 0 0 0 537 >BIN ENTER SUBROUTINE
44423 5 66 6 1 0 0 TRANSFER
44424 5 66 8 1 0 0 CLEAR ITEM, DISC, MOD DIGITS TRANSFER
44425 5 66 10 1 0 0 TRANSFER
44426 5 66 12 1 0 0 TRANSFER
44427 76 443 14 0 0 0 443 JUMP unconditional
44500 PROCR 445 445 GROUP 14
44501 NOTES RADIX SELECT
37218>44502 5 66 10 1 0 0 CLEAR DISC TRANSFER
44503 85 381 2 0 0 0 381 SWITCH R
44504 C 445 13 0 0 0 445 140
44505 C 445 17 0 0 0 445 141
44506 C 445 17 0 0 0 445 142
44507 C 445 17 0 0 0 445 143
44508 C 362 2 0 0 0 362 144
44509 C 445 17 0 0 0 445 145
44510 C 445 20 0 0 0 445 146
44511 C 445 23 0 0 0 445 147
44512 C 445 27 0 0 0 445 148
44504>44513 0 545 22 0 0 0 545 1/1/3/0 140 ACTION SELECT
44514 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
44515 0 545 36 0 0 0 545 1/0/1/0. SELECT
44516 76 382 9 0 0 0 382 O/P AND GNB JUMP unconditional
44509>
44507>
44506>
44505>44517 124 61 50 0 0 0 VARIANT+1 141-3 +145 ACTIONS modify address of next
44518 0 545 74 0 0 0 545 APPROXIMATE 30 ACTION. SELECT
44519 76 373 12 0 0 0 373 >COMPLEX O/P+GNB JUMP unconditional
44510>44520 10 0 0 0 0 146 ACTION SELECT LITERAL
Source image: P1000375.JPG
44521 80 446 2 0 0 0 446 GRP 14 SR ENTER SUBROUTINE
44522 76 362 2 0 0 0 362 GNB JUMP unconditional
44511>44523 0 545 79 0 0 0 545 30/0/0/8 147 ACTION SELECT
44524 80 446 2 0 0 0 446 GRP 14 SR ENTER SUBROUTINE
44525 0 545 81 0 0 0 545 31/0/0/8 SELECT
44526 76 361 8 0 0 0 361 >LN:2C+GNB JUMP unconditional
44512>44527 0 545 79 0 0 0 545 30/0/0/8 148 ACTION SELECT
44528 80 446 2 0 0 0 446 GRP 14 SR ENTER SUBROUTINE
44529 0 545 88 0 0 0 545 30/0/0 4 SELECT
44530 80 361 2 0 0 0 361 >LN:2C SR ENTER SUBROUTINE
44531 0 545 81 0 0 0 545 31/0/0 8 SELECT
44532 80 361 2 0 0 0 361 >LN:2C SR ENTER SUBROUTINE
44533 0 545 89 0 0 0 545 31/0/0 4 SELECT
44534 76 361 8 0 0 0 361 >LN:2C+GNB JUMP unconditional
44600 PROCR 446 446 SR FOR GROUP 14 ACTIONS
44601 NOTES RADIX B SELECT
44602 81 446 2 0 0 0 446 START OF SUBROUTINE
44603 70 446 5 0 0 0 446 JUMP IF A == 0
44604 80 361 2 0 0 0 361 >LN:2C SR ENTER SUBROUTINE
44603>44605 10 0 0 0 1 SELECT LITERAL
44606 5 66 10 1 0 0 SET DISC TRANSFER
44607 545 8 0 0 0 545 6/0/0 SELECT
44608 80 358 2 0 0 0 358 >COMPLEX O/P ARITH ENTER SUBROUTINE
44609 80 522 2 0 0 0 522 I/P CONT LINE SR ENTER SUBROUTINE
44610 10 0 0 0 1 SELECT LITERAL
44611 5 66 10 1 0 0 SET DISC TRANSFER
44612 545 14 0 0 0 545 9/0/0 SELECT
44613 80 358 2 0 0 0 358 >COMPLEX O/P ARITH ENTER SUBROUTINE
44614 82 446 2 0 0 0 446 END OF SUBROUTINE / LEAVE SUBROUTINE
44700 PROCR 447 447 GROUP 15 ACTIONS
44701 NOTES RADIX B SELECT
37219>44702 85 381 2 0 0 0 381 SWITCH R
44703 C 447 12 0 0 0 447 150=OPTIONS
44704 C 451 2 0 0 0 451 151=UNLOAD
44705 C 450 2 0 0 0 450 152=OVERLAY
44706 C 449 2 0 0 0 449 153
44707 C 450 11 0 0 0 450 154=COMMENT IN LOG
44708 C 448 20 0 0 0 448 155=SELECT PROG SERIAL>A
44709 C 448 24 0 0 0 448 156=RELEASE ROUTE
44710 C 448 37 0 0 0 448 157=EXPAND
44711 C 448 47 0 0 0 448 158=COMPARE
44703>44712 66 14 1 0 0 SELECT
44713 5 61 52 1 0 0 LITERAL=OPT NUMBER TRANSFER
44714 80 534 2 0 0 0 534 SUSPEND ENTER SUBROUTINE
44715 90 0 0 2 0 (TO STORE UP TO 10 LINES) SET MODIFICATION REGISTER AT LITERAL
44716 C 0 0 0 20
44725>44717 80 397 2 0 0 0 397 TEST C-LINE FOLLOWS ENTER SUBROUTINE
44718 71 448 2 0 0 0 448 >NO JUMP IF A != 0
44719 66 6 1 0 0 SELECT
44720 30 0 0 0 2 SHIFT (A) BY QUARTETS
44721 1 66 8 1 0 0 ITEM ADD
44722 5 61 54 0 2 0 TRANSFER
44723 0 66 2 1 0 0 LINE SERIAL NUMBER SELECT
44724 5 61 55 0 2 0 TRANSFER
44725 94 447 17 0 2 2 447 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
44800 PROCR 448 448 GROUP 15
44801 NOTES RADIX B SELECT
Source image: P1000376.JPG
44718>44802 96 0 0 2 0 SELECT MODIFIER
44803 3 66 22 1 0 0 W/L STORE MR2 COPY
44804 31 0 0 0 1- FORM NUMBER OF C-LINES SHIFT (A) BY BITS
44805 5 61 23 0 0 0 NUMBER OF C-LINES TRANSFER
45010>44806 61 52 1 0 0 SUSPENDED LITERAL TEST OPTION NO. SELECT
44807 71 448 12 0 0 0 448 GIVEN IN A COMPARTMEJUMP IF A != 0
44808 80 535 2 0 0 0 535 RESTORE FIRST LINE ENTER SUBROUTINE
44809 545 8 0 0 0 545 6/0/0 SELECT
44810 80 358 2 0 0 0 358 >COMPLEX O/P ARITH ENTER SUBROUTINE
44811 76 448 15 0 0 0 448 JUMP unconditional
44807>44812 545 22 0 0 0 545 1/1/3 SELECT
44813 1 61 52 0 0 0 LITERAL ADD
44814 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
44811>44815 0 61 23 0 0 0 NO OF C-LINES SELECT
44816 5 61 52 1 0 0 W/L FOR SN CONST S/R TRANSFER
44817 545 27 0 0 0 545 0/0/2 SELECT
44818 80 357 2 0 0 0 357 >SHORT NO O/P S/R ENTER SUBROUTINE
44819 76 451 2 0 0 0 451 JUMP unconditional
44708>44820 72 0 1 0 0 ALPHA SERIAL ACTION 155 SELECT
44821 5 61 52 1 0 0 TRANSFER
44822 545 8 0 0 0 545 6/0/0 SELECT
44823 76 378 4 0 0 0 378 >O/P+GNB JUMP unconditional
44709>44824 80 508 2 0 0 0 508 >0/1/0.0/0/3 SR ACTION 156 ENTER SUBROUTINE
44825 66 6 1 0 0 FILE ID SELECT
44826 5 61 54 0 0 0 TRANSFER
44827 80 499 2 0 0 0 499 EXIT WITH(A)=ROUTE PARA ENTER SUBROUTINE
44828 1 545 8 0 0 0 545 6/0/0 ADD
44829 80 355 2 0 0 0 355 >O/P ENTER SUBROUTINE
44830 80 453 2 0 0 0 453 >O/P 25/1/1 4096,24/0/3 ENTER SUBROUTINE
44831 10 0 0 0 900 9 IN Q3 SELECT LITERAL
44832 5 67 1 0 0 0 TRANSFER
44833 545 60 0 0 0 545 23/0/2 SELECT
44834 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
44835 80 399 2 0 0 0 399 0/1/1 O/P ENTER SUBROUTINE
44836 76 362 2 0 0 0 362 >NEXT BLOCK JUMP unconditional
44710>44837 5 66 10 1 0 0 CLEAR DISC ACTION 157 TRANSFER
44838 80 522 2 0 0 0 522 >SUSPEND, I/P C-LINE ENTER SUBROUTINE
44839 10 0 0 0 0 SELECT LITERAL
44840 5 66 10 1 0 0 CLEAR C-LINE DISC TRANSFER
44841 0 545 66 0 0 0 545 24/0/2 SELECT
44842 80 356 2 0 0 0 356 >COMPLEX O/P NON-A ENTER SUBROUTINE
44843 80 535 2 0 0 0 535 >RESTORE ENTER SUBROUTINE
44844 0 546 27 0 0 0 546 29/0/3 SELECT
44845 80 356 2 0 0 0 356 >COMPLEX O/P NON-A ENTER SUBROUTINE
44846 76 401 19 0 0 0 401 >JOIN UP WITH 51 ACTION JUMP unconditional
44711>44847 5 66 10 1 0 0 CLEAR DISC ACTION 158 TRANSFER
44848 0 66 14 0 0 0 LITERAL SELECT
44849 70 448 51 0 0 0 448 >16/1/0 ORDER JUMP IF A == 0
44850 10 0 0 0 2000- (MAKE 16/1/1) SELECT LITERAL
44849>44851 1 546 28 0 0 0 546 16/1/0 ADD
44852 76 403 12 0 0 0 403 >COMPLEX O/P NON-A * GNB JUMP unconditional
44900 PROCR 449 449 ACTION 153=SELECT DATE, TIME
44901 NOTES 0 0 SELECT
44706>44902 0 545 73 0 0 0 545 25/1/1 4096 SELECT
44903 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
44904 546 18 0 0 0 546 23/0/22 SELECT
44905 80 498 2 0 0 0 498 >O/P INT SC ENTER SUBROUTINE
44906 546 13 0 0 0 546 24/1/0/7 SELECT
44907 80 498 2 0 0 0 498 >O/P INT SC ENTER SUBROUTINE
Source image: P1000377.JPG
44908 80 359 2 0 0 0 359 >O/P 0/0/0 (LINK) ENTER SUBROUTINE
44909 80 504 2 0 0 0 504 >O/P 24/0/3 0 ENTER SUBROUTINE
44910 0 545 95 0 0 0 545 0/0/2 156 SELECT
44911 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
44912 80 504 2 0 0 0 504 >O/P 24/0/3 0 ENTER SUBROUTINE
44913 0 545 93 0 0 0 545 6/1/0 138 SELECT
44914 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
44915 546 14 0 0 0 546 26/0/3/5- SELECT
44916 80 498 2 0 0 0 498 >O/P INT SC ENTER SUBROUTINE
44917 76 362 2 0 0 0 362 >GNB JUMP unconditional
45000 PROCR 450 450 GROUP 15
45001 NOTES RADIX B ACTIONS 152 AND 154 SELECT
44705>45002 80 522 2 0 0 0 522 -I/P C-LINE S/R ENTER SUBROUTINE
45003 66 6 1 0 0 SELECT
45004 5 61 35 0 0 0 TRANSFER
45005 80 486 2 0 0 0 486 DETERMINE CHAPTER ENTER SUBROUTINE
45006 5 61 23 0 0 0 CORRECTED CHAP TRANSFER
45007 0 61 18 0 0 0 UNCORRECTED CHAPTER SELECT
45008 5 61 52 1 0 0 TRANSFER
45009 80 508 2 0 0 0 508 -0/1/0 0/0/3 S/R ENTER SUBROUTINE
45010 76 448 6 0 0 0 448 - JUMP unconditional
44707>45011 5 66 10 1 0 0 CLEAR DISC TRANSFER
45012 5 66 12 1 0 0 HOD TRANSFER
45013 80 508 2 0 0 0 508 >0/1/0+0/0/3 ENTER SUBROUTINE
45014 0 545 66 0 0 0 545 24/0/2 SELECT
45015 80 356 2 0 0 0 356 >COMPLEX O/P NON-A ENTER SUBROUTINE
45100 PROCR 451 451 GROUP 15
45101 NOTES RADIX B SELECT
44819>
44704>45102 80 453 2 0 0 0 453 -NON INTERRUPT S/R ENTER SUBROUTINE
45103 61 50 0 0 0 SELECT
45104 12 0 0 0 3 SUBTRACT LITERAL
45105 72 452 26 0 0 0 452 >ACTIONS 152,154 JUMP IF A >= 0
45106 124 61 50 0 1 0 modify address of next
45107 0 545 95 0 0 0 545 SELECT
45108 5 67 1 0 0 0 'SEQ CHANGE' IND TRANSFER
45109 0 545 63 0 0 0 545 26/0/2 SELECT
45110 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
45111 61 50 0 0 0 SELECT
45112 12 0 0 0 2 SUBTRACT LITERAL
45113 70 362 2 0 0 0 362 GNB IF 151 ACTION JUMP IF A == 0
45200 PROCR 452 452 GROUP 15
45201 NOTES RADIX B ACTION 150 SELECT
45202 66 22 1 0 0 STORED VALUE OF MR2 SELECT
45203 30 0 0 0 5 SET E.V. AT MODIFIERAND MODIFIER ZERO SHIFT (A) BY QUARTETS
45204 70 362 3 0 0 0 362 >GNB(NO C-LINES) JUMP IF A == 0
45205 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
45224>45206 34 61 54 0 3 0 DEST SET (N) IN B
45207 10 0 0 0 0 SELECT LITERAL
45208 32 0 0 0 8 SHIFT (AB) BY QUARTETS
45209 3 66 6 0 0 0 COPY
45210 5 61 35 0 0 0 TRANSFER
45211 32 0 0 0 2 SHIFT (AB) BY QUARTETS
45212 5 66 8 0 0 0 TRANSFER
45213 80 486 2 0 0 0 486 -DET CHAP ENTER SUBROUTINE
45214 3 61 34 0 0 0 PARA COPY
45215 70 452 17 0 0 0 452 >DON'T MAKE PARA 1 JUMP IF A == 0
Source image: P1000378.JPG
45216 12 0 0 0 1 SUBTRACT LITERAL
45215>45217 4 61 34 0 0 0 AUGMENT
45218 0 61 55 0 3 0 SOURCE SELECT
45219 5 66 2 1 0 0 TRANSFER
45220 5 61 0 0 0 0 CLEAR ACTION W/L TRANSFER
45221 80 418 2 0 0 0 418 S.C. S/R ENTER SUBROUTINE
45222 80 532 2 0 0 0 532 STACK ENTER SUBROUTINE
45223 80 518 2 0 0 0 518 O/P ENTER SUBROUTINE
45224 94 452 6 0 3 2 452 >NEXT C-LINE STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
45225 76 362 3 0 0 0 362 JUMP unconditional
45105>45226 124 61 50 0 0 0 modify address of next
45227 0 545 89 0 0 0 545 SEQ CHANGE IND SELECT
45228 5 67 1 0 0 0 TRANSFER
45229 0 545 60 0 0 0 545 23/0/2 SELECT
45230 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
45231 80 399 2 0 0 0 399 RESTORES ABC ENTER SUBROUTINE
45232 76 362 2 0 0 0 362 GNB JUMP unconditional
45300 PROCR 453 453 SET NON-INTERRUPTIBLE S/R
45301 NOTES RADIX B GROUPS 4 AND 15 BEFORE ENTER MASTER SELECT
45302 81 453 2 0 0 0 453 START OF SUBROUTINE
45303 545 73 0 0 0 545 25/1/1/4096 SELECT
45304 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
45305 80 504 2 0 0 0 504 >O/P 24/0/3 0 ENTER SUBROUTINE
45306 82 453 2 0 0 0 453 END OF SUBROUTINE / LEAVE SUBROUTINE
45400 PROCR 454 454 CONSTANTS
45401 NOTES RADIX B SELECT
35205>45402 54 61 55 0 0 14 CLEAR W/LS BULK CLEAR
45403 80 463 2 0 0 0 463 -PREP S/R ENTER SUBROUTINE
45404 80 464 2 0 0 0 464 -GET NEXT CHAR S/R ENTER SUBROUTINE
45818>45405 10 0 0 0 0 SELECT LITERAL
45500 PROCR 455 455 CONSTANTS
45501 NOTES RADIX B SELECT
46132>45502 80 464 2 0 0 0 464 -GET NEXT CHAR ENTER SUBROUTINE
45503 10 0 0 0 1 SELECT LITERAL
45504 5 61 30 0 0 0 DEFN LINE IND TRANSFER
45505 5 61 98 1 0 0 TRANSFER
45506 91 61 60 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
45507 61 24 0 0 0 THIS CHARACTER SELECT
45508 12 0 0 0 51 A SUBTRACT LITERAL
45509 70 456 6 0 0 0 456 JUMP IF A == 0
45510 12 0 0 0 1 B SUBTRACT LITERAL
45511 70 456 3 0 0 0 456 JUMP IF A == 0
45512 12 0 0 0 1 SUBTRACT LITERAL
45513 71 455 16 0 0 0 455 > NOT 'C' JUMP IF A != 0
45514 10 0 0 0 10 16 SELECT LITERAL
45515 76 455 21 0 0 0 455 >SET AS SUBFIELD LENGTH JUMP unconditional
45513>45516 12 0 0 0 1 SUBTRACT LITERAL
45517 70 456 4 0 0 0 456 JUMP IF A == 0
45518 12 0 0 0 13 P SUBTRACT LITERAL
45519 70 456 5 0 0 0 456 JUMP IF A == 0
45520 10 0 0 0 £ HENCE 'R' SELECT LITERAL
45515>45521 5 61 55 0 2 0 SUBFIELD LENGTH TRANSFER
45600 PROCR 456 456 CONSTANTS
45601 NOTES RADIX SELECT
45602 10 0 0 0 1 R,C=5 SELECT LITERAL
45511>45603 11 0 0 0 1 B=4 ADD LITERAL
Source image: P1000379.JPG
45517>45604 11 0 0 0 1 ADD LITERAL
45519>45605 11 0 0 0 1 ADD LITERAL
45509>45606 11 0 0 0 1 ADD LITERAL
45607 3 61 62 0 2 0 SWITCH SETTING COPY
45608 84 458 2 0 0 0 458 SET SWITCH(ES) AT VARIABLE VALUE
45616>45609 80 464 2 0 0 0 464 GET NEXT CHAR ENTER SUBROUTINE
45610 12 0 0 0 7‼ SUBTRACT LITERAL
45611 70 457 2 0 0 0 457 JUMP IF A == 0
45612 0 61 98 1 0 0 COLLECT * IN'(B*)' DIRECTIVE SELECT
45613 30 0 0 0 2 SHIFT (A) BY QUARTETS
45614 1 61 24 0 0 0 THIS CHAR ADD
45615 5 61 98 1 0 0 TRANSFER
45616 76 456 9 0 0 0 456 LOOP UNTIL')'FOUND JUMP unconditional
45700 PROCR 457 457 CONSTANTS
45701 NOTES RADIX B SELECT
45611>45702 32 0 0 0 10 PRESERVE B DURING CURRENT SHIFT (AB) BY QUARTETS
45703 5 61 96 1 0 0 TRANSFER
45704 61 98 2 0 0 SELECT
45705 80 537 2 0 0 0 537 CONVERT NO OF BITS FOR BIN CONSTANT ENTER SUBROUTINE
45706 73 457 8 0 0 0 457 >SAFETY DEVICE JUMP IF A < 0
45707 4 61 55 0 2 0 AUG SHIFT CONTROL AUGMENT
45706>45708 34 61 96 1 0 0 RESTORE B SET (N) IN B
46814>
46816>
46819>45709 10 0 0 0 0 SELECT LITERAL
45800 PROCR 458 458 CONSTANTS MAIN LOOP
45801 NOTES RADIX B SELECT
46711>
46909>
46918>
47008>45802 80 464 2 0 0 0 464 GET NEXT CHAR ENTER SUBROUTINE
46008>
46128>
47206>45803 12 0 0 0 7Ю SUBTRACT LITERAL
45804 70 458 15 0 0 0 458 >YES JUMP IF A == 0
45805 12 0 0 0 2 SUBTRACT LITERAL
45806 70 460 2 0 0 0 460 JUMP IF A == 0
45807 12 0 0 0 1 SUBTRACT LITERAL
45808 70 461 2 0 0 0 461 >END OF CONSTANT JUMP IF A == 0
45809 85 458 2 0 0 0 458 SWITCH R
45810 C 467 2 0 0 0 467 ALPHA
45811 C 468 2 0 0 0 468
45812 C 469 2 0 0 0 469
45813 C 471 2 0 0 0 471
45814 C 473 2 0 0 0 473
45804>45815 10 0 0 0 1 SELECT LITERAL
45816 5 61 61 0 0 0 MIXED CONST IND TRANSFER
45817 80 459 2 0 0 0 459 >SHIFT UP PREVIOUS SUBFIELD ENTER SUBROUTINE
45818 76 454 5 0 0 0 454 >GET NEXT CHAR JUMP unconditional
45900 PROCR 459 459 CONSTANT S/R
45901 NOTES RADIX B ADD THIS SUBFIELD TO PREVIOUS ONES SELECT
45902 81 459 2 0 0 0 459 START OF SUBROUTINE
45903 0 61 26 1 0 0 CONSTANT TO DATE SELECT
45904 124 61 60 0 0 0 SUBFIELD CTR modify address of next
45905 124 61 55 0 0 0 LENGTH OF SUBFIELD IN BITE modify address of next
45906 31 0 0 0 0 ///// SHIFT (A) BY BITS
45907 1 61 28 1 0 0 VALUE OF CURRENT SUBCONST ADD
Source image: P1000380.JPG
45908 5 61 26 1 0 0 TRANSFER
45909 5 61 28 1 0 0 TRANSFER
45910 10 0 0 0 1 SELECT LITERAL
45911 4 61 60 0 0 0 STEP SF CTR AUGMENT
45912 82 459 2 0 0 0 459 END OF SUBROUTINE / LEAVE SUBROUTINE
46000 PROCR 460 460
46001 NOTES RADIX B SELECT
45806>46002 80 464 2 0 0 0 464 >GET NEXT CHAR AFTER COMMA ENTER SUBROUTINE
46003 80 459 2 0 0 0 459 >ADD IN SUBCONST PRECEDING COMMA ENTER SUBROUTINE
46126>46004 91 61 60 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
46005 84 458 2 0 0 0 458 SET SWITCH(ES) AT VARIABLE VALUE
46006 C 61 62 0 2 0 NET SUBFIELD TYPE
46007 61 24 0 0 0 NEXT CHAR AFTER COMMA SELECT
46008 76 458 3 0 0 0 458 JUMP unconditional
46100 PROCR 461 461
46101 NOTES RADIX B SELECT
45808>46102 80 459 2 0 0 0 459 >ADD IN FINAL SUBCONST ENTER SUBROUTINE
46103 61 32 0 0 0 NEG IND SELECT
46104 70 461 13 0 0 0 461 >CONSTANT IS POSITIVE JUMP IF A == 0
46105 61 47 0 0 0 CONST TYPE SELECT
46106 70 461 11 0 0 0 461 SHORT CONST JUMP IF A == 0
46107 10 0 0 0 0 SELECT LITERAL
46108 2 61 26 1 0 0 SUBTRACT
46109 5 61 26 1 0 0 TRANSFER
46110 76 461 13 0 0 0 461 COMPLEMENT CONST LONG OR SHORT JUMP unconditional
46106>46111 2 61 26 0 0 0 SUBTRACT
46112 5 61 26 0 0 0 TRANSFER
46319>
46110>
46104>46113 6 2 12 0 SELECT
46114 5 61 31 0 0 0 SET END IND TRANSFER
46115 80 511 2 0 0 0 511 >PRINT ENTER SUBROUTINE
46116 80 462 2 0 0 0 462 >CONST O/P SR ENTER SUBROUTINE
46117 61 31 0 0 0 END IND SELECT
46118 71 362 2 0 0 0 362 >YES, GNB JUMP IF A != 0
46119 80 509 2 0 0 0 509 -I/P ENTER SUBROUTINE
46120 80 463 2 0 0 0 463 -PREP S/R ENTER SUBROUTINE
46121 10 0 0 0 0 CLEAR A FOR GET NEXT CHARACTER S/R SELECT LITERAL
46122 80 464 2 0 0 0 464 -GET NEXT CHAR ENTER SUBROUTINE
46123 12 0 0 0 7Ю 122 SUBTRACT LITERAL
46124 70 461 29 0 0 0 461 >THIS IS A DIRECTIVE LINE JUMP IF A == 0
46125 61 61 0 0 0 SELECT
46126 71 460 4 0 0 0 460 >THIS IS A MIXED CONSTANT JUMP IF A != 0
46127 61 24 0 0 0 NEXT CHARACTER SELECT
46128 76 458 3 0 0 0 458 - JUMP unconditional
46124>46129 5 61 55 0 0 0 TRANSFER
46130 5 61 56 1 0 0 TRANSFER
46131 5 61 58 1 0 0 TRANSFER
46132 76 455 2 0 0 0 455 >GET DIRECTIVE LETTER JUMP unconditional
46200 PROCR 462 462
46201 NOTES RADIX B SELECT
46202 81 462 2 0 0 0 462 START OF SUBROUTINE
46203 61 27 0 0 0 MOST SIG HALF LONG CONST SELECT
46204 5 67 3 0 0 0 TRANSFER
46205 61 26 0 0 0 LEAST SIG HALF SELECT
46206 124 61 68 0 0 0 0 OR 2 modify address of next
46207 5 67 1 0 0 0 TRANSFER
Source image: P1000381.JPG
46208 61 47 0 0 0 CONST TYPE SELECT
46209 71 462 16 0 0 0 462 -LONG NO CONST JUMP IF A != 0
46210 61 31 0 0 0 NONZERO IF FINAL CONST IN SECTION SELECT
46211 71 462 16 0 0 0 462 - JUMP IF A != 0
46212 10 0 0 0 2 SELECT LITERAL
46213 2 61 68 0 0 0 SUBTRACT
46214 3 61 68 0 0 0 COPY
46215 71 462 23 0 0 0 462 >FIRST TIME THROUGH JUMP IF A != 0
46211>
46209>46216 61 26 1 0 0 SELECT
46217 72 462 22 0 0 0 462 JUMP IF A >= 0
46218 61 27 0 0 0 SELECT
46219 71 462 22 0 0 0 462 >MOST SIG HALF IS NOT MINUS ZERO JUMP IF A != 0
46220 10 0 0 0 80 B8 SELECT LITERAL
46221 4 67 2 0 0 0 PARAMETER AUGMENT
46219>
46217>46222 80 518 2 0 0 0 518 O/P ENTER SUBROUTINE
46215>46223 82 462 2 0 0 0 462 END END OF SUBROUTINE / LEAVE SUBROUTINE
46300 PROCR 463 463
46301 NOTES RADIX B CONSTANTS PREP S/R SELECT
46302 81 463 2 0 0 0 463 START OF SUBROUTINE
46303 54 61 26 0 0 8 CLEAR W/L'S BULK CLEAR
46304 77 2 1 0 0 AMEND IND SELECT
46305 5 7 2 1 0 0 TRANSFER
46306 77 4 1 0 0 LINE SERIAL SELECT
46307 5 7 6 1 0 0 TRANSFER
46308 55 77 8 1 0 18 COPY CONSTANTS BULK COPY
46309 C 7 12 1 0 0
46310 77 26 1 0 0 PASS 1 REPORTS SELECT
46311 5 7 48 1 0 0 TRANSFER
46312 55 77 28 1 0 16 COPY ANNOTATION BULK COPY
46313 C 7 32 1 0 0
46314 0 61 68 0 0 0 O/P IND SELECT
46315 71 463 17 0 0 0 463 >SECOND HALF OF SHORT CONST JUMP IF A != 0
46316 5 67 0 0 0 0 CLEAR THIS TRANSFER
46315>46317 7 46 1 0 0 SELECT
46318 2 542 28 1 0 0 542 IGNORE TRANSLATION IND SUBTRACT
46319 70 461 13 0 0 0 461 >YES, GO TO PRINT JUMP IF A == 0
46320 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
46321 C 0 0 0 10
46322 34 77 8 1 0 0 FIRST WORD OF CONSTANT SET (N) IN B
46323 10 0 0 0 2 SELECT LITERAL
46324 5 61 38 0 0 0 SET MOD CTR TRANSFER
46325 5 61 60 0 0 0 S/F MOD TRANSFER
46326 82 463 2 0 0 0 463 END OF SUBROUTINE / LEAVE SUBROUTINE
46400 PROCR 464 464 GET NEXT CHAR S/R
46401 NOTES RADIX B SELECT
46402 81 464 2 0 0 0 464 START OF SUBROUTINE
46403 32 0 0 0 2 SHIFT (AB) BY QUARTETS
46404 5 61 24 1 0 0 THIS CHAR W/L TRANSFER
46405 94 464 12 0 3 2 464 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
46406 124 61 38 0 0 0 modify address of next
46407 34 77 8 1 0 0 NEXT WORD SET (N) IN B
46408 10 0 0 0 2 SELECT LITERAL
46409 4 61 38 0 0 0 AUGMENT
46410 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
46411 C 0 0 0 10
46405>46412 61 24 1 0 0 SELECT
Source image: P1000382.JPG
46413 82 464 2 0 0 0 464 END OF SUBROUTINE / LEAVE SUBROUTINE
46500 PROCR 465 465 TEST (,NE S/R
46501 NOTES RADIX B CONSTANTS SELECT
46502 81 465 2 0 0 0 465 START OF SUBROUTINE
46503 12 0 0 0 7Ю ( SUBTRACT LITERAL
46504 70 465 8 0 0 0 465 JUMP IF A == 0
46505 12 0 0 0 2 , SUBTRACT LITERAL
46506 70 465 8 0 0 0 465 JUMP IF A == 0
46507 12 0 0 0 1 NE SUBTRACT LITERAL
46506>
46504>46508 82 465 2 0 0 0 465 END OF SUBROUTINE / LEAVE SUBROUTINE
46600 PROCR 466 466 PUT THIS CHAR INTO O/P WORD S/R
46601 NOTES RADIX B SELECT
46602 81 466 2 0 0 0 466 START OF SUBROUTINE
46603 61 28 1 0 0 SELECT
46604 30 0 0 0 1 SHIFT (A) BY QUARTETS
46605 1 61 24 2 0 0 NEXT CHAR(BASIC ONLY) ADD
46606 5 61 28 1 0 0 TRANSFER
46607 82 466 2 0 0 0 466 END OF SUBROUTINE / LEAVE SUBROUTINE
46700 PROCR 467 467 ALPHA CONSTANTS
46701 NOTES RADIX B SELECT
45810>46702 61 30 0 0 0 DEFN LINE IND SELECT
46703 70 467 7 0 0 0 467 >NO JUMP IF A == 0
46704 10 0 0 0 8 SELECT LITERAL
46705 124 61 60 0 0 0 SF CTR modify address of next
46706 4 61 55 0 0 0 AUG SF LENGTH BY 8 FOR EACH ALPHA CHAR AUGMENT
46703>46707 61 28 1 0 0 SELECT
46708 30 0 0 0 2 SHIFT (A) BY QUARTETS
46709 1 61 24 0 0 0 ADD
46710 5 61 28 1 0 0 ADD IN THIS CHAR TO SUBCONST TRANSFER
46711 76 458 2 0 0 0 458 JUMP unconditional
46800 PROCR 468 468 BINARY PATTERNS
46801 NOTES RADIX B SELECT
45811>46802 0 61 24 0 0 0 THIS CHARACTER SELECT
46803 12 0 0 0 10 MINUS SIGN SUBTRACT LITERAL
46804 70 468 15 0 0 0 468 JUMP IF A == 0
46805 0 61 30 0 0 0 SELECT
46806 70 468 10 0 0 0 468 > NOT DEFINITION LINE JUMP IF A == 0
46807 10 0 0 0 1 SELECT LITERAL
46808 124 61 60 0 0 0 SF MOD modify address of next
46809 4 61 55 0 0 0 AUG SF LENGTH BY 1 BIT PER CHAR AUGMENT
46806>46810 61 28 1 0 0 SELECT
46811 1 61 28 1 0 0 ADD
46812 1 61 24 2 0 0 ADD
46813 5 61 28 1 0 0 ADD THIS BIT INTO SUBCONST TRANSFER
46814 76 457 9 0 0 0 457 JUMP unconditional
46804>46815 0 61 60 0 0 0 TEST FIRST SUBFIELD SELECT
46816 71 457 9 0 0 0 457 JUMP IF A != 0
46817 10 0 0 0 1 SELECT LITERAL
46818 5 61 32 0 0 0 NEG INDICATOR TRANSFER
46819 76 457 9 0 0 0 457 JUMP unconditional
46900 PROCR 469 469 DECIMAL CONSTS (-VE)
46901 NOTES RADIX B SELECT
45812>46902 61 24 0 0 0 SELECT
46903 12 0 0 0 10 NEG SIGN SUBTRACT LITERAL
Source image: P1000383.JPG
46904 71 470 2 0 0 0 470 JUMP IF A != 0
46905 61 60 0 0 0 S/F MOD SELECT
46906 71 469 10 0 0 0 469 NOT FIRST MOD JUMP IF A != 0
46907 10 0 0 0 1 SELECT LITERAL
46908 5 61 32 0 0 0 NEG IND TRANSFER
46909 76 458 2 0 0 0 458 JUMP unconditional
46906>46910 10 0 0 0 1 BIT 1 SELECT LITERAL
46911 124 61 60 0 0 0 SF MOD modify address of next
46912 124 61 55 0 0 0 SF LENGTH modify address of next
46913 31 0 0 0 0 ///// SHIFT (A) BY BITS
46914 60 0 0 0 0 SET DECIMAL RADIX
46915 2 61 28 1 0 0 FORM N BIT SUBTRACT
46916 5 61 28 1 0 0 DEC COMPT TRANSFER
46917 62 0 0 0 0 SET EXCESS CONSTANTS
46918 76 458 2 0 0 0 458 JUMP unconditional
47000 PROCR 470 470 DECIMAL CONSTANTS (+VE)
47001 NOTES RADIX B SELECT
46904>47002 61 30 0 0 0 SELECT
47003 70 470 7 0 0 0 470 >NOT DIRECTIVE LINE JUMP IF A == 0
47004 10 0 0 0 4 SELECT LITERAL
47005 124 61 60 0 0 0 SF MOD modify address of next
47006 4 61 55 0 0 0 AUG SF LENGTH BY 4 BITS PER CHAR AUGMENT
47003>47007 80 466 2 0 0 0 466 >ADD THIS CHAR TO O/P WORD ENTER SUBROUTINE
47008 76 458 2 0 0 0 458 JUMP unconditional
47100 PROCR 471 471
47101 NOTES RADIX B BINARY NO CONSTANTS SELECT
47111>
45813>47102 61 24 0 0 0 SELECT
47103 12 0 0 0 10 -SIGN SUBTRACT LITERAL
47104 71 471 8 0 0 0 471 JUMP IF A != 0
47105 10 0 0 0 1 SELECT LITERAL
47106 5 61 33 0 0 0 TRANSFER
47107 76 471 9 0 0 0 471 JUMP unconditional
47104>47108 80 466 2 0 0 0 466 -THIS CHAR SET UP O/P ENTER SUBROUTINE
47107>47109 80 464 2 0 0 0 464 -GET NEXT CHAR ENTER SUBROUTINE
47110 80 465 2 0 0 0 465 -TEST S/R ENTER SUBROUTINE
47111 71 471 2 0 0 0 471 JUMP IF A != 0
47112 32 0 0 0 10 SHIFT (AB) BY QUARTETS
47113 5 61 34 1 0 0 PRESERVE B TRANSFER
47114 61 28 1 0 0 DEC VALUE OF CONST SELECT
47115 80 537 2 0 0 0 537 CONVERT ENTER SUBROUTINE
47116 5 61 28 1 0 0 TRANSFER
47117 34 61 34 1 0 0 RESTORE B SET (N) IN B
47118 61 33 0 0 0 NEG IND FOR BIN CONSTS SELECT
47119 70 472 5 0 0 0 472 >NOT NEGATIVE JUMP IF A == 0
47120 61 60 0 0 0 S/F MOD SELECT
47121 70 472 2 0 0 0 472 >FIRST S/F JUMP IF A == 0
47122 10 0 0 0 1 SELECT LITERAL
47123 124 61 60 0 0 0 S/F MOD modify address of next
47124 124 61 55 0 0 0 S/F LENGTH=N modify address of next
47125 31 0 0 0 0 ///// SHIFT (A) BY BITS
47126 2 61 28 1 0 0 FORM N-BIT COMPT SUBTRACT
47127 5 61 28 1 0 0 TRANSFER
47128 76 472 4 0 0 0 472 JUMP unconditional
47200 PROCR 472 472 BINARY NO CONSTS
47201 NOTES RADIX SELECT
47121>47202 10 0 0 0 1 SELECT LITERAL
Source image: P1000384.JPG
47203 5 61 32 0 0 0 NEG IND TRANSFER
47128>47204 5 61 33 0 0 0 BIN NO NEG IND TRANSFER
47432>
47119>47205 61 24 0 0 0 SELECT
47206 76 458 3 0 0 0 458 - JUMP unconditional
47300 PROCR 473 473
47301 NOTES RADIX RELATIVE ADDRESS CONSTS SELECT
47310>
45814>47302 61 24 0 0 0 SELECT
47303 12 0 0 0 4: SUBTRACT LITERAL
47304 70 474 2 0 0 0 474 >COLON JUMP IF A == 0
47305 11 0 0 0 4: ADD LITERAL
47306 80 465 2 0 0 0 465 -TEST S/R ENTER SUBROUTINE
47307 70 474 24 0 0 0 474 JUMP IF A == 0
47308 80 466 2 0 0 0 466 -THIS CHAR SET UP O/P ENTER SUBROUTINE
47309 80 464 2 0 0 0 464 -GET NEXT CHAR ENTER SUBROUTINE
47310 76 473 2 0 0 0 473 JUMP unconditional
47400 PROCR 474 474 RELATIVE ADDRESS CONSTS
47401 NOTES RADIX B SELECT
47304>47402 32 0 0 0 10 SHIFT (AB) BY QUARTETS
47403 5 61 98 1 0 0 STORE REGISTER B TRANSFER
47404 61 28 1 0 0 SELECT
47405 80 537 2 0 0 0 537 CONVERT ENTER SUBROUTINE
47406 5 61 35 0 0 0 TRANSFER
47407 91 61 68 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
47408 80 486 2 0 0 0 486 -DET CHAP S/R ENTER SUBROUTINE
47409 3 67 0 0 2 0 PARA COPY
47410 70 474 13 0 0 0 474 ABS ADD JUMP IF A == 0
47411 12 0 0 0 1 =2C-1 SUBTRACT LITERAL
47412 4 67 0 0 2 0 AUGMENT
47410>47413 61 35 0 0 0 REF SELECT
47414 30 0 0 0 2 SHIFT (A) BY QUARTETS
47415 4 67 0 0 2 0 AUGMENT
47416 10 0 0 0 0 SELECT LITERAL
47417 5 61 28 1 0 0 CLEAR FOR ITEM TRANSFER
47418 34 61 98 1 0 0 SET (N) IN B
47423>47419 80 464 2 0 0 0 464 >GET NEXT CHAR ENTER SUBROUTINE
47420 80 465 2 0 0 0 465 >TEST S/R ENTER SUBROUTINE
47421 70 474 26 0 0 0 474 JUMP IF A == 0
47422 80 466 2 0 0 0 466 >THIS CHAR SET UP O/P ENTER SUBROUTINE
47423 76 474 19 0 0 0 474 JUMP unconditional
47307>47424 91 61 68 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
47425 5 67 0 0 2 0 TRANSFER
47421>47426 32 0 0 0 10 SHIFT (AB) BY QUARTETS
47427 5 61 34 1 0 0 STORE 2 TRANSFER
47428 61 28 1 0 0 SELECT
47429 80 537 2 0 0 0 537 CONVERT ITEM ENTER SUBROUTINE
47430 5 61 28 1 0 0 TRANSFER
47431 34 61 34 1 0 0 REPLACE B SET (N) IN B
47432 76 472 5 0 0 0 472 JUMP unconditional
47500 PROCR 475 475 TABLE ENTRIES
47501 NOTES RADIX B SELECT
35204>47502 50 77 2 0 0 0 UNPACK FIXED FIELD DATA
47503 C 549 2 0 0 0 549
47504 52 7 2 0 0 0 EDIT TABLES EDIT
47505 C 549 2 0 0 0 549
47506 77 22 1 0 0 PASS 1 REPORTS SELECT
Source image: P1000385.JPG
47507 5 7 48 1 0 0 TRANSFER
47508 55 77 24 1 0 16 COPY ANNOTATION BULK COPY
47509 C 7 32 1 0 0
47510 80 511 2 0 0 0 511 PRINT ENTER SUBROUTINE
47600 PROCR 476 476 TABLE ENTRIES
47601 NOTES RADIX B SELECT
47602 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
47603 C 0 0 0 20
47607>47604 66 3 0 2 0 SELECT
47605 80 537 2 0 0 0 537 CONVERT ENTER SUBROUTINE
47606 5 66 3 0 2 0 TRANSFER
47607 94 476 4 0 2 1 476 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
47608 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
47609 C 0 0 0 4
47617>47610 66 16 0 2 0 SELECT
47611 101 100 1 2 0 subtract literal address
47612 73 476 17 0 0 0 476 >SECTION JUMP IF A < 0
47613 101 899 1 2 0 subtract literal address
47614 72 476 17 0 0 0 476 >999 JUMP IF A >= 0
47615 10 0 0 0 2- SELECT LITERAL
47616 4 66 17 0 2 0 REDUCE ITEM FOR CALCS AUGMENT
47614>
47612>47617 94 476 10 0 2 2 476 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
47618 10 0 0 0 0 SELECT LITERAL
47619 34 61 47 0 0 0 TYPE SET (N) IN B
47620 36 544 6 0 0 0 544 BIT 1 COLLATE AND ADD
47621 71 476 28 0 0 0 476 NOT TYPES 2 OR 4 JUMP IF A != 0
47622 0 66 19 0 0 0 SECOND ITEM SELECT
47623 71 476 27 0 0 0 476 >'LAST ITEM' GIVEN JUMP IF A != 0
47624 0 66 17 0 0 0 FIRST ITEM SELECT
47625 71 476 27 0 0 0 476 JUMP IF A != 0
47626 0 545 8 0 0 0 545 SOMETHING INTO Q5 SELECT
47625>
47623>47627 5 67 2 0 0 0 TRANSFER
47621>47628 0 66 16 0 0 0 FIRST REF SELECT
47629 5 61 35 0 0 0 REF TRANSFER
47630 80 486 2 0 0 0 486 DET CHAP ENTER SUBROUTINE
47700 PROCR 477 477 TABLE ENTRIES
47701 NOTES RADIX SELECT
47702 3 67 0 0 0 0 COPY
47703 70 477 6 0 0 0 477 ABS ADD JUMP IF A == 0
47704 12 0 0 0 1 SUBTRACT LITERAL
47705 4 67 0 0 0 0 AUGMENT
47703>47706 61 35 0 0 0 REF SELECT
47707 30 0 0 0 2 SHIFT (A) BY QUARTETS
47708 4 67 0 0 0 0 AUGMENT
47709 0 66 3 0 0 0 SHORT/LONG/ALPHA SELECT
47710 70 477 15 0 0 0 477 JUMP IF A == 0
47711 12 0 0 0 1 SUBTRACT LITERAL
47712 70 477 14 0 0 0 477 JUMP IF A == 0
47713 545 49 0 0 0 545 B17 SELECT
47712>47714 1 545 13 0 0 0 545 B18 ADD
47710>47715 5 67 3 0 0 0 TRANSFER
47716 66 13 0 0 0 SIGN SELECT
47717 70 478 2 0 0 0 478 JUMP IF A == 0
47718 12 0 0 0 2 SUBTRACT LITERAL
47719 70 477 21 0 0 0 477 JUMP IF A == 0
47720 545 51 0 0 0 545 B20 SELECT
Source image: P1000386.JPG
47719>47721 1 545 9 0 0 0 545 B19 ADD
47722 4 67 3 0 0 0 AUGMENT
47800 PROCR 478 478 TABLE ENTRIES
47801 NOTES RADIX B SELECT
47717>47802 0 66 4 0 0 0 SINGLE/BE SELECT
47803 70 478 6 0 0 0 478 JUMP IF A == 0
47804 545 51 0 0 0 545 B20 SELECT
47805 4 67 3 0 0 0 AUGMENT
47803>47806 66 12 0 0 0 ZEROS SELECT
47807 30 0 0 0 1 SHIFT (A) BY QUARTETS
47808 1 66 10 0 0 0 DISC ADD
47809 30 0 0 0 1 SHIFT (A) BY QUARTETS
47810 1 66 11 0 0 0 SPACES ADD
47811 30 0 0 0 1 SHIFT (A) BY QUARTETS
47812 1 66 5 0 0 0 NO OF CHARS ADD
47813 4 67 3 0 0 0 AUGMENT
47814 66 15 0 0 0 LTE SELECT
47815 70 479 4 0 0 0 479 JUMP IF A == 0
47816 10 0 0 0 0 SELECT LITERAL
47817 2 67 3 0 0 0 SUBTRACT
47818 70 479 2 0 0 0 479 JUMP IF A == 0
47819 5 67 3 0 0 0 TRANSFER
47820 76 479 4 0 0 0 479 JUMP unconditional
47900 PROCR 479 479 TABLE ENTRIES
47901 NOTES RADIX B SELECT
47818>47902 10 0 0 0 80 B8 SELECT LITERAL
47903 4 67 0 0 0 0 AUGMENT
47820>
47815>47904 0 66 17 0 0 0 FIRST ITEM SELECT
47905 5 67 1 0 0 0 TRANSFER
47906 66 14 0 0 0 STERLING INDICATOR SELECT
47907 70 479 16 0 0 0 479 JUMP IF A == 0
47908 4 61 109 0 0 0 AUGMENT
47909 0 61 109 0 0 0 SELECT
47910 12 0 0 0 2 SUBTRACT LITERAL
47911 71 479 16 0 0 0 479 JUMP IF A != 0
47912 12 0 0 0 1 SUBTRACT LITERAL
47913 5 61 109 0 0 0 SET CTR=1- TRANSFER
47914 545 49 0 0 0 545 B17 SELECT
47915 4 67 1 0 0 0 AUGMENT
47911>
47907>47916 0 66 15 0 0 0 LTE IND SELECT
47917 70 382 10 0 0 0 382 >NO,O/P+GNB JUMP IF A == 0
47918 5 61 109 0 0 0 TRANSFER
47919 5 61 109 0 0 0 CLEAR STERLING CTR TRANSFER
47920 76 382 10 0 0 0 382 >O/P+GNB JUMP unconditional
48000 PROCR 480 480 VALUES
48001 NOTES RADIX SELECT
35209>48002 80 360 2 0 0 0 360 BULK CLEAR SEC 7 ENTER SUBROUTINE
48003 8 2 12 0 SELECT
48004 80 537 2 0 0 0 537 >TO BIN ENTER SUBROUTINE
48005 5 66 8 1 0 0 TRANSFER
48006 6 2 12 0 SELECT
48007 80 537 2 0 0 0 537 >TO BIN ENTER SUBROUTINE
48008 3 66 6 2 0 0 REF COPY
48009 34 66 8 0 0 0 SET (N) IN B
48010 74 480 28 0 0 0 480 >ZERO REF,ITEM JUMP IF AB == 0 // 27, 1, 0
Source image: P1000387.JPG
48011 101 100 1 2 0 subtract literal address
48012 73 480 15 0 0 0 480 >REF=SECTION JUMP IF A < 0
48013 10 0 0 0 2- SELECT LITERAL
48014 4 66 8 1 0 0 REDUCE FOR CALCS AUGMENT
48012>48015 542 10 1 0 0 542 'NOTES' SELECT
48016 3 61 26 1 0 0 COPY
48017 5 61 28 1 0 0 TRANSFER
48018 0 66 6 2 0 0 REF SELECT
48019 5 67 2 0 0 0 TRANSFER
48020 0 66 8 1 0 0 ITEM SELECT
48021 5 67 3 0 0 0 TRANSFER
48022 5 67 0 0 0 0 CLEAR TRANSFER
48023 80 517 2 0 0 0 517 O/P REF/ITEM UNIT(ALPHA O/P) ENTER SUBROUTINE
48024 0 77 6 1 0 0 SELECT
48025 5 7 8 1 0 0 REF TRANSFER
48026 0 77 8 1 0 0 SELECT
48027 5 7 10 1 0 0 ITEM TRANSFER
48010>48028 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
48029 C 0 0 0 32
48038>48030 77 12 2 3 0 SELECT
48031 73 480 45 0 0 0 480 >NEG PARA=END OF LINE JUMP IF A < 0
48032 5 67 2 0 0 0 TRANSFER
48033 77 10 2 3 0 SELECT
48034 5 67 3 0 0 0 TRANSFER
48035 52 7 12 0 3 0 EDIT
48036 C 550 2 0 0 0 550
48037 80 518 2 0 0 0 518 O/P VALUE UNIT ENTER SUBROUTINE
48038 94 480 30 0 3 4 480 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
48039 77 6 0 0 0 REF SELECT
48040 5 7 8 0 0 0 TRANSFER
48041 77 8 0 0 0 ITEM SELECT
48042 5 7 10 0 0 0 TRANSFER
48048>48043 80 511 2 0 0 0 511 >PRINT ENTER SUBROUTINE
48044 76 362 2 0 0 0 362 GNB JUMP unconditional
48031>48045 10 0 0 0 55 'E' SELECT LITERAL
48046 5 7 14 1 3 0 TRANSFER
48047 5 7 12 1 3 0 TRANSFER
48048 76 480 43 0 0 0 480 JUMP unconditional
48100 PROCR 481 481 LONG NO CONST S/R
48101 NOTES RADIX B SELECT
48102 81 481 2 0 0 0 481 START OF SUBROUTINE
48103 91 61 12 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
48104 61 5 0 0 0 LONG NO SECT NO SELECT
48105 5 66 6 1 0 0 TRANSFER
48106 10 0 0 0 1 SELECT LITERAL
48107 5 66 10 1 0 0 DISC TRANSFER
48108 80 482 2 0 0 0 482 TSL AND LONG NO S/R ENTER SUBROUTINE
48109 4 61 13 0 0 0 END VALUE AUGMENT
48110 82 481 2 0 0 0 481 END OF SUBROUTINE / LEAVE SUBROUTINE
48200 PROCR 482 482 LONG NO CONST & TSL S/R (1)
48201 NOTES RADIX B SELECT
48202 81 482 2 0 0 0 482 START OF SUBROUTINE
48203 94 482 5 0 3 0 482 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
48204 76 482 12 0 0 0 482 JUMP unconditional
48211>
48203>48205 61 53 0 0 0 SELECT
48206 2 62 1 0 3 0 COMPARE MOST SIG HALVES SUBTRACT
48207 71 482 11 0 0 0 482 >NO CHANGE OF MATCH JUMP IF A != 0
Source image: P1000388.JPG
48208 62 0 1 3 0 SELECT
48209 2 61 52 1 0 0 SUBTRACT
48210 70 482 15 0 0 0 482 MATCH FOUND JUMP IF A == 0
48207>48211 94 482 5 0 3 2 482 NO MATCH STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
48204>48212 61 52 1 0 0 SELECT
48213 5 62 0 1 3 0 TRANSFER
48214 10 0 0 0 2 SELECT LITERAL
48210>48215 5 537 2 0 0 0 537 WL=CONVERT SR LINK TRANSFER
48216 96 0 0 3 0 MODIFIER SELECT MODIFIER
48217 12 0 0 0 ‼4 180 SUBTRACT LITERAL
48218 73 482 21 0 0 0 482 > NOT TSL JUMP IF A < 0
48219 31 0 0 0 1- SHIFT (A) BY BITS
48220 76 482 22 0 0 0 482 JUMP unconditional
48218>48221 11 0 0 0 ‼4 180 ADD LITERAL
48220>48222 5 66 8 1 0 0 TRANSFER
48223 0 61 3 0 0 0 2C SELECT
48224 5 61 34 0 0 0 TRANSFER
48225 5 66 12 1 0 0 MOD TRANSFER
48226 80 532 2 0 0 0 532 STACK ENTER SUBROUTINE
48227 80 518 2 0 0 0 518 O/P ENTER SUBROUTINE
48228 537 2 0 0 0 537 WL SELECT
48229 82 482 2 0 0 0 482 END OF SUBROUTINE / LEAVE SUBROUTINE
48300 PROCR 483 483 > GNB
48301 NOTES RADIX B SELECT
48302 81 483 2 0 0 0 483 START OF SUBROUTINE
48303 91 61 14 0 3 0 CTR OF SHORT NUMBERS TO DATE SET MODIFICATION REGISTER AT VARIABLE
48304 0 61 15 0 0 0 CTR SELECT
48305 70 483 10 0 0 0 483 NONE STORED YET JUMP IF A == 0
48309>48306 61 52 1 0 0 NUMBER TO BE OUTPUT SELECT
48307 2 63 0 0 3 0 NEXT NUMBER ALREADY OUTPUT SUBTRACT
48308 70 483 17 0 0 0 483 > MATCH JUMP IF A == 0
48309 94 483 6 0 3 1 483 > TRY NEXT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
48305>48310 61 52 1 0 0 STORE NEWCOMER SELECT
48311 5 63 0 0 3 0 IN NEXT FREE POSITION TRANSFER
48312 61 15 0 0 0 = RELATIVE POSITION IN LIST SELECT
48313 5 66 8 1 0 0 SET AS ITEM TRANSFER
48314 10 0 0 0 1 STEP ON FOR NEXT ITEM SELECT LITERAL
48315 4 61 15 0 0 0 CTR OF NUMBERS IN LIST AUGMENT
48316 76 483 19 0 0 0 483 JUMP unconditional
48308>48317 96 0 0 3 0 MODIFIER SELECT MODIFIER
48318 5 66 8 1 0 0 TRANSFER
48316>48319 61 6 0 0 0 SN SECT NO SELECT
48320 5 66 6 1 0 0 REF TRANSFER
48321 5 66 10 1 0 0 DISC TRANSFER
48322 5 66 12 1 0 0 M TRANSFER
48323 61 3 0 0 0 2C SELECT
48324 5 61 34 0 0 0 PARA TRANSFER
48325 80 532 2 0 0 0 532 - STACK ENTER SUBROUTINE
48326 80 518 2 0 0 0 518 - O/P ENTER SUBROUTINE
48327 82 483 2 0 0 0 483 END OF SUBROUTINE / LEAVE SUBROUTINE
48400 PROCR 484 484 TSL S/R
48401 NOTES RADIX B SELECT
48402 81 484 2 0 0 0 484 START OF SUBROUTINE
48403 5 61 0 0 0 0 TRANSFER
48404 66 6 1 0 0 REF SELECT
48405 5 61 35 0 0 0 TRANSFER
48406 80 486 2 0 0 0 486 ENTER SUBROUTINE
48407 3 61 52 0 0 0 CHAP COPY
Source image: P1000389.JPG
48408 12 0 0 0 1 SUBTRACT LITERAL
48409 4 61 52 0 0 0 AUGMENT
48410 0 61 28 1 0 0 SELECT
48411 5 61 53 0 0 0 ITEM TRANSFER
48412 0 61 35 0 0 0 SELECT
48413 30 0 0 0 2 SHIFT (A) BY QUARTETS
48414 4 61 52 0 0 0 REF12C-1 AUGMENT
48415 80 485 2 0 0 0 485 ENTER SUBROUTINE
48416 82 484 2 0 0 0 484 END OF SUBROUTINE / LEAVE SUBROUTINE
48500 PROCR 485 485
48501 NOTES RADIX B SELECT
48502 81 485 2 0 0 0 485 START OF SUBROUTINE
48503 91 61 16 0 3 0 TSL COUNTER SET MODIFICATION REGISTER AT VARIABLE
48504 61 7 0 0 0 SELECT
48505 5 66 6 1 0 0 TRANSFER
48506 5 66 10 1 0 0 DISC TRANSFER
48507 80 482 2 0 0 0 482 TSL 7 LONG NO S/R ENTER SUBROUTINE
48508 4 61 17 0 0 0 END VALUE AUGMENT
48509 82 485 2 0 0 0 485 END OF SUBROUTINE / LEAVE SUBROUTINE
48600 PROCR 486 486
48601 NOTES RADIX B SELECT
48602 81 486 2 0 0 0 486 START OF SUBROUTINE
48603 61 35 0 0 0 REF SELECT
48604 70 486 18 0 0 0 486 ABS ADD JUMP IF A == 0
48605 12 0 0 0 64 100 SUBTRACT LITERAL
48606 72 487 2 0 0 0 487 JUMP IF A >= 0
48607 35 0 0 0 1 Q1 PREPARE FOR DIGIT COLLATION
48608 10 0 0 0 0 SELECT LITERAL
48609 124 61 35 0 0 0 modify address of next
48610 36 70 0 0 0 0 SECT DETS COLLATE AND ADD
48611 5 61 18 0 0 0 TRANSFER
48612 34 545 51 0 0 0 545 820 SET (N) IN B
48613 124 61 35 0 0 0 modify address of next
48614 36 70 0 0 0 0 SECT DETS COLLATE AND ADD
48714>48615 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
48616 124 61 18 0 0 0 UNCORRECTED CHAP modify address of next
48617 36 92 9 0 0 0 CORRECTED CHAP IN Q1 COLLATE AND ADD
48604>48618 82 486 2 0 0 0 486 END OF SUBROUTINE / LEAVE SUBROUTINE
48700 PROCR 487 487
48701 NOTES RADIX B SELECT
48606>48702 12 0 0 0 383 899 REF 999 SUBTRACT LITERAL
48703 73 487 8 0 0 0 487 JUMP IF A < 0
48704 71 487 10 0 0 0 487 > REF >999, CHEAT JUMP IF A != 0
48705 5 61 35 0 0 0 SET REF ZERO TRANSFER
48706 61 51 0 0 0 THIS CHAP SELECT
48707 82 486 2 0 0 0 486 END OF SUBROUTINE / LEAVE SUBROUTINE
48703>48708 11 0 0 0 3.7 999 ADD LITERAL
48709 30 0 0 0 2 PROCR IN Q3-5 SHIFT (A) BY QUARTETS
48704>48710 101 92 10 0 0 0 BIN LAST PROCRS IN CHAP table look up
48711 32 0 0 0 10 SHIFT (AB) BY QUARTETS
48712 2 545 2 0 0 0 545 ABS ADDRESS 92/9 SUBTRACT
48713 5 61 18 0 0 0 UNCORR C NO TRANSFER
48714 76 486 15 0 0 0 486 JUMP unconditional
48800 PROCR 488 488
48801 NOTES RADIX B SELECT
48802 81 488 2 0 0 0 488 START OF SUBROUTINE
Source image: P1000390.JPG
48803 91 91 2 0 3 0 2(R+T):2R SET MODIFICATION REGISTER AT VARIABLE
48804 35 0 0 0 111- Q1-3 AND SIGN PREPARE FOR DIGIT COLLATION
48809>48805 10 0 0 0 0 SELECT LITERAL
48806 36 91 4 0 3 0 TA DETAILS COLLATE AND ADD
48807 2 66 6 0 0 0 REF SUBTRACT
48808 70 488 10 0 0 0 488 JUMP IF A == 0
48809 94 488 5 0 3 2 488 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
48808>48810 0 91 4 0 3 0 TA DETAILS SELECT
48811 30 0 0 0 3- SHIFT (A) BY QUARTETS
48812 82 488 2 0 0 0 488 END OF SUBROUTINE / LEAVE SUBROUTINE
48900 PROCR 489 489 START OF MOD AND PARAMETER SR
48901 NOTES 0 0 SELECT
48902 81 489 2 0 0 0 489 START OF SUBROUTINE
48903 0 66 16 0 0 0 ITEM+' IND SELECT
48904 71 493 2 0 0 0 493 >YES JUMP IF A != 0
48905 0 66 6 0 0 0 REF SELECT
48906 101 1000 1 2 0 subtract literal address
48907 72 495 2 0 0 0 495 >REF=1000+ JUMP IF A >= 0
48908 0 66 6 0 0 0 SELECT
48909 70 492 2 0 0 0 492 >ABS ADDRESS JUMP IF A == 0
48910 5 61 35 0 0 0 TRANSFER
48911 80 486 2 0 0 0 486 >DETERMINE CHAPTER SR ENTER SUBROUTINE
48912 32 0 0 0 1- SHIFT (AB) BY QUARTETS
48913 71 494 2 0 0 0 494 >TRANSIT AREA JUMP IF A != 0
48914 32 0 0 0 1 SHIFT (AB) BY QUARTETS
48915 3 61 34 0 0 0 STORE CHAP OF REFERENCE COPY
48916 2 61 51 0 0 0 THIS CHAP NUMBER SUBTRACT
48917 71 491 2 0 0 0 491 >OTHER CHAP JUMP IF A != 0
49000 PROCR 490 490 DEAL WITH THIS CHAP-M&P
49001 NOTES 0 0 SELECT
49002 0 61 2 0 0 0 MOD DIGITS SELECT
49003 70 490 17 0 0 0 490 >NORMAL JUMP IF A == 0
49004 12 0 0 0 4 SUBTRACT LITERAL
49005 72 490 13 0 0 0 490 >MR>3 JUMP IF A >= 0
49006 0 61 1 0 0 0 SELECT
49007 70 490 17 0 0 0 490 JUMP IF A == 0
49008 0 545 20 0 0 0 545 MR1-3 NON-A 24/0/0 SELECT
49009 2 61 41 0 0 0 MOD GROUP PARA SUBTRACT
49010 2 61 2 0 0 0 SUBTRACT
49011 80 355 2 0 0 0 355 >O/P ENTER SUBROUTINE
49012 76 490 15 0 0 0 490 JUMP unconditional
49005>49013 0 546 3 0 0 0 546 MR>3 24/0/1 SELECT
49014 80 506 2 0 0 0 506 MR>3 SR ENTER SUBROUTINE
49012>49015 10 0 0 0 0 SELECT LITERAL
49016 5 61 2 0 0 0 CLEAR MOD DIGITS TRANSFER
49007>
49003>49017 0 61 3 0 0 0 SELECT
49109>49018 5 61 34 0 0 0 SET PARAMETER=2C TRANSFER
49019 82 489 2 0 0 0 489 EXIT END OF SUBROUTINE / LEAVE SUBROUTINE
49100 PROCR 491 491 M&P-DEAL WITH OTHER CHAPTER
49101 NOTES 0 0 SELECT
48917>49102 80 497 2 0 0 0 497 TEST MODIFICATION ENTER SUBROUTINE
49103 71 491 10 0 0 0 491 >YES JUMP IF A != 0
49104 0 546 2 0 0 0 546 SIMPLE CASE 24/0/3 SELECT
49105 2 61 34 0 0 0 OTHER CHAP NUMBER SUBTRACT
49106 2 61 34 0 0 0 SUBTRACT
49107 11 0 0 0 1 ADD LITERAL
Source image: P1000391.JPG
49108 80 355 2 0 0 0 355 >O/P, CLEAR A ENTER SUBROUTINE
49109 76 490 18 0 0 0 490 >CLEAR PARA JUMP unconditional
49103>49110 80 508 2 0 0 0 508 COMPLEX CASE ->O/P 0/1/0+0/0/3 ENTER SUBROUTINE
49111 0 545 8 0 0 0 545 6/0/0 SELECT
49112 1 61 34 0 0 0 OTHER CHAP NUMBER ADD
49113 1 61 34 0 0 0 ADD
49114 12 0 0 0 1 SUBTRACT LITERAL
49115 80 355 2 0 0 0 355 SELECT START ADDRESS ->O/P ENTER SUBROUTINE
49116 76 496 2 0 0 0 496 >M&P COMPLEX END JUMP unconditional
49200 PROCR 492 492 M&P-DEAL WITH ABSOLUTE ADDRESS
49201 NOTES 0 0 SELECT
48909>49202 0 61 2 0 0 0 MOD DIGITS SELECT
49203 70 492 38 0 0 0 492 >UNMODIFIED JUMP IF A == 0
49204 12 0 0 0 4 SUBTRACT LITERAL
49205 72 492 25 0 0 0 492 >MR>3 JUMP IF A >= 0
49206 0 61 1 0 0 0 SELECT
49207 70 492 36 0 0 0 492 >MR 1-3 ARITH JUMP IF A == 0
49208 0 66 8 1 0 0 ITEM SELECT
49209 73 492 15 0 0 0 492 JUMP IF A < 0
49210 0 545 19 0 0 0 545 (1) POS ITEM 24/01/2002 SELECT
49211 2 61 41 0 0 0 MOD GROUP PARA SUBTRACT
49212 2 61 2 0 0 0 SUBTRACT
49213 80 355 2 0 0 0 355 >O/P ENTER SUBROUTINE
49214 76 492 29 0 0 0 492 JUMP unconditional
49237>
49209>49215 80 508 2 0 0 0 508 >O/P 0/1/0+0/0/3 ENTER SUBROUTINE
49216 80 505 2 0 0 0 505 (2) NEG ITEM O/P 24/0/3 0 ENTER SUBROUTINE
49217 0 545 8 0 0 0 545 6/0/0 SELECT
49218 1 61 2 0 0 0 MOD DIGITS ADD
49219 1 61 2 0 0 0 ADD
49220 5 67 3 0 0 0 TRANSFER
49221 0 61 41 0 0 0 MOD GROUP PARA SELECT
49222 5 67 2 0 0 0 TRANSFER
49223 80 518 2 0 0 0 518 >O/P ENTER SUBROUTINE
49224 76 492 34 0 0 0 492 JUMP unconditional
49205>49225 0 66 8 1 0 0 MR>3 ITEM SELECT
49226 73 492 31 0 0 0 492 (1) POSITIVE ITEM JUMP IF A < 0
49227 0 546 2 0 0 0 546 24/0/3 0 SELECT
49228 80 506 2 0 0 0 506 >MR>3 SR ENTER SUBROUTINE
49214>49229 5 61 2 0 0 0 CLEAR MOD DIGITS TRANSFER
49230 76 496 29 0 0 0 496 >M&P END JUMP unconditional
49226>49231 80 508 2 0 0 0 508 >O/P 0/1/0+0/0/3 ENTER SUBROUTINE
49232 0 545 8 0 0 0 545 (2) NEG ITEM 6/0/0 SELECT
49233 80 506 2 0 0 0 506 >MR>3 SR ENTER SUBROUTINE
49224>49234 5 61 2 0 0 0 CLEAR MOD DIGITS TRANSFER
49235 76 496 2 0 0 0 496 >M&P COMPLEX END JUMP unconditional
49207>49236 0 66 8 1 0 0 SIMPLE CASE ITEM SELECT
49237 73 492 15 0 0 0 492 JUMP IF A < 0
49203>49238 80 505 2 0 0 0 505 O/P 24/0/3 0 ENTER SUBROUTINE
49239 76 496 29 0 0 0 496 > END JUMP unconditional
49300 PROCR 493 493 M&P-DEAL WITH 'ITEM+'
49301 NOTES 0 0 SELECT
48904>49302 80 497 2 0 0 0 497 > TEST MODIFICATION ENTER SUBROUTINE
49303 71 493 6 0 0 0 493 >YES JUMP IF A != 0
49304 0 66 8 1 0 0 ITEM SELECT
49305 72 493 10 0 0 0 493 >NORMAL JUMP IF A >= 0
49303>49306 80 508 2 0 0 0 508 COMPLEX CASE ->O/P 0/1/0+0/0/3 ENTER SUBROUTINE
49307 0 545 8 0 0 0 545 6/0/0 SELECT
Source image: P1000392.JPG
49308 80 502 2 0 0 0 502 >'ITEM+' SR ENTER SUBROUTINE
49309 76 496 2 0 0 0 496 > M&P COMPLEX END JUMP unconditional
49305>49310 0 546 2 0 0 0 546 24/0/3 SIMPLE CASE SELECT
49311 80 502 2 0 0 0 502 >'ITEM +' SR ENTER SUBROUTINE
49312 76 496 29 0 0 0 496 M&P END JUMP unconditional
49400 PROCR 494 494 M&P DEAL WITH TRANSIT AREA REFERENCE
49401 NOTES 494 SELECT
48913>49402 80 497 2 0 0 0 497 >TEST MODIFICATION ENTER SUBROUTINE
49403 71 494 6 0 0 0 494 >YES JUMP IF A != 0
49404 0 66 8 1 0 0 ITEM SELECT
49405 72 494 11 0 0 0 494 >NORMAL JUMP IF A >= 0
49403>49406 80 508 2 0 0 0 508 >O/P 0/1/0+0/0/3 COMPLEX CASE ENTER SUBROUTINE
49407 80 500 2 0 0 0 500 >O/P 24/1/2 BY-(64+P) ENTER SUBROUTINE
49408 0 545 66 0 0 0 545 24/0/2 0 SELECT
49409 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
49410 76 496 2 0 0 0 496 >M&P COMPLEX END JUMP unconditional
49405>49411 80 500 2 0 0 0 500 >O/P 24/1/2 BY -(64+P) (SIMPLE CASE) ENTER SUBROUTINE
49412 76 496 29 0 0 0 496 >M&P END JUMP unconditional
49500 PROCR 495 495 M&P-DEAL WITH REFERENCE 1000+
49501 NOTES 495 SELECT
48907>49502 80 497 2 0 0 0 497 >TEST MODIFICATION ENTER SUBROUTINE
49503 71 495 6 0 0 0 495 >YES JUMP IF A != 0
49504 0 66 8 1 0 0 ITEM SELECT
49505 72 495 16 0 0 0 495 >NORMAL JUMP IF A >= 0
49503>49506 80 508 2 0 0 0 508 >O/P 0/1/0 +0/0/3 COMPLEX CASE ENTER SUBROUTINE
49507 80 503 2 0 0 0 503 >TEST CHAP ENTER SUBROUTINE
49508 545 19 0 0 0 545 24/1/2 SELECT
49509 2 66 6 0 0 0 SUBTRACT
49510 101 1000 1 1 0 add literal address
49511 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
49512 545 66 0 0 0 545 24/0/2 SELECT
49513 80 359 2 0 0 0 359 >O/P ZERO REF ZERO PARA ENTER SUBROUTINE
49514 5 66 6 1 0 0 TRANSFER
49515 76 496 2 0 0 0 496 >M&P COMPLEX END JUMP unconditional
49505>49516 80 503 2 0 0 0 503 >TEST CHAP ENTER SUBROUTINE
49517 545 19 0 0 0 545 24/1/2 SELECT
49518 2 66 6 0 0 0 SUBTRACT
49519 101 1000 1 1 0 add literal address
49520 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
49521 5 66 6 1 0 0 TRANSFER
49522 76 496 29 0 0 0 496 >M&P END JUMP unconditional
49600 PROCR 496 496 M&P-DEAL WITH ADDRESS CALCULATIONS+END ROUTINE
49601 NOTES 496 SELECT
49515>
49410>
49309>
49235>
49116>49602 0 61 2 0 0 0 SELECT
49603 70 496 17 0 0 0 496 >UNMODIFIED JUMP IF A == 0
49604 12 0 0 0 4 SUBTRACT LITERAL
49605 72 496 15 0 0 0 496 >MR>3 JUMP IF A >= 0
49606 80 505 2 0 0 0 505 24/0/3 0 ENTER SUBROUTINE
49607 0 545 9 0 0 0 545 4/0/0 SELECT
49608 1 61 2 0 0 0 ADD
49609 1 61 2 0 0 0 ADD
49610 5 67 3 0 0 0 TRANSFER
49611 0 61 41 0 0 0 MOD GROUP PARA SELECT
Source image: P1000393.JPG
49612 5 67 2 0 0 0 TRANSFER
49613 80 518 2 0 0 0 518 >O/P ENTER SUBROUTINE
49614 76 496 17 0 0 0 496 JUMP unconditional
49605>49615 0 545 9 0 0 0 545 4/0/0 SELECT
49616 80 506 2 0 0 0 506 >MR>3 SR ENTER SUBROUTINE
49614>
49603>49617 0 66 8 1 0 0 SELECT
49618 72 496 22 0 0 0 496 >NOT NEGATIVE ITEM JUMP IF A >= 0
49619 0 66 8 0 0 0 MODULUS SELECT
49620 1 545 24 0 0 0 545 1/1/2 0 ADD
49621 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
49618>49622 5 66 8 1 0 0 CLEAR ITEM, MOD DIGITS TRANSFER
49623 5 61 2 0 0 0 TRANSFER
49624 546 16 0 0 0 546 2/0/0/6 SELECT
49625 80 361 2 0 0 0 361 >LN 2C SR ENTER SUBROUTINE
49626 80 399 2 0 0 0 399 >0/1/1 SR ENTER SUBROUTINE
49627 546 17 0 0 0 546 24/0/3/6 SELECT
49628 80 361 2 0 0 0 361 >LN 2C SR ENTER SUBROUTINE
49522>
49412>
49312>
49239>
49230>49629 10 0 0 0 0 SELECT LITERAL
49630 5 61 34 0 0 0 CLEAR PARA, REF TRANSFER
49631 82 489 2 0 0 0 489 END OF SUBROUTINE / LEAVE SUBROUTINE
49700 PROCR 497 497 M&P-TEST INDIRECT MODIFICATION
49701 NOTES 497 SELECT
49702 81 497 2 0 0 0 497 START OF SUBROUTINE
49703 0 61 2 0 0 0 MOD DIGITS SELECT
49704 70 497 8 0 0 0 497 >NO JUMP IF A == 0
49705 12 0 0 0 4 SUBTRACT LITERAL
49706 72 497 9 0 0 0 497 >YES(MR>3) JUMP IF A >= 0
49707 0 61 1 0 0 0 (NON-ZERO IF NON-ARITH) SELECT
49704>49708 82 497 2 0 0 0 497 END OF SUBROUTINE / LEAVE SUBROUTINE
49706>49709 10 0 0 0 1 SELECT LITERAL
49710 82 497 2 0 0 0 497 (A)=0 IF 'DIRECT' MODIFICATION END OF SUBROUTINE / LEAVE SUBROUTINE
49800 PROCR 498 498 SR FOR INTERNAL SC'S TO MAKE REL TO PROCR STARTS
49801 NOTES 498 SELECT
49802 81 498 2 0 0 0 498 START OF SUBROUTINE
49803 73 498 7 0 0 0 498 >NEGATIVE ACTIONS JUMP IF A < 0
49804 1 61 43 0 0 0 ADD
49805 2 61 11 0 0 0 START OF CURRENT PROCR SUBTRACT
49806 76 498 9 0 0 0 498 JUMP unconditional
49803>49807 2 61 43 0 0 0 SUBTRACT
49808 1 61 11 0 0 0 ADD
49806>49809 5 67 3 0 0 0 TRANSFER
49810 0 61 10 0 0 0 CURRENT PROCR(IN THIS CHAPTER) SELECT
49811 30 0 0 0 2 SHIFT (A) BY QUARTETS
49812 1 61 3 0 0 0 ADD
49813 5 67 2 0 0 0 PARA TRANSFER
49814 80 518 2 0 0 0 518 >O/P ENTER SUBROUTINE
49815 82 498 2 0 0 0 498 END OF SUBROUTINE / LEAVE SUBROUTINE
49900 PROCR 499 499 SET(A)=ROUTE PARA Q10B=FILE TYPE
49901 NOTES 499 SELECT
49902 81 499 2 0 0 0 499 START OF SUBROUTINE
49903 91 91 0 0 3 0 2R:0 SET MODIFICATION REGISTER AT VARIABLE
49910>49904 0 91 5 0 3 0 SELECT
Source image: P1000394.JPG
49905 70 499 11 0 0 0 499 >LIST EMPTY JUMP IF A == 0
49906 33 0 0 0 6- ROUTE TYPE SHIFT (AB) BY BITS
49907 1 545 27 0 0 0 545 BIT 15 TO RESTORE TOP CONTROL ADD
49908 2 61 54 0 0 0 FILE ID SUBTRACT
49909 70 499 13 0 0 0 499 >MATCH JUMP IF A == 0
49910 94 499 4 0 3 2 499 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
49905>49911 10 0 0 0 5: SELECT LITERAL
49912 80 501 2 0 0 0 501 >REPORT'?????' ENTER SUBROUTINE
49909>49913 96 0 0 3 0 SELECT MODIFIER
49914 31 0 0 0 1- SHIFT (A) BY BITS
49915 1 92 29 0 0 0 NUMBER OF CHARS ADD
49916 1 92 29 0 0 0 ADD
49917 11 0 0 0 1 ADD LITERAL
49918 82 499 2 0 0 0 499 END OF SUBROUTINE / LEAVE SUBROUTINE
50000 PROCR 500 500 MODIFY BY ANNEX START SR
50001 NOTES RADIX B T.A.S. MR LESS THAN 3 SELECT
50002 81 500 2 0 0 0 500 START OF SUBROUTINE
50003 80 488 2 0 0 0 488 FORM TA PARAM ENTER SUBROUTINE
50004 11 0 0 0 1 TO GIVE T2 ADD LITERAL
50005 2 545 19 0 0 0 545 24/1/2 SUBTRACT
50006 5 67 3 0 0 0 TRANSFER
50007 2 67 3 0 0 0 SUBTRACT
50008 80 355 2 0 0 0 355 >O/P ENTER SUBROUTINE
50009 5 66 6 0 0 0 CLEAR REF TRANSFER
50010 82 500 2 0 0 0 500 END OF SUBROUTINE / LEAVE SUBROUTINE
50100 PROCR 501 501 MISMATCH SR FOR MR>3, SWITCHES, ITEM+
50101 NOTES 501 SELECT
50102 81 501 2 0 0 0 501 (A)=+,M,S OR C START OF SUBROUTINE
50103 32 0 0 0 2- SHIFT (AB) BY QUARTETS
50104 1 542 28 1 0 0 542 '?????' ADD
50105 32 0 0 0 2 SHIFT (AB) BY QUARTETS
50106 5 5 46 1 0 0 TRANSFER
50107 0 546 20 0 0 0 546 SELECT
50108 71 501 12 0 0 0 501 >PREVIOUS RI/P RECORD WAS PRINTED JUMP IF A != 0
50109 10 0 0 0 1 SELECT LITERAL
50110 5 545 99 0 0 0 545 TRANSFER
50111 80 511 2 0 0 0 511 >PRINT LINE WE'RE REPORTING ENTER SUBROUTINE
50108>50112 80 530 2 0 0 0 530 >SECOND PRINT SR ENTER SUBROUTINE
50113 82 501 2 0 0 0 501 END OF SUBROUTINE / LEAVE SUBROUTINE
50200 PROCR 502 502
50201 NOTES RADIX B DEAL WITH ITEM + S.R. SELECT
50202 81 502 2 0 0 0 502 START OF SUBROUTINE
50203 5 61 58 0 0 0 ACTION TRANSFER
50204 91 98 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
50205 98 1 0 0 0 CTR SELECT
50206 70 502 13 0 0 0 502 >WRONG JUMP IF A == 0
50207 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
50212>50208 10 0 0 0 0 SELECT LITERAL
50209 36 98 2 0 3 0 COLLATE AND ADD
50210 2 66 6 1 0 0 SUBTRACT
50211 70 502 15 0 0 0 502 >OK JUMP IF A == 0
50212 94 502 8 0 3 1 502 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
50206>50213 10 0 0 0 4+ ERROR + SELECT LITERAL
50214 80 501 2 0 0 0 501 >MISMATCH SR ENTER SUBROUTINE
50211>50215 98 2 0 3 0 SELECT
50216 80 507 2 0 0 0 507 ENTER SUBROUTINE
50217 5 66 16 0 0 0 CLEAR ITEM+IND TRANSFER
Source image: P1000395.JPG
50218 5 66 6 1 0 0 CLEAR REFERENCE TRANSFER
50219 82 502 2 0 0 0 502 END OF SUBROUTINE / LEAVE SUBROUTINE
50300 PROCR 503 503 TEST IF IN OTHER CHAPTER-M&P REF 1000+
50301 NOTES 503 SELECT
50302 81 503 2 0 0 0 503 START OF SUBROUTINE
50303 61 9 0 0 0 PROCR OF LAST 81 ACTION SELECT
50304 5 61 35 0 0 0 TRANSFER
50305 80 486 2 0 0 0 486 >DETERMINE CHAP SR ENTER SUBROUTINE
50306 3 61 34 0 0 0 ADDRESSED CHAP COPY
50307 2 61 51 0 0 0 THIS CHAP NO SUBTRACT
50308 70 503 17 0 0 0 503 >THIS CHAP JUMP IF A == 0
50309 61 34 0 0 0 SELECT
50310 80 504 2 0 0 0 504 >O/P 24/0/3 ENTER SUBROUTINE
50311 61 9 0 0 0 REF=PROCR SELECT
50312 30 0 0 0 2 SHIFT (A) BY QUARTETS
50320>50313 5 67 2 0 0 0 PARA=0 TRANSFER
50314 546 2 0 0 0 546 24/0/3 SELECT
50315 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
50316 82 503 2 0 0 0 503 END OF SUBROUTINE / LEAVE SUBROUTINE
50308>50317 61 9 0 0 0 SELECT
50318 30 0 0 0 2 SHIFT (A) BY QUARTETS
50319 1 61 3 0 0 0 2C ADD
50320 76 503 13 0 0 0 503 JUMP unconditional
50400 PROCR 504 504 OUTPUT 24/0/3 BY 0 OR 24/0/3 BY OTHER CHAP 15-BIT START
50401 NOTES 504 SELECT
50402 81 504 2 0 0 0 504 START OF SUBROUTINE
50403 70 504 8 0 0 0 504 >24/0/3 BY 0 JUMP IF A == 0
50404 5 67 3 0 0 0 TRANSFER
50405 10 0 0 0 1 SELECT LITERAL
50406 2 67 3 0 0 0 SUBTRACT
50407 2 67 3 0 0 0 SUBTRACT
50403>50408 1 546 2 0 0 0 546 24/0/3 ADD
50409 80 355 2 0 0 0 355 >O/P ENTER SUBROUTINE
50410 82 504 2 0 0 0 504 END OF SUBROUTINE / LEAVE SUBROUTINE
50500 PROCR 505 505 OUTPUT 24/0/3 BY 0
50501 NOTES RADIX B SELECT
50502 81 505 2 0 0 0 505 START OF SUBROUTINE
50503 10 0 0 0 0 SELECT LITERAL
50504 80 504 2 0 0 0 504 ENTER SUBROUTINE
50505 82 505 2 0 0 0 505 END OF SUBROUTINE / LEAVE SUBROUTINE
50600 PROCR 506 506 MR GREATER THAN 3 SR
50601 NOTES RADIX B M & P SELECT
50602 81 506 2 0 0 0 506 START OF SUBROUTINE
50603 5 61 58 0 0 0 ACTION WL TRANSFER
50604 91 71 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
50605 94 506 7 0 3 0 506 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
50606 76 506 13 0 0 0 506 >MISMATCH JUMP unconditional
50605>50607 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
50612>50608 10 0 0 0 0 SELECT LITERAL
50609 36 71 2 0 3 0 COLLATE AND ADD
50610 2 61 2 0 0 0 MOD DIGITS SUBTRACT
50611 70 506 15 0 0 0 506 >OK JUMP IF A == 0
50612 94 506 8 0 3 1 506 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
50606>50613 10 0 0 0 64 =M SELECT LITERAL
50614 80 501 2 0 0 0 501 >MISMATCH SR ENTER SUBROUTINE
50611>50615 0 71 2 0 3 0 SELECT
Source image: P1000396.JPG
50616 80 507 2 0 0 0 507 ENTER SUBROUTINE
50617 82 506 2 0 0 0 506 END OF SUBROUTINE / LEAVE SUBROUTINE
50700 PROCR 507 507 END ROUTINE FOR MR>3 AND ITEM+ SUBROUTINES
50702 81 507 2 0 0 0 507 START OF SUBROUTINE
50703 5 503 2 0 0 0 503 WL=SR LINK TRANSFER
50704 0 61 58 0 0 0 SELECT
50705 70 507 15 0 0 0 507 >ZERO ACTION=15-BIT ADDRESS NEEDED JUMP IF A == 0
50706 0 503 2 0 0 0 503 SELECT
50707 30 0 0 0 4- ISOLATE CORRECTED CHAP SHIFT (A) BY QUARTETS
50708 2 61 51 0 0 0 SUBTRACT
50709 70 507 13 0 0 0 507 >THIS CHAP JUMP IF A == 0
50710 1 61 51 0 0 0 ADD
50711 80 504 2 0 0 0 504 >O/P 24/0/3 BY OTHER CHAP START ENTER SUBROUTINE
50712 76 507 20 0 0 0 507 >(PARA=0) JUMP unconditional
50709>50713 0 61 3 0 0 0 2C SELECT
50714 76 507 20 0 0 0 507 JUMP unconditional
50705>50715 0 503 2 0 0 0 503 SELECT
50716 30 0 0 0 4- SHIFT (A) BY QUARTETS
50717 3 67 2 0 0 0 FORM PARA 2C'-1 COPY
50718 1 67 2 0 0 0 ADD
50719 12 0 0 0 1 SUBTRACT LITERAL
50714>
50712>50720 5 67 2 0 0 0 TRANSFER
50721 0 503 2 0 0 0 503 SELECT
50722 32 0 0 0 4- SHIFT (AB) BY QUARTETS
50723 101 1001 1 1 0 add literal address
50724 30 0 0 0 2 SHIFT (A) BY QUARTETS
50725 4 67 2 0 0 0 REF=1000+CHAP AUGMENT
50726 10 0 0 0 0 SELECT LITERAL
50727 32 0 0 0 2 CTR WAS IN Q3,4 SHIFT (AB) BY QUARTETS
50728 34 544 22 0 0 0 544 BITS 1-13 SET (N) IN B
50729 36 61 58 0 0 0 COLLATE AND ADD
50730 37 61 58 0 0 0 PACK WITH ACTION REPLACE SELECTED BITS
50731 0 61 58 0 0 0 SELECT
50732 80 359 2 0 0 0 359 >O/P ENTER SUBROUTINE
50733 82 507 2 0 0 0 507 END OF SUBROUTINE / LEAVE SUBROUTINE
50800 PROCR 508 508 0/1/0 AND 0/0/3 S/R
50801 NOTES RADIX B M&P SELECT
50802 81 508 2 0 0 0 508 START OF SUBROUTINE
50803 61 25 0 0 0 BIN INDICATOR SELECT
50804 70 508 6 0 0 0 508 JUMP IF A == 0
50805 10 0 0 0 8 SELECT LITERAL
50804>50806 1 545 29 0 0 0 545 0/1/0 ADD
50807 80 361 2 0 0 0 361 >LN:2C SR ENTER SUBROUTINE
50808 61 25 0 0 0 BIN IND SELECT
50809 71 508 12 0 0 0 508 WE ALREADY HAVE BINARY SET JUMP IF A != 0
50810 545 28 0 0 0 545 0/0/3 SELECT
50811 80 355 2 0 0 0 355 O/P ENTER SUBROUTINE
50809>50812 10 0 0 0 1 SELECT LITERAL
50813 4 61 25 0 0 0 AUGMENT
50814 82 508 2 0 0 0 508 END OF SUBROUTINE / LEAVE SUBROUTINE
50900 PROCR 509 509 I/P SR
50901 NOTES RADIX SELECT
50902 81 509 2 0 0 0 509 START OF SUBROUTINE
50903 0 2 12 0 CURRENT RECORD LENGTH SELECT
50904 5 537 2 0 0 0 537 TRANSFER
50905 97 537 2 0 12 0 537 STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
Source image: P1000397.JPG
50906 C 509 8 0 0 0 509
50907 80 539 2 0 0 0 539 >READ ENTER SUBROUTINE
50906>
34505>50908 10 0 0 0 0 SELECT LITERAL
50909 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
50910 36 2 1 12 0 AMENDED IMPLICITLY IND COLLATE AND ADD
50911 5 545 99 0 0 0 545 TRANSFER
50912 37 2 1 12 0 CLEAR 2 CHARS REPLACE SELECTED BITS
50913 54 77 0 1 0 44 BULK CLEAR BULK CLEAR
50914 55 0 1 12 0 BULK COPY
50915 C 77 0 1 0 0
50916 C 0 2 12 0
50917 82 509 2 0 0 0 509 END OF SUBROUTINE / LEAVE SUBROUTINE
51000 PROCR 510 510 PRINT LINE AND RE-SITE AMEND IND
51001 NOTES 510 SELECT
51002 81 510 2 0 0 0 510 START OF SUBROUTINE
51003 8 4 1 0 0 SELECT
51004 5 8 2 1 0 0 TRANSFER
51005 5 8 4 1 0 0 TRANSFER
51006 80 511 2 0 0 0 511 >PRINT ENTER SUBROUTINE
51007 82 510 2 0 0 0 510 END OF SUBROUTINE / LEAVE SUBROUTINE
51100 PROCR 511 511 PRINT FROM SEC 5 OR 7 SR-TX AREA PARAS SET UP IN ADVANCE
51101 NOTES RADIX B SELECT
51102 81 511 2 0 0 0 511 START OF SUBROUTINE
51103 0 544 2 1 0 0 544 BEW SELECT
51104 5 7 50 1 0 0 TRANSFER
51105 7 46 1 0 0 SELECT
51106 80 515 2 0 0 0 515 >REPORT IF TOP 4 CHARS='?' ENTER SUBROUTINE
51107 70 511 12 0 0 0 511 >YES JUMP IF A == 0
51108 7 48 1 0 0 SELECT
51109 70 511 44 0 0 0 511 >NO ERRORS JUMP IF A == 0
51110 80 515 2 0 0 0 515 >TEST FOR REPORT ENTER SUBROUTINE
51111 71 511 23 0 0 0 511 JUMP IF A != 0
51107>51112 94 511 14 0 20 0 511 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
51113 76 511 42 0 0 0 511 >NO MORE ROOM JUMP unconditional
51112>51114 7 6 1 0 0 SELECT
51115 70 511 42 0 0 0 511 >FILE HANDLING ERRORNO SERIAL JUMP IF A == 0
51116 30 0 0 0 8- SHIFT (A) BY QUARTETS
51117 12 0 0 0 5‼ SUBTRACT LITERAL
51118 70 511 42 0 0 0 511 >SECTION DESCRIPTION JUMP IF A == 0
51119 7 6 2 0 0 SELECT
51120 5 40 0 0 20 0 TRANSFER
51121 94 511 42 0 20 1 511 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
51122 76 511 42 0 0 0 511 JUMP unconditional
51111>51123 7 32 1 0 0 FIRST 5 CHARS ANNOTATION SELECT
51124 12 0 0 0 7171717171 '/////' SUBTRACT LITERAL
51125 71 511 29 0 0 0 511 JUMP IF A != 0
51126 35 0 0 0 111111 Q1-6 PREPARE FOR DIGIT COLLATION
51127 37 7 48 1 0 0 REPLACE SELECTED BITS
51128 76 511 44 0 0 0 511 >DON'T COUNT JUMP unconditional
51125>51129 94 511 31 0 19 0 511 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
51130 76 511 39 0 0 0 511 >NO MORE ROOM JUMP unconditional
51129>51131 7 6 1 0 0 SELECT
51132 70 511 39 0 0 0 511 >FILE HEADING ERROR NO SERIAL JUMP IF A == 0
51133 30 0 0 0 8- SHIFT (A) BY QUARTETS
51134 12 0 0 0 5‼ SUBTRACT LITERAL
51135 70 511 39 0 0 0 511 >SECTION DESCRIPTION ERROR JUMP IF A == 0
51136 7 6 2 0 0 SELECT
Source image: P1000398.JPG
51137 5 40 10 0 19 0 TRANSFER
51138 94 0 0 19 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
51135>
51132>
51130>51139 86 514 2 0 0 0 514 SELECT SWITCH R
51140 11 0 0 0 1 STEP CTR OF OTHER ERRORS ADD LITERAL
51141 84 514 2 0 0 0 514 SET SWITCH(ES) AT VARIABLE VALUE
51122>
51121>
51118>
51115>
51113>51142 10 0 0 0 1 (PRINT REPORTED LINES) SELECT LITERAL
51143 5 545 99 0 0 0 545 TRANSFER
51128>
51109>51144 0 23 46 1 0 0 PRINT PROCR '+' PRINT ALL ' INDS SELECT
51145 71 511 51 0 0 0 511 > PRINT JUMP IF A != 0
51146 0 545 99 0 0 0 545 IMPLICITLY AMENDED' SELECT
51147 70 511 56 0 0 0 511 > DONT PRINT JUMP IF A == 0
51148 0 546 20 0 0 0 546 > LAST RECORD PRINTED ? SELECT
51149 71 511 51 0 0 0 511 > YES JUMP IF A != 0
51150 80 512 2 0 0 0 512 > BLANK LINE ENTER SUBROUTINE
51149>
51145>51151 0 61 46 0 0 0 HEAD OF FORM, OR ZERO SELECT
51152 5 7 0 2 0 0 TRANSFER
51153 80 513 2 0 0 0 513 >PRINT LINE ENTER SUBROUTINE
51154 10 0 0 0 1 SELECT LITERAL
51155 3 61 46 0 0 0 SET FOR NEXT TIME COPY
51147>51156 5 546 20 0 0 0 546 SET/CLEAR IND TRANSFER
51157 82 511 2 0 0 0 511 END OF SUBROUTINE / LEAVE SUBROUTINE
51200 PROCR 512 512 PRINT BLANK LINE UNCONDITIIONALLY
51202 81 512 2 0 0 0 512 START OF SUBROUTINE
51203 999 16 1 0 0 COPY SEC 7 PARAS SELECT
51204 5 543 42 1 0 0 543 TRANSFER
51205 0 999 8 0 0 0 PT ROUTE SELECT
51206 5 999 16 0 0 0 TRANSFER
51207 2 999 8 0 0 0 SUBTRACT
51208 12 0 0 0 40 64 SUBTRACT LITERAL
51209 5 999 17 0 0 0 CREATE R, - (64+R) TRANSFER
51210 5 7 0 1 0 0 TRANSFER
51211 27 9 0 0 0 ON LINE ? SELECT
51212 70 512 15 0 0 0 512 > YES JUMP IF A == 0
51213 54 7 0 1 0 50 BULK CLEAR
51214 76 512 17 0 0 0 512 > 'PRINT' JUMP unconditional
51212>51215 0 544 2 1 0 0 544 DEW SELECT
51216 5 7 2 1 0 0 TRANSFER
51214>51217 80 513 2 0 0 0 513 >'PRINT EX SEC 7 ENTER SUBROUTINE
51218 0 543 42 1 0 0 543 SELECT
51219 5 999 16 1 0 0 RESTORE SEC 7 PARAS TRANSFER
51220 82 512 2 0 0 0 512 END OF SUBROUTINE / LEAVE SUBROUTINE
51300 PROCR 513 513 PRINT SEC 7 (OR SEC 5, OR PT ANNEX)
51302 81 513 2 0 0 0 513 START OF SUBROUTINE
51303 27 9 0 0 0 SELECT
51304 70 513 9 0 0 0 513 > PRINTER JUMP IF A == 0
51305 55 7 0 1 0 50 BULK COPY
51306 C 10 4 1 6 0
51307 80 540 2 0 0 0 540 > O/P> ENTER SUBROUTINE
51308 82 513 2 0 0 0 513 END OF SUBROUTINE / LEAVE SUBROUTINE
51304>51309 27 8 0 0 0 PRINTER TYPE SELECT
Source image: P1000399.JPG
51310 12 0 0 0 9 SUBTRACT LITERAL
51311 70 513 27 0 0 0 513 > SPECIAL JUMP IF A == 0
51312 545 51 0 0 0 545 BIT 20 SELECT
51313 5 7 1 0 0 0 TRANSFER
51314 124 999 17 1 2 0 SEC 7 modify address of next
51315 124 0 0 2 0 select literal and division
51316 124 999 13 1 2 0 SEC 10 modify address of next
51317 129 0 0 1 0 edit for anelex output
51318 10 0 0 0 4 SELECT LITERAL
51330>51319 30 0 0 0 5 SHIFT (A) BY QUARTETS
51320 1 999 7 0 0 0 ROUTE ADD
51321 34 999 12 0 0 0 SET (N) IN B
51322 125 4096 1 1 0 clear indicators
51323 124 999 0 0 3 0 modify address of next
51324 123 160 0 2 0 enter master routine
51325 62 0 0 0 0 SET EXCESS CONSTANTS
51326 82 513 2 0 0 0 513 END OF SUBROUTINE / LEAVE SUBROUTINE
51311>51327 55 7 0 1 0 54 BULK COPY
51328 C 10 0 1 0 0
51329 10 0 0 0 9 SELECT LITERAL
51330 76 513 19 0 0 0 513 JUMP unconditional
51400 PROCR 514 514 OUTPUT 9 > A6
51401 NOTES RADIX SELECT
51402 81 514 2 0 0 0 514 START OF SUBROUTINE
51403 43 A6 0 0 0 0 OUTPUT
51404 C 9 0 0 0 0
51405 82 514 2 0 0 0 514 END OF SUBROUTINE / LEAVE SUBROUTINE
51500 PROCR 515 515 TEST FOR DIASTROUS ERROR CONDITION IN PRINTER
51501 NOTES 515 SELECT
51502 81 515 2 0 0 0 515 START OF SUBROUTINE
51503 30 0 0 0 2- SHIFT (A) BY QUARTETS
51504 30 0 0 0 2 SHIFT (A) BY QUARTETS
51505 11 0 0 0 5: ADD LITERAL
51506 2 542 28 1 0 0 542 ?????' SUBTRACT
51507 71 515 11 0 0 0 515 > NOT DISASTROUS JUMP IF A != 0
51508 86 511 2 0 0 0 511 STEP DISASTER CTR SELECT SWITCH R
51509 11 0 0 0 1 ADD LITERAL
51510 84 511 2 0 0 0 511 (CLEARS A) SET SWITCH(ES) AT VARIABLE VALUE
51507>51511 82 515 2 0 0 0 515 END OF SUBROUTINE / LEAVE SUBROUTINE
51600 PROCR 516 516 O/P TYPE SR
51601 NOTES RADIX SELECT
51602 81 516 2 0 0 0 516 START OF SUBROUTINE
51603 91 61 44 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
51604 61 26 1 0 0 TYPE NO ALPHA SELECT
51605 1 542 18 1 0 0 542 TYPE (SPACE) ADD
51606 05 9 4 1 2 0 TRANSFER
51607 61 28 1 0 0 SELECT
51608 05 9 6 1 2 0 TRANSFER
51609 61 43 0 0 0 SPACE CTR SELECT
51610 05 9 8 2 2 0 TRANSFER
51611 5 9 10 1 2 0 CLEAR TRANSFER
51612 76 519 2 0 0 0 519 JUMP unconditional
51700 PROCR 517 517 ALPHA OUTPUT SR
51701 NOTES RADIX SELECT
51702 81 517 2 0 0 0 517 START OF SUBROUTINE
51703 91 61 44 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
Source image: P1000400.JPG
51704 61 26 1 0 0 SELECT
51705 5 9 4 1 2 0 TRANSFER
51706 61 28 1 0 0 SELECT
51707 5 9 6 1 2 0 TRANSFER
51708 67 2 0 0 0 SELECT
51709 5 9 8 2 2 0 TRANSFER
51710 67 3 0 0 0 SELECT
51711 5 9 10 2 2 0 TRANSFER
51712 517 2 0 0 0 517 O/P ALPHA S/R LINK SELECT
51713 76 518 15 0 0 0 518 JUMP unconditional
51800 PROCR 518 518
51801 NOTES RADIX B O/P S/R SELECT
51802 81 518 2 0 0 0 518 START OF SUBROUTINE
51803 61 42 0 0 0 SELECT
51804 4 61 43 0 0 0 AUGMENT LOCATION COUNTER AUGMENT
51805 91 61 44 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
51806 67 0 0 0 0 SERIAL NO FOR INSTUCTIONS SELECT
51807 5 9 4 2 2 0 TRANSFER
51808 67 1 0 0 0 SC INDICATOR FOR INSIONS SELECT
51809 5 9 6 2 2 0 TRANSFER
51810 67 2 0 0 0 PARAMETER SELECT
51811 5 9 8 2 2 0 TRANSFER
51812 67 3 0 0 0 SELECT
51813 5 9 10 2 2 0 TRANSFER
51814 518 2 0 0 0 518 LINK SELECT
51713>51815 5 516 2 0 0 0 516 O/P TYPE S/R LINK TRANSFER
51900 PROCR 519 519 O/P S/R
51901 NOTES RADIX B SELECT
51612>51902 94 519 8 0 2 8 519 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
52008>51903 544 2 1 0 0 544 BE WORD SELECT
51904 5 9 4 1 2 0 TRANSFER
51905 80 514 2 0 0 0 514 PREP STAGE OP ENTER SUBROUTINE
51906 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
51907 C 0 0 0 144
51902>51908 95 0 0 2 0 SELECT MODIFICATION REGISTER
51909 5 61 44 1 0 0 TRANSFER
51910 5 67 1 0 0 0 CLEAR S67 TRANSFER
51911 5 67 2 1 0 0 TRANSFER
51912 82 516 2 0 0 0 516 END OF SUBROUTINE / LEAVE SUBROUTINE
52000 PROCR 520 520 OP REMAINING DETAILS SR
52001 NOTES RADIX B SELECT
52002 81 520 2 0 0 0 520 START OF SUBROUTINE
52003 0 61 44 0 0 0 SELECT
52004 70 520 9 0 0 0 520 NOTHING TO O/P JUMP IF A == 0
52005 91 61 44 0 2 0 OP CTR SET MODIFICATION REGISTER AT VARIABLE
52006 0 520 2 0 0 0 520 LINK SELECT
52007 5 516 2 0 0 0 516 O/P TYPE S/R LINK TRANSFER
52008 76 519 3 0 0 0 519 JUMP unconditional
52004>52009 82 520 2 0 0 0 520 END OF SUBROUTINE / LEAVE SUBROUTINE
52100 PROCR 521 521 I/P INSTRUCTION SR
52101 NOTES RADIX B SELECT
52102 81 521 2 0 0 0 521 START OF SUBROUTINE
52103 80 509 2 0 0 0 509 - I/P ENTER SUBROUTINE
52104 10 0 0 0 1 SELECT LITERAL
52105 5 61 99 0 0 0 NON I/P IND TRANSFER
52106 80 522 2 0 0 0 522 - I/P C-LINE S/R ENTER SUBROUTINE
Source image: P1000401.JPG
52107 82 521 2 0 0 0 521 END OF SUBROUTINE / LEAVE SUBROUTINE
52200 PROCR 522 522 I/P C-LINE S/R
52201 NOTES RADIX B SELECT
52202 81 522 2 0 0 0 522 START OF SUBROUTINE
52203 61 99 0 0 0 NON I/P IND SELECT
52204 71 522 10 0 0 0 522 JUMP IF A != 0
52205 80 534 2 0 0 0 534 SUSPEND ENTER SUBROUTINE
52206 80 509 2 0 0 0 509 INPUT ENTER SUBROUTINE
52207 6 1 12 0 SELECT
52208 2 542 26 1 0 0 542 C,-,-,-,-, SUBTRACT
52209 71 362 3 0 0 0 362 -G.N.B. JUMP IF A != 0
52204>52210 50 77 2 0 0 0 UNPACK FIXED FIELD DATA
52211 C 548 2 0 0 0 548
52212 52 7 2 0 0 0 EDIT INSTRUCTIONS EDIT
52213 C 548 2 0 0 0 548
52214 77 20 1 0 0 PREVIOUS PROCR NO SELECT
52215 5 7 28 1 0 0 TRANSFER
52216 77 22 1 0 0 PASS 1 REPORTS SELECT
52217 5 7 48 1 0 0 TRANSFER
52218 55 77 24 1 0 16 COPY ANOTATION BULK COPY
52219 C 7 32 1 0 0
52220 0 66 4 1 0 0 ACTION ALPHA SELECT
52221 2 542 26 1 0 0 542 SUBTRACT
52222 70 526 2 0 0 0 526 >THIS IS A C-LINE JUMP IF A == 0
52235>
36908>52223 10 0 0 0 0 SELECT LITERAL
52224 5 61 20 1 0 0 TRANSFER
52225 94 522 27 0 1 0 522 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
52226 76 525 2 0 0 0 525 >NO UNMATCHED SEQ CHS BACK JUMP unconditional
52225>52227 1 0 1 0 (R1 ABS) SC BACK DEST SELECT
52228 2 66 2 1 0 0 SERIAL THIS ORDER SUBTRACT
52229 70 524 2 0 0 0 524 >THIS IS A DESTINATION JUMP IF A == 0
52230 72 525 2 0 0 0 525 >NOW TRY SEQ CH FWD LIST JUMP IF A >= 0
52231 542 28 1 0 0 542 ????? SELECT
52232 5 61 20 1 0 0 TRANSFER
52233 80 523 2 0 0 0 523 >STORE 'ADDRESS'=CURRENT SPACE CTR ENTER SUBROUTINE
52542>52234 80 529 2 0 0 0 529 PRINT ENTRY POINT S/PRINT WRONG ENTRY POENTER SUBROUTINE
52235 76 522 23 0 0 0 522 JUMP unconditional
52300 PROCR 523 523
52301 NOTES 0 0 SELECT
52302 81 523 2 0 0 0 523 START OF SUBROUTINE
52303 0 0 1 0 SOURCE OF SC BACK SELECT
52304 3 61 0 0 0 0 COPY
52305 5 1 0 1 0 OVERWRITE DEST TRANSFER
52306 0 61 20 1 0 0 SELECT
52307 71 523 15 0 0 0 523 >IGNORED JUMP IF A != 0
52308 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
52309 36 66 2 0 0 0 COLLATE AND ADD
52310 12 0 0 0 2 SUBTRACT LITERAL
52311 71 523 15 0 0 0 523 >NOT TO PROCR START JUMP IF A != 0
52312 96 0 0 1 0 SELECT MODIFIER
52313 80 421 2 0 0 0 421 >CONTRACT SC BACK LIST ENTER SUBROUTINE
52314 76 523 20 0 0 0 523 >STEP R1 JUMP unconditional
52311>
52307>52315 0 61 10 0 0 0 CURRENT PROCR SELECT
52316 31 0 0 0 10 SHIFT (A) BY BITS
52317 1 61 43 0 0 0 SPACE CTR ADD
52318 2 61 11 0 0 0 PROCR START SUBTRACT
Source image: P1000402.JPG
52319 5 0 0 1 0 STORE PROCR+ADDRESS IN PROCR I Ю½ Ю½TRANSFER
52314>52320 94 523 21 0 1 2 523 STEP STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
52320>52321 82 523 2 0 0 0 523 END OF SUBROUTINE / LEAVE SUBROUTINE
52400 PROCR 524 524 I/P C-LINE S/R
52401 NOTES RADIX B STORE ABS DEST FOR MATCHED SC'S BACK SELECT
52407>
52229>52402 80 523 2 0 0 0 523 > Ю ‼ ‼ ENTER SUBROUTINE
52403 0 0 1 0 1 0 (R1 IS ABS) NEXT DEST SELECT
52404 2 66 2 0 0 0 THIS SERIAL SUBTRACT
52405 71 525 43 0 0 0 525 >TRY SC FWD JUMP IF A != 0
52406 80 529 2 0 0 0 529 ENTER SUBROUTINE
52407 76 524 2 0 0 0 524 >THERE MAY BE MORE JUMP unconditional
52500 PROCR 525 525 I/P C-LINE S/R
52501 NOTES RADIX B TRY MATCH WITH SEQ CHS FWD SELECT
52230>
52226>52502 0 61 117 0 0 0 CTR OF SEC 20 LENGTH SELECT
52503 70 526 2 0 0 0 526 >EMPTY JUMP IF A == 0
52504 0 20 0 0 0 0 SMALLEST DEST OF SC FWD SELECT
52505 70 526 2 0 0 0 526 >LIST EMPTY,SKIP TO END JUMP IF A == 0
52506 2 66 2 1 0 0 THIS SERIAL SUBTRACT
52507 70 525 11 0 0 0 525 >IS DEST OF SEQ CH FWD JUMP IF A == 0
52508 72 526 2 0 0 0 526 >EARLIER THAN EARLIEST DEST JUMP IF A >= 0
52509 0 542 28 1 0 0 542 SELECT
52510 5 61 20 1 0 0 SEQ CHS FORWARD TRANSFER
52554>
52556>
52507>52511 20 2 0 0 0 SELECT
52512 30 0 0 0 6 SHIFT (A) BY QUARTETS
52513 30 0 0 0 1- SHIFT (A) BY QUARTETS
52514 70 525 19 0 0 0 525 >SC TO PROCR START JUMP IF A == 0
52515 99 0 1 1 0 SUBTRACT MODIFICATION REGISTER FROM A
52516 72 525 19 0 0 0 525 >OK JUMP IF A >= 0
52517 10 0 0 0 79 SELECT LITERAL
52518 80 501 2 0 0 0 501 >REPORT SR ENTER SUBROUTINE
52516>
52514>52519 0 20 1 0 0 0 SELECT
52520 5 61 0 0 0 0 TRANSFER
52521 0 20 2 0 0 0 SELECT
52522 70 525 32 0 0 0 525 >SC TO PROCR START JUMP IF A == 0
52523 30 0 0 0 4- SHIFT (A) BY QUARTETS
52524 5 523 2 0 0 0 523 FLIPFLOP TRANSFER
52525 0 61 43 0 0 0 SPACE CTR SELECT
52526 2 61 11 0 0 0 CURRENT PROCR START SUBTRACT
52527 34 544 26 0 0 0 544 BITS 1-10 SET (N) IN B
52528 124 523 2 0 1 0 523 0 OR 10 modify address of next
52529 33 0 0 0 0 ///// SHIFT (AB) BY BITS
52530 124 20 2 0 3 0 ABS LOCN Q1-4 modify address of next
52531 114 0 0 0 0 PACK NEXT ENTRY->SEC 18 replace selected bits
52522>52532 0 61 117 0 0 0 SELECT
52533 12 0 0 0 3 SUBTRACT LITERAL
52534 3 61 117 0 0 0 REDUCE NO OF SC'S IN TRANSIT COPY
52535 71 525 38 0 0 0 525 >LIST NOT EMPTY JUMP IF A != 0
52536 5 20 0 0 0 0 TRANSFER
52537 76 525 41 0 0 0 525 >TEST IF LAST SC WAS WRONG JUMP unconditional
52535>52538 124 20 3 0 2 0 select literal and division
52539 1 61 116 1 0 0 LENGTH IN 61/117 ADD
52540 128 20 0 0 0 0 UP 3 LOCNS bulk copy short numeric
52537>52541 61 20 1 0 0 SELECT
Source image: P1000403.JPG
52542 71 522 34 0 0 0 522 >WAS A WRONG ENTRY POINT JUMP IF A != 0
52405>52543 61 117 0 0 0 CTR OF SECN 20 LENGTH SELECT
52544 70 525 57 0 0 0 525 >PRINT LINE JUMP IF A == 0
52545 66 2 0 0 0 SELECT
52546 2 20 0 0 0 0 NEXT SCFWD SUBTRACT
52547 70 525 55 0 0 0 525 >PRINT ENTRY POINT JUMP IF A == 0
52548 73 525 57 0 0 0 525 >PRINT LINE JUMP IF A < 0
52549 61 0 0 0 0 LIST SELECT
52550 70 525 52 0 0 0 525 JUMP IF A == 0
52551 80 529 2 0 0 0 529 PRINT ENTRY POINT ENTER SUBROUTINE
52550>52552 542 28 1 0 0 542 ????? SELECT
52553 5 61 20 1 0 0 TRANSFER
52554 76 525 11 0 0 0 525 JUMP unconditional
52547>52555 80 529 2 0 0 0 529 ENTER SUBROUTINE
52556 76 525 11 0 0 0 525 >MOVE LIST UP,TRY AGAIN JUMP unconditional
52548>
52544>52557 52 7 2 0 0 0 EDIT ENTRY POINT EDIT
52558 C 551 8 0 0 0 551
52600 PROCR 526 526 I/P C LINE S/R
52601 NOTES RADIX B SELECT
52508>
52505>
52503>
52222>52602 10 0 0 0 0 SELECT LITERAL
52603 34 66 6 1 0 0 SET (N) IN B
52604 80 533 2 0 0 0 533 RT ALIGN S/R ENTER SUBROUTINE
52605 5 66 6 1 0 0 TRANSFER
52606 5 66 16 0 0 0 CLEAR INDICATOR TRANSFER
52607 35 0 0 0 1 QUARTET ONE. PREPARE FOR DIGIT COLLATION
52608 36 66 8 1 0 0 ITEM COLLATE AND ADD
52609 12 0 0 0 + SUBTRACT LITERAL
52610 71 527 2 0 0 0 527 >NOT 'ITEM+' JUMP IF A != 0
52611 10 0 0 0 1 SELECT LITERAL
52612 5 66 16 0 0 0 IF IT IS SET TRANSFER
52613 66 8 1 0 0 INDICATOR SELECT
52614 30 0 0 0 1- AND REMOVE + SHIFT (A) BY QUARTETS
52615 72 526 17 0 0 0 526 JUMP IF A >= 0
52616 11 0 0 0 1 TO MAKE COMPLEMENT CORRECT ADD LITERAL
52615>52617 5 66 8 1 0 0 TRANSFER
52700 PROCR 527 527 I/P C-LINE S/R
52701 NOTES RADIX B SELECT
52610>52702 77 38 1 0 0 IGNORE'IND SELECT
52703 2 542 28 1 0 0 542 SUBTRACT
52704 3 61 98 1 0 0 COPY
52705 70 527 31 0 0 0 527 JUMP IF A == 0
52706 77 24 1 0 0 FIRST 5 CHARS ANNOTATION SELECT
52707 12 0 0 0 7369515355 TRACE' SUBTRACT LITERAL
52708 71 527 31 0 0 0 527 >NO JUMP IF A != 0
52709 66 4 1 0 0 SELECT
52710 2 542 26 1 0 0 542 SUBTRACT
52711 70 528 49 0 0 0 528 >A C-LINE JUMP IF A == 0
52712 66 5 0 0 0 SELECT
52713 12 0 0 0 48300 SUBTRACT LITERAL
52714 70 528 49 0 0 0 528 >80 ACTION JUMP IF A == 0
52715 12 0 0 0 150 SUBTRACT LITERAL
52716 70 528 49 0 0 0 528 >85 JUMP IF A == 0
52717 12 0 0 0 ££0 SUBTRACT LITERAL
52718 70 528 49 0 0 0 528 >94 JUMP IF A == 0
Source image: P1000404.JPG
52719 12 0 0 0 30 SUBTRACT LITERAL
52720 70 528 49 0 0 0 528 >97 JUMP IF A == 0
52721 0 25 0 0 0 0 SELECT
52722 101 40 1 2 0 subtract literal address
52723 72 528 49 0 0 0 528 >LIST FULL JUMP IF A >= 0
52724 61 43 0 0 0 SPACESTR SELECT
52725 30 0 0 0 5 SHIFT (A) BY QUARTETS
52726 1 66 2 0 0 0 LINE SERIAL ADD
52727 124 25 0 0 1 0 modify address of next
52728 5 25 2 1 0 0 TRANSFER
52729 10 0 0 0 2 SELECT LITERAL
52730 4 25 0 0 0 0 AUGMENT
52853>
52708>
52705>52731 80 511 2 0 0 0 511 PRINT ENTER SUBROUTINE
52732 66 6 2 0 0 DEC REF SELECT
52733 12 0 0 0 100 SUBTRACT LITERAL
52734 73 527 41 0 0 0 527 >SECTION JUMP IF A < 0
52735 12 0 0 0 899 SUBTRACT LITERAL
52736 72 527 41 0 0 0 527 >999 OR 1000+ JUMP IF A >= 0
52737 60 0 0 0 0 SET DECIMAL RADIX
52738 10 0 0 0 2- SELECT LITERAL
52739 4 66 8 1 0 0 REDUCE ITEM AUGMENT
52740 62 0 0 0 0 SET EXCESS CONSTANTS
52736>
52734>52741 66 4 1 0 0 SELECT
52742 2 542 26 1 0 0 542 C. . . . . SUBTRACT
52743 70 528 6 0 0 0 528 JUMP IF A == 0
52744 34 66 4 1 0 0 SET (N) IN B
52745 80 533 2 0 0 0 533 RT ALIGN S/R ENTER SUBROUTINE
52746 5 66 4 1 0 0 TRANSFER
52747 66 4 2 0 0 ACTION SELECT
52748 32 0 0 0 1- SHIFT (AB) BY QUARTETS
52749 5 61 110 0 0 0 GROUP TRANSFER
52750 32 0 0 0 1 SHIFT (AB) BY QUARTETS
52751 11 0 0 0 1 ADD LITERAL
52752 5 61 50 0 0 0 VARIANT +1 TRANSFER
52800 PROCR 528 528
52801 NOTES RADIX B SELECT
52802 0 61 110 0 0 0 SELECT
52803 80 537 2 0 0 0 537 CONVERT ENTER SUBROUTINE
52804 11 0 0 0 1 ADD LITERAL
52805 5 61 110 0 0 0 GROUP+1 TRANSFER
52743>52806 61 98 1 0 0 W/L SELECT
52807 71 528 10 0 0 0 528 JUMP IF A != 0
52808 5 61 110 0 0 0 CLEAR GROUP WHEN 'IGNORE' IND SET TRANSFER
52809 76 362 2 0 0 0 362 >GNB JUMP unconditional
52807>52810 124 543 22 0 2 0 543 select literal and division
52811 112 66 8 1 0 0 convert
52812 5 66 8 1 0 0 ITEM TO BIN TRANSFER
52813 124 543 22 0 2 0 543 select literal and division
52814 112 66 12 1 0 0 convert
52815 5 66 12 1 0 0 MOD DIGITS TO BIN TRANSFER
52816 0 61 110 0 0 0 SELECT
52817 12 0 0 0 2 SUBTRACT LITERAL
52818 70 528 44 0 0 0 528 >GROUP 1 JUMP IF A == 0
52819 12 0 0 0 3 SUBTRACT LITERAL
52820 70 528 47 0 0 0 528 >GROUP 4 JUMP IF A == 0
52821 12 0 0 0 2 SUBTRACT LITERAL
Source image: P1000405.JPG
52822 70 528 44 0 0 0 528 >GROUP 6 JUMP IF A == 0
52823 12 0 0 0 1 SUBTRACT LITERAL
52824 70 528 44 0 0 0 528 >GROUP 7 JUMP IF A == 0
52825 12 0 0 0 3 SUBTRACT LITERAL
52826 73 528 41 0 0 0 528 >GROUPS,0,2,3,5,8,9 JUMP IF A < 0
52827 12 0 0 0 3 SUBTRACT LITERAL
52828 73 528 44 0 0 0 528 >GROUPS 10-12 JUMP IF A < 0
52829 70 528 36 0 0 0 528 >GROUP13 JUMP IF A == 0
52830 12 0 0 0 1 SUBTRACT LITERAL
52831 70 528 44 0 0 0 528 >GROUP 14 JUMP IF A == 0
52832 61 50 0 0 0 VARIANT+1 SELECT
52833 12 0 0 0 7 SUBTRACT LITERAL
52834 70 528 47 0 0 0 528 >156,DON'T CONVERT REFF JUMP IF A == 0
52835 76 528 44 0 0 0 528 JUMP unconditional
52829>52836 61 50 0 0 0 SELECT
52837 12 0 0 0 3 SUBTRACT LITERAL
52838 73 528 44 0 0 0 528 >ACTION 130 OR 131 JUMP IF A < 0
52839 10 0 0 0 0 SELECT LITERAL
52840 76 528 47 0 0 0 528 >ACTION 132-134, DON'T CONVERT REF JUMP unconditional
52826>52841 124 543 22 0 2 0 543 select literal and division
52842 112 66 14 1 0 0 convert
52843 5 66 14 1 0 0 LITERAL TO BIN TRANSFER
52838>
52835>
52831>
52828>
52824>
52822>
52818>52844 124 543 22 0 2 0 543 select literal and division
52845 112 66 7 1 0 0 convert
52846 5 66 6 1 0 0 TRANSFER
52840>
52834>
52820>52847 5 61 99 0 0 0 TRANSFER
52848 82 522 2 0 0 0 522 END OF SUBROUTINE / LEAVE SUBROUTINE
52723>
52720>
52718>
52716>
52714>
52711>52849 10 0 0 0 65 N' REPORT 'TRACE' SELECT LITERAL
52850 35 0 0 0 11000 PREPARE FOR DIGIT COLLATION
52851 30 0 0 0 3 SHIFT (A) BY QUARTETS
52852 37 7 49 0 0 0 REPLACE SELECTED BITS
52853 76 527 31 0 0 0 527 JUMP unconditional
52900 PROCR 529 529 PRINT SEQ CHANGE ENTRY POINT ON SEPARATE LINE
52901 NOTES RADIX B SELECT
52902 81 529 2 0 0 0 529 START OF SUBROUTINE
52903 0 61 20 1 0 0 SELECT
52904 71 529 7 0 0 0 529 >PRINT REPORTED SC JUMP IF A != 0
52905 0 23 46 1 0 0 'PRINT UNCONDITIONALLY' INDS SELECT
52906 70 529 12 0 0 0 529 >DON'T PRINT SEPARATE SC JUMP IF A == 0
52904>52907 52 5 2 0 0 0 EDIT
52908 C 551 2 0 0 0 551
52909 0 61 20 1 0 0 '?????'OR ZERO SELECT
52910 5 5 46 1 0 0 TRANSFER
52911 80 530 2 0 0 0 530 ENTER SUBROUTINE
52906>52912 10 0 0 0 0 SELECT LITERAL
52913 5 61 0 0 0 0 CLEAR LIST TRANSFER
Source image: P1000406.JPG
52914 82 529 2 0 0 0 529 END OF SUBROUTINE / LEAVE SUBROUTINE
53000 PROCR 530 530 SECOND PRINT S/R
53001 NOTES RADIX B SELECT
53002 81 530 2 0 0 0 530 START OF SUBROUTINE
53003 0 544 2 1 0 0 544 BEW SELECT
53004 5 5 50 1 0 0 TRANSFER
53005 0 999 14 1 0 0 SEC 5 PARAS SELECT
53006 5 999 16 1 0 0 CORRUPT SEC 7 PARAS TRANSFER
53007 80 511 2 0 0 0 511 >PRINT SR(WHICH WILL USE SEC 5) ENTER SUBROUTINE
53008 0 999 30 1 0 0 SELECT
53009 5 999 16 1 0 0 RESTORE SEC 7 PARAS EX WL TRANSFER
53010 54 5 2 1 0 48 BULK CLEAR
53011 82 530 2 0 0 0 530 END OF SUBROUTINE / LEAVE SUBROUTINE
53100 PROCR 531 531 NEG NO S/R
53101 NOTES RADIX B SELECT
53102 81 531 2 0 0 0 531 START OF SUBROUTINE
53103 10 0 0 0 0 SELECT LITERAL
53104 2 66 8 1 0 0 ITEM SUBTRACT
53105 70 531 17 0 0 0 531 DO NOT SET INDICATOR FOR ZERO ITEM JUMP IF A == 0
53106 73 531 17 0 0 0 531 JUMP IF A < 0
53107 5 66 8 1 0 0 TRANSFER
53108 10 0 0 0 80 B8 SELECT LITERAL
53109 4 61 34 0 0 0 PARA W/L AUGMENT
53110 66 10 1 0 0 SELECT
53111 12 0 0 0 2 SUBTRACT LITERAL
53112 71 531 17 0 0 0 531 JUMP IF A != 0
53113 12 0 0 0 1 SUBTRACT LITERAL
53114 4 66 8 1 0 0 AUGMENT
53115 10 0 0 0 1 SELECT LITERAL
53116 5 66 10 1 0 0 TRANSFER
53112>
53106>
53105>53117 82 531 2 0 0 0 531 END OF SUBROUTINE / LEAVE SUBROUTINE
53200 PROCR 532 532 STACK S/R
53201 NOTES RADIX B SELECT
53202 81 532 2 0 0 0 532 START OF SUBROUTINE
53203 0 61 0 0 0 0 ACTION SELECT
53204 5 67 3 0 0 0 TRANSFER
53205 66 6 1 0 0 REF SELECT
53206 30 0 0 0 2 SHIFT (A) BY QUARTETS
53207 1 61 34 0 0 0 PARAM ADD
53208 5 67 2 0 0 0 TRANSFER
53209 66 10 1 0 0 SELECT
53210 70 532 16 0 0 0 532 >DISC 0 JUMP IF A == 0
53211 12 0 0 0 2 SUBTRACT LITERAL
53212 71 532 15 0 0 0 532 >NOT DISC 2 JUMP IF A != 0
53213 10 0 0 0 1 STEP ITEM SELECT LITERAL
53214 4 66 8 1 0 0 AUGMENT
53212>53215 545 29 0 0 0 545 B16 SELECT
53210>53216 124 66 12 0 1 0 MOD DIGITS modify address of next
53217 1 545 25 0 0 0 545 BITS IN B14 POSITION ADD
53218 1 66 8 0 0 0 ITEM ADD
53219 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
53220 36 67 3 0 0 0 COLLATE AND ADD
53221 37 67 3 0 0 0 PACK WITH ACTION REPLACE SELECTED BITS
53222 10 0 0 0 0 CLEAR A SELECT LITERAL
53223 82 532 2 0 0 0 532 END OF SUBROUTINE / LEAVE SUBROUTINE
Source image: P1000407.JPG
53300 PROCR 533 533 RT ALIGN S/R
53301 NOTES RADIX B SELECT
53302 81 533 2 0 0 0 533 START OF SUBROUTINE
53303 10 0 0 0 0 SELECT LITERAL
53304 5 61 18 1 0 0 TRANSFER
53308>53305 0 61 18 1 0 0 SELECT
53306 32 0 0 0 2 SHIFT (AB) BY QUARTETS
53307 5 61 18 1 0 0 TRANSFER
53308 75 533 5 0 0 0 533 JUMP IF AB != 0
53309 0 61 18 1 0 0 SELECT
53310 82 533 2 0 0 0 533 END OF SUBROUTINE / LEAVE SUBROUTINE
53400 PROCR 534 534 SUSPEND S/R
53401 NOTES RADIX B SELECT
53402 81 534 2 0 0 0 534 START OF SUBROUTINE
53403 55 66 6 1 0 8 BULK COPY
53404 C 61 26 1 0 0
53405 66 16 0 0 0 ITEM + IND SELECT
53406 5 66 17 0 0 0 ITEM + IND (STORE) TRANSFER
53407 82 534 2 0 0 0 534 END OF SUBROUTINE / LEAVE SUBROUTINE
53500 PROCR 535 535 REPLACE S/R
53501 NOTES RADIX B SELECT
53502 81 535 2 0 0 0 535 START OF SUBROUTINE
53503 55 61 26 1 0 8 BULK COPY
53504 C 66 6 1 0 0
53505 66 17 0 0 0 ITEM + IND (STORE) SELECT
53506 5 66 16 0 0 0 ITEM + IND TRANSFER
53507 82 535 2 0 0 0 535 END OF SUBROUTINE / LEAVE SUBROUTINE
53600 PROCR 536 536 OP INST S/R
53601 NOTES RADIX B SELECT
53602 81 536 2 0 0 0 536 START OF SUBROUTINE
53603 66 12 1 0 0 MOD DIGITS SELECT
53604 5 61 2 0 0 0 TRANSFER
53605 80 489 2 0 0 0 489 >MOD AND PARAMETER ENTER SUBROUTINE
53606 61 2 0 0 0 SELECT
53607 5 66 12 1 0 0 TRANSFER
53608 0 66 8 1 0 0 SELECT
53609 72 536 11 0 0 0 536 >NOT NEGATIVE ITEM JUMP IF A >= 0
53610 80 531 2 0 0 0 531 NEG NO ENTER SUBROUTINE
53609>53611 80 532 2 0 0 0 532 STACK ENTER SUBROUTINE
53612 80 518 2 0 0 0 518 OP ENTER SUBROUTINE
53613 82 536 2 0 0 0 536 END OF SUBROUTINE / LEAVE SUBROUTINE
53700 PROCR 537 537 CONVERT (A) TO BINARY
53701 NOTES RADIX B SELECT
53702 81 537 2 0 0 0 537 START OF SUBROUTINE
53703 5 543 42 1 0 0 543 TRANSFER
53704 62 0 0 0 0 SET EXCESS CONSTANTS
53705 124 543 22 0 2 0 543 select literal and division
53706 112 543 42 1 0 0 543 convert
53707 82 537 2 0 0 0 537 END OF SUBROUTINE / LEAVE SUBROUTINE
53800 PROCR 538 538 CONVERT (A) TO DECIMAL
53801 NOTES 538 SELECT
53802 81 538 2 0 0 0 538 START OF SUBROUTINE
53803 5 543 42 1 0 0 543 TRANSFER
53804 60 0 0 0 0 SET DECIMAL RADIX
Source image: P1000408.JPG
53805 124 543 2 0 2 0 543 select literal and division
53806 112 543 42 1 0 0 543 convert
53807 82 538 2 0 0 0 538 END OF SUBROUTINE / LEAVE SUBROUTINE
53900 PROCR 539 539 A2>B
53902 81 539 2 0 0 0 539 START OF SUBROUTINE
53903 42 A2 0 0 0 0 INPUT
53904 C 8 0 0 0 0
53905 59 8 6 0 12 0 SET MODIFICATION REGISTER FOR MERGE
53906 C 8 4 2 0 0
53907 82 539 2 0 0 0 539 END OF SUBROUTINE / LEAVE SUBROUTINE
54000 PROCR 540 540 O/P>A9
54002 81 540 2 0 0 0 540 START OF SUBROUTINE
54003 94 540 9 0 6 50 540 FORM UP MULTIRECORD BLOCK STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
54004 544 2 1 0 0 544 BEW SELECT
54005 5 10 306 1 0 0 TRANSFER
54006 80 541 2 0 0 0 541 ENTER SUBROUTINE
54007 90 0 0 6 0 SET UP MOD SET MODIFICATION REGISTER AT LITERAL
54008 C 0 0 0 300
54003>54009 82 540 2 0 0 0 540 END OF SUBROUTINE / LEAVE SUBROUTINE
54100 PROCR 541 541 WRITE A9
54102 81 541 2 0 0 0 541 START OF SUBROUTINE
54103 10 0 0 0 800000 SELECT LITERAL
54104 34 999 12 0 0 0 SEC 10 SET (N) IN B
54105 125 4096 1 1 0 clear indicators
54106 1 999 7 0 0 0 D1/A9 ADD
54107 124 999 0 0 3 0 modify address of next
54108 123 160 0 2 0 enter master routine
54109 82 541 2 0 0 0 541 END OF SUBROUTINE / LEAVE SUBROUTINE
54200 CONST 542 542 1 ALPHA CONSTANTS
54202 (A)VALUE;
54204 TABLE;
54206 CONST;
54208 PROCR;
54210 (A)NOTES;
54212 END ; END
54214 DUMPS;
54216 FILES;
54218 TYPE ;
54220 FIEND;
54222 > ; (R >½Ю - CK)
54224 TYPE.;
54226 C ;
54228 ?????;
54230 TYPE£;
54232 (B)1; CONVERT LITERALS OF 35 ACTION
54234 2;
54236 4;
54238 8;
54240 16;
54242 32;
54244 64;
54246 128;
54248 256;
54250 512;
54300 CONST 543 543 1 CONVERT TABLES
Source image: P1000409.JPG
54302 (D)1;
54304 16;
54306 256;
54308 4096;
54310 65536;
54312 1048576;
54314 16777216;
54316 268435456;
54318 4294967296;
54320 ££££££££££;
54322 1; DEC->BIN
54324 Ю;
54326 64;
54328 3.8;
54330 2710;
54332 186Ю0;
54334 £4240;
54336 989680;
54338 5£5.100;
54340 3‼9Ю+Ю00;
54342 0; (A)WL
54344 0; CLEO'PARA WORD
54400 CONST 544 544 0 DECIMAL CONSTANTS
54402 (D)7.; B.E.
54403 7.000; WORD
54404 0; 0:48 MR SETTING
54405 90; MR NOW 0:144
54406 1; FUNCTIONS WORDS
54407 45; TYPES IN ALPHA
54408 45;
54409 44;
54410 4;
54411 4;
54412 2;
54413 (R)62:0; LONG NO SECT
54414 63:0; SHORT NO SECT
54415 62:0; T.DS.L. SECT
54416 18:2499; FOR SEQUENCE CHANGES
54417 18:0;
54418 (B)180; FOR TSL STORAGE
54419 180;
54420 (D)3;
54421 7£££0; B5-19
54422 1£££; B1-13
54423 66666; DEC RADIX
54424 66.64; ST RADIX
54425 66666; DEC RADIX
54426 3££; BITS 1-10
54427 01000; BIT 13
54428 3£; BITS 1-6
54500 CONST 545 545 0 INSTRUCTIONS
54502 (R)92:9;
54503 (D)Ю8006; 10/1/0 6
54504 +8006; 12/1/0 6
54505 7;
54506 £££££; THIS ISN'T A DUMMY
54507 £££££;
54508 (D)60000; 6
Source image: P1000410.JPG
54509 40000; 4 B19
54510 50000; 5
54511 30000; 3
54512 70000; 7
54513 20000; 2 B18
54514 90000; 9
54515 Ю0000; 10
54516 ‼0000; 11
54517 :0000; 13
54518 2Ю001-; 18/1/1/0/1
54519 8+000-; 24/1/2
54520 80000-; 24/0/0
54521 0Ю000; 0/1/1
54522 1.000; 1/1/3
54523 1Ю000; 1/1/1
54524 1+000; 1/1/2
54525 0; 0/0/0
54526 02000; 0/0/1 B14
54527 04000; 0/0/2 B15
54528 06000; 0/0/3 B14-15
54529 08000; 0/1/0 B16
54530 28000; 2/1/0
54531 38000; 3/1/0
54532 22000-; 18/0/1
54533 26000-; 18/0/3
54534 2Ю000-; 18/1/1
54535 2.000-; 18/1/3
54536 12000; 1/0/1
54537 £0000; 15
54538 .0000; 14
54539 14000; 1/0/2
54540 ‼0000-; 27/0/0
54541 ‼2000-; 27/0/1
54542 ‼4000-; 27/0/2
54543 ‼6000-; 27/0/3
54544 ‼8000-; 27/1/0
54545 ‼Ю000-; 27/1/1
54546 88000-; 24/1/0
54547 Ю0000-; 26/0/0
54548 Ю2000-; 26/0/1
54549 10000; 1/0/0 B17
54550 2Ю00Ю-; 18/1/1/0/10
54551 80000; 8/0/0 B20
54552 88000; 8/1/0
54553 1.001; 1/1/3/0/1
54554 48000; 4/1/0
54555 2Ю005-; 18/1/1/0/5
54556 Ю8000-; 26/1/0
54557 68000; 6/1/0
54558 +0000; 12
54559 90000-; 25/0/0
54560 74000-; 23/0/2
54561 70000-; 23/0/0
54562 2‼016-; 18/1/1/0/10 (18/1/1/4096+22)
54563 Ю4000-; 26/0/2
54564 2‼017-; 18/1/1/0/9- (18/1/1/4096+23)
54565 +0000-; 28/0/0
54566 84000-; 24/0/2
54567 :2000-; 29/0/1
54568 +4000-; 28/0/2
Source image: P1000411.JPG
54569 +6000-;
54570 ++000-;
54571 +.000-;
54572 2‼01‼-;
54573 9‼000-;
54574 (R)18:2496;
54575 (D)1;
54576 £0000-;
54577 £8000-;
54578 .8000-;
54579 .0008-;
54580 .0000-;
54581 £0008-;
54582 40000-;
54583 48000-;
54584 58000-;
54585 40008-;
54586 50000-;
54587 60000-;
54588 .0004-;
54589 £8004-;
54590 68000-;
54591 407+;
54592 400;
54593 6808Ю;
54594 500;
54595 0409+;
54596 200;
54597 300;
54598 Ю6000-;
54599 ;
54600 CONST 546 546 0
54602 (D)86000-;
54603 82000-;
54604 28006;
54605 38006;
54606 ‼8002-;
54607 1Ю002;
54608 22005-;
54609 06004;
54610 20001;
54611 88001-;
54612 ‼4002-;
54613 88007-;
54614 Ю5££‼-;
54615 Ю1££Ю-;
54616 20006;
54617 86006-;
54618 74002-;
54619 0;
54620 0;
54621 8+006-;
54622 1Ю00Ю;
54623 30002;
54624 1Ю014;
54625 04002;
54626 88005-;
54627 :6000-;
54628 8000-;
Source image: P1000412.JPG
54629 +Ю000-;
54630 1.001; 1/1/3 1
54700 TABLE 547 547 1 TRIAL DATA HEADING BLOCK 'FILES'
54701 NOTES
54800 TABLE 548 548 1 INSTRUCTIONS
54801 NOTES
54802 66 0 0 0 2 0 5 0 0 0 0 0 0 AM IND
54804 66 2 0 0 1 0 5 5 5 0 0 0 0 S. NO
54806 66 4 0 0 2 0 5 0 4 0 0 0 0 ACTION
54808 66 6 0 0 2 0 5 0 3 0 0 0 0 REF
54810 66 8 0 0 1 0 5 5 0 4 2 0 0 ITEM
54812 66 10 0 0 1 0 2 8 1 1 0 0 0 DISC
54814 66 12 0 0 1 0 3 7 0 2 0 0 0 MOD
54816 66 14 0 0 1 0 10 0 5 9 2 0 0 LITERAL
54818 543 44 0 0 2 0 5 0 0 0 0 0 1 CLEO' PARA WORD
54900 TABLE 549 549 1 TABLES
54901 NOTES
54902 66 0 0 0 2 0 5 0 0 0 0 0 0 AM IND
54904 66 2 0 0 0 0 5 0 5 0 0 0 0 S NO
54906 66 16 0 0 0 0 5 0 1 4 0 0 0 FIRST REF
54908 66 17 0 0 0 0 5 0 1 4 0 0 0 FIRST ITEM
54910 66 18 0 0 0 0 5 0 1 4 0 0 0 SECOND REF
54912 66 19 0 0 0 0 5 0 1 4 0 0 0 SECOND ITEM
54914 66 3 0 0 0 0 2 3 1 1 0 0 0 S/L/ALPHA
54916 66 4 0 0 0 0 3 2 0 2 0 0 0 SINGLE/BE
54918 66 5 0 0 0 0 2 3 2 1 0 0 0 NO OF CHARS
54920 66 10 0 0 0 0 3 2 1 2 0 0 0 DISC
54922 66 11 0 0 0 0 2 3 2 1 0 0 0 SPACES
54924 66 12 0 0 0 0 3 2 1 2 0 0 0 ZEROS
54926 66 13 0 0 0 0 1 4 2 0 0 0 0 SIGN
54928 66 14 0 0 0 0 2 3 1 1 0 0 0 STERLING
54930 66 15 0 0 0 0 2 3 1 1 0 0 1 LTE
55000 TABLE 550 550 1 VALUE
55001 NOTES
55002 67 3 0 0 0 0 5 0 1 4 1 0 0 VALUE
55004 67 2 0 0 0 0 4 1 0 3 0 0 1 PARA
55100 TABLE 551 551 1 ENTRY PT ADJUSTMENT PM POINTS
55101 NOTES
55102 61 20 0 0 2 0 3 2 0 0 0 0 0 ??? OR ZERO
55104 61 0 0 0 0 0 5 0 1 0 0 0 0 ENTRY POINT
55106 542 22 0 0 2 0 1 0 0 0 0 0 1 '+'
55108 66 0 0 0 2 0 3 0 0 0 0 0 0 AMEND IND
55110 61 0 0 0 0 0 5 0 1 0 0 0 0 ENTRY PT
55112 542 22 0 0 2 0 1 0 0 0 0 0 1 >
55200 CONST 552 552 1 DUMMY FOR INSERTING M/C MODS
55300 PROCR 553 553 START OF PASS 3
55301 NOTES RADIX PREP STAGE SELECT
56720>55302 152 152 4 0 0 0 152 OVERLAY
55303 C 680 2 0 0 0 680
55304 55 9 0 1 0 100 BULK COPY
55305 C 15 0 1 0 0
55306 55 91 0 0 0 36 BULK COPY
55307 C 24 0 0 0 0
Source image: P1000413.JPG
55308 27 4 0 0 0 COMPILER? SELECT
55309 70 553 13 0 0 0 553 >NO JUMP IF A == 0
55310 46 A6 10 0 0 0 REALIGN TO 'INDEX' RUN BACK
55311 C 0 0 0 4
55312 76 553 14 0 0 0 553 JUMP unconditional
55309>55313 40 A6 0 0 0 1 INPUT EX PASS 2 OPEN FILE
55312>55314 54 16 0 0 0 40 BULK CLEAR
55315 54 5 0 0 0 50 CLEAR PRINTER ANNEX BULK CLEAR
55316 10 0 0 0 0 CLEAR DETAILS SELECT LITERAL
55317 5 94 0 0 0 0 OF SECTION 0 TRANSFER
55318 55 72 3 0 0 14 BULK COPY
55319 C 16 5 0 0 0
55320 54 72 3 0 0 14 BULK CLEAR
55321 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
55322 C 0 0 0 0 /////
55323 92 0 0 0 0 CHAPTERS CODED +1 SELECT
55324 30 0 0 0 5 SHIFT (A) BY QUARTETS
55325 11 0 0 0 1 ADD LITERAL
55326 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
55411>55327 10 0 0 0 0 SELECT LITERAL
55328 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
55329 36 92 9 0 1 0 COLLATE AND ADD
55330 5 16 2 0 0 0 CORRECTED CHAP TRANSFER
55331 96 0 0 1 0 SELECT MODIFIER
55332 5 16 1 0 0 0 UNCORR CHAP TRANSFER
55333 10 0 0 0 10 BIT 5 SELECT LITERAL
55334 32 0 0 0 10- SHIFT (AB) BY QUARTETS
55335 36 92 9 0 1 0 UNIQUENESS IND Q2 COLLATE AND ADD
55336 32 0 0 0 2- (CLEAR A) SHIFT (AB) BY QUARTETS
55337 75 553 40 0 0 0 553 >CHAP NOT UNIQUE JUMP IF AB != 0
55338 124 16 2 0 1 0 CORR CHAP modify address of next
55339 16 4 0 0 0 SW SEC LENGTH SELECT
55337>55340 1 72 18 0 3 0 CHAP LENGTH (CODING ONLY) ADD
55341 5 16 3 0 0 0 START OF FIRST SEC IN UNCORR CHAP TRANSFER
55342 5 16 4 0 0 0 CLEAR FOR TOT LENGTHS ALL SECS IN CHAP TRANSFER
55400 PROCR 554 554 UPDATE SEC INDEX, SWITCH PROCR STARTS
55401 NOTES 554 SELECT
55402 80 555 2 0 0 0 555 >DEAL WITH SECTIONS, ANNEXES ENTER SUBROUTINE
55403 16 3 0 0 0 UNCORR CHAP LENGTH SELECT
55404 1 16 4 0 0 0 ADD
55405 124 16 2 0 1 0 CORR CHAP modify address of next
55406 2 72 2 0 0 0 SUBTRACT
55407 73 554 10 0 0 0 554 JUMP IF A < 0
55408 124 16 2 0 1 0 modify address of next
55409 4 72 2 0 0 0 FORM MAX CORR CHAP LENGTH AUGMENT
55407>55410 94 554 11 0 3 1 554 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
55410>55411 94 553 27 0 1 1 553 >NEXT UNCORR CHAP STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
55412 91 92 28 0 1 0 COUNT CORR CHAPS SET MODIFICATION REGISTER AT VARIABLE
55413 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
55414 C 0 0 0 0 /////
55424>55415 10 0 0 0 10 BIT 5 SELECT LITERAL
55416 32 0 0 0 10- SHIFT (AB) BY QUARTETS
55417 36 92 10 0 1 0 COLLATE AND ADD
55418 70 554 23 0 0 0 554 >CHAP IS UNIQUE JUMP IF A == 0
55419 0 72 3 0 1 0 SELECT
55420 5 72 18 0 2 0 SWITCH PROCR START-END OF SECTIONS TRANSFER
55421 0 16 5 0 1 0 SELECT
55422 4 72 3 0 1 0 UPDATE CHAPTER LENGTH AUGMENT
55418>55423 94 554 24 0 2 1 554 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
Source image: P1000414.JPG
55423>55424 94 554 15 0 1 1 554 >NEXT CHAP STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
55425 0 61 100 0 0 0 BASIC SPECIAL CHAP LENGTH SELECT
55426 5 16 3 0 0 0 TRANSFER
55427 5 16 1 0 0 0 ZERO UNCORR CHAP TRANSFER
55428 0 92 29 0 0 0 SELECT
55429 5 16 2 0 0 0 CORR CHAP=SPEC CHAP TRANSFER
55430 5 16 4 0 0 0 CLEAR SUBTOTAL TRANSFER
55431 80 555 2 0 0 0 555 >DEAL WITH SPECIAL CHAP ENTER SUBROUTINE
55432 0 16 3 0 0 0 SELECT
55433 1 16 4 0 0 0 FORM SPECIAL CHAP LENGTH ADD
55434 5 72 2 0 1 0 TRANSFER
55435 101 214 1 3 0 select literal address
55436 2 72 2 0 1 0 SUBTRACT
55437 73 554 39 0 0 0 554 JUMP IF A < 0
55438 4 72 2 0 1 0 AUGMENT
55437>55439 101 220 1 3 0 FIRST CHAP MIN LENGTH=220 select literal address
55440 2 72 3 0 0 0 SUBTRACT
55441 73 554 43 0 0 0 554 >OK JUMP IF A < 0
55442 4 72 3 0 0 0 AUGMENT
55441>55443 54 16 0 0 0 40 CLEAR W/L'S BULK CLEAR
55444 0 92 29 0 0 0 SELECT
55445 12 0 0 0 7 SUBTRACT LITERAL
55446 73 554 48 0 0 0 554 >OK JUMP IF A < 0
55447 10 0 0 0 0 SELECT LITERAL
55446>55448 11 0 0 0 7 MAX VALUE=7 ADD LITERAL
55449 5 92 29 0 0 0 SPECIAL CHAP NUMBER TRANSFER
55450 80 574 2 0 0 0 574 READ ALIGN BLOCK A6 NORMAL RUN, PREP STAENTER SUBROUTINE
55451 80 574 2 0 0 0 574 READ SECOND INDEX BLOXK ENTER SUBROUTINE
55452 80 574 2 0 0 0 574 READ PROG DETAILS BLOCK ENTER SUBROUTINE
55453 0 9 4 2 0 0 PROG ID SELECT
55454 5 16 2 0 0 0 TRANSFER
55455 0 9 6 2 0 0 PROG SERIAL SELECT
55456 5 16 3 0 0 0 TRANSFER
55457 54 13 0 0 0 14 BULK CLEAR
55458 46 A2 10 0 0 1 BACK TO ALIGN BLOCK RUN BACK
55459 C 0 0 0 6
55460 48 A2 0 0 0 0 (STEP SO AS TO OVERWRITE IT) STEP BACK
55461 C 0 0 0 1
55462 583 60 1 0 0 583 ALIGN MARKS SELECT
55463 5 8 4 1 0 0 TRANSFER
55464 584 4 1 0 0 584 'INDEX' SELECT
55465 5 8 6 1 0 0 TRANSFER
55466 583 60 2 0 0 583 SELECT
55467 5 8 8 2 0 0 TRANSFER
55468 10 0 0 0 3 INDEX IDENTIFIER SELECT LITERAL
55469 5 8 10 1 0 0 TRANSFER
55470 80 577 2 0 0 0 577 >WRITE ENTER SUBROUTINE
55471 80 556 2 0 0 0 556 >WRITE DETAILS ENTER SUBROUTINE
55472 76 557 2 0 0 0 557 JUMP unconditional
55500 PROCR 555 555 PLACE SECTIONS AND ANNEXES IN UNCORRECTED CHAPTER SR
55502 81 555 2 0 0 0 555 START OF SUBROUTINE
55503 90 0 0 2 1 SET MODIFICATION REGISTER AT LITERAL
55504 C 0 0 0 100
55518>55505 0 15 0 0 2 0 SELECT
55506 70 555 18 0 0 0 555 >SECTION NOT USED JUMP IF A == 0
55507 30 0 0 0 9 SHIFT (A) BY QUARTETS
55508 30 0 0 0 9- ISOLATE CHAP NUMBER Q1 SHIFT (A) BY QUARTETS
55509 2 16 1 0 0 0 SUBTRACT
55510 71 555 18 0 0 0 555 >NOT IN THIS UNCORR CHAP JUMP IF A != 0
Source image: P1000415.JPG
55511 0 16 3 0 0 0 SELECT
55512 4 94 0 0 2 0 UPDATE SEC START AUGMENT
55513 10 0 0 0 0 SELECT LITERAL
55514 34 15 0 0 2 0 SET (N) IN B
55515 36 587 10 0 0 0 587 BITS 5-18 COLLATE AND ADD
55516 30 0 0 0 1- SHIFT (A) BY QUARTETS
55517 4 16 4 0 0 0 AUG SEC LENGTHS IN CHAP AUGMENT
55510>
55506>55518 94 555 5 0 2 1 555 >NEXT SECTION STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
55519 91 91 0 0 2 0 2R:0 SET MODIFICATION REGISTER AT VARIABLE
55520 0 91 1 0 0 0 2R SELECT
55521 70 555 62 0 0 0 555 >NO FILES JUMP IF A == 0
55561>55522 10 0 0 0 0 SELECT LITERAL
55523 35 0 0 0 1000 PREPARE FOR DIGIT COLLATION
55524 36 91 4 0 2 0 UNCORR CHAP COLLATE AND ADD
55525 30 0 0 0 3- SHIFT (A) BY QUARTETS
55526 2 16 1 0 0 0 CURRENT UNCORR CHAP SUBTRACT
55527 71 555 61 0 0 0 555 >NOT IN IT JUMP IF A != 0
55528 34 587 5 0 0 0 587 BITS 1-6 SET (N) IN B
55529 36 91 5 0 2 0 ROUTE TYPE COLLATE AND ADD
55530 12 0 0 0 3 SUBTRACT LITERAL
55531 70 555 37 0 0 0 555 >GP JUMP IF A == 0
55532 12 0 0 0 1 SUBTRACT LITERAL
55533 70 555 37 0 0 0 555 >GP JUMP IF A == 0
55534 12 0 0 0 SUBTRACT LITERAL
55535 71 555 52 0 0 0 555 >NOT ROUTE 19 JUMP IF A != 0
55536 76 555 61 0 0 0 555 (DON'T INCLUDE ANNEX LENGTHS) JUMP unconditional
55533>
55531>55537 91 4 0 2 0 SELECT
55538 30 0 0 0 4- GR CTR SHIFT (A) BY QUARTETS
55539 1 91 1 0 0 0 2R ADD
55540 92 0 0 4 0 SET MODIFIER AT VARIABLE
55541 35 0 0 0 111 PREPARE FOR DIGIT COLLATION
55542 36 91 4 0 2 0 LENGTH OF GP ANNEX Q7-10 COLLATE AND ADD
55543 30 0 0 0 1 SHIFT (A) BY QUARTETS
55544 1 16 2 0 0 0 CHAP NUMBER (CORRECTED) Q6 ADD
55545 5 91 5 0 4 0 OVERWRITE DETAILS TRANSFER
55546 36 91 4 0 2 0 ANNEX LENGTH COLLATE AND ADD
55547 1 16 3 0 0 0 ADD
55548 1 16 4 0 0 0 ADD
55549 5 556 2 0 0 0 556 WL=SR LINK TRANSFER
55550 2 556 2 0 0 0 556 STORE NEGATIVELY SUBTRACT
55551 5 91 4 0 4 0 STORE GP TX AREA START Q1-3 TRANSFER
55535>55552 16 2 0 0 0 CORRECTED CHAP SELECT
55553 30 0 0 0 4 SHIFT (A) BY QUARTETS
55554 1 16 3 0 0 0 UNCORR CHAP LENGTH ADD
55555 1 16 4 0 0 0 ALL SECTIONS+ANNEXES TO DATE ADD
55556 5 91 5 0 2 0 TRANSFER
55557 35 0 0 0 111 HALF-LENGTH Q1-3 PREPARE FOR DIGIT COLLATION
55558 36 91 4 0 2 0 COLLATE AND ADD
55559 31 0 0 0 1 FORM FULL ANNEX LENGTH SHIFT (A) BY BITS
55560 4 16 4 0 0 0 AUGMENT
55536>
55527>55561 94 555 22 0 2 2 555 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
55521>55562 82 555 2 0 0 0 555 END OF SUBROUTINE / LEAVE SUBROUTINE
55600 PROCR 556 556 SR TO WRITE 'INDEX' DATA
55601 NOTES 556 SELECT
55602 81 556 2 0 0 0 556 START OF SUBROUTINE
55603 16 2 0 0 0 PROG ID SELECT
Source image: P1000416.JPG
55604 3 8 4 2 0 0 COPY
55605 5 8 12 2 0 0 TRANSFER
55606 0 16 3 0 0 0 PROG SERIAL SELECT
55607 3 8 6 2 0 0 COPY
55608 5 8 14 2 0 0 TRANSFER
55609 10 0 0 0 2 SELECT LITERAL
55610 5 8 10 2 0 0 PASS 1 IDENTIFIER TRANSFER
55611 10 0 0 0 3 SELECT LITERAL
55612 3 8 18 2 0 0 IDENTIFIER COPY
55613 10 0 0 0 2 SELECT LITERAL
55614 1 27 12 0 0 0 0/2=PTS NO/YES ADD
55615 5 8 16 2 0 0 PASS IND TRANSFER
55616 583 60 2 0 0 583 SELECT
55617 5 8 20 2 0 0 TRANSFER
55618 80 577 2 0 0 0 577 >WRITE TO TAPE ENTER SUBROUTINE
55619 82 556 2 0 0 0 556 END OF SUBROUTINE / LEAVE SUBROUTINE
55700 PROCR 557 557 HEADING BLOCK
55701 NOTES RADIX B PREP STAGE SELECT
55472>55702 54 5 0 1 0 50 BULK CLEAR
55703 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
55704 C 0 0 0 10
55706>55705 80 576 2 0 0 0 576 >PRINT SPACERS ENTER SUBROUTINE
55706 94 557 5 0 1 1 557 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
55707 91 3 0 0 0 2(R+T) SELECT
55708 2 91 2 0 0 0 SUBTRACT
55709 31 0 0 0 1- SHIFT (A) BY BITS
55710 5 576 2 0 0 0 576 NO OF TX AREAS TRANSFER
55711 91 2 0 0 0 SELECT
55712 31 0 0 0 1- SHIFT (A) BY BITS
55713 5 577 2 0 0 0 577 NO OF FILES TRANSFER
55714 10 0 0 0 80 HEAD OF FORM SELECT LITERAL
55715 5 587 9 0 0 0 587 TRANSFER
55716 52 5 0 0 0 0 EDIT FIRST LINE EDIT
55717 C 593 2 0 0 0 593
55718 27 12 0 0 0 SELECT
55719 70 557 22 0 0 0 557 >NO PTS JUMP IF A == 0
55720 55 584 12 1 0 6 584 'PTS INCLUDED' BULK COPY
55721 C 5 40 1 0 0
55719>55722 80 576 2 0 0 0 576 >PRINT SPACERS ENTER SUBROUTINE
55723 80 576 2 0 0 0 576 >SPACER ENTER SUBROUTINE
55724 0 583 60 2 0 0 583 SELECT
55725 5 8 4 2 0 0 TRANSFER
55726 10 0 0 0 55 SELECT LITERAL
55727 5 8 6 2 0 0 TRANSFER
55728 16 2 0 0 0 PROG ID SELECT
55729 5 8 8 2 0 0 TRANSFER
55730 16 3 0 0 0 PROG SERIAL SELECT
55731 5 8 10 2 0 0 TRANSFER
55732 0 583 70 1 0 0 583 'PASS 3' SELECT
55733 5 8 12 1 0 0 TRANSFER
55734 80 577 2 0 0 0 577 >WRITE ENTER SUBROUTINE
55735 124 673 2 0 2 0 673 select literal and division
55736 91 0 0 3 0 FOR PARAMETERS SET MODIFICATION REGISTER AT VARIABLE
55737 124 604 2 0 2 0 604 select literal and division
55738 91 0 0 2 0 FOR ORDERS SET MODIFICATION REGISTER AT VARIABLE
55739 124 679 2 0 2 0 679 select literal and division
55740 91 0 0 1 0 SECOND LEVEL PARAS SET MODIFICATION REGISTER AT VARIABLE
55741 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL
55742 C 0 0 0 6
Source image: P1000417.JPG
55743 90 0 0 8 0 SECOND LEVEL PARAS SET MODIFICATION REGISTER AT LITERAL
55744 C 0 0 0 3
55745 673 2 0 0 0 673 SELECT
55746 31 0 0 0 2 SHIFT (A) BY BITS
55747 5 598 11 0 0 0 598 TRANSFER
55748 679 2 0 0 0 679 SELECT
55749 31 0 0 0 2 SHIFT (A) BY BITS
55750 5 598 17 0 0 0 598 TRANSFER
55751 80 596 2 0 0 0 596 >WRITE 'UNLOADER' ENTER SUBROUTINE
55752 80 596 2 0 0 0 596 >WRITE 'ALLOC STORE' ENTER SUBROUTINE
55753 95 0 0 1 0 SELECT MODIFICATION REGISTER
55754 5 593 2 1 0 0 593 TRANSFER
55755 95 0 0 2 0 SELECT MODIFICATION REGISTER
55756 5 593 4 1 0 0 593 TRANSFER
55757 80 574 2 0 0 0 574 >READ ENTER SUBROUTINE
55758 55 9 4 1 0 10 BULK COPY
55759 C 11 0 1 0 0
55760 91 3 0 0 0 2(R+T) SELECT
55761 2 91 2 0 0 0 2R SUBTRACT
55762 31 0 0 0 1- FORM T SHIFT (A) BY BITS
55763 5 11 12 2 0 0 NO OF TX AREAS FOR ALLOCATOR TRANSFER
55764 0 91 2 0 0 0 2R SELECT
55765 31 0 0 0 1- R SHIFT (A) BY BITS
55766 5 11 10 2 0 0 NO OF ROUTES TRANSFER
55767 10 0 0 0 0 SELECT LITERAL
55768 3 11 14 2 0 0 NO OF DISCFILES COPY
55769 4 11 10 2 0 0 AUGMENT
55800 PROCR 558 558 OUTPUT SECOND HEADING BLOCK
55801 NOTES RADIX PREP STAGE SELECT
55802 55 11 0 1 0 16 BULK COPY
55803 C 8 4 1 0 0
55804 5 92 28 0 0 0 CLEAR TRANSFER
55805 92 6 0 0 0 2ND HEADING BLOCK SELECT
55806 5 8 20 2 0 0 TRANSFER
55807 92 8 0 0 0 CHAPTER SELECT
55808 5 8 22 2 0 0 TRANSFER
55809 91 92 28 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
55810 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
55811 C 0 0 0 14
55825>55812 0 72 3 0 2 0 CHAP LENGTH SELECT
55813 71 558 16 0 0 0 558 JUMP IF A != 0
55814 583 92 1 0 0 583 100,000 IN BIN SELECT
55815 3 72 3 0 2 0 SET RIDICULOUS LENGTH COPY
55813>55816 5 8 24 2 1 0 TRANSFER
55817 10 0 0 0 20 BIT 6 SELECT LITERAL
55818 32 0 0 0 10- SHIFT (AB) BY QUARTETS
55819 36 92 10 0 2 0 COLLATE AND ADD
55820 70 558 24 0 0 0 558 >NORMAL JUMP IF A == 0
55821 10 0 0 0 0 SELECT LITERAL
55822 2 8 24 2 1 0 SUBTRACT
55823 5 8 24 2 1 0 SET IND THAT IN ANOTHER STORE TRANSFER
55820>55824 94 0 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
55825 94 558 12 0 2 1 558 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
55826 0 16 2 0 0 0 SELECT
55827 5 8 38 2 0 0 PROG ID TRANSFER
55828 0 16 3 0 0 0 SELECT
55829 5 8 40 2 0 0 PROG SERIAL TRANSFER
55830 10 0 0 0 5163636653 'ALLOC' SELECT LITERAL
55831 5 8 42 1 0 0 TRANSFER
Source image: P1000418.JPG
55832 24 0 1 0 0 SELECT
55833 70 558 89 0 0 0 558 >NO FILES JUMP IF A == 0
55834 91 24 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
55835 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
55836 C 0 0 0 8
55888>55837 10 0 0 0 0 SELECT LITERAL
55838 34 587 5 0 0 0 587 BITS 1-6 SET (N) IN B
55839 36 24 5 0 1 0 ROUTE TYPE COLLATE AND ADD
55840 101 19 1 2 0 subtract literal address
55841 71 558 88 0 0 0 558 >NOT 19 JUMP IF A != 0
55842 24 4 0 1 0 OP TX AREA CTR SELECT
55843 32 0 0 0 4- SHIFT (AB) BY QUARTETS
55844 1 24 1 0 0 0 2R ADD
55845 5 577 2 0 0 0 577 WL TRANSFER
55846 35 0 0 0 1000 PREPARE FOR DIGIT COLLATION
55847 124 577 2 0 1 0 577 modify address of next
55848 36 24 4 0 0 0 CHAPTER NUMBER COLLATE AND ADD
55849 70 558 57 0 0 0 558 >NO CHOICE JUMP IF A == 0
55850 30 0 0 0 3- SHIFT (A) BY QUARTETS
55851 2 92 29 0 0 0 CHAPS IN PROGM SUBTRACT
55852 70 558 56 0 0 0 558 >OK JUMP IF A == 0
55853 73 558 56 0 0 0 558 >OK JUMP IF A < 0
55854 10 0 0 0 0 SELECT LITERAL
55855 76 558 57 0 0 0 558 >EX RANGE=NO CHOICE JUMP unconditional
55853>
55852>55856 1 92 29 0 0 0 ADD
55855>
55849>55857 5 576 2 0 0 0 576 TX AREA CHAPTER TRANSFER
55858 36 24 4 0 1 0 COLLATE AND ADD
55859 30 0 0 0 3- SHIFT (A) BY QUARTETS
55860 70 558 67 0 0 0 558 >NO CHOICE JUMP IF A == 0
55861 2 92 29 0 0 0 SUBTRACT
55862 70 558 66 0 0 0 558 >OK JUMP IF A == 0
55863 73 558 66 0 0 0 558 >OK JUMP IF A < 0
55864 10 0 0 0 0 SELECT LITERAL
55865 76 558 67 0 0 0 558 >EX RANGE=NO CHOICE JUMP unconditional
55863>
55862>55866 1 92 29 0 0 0 ADD
55865>
55860>55867 5 596 2 0 0 0 596 ANNEX CHAPTER TRANSFER
55868 35 0 0 0 111 PREPARE FOR DIGIT COLLATION
55869 36 24 4 0 1 0 GP HALF-LENGTH COLLATE AND ADD
55870 32 0 0 0 3- SHIFT (AB) BY QUARTETS
55871 0 596 2 0 0 0 596 SELECT
55872 31 0 0 0 3 SHIFT (A) BY BITS
55873 1 576 2 0 0 0 576 ADD
55874 33 0 0 0 13 SHIFT (AB) BY BITS
55875 5 8 44 2 2 0 TRANSFER
55876 35 0 0 0 111 PREPARE FOR DIGIT COLLATION
55877 124 577 2 0 1 0 577 modify address of next
55878 36 24 4 0 0 0 SPECIAL HALF-LENGTH COLLATE AND ADD
55879 11 0 0 0 2 (FOR GUARD WORD) ADD LITERAL
55880 32 0 0 0 3- SHIFT (AB) BY QUARTETS
55881 0 596 2 0 0 0 596 SELECT
55882 31 0 0 0 3 SHIFT (A) BY BITS
55883 1 576 2 0 0 0 576 ADD
55884 33 0 0 0 13 SHIFT (AB) BY BITS
55885 5 8 46 2 2 0 TRANSFER
55886 94 558 88 0 2 4 558 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
55887 76 558 89 0 0 0 558 >END AFTER 2 FILES JUMP unconditional
55886>
Source image: P1000419.JPG
55841>55888 94 558 37 0 1 2 558 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
55887>
55833>55889 80 577 2 0 0 0 577 >WRITE ENTER SUBROUTINE
55900 PROCR 559 559 SECOND HEADING LINE
55901 NOTES RADIX B SELECT
55902 91 593 2 0 1 0 593 SET MODIFICATION REGISTER AT VARIABLE
55903 91 593 4 0 2 0 593 SET MODIFICATION REGISTER AT VARIABLE
55904 80 596 2 0 0 0 596 >WRITE 'ALLOC ROUTES' ENTER SUBROUTINE
55905 95 0 0 1 0 SELECT MODIFICATION REGISTER
55906 5 593 2 1 0 0 593 TRANSFER
55907 95 0 0 2 0 SELECT MODIFICATION REGISTER
55908 5 593 4 1 0 0 593 TRANSFER
55909 90 0 0 2 0 SET MOD REGISTERS SET MODIFICATION REGISTER AT LITERAL
55910 C 0 0 0 4
55917>55911 11 0 2 2 0 SELECT DETAIL SELECT
55912 70 559 15 0 0 0 559 OUT IF ZERO JUMP IF A == 0
55913 583 4 1 0 0 583 ELSE SELECT SELECT
55914 76 559 16 0 0 0 559 YES JUMP unconditional
55912>55915 583 6 1 0 0 583 SELECT NO SELECT
55914>55916 5 13 0 1 2 0 STORE YES OR NO TRANSFER
55917 94 559 11 0 2 2 559 REPEAT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
55918 0 92 6 0 0 0 SELECT
55919 80 578 2 0 0 0 578 TO DEC ENTER SUBROUTINE
55920 5 92 6 0 0 0 TRANSFER
55921 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS
55922 52 5 2 0 0 0 EDIT
55923 C 592 2 0 0 0 592 EDIT AND OUTPUT
55924 80 576 2 0 0 0 576 >PRINT FP, MOD GP, ENTRY ETC ENTER SUBROUTINE
55925 80 576 2 0 0 0 576 >SPACER ENTER SUBROUTINE
55926 11 8 2 0 0 >SPACER SELECT
55927 5 13 2 1 0 0 TRANSFER
56000 PROCR 560 560 THIRD HEADING LINE
56001 NOTES RADIX B PREP STAGE SELECT
56002 11 10 2 0 0 STORE SELECT
56003 5 16 8 0 0 0 NO. OF FILES TRANSFER
56004 0 11 8 2 0 0 NUMBER OF CHAPTERS INITIALLY SELECT
56005 5 16 9 0 0 0 NO. OF CHAPTERS TRANSFER
56006 54 13 0 0 0 14 CLEAR WL'S BULK CLEAR
56007 91 92 28 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
56024>56008 10 0 0 0 20 BIT 6 SELECT LITERAL
56009 32 0 0 0 10- SHIFT (AB) BY QUARTETS
56010 36 92 10 0 2 0 COLLATE AND ADD
56011 70 560 15 0 0 0 560 >FIRST STORE JUMP IF A == 0
56012 10 0 0 0 0 SELECT LITERAL
56013 2 72 3 0 2 0 NEGATE FOR SECOND STORE SUBTRACT
56014 76 560 16 0 0 0 560 JUMP unconditional
56011>56015 72 3 0 2 0 SELECT
56014>56016 80 578 2 0 0 0 578 TO DEC ENTER SUBROUTINE
56017 5 13 0 0 2 0 STORE CHAPTER LENGTHS TRANSFER
56018 62 0 0 0 0 SET EXCESS CONSTANTS
56019 72 3 0 2 0 SELECT
56020 12 0 0 0 2001 8193 INBIN SUBTRACT LITERAL
56021 73 560 24 0 0 0 560 >OK JUMP IF A < 0
56022 10 0 0 0 1 SELECT LITERAL
56023 3 13 10 0 0 0 COPY
56021>56024 94 560 8 0 2 1 560 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56025 0 13 1- 0 2 0 LAST CHAP LENGTH(DEC) SELECT
Source image: P1000420.JPG
56026 5 585 4 1 0 0 585 TRANSFER
56027 0 585 4 0 0 0 585 MODULUS SELECT
56028 12 0 0 0 506 SUBTRACT LITERAL
56029 72 560 34 0 0 0 560 >OK JUMP IF A >= 0
56030 10 0 0 0 506 SELECT LITERAL
56031 5 585 4 0 0 0 585 TRANSFER
56032 0 585 4 1 0 0 585 (PRESERVES ORIGINAL SIGN) SELECT
56033 5 13 1- 0 2 0 PRINT SPECIAL CHAP AS MIN LENGTH 506 TRANSFER
56029>56034 13 10 0 0 0 SELECT
56035 70 560 46 0 0 0 560 >OK JUMP IF A == 0
56036 86 511 2 0 0 0 511 CTR DISATROUS ERROR SELECT SWITCH R
56037 11 0 0 0 1 ADD LITERAL
56038 84 511 2 0 0 0 511 AUGMENT SET SWITCH(ES) AT VARIABLE VALUE
56039 10 0 0 0 5:5:5:5:5: '?????' SELECT LITERAL
56040 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
56041 C 0 0 0 10
56043>56042 3 5 40 1 2 0 25 QUESTION MARKS COPY
56043 94 560 42 0 2 2 560 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56044 10 0 0 0 1 SET INDICATOR FOR *07 SELECT LITERAL
56045 76 560 47 0 0 0 560 JUMP unconditional
56035>56046 10 0 0 0 0 OK-CLEAR INDICATOR SELECT LITERAL
56045>56047 5 27 5 0 0 0 TRANSFER
56048 52 5 2 0 0 0 EDIT AND OUTPUT EDIT
56049 C 591 2 0 0 0 591
56050 80 576 2 0 0 0 576 PRINT ENTER SUBROUTINE
56051 80 576 2 0 0 0 576 SPACER ENTER SUBROUTINE
56052 52 5 2 0 0 0 EDIT
56053 C 590 2 0 0 0 590 EDIT FILE DETAILS HEADING
56054 80 576 2 0 0 0 576 PRINT ENTER SUBROUTINE
56055 54 13 0 0 0 31 BULK CLEAR
56100 PROCR 561 561 FILE DETAILS
56101 NOTES RADIX B PREP STAGE SELECT
56102 0 91 0 1 0 0 SELECT
56103 70 562 20 0 0 0 562 >NO FILES JUMP IF A == 0
56104 91 0 0 4 0 2R:0 SET MODIFICATION REGISTER AT VARIABLE
56218>56105 90 0 0 1 0 SET MOD REGISTER A SET MODIFICATION REGISTER AT LITERAL
56106 C 0 0 0 48
56107 80 574 2 0 0 0 574 READ FILE DETAILS ON A6 ENTER SUBROUTINE
56216>56108 55 9 4 1 1 12 FILE DETAIL BULK COPY
56109 C 11 0 1 0 0
56110 0 11 2 2 0 0 ROUTE TYPE 02 SELECT
56111 3 583 2 0 0 0 583 WL COPY
56112 12 0 0 0 20 SUBTRACT LITERAL
56113 70 561 54 0 0 0 561 >BIN CARD O/P JUMP IF A == 0
56114 12 0 0 0 80 SUBTRACT LITERAL
56115 70 561 53 0 0 0 561 >BIN CARD I/P JUMP IF A == 0
56116 12 0 0 0 60 SUBTRACT LITERAL
56117 70 561 51 0 0 0 561 >NON-STD PT O/P(16) JUMP IF A == 0
56118 12 0 0 0 10 SUBTRACT LITERAL
56119 70 561 40 0 0 0 561 >RT 17 JUMP IF A == 0
56120 12 0 0 0 10 SUBTRACT LITERAL
56121 70 561 42 0 0 0 561 >RT 18 JUMP IF A == 0
56122 12 0 0 0 10 SUBTRACT LITERAL
56123 70 561 44 0 0 0 561 JUMP IF A == 0
56124 12 0 0 0 10 SUBTRACT LITERAL
56125 70 561 38 0 0 0 561 JUMP IF A == 0
56126 12 0 0 0 20 SUBTRACT LITERAL
56127 71 561 30 0 0 0 561 >NOT RT 22 JUMP IF A != 0
56128 10 0 0 0 +0 SELECT LITERAL
Source image: P1000421.JPG
56129 76 561 55 0 0 0 561 >RT 22 JUMP unconditional
56127>56130 12 0 0 0 20 SUBTRACT LITERAL
56131 71 561 34 0 0 0 561 >NOT RT 24 JUMP IF A != 0
56132 10 0 0 0 50 SELECT LITERAL
56133 76 561 55 0 0 0 561 JUMP unconditional
56131>56134 12 0 0 0 10 SUBTRACT LITERAL
56135 71 561 56 0 0 0 561 >NOT RT 25 JUMP IF A != 0
56136 10 0 0 0 .0 SELECT LITERAL
56137 76 561 55 0 0 0 561 JUMP unconditional
56125>56138 10 0 0 0 20 DT SELECT LITERAL
56139 76 561 55 0 0 0 561 >RT 2 JUMP unconditional
56119>56140 10 0 0 0 ‼0 SELECT LITERAL
56141 76 561 55 0 0 0 561 JUMP unconditional
56121>56142 10 0 0 0 :0 SELECT LITERAL
56143 76 561 55 0 0 0 561 SET=13 JUMP unconditional
56123>56144 10 0 0 0 80 SELECT LITERAL
56145 5 11 10 2 0 0 ALT ROUTE IND TRANSFER
56146 5 11 6 1 0 0 ZERO START TRANSFER
56147 5 11 8 1 0 0 TRANSFER
56148 12 0 0 0 1 SUBTRACT LITERAL
56149 5 11 4 2 0 0 TRANSFER
56150 76 561 70 0 0 0 561 >SET ZERO START JUMP unconditional
56117>56151 10 0 0 0 10 SELECT LITERAL
56152 76 561 55 0 0 0 561 JUMP unconditional
56115>56153 10 0 0 0 30 SELECT LITERAL
56113>56154 11 0 0 0 30 ADD LITERAL
56152>
56143>
56141>
56139>
56137>
56133>
56129>56155 5 11 2 2 0 0 FIB TO M/R TRANSFER
56135>56156 11 10 2 0 0 TEST ALTERNATE SELECT
56157 70 561 61 0 0 0 561 ROUTE IF 0,SET JUMP IF A == 0
56158 10 0 0 0 0 =80: IF 1.SET=0 SELECT LITERAL
56159 5 11 10 2 0 0 TRANSFER
56160 76 561 63 0 0 0 561 JUMP unconditional
56157>56161 10 0 0 0 80 SELECT LITERAL
56162 5 11 10 2 0 0 TRANSFER
56160>56163 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION
56164 36 91 5 0 4 0 COLLATE AND ADD
56165 30 0 0 0 4- SHIFT (A) BY QUARTETS
56166 31 0 0 0 1 DOUBLE CORR CHAP NO SHIFT (A) BY BITS
56167 5 11 4 2 0 0 TRANSFER
56168 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
56169 36 91 5 0 4 0 COLLATE AND ADD
56150>56170 5 11 8 2 0 0 START LOCATION TRANSFER
56171 52 8 4 0 1 0 EDIT IN EDIT
56172 C 597 16 0 0 0 597
56173 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
56174 C 0 0 0 10 CONVERT FILE DETAILS
56178>56175 0 11 2 2 2 0 SELECT
56176 80 578 2 0 0 0 578 TO DEC ENTER SUBROUTINE
56177 5 13 0 0 2 0 TRANSFER
56178 94 561 75 0 2 2 561 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56179 583 2 0 0 0 583 SELECT
56180 30 0 0 0 1- SHIFT (A) BY QUARTETS
56181 80 578 2 0 0 0 578 CONVERT ROUTE TYPE TO DEC ENTER SUBROUTINE
56182 30 0 0 0 1 SHIFT (A) BY QUARTETS
Source image: P1000422.JPG
56183 5 583 2 0 0 0 583 TRANSFER
56184 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS
56200 PROCR 562 562 FILE DETAILS FOR PRINTOUT - BIT 20
56201 NOTES RADIX B SELECT
56202 13 8 0 0 0 SELECT
56203 70 562 6 0 0 0 562 JUMP IF A == 0
56204 583 6 1 0 0 583 SELECT
56205 76 562 7 0 0 0 562 JUMP unconditional
56203>56206 583 4 1 0 0 583 SELECT
56205>56207 5 13 8 1 0 0 TRANSFER
56208 0 11 4 2 0 0 SELECT
56209 31 0 0 0 1- SHIFT (A) BY BITS
56210 5 13 2 0 0 0 TRANSFER
56211 52 5 2 0 0 0 EDIT
56212 C 594 2 0 0 0 594
56213 80 576 2 0 0 0 576 > PRINT ENTER SUBROUTINE
56214 94 562 16 0 4 2 562 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56215 76 562 19 0 0 0 562 > ALL FILES PROCESSED JUMP unconditional
56214>56216 94 561 8 0 1 12 561 > NEXT FILE THIS BLOCK STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56217 80 577 2 0 0 0 577 > WRITE ENTER SUBROUTINE
56218 76 561 5 0 0 0 561 > READ NEW BLOCK JUMP unconditional
56215>56219 80 577 2 0 0 0 577 > WRITE FINAL FILES BLOCK ENTER SUBROUTINE
56103>56220 52 5 2 0 0 0 EDIT HEADING & OUTPUT EDIT
56221 C 594 14 0 0 0 594 HEADING BLOCK
56222 80 576 2 0 0 0 576 PRINT TX AREA HEADING ENTER SUBROUTINE
56300 PROCR 563 563 TRANSIT AREA
56301 NOTES RADIX B SELECT
56302 91 91 2 0 2 0 2 (R+T) :2R SET MODIFICATION REGISTER AT VARIABLE
56303 94 563 5 0 2 0 563 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56304 76 565 2 0 0 0 565 > ND TX AREAS JUMP unconditional
56426>
56303>56305 90 0 0 1 0 SET O/P MR SET MODIFICATION REGISTER AT LITERAL
56306 C 0 0 0 48
56424>56307 91 91 0 0 4 0 2R:0 SET MODIFICATION REGISTER AT VARIABLE
56308 34 587 5 0 0 0 587 BITS 1 - 6 SET (N) IN B
56324>56309 10 0 0 0 0 SELECT LITERAL
56310 36 24 5 0 4 0 ROUTE TYPE COLLATE AND ADD
56311 12 0 0 0 13 SUBTRACT LITERAL
56312 71 563 24 0 0 0 563 > NOT 19 JUMP IF A != 0
56313 24 4 0 4 0 GP T, AREA CTR SELECT
56314 30 0 0 0 4- SHIFT (A) BY QUARTETS
56315 1 24 1 0 0 0 2R ADD
56316 99 0 0 2 0 -R2 MODIFIER SUBTRACT MODIFICATION REGISTER FROM A
56317 71 563 24 0 0 0 563 >WE ARE NOT DEALING WITH RT 19 TX AREA JUMP IF A != 0
56318 12 0 0 0 1 SUBTRACT LITERAL
56319 5 13 2 2 0 0 NEG CHAP NUMBER TRANSFER
56320 5 13 4 2 0 0 ZERO LENGTH TRANSFER
56321 5 596 2 0 0 0 596 CLEAR FOR PRINT TRANSFER
56322 5 13 0 0 0 0 ZERO START TRANSFER
56323 76 564 2 0 0 0 564 JUMP unconditional
56317>
56312>56324 94 563 9 0 4 2 563 > TRY AGAIN STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56325 0 91 4 0 2 0 SELECT
56326 72 563 29 0 0 0 563 > NOT GP TX AREA JUMP IF A >= 0
56327 0 91 4 1 2 0 (LOSES SIGN) SELECT
56328 76 563 35 0 0 0 563 JUMP unconditional
56326>56329 30 0 0 0 8 SHIFT (A) BY QUARTETS
56330 30 0 0 0 8- CLEAR Q3 - 10 SHIFT (A) BY QUARTETS
Source image: P1000423.JPG
56331 3 13 0 0 0 0 COPY
56332 5 583 2 0 0 0 583 SEC NUMBER FOR PRINT TRANSFER
56333 124 13 0 0 1 0 modify address of next
56334 0 94 0 0 0 0 SELECT SECTION START SELECT
56328>56335 5 13 0 0 0 0 TRANSFER
56336 0 91 5 0 2 0 SELECT
56337 32 0 0 0 1- SHIFT (AB) BY QUARTETS
56338 5 13 4 2 0 0 TX AREA LENGTH TRANSFER
56339 32 0 0 0 1 SHIFT (AB) BY QUARTETS
56340 3 596 2 0 0 0 596 CHAP COPY
56341 31 0 0 0 1 SHIFT (A) BY BITS
56342 5 13 2 2 0 0 TWICE CHAP FOR MT TRANSFER
56400 PROCR 564 564 OUTPUT TRANSIT AREA DETAILS
56401 NOTES RADIX B SELECT
56323>56402 52 8 4 0 1 0 EDIT EDIT
56403 C 591 24 0 0 0 591 TRANSIT AREA DTLS
56404 0 13 0 0 0 0 SELECT
56405 80 578 2 0 0 0 578 TO DEC ENTER SUBROUTINE
56406 5 13 0 0 0 0 TO BINARY TRANSFER
56407 0 13 4 2 0 0 SELECT
56408 80 578 2 0 0 0 578 TO DEC ENTER SUBROUTINE
56409 5 13 4 0 0 0 TRANSFER
56410 0 583 2 0 0 0 583 SELECT
56411 80 578 2 0 0 0 578 TO DEC ENTER SUBROUTINE
56412 5 583 2 0 0 0 583 SEC NUMBER TRANSFER
56413 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS
56414 52 5 2 0 0 0 EDIT FOR PRINT EDIT
56415 C 594 26 0 0 0 594
56416 0 91 4 0 2 0 SELECT
56417 72 564 20 0 0 0 564 > NOT GP TX AREA JUMP IF A >= 0
56418 10 0 0 0 5767 'GP' SELECT LITERAL
56419 5 5 4 1 0 0 TRANSFER
56417>56420 80 576 2 0 0 0 576 > PRINT ENTER SUBROUTINE
56421 94 564 24 0 2 2 564 > MORE DETAILS YET STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56422 80 577 2 0 0 0 577 WRITE TX BLOCK ENTER SUBROUTINE
56423 76 565 2 0 0 0 565 JUMP unconditional
56421>56424 94 563 7 0 1 6 563 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56425 80 577 2 0 0 0 577 WRITE TX BLOCK ENTER SUBROUTINE
56426 76 563 5 0 0 0 563 > RESET MR1 & START NEXT BLOCK JUMP unconditional
56500 PROCR 565 565 O/P LAST TWO CHUNKS AND WRITE COMPATIBILTY DATA
56501 NOTES 565 SELECT
56423>
56304>56502 91 593 2 0 1 0 593 SET MODIFICATION REGISTER AT VARIABLE
56503 91 593 4 0 2 0 593 SET MODIFICATION REGISTER AT VARIABLE
56504 80 596 2 0 0 0 596 > O/P 'ALLOC FP/TAG' ENTER SUBROUTINE
56505 80 596 2 0 0 0 596 > O/P 'SET UP PQ' ENTER SUBROUTINE
56506 80 596 2 0 0 0 596 > O/P 'LOAD PROGRAM' ENTER SUBROUTINE
56507 76 566 2 0 0 0 566 JUMP unconditional
56600 PROCR 566 566 PRINT SECTION START POINTS
56601 NOTES RADIX SELECT
56507>56602 583 62 1 0 0 583 'SEC' SELECT
56603 05 5 2 1 0 0 SELECT
56604 583 64 1 0 0 583 'TION' SELECT
56605 05 5 4 1 0 0 SELECT
56606 0 583 84 1 0 0 583 SELECT
56607 05 5 6 1 0 0 SELECT
56608 90 0 0 1 1 SELECT 94/1 - 94/99 SET MODIFICATION REGISTER AT LITERAL
Source image: P1000424.JPG
56609 C 0 0 0 100
56610 80 576 2 0 0 0 576 >PRINT ENTER SUBROUTINE
56611 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
56612 C 0 0 0 48
56627>56613 94 0 0 1 0 SELECT
56614 70 566 27 0 0 0 566 >SEC NOT USED JUMP IF A == 0
56615 80 578 2 0 0 0 578 TO DEC ENTER SUBROUTINE
56616 5 583 3 0 0 0 583 SEC START TRANSFER
56617 96 0 0 1 0 SELECT MODIFIER
56618 80 578 2 0 0 0 578 TO DEC ENTER SUBROUTINE
56619 5 583 2 0 0 0 583 SEC NUMBER TRANSFER
56620 52 5 2 0 2 0 EDIT
56621 C 595 2 0 0 0 595
56622 62 0 0 0 0 BIN SET EXCESS CONSTANTS
56623 94 566 27 0 2 4 566 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56624 80 576 2 0 0 0 576 PRINT ENTER SUBROUTINE
56625 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
56626 C 0 0 0 48
56623>
56614>56627 94 566 13 0 1 1 566 >NEXT SECTION STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56628 80 576 2 0 0 0 576 PRINT LAST LINE ENTER SUBROUTINE
56629 76 569 2 0 0 0 569 >PRINT SWITCHES JUMP unconditional
56700 PROCR 567 567 PRINT LOCNS OF MOD REGISTERS 4-20
56701 NOTES 567 SELECT
56806>
56817>56702 52 5 2 0 0 0 EDIT
56703 C 595 8 0 0 0 595
56704 80 576 2 0 0 0 576 >PRINT HEADING ENTER SUBROUTINE
56705 90 0 0 1 0 PRINT CONTROL SET MODIFICATION REGISTER AT LITERAL
56706 C 0 0 0 48
56707 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
56708 C 0 0 0 17 SEARCH SEC 71
56713>56709 34 71 2 0 2 0 SET (N) IN B
56710 74 567 13 0 0 0 567 >NOT USED JUMP IF AB == 0 // 27, 1, 0
56711 80 570 2 0 0 0 570 >DECODE ENTER SUBROUTINE
56712 80 571 2 0 0 0 571 >EDIT+PRINT ENTER SUBROUTINE
56710>56713 94 567 9 0 2 1 567 >NEXT MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56714 80 576 2 0 0 0 576 >PRINT LAST LINE ENTER SUBROUTINE
56715 90 0 0 12 2499 SET MODIFICATION REGISTER AT LITERAL
56716 C 0 0 0 0
56717 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL
56718 C 0 0 0 40
56719 91 0 0 1 0 CLEAR R1 SET MODIFICATION REGISTER AT VARIABLE
56720 76 553 2 0 0 0 553 CALL PASS 4 JUMP unconditional
56800 PROCR 568 568 PRINT LOCATIONS OF ITEM+ COUNTERS
56801 NOTES 568 SELECT
56909>
56925>56802 52 5 2 0 0 0 EDIT
56803 C 595 12 0 0 0 595
56804 80 576 2 0 0 0 576 >PRINT HEADING ENTER SUBROUTINE
56805 34 98 1 0 0 0 SET (N) IN B
56806 74 567 2 0 0 0 567 >NONE JUMP IF AB == 0 // 27, 1, 0
56807 90 0 0 1 0 PRINT CONTROL SET MODIFICATION REGISTER AT LITERAL
56808 C 0 0 0 48
56809 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
56810 C 0 0 0 10 TO SEARCH SEC 98
56815>56811 34 98 2 0 2 0 SET (N) IN B
56812 74 568 15 0 0 0 568 >NOT USED? JUMP IF AB == 0 // 27, 1, 0
Source image: P1000425.JPG
56813 80 570 2 0 0 0 570 >DECODE ENTER SUBROUTINE
56814 80 571 2 0 0 0 571 >EDIT AND PRINT ENTER SUBROUTINE
56812>56815 94 568 11 0 2 1 568 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56816 80 576 2 0 0 0 576 >PRINT LAST LINE ENTER SUBROUTINE
56817 76 567 2 0 0 0 567 >PRINT MOD REGISTERS JUMP unconditional
56900 PROCR 569 569 PRINT LOCATION OF SWITCHES
56901 NOTES 569 SELECT
56629>56902 52 5 2 0 0 0 EDIT
56903 C 595 16 0 0 0 595
56904 80 576 2 0 0 0 576 >PRINT HEADING ENTER SUBROUTINE
56905 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
56906 C 0 0 0 48
56907 91 95 0 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
56908 94 569 10 0 2 0 569 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56909 76 568 2 0 0 0 568 >PRINT ITEM+ JUMP unconditional
56908>56910 10 0 0 0 0 SELECT LITERAL
56923>56911 34 584 8 0 0 0 584 BITS 1-10 SET (N) IN B
56912 36 95 2 0 2 0 COLLATE AND ADD
56913 70 569 23 0 0 0 569 >STEP R2 JUMP IF A == 0
56914 5 583 4 0 0 0 583 TRANSFER
56915 95 2 0 2 0 SELECT
56916 32 0 0 0 4- SHIFT (AB) BY QUARTETS
56917 5 583 2 0 0 0 583 CHAP OF SWITCH TRANSFER
56918 33 0 0 0 6 CTR IN PROCR SHIFT (AB) BY BITS
56919 124 583 2 0 1 0 583 modify address of next
56920 1 72 17 0 0 0 PROCR START ADD
56921 5 583 3 0 0 0 583 TRANSFER
56922 80 571 2 0 0 0 571 >EDIT AND PRINT ENTER SUBROUTINE
56913>56923 94 569 11 0 2 1 569 >NEXT SWITCH STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
56924 80 576 2 0 0 0 576 >PRINT LAST LINE ENTER SUBROUTINE
56925 76 568 2 0 0 0 568 >PRINT ITEM+ JUMP unconditional
57000 PROCR 570 570 TO SORT OUT MR>3 AND ITEM+ COUNTERS
57001 NOTES 570 SELECT
57002 81 570 2 0 0 0 570 START OF SUBROUTINE
57003 32 0 0 0 6 SHIFT (AB) BY QUARTETS
57004 5 583 2 0 0 0 583 CHAP TRANSFER
57005 32 0 0 0 2 CTR IN PROCR SHIFT (AB) BY QUARTETS
57006 124 583 2 0 1 0 583 modify address of next
57007 1 72 17 0 0 0 PROCR START ADD
57008 5 583 3 0 0 0 583 TRANSFER
57009 32 0 0 0 2 SHIFT (AB) BY QUARTETS
57010 5 583 4 0 0 0 583 SEC NO/MOD REG WAS Q1.2 TRANSFER
57011 82 570 2 0 0 0 570 END OF SUBROUTINE / LEAVE SUBROUTINE
57100 PROCR 571 571 EDIT AND OUTPUT DETAIL FOR TRANSLATOR'S WORKING SECTIONS
57101 NOTES RADIX SELECT
57102 81 571 2 0 0 0 571 START OF SUBROUTINE
57103 0 583 2 0 0 0 583 SELECT
57104 80 578 2 0 0 0 578 TO DEC ENTER SUBROUTINE
57105 5 583 2 0 0 0 583 TRANSFER
57106 0 583 3 0 0 0 583 SELECT
57107 80 578 2 0 0 0 578 ENTER SUBROUTINE
57108 5 583 3 0 0 0 583 TRANSFER
57109 0 583 4 0 0 0 583 SELECT
57110 80 578 2 0 0 0 578 ENTER SUBROUTINE
57111 5 583 4 0 0 0 583 TRANSFER
57112 62 0 0 0 0 BIN SET EXCESS CONSTANTS
57113 52 5 2 0 1 0 EDIT
Source image: P1000426.JPG
57114 C 595 20 0 0 0 595
57115 94 571 19 0 1 6 571 >LINE NOT FULL STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
57116 80 576 2 0 0 0 576 >PRINT ENTER SUBROUTINE
57117 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
57118 C 0 0 0 48
57115>57119 82 571 2 0 0 0 571 END OF SUBROUTINE / LEAVE SUBROUTINE
57200 PROCR 572 572 READ A2
57201 NOTES 572 SELECT
57202 81 572 2 0 0 0 572 START OF SUBROUTINE
57203 42 A2 0 0 0 0 INPUT
57204 C 8 0 0 0 0
57205 82 572 2 0 0 0 572 END OF SUBROUTINE / LEAVE SUBROUTINE
57300 PROCR 573 573 INPUT OFF PASS 2
57301 NOTES RADIX B SUB ROUTINE SELECT
57302 81 573 2 0 0 0 573 START OF SUBROUTINE
57303 94 573 7 0 2 8 573 STANDARD INCREMENT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
57304 80 574 2 0 0 0 574 READ A6->SEC 9 ENTER SUBROUTINE
57305 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
57306 C 0 0 0 144
57303>57307 82 573 2 0 0 0 573 END OF SUBROUTINE / LEAVE SUBROUTINE
57400 PROCR 574 574 INPUT
57401 NOTES RADIX B SUB ROUTINE SELECT
57402 81 574 2 0 0 0 574 START OF SUBROUTINE
57403 42 A6 0 0 0 0 INPUT
57404 C 9 0 0 0 0
57405 82 574 2 0 0 0 574 END OF SUBROUTINE / LEAVE SUBROUTINE
57500 PROCR 575 575 WRITE ON WORKING TAPE
57501 NOTES 575 SELECT
57502 81 575 2 0 0 0 575 START OF SUBROUTINE
57503 55 8 4 1 0 50 COPY ANNEXES BULK COPY
57504 C 9 4 1 0 0
57505 0 583 56 1 0 0 583 BEW SELECT
57506 5 9 52 1 0 0 TRANSFER
57507 43 A6 0 0 0 0 OUTPUT
57508 C 9 0 0 0 0
57509 54 9 0 0 0 52 BULK CLEAR
57510 82 575 2 0 0 0 575 END OF SUBROUTINE / LEAVE SUBROUTINE
57600 PROCR 576 576 PRINT
57601 NOTES RADIX B SUB ROUTINE SELECT
57602 81 576 2 0 0 0 576 START OF SUBROUTINE
57603 62 0 0 0 0 SET EXCESS CONSTANTS
57604 583 56 1 0 0 583 SELECT
57605 5 5 52 1 0 0 BEW TRANSFER
57606 587 9 0 0 0 587 HEAD OF FORM OR TRAC1 SELECT
57607 5 5 0 1 0 0 FUNCTION WORD TRANSFER
57608 10 0 0 0 1 SELECT LITERAL
57609 5 587 9 0 0 0 587 TRANSFER
57610 27 9 0 0 0 SELECT
57611 70 576 16 0 0 0 576 >PRINTER JUMP IF A == 0
57612 55 5 0 1 0 50 BULK COPY
57613 C 10 4 1 6 0
57614 80 580 2 0 0 0 580 >WRITE ON A9 ENTER SUBROUTINE
57615 76 576 38 0 0 0 576 JUMP unconditional
57611>57616 27 8 0 0 0 PRINTER TYPE SELECT
57617 12 0 0 0 9 SUBTRACT LITERAL
Source image: P1000427.JPG
57618 70 576 34 0 0 0 576 >SPECIAL JUMP IF A == 0
57619 10 0 0 0 80000 SELECT LITERAL
57620 5 5 1 0 0 0 BIT 40 TRANSFER
57621 124 999 15 1 2 0 SEC 5 modify address of next
57622 124 0 0 2 0 select literal and division
57623 124 999 13 1 2 0 SEC 10 modify address of next
57624 129 0 0 1 0 edit for anelex output
57625 10 0 0 0 4 SELECT LITERAL
57637>57626 30 0 0 0 5 SHIFT (A) BY QUARTETS
57627 1 999 7 0 0 0 ROUTE ADD
57628 34 999 12 0 0 0 SET (N) IN B
57629 125 4096 1 1 0 clear indicators
57630 124 999 0 0 3 0 modify address of next
57631 123 160 0 2 0 enter master routine
57632 62 0 0 0 0 SET EXCESS CONSTANTS
57633 76 576 38 0 0 0 576 JUMP unconditional
57618>57634 55 5 0 1 0 54 BULK COPY
57635 C 10 0 1 0 0
57636 10 0 0 0 9 SELECT LITERAL
57637 76 576 26 0 0 0 576 JUMP unconditional
57633>
57615>57638 54 5 0 0 0 50 BULK CLEAR
57639 5 16 1 0 0 0 CLEAR INDICATOR TRANSFER
57640 82 576 2 0 0 0 576 END OF SUBROUTINE / LEAVE SUBROUTINE
57700 PROCR 577 577 OUTPUT ON A2
57701 NOTES RADIX B SUB ROUTINE SELECT
57702 81 577 2 0 0 0 577 START OF SUBROUTINE
57703 583 56 1 0 0 583 BEW SELECT
57704 5 8 52 1 0 0 TRANSFER
57705 43 A2 0 0 0 0 OUTPUT OUTPUT
57706 C 8 0 0 0 0
57707 54 8 0 0 0 52 CLEAR BULK CLEAR
57708 82 577 2 0 0 0 577 END OF SUBROUTINE / LEAVE SUBROUTINE
57800 PROCR 578 578 CONVERT (A) TO DECIMAL
57801 NOTES 578 SELECT
57802 81 578 2 0 0 0 578 START OF SUBROUTINE
57803 5 585 4 1 0 0 585 TRANSFER
57804 60 0 0 0 0 SET DECIMAL RADIX
57805 124 586 22 0 2 0 586 select literal and division
57806 112 585 4 1 0 0 585 convert
57807 82 578 2 0 0 0 578 END OF SUBROUTINE / LEAVE SUBROUTINE
57900 PROCR 579 579 CONVERT (A) TO BIN
57901 NOTES 579 SELECT
57902 81 579 2 0 0 0 579 START OF SUBROUTINE
57903 5 585 4 1 0 0 585 TRANSFER
57904 62 0 0 0 0 SET EXCESS CONSTANTS
57905 124 586 2 0 2 0 586 select literal and division
57906 112 585 4 1 0 0 585 convert
57907 82 579 2 0 0 0 579 END OF SUBROUTINE / LEAVE SUBROUTINE
58000 PROCR 580 580 O/P>A9
58002 81 580 2 0 0 0 580 START OF SUBROUTINE
58003 94 580 9 0 6 50 580 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
58004 583 56 1 0 0 583 BEW SELECT
58005 5 10 306 1 0 0 TRANSFER
58006 80 581 2 0 0 0 581 ENTER SUBROUTINE
58007 90 0 0 6 0 SET MODIFICATION REGISTER AT LITERAL
Source image: P1000428.JPG
58008 C 0 0 0 300
58003>58009 82 580 2 0 0 0 580 END OF SUBROUTINE / LEAVE SUBROUTINE
58100 PROCR 581 581 WRITE A9
58102 81 581 2 0 0 0 581 START OF SUBROUTINE
58103 10 0 0 0 800000 SELECT LITERAL
58104 34 999 12 0 0 0 SEC 10 SET (N) IN B
58105 125 4096 1 1 0 clear indicators
58106 1 999 7 0 0 0 D1/A9 ADD
58107 124 999 0 0 3 0 modify address of next
58108 123 160 0 2 0 enter master routine
58109 82 581 2 0 0 0 581 END OF SUBROUTINE / LEAVE SUBROUTINE
58200 CONST 582 582 1 PASS 3 BLISTER SPACE
58202 (D)0;
58204 0;
58206 0;
58208 0;
58210 0;
58212 0;
58214 0;
58216 0;
58218 0;
58220 0;
58222 0;
58224 0;
58226 0;
58228 0;
58230 0;
58232 0;
58234 0;
58236 0;
58238 0;
58240 0;
58242 0;
58244 0;
58246 0;
58248 0;
58250 0;
58252 0;
58254 0;
58256 0;
58258 0;
58260 0;
58262 0;
58264 0;
58266 0;
58268 0;
58270 0;
58272 0;
58274 0;
58276 0;
58278 0;
58280 0;
58282 0;
58284 0;
58286 0;
58288 0;
58290 0;
58292 0;
Source image: P1000429.JPG
58294 0;
58296 0;
58298 0;
58300 CONST 583 583 1
58302 (A)F.PT.;
58304 YES;
58306 NO;
58308 MOD.;
58310 GP.;
58312 PRIOR;
58314 ITY;
58316 FIRST;
58318 LOCN.;
58320 CHAPT;
58322 TYPE£;
58324 FILES;
58326 TRAN.;
58328 AREAS;
58330 ALT.R;
58332 OUTES;
58334 PROGR;
58336 AMME;
58338 SERIA;
58340 ID.;
58342 RTE.;
58344 TYPE;
58346 ST.OF;
58348 BLOCK;
58350 SIZE;
58352 SIT;
58354 PREND;
58356 (D)7.0000007.;
58358 (A)= CH/;
58360 (D)6£6£6£6£6£;
58362 (A)SEC;
58364 TION.;
58366 PROC;
58368 EDURE;
58370 PASS3;
58372 (A)MR'S ;
58374 4-20 ;
58376 ITEM+;
58378 CTRS;
58380 SWITC;
58382 HES ;
58384 (A)START;
58386 NOTES;
58388 SPOOL;
58390 ENTRY;
58392 (B)100000; 100,000
58400 CONST 584 584 1
58402 (D)5.5.;
58404 (A)INDEX;
58406 CHAIN;
58408 (D)7£££0003££; BITS 5-19+1-10
58410 (A)08000;
58412 PTS I;
58414 NCLUD;
Source image: P1000430.JPG
58416 ED ;
58500 CONST 585 585 1 CONVERT TABLE
58502 (D)1; BIN>DEC
58504 0; (A) WL
58600 CONST 586 586 1 COMPLIER'S CONVERT TABLES
58602 (D)1; DEC>BIN
58604 Ю;
58606 64;
58608 3.8;
58610 2710;
58612 186Ю0;
58614 £4240;
58616 989680;
58618 5£5.100;
58620 3‼9Ю+Ю00;
58622 1; BIN>DEC
58624 16;
58626 256;
58628 4096;
58630 65536;
58632 1048576;
58634 16777216;
58636 268435456;
58638 4294967296;
58640 ££££££££££;
58700 CONST 587 587 0
58702 (D)7;
58703 80000;
58704 0; THIS IS A 0/1 FLIPFLOP FOR SC'S FWD
58705 3£; BITS 1-6
58706 £0000; £ IN Q5
58707 7£;
58708 80; HEAD OF FORM
58709 0; IND FOR HEAD OF FORM
58710 3£££0; BITS 5-18
58800 TABLE 588 588 1 TRIAL DATA HEADING+T/W COMMENT
58801 NOTES
58900 TABLE 589 589 1 PRINT HEADING DATA
58901 NOTES
58902 583 20 0 0 2 0 4 0 1 0 0 0 0
58904 583 38 0 0 2 0 1 0 0 0 0 0 0
58906 11 8 0 0 2 0 1 4 2 0 0 0 0
58908 583 24 0 0 2 0 5 0 3 0 0 0 0
58910 11 10 0 0 0 0 2 3 2 1 0 0 0
58912 583 26 0 0 2 0 5 0 7 0 0 0 0
58914 583 28 0 0 2 0 5 0 2 0 0 0 0
58916 11 12 0 0 0 0 2 3 2 1 0 0 0
58918 583 56 0 0 2 0 5 0 6 0 0 0 1
58920 13 4 0 0 0 0 5 0 0 0 0 0 0
58922 13 3 0 0 0 0 5 0 0 0 0 0 0
58924 13 0 0 0 0 0 5 0 0 0 0 0 0
58926 13 2 0 0 0 0 5 0 0 0 0 0 1
59000 TABLE 590 590 1 PRINT
59001 NOTES G LINE
Source image: P1000431.JPG
59002 583 24 0 0 2 0 4 0 1 0 0 0 0
59004 583 40 0 0 2 0 3 2 2 0 0 0 0 FILE 10.
59006 583 42 0 0 2 0 4 1 6 0 0 0 0
59008 583 44 0 0 2 0 4 1 2 0 0 0 0 RTE. TYPE
59010 583 84 0 0 2 0 5 0 6 0 0 0 0
59012 583 18 0 0 2 0 5 0 2 0 0 0 0 START LOCN.
59014 583 30 0 0 2 0 5 0 6 0 0 0 0
59016 583 32 0 0 2 0 5 0 0 0 0 0 0 ALT. ROUTES
59018 583 48 0 0 2 0 5 0 4 0 0 0 0
59020 583 50 0 0 2 0 5 0 1 0 0 0 0 'BLOCK SIZE'
59022 583 20 0 0 2 0 5 0 10 0 0 0 1 CHAPT
59100 TABLE 591 591 1
59101 NOTES
59102 583 50 0 0 2 0 5 0 3 0 0 0 0 LGTH.OF CHAPS
59104 583 46 0 0 2 0 2 3 2 0 0 0 0
59106 583 20 0 0 2 0 4 0 2 0 0 0 0
59108 583 38 0 0 2 0 1 0 0 0 0 0 0
59110 13 0 0 0 0 0 5 0 2 4 2 0 0
59112 13 1 0 0 0 0 5 0 2 4 2 0 0
59114 13 2 0 0 0 0 5 0 2 4 2 0 0
59116 13 3 0 0 0 0 5 0 2 4 2 0 0
59118 13 4 0 0 0 0 5 0 2 4 2 0 0
59120 13 5 0 0 0 0 5 0 2 4 2 0 0
59122 13 6 0 0 0 0 5 0 2 4 2 0 1
59124 13 0 0 0 0 0 5 0 0 0 0 0 0 TX AREA DETAILS MT
59126 13 2 0 0 2 0 5 0 0 0 0 0 0
59128 13 4 0 0 2 0 5 0 0 0 0 0 1
59200 TABLE 592 592 1
59201 NOTES
59202 583 2 0 0 2 0 5 0 4 0 0 0 0 F.PT.
59204 13 0 0 0 2 0 3 2 2 0 0 0 0 XXX
59206 583 8 0 0 2 0 4 1 7 0 0 0 0
59208 583 10 0 0 2 0 3 2 2 0 0 0 0 MOD. GP.
59210 13 2 0 0 2 0 3 2 2 0 0 0 0 XXX
59212 583 12 0 0 2 0 5 0 7 0 0 0 0
59214 583 14 0 0 2 0 3 2 0 0 0 0 0 PRIORITY
59216 11 4 0 0 2 0 1 4 2 0 0 0 0 XXX
59218 583 90 0 0 2 0 5 0 7 0 0 0 0 'ENTRY'
59220 583 58 0 0 2 0 4 0 0 0 0 0 0 '= CH'
59222 92 8 0 0 0 0 1 4 0 0 0 0 0 CHAP NUMBER
59224 583 58 0 0 2 0 1 4 0 0 0 0 0 '/'
59226 92 6 0 0 0 0 4 1 0 3 0 0 1 LOCN IN CHAP
59300 TABLE 593 593 1
59301 NOTES
59302 587 8 0 0 0 0 5 0 0 4 0 0 0 CALL HEAD OF FORM
59304 583 34 0 0 2 0 5 0 1 0 0 0 0
59306 583 36 0 0 2 0 4 1 0 0 0 0 0
59308 16 2 0 0 0 0 5 0 3 0 0 0 0 PROG IDENTITY
59310 583 38 0 0 2 0 5 0 3 0 0 0 0 'SERIA-
59312 583 18 0 0 2 0 1 0 0 0 0 0 0 '-L'
59314 16 3 0 0 0 0 5 0 3 4 0 0 0 PROG SERIAL
59316 583 20 0 0 2 0 4 0 15 0 0 0 0 'CHAP-'
59318 583 38 0 0 2 0 1 0 0 0 0 0 0 -S'
59320 92 29 0 0 0 0 1 4 2 0 0 0 0 NUMBER OF CHAPS
59322 583 24 0 0 2 0 5 0 3 0 0 0 0 'FILES'
59324 577 2 0 0 0 0 1 4 2 0 0 0 0 NUMBER OF FILES
59326 583 26 0 0 2 0 5 0 6 0 0 0 0 'TRAN'
Source image: P1000432.JPG
59328 583 28 0 0 2 0 5 0 2 0 0 0 0 AREAS'
59330 576 2 0 0 0 0 1 4 2 0 0 0 1 NUMBER OF TX AREAS
59400 TABLE 594 594 1
59402 11 0 0 0 2 0 5 0 6 0 0 0 0 FILE ID
59404 583 2 0 0 0 0 4 0 12 3 0 0 0 ROUTE TYPE
59406 13 6 0 0 0 0 4 1 13 3 0 0 0 START LOCATION
59408 13 8 0 0 2 0 3 2 11 0 0 0 0 ALT ROUTE
59410 13 4 0 0 0 0 4 1 12 3 0 0 0 LENGTH
59412 13 2 0 0 0 0 4 1 12 3 0 0 1 CHAPT'
59414 583 26 0 0 2 0 5 0 1 0 0 0 0
59416 583 28 0 0 2 0 5 0 2 0 0 0 0
59418 583 84 0 0 2 0 5 0 2 0 0 0 0
59420 583 18 0 0 2 0 5 0 2 0 0 0 0
59422 583 20 0 0 2 0 5 0 7 0 0 0 0
59424 583 50 0 0 2 0 5 0 6 0 0 0 1 LGTH
59426 583 2 0 0 0 0 5 0 5 5 0 0 0 SEC NO
59428 13 0 0 0 0 0 4 1 11 3 0 0 0 START
59430 596 2 0 0 0 0 1 4 13 0 0 0 0 CHAPTER
59432 13 4 0 0 0 0 4 1 7 3 0 0 1 LENGTH
59434 11 0 0 0 2 0 5 0 0 0 0 0 0 SENTINEL MARK
59436 11 2 0 0 2 0 5 0 0 0 0 0 0 SENTINEL TYPE
59438 11 4 0 0 2 0 5 0 0 0 0 0 0 PROG ID NO
59440 11 6 0 0 2 0 5 0 0 0 0 0 1 SERIAL NO
59500 TABLE 595 595 1
59502 583 2 0 0 0 0 2 3 3 1 0 0 0 SEQ NO
59504 583 58 0 0 2 0 1 0 0 0 0 0 0 ='
59506 583 3 0 0 0 0 4 1 0 3 0 0 1 SECTION START
59508 583 72 0 0 2 0 5 0 0 0 0 0 0 MR'S 4-20
59510 583 74 0 0 2 0 5 0 0 0 0 0 1
59512 583 76 0 0 2 0 5 0 0 0 0 0 0 ITEM+COUNTERS
59514 583 78 0 0 2 0 5 0 0 0 0 0 1
59516 583 80 0 0 2 0 5 0 0 0 0 0 0 SWITCHES
59518 583 82 0 0 2 0 5 0 0 0 0 0 1
59520 583 4 0 0 0 0 5 0 0 4 0 0 0 SW/MR/SEC
59522 583 58 0 0 2 0 4 0 0 0 0 0 0 =CH'
59524 583 2 0 0 0 0 1 4 0 0 0 0 0 CHAP NO
59526 583 58 0 0 2 0 1 4 0 0 0 0 0 /'
59528 583 3 0 0 0 0 4 1 0 3 0 0 1 POSITION
59600 PROCR 596 596 COPY CHUNK FROM STORE S/R
59602 81 596 2 0 0 0 596 START OF SUBROUTINE
59603 96 0 0 2 0 STORE CHUNK START FOR PARAS 1 AND 5 SELECT MODIFIER
59604 5 598 2 0 0 0 598 TRANSFER
59605 124 598 2 0 1 0 598 modify address of next
59606 101 0 1 3 0 select literal address
59607 5 598 6 0 0 0 598 CHUNK START TRANSFER
59673>59608 124 999 19 1 2 0 SEC 8 modify address of next
59609 124 0 0 2 0 select literal and division
59610 3 577 2 0 0 0 577 WL COPY
59611 11 0 0 0 30 48 ADD LITERAL
59612 30 0 0 0 5 SHIFT (A) BY QUARTETS
59613 1 577 2 0 0 0 577 ADD
59614 91 0 0 4 0 SET MODIFICATION REGISTER AT VARIABLE
59671>59615 124 598 4 0 3 0 598 STORE WORD modify address of next
59616 106 0 0 2 0 select (N)
59617 5 598 7 0 0 0 598 STORE WORD TRANSFER
Source image: P1000433.JPG
59631>59618 34 598 10 1 0 0 598 FIRST LEVEL PARA WORD SET (N) IN B
59619 33 0 0 0 3 NEXT ONE TO A SHIFT (AB) BY BITS
59620 100 598 8 1 0 0 598 STORE (A) (B) (C) copy registers
59621 94 596 29 0 5 1 596 TEST END OF PARA WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
59622 90 0 0 5 0 SET UP MR FOR SET MODIFICATION REGISTER AT LITERAL
59623 C 0 0 0 6 NEXT PARA WORD
59624 124 598 4 0 3 0 598 STORE PARA WORD modify address of next
59625 106 1 0 3 0 STORE PARA WORD select (N)
59626 33 0 0 0 2 RIGHT ALIGN WORD SHIFT (AB) BY BITS
59627 5 598 11 0 0 0 598 TRANSFER
59628 94 596 29 0 3 1 596 STEP PARAS MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
59628>
59621>59629 598 8 0 0 0 598 TEST DUMMY PARA SELECT
59630 12 0 0 0 6 SUBTRACT LITERAL
59631 70 596 18 0 0 0 596 >YES JUMP IF A == 0
59632 12 0 0 0 1 TEST SECOND LEVEL REQD SUBTRACT LITERAL
59633 71 596 57 0 0 0 596 >NO JUMP IF A != 0
59647>59634 34 598 16 1 0 0 598 SECOND LEVEL PARA WORD SET (N) IN B
59635 33 0 0 0 6 NEXT ONE TO A SHIFT (AB) BY BITS
59636 100 598 14 1 0 0 598 STORE (A) (B) (C) copy registers
59637 94 596 45 0 8 1 596 TEST END OF PARA WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
59638 90 0 0 8 0 SET UP MR FOR SET MODIFICATION REGISTER AT LITERAL
59639 C 0 0 0 3 NEXT PARA WORD
59640 124 598 4 0 3 0 598 STORE PARA WORD modify address of next
59641 106 1 0 1 0 select (N)
59642 33 0 0 0 2 RIGHT ALIGN WORD SHIFT (AB) BY BITS
59643 5 598 17 0 0 0 598 TRANSFER
59644 94 596 45 0 1 1 596 STEP PARAS MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
59644>
59637>59645 598 14 0 0 0 598 TEST SECOND LEVEL SELECT
59646 101 63 1 2 0 PARA=63(DUMMY) subtract literal address
59647 70 596 34 0 0 0 596 >YES JUMP IF A == 0
59648 101 1 1 1 0 TEST END SIGN(62) add literal address
59649 71 596 55 0 0 0 596 >NO JUMP IF A != 0
59650 598 4 1 0 0 598 STORE END SIGN SELECT
59651 5 4 1 4 0 END SIGN TRANSFER
59652 5 6 1 4 0 TRANSFER
59653 80 577 2 0 0 0 577 >WRITE LAST BLOCK ENTER SUBROUTINE
59654 82 596 2 0 0 0 596 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
59649>59655 598 14 1 0 0 598 STORE ACTUAL PARA SELECT
59656 5 598 8 1 0 0 598 VALUE TRANSFER
59633>59657 598 8 0 0 0 598 TEST PARA=1 SELECT
59658 12 0 0 0 1 SUBTRACT LITERAL
59659 70 596 62 0 0 0 596 >YES JUMP IF A == 0
59660 12 0 0 0 4 SUBTRACT LITERAL
59661 71 596 66 0 0 0 596 >NO JUMP IF A != 0
59659>59662 35 0 0 0 1111 ADJUST ORDER BY PREPARE FOR DIGIT COLLATION
59663 36 598 7 0 0 0 598 CHUNK START COLLATE AND ADD
59664 2 598 6 0 0 0 598 SUBTRACT
59665 37 598 7 0 0 0 598 REPLACE SELECTED BITS
59661>59666 598 7 0 0 0 598 SELECT
59667 5 6 2 4 0 TRANSFER
59668 598 8 0 0 0 598 SELECT
59669 5 4 2 4 0 TRANSFER
59670 94 596 71 0 2 1 596 WORD MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
59670>59671 94 596 15 0 4 4 596 >NEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
59672 80 577 2 0 0 0 577 >WRITE ENTER SUBROUTINE
59673 76 596 8 0 0 0 596 >NEXT BLOCK JUMP unconditional
59700 TABLE 597 597 3
Source image: P1000434.JPG
59702 16 16 0 0 0 0 5 0 0 0 0 0 0
59704 587 2 0 0 0 0 5 0 0 0 0 0 0
59706 16 2 0 0 0 0 5 0 0 0 0 0 0
59708 16 3 0 0 0 0 5 0 0 0 0 0 0 SERIAL
59710 583 20 0 0 2 0 5 0 0 0 0 0 1 'CHAPT'
59712 583 28 0 0 2 0 5 0 0 0 0 0 0
59714 16 16 0 0 0 0 5 0 3 4 0 0 1
59716 11 0 0 0 2 0 5 0 0 0 0 0 0 FILE IDENTITY
59718 11 2 0 0 2 0 4 0 1 0 0 0 0 ROUTE TYPE
59720 11 8 0 0 2 0 5 0 0 0 0 0 0 START LOCATION
59722 11 4 0 0 2 0 5 0 0 0 0 0 0 TWICE CHAP
59724 11 6 0 0 2 0 5 0 0 0 0 0 0 MAX BLOCK LENGTH
59726 11 10 0 0 2 0 5 0 0 0 0 0 1 ALT ROUTE
59800 CONST 598 598 1 CONSTANTS
59802 (D)0;
59804 (A)£ ;
59806 0; CHUNK START/ORDER
59808 0;
59810 0;
59812 0;
59814 0;
59816 0;
59818 0;
59900 PROCR 599 599 DUMMY
60000 PROCR 600 600
60100 PROCR 601 601
60200 PROCR 602 602
60300 PROCR 603 603
60400 PROCR 604 604 PREPARATORY STAGE
60401 NOTES RADIX SELECT
60402 10 0 0 0 0 (29)TEST UNSUITABLE MASTER SELECT LITERAL
60403 127 604 51 0 0 0 604 >YES(REJECT G) jump A = Z
60404 124 611 6 0 2 0 611 SET UP IND MODS select literal and division
60405 5 604 28 0 0 0 604 AT 15 BIT TRANSFER
60406 124 611 8 0 2 0 611 ADDRESS select literal and division
60407 5 604 31 0 0 0 604 TRANSFER
60408 124 611 12 0 2 0 611 select literal and division
60409 5 604 47 0 0 0 604 TRANSFER
60410 12 0 0 0 4 SUBTRACT LITERAL
60411 4 611 5 0 0 0 611 TO ALLOW ROOM AUGMENT
60412 4 611 13 0 0 0 611 FOR 'A' AND 'B' AUGMENT
60413 10 0 0 0 0 (31)TEST 2 STORES SELECT LITERAL
60414 70 604 16 0 0 0 604 >NO JUMP IF A == 0
60415 76 604 18 0 0 0 604 JUMP unconditional
60414>60416 611 5 0 0 0 611 SET UP MR FOR SELECT
60417 5 611 3 0 0 0 611 ONE STORE AREA TRANSFER
60429>
60415>60418 124 611 6 0 3 0 611 modify address of next
60419 106 0 0 0 0 NEXT PROG IDENTITY select (N)
60420 70 605 2 0 0 0 605 >UNLOAD THIS PROGRAM JUMP IF A == 0
60421 10 0 0 0 2 STEP CTR SELECT LITERAL
60422 4 611 8 0 0 0 611 AUGMENT
Source image: P1000435.JPG
60423 124 611 6 0 3 0 611 MOVE DETAIL DOWN modify address of next
60424 106 0 1 0 0 select (N)
60425 124 611 8 0 3 0 611 modify address of next
60426 102 0 1 0 0 transfer (A) to N
61036>60427 123 2 0 0 0 (REENTRY AFTER UNLOAD) step on and test
60428 100 611 6 0 0 0 611 Halt
60429 76 604 18 0 0 0 604 JUMP unconditional
60437>60430 123 2 0 0 0 >NEXT ENTRY step on and test
60431 100 611 8 0 0 0 611 Halt
60432 76 604 34 0 0 0 604 JUMP unconditional
60433 76 604 38 0 0 0 604 >LAST ENTRY JUMP unconditional
60432>60434 611 10 1 0 0 611 SET 10X£ IN REMAINING SELECT
60435 124 611 8 0 3 0 611 PQ LOCNS modify address of next
60436 102 0 1 0 0 transfer (A) to N
60437 76 604 30 0 0 0 604 JUMP unconditional
60448>
60433>60438 124 611 12 0 3 0 611 FIND SUFFICIENT STORE modify address of next
60439 106 1 0 0 0 AREA FOR NEXT CHAP(500 LOCNS) select (N)
60440 2 611 10 0 0 0 611 SUBTRACT
60441 70 604 46 0 0 0 604 >SKIP END SIGNS, TRUST MR JUMP IF A == 0
60442 1 611 10 0 0 0 611 ADD
60443 118 0 0 0 0 DUMMY shift logical
60444 101 516 1 2 0 subtract literal address
60445 72 604 54 0 0 0 604 JUMP IF A >= 0
60441>60446 123 2 0 0 0 step on and test
60447 100 611 12 0 0 0 611 Halt
60448 76 604 38 0 0 0 604 JUMP unconditional
60449 10 0 0 0 0 SELECT LITERAL
60450 12 0 0 0 4 C COMMENT SUBTRACT LITERAL
60403>60451 11 0 0 0 57 G COMMENT ADD LITERAL
60452 124 611 14 0 3 0 611 modify address of next
60453 124 0 1 0 0 (14)->REJECT unconditional jump
60445>60454 124 611 12 0 3 0 611 modify address of next
60455 106 0 0 0 0 15-BIT START select (N)
60456 124 611 14 0 3 0 611 modify address of next
60457 103 28 0 0 0 R2 MODIFIER copy (A) to N
60458 124 611 14 0 3 0 611 modify address of next
60459 103 0 0 0 0 PLANT S/R LINK copy (A) to N
60460 34 611 19 0 0 0 611 BITS 1-13 SET (N) IN B
60461 114 611 19 0 0 0 611 replace selected bits
60462 611 19 0 0 0 611 CHUNK START PARA SELECT
60463 124 611 14 0 3 0 611 modify address of next
60464 102 1 0 0 0 transfer (A) to N
60465 101 0 1 3 0 select literal address
60466 124 611 14 0 3 0 611 SECOND ORDER modify address of next
60467 124 1 1 0 0 >LOAD CHAP S/R unconditional jump
60500 PROCR 605 605 UPDATE PREVIOUS SWITCH,UNLOAD FP/MG/TAG
60501 NOTES RADIX SELECT
60420>60502 35 0 0 0 1111 Q1-4B,A CLEAR PREPARE FOR DIGIT COLLATION
60503 124 611 6 0 3 0 611 modify address of next
60504 115 1 0 0 0 START OF SWITCH collate and add
60505 5 604 2 1 0 0 604 TRANSFER
60506 124 604 2 0 3 0 604 modify address of next
60507 106 37 0 0 0 SI+37 select (N)
60508 5 611 18 0 0 0 611 SPECIAL CHAPTER START TRANSFER
60509 124 611 8 0 3 0 611 modify address of next
60510 106 1 0 0 0 SWITCH START OF PROC ABOVE THIS select (N)
60511 124 611 14 0 3 0 611 modify address of next
60512 102 30 1 0 0 SET R3 transfer (A) to N
Source image: P1000436.JPG
60513 126 604 2 1 2 0 604 THIS SWITCH STARTS>R2 set modification register
60514 124 611 14 0 3 0 611 modify address of next
60515 126 0 0 0 0 >'UPDATE SWITCH' S/R enter subroutine
60516 124 611 18 0 3 0 611 modify address of next
60517 106 0 0 0 0 FP USED select (N)
60518 70 605 28 0 0 0 605 >NO JUMP IF A == 0
60519 126 611 14 1 2 0 611 6/0 set modification register
60527>60520 101 14 1 3 0 select literal address
60521 124 611 14 0 3 0 611 modify address of next
60522 123 128 1 2 0 TAG 14 copy into tag
60523 10 0 0 0 0 SELECT LITERAL
60524 124 611 14 0 3 0 611 modify address of next
60525 102 128 1 2 0 CLEAR transfer (A) to N
60526 125 2 0 2 0 step on and test
60527 76 605 20 0 0 0 605 JUMP unconditional
60518>60528 124 611 18 0 3 0 611 modify address of next
60529 106 1 0 0 0 MOD GROUP select (N)
60530 70 605 39 0 0 0 605 >NOT USED JUMP IF A == 0
60531 31 0 0 0 3 SHIFT (A) BY BITS
60532 5 604 2 0 0 0 604 STORE 8M TRANSFER
60533 126 611 14 1 2 0 611 6/0 set modification register
60534 101 14 1 3 0 select literal address
60538>60535 124 604 2 0 3 0 604 modify address of next
60536 123 2 1 2 0 TAG 14 INTO MOD GROUP copy into tag
60537 125 2 0 2 0 step on and test
60538 76 605 35 0 0 0 605 JUMP unconditional
60530>60539 124 611 18 0 3 0 611 SPECIAL CHAP START modify address of next
60540 106 10 0 0 0 ALLOCATED TAG select (N)
60541 3 604 2 0 0 0 604 W/L COPY
60542 32 0 0 0 1- TAG TO Q10B SHIFT (AB) BY QUARTETS
60543 124 604 2 0 3 0 604 modify address of next
60544 118 0 1 0 0 SHIFT TAGX TO QXA shift logical
60545 124 611 14 0 3 0 611 ZERO modify address of next
60546 107 0 1 0 0 AUG TAG AVAILABILITY LOCN augment (N) by (A)
60547 124 611 18 0 3 0 611 SPECIAL CHAP modify address of next
60548 126 18 1 2 0 2X(R+T) set modification register
60549 126 611 14 1 3 0 611 6:0 FLIP FLOP set modification register
60550 125 3 0 3 0 step on and test
60641>60551 125 3 0 3 0 step on and test
60552 76 606 4 0 0 0 606 JUMP unconditional
60553 126 611 14 1 3 0 611 06:00 set modification register
60554 124 611 18 0 3 0 611 NEXT ROUTE DETAIL modify address of next
60555 106 34 1 2 0 select (N)
60556 72 606 4 0 0 0 606 JUMP IF A >= 0
60557 125 3 0 3 0 >NOT DEALLOCATED BY PROGRAM step on and test
60600 PROCR 606 606 UNLOAD ROUTES AND PSEUDO ROUTES
60601 NOTES RADIX 103 SELECT
60602 125 1 0 2 0 step on and test
60603 76 606 40 0 0 0 606 >ALREADY DEALLOCATED JUMP unconditional
60556>
60552>60604 124 611 18 0 3 0 611 modify address of next
60605 106 34 0 2 0 NEXT DETAIL select (N)
60606 32 0 0 0 4- SHIFT (AB) BY QUARTETS
60607 5 604 13 0 0 0 604 Q5=ROUTE TYPE TRANSFER
60608 32 0 0 0 2 SHIFT (AB) BY QUARTETS
60609 10 0 0 0 0 SELECT LITERAL
60610 32 0 0 0 2 Q1,2=ROUTE SHIFT (AB) BY QUARTETS
60611 70 606 40 0 0 0 606 JUMP IF A == 0
60612 101 128 1 2 0 (32)TEST ALT ROUTE subtract literal address
Source image: P1000437.JPG
60613 70 606 40 0 0 0 606 >YES JUMP IF A == 0
60614 101 128 1 1 0 (32) add literal address
60615 3 604 14 0 0 0 604 ROUTE COPY
60616 32 0 0 0 1- SHIFT (AB) BY QUARTETS
60617 33 0 0 0 1 STORE 8XCHANNEL SHIFT (AB) BY BITS
60618 118 3 0 3 0 shift binary
60619 5 604 15 0 0 0 604 TRANSFER
60620 33 0 0 0 3 SHIFT (AB) BY BITS
60621 5 604 16 0 0 0 604 STORE RTE NO MOD 8 TRANSFER
60622 604 13 0 0 0 604 ROUTE TYPE SELECT
60623 71 606 25 0 0 0 606 JUMP IF A != 0
60624 611 16 0 0 0 611 0 SELECT
60623>60625 124 604 14 0 3 0 604 modify address of next
60626 102 64 0 0 0 transfer (A) to N
60627 124 604 15 0 3 0 604 UPDATE ASSEMBLER TABLE modify address of next
60628 106 0 0 0 0 (12) select (N)
60629 2 604 14 0 0 0 604 SUBTRACT
60630 71 606 34 0 0 0 606 >NOT THIS ROUTE JUMP IF A != 0
60631 611 10 0 0 0 611 SET SELECT
60632 124 604 15 0 3 0 604 modify address of next
60633 102 0 1 0 0 (12) transfer (A) to N
60630>60634 101 1 0 1 0 prepare for digit collation
60635 101 0 1 3 0 select literal address
60636 124 604 16 0 3 0 604 ROUTE IN CHANNEL modify address of next
60637 118 0 1 0 0 shift logical
60638 124 604 15 0 3 0 604 modify address of next
60639 114 2 1 0 0 (12) replace selected bits
60613>
60611>
60603>60640 125 1 0 2 0 step on and test
60641 76 605 51 0 0 0 605 >ALT ROUTE OR NEXT ROUTE JUMP unconditional
60700 PROCR 607 607 UNLOAD STORAGE, CLEAR/SET TAG 14
60701 NOTES RADIX 104 PREP STAGE SELECT
60702 124 611 18 0 3 0 611 SPECIAL CHAP START modify address of next
60703 126 16 1 2 0 (2XCHAPS):0 set modification register
61035>60704 124 611 18 0 3 0 611 modify address of next
60705 106 20 1 2 0 select (N)
60706 5 604 2 1 0 0 604 END/START NEXT CHAP TRANSFER
60707 126 604 2 1 3 0 604 set modification register
60708 101 14 1 3 0 select literal address
60712>60709 124 611 14 0 3 0 611 modify address of next
60710 123 0 1 3 0 STACK TAG 14 EVERY WHERE copy into tag
60711 125 2 0 3 0 step on and test
60712 76 607 9 0 0 0 607 JUMP unconditional
60713 126 604 2 1 3 0 604 START/END NEXT CHAP set modification register
60714 604 2 0 0 0 604 START SELECT
60715 2 611 18 0 0 0 611 SPECIAL CHAP START SUBTRACT
60716 71 607 20 0 0 0 607 >NOT SP CHAP JUMP IF A != 0
60717 125 500 0 3 0 DON'T CLEAR FIRST 500 step on and test
60718 76 607 20 0 0 0 607 JUMP unconditional
60719 76 608 2 0 0 0 608 >NONE TO CLEAR JUMP unconditional
60718>
60716>60720 10 0 0 0 0 SELECT LITERAL
60724>60721 124 611 14 0 3 0 611 modify address of next
60722 102 0 1 3 0 transfer (A) to N
60723 125 2 0 3 0 step on and test
60724 76 607 21 0 0 0 607 JUMP unconditional
60800 PROCR 608 608
Source image: P1000438.JPG
60801 NOTES RADIX 105 SELECT
60719>60802 10 0 0 0 0 (31) TEST 2 STORES SELECT LITERAL
60803 70 608 9 0 0 0 608 >NO JUMP IF A == 0
60804 0 604 2 0 0 0 604 CHAP START SELECT
60805 2 610 37 0 0 0 610 CONST=DIV 4/0 SUBTRACT
60806 73 608 9 0 0 0 608 >CHAP IN FIRST STORE JUMP IF A < 0
60807 0 611 22 1 0 0 611 FOR SECOND SELECT
60808 76 608 10 0 0 0 608 JUMP unconditional
60806>
60803>60809 0 611 20 1 0 0 611 FOR FIRST SELECT
60808>60810 5 604 16 1 0 0 604 TRANSFER
60811 126 604 16 1 1 0 604 SET UP MRS set modification register
60935>60812 126 604 16 1 3 0 604 set modification register
60923>60813 124 611 14 0 3 0 611 NEXT STRIP modify address of next
60814 106 0 1 3 0 select (N)
60900 PROCR 609 609 UNLOAD NEXT CHAP-LOOK FOR JOINS
60901 NOTES RADIX 106 SELECT
60902 05 604 12 1 0 0 604 W/L TRANSFER
60903 00 604 12 0 0 0 604 NEXT STRIP START SELECT
60904 70 609 22 0 0 0 609 >DUMMY, STEP R3 JUMP IF A == 0
60905 2 611 10 0 0 0 611 SUBTRACT
60906 70 609 36 0 0 0 609 >LIST END JUMP IF A == 0
60907 00 604 12 0 0 0 604 STRIP START SELECT
60908 01 604 13 0 0 0 604 STRIP LENGTH ADD
60909 5 604 15 0 0 0 604 =STRIP END TRANSFER
60910 34 611 19 0 0 0 611 BITS1-13 SET (N) IN B
60911 36 604 12 0 0 0 604 STRIP START COLLATE AND ADD
60912 70 609 17 0 0 0 609 >START IS DIVISION BOUNDARY JUMP IF A == 0
60913 00 604 12 0 0 0 604 STRIP START SELECT
60914 2 604 3 0 0 0 604 CHAP END SUBTRACT
60915 70 609 24 0 0 0 609 >JOINS UP JUMP IF A == 0
60916 10 0 0 0 0 SELECT LITERAL
60912>60917 36 604 15 0 0 0 604 COLLATE AND ADD
60918 70 609 22 0 0 0 609 >STRIP END IS DIVISION BOUNDARY JUMP IF A == 0
60919 604 15 0 0 0 604 STRIP END SELECT
60920 2 604 2 0 0 0 604 CHAP START SUBTRACT
60921 70 609 28 0 0 0 609 >JOINS UP JUMP IF A == 0
60918>
60904>60922 125 2 0 3 0 step on and test
60923 76 608 13 0 0 0 608 >NEXT STRIP JUMP unconditional
60915>60924 604 2 0 0 0 604 CHAP START SELECT
60925 32 0 0 0 5- SHIFT (AB) BY QUARTETS
60926 1 604 15 0 0 0 604 STRIP END ADD
60927 76 609 31 0 0 0 609 JUMP unconditional
60921>60928 00 604 12 0 0 0 604 STRIP START SELECT
60929 32 0 0 0 5- SHIFT (AB) BY QUARTETS
60930 1 604 3 0 0 0 604 CHAP END ADD
60927>60931 32 0 0 0 5 SHIFT (AB) BY QUARTETS
60932 5 604 2 1 0 0 604 STORE SUPERCHAP TRANSFER
60933 124 611 14 0 3 0 611 CLEAR STRIP DETAIL modify address of next
60934 102 0 1 3 0 transfer (A) to N
60935 76 608 12 0 0 0 608 >LOOP AGAIN JUMP unconditional
60906>60936 2 604 2 0 0 0 604 START SUBTRACT
60937 4 604 3 0 0 0 604 CHANGE END OF LENGTH AUGMENT
61000 PROCR 610 610 SORT NEXT ITEM INTO STORAGE LIST
61001 NOTES RADIX 107 SELECT
61027>61002 124 604 16 0 3 0 604 CTR modify address of next
61003 106 0 1 0 0 select (N)
Source image: P1000439.JPG
61004 3 611 24 1 0 0 611 W/L COPY
61005 70 610 25 0 0 0 610 >DUMMY STEP CTR JUMP IF A == 0
61006 2 611 10 1 0 0 611 £X10 SUBTRACT
61007 70 610 28 0 0 0 610 >END ROUTINE JUMP IF A == 0
61008 611 24 1 0 0 611 SELECT
61009 2 604 2 1 0 0 604 DETAIL TO INSERT SUBTRACT
61010 73 610 17 0 0 0 610 >NOT YET JUMP IF A < 0
61011 604 2 1 0 0 604 SELECT
61012 124 611 14 0 3 0 611 modify address of next
61013 102 0 1 1 0 WRITE INTO LIST transfer (A) to N
61014 611 24 1 0 0 611 SELECT
61015 5 604 2 1 0 0 604 INSERT OVERWRITTEN ITEM NEXT TIME TRANSFER
61016 76 610 20 0 0 0 610 JUMP unconditional
61010>61017 611 24 1 0 0 611 WRITE ITEM BACK SELECT
61018 124 611 14 0 3 0 611 modify address of next
61019 102 0 1 1 0 transfer (A) to N
61016>61020 125 2 0 1 0 STEP MR1 step on and test
61021 76 610 25 0 0 0 610 JUMP unconditional
61022 10 0 0 0 51 TOO MANY STRIPS SELECT LITERAL
61023 124 611 14 0 3 0 611 INTERNAL IMPOSSIBILITY modify address of next
61024 124 0 1 0 0 (13)>XXXA unconditional jump
61021>
61005>61025 10 0 0 0 2 STEP CTR SELECT LITERAL
61026 4 604 16 0 0 0 604 AUGMENT
61027 76 610 2 0 0 0 610 >NEXT STRIP JUMP unconditional
61007>61028 604 2 1 0 0 604 INSERT FINAL DETAILS SELECT
61029 124 611 14 0 3 0 611 modify address of next
61030 102 0 1 1 0 transfer (A) to N
61031 611 10 1 0 0 611 SELECT
61032 124 611 14 0 3 0 611 modify address of next
61033 102 2 1 1 0 transfer (A) to N
61034 125 2 0 2 0 STEP MR2 step on and test
61035 76 607 4 0 0 0 607 >UNLOAD NEXT CHAP JUMP unconditional
61036 76 604 27 0 0 0 604 >UNLOAD NEXT PROGR JUMP unconditional
61037 100 0 1 0 0 CONSTANT=DIV 4/0 copy registers
61038 604 2 0 0 0 604 SELECT
61039 10 0 0 0 0 DUMMY SELECT LITERAL
61100 CONST 611 611 0 108
61102 (D)0; (30)START FIRST TABLE
61103 0; (31)START LAST TABLE
61104 0; (31)DO
61105 0; (3)END+4 OF LAST AREA
61106 2; (29)START PQ
61107 0; (30)END PQ
61108 0; (29)END PQ
61109 0; (20)START PQ
61110 £££££;
61111 £££££;
61112 0; (30)START FIRST AREA
61113 0; (3)END+4 OF LAST AREA
61114 0;
61115 6;
61116 ££££;
61117 £0000;
61118 0;
61119 1£££;
61120 0; (30)FIRST STORE
61121 0;
61122 0; (31)SECOND STORE
Source image: P1000440.JPG
61123 0;
61124 0; W/L FOR STRIP DETAIL
61125 0;
61126 0; BLISTER SPACE
61127 0;
61200 PROCR 612 612 DUMMY PROCEDURE START OF ALLOC STORAGE
61201 NOTES RADIX 201 SELECT
61300 PROCR 613 613 SET UP 1 OR 2 STORE AREAS
61301 NOTES RADIX 202 STORE FOR CHAP DETAILS SELECT
61302 101 0 1 3 0 (31)TEST 2 STORES select literal address
61303 70 613 14 0 0 0 613 >1 AREA JUMP IF A == 0
61304 10 0 0 0 0 SELECT LITERAL
61305 12 0 0 0 1 SUBTRACT LITERAL
61306 4 621 6 0 0 0 621 SET SWITCH=2 AUGMENT
61307 10 0 0 0 0 SELECT LITERAL
61308 2 613 17 0 0 0 613 SUBTRACT
61309 4 622 30 0 0 0 622 (71>73 ORDER) AUGMENT
61310 101 0 1 3 0 (31)FORM FIRST TABLE LENGTH select literal address
61311 101 0 1 2 0 (30) subtract literal address
61312 4 614 20 0 0 0 614 ADJUST MR SETTING AUGMENT
61313 4 621 23 0 0 0 621 ADJUST ORDERS AUGMENT
61303>61314 124 613 26 0 3 0 613 modify address of next
61315 126 0 0 0 0 (7)>READ BLOCK enter subroutine
61316 76 616 2 0 0 0 616 JUMP unconditional
61317 100 0 0 2 0 CONSTANT replace (B) by (N)
61318 100 1 0 0 0 COLLATION CONST Halt
61319 100 0 0 0 0 INIT CHAP COLL CONST Halt
61320 100 0 0 0 0 TOT CHAPS FOR ALLOCATION Halt
61321 100 0 0 0 0 ? Halt
61322 100 0 0 0 0 ? Halt
61323 100 0 0 0 0 VBLE BIT PATTERN Halt
61324 100 0 0 0 0 START OF ALLOC IN STRIP Halt
61325 100 0 0 0 0 ZERO CONST) Halt
61326 100 0 0 0 0 )R1 WL Halt
61327 100 0 0 0 0 TOTAL LENGTH COUNTER Halt
61328 100 0 0 0 0 W/L FOR ALLOC CHAPS Halt
61329 100 0 0 0 0 COLLATION CONSTANT Halt
61330 100 1 0 0 0 MIN WASTAGE BIT PATTERN Halt
61331 100 0 0 0 0 Halt
61400 PROCR 614 614 STORE CARRIED FORWARD DETAILS
61401 NOTES RADIX 203 SELECT
62931>61402 124 614 20 0 3 0 614 BULK COPY TO modify address of next
61403 128 250 0 0 0 MIDDLE OF SPECIAL CHAP bulk copy short numeric
61404 124 614 20 0 3 0 614 modify address of next
61405 124 250 1 0 0 >NEW POSITION OF NEXT ORDER unconditional jump
62935>61406 106 614 18 1 0 0 614 COPY 40 LOCNS STORAGE TABLE TO CHAP 1/80select (N)
61407 124 614 42 0 3 0 614 modify address of next
61408 128 80 0 0 0 bulk copy short numeric
61409 106 614 16 1 0 0 614 COPY 54 LOCNS MISC TO START OF EXTRA CHAselect (N)
61410 124 614 20 0 3 0 614 modify address of next
61411 128 0 0 0 0 bulk copy short numeric
61412 101 0 1 3 0 PARA TABLE START select literal address
61413 124 614 15 0 3 0 614 modify address of next
61414 124 1 1 0 0 (6)>LOAD CHAP unconditional jump
61415 100 0 0 0 0 ZERO Halt
61416 100 16 0 0 0 TABLE ENTRIES Halt
61417 100 54 0 0 0 Halt
Source image: P1000441.JPG
61418 100 70 0 0 0 Halt
61419 100 40 0 0 0 Halt
61420 100 0 0 0 0 W/L'S FOR BEGIN/END Halt
61421 100 0 0 0 0 OF STORE AREAS Halt
61500 CONST 615 615 0 204 DUMMY PROCEDURE FOR OVERWRITE
61502 (B)64-; (11)MASTER PSEUDO
61503 0;
61600 PROCR 616 616 INPUT CD DEAL WITH ANNEXES W/L'S
61601 NOTES RADIX 205 SELECT
61316>61602 124 615 2 1 2 0 615 UNPACK ALPHA->NUMERIC modify address of next
61603 124 25 0 2 0 CHAP DETAILS select literal and division
61604 32 0 0 0 5- SHIFT (AB) BY QUARTETS
61605 101 28 1 3 0 select literal address
61606 32 0 0 0 5 SHIFT (AB) BY QUARTETS
61607 128 612 3 1 0 0 612 bulk copy alpha to short
61608 124 615 2 1 2 0 615 UNPACK ALPHA->NUMERIC modify address of next
61609 124 5 0 2 0 GENERAL DETAILS select literal and division
61610 32 0 0 0 5- SHIFT (AB) BY QUARTETS
61611 101 20 1 3 0 select literal address
61612 32 0 0 0 5 SHIFT (AB) BY QUARTETS
61613 128 615 2 1 0 0 615 bulk copy alpha to short
61614 612 10 1 0 0 612 TRANSFER PROG SELECT
61615 5 615 14 1 0 0 615 SERIAL AND IDENTITY TRANSFER
61616 101 612 2 1 3 0 612 TEST IF PTS REQD ALLOC COMMENT select literal address
61617 33 0 0 0 3 SHIFT (AB) BY BITS
61618 32 0 0 0 1- STORE PARAS FOR SHIFT (AB) BY QUARTETS
61619 5 615 12 0 0 0 615 ALLOC ROUTES TRANSFER
61620 33 0 0 0 1 SHIFT (AB) BY BITS
61621 3 615 13 0 0 0 615 STORE'TRIALS ALLOC'IND COPY
61622 70 616 30 0 0 0 616 >NOT TRIALS ALLOCATED JUMP IF A == 0
61623 101 0 1 3 0 (28)PTS IN MASTER? select literal address
61624 70 616 30 0 0 0 616 >YES JUMP IF A == 0
61625 3 615 3 0 0 0 615 RESERVE MOD GROUP COPY
61626 0 619 14 0 0 0 619 SELECT
61627 5 617 21 0 0 0 617 (TO STEP CTR IF PTS CHAP NEEDED) TRANSFER
61628 101 1500 1 3 0 PTS SIZE select literal address
61629 4 620 10 0 0 0 620 AUGMENT SPECIALSIZE AUGMENT
61624>
61622>61630 124 615 6 0 1 0 615 FIRST SPECIAL CHAP (CHAPS INITIALLY) modify address of next
61631 103 612 3 0 0 0 612 copy (A) to N
61632 124 615 6 0 1 0 615 STORE PRINT S/R START modify address of next
61633 106 612 2 0 0 0 612 (SPEC CHAP LENGTH) select (N)
61634 102 615 17 0 0 0 615 transfer (A) to N
61635 615 6 0 0 0 615 2XCHAPS SELECT
61636 1 615 6 0 0 0 615 ADD
61637 5 615 19 0 0 0 615 TRANSFER
61638 124 615 19 0 0 0 615 modify address of next
61639 102 615 22 1 0 0 615 CLEAR PTS DETAILS transfer (A) to N
61640 101 0 1 3 0 PARA TABLE START select literal address
61641 5 615 34 0 0 0 615 FOR TRANSLATOR TRANSFER
61642 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
61643 124 613 26 0 3 0 613 modify address of next
61644 115 27 0 0 0 (3)MACHINE PRINTER TYPE collate and add
61645 101 9 1 2 0 subtract literal address
61646 103 615 16 0 0 0 615 STORE INDICATOR copy (A) to N
61647 71 617 2 0 0 0 617 >RTE TYPE 4 JUMP IF A != 0
61648 10 0 0 0 1 SELECT LITERAL
61649 4 617 22 0 0 0 617 AUGMENT
Source image: P1000442.JPG
61650 4 617 25 0 0 0 617 AUGMENT
61651 106 619 12 0 0 0 619 select (N)
61652 102 619 9 0 0 0 619 transfer (A) to N
61700 PROCR 617 617 FORM UP DETAILS FOR PRINTERS
61701 NOTES RADIX 206 SELECT
61647>61702 615 19 0 0 0 615 SET UP MRS 2C:0 SELECT
61703 5 613 20 0 0 0 613 FOR LIST OF CHAPS TRANSFER
61704 615 6 0 0 0 615 SELECT
61705 3 613 22 0 0 0 613 COPY
61706 101 4 1 1 0 AND LIST OF LENGTHS add literal address
61707 5 613 23 0 0 0 613 TRANSFER
61708 126 613 20 1 1 0 613 MR 2C: 0 set modification register
61709 126 613 22 1 3 0 613 2(C+2) : 0 set modification register
61710 5 615 24 1 1 0 615 ENSURE NO PRINT S/R UNLESS DESIRED TRANSFER
61711 101 0 1 3 0 (28) IS THIS ISSUE 6+MASTER? select literal address
61712 70 617 20 0 0 0 617 >NO JUMP IF A == 0
61713 101 0 1 3 0 (48)BONUS TO SPECIAL CHAP FOR CMR select literal address
61714 34 620 2 0 0 0 620 SET (N) IN B
61715 124 615 6 0 1 0 615 modify address of next
61716 36 612 2 0 0 0 612 COLLATE AND ADD
61717 124 615 6 0 1 0 615 modify address of next
61718 37 612 2 0 0 0 612 REPLACE SELECTED BITS
61719 10 0 0 0 0 DUMMY SELECT LITERAL
61712>61720 612 14 0 0 0 612 TEST ANY RT 19 PRINTERS SELECT
61721 70 617 54 0 0 0 617 *FORMED ORDER*->NONE JUMP IF A == 0
61722 0 612 13 0 0 0 612 *1 ADDED FOR SPECIAL PRINTER* SELECT
61723 80 619 2 0 0 0 619 >BREAK UP DETAILS S/R ENTER SUBROUTINE
61724 125 2 0 1 0 step on and test
61725 0 612 15 0 0 0 612 *1 ADDED FOR SPECIAL PRINTER* SELECT
61726 80 619 2 0 0 0 619 >BREAK UP DETAILS S/R ENTER SUBROUTINE
61746>61727 615 23 0 1 0 615 SELECT
61728 71 617 33 0 0 0 617 >CHAP CHOSEN JUMP IF A != 0
61729 615 22 0 1 0 615 ANNEXE LENGTH SELECT
61730 615 22 0 1 0 615 DUMMY SELECT
61731 4 620 10 0 0 0 620 AUGMENT SPECIAL TOTAL AUGMENT
61732 76 617 43 0 0 0 617 JUMP unconditional
61728>61733 5 613 20 0 0 0 613 TRANSFER
61734 615 22 0 1 0 615 ANNEXE LENGTH SELECT
61735 34 620 2 0 0 0 620 SET (N) IN B
61736 124 613 20 0 1 0 613 CHAP LENGTH ALLOWING modify address of next
61737 36 612 2 0 0 0 612 FOR NEG CHAP LENGTH COLLATE AND ADD
61738 124 613 20 0 1 0 613 modify address of next
61739 37 612 2 0 0 0 612 REPLACE SELECTED BITS
61740 615 23 0 1 0 615 DOUBLE CHAP NO SELECT
61741 4 615 23 0 1 0 615 AUGMENT
61742 101 0 1 3 0 CLEAR CHAP LENGTH select literal address
61732>61743 5 612 4 0 3 0 612 TRANSFER
61744 125 2 0 1 0 step on and test
61745 125 1 0 3 0 step on and test
61746 76 617 27 0 0 0 617 JUMP unconditional
61747 106 615 16 0 0 0 615 TEST RTE TYPE 9 select (N)
61748 70 617 52 0 0 0 617 >YES JUMP IF A == 0
61749 101 1 1 3 0 select literal address
61750 4 618 21 0 0 0 618 ADJUST ORDERS FOR PRINT S/R LENGTH AUGMENT
61751 10 0 0 0 2 (+5 IF GP) SELECT LITERAL
61748>61752 11 0 0 0 2 (+3 IF SPECIAL) ADD LITERAL
61914>61753 11 0 0 0 1 (+1 IF TRIALS ALLOC) ADD LITERAL
61721>61754 1 615 6 0 0 0 615 CHAPS INITIALLY ADD
61755 5 613 20 0 0 0 613 CHAPS FOR ALLOCATION TRANSFER
Source image: P1000443.JPG
61756 34 620 2 1 0 0 620 Q1=10 SET (N) IN B
61757 124 615 6 0 1 0 615 INITIAL CHAPS X modify address of next
61758 118 0 1 3 0 FORM BITS 1-X shift binary
61759 5 613 19 0 0 0 613 TRANSFER
61760 124 613 20 0 1 0 613 TOT CHAPS Y modify address of next
61761 118 0 1 3 0 FORM BITS 1-Y shift binary
61762 5 613 21 0 0 0 613 TRANSFER
61763 91 614 20 0 3 0 614 R3 SCANS STORE AREA SET MODIFICATION REGISTER AT VARIABLE
61764 5 614 20 0 0 0 614 CLEAR TRANSFER
61765 0 613 20 0 0 0 613 TOT CHAPS SELECT
61766 2 615 6 0 0 0 615 INIT CHAPS SUBTRACT
61767 70 618 2 0 0 0 618 >NO SPECIAL CHAPS JUMP IF A == 0
61768 0 613 20 0 0 0 613 SELECT
61769 5 613 27 0 0 0 613 TRANSFER
61770 91 613 26 0 1 0 613 CHAPS:0 SET MODIFICATION REGISTER AT VARIABLE
61771 34 613 30 0 0 0 613 BIT 1 SET (N) IN B
61778>61772 0 612 3 0 1 0 612 NEXT CHAP LENGTH SELECT
61773 71 617 76 0 0 0 617 >USED JUMP IF A != 0
61774 36 620 2 0 0 0 620 Q1-5(IE B-> A) COLLATE AND ADD
61775 4 619 13 0 0 0 619 STEP'CHAPS ALLOCATED' AUGMENT
61773>61776 33 0 0 0 1 SHIFT MARKER SHIFT (AB) BY BITS
61777 125 1 0 1 0 step on and test
61778 76 617 72 0 0 0 617 JUMP unconditional
61779 10 0 0 0 0 CLEAR SELECT LITERAL
61780 2 619 13 0 0 0 619 SUBTRACT
61781 4 613 21 0 0 0 613 ADJUST'CHAPS UNALLOCATED' AUGMENT
61800 PROCR 618 618 STORE STORAGE TABLE & ROUND UP SP CH
61801 NOTES RADIX 207 SELECT
61767>61802 615 6 0 0 0 615 MR1=0:C SELECT
61803 5 613 27 0 0 0 613 TRANSFER
61804 91 613 26 0 1 0 613 SET MODIFICATION REGISTER AT VARIABLE
61805 34 613 30 0 0 0 613 BIT 1 SET (N) IN B
61806 101 8190 1 3 0 FORM MAXIMUM SIZE select literal address
61807 2 620 10 0 0 0 620 FOR MATE OF SPECIALS SUBTRACT
61808 5 620 10 0 0 0 620 TRANSFER
61816>61809 612 3 0 1 0 612 TEST CHAP SMALL ENOUGH SELECT
61810 2 620 10 0 0 0 620 TO MATE WITH SPECIALS SUBTRACT
61811 72 618 14 0 0 0 618 >NO JUMP IF A >= 0
61812 620 4 0 0 0 620 PACK BITS INTO SELECT
61813 37 620 11 0 0 0 620 MATES PATTERN REPLACE SELECTED BITS
61811>61814 33 0 0 0 1 SHIFT (AB) BY BITS
61815 125 1 0 1 0 step on and test
61816 76 618 9 0 0 0 618 >NEXT CHAP JUMP unconditional
61817 612 14 0 0 0 612 SELECT
61818 34 620 2 0 0 0 620 SET (N) IN B
61819 70 618 24 0 0 0 618 >NO RT 19 PRINTERS JUMP IF A == 0
61820 10 0 0 0 0 CLEAR SELECT LITERAL
61821 76 618 23 0 0 0 618 *FORMED ORDER*(1 SUBTRACTED IF RT 4) JUMP unconditional
61822 101 34 1 3 0 50=GP PRINT LENGTH select literal address
61821>61823 101 16 1 1 0 16=SP PRINT S/R LENGTH add literal address
61819>61824 124 615 6 0 1 0 615 modify address of next
61825 36 612 2 0 0 0 612 PRESENT SPECIAL CHAP LENGTH COLLATE AND ADD
61826 101 506 1 2 0 subtract literal address
61827 72 618 29 0 0 0 618 JUMP IF A >= 0
61828 10 0 0 0 0 SELECT LITERAL
61827>61829 101 506 1 1 0 add literal address
61830 124 615 6 0 1 0 615 modify address of next
61831 37 612 2 0 0 0 612 LENGTH AT LEAST 506 REPLACE SELECTED BITS
61832 101 40 1 3 0 BULK COPY STORE select literal address
Source image: P1000444.JPG
61833 30 0 0 0 5 AVAILABILITY TABLE SHIFT (A) BY QUARTETS
61834 101 0 1 1 0 (30) add literal address
61835 128 615 56 0 0 0 615 bulk copy short numeric
61836 0 620 2 1 0 0 620 INSERT END SIGN SELECT
61837 5 615 54 1 0 0 615 TRANSFER
61838 76 621 2 0 0 0 621 JUMP unconditional
61900 PROCR 619 619 BREAK UP DETAILS S/R
61901 NOTES RADIX 208 SELECT
61902 81 619 2 0 0 0 619 (A)=PRINTER(CHAPS*LENGTH) START OF SUBROUTINE
61903 32 0 0 0 4- SHIFT (AB) BY QUARTETS
61904 5 615 25 0 1 0 615 FIRST CHAP TRANSFER
61905 33 0 0 0 3 SHIFT (AB) BY BITS
61906 5 615 29 0 1 0 615 SECOND CHAP TRANSFER
61907 33 0 0 0 1 SHIFT (AB) BY BITS
61908 32 0 0 0 3 SHIFT (AB) BY QUARTETS
61909 3 615 24 0 1 0 615 *FORMED*('TRANSFER'IF SPECIAL) LENGTH COPY
61910 5 615 28 0 1 0 615 TRANSFER
61911 82 619 2 0 0 0 619 END OF SUBROUTINE / LEAVE SUBROUTINE
61912 5 615 24 0 1 0 615 LENGTH TRANSFER
61913 100 0 0 0 0 BIT PATTERN FOR TOT CHAPS ALLOCATED TO DHalt
61914 70 617 53 0 0 0 617 ORDER CONST IN PROCR 205 JUMP IF A == 0
61915 10 0 0 0 0 DUMMY SELECT LITERAL
62000 CONST 620 620 0 209 CONSTANTS
62002 (D)£££££;
62003 £££££; DIV BDRY COLL CONST
62004 1£££;
62005 1-;
62006 0;
62007 8;
62008 0;
62009 Ю;
62010 2-; TOTAL SPECIAL SIZE
62011 0; MATES PATTERN
62100 PROCR 621 621 PREPARE TO ALLOCATE NEXT STRIP
62101 NOTES RADIX 210 SELECT
62257>
62629>
61838>62102 620 2 0 0 0 620 TABLE END SIGN £X5 TEST IF LAST STRIP SELECT
62103 3 613 18 0 0 0 613 SET UP MIN WASTAGE COPY
62104 2 615 56 0 3 0 615 NEXT STRIP LENGTH SUBTRACT
62105 71 621 32 0 0 0 621 >NOT END JUMP IF A != 0
62114>62106 76 621 7 0 0 0 621 *SWITCH* JUMP unconditional
62106>62107 76 621 11 0 0 0 621 (1) ALLOCATING IN 1 STORE ONLY ->REJECT JUMP unconditional
62108 76 621 15 0 0 0 621 (2)2 STORES:END OF NEG->SECOND STORE JUMP unconditional
62109 76 621 23 0 0 0 621 (3)2 STORES:END OF BOTH->FIRSTSTORE JUMP unconditional
62110 76 621 11 0 0 0 621 (4)2 STORES:END OF BOTH->SECOND STORE JUMP unconditional
62128>
62110>
62107>62111 10 0 0 0 53 ALLOC FAILED SELECT LITERAL
62112 124 613 26 0 3 0 613 CODE LETTER C modify address of next
62113 124 0 1 0 0 (14)->REJECT ALLOCATION unconditional jump
62114 76 621 6 0 0 0 621 ORDER CONST JUMP unconditional
62108>62115 10 0 0 0 0 RESET MR3 SELECT LITERAL
62116 124 613 26 0 3 0 613 modify address of next
62117 102 30 1 0 0 CLEAR transfer (A) to N
62118 12 0 0 0 1 SUBTRACT LITERAL
62119 4 621 6 0 0 0 621 SET SWITCH=3 AUGMENT
Source image: P1000445.JPG
62120 0 613 17 0 0 0 613 SELECT
62121 4 622 30 0 0 0 622 (73->71 ORDER) AUGMENT
62122 76 621 32 0 0 0 621 JUMP unconditional
62109>62123 10 0 0 0 0 *FORMED*SET R3 TO ADDRESS SECOND TABLE SELECT LITERAL
62124 124 613 26 0 3 0 613 modify address of next
62125 102 30 0 0 0 transfer (A) to N
62126 00 615 56 0 3 0 615 TEST NO ROOM IN SELECT
62127 2 620 2 0 0 0 620 2ND STORE SUBTRACT
62128 70 621 11 0 0 0 621 >YES JUMP IF A == 0
62129 10 0 0 0 0 SELECT LITERAL
62130 12 0 0 0 1 SUBTRACT LITERAL
62131 4 621 6 0 0 0 621 SET SWITCH=4 AUGMENT
62122>
62105>62132 10 0 0 0 1 SET UP BIT PATTERN SELECT LITERAL
62133 5 613 24 1 0 0 613 AND ALLOC CONST TRANSFER
62134 613 20 0 0 0 613 SET UP MR1 SETTING SELECT
62135 5 613 27 0 0 0 613 TRANSFER
62200 PROCR 622 622 ALLOCATE STRIP FOR MINIMUM WASTAGE
62201 NOTES RADIX 211 SELECT
62253>62202 10 0 0 0 0 CLEAR SELECT LITERAL
62203 34 613 24 0 0 0 613 VBLE PATTERN SET (N) IN B
62204 36 619 13 0 0 0 619 ALLOC TO DATE'PATTERN COLLATE AND ADD
62205 71 622 49 0 0 0 622 >DISCARD,SOME CHAP ALREADY USED JUMP IF A != 0
62206 0 613 19 0 0 0 613 INITIAL CHAPS'PATTERN SELECT
62207 2 613 21 0 0 0 613 CHAPS UNALLOCATED'PATTERN SUBTRACT
62208 72 622 23 0 0 0 622 >ALL SPECIAL CHAPS ALLOCATED JUMP IF A >= 0
62209 10 0 0 0 0 SELECT LITERAL
62210 36 613 19 0 0 0 613 INITIAL'PATTERN COLLATE AND ADD
62211 70 622 49 0 0 0 622 >DISCARD CONTAINS SPECIALS ONJUMP IF A == 0
62212 10 0 0 0 0 VBLE=OUTSTANDING SELECT LITERAL
62213 613 21 0 0 0 613 UNALLOC SELECT
62214 2 613 24 0 0 0 613 VARIABLE SUBTRACT
62215 5 615 98 0 0 0 615 FUTURE PATTERN TRANSFER
62216 34 620 11 0 0 0 620 SUITABLE MATES PATTERN SET (N) IN B
62217 36 615 98 0 0 0 615 ANY LEFT? COLLATE AND ADD
62218 71 622 23 0 0 0 622 >YES,ACCEPTABLE PATTERN JUMP IF A != 0
62219 34 613 19 0 0 0 613 INITIAL SET (N) IN B
62220 36 615 98 0 0 0 615 FUTURE PATTERN COLLATE AND ADD
62221 2 615 98 0 0 0 615 FUTURE PATTERN SUBTRACT
62222 71 622 49 0 0 0 622 >DISCARD,COULD USE UP SUITABLES JUMP IF A != 0
62218>
62208>62223 10 0 0 0 0 SELECT LITERAL
62224 5 613 28 1 0 0 613 CLEAR WL TRANSFER
62225 100 613 30 0 2 0 613 BIT 1=DECODER replace (B) by (N)
62226 126 613 26 1 1 0 613 CHAPS:0 set modification register
62240>62227 36 613 24 0 0 0 613 VBLE PATTERN COLLATE AND ADD
62228 70 622 38 0 0 0 622 >CHAP NOT IN COMBINATION JUMP IF A == 0
62229 612 3 0 1 0 612 LENGTH SELECT
62230 71 622 34 0 0 0 622 (73 FIRST TIME 2 STORES)->USE JUMP IF A != 0
62231 101 0 1 3 0 select literal address
62232 36 620 2 0 0 0 620 Q1-5(DECODER->A) COLLATE AND ADD
62233 76 622 50 0 0 0 622 >SKIP SOME COMBINATIONS JUMP unconditional
62230>62234 5 615 98 1 0 0 615 TRANSFER
62235 615 98 0 0 0 615 MODULUS OF LENGTH SELECT
62236 4 613 28 0 0 0 613 TOTAL FOR STRIP AUGMENT
62237 10 0 0 0 0 CLEAR A SELECT LITERAL
62228>62238 33 0 0 0 1 SHIFT COLLATOR SHIFT (AB) BY BITS
62239 125 1 0 1 0 TEST LAST CHAP step on and test
62240 76 622 27 0 0 0 622 >NO JUMP unconditional
Source image: P1000446.JPG
62241 615 57 0 3 0 615 STRIP LENGTH SELECT
62242 2 613 28 0 0 0 613 TOTAL CHAP LENGTHS SUBTRACT
62243 73 622 49 0 0 0 622 >DISCARD,TOO BIG JUMP IF A < 0
62244 2 613 18 0 0 0 613 MIN WASTAGTE SUBTRACT
62245 72 622 49 0 0 0 622 >NO IMPROVEMENT JUMP IF A >= 0
62246 4 613 18 0 0 0 613 UPDATE MIN WASTAGE AUGMENT
62247 0 613 24 0 0 0 613 VBLE PATTERN SELECT
62248 5 613 31 0 0 0 613 STORE PATTERN GIVING BEST FIT TRANSFER
62245>
62243>
62222>
62211>
62205>62249 10 0 0 0 1 STEP BIT PATTERN SELECT LITERAL
62233>62250 4 613 24 0 0 0 613 AUGMENT
62251 0 613 21 0 0 0 613 CHAPS UNALLOCATED'PATTERN SELECT
62252 2 613 24 0 0 0 613 VBLE PATTERN SUBTRACT
62253 72 622 2 0 0 0 622 >TRY AGAIN JUMP IF A >= 0
62254 125 2 0 3 0 TEST STRIP UNTOUCHED STEP MR3 step on and test
62255 613 18 0 0 0 613 WASTAGE SELECT
62256 2 620 2 0 0 0 620 SUBTRACT
62257 70 621 2 0 0 0 621 >YES JUMP IF A == 0
62258 615 55 0 3 0 615 LENGTH OF NEW STRIP SELECT
62259 2 613 18 0 0 0 613 SUBTRACT
62260 5 613 28 0 0 0 613 TRANSFER
62261 2 613 31 0 0 0 613 SUBTRACT
62262 4 613 21 0 0 0 613 UPDATE'CHAPS UNALLOCATED' AUGMENT
62263 0 613 31 0 0 0 613 SELECT
62264 4 619 13 0 0 0 619 UPDATE'CHAPS ALLOCATED' AUGMENT
62265 10 0 0 0 0 CLEAR A SELECT LITERAL
62300 PROCR 623 623 SET UP DETAILS OF REDUCED STRIP+START OF
62301 NOTES RADIX 212 ALLOC IN STRIPS SELECT
62302 100 620 4 0 2 0 620 replace (B) by (N)
62303 36 615 54 0 3 0 615 COLLATE AND ADD
62304 70 623 11 0 0 0 623 >STRIP BEGIN=DIV BEGIN JUMP IF A == 0
62305 1 615 55 0 3 0 615 TEST STRIP END ADD
62306 2 620 4 0 0 0 620 IS DIV END SUBTRACT
62307 73 623 11 0 0 0 623 >NO,ALLOC FROM STRIP START JUMP IF A < 0
62308 613 18 0 0 0 613 MIN WASTAGE SELECT
62309 5 613 25 0 0 0 613 TRANSFER
62310 76 623 12 0 0 0 623 INDICATOR JUMP unconditional
62307>
62304>62311 613 28 0 0 0 613 STORE NEW STRIP LENGTH SELECT
62310>62312 1 615 54 0 3 0 615 START AND END STRIP START ADD
62313 5 615 98 0 0 0 615 NEW STRIP START TRANSFER
62314 613 18 0 0 0 613 SELECT
62315 5 615 99 0 0 0 615 STRIP LENGTH TRANSFER
62316 613 25 0 0 0 613 STORE ALLOC START MIN WASTAGE OR 0 SELECT
62317 1 615 54 0 3 0 615 ADD
62318 5 613 25 0 0 0 613 ALLOC START TRANSFER
62319 10 0 0 0 0 DUMMY SELECT LITERAL
62400 PROCR 624 624 ALLOCATE CHAPS IN THIS STRIP
62401 NOTES RADIX 213 SELECT
62402 126 613 26 1 1 0 613 CHAPS 0 set modification register
62403 126 614 20 1 2 0 614 NEVER RUNS OUT set modification register
62404 100 613 30 0 2 0 613 BIT 1=DECODER replace (B) by (N)
62424>62405 36 613 31 0 0 0 613 PATTERN=MOST FAVOURABLE ALLOC IN STRIP COLLATE AND ADD
62406 70 624 21 0 0 0 624 >THIS CHAP NOT IN STRIP JUMP IF A == 0
62407 00 612 3 0 1 0 612 LENGTH(+-) SELECT
Source image: P1000447.JPG
62408 5 615 96 1 0 0 615 TRANSFER
62409 613 25 0 0 0 613 SELECT
62410 3 615 22 0 2 0 615 CHAP START COPY
62411 1 615 96 0 0 0 615 MODULUS OF CHAP LENGTH ADD
62412 3 615 23 0 2 0 615 CHAP END COPY
62413 5 613 25 0 0 0 613 NEW ALLOC START TRANSFER
62414 124 613 26 0 3 0 613 modify address of next
62415 106 28 0 0 0 R2 MODIFER=CHAP-2 select (N)
62416 2 615 19 0 0 0 615 CHAPS INITIALLY SUBTRACT
62417 72 624 26 0 0 0 624 >THIS IS A SPECIAL CHAPTER JUMP IF A >= 0
62418 1 615 19 0 0 0 615 ADD
62419 102 613 29 0 0 0 613 (MAX NORMAL CHAP IN STRIP)-2 transfer (A) to N
62433>62420 5 612 3 0 1 0 612 CLEAR CHAP DETAILS TRANSFER
62406>62421 33 0 0 0 1 SHIFT DECODER BIT SHIFT (AB) BY BITS
62422 125 2 0 2 0 step on and test
62423 125 1 0 1 0 step on and test
62424 76 624 5 0 0 0 624 >NEXT CHAP JUMP unconditional
62425 76 626 2 0 0 0 626 >NOW SORT REMAINDER OF STRIP JUMP unconditional
62417>62426 612 3 0 1 0 612 SPECIAL CHAP LENGTH(ALWAYS>0) SELECT
62427 124 613 29 0 0 0 613 modify address of next
62428 107 615 23 0 0 0 615 STEP END OF LAST NORMAL CHAP STRIP augment (N) by (A)
62429 5 615 22 0 2 0 615 CHAP TRANSFER
62430 613 29 0 0 0 613 SELECT
62431 101 2 1 1 0 add literal address
62432 5 615 23 0 2 0 615 STORE ASSOC CHAP FOR THIS SPECAIL TRANSFER
62433 76 624 20 0 0 0 624 >NEXT CHAP JUMP unconditional
62500 PROCR 625 625 ADJUST NO OF CHAPS
62501 NOTES RADIX 214 SELECT
62600 PROCR 626 626 SORT REDUCED STRIP AVAILABILITY,TEST ALL ALLOC
62601 NOTES RADIX 215 SELECT
62425>62602 124 613 26 0 3 0 613 SET MR2 modify address of next
62603 106 30 0 0 0 NEVER RUNS OUT select (N)
62604 124 613 26 0 3 0 613 modify address of next
62605 102 28 1 0 0 TEST NEW STRIP transfer (A) to N
62606 615 99 0 0 0 615 OF LENGTH ZERO SELECT
62607 71 626 17 0 0 0 626 >NO JUMP IF A != 0
62608 125 4098 0 3 0 step on and test
62609 76 626 11 0 0 0 626 >IN CASE IT RUNS OUT JUMP unconditional
62610 10 0 0 0 0 DUMMY SELECT LITERAL
62616>
62609>62611 615 56 1 2 0 615 MOVE NEXT ITEM DOWN SELECT
62612 3 615 54 1 2 0 615 COPY
62613 2 620 2 1 0 0 620 TEST END SUBTRACT
62614 70 626 28 0 0 0 626 >YES JUMP IF A == 0
62615 125 2 0 2 0 STEP MR2 step on and test
62616 76 626 11 0 0 0 626 >NEXT ITEM JUMP unconditional
62625>
62607>62617 615 52 1 2 0 615 FIND CORECT PLACE INSERT NEW STRIP SELECT
62618 2 615 98 1 0 0 615 IN CORRECT PLACE SUBTRACT
62619 73 626 26 0 0 0 626 >FOUND JUMP IF A < 0
62620 1 615 98 1 0 0 615 ADD
62621 3 615 54 1 2 0 615 COPY
62622 2 620 2 1 0 0 620 TEST END SUBTRACT
62623 70 626 26 0 0 0 626 >YES JUMP IF A == 0
62624 125 4098 0 2 0 step on and test
62625 76 626 17 0 0 0 626 JUMP unconditional
62623>
62619>62626 615 98 1 0 0 615 INSERT NEW ITEM SELECT
Source image: P1000448.JPG
62627 5 615 54 1 2 0 615 TRANSFER
62614>62628 0 613 21 0 0 0 613 CHARS UNALLOCATED'PATTERN SELECT
62629 71 621 2 0 0 0 621 >TRY AGAIN JUMP IF A != 0
62630 10 0 0 0 0 SELECT LITERAL
62631 5 615 18 0 0 0 615 CLEAR W/L TRANSFER
62700 PROCR 627 627 ALLOCATION SUCCESSFUL-CALC RELATIVE START OF SPECIAL CHAPS
62701 NOTES RADIX 216 AND STORE PARAS FOR PTS SELECT
62702 615 19 0 0 0 615 SELECT
62703 4 620 9 0 0 0 620 AUGMENT
62704 4 620 8 0 0 0 620 AUGMENT
62705 126 615 18 1 1 0 615 R1=INIT CHAPS:0 set modification register
62722>62706 126 620 8 1 3 0 620 R3=10+INIT CHAPS:INIT CHAPS set modification register
62707 106 615 23 0 1 0 615 CHAP END select (N)
62708 105 615 22 0 1 0 615 CHAP START subtract (N) from (A)
62709 102 613 19 0 0 0 613 =CHAP LENGTH transfer (A) to N
62720>62710 106 615 23 0 3 0 615 2X CHAP OF NEXT SPECIAL select (N)
62711 124 613 26 0 3 0 613 modify address of next
62712 105 26 0 0 0 -R1 MODIFIER subtract (N) from (A)
62713 101 2 1 2 0 subtract literal address
62714 71 627 19 0 0 0 627 >NEXT SPEC CHAP NOT WITH THIS CHAP JUMP IF A != 0
62715 106 613 19 0 0 0 613 FORM SPECAL CHAPS select (N)
62716 105 615 22 0 3 0 615 RELATIVE START subtract (N) from (A)
62717 3 613 19 0 0 0 613 RESET CHAP END SIGN COPY
62718 102 615 32 0 3 0 615 REL START THIS SPECIAL CHAP transfer (A) to N
62714>62719 125 2 0 3 0 STEP MR3 step on and test
62720 76 627 10 0 0 0 627 >NEXT SPEC CHAP JUMP unconditional
62721 125 2 0 1 0 STEP MR1 step on and test
62722 76 627 6 0 0 0 627 >NEXT CHAP JUMP unconditional
62723 106 615 13 0 3 0 615 2X CHAP OF PTS=FIRST SPECIAL CHAP select (N)
62724 70 628 2 0 0 0 628 >NO PTS JUMP IF A == 0
62725 103 613 19 0 0 0 613 copy (A) to N
62726 30 0 0 0 4 SHIFT (A) BY QUARTETS
62727 124 613 26 0 3 0 613 STORE CH NO IN PARAMETER 45 modify address of next
62728 102 43 0 0 0 PARAMETER transfer (A) to N
62729 124 613 19 0 1 0 613 modify address of next
62730 106 615 20 0 0 0 615 FORM CHAP START select (N)
62731 104 615 22 0 3 0 615 FOR PTS add (N) to (A)
62732 124 613 19 0 0 0 613 modify address of next
62733 103 615 21 0 0 0 615 STORE NEW CHAP END copy (A) to N
62734 124 613 26 0 3 0 613 STORE PTS CHAP START modify address of next
62735 107 43 0 0 0 augment (N) by (A)
62800 PROCR 628 628 PREPARE TO CALL NEXT CHUNK
62801 NOTES RADIX SELECT
62724>62802 124 615 19 0 1 0 615 START OF SPECIAL CHAP modify address of next
62803 106 615 20 0 0 0 615 CHAP select (N)
62804 3 614 20 0 0 0 614 COPY
62805 101 54 1 1 0 SP CHAP START+52 add literal address
62806 124 614 21 0 3 0 614 modify address of next
62807 103 28 0 0 0 SET HR2 copy (A) to N
62808 124 614 21 0 3 0 614 modify address of next
62809 103 5 0 0 0 SET PARAS 9 copy (A) to N
62810 124 614 21 0 3 0 614 modify address of next
62811 102 0 0 0 0 (6)LOAD CHAP SR LINK transfer (A) to N
62812 124 614 20 0 3 0 614 modify address of next
62813 101 0 1 3 0 select literal address
62814 124 614 21 0 3 0 614 modify address of next
62815 103 2 0 0 0 CHAP START PARA copy (A) to N
62816 101 54 1 1 0 add literal address
Source image: P1000449.JPG
62817 124 614 21 0 3 0 614 CHUNK START PARA modify address of next
62818 102 1 0 0 0 transfer (A) to N
62819 10 0 0 0 0 DUMMY SELECT LITERAL
62900 PROCR 629 629 PREPARE 1 OR 2 MOVES
62901 NOTES RADIX 218 X=TABLE Y=SPEC Z=1ST CHAP STARTS SELECT
62902 124 615 96 0 2 0 615 END OF ALL DATA select literal and division
62903 2 614 20 0 0 0 614 SPECIAL CHAP START SUBTRACT
62904 73 629 7 0 0 0 629 > OK PROVISIONALLY ) SPECIAL STARTS TOO JUMP IF A < 0
62905 101 170 1 2 0 (PROBABLY 164 OK) subtract literal address
62906 73 629 12 0 0 0 629 > DOUBLE MOVE NEEDED JUMP IF A < 0
62904>62907 124 615 96 0 2 0 615 DATA END select literal and division
62908 2 615 22 0 0 0 615 CHAP 1 START SUBTRACT
62909 73 629 32 0 0 0 629 > OK, SINGLE MOVE JUMP IF A < 0
62910 101 156 1 2 0 subtract literal address
62911 72 629 32 0 0 0 629 > OK, SINGLE MOVE JUMP IF A >= 0
62906>62912 101 250 1 3 0 ADJUST ORDERS select literal address
62913 34 620 4 0 0 0 620 SET (N) IN B
62914 36 614 20 0 0 0 614 COLLATE AND ADD
62915 101 614 6 1 2 0 614 subtract literal address
62916 4 614 6 0 0 0 614 TO WORK IN MIDDLE AUGMENT
62917 4 614 9 0 0 0 614 OF SPECIAL GROUP AUGMENT
62918 5 629 4 0 0 0 629 TRANSFER
62919 2 629 4 0 0 0 629 SUBTRACT
62920 4 614 7 0 0 0 614 ADJUST NEGATIVE ORDERS AUGMENT
62921 4 614 10 0 0 0 614 AUGMENT
62922 4 614 13 0 0 0 614 AUGMENT
62923 614 20 0 0 0 614 ADJUST T/E SELECT
62924 101 250 1 1 0 add literal address
62925 4 614 16 0 0 0 614 AUGMENT
62926 4 614 18 0 0 0 614 AUGMENT
62927 124 614 6 0 2 0 614 FORM BULK COPY T/E select literal and division
62928 32 0 0 0 5- SHIFT (AB) BY QUARTETS
62929 101 110 1 1 0 AMOUNT OF DATA add literal address
62930 32 0 0 0 5 > MORE DETAILS YET SHIFT (AB) BY QUARTETS
62931 76 614 2 0 0 0 614 JUMP unconditional
62911>
62909>62932 124 614 6 0 2 0 614 ADJUST ORDERS TO select literal and division
62933 4 614 16 0 0 0 614 PRODUCE 15 BIT T/E' AUGMENT
62934 4 614 18 0 0 0 614 AUGMENT
62935 76 614 6 0 0 0 614 JUMP unconditional
62936 100 0 0 0 0 Halt
62937 100 0 0 0 0 Halt
62938 100 0 0 0 0 Halt
62939 100 0 0 0 0 Halt
62940 100 0 0 0 0 Halt
62941 100 0 0 0 0 Halt
62942 100 0 0 0 0 Halt
62943 100 0 0 0 0 Halt
63000 PROCR 630 630 300 START OF ALLOC ROUTES
63001 NOTES RADIX FIRST LOCN=54 OF SPECIAL CHAP SELECT
63002 106 10 0 0 0 ALLOC COMMAND select (N)
63003 32 0 0 0 2- SHIFT (AB) BY QUARTETS
63100 PROCR 631 631
63101 NOTES RADIX 302 SELECT
63102 12 0 0 0 1 SUBTRACT LITERAL
63103 71 631 8 0 0 0 631 > NO ALT RTES JUMP IF A != 0
63104 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
Source image: P1000450.JPG
63105 37 645 8 0 0 0 645 EAR REPLACE SELECTED BITS
63106 37 636 24 0 0 0 636 ORM REPLACE SELECTED BITS
63107 37 638 3 0 0 0 638 FORM 1/1/1 REPLACE SELECTED BITS
63103>63108 101 0 1 3 0 (32) select literal address
63109 71 631 16 0 0 0 631 > MORE THAN 8 CHANNELS JUMP IF A != 0
63110 645 28 1 0 0 645 SELECT
63111 5 645 16 1 0 0 645 TRANSFER
63112 641 9 0 0 0 641 SET S/R FOR SELECT
63113 5 641 6 0 0 0 641 8 CHANNELS TRANSFER
63114 645 12 1 0 0 645 M/R CONSTANTS SELECT
63115 5 645 10 1 0 0 645 TRANSFER
63109>63116 101 2 1 3 0 select literal address
63117 32 0 0 0 10- SHIFT (AB) BY QUARTETS
63118 115 10 0 0 0 collate and add
63119 70 631 27 0 0 0 631 >FORWARD ALLOC JUMP IF A == 0
63120 645 10 1 0 0 645 RESET MRS SELECT
63121 5 645 4 1 0 0 645 TRANSFER
63122 645 12 1 0 0 645 SELECT
63123 5 645 6 1 0 0 645 TRANSFER
63124 101 4096 1 2 0 ADJUST STEP MR subtract literal address
63125 4 642 7 0 0 0 642 VALUE AUGMENT
63126 76 631 29 0 0 0 631 >LEAVE R IN COMMENT JUMP unconditional
63119>63127 35 0 0 0 1100 PREPARE FOR DIGIT COLLATION
63128 37 645 8 1 0 0 645 CLEAR R REPLACE SELECTED BITS
63126>63129 106 11 0 0 0 select (N)
63130 71 631 33 0 0 0 631 >TRIALS JUMP IF A != 0
63131 35 0 0 0 110000 LETE PREPARE FOR DIGIT COLLATION
63132 37 645 8 1 0 0 645 FOR NO TRIALS REPLACE SELECTED BITS
63130>63133 106 12 1 0 0 PROG ID >SERIAL select (N)
63134 5 630 2 1 0 0 630 >WL TRANSFER
63135 76 635 2 0 0 0 635 JUMP unconditional
63200 CONST 632 632 1 303 CONSTANTS
63202 (A)ALLOC;
63204 (D)5.7:000000; LE + NE
63206 1;
63208 16;
63210 256;
63212 4096;
63214 65536;
63300 PROCR 633 633 DUMMY PROCEDURE 970
63301 NOTES RADIX 304 SELECT
63400 PROCR 634 634 EDIT TABLE
63401 NOTES RADIX 305 SELECT
63402 100 635 7 0 0 0 635 Halt
63403 100 5 0 2 0 DIV NO replace (B) by (N)
63404 100 635 2 0 0 0 635 Halt
63405 116 4101 0 0 0 1/0/0/5 ADDRESS IN DIVISION Invalid
63406 100 632 2 0 0 0 632 ALLOC Halt
63407 101 5 0 0 0 table look up
63408 100 630 2 0 0 0 630 PROG ID Halt
63409 100 53 0 0 0 Halt
63410 100 630 3 0 0 0 630 PROG SERIAL Halt
63411 100 21 0 0 0 Halt
63412 100 0 0 0 0 (29) RUN NUMBER Halt
63413 100 21 0 0 0 Halt
63414 100 645 8 0 0 0 645 M Halt
63415 101 305 0 0 0 table look up
Source image: P1000451.JPG
63416 100 645 8 0 0 0 645 T/N/R Halt
63417 117 563 0 0 0 2/3/3 special select
63500 PROCR 635 635 FORM ALLOC COMMENT
63501 NOTES RADIX 306 SELECT
63135>63502 101 0 1 3 0 select literal address
63503 101 1 1 2 0 subtract literal address
63504 4 634 12 0 0 0 634 AUGMENT
63505 124 634 6 0 2 0 634 TABLE START select literal and division
63506 124 20 0 3 0 modify address of next
63507 128 0 1 2 0 edit fixed field formats
63508 101 16 1 3 0 CHAP 1 LOCATION select literal address
63509 104 20 0 0 0 add (N) to (A)
63510 5 633 14 0 0 0 633 TRANSFER
63511 126 16 1 1 0 CHAPS:0 set modification register
63529>63512 100 645 14 0 3 0 645 set radix
63513 106 20 0 1 0 BREAK UP CHAP select (N)
63514 32 0 0 0 4- START INTO SHIFT (AB) BY QUARTETS
63515 33 0 0 0 3 DIV NO AND SHIFT (AB) BY BITS
63516 5 635 7 0 0 0 635 START WITHIN DIV TRANSFER
63517 33 0 0 0 13 SHIFT (AB) BY BITS
63518 5 635 2 0 0 0 635 TRANSFER
63519 124 632 6 0 2 0 632 CONVERT CHAP START select literal and division
63520 112 635 2 0 0 0 635 TO DECIMAL convert
63521 102 635 2 0 0 0 635 W/L transfer (A) to N
63522 124 634 2 0 2 0 634 select literal and division
63523 124 633 14 0 3 0 633 DEST IN CHAP 1 modify address of next
63524 128 0 1 2 0 EDIT CHAP START edit fixed field formats
63525 100 632 4 0 3 0 632 RESET BINARY set radix
63526 101 4 1 3 0 select literal address
63527 4 633 14 0 0 0 633 AUGMENT
63528 125 2 0 1 0 step on and test
63529 76 635 12 0 0 0 635 >NEXT CHAP JUMP unconditional
63530 101 7805 1 3 0 TRANSFER L/E select literal address
63531 124 20 0 3 0 AND N/E TO modify address of next
63532 103 14 1 0 0 copy (A) to N
63533 124 633 14 0 3 0 633 AND SECOND modify address of next
63534 102 0 1 0 0 LINES transfer (A) to N
63535 124 633 6 0 2 0 633 SET UP IND MODS select literal and division
63536 5 638 24 0 0 0 638 AT 15 BIT ADDRESS TRANSFER
63537 5 633 2 0 0 0 633 TRANSFER
63538 124 633 18 0 2 0 633 select literal and division
63539 5 642 8 0 0 0 642 TRANSFER
63540 80 641 2 0 0 0 641 SET ASL'S POSITIVE S/R ENTER SUBROUTINE
63541 124 20 0 2 0 COPY 30 LOCNS FROM START OF CHAP 1 select literal and division
63542 104 17 0 0 0 add (N) to (A)
63543 32 0 0 0 5- SHIFT (AB) BY QUARTETS
63544 101 30 1 1 0 add literal address
63545 32 0 0 0 5 SHIFT (AB) BY QUARTETS
63546 128 633 20 0 0 0 633 BULK COPY SPEC CHAPS bulk copy short numeric
63547 106 11 0 0 0 TRIALS ALLOC' IND select (N)
63548 70 635 53 0 0 0 635 >NO JUMP IF A == 0
63549 10 0 0 0 0 (28)PTS IN MASTER? SELECT LITERAL
63550 70 635 53 0 0 0 635 >YES JUMP IF A == 0
63551 10 0 0 0 0 (26)PTS PRINTS ON-LINE? SELECT LITERAL
63552 71 635 55 0 0 0 635 >YES(ALLOW SEARCH) JUMP IF A != 0
63550>
63548>63553 635 52 0 0 0 635 SET INDICATOR SELECT
63554 5 645 15 0 0 0 645 NON ZERO TRANSFER
63552>63555 633 23 0 0 0 633 ROUTE 19'INDICCATOR SELECT
Source image: P1000452.JPG
63556 124 20 0 3 0 (2) modify address of next
63557 103 122 0 0 0 SET IND IN CHAP 1 copy (A) to N
63558 70 636 2 0 0 0 636 >PRINT SR NOT NEEDED JUMP IF A == 0
63559 101 8191 1 3 0 select literal address
63560 32 0 0 0 10- SHIFT (AB) BY QUARTETS
63561 106 15 0 0 0 select (N)
63562 124 17 0 1 0 LOCATION OF PRINT S/R modify address of next
63563 115 18 0 0 0 collate and add
63564 124 633 2 0 3 0 633 modify address of next
63565 102 5 0 0 0 transfer (A) to N
63600 PROCR 636 636 MAIN LOOP DEAL WITH TX AND FILES
63601 NOTES RADIX 307 SELECT
63558>63602 126 633 2 1 1 0 633 SET MRS 0/0 set modification register
63603 101 8 1 3 0 select literal address
63604 5 633 3 0 0 0 633 TRANSFER
63605 126 633 2 1 3 0 633 SET MR3 FOR SPECIAL CHAPS set modification register
63606 106 5 0 0 0 TEST NO OF ROUTES select (N)
63860>63607 70 638 22 0 0 0 638 >NO ROUTES JUMP IF A == 0
63608 5 633 3 0 0 0 633 TRANSFER
63609 126 633 2 1 2 0 633 0/NO OF ROUTES set modification register
63826>63610 124 645 3 1 2 0 645 FORM INDIRECT modify address of next
63611 124 4 0 2 0 MODIFIER FOR select literal and division
63612 3 633 6 0 0 0 633 UNPACKING ALLOC COPY
63613 101 48 1 1 0 ROUTES CD add literal address
63614 5 633 7 0 0 0 633 TRANSFER
63615 124 633 2 0 3 0 633 modify address of next
63616 126 0 0 0 0 (7)>READ NEXT BLOCK enter subroutine
63825>63617 101 12 1 3 0 UNPACK NEXT PIECE FORM T/E select literal address
63618 30 0 0 0 5 SHIFT (A) BY QUARTETS
63619 1 633 6 0 0 0 633 ADD
63620 11 0 0 0 1 ADD LITERAL
63621 128 633 8 1 0 0 633 UNPACK DETAIL bulk copy alpha to short
63846>63622 80 640 2 0 0 0 640 FIND ASL FOR ROUTE >SEARCH ASL'S S/R ENTER SUBROUTINE
63623 125 1 0 1 0 STEP MR1 step on and test
63624 101 128 1 3 0 (1/1/3 0 IF ALT ALLOC) select literal address
63625 1 633 13 0 0 0 633 REQD AND ALLOWED ADD
63626 71 637 2 0 0 0 637 >NO ROUTES JUMP IF A != 0
63627 80 640 2 0 0 0 640 FIND ASL FOR ALT ROUTE >SEARCH ASL'S S/RENTER SUBROUTINE
63628 76 637 9 0 0 0 637 >FORM FILE DETAIL JUMP unconditional
63700 PROCR 637 637 MAIN LOOP PART 2 FILE DETAILS AND COMMENT
63701 NOTES RADIX 308 SELECT
63626>63702 633 9 0 0 0 633 TEST PSEUDO RTE SELECT
63703 02 645 2 0 0 0 645 SUBTRACT
63704 71 637 7 0 0 0 637 >NO JUMP IF A != 0
63705 103 34 0 1 0 CLEAR TOP HALF copy (A) to N
63706 76 638 12 0 0 0 638 >DEAL WITH TX AREAS FROM UP FILE DETAIL JUMP unconditional
63704>63707 101 128 1 3 0 (32) select literal address
63708 102 34 0 1 0 ALT ROUTE transfer (A) to N
63628>63709 35 0 0 0 11 PLACE ALT RTE PREPARE FOR DIGIT COLLATION
63710 115 34 0 1 0 IN Q3,4 collate and add
63711 32 0 0 0 2 SHIFT (AB) BY QUARTETS
63712 114 33 0 1 0 replace selected bits
63713 35 0 0 0 11 FORM COMMENT PREPARE FOR DIGIT COLLATION
63714 10 0 0 0 0 CLEAR A SELECT LITERAL
63715 115 33 0 1 0 IN CHAPTER 1 collate and add
63716 102 633 3 0 0 0 633 STORE FOR PRINTER transfer (A) to N
63717 106 633 9 0 0 0 633 IF PRINTER RTE TYPE select (N)
63718 101 4 1 2 0 subtract literal address
Source image: P1000453.JPG
63719 70 637 22 0 0 0 637 >PRINTER JUMP IF A == 0
63720 101 5 1 2 0 subtract literal address
63721 71 637 24 0 0 0 637 >NOT PRINTER JUMP IF A != 0
63719>63722 106 633 3 0 0 0 633 STORE RTE NO select (N)
63723 103 645 15 0 0 0 645 copy (A) to N
63721>63724 106 633 3 0 0 0 633 select (N)
63725 80 644 2 0 0 0 644 >CHANNEL/ROUTE S/R ENTER SUBROUTINE
63726 102 633 52 1 0 0 633 RTES transfer (A) to N
63727 124 633 6 0 3 0 633 STORE FILE IDENTITY modify address of next
63728 106 0 1 0 0 select (N)
63729 102 633 54 1 0 0 633 FILE IDENTITY transfer (A) to N
63730 101 3 0 1 0 prepare for digit collation
63731 115 34 0 1 0 collate and add
63732 80 644 2 0 0 0 644 >CHANNEL RTE S/R ENTER SUBROUTINE
63733 30 0 0 0 0 ///// DUMMY ORDER SHIFT (A) BY QUARTETS
63734 5 633 56 1 0 0 633 EDIT RTE DETAIL TRANSFER
63735 35 0 0 0 1111 PACK FILE IDENT PREPARE FOR DIGIT COLLATION
63736 106 633 54 1 0 0 633 INTO FILE DETAIL select (N)
63737 114 34 0 1 0 replace selected bits
63738 101 0 1 1 0 DUMMY ORDER add literal address
63739 124 646 2 0 2 0 646 select literal and division
63740 124 633 14 0 3 0 633 modify address of next
63741 128 2 1 2 0 edit fixed field formats
63800 PROCR 638 638 MAIN LOOP PART 3 SET UP TX AND ANNEXES
63801 NOTES RADIX 309 SELECT
63802 633 13 0 0 0 633 SELECT
63803 101 128 1 1 0 (1/1/1/ 0 IF ALT ALLOC) add literal address
63804 70 638 10 0 0 0 638 >ALT RTES REQD JUMP IF A == 0
63805 10 0 0 0 65 SELECT LITERAL
63806 30 0 0 0 2 SHIFT (A) BY QUARTETS
63807 35 0 0 0 111111 PREPARE FOR DIGIT COLLATION
63808 124 633 14 0 3 0 633 modify address of next
63809 114 4 1 0 0 replace selected bits
63804>63810 10 0 0 0 4 SELECT LITERAL
63811 4 633 14 0 0 0 633 AUGMENT
63706>63812 124 633 11 0 1 0 633 modify address of next
63813 106 18 0 0 0 CHAP START select (N)
63814 1 633 10 0 0 0 633 ANNEXE START ADD
63815 103 65 0 1 0 copy (A) to N
63816 12 0 0 0 2 SUBTRACT LITERAL
63817 1 633 12 0 0 0 633 ANNEXE LENGTH ADD
63818 102 66 0 1 0 transfer (A) to N
63819 125 1 0 1 0 STORE LOCATION step on and test
64022>63820 125 1 0 2 0 NO OF ROUTES step on and test
63821 76 638 23 0 0 0 638 >NEXT ROUTE JUMP unconditional
63607>63822 76 638 27 0 0 0 638 *SWITCH*DO TX AREAS NEXT, OR END JUMP unconditional
63821>63823 123 12 0 0 0 *STEP BY 12=ROUTES, 6=TX AREAS* step on and test
63824 100 633 6 0 0 0 633 Halt
63825 76 636 17 0 0 0 636 >UNPACK NEXT PIECE JUMP unconditional
63826 76 636 10 0 0 0 636 >READ NEXT BLOCK JUMP unconditional
63822>63827 633 21 0 0 0 633 TEST RTE 7 REQUIRED SELECT
63828 70 638 47 0 0 0 638 >NO JUMP IF A == 0
63829 645 16 1 0 0 645 SYNTHETIC ALLOC DETAILS FOR PTS ROUTE SELECT
63830 102 34 1 1 0 STORE LOCATION transfer (A) to N
63831 102 66 1 1 0 CLEAR ASL START/END transfer (A) to N
63832 125 2 0 1 0 step on and test
63833 645 15 0 0 0 645 SELECT
63834 71 638 61 0 0 0 638 >PRINTER FOUND JUMP IF A != 0
63835 106 14 0 0 0 SET UP PRINTER ROUTE TYPE select (N)
Source image: P1000454.JPG
63836 11 0 0 0 9 ADD LITERAL
63837 3 633 9 0 0 0 633 COPY
63838 5 633 13 0 0 0 633 AND ALT ROUTE DETAIL TRANSFER
63839 10 0 0 0 1 STEP SELECT LITERAL
63840 107 5 0 0 0 augment (N) by (A)
63841 125 4097 0 2 0 PREPARE TO ENTER MAIN LOOP AGAIN step on and test
63842 124 646 8 0 2 0 646 ADDRESS OF CONST 'PTS' select literal and division
63843 5 633 6 0 0 0 633 TRANSFER
63844 638 65 0 0 0 638 ARRANGE EXIT AFTER SELECT
63845 5 638 22 0 0 0 638 ALLOCATING ROUTES TRANSFER
63846 76 636 22 0 0 0 636 > JUMP unconditional
63863>
63828>63847 10 0 0 0 6 PREPARE FOR TX AREAS SELECT LITERAL
63848 4 638 23 0 0 0 638 CHANGE STEP ACTION AUGMENT
63849 101 12 1 2 0 subtract literal address
63850 4 636 17 0 0 0 636 CHANGE UNPACK ACTION AUGMENT
63851 11 0 0 0 4 ADD LITERAL
63852 4 636 21 0 0 0 636 CHANGE END SEQUENCE ADDRESS AUGMENT
63853 638 64 0 0 0 638 SELECT
63854 5 638 22 0 0 0 638 SET UP PSEUDO ROUTE TRANSFER
63855 645 2 0 0 0 645 SET UP PSEUDO SELECT
63856 3 633 9 0 0 0 633 ROUTE AND ALT ROUTE COPY
63857 5 633 13 0 0 0 633 DUMMY TRANSFER
63858 10 0 0 0 0 SELECT LITERAL
63859 106 6 0 0 0 select (N)
63860 76 636 7 0 0 0 636 >TX AREAS JUMP unconditional
63865>
63834>63861 10 0 0 0 1 SELECT LITERAL
63862 107 5 0 0 0 augment (N) by (A)
63863 76 638 47 0 0 0 638 >PREPARE FOR TX'S JUMP unconditional
63864 76 639 2 0 0 0 639 >AFTER FINISHING TX'S JUMP unconditional
63865 76 638 61 0 0 0 638 JUMP unconditional
63900 PROCR 639 639 END ROUTINE
63901 NOTES RADIX 310 SELECT
63864>63902 106 5 0 0 0 FORM 2*(TX+FILES) select (N)
63903 104 6 0 0 0 add (N) to (A)
63904 30 0 0 0 5 SHIFT (A) BY QUARTETS
63905 70 640 67 0 0 0 640 >REJECT D JUMP IF A == 0
63906 103 18 1 0 0 copy (A) to N
63907 107 18 1 0 0 augment (N) by (A)
63908 124 98 0 2 0 select literal and division
63909 124 633 2 0 3 0 633 modify address of next
63910 103 28 1 0 0 R2 copy (A) to N
63911 124 633 2 0 3 0 633 (6)SR LINK modify address of next
63912 103 0 0 0 0 copy (A) to N
63913 101 44 1 3 0 select literal address
63914 124 633 2 0 3 0 633 modify address of next
63915 107 1 0 0 0 (3)STEP PARA 1 augment (N) by (A)
63916 10 0 0 0 1.1. SELECT LITERAL
63917 124 633 14 0 3 0 633 modify address of next
63918 102 2 1 0 0 transfer (A) to N
63919 101 0 1 3 0 (3)PARA TABLE START select literal address
63920 124 633 2 0 3 0 633 modify address of next
63921 124 1 1 0 0 (6)>LOAD NEXT CHAPTER unconditional jump
64000 PROCR 640 640 SEARCH ASL'S ALLOWING FOR FUNNY ROUTE TYPES
64001 NOTES RADIX 311 SELECT
64002 81 640 2 0 0 0 640 START OF SUBROUTINE
64003 00 642 13 0 0 0 642 PREPARE FOR SEARCH SELECT
Source image: P1000455.JPG
64004 05 642 5 0 0 0 642 ASL'S S/R TRANSFER
64005 00 633 11 0 0 0 633 TEST RTE TYPE 19 SELECT
64006 72 640 31 0 0 0 640 >NO JUMP IF A >= 0
64007 633 9 0 0 0 633 TEST PSEUDO ROUTE SELECT
64008 2 645 2 0 0 0 645 SUBTRACT
64009 70 640 13 0 0 0 640 JUMP IF A == 0
64010 106 14 0 0 0 SET UP PRINTER RTE select (N)
64011 101 9 1 1 0 TYPE add literal address
64012 5 633 9 0 0 0 633 TRANSFER
64016>
64009>64013 633 22 0 3 0 633 SELECT
64014 71 640 23 0 0 0 640 CHAP DETAILS JUMP IF A != 0
64015 125 2 0 3 0 step on and test
64016 76 640 13 0 0 0 640 JUMP unconditional
64017 125 4098 0 3 0 NO MORE TX'S step on and test
64018 101 1 1 2 0 subtract literal address
64019 102 34 1 1 0 transfer (A) to N
64020 102 66 1 1 0 transfer (A) to N
64021 125 2 0 1 0 step on and test
64022 76 638 20 0 0 0 638 JUMP unconditional
64014>64023 5 633 12 0 0 0 633 LENGTH TRANSFER
64024 633 23 0 3 0 633 SELECT
64025 5 633 11 0 0 0 633 CHAP TRANSFER
64026 633 32 0 3 0 633 SELECT
64027 5 633 10 0 0 0 633 ANNEXE START TRANSFER
64028 125 2 0 3 0 step on and test
64029 76 640 51 0 0 0 640 >TRY AND ALLOC JUMP unconditional
64030 76 640 51 0 0 0 640 JUMP unconditional
64006>64031 106 633 9 0 0 0 633 select (N)
64032 101 14 1 2 0 TEST RTE TYPE 14 subtract literal address
64033 71 640 37 0 0 0 640 >NO JUMP IF A != 0
64034 106 14 0 0 0 SET UP PRINTER select (N)
64035 101 9 1 1 0 RTE TYPE OF add literal address
64036 5 633 9 0 0 0 633 MACHINE TRANSFER
64033>64037 633 9 0 0 0 633 TEST RTE TYPE 15 SELECT
64038 101 15 1 2 0 subtract literal address
64039 71 640 54 0 0 0 640 >NO JUMP IF A != 0
64040 101 5 1 3 0 (33)PREFERRED ROUTE 5/6 select literal address
64041 03 633 9 0 0 0 633 COPY
64042 103 15 0 0 0 STORE RTE TYPE copy (A) to N
64043 12 0 0 0 5 STOP ALT ROUTE SUBTRACT LITERAL
64044 70 640 46 0 0 0 640 IF RTE TYPE 6 JUMP IF A == 0
64045 05 633 13 0 0 0 633 TRANSFER
64044>64046 80 641 2 0 0 0 641 >SEARCH ASL'S S/R ENTER SUBROUTINE
64047 101 6 1 3 0 TRY OTHER RTE select literal address
64048 101 0 1 2 0 (33)0/1 subtract literal address
64049 03 633 9 0 0 0 633 COPY
64050 103 15 0 0 0 STORE RTE TYPE copy (A) to N
64030>
64029>64051 12 0 0 0 5 STOP ALT RTE SUBTRACT LITERAL
64052 70 640 54 0 0 0 640 IF RTE TYPE 6 JUMP IF A == 0
64053 05 633 13 0 0 0 633 TRANSFER
64052>
64039>64054 80 641 2 0 0 0 641 SEARCH ASL'S ENTER SUBROUTINE
64055 633 9 0 0 0 633 TEST RTE TYPES 7,8,11 SELECT
64056 80 643 2 0 0 0 643 >TEST S/R ENTER SUBROUTINE
64057 71 640 61 0 0 0 640 >NO JUMP IF A != 0
64058 642 12 0 0 0 642 SEARCH FOR 7,8,11 SELECT
64059 5 642 5 0 0 0 642 TRANSFER
64060 80 641 2 0 0 0 641 >SEARCH ASL'S S/R ENTER SUBROUTINE
Source image: P1000456.JPG
64057>64061 633 9 0 0 0 633 TEST PSEUDO ROOT SELECT
64062 2 645 2 0 0 0 645 SUBTRACT
64063 71 640 67 0 0 0 640 >NO JUMP IF A != 0
64064 642 11 0 0 0 642 SEARCH ALL ASL'S SELECT
64065 5 642 5 0 0 0 642 TRANSFER
64066 80 641 2 0 0 0 641 >SEARCH ASL'S ENTER SUBROUTINE
64063>
63905>64067 642 14 0 0 0 642 SELECT
64068 5 642 5 0 0 0 642 TRANSFER
64069 80 641 2 0 0 0 641 ENTER SUBROUTINE
64070 10 0 0 0 54 'D' SELECT LITERAL
64071 124 633 2 0 3 0 633 modify address of next
64072 124 0 1 0 0 (14)>REJECT ALLOCATION unconditional jump
64206>64073 124 633 18 0 3 0 633 SETUP DETAIL modify address of next
64074 106 0 0 0 0 select (N)
64075 2 645 2 0 0 0 645 STORE RTE TYPE 0 SUBTRACT
64076 70 640 78 0 0 0 640 IF A PSEUDO ROUTE JUMP IF A == 0
64077 1 645 2 0 0 0 645 RTE TYPE ADD
64076>64078 30 0 0 0 4 IN QS SHIFT (A) BY QUARTETS
64079 1 633 18 0 0 0 633 RTE NO IN Q1,2 ADD
64080 101 64 1 2 0 subtract literal address
64081 102 34 0 1 0 transfer (A) to N
64082 124 633 18 0 3 0 633 SET ASL NEGATIVE modify address of next
64083 105 0 0 0 0 subtract (N) from (A)
64084 124 633 18 0 3 0 633 modify address of next
64085 102 0 0 0 0 transfer (A) to N
64086 82 640 2 0 0 0 640 END OF SUBROUTINE / LEAVE SUBROUTINE
64100 PROCR 641 641 SEARCH ASL'S S/R
64101 NOTES RADIX 312 SELECT
64102 81 641 2 0 0 0 641 START OF SUBROUTINE
64103 645 4 1 0 0 645 SET UP INDIRECT SELECT
64104 5 633 18 1 0 0 633 MODIFIER 64-128 TRANSFER
64105 80 642 2 0 0 0 642 >SEARCH ASL'S ENTER SUBROUTINE
64106 645 6 1 0 0 645 SET UP INDIRECT SELECT
64107 5 633 18 1 0 0 633 MODIFIER 192-240 TRANSFER
64108 80 642 2 0 0 0 642 >SEARCH ASL'S ENTER SUBROUTINE
64109 82 641 2 0 0 0 641 END OF SUBROUTINE / LEAVE SUBROUTINE
64200 PROCR 642 642 SEARCH ASL'S S/R
64201 NOTES RADIX 313 SELECT
64202 81 642 2 0 0 0 642 START OF SUBROUTINE
64209>64203 124 633 18 0 3 0 633 SELECT ASL modify address of next
64204 106 0 0 0 0 select (N)
64205 76 642 15 0 0 0 642 *****SWITCH ORDER JUMP unconditional
64206 70 640 73 0 0 0 640 >FOUND JUMP IF A == 0
64215>
64220>64207 123 1 0 0 0 STEP IND MOD step on and test
64208 100 633 18 0 0 0 633 Halt
64209 76 642 3 0 0 0 642 JUMP unconditional
64210 82 642 2 0 0 0 642 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
64211 30 0 0 0 1- TEST RTE TYPES <15 SHIFT (A) BY QUARTETS
64212 80 643 2 0 0 0 643 TEST 7,8,11 ENTER SUBROUTINE
64213 2 633 9 0 0 0 633 TEST REQUIRED TYPE SUBTRACT
64214 76 642 15 0 0 0 642 JUMP unconditional
64214>
64205>64215 72 642 7 0 0 0 642 MAKE ASL POSITIVE JUMP IF A >= 0
64216 5 633 54 0 0 0 633 IF NEGATIVE TRANSFER
64217 2 633 54 0 0 0 633 SUBTRACT
64218 124 633 18 0 3 0 633 modify address of next
Source image: P1000457.JPG
64219 102 0 0 0 0 transfer (A) to N
64220 76 642 7 0 0 0 642 >NEXT ASL JUMP unconditional
64300 PROCR 643 643 TEST 7,8,11 S/R
64301 NOTES RADIX 314 SELECT
64302 81 643 2 0 0 0 643 START OF SUBROUTINE
64303 12 0 0 0 7 TEST 7,8,11 S/R SUBTRACT LITERAL
64304 70 643 8 0 0 0 643 >YES JUMP IF A == 0
64305 12 0 0 0 1 TEST 8 SUBTRACT LITERAL
64306 70 643 8 0 0 0 643 >YES JUMP IF A == 0
64307 12 0 0 0 3 TEST 11 SUBTRACT LITERAL
64306>
64304>64308 82 643 2 0 0 0 643 LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
64400 PROCR 644 644 CHANNEL/ROUTE S/R
64401 NOTES RADIX 315 SELECT
64402 81 644 2 0 0 0 644 START OF SUBROUTINE
64403 32 0 0 0 1- DIVIDE BY 8 SHIFT (AB) BY QUARTETS
64404 33 0 0 0 1 SHIFT (AB) BY BITS
64405 101 10 1 2 0 CONVERT CHANNEL subtract literal address
64406 73 644 8 0 0 0 644 BINARY>DECIMAL JUMP IF A < 0
64407 101 6 1 1 0 add literal address
64406>64408 101 10 1 1 0 add literal address
64409 118 1 0 3 0 SPLIT UP CHANNEL shift binary
64410 33 0 0 0 3 AND ROUTE SHIFT (AB) BY BITS
64411 82 644 2 0 0 0 644 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
64500 CONST 645 645 0 316 MAIN LOOP CONSTANTS
64502 (D)££££;
64503 (B)64-;
64504 64;
64505 128;
64506 192;
64507 240;
64508 (D)36965; ' MTRN'
64509 647;
64510 (B)240;
64511 192;
64512 128;
64513 64;
64514 (D)66666;
64515 ;
64516 74000; (24)SYNTHETIC ALLOC DETAILS FOR PROG TAP
64517 70740-;
64518 ;
64519 ;
64520 ;
64521 ;
64522 ;
64523 ;
64524 ;
64525 ;
64526 ;
64527 ;
64528 78000;
64529 70780-; (24)SYNTHETIC ALLOC DETAILS FOR PROG TAP
64600 PROCR 646 646 MORE EDIT TABLES IN DISGUISE
64602 100 633 54 0 0 0 633 FILE IDENTITY Halt
64603 101 515 0 0 0 2/0/3 table look up
Source image: P1000458.JPG
64604 100 633 52 0 0 0 633 RTE NO Halt
64605 100 4627 0 0 0 1/2/1/3 Halt
64606 100 633 56 0 0 0 633 ALT RTE Halt
64607 116 4611 0 0 0 1/2/0/3 Invalid
64608 107 4978 0 3 0 )CONST 'PTS' augment (N) by (A)
64609 100 6 0 0 0 ) Halt
64700 PROCR 647 647 DUMMY PROCEDURE
64701 NOTES RADIX 401 SELECT
64800 PROCR 648 648 ALLOC TAG/FP/MG
64801 NOTES RADIX 402 FIRST LOCN=98 OF SPECIAL CHAPTER SELECT
64802 35 0 0 0 0 CLEAR B PREPARE FOR DIGIT COLLATION
64803 124 20 0 1 0 (2) modify address of next
64804 101 0 1 3 0 13-BIT START CHAP 1 select literal address
64805 4 655 19 0 0 0 655 GET ADDRESS CORRECT AUGMENT
64806 4 656 53 0 0 0 656 AUGMENT
65641>64807 5 648 2 0 0 0 648 WL TRANSFER
64808 2 648 2 0 0 0 648 SUBTRACT
64809 4 655 17 0 0 0 655 AUGMENT
64810 4 655 20 0 0 0 655 AUGMENT
64811 4 655 22 0 0 0 655 AUGMENT
64812 4 656 51 0 0 0 656 AUGMENT
64813 4 656 54 0 0 0 656 AUGMENT
64814 4 656 56 0 0 0 656 AUGMENT
64815 10 0 0 0 0 DUMMY SELECT LITERAL
64816 101 2 1 3 0 (4)TEST>5 TAGS select literal address
64817 101 0 1 2 0 (29) subtract literal address
64818 70 648 22 0 0 0 648 >NO JUMP IF A == 0
64819 124 657 2 0 3 0 657 SELECT AND SHIFT modify address of next
64820 106 1 0 0 0 LAST 5 TAGS select (N)
64821 30 0 0 0 5 SHIFT (A) BY QUARTETS
64818>64822 124 657 2 0 3 0 657 FORMER TAG AVAILABILITY modify address of next
64823 104 0 0 0 0 add (N) to (A)
64824 05 657 18 1 0 0 657 TRANSFER
64825 106 9 0 0 0 FORM INITIAL ENTRY select (N)
64826 104 9 0 0 0 POINT add (N) to (A)
64827 107 648 28 0 0 0 648 =INITIAL CHAP augment (N) by (A)
64828 106 18 0 0 0 START+RELATIVE select (N)
64829 104 8 0 0 0 ENTRY POINT add (N) to (A)
64830 102 8 0 0 0 transfer (A) to N
64835>64831 657 18 1 0 0 657 SELECT
64832 70 648 63 0 0 0 648 >NO TAG AVAILABLE JUMP IF A == 0
65646>64833 32 0 0 0 1- SHIFT (AB) BY QUARTETS
64834 05 657 18 1 0 0 657 TRANSFER
64835 74 648 31 0 0 0 648 >TAG NOT FOUND YET JUMP IF AB == 0 // 27, 1, 0
64836 32 0 0 0 1 SHIFT (AB) BY QUARTETS
65645>64837 103 10 0 0 0 ALLOC TAG copy (A) to N
64838 657 18 1 0 0 657 RESIDUE SELECT
64839 124 10 0 0 0 ALLOC TAG modify address of next
64840 118 0 0 0 0 shift logical
64841 05 657 18 1 0 0 657 NEW TAG AVAILABILITY WORD TRANSFER
64842 106 0 0 0 0 FP WANTED select (N)
64843 70 648 48 0 0 0 648 >NO JUMP IF A == 0
64844 124 657 2 0 3 0 657 modify address of next
64845 123 128 0 3 0 A*TAG select tag
64846 101 14 1 2 0 subtract literal address
65643>64847 71 648 61 0 0 0 648 >NOT AVAILABLE JUMP IF A != 0
64843>64848 126 657 16 1 3 0 657 24:0 set modification register
64849 106 1 0 0 0 MOD GROUP REQUIRED select (N)
Source image: P1000459.JPG
64850 71 648 54 0 0 0 648 >YES JUMP IF A != 0
64851 124 20 0 3 0 START OF CHAP 1 modify address of next
64852 102 10 1 0 0 CLEAR M IN ALLOC COMMENT transfer (A) to N
64853 76 648 74 0 0 0 648 JUMP unconditional
64860>
64850>64854 124 657 2 0 3 0 657 modify address of next
64855 124 30 0 3 0 R3 MODIFIER modify address of next
64856 123 10 0 3 0 R2 TAG FOR EACH MOD GROUP select tag
64857 101 14 1 2 0 subtract literal address
64858 70 648 67 0 0 0 648 >AVAILABLE JUMP IF A == 0
64859 125 8 0 3 0 step on and test
64860 76 648 54 0 0 0 648 JUMP unconditional
64847>64861 101 0 1 3 0 select literal address
64862 101 1 1 2 0 A=NO FP/MG subtract literal address
64832>64863 101 3 1 2 0 B=NO TAB subtract literal address
65216>64864 101 85 1 1 0 E=NO 90K MATCH add literal address
64865 124 657 2 0 3 0 657 (14)>REJECT ALLOCATION modify address of next
64866 124 0 1 0 0 >REJECT ALLOCATION unconditional jump
64858>64867 124 657 2 0 3 0 657 modify address of next
64868 106 30 0 0 0 R3 MODIFIER select (N)
64869 31 0 0 0 1 SHIFT (A) BY BITS
64870 30 0 0 0 1- DIVIDE BY 8 SHIFT (A) BY QUARTETS
64871 11 0 0 0 1 ADD LITERAL
64872 124 20 0 3 0 START OF CH 1 modify address of next
64873 107 10 1 0 0 SET MOD GROUP IN ALLOC COMMENT augment (N) by (A)
64853>64874 102 1 0 0 0 transfer (A) to N
64875 106 10 0 0 0 AUGMENT TAG TO select (N)
64876 101 64 1 1 0 COMMENT add literal address
64877 118 6 0 0 0 shift logical
64878 124 20 0 3 0 modify address of next
64879 107 10 1 0 0 augment (N) by (A)
64880 101 0 1 3 0 DUMMY select literal address
64900 PROCR 649 649 45/90K CHUNK
64901 NOTES RADIX 403 SELECT
64902 106 5 0 0 0 FILES select (N)
64903 31 0 0 0 1 SHIFT (A) BY BITS
64904 5 657 3 0 0 0 657 2*FILES TRANSFER
64905 657 9 0 0 0 657 SELECT
64906 70 650 2 0 0 0 650 >THIS IS A 45K INSTALLATION JUMP IF A == 0
64907 124 649 10 1 1 0 649 RESET MG 3 set modification group
64908 124 647 2 0 2 0 647 select literal and division
64909 3 657 6 0 0 0 657 FORM TABLE ENTRY COPY
64910 101 126 1 3 0 '----BE' select literal address
64911 124 657 13 1 2 0 657 -64+R FOR CONTROL DATA PSEUDOROUTE modify address of next
64912 102 16 0 0 0 AS EMERGENCY STOP transfer (A) to N
64913 657 4 1 0 0 657 SELECT
64914 128 647 2 1 1 0 647 CLEAR 16 LOCNS AS WORKING SPACE bulk copy long numeric
64915 124 657 6 0 2 0 657 TSL FOR UNPACKING select literal and division
64916 124 657 13 1 2 0 657 -64+R FOR CONTROL DATA PSEUDO-ROUTE modify address of next
64917 128 0 0 3 0 unpack variable field data
65000 PROCR 650 650 45/90K CHUNK
65001 NOTES RADIX 404 REARRANGE SPEC CHAP ROUTE DETAIL SELECT
64906>65002 126 657 2 1 1 0 657 2*ROUTES:0 set modification register
65209>65003 106 34 1 1 0 select (N)
65004 73 652 8 0 0 0 652 >RTE 7 DETAIL JUMP IF A < 0
65005 101 0 1 1 0 DUMMY ORDER add literal address
65006 32 0 0 0 10- SHIFT (AB) BY QUARTETS
65007 32 0 0 0 1 SHIFT (AB) BY QUARTETS
Source image: P1000460.JPG
65008 5 657 5 0 0 0 657 ALT RTE TYPE TRANSFER
65009 32 0 0 0 4 SHIFT (AB) BY QUARTETS
65010 5 657 8 0 0 0 657 FILE IDENTITY TRANSFER
65011 32 0 0 0 1 SHIFT (AB) BY QUARTETS
65012 5 657 4 0 0 0 657 ROUTE TYPE TRANSFER
65013 32 0 0 0 2 SHIFT (AB) BY QUARTETS
65014 5 657 7 0 0 0 657 ALT ROUTE NO TRANSFER
65015 32 0 0 0 2 SHIFT (AB) BY QUARTETS
65016 5 657 6 0 0 0 657 MAIN ROUTE NO TRANSFER
65017 657 9 0 0 0 657 INDICATOR SELECT
65018 70 652 2 0 0 0 652 JUMP IF A == 0
65100 PROCR 651 651 45/90K CHUNK
65101 NOTES RADIX 405 SET INDICATOR IF REQUIRED SELECT
65102 657 4 0 0 0 657 ROUTE TYPE SELECT
65103 12 0 0 0 7 SUBTRACT LITERAL
65104 70 651 9 0 0 0 651 >MAG TAPE FILE JUMP IF A == 0
65105 12 0 0 0 1 SUBTRACT LITERAL
65106 70 651 9 0 0 0 651 >MAG TAPE FILE JUMP IF A == 0
65107 12 0 0 0 3 SUBTRACT LITERAL
65108 71 652 2 0 0 0 652 >NOT A MAG TAPE FILE JUMP IF A != 0
65106>
65104>65109 126 657 10 1 2 0 657 SET MR2 AT 16:0 set modification register
65114>65110 647 2 1 2 0 647 SELECT
65111 2 657 8 0 0 0 657 FILE IDENTITY SUBTRACT
65112 70 651 16 0 0 0 651 >MATCH SET IND=0 FOR 45K JUMP IF A == 0
65113 125 2 0 2 0 step on and test
65114 76 651 10 0 0 0 651 JUMP unconditional
65115 101 1 1 3 0 SET IND=1 FOR 90K IF NO MATCH select literal address
65112>65116 124 657 6 0 3 0 657 ROUTE NO modify address of next
65117 103 0 0 0 0 (21)SET MASTER IND copy (A) to N
65118 32 0 0 0 1- SHIFT (AB) BY QUARTETS
65119 657 7 0 0 0 657 ALT ROUTE NO SELECT
65120 101 128 1 2 0 (32) (>8 CHANNELS) subtract literal address
65121 70 651 26 0 0 0 651 >ALT ROUTE NOT USED JUMP IF A == 0
65122 101 0 1 3 0 DRAIN select literal address
65123 32 0 0 0 1 SHIFT (AB) BY QUARTETS
65124 124 657 7 1 2 0 657 ALT ROUTE NO modify address of next
65125 102 0 0 0 0 (22)SET MASTER IND transfer (A) to N
65121>65126 5 647 2 1 2 0 647 CLEAR ENTRY FROM TRANSFER
65200 PROCR 652 652 90K/45K CHUNK
65201 NOTES RADIX 406 SELECT
65108>
65018>65202 657 5 0 0 0 657 ALT ROUTE TYPE SELECT
65203 30 0 0 0 2 SHIFT (A) BY QUARTETS
65204 1 657 6 0 0 0 657 MAIN ROUTE NO ADD
65205 30 0 0 0 2 SHIFT (A) BY QUARTETS
65206 1 657 7 0 0 0 657 ALT ROUTE NO ADD
65207 102 35 0 1 0 SECOND M OF ROUTE DETAIL transfer (A) to N
65004>65208 125 2 0 1 0 step on and test
65209 76 650 3 0 0 0 650 >NEXT ROUTE JUMP unconditional
65210 657 9 0 0 0 657 SELECT
65211 70 653 2 0 0 0 653 >45K INSTALLATION JUMP IF A == 0
65212 126 657 10 1 2 0 657 16:0 set modification register
65218>65213 647 2 1 2 0 647 SELECT
65214 70 652 17 0 0 0 652 JUMP IF A == 0
65215 101 0 1 3 0 UNMATCHED ENTRY IN LIST select literal address
65216 76 648 64 0 0 0 648 >REJECT E JUMP unconditional
65214>65217 125 2 0 2 0 step on and test
Source image: P1000461.JPG
65218 76 652 13 0 0 0 652 JUMP unconditional
65219 101 0 1 1 0 DUMMY ORDER add literal address
65300 PROCR 653 653 ARRANGE FOR SPECIAL, GP, OR NEITHER S/R
65301 NOTES RADIX 407 SELECT
65211>65302 124 20 0 3 0 CHAP 1 modify address of next
65303 106 122 0 0 0 TEST FOR PRINTER select (N)
65304 70 653 37 0 0 0 653 >NO PRINTER JUMP IF A == 0
65305 124 0 0 2 0 SPECIAL CHAP DIVISION0 select literal and division
65306 101 0 1 2 0 subtract literal address
65307 3 655 26 0 0 0 655 STORE AS PARA FOR COPY
65308 5 656 60 0 0 0 656 PRINT S/R'S TRANSFER
65309 106 20 0 0 0 FORM AND STORE select (N)
65310 04 655 24 0 0 0 655 CHAP 1 PARA FOR AUGMENT
65311 04 656 58 0 0 0 656 PRINT S/RS AUGMENT
65312 10 0 0 0 0 SELECT LITERAL
65313 101 8 1 2 0 subtract literal address
65314 30 0 0 0 4 SHIFT (A) BY QUARTETS
65315 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION
65316 36 654 11 0 0 0 654 COLLATE AND ADD
65317 70 653 19 0 0 0 653 JUMP IF A == 0
65318 37 656 49 0 0 0 656 REPLACE SELECTED BITS
65317>65319 10 0 0 0 0 SELECT LITERAL
65320 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
65321 36 654 11 0 0 0 654 COLLATE AND ADD
65322 101 4 1 2 0 subtract literal address
65323 70 653 31 0 0 0 653 > JUMP IF A == 0
65324 124 655 2 0 2 0 655 FORM T/E FOR select literal and division
65325 32 0 0 0 5- BULK COPYING SHIFT (AB) BY QUARTETS
65326 101 26 1 3 0 SP PRINTER S/R select literal address
65327 32 0 0 0 5 TO CHAP SHIFT (AB) BY QUARTETS
65328 124 20 0 3 0 modify address of next
65329 128 154 0 0 0 TO CHAP 1 bulk copy short numeric
65330 76 653 37 0 0 0 653 JUMP unconditional
65323>65331 124 656 2 0 2 0 656 FORM T/E FOR select literal and division
65332 32 0 0 0 5- BULK COPYING SHIFT (AB) BY QUARTETS
65333 101 62 1 3 0 GP PRINTER S/R select literal address
65334 32 0 0 0 5 CHAP 1 SHIFT (AB) BY QUARTETS
65335 124 20 0 3 0 modify address of next
65336 128 120 0 0 0 bulk copy short numeric
65330>
65304>65337 102 16 0 0 0 transfer (A) to N
65338 124 647 2 0 2 0 647 RESET PARA 5 select literal and division
65339 124 657 2 0 3 0 657 modify address of next
65340 102 5 0 0 0 transfer (A) to N
65400 PROCR 654 654 FINAL CHUNK
65401 NOTES RADIX 408 SELECT
65402 126 657 18 1 1 0 657 W/L FOR NEW TAG AVAILABILITY WORD set modification register
65403 124 98 0 2 0 select literal and division
65404 124 657 2 0 3 0 657 modify address of next
65405 103 28 1 0 0 MR2 copy (A) to N
65406 124 657 2 0 3 0 657 modify address of next
65407 102 0 0 0 0 (6)SET SR LINK transfer (A) to N
65408 101 0 1 3 0 PARAS TABLE START select literal address
65409 124 657 2 0 3 0 657 modify address of next
65410 124 1 1 0 0 (6)>SECOND ORDER 'LOAD CHAPT' SR unconditional jump
65411 100 0 0 0 0 (27) Halt
65500 PROCR 655 655 SPECIAL PRINTER S/R
Source image: P1000462.JPG
65501 NOTES RADIX 409 SELECT
65502 100 0 0 0 0 LINK Halt
65503 101 0 1 3 0 FORM PSUEDOROUTE IN B FOR SPECIAL PRINTEselect literal address
65504 101 64 1 2 0 subtract literal address
65505 124 647 2 0 3 0 647 S/R LINK modify address of next
65506 105 2 0 0 0 subtract (N) from (A)
65507 32 0 0 0 10- SHIFT (AB) BY QUARTETS
65508 10 0 0 0 9 ROUTE TYPE SELECT LITERAL
65509 30 0 0 0 5 SHIFT (A) BY QUARTETS
65510 124 647 2 0 3 0 647 modify address of next
65511 104 1 0 0 0 PRINTER ROUTE add (N) to (A)
65512 125 4096 1 1 0 clear indicators
65513 124 647 11 0 3 0 647 modify address of next
65514 123 159 0 2 0 ENTER MASTER enter master routine
65515 126 647 2 0 1 0 647 RETURN TO MAIN PROGRAM leave subroutine
65516 100 0 0 0 0 DUMMY Halt
65517 124 178 0 3 0 modify address of next
65518 128 214 0 0 0 CLEAR SPECIAL CHAP bulk copy short numeric
65519 106 176 1 0 0 select (N)
65520 124 178 0 3 0 modify address of next
65521 128 647 2 0 0 0 647 COPY TO SPECIAL CHAP bulk copy short numeric
65522 124 178 0 3 0 modify address of next
65523 124 204 1 0 0 >REENTER FINAL CHUNK unconditional jump
65524 100 154 0 0 0 ABS START THIS SR IN CHAP 1 Halt
65525 100 14 0 0 0 Halt
65526 100 0 0 0 0 SPECIAL CHAPTER Halt
65600 PROCR 656 656 G.P. PRINTER S/R
65601 NOTES RADIX 410 SELECT
65602 100 0 0 0 0 LINK Halt
65603 124 647 2 0 3 0 647 STORE DATA modify address of next
65604 124 2 1 2 0 modify address of next
65605 124 0 0 2 0 select literal and division
65606 102 647 50 0 0 0 647 transfer (A) to N
65607 106 647 48 1 0 0 647 PACK COLUMNS BIT select (N)
65608 100 647 48 1 2 0 647 INTO FUNCTION replace (B) by (N)
65609 124 647 50 0 3 0 647 modify address of next
65610 114 0 1 0 0 replace selected bits
65611 124 647 2 0 3 0 647 FORM T/E modify address of next
65612 106 4 0 0 0 select (N)
65613 118 5 0 0 0 shift logical
65614 124 647 2 0 3 0 647 BULK CLEAR G.P. TRANSIT modify address of next
65615 124 3 1 2 0 AREA BEFORE EDIT modify address of next
65616 128 0 1 1 0 bulk copy long numeric
65617 106 647 50 0 0 0 647 select (N)
65618 124 647 2 0 3 0 647 EDIT INTO G.P. TRANSIT AREA modify address of next
65619 124 3 1 2 0 modify address of next
65620 129 0 0 1 0 edit for anelex output
65621 102 647 50 0 0 0 647 transfer (A) to N
65622 101 64 1 2 0 FORM PSEUDOROUTE IN B FOR G.P.PRINTER subtract literal address
65623 124 647 2 0 3 0 647 modify address of next
65624 105 3 0 0 0 subtract (N) from (A)
65625 32 0 0 0 10- SHIFT (AB) BY QUARTETS
65626 10 0 0 0 4 ROUTE TYPE SELECT LITERAL
65627 30 0 0 0 5 SHIFT (A) BY QUARTETS
65628 124 647 2 0 3 0 647 ROUTE NO modify address of next
65629 104 1 0 0 0 add (N) to (A)
65630 125 4096 1 1 0 clear indicators
65631 124 647 48 0 3 0 647 modify address of next
65632 123 160 0 2 0 ENTER MASTER enter master routine
Source image: P1000463.JPG
65633 124 647 50 0 3 0 647 modify address of next
65634 100 0 1 2 0 replace (B) by (N)
65635 10 0 0 0 2 STEP MODIFIER SELECT LITERAL
65636 4 647 50 0 0 0 647 AUGMENT
65637 33 0 0 0 2 SELECT NEXT CHARACTER SHIFT (AB) BY BITS
65638 10 0 0 0 0 SELECT LITERAL
65639 33 0 0 0 6 SHIFT (AB) BY BITS
65640 12 0 0 0 1. TEST L/E SUBTRACT LITERAL
65641 70 648 7 0 0 0 648 >YES JUMP IF A == 0
65642 12 0 0 0 20 TEST B/E SUBTRACT LITERAL
65643 70 648 47 0 0 0 648 >YES JUMP IF A == 0
65644 10 0 0 0 0 SELECT LITERAL
65645 75 648 37 0 0 0 648 >NEXT CHARACTER JUMP IF AB != 0
65646 76 648 33 0 0 0 648 >NEXT WORD JUMP unconditional
65647 126 647 2 0 1 0 647 >LEAVE leave subroutine
65648 100 0 0 0 0 ZERO Halt
65649 100 0 0 0 0 FN WORD Halt
65650 100 0 0 0 0 MODIFIER Halt
65651 124 178 0 3 0 modify address of next
65652 128 214 0 0 0 CLEAR SPECIAL CHAP bulk copy short numeric
65653 106 176 1 0 0 select (N)
65654 124 178 0 3 0 modify address of next
65655 128 647 2 0 0 0 647 COPY TO SPECIAL CHAP bulk copy short numeric
65656 124 178 0 3 0 modify address of next
65657 124 204 1 0 0 >REENTER FINAL CHUNK unconditional jump
65658 100 120 0 0 0 ABS START THIS SR IN CHAP 1 Halt
65659 100 48 0 0 0 Halt
65660 100 0 0 0 0 SPECIAL CHAPTER Halt
65700 CONST 657 657 0 411 CONSTS FOR 45/90K CHUNK
65702 (D)0; ZERO
65703 0; 2*FILES
65704 0; ROUTE TYPE/BULK CLEAR T
65705 20010; ALT RTE TYPE/BULK CLEAR T
65706 0; ROUTE NO/UNPACK TABLE
65707 30000-; ALT RTE NO/UNPACK TABLE
65708 0; FILE IDENTITY
65709 0; (21)NONZERO IF 90K INSTALLATION
65710 0;
65711 10; MOD REGISTER CONSTANT
65712 40-; (24) -(64+R) FOR PROGM ROUTE
65713 40-; (23)=LOCN OF 45K ROUTES LIST
65714 0; LAST BLOCK SERIAL
65715 0; ON PROGM TAPE
65716 0;
65717 (B)24; MR 24:0
65718 0;
65719 ; W/L
65720 ;
65721 ;
65722 ;
65723 ;
65724 ;
65725 ;
65800 PROCR 658 658 SET UP PROG IN PQ
65801 NOTES RADIX 501 FIRST LOCN=98 OF SPECIAL CHAPTER SELECT
65802 124 668 2 0 3 0 668 NEW TAG AVAILABILITY modify address of next
65803 106 26 1 0 0 select (N)
65804 05 668 26 1 0 0 668 TRANSFER
Source image: P1000464.JPG
65805 101 2 1 2 0 ADJUST MR SETTING subtract literal address
65806 4 668 14 0 0 0 668 AUGMENT
65807 4 668 15 0 0 0 668 AUGMENT
65808 10 0 0 0 0 DUMMY ORDER SELECT LITERAL
65809 106 15 0 0 0 select (N)
65810 102 14 0 0 0 transfer (A) to N
65811 106 2 0 0 0 PRIORITY CLASS select (N)
65812 30 0 0 0 4 Q5 SHIFT (A) BY QUARTETS
65813 100 10 0 2 0 TAG T replace (B) by (N)
65814 110 668 9 0 0 0 668 multiply and add
65815 1 668 9 0 0 0 668 48(T+1) ADD
65816 124 668 2 0 3 0 668 modify address of next
65817 104 2 0 0 0 MR SWITCH START add (N) to (A)
65818 30 0 0 0 5 SHIFT (A) BY QUARTETS
65819 104 12 0 0 0 PROG IDENTITY add (N) to (A)
65820 5 668 12 1 0 0 668 TRANSFER
65821 126 668 14 1 1 0 668 SCAN PQ BACKWARDS set modification register
65822 35 0 0 0 10000 Q5 PREPARE FOR DIGIT COLLATION
65835>65823 124 668 2 0 3 0 668 modify address of next
65824 115 1 0 1 0 P CLASS NEXT ENTRY collate and add
65825 2 668 16 0 0 0 668 £0000 SUBTRACT
65826 70 658 34 0 0 0 658 >STEP R1 JUMP IF A == 0
65827 1 668 16 0 0 0 668 £0000 ADD
65828 2 668 13 0 0 0 668 SUBTRACT
65829 73 658 38 0 0 0 658 >INSERT NOW JUMP IF A < 0
65830 124 668 2 0 3 0 668 modify address of next
65831 106 0 1 1 0 select (N)
65832 124 668 2 0 3 0 668 modify address of next
65833 102 2 1 1 0 transfer (A) to N
65826>65834 125 4098 0 1 0 2- step on and test
65835 76 658 23 0 0 0 658 JUMP unconditional
65836 111 7 0 3 0 CONST>27/0/3 multiply and subtract
65837 108 7 1 0 0 CONST>24/1/0 merge variable length
65829>65838 125 4096 1 1 0 SET NON-INT clear indicators
65839 668 12 1 0 0 668 SELECT
65840 124 668 2 0 3 0 668 modify address of next
65841 102 2 1 1 0 transfer (A) to N
65842 35 0 0 0 1111 Q1-4 PREPARE FOR DIGIT COLLATION
65843 36 668 13 0 0 0 668 SWITCH START COLLATE AND ADD
65844 124 668 2 0 3 0 668 modify address of next
65845 103 30 1 0 0 R3 MODIFIERS copy (A) to N
65846 4 658 36 0 0 0 658 AUG CONSTANTS AUGMENT
65847 4 658 37 0 0 0 658 AUGMENT
65848 5 668 8 0 0 0 668 TRANSFER
65849 124 668 2 0 3 0 668 START OF SWITCH ABOVE modify address of next
65850 106 1 0 1 0 select (N)
65851 124 668 2 0 3 0 668 modify address of next
65852 102 28 1 0 0 R2 MODIFIER transfer (A) to N
65853 101 4 1 2 0 subtract literal address
65854 4 660 28 0 0 0 660 ADJUST ORDERS AUGMENT
65855 4 660 33 0 0 0 660 AUGMENT
65856 04 660 20 0 0 0 660 AUGMENT
65900 PROCR 659 659 UPDATE PREVIOUS SWITCH, FORM SWITCH ORDERS
65901 NOTES RADIX 502 SELECT
65902 124 668 2 0 3 0 668 modify address of next
65903 126 0 0 0 0 (8)>UPDATE SWITCH enter subroutine
65904 10 0 0 0 0 SELECT LITERAL
65905 2 658 36 0 0 0 658 27/0/3>SI+7 SUBTRACT
65906 124 668 2 0 3 0 668 modify address of next
Source image: P1000465.JPG
65907 102 20 0 2 0 IN SJ+20 OF PREVIOUS SWITCH transfer (A) to N
65908 124 668 2 0 3 0 668 modify address of next
65909 106 9 0 2 0 SJ+9 select (N)
65910 124 668 2 0 3 0 668 modify address of next
65911 105 7 0 2 0 SJ+7 subtract (N) from (A)
65912 71 659 16 0 0 0 659 >SWITCH NOT AT 2 JUMP IF A != 0
65913 2 658 37 0 0 0 658 24/1/0>SI+7 SUBTRACT
65914 124 668 2 0 3 0 668 modify address of next
65915 102 7 0 2 0 TO SJ+7 transfer (A) to N
65912>65916 10 0 0 0 0 SELECT LITERAL
65917 2 658 37 0 0 0 658 SUBTRACT
65918 124 668 2 0 3 0 668 modify address of next
65919 102 9 0 2 0 SET 24/1/0 IN SI+9 ALSO transfer (A) to N
66000 PROCR 660 660 PLACE CONSTANT IN SWITCH
66001 NOTES RADIX 503 SELECT
66002 106 1 0 0 0 MOD GROUP select (N)
66003 31 0 0 0 13 SHIFT (A) BY BITS
66004 124 668 2 0 3 0 668 modify address of next
66005 102 29 0 3 0 SI+29 transfer (A) to N
66006 106 10 0 0 0 TAG select (N)
66007 30 0 0 0 4 SHIFT (A) BY QUARTETS
66008 104 8 0 0 0 ABS ENTRY add (N) to (A)
66009 124 668 2 0 3 0 668 modify address of next
66010 102 44 1 3 0 SET LINK CLEAR 45 transfer (A) to N
66011 124 0 0 2 0 SPECIAL CHAPTER START select literal and division
66012 124 668 2 0 3 0 668 modify address of next
66013 102 37 0 3 0 SI+37 transfer (A) to N
66014 106 12 0 0 0 PROG IDENTITY select (N)
66015 124 668 2 0 3 0 668 modify address of next
66016 102 39 0 3 0 SI+39 transfer (A) to N
66017 124 668 2 0 3 0 668 modify address of next
66018 102 46 1 3 0 CLEAR THIS SI+46,47 transfer (A) to N
66019 124 668 2 0 3 0 668 modify address of next
66020 106 3 0 0 0 (29)RUN NUMBER select (N)
66021 103 15 0 0 0 TO SPEC CHAP copy (A) to N
66022 124 668 2 0 3 0 668 modify address of next
66023 102 40 0 3 0 TO SI+40 transfer (A) to N
66024 101 0 1 3 0 (15) 'ROUTE CLOSED' ENTRY select literal address
66025 124 668 2 0 3 0 668 modify address of next
66026 102 42 0 3 0 SI+42 transfer (A) to N
66027 124 668 2 0 3 0 668 modify address of next
66028 106 1 0 0 0 MOST SIG HALF OF A select (N)
66029 30 0 0 0 3- SHIFT (A) BY QUARTETS
66030 12 0 0 0 7. SUBTRACT LITERAL
66031 70 660 35 0 0 0 660 >SET (AB)=ZERO JUMP IF A == 0
66032 124 668 2 0 3 0 668 modify address of next
66033 100 0 1 1 0 VALUES>A&B,RUBBISH>C replace registers
66034 76 660 36 0 0 0 660 JUMP unconditional
66031>66035 35 0 0 0 0 AB CLEAR PREPARE FOR DIGIT COLLATION
66034>66036 100 668 17 0 3 0 668 SET DECIMAL set radix
66037 124 668 2 0 3 0 668 modify address of next
66038 124 30 0 3 0 R3 modify address of next
66039 100 30 1 0 0 SET ABC INITIAL ENTRY SI+30>34 copy registers
66100 PROCR 661 661 UPDATE MASTER AVAILABILITY FOR FP/MG/TAG/STORE/ROUTE
66101 NOTES RADIX 504 CLEAR ALLOC MOD REGISTERS SELECT
66102 100 668 2 0 3 0 668 BINARY set radix
66103 106 0 0 0 0 FP IND select (N)
66104 70 661 11 0 0 0 661 >NOT USED JUMP IF A == 0
Source image: P1000466.JPG
66105 106 10 0 0 0 PROG TAG select (N)
66106 126 668 6 1 3 0 668 6/0 set modification register
66110>66107 124 668 2 0 3 0 668 ZERO modify address of next
66108 123 128 1 3 0 copy into tag
66109 125 2 0 3 0 step on and test
66110 76 661 7 0 0 0 661 JUMP unconditional
66104>66111 106 1 0 0 0 MOD GROUP select (N)
66112 70 661 32 0 0 0 661 >NOT USED JUMP IF A == 0
66113 31 0 0 0 3 SHIFT (A) BY BITS
66114 5 668 5 0 0 0 668 8M TRANSFER
66115 106 10 0 0 0 TAG select (N)
66116 126 668 6 1 3 0 668 6/0 set modification register
66120>66117 124 668 5 0 3 0 668 8M modify address of next
66118 123 2 1 3 0 copy into tag
66119 125 2 0 3 0 step on and test
66120 76 661 17 0 0 0 661 JUMP unconditional
66121 106 1 0 0 0 MOD GROUP select (N)
66122 12 0 0 0 3 SUBTRACT LITERAL
66123 126 668 6 1 3 0 668 6/0 set modification register
66124 70 661 28 0 0 0 661 >MG3 JUMP IF A == 0
66125 668 5 0 0 0 668 8M SELECT
66126 11 0 0 0 2 OVER 'START OF COPY OF MG3' ADDRESS ADD LITERAL
66127 5 668 4 0 0 0 668 TRANSFER
66131>
66124>66128 124 668 4 0 3 0 668 LOCN OF MR1 OF MOD GROUP modify address of next
66129 102 0 1 3 0 transfer (A) to N
66130 125 2 0 3 0 step on and test
66131 76 661 28 0 0 0 661 JUMP unconditional
66112>66132 101 0 1 3 0 (3)FORM QTTY TO COPY select literal address
66133 101 0 1 2 0 (30) subtract literal address
66134 12 0 0 0 4 SUBTRACT LITERAL
66135 30 0 0 0 5 SHIFT (A) BY QUARTETS
66136 101 80 1 1 0 add literal address
66137 104 20 0 0 0 add (N) to (A)
66138 124 668 2 0 3 0 668 modify address of next
66139 128 0 1 1 0 (30)UPDATE STORAGE bulk copy long numeric
66200 PROCR 662 662 SET ASL'S
66201 NOTES RADIX 505 SELECT
66202 0 668 26 1 0 0 668 UPDATE TAG AVAILABILITY SELECT
66203 124 668 2 0 3 0 668 modify address of next
66204 102 0 1 0 0 transfer (A) to N
66205 126 18 1 3 0 2X(R+T):0 set modification register
66250>66206 35 0 0 0 11- PREPARE FOR DIGIT COLLATION
66207 115 34 1 3 0 ALLOC ROUTE collate and add
66208 73 662 48 0 0 0 662 >NEGATIVE IGNORE JUMP IF A < 0
66209 5 668 5 0 0 0 668 W/L TRANSFER
66210 106 10 0 0 0 TAG select (N)
66211 30 0 0 0 4 SHIFT (A) BY QUARTETS
66212 104 66 0 3 0 START add (N) to (A)
66213 124 668 5 0 3 0 668 ROUTE modify address of next
66214 102 64 0 0 0 transfer (A) to N
66215 106 35 0 3 0 FILE ID Q1=4 select (N)
66216 70 662 48 0 0 0 662 >TRANSIT AREA JUMP IF A == 0
66217 106 34 0 3 0 RT IN Q5 select (N)
66218 30 0 0 0 4- SHIFT (A) BY QUARTETS
66219 12 0 0 0 7 TEST IF M/T SUBTRACT LITERAL
66220 70 662 25 0 0 0 662 IE RTE TYPES JUMP IF A == 0
66221 12 0 0 0 1 7,8,11 SUBTRACT LITERAL
66222 70 662 25 0 0 0 662 JUMP IF A == 0
Source image: P1000467.JPG
66223 12 0 0 0 3 SUBTRACT LITERAL
66224 71 662 29 0 0 0 662 JUMP IF A != 0
66222>
66220>66225 124 668 5 0 3 0 668 modify address of next
66226 102 0 0 0 0 (16)CLEAR REEL CTR transfer (A) to N
66227 76 662 37 0 0 0 662 JUMP unconditional
66228 102 0 0 0 0 (35)CLEAR BLOCK COUNTER FOR MT ROUTE transfer (A) to N
66224>66229 11 0 0 0 5 TEST CARD INPUT ADD LITERAL
66230 70 662 33 0 0 0 662 >80-COL CARDS(6) JUMP IF A == 0
66231 12 0 0 0 7 SUBTRACT LITERAL
66232 71 662 37 0 0 0 662 >NOT 40-COL CARDS(15) JUMP IF A != 0
66230>66233 124 668 5 0 3 0 668 modify address of next
66234 106 64 0 0 0 ASL FOR EVEN ROUTE select (N)
66235 124 668 5 0 3 0 668 modify address of next
66236 102 65 0 0 0 COPY FOR ODD ROUTE transfer (A) to N
66232>
66227>66237 106 34 0 3 0 select (N)
66238 30 0 0 0 6 ALT ROUTE Q3,4 SHIFT (A) BY QUARTETS
66239 30 0 0 0 8- SHIFT (A) BY QUARTETS
66240 12 0 0 0 80 (32) SUBTRACT LITERAL
66241 70 662 48 0 0 0 662 >NOT USED JUMP IF A == 0
66242 11 0 0 0 80 (32) ADD LITERAL
66243 5 668 5 0 0 0 668 TRANSFER
66244 106 10 0 0 0 TAG select (N)
66245 30 0 0 0 4 SHIFT (A) BY QUARTETS
66246 124 668 5 0 3 0 668 modify address of next
66247 102 64 0 0 0 SET IND THAT NOT AVAILABLE transfer (A) to N
66241>
66216>
66208>66248 10 0 0 0 0 CLEAR A SELECT LITERAL
66249 125 2 0 3 0 step on and test
66250 76 662 6 0 0 0 662 >NEXT ROUTE JUMP unconditional
66251 5 668 12 1 0 0 668 CLEAR THIS TRANSFER
66252 124 668 2 0 3 0 668 modify address of next
66253 102 5 0 0 0 CLEAR PARAMETER 5 transfer (A) to N
66254 125 0 1 2 0 DUMMY interrogate indicators
66300 PROCR 663 663 SET UP CHAP PARAS ROUTE PARAS TX AREA PARAS
66301 NOTES RADIX 506 MOD GROUP PARAS AND SPECIAL PARAS SELECT
66302 126 668 12 1 1 0 668 CLEAR set modification register
66303 126 16 1 2 0 2XCHAPS:0 set modification register
66311>66304 34 668 11 0 0 0 668 BITS 1-13 SET (N) IN B
66305 106 20 0 2 0 NEXT START select (N)
66306 102 99 0 1 0 15 BIT transfer (A) to N
66307 115 20 0 2 0 collate and add
66308 102 100 0 1 0 transfer (A) to N
66309 125 2 0 1 0 step on and test
66310 125 2 0 2 0 step on and test
66311 76 663 4 0 0 0 663 >NEXT CHAP JUMP unconditional
66312 102 98 0 0 0 CLEAR PARA 0 transfer (A) to N
66313 106 5 0 0 0 FILES select (N)
66314 104 5 0 0 0 add (N) to (A)
66315 30 0 0 0 5 SHIFT (A) BY QUARTETS
66316 124 668 2 0 3 0 668 modify address of next
66317 102 28 1 0 0 R2=2XROUTES:0 transfer (A) to N
66318 35 0 0 0 11- PREPARE FOR DIGIT COLLATION
66327>66319 115 34 1 2 0 NEXT ROUTE collate and add
66320 72 663 24 0 0 0 663 PARA JUMP IF A >= 0
66322>66321 125 2 0 2 0 END OF ROUTES step on and test
66322 76 663 21 0 0 0 663 >STEP UP MR TO END JUMP unconditional
Source image: P1000468.JPG
66323 76 663 28 0 0 0 663 >END JUMP unconditional
66320>66324 102 99 0 1 0 transfer (A) to N
66325 125 1 0 1 0 step on and test
66326 125 2 0 2 0 step on and test
66327 76 663 19 0 0 0 663 >NEXT ROUTE JUMP unconditional
66323>66328 106 19 0 0 0 select (N)
66329 124 668 2 0 3 0 668 modify address of next
66330 102 29 0 0 0 ADJUST END VALUE transfer (A) to N
66331 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
66339>66332 115 34 0 2 0 TX AREA collate and add
66333 102 99 0 1 0 transfer (A) to N
66334 105 99 0 1 0 subtract (N) from (A)
66335 101 64 1 2 0 subtract literal address
66336 102 100 0 1 0 transfer (A) to N
66337 125 2 0 1 0 step on and test
66338 125 2 0 2 0 step on and test
66339 76 663 32 0 0 0 663 >NEXT TX AREA JUMP unconditional
66340 106 1 0 0 0 MOD GROUP select (N)
66341 31 0 0 0 3 SHIFT (A) BY BITS
66342 102 99 0 1 0 BM transfer (A) to N
66343 105 99 0 1 0 subtract (N) from (A)
66344 101 2 1 2 0 subtract literal address
66345 103 100 0 1 0 -(8M+2)=R1 copy (A) to N
66346 101 2 1 2 0 subtract literal address
66347 103 101 0 1 0 -(8M+4)=R2 copy (A) to N
66348 101 2 1 2 0 subtract literal address
66349 102 102 0 1 0 -(8M+6)=R3 transfer (A) to N
66350 106 14 0 0 0 CONTROL DATA select (N)
66351 102 103 0 1 0 ROUTE TYPE transfer (A) to N
66352 124 668 2 1 1 0 668 MOD GROUP 0 set modification group
66353 124 668 2 0 3 0 668 modify address of next
66354 126 0 0 0 0 (17)->REQUEST T/W enter subroutine
66355 124 668 2 0 3 0 668 RI MODIFIER modify address of next
66356 106 26 0 0 0 select (N)
66357 11 0 0 0 5 ADD LITERAL
66358 102 14 0 0 0 STORE(PARAS+1)FOR PTS transfer (A) to N
66400 PROCR 664 664 TYPE DATE TIME AND ALLOC COMMENT
66401 NOTES RADIX 507 SELECT
66402 12 0 0 0 2 SUBTRACT LITERAL
66403 4 668 21 0 0 0 668 SET TRUE ANNEX START AUGMENT
66404 124 669 2 0 2 0 669 select literal and division
66405 124 668 21 0 3 0 668 modify address of next
66406 128 0 1 2 0 edit fixed field formats
66407 668 20 0 0 0 668 PARA 25 SELECT
66408 73 664 14 0 0 0 664 >MASTER TYPES PAGE HEADINGS ANYWAY JUMP IF A < 0
66409 71 664 13 0 0 0 664 >CLOCK WORKING JUMP IF A != 0
66410 10 0 0 0 1.1. SELECT LITERAL
66411 124 668 21 0 3 0 668 modify address of next
66412 102 6 1 0 0 PREMATURE END transfer (A) to N
66409>66413 80 667 2 0 0 0 667 >TYPE ENTER SUBROUTINE
66408>66414 124 668 2 0 3 0 668 modify address of next
66415 126 0 0 0 0 (17)->REQUEST T/W enter subroutine
66416 101 76 1 3 0 ANNEX LENGTH select literal address
66417 30 0 0 0 5 SHIFT (A) BY QUARTETS
66418 104 20 0 0 0 CHAP 1 START add (N) to (A)
66419 124 668 2 0 3 0 668 modify address of next
66420 128 0 1 1 0 (18)->MR T/W ANNEX bulk copy long numeric
66421 124 668 2 0 3 0 668 modify address of next
66422 126 0 0 0 0 (19)EDIT TIME SR enter subroutine
Source image: P1000469.JPG
66423 80 667 2 0 0 0 667 >TYPE ENTER SUBROUTINE
66500 PROCR 665 665 CLEAR STORE STACK NEW TAG
66501 NOTES RADIX 508 SELECT
66502 124 668 17 1 1 0 668 SET MOD GROUP 3 set modification group
66503 126 16 1 1 0 2XCHAPS:0 set modification register
66529>66504 106 20 1 1 0 select (N)
66505 5 668 12 1 0 0 668 START/END NEXT CHAP TRANSFER
66506 124 0 0 2 0 select literal and division
66507 2 668 12 0 0 0 668 SUBTRACT
66508 126 668 12 1 2 0 668 TAG STACKER set modification register
66509 126 668 12 1 3 0 668 CLEARER set modification register
66510 71 665 15 0 0 0 665 >NOT SPECIAL CHAP JUMP IF A != 0
66511 125 200 0 2 0 step on and test
66512 125 500 0 3 0 step on and test
66513 76 665 15 0 0 0 665 JUMP unconditional
66514 76 665 23 0 0 0 665 >NONE TO CLEAR JUMP unconditional
66513>
66510>66515 125 180 0 3 0 STOP 180 CHAP 1 step on and test
66516 10 0 0 0 0 SELECT LITERAL
66517 106 665 16 0 0 0 665 CORRECTION AFTER select (N)
66518 102 665 15 0 0 0 665 CHAP 1 transfer (A) to N
66522>66519 124 668 2 0 3 0 668 modify address of next
66520 102 0 1 3 0 CLEAR STORE transfer (A) to N
66521 125 2 0 3 0 step on and test
66522 76 665 19 0 0 0 665 JUMP unconditional
66514>66523 106 10 0 0 0 TAG select (N)
66527>66524 124 668 2 0 3 0 668 modify address of next
66525 123 0 1 2 0 STACK AG copy into tag
66526 125 2 0 2 0 step on and test
66527 76 665 24 0 0 0 665 JUMP unconditional
66528 125 2 0 1 0 step on and test
66529 76 665 4 0 0 0 665 >NEXT CHAPTER JUMP unconditional
66530 101 0 1 3 0 (28) select literal address
66531 70 666 2 0 0 0 666 >PTS PART OF MASTER JUMP IF A == 0
66532 106 11 0 0 0 select (N)
66533 70 666 2 0 0 0 666 >NOT TRIALS ALLOCATED JUMP IF A == 0
66534 124 668 2 0 3 0 668 Q5 OF PARA 43=2X CHAP CONTAINING PTS modify address of next
66535 106 43 0 0 0 select (N)
66536 30 0 0 0 4- SHIFT (A) BY QUARTETS
66537 4 665 39 0 0 0 665 AUGMENT
66538 101 1500 1 3 0 ADD PTS SIZE TO CHAP select literal address
66539 107 19 0 0 0 augment (N) by (A)
66600 PROCR 666 666 LOAD FINAL CHUNK
66601 NOTES RADIX 509 SELECT
66533>
66531>66602 668 8 0 0 0 668 SWITCH START SET RI FOR ENTRY SELECT
66603 32 0 0 0 5- TO PROGRAM SHIFT (AB) BY QUARTETS
66604 124 0 0 2 0 SPECIAL CHAP START select literal and division
66605 32 0 0 0 5 SHIFT (AB) BY QUARTETS
66606 124 668 2 0 3 0 668 modify address of next
66607 102 26 1 0 0 RI transfer (A) to N
66608 124 146 0 2 0 select literal and division
66609 124 668 2 0 3 0 668 modify address of next
66610 102 28 1 0 0 R2 MODIFIER transfer (A) to N
66611 101 146 1 3 0 SET PARA 1 VALUE select literal address
66612 124 668 2 0 3 0 668 13 BIT ADDRESS OF LOCN 140 modify address of next
66613 102 1 0 0 0 transfer (A) to N
66614 101 0 1 3 0 PARA TABLE START select literal address
Source image: P1000470.JPG
66615 124 668 2 0 3 0 668 modify address of next
66616 126 0 0 0 0 (6)->LOAD CHAP SR enter subroutine
66617 668 8 0 0 0 668 SELECT
66618 124 214 1 0 0 unconditional jump
66700 PROCR 667 667 TYPEWRITER S/R
66701 NOTES RADIX 511 SELECT
66702 81 667 2 0 0 0 667 MOD GROUP=0 START OF SUBROUTINE
66703 124 668 2 0 3 0 668 modify address of next
66704 106 35 0 1 0 (SM+35) select (N)
66705 11 0 0 0 2 ADD LITERAL
66706 124 668 2 0 3 0 668 modify address of next
66707 102 7 0 1 0 >SM+7 transfer (A) to N
66708 124 667 13 0 2 0 667 select literal and division
66709 124 668 2 0 3 0 668 modify address of next
66710 102 42 0 1 0 RETURN ADDRESS transfer (A) to N
66711 124 668 2 0 3 0 668 modify address of next
66712 124 0 1 0 0 (20)->TYPE unconditional jump
66713 101 0 1 3 0 (15)ROUTE CLOSED'LINK select literal address
66714 124 668 2 0 3 0 668 modify address of next
66715 103 7 0 1 0 >SM+7 copy (A) to N
66716 124 668 2 0 3 0 668 modify address of next
66717 102 42 0 1 0 >SM+42 transfer (A) to N
66718 82 667 2 0 0 0 667 END OF SUBROUTINE / LEAVE SUBROUTINE
66800 CONST 668 668 0 512
66802 (B)0; ZERO
66803 20; BULK COPY TE
66804 0; (10)LOCN OF (MG3)
66805 0; W/L
66806 0; MOD REGISTER
66807 6;
66808 0; W/L
66809 48;
66810 0; NEW TAG AVAILABILITY WRD
66811 8191; BITS 1-13
66812 0; LONG W/L
66813 0;
66814 ; (30)PQ START
66815 ; (29)PQ END
66816 (D)£0000;
66817 66666; DEC RADIX
66818 35.5.;
66819 517;
66820 0; (25)CLOCK PARA
66821 0; (18)T/W ASL
66822 35500;
66823 54517;
66824 0; (43)PTS START+CHAP
66825 0;
66826 0;
66827 ;
66900 PROCR 669 669 EDIT TABLE IN DISGUISE
66901 NOTES RADIX 513 SELECT
66902 100 668 22 0 0 0 668 DATE Halt
66903 103 5 0 0 0 copy (A) to N
66904 100 138 0 0 0 DAY Q5,6 Halt
66905 102 1026 0 0 0 4/0/2 transfer (A) to N
66906 100 138 0 0 0 MONTH Q5,4 Halt
Source image: P1000471.JPG
66907 102 1554 0 0 0 transfer (A) to N
66908 100 138 0 0 0 YEAR Q1,2 Halt
66909 102 2066 0 0 0 transfer (A) to N
66910 100 668 18 0 0 0 668 'AT' Halt
66911 103 290 0 0 0 copy (A) to N
66912 100 156 0 0 0 TIME Halt
66913 100 20 0 0 0 0/1/4 Halt
66914 100 668 18 0 0 0 668 DOUBLE LINE END Halt
66915 119 786 0 0 0 output
66916 100 0 0 0 0 Halt
66917 100 0 0 0 0 Halt
66918 100 0 0 0 0 Halt
66919 100 0 0 0 0 Halt
67000 PROCR 670 670 FINAL CHUNK=LOAD PROGRAM START=LOCN 146 OF SPECIAL CHAP
67001 NOTES RADIX 601 SELECT
67049>67002 128 670 6 1 1 0 670 CLEAR 150-197 OF SPECIAL CHAPTER bulk copy long numeric
67003 124 670 6 0 3 0 670 modify address of next
67004 124 0 1 0 0 (9)>REENTER MASTER unconditional jump
67005 101 0 1 3 0 select literal address
67006 100 0 0 0 0 T/E FOR CLEARING Halt
67007 102 48 0 0 0 FINAL CHUNK transfer (A) to N
67023>
67204>67008 124 16 0 1 0 modify address of next
67009 106 20 0 0 0 NEXT CHAP START select (N)
67030>67010 124 670 6 0 3 0 670 modify address of next
67011 102 28 1 0 0 R2 transfer (A) to N
67017>67012 124 670 6 0 3 0 670 modify address of next
67013 126 0 0 0 0 (7)>READ BLOCK enter subroutine
67014 124 671 2 1 2 0 671 -64+R modify address of next
67015 106 12 1 0 0 select (N)
67016 2 671 4 1 0 0 671 'CHAPT' SUBTRACT
67017 71 670 12 0 0 0 670 >NOT AT CHAP HEADING JUMP IF A != 0
67018 124 98 0 2 0 PARA TABLE START select literal and division
67019 124 670 6 0 3 0 670 modify address of next
67020 126 0 0 0 0 (6)>LOAD CHAP enter subroutine
67021 123 2 0 0 0 step on and test
67022 100 16 0 0 0 (ABSOLUTE ADDRESS FORMED IN 603) Halt
67023 76 670 8 0 0 0 670 >NEXT CHAPTER JUMP unconditional
67024 76 670 31 0 0 0 670 *FORMED ORDER*(1/1/3 IF PTS TO BE LOADEDJUMP unconditional
67025 5 670 18 0 0 0 670 TRANSFER
67026 101 23 1 2 0 subtract literal address
67027 4 670 23 0 0 0 670 STEP LOOP EXIT AUGMENT
67028 4 671 4 0 0 0 671 (CHAPT)>(CHAP') AUGMENT
67029 106 200 0 0 0 select (N)
67030 76 670 10 0 0 0 670 JUMP unconditional
67024>67031 126 18 1 2 0 STACK GUARD WORDS set modification register
67039>67032 106 67 0 2 0 select (N)
67033 70 670 38 0 0 0 670 JUMP IF A == 0
67034 5 670 8 0 0 0 670 TRANSFER
67035 101 15 1 3 0 select literal address
67036 124 670 8 0 3 0 670 modify address of next
67037 123 0 1 0 0 TAG 15 GUARD WORD copy into tag
67033>67038 125 2 0 2 0 step on and test
67039 76 670 32 0 0 0 670 JUMP unconditional
67040 671 3 0 0 0 671 24/1/0 23 SELECT
67041 101 0 1 2 0 -(SWITCH START) subtract literal address
67042 124 670 6 0 3 0 670 modify address of next
67043 103 35 0 1 0 24/1/0 SI*23 IN SI*35 copy (A) to N
67044 124 670 6 0 3 0 670 modify address of next
Source image: P1000472.JPG
67045 102 7 0 1 0 TO SI+7 transfer (A) to N
67046 102 16 0 0 0 CLEAR MODIFIERS transfer (A) to N
67047 124 670 6 1 1 0 670 MG 0 set modification group
67048 106 670 6 1 0 0 670 select (N)
67049 76 670 2 0 0 0 670 >CLEAR AND ENTER JUMP unconditional
67100 CONST 671 671 0 602 PARA FOR LOAD CHAPTER
67102 (B)64-; (11)PROG PSEUDOROUTE
67103 (D)88017-;
67104 (D)16773;
67105 53585;
67106 ;
67107 ;
67200 PROCR 672 672 603 ARRANGE PTS LOADING LOCATION 200 OF SPECIAL CHAP
67202 100 0 0 0 0 Halt
67212>67203 128 204 1 1 0 CLEAR 204-214 OF bulk copy long numeric
67204 124 670 8 1 0 0 670 SPECIAL CHAP unconditional jump
67255>67205 128 214 1 1 0 CLEAR 214-END OF SPECIAL CHAP bulk copy long numeric
67206 106 670 7 0 0 0 670 select (N)
67207 101 152 1 1 0 CLEAR FIRST 200 add literal address
67208 30 0 0 0 5 OF CHAPTER 1 SHIFT (A) BY QUARTETS
67209 124 20 0 3 0 modify address of next
67210 128 0 1 1 0 bulk copy long numeric
67211 106 672 14 1 0 0 672 select (N)
67212 124 672 3 1 0 0 672 unconditional jump
67213 100 0 0 0 0 Halt
67214 100 0 0 0 0 BULK CLEAR CONSTANT Halt
67215 102 10 0 0 0 transfer (A) to N
67216 107 670 41 0 0 0 670 FORM 'SUBTRACT SWITCH START' augment (N) by (A)
67217 124 16 0 2 0 FORM ABS ADDRESS INDIREST MOD REGISTER select literal and division
67218 5 670 22 0 0 0 670 TRANSFER
67219 124 670 6 0 3 0 670 SET UP 64 AND modify address of next
67220 106 64 0 0 0 (24)124 FOR USE select (N)
67221 102 198 0 0 0 transfer (A) to N
67222 124 670 6 0 3 0 670 modify address of next
67223 106 124 0 0 0 select (N)
67224 102 199 0 0 0 transfer (A) to N
67225 106 11 0 0 0 TEST PROGRAM TRIALS ALLOCATED select (N)
67226 70 672 46 0 0 0 672 >NO JUMP IF A == 0
67227 101 0 1 3 0 (28)TEST PTS IN MASTER CODING select literal address
67228 70 672 46 0 0 0 672 >YES JUMP IF A == 0
67229 672 56 0 0 0 672 ARRANGE FOR PTS SELECT
67230 102 670 24 0 0 0 670 LOADING PROCEDURE transfer (A) to N
67231 35 0 0 0 1111 COLLATION CONST PREPARE FOR DIGIT COLLATION
67232 36 672 58 0 0 0 672 PTS BEGINNING AND COLLATE AND ADD
67233 124 670 6 0 3 0 670 SET UP PARA 2 modify address of next
67234 103 2 0 0 0 15 BIT START PTS copy (A) to N
67235 102 200 0 0 0 END FOR LOADING transfer (A) to N
67236 124 200 0 3 0 SET UP PARA 1 modify address of next
67237 101 0 1 3 0 13 BIT START PTS select literal address
67238 124 670 6 0 3 0 670 modify address of next
67239 102 1 0 0 0 transfer (A) to N
67240 124 20 0 3 0 PARA 47 15 BIT modify address of next
67241 105 165 0 0 0 START OF PRINT S/R subtract (N) from (A)
67242 1 672 59 0 0 0 672 ADD
67243 101 0 1 2 0 subtract literal address
67244 124 670 6 0 3 0 670 modify address of next
67245 106 47 0 0 0 select (N)
67228>
Source image: P1000473.JPG
67226>67246 124 20 0 3 0 TEST PRINT S/R modify address of next
67247 106 122 0 0 0 REQUIRED select (N)
67248 70 672 53 0 0 0 672 >NO JUMP IF A == 0
67249 106 672 57 0 0 0 672 SELECT BULK CLEAR select (N)
67250 30 0 0 0 5 TABLE ENTRY SHIFT (A) BY QUARTETS
67251 124 20 0 3 0 modify address of next
67252 124 169 1 0 0 >ENTER 'LOAD PRINT SR' IN CHAP 1 unconditional jump
67248>67253 106 672 57 0 0 0 672 select (N)
67254 30 0 0 0 5 SHIFT (A) BY QUARTETS
67255 124 672 5 1 0 0 672 >LOAD CHAPS unconditional jump
67256 106 670 5 0 0 0 670 select (N)
67257 102 286 0 0 0 transfer (A) to N
67258 100 0 0 0 0 43 Halt
67259 126 0 0 1 0 leave subroutine
67300 CONST 673 673 0 FIRST LEVEL PARAS FOR UNLOADER
67302 (B5)7(B3)1(B3)1(B3)1(B6)9; 101/1 START OF PG
67303 1,1,0,1,15; START OF 2ND ST TB
67304 1,1,1,1,54;
67305 1,0,1,0,9;
67306 0,1,0,0,9;
67307 0,1,1,1,9;
67308 0,1,1,0,9;
67309 1,0,0,1,54;
67310 0,1,1,0,0;
67311 1,7,1,0,8; REJ ALLOC COMM
67312 1,7,1,1,9; LOAD NEXT CHAP
67313 3,3,1,7,1; 102/5 LOAD NEXT CHAP
67314 0,1,1,0,9;
67315 0,1,0,1,15; UPDATE SWITCH S/R
67316 1,0,1,1,1;
67317 0,0,1,0,1;
67318 1,0,1,0,9;
67319 0,1,0,0,9;
67320 0,1,0,1,1;
67321 4,1,0,1,0;
67322 1,1,1,0,8;
67323 0,1,1,0,1; 103/1
67324 0,0,0,1,55; CD RTE TYPE
67325 1,7,6,1,0;
67326 0,1,0,1,9;
67327 1,1,0,1,57; USE OF ASS TABLE
67328 1,1,1,7,0; USE OF ASS TABLE
67329 1,0,1,7,1; USE OF ASS TABLE
67330 1,0,1,0,9; 104/1
67331 0,1,0,0,9;
67332 1,1,1,0,9;
67333 0,1,0,0,15; 105/6
67334 1,1,1,1,9;
67335 1,1,1,1,54;
67336 1,0,1,1,9; 106/3
67337 1,1,1,1,9;
67338 1,1,1,1,1;
67339 1,1,1,1,1;
67340 1,0,1,1,8;
67341 1,0,1,1,1;
67342 1,1,1,0,9; 107/3
67343 1,1,1,1,9;
67344 1,0,1,1,9;
67345 1,0,0,1,1;
Source image: P1000474.JPG
67346 7,0,1,1,9; XXX COMMENT
67347 0,1,1,0,1;
67348 1,0,1,0,63; 108/5 STRT OF STRE TB
67349 7,3,7,7,63; PRTY AND STR TAB STRT
67350 0,0,7,3,0; STORE TAB START
67351 0,0,0,0,56;
67352 7,0,0,0,0;
67353 7,6,6,6,54;
67400 CONST 674 674 0 FIRST LEVEL PARAS FOR ALLO STORAGE
67402 (B5)7(B3)1(B3)0(B3)6(B6)1; 202/1
67403 0,1,1,6,63;
67404 1,1,6,6,54;
67405 1,7,1,0,0; READ NEXT BLOCK S/R
67406 0,0,0,0,0;
67407 0,0,0,0,0;
67408 1,0,1,0,9; 203/1
67409 0,1,1,0,25;
67410 7,0,0,0,0; LOAD NEXT CHAP S/R
67411 0,0,7,0,8; 204/3 205/5 RTE 0 PSDO RT
67412 0,0,0,1,8;
67413 0,0,0,1,9;
67414 5,0,0,1,1;
67415 1,7,1,1,9;
67416 0,1,1,1,9;
67417 1,1,1,1,9;
67418 6,3,1,6,54;
67419 0,1,3,0,9;
67420 0,1,1,1,9; 206/6
67421 1,1,1,0,9;
67422 1,1,7,1,57;
67423 1,1,1,1,1;
67424 1,1,1,0,9;
67425 1,1,1,1,9;
67426 1,1,1,1,9;
67427 1,1,1,0,8;
67428 0,1,1,1,1;
67429 0,6,6,6,54;
67430 0,0,1,1,9;
67431 0,1,6,1,1;
67432 1,1,1,1,9;
67433 1,1,1,1,9;
67434 1,0,0,1,1;
67435 1,1,1,1,8; 207/2
67436 1,1,1,1,9;
67437 1,0,0,1,9;
67438 1,6,6,6,54;
67439 0,1,0,0,9;
67440 0,1,0,0,9;
67441 0,0,7,1,9;
67442 1,0,0,1,1; 208/2
67443 0,0,1,1,9;
67444 0,1,0,6,0; 209/5
67445 0,0,0,0,0;
67446 0,0,1,1,9; 210/3
67447 1,1,1,1,54;
67448 1,0,1,7,8; REJECT ALLO COMM
67449 1,0,0,1,9;
67450 1,0,6,6,54;
67451 1,0,1,1,8;
Source image: P1000475.JPG
67452 6,6,0,1,1;
67453 6,6,6,6,54;
67454 1,1,0,1,9; 211/3
67455 1,1,1,0,9;
67456 0,1,1,1,9;
67457 1,1,1,1,8;
67458 1,1,1,6,9;
67459 1,1,0,1,9;
67460 1,1,0,0,1;
67461 1,1,1,1,9;
67462 1,1,0,1,9;
67463 1,0,1,1,9;
67464 1,1,1,1,9;
67465 0,6,1,1,9; 212/3
67466 1,1,1,1,9;
67467 1,1,1,1,9;
67468 1,0,6,6,54;
67469 6,1,1,1,9; 213/2
67470 1,1,1,1,9;
67471 1,1,0,1,9;
67472 1,1,0,0,1;
67473 1,1,1,1,9;
67474 0,1,1,1,1; 214/4 215/4
67475 0,1,1,0,8;
67476 1,1,1,1,6;
67477 1,1,1,1,9;
67478 1,1,0,1,9;
67479 1,1,0,1,9; 216/5
67480 1,1,1,1,9;
67481 1,1,0,0,9;
67482 1,1,1,0,8;
67483 1,1,1,1,1;
67484 3,1,1,1,9;
67485 1,3,6,6,9; 217/5
67486 1,0,1,0,11;
67487 1,7,1,0,11; LOAD CHAP S/R
67488 0,1,3,0,54;
67489 1,1,1,0,9; 218/1
67490 1,1,0,1,1;
67491 1,6,6,6,54;
67492 1,1,1,1,9;
67493 1,1,1,0,9;
67494 1,0,0,0,9;
67495 1,1,1,0,0;
67496 0,0,0,0,6;
67497 7,6,6,6,54;
67500 CONST 675 675 0 FIRST LEVEL PARAS FOR ALLOC
67502 (B5)2(B3)0(B3)0(B3)1(B6)1; 301/0 302/3
67503 1,1,7,1,9;
67504 1,1,1,1,0;
67505 2,1,1,1,9;
67506 0,1,1,0,10;
67507 1,0,1,2,9;
67508 0,0,6,6,54; 303/1
67509 0,0,0,0,0;
67510 0,0,0,0,0;
67511 5,0,5,0,40; 304/1
67512 5,0,5,0,56; RUN NUMBER
67513 5,0,5,0,0; 306/5
Source image: P1000476.JPG
67514 1,1,2,0,2;
67515 1,2,1,2,0;
67516 1,0,1,1,9;
67517 1,1,0,1,1;
67518 0,1,0,2,1;
67519 0,1,1,1,9;
67520 1,2,2,0,0;
67521 1,2,1,7,15;
67522 1,1,1,1,16;
67523 1,0,0,2,18;
67524 1,3,1,0,9; 307/3
67525 2,1,1,1,8;
67526 1,0,1,1,56; READ NEXT BLOCK
67527 6,6,6,6,1;
67528 0,1,1,0,1; 308/4
67529 1,1,1,1,9; 8 OR MORE CH
67530 2,1,7,2,2;
67531 0,2,6,6,54;
67532 0,0,2,1,8;
67533 1,0,1,1,9;
67534 1,1,1,0,8;
67535 2,1,0,1,1;
67536 2,0,1,1,54;
67537 0,1,0,1,0; 309/2
67538 0,1,0,0,9;
67539 2,1,2,0,10;
67540 0,0,1,1,1;
67541 1,1,1,1,10;
67542 2,0,1,1,16;
67543 1,1,0,2,1;
67544 1,1,1,1,1;
67545 0,1,0,1,9;
67546 1,1,1,0,54;
67547 2,1,0,2,9;
67548 1,2,2,0,10; 310/2
67549 2,2,1,0,54;
67550 1,7,0,1,24; LOAD NEXT CHAP
67551 1,0,3,1,56; 311/6
67552 1,1,1,1,9;
67553 1,2,0,1,9;
67554 0,1,0,0,18;
67555 0,1,1,1,9;
67556 1,0,1,1,8;
67557 1,2,0,1,8;
67558 1,7,1,2,1; OD RTE TYPE
67559 1,1,0,7,10; CD RTE TYPE
67560 0,1,1,1,9;
67561 1,1,1,1,9;
67562 1,1,1,1,9;
67563 1,0,1,7,8; REJ ALLOC COMM
67564 1,1,1,0,8;
67565 2,1,0,1,1;
67566 0,1,1,1,9; 312/1
67567 1,1,0,1,1; 313/3
67568 1,0,1,1,8;
67569 1,1,1,1,9;
67570 1,0,1,0,1; 314/4
67571 0,1,0,1,0; 315/5
67572 0,0,1,0,0;
67573 0,1,0,7,0; 316/3 PROG RTE NO
Source image: P1000477.JPG
67574 0,0,0,0,0;
67575 0,0,0,0,56; PROG RTE NO
67576 0,0,0,0,0;
67577 0,0,0,0,56; PROG RTE NO
67578 5,0,5,0,40;
67579 0,0,7,6,54;
67600 CONST 676 676 0 FIRST LEVEL PARAS FOR ALLOC F/P TAG
67602 (B5)0(B3)2(B3)0(B3)1(B6)9; 402/1
67603 1,1,1,1,9;
67604 1,0,4,7,54;
67605 1,1,4,0,12;
67606 1,2,2,1,18;
67607 2,1,1,0,9;
67608 0,2,1,2,1;
67609 2,1,1,0,1;
67610 1,2,1,2,1;
67611 1,0,0,0,8;
67612 1,0,0,0,1;
67613 7,1,0,0,0; REJ ALLOC COMMENT
67614 2,0,2,2,0;
67615 2,0,0,2,1;
67616 1,1,1,1,8;
67617 1,0,1,1,9;
67618 0,1,2,1,54;
67619 0,0,0,1,1;
67620 0,1,0,1,1;
67621 1,1,1,0,8; 405/3
67622 1,0,1,1,9;
67623 1,0,1,0,15; 45/90K
67624 0,1,7,1,0;
67625 1,7,1,1,1; 406/4 45/90K IND
67626 0,1,2,0,9;
67627 1,1,1,1,1;
67628 0,1,0,6,54;
67629 2,0,1,2,17; 407/1
67630 1,2,1,1,0;
67631 0,0,6,6,54;
67632 1,1,1,0,1;
67633 6,0,1,1,0;
67634 0,2,0,1,8;
67635 0,0,2,0,17;
67636 1,3,6,6,54;
67637 6,6,1,2,8; 408/3 PRINT RT
67638 1,7,3,1,63; LOAD NEXT CHAP
67639 0,0,0,5,0; 409/1
67640 0,0,5,0,5;
67641 0,5,0,6,54;
67642 6,6,0,2,0;
67643 5,0,2,0,0;
67644 0,5,0,0,45; 410/1
67645 5,5,0,5,6;
67646 0,5,0,0,45;
67647 0,0,5,0,40;
67648 0,0,0,5,0;
67649 5,0,5,0,5;
67650 0,0,0,0,40;
67651 5,0,5,5,40;
67652 0,0,6,6,54;
67653 0,2,0,0,40; 410 ENDS ODD'COS 409 ENDS EVEN
Source image: P1000478.JPG
67654 2,0,0,0,0; 411/5
67655 0,0,0,0,7;
67656 0,0,7,7,0;
67657 0,0,0,0,0;
67658 0,0,0,0,62;
67659 1,0,1,0,9; 501/1
67700 CONST 677 677 0 FIRST LEVEL PARAS FOR SET UP PQ
67702 (B5)0(B3)6(B3)6(B3)6(B6)50;
67703 2,2,0,2,9;
67704 1,0,0,2,9;
67705 0,1,0,1,9;
67706 1,1,1,0,8;
67707 0,1,0,0,1;
67708 1,6,6,6,54;
67709 0,0,1,1,1;
67710 1,1,1,0,8;
67711 0,1,1,1,15; 502/5 UPDATE SWITCH S/R
67712 0,1,1,0,8;
67713 1,0,1,1,8;
67714 0,1,1,0,16; 503/5
67715 1,0,2,0,17;
67716 0,2,1,0,17;
67717 0,1,0,1,58;
67718 1,0,7,1,1; START OF PRIORITY TAB
67719 3,0,0,1,11; ROUTE CLOSED LINK
67720 1,0,1,1,0;
67721 1,2,1,2,9; 504/1
67722 0,0,1,2,8;
67723 1,2,1,1,0;
67724 1,2,0,1,9;
67725 0,1,1,0,1;
67726 3,7,0,0,2;
67727 1,7,1,1,34; 505/3
67728 0,2,1,1,16;
67729 2,1,0,2,10;
67730 0,0,1,0,8;
67731 1,1,7,1,56;
67732 1,0,6,6,54;
67733 1,1,0,1,2;
67734 0,0,7,1,57;
67735 2,0,1,0,0;
67736 1,1,1,3,6;
67737 1,2,1,2,18; 506/1
67738 2,0,0,1,18;
67739 2,0,1,0,2;
67740 1,0,1,6,54;
67741 1,2,0,0,10;
67742 1,0,0,2,18;
67743 0,2,0,0,10;
67744 0,2,2,0,16;
67745 2,0,2,2,17;
67746 1,7,1,0,2; REQUEST T/W S/R
67747 6,6,6,6,1; 507/5
67748 1,1,0,1,9;
67749 0,1,0,1,15; REQUEST T/W S/R
67750 0,0,2,1,57; T/W ANNEXE
67751 7,1,1,2,17; 508/3 EDIT TIME SR
67752 2,1,1,1,8;
67753 0,1,1,0,1;
Source image: P1000479.JPG
67754 1,1,0,0,10;
67755 1,0,0,1,1;
67756 7,1,2,1,11; PTS IN MASTER?
67757 0,1,0,2,8; 509/5
67758 2,0,1,0,54;
67759 2,1,0,2,11;
67760 3,1,7,1,16; 510/6 LOAD CHAP S/R
67761 1,0,0,1,1;
67762 1,0,1,7,57; LOG ROUTINE/RTE CLSD LK
67763 0,1,0,1,0; 511/5
67764 0,6,6,6,54;
67765 6,6,6,6,54;
67766 7,0,0,0,0; MOD GRP 3 STORE
67767 0,0,0,0,63; PRRTY AND STRE TABS
67768 0,0,0,0,63; CLOCK IND/T/W ANNEXE
67769 0,0,7,0,0; PTS CHAP START
67770 5,0,0,0,0; 513/1
67771 0,0,5,0,0;
67772 5,0,0,0,0;
67773 7,6,6,6,54;
67800 CONST 678 678 0 FIRST LEVEL PARAS OF FINAL CHUNK
67802 (B5)1(B3)1(B3)7(B3)3(B6)0; 601/1 RETURN AFTER PLS
67803 6,2,2,1,1;
67804 7,1,0,1,10; READ NEXT BLOCK
67805 1,7,0,2,9; LOAD CHAP S/R
67806 1,0,1,1,17;
67807 2,2,1,1,1;
67808 0,0,1,1,1;
67809 0,1,0,2,9;
67810 1,7,0,0,0;
67811 0,0,2,1,17;
67812 0,0,2,0,9; 603/1
67813 0,0,0,6,54;
67814 1,2,1,1,58;
67815 1,0,2,2,15; PTS IN MASTER
67816 1,1,1,0,9;
67817 3,2,2,0,11;
67818 2,0,1,2,11;
67819 2,0,1,1,2;
67820 0,1,0,1,8;
67821 7,0,7,6,54; PTS CHAP START
67900 CONST 679 679 0 SECOND LEVEL PARAS
67902 (B8)29(B6)31(B6)14; UNLOADER
67903 6,6,8;
67904 32,32,12;
67905 12,12,31;
67906 13,63,63;
67907 30,31,31;
67908 29,30,29;
67909 30,30,30;
67910 31,62,31; 2/ALLOC STORAGE
67911 31,30,7;
67912 6,11,28;
67913 28,48,30;
67914 14,6,62;
67915 32,29,28; 1/ALLOC ROUTES
67916 26,7,63;
67917 63,63,32;
Source image: P1000480.JPG
67918 6,6,33;
67919 33,14,24;
67920 24,63,63;
67921 24,62,29; 3/ALLOC F/P
67922 14,22,32;
67923 22,63,63;
67924 63,6,6;
67925 27,63,63;
67926 21,24,23;
67927 62,8,29; 2/SET UP PQ
67928 15,30,30;
67929 16,35,32;
67930 32,63,63;
67931 63,63,63; DUMMY WORD
67932 17,17,18;
67933 19,28,6;
67934 20,15,10;
67935 30,29,25;
67936 18,43,62;
67937 9,7,6; 1/LOAD CHAP
67938 11,24,28;
67939 43,62,63;
68000 PROCR 680 680 START OF PASS 4=READ/STORE PROCR START INDEX
68774>
71172>68002 152 152 2 0 0 0 152 OVERLAY
68003 C 776 2 0 0 0 776 CALL PASS 5
68004 0 27 13 0 0 0 SELECT
68005 70 680 8 0 0 0 680 >NOT 'TRAMDING' JUMP IF A == 0
68006 0 94 0 1 0 0 SELECT
68007 5 16 2 1 0 0 TRANSFER
68005>68008 52 5 0 0 0 0 TYPE 'PROG OUT' EDIT
68009 C 736 14 0 0 0 736
68010 0 27 12 0 0 0 SELECT
68011 70 680 18 0 0 0 680 >NO PTS JUMP IF A == 0
68012 10 0 0 0 4+677372 '+PTS' SELECT LITERAL
68013 5 5 12 1 0 0 TRANSFER
68014 0 732 24 1 0 0 732 DOUBLE LE SELECT
68015 5 5 14 1 0 0 TRANSFER
68016 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
68017 37 5 10 1 0 0 REPLACE SELECTED BITS
68011>68018 154 5 0 0 0 0 COMMENT IN LOG
68019 54 5 0 1 0 50 BULK CLEAR
68020 0 27 13 0 0 0 SELECT
68021 71 690 2 0 0 0 690 >'TRAMDING' JUMP IF A != 0
68022 54 26 0 1 0 1080 BULK CLEAR
68023 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL
68024 C 0 0 0 48 FOR PROCR STARTS
68040>68025 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
68026 C 0 0 0 144
68027 80 722 2 0 0 0 722 READ A6>SEC 9 ENTER SUBROUTINE
68028 55 9 4 2 0 8 BULK COPY
68029 C 11 0 2 0 0
68030 5 18 0 0 0 0 CLEAR CTR TRANSFER
68031 11 0 1 0 0 SELECT
68032 32 0 0 0 2- TEST TYPE AS EXPECTED SHIFT (AB) BY QUARTETS
68033 2 731 8 1 0 0 731 SUBTRACT
68034 70 680 41 0 0 0 680 >OK JUMP IF A == 0
68035 10 0 0 0 900000 SELECT LITERAL
68036 1 27 9 0 0 0 ADD
Source image: P1000481.JPG
68037 91 0 0 3 0 FOR REENTRY SET MODIFICATION REGISTER AT VARIABLE
68038 150 0 0 0 8 OFFER OPTIONS
68039 C 100 2 0 0 0 100 RE-ENTER PASS 0
68040 C 680 25 0 0 0 680 >READ NEXT BLOCK
68034>68041 9 0 2 0 0 SELECT
68042 5 712 2 0 0 0 712 CURRENT BLOCK SERIAL WL TRANSFER
68065>68043 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
68044 C 0 0 0 144
68063>68045 9 4 1 2 0 SELECT
68046 32 0 0 0 2- SHIFT (AB) BY QUARTETS
68047 2 731 8 1 0 0 731 'TYPE' SUBTRACT
68048 71 680 63 0 0 0 680 >STEP R2 JUMP IF A != 0
68049 32 0 0 0 2 SHIFT (AB) BY QUARTETS
68050 12 0 0 0 46 SUBTRACT LITERAL
68051 70 680 63 0 0 0 680 >6=C-PROCR JUMP IF A == 0
68052 12 0 0 0 1 SUBTRACT LITERAL
68053 70 680 63 0 0 0 680 >7=VALUES JUMP IF A == 0
68054 73 680 58 0 0 0 680 >TYPE 1-5 JUMP IF A < 0
68055 12 0 0 0 8 SUBTRACT LITERAL
68056 70 680 66 0 0 0 680 >END OF PROGM JUMP IF A == 0
68057 76 680 63 0 0 0 680 JUMP unconditional
68054>68058 9 6 2 2 0 SELECT
68059 5 26 0 0 0 0 TRANSFER
68060 9 8 2 2 0 START SELECT
68061 124 26 0 0 1 0 modify address of next
68062 5 26 0 0 0 0 TRANSFER
68057>
68053>
68051>
68048>68063 94 680 45 0 2 8 680 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
68064 80 722 2 0 0 0 722 >READ ENTER SUBROUTINE
68065 76 680 43 0 0 0 680 JUMP unconditional
68071>
68056>68066 46 A6 4 0 0 1 RUN BACK
68067 C 0 0 0
68072>68068 80 722 2 0 0 0 722 >READ ENTER SUBROUTINE
68069 712 2 0 0 0 712 SELECT
68070 2 9 0 2 0 0 SUBTRACT
68071 73 680 66 0 0 0 680 >RUN BACK FURTHER JUMP IF A < 0
68072 71 680 68 0 0 0 680 >GET TO REQUIRED BLOCK JUMP IF A != 0
68073 55 94 0 1 0 100 SECTION START ADDRESSES BULK COPY
68074 C 26 0 1 0 0
68075 101 204 1 3 0 select literal address
68076 5 26 1000 0 0 0 CONVERT TABLE START TRANSFER
68077 124 92 29 0 1 0 modify address of next
68078 26 1001 0 0 0 SELECT
68079 124 92 29 0 1 0 modify address of next
68080 5 72 17 0 0 0 (TO PRESERVE IT IN COPY) TRANSFER
68081 55 72 18 0 0 0 SWITCH PROCR STARTS BULK COPY
68082 C 26 1002 0 0 0
68083 C 92 29 0 0 0 (CHAPS INITIALLY)
68084 124 92 29 0 1 0 modify address of next
68085 72 2 0 0 0 SPECIAL CHAP LENGTH SELECT
68086 5 26 1001 0 0 0 SET START OF PRINT SR TRANSFER
68087 5 27 7 0 0 0 CLEAR TRANSFER
68100 PROCR 681 681 SET UP BLOCKS FOR PTS
68102 16 2 0 0 0 PROG ID SELECT
68103 5 8 6 2 0 0 TRANSFER
68104 16 3 0 0 0 PROG SERIAL SELECT
Source image: P1000482.JPG
68105 5 8 8 2 0 0 TRANSFER
68106 732 12 1 0 0 732 'FIEND' SELECT
68107 5 8 4 1 0 0 TRANSFER
68108 80 727 2 0 0 0 727 WRITE'FIEND'BLOCK ENTER SUBROUTINE
68109 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
68110 C 0 0 0 48
68111 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
68112 C 0 0 0 1000
68115>68113 0 26 0 0 1 0 PROCR START INDEX SELECT
68114 80 692 2 0 0 0 692 >OUT ENTER SUBROUTINE
68115 94 681 13 0 1 1 681 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
68116 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
68117 C 0 0 0 14 FOR CHAPTER ENDS ETC
68120>68118 92 10 0 1 0 SELECT
68119 80 692 2 0 0 0 692 >OUT ENTER SUBROUTINE
68120 94 681 18 0 1 1 681 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
68121 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
68122 C 0 0 0 40 FOR TRACE POINTS
68125>68123 25 2 0 1 0 SELECT
68124 80 692 2 0 0 0 692 >OUT ENTER SUBROUTINE
68125 94 681 23 0 1 1 681 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
68126 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
68127 C 0 0 0 100 FOR SECTIONS
68130>68128 15 0 0 1 0 SELECT
68129 80 692 2 0 0 0 692 >OUT ENTER SUBROUTINE
68130 94 681 28 0 1 1 681 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
68131 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
68132 C 0 0 0 36 FOR FILES AND TX AREAS
68135>68133 24 0 0 1 0 SELECT
68134 80 692 2 0 0 0 692 >OUT ENTER SUBROUTINE
68135 94 681 33 0 1 1 681 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
68136 80 727 2 0 0 0 727 WRITE FINAL BLOCK ENTER SUBROUTINE
68200 PROCR 682 682 CHAPTER HEADING BLOCK - THE FIRST ONE
68202 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
68203 C 0 0 0 48
68204 10 0 0 0 1 SELECT LITERAL
68205 5 16 16 0 0 0 TRANSFER
68206 52 8 4 0 0 0 EDIT
68207 C 738 2 0 0 0 738
68208 80 727 2 0 0 0 727 WRITE CHAP HEADING BLOCK ENTER SUBROUTINE
68209 52 5 2 0 0 0 EDIT
68210 C 738 12 0 0 0 738
68211 10 0 0 0 2 SELECT LITERAL
68212 3 16 16 0 0 0 COPY
68213 80 724 2 0 0 0 724 >PRINT CHAP HEADING ENTER SUBROUTINE
68214 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
68215 C 0 0 0 144
68216 76 683 3 0 0 0 683 >DEAL WITH FIRST'TYPE'BLOCK JUMP unconditional
68300 PROCR 683 683 ENTRY POINT
68301 NOTES RADIX B MAIN LOOP SELECT
68406>
68418>
68422>
68519>
69815>
70117>
70119>
70505>
70537>
70539>
70634>
70712>
70720>
70818>
70827>
Source image: P1000483.JPG
70831>68302 80 721 2 0 0 0 721 >GET NEXT ITEM ENTER SUBROUTINE
68216>68303 80 728 2 0 0 0 728 ENTER SUBROUTINE
68744>68304 11 0 1 0 0 SELECT
68305 32 0 0 0 2- SHIFT (AB) BY QUARTETS
68306 2 731 8 1 0 0 731 'TYPE' SUBTRACT
68307 71 695 2 0 0 0 695 >SWITCH NOT A 'TYPE' UNIT JUMP IF A != 0
68308 32 0 0 0 2 SHIFT (AB) BY QUARTETS
68309 12 0 0 0 48 SUBTRACT LITERAL
68310 72 686 2 0 0 0 686 (MUST BE 14=CHAP END) JUMP IF A >= 0
68311 11 0 0 0 8 ADD LITERAL
68312 84 695 2 0 0 0 695 SET SWITCH(ES) AT VARIABLE VALUE
68313 00 11 4 2 0 0 SELECT
68314 05 16 23 0 0 0 SPACE CTR FOR USE WITH VALUES TRANSFER
68315 11 2 2 0 0 SELECT
68316 80 729 2 0 0 0 729 TO DEC ENTER SUBROUTINE
68317 3 16 17 0 0 0 COPY
68318 5 733 6 0 0 0 733 STORE CURRENT PROCR TRANSFER
68319 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS
68400 PROCR 684 684 PRINT HEADING FOR INSTRUCTIONS
68401 NOTES RADIX B MAIN LOOP SELECT
68402 85 100 2 0 0 0 100 SWITCH R
68403 C 684 23 0 0 0 684 >PRINT
68404 C 684 5 0 0 0 684 >DON'T PRINT
68404>68405 0 11 2 2 0 0 PROCR SELECT
68406 70 683 2 0 0 0 683 >DON'T PRINT JUMP IF A == 0
68407 0 11 4 2 0 0 PROCR START SELECT
68408 80 729 2 0 0 0 729 TO DEC ENTER SUBROUTINE
68409 62 0 0 0 0 SET EXCESS CONSTANTS
68410 5 16 36 0 0 0 PROCR START TRANSFER
68411 52 5 2 0 8 0 EDIT
68412 C 738 16 0 0 0 738
68413 86 695 2 0 0 0 695 TYPE SELECT SWITCH R
68414 12 0 0 0 6 SUBTRACT LITERAL
68415 71 684 18 0 0 0 684 JUMP IF A != 0
68416 10 0 0 0 537354 'CTD' SELECT LITERAL
68417 5 5 2 1 8 0 TRANSFER
68415>68418 94 683 2 0 8 4 683 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
68419 80 724 2 0 0 0 724 >PRINT ENTER SUBROUTINE
68420 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL
68421 C 0 0 0 48
68422 76 683 2 0 0 0 683 JUMP unconditional
68403>68423 95 0 0 5 0 SELECT MODIFICATION REGISTER
68424 5 731 38 1 0 0 731 TRANSFER
68425 0 16 1 0 0 0 LINE PRINTED? SELECT
68426 70 684 28 0 0 0 684 >YES JUMP IF A == 0
68427 80 712 2 0 0 0 712 >O/P LINE ENTER SUBROUTINE
68426>68428 91 731 38 0 5 0 731 RESET R5 SET MODIFICATION REGISTER AT VARIABLE
68429 5 16 37 0 0 0 CLEAR SUBCTR TRANSFER
68430 86 695 2 0 0 0 695 TEST TYPE 1 SELECT SWITCH R
68431 12 0 0 0 1 SUBTRACT LITERAL
68432 71 685 2 0 0 0 685 IF NOT GO TO 728 JUMP IF A != 0
68433 0 731 28 1 0 0 731 SET UP'PROCEDURE' SELECT
Source image: P1000484.JPG
68434 34 731 30 1 0 0 731 SET (N) IN B
68435 76 685 15 0 0 0 685 JUMP unconditional
68500 PROCR 685 685 PRINT OTHER HEADINGS
68501 NOTES RADIX B MAIN LOOP SELECT
68432>68502 12 0 0 0 5 SUBTRACT LITERAL
68503 71 685 7 0 0 0 685 >NOT TYPE 6 JUMP IF A != 0
68504 10 0 0 0 5366657354 'CONTD' SELECT LITERAL
68512>68505 5 5 2 1 0 0 TRANSFER
68506 76 685 18 0 0 0 685 >PRINT JUMP unconditional
68503>68507 12 0 0 0 1 SUBTRACT LITERAL
68508 71 685 13 0 0 0 685 >NOT TYPE 7 JUMP IF A != 0
68509 90 0 0 8 0 (FOR SPECIAL PRINTING) SET MODIFICATION REGISTER AT LITERAL
68510 C 0 0 0 40
68511 10 0 0 0 7551637455 'VALUE' SELECT LITERAL
68512 76 685 5 0 0 0 685 JUMP unconditional
68508>68513 0 731 32 1 0 0 731 SELECT
68514 34 731 34 1 0 0 731 SET (N) IN B
68435>68515 100 16 18 1 0 0 copy registers
68516 52 5 2 0 0 0 EDIT
68517 C 738 42 0 0 0 738 HEADING BLOCK
68506>68518 80 724 2 0 0 0 724 ENTER SUBROUTINE
68519 76 683 2 0 0 0 683 JUMP unconditional
68600 PROCR 686 686 CHAPTER END
68601 NOTES RADIX B MAIN LOOP SELECT
68610>
68310>68602 80 721 2 0 0 0 721 GET NEXT ITEM ENTER SUBROUTINE
68603 80 728 2 0 0 0 728 ENTER SUBROUTINE
68604 11 0 1 0 0 SELECT
68605 2 731 20 1 0 0 731 BEW SUBTRACT
68606 70 721 4 0 0 0 721 >READ BLOCK, SR LINK STILL SET JUMP IF A == 0
68607 11 0 1 0 0 SELECT
68608 30 0 0 0 2- SHIFT (A) BY QUARTETS
68609 2 731 8 1 0 0 731 'TYPE' SUBTRACT
68610 71 686 2 0 0 0 686 >LOOP JUMP IF A != 0
68904>
68955>68611 735 10 0 0 0 735 £ IN Q5 SELECT
68612 5 8 4 2 1 0 =PARAMETER TRANSFER
68613 5 8 6 1 1 0 TRANSFER
68614 80 727 2 0 0 0 727 >WRITE ENTER SUBROUTINE
68615 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
68616 C 0 0 0 48
68617 0 16 1 0 0 0 SELECT
68618 70 687 2 0 0 0 687 JUMP IF A == 0
68619 80 712 2 0 0 0 712 >O/P LINE ENTER SUBROUTINE
68700 PROCR 687 687 NEW CHAPTER HEADING
68701 NOTES RADIX B MAIN LOOP SELECT
68618>68702 10 0 0 0 0 SELECT LITERAL
68703 5 16 28 0 0 0 TRANSFER
68704 5 16 37 0 0 0 CLEAR SERIAL SUB-CTR TRANSFER
68705 52 8 4 0 0 0 EDIT EDIT
68706 C 738 2 0 0 0 738
68707 0 16 16 0 0 0 SELECT
68708 80 730 2 0 0 0 730 >TO BIN ENTER SUBROUTINE
68709 5 8 4 2 0 0 BIN CHAP NUMBER ON MT TRANSFER
68710 85 100 2 0 0 0 100 SWITCH R
68711 C 687 16 0 0 0 687 >PRINT
68712 C 687 13 0 0 0 687 >DON'T PRINT
Source image: P1000485.JPG
68712>68713 80 724 2 0 0 0 724 > PRINT PROCR START LINE ENTER SUBROUTINE
68714 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL
68715 C 0 0 0 48
68711>68716 52 5 2 0 0 0 EDIT
68717 C 738 12 0 0 0 738
68718 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL
68719 C 0 0 0 40
68720 60 0 0 0 0 SET DECIMAL RADIX
68721 10 0 0 0 1 SELECT LITERAL
68722 4 16 16 0 0 0 STEP CHAP NUMBER (DEC) AUGMENT
68723 62 0 0 0 0 SET EXCESS CONSTANTS
68724 16 16 0 0 0 THIS CHAP (DEC) SELECT
68725 12 0 0 0 1 SUBTRACT LITERAL
68726 2 92 29 0 0 0 SPECIAL CHAP (DEC) SUBTRACT
68727 71 687 35 0 0 0 687 JUMP IF A != 0
68728 55 732 2 1 0 6 732 'EXTRA CHAPTER' BULK COPY
68729 C 5 10 1 0 0
68730 101 202 1 3 0 select literal address
68731 5 16 28 0 0 0 SET LINE SERIAL TRANSFER
68732 80 724 2 0 0 0 724 PRINT CHAP HEADING ENTER SUBROUTINE
68733 80 727 2 0 0 0 727 > WRITE CHAP HEADING ENTER SUBROUTINE
68734 76 688 2 0 0 0 688 > GENERATE SP CHAP JUMP unconditional
68727>68735 11 0 1 0 0 'TYPE (SOMETHING) ' SELECT
68736 2 731 4 1 0 0 731 'TYPE£' SUBTRACT
68737 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
68738 C 0 0 0 0 /////
68739 70 687 45 0 0 0 687 > END JUMP IF A == 0
68740 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
68741 C 0 0 0 48
68742 80 724 2 0 0 0 724 > PRINT NEW CHAP HEADING ENTER SUBROUTINE
68743 80 727 2 0 0 0 727 > WRITE NEW ENTER SUBROUTINE
68744 76 683 4 0 0 0 683 > TEST WHICH TYPE JUMP unconditional
68739>68745 27 7 0 0 0 CTR NEG ADDRESSES SELECT
68746 70 687 71 0 0 0 687 > NONE JUMP IF A == 0
68747 30 0 0 0 5 SHIFT (A) BY QUARTETS
68748 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
68749 54 5 2 1 0 46 BULK CLEAR
68750 80 724 2 0 0 0 724 ENTER SUBROUTINE
68751 80 724 2 0 0 0 724 ENTER SUBROUTINE
68752 80 724 2 0 0 0 724 3 BLANK LINES ENTER SUBROUTINE
68753 10 0 0 0 6955560000 'REF' SELECT LITERAL
68754 5 5 4 1 0 0 TRANSFER
68755 10 0 0 0 6769665369 'PROCR' SELECT LITERAL
68756 5 5 6 1 0 0 TRANSFER
68757 80 724 2 0 0 0 724 > HEADING ENTER SUBROUTINE
68767>68758 18 3 0 3 0 REF SELECT
68759 80 729 2 0 0 0 729 > DEC ENTER SUBROUTINE
68760 5 729 2 0 0 0 729 TRANSFER
68761 18 2 0 3 0 DEC PROCR SELECT
68762 5 724 2 0 0 0 724 TRANSFER
68763 62 0 0 0 0 SET EXCESS CONSTANTS
68764 52 5 4 0 0 0 EDIT
68765 C 736 10 0 0 0 736
68766 80 724 2 0 0 0 724 > PRINT ENTER SUBROUTINE
68767 94 687 58 0 3 2 687 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
68768 80 724 2 0 0 0 724 > BLANKS ENTER SUBROUTINE
68769 80 724 2 0 0 0 724 ENTER SUBROUTINE
68770 80 724 2 0 0 0 724 ENTER SUBROUTINE
69165>
68746>68771 55 26 0 1 0 1000 PROCR START INDEX FOR 08005 BULK COPY
Source image: P1000486.JPG
68772 C 18 1000 1 0 0
68773 27 12 0 0 0 SELECT
68774 70 680 2 0 0 0 680 > PTS NOT NEEDED. CALL PASS 5 JUMP IF A == 0
68775 76 711 2 0 0 0 711 JUMP unconditional
68800 PROCR 688 688 GENERATE START OF SPECIAL CHAPTER
68734>68802 10 0 0 0 £00 SELECT LITERAL
68803 5 13 0 2 0 0 PARA TRANSFER
68804 101 202 1 3 0 select literal address
68805 5 13 2 2 0 0 TRANSFER
68806 80 714 2 0 0 0 714 > O/P ENTER SUBROUTINE
68807 10 0 0 0 14 20 SELECT LITERAL
68808 92 0 0 5 0 SET MODIFIER AT VARIABLE
68809 10 0 0 0 0 SELECT LITERAL
68810 5 13 0 2 0 0 TRANSFER
68811 5 13 2 2 0 0 TRANSFER
68812 80 710 2 0 0 0 710 ENTER SUBROUTINE
68813 80 710 2 0 0 0 710 O/P LOCNS 202 203 BLANK ENTER SUBROUTINE
68900 PROCR 689 689 CALCULATE CONVERT TABLE
68902 92 7 0 0 0 SELECT
68903 30 0 0 0 5 SHIFT (A) BY QUARTETS
68904 70 686 11 0 0 0 686 > NO TABLES JUMP IF A == 0
68905 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
68954>68906 99 0 1 3 0 NEXT OLD/NEW RADIX PAIR SELECT
68907 5 70 30 1 0 0 TRANSFER
68908 95 0 0 3 0 SELECT MODIFICATION REGISTER
68909 5 70 6 1 0 0 WL TRANSFER
68910 10 0 0 0 1 SELECT LITERAL
68911 5 70 8 1 0 0 FIRST TABLE ENTRY TRANSFER
68912 100 70 30 0 3 0 NEW RADIX set radix
68913 12 0 0 0 1 SUBTRACT LITERAL
68914 32 0 0 0 10- SHIFT (AB) BY QUARTETS
68915 10 0 0 0 0 SELECT LITERAL
68916 32 0 0 0 10 SHIFT (AB) BY QUARTETS
68917 5 70 0 1 0 0 LARGEST NUMBER IN NEW RADIX TRANSFER
68918 100 70 31 0 3 0 OLD RADIX set radix
68919 12 0 0 0 1 SUBTRACT LITERAL
68920 62 0 0 0 0 BIN SET EXCESS CONSTANTS
68921 5 70 2 1 0 0 > COMPLEMENT TRANSFER
68922 0 70 31 0 0 0 OLD RADIX SELECT
68923 5 70 2 0 0 0 TRANSFER
68924 34 70 2 1 0 0 (8) = 10QTTS OF OLD EXCESS CONSTS SET (N) IN B
68925 90 0 0 4 0 SET MODIFICATION REGISTER AT LITERAL
68926 C 0 0 0 18 CALC 9 TE'S
68943>68927 36 735 13 0 0 0 735 Q1 COLLATE AND ADD
68928 5 70 4 0 0 0 EC Q1 - FORM 16-EC:0 TRANSFER
68929 2 70 4 0 0 0 FOR MR SUBTRACT
68930 11 0 0 0 10 ADD LITERAL
68931 30 0 0 0 5 SHIFT (A) BY QUARTETS
68932 5 70 2 1 0 0 TRANSFER
68933 91 70 2 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
68934 100 70 30 0 3 0 SET NEW RADIX set radix
68935 2 70 0 1 0 0 LARGEST NO IN NEW RADIX SUBTRACT
68938>68936 1 70 8 1 4 0 ADD
68937 72 689 56 0 0 0 689 > WILL GET O'FLOW JUMP IF A >= 0
68938 94 689 36 0 3 1 689 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
68939 1 70 0 1 0 0 ADD
68957>68940 5 70 10 1 4 0 STORE NEXT TE TRANSFER
68941 62 0 0 0 0 SET BINARY SET EXCESS CONSTANTS
Source image: P1000487.JPG
68942 32 0 0 0 1- FOR NEXT QTT OF OLD RADIX SHIFT (AB) BY QUARTETS
68943 94 689 27 0 4 2 689 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
68944 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
68945 C 0 0 0 20
68952>68946 0 70 8 0 3 0 SELECT
68947 5 13 2 2 0 0 TRANSFER
68948 80 710 2 0 0 0 710 ENTER SUBROUTINE
68949 0 70 9 0 3 0 SELECT
68950 5 13 2 2 0 0 TRANSFER
68951 80 710 2 0 0 0 710 ENTER SUBROUTINE
68952 94 689 46 0 3 2 689 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
68953 91 70 6 0 3 0 RESTORE R3 SET MODIFICATION REGISTER AT VARIABLE
68954 94 689 6 0 3 2 689 >NEXT CONVERT TABLE STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
68955 76 686 11 0 0 0 686 >FINISH THE EXTRA CHAPTER JUMP unconditional
68937>68956 0 734 40 1 0 0 734 ALL THE £'S SELECT
68957 76 689 40 0 0 0 689 >STORE INFINITY AS TABLE ENTRY JUMP unconditional
69000 PROCR 690 690 DIRECTORY ENTRY FROM PASS 5-DEAL WITH END OF INTERCODE*PLS
68021>69002 16 2 0 0 0 GENERATE INDEX DETAILS SELECT
69003 3 8 4 2 0 0 COPY
69004 5 8 12 2 0 0 TRANSFER
69005 16 3 0 0 0 SELECT
69006 3 8 6 2 0 0 COPY
69007 5 8 14 2 0 0 TRANSFER
69008 10 0 0 0 2 SELECT LITERAL
69009 5 8 10 2 0 0 PASS 1 IDENTIFIER TRANSFER
69010 10 0 0 0 3 SELECT LITERAL
69011 5 8 18 2 0 0 PASS 3 IDENTIFIER TRANSFER
69012 10 0 0 0 4 SELECT LITERAL
69013 5 8 16 2 0 0 TRANSFER
69014 734 40 0 0 0 734 '£££££' SELECT
69015 5 8 20 2 0 0 TRANSFER
69016 80 727 2 0 0 0 727 >WRITE ENTER SUBROUTINE
69020>
69024>69017 80 694 2 0 0 0 694 A1-7 ENTER SUBROUTINE
69018 7 4 2 0 0 TEST 'SENTINEL5' SELECT
69019 2 734 40 0 0 0 734 '£££££' SUBTRACT
69020 71 690 17 0 0 0 690 >NO JUMP IF A != 0
69021 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
69022 36 7 6 2 0 0 COLLATE AND ADD
69023 12 0 0 0 5 SUBTRACT LITERAL
69024 71 690 17 0 0 0 690 >NO JUMP IF A != 0
69025 16 3 0 0 0 SELECT
69026 5 7 10 2 0 0 PROG SERIAL TRANSFER
69031>69027 80 704 2 0 0 0 704 >WRITE ENTER SUBROUTINE
69028 80 694 2 0 0 0 694 >READ ENTER SUBROUTINE
69029 7 42 1 0 0 SELECT
69030 12 0 0 0 5163636653 'ALLOC' SUBTRACT LITERAL
69031 71 690 27 0 0 0 690 JUMP IF A != 0
69032 7 12 2 0 0 CHAPS INITIALLY SELECT
69033 3 92 9 0 0 0 COPY
69034 5 92 29 0 0 0 TRANSFER
69035 16 3 0 0 0 SELECT
69036 5 7 40 2 0 0 NEW PROG SERIAL TRANSFER
69041>69037 80 704 2 0 0 0 704 >WRITE ENTER SUBROUTINE
69038 80 694 2 0 0 0 694 >READ ENTER SUBROUTINE
69039 7 4 1 0 0 SELECT
69040 2 732 12 1 0 0 732 'FIEND' SUBTRACT
69041 71 690 37 0 0 0 690 >NOT YET JUMP IF A != 0
69042 16 3 0 0 0 SELECT
Source image: P1000488.JPG
69043 5 7 8 2 0 0 TRANSFER
69044 80 704 2 0 0 0 704 ENTER SUBROUTINE
69100 PROCR 691 691 STORE 08005 DATA,ALIGN FILES,COPY M/CODE PROGRAM
69102 90 0 0 2 0 TRICK SET MODIFICATION REGISTER AT LITERAL
69103 C 0 0 0 2
69104 90 0 0 1 0 FOR PROCR START INDEX SET MODIFICATION REGISTER AT LITERAL
69105 C 0 0 0 1000
69108>69106 80 693 2 0 0 0 693 >GET ENTER SUBROUTINE
69107 5 26 0 0 1 0 TRANSFER
69108 94 691 6 0 1 1 691 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
69109 90 0 0 1 0 FOR CHAP DETAILS SET MODIFICATION REGISTER AT LITERAL
69110 C 0 0 0 14
69113>69111 80 693 2 0 0 0 693 >GET ENTER SUBROUTINE
69112 5 92 10 0 1 0 TRANSFER
69113 94 691 11 0 1 1 691 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
69114 90 0 0 1 0 FOR TRACE POINTS SET MODIFICATION REGISTER AT LITERAL
69115 C 0 0 0 40
69118>69116 80 693 2 0 0 0 693 >GET ENTER SUBROUTINE
69117 5 25 2 0 1 0 TRANSFER
69118 94 691 16 0 1 1 691 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
69119 90 0 0 1 0 FOR SECTIONS SET MODIFICATION REGISTER AT LITERAL
69120 C 0 0 0 100
69123>69121 80 693 2 0 0 0 693 >GET ENTER SUBROUTINE
69122 5 15 0 0 1 0 TRANSFER
69123 94 691 21 0 1 1 691 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
69124 90 0 0 1 0 FOR FILES AND TX AREAS SET MODIFICATION REGISTER AT LITERAL
69125 C 0 0 0 36
69128>69126 80 693 2 0 0 0 693 >GET ENTER SUBROUTINE
69127 5 24 0 0 1 0 TRANSFER
69128 94 691 26 0 1 1 691 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
69161>69129 80 694 2 0 0 0 694 >READ A1 ENTER SUBROUTINE
69130 7 12 1 0 0 SELECT
69131 2 731 2 1 0 0 731 'CHAPT' SUBTRACT
69132 70 691 58 0 0 0 691 >HEADING BLOCK JUMP IF A == 0
69133 7 4 1 0 0 SELECT
69134 2 731 2 1 0 0 731 'CHAPT' SUBTRACT
69135 70 691 62 0 0 0 691 >TRIAL DATA START JUMP IF A == 0
69136 1 731 2 1 0 0 731 ADD
69137 2 731 6 1 0 0 731 'FILES' SUBTRACT
69138 70 691 62 0 0 0 691 >PM POINTS START JUMP IF A == 0
69139 1 731 6 1 0 0 731 ADD
69140 12 0 0 0 55 'E' SUBTRACT LITERAL
69141 70 691 55 0 0 0 691 >YES JUMP IF A == 0
69142 7 12 1 0 0 SELECT
69143 12 0 0 0 535851675+ (PTS HEADING) SUBTRACT LITERAL
69144 71 691 60 0 0 0 691 >NO JUMP IF A != 0
69154>69145 80 694 2 0 0 0 694 (DRAIN OLD PTS PART ONE) ENTER SUBROUTINE
69146 7 4 1 0 0 SELECT
69147 2 731 2 1 0 0 731 'CHAPT' SUBTRACT
69148 70 691 62 0 0 0 691 JUMP IF A == 0
69149 1 731 2 1 0 0 731 ADD
69150 2 731 6 1 0 0 731 'FILES' SUBTRACT
69151 70 691 62 0 0 0 691 JUMP IF A == 0
69152 1 731 6 1 0 0 731 ADD
69153 12 0 0 0 55 'E' SUBTRACT LITERAL
69154 71 691 45 0 0 0 691 JUMP IF A != 0
69141>69155 5 27 3 0 0 0 SET'NO B/FWD TRIAL DATA' TRANSFER
69156 41 A1 0 0 0 1 CLOSE I/P CLOSE FILE
69157 76 691 64 0 0 0 691 JUMP unconditional
Source image: P1000489.JPG
69132>69158 16 3 0 0 0 SELECT
69159 5 7 10 2 0 0 TRANSFER
69144>69160 80 704 2 0 0 0 704 >WRITE ENTER SUBROUTINE
69161 76 691 29 0 0 0 691 JUMP unconditional
69151>
69148>
69138>
69135>69162 10 0 0 0 1 SELECT LITERAL
69163 5 27 3 0 0 0 SET'DATA PRESENT' TRANSFER
69157>69164 40 A6 0 0 0 1 OPEN FILE
69165 76 687 71 0 0 0 687 JUMP unconditional
69200 PROCR 692 692 WRITE PTS BLOCK TO A2
69202 81 692 2 0 0 0 692 START OF SUBROUTINE
69203 5 8 4 2 2 0 TRANSFER
69204 94 692 8 0 2 2 692 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
69205 80 727 2 0 0 0 727 WRITE->A2 ENTER SUBROUTINE
69206 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
69207 C 0 0 0 48
69204>69208 82 692 2 0 0 0 692 END OF SUBROUTINE / LEAVE SUBROUTINE
69300 PROCR 693 693 READ/STORE NEXT'FIEND'ITEM
69302 81 693 2 0 0 0 693 START OF SUBROUTINE
69303 94 693 8 0 2 2 693 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
69304 80 694 2 0 0 0 694 READ A1-7 ENTER SUBROUTINE
69305 80 704 2 0 0 0 704 COPY 7->8->A2 ENTER SUBROUTINE
69306 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
69307 C 0 0 0 48
69303>69308 7 4 2 2 0 SELECT
69309 82 693 2 0 0 0 693 END OF SUBROUTINE / LEAVE SUBROUTINE
69400 PROCR 694 694 READ A1-7
69402 81 694 2 0 0 0 694 START OF SUBROUTINE
69403 42 A1 0 0 0 0 INPUT
69404 C 7 0 0 0 0
69405 82 694 2 0 0 0 694 END OF SUBROUTINE / LEAVE SUBROUTINE
69500 PROCR 695 695 'TYPE'SWITCH
69501 NOTES RADIX B MAIN LOOP SELECT
68307>69502 85 695 2 0 0 0 695 SWITCH R
69503 C 696 2 0 0 0 696 INSTRUCTIONS
69504 C 702 2 0 0 0 702 TABLE ENTRIES
69505 C 706 2 0 0 0 706 PROGRAMME CONSTS
69506 C 706 2 0 0 0 706 TABLE STARTS
69507 C 707 2 0 0 0 707 FORMED CONST
69508 C 696 2 0 0 0 696 6=C-PROCR
69509 C 708 2 0 0 0 708 7=VALUES
69600 PROCR 696 696 TEST FOR SEQUENCE CHANGE
69601 NOTES RADIX B INSTRUCTIONS SELECT
69508>
69503>69602 11 4 2 0 0 SELECT
69603 32 0 0 0 2- SHIFT (AB) BY QUARTETS
69604 5 16 18 0 0 0 REF TRANSFER
69605 33 0 0 0 1 SHIFT (AB) BY BITS
69606 5 16 24 0 0 0 NEG ITEM IND TRANSFER
69607 33 0 0 0 7 SHIFT (AB) BY BITS
69608 5 13 0 2 0 0 PARA TRANSFER
69609 34 11 6 2 0 0 ADM+ITEM SET (N) IN B
69610 11 2 2 0 0 TEST FOR SEQUENCE CHANGE SELECT
Source image: P1000490.JPG
69611 70 697 2 0 0 0 697 >NOT SEQ CHANGE OR MR ENTRY JUMP IF A == 0
69612 12 0 0 0 1 SUBTRACT LITERAL
69613 70 699 2 0 0 0 699 >IS SEQ CHANGE JUMP IF A == 0
69614 12 0 0 0 1 SUBTRACT LITERAL
69615 71 696 27 0 0 0 696 >NOT ACTION 16/0/0 JUMP IF A != 0
69616 36 735 3 0 0 0 735 BITS 1-13 COLLATE AND ADD
69617 5 16 19 0 0 0 MODULUS OF ITEM TRANSFER
69618 34 16 24 0 0 0 SET (N) IN B
69619 74 696 22 0 0 0 696 >POSITIVE ITEM JUMP IF AB == 0 // 27, 1, 0
69620 1 16 19 0 0 0 ADD
69621 76 696 23 0 0 0 696 JUMP unconditional
69619>69622 2 16 19 0 0 0 SUBTRACT
69621>69623 124 16 18 0 1 0 REF modify address of next
69624 2 26 0 0 0 0 SUBTRACT
69625 5 13 2 2 0 0 TRANSFER
69626 76 698 12 0 0 0 698 >O/P JUMP unconditional
69615>69627 0 11 2 2 0 0 SELECT
69628 5 13 0 2 0 0 COPY IND AS PARA TRANSFER
69700 PROCR 697 697 INSTRUCTIONS
69701 NOTES RADIX B INSTRUCTIONS SELECT
69611>69702 36 735 3 0 0 0 735 BITS 1-13 COLLATE AND ADD
69703 5 16 19 0 0 0 MODULUS OF ITEM TRANSFER
69704 11 6 2 0 0 SELECT
69705 5 13 2 2 0 0 TRANSFER
69706 34 16 24 0 0 0 SET (N) IN B
69707 74 697 10 0 0 0 697 >NOT NEGATIVE ITEM JUMP IF AB == 0 // 27, 1, 0
69708 2 16 19 0 0 0 SUBTRACT
69709 5 16 19 0 0 0 (SET SIGN) TRANSFER
69707>69710 16 19 0 0 0 SELECT
69711 124 16 18 0 1 0 modify address of next
69712 1 26 0 0 0 0 PROCR START ADD
69713 73 698 2 0 0 0 698 >REPORT JUMP IF A < 0
69714 34 735 3 0 0 0 735 BITS 1-13 SET (N) IN B
69715 37 13 2 2 0 0 REPLACE SELECTED BITS
69716 76 698 12 0 0 0 698 JUMP unconditional
69800 PROCR 698 698 REPORT ACTION WITH NEGATIVE ITEM
69801 NOTES RADIX B ACTION DETAILS SELECT
69713>69802 10 0 0 0 78000- 23/1/0 ACTION FOR LOCKOUT SELECT LITERAL
69803 5 13 2 2 0 0 TRANSFER
69804 5 13 0 2 0 0 TRANSFER
69805 91 27 7 0 3 0 CTR SET MODIFICATION REGISTER AT VARIABLE
69806 16 18 0 0 0 THIS REF SELECT
69807 30 0 0 0 5 SHIFT (A) BY QUARTETS
69808 1 733 6 0 0 0 733 CURRENT PROCR ADD
69809 5 18 2 1 3 0 TRANSFER
69810 10 0 0 0 2 SELECT LITERAL
69811 4 27 7 0 0 0 STEP CTR AUGMENT
69922>
69924>
69716>
69626>69812 80 714 2 0 0 0 714 EDIT+WRITE INSTRUCTION ENTER SUBROUTINE
69813 85 100 2 0 0 0 100 SWITCH R
69814 C 700 2 0 0 0 700 >PRINT
69815 C 683 2 0 0 0 683 >DON'T PRINT
69900 PROCR 699 699 SEQUENCE CHANGES
69901 NOTES RADIX B INSTRUCTIONS SELECT
69613>69902 0 735 15 0 0 0 735 FLIPFLOP SELECT
Source image: P1000491.JPG
69903 70 699 7 0 0 0 699 BOTTOM 10 BITS JUMP IF A == 0
69904 0 18 0 0 12 0 SELECT
69905 31 0 0 0 10- SHIFT (A) BY BITS
69906 76 699 9 0 0 0 699 JUMP unconditional
69903>69907 34 735 14 0 0 0 735 BITS 1-10 SET (N) IN B
69908 36 18 0 0 12 0 COLLATE AND ADD
69906>69909 124 16 18 0 1 0 ITEM WITHIN PROCR IN A modify address of next
69910 1 26 0 0 0 0 ADD
69911 5 16 18 0 0 0 =SEQ CHANGE ADDRESS TRANSFER
69912 34 11 6 2 0 0 SET (N) IN B
69913 36 735 4 0 0 0 735 BITS 14-20+SIGN COLLATE AND ADD
69914 73 699 17 0 0 0 699 JUMP IF A < 0
69915 1 16 18 0 0 0 ADD
69916 76 699 18 0 0 0 699 JUMP unconditional
69914>69917 2 16 18 0 0 0 SUBTRACT
69916>69918 5 13 2 2 0 0 TRANSFER
69919 10 0 0 0 1 SELECT LITERAL
69920 2 735 15 0 0 0 735 SUBTRACT
69921 3 735 15 0 0 0 735 REVERSE FLIPFLOP COPY
69922 71 698 12 0 0 0 698 >NOW ADDRESSES TOP 10 BITS JUMP IF A != 0
69923 94 0 0 12 1- STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
69924 76 698 12 0 0 0 698 >SAFETY JUMP unconditional
70000 PROCR 700 700 DECODE INSTRUCTION FOR PRINTING
70001 NOTES RADIX B INSTRUCTIONS SELECT
69814>70002 34 13 2 2 0 0 (A IS CLEAR) SET (N) IN B
70003 32 0 0 0 6 SHIFT (AB) BY QUARTETS
70004 5 16 21 0 0 0 ACTION TRANSFER
70005 33 0 0 0 1 SHIFT (AB) BY BITS
70006 5 16 25 0 0 0 DISC TRANSFER
70007 33 0 0 0 2 SHIFT (AB) BY BITS
70008 5 16 26 0 0 0 MOD TRANSFER
70009 33 0 0 0 13 SHIFT (AB) BY BITS
70010 5 16 24 0 0 0 ADDRESS TRANSFER
70011 0 13 2 2 0 0 SELECT
70012 72 701 2 0 0 0 701 >POSITIVE ACTION JUMP IF A >= 0
70013 10 0 0 0 10 16 SELECT LITERAL
70014 4 16 21 0 0 0 AUGMENT
70100 PROCR 701 701 CONVERT FOR PRINT
70101 NOTES RADIX B INSTRUCTIONS SELECT
70012>70102 0 13 0 2 0 0 PARA SELECT
70103 80 729 2 0 0 0 729 >CONVERT TO DEC ENTER SUBROUTINE
70104 5 13 4 0 0 0 TRANSFER
70105 0 16 24 0 0 0 ADDRESS SELECT
70106 80 729 2 0 0 0 729 TO DEC ENTER SUBROUTINE
70107 5 13 2 1 0 0 TRANSFER
70108 0 16 21 0 0 0 ACTION SELECT
70109 80 729 2 0 0 0 729 TO DEC ENTER SUBROUTINE
70110 5 13 0 1 0 0 TRANSFER
70111 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS
70112 52 5 4 0 5 0 EDIT
70113 C 739 2 0 0 0 739
70114 10 0 0 0 1 SELECT LITERAL
70115 4 16 37 0 0 0 AUG SUBCTR AUGMENT
70116 5 16 1 0 0 0 TRANSFER
70117 94 683 2 0 5 10 683 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
70118 80 712 2 0 0 0 712 >O/P LINE ENTER SUBROUTINE
70119 76 683 2 0 0 0 683 JUMP unconditional
Source image: P1000492.JPG
70200 PROCR 702 702 FORM ADDRESS
70201 NOTES RADIX B SELECT
69504>70202 11 0 2 0 0 SELECT
70203 32 0 0 0 2- SELECT REFERENCE SHIFT (AB) BY QUARTETS
70204 5 16 18 0 0 0 TRANSFER
70205 33 0 0 0 1 SHIFT (AB) BY BITS
70206 5 16 21 0 0 0 NEW ITEM IND TRANSFER
70207 33 0 0 0 7 SHIFT (AB) BY BITS
70208 3 13 0 2 0 0 COPY
70209 5 13 4 2 0 0 PARAMETER TRANSFER
70300 PROCR 703 703 DEAL WITH 2ND ITEM FOR CONDENSE
70301 NOTES RADIX B SELECT
70302 11 6 1 0 0 SELECT
70303 5 13 6 1 0 0 STORE Q'S AND I'S TRANSFER
70304 11 4 2 0 0 SELECT
70305 70 703 26 0 0 0 703 > NOT CONDENSE/UNPACK TABLE JUMP IF A == 0
70306 124 16 18 0 1 0 REF modify address of next
70307 0 26 0 0 0 0 SELECT
70308 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
70309 36 11 4 2 0 0 (POSITIVE) ITEM COLLATE AND ADD
70310 5 16 22 0 0 0 PROVISIONAL ADDRESS TRANSFER
70311 0 13 6 2 0 0 Q + I SELECT
70312 72 703 15 0 0 0 703 > NORMAL JUMP IF A >= 0
70313 2 16 22 0 0 0 SUBTRACT
70314 76 703 16 0 0 0 703 JUMP unconditional
70312>70315 1 16 22 0 0 0 ADD
70314>70316 5 13 6 2 0 0 SET SECOND ADDRESS + LTE TRANSFER
70317 34 16 21 0 0 0 '-0' IND SET (N) IN B
70318 74 703 27 0 0 0 703 > NO, CALC FIRST ADDRESS JUMP IF AB == 0 // 27, 1, 0
70319 2 13 6 2 0 0 SUBTRACT
70320 70 703 24 0 0 0 703 JUMP IF A == 0
70321 5 13 6 2 0 0 (SET SIGN BIT) TRANSFER
70322 5 16 21 0 0 0 TRANSFER
70323 76 703 27 0 0 0 703 JUMP unconditional
70320>70324 5 16 21 0 0 0 CLEAR THIS TRANSFER
70325 0 735 8 0 0 0 735 £ IN Q4 (MINUS ZERO) SELECT
70305>70326 5 13 4 2 0 0 CLEAR PARA - FIXED FIELD TRANSFER
70323>
70318>70327 124 16 18 0 1 0 REF modify address of next
70328 0 26 0 0 0 0 SELECT
70329 1 11 2 2 0 0 FIRST ITEM (ALWAYS > 0) ADD
70330 5 13 2 2 0 0 TRANSFER
70331 0 16 21 0 0 0 '-0' IND SELECT
70332 70 703 35 0 0 0 703 > NO JUMP IF A == 0
70333 0 735 8 0 0 0 735 £ IN Q4 SELECT
70334 5 13 4 2 0 0 SET SECOND PARA TRANSFER
70332>70335 80 714 2 0 0 0 714 > O/P MT ENTER SUBROUTINE
70336 0 13 0 2 0 0 PARA SELECT
70337 80 729 2 0 0 0 729 TO DEC ENTER SUBROUTINE
70338 5 16 22 0 0 0 TRANSFER
70339 34 13 2 2 0 0 SET (N) IN B
70340 32 0 0 0 6 DELETE B17 SHIFT (AB) BY QUARTETS
70341 10 0 0 0 0 (STERLING INDICATOR) SELECT LITERAL
70342 32 0 0 0 4 SHIFT (AB) BY QUARTETS
70343 80 729 2 0 0 0 729 TO DEC ENTER SUBROUTINE
70344 5 16 30 0 0 0 TRANSFER
70345 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS
70346 35 0 0 0 10000 Q5 PREPARE FOR DIGIT COLLATION
70347 36 13 2 2 0 0 STERLING IND COLLATE AND ADD
Source image: P1000493.JPG
70348 4 16 22 0 0 0 STORE WITH PARA AUGMENT
70349 13 4 1 0 0 SET UP SECOND HALF OF SELECT
70350 5 13 0 1 0 0 DETAILS FOR TRANSFER
70351 13 6 1 0 0 OUTPUT SELECT
70352 5 13 2 1 0 0 TRANSFER
70353 80 714 2 0 0 0 714 >O/P SECOND HALF ENTER SUBROUTINE
70354 76 705 2 0 0 0 705 JUMP unconditional
70400 PROCR 704 704 WRITE SEC 7->A2
70402 81 704 2 0 0 0 704 START OF SUBROUTINE
70403 55 7 4 1 0 50 BULK COPY
70404 C 8 4 1 0 0
70405 80 727 2 0 0 0 727 WRITE 8->A2 ENTER SUBROUTINE
70406 82 704 2 0 0 0 704 END OF SUBROUTINE / LEAVE SUBROUTINE
70500 PROCR 705 705
70501 NOTES RADIX SELECT
70354>70502 35 0 0 0 1111 Q1-4 0F INDS/QTTS PREPARE FOR DIGIT COLLATION
70503 85 100 2 0 0 0 100 SWITCH R
70504 C 705 6 0 0 0 705 >PRINT
70505 C 683 2 0 0 0 683 >DONT PRINT
70504>70506 36 13 2 2 0 0 COLLATE AND ADD
70507 80 729 2 0 0 0 729 TO DEC ENTER SUBROUTINE
70508 62 0 0 0 0 ITEM FOR SET EXCESS CONSTANTS
70509 5 731 38 0 0 0 731 CONDENSE TRANSFER
70510 5 13 22 0 0 0 CLEAR'LAST TE'IND TRANSFER
70511 13 2 2 0 0 QTTS+INDS SELECT
70512 73 705 16 0 0 0 705 > LAST TE JUMP IF A < 0
70513 13 0 2 0 0 SECOND PARA SELECT
70514 30 0 0 0 3- TEST Q 4 NON-ZERO SHIFT (A) BY QUARTETS
70515 70 705 18 0 0 0 705 > NOT LTE JUMP IF A == 0
70512>70516 10 0 0 0 1 SELECT LITERAL
70517 5 13 22 0 0 0 SET LTE IND TRANSFER
70515>70518 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
70519 C 0 0 0 5
70520 34 13 2 2 0 0 QTTS SET (N) IN B
70521 32 0 0 0 6 SHIFT (AB) BY QUARTETS
70524>70522 5 13 0 0 3 0 TRANSFER
70523 32 0 0 0 1 SHIFT (AB) BY QUARTETS
70524 94 705 22 0 3 1 705 STORE Q5-1 IN 13/0-4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
70525 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
70526 C 0 0 0 5
70530>70527 00 13 0 0 3 0 SELECT
70528 80 729 2 0 0 0 729 TO DECIMAL ENTER SUBROUTINE
70529 05 13 0 0 3 0 TRANSFER
70530 94 705 27 0 3 1 705 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
70531 62 0 0 0 0 SET EXCESS CONSTANTS
70532 52 5 4 0 5 0 EDIT
70533 C 738 22 0 0 0 738
70637>70534 10 0 0 0 2 SELECT LITERAL
70535 4 16 37 0 0 0 AUG SUBCTR AUGMENT
70536 5 16 1 0 0 0 TRANSFER
70537 94 683 2 0 5 20 683 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
70538 80 712 2 0 0 0 712 > O/P LINE ENTER SUBROUTINE
70539 76 683 2 0 0 0 683 JUMP unconditional
70600 PROCR 706 706
70601 NOTES RADIX B DEAL WITH PROGRAMME CONSTANTS AND FORMED TSL'S SELECT
69506>
69505>70602 90 0 0 4 0 SET MODIFICATION REGISTER AT LITERAL
Source image: P1000494.JPG
70603 C 0 0 0 8
70631>70604 11 0 2 4 0 SELECT
70605 32 0 0 0 2- SHIFT (AB) BY QUARTETS
70606 5 16 18 0 0 0 REF TRANSFER
70607 32 0 0 0 2 SHIFT (AB) BY QUARTETS
70608 5 13 0 2 0 0 PARA TRANSFER
70609 34 735 11 0 0 0 735 BIT 8 SET (N) IN B
70610 36 13 0 2 0 0 COLLATE AND ADD
70611 70 706 14 0 0 0 706 >NOT MINUS ZERO JUMP IF A == 0
70612 735 8 0 0 0 735 £ IN Q4 SELECT
70613 5 13 0 2 0 0 TRANSFER
70611>70614 86 695 2 0 0 0 695 SELECT SWITCH R
70615 12 0 0 0 3 SUBTRACT LITERAL
70616 71 706 22 0 0 0 706 >TABLE START JUMP IF A != 0
70617 0 11 2 2 4 0 PROGRAM CONST SELECT
70618 72 706 23 0 0 0 706 >POSITIVE ITEM JUMP IF A >= 0
70619 124 16 18 0 1 0 modify address of next
70620 2 26 0 0 0 0 PROCR START SUBTRACT
70621 76 706 25 0 0 0 706 JUMP unconditional
70616>70622 0 11 2 2 4 0 SELECT
70618>70623 124 16 18 0 1 0 modify address of next
70624 1 26 0 0 0 0 ADD
70621>70625 5 13 2 2 0 0 TRANSFER
70626 80 714 2 0 0 0 714 >O/P ENTER SUBROUTINE
70627 0 13 2 2 0 0 CONST SELECT
70628 5 13 4 0 4 0 STORE FOR PRINT TRANSFER
70629 0 13 0 2 0 0 PARA SELECT
70630 5 13 6 0 4 0 TRANSFER
70631 94 706 4 0 4 4 706 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
70632 85 100 2 0 0 0 100 SWITCH R
70633 C 706 35 0 0 0 706 >PRINT
70634 C 683 2 0 0 0 683 >DON'T PRINT
70633>70635 52 5 4 0 5 0 EDIT
70636 C 737 6 0 0 0 737
70637 76 705 34 0 0 0 705 >VIA TABLE ENTRIES JUMP unconditional
70700 PROCR 707 707 DEAL WITH TRANSLATOR'S FORMED LONG/SHORT CONSTS
70701 NOTES RADIX B FORMED CONSTS SELECT
69507>70702 90 0 0 4 0 4 CONSTANTS PER ITEM SET MODIFICATION REGISTER AT LITERAL
70703 C 0 0 0 8
70704 10 0 0 0 0 CLEAR PARA SELECT LITERAL
70705 5 13 0 2 0 0 TRANSFER
70709>70706 0 11 0 1 4 0 SELECT
70707 5 13 2 1 0 0 TRANSFER
70708 80 714 2 0 0 0 714 ENTER SUBROUTINE
70709 94 707 6 0 4 2 707 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
70710 85 100 2 0 0 0 100 SWITCH R
70711 C 707 13 0 0 0 707 >PRINT
70712 C 683 2 0 0 0 683 >DON'T PRINT
70711>70713 90 0 0 4 0 SET MODIFICATION REGISTER AT LITERAL
70714 C 0 0 0 8
70719>70715 0 11 0 2 4 0 SELECT
70716 5 13 4 0 0 0 TRANSFER
70717 5 13 6 0 0 0 TRANSFER
70718 80 709 2 0 0 0 709 ENTER SUBROUTINE
70719 94 707 15 0 4 2 707 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
70720 76 683 2 0 0 0 683 JUMP unconditional
70800 PROCR 708 708 VALUES
70801 NOTES RADIX B SELECT
Source image: P1000495.JPG
69509>70802 11 0 1 0 0 SELECT
70803 2 731 24 1 0 0 731 NOTES' SUBTRACT
70804 71 708 32 0 0 0 708 >NOT NEW REF/ITEM JUMP IF A != 0
70805 11 4 2 0 0 REF SELECT
70806 5 16 18 0 0 0 TRANSFER
70807 11 6 2 0 0 ITEM SELECT
70808 124 16 18 0 0 0 modify address of next
70809 1 26 0 0 0 0 ADD
70810 02 16 23 0 0 0 CURRENT VALUE OF STACKER SUBTRACT
70811 03 13 2 2 0 0 >DELTA COPY
70812 04 16 23 0 0 0 >NEW VALUE OF STACKER AUGMENT
70813 10 0 0 0 £00 SELECT LITERAL
70837>70814 5 13 0 2 0 0 PARA FOR DELTA TRANSFER
70815 80 714 2 0 0 0 714 WRITE ENTER SUBROUTINE
70816 85 100 2 0 0 0 100 SWITCH R
70817 C 708 19 0 0 0 708 >PRINT
70818 C 683 2 0 0 0 683 >DON'T PRINT
70817>70819 0 13 0 2 0 0 PARA SELECT
70820 5 13 6 0 0 0 TRANSFER
70821 0 13 2 2 0 0 VALUE SELECT
70822 5 13 4 0 0 0 TRANSFER
70823 10 0 0 0 1 SELECT LITERAL
70824 5 16 1 0 0 0 SET PRINT IND TRANSFER
70825 52 5 4 0 8 0 EDIT
70826 C 737 2 0 0 0 737
70827 94 683 2 0 8 10 683 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
70828 80 724 2 0 0 0 724 >PRINT ENTER SUBROUTINE
70829 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL
70830 C 0 0 0 40
70831 76 683 2 0 0 0 683 JUMP unconditional
70804>70832 10 0 0 0 1 SELECT LITERAL
70833 04 16 23 0 0 0 AUGMENT LOCN COUNTER AUGMENT
70834 00 11 6 2 0 0 SELECT
70835 5 13 2 2 0 0 VALUE TRANSFER
70836 11 4 2 0 0 PARA FOR VALUE SELECT
70837 76 708 14 0 0 0 708 JUMP unconditional
70900 PROCR 709 709 PRINT CONVERT TABLES+TRANSLATOR'S CONSTS
70902 81 709 2 0 0 0 709 START OF SUBROUTINE
70903 10 0 0 0 1 SELECT LITERAL
70904 4 16 37 0 0 0 AUGMENT
70905 5 16 1 0 0 0 TRANSFER
70906 52 5 4 0 5 0 EDIT
70907 C 737 2 0 0 0 737
70908 94 709 10 0 5 10 709 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
70909 80 712 2 0 0 0 712 >O/P LINE ENTER SUBROUTINE
70908>70910 82 709 2 0 0 0 709 END OF SUBROUTINE / LEAVE SUBROUTINE
71000 PROCR 710 710
71002 81 710 2 0 0 0 710 START OF SUBROUTINE
71003 80 714 2 0 0 0 714 >WRITE ENTER SUBROUTINE
71004 13 2 2 0 0 SELECT
71005 5 13 4 0 0 0 TRANSFER
71006 5 13 6 0 0 0 TRANSFER
71007 85 100 2 0 0 0 100 SWITCH R
71008 C 710 10 0 0 0 710 >PRINT
71009 C 710 11 0 0 0 710 >DON'T PRINT
71008>71010 80 709 2 0 0 0 709 >PRINT ENTER SUBROUTINE
71009>71011 82 710 2 0 0 0 710 END OF SUBROUTINE / LEAVE SUBROUTINE
Source image: P1000496.JPG
71100 PROCR 711 711 GENERATE PTS(1)
68775>71102 10 0 0 0 535851675+ (CHAP') SELECT LITERAL
71103 5 8 12 1 0 0 TRANSFER
71104 80 727 2 0 0 0 727 >WRITE ENTER SUBROUTINE
71105 124 741 2 0 2 0 741 ORDERS select literal and division
71106 91 0 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
71107 124 716 2 0 2 0 716 FIRST LEVEL PARAS select literal and division
71108 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
71109 124 720 2 0 2 0 720 SECOND LEVEL PARAS select literal and division
71110 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
71111 0 716 2 0 0 0 716 SELECT
71112 31 0 0 0 2 SHIFT (A) BY BITS
71113 5 713 11 0 0 0 713 TRANSFER
71114 0 720 2 0 0 0 720 SELECT
71115 31 0 0 0 2 SHIFT (A) BY BITS
71116 5 713 17 0 0 0 713 TRANSFER
71117 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL
71118 C 0 0 0 6
71119 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL
71120 C 0 0 0 3
71121 96 0 0 2 0 STORE CHUNK START FOR PARAS 1 AND 5 SELECT MODIFIER
71122 5 713 2 0 0 0 713 TRANSFER
71123 124 713 2 0 1 0 713 modify address of next
71124 101 0 1 3 0 select literal address
71125 5 713 6 0 0 0 713 CHUNK START TRANSFER
71197>71126 124 999 19 1 2 0 SEC 8 modify address of next
71127 124 0 0 2 0 select literal and division
71128 3 712 2 0 0 0 712 WL COPY
71129 101 48 1 1 0 add literal address
71130 30 0 0 0 5 SHIFT (A) BY QUARTETS
71131 1 712 2 0 0 0 712 WL ADD
71132 91 0 0 4 0 SET MODIFICATION REGISTER AT VARIABLE
71195>71133 124 713 4 0 3 0 713 STORE WORD modify address of next
71134 106 0 0 2 0 select (N)
71135 5 713 7 0 0 0 713 STORE WORD TRANSFER
71149>71136 34 713 10 1 0 0 713 FIRST LEVEL PARA WORD SET (N) IN B
71137 33 0 0 0 3 NEXT ONE TO A SHIFT (AB) BY BITS
71138 100 713 8 1 0 0 713 STORE (A) (B) copy registers
71139 94 711 47 0 5 1 711 TEST END OF PARA WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
71140 90 0 0 5 0 SET UP MR FOR SET MODIFICATION REGISTER AT LITERAL
71141 C 0 0 0 6 NEXT PARA WORD
71142 124 713 4 0 3 0 713 STORE PARA WORD modify address of next
71143 106 1 0 3 0 STORE PARA WORD select (N)
71144 33 0 0 0 2 RIGHT ALIGN WORD SHIFT (AB) BY BITS
71145 5 713 11 0 0 0 713 TRANSFER
71146 94 711 47 0 3 1 711 STEP PARAS MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
71146>
71139>71147 713 8 0 0 0 713 TEST DUMMY PARA SELECT
71148 12 0 0 0 6 SUBTRACT LITERAL
71149 70 711 36 0 0 0 711 >YES JUMP IF A == 0
71150 12 0 0 0 1 TEST SECOND LEVEL REQD SUBTRACT LITERAL
71151 71 711 75 0 0 0 711 >NO JUMP IF A != 0
71165>71152 34 713 16 1 0 0 713 SECOND LEVEL PARA WORD SET (N) IN B
71153 33 0 0 0 6 NEXT ONE TO A SHIFT (AB) BY BITS
71154 100 713 14 1 0 0 713 STORE (A) (B) copy registers
71155 94 711 63 0 8 1 711 TEST END OF PARA WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
71156 90 0 0 8 0 SET UP MR FOR SET MODIFICATION REGISTER AT LITERAL
71157 C 0 0 0 3 NEXT PARA WORD
71158 124 713 4 0 3 0 713 STORE PARA WORD modify address of next
71159 106 1 0 1 0 select (N)
Source image: P1000497.JPG
71160 33 0 0 0 2 RIGHT ALLIGN WORD SHIFT (AB) BY BITS
71161 5 713 17 0 0 0 713 TRANSFER
71162 94 711 63 0 1 1 711 STEP PARAS MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
71162>
71155>71163 713 14 0 0 0 713 TEST SECOND LEVEL SELECT
71164 101 63 1 2 0 PARA = 63(DUMMY) subtract literal address
71165 70 711 52 0 0 0 711 >YES JUMP IF A == 0
71166 101 1 1 1 0 TEST END SIGN(62) add literal address
71167 71 711 73 0 0 0 711 >NO JUMP IF A != 0
71168 713 4 1 0 0 713 STORE END SIGN SELECT
71169 5 4 1 4 0 TRANSFER
71170 5 6 1 4 0 TRANSFER
71171 80 727 2 0 0 0 727 >WRITE LAST BLOCK ENTER SUBROUTINE
71172 76 680 2 0 0 0 680 >CALL PASS 5 JUMP unconditional
71167>71173 713 14 1 0 0 713 STORE ACTUAL PARA SELECT
71174 5 713 8 1 0 0 713 VALUE TRANSFER
71151>71175 713 8 0 0 0 713 TEST PARA=1 SELECT
71176 12 0 0 0 1 SUBTRACT LITERAL
71177 70 711 80 0 0 0 711 >YES JUMP IF A == 0
71178 12 0 0 0 1 SUBTRACT LITERAL
71179 71 711 90 0 0 0 711 >NO JUMP IF A != 0
71177>71180 101 8191 1 3 0 select literal address
71181 32 0 0 0 10- ADJUST ORDER BY SHIFT (AB) BY QUARTETS
71182 36 713 7 0 0 0 713 CHUNK START COLLATE AND ADD
71183 2 713 6 0 0 0 713 SUBTRACT
71184 72 711 89 0 0 0 711 >THIS CHAP JUMP IF A >= 0
71185 35 0 0 0 11111 ADJUST ORDER IN PREPARE FOR DIGIT COLLATION
71186 10 0 0 0 0 PASS 1 OR 2 WHICH SELECT LITERAL
71187 36 713 7 0 0 0 713 REFERS TO COMMON COLLATE AND ADD
71188 101 757 2 1 2 0 757 CODING START subtract literal address
71184>71189 37 713 7 0 0 0 713 REPLACE SELECTED BITS
71179>71190 713 7 0 0 0 713 SELECT
71191 5 6 2 4 0 VALUE TRANSFER
71192 713 8 0 0 0 713 SELECT
71193 5 4 2 4 0 PARA TRANSFER
71194 94 711 95 0 2 1 711 WORD MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
71194>71195 94 711 33 0 4 4 711 >NEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
71196 80 727 2 0 0 0 727 >WRITE ENTER SUBROUTINE
71197 76 711 26 0 0 0 711 >NEXT BLOCK JUMP unconditional
71200 PROCR 712 712 PRINT LINE WHEN FULL,STEP SERIAL
71201 NOTES RADIX B SUB ROUTINE SELECT
71202 81 712 2 0 0 0 712 START OF SUBROUTINE
71203 0 16 28 0 0 0 SERIAL AT STARTOF LINE SELECT
71204 80 729 2 0 0 0 729 >TO DEC ENTER SUBROUTINE
71205 5 731 40 0 0 0 731 WL TRANSFER
71206 52 5 2 0 0 0 EDIT SERIAL EDIT
71207 C 738 52 0 0 0 738
71208 80 724 2 0 0 0 724 >PRINT ENTER SUBROUTINE
71209 62 0 0 0 0 SET EXCESS CONSTANTS
71210 0 16 37 0 0 0 INCREMENT THIS LINE SELECT
71211 4 16 28 0 0 0 UPDATE FOR NEXT AUGMENT
71212 10 0 0 0 0 SELECT LITERAL
71213 5 16 37 0 0 0 TRANSFER
71214 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL
71215 C 0 0 0 40
71216 82 712 2 0 0 0 712 END OF SUBROUTINE / LEAVE SUBROUTINE
71300 CONST 713 713 1 CONSTANTS
71302 (D);
Source image: P1000498.JPG
71304 (A)£ ;
71306 (D)0; CHUNK START/ORDER
71308 0; A
71310 0; B
71312 0; C
71314 0; A
71316 0; B
71318 0; C
71400 PROCR 714 714 GENERAL MAG-TAPE EDIT & OUTPUT
71401 NOTES RADIX B SUB ROUTINE SELECT
71402 81 714 2 0 0 0 714 START OF SUBROUTINE
71403 0 13 0 1 0 0 QUICKER THAN EDIT SELECT
71404 5 8 4 1 1 0 TRANSFER
71405 0 13 2 1 0 0 SELECT
71406 5 8 6 1 1 0 TRANSFER
71407 94 714 11 0 1 4 714 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
71408 80 727 2 0 0 0 727 >WRITE BLOCK ENTER SUBROUTINE
71409 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
71410 C 0 0 0 48
71407>71411 82 714 2 0 0 0 714 END OF SUBROUTINE / LEAVE SUBROUTINE
71500 PROCR 715 715 READ A2
71501 NOTES 715 SELECT
71502 81 715 2 0 0 0 715 START OF SUBROUTINE
71503 42 A2 0 0 0 0 INPUT
71504 C 8 0 0 0 0
71505 82 715 2 0 0 0 715 END OF SUBROUTINE / LEAVE SUBROUTINE
71600 CONST 716 716 0 FIRST LEVEL PARAS,GENERAL CODING
71602 (B5)1(B3)1(B3)1(B3)1(B6)9; 1000/0
71603 1,1,1,1,0; 1001/5
71604 0,0,0,0,0;
71605 0,0,0,0,0;
71606 0,0,0,0,0;
71607 0,0,0,0,0;
71608 0,0,0,0,0;
71609 0,0,0,0,0;
71610 0,0,0,0,0;
71611 0,0,0,0,0;
71612 0,0,0,0,0; 1002/5
71613 0,0,0,0,0;
71614 0,0,0,0,0;
71615 0,0,0,0,0;
71616 0,0,0,0,0;
71617 0,0,0,0,0;
71618 0,0,0,0,0;
71619 0,0,0,0,0;
71620 0,0,0,0,0;
71621 0,0,0,0,1; 1003/5
71622 1,0,0,1,54;
71623 7,0,1,0,54;
71624 0,1,1,0,9;
71625 1,7,1,0,15;
71626 1,7,1,0,9;
71627 7,1,0,1,57;
71628 1,7,1,1,9;
71629 6,6,6,6,54;
71630 3,1,1,1,27;
71631 1,7,1,1,8;
Source image: P1000499.JPG
71632 1,7,6,6,54;
71633 0,1,1,0,8;
71634 1,7,0,1,1;
71635 1,1,0,0,7;
71636 0,0,0,0,54;
71637 1,3,1,0,8;
71638 1,0,1,6,54;
71639 1,0,1,7,9;
71640 7,0,1,0,54;
71641 1,1,7,1,9;
71642 0,1,0,1,1;
71643 0,1,0,1,1;
71644 1,1,0,1,9;
71645 1,0,1,0,1;
71646 1,7,1,0,8;
71647 6,1,3,1,1;
71648 7,1,1,7,9;
71649 1,6,6,1,9;
71650 1,7,1,1,1;
71651 0,0,0,1,9;
71652 0,6,0,1,56; 1004/4
71653 1,0,1,1,31;
71654 1,0,1,1,54;
71655 7,0,0,6,54; 1005/2
71656 1,7,1,1,8;
71657 1,1,0,0,9;
71658 0,0,1,3,0;
71659 1,0,6,6,54;
71660 0,0,0,1,8;
71661 0,1,1,0,15;
71662 6,6,6,6,15; 1006/5
71663 1,1,1,7,57;
71664 7,1,0,1,1;
71665 0,1,0,1,15;
71666 1,7,0,0,56; 1007/3
71667 1,0,1,0,15;
71668 1,1,1,7,9;
71669 1,0,0,0,11;
71670 1,1,3,0,9;
71671 1,7,6,6,0;
71672 0,0,0,0,0; 1009/3
71673 0,0,0,0,0;
71674 0,0,0,0,0;
71675 0,0,0,0,0;
71676 0,0,0,0,0;
71677 0,0,0,0,0;
71678 0,0,0,0,0;
71679 0,0,0,0,0; 1010/5
71680 0,0,0,0,0;
71681 0,0,0,0,0;
71682 0,0,0,0,0;
71683 0,0,0,0,0;
71684 0,0,0,0,0;
71685 0,0,0,0,0;
71686 0,0,0,0,0;
71687 0,0,0,0,0;
71688 0,0,0,0,0; 1011/5
71689 0,0,0,0,0;
71700 CONST 717 717 0 FIRST LEVEL PARAS PASS 1
Source image: P1000500.JPG
71702 (B5)0(B3)0(B3)0(B3)0(B6)0;
71703 0,0,0,0,0;
71704 0,0,0,0,0;
71705 0,0,0,0,0;
71706 0,0,0,0,0; 1012/5
71707 0,0,0,0,0;
71708 0,0,0,0,0;
71709 0,0,0,0,0;
71710 0,0,0,0,0;
71711 0,0,0,0,0;
71712 0,0,0,0,0;
71713 0,0,0,0,0;
71800 CONST 718 718 0 FIRST LEVEL PARAS PASS 1
71802 (B5)0(B3)0(B3)0(B3)0(B6)0;
71803 0,0,0,0,0;
71804 0,0,0,0,0;
71805 0,0,0,0,0;
71806 0,0,0,0,0;
71807 0,0,0,0,0;
71808 0,0,0,0,0;
71809 0,0,0,0,0; 1013/5
71810 0,0,0,0,0;
71811 0,0,0,0,54;
71812 (B5)1(B3)0(B3)1(B3)0(B6)9; 1014/0
71813 3,1,1,0,9;
71814 1,0,1,0,9;
71815 1,0,1,1,9;
71816 0,1,1,0,9;
71817 0,1,1,0,1;
71818 1,1,0,1,9;
71819 1,1,6,6,54;
71820 6,6,6,6,54; DUMMY WORD
71821 0,1,1,1,9;
71822 0,1,1,0,9; 1015/3
71823 0,1,1,1,9;
71824 1,0,1,1,54;
71825 6,6,1,1,1; 1016/3
71826 1,0,0,1,0;
71827 1,0,0,0,8;
71828 1,1,1,0,0;
71829 1,0,1,0,9;
71830 0,0,1,1,8; 1017/4
71831 1,1,1,0,9;
71832 0,0,0,0,1;
71833 0,1,1,0,1; 1018/4
71834 1,0,0,1,8;
71835 0,0,1,0,9;
71836 0,1,1,0,9;
71837 0,1,1,1,9; 1019/4
71838 0,0,1,1,0;
71839 0,1,0,0,8;
71840 1,0,0,1,0;
71841 1,0,1,0,1; 1020/5
71842 1,1,1,1,0;
71843 1,1,1,1,1;
71844 1,1,0,0,8;
71845 0,0,0,0,8;
71846 1,0,1,0,9;
71847 1,0,0,1,0;
Source image: P1000501.JPG
71848 1,1,0,1,9;
71849 1,1,0,0,9;
71850 1,0,1,1,8; 1021/4
71851 1,1,1,0,9;
71852 0,1,1,1,0;
71853 1,1,6,6,54;
71854 6,1,1,1,9;
71855 0,1,1,0,1;
71856 1,0,1,1,1;
71857 1,6,6,6,54;
71858 0,1,0,1,0;
71859 1,1,1,0,8; 1022/5
71860 1,1,1,0,9;
71861 1,0,0,1,9;
71862 0,0,0,1,0;
71863 1,0,1,1,1;
71864 1,1,0,0,8;
71865 0,1,1,0,9;
71866 0,1,1,0,8;
71867 1,7,1,0,9; 1023/4
71868 1,1,3,0,9;
71869 0,1,0,0,8;
71870 1,0,1,0,54; 1024/2
71871 1,1,0,0,8; 1025/6
71872 0,1,0,1,1;
71873 0,0,2,2,0; 1026/0 1027/5
71874 0,0,0,0,0;
71875 0,0,0,0,0;
71876 0,0,0,0,0; 1028/5
71877 0,0,0,0,0; 1029/5
71878 0,0,0,0,0; 1030/3 1031/5
71879 0,0,0,0,0;
71880 0,0,0,0,0;
71881 0,0,0,0,0;
71882 0,0,0,0,0; 1032/3
71883 0,0,7,6,54;
71900 PROCR 719 719 CLOSE OUTPUT FILES
71901 NOTES RADIX SELECT
71902 81 719 2 0 0 0 719 START OF SUBROUTINE
71906>71903 80 715 2 0 0 0 715 ENTER SUBROUTINE
71904 0 8 4 1 0 0 SELECT
71905 12 0 0 0 5659655972 FINIS' SUBTRACT LITERAL
71906 71 719 3 0 0 0 719 JUMP IF A != 0
71907 41 A2 0 0 0 1 CLOSE I/P CLOSE FILE
71908 82 719 2 0 0 0 719 END OF SUBROUTINE / LEAVE SUBROUTINE
72000 CONST 720 720 0 SECOND LEVEL PARAS
72002 (B8)24(B6)50(B6)51;
72003 24,24,7;
72004 24,6,63;
72005 51,38,24;
72006 54,53,15;
72007 50,34,15;
72008 15,36,24;
72009 37,36,52;
72010 39,39,39;
72011 18,39,41;
72012 24,24,24;
72013 24,16,62;
Source image: P1000698.JPG
72100 PROCR 721 721 INPUT OFF PASS 2
72101 NOTES RADIX B SUB ROUTINE SELECT
72102 81 721 2 0 0 0 721 START OF SUBROUTINE
72103 94 721 7 0 2 8 721 STANDARD INCREMENT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
68606>72104 80 722 2 0 0 0 722 READ A6->SEC 9 ENTER SUBROUTINE
72105 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
72106 C 0 0 0 144
72103>72107 82 721 2 0 0 0 721 END OF SUBROUTINE / LEAVE SUBROUTINE
72200 PROCR 722 722 INPUT
72201 NOTES RADIX B SUB ROUTINE SELECT
72202 81 722 2 0 0 0 722 START OF SUBROUTINE
72203 42 A6 0 0 0 0 INPUT
72204 C 9 0 0 0 0
72205 82 722 2 0 0 0 722 END OF SUBROUTINE / LEAVE SUBROUTINE
72300 PROCR 723 723 WRITE ON WORKING TAPE
72301 NOTES 723 SELECT
72302 81 723 2 0 0 0 723 START OF SUBROUTINE
72303 55 8 4 1 0 50 COPY ANNEXES BULK COPY
72304 C 9 4 1 0 0
72305 0 731 20 1 0 0 731 BEW SELECT
72306 5 9 52 1 0 0 TRANSFER
72307 43 A6 0 0 0 0 OUTPUT
72308 C 9 0 0 0 0
72309 54 9 0 0 0 52 BULK CLEAR
72310 82 723 2 0 0 0 723 END OF SUBROUTINE / LEAVE SUBROUTINE
72400 PROCR 724 724 PRINT
72401 NOTES RADIX B SUB ROUTINE SELECT
72402 81 724 2 0 0 0 724 START OF SUBROUTINE
72403 62 0 0 0 0 SET EXCESS CONSTANTS
72404 731 20 1 0 0 731 SELECT
72405 5 5 52 1 0 0 BEW TRANSFER
72406 10 0 0 0 1 ALWAYS TRACK 1 SELECT LITERAL
72407 5 5 0 1 0 0 FUNCTION WORD TRANSFER
72408 27 9 0 0 0 SELECT
72409 70 724 14 0 0 0 724 >PRINTER JUMP IF A == 0
72410 55 5 0 1 0 50 BULK COPY
72411 C 10 4 1 6 0
72412 80 725 2 0 0 0 725 >O/P ENTER SUBROUTINE
72413 76 724 36 0 0 0 724 JUMP unconditional
72409>72414 27 8 0 0 0 PRINTER TYPE SELECT
72415 12 0 0 0 9 SUBTRACT LITERAL
72416 70 724 32 0 0 0 724 >SPECIAL JUMP IF A == 0
72417 10 0 0 0 80000 SELECT LITERAL
72418 5 5 1 0 0 0 BIT 40 TRANSFER
72419 124 999 15 1 2 0 SEC 5 modify address of next
72420 124 0 0 2 0 select literal and division
72421 124 999 13 1 2 0 SEC 10 modify address of next
72422 129 0 0 1 0 edit for anelex output
72423 10 0 0 0 4 SELECT LITERAL
72435>72424 30 0 0 0 5 SHIFT (A) BY QUARTETS
72425 1 999 7 0 0 0 ROUTE ADD
72426 34 999 12 0 0 0 SET (N) IN B
72427 125 4096 1 1 0 clear indicators
72428 124 999 0 0 3 0 modify address of next
72429 123 160 0 2 0 enter master routine
72430 62 0 0 0 0 SET EXCESS CONSTANTS
Source image: P1000699.JPG
72431 76 724 36 0 0 0 724 JUMP unconditional
72416>72432 55 5 0 1 0 54 BULK COPY
72433 C 10 0 1 0 0
72434 10 0 0 0 9 SELECT LITERAL
72435 76 724 24 0 0 0 724 JUMP unconditional
72431>
72413>72436 54 5 0 0 0 50 BULK CLEAR
72437 5 16 1 0 0 0 CLEAR INDICATORS TRANSFER
72438 82 724 2 0 0 0 724 END OF SUBROUTINE / LEAVE SUBROUTINE
72500 PROCR 725 725 O/P->A9
72502 81 725 2 0 0 0 725 START OF SUBROUTINE
72503 94 725 9 0 6 50 725 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
72504 731 20 1 0 0 731 BEW SELECT
72505 5 10 306 1 0 0 TRANSFER
72506 80 726 2 0 0 0 726 >O/P ENTER SUBROUTINE
72507 90 0 0 6 0 SET MODIFICATION REGISTER AT LITERAL
72508 C 0 0 0 300
72503>72509 82 725 2 0 0 0 725 END OF SUBROUTINE / LEAVE SUBROUTINE
72600 PROCR 726 726 WRITE A9
72602 81 726 2 0 0 0 726 START OF SUBROUTINE
72603 10 0 0 0 800000 SELECT LITERAL
72604 34 999 12 0 0 0 SEC 10 SET (N) IN B
72605 125 4096 1 1 0 clear indicators
72606 1 999 7 0 0 0 D1/A9 ADD
72607 124 999 0 0 3 0 modify address of next
72608 123 160 0 2 0 enter master routine
72609 82 726 2 0 0 0 726 END OF SUBROUTINE / LEAVE SUBROUTINE
72700 PROCR 727 727 OUTPUT ON A2
72701 NOTES RADIX B SUB ROUTINE SELECT
72702 81 727 2 0 0 0 727 START OF SUBROUTINE
72703 731 20 1 0 0 731 BEW SELECT
72704 5 8 52 1 0 0 TRANSFER
72705 43 A2 0 0 0 0 OUTPUT OUTPUT
72706 C 8 0 0 0 0
72707 54 8 0 0 0 52 CLEAR BULK CLEAR
72708 82 727 2 0 0 0 727 END OF SUBROUTINE / LEAVE SUBROUTINE
72800 PROCR 728 728
72802 81 728 2 0 0 0 728 START OF SUBROUTINE
72803 50 9 4 0 2 0 UNPACK FIXED FIELD DATA
72804 C 737 14 0 0 0 737 UNPACK NEXT ITEM
72805 82 728 2 0 0 0 728 END OF SUBROUTINE / LEAVE SUBROUTINE
72900 PROCR 729 729 CONVERT (A) TO DECIMAL
72901 NOTES 729 SELECT
72902 81 729 2 0 0 0 729 START OF SUBROUTINE
72903 5 733 4 1 0 0 733 TRANSFER
72904 60 0 0 0 0 SET DECIMAL RADIX
72905 124 734 22 0 2 0 734 select literal and division
72906 112 733 4 1 0 0 733 convert
72907 82 729 2 0 0 0 729 END OF SUBROUTINE / LEAVE SUBROUTINE
73000 PROCR 730 730 CONVERT (A) TO BIN
73001 NOTES 730 SELECT
73002 81 730 2 0 0 0 730 START OF SUBROUTINE
73003 5 733 4 1 0 0 733 TRANSFER
73004 62 0 0 0 0 SET EXCESS CONSTANTS
Source image: P1000700.JPG
73005 124 734 2 0 2 0 734 select literal and division
73006 112 733 4 1 0 0 733 convert
73007 82 730 2 0 0 0 730 END OF SUBROUTINE / LEAVE SUBROUTINE
73100 CONST 731 731 1
73102 (A)CHAPT;
73104 TYPE£;
73106 FILES;
73108 TYPE;
73110 ST.OF;
73112 BLOCK;
73114 SIZE;
73116 SIT;
73118 PREND;
73120 (D)7.0000007.;
73122 (A)START;
73124 NOTES;
73126 SPOOL;
73128 (A)PROC;
73130 EDURE;
73132 SEC;
73134 TION ;
73136 (D)6£6£6£6£6£;
73138 0;
73140 0;
73142 0;
73144 (A)ON/=;
73200 CONST 732 732 1
73202 (A)EXTRA;
73204 CHAP;
73206 TER ;
73208 (D)7£££0003££; BITS 1-10+25-39
73210 5.5.;
73212 (A)FIEND;
73214 (A)INDEX;
73216 CHAIN;
73218 08000;
73220 PROG;
73222 OUT;
73224 (D)5.5.;
73300 CONST 733 733 1 CONVERT TABLE
73302 (D)1; BIN->DEC
73304 0; (A) WL
73306 0; CURRENT PROCR
73400 CONST 734 734 1 COMPILER'S CONVERT TABLES
73402 (D)1; DEC->BIN
73404 Ю;
73406 64;
73408 3.8;
73410 2710;
73412 186Ю0;
73414 £4240;
73416 989680;
73418 5£5.100;
73420 3‼9Ю+Ю00;
73422 1; BIN->DEC
73424 16;
Source image: P1000701.JPG
73426 256;
73428 4096;
73430 65536;
73432 1048576;
73434 16777216;
73436 268435456;
73438 4294967296;
73440 ££££££££££;
73500 CONST 735 735 0
73502 (D)7;
73503 1£££;
73504 £.000-;
73505 7£;
73506 8000;
73507 6000;
73508 £000;
73509 80000;
73510 £0000;
73511 80;
73512 £0000-;
73513 £;
73514 3££; BITS 1-10
73515 0; THIS IS A 0/1 FLIPFLOP FOR SC'S FWD
73516 3£; BITS 1-6 75200
73600 TABLE 736 736 1 PRINT HEADING DATA
73601 NOTES
73602 13 4 0 0 0 0 5 0 0 0 0 0 0
73604 13 3 0 0 0 0 5 0 0 0 0 0 0
73606 13 0 0 0 0 0 5 0 0 0 0 0 0
73608 13 2 0 0 0 0 5 0 0 0 0 0 1 75400
73610 729 2 0 0 0 0 3 2 0 2 0 0 0 REF----ACTIONS WITH NEGATIVE ADDRESSES
73612 724 2 0 0 0 0 5 0 2 4 0 0 1 PROCR
73614 732 18 0 0 2 0 5 0 0 0 0 0 0 08000'
73616 732 20 0 0 2 0 4 1 1 0 0 0 0 PROG'
73618 732 22 0 0 2 0 3 2 1 0 0 0 0 OUT'
73620 16 2 0 0 0 0 5 0 2 0 0 0 0 PROGM
73622 16 3 0 0 0 0 5 0 2 4 0 0 0 SERIAL
73624 732 24 0 0 2 0 2 3 0 0 0 0 1 DOUBLE LE
73700 TABLE 737 737 1
73701 NOTES
73702 13 4 0 0 0 0 5 0 7 4 2 0 0
73704 13 6 0 0 0 0 5 0 2 4 0 0 1
73706 13 4 0 0 0 0 5 0 7 4 2 0 0 CONST
73708 13 6 0 0 0 0 5 0 2 4 0 0 0 PARA
73710 13 8 0 0 0 0 5 0 12 4 2 0 0 CONST
73712 13 10 0 0 0 0 5 0 2 4 0 0 1
73714 11 0 0 0 2 0 5 0 0 0 0 0 0
73716 11 2 0 0 2 0 5 0 0 0 0 0 0
73718 11 4 0 0 2 0 5 0 0 0 0 0 0
73720 11 6 0 0 2 0 5 0 0 0 0 0 1
73800 TABLE 738 738 3
73801 NOTES
73802 16 16 0 0 0 0 5 0 0 0 0 0 0
73804 735 2 0 0 0 0 5 0 0 0 0 0 0
73806 16 2 0 0 0 0 5 0 0 0 0 0 0
73808 16 3 0 0 0 0 5 0 0 0 0 0 0 SERIAL
Source image: P1000702.JPG
73810 731 2 0 0 2 0 5 0 0 0 0 0 1 CHAPT'
73812 731 2 0 0 2 0 5 0 0 0 0 0 0
73814 16 16 0 0 0 0 5 0 3 4 0 0 1
73816 16 17 0 0 0 0 4 1 1 3 0 0 0 PROCR NUMBER
73818 731 44 0 0 2 0 1 4 0 0 0 0 0 ='
73820 16 36 0 0 0 0 4 1 0 3 0 0 1 PROCR START
73822 16 22 0 0 0 0 1 0 4 0 0 0 0 £ IND
73824 16 30 0 0 0 0 4 1 3 3 0 0 0 FIRST ADDRESS
73826 16 22 0 0 0 0 2 3 2 1 0 0 0 PARA
73828 731 38 0 0 0 0 5 0 4 4 0 0 0 SECOND ADDRESS=Q1-4
73830 13 0 0 0 0 0 2 3 2 1 0 0 0 Q5
73832 13 1 0 0 0 0 2 3 1 1 0 0 0 Q4
73834 13 2 0 0 0 0 2 3 1 1 0 0 0 Q3
73836 13 3 0 0 0 0 2 3 1 1 0 0 0 Q2
73838 13 4 0 0 0 0 2 3 1 1 0 0 0 Q1
73840 13 22 0 0 0 0 1 4 3 0 0 0 1 LTE
73842 16 18 0 0 2 0 5 0 0 0 0 0 0
73844 16 20 0 0 2 0 5 0 0 0 0 0 0
73846 16 17 0 0 0 0 4 1 1 3 0 0 1 PROCR NUMBER
73848 13 0 0 0 2 0 5 0 0 0 0 0 0
73850 13 2 0 0 2 0 5 0 0 0 0 0 1
73852 731 40 0 0 0 0 5 0 0 4 0 0 1
73900 TABLE 739 739 1
73902 13 0 0 0 0 0 2 3 6 1 0 0 0 A
73904 16 25 0 0 0 0 1 4 2 0 0 0 0 D
73906 16 26 0 0 0 0 1 4 2 0 0 0 0 M
73908 13 2 0 0 0 0 4 1 2 3 0 0 0 ADDR
73910 13 4 0 0 0 0 4 1 1 3 0 0 1 PARAMETER
74000 CONST 740 740 1
74002 (D)1;
74004 2;
74006 3;
74008 4;
74010 5;
74012 6;
74014 7;
74016 8;
74018 9;
74020 0;
74022 0;
74024 0;
74026 0;
74028 0;
74030 0;
74032 0;
74034 0;
74036 0;
74038 0;
74040 0;
74042 0;
74044 0;
74046 0;
74048 0;
74050 0;
74052 0;
74054 0;
74056 0;
Source image: P1000703.JPG
74058 0;
74100 PROCR 741 741 1000 ENTRIES TO PTS
74102 124 757 7 1 0 0 757 >FROM PROG UNLOAD unconditional jump
74103 76 746 2 0 0 0 746 >FROM STORE DUMP START JUMP unconditional
74104 124 747 2 1 0 0 747 >FROM STORE DUMP END ROUTINE unconditional jump
74105 124 748 2 1 0 0 748 >FROM TROFL unconditional jump
74106 124 757 2 1 0 0 757 >FROM LOADER unconditional jump
74107 124 757 3 1 0 0 757 >FROM PROGRAMME unconditional jump
74108 76 745 63 0 0 0 745 >FROM'ABANDON VIA MASTER ALARM' JUMP unconditional
74109 124 757 5 1 0 0 757 >FROM OVERLAY(END) unconditional jump
74110 124 757 6 1 0 0 757 >FROM OVERLAY(START) unconditional jump
74111 76 745 2 0 0 0 745 >FROM'ABANDON BY 2/0/1 COMMAND' JUMP unconditional
74200 CONST 742 742 1 1001 ANNEXE 1 FOR PASSES 1,2 AND 3
74202 (D)0;
74204 0;
74206 0;
74208 0;
74210 0;
74212 0;
74214 0;
74216 0;
74218 0;
74220 0;
74222 0;
74224 0;
74226 0;
74228 0;
74230 0;
74232 0;
74234 0;
74236 0;
74238 0;
74240 0;
74242 0;
74244 0;
74246 0;
74248 0;
74250 0;
74252 0;
74254 0;
74300 CONST 743 743 1 1002 ANNEXE 2 FOR PASSES 1,2 AND 3
74302 (D)0;
74304 0;
74306 0;
74308 0;
74310 0;
74312 0;
74314 0;
74316 0;
74318 0;
74320 0;
74322 0;
74324 0;
74326 0;
74328 0;
74330 0;
74332 0;
Source image: P1000704.JPG
74334 0;
74336 0;
74338 0;
74340 0;
74342 0;
74344 0;
74346 0;
74348 0;
74350 0;
74352 0;
74354 0;
74400 PROCR 744 744 1003 OVERLAY FOR PTS(WL'S IN PASS 3)
75815>
93229>74402 125 4096 1 1 0 clear indicators
74403 126 749 21 0 0 0 749 SET(71)FOR MASTER enter subroutine
74404 124 744 72 0 3 0 744 SET UP 64 modify address of next
74405 124 3 0 3 0 AND 124 modify address of next
74406 106 198 1 0 0 select (N)
74407 124 744 72 0 3 0 744 modify address of next
74408 103 64 0 0 0 (24) copy (A) to N
74409 30 0 0 0 5- SHIFT (A) BY QUARTETS
74410 124 744 72 0 3 0 744 modify address of next
74411 103 124 0 0 0 copy (A) to N
74412 101 40 1 3 0 select literal address
74413 34 744 70 0 0 0 744 1 SET (N) IN B
74414 80 749 2 0 0 0 749 >BACK 1 I/P->I/P ENTER SUBROUTINE
74415 125 4096 1 1 0 clear indicators
74416 124 744 72 1 1 0 744 MOD GROUP 0 set modification group
74417 91 755 2 0 1 0 755 PROG SWITCH SET MODIFICATION REGISTER AT VARIABLE
74418 124 744 72 0 3 0 744 modify address of next
74419 126 0 0 0 0 (50)REQUEST M/R,CLOSE PROGM SWITCH enter subroutine
93241>74420 91 751 6 0 1 0 751 MASTER SWITCH SET MODIFICATION REGISTER AT VARIABLE
74421 10 0 0 0 7 SELECT LITERAL
74422 124 744 72 0 3 0 744 modify address of next
74423 102 0 0 0 0 (51)SET'OPT A'SWITCH transfer (A) to N
74424 124 744 72 0 3 0 744 modify address of next
74425 106 64 0 0 0 (24) select (N)
74426 124 744 72 0 3 0 744 modify address of next
74427 105 124 0 0 0 subtract (N) from (A)
74428 127 744 38 0 0 0 744 >YES,AVOID READ jump A = Z
74429 124 744 72 0 3 0 744 modify address of next
74430 106 0 0 0 0 (24) select (N)
74431 102 744 76 0 0 0 744 transfer (A) to N
74432 101 0 1 3 0 select literal address
74433 124 744 72 0 3 0 744 modify address of next
74434 126 0 0 0 0 (7) READ BLOCK TO MR ANNEXES enter subroutine
74435 106 744 76 0 0 0 744 select (N)
74436 124 744 72 0 3 0 744 modify address of next
74437 102 0 0 0 0 (24) transfer (A) to N
74428>74438 124 744 72 1 1 0 744 MG 0 set modification group
74439 124 757 2 0 2 0 757 select literal and division
74440 3 757 2 1 0 0 757 COPY
74441 124 744 72 0 3 0 744 modify address of next
74442 102 2 0 0 0 SET PARA 2 transfer (A) to N
74443 91 757 2 0 2 0 757 CHUNK START SET MODIFICATION REGISTER AT VARIABLE
74444 101 757 2 1 3 0 757 select literal address
74445 124 744 72 0 3 0 744 modify address of next
74446 102 1 0 0 0 SET PARA 1 transfer (A) to N
74447 101 0 1 3 0 PARA TABLE START select literal address
Source image: P1000705.JPG
74448 124 744 72 0 3 0 744 modify address of next
74449 123 0 0 2 0 (6) LOAD CHAP SR enter master routine
74450 124 744 64 0 2 0 744 select literal and division
74451 1 744 71 0 0 0 744 14 IN Q5 ADD
74452 124 755 2 0 3 0 755 modify address of next
74453 102 44 0 0 0 SET LINK IN PROG SWITCH transfer (A) to N
74454 124 744 72 0 3 0 744 modify address of next
74455 102 0 0 0 0 (51)CLEAR 'OPT A' SWITCH transfer (A) to N
74456 10 0 0 0 1 SELECT LITERAL
74457 4 744 74 0 0 0 744 STEP PASS IND(-1->0 0->1) AUGMENT
74458 124 755 2 0 3 0 755 PROG SWITCH START modify address of next
74459 106 35 0 0 0 SI+35 select (N)
74460 124 755 2 0 3 0 755 modify address of next
74461 102 7 0 0 0 >SI+7 (OPEN SWITCH) transfer (A) to N
74462 124 744 72 0 3 0 744 modify address of next
74463 124 0 1 0 0 >RELEASE MR SWITCH/ENTER PQ/RETURN(38) unconditional jump
74464 125 4096 1 1 0 clear indicators
74465 126 749 21 0 0 0 749 RESET (71) FOR MASTER enter subroutine
74466 101 40 1 3 0 select literal address
74467 34 744 70 0 0 0 744 SET (N) IN B
74468 80 749 2 0 0 0 749 >SETEP BACK 1 I/P->I/P ENTER SUBROUTINE
74469 76 757 2 0 0 0 757 >ENTER PTS(2,3) JUMP unconditional
74470 100 1 0 0 0 CONSTS Halt
74471 114 0 0 0 0 replace selected bits
74472 100 0 0 0 0 ZERO Halt
74473 100 0 0 0 0 (24)PTS CH/ROUTE NO Halt
74474 116 1 0 0 0 1-=PASS1,0=PASS2,1+PASS3 IN STORE Invalid
74475 100 0 0 0 0 1=PROGM IN CONTROL,0=PTS IN CONTROL Halt
74476 100 0 0 0 0 STORE PARA 24 Halt
74477 100 0 0 0 0 SPARE Halt
74500 PROCR 745 745 1003A=DISENTANGLE THE ABANDON COMMANDS
74111>74502 124 744 72 0 3 0 744 SET MR3 FOR LOG (2/0/1)COMMAND modify address of next
74503 126 53 1 3 0 (3)REQUEST QUEUE set modification register
74510>74504 124 744 72 0 3 0 744 FIND POSITION OP modify address of next
74505 106 2 0 0 0 THIS PROGRAMS LOG select (N)
74506 124 744 72 0 3 0 744 REQUEST ENTRY modify address of next
74507 105 2 0 3 0 subtract (N) from (A)
74508 127 745 11 0 0 0 745 >FOUND jump A = Z
74509 125 2 0 3 0 step on and test
74510 124 745 4 1 0 0 745 >NEXT ENTRY unconditional jump
74508>74511 124 744 72 0 3 0 744 modify address of next
74512 106 1 0 3 0 LINK IN LOG REQUEST QUEUE select (N)
74513 70 745 21 0 0 0 745 >THIS PROG NOT TRYING TO USE LOG JUMP IF A == 0
74514 101 0 1 2 0 (54) subtract literal address
74515 71 745 18 0 0 0 745 >THIS PROG NOT TRYING TO OFFER OPTIONS JUMP IF A != 0
74516 124 744 72 0 3 0 744 modify address of next
74517 102 0 0 0 0 (53) DELETE'OPT OUTSTANDING'IND transfer (A) to N
74515>74518 10 0 0 0 0 SELECT LITERAL
74519 124 744 72 0 3 0 744 modify address of next
74520 102 1 0 3 0 (53)DELETE LOG REQUEST transfer (A) to N
74513>74521 744 74 0 0 0 744 PASS IND SELECT
74522 71 745 53 0 0 0 745 >NOT PASS 2,ELSE SECOND ABDON JUMP IF A != 0
74523 101 0 1 3 0 (15)'RC'LINK select literal address
74524 3 744 74 0 0 0 744 SET'PASS 3' COPY
74525 3 745 49 0 0 0 745 SET'2/0/1 COMMAND IN PROGRESS' COPY
74526 124 744 72 0 3 0 744 modify address of next
74527 102 42 0 1 0 >SI+42 transfer (A) to N
74528 124 744 72 0 3 0 744 CLEAR ASSOC TIME modify address of next
74529 102 45 0 1 0 (SI->45) transfer (A) to N
Source image: P1000706.JPG
74530 124 751 6 0 3 0 751 MASTER SWITCH START modify address of next
74531 106 9 0 0 0 SM+9 select (N)
74532 124 751 6 0 3 0 751 SET CLOSED+INTERRUPTIBLE modify address of next
74533 102 7 0 0 0 >SM+7 transfer (A) to N
74534 124 751 6 0 3 0 751 modify address of next
74535 106 57 0 0 0 SM+57=SP+9 select (N)
74536 124 751 6 0 3 0 751 modify address of next
74537 102 6 0 0 0 >SM+6 transfer (A) to N
74538 0 744 75 0 0 0 744 SELECT
74539 71 745 79 0 0 0 745 >PROG IN CONTROL JUMP IF A != 0
74540 124 744 72 0 3 0 744 modify address of next
74541 106 44 0 1 0 PRESENT PTS LINK IN SI+44 select (N)
74542 5 745 84 0 0 0 745 TRANSFER
74543 124 745 79 0 2 0 745 select literal and division
74544 1 744 71 0 0 0 744 14 IN Q5 ADD
74545 124 744 72 0 3 0 744 modify address of next
74546 102 44 0 1 0 NEW LINK transfer (A) to N
74547 124 755 2 0 3 0 755 modify address of next
74548 124 7 1 0 0 >SI+7 TO CONTINUE THIS DUMP unconditional jump
74549 100 0 0 0 0 NONZERO='2/0/1 COMMAND IN PROGRESS' Halt
74567>
74570>
74572>
93123>
93126>
96320>
96323>74550 124 744 72 1 1 0 744 MSG 0 set modification group
74551 124 744 72 0 3 0 744 modify address of next
74552 126 0 0 0 0 (50)REQUEST MASTER enter subroutine
74568>
93121>
74522>74553 124 751 6 0 3 0 751 SET MASTER SWITCH NON-INT modify address of next
74554 106 58 0 0 0 SM+58=SP+10 select (N)
74555 124 751 6 0 3 0 751 modify address of next
74556 102 6 0 0 0 >SM+6 transfer (A) to N
74557 124 744 72 0 3 0 744 modify address of next
74558 102 44 0 0 0 (3)CLEAR'TRIAL'IND transfer (A) to N
74559 124 744 72 1 1 0 744 MG 0 set modification group
74560 10 0 0 0 0 *FORMED ORDER* 0/2='ABDON/END' SELECT LITERAL
74561 124 744 72 0 3 0 744 >RETURN TO'ABDON'COMMENT modify address of next
74562 124 0 1 0 0 (34) unconditional jump
74108>74563 0 745 49 0 0 0 745 '2/0/1'IND (ABANDON OPTION) SELECT
74564 70 745 69 0 0 0 745 >NO JUMP IF A == 0
74565 101 1 1 3 0 (15)1*'RC' LINK select literal address
74566 2 744 74 0 0 0 744 SUBTRACT
74567 70 745 50 0 0 0 745 >DURING PASS 3 JUMP IF A == 0
74568 76 745 53 0 0 0 745 >SOMETIME IN PASS 2 JUMP unconditional
74564>74569 0 744 74 0 0 0 744 PASS IND SELECT
74570 71 745 50 0 0 0 745 >1 OR 3 JUMP IF A != 0
74571 0 744 75 0 0 0 744 CONTROL IND SELECT
74572 70 745 50 0 0 0 745 >PTS IN CONTROL JUMP IF A == 0
74573 101 0 1 3 0 (15)'RC' LINK select literal address
74574 3 744 74 0 0 0 744 SET'PTS 3' COPY
74575 124 744 72 0 3 0 744 modify address of next
74576 102 42 0 1 0 >SI+42 transfer (A) to N
74577 124 744 72 0 3 0 744 modify address of next
74578 102 45 0 1 0 CLEAR ASSOC TIME transfer (A) to N
74539>74579 10 0 0 0 0 SELECT LITERAL
74580 35 0 0 0 100 PREPARE FOR DIGIT COLLATION
74581 37 757 23 0 0 0 757 CLEAR Q3=DISCARDS (2001/23) REPLACE SELECTED BITS
Source image: P1000707.JPG
74582 126 757 10 0 0 0 757 >TYPE'OP ABANDONS(PROG)' (2001/10) enter subroutine
74583 126 745 84 0 1 0 745 leave subroutine
74584 100 0 0 0 0 FORMED PASS 1=1014/4 Halt
74585 10 0 0 0 2 ORDER CONST SELECT LITERAL
74600 PROCR 746 746 1004 STORE DUMP (START)
74103>74602 124 744 73 0 3 0 744 TEST TAPE HAS JUST BEEN REWOUND modify address of next
74603 106 0 0 0 0 (36) select (N)
74604 118 4124 0 0 0 JUST BEEN REWOUND shift logical
74605 127 746 8 0 0 0 746 >NO jump A = Z
74606 125 0 1 2 0 interrogate indicators
74607 124 746 11 1 0 0 746 > unconditional jump
74605>74608 124 744 72 0 3 0 744 modify address of next
74609 124 35 0 3 0 (3)BLOCK CTRS modify address of next
74610 106 0 0 0 0 (24)PTS ROUTE select (N)
74607>74611 102 750 5 0 0 0 750 SERIAL NO transfer (A) to N
74612 101 27 1 3 0 CLOSE STORE select literal address
74613 80 749 2 0 0 0 749 .CLOSE I/P FILE ENTER SUBROUTINE
74614 124 744 72 0 3 0 744 modify address of next
74615 124 0 1 0 0 (37) unconditional jump
74700 PROCR 747 747 1005 STORE DUMP (END)
74104>74702 10 0 0 0 0 SELECT LITERAL
74703 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION
74704 124 744 73 0 3 0 744 PROG ROUTE modify address of next
74705 114 0 0 0 0 (36)CLEAR Q5='REWIND'IND replace selected bits
74706 106 750 5 0 0 0 750 TEST PTS TAPE TO select (N)
74707 127 747 34 0 0 0 747 >NO BE REALIGNED jump A = Z
74708 34 751 2 1 0 0 751 SET (N) IN B
74709 101 17 1 3 0 select literal address
74710 80 749 2 0 0 0 749 >OPEN I/P FILE ENTER SUBROUTINE
74711 100 750 4 0 3 0 750 DEC set radix
74712 10 0 0 0 0 SELECT LITERAL
74713 12 0 0 0 1 SUBTRACT LITERAL
74714 4 750 5 0 0 0 750 STEP DOWN REQUIRED BLOCK AUGMENT
74715 100 744 72 0 3 0 744 BIN set radix
74716 101 10 1 3 0 WORD 10=IDENTIFIER LOCN select literal address
74717 30 0 0 0 5 SHIFT (A) BY QUARTETS
74718 124 744 72 0 3 0 744 modify address of next
74719 104 55 0 0 0 (3)PARA 55=IDENTIFIER VALUE add (N) to (A)
74720 32 0 0 0 10- SHIFT (AB) BY QUARTETS
74721 101 37 1 3 0 select literal address
74722 80 749 2 0 0 0 749 >RUN FWD TO MACHINE CODE START ENTER SUBROUTINE
74723 10 0 0 0 0 DUMMY SELECT LITERAL
74732>74724 101 62 1 3 0 STORE DUMP PSEUDO select literal address
74725 32 0 0 0 10- SHIFT (AB) BY QUARTETS
74726 101 7 1 3 0 REALIGN TAPE select literal address
74727 80 749 2 0 0 0 749 >READ USING MR ANNEXES ENTER SUBROUTINE
74728 124 744 72 0 3 0 744 modify address of next
74729 124 126 0 3 0 STORE PSEUDO modify address of next
74730 106 1 1 0 0 select (N)
74731 2 750 5 0 0 0 750 REQUIRED BLOCK SUBTRACT
74732 71 747 24 0 0 0 747 >NOT YET JUMP IF A != 0
74733 125 4096 1 1 0 clear indicators
74707>74734 124 744 72 0 3 0 744 modify address of next
74735 124 0 1 0 0 (52) unconditional jump
74800 PROCR 748 748 1006 TRIAL OVER FLOW
74105>74802 124 744 72 0 3 0 744 STORE POSN OF OFLOW CONSTANT modify address of next
74803 106 0 0 0 0 (39) select (N)
Source image: P1000708.JPG
74804 102 750 5 0 0 0 750 transfer (A) to N
74805 124 751 4 0 2 0 751 AMEND EDIT TABLE select literal and division
74806 124 744 72 0 3 0 744 AMEND EDIT TABLE modify address of next
74807 102 0 0 0 0 (39) transfer (A) to N
74808 101 0 1 3 0 (39) select literal address
74809 124 744 72 0 3 0 744 modify address of next
74810 128 0 1 2 0 (10) edit fixed field formats
74811 124 744 72 0 3 0 744 modify address of next
74812 106 38 0 1 0 MOVE (24) select (N)
74813 124 744 72 0 3 0 744 modify address of next
74814 102 44 0 1 0 transfer (A) to N
74815 124 744 72 0 3 0 744 modify address of next
74816 106 35 0 1 0 SET S1=4 select (N)
74817 124 744 72 0 3 0 744 modify address of next
74818 102 7 0 1 0 transfer (A) to N
74819 106 750 5 0 0 0 750 RESTORE EDIT TABLE select (N)
74820 124 744 72 0 3 0 744 RESTORE EDIT TABLE modify address of next
74821 102 0 0 0 0 (39) transfer (A) to N
74822 124 744 72 0 3 0 744 modify address of next
74823 124 0 1 0 0 (41) unconditional jump
74900 PROCR 749 749 1007 I/P O/P S/R RTE 7
74902 100 0 0 0 0 LINK Halt
74903 118 5 0 0 0 FORM PARAMETER shift logical
74904 101 0 1 1 0 (24) add literal address
74905 125 4096 1 1 0 SET NON INT clear indicators
74906 124 750 2 0 3 0 750 MODIFY DIVISION modify address of next
74907 123 160 0 2 0 enter master routine
74908 126 749 2 0 1 0 749 >LEAVE S/R leave subroutine
74909 100 0 0 0 0 SWOP 64*R S/R Halt
74910 124 744 72 0 3 0 744 STORE(64*R) modify address of next
74911 106 64 0 0 0 select (N)
74912 102 749 19 0 0 0 749 transfer (A) to N
74913 106 749 20 0 0 0 749 RESET(64*R) select (N)
74914 124 744 72 0 3 0 744 modify address of next
74915 102 64 0 0 0 transfer (A) to N
74916 106 749 19 0 0 0 749 STORE NEXT(64*R) select (N)
74917 102 749 20 0 0 0 749 transfer (A) to N
74918 126 749 9 0 1 0 749 >LEAVE S/R leave subroutine
74919 100 0 0 0 0 STORES FOR (64*R) Halt
74920 100 0 0 0 0 Halt
74921 100 0 0 0 0 Halt
74922 124 750 2 0 3 0 750 INTERCHANGE VALUES modify address of next
74923 100 24 0 2 0 (3)OF PARAMETER 24 replace (B) by (N)
74924 106 749 31 0 0 0 749 select (N)
74925 124 750 2 0 3 0 750 modify address of next
74926 102 24 0 0 0 (3) transfer (A) to N
74927 32 0 0 0 10 SHIFT (AB) BY QUARTETS
74928 102 749 31 0 0 0 749 transfer (A) to N
74929 126 749 9 0 0 0 749 enter subroutine
74930 126 749 21 0 1 0 749 >LEAVE(S) leave subroutine
74931 100 0 0 0 0 (24) Halt
75000 CONST 750 750 0 1008 W/L'S USED BY GENERAL CODING
75002 (D)00000;
75003 00002;
75004 66666;
75005 00000; O'LAY AND STORE DUMP W/L
75100 CONST 751 751 1 1009 LONG CONSTANTS UDED BY GENERAL CODING
Source image: P1000709.JPG
75102 (D)0514808000; STORE DUMP I/P O/P CST
75104 (A)TROFL;
75106 0; WL FOR MASTER SWITCH START
75108 0; 8-31=UNPACK WL'S IN PASS 3
75110 0;
75112 0;
75114 0;
75116 0;
75118 0;
75120 0;
75122 0;
75124 0;
75126 0;
75128 0;
75130 0;
75132 0;
75134 0; START OF 256-LOCN PRINT ANNEX PASS 3
75136 0;
75138 0;
75140 0;
75142 0;
75144 0;
75200 CONST 752 752 1 1010 LIST AND PRINTER ANNEXE
75202 (D)0; I/O SERIAL
75204 0; REPLACED INSTRUCTIONS
75206 0; CHAP,24 IND,TYPE
75208 0; SEON START+LENGTH
75210 0; SEON NUMBER
75212 0;
75214 0; SUBSEQUENT SECNS
75216 0;
75218 0;
75220 0; 2ND PM POINT
75222 0;
75224 0;
75226 0;
75228 0;
75230 0;
75232 0;
75234 0;
75236 0;
75238 0; 3RD PM POINT
75240 0;
75242 0;
75244 0;
75246 0;
75248 0;
75250 0;
75252 0;
75254 0;
75300 CONST 753 753 1 1011 UNPACKED I/P AND LIST
75302 (D)0; 4TH PM POINT
75304 0;
75306 0;
75308 0;
75310 0;
75312 0;
75314 0;
Source image: P1000710.JPG
75316 0;
75318 0;
75320 0; 5TH PM POINT
75322 0;
75324 0;
75326 0;
75328 0;
75330 0;
75332 0;
75334 0;
75336 0;
75400 CONST 754 754 1 1012 LIST CONTINUED
75402 (D)0; 6TH PM POINT
75404 0;
75406 0;
75408 0;
75410 0;
75412 0;
75414 0;
75416 0;
75418 0;
75420 0; 7TH PM POINT
75422 0;
75424 0;
75426 0;
75428 0;
75430 0;
75432 0;
75434 0;
75436 0;
75438 0; 8TH PM POINT
75440 0;
75442 0;
75444 0;
75446 0;
75448 0;
75450 0;
75452 0;
75454 0;
75456 0; 9TH PM POINT
75458 0;
75460 0;
75462 0;
75464 0;
75466 0;
75468 0;
75470 0;
75472 0;
75474 0; 10TH PM POINT
75476 0;
75478 0;
75480 0;
75482 0;
75484 0;
75486 0;
75488 0;
75490 0;
75500 CONST 755 755 0 1013 W/L'S COMMON TO PASSES 1 AND 2
Source image: P1000711.JPG
75502 (D)0; START OF SWITCH OF TRIAL PROG
75503 0; START OF SP CHAP OF TRIAL PROG
75504 0; NO OF PARAMETERS+1
75505 0; NO OF INITIAL CHAPS
75506 0; MOD GROUPX8
75507 ; PROG'S ENTRY POINT
75508 ; (A)ON ENTRY TO PROG
75509 ; (B) ON ENTRY TO PROG
75510 ; (C) ON ENTRY TO PROG
75511 0; 2ND HALF(B)
75512 0; (C)
75513 0; SPARE
75600 PROCR 756 756 ACHTUNG:IF THE NEXT PROCR IS ALTERED
75601 NOTES RADIX PROCR 1003 MUST BE CHANGED-IT ADDRESSES 2001 AS 1014 SELECT
75700 PROCR 757 757 1014 STORE DETAILS (1)
74469>
74106>75702 5 772 4 1 0 0 772 TRIAL DATA IND Q1-5,LOSE SIGN->WL TRANSFER
74107>75703 125 4096 1 1 0 SET NON INT clear indicators
75704 124 770 8 0 3 0 770 modify address of next
74109>75705 106 2 1 0 0 R1 OF MG 0 select (N)
74110>75706 5 751 6 1 0 0 751 MASTER PROG SWITCH TRANSFER
74102>75707 124 770 8 0 3 0 770 modify address of next
75708 106 44 0 0 0 (3)SWITCH START EX PLS PARAS select (N)
75709 102 755 2 0 0 0 755 transfer (A) to N
75710 124 755 2 0 3 0 755 START OF SP CHAP modify address of next
75711 106 37 0 0 0 select (N)
75712 102 755 3 0 0 0 755 transfer (A) to N
75713 106 755 2 1 0 0 755 SET (MR1)(MG0)FOR PROG UNDER TRIAL select (N)
75714 124 770 8 0 3 0 770 modify address of next
75715 102 2 1 0 0 transfer (A) to N
75716 124 755 2 0 3 0 755 STORE (A),(B), ON ENTRY TO PROG modify address of next
75717 100 30 1 1 0 replace registers
75718 100 755 8 1 0 0 755 copy registers
75719 100 744 72 0 3 0 744 set radix
75720 124 755 2 0 3 0 755 STORE ENTRY POINT modify address of next
75721 106 44 0 0 0 select (N)
75722 102 755 7 0 0 0 755 transfer (A) to N
75723 106 775 2 1 0 0 775 CLEAR LIST select (N)
75724 128 752 2 0 0 0 752 bulk copy short numeric
75725 124 755 2 0 3 0 755 SET PROGS MOD GROUP modify address of next
75726 124 29 1 1 0 set modification group
75727 126 755 3 1 2 0 755 SET (MR2)=SP CHAP START set modification register
75728 124 744 72 0 3 0 744 modify address of next
75729 106 14 0 2 0 STORE NO OF PARAMETERS+1 select (N)
75730 102 755 4 0 0 0 755 transfer (A) to N
75731 124 744 72 0 3 0 744 modify address of next
75732 106 4 0 2 0 STORE NO OF INITIAL CHAPS select (N)
75733 102 755 5 0 0 0 755 transfer (A) to N
75734 124 744 72 0 3 0 744 modify address of next
75735 106 1 0 2 0 STORE 8XMOD GROUP select (N)
75736 118 3 0 3 0 shift binary
75737 102 755 6 0 0 0 755 transfer (A) to N
75738 124 757 4 0 2 0 757 select literal and division
75739 5 745 84 0 0 0 745 SET LINK FOR'ABDON' TRANSFER
75740 10 0 0 0 0 DUMMY ORDER SELECT LITERAL
75741 106 769 4 0 0 0 769 select (N)
75742 102 749 20 0 0 0 749 transfer (A) to N
75743 126 749 9 0 0 0 749 SET(71)FOR PTS enter subroutine
Source image: P1000712.JPG
75744 106 769 5 0 0 0 769 select (N)
75745 124 744 72 0 3 0 744 modify address of next
75746 102 123 0 0 0 transfer (A) to N
75747 101 752 2 1 3 0 752 SET MR1 AT select literal address
75748 107 770 17 0 0 0 770 START AND END OF LIST augment (N) by (A)
75749 102 770 16 0 0 0 770 transfer (A) to N
75750 126 770 16 1 1 0 770 set modification register
75751 100 771 6 0 2 0 771 STEP PROG TAPE replace (B) by (N)
75752 101 40 1 3 0 BACK ONE BLOCK select literal address
75753 126 749 2 0 0 0 749 > enter subroutine
75800 PROCR 758 758 1015 TEST DIRECTIVE
75814>
76350>
76351>
76407>
76418>
76548>75802 100 771 3 0 2 0 771 READ PROG TAPE replace (B) by (N)
75803 101 7 1 3 0 select literal address
75804 126 749 2 0 0 0 749 > enter subroutine
75805 124 771 2 1 2 0 771 modify address of next
75806 106 4 1 0 0 TEST=FILES select (N)
75807 105 770 4 1 0 0 770 subtract (N) from (A)
75808 127 759 2 0 0 0 759 >YES jump A = Z
75809 104 770 4 1 0 0 770 TEST=CHAPT add (N) to (A)
75810 105 770 2 1 0 0 770 subtract (N) from (A)
75811 127 764 2 0 0 0 764 TEST=''E'' jump A = Z
75812 104 770 2 1 0 0 770 add (N) to (A)
75813 101 85 1 2 0 subtract literal address
75814 127 758 2 0 1 0 758 jump A != Z
75815 76 744 2 0 0 0 744 >OLAY JUMP unconditional
75900 PROCR 759 759 1016 STORE PM POINT INFORMATION
75808>75902 106 775 4 1 0 0 775 FORM UP BULK COPY select (N)
75903 124 770 8 0 3 0 770 TABLE modify address of next
75904 104 123 0 0 0 add (N) to (A)
75905 128 774 2 1 0 0 774 COPY ALPHA->NUMERIC bulk copy alpha to short
75906 106 774 2 0 0 0 774 STORE I/C SERIAL NO select (N)
75907 102 1 0 1 0 transfer (A) to N
75908 101 24 0 1 0 prepare for digit collation
75909 115 774 5 0 0 0 774 COLLATE N1 collate and add
75910 118 4125 1 0 0 shift logical
75911 102 4 0 1 0 STORE N1 transfer (A) to N
75912 115 774 5 0 0 0 774 COLLATE N2 collate and add
75913 118 3 0 0 0 shift logical
75914 107 4 0 1 0 STORE N2 augment (N) by (A)
75915 101 23 0 1 0 prepare for digit collation
75916 124 755 6 0 3 0 755 8M modify address of next
75917 106 2 0 0 0 (MR1) select (N)
75918 102 773 2 0 0 0 773 transfer (A) to N
75919 126 773 2 1 3 0 773 SET MODIFIER MR3=MODIFIER MR1 set modification register
75920 115 774 4 0 0 0 774 COLLATE CHAP NO PM TYPE AND N3 collate and add
75921 103 5 0 1 0 AND STORE copy (A) to N
75922 118 4124 0 0 0 TEST PM TYPE shift logical
75923 101 5 1 2 0 subtract literal address
75924 127 763 2 0 0 0 763 >TYPE 5 jump A = Z
75925 101 4 1 2 0 subtract literal address
75926 127 762 2 0 0 0 762 >TYPE 9(CLEO 6) jump A = Z
75927 101 3 1 1 0 add literal address
75928 127 762 2 0 0 0 762 >TYPE 6 jump A = Z
Source image: P1000713.JPG
75929 127 759 31 0 2 0 759 >TYPE>6 TYPE 7=CLEO 1 jump A >= Z
75930 101 5 1 1 0 TYPE 8=CLEO 3 add literal address
75929>75931 101 1 1 1 0 add literal address
75932 102 772 5 0 0 0 772 W/L(FOR TYPE OR TYPE=5) transfer (A) to N
76000 PROCR 760 760 1017 CHAPTER PMS
76002 126 770 8 1 2 0 770 SET(MR2)=16:0 TYPE 1,2,3,4,7,8set modification register
76018>76003 106 772 5 0 0 0 772 select (N)
76004 101 3 1 2 0 TEST CHAPTER DUMP subtract literal address
76005 127 761 2 0 2 0 761 >NO jump A >= Z
76006 106 774 6 0 2 0 774 CHAP NO select (N)
76007 127 763 2 0 0 0 763 >END OF CHAPS jump A = Z
76008 103 8 0 3 0 STORE CHAP NO copy (A) to N
76009 104 774 6 0 2 0 774 add (N) to (A)
76010 126 766 2 0 0 0 766 >FORM UP CHAP DETAILS enter subroutine
76011 103 6 0 3 0 STORE CHAP START copy (A) to N
76012 118 4123 0 0 0 shift logical
76013 105 6 0 3 0 subtract (N) from (A)
76125>76014 102 7 0 3 0 STORE CHAP LENGTH transfer (A) to N
76015 125 3 0 3 0 step on and test
76016 124 760 17 1 0 0 760 > unconditional jump
76016>76017 125 4 0 2 0 TEST FOUR CHAPS DEALstep on and test
76018 124 760 3 1 0 0 760 >NO WITH unconditional jump
76019 124 763 2 1 0 0 763 >YES unconditional jump
76100 PROCR 761 761 1018 SECTION PM'S
76005>76102 125 0 1 2 0 interrogate indicators
76103 101 7 0 1 0 prepare for digit collation
76104 115 774 6 0 2 0 774 COLLATE OUT SECTION NO collate and add
76105 127 763 2 0 0 0 763 >END OF SECNS jump A = Z
76106 102 8 0 3 0 STORE SECN NO transfer (A) to N
76107 101 16 0 1 0 prepare for digit collation
76108 115 774 7 0 2 0 774 COLLATE TA IND collate and add
76109 127 761 17 0 0 0 761 >NOT TA IE SECN jump A = Z
76110 107 8 0 3 0 T A IND augment (N) by (A)
76111 125 0 1 2 0 interrogate indicators
76112 101 24 0 1 0 prepare for digit collation
76113 115 774 6 0 2 0 774 COLLATE RTE PARAM collate and add
76114 118 4125 0 0 0 2XRTE PARAM shift logical
76115 126 767 2 0 0 0 767 >FORM UP -(64+P) enter subroutine
76116 124 761 23 1 0 0 761 > unconditional jump
76109>76117 101 8 0 1 0 prepare for digit collation
76118 115 774 6 0 2 0 774 CHAP NO (Q4) collate and add
76119 115 774 6 0 2 0 774 collate and add
76120 118 4125 0 0 0 shift logical
76121 126 766 2 0 0 0 766 >FORM UP CHAP START enter subroutine
76122 104 774 8 0 2 0 774 SECTION START add (N) to (A)
76116>76123 102 6 0 3 0 SECTION START transfer (A) to N
76124 106 774 9 0 2 0 774 SECTION LENGTH select (N)
76125 124 760 14 1 0 0 760 > unconditional jump
76200 PROCR 762 762 1019 TRACE POINTS PM'S
75928>
75926>76202 126 770 10 1 2 0 770 SET(MR2)=18:0 set modification register
76225>76203 106 774 6 0 2 0 774 CHAP NO AND REL ADD select (N)
76204 127 763 2 0 0 0 763 END OF TRACE PTS jump A = Z
76205 102 6 0 3 0 STORE transfer (A) to N
76206 101 16 0 1 0 TEST PT IN SECN prepare for digit collation
76207 115 774 7 0 2 0 774 collate and add
76208 127 762 16 0 0 0 762 >NO,PROCR jump A = Z
Source image: P1000714.JPG
76209 118 3 0 3 0 shift binary
76210 102 7 0 3 0 SET BIT 20 (SECN IND) transfer (A) to N
76211 101 15 0 1 0 prepare for digit collation
76212 115 774 7 0 2 0 774 REF collate and add
76213 118 3 0 0 0 SHIFT 13 BITS LEFT shift logical
76214 118 1 0 3 0 shift binary
76215 124 762 19 1 0 0 762 > unconditional jump
76208>76216 101 15 0 1 0 prepare for digit collation
76217 115 774 7 0 2 0 774 REF collate and add
76218 118 2 0 0 0 shift logical
76215>76219 107 7 0 3 0 STORE augment (N) by (A)
76220 106 774 8 0 2 0 774 ITEM select (N)
76221 107 7 0 3 0 STORE augment (N) by (A)
76222 125 2 0 3 0 step on and test
76223 124 762 24 1 0 0 762 unconditional jump
76223>76224 125 3 0 2 0 step on and test
76225 124 762 3 1 0 0 762 >NO unconditional jump
76226 125 0 1 2 0 interrogate indicators
76300 PROCR 763 763 1020 STORE REPLACED INSTRUCTIONS
76204>
76105>
76019>
76007>
75924>76302 101 1 0 1 0 TYPE 5 prepare for digit collation
76303 115 774 4 0 0 0 774 UNCORRECTED CHAP NO collate and add
76304 105 755 5 0 0 0 755 subtract (N) from (A)
76305 127 763 52 0 2 0 763 >NO jump A >= Z
76306 104 755 5 0 0 0 755 add (N) to (A)
76307 103 772 3 0 0 0 772 W/L copy (A) to N
76308 118 2 0 0 0 shift logical
76309 107 4 0 1 0 STORE ALLOCATED CHAP NO augment (N) by (A)
76310 106 772 3 0 0 0 772 select (N)
76311 104 772 3 0 0 0 772 add (N) to (A)
76312 126 766 2 0 0 0 766 >FORM UP CHAP START enter subroutine
76313 104 774 3 0 0 0 774 add (N) to (A)
76314 103 0 0 1 0 STORE ABS ADD copy (A) to N
76315 102 773 2 0 0 0 773 W/L transfer (A) to N
76316 126 773 2 1 3 0 773 SET (MR3)=ABS ADD set modification register
76317 124 744 72 0 3 0 744 modify address of next
76318 106 0 0 3 0 select (N)
76319 103 2 0 1 0 copy (A) to N
76320 127 763 33 0 2 0 763 >YES jump A >= Z
76321 105 2 0 1 0 FORM COMPLEMENT OF ACTION subtract (N) from (A)
76322 105 2 0 1 0 subtract (N) from (A)
76323 118 3 0 3 0 ALIGN INSTRUCTION shift binary
76324 118 4124 0 1 0 AT LEAST SIG END shift arithmetic
76325 101 64 1 2 0 subtract literal address
76326 127 763 35 0 0 0 763 >24/0/0 jump A = Z
76327 101 1 1 2 0 subtract literal address
76328 127 763 35 0 0 0 763 >24/0/1 jump A = Z
76329 101 2 1 2 0 subtract literal address
76330 127 763 35 0 0 0 763 >24/0/3 jump A = Z
76331 101 3 1 2 0 subtract literal address
76332 127 763 35 0 0 0 763 >24/1/2 jump A = Z
76320>76333 106 769 2 0 0 0 769 25/1/0 select (N)
76334 124 763 39 1 0 0 763 unconditional jump
76332>
76330>
76328>
Source image: P1000715.JPG
76326>76335 101 4096 1 3 0 select literal address
76336 107 5 0 1 0 STORE 24 ACTION IND augment (N) by (A)
76337 124 744 72 0 3 0 744 modify address of next
76338 106 1 0 3 0 select (N)
76334>76339 102 3 0 1 0 STORE 2ND INSTRUCTION transfer (A) to N
76340 100 771 4 0 2 0 771 replace (B) by (N)
76341 124 772 2 0 3 0 772 modify address of next
76342 115 18 0 0 0 COLLATE 13 BIT CHAP START collate and add
76343 102 772 2 0 0 0 772 W/L transfer (A) to N
76344 105 772 2 0 0 0 772 subtract (N) from (A)
76345 105 755 4 0 0 0 755 NO OF PARAMS+1 subtract (N) from (A)
76346 104 769 3 0 0 0 769 26/0/0 add (N) to (A)
76347 124 744 72 0 3 0 744 modify address of next
76348 102 0 0 3 0 INSERT IN PROG transfer (A) to N
76354>76349 125 18 0 1 0 step on and test
76350 124 758 2 1 0 0 758 > unconditional jump
76351 124 758 2 1 0 0 758 >END OF 10 PM PTS unconditional jump
76305>76352 106 774 3 0 0 0 774 STORE REL ADDRESS select (N)
76353 102 0 0 1 0 transfer (A) to N
76354 124 763 49 1 0 0 763 > unconditional jump
76400 PROCR 764 764 1021 OPEN TRIAL DATA FILE
75811>76402 0 775 6 1 0 0 775 SELECT
76403 124 770 8 0 3 0 770 modify address of next
76404 104 123 0 0 0 add (N) to (A)
76405 128 774 2 1 1 0 774 >UNPACK bulk copy long numeric
76406 0 774 14 2 0 0 774 MT SET NUMBER SELECT
76407 70 758 2 0 0 0 758 >IGNORE SET JUMP IF A == 0
76408 12 0 0 0 9 SUBTRACT LITERAL
76409 70 764 19 0 0 0 764 >ALWAYS ACCEPT JUMP IF A == 0
76410 34 772 4 0 0 0 772 TRIAL DATA IND SET (N) IN B
76411 10 0 0 0 0 SELECT LITERAL
76417>76412 36 771 7 0 0 0 771 Q1 COLLATE AND ADD
76413 2 774 14 2 0 0 774 SUBTRACT
76414 70 764 19 0 0 0 764 >ACCEPT JUMP IF A == 0
76415 10 0 0 0 0 SELECT LITERAL
76416 32 0 0 0 1- SHIFT (AB) BY QUARTETS
76417 75 764 12 0 0 0 764 >CONTINUE SEARCH JUMP IF AB != 0
76418 76 758 2 0 0 0 758 >IGNORE SET JUMP unconditional
76414>
76409>76419 106 774 11 1 0 0 774 PSEUDO RTE PARAMETER select (N)
76420 126 767 2 0 0 0 767 >FORM UP=(64+R) enter subroutine
76421 102 772 3 0 0 0 772 W/L transfer (A) to N
76422 106 774 5 1 0 0 774 RTE PARAMETER select (N)
76423 126 767 2 0 0 0 767 >FORM UP=(64+R) enter subroutine
76424 101 64 1 1 0 add literal address
76425 5 767 2 0 0 0 767 WL TRANSFER
76426 2 767 2 0 0 0 767 SUBTRACT
76427 30 0 0 0 0 ///// DUMMY ORDERS SHIFT (A) BY QUARTETS
76428 30 0 0 0 0 ///// SHIFT (A) BY QUARTETS
76429 102 772 2 0 0 0 772 W/L transfer (A) to N
76430 124 755 2 0 3 0 755 STORE PROG RUN NO modify address of next
76431 106 40 0 0 0 select (N)
76432 102 771 5 0 0 0 771 transfer (A) to N
76433 0 774 8 2 0 0 774 MT RUN NUMBER SELECT
76434 30 0 0 0 1 SHIFT (A) BY QUARTETS
76435 1 774 14 2 0 0 774 SET NUMBER AS RERUN ADD
76436 124 755 2 0 3 0 755 modify address of next
76437 102 40 0 0 0 transfer (A) to N
76438 106 774 3 1 0 0 774 PROG ID select (N)
Source image: P1000716.JPG
76439 118 4123 1 1 0 shift arithmetic
76440 104 774 6 1 0 0 774 FILE ID add (N) to (A)
76441 118 4123 1 1 0 shift arithmetic
76442 101 18 1 1 0 add literal address
76443 126 768 2 0 0 0 768 >I/P-O/P FOR TRIAL DATA enter subroutine
76444 106 771 5 0 0 0 771 RESTORE RUN NO select (N)
76445 124 755 2 0 3 0 755 modify address of next
76446 102 40 0 0 0 transfer (A) to N
76500 PROCR 765 765 1022 WRITE TRIAL DATA
76502 106 774 13 1 0 0 774 select (N)
76503 118 5 0 0 0 shift logical
76504 102 773 2 1 0 0 773 transfer (A) to N
76505 126 773 2 1 3 0 773 SET (MR3)=TRANSIT ARLENGTH set modification register
76542>76506 100 771 3 0 2 0 771 READ PROG TAPE replace (B) by (N)
76507 101 7 1 3 0 select literal address
76508 126 749 2 0 0 0 749 > enter subroutine
76509 126 770 12 1 2 0 770 SET (MR2) AT 48/0 set modification register
76541>76510 124 770 8 0 3 0 770 TEST NEXT WORD modify address of next
76511 124 123 0 3 0 =FIEND modify address of next
76512 106 4 1 2 0 TEST NEXT WORD select (N)
76513 105 770 6 1 0 0 770 subtract (N) from (A)
76514 127 765 43 0 0 0 765 >YES jump A = Z
76515 124 770 8 0 3 0 770 CONVERT WORD FROM modify address of next
76516 124 123 0 3 0 DOUBLE ALPHA modify address of next
76517 106 5 1 2 0 TO ALPHA select (N)
76518 118 5 0 0 0 shift logical
76519 124 770 8 0 3 0 770 modify address of next
76520 124 123 0 3 0 modify address of next
76521 104 7 1 2 0 add (N) to (A)
76522 124 772 3 1 2 0 772 STORE CONVERTED WORD modify address of next
76523 103 4 1 3 0 copy (A) to N
76524 105 770 14 1 0 0 770 TEST BLOCK END WORD subtract (N) from (A)
76525 127 765 31 0 0 0 765 >YES jump A = Z
76526 125 2 0 3 0 TEST END OF TRANSIT step on and test
76527 124 765 40 1 0 0 765 >NO AREA unconditional jump
76528 106 770 14 1 0 0 770 B/E WORD select (N)
76529 124 772 3 1 2 0 772 modify address of next
76530 102 4 1 3 0 transfer (A) to N
76525>76531 101 64 1 2 0 subtract literal address
76532 105 772 3 0 0 0 772 subtract (N) from (A)
76533 118 4118 1 0 0 SET (B)=PSEUDO RTE shift logical
76534 101 8 1 1 0 add literal address
76535 126 768 2 0 0 0 768 >I/P-O/P FOR TRIAL DATA enter subroutine
76536 106 774 13 1 0 0 774 RESET (MR3) AT TRANSIT select (N)
76537 118 5 0 0 0 AREA LENGTH shift logical
76538 102 773 2 1 0 0 773 transfer (A) to N
76539 126 773 2 1 3 0 773 set modification register
76527>76540 125 4 0 2 0 TEST END OF INPUT step on and test
76541 124 765 10 1 0 0 765 >NO AREA unconditional jump
76542 124 765 6 1 0 0 765 >YES unconditional jump
76514>76543 101 33 1 3 0 REWIND FILE select literal address
76544 126 768 2 0 0 0 768 >I/P-O/P FOR TRIAL DATA enter subroutine
76545 125 0 1 2 0 interrogate indicators
76546 124 772 2 0 3 0 772 ROUTE modify address of next
76547 102 0 0 0 0 -16 transfer (A) to N
76548 124 758 2 1 0 0 758 > unconditional jump
76600 PROCR 766 766 1023 FORM UP CHAPTER START & END S/R
76602 81 766 2 0 0 0 766 START OF SUBROUTINE
Source image: P1000717.JPG
76603 3 767 2 0 0 0 767 2X CHAP COPY
76604 1 755 3 0 0 0 755 SPECIAL CHAP START ADD
76605 5 772 2 0 0 0 772 TRANSFER
76606 124 770 8 0 3 0 770 modify address of next
76607 106 43 0 0 0 (3) select (N)
76608 30 0 0 0 4- SHIFT (A) BY QUARTETS
76609 2 767 2 0 0 0 767 SUBTRACT
76610 70 766 13 0 0 0 766 >THIS CHAP CONTAINS PTS JUMP IF A == 0
76611 10 0 0 0 0 SELECT LITERAL
76612 76 766 15 0 0 0 766 JUMP unconditional
76610>76613 101 1500 1 2 0 (REDUCE CHAP END VALUE) subtract literal address
76614 30 0 0 0 5 SHIFT (A) BY QUARTETS
76612>76615 124 772 2 0 3 0 772 modify address of next
76616 104 18 1 0 0 add (N) to (A)
76617 82 766 2 0 0 0 766 END OF SUBROUTINE / LEAVE SUBROUTINE
76700 PROCR 767 767 1024 FORM UP -(64+R)FROM RTE PARAMETER
76702 100 0 0 0 0 Halt
76703 124 755 3 0 3 0 755 modify address of next
76704 104 20 0 0 0 START OF 1ST CHAP (2XRTE PARAM IN A) add (N) to (A)
76705 102 772 2 0 0 0 772 W/L transfer (A) to N
76706 124 772 2 0 3 0 772 modify address of next
76707 105 0 0 0 0 P subtract (N) from (A)
76708 101 64 1 2 0 subtract literal address
76709 126 767 2 0 1 0 767 > leave subroutine
76800 PROCR 768 768 1025 I/P O/P FOR TRIAL DATA S/R
76802 100 0 0 0 0 Halt
76803 118 5 0 0 0 shift logical
76804 104 772 2 0 0 0 772 add (N) to (A)
76805 125 4096 1 1 0 SET NON INT clear indicators
76806 124 770 8 0 3 0 770 modify address of next
76807 123 160 0 2 0 >ENTER M/R enter master routine
76808 126 768 2 0 1 0 768 leave subroutine
76900 PROCR 769 769 1026 INSTRUCTION CONSTANTS FOR PASS 1
76902 125 0 1 0 0 set indicators
76903 126 0 0 0 0 enter subroutine
76904 114 742 2 0 0 0 742 replace selected bits
76905 114 743 2 0 0 0 743 replace selected bits
77000 CONST 770 770 1 1027 CONSTANTS FOR PASS 1
77002 (A)CHAPT;
77004 (A)FILES;
77006 (A)FIEND;
77008 (D)0001000000; 16:00
77010 0001200000; 18:00
77012 0003000000; 48:0
77014 7.0000007.; B/E/WORD
77016 000‼400000; 180:0
77018 0000500000; MR CONST
77100 CONST 771 771 0 1028 CONSTANTS FOR PASS 1
77102 (D)0007‼-; -123(P.RTE FOR RTE 0)
77103 0003‼; 59 PRTE FOR RTE 0
77104 01£££; BITS 1-13
77105 00000; RUN NO
77106 00001;
77107 £; Q1
Source image: P1000718.JPG
77200 CONST 772 772 0 W/L'S FOR PASS 1 1029
77202 (D)0; GENERAL W/L
77203 0; GENERAL W/L
77204 ; TRIALS IND
77205 0; PM TYPE W/L
77300 CONST 773 773 1 1030 LONG W/L'S FOR PASS 1
77302 (D)0; W/L
77400 CONST 774 774 1 1031 UNPACKED I/P FOR PASS 1
77402 (D)0;
77404 0;
77406 0;
77408 0;
77410 0;
77412 0;
77414 0;
77416 0;
77418 0;
77420 0;
77422 0;
77500 CONST 775 775 1 1032 BULK CLEAR AND COPY CONSTS
77502 (D)200‼400000; BULK CLEAR 180
77504 0002+00007; BULK CLEAR 44 FROM7
77506 0000.00006; BULK CLEAR 14 FROM6
77600 PROCR 776 776 START OF PASS 5
77610>
77612>
77614>
88214>77602 152 152 4 0 0 0 152 CALL REST OF PTS OVERLAY
77603 C 918 2 0 0 0 918
77604 0 27 13 0 0 0 SELECT
77605 71 777 18 0 0 0 777 >'TRAMDING'ONLY JUMP IF A != 0
77606 76 777 2 0 0 0 777 JUMP unconditional
77607 152 152 4 0 0 0 152 OVERLAY
77608 C 994 2 0 0 0 994
77609 85 511 2 0 0 0 511 SWITCH R
77610 C 776 2 0 0 0 776
77611 85 514 2 0 0 0 514 SWITCH R
77612 C 776 2 0 0 0 776
77613 85 153 2 0 0 0 153 SWITCH R
77614 C 776 2 0 0 0 776
77615 43 A1 0 0 0 0 SET UP SEC 5 OUTPUT
77616 C 5 0 0 0 0
77700 PROCR 777 777 PREPARE FOR 08005
77705>
77606>77702 80 779 2 0 0 0 779 >READ A6 ENTER SUBROUTINE
77703 9 4 1 0 0 SELECT
77704 2 908 12 1 0 0 908 INDEX' SUBTRACT
77705 71 777 2 0 0 0 777 JUMP IF A != 0
77706 84 352 2 0 0 0 352 CLEAR SWITCH SET SWITCH(ES) AT VARIABLE VALUE
77707 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
77708 C 0 0 0 1010
77717>77709 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
77710 C 0 0 0 48
77711 80 779 2 0 0 0 779 >READ A6 ENTER SUBROUTINE
77716>77712 9 4 2 2 0 SELECT
Source image: P1000719.JPG
77713 5 18 10- 0 1 0 TRANSFER
77714 94 777 16 0 1 1 777 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
77715 76 777 18 0 0 0 777 >END JUMP unconditional
77714>77716 94 777 12 0 2 2 777 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
77717 76 777 9 0 0 0 777 JUMP unconditional
77715>
77605>77718 54 869 5 0 0 3 869 CLEAR CTRS BULK CLEAR
77719 27 3 0 0 0 SELECT
77720 70 778 2 0 0 0 778 >NO B/FWD TRIAL DATA JUMP IF A == 0
77721 48 A1 0 0 0 1 STEP BACK
77722 C 0 0 0 1
77723 0 27 11 0 0 0 SELECT
77724 71 778 4 0 0 0 778 PT=TRAMD JUMP IF A != 0
77725 10 0 0 0 5565540000 END ' SELECT LITERAL
77726 5 9 0 1 0 0 NO PT TRAMD,SET END TRANSFER
77727 76 781 2 0 0 0 781 JUMP unconditional
77800 PROCR 778 778 ALIGN A1,CHECK FIRST P/T BLOCK
77801 NOTES RADIX B SELECT
77720>77802 0 27 11 0 0 0 SELECT
77803 70 882 2 0 0 0 882 >NO PT TRAMD OR MT TRIAL DATA JUMP IF A == 0
77807>
77724>77804 80 811 2 0 0 0 811 >READ P/T ENTER SUBROUTINE
77805 0 9 0 1 0 0 SELECT
77806 2 870 2 1 0 0 870 TRAMD' SUBTRACT
77807 71 778 4 0 0 0 778 >NOT YET JUMP IF A != 0
77808 62 0 0 0 0 SET EXCESS CONSTANTS
77809 80 892 2 0 0 0 892 >3 BLANK LINES ENTER SUBROUTINE
77810 80 892 2 0 0 0 892 ENTER SUBROUTINE
77811 80 892 2 0 0 0 892 ENTER SUBROUTINE
77812 76 781 2 0 0 0 781 JUMP unconditional
77900 PROCR 779 779 READ A6->9
77902 81 779 2 0 0 0 779 START OF SUBROUTINE
77903 42 A6 0 0 0 0 INPUT
77904 C 9 0 0 0 0
77905 82 779 2 0 0 0 779 END OF SUBROUTINE / LEAVE SUBROUTINE
78000 PROCR 780 780 ADJUST INTERCODE ADDRESSES FOR DUMP POINTS
78002 81 780 2 0 0 0 780 (A)=5-DIGIT SERIAL START OF SUBROUTINE
78003 3 875 4 0 0 0 875 WL COPY
78004 12 0 0 0 10000 SUBTRACT LITERAL
78005 73 780 77 0 0 0 780 >REPORT REF<100 JUMP IF A < 0
78006 12 0 0 0 89899 SUBTRACT LITERAL
78007 72 780 77 0 0 0 780 >REPORT REF>998 JUMP IF A >= 0
78008 0 27 13 0 0 0 0 SELECT
78009 70 780 12 0 0 0 780 >NOT TRAMDING ONLY JUMP IF A == 0
78010 0 875 4 0 0 0 875 SELECT
78011 82 780 2 0 0 0 780 END OF SUBROUTINE / LEAVE SUBROUTINE
78009>78012 0 875 4 0 0 0 875 SELECT
78013 32 0 0 0 2- SHIFT (AB) BY QUARTETS
78014 5 875 4 0 0 0 875 REF TRANSFER
78015 32 0 0 0 2 SHIFT (AB) BY QUARTETS
78016 5 875 5 0 0 0 875 ITEM TRANSFER
78017 875 4 0 0 0 875 PROCR REPLACE PROCR SELECT
78018 80 821 2 0 0 0 821 >BIN ENTER SUBROUTINE
78019 33 0 0 0 1- HALVE SHIFT (AB) BY BITS
78020 5 875 2 1 0 0 875 TRANSFER
78021 91 875 2 0 3 0 875 SET MODIFICATION REGISTER AT VARIABLE
78022 74 780 26 0 0 0 780 >EVEN JUMP IF AB == 0 // 27, 1, 0
Source image: P1000720.JPG
78023 18 60- 0 3 0 (STARTS 18/10-) SELECT
78024 31 0 0 0 10- SHIFT (A) BY BITS
78025 76 780 28 0 0 0 780 JUMP unconditional
78022>78026 34 868 6 0 0 0 868 BITS 1-10 SET (N) IN B
78027 36 18 60- 0 3 0 COLLATE AND ADD
78025>78028 80 822 2 0 0 0 822 >DEC ENTER SUBROUTINE
78029 60 0 0 0 0 SET DECIMAL RADIX
78030 70 780 66 0 0 0 780 >TRY UNIQUE REFS JUMP IF A == 0
78031 5 875 4 0 0 0 875 NEW PROCR ADJUST RESULT TRANSFER
78032 5 875 2 0 0 0 875 CLEAR WL TRANSFER
78033 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
78034 C 0 0 0 460
78047>78035 18 440 0 3 0 SELECT
78036 32 0 0 0 2- PROCR SHIFT (AB) BY QUARTETS
78037 70 780 48 0 0 0 780 >END JUMP IF A == 0
78038 2 875 4 0 0 0 875 NEW PROCR SUBTRACT
78039 73 780 47 0 0 0 780 >SEARCH JUMP IF A < 0
78040 71 780 48 0 0 0 780 >END(GREATER) JUMP IF A != 0
78041 32 0 0 0 2 ITEM IN PROCR SHIFT (AB) BY QUARTETS
78042 2 875 5 0 0 0 875 OLD ITEM SUBTRACT
78043 70 780 45 0 0 0 780 JUMP IF A == 0
78044 72 780 59 0 0 0 780 >NEXT ADJUST POINT IS LATER JUMP IF A >= 0
78043>78045 18 441 0 3 0 SELECT
78046 4 875 2 0 0 0 875 AUG TOTAL ADJUSTMENT AUGMENT
78039>78047 94 780 35 0 3 2 780 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
78061>
78040>
78037>78048 875 2 0 0 0 875 TOTAL ADJUSTMENT SELECT
78049 1 875 5 0 0 0 875 OLD ITEM ADD
78050 3 875 5 0 0 0 875 COPY
78051 12 0 0 0 100 SUBTRACT LITERAL
78052 72 780 64 0 0 0 780 >ITEM TOO LARGE JUMP IF A >= 0
78053 62 0 0 0 0 SET EXCESS CONSTANTS
78054 875 4 0 0 0 875 NEW REF SELECT
78055 30 0 0 0 2 SHIFT (A) BY QUARTETS
78056 1 875 5 0 0 0 875 NEW ITEM ADD
78057 82 780 2 0 0 0 780 END OF SUBROUTINE / LEAVE SUBROUTINE
78058 76 780 81 0 0 0 780 >EXIT JUMP unconditional
78044>78059 1 18 441 0 3 0 ADD
78060 70 780 62 0 0 0 780 >ADDRESS DELETED JUMP IF A == 0
78061 72 780 48 0 0 0 780 >NEXT IS DELETION JUMP IF A >= 0
78060>78062 10 0 0 0 5:5:5:5:7£ ????DELTA' SELECT LITERAL
78063 76 805 3 0 0 0 805 JUMP unconditional
78052>78064 10 0 0 0 5:5:5:5:59 ????I' SELECT LITERAL
78065 76 805 3 0 0 0 805 JUMP unconditional
78030>78066 875 4 0 0 0 875 REF UNIQUE REFS SELECT
78067 30 0 0 0 2 SHIFT (A) BY QUARTETS
78068 1 875 5 0 0 0 875 ITEM ADD
78069 5 875 2 0 0 0 875 TRANSFER
78070 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
78071 C 0 0 0 100
78076>78072 18 900 0 3 0 SELECT
78073 70 780 77 0 0 0 780 >END,REPORT JUMP IF A == 0
78074 2 875 2 0 0 0 875 SUBTRACT
78075 70 780 80 0 0 0 780 >MATCH JUMP IF A == 0
78076 94 780 72 0 3 2 780 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
78073>
78007>
78005>78077 10 0 0 0 5:5:5:5:69 ????R' SELECT LITERAL
78078 62 0 0 0 0 SET EXCESS CONSTANTS
Source image: P1000721.JPG
78079 76 805 3 0 0 0 805 JUMP unconditional
78075>78080 18 901 0 3 0 SELECT
78058>78081 62 0 0 0 0 SET EXCESS CONSTANTS
78082 82 780 2 0 0 0 780 END OF SUBROUTINE / LEAVE SUBROUTINE
78100 PROCR 781 781 STORE TRANSLATOR'S INFORMATION
78101 NOTES RADIX B COPY TAPE TO TRIALS INFORMATION SELECT
77812>
77727>78102 0 92 29 0 0 0 INITIAL CHAPS SELECT
78103 5 869 3 0 0 0 869 TRANSFER
78104 52 5 2 0 0 0 EDIT PRINTER HEADING EDIT
78105 C 875 2 0 0 0 875
78106 00 872 6 1 0 0 872 SELECT
78107 80 817 2 0 0 0 817 PRINT ENTER SUBROUTINE
78108 83 826 4 0 0 1 826 SET SWITCH(ES) AT LITERAL VALUE
78109 83 129 2 0 0 2 129 SET SWITCH(ES) AT LITERAL VALUE
78110 00 27 3 0 0 0 SELECT
78111 71 781 15 0 0 0 781 >NO JUMP IF A != 0
78112 00 870 8 1 0 0 870 PUT PREND IN ANNEXE SELECT
78113 05 7 4 1 0 0 TRANSFER
78114 76 782 2 0 0 0 782 JUMP unconditional
78111>78115 80 810 2 0 0 0 810 >READ A1 ENTER SUBROUTINE
78116 00 7 4 1 0 0 SELECT
78117 02 870 6 1 0 0 870 SUBTRACT
78118 70 783 2 0 0 0 783 >YES JUMP IF A == 0
78119 80 841 2 0 0 0 841 >PRINT DUMPS HEADING ENTER SUBROUTINE
78120 76 789 2 0 0 0 789 JUMP unconditional
78200 PROCR 782 782 INITIAL SUBMISSION OF DUMPS POINTS
78201 NOTES RADIX B AND TRIAL DATA SELECT
78214>
78114>78202 80 811 2 0 0 0 811 >READ B1 ENTER SUBROUTINE
78203 00 9 0 1 0 0 SELECT
78204 02 870 12 1 0 0 870 SUBTRACT
78205 70 783 11 0 0 0 783 >YES JUMP IF A == 0
78206 01 870 12 1 0 0 870 ADD
78207 02 870 10 1 0 0 870 SUBTRACT
78208 70 782 15 0 0 0 782 JUMP IF A == 0
78209 01 870 10 1 0 0 870 ADD
78210 30 0 0 0 4- SHIFT (A) BY QUARTETS
78211 12 0 0 0 556554 SUBTRACT LITERAL
78212 70 804 3 0 0 0 804 >YES JUMP IF A == 0
78213 80 820 2 0 0 0 820 >PRINT ERROR LINE ENTER SUBROUTINE
78214 76 782 2 0 0 0 782 > JUMP unconditional
82618>
78208>78215 80 814 2 0 0 0 814 >UNPACK'FILES' ENTER SUBROUTINE
78216 80 849 2 0 0 0 849 ENTER SUBROUTINE
78217 80 848 2 0 0 0 848 >PROCESS/PRINT HEADING ENTER SUBROUTINE
78222>78218 80 838 2 0 0 0 838 >SET PRINT MR+CTRS ENTER SUBROUTINE
78219 10 0 0 0 1- SELECT LITERAL
78220 5 833 12 0 0 0 833 SET IND TRANSFER
78221 80 784 2 0 0 0 784 >APPLY PT ENTER SUBROUTINE
78222 71 782 18 0 0 0 782 >NOT NEW DATA TYPE JUMP IF A != 0
78223 76 803 37 0 0 0 803 >TEST JUMP unconditional
78300 PROCR 783 783 PROCESS P.M. POINTS
78301 NOTES RADIX B SELECT
78118>78302 0 27 11 0 0 0 SELECT
78303 71 783 7 0 0 0 783 >PT=TRAMD JUMP IF A != 0
78304 10 0 0 0 5565540000 SET PT='END ' SELECT LITERAL
Source image: P1000722.JPG
78305 5 9 0 1 0 0 TRANSFER
78306 76 803 37 0 0 0 803 >DEAL WITH MT TRIAL DATA JUMP unconditional
78303>78307 80 811 2 0 0 0 811 ENTER SUBROUTINE
78308 0 9 0 1 0 0 TEST DUMPS BLOC SELECT
78309 2 870 12 1 0 0 870 OF P/T SUBTRACT
78310 71 803 37 0 0 0 803 >NO JUMP IF A != 0
78205>78311 80 841 2 0 0 0 841 >PREPARE FOR DUMPS POINTS S/R ENTER SUBROUTINE
78316>78312 80 813 2 0 0 0 813 UNPACK P/T ENTER SUBROUTINE
78313 80 842 2 0 0 0 842 PROCESS DUMPS POINT ENTER SUBROUTINE
78314 80 811 2 0 0 0 811 >READ P/T ENTER SUBROUTINE
78315 80 826 2 0 0 0 826 >TEST P/T S/R ENTER SUBROUTINE
78316 76 783 12 0 0 0 783 > JUMP unconditional
78400 PROCR 784 784 SR TO OUTPUT CURRENT BLOCK OF PT
78401 NOTES RADIX B SELECT
78402 81 784 2 0 0 0 784 START OF SUBROUTINE
78703>78403 80 811 2 0 0 0 811 READ P/T ENTER SUBROUTINE
78404 80 791 2 0 0 0 791 >TEST END OF DATA TYPE ENTER SUBROUTINE
78405 71 823 2 0 0 0 823 >UNPACK PT JUMP IF A != 0
78406 833 12 0 0 0 833 SELECT
78407 70 787 19 0 0 0 787 >YES(EXIT WITH A ZERO) JUMP IF A == 0
78408 86 786 2 0 0 0 786 BEW FOUND? SELECT SWITCH R
78409 12 0 0 0 2 SUBTRACT LITERAL
78410 71 787 17 0 0 0 787 >YES EXIT WITH ZERO JUMP IF A != 0
78411 83 352 2 0 0 1 352 SET NO SET SWITCH(ES) AT LITERAL VALUE
78412 872 4 1 0 0 872 SELECT
78413 76 786 17 0 0 0 786 O/P IT JUMP unconditional
82553>78414 85 785 2 0 0 0 785 TEST BLOCK AND SWITCH R
78415 C 785 2 0 0 0 785 >NO ITEM LENBTHS TO
78416 C 784 17 0 0 0 784 >YES BE CHECKED
78416>78417 85 781 2 0 0 0 781 TEST BEGINNING SWITCH R
78418 C 785 2 0 0 0 785 >NO OF TD BLOCK
78419 C 784 20 0 0 0 784 >YES
78419>78420 10 0 0 0 6 SET ITEM LGTH POSN SELECT LITERAL
78421 3 32 165 0 0 0 AT 6 COPY
78422 1 32 96 2 0 0 ADD
78423 80 822 2 0 0 0 822 >CONVERT TO DEC ENTER SUBROUTINE
78424 5 32 166 0 0 0 TRANSFER
78500 PROCR 785 785 DEAL WITH BLANK LINES
78501 NOTES RADIX B SELECT
78418>
78415>78502 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
78503 10 0 0 0 0 CLEAR A SELECT LITERAL
78504 36 32 92 2 0 0 Q1&2 OF PT LINE SERIAL COLLATE AND ADD
78505 5 32 92 2 0 0 TRANSFER
78518>78506 32 139 0 0 0 LINE CTR SELECT
78507 2 32 92 2 0 0 PT LINE SERIAL SUBTRACT
78508 72 786 2 0 0 0 786 >NO JUMP IF A >= 0
78509 80 839 2 0 0 0 839 >STEP WORD NOS BY 14 S/R ENTER SUBROUTINE
78510 90 0 0 12 0 SET 7 ZERO WORDS SET MODIFICATION REGISTER AT LITERAL
78511 C 0 0 0 7
78513>78512 80 851 2 0 0 0 851 >STEP(MR1)S/R ENTER SUBROUTINE
78513 94 785 12 0 12 1 785 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
78514 10 0 0 0 1 STEP LINE SERIAL CTR SELECT LITERAL
78515 60 0 0 0 0 BY 1 SET DECIMAL RADIX
78516 4 32 139 0 0 0 AUGMENT
78517 62 0 0 0 0 SET EXCESS CONSTANTS
78518 76 785 6 0 0 0 785 >GENERATE MORE BLANK LINES JUMP unconditional
Source image: P1000723.JPG
78600 PROCR 786 786 PROCESS NEGATIVE WORDS
78601 NOTES RADIX B SELECT
78508>78602 60 0 0 0 0 SET DECIMAL RADIX
78603 00 32 92 2 0 0 SET LINE CTR=LINE SELECT
78604 11 0 0 0 1 SERIAL+1 ADD LITERAL
78605 05 32 139 0 0 0 TRANSFER
78606 62 0 0 0 0 SET EXCESS CONSTANTS
78706>
78713>78607 0 32 94 1 5 0 NEXT PT WORD SELECT
78608 72 786 17 0 0 0 786 >NO JUMP IF A >= 0
78609 00 32 94 2 5 0 SELECT
78610 80 822 2 0 0 0 822 >CONVERT TO DEC ENTER SUBROUTINE
78611 05 32 22 2 2 0 TRANSFER
78612 10 0 0 0 5300000000 SET C SP SP SP SP SELECT LITERAL
78613 35 0 0 0 1100000000 IN*WORD PREPARE FOR DIGIT COLLATION
78614 37 32 22 1 2 0 REPLACE SELECTED BITS
78615 83 787 4 0 0 2 787 SET SWITCH(ES) AT LITERAL VALUE
78616 02 32 94 1 5 0 SUBTRACT
78608>
78413>78617 03 32 36 1 1 0 STORE FOR M/T COPY
78618 3 32 0 1 2 0 COPY
78619 833 12 0 0 0 833 SELECT
78620 71 786 34 0 0 0 786 >BLOCK AMENDMENT JUMP IF A != 0
78621 32 0 1 2 0 SELECT
78622 85 781 2 0 0 0 781 FIRST WORD SWITCH SWITCH R
78623 C 786 42 0 0 0 786 >NO
78624 C 786 25 0 0 0 786 >YES
78624>78625 5 32 2 1 2 0 PUT 1ST WORD IN WORD 4 POSITION TRANSFER
78626 5 32 0 1 2 0 TRANSFER
78627 10 0 0 0 6 SELECT LITERAL
78628 3 32 165 0 0 0 SET COPY
78629 1 32 2 2 2 0 ADD BLOCK LENGTH ADD
78630 80 822 2 0 0 0 822 >DEC ENTER SUBROUTINE
78631 5 32 166 0 0 0 SET AS NEW BLOCK LENGTH TRANSFER
78632 83 781 2 0 0 1 781 RESET SWITCH SET SWITCH(ES) AT LITERAL VALUE
78633 94 786 42 0 2 2 786 >(UNCONDITIONAL) STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
78620>78634 86 849 2 0 0 0 849 BLOCK AMEND SELECT SWITCH R
78635 12 0 0 0 2 SUBTRACT LITERAL
78636 71 786 40 0 0 0 786 >NOT FIRST PRINTED LINE OF BLOCK JUMP IF A != 0
78637 10 0 0 0 10000 SELECT LITERAL
78638 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION
78639 37 32 14 0 0 0 SET'>>'IND REPLACE SELECTED BITS
78636>78640 80 858 2 0 0 0 858 >PROCESS WORD ENTER SUBROUTINE
78641 76 786 57 0 0 0 786 JUMP unconditional
78633>
78623>78642 80 788 2 0 0 0 788 >SET'AMEND'IND,PROCESS WORD ENTER SUBROUTINE
78643 86 830 2 0 0 0 830 SELECT SWITCH R
78644 12 0 0 0 2 SUBTRACT LITERAL
78645 71 786 53 0 0 0 786 >INSERTING,NOT REPLACING WORDS JUMP IF A != 0
78646 32 140 1 8 0 WORD BEING REPLACED SELECT
78647 5 875 4 1 0 0 875 WL TRANSFER
78648 80 861 2 0 0 0 861 STEP (MR8) S/R ENTER SUBROUTINE
78649 80 840 2 0 0 0 840 STEP WORD CTR S/R ENTER SUBROUTINE
78650 875 4 1 0 0 875 WORD JUST REPLACED SELECT
78651 2 872 4 1 0 0 872 BEW SUBTRACT
78652 70 786 57 0 0 0 786 >OK,BEW REPLACED BEW JUMP IF A == 0
78645>78653 86 786 2 0 0 0 786 BEW FOUND'SWITCH SELECT SWITCH R
78654 12 0 0 0 1 SUBTRACT LITERAL
78655 70 787 2 0 0 0 787 >BEW NOT OUTPUT JUMP IF A == 0
78656 80 862 2 0 0 0 862 >DRAIN REST OF M/T BLOCK BEING AMENDED ENTER SUBROUTINE
78652>
Source image: P1000724.JPG
78641>78657 85 786 4 0 0 0 786 TEST B/E FOUND SWITCH R
78658 C 787 2 0 0 0 787 >NO
78659 C 787 14 0 0 0 787 >YES
78660 C 787 15 0 0 0 787 >YES AT END OF LINE
78700 PROCR 787 787 PREPARE FOR NEXT BLOCK
78701 NOTES RADIX B SELECT
78658>
78655>78702 94 787 4 0 5 2 787 >NOT END OF THIS PT BLOCK STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
78703 76 784 3 0 0 0 784 >READ MORE PT JUMP unconditional
78702>78704 00 32 94 1 5 0 NEXT PT WORD SELECT
78705 02 872 8 1 0 0 872 'SXBE'=END SIGN SUBTRACT
78706 71 786 7 0 0 0 786 >NO JUMP IF A != 0
78707 833 12 0 0 0 833 SELECT
78708 73 787 11 0 0 0 787 >INSERTING ENTIRE TD SET JUMP IF A < 0
78709 10 0 0 0 1- SELECT LITERAL
78710 82 784 2 0 0 0 784 (A)<0 END OF SUBROUTINE / LEAVE SUBROUTINE
78708>78711 10 0 0 0 0 DELETE END SIGN SELECT LITERAL
78712 5 32 94 1 5 0 TRANSFER
78713 76 786 7 0 0 0 786 JUMP unconditional
78659>78714 80 853 2 0 0 0 853 >END OF TRIAL DATA BLOCK S/R ENTER SUBROUTINE
78660>78715 86 352 2 0 0 0 352 SELECT SWITCH R
78716 70 787 20 0 0 0 787 >EXIT WITH 1 JUMP IF A == 0
78410>78717 10 0 0 0 0 SELECT LITERAL
78718 84 352 2 0 0 0 352 CLEAR SWITCH(EXIT WITH 0) SET SWITCH(ES) AT VARIABLE VALUE
78407>78719 82 784 2 0 0 0 784 END OF SUBROUTINE / LEAVE SUBROUTINE
78716>78720 10 0 0 0 1 EXIT WITH 1 SELECT LITERAL
78721 82 784 2 0 0 0 784 END OF SUBROUTINE / LEAVE SUBROUTINE
78800 PROCR 788 788 PROCESS WORD EXPT AND SET'->'IND
78802 81 788 2 0 0 0 788 START OF SUBROUTINE
78803 96 0 0 2 0 SELECT MODIFIER
78804 31 0 0 0 1- SHIFT (A) BY BITS
78805 5 858 2 0 0 0 858 WL TRANSFER
78806 124 858 2 0 1 0 858 modify address of next
78807 2 32 15 0 0 0 SUBTRACT
78808 124 858 2 0 1 0 858 modify address of next
78809 5 32 15 0 0 0 SET NEGATIVE TRANSFER
78810 80 858 2 0 0 0 858 >PROCESS WORD ENTER SUBROUTINE
78811 82 788 2 0 0 0 788 END OF SUBROUTINE / LEAVE SUBROUTINE
78900 PROCR 789 789 PRINT DUMP POINT IF NOT TO BE AMENDED
78901 NOTES RADIX B SELECT
78910>
78923>
78120>78902 80 791 2 0 0 0 791 >TEST PT=END ENTER SUBROUTINE
78903 70 789 21 0 0 0 789 >YES,REST OF MT DUMPS JUMP IF A == 0
78904 0 9 0 1 0 0 SELECT
78905 32 0 0 0 2- SHIFT (AB) BY QUARTETS
78906 12 0 0 0 54746467 'DUMP' SUBTRACT LITERAL
78907 70 789 11 0 0 0 789 >YES JUMP IF A == 0
78920>
79009>78908 80 820 2 0 0 0 820 >PRINT PT ENTER SUBROUTINE
78909 80 811 2 0 0 0 811 >READ PT ENTER SUBROUTINE
78910 76 789 2 0 0 0 789 JUMP unconditional
78907>78911 32 0 0 0 2 SHIFT (AB) BY QUARTETS
78912 12 0 0 0 59 'I' SUBTRACT LITERAL
78913 71 789 17 0 0 0 789 >NO JUMP IF A != 0
78914 10 0 0 0 41 REPLACE 'DUMPI' BY 'DUMP1' SELECT LITERAL
Source image: P1000727.JPG
78915 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
78916 37 9 0 1 0 0 REPLACE SELECTED BITS
79016>
79030>
78913>78917 0 9 0 1 0 0 TEST AMENDMENT TO THSELECT
78918 02 7 50 1 0 0 DUMPS POINT SUBTRACT
78919 70 790 2 0 0 0 790 >YES JUMP IF A == 0
78920 73 789 8 0 0 0 789 >REPORT PT JUMP IF A < 0
79012>
79026>
78903>78921 76 854 2 0 0 0 854 >OUTPUT DUMPS POINT EX MT JUMP unconditional
79034>
79038>
79042>
79049>
85537>78922 80 857 2 0 0 0 857 >READ A1,TEST'CHART/PREND/E' ENTER SUBROUTINE
78923 71 789 2 0 0 0 789 >NO,TEST PT JUMP IF A != 0
78928>
79024>78924 80 791 2 0 0 0 791 >TEST PT=END ENTER SUBROUTINE
78925 70 803 37 0 0 0 803 >YES JUMP IF A == 0
79044>78926 80 820 2 0 0 0 820 >PRINT PT ENTER SUBROUTINE
78927 80 811 2 0 0 0 811 >READ PT ENTER SUBROUTINE
78928 76 789 24 0 0 0 789 >LOOP TO PT END JUMP unconditional
79000 PROCR 790 790 IMPLEMENT DUMPS POINT AMDTS
79001 NOTES RADIX B SELECT
78919>79002 00 9 2 1 0 0 TEST DIRECTIVE SELECT
79003 30 0 0 0 8- SHIFT (A) BY QUARTETS
79004 12 0 0 0 54 SUBTRACT LITERAL
79005 70 790 32 0 0 0 790 >DELETE JUMP IF A == 0
79006 12 0 0 0 15 SUBTRACT LITERAL
79007 70 790 20 0 0 0 790 >REPLACE JUMP IF A == 0
79008 12 0 0 0 Ю SUBTRACT LITERAL
79009 71 789 8 0 0 0 789 >NOT INSERT,REPORT JUMP IF A != 0
79019>79010 80 811 2 0 0 0 811 >READ PT INSERTION ENTER SUBROUTINE
79011 80 791 2 0 0 0 791 >TEST END ENTER SUBROUTINE
79012 70 789 21 0 0 0 789 >YES,FINISH MT JUMP IF A == 0
79013 0 9 0 1 0 0 SELECT
79014 30 0 0 0 2- SHIFT (A) BY QUARTETS
79015 12 0 0 0 54746467 'DUMP' SUBTRACT LITERAL
79016 70 789 17 0 0 0 789 >END OF INSERTION JUMP IF A == 0
79017 80 813 2 0 0 0 813 >UNPACK PT ENTER SUBROUTINE
79018 80 842 2 0 0 0 842 >PROCESS PT ENTER SUBROUTINE
79019 76 790 10 0 0 0 790 JUMP unconditional
79031>
79007>79020 80 813 2 0 0 0 813 >UNPACK PT REPLACEMENT ENTER SUBROUTINE
79021 80 842 2 0 0 0 842 >PROCESS PT ENTER SUBROUTINE
79022 80 811 2 0 0 0 811 >READ PT ENTER SUBROUTINE
79023 80 857 2 0 0 0 857 >READ MT,TEST END ENTER SUBROUTINE
79024 70 789 24 0 0 0 789 >YES JUMP IF A == 0
79025 80 791 2 0 0 0 791 >TEST PT=END ENTER SUBROUTINE
79026 70 789 21 0 0 0 789 >YES,FINISH MT JUMP IF A == 0
79027 0 9 0 1 0 0 SELECT
79028 30 0 0 0 2- SHIFT (A) BY QUARTETS
79029 12 0 0 0 54746467 'DUMP' SUBTRACT LITERAL
79030 70 789 17 0 0 0 789 >NEW DIRECTIVE JUMP IF A == 0
79031 76 790 20 0 0 0 790 >ASSUME REPLACES NEXT LINE JUMP unconditional
79005>79032 80 811 2 0 0 0 811 >READ PT DELETIONS ENTER SUBROUTINE
79033 80 791 2 0 0 0 791 >TEST END ENTER SUBROUTINE
79034 70 789 22 0 0 0 789 >YES DELETION ENDED JUMP IF A == 0
Source image: P1000728.JPG
79035 0 9 0 1 0 0 SELECT
79036 30 0 0 0 2- SHIFT (A) BY QUARTETS
79037 12 0 0 0 54746467 'DUMP' SUBTRACT LITERAL
79038 71 789 22 0 0 0 789 >NO,READ MT,PREPARE TO REPORT PT JUMP IF A != 0
79039 0 9 3 0 0 0 SELECT
79040 70 790 43 0 0 0 790 >OK MULTIPLE DELETION JUMP IF A == 0
79041 2 872 5 0 0 0 872 SUBTRACT
79042 71 789 22 0 0 0 789 >NOT MULTIPLE DELETION JUMP IF A != 0
79047>
79040>79043 80 857 2 0 0 0 857 >READ MT,TEST END ENTER SUBROUTINE
79044 70 789 26 0 0 0 789 >YES,PRINT REPORT JUMP IF A == 0
79045 0 7 50 1 0 0 SELECT
79046 2 9 0 1 0 0 SUBTRACT
79047 71 790 43 0 0 0 790 >DELETION NOT FINISHED JUMP IF A != 0
79048 80 811 2 0 0 0 811 >READ PT ENTER SUBROUTINE
79049 76 789 22 0 0 0 789 JUMP unconditional
79100 PROCR 791 791 TEST PT=END OF DUMPS DATA
79102 81 791 2 0 0 0 791 START OF SUBROUTINE
79103 0 9 0 1 0 0 SELECT
79104 30 0 0 0 2- SHIFT (A) BY QUARTETS
79105 12 0 0 0 56596355 'FILE' SUBTRACT LITERAL
79106 70 791 10 0 0 0 791 >YES JUMP IF A == 0
79107 0 9 0 1 0 0 SELECT
79108 30 0 0 0 4- SHIFT (A) BY QUARTETS
79109 12 0 0 0 556554 'END' SUBTRACT LITERAL
79106>79110 82 791 2 0 0 0 791 END OF SUBROUTINE / LEAVE SUBROUTINE
79200 PROCR 792 792 'FILER'AND'FILED'DATA TYPES=REPLACEMENT/DELETION OF WHOLESET
79201 NOTES RADIX B WHOLE TD SET SELECT
79214>
82620>79202 00 7 4 1 0 0 TEST CHAPT BLOCK SELECT
79203 02 870 6 1 0 0 870 SUBTRACT
79204 71 804 2 0 0 0 804 >NO,ERROR JUMP IF A != 0
79205 80 814 2 0 0 0 814 UNPACK ENTER SUBROUTINE
79206 0 30 2 1 0 0 ROUTE IDENTIFIER SELECT
79207 80 812 2 0 0 0 812 >R-ALIGN ENTER SUBROUTINE
79208 02 7 26 1 0 0 TEST RIGHT FILE SUBTRACT
79209 70 792 15 0 0 0 792 >YES JUMP IF A == 0
79222>79210 7 26 1 0 0 SELECT
79211 30 0 0 0 6 SHIFT (A) BY QUARTETS
79212 5 30 2 1 0 0 TRANSFER
79213 80 856 2 0 0 0 856 >PRINT'FILE UNALTERED' ENTER SUBROUTINE
79214 76 792 2 0 0 0 792 > JUMP unconditional
79209>79215 0 7 18 2 0 0 SELECT
79216 30 0 0 0 7 LOSE POSSIBLE ££ IN Q4 AND Q5 SHIFT (A) BY QUARTETS
79217 30 0 0 0 7- SHIFT (A) BY QUARTETS
79218 5 869 8 0 0 0 869 TRANSFER
79219 0 30 10 2 0 0 SET EX PT SELECT
79220 80 812 2 0 0 0 812 >R-ALIGN ENTER SUBROUTINE
79221 2 869 8 0 0 0 869 TEST RIGHT SET SUBTRACT
79222 71 792 10 0 0 0 792 >NO JUMP IF A != 0
79224>79223 80 857 2 0 0 0 857 >READ,TEST PREND,CHAPT OR E ENTER SUBROUTINE
79224 71 792 23 0 0 0 792 >NO JUMP IF A != 0
79225 76 797 17 0 0 0 797 > JUMP unconditional
79300 PROCR 793 793 'FILEA'DATA TYPE=FIND FILE BEING AMENDED
79301 NOTES RADIX B SELECT
79724>
82611>79302 80 829 2 0 0 0 829 >UNPACK PT ENTER SUBROUTINE
Source image: P1000729.JPG
79303 0 833 2 1 0 0 833 PT FILE SELECT
79304 2 32 126 1 0 0 MT FILE SUBTRACT
79305 71 793 16 0 0 0 793 >NOT THIS JUMP IF A != 0
79306 0 833 4 0 0 0 833 PT SET SELECT
79307 2 32 125 0 0 0 MT SET SUBTRACT
79308 71 793 16 0 0 0 793 >NO JUMP IF A != 0
79309 80 799 2 0 0 0 799 >TEST'FIEND' REPORT IF SO ENTER SUBROUTINE
79310 0 833 12 0 0 0 833 NEXT IS BLOCK AMEND? SELECT
79311 71 796 3 0 0 0 796 >YES,FINISH THIS BLOCK JUMP IF A != 0
79738>79312 0 833 6 0 0 0 833 PT BLOCK (WORD AMEND) SELECT
79313 2 32 138 0 0 0 PT BLOCK SUBTRACT
79314 71 796 3 0 0 0 796 >DIFFERENT BLOCK,FINISH THIS ONE JUMP IF A != 0
79315 76 798 2 0 0 0 798 >APPLY JUMP unconditional
79727>
79730>
79308>
79305>79316 80 864 2 0 0 0 864 >WRITE AND PRINT TO FIEND ENTER SUBROUTINE
79331>79317 00 7 4 1 0 0 TEST CHAPT BLOCK SELECT
79318 02 870 6 1 0 0 870 SUBTRACT
79319 71 804 2 0 0 0 804 >NO ERROR JUMP IF A != 0
79320 0 833 2 1 0 0 833 PT FILE SELECT
79321 2 7 26 1 0 0 MT FILE SUBTRACT
79322 71 793 27 0 0 0 793 >NO JUMP IF A != 0
79323 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
79324 36 7 18 2 0 0 MT SET COLLATE AND ADD
79325 2 833 4 0 0 0 833 PT SET SUBTRACT
79326 70 795 2 0 0 0 795 >YES JUMP IF A == 0
79322>79327 0 7 26 1 0 0 ROUTE IDENTIFIER SELECT
79328 30 0 0 0 6 SHIFT (A) BY QUARTETS
79329 5 30 2 1 0 0 TRANSFER
79330 80 856 2 0 0 0 856 >PRINT'FILE UNALTERED' ENTER SUBROUTINE
79331 76 793 17 0 0 0 793 > JUMP unconditional
79400 PROCR 794 794 PREPARE TO APPLY AMENDMENTS
79401 NOTES RADIX B SELECT
79402 81 794 2 0 0 0 794 START OF SUBROUTINE
79403 00 7 12 2 0 0 RUN NO SELECT
79404 05 30 4 0 0 0 TRANSFER
79405 00 7 22 2 0 0 BLOCK SIZE SELECT
79406 05 30 5 0 0 0 TRANSFER
79407 00 7 20 2 0 0 SECN NO SELECT
79408 05 30 6 0 0 0 TRANSFER
79409 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
79410 36 7 18 2 0 0 'CLEAN'SET NO COLLATE AND ADD
79411 05 30 7 0 0 0 TRANSFER
79412 00 7 24 2 0 0 IND SELECT
79413 05 30 8 0 0 0 TRANSFER
79414 00 7 10 1 0 0 FILE ID SELECT
79415 30 0 0 0 6 SHIFT (A) BY QUARTETS
79416 05 30 10 1 0 0 TRANSFER
79417 80 849 2 0 0 0 849 >PROCESS TD HEADING ENTER SUBROUTINE
79418 82 794 2 0 0 0 794 END OF SUBROUTINE / LEAVE SUBROUTINE
79500 PROCR 795 795 ALIGN ON FIRST BLOCK TO BE AMENDED
79501 NOTES RADIX B SELECT
79326>79502 00 7 26 1 0 0 SELECT
79503 03 32 126 1 0 0 STORE FILE ID COPY
79504 30 0 0 0 6 SHIFT (A) BY QUARTETS
79505 05 30 2 1 0 0 TRANSFER
79506 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
Source image: P1000730.JPG
79507 36 7 18 2 0 0 CLEAN SET NO COLLATE AND ADD
79508 05 32 125 0 0 0 TRANSFER
79509 833 12 0 0 0 833 SELECT
79510 70 795 14 0 0 0 795 >WORD AMEND OF THIS BLOCK JUMP IF A == 0
79511 0 833 6 0 0 0 833 BLOCK NUMBER SELECT
79512 12 0 0 0 7 SUBTRACT LITERAL
79513 70 797 2 0 0 0 797 >REPLACING FILE HEADING JUMP IF A == 0
79510>79514 80 794 2 0 0 0 794 ENTER SUBROUTINE
79515 80 848 2 0 0 0 848 >PROCESS AND PRINT HEADING ENTER SUBROUTINE
79516 10 0 0 0 8 SET BLOCK CTRS AT 8 SELECT LITERAL
79517 05 32 138 0 0 0 TRANSFER
79518 90 0 0 8 22 SET(MR8)=24:22 SET MODIFICATION REGISTER AT LITERAL
79519 C 0 0 0 24
79520 80 861 2 0 0 0 861 >READ AND STORE BLOCK ENTER SUBROUTINE
79613>79521 80 838 2 0 0 0 838 >SET SWITCHES AND WORD NOS ENTER SUBROUTINE
79739>79522 0 833 6 0 0 0 833 PT BLOCK NO SELECT
79523 2 32 138 0 0 0 MT BLOCK NO SUBTRACT
79524 73 796 24 0 0 0 796 >MISALIGNED JUMP IF A < 0
79525 70 798 2 0 0 0 798 >OPERATE ON THIS BLOCK JUMP IF A == 0
79526 85 785 2 0 0 0 785 TEST BLOCK AND SWITCH R
79527 C 796 2 0 0 0 796 >NO ITEM LENGTHS TO BE
79528 C 795 29 0 0 0 795 >YES CHECKED
79528>79529 00 32 140 2 0 0 STORE POSN OF B/E WORD SELECT
79530 11 0 0 0 6 ADD LITERAL
79531 80 822 2 0 0 0 822 >CONVERT TO DEC ENTER SUBROUTINE
79532 05 32 166 0 0 0 TRANSFER
79533 10 0 0 0 6 SET ITEM LENGTH POSN SELECT LITERAL
79534 05 32 165 0 0 0 =WORD 6 TRANSFER
79600 PROCR 796 796 ALIGN ON REQD BLOCK(2)
79601 NOTES RADIX B SELECT
79604>
79527>79602 80 860 2 0 0 0 860 >PROCESS WORD ENTER SUBROUTINE
79314>
79311>79603 85 786 4 0 0 0 786 TEST B/E FOUND SWITCH R
79604 C 796 2 0 0 0 796 >NO
79605 C 796 7 0 0 0 796 >YES
79606 C 796 8 0 0 0 796 >YES,AT END OF LINE
79605>79607 80 853 2 0 0 0 853 >PRINT REST OF LINE ENTER SUBROUTINE
80329>
80335>
79606>79608 96 0 0 8 0 TEST FIEND SELECT MODIFIER
79609 98 0 0 8 0 ADD MODIFICATION REGISTER TO A
79610 92 0 0 3 0 SET MODIFIER AT VARIABLE
79611 00 7 4 1 3 0 SELECT
79612 02 870 4 1 0 0 870 SUBTRACT
79613 71 795 21 0 0 0 795 >NO JUMP IF A != 0
79614 0 833 6 0 0 0 833 PT BLOCK SELECT
79615 2 32 138 0 0 0 PRESENT MT BLOCK SUBTRACT
79616 71 796 24 0 0 0 796 >ERROR JUMP IF A != 0
79617 0 833 12 0 0 0 833 SELECT
79618 70 796 24 0 0 0 796 >ERROR,WORD AMEND JUMP IF A == 0
79619 86 830 2 0 0 0 830 SELECT SWITCH R
79620 12 0 0 0 3 SUBTRACT LITERAL
79621 71 796 24 0 0 0 796 >ERROR,NOT INSERTING BLOCK JUMP IF A != 0
79622 83 129 2 0 0 1 129 SET INSERTING BEFORE FIEND SWITCH SET SWITCH(ES) AT LITERAL VALUE
79623 76 798 2 0 0 0 798 JUMP unconditional
79904>
80010>
80117>
79621>
79618>
79616>
Source image: P1000731.JPG
79524>79624 80 820 2 0 0 0 820 >REPORT PT ENTER SUBROUTINE
79625 76 803 39 0 0 0 803 > JUMP unconditional
79700 PROCR 797 797 'FILEA' FOR BLOCK 7-PROCESS FOLLOWING'FILES'BLOCK
79701 NOTES RADIX B SELECT
79513>79702 80 811 2 0 0 0 811 >READ B1 ENTER SUBROUTINE
79703 80 814 2 0 0 0 814 UNPACK P/T ENTER SUBROUTINE
79704 80 849 2 0 0 0 849 ENTER SUBROUTINE
79705 80 848 2 0 0 0 848 >PROCESS AND PRINT HEADING ENTER SUBROUTINE
79706 0 7 26 1 0 0 STORE FILE ID SELECT
79707 5 32 126 1 0 0 TRANSFER
79708 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
79709 36 7 18 2 0 0 COLLATE AND ADD
79710 5 32 125 0 0 0 TRANSFER
79711 10 0 0 0 8 SET BLOCK CTRS AT 8 SELECT LITERAL
79712 5 32 138 0 0 0 TRANSFER
79713 80 838 2 0 0 0 838 >SET UP WORD NOS ENTER SUBROUTINE
79714 90 0 0 8 22 SET (MR8) AT 22:24 SET MODIFICATION REGISTER AT LITERAL
79715 C 0 0 0 24
79716 80 861 2 0 0 0 861 >READ AND STORE BLOCK ENTER SUBROUTINE
79816>
79225>79717 80 811 2 0 0 0 811 >READ B1 ENTER SUBROUTINE
79718 9 0 1 0 0 SELECT
79719 12 0 0 0 5659635551 'FILEA' SUBTRACT LITERAL
79720 71 803 37 0 0 0 803 >NO JUMP IF A != 0
79721 80 829 2 0 0 0 829 UNPACK ENTER SUBROUTINE
79722 833 6 0 0 0 833 BLOCK NO SELECT
79723 2 32 138 0 0 0 SUBTRACT
79724 71 793 2 0 0 0 793 >NOT THIS JUMP IF A != 0
79725 833 2 1 0 0 833 FILE ID SELECT
79726 2 32 126 1 0 0 SUBTRACT
79727 71 793 16 0 0 0 793 >NO JUMP IF A != 0
79728 833 4 1 0 0 833 SET NO SELECT
79729 2 32 125 0 0 0 SUBTRACT
79730 71 793 16 0 0 0 793 >NO JUMP IF A != 0
79731 85 129 2 0 0 0 129 HAVE WE INSERTED BEFORE FIEND? SWITCH R
79732 C 797 34 0 0 0 797 YES
79733 C 797 36 0 0 0 797 NO
79732>79734 83 129 2 0 0 2 129 RESET SWITCH SET SWITCH(ES) AT LITERAL VALUE
79735 76 797 37 0 0 0 797 JUMP unconditional
79733>79736 80 799 2 0 0 0 799 TEST FIEND ENTER SUBROUTINE
79735>79737 833 12 0 0 0 833 SELECT
79738 70 793 12 0 0 0 793 >WORD AMDT JUMP IF A == 0
79739 76 795 22 0 0 0 795 > JUMP unconditional
79800 PROCR 798 798 'FILEA'FOR DELETION/REPLACEMENT/INSERTION OF WHOLE BLOCKS
79801 NOTES RADIX B SELECT
80331>
79623>
79525>
79315>79802 0 833 12 0 0 0 833 IND SELECT
79803 70 800 2 0 0 0 800 >WORD AMDT JUMP IF A == 0
79804 85 830 4 0 0 0 830 AMDT TYPE SWITCH SWITCH R
79805 C 798 8 0 0 0 798 >D
79806 C 798 22 0 0 0 798 >R
79807 C 798 24 0 0 0 798 >T
79805>79808 0 833 8 0 0 0 833 LAST BLOCK NO DELETE BLOCK(S) SELECT
Source image: P1000732.JPG
79809 71 798 12 0 0 0 798 >DELETING SEVERAL JUMP IF A != 0
79810 0 833 6 0 0 0 833 FIRST SELECT
79811 5 833 8 0 0 0 833 SET AS LAST TRANSFER
79821>
79809>79812 80 799 2 0 0 0 799 >TEST'FIEND' ENTER SUBROUTINE
79813 80 862 2 0 0 0 862 >READ TO END OF BLOCK ENTER SUBROUTINE
79814 0 833 6 0 0 0 833 FIRST SELECT
79815 2 833 8 0 0 0 833 =LAST? SUBTRACT
79816 70 797 17 0 0 0 797 >YES JUMP IF A == 0
79817 60 0 0 0 0 SET DECIMAL RADIX
79818 10 0 0 0 1- STEP BLOCK W/L 2 SELECT LITERAL
79819 4 833 8 0 0 0 833 REDUCE LAST AUGMENT
79820 62 0 0 0 0 SET EXCESS CONSTANTS
79821 76 798 12 0 0 0 798 > JUMP unconditional
79806>79822 80 799 2 0 0 0 799 >TEST'FIEND' ENTER SUBROUTINE
79823 80 862 2 0 0 0 862 >READ TO END OF BLOCK ENTER SUBROUTINE
79807>79824 80 838 2 0 0 0 838 >NEW O/P BLOCK PRELIMS ENTER SUBROUTINE
79826>79825 80 784 2 0 0 0 784 >READ/APPLY PT ENTER SUBROUTINE
79826 73 798 25 0 0 0 798 >NOT END OF MT BLOCK JUMP IF A < 0
79827 70 798 38 0 0 0 798 >NEW DT JUMP IF A == 0
79828 80 811 2 0 0 0 811 >READ PT ENTER SUBROUTINE
79829 80 791 2 0 0 0 791 >TEST NEW DT? ENTER SUBROUTINE
79830 70 798 38 0 0 0 798 >YES JUMP IF A == 0
79831 86 830 2 0 0 0 830 AMDT TYPE SWITCH SELECT SWITCH R
79832 12 0 0 0 3 SUBTRACT LITERAL
79833 70 798 36 0 0 0 798 >INSERTION JUMP IF A == 0
79834 80 799 2 0 0 0 799 >TEST'FIEND' REPLACEMENT ENTER SUBROUTINE
79835 80 862 2 0 0 0 862 >READ TO END OF BLOCK BEING REPLACED ENTER SUBROUTINE
79833>79836 80 838 2 0 0 0 838 >NEW O/P BLOCK PRELIMS ENTER SUBROUTINE
79837 76 823 2 0 0 0 823 >UNPACK PT AND RETURN VIA S/R 768 JUMP unconditional
79830>
79827>79838 85 786 4 0 0 0 786 DID LAST BLOCK HAVE BEN? SWITCH R
79839 C 798 42 0 0 0 798 >NO
79840 C 803 2 0 0 0 803 >YES
79841 C 803 2 0 0 0 803 >YES
79839>79842 872 4 1 0 0 872 BEW SELECT
79843 3 32 36 1 1 0 FOR MT COPY
79844 5 32 0 1 2 0 AND PRINTER TRANSFER
79845 80 788 2 0 0 0 788 >SET AMENDIND,PROCESS WORD ENTER SUBROUTINE
79846 94 798 48 0 2 0 798 ///// END OF LINE STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
79847 76 803 2 0 0 0 803 JUMP unconditional
79846>79848 80 853 2 0 0 0 853 >END OF BLOCK S/R ENTER SUBROUTINE
79849 76 803 2 0 0 0 803 JUMP unconditional
79900 PROCR 799 799 TEST I/P AT'FIEND'
79902 81 799 2 0 0 0 799 START OF SUBROUTINE
79903 80 802 2 0 0 0 802 > ENTER SUBROUTINE
79904 70 796 24 0 0 0 796 >REPORT JUMP IF A == 0
79905 82 799 2 0 0 0 799 END OF SUBROUTINE / LEAVE SUBROUTINE
80000 PROCR 800 800 ALIGN ON REQUIRED WORD
80001 NOTES RADIX B SELECT
79803>80002 85 781 2 0 0 0 781 FIRST WORD? SWITCH R
80003 C 800 7 0 0 0 800 >NO
80004 C 800 5 0 0 0 800 >YES
80004>80005 10 0 0 0 4 START AT WORD 4 SELECT LITERAL
80006 5 32 164 0 0 0 TRANSFER
80017>
80003>80007 0 833 8 0 0 0 833 WORD SELECT
80008 2 32 164 0 0 0 REQD WORD SUBTRACT
Source image: P1000733.JPG
80009 70 801 2 0 0 0 801 >YES JUMP IF A == 0
80010 73 796 24 0 0 0 796 >YES TEST ALIGNED AFTER JUMP IF A < 0
80011 80 860 2 0 0 0 860 >PROCESS WORD ENTER SUBROUTINE
80012 85 786 4 0 0 0 786 TEST B/E WORD SWITCH R
80013 C 800 16 0 0 0 800 >NO
80014 C 800 18 0 0 0 800
80015 C 800 19 0 0 0 800
80013>80016 80 840 2 0 0 0 840 STEP WORD CTR BY 2 ENTER SUBROUTINE
80017 76 800 7 0 0 0 800 > JUMP unconditional
80014>80018 80 853 2 0 0 0 853 >FINISH PRINTING BLOCK ENTER SUBROUTINE
80015>80019 80 820 2 0 0 0 820 >PRINT PT ENTER SUBROUTINE
80020 80 838 2 0 0 0 838 >PREP FOR NEW BLOCK ENTER SUBROUTINE
80021 76 803 39 0 0 0 803 >READ JUMP unconditional
80100 PROCR 801 801 'FILEA' FOR DELETION/REPLACEMENT/INSERTION OF WORDS WITHIN CURREN
80101 NOTES RADIX B SELECT
80009>80102 85 830 4 0 0 0 830 AMDT TYPE SWITCH SWITCH R
80103 C 801 6 0 0 0 801 >D
80104 C 801 28 0 0 0 801 >R
80105 C 801 28 0 0 0 801 >T
80103>80106 0 833 10 0 0 0 833 LAST WORD DELETE WORD(S) SELECT
80107 71 801 10 0 0 0 801 >NO TO BE DELETED JUMP IF A != 0
80108 0 833 8 0 0 0 833 FRST SELECT
80109 5 833 10 0 0 0 833 SET AS LAST TRANSFER
80107>80110 60 0 0 0 0 SET DECIMAL RADIX
80111 833 10 0 0 0 833 LAST SELECT
80112 11 0 0 0 2 ADD LITERAL
80113 5 833 10 0 0 0 833 TRANSFER
80114 62 0 0 0 0 SET EXCESS CONSTANTS
80122>80115 32 140 1 8 0 CURRENT MT WORD SELECT
80116 2 872 4 1 0 0 872 SUBTRACT
80117 70 796 24 0 0 0 796 >DELETING BEW, REPORT JUMP IF A == 0
80118 80 861 2 0 0 0 861 >STEP(MR8)S/R ENTER SUBROUTINE
80119 80 840 2 0 0 0 840 STEP WORD CTR BY 2 ENTER SUBROUTINE
80120 00 32 164 0 0 0 TEST LAST WORD SELECT
80121 2 833 10 0 0 0 833 >NO SUBTRACT
80122 71 801 15 0 0 0 801 JUMP IF A != 0
80127>
80131>80123 80 811 2 0 0 0 811 >READ PT ENTER SUBROUTINE
80124 80 791 2 0 0 0 791 >TEST RECOGNISABLE ENTER SUBROUTINE
80125 70 803 8 0 0 0 803 >YES JUMP IF A == 0
80126 80 820 2 0 0 0 820 >PRINT PT ENTER SUBROUTINE
80127 76 801 23 0 0 0 801 JUMP unconditional
80130>
80105>
80104>80128 80 784 2 0 0 0 784 >READ/APPLY PT ENTER SUBROUTINE
80129 70 803 8 0 0 0 803 >NEW DATA TYPE JUMP IF A == 0
80130 73 801 28 0 0 0 801 >NOT TD BLOCK END JUMP IF A < 0
80131 76 801 23 0 0 0 801 >EXPECT A NEW DATA TYPE JUMP unconditional
80200 PROCR 802 802 TEST FIEND
80202 81 802 2 0 0 0 802 START OF SUBROUTINE
80203 96 0 0 8 0 SELECT MODIFIER
80204 98 0 0 8 0 ADD MODIFICATION REGISTER TO A
80205 92 0 0 3 0 SET MODIFIER AT VARIABLE
80206 7 4 1 3 0 SELECT
80207 2 870 4 1 0 0 870 SUBTRACT
80208 82 802 2 0 0 0 802 END OF SUBROUTINE / LEAVE SUBROUTINE
80300 PROCR 803 803 TEST NEXT PT DIRECTIVE FOR SAME FILE/BOCK
Source image: P1000734.JPG
80301 NOTES RADIX B SELECT
79849>
79847>
79841>
79840>80302 85 129 2 0 0 0 129 HAVE WE INSERTED BEFORE FIEND SWITCH R
80303 C 803 5 0 0 0 803
80304 C 803 7 0 0 0 803
80303>80305 83 129 2 0 0 2 129 RESET SWITCH SET SWITCH(ES) AT LITERAL VALUE
80306 76 803 37 0 0 0 803 JUMP unconditional
80304>80307 80 838 2 0 0 0 838 ENTER SUBROUTINE
80129>
80125>80308 0 9 0 1 0 0 SELECT
80309 12 0 0 0 5659635551 'FILEA' SUBTRACT LITERAL
80310 70 803 15 0 0 0 803 JUMP IF A == 0
80311 80 802 2 0 0 0 802 TEST FIEND ENTER SUBROUTINE
80312 71 803 36 0 0 0 803 >NO JUMP IF A != 0
80313 80 864 2 0 0 0 864 WRITE & PRINT TO FIEND ENTER SUBROUTINE
80314 76 803 37 0 0 0 803 > JUMP unconditional
80310>80315 80 829 2 0 0 0 829 >UNPACK ENTER SUBROUTINE
80316 833 2 1 0 0 833 PT FILE SELECT
80317 2 32 126 1 0 0 MT FILE SUBTRACT
80318 70 803 22 0 0 0 803 JUMP IF A == 0
80324>80319 80 802 2 0 0 0 802 >TEST FIEND ENTER SUBROUTINE
80320 70 803 37 0 0 0 803 >YES JUMP IF A == 0
80321 76 803 36 0 0 0 803 >NO JUMP unconditional
80318>80322 833 4 0 0 0 833 PT SET SELECT
80323 2 32 125 0 0 0 MT SET SUBTRACT
80324 71 803 19 0 0 0 803 JUMP IF A != 0
80325 833 6 0 0 0 833 PT BLOCK SELECT
80326 2 32 138 0 0 0 MT BLOCK SUBTRACT
80327 71 803 32 0 0 0 803 JUMP IF A != 0
80328 833 12 0 0 0 833 SELECT
80329 71 796 8 0 0 0 796 >BLOCK AMDT JUMP IF A != 0
80330 80 799 2 0 0 0 799 >REPORT IF AT FIEND ENTER SUBROUTINE
80331 76 798 2 0 0 0 798 >WORD AMDT TO SAME BLOCK JUMP unconditional
80327>80332 80 799 2 0 0 0 799 >REPORT IF AT FIEND ENTER SUBROUTINE
80333 80 863 2 0 0 0 863 >FINISH BLOCK ENTER SUBROUTINE
80334 80 838 2 0 0 0 838 >RESET SWITCHES ENTER SUBROUTINE
80335 76 796 8 0 0 0 796 > JUMP unconditional
80321>
80312>80336 80 863 2 0 0 0 863 >PROCESS TO END OF BLOCK S/R ENTER SUBROUTINE
80320>
80314>
80306>
79720>
78925>
78310>
78306>
78223>80337 80 826 2 0 0 0 826 TEST P/T ENTER SUBROUTINE
80341>
85827>
85915>80338 80 820 2 0 0 0 820 >PRINT ERROR LINE ENTER SUBROUTINE
83021>
80021>
79625>80339 80 811 2 0 0 0 811 >READ P/T ENTER SUBROUTINE
80340 80 826 2 0 0 0 826 >TEST P/T ENTER SUBROUTINE
80341 76 803 38 0 0 0 803 >PRINT UNTIL RECOGNISED JUMP unconditional
80400 PROCR 804 804 END ROUTINE
80401 NOTES RADIX B SELECT
79319>
Source image: P1000735.JPG
79204>80402 80 820 2 0 0 0 820 >PRINT PT ENTER SUBROUTINE
80410>
82622>
78212>80403 7 4 1 0 0 SELECT
80404 02 870 6 1 0 0 870 SUBTRACT
80405 71 882 2 0 0 0 882 >NO, MUST BE PREND OR E JUMP IF A != 0
80406 0 7 26 1 0 0 SELECT
80407 30 0 0 0 6 SHIFT (A) BY QUARTETS
80408 5 30 2 1 0 0 TRANSFER
80409 80 856 2 0 0 0 856 >PRINT 'FILE UNALTERED LINE ENTER SUBROUTINE
80410 76 804 3 0 0 0 804 JUMP unconditional
80500 PROCR 805 805 DUMP TYPE NOT IN RANGE OR TOO MANY POINTS
80501 NOTES RADIX B SELECT
84303>
84304>
84306>80502 0 872 20 1 0 0 872 '?????' SELECT
78079>
78065>
78063>80503 5 5 48 1 0 0 TRANSFER
80504 62 0 0 0 0 SET EXCESS CONSTANTS
80505 52 5 2 0 0 0 EDIT
80506 C 877 2 0 0 0 877
80507 54 5 12 1 0 36 BULK CLEAR
80519>80508 00 872 18 1 0 0 872 REPLACE DUMPX BY SQUARES SELECT
80509 05 5 4 1 0 0 TRANSFER
80510 80 866 2 0 0 0 866 >ADD ONE TO DISASTROUS CTR ENTER SUBROUTINE
80511 94 0 0 4 1- STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
80512 80 817 2 0 0 0 817 >PRINT ENTER SUBROUTINE
80513 82 842 2 0 0 0 842 >LEAVE DUMPS POIT S/R END OF SUBROUTINE / LEAVE SUBROUTINE
84204>
84214>80514 52 5 2 0 0 0 EDIT DUMP POINT EDIT
80515 C 877 2 0 0 0 877
80516 872 20 1 0 0 872 '?????' SELECT
80517 5 5 48 1 0 0 TRANSFER
80518 54 5 10 1 0 38 BULK CLEAR
80519 76 805 8 0 0 0 805 JUMP unconditional
80600 PROCR 806 806 N1,N2 OR N3 OUT OF RANGE S/R
80601 NOTES RADIX SELECT
80602 81 806 2 0 0 0 806 START OF SUBROUTINE
80603 80 867 2 0 0 0 867 >ADD ONE TO OTHERS CTR ENTER SUBROUTINE
80604 10 0 0 0 414243 SELECT LITERAL
80605 37 871 40 1 0 0 871 PACK IN NO REPLACE SELECTED BITS
80606 10 0 0 0 0 SELECT LITERAL
80607 35 0 0 0 1111000000 PREPARE FOR DIGIT COLLATION
80608 36 871 30 1 0 0 871 PACK IN*N COLLATE AND ADD
80609 37 871 40 1 0 0 871 REPLACE SELECTED BITS
80610 101 255 1 3 0 select literal address
80611 82 806 2 0 0 0 806 > END OF SUBROUTINE / LEAVE SUBROUTINE
84314>80612 35 0 0 0 110000 PREPARE FOR DIGIT COLLATION
80613 80 806 2 0 0 0 806 ENTER SUBROUTINE
80614 76 843 17 0 0 0 843 > JUMP unconditional
84321>80615 35 0 0 0 1100 PREPARE FOR DIGIT COLLATION
80616 80 806 2 0 0 0 806 ENTER SUBROUTINE
80617 76 843 24 0 0 0 843 > JUMP unconditional
84326>
84328>80618 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
80619 80 806 2 0 0 0 806 ENTER SUBROUTINE
Source image: P1000736.JPG
80620 76 843 31 0 0 0 843 JUMP unconditional
80700 PROCR 807 807 SECOND ERROR WORD S/R
80701 NOTES RADIX B SELECT
80702 81 807 2 0 0 0 807 START OF SUBROUTINE
80703 35 0 0 0 111100 PREPARE FOR DIGIT COLLATION
80704 37 871 42 1 0 0 871 PACK IN *C S OR P REPLACE SELECTED BITS
80705 80 867 2 0 0 0 867 >ADD ONE TO 'OTHERS' CTR ENTER SUBROUTINE
80706 96 0 0 1 0 SELECT MODIFIER
80707 71 807 12 0 0 0 807 >NO JUMP IF A != 0
80708 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
80709 10 0 0 0 41 PACK IN ONE SELECT LITERAL
80710 37 871 42 1 0 0 871 REPLACE SELECTED BITS
80711 10 0 0 0 0 SELECT LITERAL
80707>80712 82 807 2 0 0 0 807 > END OF SUBROUTINE / LEAVE SUBROUTINE
80800 PROCR 808 808 THIRD ERROR WORD S/R
80801 NOTES RADIX B SELECT
80802 81 808 2 0 0 0 808 START OF SUBROUTINE
80803 35 0 0 0 1100000000 PREPARE FOR DIGIT COLLATION
80804 12 0 0 0 1 SUBTRACT LITERAL
80805 70 808 16 0 0 0 808 >2ND CHAP JUMP IF A == 0
80806 12 0 0 0 1 SUBTRACT LITERAL
80807 70 808 15 0 0 0 808 >3RD CHAP JUMP IF A == 0
80808 12 0 0 0 1 SUBTRACT LITERAL
80809 70 808 14 0 0 0 808 >4TH CHAP JUMP IF A == 0
80810 12 0 0 0 1 SUBTRACT LITERAL
80811 70 808 13 0 0 0 808 >5TH CHAP JUMP IF A == 0
80812 32 0 0 0 2- 6TH CHAP SHIFT (AB) BY QUARTETS
80811>80813 32 0 0 0 2- SHIFT (AB) BY QUARTETS
80809>80814 32 0 0 0 2- SHIFT (AB) BY QUARTETS
80807>80815 32 0 0 0 2- SHIFT (AB) BY QUARTETS
80805>80816 10 0 0 0 4243444546 SELECT LITERAL
80817 37 871 44 1 0 0 871 PACK IN NO REPLACE SELECTED BITS
80818 82 808 2 0 0 0 808 > END OF SUBROUTINE / LEAVE SUBROUTINE
80900 PROCR 809 809 IGNORE T D FILE ERROR S/R
80901 NOTES RADIX B SELECT
80902 81 809 2 0 0 0 809 START OF SUBROUTINE
80903 0 871 42 1 0 0 871 ALREADY DONE? SELECT
80904 2 872 20 1 0 0 872 '?????' SUBTRACT
80905 70 809 12 0 0 0 809 >YES JUMP IF A == 0
80906 872 20 1 0 0 872 '?????' SELECT
80907 05 871 42 1 0 0 871 TRANSFER
80908 0 868 2 0 0 0 868 '£££££' SELECT
80909 35 0 0 0 11000 PACK ££ IN SET NUMBER PREPARE FOR DIGIT COLLATION
80910 37 31 12 2 0 0 AS 'IGNORE' IND REPLACE SELECTED BITS
80911 80 866 2 0 0 0 866 >ADD ONE TO 'DISASTROUS' CTR ENTER SUBROUTINE
80905>80912 82 809 2 0 0 0 809 END OF SUBROUTINE / LEAVE SUBROUTINE
81000 PROCR 810 810 READ A1 S/R
81001 NOTES RADIX B SELECT
81002 81 810 2 0 0 0 810 START OF SUBROUTINE
81003 42 A1 0 0 0 0 INPUT
81004 C 7 0 0 0 0
81005 82 810 2 0 0 0 810 END OF SUBROUTINE / LEAVE SUBROUTINE
81100 PROCR 811 811 READ B1 S/R
81101 NOTES RADIX B SELECT
81102 81 811 2 0 0 0 811 START OF SUBROUTINE
Source image: P1000737.JPG
81103 80 779 2 0 0 0 779 >READ ENTER SUBROUTINE
81104 34 9 48 2 0 0 SET (N) IN B
81105 10 0 0 0 0 SELECT LITERAL
81106 32 0 0 0 7 SHIFT (AB) BY QUARTETS
81107 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
81108 10 0 0 0 0 SELECT LITERAL
81109 32 0 0 0 3 SHIFT (AB) BY QUARTETS
81110 05 869 2 0 0 0 869 TRANSFER
81111 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
81112 10 0 0 0 7. SELECT LITERAL
81113 124 869 2 0 1 0 869 modify address of next
81114 32 0 0 0 0 ///// SHIFT (AB) BY QUARTETS
81115 37 9 0 1 3 0 REPLACE SELECTED BITS
81116 55 9 4 1 0 44 BULK COPY
81117 C 9 0 1 0 0
81118 82 811 2 0 0 0 811 END OF SUBROUTINE / LEAVE SUBROUTINE
81200 PROCR 812 812 RIGHT-ALIGN(A) SR
81202 81 812 2 0 0 0 812 START OF SUBROUTINE
81203 32 0 0 0 10- N->B SHIFT (AB) BY QUARTETS
81204 5 869 14 1 0 0 869 CLEAR WL TRANSFER
81208>81205 0 869 14 1 0 0 869 SELECT
81206 32 0 0 0 2 SHIFT (AB) BY QUARTETS
81207 5 869 14 1 0 0 869 TRANSFER
81208 75 812 5 0 0 0 812 >NOT END JUMP IF AB != 0
81209 0 869 14 1 0 0 869 SELECT
81210 82 812 2 0 0 0 812 END OF SUBROUTINE / LEAVE SUBROUTINE
81300 PROCR 813 813 UNPACK DUMPS POINT P/T SR
81301 NOTES RADIX B SELECT
81302 81 813 2 0 0 0 813 START OF SUBROUTINE
81303 54 30 0 0 0 18 BULK CLEAR
81304 87 27 10 0 0 0 SWITCH ACCORDING TO N
81305 C 813 10 0 0 0 813 P/T
81306 C 813 7 0 0 0 813 CARD
81306>81307 50 9 0 0 0 0 UNPACK CARD UNPACK FIXED FIELD DATA
81308 C 874 10 0 0 0 874
81309 76 813 13 0 0 0 813 JUMP unconditional
81305>81310 124 873 14 0 2 0 873 select literal and division
81311 124 999 21 1 2 0 SEC 9 modify address of next
81312 128 0 0 3 0 UNPACK unpack variable field data
81309>81313 92 30 0 0 0 SELECT
81314 70 813 16 0 0 0 813 >INITIAL TRANSLATION JUMP IF A == 0
81315 82 813 2 0 0 0 813 END OF SUBROUTINE / LEAVE SUBROUTINE
81314>81316 60 0 0 0 0 SET DECIMAL RADIX
81317 10 0 0 0 2 SELECT LITERAL
81318 4 30 0 0 0 0 STEP LINE SERIAL AUGMENT
81319 30 1 0 0 0 PM TYPE SELECT
81320 12 0 0 0 6 SUBTRACT LITERAL
81321 71 813 31 0 0 0 813 >NOT LOCATION DUMP JUMP IF A != 0
81322 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
81323 C 0 0 0 12
81330>81324 30 5 0 3 0 REF SELECT
81325 70 813 31 0 0 0 813 >END JUMP IF A == 0
81326 12 0 0 0 100 SUBTRACT LITERAL
81327 73 813 30 0 0 0 813 >NOT PROCR JUMP IF A < 0
81328 10 0 0 0 2 SELECT LITERAL
81329 4 30 6 0 3 0 STEP ITEM AUGMENT
81327>81330 94 813 24 0 3 2 813 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
81325>
Source image: P1000738.JPG
81321>81331 62 0 0 0 0 SET EXCESS CONSTANTS
81332 82 813 2 0 0 0 813 END OF SUBROUTINE / LEAVE SUBROUTINE
81400 PROCR 814 814 UNPACK TD HEADING P/T S/R
81401 NOTES RADIX B SELECT
81402 81 814 2 0 0 0 814 START OF SUBROUTINE
81403 54 30 0 0 0 18 BULK CLEAR
81404 87 27 10 0 0 0 SWITCH ACCORDING TO N
81405 C 814 16 0 0 0 814 P/T
81406 C 814 7 0 0 0 814 CARD
81406>81407 50 9 0 0 0 0 UNPACK CARD UNPACK FIXED FIELD DATA
81408 C 874 48 0 0 0 874
81409 30 2 1 0 0 L-ALIGN ALPHA DATA SELECT
81410 30 0 0 0 6 SHIFT (A) BY QUARTETS
81411 5 30 2 1 0 0 TRANSFER
81412 30 10 1 0 0 SELECT
81413 30 0 0 0 6 SHIFT (A) BY QUARTETS
81414 5 30 10 1 0 0 TRANSFER
81415 82 814 2 0 0 0 814 > END OF SUBROUTINE / LEAVE SUBROUTINE
81405>81416 124 873 6 0 2 0 873 select literal and division
81417 124 999 21 1 2 0 SEC 9 modify address of next
81418 128 0 0 3 0 UNPACK unpack variable field data
81419 82 814 2 0 0 0 814 END OF SUBROUTINE / LEAVE SUBROUTINE
81500 PROCR 815 815 WRITE A2 FROM SECTION 1 S/R
81501 NOTES RADIX B SELECT
81502 81 815 2 0 0 0 815 START OF SUBROUTINE
81503 55 7 4 1 0 50 BULK COPY
81504 C 8 4 1 0 0
81505 43 A2 0 0 0 0 OUTPUT
81506 C 8 0 0 0 0
81507 82 815 2 0 0 0 815 END OF SUBROUTINE / LEAVE SUBROUTINE
81600 PROCR 816 816 WRITE A2 FROM SECTION 4 S/R
81601 NOTES RADIX B SELECT
81602 81 816 2 0 0 0 816 START OF SUBROUTINE
81603 80 890 2 0 0 0 890 ENTER SUBROUTINE
81604 82 816 2 0 0 0 816 END OF SUBROUTINE / LEAVE SUBROUTINE
81700 PROCR 817 817 PRINT S/R
81701 NOTES RADIX B SELECT
81702 81 817 2 0 0 0 817 START OF SUBROUTINE
81703 05 5 0 1 0 0 SET UP FUNCTION WORD TRANSFER
81704 80 892 2 0 0 0 892 ENTER SUBROUTINE
81705 82 817 2 0 0 0 817 END OF SUBROUTINE / LEAVE SUBROUTINE
81800 PROCR 818 818 PRINT BLANK LINE
81801 NOTES RADIX B SELECT
81802 81 818 2 0 0 0 818 START OF SUBROUTINE
81803 27 9 0 0 0 ON LINE SELECT
81804 70 818 7 0 0 0 818 >YES JUMP IF A == 0
81805 54 5 0 1 0 50 BLANK LINE BULK CLEAR
81806 76 818 9 0 0 0 818 JUMP unconditional
81804>81807 872 4 1 0 0 872 BEW SELECT
81808 5 5 2 1 0 0 TRANSFER
81806>81809 80 817 2 0 0 0 817 ENTER SUBROUTINE
81810 82 818 2 0 0 0 818 END OF SUBROUTINE / LEAVE SUBROUTINE
81900 PROCR 819 819 CLEAR 1ST 2 WORDS OF ANNEXE
81901 NOTES RADIX SELECT
Source image: P1000739.JPG
81902 81 819 2 0 0 0 819 START OF SUBROUTINE
81903 10 0 0 0 0 SELECT LITERAL
81904 05 5 2 1 0 0 TRANSFER
81905 05 5 4 1 0 0 TRANSFER
81906 82 819 2 0 0 0 819 END OF SUBROUTINE / LEAVE SUBROUTINE
82000 PROCR 820 820 PRINT UNRECOGNISABLE P/T LINE S/R
82001 NOTES RADIX B SELECT
82002 81 820 2 0 0 0 820 START OF SUBROUTINE
82003 80 818 2 0 0 0 818 >LINE FEED S/R ENTER SUBROUTINE
82004 80 865 2 0 0 0 865 >STEP'PT OMITTED' ENTER SUBROUTINE
82005 00 871 46 1 0 0 871 'P/T? ' SELECT
82006 05 5 2 1 0 0 TRANSFER
82007 9 48 2 0 0 SELECT
82008 30 0 0 0 3- SHIFT (A) BY QUARTETS
82009 12 0 0 0 4 SUBTRACT LITERAL
82010 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
82011 10 0 0 0 0 CLEAR SELECT LITERAL
82012 35 0 0 0 11 (FOR ONE CHAR) PREPARE FOR DIGIT COLLATION
82013 36 9 48 2 0 0 COLLATE AND ADD
82014 5 821 2 0 0 0 821 WL TRANSFER
82015 124 821 2 0 1 0 821 modify address of next
82016 32 0 0 0 0 ///// SHIFT PACKING BITS OVER BE CHAR SHIFT (AB) BY QUARTETS
82017 37 9 0 1 3 0 CLEAR BE CHAR REPLACE SELECTED BITS
82018 55 9 0 1 0 32 BULK COPY
82019 C 5 4 1 0 0
82020 80 817 2 0 0 0 817 >PRINT ENTER SUBROUTINE
82021 80 818 2 0 0 0 818 >LINE FEED S/R ENTER SUBROUTINE
82022 82 820 2 0 0 0 820 > END OF SUBROUTINE / LEAVE SUBROUTINE
82100 PROCR 821 821 CONVERT TO BINARY S/R
82101 NOTES RADIX B SELECT
82102 81 821 2 0 0 0 821 START OF SUBROUTINE
82103 5 908 54 1 0 0 908 TRANSFER
82104 62 0 0 0 0 SET EXCESS CONSTANTS
82105 124 909 2 0 2 0 909 select literal and division
82106 112 908 54 1 0 0 908 convert
82107 82 821 2 0 0 0 821 END OF SUBROUTINE / LEAVE SUBROUTINE
82200 PROCR 822 822 CONVERT TO DECIMAL S/R
82201 NOTES RADIX B SELECT
82202 81 822 2 0 0 0 822 START OF SUBROUTINE
82203 5 908 54 1 0 0 908 TRANSFER
82204 60 0 0 0 0 SET DECIMAL RADIX
82205 124 909 22 0 2 0 909 select literal and division
82206 112 908 54 1 0 0 908 convert
82207 62 0 0 0 0 SET EXCESS CONSTANTS
82208 82 822 2 0 0 0 822 END OF SUBROUTINE / LEAVE SUBROUTINE
82300 PROCR 823 823 UNPACK THIS PT/CARD BLOCK CHARACTER-BY-CHARACTER
82301 NOTES RADIX B SELECT
79837>
78405>82302 91 872 2 0 3 0 872 SET (MR3)=0:0 SET MODIFICATION REGISTER AT VARIABLE
82303 90 0 0 4 0 SET (MR4)=14:0 SET MODIFICATION REGISTER AT LITERAL
82304 C 0 0 0 14
82305 90 0 0 5 0 SET (MRS)=5:0 SET MODIFICATION REGISTER AT LITERAL
82306 C 0 0 0 5
82307 54 32 60 0 0 64 CLEAR W/L'S BULK CLEAR
82308 55 9 0 0 0 32 BULK COPY
82309 C 32 60 0 0 0
Source image: P1000740.JPG
82310 87 27 10 0 0 0 SWITCH ACCORDING TO N
82311 C 823 13 0 0 0 823 P/T
82312 C 823 27 0 0 0 823 CARD
82311>82313 34 32 60 1 3 0 SET(B)AT 1ST WORD SET (N) IN B
82314 32 0 0 0 2 SHIFT (AB) BY QUARTETS
82326>82315 12 0 0 0 7: SUBTRACT LITERAL
82316 70 824 2 0 0 0 824 >YES JUMP IF A == 0
82317 12 0 0 0 1 TEST BE SUBTRACT LITERAL
82318 70 825 47 0 0 0 825 >YES JUMP IF A == 0
82319 11 0 0 0 7. ADD LITERAL
82320 05 32 124 0 0 0 W/L 2 TRANSFER
82321 00 32 92 1 0 0 LINE SERIAL SO FAR SELECT
82322 30 0 0 0 2 SHIFT (A) BY QUARTETS
82323 01 32 124 0 0 0 ADD
82324 05 32 92 1 0 0 TRANSFER
82325 80 827 2 0 0 0 827 >S/R A ENTER SUBROUTINE
82326 76 823 15 0 0 0 823 > JUMP unconditional
82312>82327 00 32 60 1 0 0 STORE LINE SERIAL SELECT
82328 05 32 92 1 0 0 TRANSFER
82329 05 32 121 0 0 0 CLEAR CARD IND TRANSFER
82330 94 823 31 0 3 2 823 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
82330>82331 34 32 60 1 3 0 SET(B) AT NEXT WORD SET (N) IN B
82332 32 0 0 0 2 SHIFT (AB) BY QUARTETS
82333 76 824 3 0 0 0 824 > JUMP unconditional
82400 PROCR 824 824 PSEUDO UNPACK-MAIN LOOP(1)
82401 NOTES RADIX B SELECT
82417>
82422>
82556>
82316>82402 80 827 2 0 0 0 827 >S/R A ENTER SUBROUTINE
82333>82403 12 0 0 0 7: SUBTRACT LITERAL
82404 70 824 18 0 0 0 824 >YES JUMP IF A == 0
82405 12 0 0 0 1 SUBTRACT LITERAL
82406 70 825 47 0 0 0 825 >YES JUMP IF A == 0
82407 11 0 0 0 1 ADD LITERAL
82408 70 825 57 0 0 0 825 >YES JUMP IF A == 0
82409 11 0 0 0 4 ADD LITERAL
82410 70 825 2 0 0 0 825 >YES JUMP IF A == 0
82411 11 0 0 0 5‼ ADD LITERAL
82534>
82536>
82538>
82540>
82542>
82544>
82546>82412 05 32 124 0 0 0 W/L 2 TRANSFER
82413 00 32 122 1 0 0 W/L 1 SELECT
82414 30 0 0 0 2 SHIFT (A) BY QUARTETS
82415 01 32 124 0 0 0 ADD
82416 05 32 122 1 0 0 TRANSFER
82417 76 824 2 0 0 0 824 > JUMP unconditional
82723>
82404>82418 80 828 2 0 0 0 828 >S/R B ENTER SUBROUTINE
82523>82419 05 32 94 1 4 0 STORE WORD IN LIST TRANSFER
82420 05 32 120 0 0 0 CLEAR*C IND TRANSFER
82421 05 32 122 1 0 0 CLEAR W/L 1 TRANSFER
82422 94 824 2 0 4 2 824 STEP(MR4) STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
82423 76 825 51 0 0 0 825 > JUMP unconditional
Source image: P1000741.JPG
82500 PROCR 825 825
82501 NOTES RADIX B SELECT
82410>82502 80 827 2 0 0 0 827 >S/R A ENTER SUBROUTINE
82503 12 0 0 0 51 SUBTRACT LITERAL
82504 70 825 45 0 0 0 825 >YES JUMP IF A == 0
82505 12 0 0 0 1 SUBTRACT LITERAL
82506 70 825 43 0 0 0 825 >YES JUMP IF A == 0
82507 12 0 0 0 1 SUBTRACT LITERAL
82508 70 825 54 0 0 0 825 >YES JUMP IF A == 0
82509 12 0 0 0 1 SUBTRACT LITERAL
82510 70 825 41 0 0 0 825 >YES JUMP IF A == 0
82511 12 0 0 0 7 SUBTRACT LITERAL
82512 70 825 39 0 0 0 825 >YES JUMP IF A == 0
82513 12 0 0 0 8 SUBTRACT LITERAL
82514 70 825 37 0 0 0 825 >YES JUMP IF A == 0
82515 12 0 0 0 2 SUBTRACT LITERAL
82516 70 825 35 0 0 0 825 >YES JUMP IF A == 0
82517 12 0 0 0 : SUBTRACT LITERAL
82518 70 825 33 0 0 0 825 >YES JUMP IF A == 0
82519 12 0 0 0 ‼ SUBTRACT LITERAL
82532>82520 71 825 24 0 0 0 825 >NO JUMP IF A != 0
82521 80 867 2 0 0 0 867 >STEP'OTHERS' ENTER SUBROUTINE
82522 00 872 16 1 0 0 872 ***** SELECT
82523 76 824 19 0 0 0 824 > JUMP unconditional
82520>82524 12 0 0 0 1 SUBTRACT LITERAL
82525 71 825 29 0 0 0 825 >NO JUMP IF A != 0
82526 80 867 2 0 0 0 867 >STEP'OTHERS' ENTER SUBROUTINE
82527 00 872 16 1 0 0 872 ***** SELECT
82528 76 825 48 0 0 0 825 > JUMP unconditional
82525>82529 10 0 0 0 0 SELECT LITERAL
82530 80 827 2 0 0 0 827 >S/R A ENTER SUBROUTINE
82531 12 0 0 0 7: SUBTRACT LITERAL
82532 76 825 20 0 0 0 825 > JUMP unconditional
82518>82533 10 0 0 0 5£ SQUARE SELECT LITERAL
82534 76 824 12 0 0 0 824 > JUMP unconditional
82516>82535 10 0 0 0 7: NUMBER END SELECT LITERAL
82536 76 824 12 0 0 0 824 > JUMP unconditional
82514>82537 10 0 0 0 5. LINE END SELECT LITERAL
82538 76 824 12 0 0 0 824 > JUMP unconditional
82512>82539 10 0 0 0 5‼ STAR SELECT LITERAL
82540 76 824 12 0 0 0 824 JUMP unconditional
82510>82541 10 0 0 0 7£ TRIANGLE SELECT LITERAL
82542 76 824 12 0 0 0 824 > JUMP unconditional
82506>82543 10 0 0 0 7. BLOCK END SELECT LITERAL
82544 76 824 12 0 0 0 824 > JUMP unconditional
82504>82545 10 0 0 0 6£ ALIGNMENT MARK SELECT LITERAL
82546 76 824 12 0 0 0 824 > JUMP unconditional
82406>
82318>82547 80 828 2 0 0 0 828 >S/R B ENTER SUBROUTINE
82528>82548 05 32 94 1 4 0 STORE WORD IN LIST TRANSFER
82549 00 872 8 1 0 0 872 SET END SIGN IN LIST SELECT
82550 05 32 96 1 4 0 TRANSFER
82559>
82423>82551 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL
82552 C 0 0 0 14
82553 76 784 14 0 0 0 784 > JUMP unconditional
82508>82554 10 0 0 0 1 SET*C ID SELECT LITERAL
82555 05 32 120 0 0 0 TRANSFER
82556 76 824 2 0 0 0 824 > JUMP unconditional
82408>82557 0 872 8 1 0 0 872 SET END SIGN IN LIST SELECT
Source image: P1000742.JPG
82558 5 32 94 1 4 0 TRANSFER
82559 76 825 51 0 0 0 825 JUMP unconditional
82600 PROCR 826 826 TEST P/T S/R
82601 NOTES RADIX B SELECT
82602 81 826 2 0 0 0 826 START OF SUBROUTINE
82603 00 9 0 1 0 0 SELECT
82604 2 870 10 1 0 0 870 'FILES'' SUBTRACT
82605 70 826 17 0 0 0 826 >INSERTION JUMP IF A == 0
82606 11 0 0 0 1. ADD LITERAL
82607 70 826 19 0 0 0 826 >'FILED' (DELETION) JUMP IF A == 0
82608 12 0 0 0 15 SUBTRACT LITERAL
82609 70 826 19 0 0 0 826 >'FILER' (REPLACEMENT) JUMP IF A == 0
82610 11 0 0 0 18 ADD LITERAL
82611 70 793 2 0 0 0 793 >'FILEA' (BLOCK/WORD AMENDMENT) JUMP IF A == 0
82612 9 0 1 0 0 SELECT
82613 30 0 0 0 4- SHIFT (A) BY QUARTETS
82614 12 0 0 0 556554 'END' SUBTRACT LITERAL
82615 70 826 21 0 0 0 826 >YES JUMP IF A == 0
82616 82 826 2 0 0 0 826 (REPORT) END OF SUBROUTINE / LEAVE SUBROUTINE
82605>82617 80 864 2 0 0 0 864 FILE PREP ENTER SUBROUTINE
82618 76 782 15 0 0 0 782 JUMP unconditional
82609>
82607>82619 80 864 2 0 0 0 864 FILE PREP ENTER SUBROUTINE
82620 76 792 2 0 0 0 792 JUMP unconditional
82615>82621 80 864 2 0 0 0 864 ENTER SUBROUTINE
82622 76 804 3 0 0 0 804 JUMP unconditional
82700 PROCR 827 827 PSEUDO UNPACK S/R A
82701 NOTES RADIX B SELECT
82702 81 827 2 0 0 0 827 START OF SUBROUTINE
82703 94 827 15 0 5 1 827 STEP (MR5) STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
82704 87 27 10 0 0 0 SWITCH ACCORDING TO N
82705 C 827 11 0 0 0 827 P/T
82706 C 827 7 0 0 0 827 CARD
82706>82707 00 32 121 0 0 0 SELECT
82708 71 827 17 0 0 0 827 >YES JUMP IF A != 0
82709 10 0 0 0 1 SET CARD IND SELECT LITERAL
82710 05 32 121 0 0 0 TRANSFER
82705>82711 90 0 0 5 0 RESET (MR5) SET MODIFICATION REGISTER AT LITERAL
82712 C 0 0 0 5
82713 94 827 14 0 3 2 827 STEP (MR3) STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
82713>82714 34 32 60 1 3 0 SET(B)AT NEXT WORD SET (N) IN B
82703>82715 32 0 0 0 2 SHIFT (AB) BY QUARTETS
82716 82 827 2 0 0 0 827 END OF SUBROUTINE / LEAVE SUBROUTINE
82708>82717 10 0 0 0 0 SELECT LITERAL
82718 05 32 121 0 0 0 CLEAR CARD IND TRANSFER
82719 90 0 0 5 1- SET(MR5)AT-1:5 SET MODIFICATION REGISTER AT LITERAL
82720 C 0 0 0 5
82721 94 827 22 0 3 2 827 STEP(MR3) STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
82721>82722 34 32 60 1 3 0 SET(B)AT NEXT WORD SET (N) IN B
82723 76 824 18 0 0 0 824 > JUMP unconditional
82800 PROCR 828 828 PSEUDO UNPACK S/R B
82801 NOTES RADIX B SELECT
82802 81 828 2 0 0 0 828 START OF SUBROUTINE
82803 00 32 120 0 0 0 SELECT
82804 70 828 13 0 0 0 828 >NO JUMP IF A == 0
82805 32 0 0 0 10 STORE(B) SHIFT (AB) BY QUARTETS
82806 05 32 128 1 0 0 TRANSFER
Source image: P1000743.JPG
82807 00 32 122 2 0 0 SELECT
82808 80 821 2 0 0 0 821 >CONVERT TO BINARY ENTER SUBROUTINE
82809 05 32 122 2 0 0 TRANSFER
82810 34 32 128 1 0 0 RESTORE(B) SET (N) IN B
82811 02 32 122 1 0 0 SUBTRACT
82812 76 828 14 0 0 0 828 > JUMP unconditional
82804>82813 00 32 122 1 0 0 SELECT
82812>82814 82 828 2 0 0 0 828 > END OF SUBROUTINE / LEAVE SUBROUTINE
82900 PROCR 829 829 UNPACK'FILEA'BLOCK
82901 NOTES RADIX B SELECT
82902 81 829 2 0 0 0 829 START OF SUBROUTINE
82903 54 833 2 1 0 10 833 BULK CLEAR
82904 87 27 10 0 0 0 SWITCH ACCORDING TO N
82905 C 829 7 0 0 0 829 >PT
82906 C 832 2 0 0 0 832 >CARDS
82905>82907 124 873 18 0 2 0 873 select literal and division
82908 124 999 21 1 2 0 SEC 9 modify address of next
82909 128 0 0 3 0 unpack variable field data
83204>82910 0 833 2 1 0 0 833 FILE ID SELECT
82911 80 812 2 0 0 0 812 >R-ALIGN ENTER SUBROUTINE
82912 5 833 2 1 0 0 833 TRANSFER
82913 0 833 6 1 0 0 833 SELECT
82914 80 812 2 0 0 0 812 >R-ALIGN ENTER SUBROUTINE
82915 32 0 0 0 2- SHIFT (AB) BY QUARTETS
82916 5 869 14 1 0 0 869 WL TRANSFER
82917 32 0 0 0 2 SHIFT (AB) BY QUARTETS
82918 12 0 0 0 54 SUBTRACT LITERAL
82919 70 831 4 0 0 0 831 >'D' DELETE BLOCK(S) JUMP IF A == 0
82920 12 0 0 0 15 SUBTRACT LITERAL
82921 70 831 3 0 0 0 831 >'R' REPLACE BLOCK JUMP IF A == 0
82922 12 0 0 0 Ю SUBTRACT LITERAL
82923 70 831 2 0 0 0 831 >'T' INSERT BLOCK JUMP IF A == 0
82924 0 833 6 1 0 0 833 (ASSUME WORD AMEND SELECT
82925 80 812 2 0 0 0 812 >R-ALIGN BLOCK NUMBER ENTER SUBROUTINE
82926 0 869 14 2 0 0 869 SELECT
82927 73 830 20 0 0 0 830 >REJECT JUMP IF A < 0
82928 5 833 6 1 0 0 833 DEC BLOCK NUMBER TRANSFER
82929 0 833 8 1 0 0 833 FIRST WORD NUMBER SELECT
82930 80 812 2 0 0 0 812 >R-ALIGN ENTER SUBROUTINE
82931 3 869 14 1 0 0 869 WL COPY
82932 32 0 0 0 2- SHIFT (AB) BY QUARTETS
82933 10 0 0 0 0 SELECT LITERAL
82934 32 0 0 0 2 SHIFT (AB) BY QUARTETS
82935 12 0 0 0 54 'D' SUBTRACT LITERAL
82936 70 830 4 0 0 0 830 >DELETE WORD(S) JUMP IF A == 0
82937 12 0 0 0 15 SUBTRACT LITERAL
82938 70 830 3 0 0 0 830 >'R' REPLACE WORD(S) JUMP IF A == 0
82939 12 0 0 0 Ю SUBTRACT LITERAL
82940 71 830 20 0 0 0 830 >NOT'T' REJECT JUMP IF A != 0
83000 PROCR 830 830 UNPACK P/T TD AMDTS (2)
83001 NOTES RADIX B SELECT
83002 10 0 0 0 1 3=T SELECT LITERAL
82938>83003 11 0 0 0 1 2=R ADD LITERAL
82936>83004 11 0 0 0 1 1=D ADD LITERAL
83005 84 830 2 0 0 0 830 SET WORD AMEND SWITCH SET SWITCH(ES) AT VARIABLE VALUE
83006 0 869 14 1 0 0 869 SELECT
83007 30 0 0 0 2- SHIFT (A) BY QUARTETS
83008 5 833 8 1 0 0 833 TRANSFER
Source image: P1000744.JPG
83009 0 833 8 2 0 0 833 SELECT
83010 73 830 20 0 0 0 830 >REJECT JUMP IF A < 0
83011 5 833 8 1 0 0 833 NUMERIC FIRST WORD NUMBER TRANSFER
83012 0 833 10 1 0 0 833 LAST WORD(DELETIONS) SELECT
83013 70 831 20 0 0 0 831 >OK JUMP IF A == 0
83014 73 830 20 0 0 0 830 >REJECT JUMP IF A < 0
83015 833 8 0 0 0 833 FIRST SELECT
83016 2 833 10 0 0 0 833 LAST SUBTRACT
83017 72 830 20 0 0 0 830 >REJECT JUMP IF A >= 0
83018 10 0 0 0 0 SELECT LITERAL
83019 76 831 20 0 0 0 831 JUMP unconditional
83107>
83113>
83118>
83017>
83014>
83010>
82940>
82927>83020 80 820 2 0 0 0 820 >PRINT PT ENTER SUBROUTINE
83021 76 803 39 0 0 0 803 >READ PT UNTIL DT RECOGNISED JUMP unconditional
83100 PROCR 831 831 UNPACK P/T TO AMDTS (3)
83101 NOTES RADIX B SELECT
82923>83102 10 0 0 0 1 3=T SELECT LITERAL
82921>83103 11 0 0 0 1 2=R ADD LITERAL
82919>83104 11 0 0 0 1 1=D ADD LITERAL
83105 84 830 2 0 0 0 830 SET BLOCK AMEND SWITCH SET SWITCH(ES) AT VARIABLE VALUE
83106 0 869 14 2 0 0 869 SELECT
83107 73 830 20 0 0 0 830 >REJECT JUMP IF A < 0
83108 5 833 6 1 0 0 833 STORE BLOCK NUMBER TRANSFER
83109 0 833 8 1 0 0 833 SELECT
83110 80 812 2 0 0 0 812 >R-ALIGN ENTER SUBROUTINE
83111 5 869 14 1 0 0 869 TRANSFER
83112 0 869 14 2 0 0 869 SELECT
83113 73 830 20 0 0 0 830 >REJECT JUMP IF A < 0
83114 3 833 8 1 0 0 833 LAST BLOCK(DELETIONS) COPY
83115 70 831 19 0 0 0 831 >OK JUMP IF A == 0
83116 833 6 0 0 0 833 FIRST SELECT
83117 2 833 8 0 0 0 833 LAST SUBTRACT
83118 72 830 20 0 0 0 830 >REJECT JUMP IF A >= 0
83115>83119 10 0 0 0 1 SELECT LITERAL
83019>
83013>83120 5 833 12 0 0 0 833 ZERO=WORD AMEND NONZERO=BLOCK AMEND TRANSFER
83121 82 829 2 0 0 0 829 END OF SUBROUTINE / LEAVE SUBROUTINE
83200 PROCR 832 832 UNPACK CARD TD AMDTS
83201 NOTES RADIX B SELECT
82906>83202 50 9 0 0 0 0 UNPACK FIXED FIELD DATA
83203 C 874 64 0 0 0 874
83204 76 829 10 0 0 0 829 JUMP unconditional
83300 CONST 833 833 1 UNPACKED PT FOR 'FILEA' DATA
83302 (D)0; 'FILEA'/FILE ID R-ALIGNED
83304 0; SET(NUMERIC)
83306 0; BLOCK NUMBER(DEC NUMERIC)
83308 0; START WORD/LAST BLOCK(DEC NUMERIC)
83310 0; END WORD(DEC NUMERIC)
83312 ; ZERO=WORD AMEND
83400 PROCR 834 834 FORM UP RELATIVE ADDRESS S/R
Source image: P1000745.JPG
83401 NOTES RADIX B SELECT
83402 81 834 2 0 0 0 834 START OF SUBROUTINE
83403 05 869 2 0 0 0 869 STORE I/C SERIAL TRANSFER
83404 35 0 0 0 11100 PREPARE FOR DIGIT COLLATION
83405 36 869 2 0 0 0 869 COLLARE PROCR NO COLLATE AND ADD
83406 30 0 0 0 2- SHIFT (A) BY QUARTETS
83407 80 821 2 0 0 0 821 >CONVERT TO BINARY ENTER SUBROUTINE
83408 92 0 0 5 0 SET (MR5)=PROCR NO SET MODIFIER AT VARIABLE
83409 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
83410 C 0 0 0 40
83414>83411 00 25 2 0 3 0 SELECT
83412 02 869 2 0 0 0 869 SUBTRACT
83413 70 834 27 0 0 0 834 >YES JUMP IF A == 0
83414 94 834 11 0 3 2 834 >NO STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
83415 18 1000 0 5 0 PROCR START SELECT
83416 3 822 2 0 0 0 822 PROCR START COPY
83417 70 834 28 0 0 0 834 >PROCR NOT THERE, LEAVE SR (A)=0 JUMP IF A == 0
83418 10 0 0 0 0 CLEAR A SELECT LITERAL
83419 35 0 0 0 11 COLLATE ITEM NO PREPARE FOR DIGIT COLLATION
83420 36 869 2 0 0 0 869 COLLATE AND ADD
83421 80 821 2 0 0 0 821 >CONVERT TO BINARY ENTER SUBROUTINE
83422 12 0 0 0 2 BIN ITEM-2 SUBTRACT LITERAL
83423 3 821 2 0 0 0 821 WL COPY
83424 71 834 29 0 0 0 834 >IGNORE=LINE SERIAL, ACCEPT=PM 6 DATA JUMP IF A != 0
83425 822 2 0 0 0 822 PROCR=START SELECT
83426 76 834 28 0 0 0 834 > JUMP unconditional
83413>83427 00 25 3 0 3 0 SELECT
83426>
83417>83428 82 834 2 0 0 0 834 END OF SUBROUTINE / LEAVE SUBROUTINE
83424>83429 10 0 0 0 0 SELECT LITERAL
83430 82 834 2 0 0 0 834 END OF SUBROUTINE / LEAVE SUBROUTINE
83500 PROCR 835 835 FORM UP CHAPTER NO S/R
83501 NOTES RADIX B SELECT
83502 81 835 2 0 0 0 835 START OF SUBROUTINE
83503 05 869 2 0 0 0 869 STORE PROCR NO TRANSFER
83504 90 0 0 3 1 SET MODIFICATION REGISTER AT LITERAL
83505 C 0 0 0 15
83506 35 0 0 0 11100 PREPARE FOR DIGIT COLLATION
83512>83507 10 0 0 0 0 SELECT LITERAL
83508 36 92 9 0 3 0 LAST PROCR IN CHAP COLLATE AND ADD
83509 30 0 0 0 2- SHIFT (A) BY QUARTETS
83510 02 869 2 0 0 0 869 SUBTRACT
83511 72 835 13 0 0 0 835 > JUMP IF A >= 0
83512 94 835 7 0 3 1 835 >NO STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
83511>83513 10 0 0 0 0 SELECT LITERAL
83514 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
83515 36 92 9 0 3 0 CORRECTED CHAP NO COLLATE AND ADD
83516 82 835 2 0 0 0 835 END OF SUBROUTINE / LEAVE SUBROUTINE
83600 PROCR 836 836 FORM UP CHAPTER NO OF SECN
83601 NOTES RADIX B SELECT
83602 81 836 2 0 0 0 836 START OF SUBROUTINE
83603 35 0 0 0 1 (A)=0 PREPARE FOR DIGIT COLLATION
83604 36 15 0 0 3 0 COLLATE AND ADD
83605 92 0 0 5 0 SET MODIFIER AT VARIABLE
83606 10 0 0 0 0 SELECT LITERAL
83607 36 92 9 0 5 0 CORRECTED CHAP COLLATE AND ADD
83608 82 836 2 0 0 0 836 END OF SUBROUTINE / LEAVE SUBROUTINE
Source image: P1000746.JPG
83700 PROCR 837 837 FORM UP TRANSIT AREA PARAMETER S/R
83701 NOTES RADIX B SELECT
83702 81 837 2 0 0 0 837 START OF SUBROUTINE
83703 05 869 2 0 0 0 869 STORE SECN NO TRANSFER
83704 91 24 2 0 3 0 SET(MR3)=2(R+T)/2R SET MODIFICATION REGISTER AT VARIABLE
83705 94 837 7 0 3 0 837 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
83706 76 837 13 0 0 0 837 >NO TX AREAS JUMP unconditional
83705>83707 35 0 0 0 111- PREPARE FOR DIGIT COLLATION
83712>83708 36 24 4 0 3 0 SECN NO COLLATE AND ADD
83709 02 869 2 0 0 0 869 SUBTRACT
83710 70 837 14 0 0 0 837 > JUMP IF A == 0
83711 10 0 0 0 0 SELECT LITERAL
83712 94 837 8 0 3 2 837 > STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
83706>83713 82 837 2 0 0 0 837 > END OF SUBROUTINE / LEAVE SUBROUTINE
83710>83714 35 0 0 0 11000 PREPARE FOR DIGIT COLLATION
83715 36 24 4 0 3 0 TA PARAMETER COLLATE AND ADD
83716 82 837 2 0 0 0 837 > END OF SUBROUTINE / LEAVE SUBROUTINE
83800 PROCR 838 838 SET UP COUNTERS AT START OF NEW TRIAL DATA BLOCK
83801 NOTES RADIX B SELECT
83802 81 838 2 0 0 0 838 START OF SUBROUTINE
83803 60 0 0 0 0 SET DECIMAL SET DECIMAL RADIX
83804 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
83805 C 0 0 0 7
83806 10 0 0 0 2 SELECT LITERAL
83809>83807 03 32 15 0 3 0 FOR PRINTING COPY
83808 11 0 0 0 2 ADD LITERAL
83809 94 838 7 0 3 1 838 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
83810 62 0 0 0 0 SET BINARY SET EXCESS CONSTANTS
83811 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
83812 C 0 0 0 14
83813 83 787 4 0 0 1 787 SET*SWITCH AT 1 SET SWITCH(ES) AT LITERAL VALUE
83814 83 786 4 0 0 1 786 SET B/E SWITCH AT 1 SET SWITCH(ES) AT LITERAL VALUE
83815 83 849 4 0 0 2 849 SET BLOCK NO SWITCH AT 2 SET SWITCH(ES) AT LITERAL VALUE
83816 83 781 2 0 0 2 781 SET FIRST WORD SWITCH AT 2 SET SWITCH(ES) AT LITERAL VALUE
83817 05 871 42 1 0 0 871 CLEAR ERROR WORD TRANSFER
83818 80 818 2 0 0 0 818 >LINE FEED S/R ENTER SUBROUTINE
83819 82 838 2 0 0 0 838 > END OF SUBROUTINE / LEAVE SUBROUTINE
83900 PROCR 839 839 STEP WORD NUMBERS FOR PRINTED LINE BY 14
83901 NOTES RADIX B SELECT
83902 81 839 2 0 0 0 839 START OF SUBROUTINE
83903 60 0 0 0 0 SET DECIMAL RADIX
83904 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
83905 C 0 0 0 7
83906 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
83910>83907 10 0 0 0 14 SELECT LITERAL
83908 36 32 15 0 3 0 COLLATE AND ADD
83909 5 32 15 0 3 0 (CLEAR PREVIOUS SIGN) TRANSFER
83910 94 839 7 0 3 1 839 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
83911 62 0 0 0 0 SET EXCESS CONSTANTS
83912 82 839 2 0 0 0 839 END OF SUBROUTINE / LEAVE SUBROUTINE
84000 PROCR 840 840 STEP WORD COUNTER BY 2
84001 NOTES RADIX B SELECT
84002 81 840 2 0 0 0 840 START OF SUBROUTINE
84003 10 0 0 0 2 SELECT LITERAL
84004 60 0 0 0 0 SET DECIMAL RADIX
84005 04 32 164 0 0 0 AUGMENT
84006 62 0 0 0 0 SET EXCESS CONSTANTS
Source image: P1000747.JPG
84007 82 840 2 0 0 0 840 END OF SUBROUTINE / LEAVE SUBROUTINE
84100 PROCR 841 841 PREPARE FOR DUMPS POINTS S/R
84101 NOTES RADIX B SELECT
84102 81 841 2 0 0 0 841 START OF SUBROUTINE
84103 80 818 2 0 0 0 818 >LINE FEED S/R ENTER SUBROUTINE
84104 80 818 2 0 0 0 818 >LINE FEED S/R ENTER SUBROUTINE
84105 90 0 0 4 0 SET(MR4)=11:0 SET MODIFICATION REGISTER AT LITERAL
84106 C 0 0 0 11
84107 52 5 2 0 0 0 EDIT PM POINT HEADING EDIT
84108 C 876 2 0 0 0 876
84109 80 817 2 0 0 0 817 >PRINT ENTER SUBROUTINE
84110 9 0 1 0 0 SELECT
84111 30 0 0 0 4- SHIFT (A) BY QUARTETS
84112 12 0 0 0 556554 'END' SUBTRACT LITERAL
84113 70 841 15 0 0 0 841 >ALREADY AT END JUMP IF A == 0
84114 80 811 2 0 0 0 811 >READ P/T ENTER SUBROUTINE
84113>84115 80 818 2 0 0 0 818 >LINE FEED S/R ENTER SUBROUTINE
84116 82 841 2 0 0 0 841 > END OF SUBROUTINE / LEAVE SUBROUTINE
84200 PROCR 842 842 PROCESS DUMPS POINT S/R
84201 NOTES RADIX B SELECT
84202 81 842 2 0 0 0 842 START OF SUBROUTINE
84203 94 842 5 0 4 1 842 STEP(MR4) STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
84204 76 805 14 0 0 0 805 >TOO MANY DUMPS POINTS JUMP unconditional
84203>84205 54 31 0 1 0 22 BULK CLEAR
84206 5 871 40 1 0 0 871 CLEAR ERROR WORDS TRANSFER
84207 5 871 42 1 0 0 871 TRANSFER
84208 5 871 44 1 0 0 871 TRANSFER
84209 0 30 0 0 0 0 STORE I/C SERIAL SELECT
84210 80 780 2 0 0 0 780 >UPDATE ADDRESS ENTER SUBROUTINE
84211 3 30 0 0 0 0 NEW SERIAL COPY
84212 3 31 0 0 0 0 COPY
84213 80 834 2 0 0 0 834 >FORM UP REL ADD S/R ENTER SUBROUTINE
84214 70 805 14 0 0 0 805 >NOT PROCR START OR 'TRACE' ,REJECT JUMP IF A == 0
84215 5 31 1 0 0 0 TRANSFER
84216 96 0 0 5 0 BINARY PROCR NO SELECT MODIFIER
84217 80 835 2 0 0 0 835 >FORM UP CHAP NO ENTER SUBROUTINE
84218 96 0 0 3 0 UNCORRECTED CHAP SELECT MODIFIER
84219 5 31 2 0 0 0 TRANSFER
84300 PROCR 843 843 PROCESS TYPE N1 N2 AND N3
84301 NOTES RADIX B SELECT
84302 0 30 1 0 0 0 SELECT
84303 70 805 2 0 0 0 805 >REJECT JUMP IF A == 0
84304 73 805 2 0 0 0 805 JUMP IF A < 0
84305 12 0 0 0 7 SUBTRACT LITERAL
84306 72 805 2 0 0 0 805 >NO,ERROR JUMP IF A >= 0
84307 11 0 0 0 7 ADD LITERAL
84308 30 0 0 0 4 SHIFT (A) BY QUARTETS
84309 4 31 2 0 0 0 AUGMENT
84310 84 780 17 0 0 0 780 SET SWITCH 2 BY TYPE SET SWITCH(ES) AT VARIABLE VALUE
84311 C 30 1 0 0 0
84312 0 30 2 0 0 0 SELECT
84313 12 0 0 0 256 SUBTRACT LITERAL
84314 72 806 12 0 0 0 806 >NO JUMP IF A >= 0
84315 11 0 0 0 256 ADD LITERAL
84316 80 821 2 0 0 0 821 >CONVERT TO BINARY ENTER SUBROUTINE
80614>84317 30 0 0 0 3 SHIFT (A) BY QUARTETS
84318 5 31 3 0 0 0 TRANSFER
Source image: P1000748.JPG
84319 0 30 3 0 0 0 SELECT
84320 12 0 0 0 256 SUBTRACT LITERAL
84321 72 806 15 0 0 0 806 >NO JUMP IF A >= 0
84322 11 0 0 0 256 ADD LITERAL
84323 80 821 2 0 0 0 821 >CONVERT TO BINARY ENTER SUBROUTINE
80617>84324 4 31 3 0 0 0 AUGMENT
84325 0 30 4 0 0 0 SELECT
84326 70 806 18 0 0 0 806 >NO JUMP IF A == 0
84327 12 0 0 0 256 SUBTRACT LITERAL
84328 72 806 18 0 0 0 806 >NO JUMP IF A >= 0
84329 11 0 0 0 256 ADD LITERAL
84330 80 821 2 0 0 0 821 >CONVERT TO BINARY ENTER SUBROUTINE
80620>84331 30 0 0 0 1 SHIFT (A) BY QUARTETS
84332 4 31 2 0 0 0 AUGMENT
84333 91 872 2 0 2 0 872 SET(MR2)=0:0 SET MODIFICATION REGISTER AT VARIABLE
84334 90 0 0 1 0 SET(MR1)=4:0 SET MODIFICATION REGISTER AT LITERAL
84335 C 0 0 0 4
84400 PROCR 844 844 PM TYPE SWITCH,DEAL WITH TYPES 1 &2
84401 NOTES RADIX B SELECT
84402 85 780 17 0 0 0 780 SWITCH 2,PM TYPE SWITCH R
84403 C 844 9 0 0 0 844 (1)
84404 C 844 9 0 0 0 844 (2)
84405 C 845 2 0 0 0 845 (3)
84406 C 845 2 0 0 0 845 (4)
84407 C 847 2 0 0 0 847 (5)
84408 C 846 2 0 0 0 846 (6)
84417>
84404>
84403>84409 0 30 5 0 1 0 CHAP NO SELECT
84410 70 847 2 0 0 0 847 >END OF CHAPS JUMP IF A == 0
84411 2 869 3 0 0 0 869 SUBTRACT
84412 70 844 14 0 0 0 844 >YES JUMP IF A == 0
84413 72 845 44 0 0 0 845 >NO ERROR JUMP IF A >= 0
84412>84414 1 869 3 0 0 0 869 ADD
84415 5 31 4 0 2 0 TRANSFER
84416 94 844 17 0 2 4 844 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
84546>
84548>
84416>84417 94 844 9 0 1 1 844 >NO STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
84418 76 847 2 0 0 0 847 >YES JUMP unconditional
84500 PROCR 845 845 DEAL WITH TYPES 3 & 4
84501 NOTES RADIX B SELECT
84542>
84406>
84405>84502 0 30 5 0 1 0 SECN NO SELECT
84503 70 847 2 0 0 0 847 >END OF SECNS JUMP IF A == 0
84504 73 845 49 0 0 0 845 >SECN<0 JUMP IF A < 0
84505 12 0 0 0 100 SUBTRACT LITERAL
84506 72 845 49 0 0 0 845 >SECN>99 JUMP IF A >= 0
84507 30 5 0 1 0 SECN NO SELECT
84508 80 821 2 0 0 0 821 >CONVERT TO BINARY ENTER SUBROUTINE
84509 3 31 4 0 2 0 COPY
84510 92 0 0 3 0 SET (MR3)=SECN NO SET MODIFIER AT VARIABLE
84511 0 15 0 0 3 0 SELECT
84512 70 845 49 0 0 0 845 >NO ERROR JUMP IF A == 0
84513 0 27 4 0 0 0 COMPILER? SELECT
84514 70 845 22 0 0 0 845 NO-> JUMP IF A == 0
84515 95 0 0 2 0 SELECT MODIFICATION REGISTER
Source image: P1000749.JPG
84516 3 875 2 1 0 0 875 WL COPY
84517 124 999 24 0 3 0 modify address of next
84518 107 0 0 0 0 DOUBLE MR 2 augment (N) by (A)
84519 0 7 20 2 2 0 CLEO LENGTH SELECT
84520 91 875 2 0 2 0 875 RESET SET MODIFICATION REGISTER AT VARIABLE
84521 76 845 25 0 0 0 845 JUMP unconditional
84514>84522 34 868 3 0 0 0 868 BITS 5->19 SET (N) IN B
84523 36 15 0 0 3 0 SECN LGTH COLLATE AND ADD
84524 30 0 0 0 1- SHIFT (A) BY QUARTETS
84521>84525 70 845 49 0 0 0 845 LENGTH ZERO JUMP IF A == 0
84526 5 31 7 0 2 0 TRANSFER
84527 34 868 4 0 0 0 868 BIT 20 SET (N) IN B
84528 36 15 0 0 3 0 COLLATE AND ADD
84529 71 845 35 0 0 0 845 >YES JUMP IF A != 0
84530 18 1000 0 3 0 PROCR START SELECT
84531 5 31 6 0 2 0 TRANSFER
84532 80 836 2 0 0 0 836 FORM UP CHAP NO ENTER SUBROUTINE
84533 30 0 0 0 3 SHIFT (A) BY QUARTETS
84534 76 845 40 0 0 0 845 > JUMP unconditional
84529>84535 31 0 0 0 3- SHIFT (A) BY BITS
84536 5 31 5 0 2 0 STORE TA IND TRANSFER
84537 0 31 4 0 2 0 SECN NO SELECT
84538 80 837 2 0 0 0 837 >FORM UP TA PARAMETER ENTER SUBROUTINE
84539 70 845 49 0 0 0 845 >T A PARAM NOT FOUND JUMP IF A == 0
84534>84540 4 31 4 0 2 0 AUGMENT
84541 94 845 42 0 2 4 845 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
84551>
84553>
84541>84542 94 845 2 0 1 1 845 >NEXT SECN STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
84543 76 847 2 0 0 0 847 > JUMP unconditional
84413>84544 10 0 0 0 5‼5300 *C SELECT LITERAL
84545 80 807 2 0 0 0 807 > ENTER SUBROUTINE
84546 70 844 17 0 0 0 844 > JUMP IF A == 0
84547 80 808 2 0 0 0 808 > ENTER SUBROUTINE
84548 76 844 17 0 0 0 844 > JUMP unconditional
84539>
84525>
84512>
84506>
84504>84549 10 0 0 0 5‼7200 *S SELECT LITERAL
84550 80 807 2 0 0 0 807 > ENTER SUBROUTINE
84551 70 845 42 0 0 0 845 > JUMP IF A == 0
84552 80 808 2 0 0 0 808 > ENTER SUBROUTINE
84553 76 845 42 0 0 0 845 > JUMP unconditional
84605>
84610>
84612>
84621>
84634>
84636>
84652>84554 10 0 0 0 5‼6700 *P SELECT LITERAL
84555 80 807 2 0 0 0 807 > ENTER SUBROUTINE
84556 70 846 60 0 0 0 846 JUMP IF A == 0
84557 31 0 0 0 1- SHIFT (A) BY BITS
84558 80 808 2 0 0 0 808 > ENTER SUBROUTINE
84559 76 846 60 0 0 0 846 > JUMP unconditional
84600 PROCR 846 846 DEAL WITH TYPE 6
84601 NOTES RADIX B SELECT
84408>84602 90 0 0 1 0 SET(MR1)=6:0 SET MODIFICATION REGISTER AT LITERAL
Source image: P1000750.JPG
84603 C 0 0 0 12
84660>84604 0 30 6 0 1 0 ITEM SELECT
84605 73 845 54 0 0 0 845 >REPORT NEG ITEM JUMP IF A < 0
84606 80 821 2 0 0 0 821 >CONVERT ENTER SUBROUTINE
84607 5 31 6 0 2 0 TRANSFER
84608 0 30 5 0 1 0 REF SELECT
84609 70 847 2 0 0 0 847 >ASSUME END OF DETAILS JUMP IF A == 0
84610 73 845 54 0 0 0 845 >REPORT NEG JUMP IF A < 0
84611 12 0 0 0 999 SUBTRACT LITERAL
84612 72 845 54 0 0 0 845 >REPORT >998 JUMP IF A >= 0
84613 0 30 5 0 1 0 SELECT
84614 32 0 0 0 2- SHIFT (AB) BY QUARTETS
84615 71 846 29 0 0 0 846 >PROCR JUMP IF A != 0
84616 32 0 0 0 2 SHIFT (AB) BY QUARTETS
84617 80 821 2 0 0 0 821 >CONVERT REF ENTER SUBROUTINE
84618 3 31 5 0 2 0 COPY
84619 92 0 0 3 0 SET(MR3)=BIN SECN SET MODIFIER AT VARIABLE
84620 18 1000 0 3 0 PROCR START SELECT
84621 70 845 54 0 0 0 845 >NON-EXISTANT SECN JUMP IF A == 0
84622 1 31 6 0 2 0 ITEM ADD
84623 5 31 4 0 2 0 TRANSFER
84624 10 0 0 0 10000 SET SEC IND SELECT LITERAL
84625 4 31 5 0 2 0 AUGMENT
84626 10 0 0 0 0 SELECT LITERAL
84627 80 836 2 0 0 0 836 >FORM UP CHAP NO ENTER SUBROUTINE
84628 76 846 57 0 0 0 846 > JUMP unconditional
84615>84629 32 0 0 0 2 SHIFT (AB) BY QUARTETS
84630 80 821 2 0 0 0 821 >CONVERT REF ENTER SUBROUTINE
84631 5 31 5 0 2 0 TRANSFER
84632 0 30 6 0 1 0 ITEM(3-DIGIT REF) SELECT
84633 12 0 0 0 2 SUBTRACT LITERAL
84634 73 845 54 0 0 0 845 >REPORT<2 JUMP IF A < 0
84635 12 0 0 0 98 SUBTRACT LITERAL
84636 72 845 54 0 0 0 845 >REPORT>99 JUMP IF A >= 0
84637 0 30 5 0 1 0 REF SELECT
84638 30 0 0 0 2 SHIFT (A) BY QUARTETS
84639 60 0 0 0 0 SET DECIMAL SET DECIMAL RADIX
84640 1 30 6 0 1 0 ITEM ADD
84641 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS
84642 80 780 2 0 0 0 780 >UPDATE ADDRESS ENTER SUBROUTINE
84643 3 834 2 0 0 0 834 COPY
84644 32 0 0 0 2- SHIFT (AB) BY QUARTETS
84645 5 30 5 0 1 0 NEW REF TRANSFER
84646 32 0 0 0 2 SHIFT (AB) BY QUARTETS
84647 5 30 6 0 1 0 NEW ITEM TRANSFER
84648 834 2 0 0 0 834 SELECT
84649 80 834 2 0 0 0 834 >FORM UP REL ADD ENTER SUBROUTINE
84650 71 846 54 0 0 0 846 >OK JUMP IF A != 0
84651 0 822 2 0 0 0 822 PROCR START SELECT
84652 70 845 54 0 0 0 845 >REJECT JUMP IF A == 0
84653 1 821 2 0 0 0 821 (BIN ITEM=2) ADD
84650>84654 5 31 4 0 2 0 TRANSFER
84655 95 0 0 5 0 SELECT MODIFICATION REGISTER
84656 80 835 2 0 0 0 835 >FORM UP CHAP NO ENTER SUBROUTINE
84628>84657 30 0 0 0 4 SHIFT (A) BY QUARTETS
84658 4 31 4 0 2 0 AUGMENT
84659 94 846 60 0 2 3 846 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
84659>
84559>
84556>84660 94 846 4 0 1 2 846 >NEXT TRACE POINT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
Source image: P1000751.JPG
84700 PROCR 847 847 FORM UP M/T BLOCK AND PRINT
84701 NOTES RADIX B SELECT
84609>
84543>
84503>
84418>
84410>
84407>84702 96 0 0 4 0 DUMP POINT NUMBER SELECT MODIFIER
84703 3 869 4 0 0 0 869 COPY
84704 11 0 0 0 40 CONVERT TO ALPHA ADD LITERAL
84705 1 870 14 1 0 0 870 DDUMP SP ADD
84706 5 8 50 1 0 0 TRANSFER
84707 0 870 10 1 0 0 870 FILES SELECT
84708 5 8 4 1 0 0 TRANSFER
84709 55 31 0 0 0 22 BULK COPY
84710 C 8 6 1 0 0
84711 80 816 2 0 0 0 816 WRITE ENTER SUBROUTINE
84712 52 5 2 0 0 0 EDIT
84713 C 877 2 0 0 0 877
84714 0 30 1 0 0 0 TEST TYPE 6 SELECT
84715 12 0 0 0 6 SUBTRACT LITERAL
84716 70 847 20 0 0 0 847 >YES JUMP IF A == 0
84717 52 5 18 0 0 0 EDIT
84718 C 877 16 0 0 0 877
84719 76 847 31 0 0 0 847 JUMP unconditional
84716>84720 52 5 18 0 0 0 EDIT
84721 C 877 34 0 0 0 877
84722 90 0 0 3 0 LEFT ALIGN ITEMS SET MODIFICATION REGISTER AT LITERAL
84723 C 0 0 0 24
84724 10 0 0 0 0 SELECT LITERAL
84730>84725 34 5 22 1 3 0 SET (N) IN B
84727>84726 32 0 0 0 2 SHIFT (AB) BY QUARTETS
84727 70 847 26 0 0 0 847 JUMP IF A == 0
84728 32 0 0 0 8 SHIFT (AB) BY QUARTETS
84729 5 5 22 1 3 0 TRANSFER
84730 94 847 25 0 3 4 847 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
84719>84731 80 817 2 0 0 0 817 >PRINT ENTER SUBROUTINE
84732 82 842 2 0 0 0 842 > END OF SUBROUTINE / LEAVE SUBROUTINE
84800 PROCR 848 848 PROCESS AND PRINT T.D. HEADING
84801 NOTES RADIX B SELECT
84802 81 848 2 0 0 0 848 START OF SUBROUTINE
84803 52 5 2 0 0 0 EDIT EDIT
84804 C 878 2 0 0 0 878
84805 0 872 6 1 0 0 872 HEAD OF FORM SELECT
84806 80 817 2 0 0 0 817 PRINT ENTER SUBROUTINE
84807 83 826 4 0 0 2 826 SET FIEND SWITCH SET SWITCH(ES) AT LITERAL VALUE
84808 82 848 2 0 0 0 848 END OF SUBROUTINE / LEAVE SUBROUTINE
84900 PROCR 849 849 PROCESS TRIAL DATA HEADING S/R (1)
84901 NOTES RADIX B SELECT
84902 81 849 2 0 0 0 849 START OF SUBROUTINE
84903 0 16 2 0 0 0 PROG ID SELECT
84904 5 31 0 2 0 0 TRANSFER
84905 5 871 42 1 0 0 871 CLEAR ERROR W/L TRANSFER
84906 0 30 4 0 0 0 RUN NO SELECT
84907 3 32 167 0 0 0 COPY
84908 5 31 6 2 0 0 TRANSFER
84909 0 30 7 0 0 0 T D SET NO SELECT
Source image: P1000752.JPG
84910 71 849 17 0 0 0 849 >NON-ZERO JUMP IF A != 0
84911 80 867 2 0 0 0 867 >STEP'OTHERS' ENTER SUBROUTINE
84912 0 871 12 1 0 0 871 SET ERROR WORD=SET SELECT
84913 30 0 0 0 4- SHIFT (A) BY QUARTETS
84914 5 871 42 1 0 0 871 TRANSFER
84915 10 0 0 0 9 SET T D SET=9 SELECT LITERAL
84916 3 30 7 0 0 0 COPY
84910>84917 3 31 12 2 0 0 STORE FOR O/P COPY
84918 0 30 5 0 0 0 MAX BLOCK SIZE SELECT
84919 12 0 0 0 1001 TEST>1000 SUBTRACT LITERAL
84920 73 849 26 0 0 0 849 >NO JUMP IF A < 0
84921 0 871 32 1 0 0 871 SET UP ERROR REPORT SELECT
84922 5 871 42 1 0 0 871 TRANSFER
84923 80 867 2 0 0 0 867 >STEP'OTHERS' ENTER SUBROUTINE
84924 0 30 5 0 0 0 SELECT
84925 12 0 0 0 1001 SUBTRACT LITERAL
84920>84926 11 0 0 0 1001 ADD LITERAL
84927 3 32 168 0 0 0 COPY
84928 3 31 16 2 0 0 COPY
84929 80 821 2 0 0 0 821 >CONVERT TO BINARY ENTER SUBROUTINE
84930 31 0 0 0 1 FORM(2N-4) SHIFT (A) BY BITS
84931 12 0 0 0 4 SUBTRACT LITERAL
84932 5 31 10 2 0 0 TRANSFER
84933 0 30 8 0 0 0 FIXED/VARIABLE IND SELECT
84934 3 31 18 2 0 0 COPY
84935 70 849 41 0 0 0 849 >FIXED SET UP IND IN JUMP IF A == 0
84936 10 0 0 0 1 SELECT LITERAL
84937 3 30 8 0 0 0 COPY
84938 5 31 18 2 0 0 TRANSFER
84939 0 871 38 1 0 0 871 TD HEADING SELECT
84940 76 849 42 0 0 0 849 >VAR JUMP unconditional
84935>84941 0 871 36 1 0 0 871 SELECT
84940>84942 5 871 40 1 0 0 871 TRANSFER
85000 PROCR 850 850 PROCESS TRIAL DATA HEADING (2)
85001 NOTES RADIX B SELECT
85002 0 30 11 0 0 0 TEST TRUE FILE ID ZERO SELECT
85003 70 850 13 0 0 0 850 >YES JUMP IF A == 0
85004 32 0 0 0 3- SHIFT (AB) BY QUARTETS
85005 5 869 2 0 0 0 869 COPY ALPHA PART TO W/L TRANSFER
85006 0 30 3 0 0 0 TEST ALPHA PART OF SELECT
85007 32 0 0 0 3- RTE IDENTIFIER= SHIFT (AB) BY QUARTETS
85008 2 869 2 0 0 0 869 STORED ALPHA VALUE SUBTRACT
85009 70 850 11 0 0 0 850 >YES JUMP IF A == 0
85010 80 809 2 0 0 0 809 >ERROR S/R ENTER SUBROUTINE
85009>85011 0 30 10 1 0 0 SELECT
85012 76 850 15 0 0 0 850 > JUMP unconditional
85003>85013 0 30 2 1 0 0 SET TRUE FILE ID= SELECT
85014 3 30 10 1 0 0 ROUTE IDENTIFIER COPY
85012>85015 30 0 0 0 6- SHIFT (A) BY QUARTETS
85016 5 31 4 1 0 0 TRANSFER
85017 0 30 2 1 0 0 STORE RTE IDENTIFIER SELECT
85018 30 0 0 0 6- SHIFT (A) BY QUARTETS
85019 5 31 20 1 0 0 TRANSFER
85020 0 24 1 0 0 0 SELECT
85021 70 850 30 0 0 0 850 >NO FILES JUMP IF A == 0
85022 91 24 0 0 1 0 SET(MR1)=2R/0 SET MODIFICATION REGISTER AT VARIABLE
85029>85023 24 5 0 1 0 B7-20=FILE ID SELECT
85024 31 0 0 0 6- SHIFT (A) BY BITS
85025 11 0 0 0 4000 ADD LITERAL
Source image: P1000753.JPG
85026 30 0 0 0 1 SHIFT (A) BY QUARTETS
85027 2 30 3 0 0 0 SUBTRACT
85028 70 850 35 0 0 0 850 >YES JUMP IF A == 0
85029 94 850 23 0 1 2 850 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85021>85030 10 0 0 0 7777 DUMMY FILE IDENTY'XX' SELECT LITERAL
85031 3 31 20 1 0 0 ON MAG TAPE COPY
85032 30 0 0 0 6 SHIFT (A) BY QUARTETS
85033 5 30 2 1 0 0 AND PRINTER TRANSFER
85034 80 809 2 0 0 0 809 >ERROR S/R ENTER SUBROUTINE
85028>85035 10 0 0 0 3£ BITS 1-6 SELECT LITERAL
85036 32 0 0 0 10- SHIFT (AB) BY QUARTETS
85037 36 24 5 0 1 0 COLLATE AND ADD
85038 12 0 0 0 7 SUBTRACT LITERAL
85039 70 850 45 0 0 0 850 >YES 7 JUMP IF A == 0
85040 12 0 0 0 1 SUBTRACT LITERAL
85041 70 850 45 0 0 0 850 >YES 8 JUMP IF A == 0
85042 12 0 0 0 3 SUBTRACT LITERAL
85043 70 850 45 0 0 0 850 >YES 11 JUMP IF A == 0
85044 80 809 2 0 0 0 809 >ERROR S/R ENTER SUBROUTINE
85043>
85041>
85039>85045 95 0 0 1 0 FORM UP RTE PARAM SELECT MODIFICATION REGISTER
85046 31 0 0 0 1- SHIFT (A) BY BITS
85047 11 0 0 0 1 ADD LITERAL
85048 1 869 3 0 0 0 869 NO OF INITIAL CHAPS ADD
85049 1 869 3 0 0 0 869 ADD
85050 5 31 2 2 0 0 TRANSFER
85051 0 30 6 0 0 0 SECN NO SELECT
85052 3 32 169 0 0 0 COPY
85053 3 31 14 2 0 0 COPY
85054 80 821 2 0 0 0 821 >CONVERT TO BINARY ENTER SUBROUTINE
85055 80 837 2 0 0 0 837 >FORM UP PARAMETER ENTER SUBROUTINE
85056 71 850 58 0 0 0 850 >T.A.PARAMETER FOUND JUMP IF A != 0
85057 80 809 2 0 0 0 809 >ERROR S/R ENTER SUBROUTINE
85056>85058 30 0 0 0 3- SHIFT (A) BY QUARTETS
85059 5 31 8 2 0 0 TRANSFER
85060 80 818 2 0 0 0 818 >LINE FEED S/R ENTER SUBROUTINE
85061 80 818 2 0 0 0 818 >LINE FEED S/R ENTER SUBROUTINE
85062 54 8 0 0 0 54 BULK CLEAR
85063 0 870 6 1 0 0 870 CHAPT SELECT
85064 5 8 4 1 0 0 TRANSFER
85065 55 31 0 1 0 22 BULK COPY
85066 C 8 6 1 0 0
85067 80 816 2 0 0 0 816 WRITE ENTER SUBROUTINE
85068 54 32 0 0 0 60 CLEAR W/L'S BULK CLEAR
85069 10 0 0 0 8 SET BLOCK CTR AT 8 SELECT LITERAL
85070 5 32 14 0 0 0 TRANSFER
85071 90 0 0 1 0 SET (MR1) AT 24:0 SET MODIFICATION REGISTER AT LITERAL
85072 C 0 0 0 24
85073 0 30 8 0 0 0 FIXED/VARIABLE IND SELECT
85074 11 0 0 0 1 ADD LITERAL
85075 84 785 2 0 0 0 785 SET BLOCK LGTH SWITCH SET SWITCH(ES) AT VARIABLE VALUE
85076 82 849 2 0 0 0 849 END OF SUBROUTINE / LEAVE SUBROUTINE
85100 PROCR 851 851 OUTPUT M/T BLOCK S/R
85101 NOTES RADIX B SELECT
85102 81 851 2 0 0 0 851 START OF SUBROUTINE
85103 85 781 2 0 0 0 781 TEST THIS IS FIRST WORD OF TD BLOCK SWITCH R
85104 C 851 8 0 0 0 851 >NO
85105 C 851 6 0 0 0 851 >YES
Source image: P1000754.JPG
85105>85106 83 781 2 0 0 1 781 SET FIRST WORD SWITCH AT 1 SET SWITCH(ES) AT LITERAL VALUE
85107 76 851 23 0 0 0 851 JUMP unconditional
85104>85108 94 851 23 0 1 2 851 >NO TEST END OF BLOCK STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85109 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
85110 C 0 0 0 24
85111 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
85112 C 0 0 0 48
85118>85113 0 32 37 0 3 0 SELECT
85114 5 8 4 2 1 0 TRANSFER
85115 0 32 36 0 3 0 SELECT
85116 5 8 6 2 1 0 TRANSFER
85117 94 0 0 1 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85118 94 851 13 0 3 2 851 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85119 80 816 2 0 0 0 816 >WRITE ENTER SUBROUTINE
85120 90 0 0 1 0 RESET (MR1) SET MODIFICATION REGISTER AT LITERAL
85121 C 0 0 0 24
85122 54 32 36 0 0 24 CLEAR W/L'S BULK CLEAR
85108>
85107>85123 82 851 2 0 0 0 851 END OF SUBROUTINE / LEAVE SUBROUTINE
85200 PROCR 852 852 EDIT NEXT PRINTER TRIAL DATA LINE+BLOCK NUMBER IF REQUIRED
85201 NOTES RADIX B SELECT
85202 81 852 2 0 0 0 852 START OF SUBROUTINE
85203 85 849 4 0 0 0 849 TEST BLOCK TO BE EDITED SWITCH R
85204 C 852 21 0 0 0 852 >NO
85205 C 852 6 0 0 0 852 >YES
85205>85206 52 5 2 0 0 0 EDIT BLOCK NO EDIT
85207 C 879 2 0 0 0 879
85208 60 0 0 0 0 SET DECIMAL RADIX
85209 10 0 0 0 1 SELECT LITERAL
85210 4 32 14 0 0 0 STEP IT READY FOR NEXT BLOCK AUGMENT
85211 62 0 0 0 0 SET EXCESS CONSTANTS
85212 83 849 2 0 0 1 849 SET BLOCK NO SWITCH SET SWITCH(ES) AT LITERAL VALUE
85213 0 32 14 0 0 0 SELECT
85214 32 0 0 0 4- SHIFT (AB) BY QUARTETS
85215 70 852 20 0 0 0 852 >NOT EX PT JUMP IF A == 0
85216 10 0 0 0 2+2+0 >>' SELECT LITERAL
85217 5 5 3 0 0 0 TRANSFER
85218 32 0 0 0 4 SHIFT (AB) BY QUARTETS
85219 5 32 14 0 0 0 CLEAR IND TRANSFER
85215>85220 76 852 22 0 0 0 852 JUMP unconditional
85204>85221 80 819 2 0 0 0 819 CLEAR ANNEXE START ENTER SUBROUTINE
85220>85222 52 5 6 0 0 0 EDIT LINE EDIT
85223 C 879 8 0 0 0 879
85224 95 0 0 1 0 SET 'EX PT' INDS SELECT MODIFICATION REGISTER
85225 5 869 14 1 0 0 869 WL TRANSFER
85226 95 0 0 2 0 SELECT MODIFICATION REGISTER
85227 5 908 54 1 0 0 908 WL TRANSFER
85228 90 0 0 1 0 SCAN WORD NUMBERS SET MODIFICATION REGISTER AT LITERAL
85229 C 0 0 0 7
85230 90 0 0 2 0 SCAN SEC 5 SET MODIFICATION REGISTER AT LITERAL
85231 C 0 0 0 42
85238>85232 32 15 0 1 0 SELECT
85233 72 852 37 0 0 0 852 >NORMAL JUMP IF A >= 0
85234 35 0 0 0 110 PREPARE FOR DIGIT COLLATION
85235 10 0 0 0 2Ю0 '->' SELECT LITERAL
85236 37 5 7 0 2 0 REPLACE SELECTED BITS
85233>85237 94 0 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85238 94 852 32 0 2 6 852 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85239 91 869 14 0 1 0 869 RESTORE SET MODIFICATION REGISTER AT VARIABLE
Source image: P1000755.JPG
85240 91 908 54 0 2 0 908 SET MODIFICATION REGISTER AT VARIABLE
85241 82 852 2 0 0 0 852 END OF SUBROUTINE / LEAVE SUBROUTINE
85300 PROCR 853 853 END OF TRIAL DATA BLOCK S/R
85301 NOTES RADIX B SELECT
85302 81 853 2 0 0 0 853 START OF SUBROUTINE
85303 80 852 2 0 0 0 852 >EDIT BLOCK NO IF REQD ENTER SUBROUTINE
85304 10 0 0 0 2Ю SET(MR3)=42/3XMR SELECT LITERAL
85305 30 0 0 0 5 SHIFT (A) BY QUARTETS
85306 98 0 0 2 0 ADD MODIFICATION REGISTER TO A
85307 98 0 0 2 0 ADD MODIFICATION REGISTER TO A
85308 98 0 0 2 0 ADD MODIFICATION REGISTER TO A
85309 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
85311>85310 54 5 6 0 3 6 CLEAR REST OF ANNEXE BULK CLEAR
85311 94 853 10 0 3 6 853 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85312 5 32 139 0 0 0 CLEAR LINE CTR TRANSFER
85313 80 817 2 0 0 0 817 PRINT ENTER SUBROUTINE
85314 85 787 4 0 0 0 787 SWITCH R
85315 C 853 22 0 0 0 853 >NO
85316 C 853 17 0 0 0 853 >YES
85316>85317 52 5 6 0 0 0 EDIT LINE EDIT
85318 C 880 2 0 0 0 880
85319 80 819 2 0 0 0 819 CLEAR ANNEXE START ENTER SUBROUTINE
85320 80 817 2 0 0 0 817 PRINT ENTER SUBROUTINE
85321 54 32 22 0 0 14 BULK CLEAR
85315>85322 83 786 4 0 0 3 786 SET SWITCH(ES) AT LITERAL VALUE
85323 82 853 2 0 0 0 853 END OF SUBROUTINE / LEAVE SUBROUTINE
85400 PROCR 854 854 PROCESS DUMP POINT FROM MT
85401 NOTES RADIX B SELECT
78921>85402 00 7 6 2 0 0 I/C SERIAL SELECT
85403 05 30 0 0 0 0 TRANSFER
85404 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION
85405 36 7 10 2 0 0 PM TYPE COLLATE AND ADD
85406 30 0 0 0 4- SHIFT (A) BY QUARTETS
85407 05 30 1 0 0 0 TRANSFER
85408 35 0 0 0 11000 N1 PREPARE FOR DIGIT COLLATION
85409 36 7 12 2 0 0 COLLATE AND ADD
85410 30 0 0 0 3- SHIFT (A) BY QUARTETS
85411 80 822 2 0 0 0 822 >CONVERT TO DEC ENTER SUBROUTINE
85412 05 30 2 0 0 0 TRANSFER
85413 35 0 0 0 11 N2 PREPARE FOR DIGIT COLLATION
85414 36 7 12 2 0 0 COLLATE AND ADD
85415 80 822 2 0 0 0 822 >CONVERT TO DEC ENTER SUBROUTINE
85416 05 30 3 0 0 0 TRANSFER
85417 35 0 0 0 110 N3 PREPARE FOR DIGIT COLLATION
85418 36 7 10 2 0 0 COLLATE AND ADD
85419 30 0 0 0 1- SHIFT (A) BY QUARTETS
85420 80 822 2 0 0 0 822 >CONVERT TO DEC ENTER SUBROUTINE
85421 05 30 4 0 0 0 TRANSFER
85500 PROCR 855 855 -2
85501 NOTES RADIX B SELECT
85502 00 30 1 0 0 0 SELECT
85503 12 0 0 0 6 SUBTRACT LITERAL
85504 71 855 19 0 0 0 855 >NO JUMP IF A != 0
85505 90 0 0 1 0 SET (MR1)=6:0 SET MODIFICATION REGISTER AT LITERAL
85506 C 0 0 0 12
85507 91 872 2 0 2 0 872 SET (MR2)=0:0 SET MODIFICATION REGISTER AT VARIABLE
85517>85508 10 0 0 0 0 SELECT LITERAL
Source image: P1000756.JPG
85509 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
85510 36 7 16 2 2 0 REF COLLATE AND ADD
85511 80 822 2 0 0 0 822 >CONVERT TO DEC ENTER SUBROUTINE
85512 5 30 5 0 1 0 TRANSFER
85513 0 7 18 2 2 0 ITEM SELECT
85514 80 822 2 0 0 0 822 >CONVERT TO DEC ENTER SUBROUTINE
85515 5 30 6 0 1 0 TRANSFER
85516 94 855 17 0 2 6 855 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85516>85517 94 855 8 0 1 2 855 >NEXT ONE STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85518 76 855 36 0 0 0 855 > JUMP unconditional
85504>85519 0 30 1 0 0 0 TEST TYPE 5 SELECT
85520 12 0 0 0 5 SUBTRACT LITERAL
85521 71 855 26 0 0 0 855 >NO JUMP IF A != 0
85522 5 30 5 0 0 0 CLEAR W/L'S TRANSFER
85523 5 30 6 1 0 0 TRANSFER
85524 5 30 8 1 0 0 TRANSFER
85525 76 855 36 0 0 0 855 > JUMP unconditional
85521>85526 90 0 0 1 0 SET (MR1)=4:0 SET MODIFICATION REGISTER AT LITERAL
85527 C 0 0 0 4
85528 91 872 2 0 2 0 872 SET (MR2)=0:0 SET MODIFICATION REGISTER AT VARIABLE
85535>85529 10 0 0 0 0 SELECT LITERAL
85530 35 0 0 0 111 PREPARE FOR DIGIT COLLATION
85531 36 7 14 2 2 0 CHAP OR SECN NO COLLATE AND ADD
85532 80 822 2 0 0 0 822 >CONVERT TO DEC ENTER SUBROUTINE
85533 5 30 5 0 1 0 TRANSFER
85534 94 855 35 0 2 8 855 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85534>85535 94 855 29 0 1 1 855 >NEXT ONE STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85525>
85518>85536 80 842 2 0 0 0 842 >PROCESS DUMPS POINT ENTER SUBROUTINE
85537 76 789 22 0 0 0 789 JUMP unconditional
85600 PROCR 856 856 PRINT FILE UNALTERED S/R
85601 NOTES RADIX B SELECT
85602 81 856 2 0 0 0 856 START OF SUBROUTINE
85603 0 27 0 0 0 0 TEST ISSUE 6 OR SELECT
85604 30 0 0 0 4- EARLIER SHIFT (A) BY QUARTETS
85605 12 0 0 0 7 SUBTRACT LITERAL
85606 72 856 55 0 0 0 856 >NO JUMP IF A >= 0
85607 0 7 10 1 0 0 FILE ID SELECT
85608 5 30 10 1 0 0 TRANSFER
85609 0 7 12 2 0 0 RUN NO SELECT
85610 5 30 4 0 0 0 TRANSFER
85611 5 30 7 0 0 0 SET NO TRANSFER
85612 5 30 8 0 0 0 IND TRANSFER
85613 0 7 16 2 0 0 TA LGTH SELECT
85614 31 0 0 0 1- SHIFT (A) BY BITS
85615 80 822 2 0 0 0 822 >TO DEC ENTER SUBROUTINE
85616 5 30 5 0 0 0 TRANSFER
85617 62 0 0 0 0 SET EXCESS CONSTANTS
85618 0 7 14 2 0 0 P RTE PARAM SELECT
85619 30 0 0 0 3 SEARCH LIST FOR SHIFT (A) BY QUARTETS
85620 5 869 2 0 0 0 869 W/L SECN ASSOCIATED TRANSFER
85621 91 24 2 0 3 0 2(R+T):2R WITH THIS P RTE SET MODIFICATION REGISTER AT VARIABLE
85622 94 856 24 0 3 0 856 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85623 76 856 30 0 0 0 856 >NO TX AREAS JUMP unconditional
85629>
85622>85624 35 0 0 0 11000 PREPARE FOR DIGIT COLLATION
85625 36 24 4 0 3 0 COLLATE AND ADD
85626 2 869 2 0 0 0 869 SUBTRACT
85627 70 856 31 0 0 0 856 >SECN FOUND JUMP IF A == 0
Source image: P1000757.JPG
85628 10 0 0 0 0 SELECT LITERAL
85629 94 856 24 0 3 2 856 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85623>85630 80 809 2 0 0 0 809 NOT FOUND ERROR S/R ENTER SUBROUTINE
85627>85631 35 0 0 0 111 PREPARE FOR DIGIT COLLATION
85632 36 24 4 0 3 0 SECN NO COLLATE AND ADD
85633 80 821 2 0 0 0 821 >TO BIN ENTER SUBROUTINE
85634 5 30 6 0 0 0 TRANSFER
85635 0 7 8 2 0 0 RTE PARAM SELECT
85636 2 869 3 0 0 0 869 NO OF CHAPS SUBTRACT
85637 2 869 3 0 0 0 869 SUBTRACT
85638 12 0 0 0 1 SUBTRACT LITERAL
85639 31 0 0 0 1 SHIFT (A) BY BITS
85640 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
85641 24 5 0 3 0 FILE ID BITS 7-20 SELECT
85642 31 0 0 0 6- SHIFT (A) BY BITS
85643 11 0 0 0 4000 RESTORE TOP CONTROL ADD LITERAL
85644 30 0 0 0 6 SHIFT (A) BY QUARTETS
85645 5 30 2 1 0 0 TRUE FILE ID OF TRIAL DATA SET TRANSFER
85646 80 849 2 0 0 0 849 >PROCESS T D HEADING ENTER SUBROUTINE
85657>
85659>85647 80 848 2 0 0 0 848 >PRINT T D HEADING ENTER SUBROUTINE
85648 10 0 0 0 8 SET BLOCK CTR 2 AT 8 SELECT LITERAL
85649 5 32 138 0 0 0 TRANSFER
85650 90 0 0 8 22 SET(MR8)=24:22 SET MODIFICATION REGISTER AT LITERAL
85651 C 0 0 0 24
85652 80 861 2 0 0 0 861 >READ AND STORE BLOCK ENTER SUBROUTINE
85653 80 864 2 0 0 0 864 >PRINT T D SET ENTER SUBROUTINE
85654 82 856 2 0 0 0 856 > END OF SUBROUTINE / LEAVE SUBROUTINE
85606>85655 80 794 2 0 0 0 794 >PROCESS T D HEADING ENTER SUBROUTINE
85656 23 46 0 0 0 'PRINTOUT'INDICATOR SELECT
85657 71 856 47 0 0 0 856 >PRINT ALL B/FWD DATA JUMP IF A != 0
85658 0 871 42 1 0 0 871 ERROR WORD SELECT
85659 71 856 47 0 0 0 856 >HEADING REPORTED PRINT WHOLE SET JUMP IF A != 0
85660 0 7 26 1 0 0 STORE FILE ID SELECT
85661 5 871 44 0 0 0 871 TRANSFER
85662 52 5 2 0 0 0 EDIT 'FILE UNALTERED' LINE EDIT
85663 C 881 2 0 0 0 881
85664 80 817 2 0 0 0 817 >PRINT ENTER SUBROUTINE
85668>85665 80 857 2 0 0 0 857 >READ,TEST CHAPT,PREND OR E ENTER SUBROUTINE
85666 70 856 69 0 0 0 856 >YES JUMP IF A == 0
85667 80 815 2 0 0 0 815 >WRITE A2 ENTER SUBROUTINE
85668 76 856 65 0 0 0 856 > JUMP unconditional
85666>85669 83 826 4 0 0 1 826 SET FIEND SWITCH AT 1 SET SWITCH(ES) AT LITERAL VALUE
85670 82 856 2 0 0 0 856 END OF SUBROUTINE / LEAVE SUBROUTINE
85700 PROCR 857 857 READ A1,TEST CHAPT PREND OR E
85701 NOTES RADIX B SELECT
85702 81 857 2 0 0 0 857 START OF SUBROUTINE
85703 80 810 2 0 0 0 810 >READ A1 ENTER SUBROUTINE
85704 0 7 4 1 0 0 SELECT
85705 2 870 8 1 0 0 870 SUBTRACT
85706 70 857 12 0 0 0 857 >YES JUMP IF A == 0
85707 1 870 8 1 0 0 870 ADD
85708 2 870 6 1 0 0 870 SUBTRACT
85709 70 857 12 0 0 0 857 >YES JUMP IF A == 0
85710 1 870 6 1 0 0 870 ADD
85711 12 0 0 0 55 SUBTRACT LITERAL
85709>
85706>85712 82 857 2 0 0 0 857 END OF SUBROUTINE / LEAVE SUBROUTINE
Source image: P1000758.JPG
85800 PROCR 858 858 FORM TD WORD FOR PRINTING S/R
85801 NOTES RADIX B SELECT
85802 81 858 2 0 0 0 858 START OF SUBROUTINE
85803 00 32 0 1 2 0 TEST ERROR WORD SELECT
85804 02 872 16 1 0 0 872 SUBTRACT
85805 71 858 10 0 0 0 858 >NO JUMP IF A != 0
85806 00 872 16 1 0 0 872 SELECT
85807 05 32 22 1 2 0 TRANSFER
85808 83 787 4 0 0 2 787 SET -LINE SWITCH AT 2 SET SWITCH(ES) AT LITERAL VALUE
85809 76 858 71 0 0 0 858 JUMP unconditional
85805>85810 10 0 0 0 3£ SET (B)=63 SELECT LITERAL
85811 32 0 0 0 10- SHIFT (AB) BY QUARTETS
85823>85812 36 32 0 1 2 0 TEST WORD CONTAINS COLLATE AND ADD
85813 05 32 122 1 0 0 W/L TRANSFER
85814 36 872 8 1 0 0 872 COLLATE AND ADD
85815 02 32 122 1 0 0 SUBTRACT
85816 70 858 62 0 0 0 858 >YES JUMP IF A == 0
85817 10 0 0 0 0 SELECT LITERAL
85818 36 872 10 1 0 0 872 TEST WORD CONTAINS COLLATE AND ADD
85819 02 32 122 1 0 0 SUBTRACT
85820 70 858 69 0 0 0 858 >YES JUMP IF A == 0
85868>85821 32 0 0 0 2 SHIFT (AB) BY QUARTETS
85822 10 0 0 0 0 TEST END OF WORD SELECT LITERAL
85823 75 858 12 0 0 0 858 >NO JUMP IF AB != 0
85824 85 786 4 0 0 0 786 TEST B/E FOUND SWITCH R
85825 C 858 71 0 0 0 858 >NO
85826 C 858 28 0 0 0 858 >YES
85827 C 803 38 0 0 0 803 GHASTLY MISTAKE
85826>85828 872 4 1 0 0 872 SAFETY SELECT
85829 5 32 36 1 1 0 TRANSFER
85830 0 32 0 1 2 0 SELECT
85831 12 0 0 0 5200000052 SUBTRACT LITERAL
85832 70 858 37 0 0 0 858 >YES JUMP IF A == 0
85833 35 0 0 0 110000 ERROR REPORT B PREPARE FOR DIGIT COLLATION
85834 10 0 0 0 525963 BIL SELECT LITERAL
85835 37 871 42 1 0 0 871 REPLACE SELECTED BITS
85836 80 867 2 0 0 0 867 >ADD ONE TO OTHERS CTR ENTER SUBROUTINE
85832>85837 85 785 2 0 0 0 785 TEST BLOCK AND ITEM SWITCH R
85838 C 858 87 0 0 0 858 >NO LGHS BEING CHECKED
85839 C 858 40 0 0 0 858 >YES
85839>85840 96 0 0 2 0 FORM UP WORD NO SELECT MODIFIER
85841 31 0 0 0 1- OF B/E WORD SHIFT (A) BY BITS
85842 92 0 0 3 0 SET MODIFIER AT VARIABLE
85843 10 0 0 0 0 SELECT LITERAL
85844 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
85845 36 32 15 0 3 0 COLLATE AND ADD
85846 02 32 166 0 0 0 WORD CORRECT SUBTRACT
85847 70 858 52 0 0 0 858 >YES JUMP IF A == 0
85848 35 0 0 0 11 ERROR REPORT L PREPARE FOR DIGIT COLLATION
85849 10 0 0 0 525963 SELECT LITERAL
85850 37 871 42 1 0 0 871 REPLACE SELECTED BITS
85851 80 867 2 0 0 0 867 >ADD ONE TO OTHERS CTR ENTER SUBROUTINE
85847>85852 10 0 0 0 0 SELECT LITERAL
85853 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
85854 36 32 15 0 3 0 COLLATE AND ADD
85855 02 32 165 0 0 0 LGTHS CORRECT SUBTRACT
85856 70 858 74 0 0 0 858 >OK JUMP IF A == 0
85857 35 0 0 0 1100 ERROR REPORT 1 PREPARE FOR DIGIT COLLATION
85858 10 0 0 0 525963 SELECT LITERAL
85859 37 871 42 1 0 0 871 REPLACE SELECTED BITS
Source image: P1000759.JPG
85860 80 867 2 0 0 0 867 >ADD ONE TO 'OTHERS'CTR ENTER SUBROUTINE
85861 76 858 74 0 0 0 858 JUMP unconditional
85816>85862 83 786 4 0 0 2 786 SET B/E FOUND SWITCH AT 2 SET SWITCH(ES) AT LITERAL VALUE
85863 0 872 12 1 0 0 872 REPLACE B/E BY B SELECT
85870>85864 37 32 0 1 2 0 REPLACE SELECTED BITS
85865 0 872 16 1 0 0 872 SET UP * SELECT
85866 37 32 22 1 2 0 REPLACE SELECTED BITS
85867 83 787 4 0 0 2 787 SET*LINE SWITCH AT 2 SET SWITCH(ES) AT LITERAL VALUE
85868 76 858 21 0 0 0 858 > JUMP unconditional
85820>85869 0 872 14 1 0 0 872 REPLACE L/E BY L SELECT
85870 76 858 64 0 0 0 858 > JUMP unconditional
85825>
85809>85871 85 785 2 0 0 0 785 CHECK BLOCK AND ITEM LENGTH' SWITCH R
85872 C 858 87 0 0 0 858 >NO
85873 C 858 74 0 0 0 858 >YES
85873>
85861>
85856>85874 96 0 0 2 0 SELECT MODIFIER
85875 31 0 0 0 1- SHIFT (A) BY BITS
85876 5 839 2 0 0 0 839 WL TRANSFER
85877 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
85878 124 839 2 0 1 0 839 modify address of next
85879 36 32 15 0 0 0 PRINTER WORD NUMBER COLLATE AND ADD
85880 2 32 165 0 0 0 POSITION OF NEXT ITEM LENGTH WORD SUBTRACT
85881 71 858 87 0 0 0 858 >NOT ITEM LENGTH POSITION JUMP IF A != 0
85882 32 36 2 1 0 ITEM LENGTH SELECT
85883 80 822 2 0 0 0 822 >DEC ENTER SUBROUTINE
85884 60 0 0 0 0 SET DECIMAL RADIX
85885 4 32 165 0 0 0 EXPECTED POSITION NEXT ITEM LENGTH WORD AUGMENT
85886 62 0 0 0 0 SET EXCESS CONSTANTS
85881>
85872>
85838>85887 80 851 2 0 0 0 851 >WRITE O/P IF FULL ENTER SUBROUTINE
85888 94 859 22 0 2 2 859 PRINTER LINE N OT FULL STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85889 90 0 0 3 0 TEST ZERO ANNEX SET MODIFICATION REGISTER AT LITERAL
85890 C 0 0 0 14
85893>85891 32 0 1 3 0 SELECT
85892 71 859 2 0 0 0 859 >SOMETHING TO PRINT JUMP IF A != 0
85893 94 858 91 0 3 2 858 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
85894 76 859 16 0 0 0 859 >NOTHING TO PRINT JUMP unconditional
85900 PROCR 859 859 PRINT LINE OF TRIAL DATA
85892>85902 80 852 2 0 0 0 852 >EDIT BLOCK NUMBER ENTER SUBROUTINE
85903 80 817 2 0 0 0 817 >PRINT ENTER SUBROUTINE
85904 85 787 2 0 0 0 787 LAST LINE CONTAINED FUNNIES' SWITCH R
85905 C 859 16 0 0 0 859 >NO
85906 C 859 7 0 0 0 859 >YES
85906>85907 80 819 2 0 0 0 819 >CLEAR FRONT OF ANNEX ENTER SUBROUTINE
85908 52 5 6 0 0 0 EDIT WEIRD LINE EDIT
85909 C 880 2 0 0 0 880
85910 80 817 2 0 0 0 817 >PRINT ENTER SUBROUTINE
85911 54 32 22 1 0 14 BULK CLEAR
85912 85 786 2 0 0 0 786 BEW FOUND IN MT TRIAL DATA' SWITCH R
85913 C 859 16 0 0 0 859 >NO
85914 C 859 21 0 0 0 859 >YES
85915 C 803 38 0 0 0 803 >GHASTLY MISTAKE
85913>
85905>
85894>85916 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
85917 C 0 0 0 14
Source image: P1000760.JPG
85918 80 839 2 0 0 0 839 >STEP MT WORD NUMBERS ENTER SUBROUTINE
85919 83 787 2 0 0 1 787 CLEAR'FUNNY LINE'IND SET SWITCH(ES) AT LITERAL VALUE
85920 82 858 2 0 0 0 858 END OF SUBROUTINE / LEAVE SUBROUTINE
85914>85921 83 786 2 0 0 3 786 SET'BEW FOUND AND PRINTED' SET SWITCH(ES) AT LITERAL VALUE
85888>85922 82 858 2 0 0 0 858 END OF SUBROUTINE / LEAVE SUBROUTINE
86000 PROCR 860 860 PROCESS UNAMENDED TRIAL DATA WORD EX MT
86001 NOTES RADIX B SELECT
86002 81 860 2 0 0 0 860 START OF SUBROUTINE
86003 0 32 140 1 8 0 NEXT I/P MT WORD SELECT
86004 3 32 36 1 1 0 STORE FOR MT O/P COPY
86005 5 32 0 1 2 0 STORE FOR PRINTING TRANSFER
86006 85 781 2 0 0 0 781 TEST 1ST WORD OF BLOCK SWITCH R
86007 C 860 22 0 0 0 860 >NO
86008 C 860 9 0 0 0 860 >YES
86008>86009 85 785 2 0 0 0 785 TEST BLOCK AND ITEM LGTHS TO BE CHECKED SWITCH R
86010 C 860 17 0 0 0 860 >NO
86011 C 860 12 0 0 0 860 >YES
86011>86012 10 0 0 0 6 SET ITEM LGTH POSN=6 SELECT LITERAL
86013 3 32 165 0 0 0 COPY
86014 1 32 0 2 2 0 FORM AND STORE POSN OF B/E WORD ADD
86015 80 822 2 0 0 0 822 >CONVERT TO DEC ENTER SUBROUTINE
86016 5 32 166 0 0 0 TRANSFER
86010>86017 83 781 2 0 0 1 781 SET SWITCH AT 1 SET SWITCH(ES) AT LITERAL VALUE
86018 0 32 0 1 2 0 (DON'T PRINT FIRST WORD IN'WORD 2'POSITISELECT
86019 5 32 2 1 2 0 NEXT POSN TRANSFER
86020 5 32 0 1 2 0 TRANSFER
86021 94 860 22 0 2 2 860 STEP(MR2) STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
86021>
86007>86022 80 858 2 0 0 0 858 >PROCESS WORD ENTER SUBROUTINE
86023 80 861 2 0 0 0 861 >ADDRESS NEXT I/P MT WORD ENTER SUBROUTINE
86024 82 860 2 0 0 0 860 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
86100 PROCR 861 861 ADDRESS NEXT I/P TRIAL DATA WORD EX MT
86101 NOTES RADIX B SELECT
86102 81 861 2 0 0 0 861 START OF SUBROUTINE
86103 32 140 1 8 0 LAST MT WORD SELECT
86104 2 872 4 1 0 0 872 BEW SUBTRACT
86105 71 861 10 0 0 0 861 >NO JUMP IF A != 0
86106 60 0 0 0 0 SET DECIMAL RADIX
86107 10 0 0 0 1 SELECT LITERAL
86108 4 32 138 0 0 0 AUGMENT
86109 62 0 0 0 0 STEP I/P BLOCK CTR SET EXCESS CONSTANTS
86105>86110 94 861 27 0 8 2 861 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
86111 80 810 2 0 0 0 810 >READ A1 ENTER SUBROUTINE
86112 95 0 0 1 0 PRESERVE SELECT MODIFICATION REGISTER
86113 5 875 2 1 0 0 875 TRANSFER
86114 90 0 0 1 0 COPY NEXT I/P BLOCK SET MODIFICATION REGISTER AT LITERAL
86115 C 0 0 0 48
86116 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
86117 C 0 0 0 24
86123>86118 0 7 4 2 1 0 SELECT
86119 30 0 0 0 5 SHIFT (A) BY QUARTETS
86120 1 7 6 2 1 0 ADD
86121 5 32 140 1 3 0 TRANSFER
86122 94 0 0 1 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
86123 94 861 18 0 3 2 861 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
86124 91 875 2 0 1 0 875 RESTORE MR1 SET MODIFICATION REGISTER AT VARIABLE
86125 90 0 0 8 0 RESET (MR8) SET MODIFICATION REGISTER AT LITERAL
86126 C 0 0 0 24
Source image: P1000761.JPG
86110>86127 82 861 2 0 0 0 861 END OF SUBROUTINE / LEAVE SUBROUTINE
86200 PROCR 862 862 READ TO END OF BLOCK S/R
86201 NOTES RADIX B SELECT
86202 81 862 2 0 0 0 862 START OF SUBROUTINE
86207>86203 00 32 140 1 8 0 TEST B/E WORD SELECT
86204 02 872 4 1 0 0 872 SUBTRACT
86205 70 862 8 0 0 0 862 >YES LEAVE S/R JUMP IF A == 0
86206 80 861 2 0 0 0 861 >STEP MR8 S/R ENTER SUBROUTINE
86207 76 862 3 0 0 0 862 > JUMP unconditional
86205>86208 80 861 2 0 0 0 861 >ADDRESS NEXT I/P MT WORD S/R ENTER SUBROUTINE
86209 82 862 2 0 0 0 862 > END OF SUBROUTINE / LEAVE SUBROUTINE
86300 PROCR 863 863 PROCESS TO END OF TD BLOCK S/R
86301 NOTES RADIX B SELECT
86302 81 863 2 0 0 0 863 START OF SUBROUTINE
86308>86303 85 786 4 0 0 0 786 B/E SWITCH SWITCH R
86304 C 863 7 0 0 0 863 >NO
86305 C 863 9 0 0 0 863 >YES
86306 C 863 10 0 0 0 863 >YES
86304>86307 80 860 2 0 0 0 860 >PROCESS WORD ENTER SUBROUTINE
86308 76 863 3 0 0 0 863 > JUMP unconditional
86305>86309 80 853 2 0 0 0 853 >END OF TRIAL DATA BLOCK S/R ENTER SUBROUTINE
86306>86310 82 863 2 0 0 0 863 END OF SUBROUTINE / LEAVE SUBROUTINE
86400 PROCR 864 864 WRITE AND PRINT TO FIEND S/R
86401 NOTES RADIX B SELECT
86402 81 864 2 0 0 0 864 START OF SUBROUTINE
86403 00 7 4 1 0 0 TEST PREND OR SELECT
86404 02 870 8 1 0 0 870 E BLOCK IN ANNEXE SUBTRACT
86405 70 864 22 0 0 0 864 >YES JUMP IF A == 0
86406 01 870 8 1 0 0 870 ADD
86407 12 0 0 0 55 SUBTRACT LITERAL
86408 70 864 22 0 0 0 864 >YES JUMP IF A == 0
86409 11 0 0 0 55 TEST CHAPT ADD LITERAL
86410 02 870 6 1 0 0 870 SUBTRACT
86411 70 864 22 0 0 0 864 >YES JUMP IF A == 0
86420>86412 96 0 0 8 0 TEST FIEND REACHED SELECT MODIFIER
86413 98 0 0 8 0 ADD MODIFICATION REGISTER TO A
86414 92 0 0 2 0 SET MODIFIER AT VARIABLE
86415 00 7 4 1 2 0 SELECT
86416 02 870 4 1 0 0 870 SUBTRACT
86417 70 864 21 0 0 0 864 >YES JUMP IF A == 0
86418 80 838 2 0 0 0 838 >RESET WORD NOS,MR2 AND SWITCHES ENTER SUBROUTINE
86419 80 863 2 0 0 0 863 >PROCESS TO END OF T.D.BLOCK ENTER SUBROUTINE
86420 76 864 12 0 0 0 864 JUMP unconditional
86417>86421 80 810 2 0 0 0 810 READ A1 ENTER SUBROUTINE
86411>
86408>
86405>86422 85 826 4 0 0 0 826 FIEND SWITCH SWITCH R
86423 C 864 53 0 0 0 864
86424 C 864 25 0 0 0 864
86424>86425 90 0 0 12 0 SET MODIFICATION REGISTER AT LITERAL
86426 C 0 0 0 24
86427 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
86428 C 0 0 0 48
86434>86429 00 32 37 0 12 0 SELECT
86430 05 8 4 2 3 0 TRANSFER
86431 00 32 36 0 12 0 SELECT
86432 05 8 6 2 3 0 TRANSFER
Source image: P1000762.JPG
86433 94 0 0 3 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
86434 94 864 29 0 12 2 864 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
86435 96 0 0 1 0 SELECT MODIFIER
86436 98 0 0 1 0 ADD MODIFICATION REGISTER TO A
86437 92 0 0 1 0 SET MODIFIER AT VARIABLE
86438 00 870 4 1 0 0 870 FIEND SELECT
86439 05 8 4 1 1 0 TRANSFER
86440 80 816 2 0 0 0 816 WRITE ENTER SUBROUTINE
86441 52 5 2 0 0 0 EDIT
86442 C 879 2 0 0 0 879 EDIT BLOCK NUMBER
86443 10 0 0 0 5659655972 FINIS' SELECT LITERAL
86444 5 5 8 1 0 0 TRANSFER
86445 27 9 0 0 0 SELECT
86446 70 864 49 0 0 0 864 >YES JUMP IF A == 0
86447 54 5 10 0 0 40 CLEAR REST OF LINE BULK CLEAR
86448 76 864 51 0 0 0 864 >PRINT JUMP unconditional
86446>86449 0 872 4 1 0 0 872 BEW SELECT
86450 5 5 10 1 0 0 TRANSFER
86448>86451 80 817 2 0 0 0 817 >PRINT ENTER SUBROUTINE
86452 83 826 4 0 0 1 826 RESET FIEND SWITCH SET SWITCH(ES) AT LITERAL VALUE
86423>86453 82 864 2 0 0 0 864 END OF SUBROUTINE / LEAVE SUBROUTINE
86500 PROCR 865 865 ADD ONE TO P/T OMITTED COUNTER
86502 81 865 2 0 0 0 865 START OF SUBROUTINE
86503 10 0 0 0 1 SELECT LITERAL
86504 60 0 0 0 0 SET DECIMAL RADIX
86505 04 869 5 0 0 0 869 AUGMENT
86506 62 0 0 0 0 SET EXCESS CONSTANTS
86507 82 865 2 0 0 0 865 END OF SUBROUTINE / LEAVE SUBROUTINE
86600 PROCR 866 866 ADD ONE TO DISASTROUS COUNTER
86602 81 866 2 0 0 0 866 START OF SUBROUTINE
86603 10 0 0 0 1 SELECT LITERAL
86604 60 0 0 0 0 SET DECIMAL RADIX
86605 04 869 6 0 0 0 869 AUGMENT
86606 62 0 0 0 0 SET EXCESS CONSTANTS
86607 82 866 2 0 0 0 866 END OF SUBROUTINE / LEAVE SUBROUTINE
86700 PROCR 867 867 ADD ONE TO OTHERS COUNTER
86702 81 867 2 0 0 0 867 START OF SUBROUTINE
86703 10 0 0 0 1 SELECT LITERAL
86704 60 0 0 0 0 SET DECIMAL RADIX
86705 04 869 7 0 0 0 869 AUGMENT
86706 62 0 0 0 0 SET EXCESS CONSTANTS
86707 82 867 2 0 0 0 867 END OF SUBROUTINE / LEAVE SUBROUTINE
86800 CONST 868 868 0
86802 (D)£££££;
86803 3£££0; BITS 5-18
86804 80000; BIT 20
86805 123.:; PRINTING
86806 3££; BITS 1-10
86900 CONST 869 869 0
86902 (D)0; GENERAL W/L
86903 0; NO OF CHAPS INITIALLY
86904 0; W/L FOR PRINTING
86905 0; P/T OMITTED
86906 0; DISASTROUS
86907 0; OTHERS
Source image: P1000763.JPG
86908 ; ACTUAL SET NUMBER IN Q1
86909 ;
86910 ; FILE
86911 ;
86912 ; SET NUMBER
86913 ;
86914 ; WL FOR R-ALIGN SR
86915 ;
87000 CONST 870 870 1 ALPHA CONSTANTS
87002 (A)TRAMD;
87004 FIEND;
87006 CHAPT;
87008 PREND;
87010 (A)FILES;
87012 (A)DUMPS;
87014 (A)DUMP ;
87016 PROG ;
87018 IND ;
87100 CONST 871 871 1 PRINTING CONSTANTS
87102 (A)ERIAL;
87104 TYPE;
87106 CHAPS;
87108 SECNS;
87110 POINT;
87112 SETOR;
87114 BLOCK;
87116 LGTH;
87118 (A)RUN(D)7Ю7‼;
87120 UNALT;
87122 ERED ;
87124 RAMME;
87126 TRIAL;
87128 DATA ;
87130 *NAND;
87132 MBS;
87134 ORDER;
87136 = FIX;
87138 = VAR;
87140 ; PRINTER W/L
87142 ; ERROR W/L
87144 ; ERROR W/L
87146 (D)5:677173 ; ?P/T
87200 CONST 872 872 1 DECIMAL CONSTANTS
87202 (D)0;
87204 7.0000007.; B/E WORD
87206 0000000800; HEAD OF FORM FUNCTION WD
87208 7.7.7.7.7.; BLOCK ENDS
87210 5.5.5.5.5.; LINE ENDS
87212 5252525252; B'S
87214 6363636363; L'S
87216 5‼5‼5‼5‼5‼; ASTERISKS
87218 5£5£5£5£5£; SQUARES
87220 5:5:5:5:5:; QUESTION MARKS
87300 TABLE 873 873 4 VARIOUS UNPACK TABLES
87301 NOTES
87302 30 0 0 0 2 0 0 0 0 0 0 0 0 TRAMD
Source image: P1000764.JPG
87304 30 2 0 0 0 1 0 0 0 0 0 0 1 SUITE JOB SERIAL
87306 30 0 0 0 2 0 0 0 0 0 0 0 0 FILES
87308 30 2 0 0 2 0 0 0 0 0 0 0 0 ROUTE IDENTIFIER
87310 30 10 0 0 2 0 0 0 0 0 0 0 0 FILE ID
87312 30 4 0 0 0 1 0 0 0 0 0 0 1 RUN NO , BLOCK SIZE, SECN, SET,IND
87314 869 2 0 0 0 0 0 0 0 0 0 0 0 LINE SERIAL
87316 30 0 0 0 0 1 0 0 0 0 0 0 1 P M POINT
87318 833 2 0 0 2 0 0 0 0 0 0 0 0 FILEA'
87320 833 2 0 0 2 0 0 0 0 0 0 0 0 FILE
87322 833 4 0 0 1 0 0 0 0 0 0 0 0 SET
87324 833 6 0 0 2 0 0 0 0 0 0 0 0 BLOCK (+LETTER ?)
87326 833 8 0 0 2 0 0 0 0 0 0 0 0 FIRST WORD/LAST BLOCK (+LETTER ?)
87328 833 10 0 0 1 0 0 0 0 0 0 0 1 LAST WORD
87400 TABLE 874 874 3 UNPACK TABLES FOR CARDS
87401 NOTES
87402 30 0 0 0 2 0 5 0 0 0 0 0 0 TRAMD
87404 30 2 0 0 0 0 3 0 0 0 0 0 0 SUITE
87406 30 3 0 0 0 0 2 0 0 0 0 0 0 JOB
87408 30 4 0 0 0 0 5 0 0 0 0 0 1 SERIAL
87410 30 0 0 0 0 0 6 0 0 0 0 0 0 /////LINE SERIAL
87412 30 0 0 0 0 0 5 0 0 0 0 0 0 I/O SERIAL
87414 30 1 0 0 0 0 1 0 0 0 0 0 0 TYPE
87416 30 2 0 0 0 0 3 0 0 0 0 0 0 N1
87418 30 3 0 0 0 0 3 0 0 0 0 0 0 N2
87420 30 4 0 0 0 0 3 0 0 0 0 0 0 N3
87422 30 5 0 0 0 0 4 0 0 0 0 0 0 DETAILS
87424 30 6 0 0 0 0 4 0 0 0 0 0 0
87426 30 7 0 0 0 0 4 0 0 0 0 0 0
87428 30 8 0 0 0 0 4 0 0 0 0 0 0
87430 30 9 0 0 0 0 4 0 0 0 0 0 0
87432 30 10 0 0 0 0 4 0 0 0 0 0 0
87434 30 11 0 0 0 0 4 0 0 0 0 0 0
87436 30 12 0 0 0 0 4 0 0 0 0 0 0
87438 30 13 0 0 0 0 4 0 0 0 0 0 0
87440 30 14 0 0 0 0 4 0 0 0 0 0 0
87442 30 15 0 0 0 0 4 0 0 0 0 0 0
87444 30 16 0 0 0 0 4 0 0 0 0 0 0
87446 30 17 0 0 0 0 4 0 0 0 0 0 1
87448 30 0 0 0 2 0 5 0 0 0 0 0 0 FILES
87450 30 2 0 0 2 0 2 0 0 0 0 0 0 RTE IDENT
87452 30 10 0 0 2 0 2 0 0 0 0 0 0 FILE ID
87454 30 4 0 0 0 0 4 0 0 0 0 0 0 RUN NO
87456 30 5 0 0 0 0 4 0 0 0 0 0 0 BLOCK LGTH
87458 30 6 0 0 0 0 2 0 0 0 0 0 0 SECN NO
87460 30 7 0 0 0 0 1 0 0 0 0 0 0 SET NO
87462 30 8 0 0 0 0 1 0 0 0 0 0 1 IND
87464 833 2 0 0 2 0 5 0 0 0 0 0 0 FILEA'
87466 833 2 0 0 2 0 2 0 0 0 0 0 0 FILE ID
87468 833 4 0 0 1 0 1 0 0 0 0 0 0 SET
87470 833 6 0 0 2 0 5 0 0 0 0 0 0
87472 833 8 0 0 2 0 5 0 0 0 0 0 0
87474 833 10 0 0 1 0 5 0 0 0 0 0 1
87500 TABLE 875 875 1 PRINTER HEADING
87501 NOTES
87502 870 16 0 0 2 0 4 0 5 0 0 0 0 PROG'
87504 871 24 0 0 2 0 5 0 0 0 0 0 0 RAMME
87506 16 2 0 0 0 0 5 0 1 0 0 0 0 PROG ID
87508 870 10 0 0 2 0 1 4 2 0 0 0 0 2 SP S
Source image: P1000765.JPG
87510 871 2 0 0 2 0 5 0 0 0 0 0 0 SERIAL
87512 16 3 0 0 0 0 5 0 1 4 0 0 0 PROG SERIAL
87514 871 26 0 0 2 0 5 0 2 0 0 0 0 2 SP TRIAL
87516 871 28 0 0 2 0 4 0 1 0 0 0 0 SP DATA
87518 871 30 0 0 2 0 3 2 1 0 0 0 0 SP AND
87520 870 12 0 0 2 0 5 0 1 0 0 0 0 SP DUMPS
87522 871 10 0 0 2 0 5 0 1 0 0 0 0 SP POINT
87524 870 10 0 0 2 0 1 4 0 0 0 0 0 S
87526 872 4 0 0 2 0 1 1 1 0 0 0 1
87600 TABLE 876 876 1 PM POINT HEADING LINE
87601 NOTES
87602 871 8 0 0 2 0 1 0 13 0 0 0 0 13 SP S
87604 871 2 0 0 2 0 5 0 0 0 0 0 0 ERIAL
87606 871 4 0 0 2 0 4 1 2 0 0 0 0 2SP TYPE
87608 871 8 0 0 2 0 1 3 2 0 0 0 0 2SPN
87610 868 5 0 0 0 0 1 0 0 0 0 0 0 1
87612 871 8 0 0 2 0 1 3 3 0 0 0 0 3 SP N
87614 868 5 0 0 0 0 1 1 0 0 0 0 0 2
87616 871 8 0 0 2 0 1 3 3 0 0 0 0 3 SP N
87618 868 5 0 0 0 0 1 2 0 0 0 0 0 3
87620 871 6 0 0 2 0 5 0 5 0 0 0 0 5 SP CHAPS
87622 871 8 0 0 2 0 5 0 1 0 0 0 0 SP SECNS
87624 871 12 0 0 2 0 2 3 1 0 0 0 0 SP OR
87626 871 10 0 0 2 0 5 0 1 0 0 0 0 SP POINT
87628 871 8 0 0 2 0 1 0 0 0 0 0 0 S
87630 872 4 0 0 2 0 1 1 4 0 0 0 1 B/E
87700 TABLE 877 877 1 PRINT PM POINT LINE
87701 NOTES
87702 870 12 0 0 2 0 4 0 5 0 0 0 0 DUMP
87704 869 4 0 0 0 0 1 4 0 0 0 0 0 DUMP NO
87706 30 0 0 0 0 0 5 0 3 0 0 0 0 3 SP R/C SERIAL
87708 30 1 0 0 0 0 2 3 4 1 2 0 0 4SP TYPE
87710 30 2 0 0 0 0 3 2 1 2 2 0 0 1SP TYPE*****
87712 30 3 0 0 0 0 3 2 1 2 2 0 0 1SP N2
87714 30 4 0 0 0 0 3 2 1 2 2 0 1 1SP N3
87716 30 5 0 0 0 0 3 2 6 3 2 0 0 IST CHAP OR SECN
87718 30 6 0 0 0 0 3 2 6 3 2 0 0 2ND CHAP OR SECN
87720 30 7 0 0 0 0 3 2 6 3 2 0 0 3RD CHAP OR SECN
87722 30 8 0 0 0 0 3 2 6 3 2 0 0 4TH CHAP OR SECN
87724 872 2 0 0 1 0 10 0 0 10 0 0 0 10 SP
87726 871 40 0 0 2 0 5 0 15 0 0 0 0 14 SP ERROR REPORT
87728 871 42 0 0 2 0 5 0 0 0 0 0 0 15 SP ERROR REPORT
87730 871 44 0 0 2 0 5 0 0 0 0 0 0 MORE
87732 872 4 0 0 2 0 5 0 0 0 0 0 1
87734 30 5 0 0 0 0 3 2 6 2 0 0 0 6SP FIRST REF
87736 868 5 0 0 0 0 1 4 0 0 0 0 0 :
87738 30 6 0 0 0 0 4 1 0 3 2 0 0 1ST ITEM
87740 30 7 0 0 0 0 3 2 1 2 0 0 0 1SP 2ND REF
87742 868 5 0 0 0 0 1 4 0 0 0 0 0 :
87744 30 8 0 0 0 0 4 1 0 3 2 0 0 2ND ITEM
87746 30 9 0 0 0 0 3 2 1 2 0 0 0 1SP 3RD REF
87748 868 5 0 0 0 0 1 4 0 0 0 0 0 :
87750 30 10 0 0 0 0 4 1 0 3 2 0 0 3RD ITEM
87752 30 11 0 0 0 0 3 2 1 2 0 0 0 1SP 4TH REF
87754 868 5 0 0 0 0 1 4 0 0 0 0 0 :
87756 30 12 0 0 0 0 4 1 0 3 2 0 0 4TH ITEM
87758 30 13 0 0 0 0 3 2 1 2 0 0 0 1SP 5TH REF
87760 868 5 0 0 0 0 1 4 0 0 0 0 0 :
Source image: P1000766.JPG
87762 30 14 0 0 0 0 4 1 0 3 2 0 0 5TH ITEM
87764 30 15 0 0 0 0 3 2 1 2 0 0 0 1SP 6TH REF
87766 868 5 0 0 0 0 1 4 0 0 0 0 0 :
87768 30 16 0 0 0 0 4 1 0 3 2 0 0 6TH ITEM
87770 871 40 0 0 2 0 5 0 0 0 0 0 0 ERROR REPORTS
87772 871 42 0 0 2 0 5 0 0 0 0 0 0
87774 871 44 0 0 2 0 5 0 0 0 0 0 0
87776 872 4 0 0 2 0 5 0 0 0 0 0 1 8/E
87800 TABLE 878 878 1 TRIAL DATA HEADING LINE
87801 NOTES
87802 870 10 0 0 2 0 4 0 5 0 0 0 0 FILE
87804 30 2 0 0 2 0 2 0 1 0 0 0 0 SP FILE ID
87806 871 18 0 0 2 0 1 3 1 0 0 0 0 SP (
87808 30 10 0 0 2 0 2 0 0 0 0 0 0 OTHER FILE ID
87810 871 18 0 0 2 0 1 4 0 0 0 0 0 )
87812 871 18 0 0 2 0 3 0 2 0 0 0 0 ZSP RUN
87814 32 167 0 0 0 0 4 1 1 3 0 0 0 SP RUN NO
87816 871 14 0 0 2 0 5 0 2 0 0 0 0 2SP BLOCK
87818 871 16 0 0 2 0 4 1 1 0 0 0 0 SP LGTH
87820 32 168 0 0 0 0 4 1 1 3 0 0 0 SP LENGTH
87822 871 8 0 0 2 0 4 0 2 0 0 0 0 2SP SECN
87824 32 169 0 0 0 0 2 3 1 1 0 0 0
87826 871 12 0 0 2 0 3 0 2 0 0 0 0 2SP SET
87828 30 7 0 0 0 0 2 3 1 1 0 0 0
87830 870 18 0 0 2 0 3 0 2 0 0 0 0 'IND'
87832 30 8 0 0 0 0 1 4 1 0 0 0 0
87834 871 40 0 0 2 0 5 0 1 0 0 0 0 SP IND
87836 872 2 0 0 1 0 10 0 15 10 0 0 0 25 SPACES
87838 871 42 0 0 2 0 5 0 10 0 0 0 0 10 SP ERROR REPORT
87840 872 4 0 0 2 0 1 1 0 0 0 0 1
87900 TABLE 879 879 1 EDIT LINE OF TRIAL DATA
87901 NOTES
87902 868 5 0 0 0 0 1 3 3 0 0 0 0 3SP.
87904 32 14 0 0 0 0 4 1 1 3 0 0 0 BLOCK NO
87906 868 5 0 0 0 0 1 3 0 0 0 0 1 .
87908 32 15 0 0 0 0 4 1 2 3 0 0 0 2 SP WORD NO
87910 868 5 0 0 0 0 1 3 2 0 0 0 0 2SP.
87912 32 0 0 0 2 0 5 0 0 0 0 0 0 1ST WORD
87914 868 5 0 0 0 0 1 3 0 0 0 0 0 .
87916 32 16 0 0 0 0 4 1 2 3 0 0 0
87918 868 5 0 0 0 0 1 3 2 0 0 0 0
87920 32 2 0 0 2 0 5 0 0 0 0 0 0
87922 868 5 0 0 0 0 1 3 0 0 0 0 0
87924 32 17 0 0 0 0 4 1 2 3 0 0 0
87926 868 5 0 0 0 0 1 3 2 0 0 0 0
87928 32 4 0 0 2 0 5 0 0 0 0 0 0
87930 868 5 0 0 0 0 1 3 0 0 0 0 0
87932 32 18 0 0 0 0 4 1 2 3 0 0 0
87934 868 5 0 0 0 0 1 3 2 0 0 0 0
87936 32 6 0 0 2 0 5 0 0 0 0 0 0
87938 868 5 0 0 0 0 1 3 0 0 0 0 0
87940 32 19 0 0 0 0 4 1 2 3 0 0 0
87942 868 5 0 0 0 0 1 3 2 0 0 0 0
87944 32 8 0 0 2 0 5 0 0 0 0 0 0
87946 868 5 0 0 0 0 1 3 0 0 0 0 0
87948 32 20 0 0 0 0 4 1 2 3 0 0 0
87950 868 5 0 0 0 0 1 3 2 0 0 0 0
87952 32 10 0 0 2 0 5 0 0 0 0 0 0
Source image: P1000767.JPG
87954 868 5 0 0 0 0 1 3 0 0 0 0 0
87956 32 21 0 0 0 0 4 1 2 3 0 0 0
87958 868 5 0 0 0 0 1 3 2 0 0 0 0
87960 32 12 0 0 2 0 5 0 0 0 0 0 0
87962 868 5 0 0 0 0 1 3 0 0 0 0 0
87964 871 42 0 0 2 0 3 2 2 0 0 0 0 2SP ERROR INDS
87966 872 4 0 0 2 0 5 0 0 0 0 0 1 B/E
88000 TABLE 880 880 1 EDIT + LINE
88001 NOTES
88002 32 22 0 0 2 0 5 0 9 0 0 0 0
88004 32 24 0 0 2 0 5 0 10 0 0 0 0
88006 32 26 0 0 2 0 5 0 10 0 0 0 0
88008 32 28 0 0 2 0 5 0 10 0 0 0 0
88010 32 30 0 0 2 0 5 0 10 0 0 0 0
88012 32 32 0 0 2 0 5 0 10 0 0 0 0
88014 32 34 0 0 2 0 5 0 10 0 0 0 0
88016 872 4 0 0 2 0 1 1 0 0 0 0 1
88100 TABLE 881 881 1 FILE UNALTERED LINE
88101 NOTES
88102 870 10 0 0 2 0 4 0 15 0 0 0 0 15SP FILE
88104 871 44 0 0 2 0 2 3 2 0 0 0 0 2SP FILE ID
88106 871 12 0 0 2 0 1 2 3 0 0 0 0 3SP T
88108 870 2 0 0 2 0 1 4 1 0 0 0 0 'D'
88110 871 12 0 0 2 0 3 0 1 0 0 0 0 SP SET
88112 30 7 0 0 0 0 2 3 1 1 0 0 0 SP SET NO
88114 871 20 0 0 2 0 5 0 3 0 0 0 0 3SP UNALT
88116 871 22 0 0 2 0 4 0 0 0 0 0 0 ERED
88118 872 4 0 0 2 0 1 1 1 0 0 0 1
88200 PROCR 882 882 08005 INSERTED BEFORE HERE-FINAL ROUTINES
80405>
77803>88202 0 27 3 0 0 0 SELECT
88203 70 882 9 0 0 0 882 JUMP IF A == 0
88204 27 4 0 0 0 COMPILER CALLED TRANSLATOR? SELECT
88205 70 882 8 0 0 0 882 >NO JUMP IF A == 0
88206 45 A1 0 0 0 1 REWIND REWIND
88207 76 882 9 0 0 0 882 JUMP unconditional
88205>88208 41 A1 0 0 0 1 CLOSE FILE
88207>
88203>88209 54 8 4 1 0 48 BULK CLEAR
88210 10 0 0 0 55 SELECT LITERAL
88211 5 8 4 1 0 0 TRANSFER
88212 80 890 2 0 0 0 890 >WRITE'E' ENTER SUBROUTINE
88213 27 12 0 0 0 SELECT
88214 71 776 2 0 0 0 776 >CALL PASS 6,WRITE PTS(2)AND(3) JUMP IF A != 0
91825>88215 908 2 1 0 0 908 'PREND' SELECT
88216 5 8 4 1 0 0 TRANSFER
88217 16 2 0 0 0 PROG ID SELECT
88218 5 8 6 2 0 0 TRANSFER
88219 80 890 2 0 0 0 890 >WRITE'PREND' ENTER SUBROUTINE
88220 908 12 1 0 0 908 'INDEX' 'INDEX'BLOX SELECT
88221 5 8 6 1 0 0 TRANSFER
88222 908 26 2 0 0 908 '£££££' SELECT
88223 5 8 8 2 0 0 TRANSFER
88224 10 0 0 0 4 SELECT LITERAL
88225 5 8 10 1 0 0 TRANSFER
88226 908 26 1 0 0 908 ALIGNMENT MARKS SELECT
88227 5 8 4 1 0 0 TRANSFER
Source image: P1000768.JPG
88228 80 890 2 0 0 0 890 >WRITE ENTER SUBROUTINE
88229 16 2 0 0 0 PROG IDENTITY SELECT
88230 3 8 4 2 0 0 COPY
88231 5 8 12 2 0 0 TRANSFER
88232 16 3 0 0 0 PROG SERIAL SELECT
88233 3 8 6 2 0 0 COPY
88234 5 8 14 2 0 0 TRANSFER
88235 10 0 0 0 2 SELECT LITERAL
88236 5 8 10 2 0 0 TRANSFER
88237 10 0 0 0 3 SELECT LITERAL
88238 3 8 18 2 0 0 COPY
88239 10 0 0 0 2 SELECT LITERAL
88240 1 27 12 0 0 0 0/2=PTS NO/YES ADD
88241 5 8 16 2 0 0 TRANSFER
88242 908 26 2 0 0 908 '£££££' SELECT
88243 5 8 20 2 0 0 TRANSFER
88244 80 890 2 0 0 0 890 >WRITE'INDEX'DATA ENTER SUBROUTINE
88245 45 A6 0 0 0 1 REWIND
88246 54 5 0 1 0 48 BULK CLEAR
88247 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
88248 C 0 0 0 5
88250>88249 80 892 2 0 0 0 892 >PRINT 5 BLANK LINES ENTER SUBROUTINE
88250 94 882 49 0 1 1 882 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
88251 55 908 78 1 0 26 908 BULK COPY
88252 C 5 10 1 0 0
88253 80 888 2 0 0 0 888 >SUPPRESS I/C IF TRAMD ONLY ENTER SUBROUTINE
88254 80 892 2 0 0 0 892 >PRINT ENTER SUBROUTINE
88300 PROCR 883 883 PRINT FINAL LINE, TEST FOR PASS 3 COPY
88302 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
88303 C 0 0 0 13
88304 27 6 0 0 0 'PT OMITTED' SELECT
88305 70 883 8 0 0 0 883 >NO JUMP IF A == 0
88306 908 74 1 0 0 908 'YES' SELECT
88307 76 883 9 0 0 0 883 JUMP unconditional
88305>88308 908 76 1 0 0 908 'NO' SELECT
88307>88309 5 5 12 1 0 0 TRANSFER
88310 0 869 5 0 0 0 869 TRIAL DATA PT IND SELECT
88311 70 883 14 0 0 0 883 JUMP IF A == 0
88312 0 908 74 1 0 0 908 'YES' SELECT
88313 76 883 15 0 0 0 883 JUMP unconditional
88311>88314 0 908 76 1 0 0 908 'NO' SELECT
88313>88315 5 5 18 1 0 0 TRANSFER
88316 80 915 2 0 0 0 915 PRINT ENTER SUBROUTINE
88317 94 0 0 1 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
88318 869 6 0 0 0 869 TD'DISASTEROUS' SELECT
88319 5 908 56 0 0 0 908 TRANSFER
88320 86 511 2 0 0 0 511 SERIOUS ERRORS CTR SELECT SWITCH R
88321 80 912 2 0 0 0 912 CONVERT ENTER SUBROUTINE
88322 80 916 2 0 0 0 916 EDIT ENTER SUBROUTINE
88323 80 915 2 0 0 0 915 PRINT ENTER SUBROUTINE
88324 94 0 0 1 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
88325 869 7 0 0 0 869 TD'OTHERS' SELECT
88326 5 908 56 0 0 0 908 TRANSFER
88327 86 514 2 0 0 0 514 OTHER ERRORS CTR SELECT SWITCH R
88328 80 912 2 0 0 0 912 CONVERT ENTER SUBROUTINE
88329 80 916 2 0 0 0 916 EDIT ENTER SUBROUTINE
88330 80 915 2 0 0 0 915 PRINT ENTER SUBROUTINE
88331 54 40 0 0 0 20 BULK CLEAR
88332 62 0 0 0 0 SET EXCESS CONSTANTS
Source image: P1000769.JPG
88334>88333 80 892 2 0 0 0 892 >MORE BLANK LINES ENTER SUBROUTINE
88334 94 883 33 0 1 1 883 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
88335 155 0 0 0 0 TRANSLATOR SERIAL SELECT PROGRAM SERIAL TO A
88336 5 908 40 1 0 0 908 TRANSFER
88337 55 908 28 1 0 14 908 BULK COPY
88338 C 5 6 1 0 0
88339 153 0 0 0 0 DATE SELECT DATE TO A, TIME TO B
88340 5 908 40 1 0 0 908 TRANSFER
88341 86 153 2 0 0 0 153 A2 SPOOL NUMBER SELECT SWITCH R
88342 5 908 22 0 0 0 908 TRANSFER
88343 52 5 20 0 0 0 EDIT
88344 C 910 18 0 0 0 910
88345 80 892 2 0 0 0 892 PRINT 'MADE BY' ENTER SUBROUTINE
88346 27 9 0 0 0 SELECT
88347 71 883 55 0 0 0 883 >OFF-LINE PRINT JUMP IF A != 0
88348 27 8 0 0 0 PRINTER TYPE SELECT
88349 11 0 0 0 14 ADD LITERAL
88350 30 0 0 0 5 SHIFT (A) BY QUARTETS
88351 1 999 7 0 0 0 ADD
88352 125 4096 1 1 0 clear indicators
88353 124 999 0 0 3 0 modify address of next
88354 123 160 0 2 0 CLOSE PRINTER enter master routine
88347>88355 62 0 0 0 0 SET EXCESS CONSTANTS
88356 46 A2 10 0 0 0 RUN BACK TO SECOND'INDEX'BLOCK RUN BACK
88357 C 0 0 0 3
88358 10 0 0 0 1 SELECT LITERAL
88359 5 908 60 0 0 0 908 SET IND TRANSFER
88360 16 2 0 0 0 PROGM BEING TRANSLATED SELECT
88361 12 0 0 0 8000 SUBTRACT LITERAL
88362 70 883 74 0 0 0 883 >TRANSLATOR JUMP IF A == 0
88363 16 2 0 0 0 SELECT
88364 12 0 0 0 9001 SUBTRACT LITERAL
88365 70 883 74 0 0 0 883 >MASTER JUMP IF A == 0
88366 16 2 0 0 0 SELECT
88367 12 0 0 0 8060 SUBTRACT LITERAL
88368 70 897 5 0 0 0 897 >COMPILER ALARM 5 JUMP IF A == 0
88369 12 0 0 0 1 SUBTRACT LITERAL
88370 70 897 3 0 0 0 897 >BIG COMPILER JUMP IF A == 0
88371 12 0 0 0 5 SUBTRACT LITERAL
88372 70 897 2 0 0 0 897 >CHAR HANDLING COMP JUMP IF A == 0
88373 76 884 40 0 0 0 884 >ORDINARY PROGMS JUMP unconditional
88481>
89707>
88365>
88362>88374 10 0 0 0 0 SELECT LITERAL
88375 5 908 60 0 0 0 908 CLEAR IND TRANSFER
88376 0 27 4 0 0 0 COMPILER? SELECT
88377 70 883 83 0 0 0 883 >NO JUMP IF A == 0
88378 34 999 9 0 0 0 A1 ROUTE---INTERCHANGE A1,A6 SET (N) IN B
88379 0 999 11 0 0 0 A6 ROUTE SELECT
88380 5 999 9 0 0 0 >A1 TRANSFER
88381 32 0 0 0 10 SHIFT (AB) BY QUARTETS
88382 5 999 11 0 0 0 >A6 TRANSFER
88377>88383 40 A6 0 0 0 0 OPEN FILE
88384 100 908 54 1 0 0 908 SPOOL NUMBER->66 copy registers
88385 52 9 4 0 0 0 EDIT
88386 C 910 34 0 0 0 910
88387 154 9 4 0 0 0 TYPE COMMENT COMMENT IN LOG
88388 80 893 2 0 0 0 893 >WRITE BLANKS ENTER SUBROUTINE
88389 80 893 2 0 0 0 893 >WRITE 2 BLANK BLOCKS->A6 ENTER SUBROUTINE
Source image: P1000770.JPG
88390 80 894 2 0 0 0 894 READ A2 ENTER SUBROUTINE
88391 10 0 0 0 2 SELECT LITERAL
88392 5 8 10 2 0 0 TRANSFER
88393 908 4 1 0 0 908 'CHAIN' SELECT
88394 5 8 12 1 0 0 TRANSFER
88395 80 893 2 0 0 0 893 >A6 ENTER SUBROUTINE
88396 80 894 2 0 0 0 894 A2-> ENTER SUBROUTINE
88400 PROCR 884 884 ALARM 6 7
88402 27 4 0 0 0 COMPILER? SELECT
88403 70 884 6 0 0 0 884 >NO JUMP IF A == 0
88404 10 0 0 0 2 SELECT LITERAL
88405 76 884 8 0 0 0 884 JUMP unconditional
88403>88406 10 0 0 0 2 SELECT LITERAL
88407 1 27 12 0 0 0 0/2=PTS NO/YES ADD
88405>88408 5 8 8 2 0 0 TRANSFER
88409 10 0 0 0 SELECT LITERAL
88410 5 8 12 2 0 0 TRANSFER
88411 80 893 2 0 0 0 893 >A6 ENTER SUBROUTINE
88417>88412 80 894 2 0 0 0 894 A2-> ENTER SUBROUTINE
88413 0 8 6 1 0 0 SELECT
88414 2 908 12 1 0 0 908 'INDEX' SUBTRACT
88415 70 884 18 0 0 0 884 >YES JUMP IF A == 0
88416 80 893 2 0 0 0 893 >WRITE ENTER SUBROUTINE
88417 76 884 12 0 0 0 884 JUMP unconditional
88415>88418 80 893 2 0 0 0 893 >WRITE 'INDEX' ENTER SUBROUTINE
88419 80 894 2 0 0 0 894 >READ ENTER SUBROUTINE
88420 27 4 0 0 0 COMPILER? SELECT
88421 70 884 24 0 0 0 884 >NO JUMP IF A == 0
88422 10 0 0 0 2 SELECT LITERAL
88423 76 884 26 0 0 0 884 JUMP unconditional
88421>88424 10 0 0 0 2 SELECT LITERAL
88425 1 27 12 0 0 0 0/2=PTS NO/YES ADD
88423>88426 5 8 8 2 0 0 TRANSFER
88427 10 0 0 0 SELECT LITERAL
88428 5 8 12 2 0 0 TRANSFER
88429 80 893 2 0 0 0 893 >WRITE ENTER SUBROUTINE
88430 41 A6 0 0 0 0 CLOSE FILE
88431 0 27 4 0 0 0 COMPILER? SELECT
88432 70 884 38 0 0 0 884 >NO JUMP IF A == 0
88433 34 999 9 0 0 0 RESTORE A1,A6 ROUTE NUMBERS SET (N) IN B
88434 0 999 11 0 0 0 SELECT
88435 5 999 9 0 0 0 TRANSFER
88436 32 0 0 0 10 SHIFT (AB) BY QUARTETS
88437 5 999 11 0 0 0 TRANSFER
88432>88438 46 A2 10 0 0 1 RUN BACK TO SECOND 'INDEX' BLOCK RUN BACK
88439 C 0 0 0 3
89926>
90609>
88373>88440 90 0 0 1 0 CLEAR R1 SET MODIFICATION REGISTER AT LITERAL
88441 C 0 0 0 0 /////
88442 10 0 0 0 6 SELECT LITERAL
88443 5 908 22 0 0 0 908 TRANSFER
88444 0 27 9 0 0 0 SELECT
88445 70 884 52 0 0 0 884 >ON-LINE PRINT JUMP IF A == 0
88446 86 511 2 0 0 0 511 'DISASTEROUS' SELECT SWITCH R
88447 1 869 6 0 0 0 869 (TD) ADD
88448 71 884 56 0 0 0 884 JUMP IF A != 0
88449 0 27 6 0 0 0 'PT OMITTED' SELECT
88450 1 869 5 0 0 0 869 (TD) ADD
Source image: P1000771.JPG
88451 71 884 56 0 0 0 884 JUMP IF A != 0
88445>88452 27 7 0 0 0 SELECT
88453 71 884 56 0 0 0 884 >REF/PROCR REPORT JUMP IF A != 0
88454 27 5 0 0 0 25?'S IND SELECT
88455 70 884 58 0 0 0 884 JUMP IF A == 0
88453>
88451>
88448>88456 10 0 0 0 7 SELECT LITERAL
88457 5 908 22 0 0 0 908 TRANSFER
88455>88458 27 9 0 0 0 SELECT
88459 70 884 78 0 0 0 884 >ON JUMP IF A == 0
88460 101 300 1 3 0 select literal address
88461 99 0 0 6 0 SUBTRACT MODIFICATION REGISTER FROM A
88462 5 890 2 0 0 0 890 TRANSFER
88463 54 10 4 0 6 0 CLEAR REST OF ANNEX BULK CLEAR
88464 C 890 2 0 0 0 890
88465 908 24 1 0 0 908 SELECT
88466 5 10 306 1 0 0 TRANSFER
88467 80 914 2 0 0 0 914 WRITE LAST BLOCK ENTER SUBROUTINE
88468 54 10 0 1 0 306 BULK CLEAR
88469 908 24 1 0 0 908 BEW SELECT
88470 5 10 306 1 0 0 TRANSFER
88471 80 914 2 0 0 0 914 WRITE BLANK BLOCK ENTER SUBROUTINE
88472 34 909 2 0 0 0 909 STEP BACK A9 SET (N) IN B
88473 10 0 0 0 2700000 O/P->O/P 1 BLOCK SELECT LITERAL
88474 1 999 7 0 0 0 ADD
88475 125 4096 1 1 0 clear indicators
88476 124 999 0 0 3 0 modify address of next
88477 123 160 0 2 0 enter master routine
88459>88478 150 908 22 0 0 0 908 ALARM 6 7 OFFER OPTIONS
88479 C 884 85 0 0 0 884 >END
88480 C 884 99 0 0 0 884 >CLOSE FILES:REENTER TO PRINT
88481 C 883 74 0 0 0 883 >COPY TO PASS 3 O/P TO A6
88482 C 885 24 0 0 0 885
88483 C 885 43 0 0 0 885
88484 C 885 28 0 0 0 885
88479>88485 80 911 2 0 0 0 911 ENTER SUBROUTINE
88486 80 889 2 0 0 0 889 >CLOSE A9 ENTER SUBROUTINE
88487 908 60 0 0 0 908 SELECT
88488 71 884 93 0 0 0 884 JUMP IF A != 0
88489 27 4 0 0 0 SELECT
88490 70 884 98 0 0 0 884 JUMP IF A == 0
88491 80 891 2 0 0 0 891 CLOSE A6 ENTER SUBROUTINE
88492 76 884 98 0 0 0 884 JUMP unconditional
88488>88493 27 4 0 0 0 SELECT
88494 70 884 97 0 0 0 884 >NO JUMP IF A == 0
88495 40 A1 0 0 0 1 OPEN FILE
88496 41 A1 0 0 0 1 CLOSE FILE
88494>88497 80 891 2 0 0 0 891 >OPEN AND CLOSE A6 ENTER SUBROUTINE
88492>
88490>88498 151 0 0 0 0 UNLOAD PROGRAMME
88480>88499 80 911 2 0 0 0 911 ENTER SUBROUTINE
88500 PROCR 885 885 IF AMEND BEWARE ADDRESSES OF 23/0/2'S
88502 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
88503 C 0 0 0 2
88504 80 889 2 0 0 0 889 CLOSE A9 OR PRINTER ENTER SUBROUTINE
88505 27 9 0 0 0 SELECT
88506 70 885 9 0 0 0 885 >ON JUMP IF A == 0
88507 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
Source image: P1000773.JPG
88508 C 0 0 0 4
88536>
88542>
88549>
88506>88509 27 4 0 0 0 SELECT
88510 71 885 13 0 0 0 885 JUMP IF A != 0
88511 893 2 0 0 0 893 SELECT
88512 76 100 2 0 0 0 100 >CALL TRANSLATOR PASS 0 JUMP unconditional
88510>88513 80 891 2 0 0 0 891 OPEN AND CLOSE A6 ENTER SUBROUTINE
88514 125 4096 1 1 0 clear indicators
88515 123 895 2 0 2 0 895 enter master routine
88516 124 909 2 0 2 0 909 select literal and division
88517 32 0 0 0 5- SHIFT (AB) BY QUARTETS
88518 101 80 1 3 0 select literal address
88519 32 0 0 0 5 ESTORE COMPILER SHIFT (AB) BY QUARTETS
88520 124 999 5 0 3 0 modify address of next
88521 128 204 1 1 0 bulk copy long numeric
88522 893 2 0 0 0 893 SELECT
88523 76 100 2 0 0 0 100 >CALL COMPILER PASS 1 JUMP unconditional
88544>
88482>88524 80 886 2 0 0 0 886 IS MATCH HD? OPT 4 ENTER SUBROUTINE
88525 70 885 32 0 0 0 885 >NO JUMP IF A == 0
88526 10 0 0 0 0 SELECT LITERAL
88527 76 887 2 0 0 0 887 JUMP unconditional
88484>88528 80 886 2 0 0 0 886 IS MATCH HD? OPT 6 ENTER SUBROUTINE
88529 70 885 32 0 0 0 885 >NO JUMP IF A == 0
88530 10 0 0 0 58 H SELECT LITERAL
88531 76 887 2 0 0 0 887 JUMP unconditional
88704>
88529>
88525>88532 80 911 2 0 0 0 911 ENTER SUBROUTINE
88533 90 0 0 3 1 SET MODIFICATION REGISTER AT LITERAL
88534 C 0 0 0 2
88535 27 9 0 0 0 OFF? SELECT
CONST
88536 70 885 9 0 0 0 885 JUMP IF A == 0
88537 84 787 2 0 0 0 787 CLEAR,A9 NOW CLOSED SET SWITCH(ES) AT VARIABLE VALUE
88538 C 999 0 0 0 0
88539 80 889 2 0 0 0 889 CLOSE A9 OR PRINTER ENTER SUBROUTINE
88540 90 0 0 3 1 SET MODIFICATION REGISTER AT LITERAL
88541 C 0 0 0 4
88542 76 885 9 0 0 0 885 JUMP unconditional
88483>88543 27 9 0 0 0 SELECT
88544 70 885 24 0 0 0 885 >AS OPT 4 JUMP IF A == 0
88545 83 787 2 0 0 1 787 SET SWITCH(ES) AT LITERAL VALUE
88546 80 911 2 0 0 0 911 >CLOSE A2 ENTER SUBROUTINE
88547 90 0 0 3 1 SET MODIFICATION REGISTER AT LITERAL
88548 C 0 0 0 3
88549 76 885 9 0 0 0 885 JUMP unconditional
88600 PROCR 886 886 TEST IF MACHINE IS HIGH DENSITY
88602 81 886 2 0 0 0 886 START OF SUBROUTINE
88603 123 886 5 0 2 0 886 enter master routine
88604 82 886 2 0 0 0 886 END OF SUBROUTINE / LEAVE SUBROUTINE
88605 100 0 0 0 0 Halt
88606 124 999 5 0 3 0 modify address of next
88607 124 32 0 3 0 modify address of next
88608 106 21 0 0 0 select (N)
88609 126 886 5 0 3 0 886 leave master routine
Source image: P1000774.JPG
88700 PROCR 887 887 INFORM MASTER OF DENSITY REQUIRED
88531>
88527>88702 5 893 2 0 0 0 893 TRANSFER
88703 123 887 5 0 2 0 887 enter master routine
88704 76 885 32 0 0 0 885 JUMP unconditional
88705 100 0 0 0 0 Halt
88706 124 999 5 0 3 0 modify address of next
88707 124 32 0 3 0 modify address of next
88708 106 22 0 0 0 select (N)
88709 1 999 7 0 0 0 ADD
88710 5 891 2 0 0 0 891 TRANSFER
88711 893 2 0 0 0 893 SELECT
88712 124 891 2 0 3 0 891 modify address of next
88713 102 0 0 0 0 transfer (A) to N
88714 126 887 5 0 3 0 887 leave master routine
88800 PROCR 888 888
88802 81 888 14 0 0 0 888 START OF SUBROUTINE
88803 34 27 13 0 0 0 (DONT SPOIL CLEARNESS OF A) SET (N) IN B
88804 74 888 9 0 0 0 888 >NOT TRAMD ONLY JUMP IF AB == 0 // 27, 1, 0
88805 5 5 10 1 0 0 CLEAR TRANSFER
88806 5 5 12 1 0 0 TRANSFER
88807 5 5 14 1 0 0 TRANSFER
88808 54 5 22 1 0 14 BULK CLEAR
88804>88809 82 888 2 0 0 0 888 END OF SUBROUTINE / LEAVE SUBROUTINE
88900 PROCR 889 889 CLOSE A9
88902 81 889 2 0 0 0 889 START OF SUBROUTINE
88903 27 9 0 0 0 >PRINTING SELECT
88904 70 889 12 0 0 0 889 JUMP IF A == 0
88905 84 787 2 0 0 0 787 CLEAR'DONT OPEN A9' IND SET SWITCH(ES) AT VARIABLE VALUE
88906 C 999 0 0 0 0
88907 10 0 0 0 1+00000 SELECT LITERAL
88908 1 999 7 0 0 0 ADD
88909 125 4096 1 1 0 clear indicators
88910 124 999 0 0 3 0 modify address of next
88911 123 160 0 2 0 enter master routine
88904>88912 82 889 2 0 0 0 889 END OF SUBROUTINE / LEAVE SUBROUTINE
89000 PROCR 890 890 WRITE->A2
89002 81 890 2 0 0 0 890 START OF SUBROUTINE
89003 908 24 1 0 0 908 SELECT
89004 5 8 52 1 0 0 TRANSFER
89005 43 A2 0 0 0 0 OUTPUT
89006 C 8 0 0 0 0
89007 54 8 0 1 0 52 BULK CLEAR
89008 82 890 2 0 0 0 890 END OF SUBROUTINE / LEAVE SUBROUTINE
89100 PROCR 891 891 OPEN & CLOSE A6
89102 81 891 2 0 0 0 891 START OF SUBROUTINE
89103 40 A6 0 0 0 1 OPEN FILE
89104 41 A6 0 0 0 1 CLOSE FILE
89105 82 891 2 0 0 0 891 END OF SUBROUTINE / LEAVE SUBROUTINE
89200 PROCR 892 892 PRINT SR
89202 81 892 2 0 0 0 892 START OF SUBROUTINE
89203 62 0 0 0 0 SET EXCESS CONSTANTS
89204 908 24 1 0 0 908 SELECT
89205 5 5 52 1 0 0 TRANSFER
89206 908 60 0 0 0 908 HEAD OF FORM OR TRACK 1 SELECT
Source image: P1000775.JPG
89207 5 5 0 2 0 0 TRANSFER
89208 10 0 0 0 1 SELECT LITERAL
89209 5 908 60 0 0 0 908 TRANSFER
89210 27 9 0 0 0 SELECT
89211 70 892 16 0 0 0 892 >PRINTER JUMP IF A == 0
89212 55 5 0 1 0 50 BULK COPY
89213 C 10 4 1 6 0
89214 80 913 2 0 0 0 913 O/P->A9 ENTER SUBROUTINE
89215 76 892 38 0 0 0 892 JUMP unconditional
89211>89216 27 8 0 0 0 PRINTER TYPE SELECT
89217 12 0 0 0 9 SUBTRACT LITERAL
89218 70 892 34 0 0 0 892 >SPECIAL PRINTER JUMP IF A == 0
89219 10 0 0 0 80000 SELECT LITERAL
89220 5 5 1 0 0 0 TRANSFER
89221 124 999 15 1 2 0 modify address of next
89222 124 0 0 2 0 select literal and division
89223 124 999 13 1 2 0 modify address of next
89224 129 0 0 1 0 edit for anelex output
89225 10 0 0 0 4 SELECT LITERAL
89237>89226 30 0 0 0 5 SHIFT (A) BY QUARTETS
89227 1 999 7 0 0 0 ADD
89228 34 999 12 0 0 0 SET (N) IN B
89229 125 4096 1 1 0 clear indicators
89230 124 999 0 0 3 0 modify address of next
89231 123 160 0 2 0 enter master routine
89232 62 0 0 0 0 SET EXCESS CONSTANTS
89233 76 892 38 0 0 0 892 JUMP unconditional
89218>89234 55 5 0 1 0 54 BULK COPY
89235 C 10 0 1 0 0
89236 10 0 0 0 9 SELECT LITERAL
89237 76 892 26 0 0 0 892 JUMP unconditional
89233>
89215>89238 54 5 0 1 0 50 BULK CLEAR
89239 82 892 2 0 0 0 892 END OF SUBROUTINE / LEAVE SUBROUTINE
89300 PROCR 893 893 WRITE ON A6
89302 81 893 2 0 0 0 893 START OF SUBROUTINE
89303 55 8 4 1 0 50 BULK COPY
89304 C 9 4 1 0 0
89305 908 24 1 0 0 908 BEW SELECT
89306 5 9 52 1 0 0 TRANSFER
89307 43 A6 0 0 0 0 OUTPUT
89308 C 9 0 0 0 0
89309 54 9 0 1 0 52 BULK CLEAR
89310 82 893 2 0 0 0 893 END OF SUBROUTINE / LEAVE SUBROUTINE
89400 PROCR 894 894 READ A2
89402 81 894 2 0 0 0 894 START OF SUBROUTINE
89403 42 A2 0 0 0 0 INPUT
89404 C 8 0 0 0 0
89405 82 894 2 0 0 0 894 END OF SUBROUTINE / LEAVE SUBROUTINE
89500 PROCR 895 895 DELETE GUARD WORDS
89502 81 895 2 0 0 0 895 START OF SUBROUTINE
89503 124 999 5 0 3 0 modify address of next
89504 126 20 1 2 0 set modification register
89505 80 896 2 0 0 0 896 ENTER SUBROUTINE
89506 124 999 5 0 3 0 modify address of next
89507 126 22 1 2 0 set modification register
89508 80 896 2 0 0 0 896 ENTER SUBROUTINE
Source image: P1000776.JPG
89509 124 999 5 0 3 0 modify address of next
89510 126 24 1 2 0 set modification register
89511 125 204 0 2 0 step on and test
89512 80 896 2 0 0 0 896 ENTER SUBROUTINE
89513 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
89514 C 0 0 0 0 /////
89515 126 895 2 0 3 0 895 leave master routine
89600 PROCR 896 896 STACK TAG SR
89602 81 896 2 0 0 0 896 START OF SUBROUTINE
89603 123 909 2 0 3 0 909 PROG TAG select tag
89606>89604 124 999 0 0 3 0 modify address of next
89605 123 0 1 2 0 copy into tag
89606 94 896 4 0 2 2 896 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
89607 82 896 2 0 0 0 896 END OF SUBROUTINE / LEAVE SUBROUTINE
89700 PROCR 897 897
88372>89702 10 0 0 0 5 SELECT LITERAL
88370>89703 11 0 0 0 11 ADD LITERAL
89704 4 908 14 0 0 0 908 AUGMENT
89733>
90112>
88368>89705 150 0 0 0 5 PAUSE TO PUT TRANSLATOR ON A1 ROUTE OFFER OPTIONS
89706 C 897 9 0 0 0 897
89707 C 883 74 0 0 0 883
89708 C 898 32 0 0 0 898
89706>89709 16 2 0 0 0 ARE WE 08066? SELECT
89710 12 0 0 0 8066 SUBTRACT LITERAL
89711 71 897 27 0 0 0 897 >NO JUMP IF A != 0
89712 10 0 0 0 9 SELECT LITERAL
89713 5 909 98 0 0 0 909 TRANSFER
89714 80 900 2 0 0 0 900 MERGE S/R ENTER SUBROUTINE
89861>
89884>89715 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
89716 C 0 0 0 6
89719>89717 870 4 0 1 0 870 SELECT
89718 80 899 2 0 0 0 899 CONVERT TO DEC ENTER SUBROUTINE
89719 94 897 17 0 1 2 897 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
89720 52 870 10 0 0 0 870 EDIT CHAP LENGTHS EDIT
89721 C 910 2 0 0 0 910 FOR TYPING
89722 154 870 10 0 0 0 870 TYPE COMMENT IN LOG
89723 10 0 0 0 4630 SELECT LITERAL
89724 5 908 14 0 0 0 908 TRANSFER
89725 91 16 10 0 1 0 SET M/R AT NO OFCHAPS SET MODIFICATION REGISTER AT VARIABLE
89726 76 898 11 0 0 0 898 >COPY TRANSLATOR JUMP unconditional
89711>89727 40 A1 0 0 0 1 OPEN FILE
89736>
89740>
89743>89728 80 903 2 0 0 0 903 >READ A1 TO SEC 7 ENTER SUBROUTINE
89729 7 4 1 0 0 SELECT
89730 2 908 6 1 0 0 908 'FINIS' SUBTRACT
89731 71 897 34 0 0 0 897 JUMP IF A != 0
89732 41 A1 0 0 0 1 CLOSE FILE
89733 76 897 5 0 0 0 897 JUMP unconditional
89731>89734 7 4 2 0 0 SELECT
89735 12 0 0 0 SUBTRACT LITERAL
89736 71 897 28 0 0 0 897 JUMP IF A != 0
89737 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
89738 36 7 6 2 0 0 COLLATE AND ADD
89739 12 0 0 0 5 SUBTRACT LITERAL
Source image: P1000777.JPG
89740 71 897 28 0 0 0 897 >NOT SENTINEL 5 JUMP IF A != 0
89741 7 8 2 0 0 SELECT
89742 12 0 0 0 8000 SUBTRACT LITERAL
89743 71 897 28 0 0 0 897 > NOT TRANSLATOR JUMP IF A != 0
89747>89744 80 903 2 0 0 0 903 ENTER SUBROUTINE
89745 7 42 1 0 0 SELECT
89746 2 908 10 1 0 0 908 'ALLOC' SUBTRACT
89747 71 897 44 0 0 0 897 JUMP IF A != 0
89748 40 A6 0 0 0 0 OPEN FOR FINAL PROGM OPEN FILE
89749 32 0 0 0 10 SHIFT (AB) BY QUARTETS
89750 5 869 14 0 0 0 869 SPOOL NUMBER TRANSFER
89751 80 904 2 0 0 0 904 WRITE 2 ZERO BLOX ENTER SUBROUTINE
89752 80 904 2 0 0 0 904 ENTER SUBROUTINE
89753 80 894 2 0 0 0 894 >READ A2 ENTER SUBROUTINE
89754 10 0 0 0 2 INDEX IDENTIFIER SELECT LITERAL
89755 5 8 10 2 0 0 TRANSFER
89756 908 4 1 0 0 908 SELECT
89757 5 8 12 1 0 0 TRANSFER
89758 80 904 2 0 0 0 904 >WRITE ENTER SUBROUTINE
89759 80 894 2 0 0 0 894 >READ A2 ENTER SUBROUTINE
89760 10 0 0 0 2 SELECT LITERAL
89761 5 8 8 2 0 0 TRANSFER
89762 10 0 0 0 SELECT LITERAL
89763 5 8 12 2 0 0 TRANSFER
89764 80 904 2 0 0 0 904 >WRITE ENTER SUBROUTINE
89770>89765 80 894 2 0 0 0 894 >READ A2 ENTER SUBROUTINE
89766 8 42 1 0 0 SELECT
89767 2 908 10 1 0 0 908 'ALLOC' SUBTRACT
89768 70 897 71 0 0 0 897 JUMP IF A == 0
89769 80 904 2 0 0 0 904 >WRITE SEC 8 TO A6 ENTER SUBROUTINE
89770 76 897 65 0 0 0 897 JUMP unconditional
89768>89771 90 0 0 1 0 REFORM ALLOC DATA SET MODIFICATION REGISTER AT LITERAL
89772 C 0 0 0 6
89779>89773 7 24 2 1 0 MAXAMISE ALL 3 CHAP LENGTHS SELECT
89774 2 8 24 2 1 0 SUBTRACT
89775 73 897 77 0 0 0 897 JUMP IF A < 0
89776 4 8 24 2 1 0 AUGMENT
89775>89777 0 8 24 2 1 0 SELECT
89778 80 899 2 0 0 0 899 CONVERT TO DEC ENTER SUBROUTINE
89779 94 897 73 0 1 2 897 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
89780 52 870 10 0 0 0 870 EDIT
89781 C 910 2 0 0 0 910
89782 154 870 10 0 0 0 870 TYPE COMBINED CHAP LENGTHS COMMENT IN LOG
89783 10 0 0 0 4630 SELECT LITERAL
89784 5 908 14 0 0 0 908 TRANSFER
89785 0 8 10 2 0 0 TOTAL CHAPS IN OBJECT PROGRAM SELECT
89786 5 16 10 1 0 0 TRANSFER
89787 91 16 10 0 1 0 0:X SET MODIFICATION REGISTER AT VARIABLE
89788 10 0 0 0 4 SELECT LITERAL
89789 4 8 10 2 0 0 AUGMENT
89790 80 904 2 0 0 0 904 >WRITE ENTER SUBROUTINE
89800 PROCR 898 898 COPY OBJECT PROGRAM: JOIN ON TRANSLATOR
89809>89802 80 894 2 0 0 0 894 READ A2 ENTER SUBROUTINE
89803 8 4 1 0 0 SELECT
89804 2 908 2 1 0 0 908 'PREND' SUBTRACT
89805 71 898 8 0 0 0 898 >NO JUMP IF A != 0
89806 41 A2 0 0 0 1 CSE CLOSE FILE
89807 76 898 10 0 0 0 898 JUMP unconditional
89805>89808 80 904 2 0 0 0 904 >WRITE A6 ENTER SUBROUTINE
Source image: P1000778.JPG
89809 76 898 2 0 0 0 898 JUMP unconditional
89812>
89807>89810 80 905 2 0 0 0 905 >READ A1 TO SEC 8 OF TRANSLATOR ENTER SUBROUTINE
89726>89811 80 907 2 0 0 0 907 'CHAPT' SR ENTER SUBROUTINE
89812 71 898 10 0 0 0 898 >NOT START JUMP IF A != 0
89813 76 898 17 0 0 0 898 >(AT START OF PASS 1 NOW) JUMP unconditional
89831>89814 80 905 2 0 0 0 905 >READ A1 ENTER SUBROUTINE
89815 80 907 2 0 0 0 907 >'CHAPT' SR ENTER SUBROUTINE
89816 71 898 27 0 0 0 898 >NO JUMP IF A != 0
89813>89817 80 905 2 0 0 0 905 READ/WRITE FIRST BLOCK ENTER SUBROUTINE
89818 80 904 2 0 0 0 904 ENTER SUBROUTINE
89819 80 905 2 0 0 0 905 READ/WRITE SECOND BLOCK ENTER SUBROUTINE
89820 80 904 2 0 0 0 904 ENTER SUBROUTINE
89821 80 905 2 0 0 0 905 READ BLOCK WITH LOCN 35=1/1/3 N ENTER SUBROUTINE
89822 0 16 10 0 0 0 X=TOT CHAPS IN OBJECT PROGM SELECT
89823 11 0 0 0 1.001 1/1/3 1 ADD LITERAL
89824 5 8 50 2 0 0 TRANSFER
89825 10 0 0 0 1 SELECT LITERAL
89826 4 16 10 0 0 0 STEP CTR AUGMENT
89816>89827 8 4 1 0 0 SELECT
89828 2 908 2 1 0 0 908 'PREND' SUBTRACT
89829 70 899 10 0 0 0 899 >YES JUMP IF A == 0
89830 80 904 2 0 0 0 904 >WRITE A6 ENTER SUBROUTINE
89831 76 898 14 0 0 0 898 >LOOP JUMP unconditional
89708>89832 80 900 2 0 0 0 900 MERGE S/R ENTER SUBROUTINE
89833 41 A1 0 0 0 1 CLOSE FILE
89834 40 A1 0 0 0 1 OPEN FILE
89840>
89844>
89848>89835 80 903 2 0 0 0 903 READ A1 TO SECN 7 ENTER SUBROUTINE
89836 80 906 2 0 0 0 906 ENTER SUBROUTINE
89837 C 909 83 0 0 0 909
89838 7 6 1 0 0 SELECT
89839 2 908 12 1 0 0 908 'INDEX' SUBTRACT
89840 71 898 35 0 0 0 898 >GET TO INDEX BLOCK JUMP IF A != 0
89841 80 903 2 0 0 0 903 ENTER SUBROUTINE
89842 7 4 2 0 0 SELECT
89843 12 0 0 0 8000 SUBTRACT LITERAL
89844 71 898 35 0 0 0 898 >GET TO TRANS JUMP IF A != 0
89845 7 6 2 0 0 SELECT
89846 30 0 0 0 2- SHIFT (A) BY QUARTETS
89847 12 0 0 0 899 SUBTRACT LITERAL
89848 71 898 35 0 0 0 898 >GET TO 899 VERSION JUMP IF A != 0
89854>89849 80 903 2 0 0 0 903 READ ENTER SUBROUTINE
89850 80 906 2 0 0 0 906 ENTER SUBROUTINE
89851 C 909 83 0 0 0 909
89852 7 42 1 0 0 SELECT
89853 2 908 10 1 0 0 908 'ALLOC' SUBTRACT
89854 71 898 49 0 0 0 898 >GET TO ALLOC BLOCK JUMP IF A != 0
89855 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
89856 C 0 0 0 6
89860>89857 870 4 0 1 0 870 SELECT
89858 2 7 24 2 1 0 SUBTRACT
89859 73 898 62 0 0 0 898 JUMP IF A < 0
89860 94 898 57 0 1 2 898 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
89861 76 897 15 0 0 0 897 >ALL CHAPS OK JUMP unconditional
89859>89862 46 A6 10 0 0 0 RUN BACK TO PASS 3 START RUN BACK
89863 C 0 0 0 2
89868>89864 42 A6 0 0 0 0 READ INPUT
89865 C 8 0 0 0 0
Source image: P1000779.JPG
89866 8 42 1 0 0 SELECT
89867 2 908 10 1 0 0 908 ALLOC' SUBTRACT
89868 71 898 64 0 0 0 898 >GET TO ALLOC BLOCK JUMP IF A != 0
89869 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
89870 C 0 0 0 6
89876>89871 7 24 2 1 0 SELECT
89872 2 870 4 0 1 0 870 SUBTRACT
89873 73 898 76 0 0 0 898 >CHAP NOT BIGGER JUMP IF A < 0
89874 4 8 24 2 1 0 AUGMENT
89875 4 870 4 0 1 0 870 AUGMENT
89873>89876 94 898 71 0 1 2 898 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
89877 48 A6 0 0 0 3 STEP BACK
89878 C 0 0 0 1
89879 80 904 2 0 0 0 904 REWRITE ALLOC BLOCK ENTER SUBROUTINE
89880 47 A6 2 0 0 0 RUN ON
89881 C 0 0 0
89882 48 A6 0 0 0 0 STEP BACK
89883 C 0 0 0 1
89884 76 897 15 0 0 0 897 >JOIN UP JUMP unconditional
89900 PROCR 899 899 END ROUTINE
89902 81 899 2 0 0 0 899 CONVERT S/R START OF SUBROUTINE
89903 5 870 2 0 0 0 870 TRANSFER
89904 60 0 0 0 0 SET DECIMAL RADIX
89905 124 909 22 0 2 0 909 select literal and division
89906 112 870 2 0 0 0 870 convert
89907 5 870 4 0 1 0 870 TRANSFER
89908 62 0 0 0 0 SET EXCESS CONSTANTS
89909 82 899 2 0 0 0 899 END OF SUBROUTINE / LEAVE SUBROUTINE
89829>89910 80 904 2 0 0 0 904 > WRITE 'PREND' ENTER SUBROUTINE
89911 908 26 1 0 0 908 SELECT
89912 5 8 4 1 0 0 TRANSFER
89913 0 908 12 1 0 0 908 INDEX' SELECT
89914 5 8 6 1 0 0 TRANSFER
89915 10 0 0 0 SELECT LITERAL
89916 5 8 8 2 0 0 TRANSFER
89917 10 0 0 0 3 SELECT LITERAL
89918 5 8 10 1 0 0 TRANSFER
89919 80 904 2 0 0 0 904 > WRITE 2ND INDEX BLOCK ENTER SUBROUTINE
89920 80 902 2 0 0 0 902 ENTER SUBROUTINE
89921 41 A1 0 0 0 1 CLOSE FILE
89922 41 A6 0 0 0 0 CLOSE FILE
89923 125 0 1 2 0 CLEAR interrogate indicators
89924 5 908 60 0 0 0 908 TRANSFER
89925 5 909 98 0 0 0 909 TRANSFER
89926 76 884 40 0 0 0 884 JUMP unconditional
90000 PROCR 900 900 S/R TO MERGE 08066 AND 08061
90002 81 900 2 0 0 0 900 START OF SUBROUTINE
90003 40 A6 0 0 0 0 OPEN FILE
90004 32 0 0 0 10 SHIFT (AB) BY QUARTETS
90005 5 869 14 0 0 0 869 SPOOL NUMBER TRANSFER
90006 80 904 2 0 0 0 904 WRITE 2 BLANK BLOCKS ENTER SUBROUTINE
90007 80 904 2 0 0 0 904 ENTER SUBROUTINE
90008 908 26 1 0 0 908 ALIGNMENT MARKS SELECT
90009 5 8 4 1 0 0 TRANSFER
90010 908 12 1 0 0 908 SELECT
90011 5 8 6 1 0 0 INDEX' TRANSFER
90012 10 0 0 0 SELECT LITERAL
90013 5 8 8 2 0 0 TRANSFER
Source image: P1000780.JPG
90014 10 0 0 0 2 SELECT LITERAL
90015 5 8 10 2 0 0 TRANSFER
90016 80 904 2 0 0 0 904 WRITE ENTER SUBROUTINE
90017 80 902 2 0 0 0 902 WRITE 2ND INDEX BLOCK ENTER SUBROUTINE
90018 47 A2 10 0 0 0 RUN ON
90019 C 0 0 0 2
90025>90020 80 894 2 0 0 0 894 READ A2 TO SCN 8 ENTER SUBROUTINE
90021 80 906 2 0 0 0 906 ENTER SUBROUTINE
90022 C 909 82 0 0 0 909
90023 8 12 1 0 0 SELECT
90024 12 0 0 0 6751727243 'PASS 3' SUBTRACT LITERAL
90025 71 900 20 0 0 0 900 >READ TILL PASS 3 JUMP IF A != 0
90032>90026 80 904 2 0 0 0 904 WRITE ENTER SUBROUTINE
90027 80 894 2 0 0 0 894 READ A2 ENTER SUBROUTINE
90028 80 906 2 0 0 0 906 ENTER SUBROUTINE
90029 C 909 82 0 0 0 909
90030 8 42 1 0 0 SELECT
90031 2 908 10 1 0 0 908 'ALLOC' SUBTRACT
90032 71 900 26 0 0 0 900 >COPY BLOCKS TILL 'ALLOC' JUMP IF A != 0
90033 8 10 2 0 0 SELECT
90034 5 16 10 1 0 0 TRANSFER
90035 90 0 0 1 0 STORE CHAP LENGHTS SET MODIFICATION REGISTER AT LITERAL
90036 C 0 0 0 6
90039>90037 8 24 2 1 0 SELECT
90038 5 870 4 0 1 0 870 TRANSFER
90039 94 900 37 0 1 2 900 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
90046>90040 80 904 2 0 0 0 904 WRITE ENTER SUBROUTINE
90041 80 894 2 0 0 0 894 READ A2 ENTER SUBROUTINE
90042 80 906 2 0 0 0 906 ENTER SUBROUTINE
90043 C 909 82 0 0 0 909
90044 8 12 1 0 0 SELECT
90045 2 908 8 1 0 0 908 'CHAPT' SUBTRACT
90046 71 900 40 0 0 0 900 WRITE UNTIL CHAPT JUMP IF A != 0
90100 PROCR 901 901
90102 40 A1 0 0 0 1 OPEN FILE
90108>90103 80 905 2 0 0 0 905 READ A1 ENTER SUBROUTINE
90104 80 906 2 0 0 0 906 ENTER SUBROUTINE
90105 C 909 83 0 0 0 909
90106 8 6 1 0 0 SELECT
90107 2 908 12 1 0 0 908 'INDEX' SUBTRACT
90108 71 901 3 0 0 0 901 >GET TO INDEX JUMP IF A != 0
90109 80 905 2 0 0 0 905 READ NEXT BLOCK ENTER SUBROUTINE
90110 8 4 2 0 0 SELECT
90111 12 0 0 0 8061 HAS CORR PROG BEEN LOADED? SUBTRACT LITERAL
90112 71 897 5 0 0 0 897 >NO, RETURN TO *05 JUMP IF A != 0
90118>90113 80 905 2 0 0 0 905 READ A1 ENTER SUBROUTINE
90114 80 906 2 0 0 0 906 ENTER SUBROUTINE
90115 C 909 83 0 0 0 909
90116 0 8 42 1 0 0 SELECT
90117 2 908 10 1 0 0 908 'ALLOC' SUBTRACT
90118 71 901 13 0 0 0 901 >GET TO ALLOC JUMP IF A != 0
90119 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
90120 C 0 0 0 6 COMPARE CHAP LENGHTS
90125>90121 8 24 2 1 0 08066 AND 08061 SELECT
90122 2 870 4 0 1 0 870 SUBTRACT
90123 73 901 25 0 0 0 901 JUMP IF A < 0
90124 4 870 4 0 1 0 870 AUGMENT
90123>90125 94 901 21 0 1 2 901 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
90131>90126 80 905 2 0 0 0 905 READ A1 TO SECN 8 ENTER SUBROUTINE
Source image: P1000781.JPG
90127 80 906 2 0 0 0 906 ENTER SUBROUTINE
90128 C 909 83 0 0 0 909
90129 8 12 1 0 0 SELECT
90130 2 908 8 1 0 0 908 'CHAPT' SUBTRACT
90131 71 901 26 0 0 0 901 >GET TO'CHAPT' JUMP IF A != 0
90132 90 0 0 1 1 SET MODIFICATION REGISTER AT LITERAL
90133 C 0 0 0 5
90145>90134 16 2 0 0 0 PROG ID 08066 SELECT
90135 5 8 8 2 0 0 TRANSFER
90136 16 3 0 0 0 SERIAL SELECT
90137 5 8 10 2 0 0 TRANSFER
90144>90138 80 904 2 0 0 0 904 WRITE ENTER SUBROUTINE
90139 80 905 2 0 0 0 905 READ ENTER SUBROUTINE
90140 80 906 2 0 0 0 906 ENTER SUBROUTINE
90141 C 909 83 0 0 0 909
90142 8 12 1 0 0 SELECT
90143 2 908 8 1 0 0 908 'CHAPT' SUBTRACT
90144 71 901 38 0 0 0 901 >WRITE CONTENTS JUMP IF A != 0
90145 94 901 34 0 1 1 901 >WRITE CHAPT BLOCK STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
90151>
90154>90146 80 894 2 0 0 0 894 READ A2 ENTER SUBROUTINE
90147 80 906 2 0 0 0 906 ENTER SUBROUTINE
90148 C 909 82 0 0 0 909
90149 8 12 1 0 0 SELECT
90150 2 908 8 1 0 0 908 'CHAPT' SUBTRACT
90151 71 901 46 0 0 0 901 >GET TO CHAPT JUMP IF A != 0
90152 8 4 2 0 0 SELECT
90153 12 0 0 0 5 SUBTRACT LITERAL
90154 71 901 46 0 0 0 901 >GET TO CHAPT 5 JUMP IF A != 0
90155 90 0 0 1 5 SET MODIFICATION REGISTER AT LITERAL
90156 C 0 0 0 10
90163>
90164>90157 80 904 2 0 0 0 904 WRITE ENTER SUBROUTINE
90158 80 894 2 0 0 0 894 READ A2 ENTER SUBROUTINE
90159 80 906 2 0 0 0 906 ENTER SUBROUTINE
90160 C 909 82 0 0 0 909
90161 8 12 1 0 0 SELECT
90162 2 908 8 1 0 0 908 'CHAPT' SUBTRACT
90163 71 901 57 0 0 0 901 >WRITE CONTENTS JUMP IF A != 0
90164 94 901 57 0 1 1 901 >WRITE CHAPT BLOCK STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
90170>
90173>90165 80 905 2 0 0 0 905 READ A1 ENTER SUBROUTINE
90166 80 906 2 0 0 0 906 ENTER SUBROUTINE
90167 C 909 83 0 0 0 909
90168 8 12 1 0 0 SELECT
90169 2 908 8 1 0 0 908 'CHAPT' SUBTRACT
90170 71 901 65 0 0 0 901 GET TO CHAPT JUMP IF A != 0
90171 8 4 2 0 0 SELECT
90172 101 10 1 2 0 subtract literal address
90173 71 901 65 0 0 0 901 >GET TO CHAPT 10 JUMP IF A != 0
90190>90174 16 2 0 0 0 PROG ID 08066 SELECT
90175 5 8 8 2 0 0 TRANSFER
90176 16 3 0 0 0 SERIAL SELECT
90177 5 8 10 2 0 0 TRANSFER
90187>90178 80 904 2 0 0 0 904 WRITE ENTER SUBROUTINE
90179 80 905 2 0 0 0 905 READ A1 ENTER SUBROUTINE
90180 80 906 2 0 0 0 906 ENTER SUBROUTINE
90181 C 909 83 0 0 0 909
90182 8 4 1 0 0 SELECT
90183 2 908 2 1 0 0 908 'PREND' SUBTRACT
Source image: P1000782.JPG
90184 70 901 91 0 0 0 901 JUMP IF A == 0
90185 8 12 1 0 0 SELECT
90186 2 908 8 1 0 0 908 'CHAPT' SUBTRACT
90187 71 901 78 0 0 0 901 >WRITE CONTENTS JUMP IF A != 0
90188 8 4 2 0 0 SELECT
90189 101 13 1 2 0 subtract literal address
90190 71 901 74 0 0 0 901 >WRITE CHAPT BLOCK JUMP IF A != 0
90184>90191 41 A2 0 0 0 1 CLOSE FILE
90192 82 900 2 0 0 0 900 END OF SUBROUTINE / LEAVE SUBROUTINE
90200 PROCR 902 902 WRITE 2ND INDEX BLOCK S/R
90202 81 902 2 0 0 0 902 START OF SUBROUTINE
90203 16 2 0 0 0 PROG ID SELECT
90204 5 8 4 2 0 0 TRANSFER
90205 16 3 0 0 0 SERIAL SELECT
90206 5 8 6 2 0 0 TRANSFER
90207 10 0 0 0 2 SELECT LITERAL
90208 3 8 8 2 0 0 COPY
90209 5 8 10 2 0 0 TRANSFER
90210 10 0 0 0 SELECT LITERAL
90211 5 8 12 2 0 0 TRANSFER
90212 80 904 2 0 0 0 904 WRITE ENTER SUBROUTINE
90213 82 902 2 0 0 0 902 END OF SUBROUTINE / LEAVE SUBROUTINE
90300 PROCR 903 903 READ A1>SEC 7
90302 81 903 2 0 0 0 903 START OF SUBROUTINE
90303 42 A1 0 0 0 0 INPUT
90304 C 7 0 0 0 0
90305 82 903 2 0 0 0 903 END OF SUBROUTINE / LEAVE SUBROUTINE
90400 PROCR 904 904 WRITE SEC 8>A6
90402 81 904 2 0 0 0 904 START OF SUBROUTINE
90403 55 8 4 1 0 50 BULK COPY
90404 C 9 4 1 0 0
90405 908 24 1 0 0 908 BEW SELECT
90406 5 9 52 1 0 0 TRANSFER
90407 54 8 4 1 0 50 BULK CLEAR
90408 43 A6 0 0 0 0 OUTPUT
90409 C 9 0 0 0 0
90410 82 904 2 0 0 0 904 END OF SUBROUTINE / LEAVE SUBROUTINE
90500 PROCR 905 905 READ A1>SEC 8
90502 81 905 2 0 0 0 905 START OF SUBROUTINE
90503 42 A1 0 0 0 0 INPUT
90504 C 8 0 0 0 0
90505 82 905 2 0 0 0 905 END OF SUBROUTINE / LEAVE SUBROUTINE
90600 PROCR 906 906 TEST FINIS ON A2 AND A1 (08066 ONLY)
90602 81 906 2 0 0 0 906 START OF SUBROUTINE
90603 8 4 1 0 0 SELECT
90604 2 908 6 1 0 0 908 'FINIS' SUBTRACT
90605 71 906 10 0 0 0 906 >NO JUMP IF A != 0
90606 1001 0 0 0 0 SELECT
90607 5 909 94 0 0 0 909 TRANSFER
90608 154 909 84 0 0 0 909 COMMENT IN LOG
90609 76 884 40 0 0 0 884 JUMP unconditional
90605>90610 82 906 2 0 0 0 906 END OF SUBROUTINE / LEAVE SUBROUTINE
90700 PROCR 907 907 'CHAPT' SR
90702 81 907 2 0 0 0 907 START OF SUBROUTINE
Source image: P1000783.JPG
90703 8 12 1 0 0 SELECT
90704 2 908 8 1 0 0 908 'CHAPT' SUBTRACT
90705 71 907 24 0 0 0 907 >NO JUMP IF A != 0
90715>90706 0 8 4 2 0 0 CHAP NUMBER SELECT
90707 12 0 0 0 4 SUBTRACT LITERAL
90708 2 909 98 0 0 0 909 0 OR 9 SUBTRACT
90709 73 907 11 0 0 0 907 >CHAP 1, PASS 0, SPECIAL JUMP IF A < 0
90710 76 907 16 0 0 0 907 JUMP unconditional
90714>
90709>90711 80 905 2 0 0 0 905 >READ ENTER SUBROUTINE
90712 0 8 12 1 0 0 SELECT
90713 2 908 8 1 0 0 908 'CHAPT' SUBTRACT
90714 71 907 11 0 0 0 907 >DRAIN TO NEXT CHAP START JUMP IF A != 0
90715 76 907 6 0 0 0 907 JUMP unconditional
90710>90716 125 1 0 1 0 STEP CTR step on and test
90717 96 0 0 1 0 SELECT MODIFIER
90718 5 8 4 2 0 0 SET CHAP NUMBER TRANSFER
90719 16 2 0 0 0 OBJECT PROG ID SELECT
90720 5 8 8 2 0 0 TRANSFER
90721 16 3 0 0 0 SERIAL SELECT
90722 5 8 10 2 0 0 TRANSFER
90723 80 904 2 0 0 0 904 >WRITE A6 ENTER SUBROUTINE
90705>90724 82 907 2 0 0 0 907 A CLEAR IF WAS 'CHAPT' END OF SUBROUTINE / LEAVE SUBROUTINE
90800 CONST 908 908 1
90802 (A)PREND;
90804 CHAIN;
90806 FINIS;
90808 CHAPT;
90810 ALLOC;
90812 INDEX;
90814 (A)08060;
90816 CHAPS;
90818 ON;
90820 (D)5.5.;
90822 (A)0;
90824 (D)7.0000007.;
90826 6£6£6£6£6£;
90828 (A)MADE ;
90830 BY 08;
90832 000 I;
90834 SSUE ;
90836 8 SE;
90838 RIAL ;
90840 70000;
90842 /;
90844 SPOOL;
90846 08000;
90848 MAKES;
90850 COPY ;
90852 PASS3;
90854 0; WL'S
90856 0; WL'S
90858 0; WL'S
90860 0; IND
90862 (A)PT OM;
90864 ITTED;
90866 DISAS;
90868 TROUS;
90870 OTHER;
Source image: P1000784.JPG
90872 S ;
90874 YES;
90876 NO;
90878 IN;
90880 TERCO;
90882 DE ;
90884 TRI;
90886 AL DA;
90888 TA ;
90890 SERIA;
90892 L NUM;
90894 BERS ;
90896 OF IN;
90898 TERCO;
90898 DE RE; /////
90898 PORTS; /////
90900 CONST 909 909 1 COMPILER'S CONVERT TABLES
90902 (D)1; DEC->BIN
90904 Ю;
90906 64;
90908 3.8;
90910 2710;
90912 186Ю0;
90914 £4240;
90916 989680;
90918 5£5.100;
90920 3‼9Ю+Ю00;
90922 1; BIN->DEC
90924 16;
90926 256;
90928 4096;
90930 65536;
90932 1048576;
90934 16777216;
90936 268435456;
90938 4294967296;
90940 ££££££££££;
90942 1; STERLING>BIN
90944 +;
90946 78;
90948 £0;
90950 960;
90952 5:+0;
90954 3Ю980;
90956 249£00;
90958 16.3600;
90960 .4.1+00;
90962 1; BIN>STERLING
90964 14;
90966 1014;
90968 17014;
90970 273014;
90972 4369014;
90974 69905014;
90976 1118481014;
90978 ££££££££££;
90980 ££££££££££;
90982 1000020000;
90984 (A)08000;
Source image: P1000785.JPG
90986 UNEX;
90988 PECTE;
90990 D FIN;
90992 IS ON;
90994 A ;
90996 (D)5.5.;
90998 0; N.B. THIS IS NOT SPARE
91000 TABLE 910 910 1
91002 908 14 0 0 2 0 5 0 0 0 0 0 0 08060'
91004 908 16 0 0 2 0 5 0 1 0 0 0 0 CHAPS'
91006 870 4 0 0 0 0 5 0 1 4 0 0 0 LENGTHS
91008 870 6 0 0 0 0 5 0 1 4 0 0 0
91010 870 8 0 0 0 0 5 0 0 4 0 0 0
91012 908 18 0 0 2 0 2 3 2 0 0 0 0 ON'
91014 869 14 0 0 0 0 5 0 1 0 0 0 0 SPOOL NUMBER
91016 908 20 0 0 2 0 2 3 0 0 0 0 1 DOUBLE LE
91018 908 18 0 0 2 0 2 3 1 0 0 0 0 ON'
91020 908 40 0 0 1 0 2 4 1 2 0 0 0 DAY
91022 908 42 0 0 2 0 1 4 0 0 0 0 0 /'
91024 908 40 0 0 0 0 2 1 0 2 0 0 0 MONTH
91026 908 42 0 0 2 0 1 4 0 0 0 0 0 /'
91028 908 40 0 0 0 0 2 3 0 2 0 0 0 YEAR
91030 908 44 0 0 2 0 5 0 2 0 0 0 0 SPOOL'
91032 908 22 0 0 0 0 5 0 1 5 0 0 1 NUMBER
91034 908 46 0 0 2 0 5 0 2 0 0 0 0 08000'
91036 908 48 0 0 2 0 5 0 1 0 0 0 0 MAKES
91038 908 52 0 0 2 0 5 0 1 0 0 0 0 PASS5
91040 908 50 0 0 2 0 5 0 1 0 0 0 0 COPY'
91042 908 18 0 0 2 0 2 3 0 0 0 0 0 ON'
91044 908 56 0 0 0 0 5 0 1 5 0 0 0 SPOOL NUMBER
91046 908 20 0 0 2 0 2 3 0 0 0 0 1 DOUBLE LINE END
91048 905 2 0 0 0 0 3 2 0 2 0 0 0 REF----ACTIONS WITH NEG ADDRESS
91050 904 2 0 0 0 0 5 0 2 4 0 0 1 PROCR
91052 908 54 0 0 0 0 4 1 1 3 0 0 0 TRANSLATOR REPORTS
91054 908 56 0 0 0 0 5 0 10 4 0 0 0 08005 REPORTS
91056 40 0 0 0 0 0 5 0 6 5 0 0 0 SERIAL NUMBERS OF
91058 40 1 0 0 0 0 5 0 1 5 0 0 0 INTERCODE REPORTS
91060 40 2 0 0 0 0 5 0 1 5 0 0 0
91062 40 3 0 0 0 0 5 0 1 5 0 0 0
91064 40 4 0 0 0 0 5 0 1 5 0 0 0
91066 40 5 0 0 0 0 5 0 1 5 0 0 0
91068 40 6 0 0 0 0 5 0 1 5 0 0 0
91070 40 7 0 0 0 0 5 0 1 5 0 0 0
91072 40 8 0 0 0 0 5 0 1 5 0 0 0
91074 40 9 0 0 0 0 5 0 1 5 0 0 1
91100 PROCR 911 911 CLOSE I/P FILE
91102 81 911 2 0 0 0 911 START OF SUBROUTINE
91103 0 908 6 1 0 0 908 FINIS' SELECT
91104 124 999 10 0 3 0 modify address of next
91105 124 64 1 2 0 modify address of next
91106 102 4 1 0 0 PLANT transfer (A) to N
91107 41 A2 0 0 0 1 CLOSE FILE
91108 82 911 2 0 0 0 911 END OF SUBROUTINE / LEAVE SUBROUTINE
91200 PROCR 912 912 CONVERT TO DEC
91202 81 912 2 0 0 0 912 START OF SUBROUTINE
91203 5 911 2 0 0 0 911 TRANSFER
91204 60 0 0 0 0 SET DECIMAL RADIX
Source image: P1000786.JPG
91205 124 909 22 0 2 0 909 select literal and division
91206 112 911 2 0 0 0 911 convert
91207 82 912 2 0 0 0 912 END OF SUBROUTINE / LEAVE SUBROUTINE
91300 PROCR 913 913 O/P->A9
91302 81 913 2 0 0 0 913 START OF SUBROUTINE
91303 94 913 9 0 6 50 913 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
91304 908 24 1 0 0 908 SELECT
91305 5 10 306 1 0 0 TRANSFER
91306 80 914 2 0 0 0 914 ENTER SUBROUTINE
91307 90 0 0 6 0 SET MODIFICATION REGISTER AT LITERAL
91308 C 0 0 0 300
91303>91309 82 913 2 0 0 0 913 END OF SUBROUTINE / LEAVE SUBROUTINE
91400 PROCR 914 914 WRITE A9
91402 81 914 2 0 0 0 914 START OF SUBROUTINE
91403 10 0 0 0 800000 SELECT LITERAL
91404 34 999 12 0 0 0 SEC 10 SET (N) IN B
91405 125 4096 1 1 0 clear indicators
91406 1 999 7 0 0 0 D1/A9 ADD
91407 124 999 0 0 3 0 modify address of next
91408 123 160 0 2 0 enter master routine
91409 82 914 2 0 0 0 914 END OF SUBROUTINE / LEAVE SUBROUTINE
91500 PROCR 915 915 COPY WORDS FOR ERROR TOTALS REPORTS
91502 81 915 2 0 0 0 915 START OF SUBROUTINE
91503 908 62 1 1 0 908 SELECT
91504 5 5 6 1 0 0 TRANSFER
91505 908 64 1 1 0 908 SELECT
91506 5 5 8 1 0 0 TRANSFER
91507 80 888 2 0 0 0 888 >SUPPRESS I/C IF TRAMD ONLY ENTER SUBROUTINE
91508 80 892 2 0 0 0 892 PRINT ENTER SUBROUTINE
91509 82 915 2 0 0 0 915 END OF SUBROUTINE / LEAVE SUBROUTINE
91600 PROCR 916 916 EDIT NUMBER OF REPORTS
91602 81 916 2 0 0 0 916 START OF SUBROUTINE
91603 5 908 54 0 0 0 908 TRANSFER
91604 52 5 12 0 0 0 EDIT
91605 C 910 52 0 0 0 910
91606 55 40 10 0 0 10 COPY'OTHERS'SERIAL NOS BULK COPY
91607 C 40 0 0 0 0
91608 82 916 2 0 0 0 916 END OF SUBROUTINE / LEAVE SUBROUTINE
91700 CONST 917 917 1 BLISTER SPACE PASS 5
91702 (D)0;
91704 0;
91706 0;
91708 0;
91710 0;
91712 0;
91714 0;
91716 0;
91718 0;
91720 0;
91722 0;
91724 0;
91726 0;
91728 0;
91730 0;
91732 0;
Source image: P1000787.JPG
91734 0;
91736 0;
91738 0;
91740 0;
91742 0;
91744 0;
91746 0;
91748 0;
91750 0;
91752 0;
91754 0;
91756 0;
91758 0;
91760 0;
91800 PROCR 918 918 PASS 6=REMAINDER OF PTS
91802 152 101 2 0 0 0 101 OVERLAY
91803 C 995 0 0 0 0 995
91804 124 992 2 0 2 0 992 SECOND LEVEL PARAS select literal and division
91805 91 0 0 1 0 SECOND LEVEL PARAS SET MODIFICATION REGISTER AT VARIABLE
91806 124 922 2 0 2 0 922 select literal and division
91807 91 0 0 2 0 ORDERS SET MODIFICATION REGISTER AT VARIABLE
91808 124 987 2 0 2 0 987 select literal and division
91809 91 0 0 3 0 FIRST LEVEL PARAS SET MODIFICATION REGISTER AT VARIABLE
91810 0 987 2 0 0 0 987 SELECT
91811 31 0 0 0 2 SHIFT (A) BY BITS
91812 5 921 11 0 0 0 921 TRANSFER
91813 0 992 2 0 0 0 992 SELECT
91814 31 0 0 0 2 SHIFT (A) BY BITS
91815 5 921 17 0 0 0 921 TRANSFER
91816 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL
91817 C 0 0 0 6
91818 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL
91819 C 0 0 0 3
91820 80 920 2 0 0 0 920 >O/P PTS(2) ENTER SUBROUTINE
91821 10 0 0 0 5358596773 CHIPT' SELECT LITERAL
91822 5 8 12 1 0 0 TRANSFER
91823 80 919 2 0 0 0 919 >WRITE ENTER SUBROUTINE
91824 80 920 2 0 0 0 920 >O/P PTS(3) ENTER SUBROUTINE
91825 76 882 15 0 0 0 882 >O/P'PREND' JUMP unconditional
91900 PROCR 919 919 WRITE8->A2
91902 81 919 2 0 0 0 919 START OF SUBROUTINE
91903 10 0 0 0 7.0000007. SELECT LITERAL
91904 5 8 52 1 0 0 TRANSFER
91905 43 A2 0 0 0 0 OUTPUT
91906 C 8 0 0 0 0
91907 54 8 4 1 0 50 BULK CLEAR
91908 82 919 2 0 0 0 919 END OF SUBROUTINE / LEAVE SUBROUTINE
92000 PROCR 920 920 WRITE CHUNK.SR
92002 81 920 2 0 0 0 920 START OF SUBROUTINE
92003 96 0 0 2 0 STORE CHUNK START FOR PARAS 1 AND 5 SELECT MODIFIER
92004 5 921 2 0 0 0 921 TRANSFER
92005 124 921 2 0 1 0 921 modify address of next
92006 101 0 1 3 0 select literal address
92007 5 921 6 0 0 0 921 CHUNK START TRANSFER
92079>92008 124 999 19 1 2 0 modify address of next
92009 124 0 0 2 0 select literal and division
92010 3 919 2 0 0 0 919 COPY
Source image: P1000788.JPG
92011 101 48 1 1 0 add literal address
92012 30 0 0 0 5 SHIFT (A) BY QUARTETS
92013 1 919 2 0 0 0 919 ADD
92014 91 0 0 4 0 SET MODIFICATION REGISTER AT VARIABLE
92077>92015 124 921 4 0 3 0 921 STORE WORD modify address of next
92016 106 0 0 2 0 select (N)
92017 5 921 7 0 0 0 921 STORE WORD TRANSFER
92031>92018 34 921 10 1 0 0 921 FIRST LEVEL PARA WORD SET (N) IN B
92019 33 0 0 0 3 NEXT ONE TO A SHIFT (AB) BY BITS
92020 100 921 8 1 0 0 921 STORE (A) (B) ( C) copy registers
92021 94 920 29 0 5 1 920 TEST END OF PARA WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
92022 90 0 0 5 0 SET UP MR FOR SET MODIFICATION REGISTER AT LITERAL
92023 C 0 0 0 6 NEXT PARA WORD
92024 124 921 4 0 3 0 921 STORE PARA WORD modify address of next
92025 106 1 0 3 0 STORE PARA WORD select (N)
92026 33 0 0 0 2 RIGHT ALIGN WORD SHIFT (AB) BY BITS
92027 5 921 11 0 0 0 921 TRANSFER
92028 94 920 29 0 3 1 920 STEP PARAS MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
92028>
92021>92029 921 8 0 0 0 921 TEST DUMMY PARA SELECT
92030 12 0 0 0 6 SUBTRACT LITERAL
92031 70 920 18 0 0 0 920 >YES JUMP IF A == 0
92032 12 0 0 0 1 TEST SECOND LEVEL REQD SUBTRACT LITERAL
92033 71 920 57 0 0 0 920 >NO JUMP IF A != 0
92047>92034 34 921 16 1 0 0 921 SECOND LEVEL PARA WORD SET (N) IN B
92035 33 0 0 0 6 NEXT ONE TO A SHIFT (AB) BY BITS
92036 100 921 14 1 0 0 921 STORE (A) (B) ( C) copy registers
92037 94 920 45 0 8 1 920 TEST END OF PARA WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
92038 90 0 0 8 0 SET UP MR FOR SET MODIFICATION REGISTER AT LITERAL
92039 C 0 0 0 3 NEXT PARA WORD
92040 124 921 4 0 3 0 921 STORE PARA WORD modify address of next
92041 106 1 0 1 0 select (N)
92042 33 0 0 0 2 RIGHT ALIGN WORD SHIFT (AB) BY BITS
92043 5 921 17 0 0 0 921 TRANSFER
92044 94 920 45 0 1 1 920 STEP PARAS MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
92044>
92037>92045 921 14 0 0 0 921 TEST SECOND LEVEL SELECT
92046 101 63 1 2 0 PARA=63(DUMMY) subtract literal address
92047 70 920 34 0 0 0 920 >YES JUMP IF A == 0
92048 101 1 1 1 0 TEST END SIGN(62) add literal address
92049 71 920 55 0 0 0 920 >NO JUMP IF A != 0
92050 921 4 1 0 0 921 STORE END SIGN SELECT
92051 5 4 1 4 0 TRANSFER
92052 5 6 1 4 0 TRANSFER
92053 80 919 2 0 0 0 919 >WRITE LAST BLOCK ENTER SUBROUTINE
92054 82 920 2 0 0 0 920 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
92049>92055 921 14 1 0 0 921 STORE ACTUAL PARA SELECT
92056 5 921 8 1 0 0 921 VALUE TRANSFER
92033>92057 921 8 0 0 0 921 TEST PARA=1 SELECT
92058 12 0 0 0 1 SUBTRACT LITERAL
92059 70 920 62 0 0 0 920 >YES JUMP IF A == 0
92060 12 0 0 0 1 SUBTRACT LITERAL
92061 71 920 72 0 0 0 920 >NO JUMP IF A != 0
92059>92062 101 8191 1 3 0 select literal address
92063 32 0 0 0 10- SHIFT (AB) BY QUARTETS
92064 36 921 7 0 0 0 921 INSTRUCTION 13-BIT ADDRESS COLLATE AND ADD
92065 101 987 2 1 2 0 987 PTS(2,3)END subtract literal address
92066 73 920 80 0 0 0 920 >NORMAL ORDER NOT ADDRESSING PTS(1) JUMP IF A < 0
92067 35 0 0 0 11111 PREPARE FOR DIGIT COLLATION
92068 10 0 0 0 0 SELECT LITERAL
Source image: P1000789.JPG
92069 36 921 7 0 0 0 921 COLLATE AND ADD
92070 101 757 2 1 2 0 757 PTS(2,3)START IN PTS(1) subtract literal address
92082>92071 37 921 7 0 0 0 921 REPLACE SELECTED BITS
92061>92072 921 7 0 0 0 921 SELECT
92073 5 6 2 4 0 TRANSFER
92074 921 8 0 0 0 921 SELECT
92075 5 4 2 4 0 TRANSFER
92076 94 920 77 0 2 1 920 WORD MR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
92076>92077 94 920 15 0 4 4 920 >NEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
92078 80 919 2 0 0 0 919 ENTER SUBROUTINE
92079 76 920 8 0 0 0 920 >NEXT BLOCK JUMP unconditional
92066>92080 101 987 2 1 1 0 987 add literal address
92081 2 921 6 0 0 0 921 13-BIT CHUNK START SUBTRACT
92082 76 920 71 0 0 0 920 JUMP unconditional
92100 CONST 921 921 1 CONSTANTS
92102 (D);
92104 (A)£ ;
92106 (D)0; CHUNK START/ORDER
92108 0; A
92110 0; B
92112 0; C
92114 0; A
92116 0; B
92118 0; C
92200 PROCR 922 922 2001 WRITE START BLOCK
92202 124 922 32 1 0 0 922 >FROM PASS1 unconditional jump
92203 124 923 2 1 0 0 923 >FROM PROGRAMME unconditional jump
92204 124 935 2 1 0 0 935 >FROM OPT 20 AND ABDON unconditional jump
92205 124 937 2 1 0 0 937 >FROM OVERLAY(END) unconditional jump
92206 76 939 2 0 0 0 939 >FROM OVERLAY(START) JUMP unconditional
92207 10 0 0 0 2 (FROM PROGRAM UNLOAD) SELECT LITERAL
92208 5 741 2 0 0 0 741 SET 'END' IND TRANSFER
92209 76 931 4 0 0 0 931 JUMP unconditional
92210 100 0 0 0 0 LINK Halt
92211 124 755 2 0 3 0 755 PROG ID modify address of next
92212 106 39 0 0 0 WL select (N)
92213 5 932 2 0 0 0 932 TRANSFER
92214 124 922 22 0 2 0 922 select literal and division
92215 128 751 34 1 2 0 751 edit fixed field formats
92216 124 751 34 0 2 0 751 select literal and division
92217 125 4096 1 1 0 clear indicators
92218 124 951 8 0 3 0 951 modify address of next
92219 123 168 0 2 0 enter master routine
92220 100 951 8 0 3 0 951 set radix
92221 126 922 10 0 1 0 922 leave subroutine
92222 100 953 8 0 0 0 953 'PTS' ('OP') Halt
92223 101 515 0 0 0 2/0/3(0/0/3) table look up
92224 100 953 2 0 0 0 953 'ABAND' Halt
92225 101 21 0 0 0 1/5 table look up
92226 100 953 4 0 0 0 953 'ONS' Halt
92227 101 3 0 0 0 table look up
92228 100 932 2 0 0 0 932 PROG ID Halt
92229 100 21 0 0 0 1/5 Halt
92230 100 953 4 0 0 0 953 DOUBLE LE Halt
92231 117 770 0 0 0 3/0/2 special select
92242>
92202>92232 100 950 6 0 2 0 950 replace (B) by (N)
92233 101 7 1 3 0 select literal address
Source image: P1000790.JPG
92234 126 749 2 0 0 0 749 enter subroutine
92235 124 950 8 1 2 0 950 modify address of next
92236 106 4 1 0 0 select (N)
92237 105 953 6 1 0 0 953 subtract (N) from (A)
92238 127 922 43 0 0 0 922 >YES jump A = Z
92239 124 950 8 1 2 0 950 modify address of next
92240 106 12 1 0 0 select (N)
92241 105 951 4 1 0 0 951 subtract (N) from (A)
92242 127 922 32 0 1 0 922 >NO jump A != Z
92238>92243 100 954 2 0 2 0 954 replace (B) by (N)
92244 101 44 1 3 0 select literal address
92245 126 749 2 0 0 0 749 >STEP BACK 1 I/P> enter subroutine
92246 124 952 14 0 2 0 952 SET UP select literal and division
92247 102 930 11 0 0 0 930 IND MOD REG transfer (A) to N
92248 124 952 16 0 2 0 952 AND ANOTHER select literal and division
92249 102 933 10 0 0 0 933 transfer (A) to N
92250 0 755 2 0 0 0 755 SWITCH START SELECT
92251 101 39 1 1 0 add literal address
92252 5 952 12 0 0 0 952 ADDRESS OF PROG ID TRANSFER
92253 124 952 2 0 2 0 952 select literal and division
92254 124 950 8 1 2 0 950 -123 modify address of next
92255 128 4 1 2 0 EDIT 'START' BLOCK edit fixed field formats
92256 126 942 2 0 0 0 942 >WRITE BLOCK, SET TAG 15 enter subroutine
92257 125 4096 1 1 0 SET NON INT clear indicators
92258 0 955 6 1 0 0 955 SELECT
92259 124 755 6 0 3 0 755 8X MOD GROUP modify address of next
92260 128 2 0 0 0 CLEAR PROGS MOD REGISTERS bulk copy short numeric
92261 10 0 0 0 SELECT LITERAL
92262 3 744 75 0 0 0 744 SET 'PROG IN CONTROL' COPY
92263 5 949 11 0 0 0 949 SET 'STATE OF TAPE' IND TRANSFER
92264 100 755 8 1 1 0 755 RESTORE ORIGINAL (ABC) replace registers
92265 126 755 7 0 3 0 755 >GO TO PROGS ENTRY POINT leave master routine
92300 PROCR 923 923 2002 ENTRY FROM PM POINT VIA 172-STORE LINKS, TEST TIME FOR PM
92203>92302 100 952 2 1 0 0 952 (ABC)>WL AND PROG SWITCH copy registers
92303 124 755 2 0 3 0 755 modify address of next
92304 100 30 1 0 0 copy registers
92305 100 951 8 0 3 0 951 BIN set radix
92306 106 955 2 1 0 0 955 STORE CONTENTS OF select (N)
92307 104 755 6 0 0 0 755 PROG'S MOD REGS add (N) to (A)
92308 128 952 8 0 0 0 952 bulk copy short numeric
92309 5 744 75 0 0 0 744 SET 'PTS IN CONTROL' TRANSFER
92310 101 15 0 1 0 prepare for digit collation
92311 124 951 8 0 3 0 951 modify address of next
92312 115 172 0 0 0 ADDRESS OF PM SR LINK collate and add
92313 101 4 1 2 0 subtract literal address
92314 102 952 7 0 0 0 952 transfer (A) to N
92315 124 952 7 0 3 0 952 STORE PM SR LINK-1 modify address of next
92316 106 0 0 0 0 select (N)
92317 101 1 1 2 0 subtract literal address
92318 102 949 6 0 0 0 949 transfer (A) to N
92319 80 946 2 0 0 0 946 >SET MR2 TO SCAN PM LIST ENTER SUBROUTINE
92429>92320 106 0 0 2 0 select (N)
92321 105 949 6 0 0 0 949 subtract (N) from (A)
92322 71 924 28 0 0 0 924 >NO, STEP R2 JUMP IF A != 0
92323 106 6 1 2 0 TEST NOTHING TO DUMP select (N)
92324 70 924 5 0 0 0 924 >RETURN TO PROG JUMP IF A == 0
92325 10 0 0 0 0 SELECT LITERAL
92326 101 3 0 1 0 COLLATE N1 prepare for digit collation
92327 115 4 0 2 0 collate and add
Source image: P1000791.JPG
92328 127 924 2 0 1 0 924 >NO jump A != Z
92329 101 6 0 1 0 prepare for digit collation
92330 115 5 0 2 0 collate and add
92331 71 926 2 0 0 0 926 >NO,TAKE A DUMP JUMP IF A != 0
92400 PROCR 924 924 RETURN TO PROGRAM AFTER DUMP OR IF NOT DUMPING THIS TIME
92328>92402 106 4 0 2 0 AUGMENT N1 BY -1 select (N)
92403 101 1 1 2 0 subtract literal address
92404 102 4 0 2 0 transfer (A) to N
93014>
93460>
92324>92405 101 8 0 1 0 AUGMENT LINK BY prepare for digit collation
92406 115 5 0 2 0 24 ACTION IND collate and add
92407 118 4125 0 0 0 shift logical
92408 124 952 7 0 3 0 952 modify address of next
92409 107 0 0 0 0 augment (N) by (A)
92410 106 2 0 2 0 REPLACE INSTRUCTIONS select (N)
92411 124 952 7 0 3 0 952 modify address of next
92412 102 4 0 0 0 transfer (A) to N
92413 106 3 0 2 0 select (N)
92414 124 952 7 0 3 0 952 modify address of next
92415 102 5 0 0 0 transfer (A) to N
92416 102 949 2 1 0 0 949 CLEAR W/L'S 1,2 transfer (A) to N
92417 102 949 4 0 0 0 949 AND 3 transfer (A) to N
92418 106 956 2 1 0 0 956 select (N)
92419 124 755 6 0 3 0 755 PROG'S MOD REGS modify address of next
92420 128 2 0 0 0 bulk copy short numeric
92421 125 4096 1 1 0 clear indicators
92422 10 0 0 0 1 SELECT LITERAL
92423 5 744 75 0 0 0 744 SET'PROG IN CONTROL' TRANSFER
92424 76 924 25 0 0 0 924 DUMMY JUMP unconditional
92424>92425 100 952 2 1 1 0 952 RESTORE A B replace registers
92426 124 951 8 0 3 0 951 modify address of next
92427 126 172 0 3 0 >RETURN TO PROGRAM VIA PTS SR leave master routine
92322>92428 125 18 0 2 0 step on and test
92429 76 923 20 0 0 0 923 >NEXT PM POINT JUMP unconditional
92430 126 922 10 0 0 0 922 >TYPE'PTS ABANDONS(PROG)' enter subroutine
92431 76 935 10 0 0 0 935 >CONTINUE AS IF ABDON COMMAND JUMP unconditional
92500 PROCR 925 925 2004 TYPE'PTS ABANDONS(PROG)'
92600 PROCR 926 926 2005 SET UP HEADING BLOCK
92331>92602 101 16 1 2 0 STEP N3 BY -1 subtract literal address
92603 114 5 0 2 0 replace selected bits
92604 106 949 11 0 0 0 949 select (N)
92605 127 926 7 0 1 0 926 >YES jump A != Z
92606 126 948 2 0 0 0 948 >RUN FORWARD TO FINIS:STEP BACK 1 enter subroutine
92605>92607 101 15 1 3 0 SET STATE OF TAPE INAT 15 select literal address
92608 102 949 11 0 0 0 949 transfer (A) to N
92609 101 24 0 1 0 SET N1=N2 prepare for digit collation
92610 115 4 0 2 0 collate and add
92611 118 4125 0 0 0 shift logical
92612 107 4 0 2 0 augment (N) by (A)
92613 125 0 1 2 0 interrogate indicators
92614 101 16 0 1 0 prepare for digit collation
92615 115 5 0 2 0 collate and add
92616 103 949 4 0 0 0 949 COPY TAPE TO W/L 3 copy (A) to N
92617 105 950 2 0 0 0 950 subtract (N) from (A)
92618 127 926 21 0 1 0 926 >NO jump A != Z
92619 106 950 2 0 0 0 950 select (N)
Source image: P1000792.JPG
92620 124 935 16 1 0 0 935 >YES unconditional jump
92618>92621 126 947 2 0 0 0 947 >TRANSFER CONTENTS OF MOD REGS TO O/P SEenter subroutine
92622 106 1 0 2 0 TRANSFER I/C SERIAL select (N)
92623 124 950 8 1 2 0 950 TO O/P SECN modify address of next
92624 102 9 1 0 0 transfer (A) to N
92625 126 951 8 1 1 0 951 SET(MR1)=10/0 set modification register
92626 126 951 10 1 3 0 951 SET(MR3)=5/0 set modification register
92633>92627 106 952 2 0 3 0 952 TRANSFER CONTENTS select (N)
92628 124 950 8 1 2 0 950 OF (A), (B), C) TO modify address of next
92629 102 11 1 1 0 O/P SECN transfer (A) to N
92630 125 2 0 1 0 STEP MR1 step on and test
92631 124 926 32 1 0 0 926 > unconditional jump
92631>92632 125 1 0 3 0 STEP MR3 step on and test
92633 124 926 27 1 0 0 926 > unconditional jump
92700 PROCR 927 927 2006 SET UP HEADING BLOCK (2)
92702 101 1 1 3 0 SET HEADING IND select literal address
92703 102 949 7 0 0 0 949 transfer (A) to N
92704 106 951 12 1 0 0 951 SET IND MOD AT 12/0 select (N)
92705 102 952 14 1 0 0 952 transfer (A) to N
93012>92706 106 949 4 0 0 0 949 TRANSFER PM TYPE TO SECN select (N)
92707 124 950 8 1 2 0 950 modify address of next
92708 103 7 1 0 0 TEST PM TYPE 6 copy (A) to N
92709 105 950 9 0 0 0 950 subtract (N) from (A)
92710 127 933 2 0 0 0 933 >YES jump A = Z
92711 127 927 20 0 2 0 927 >YES TEST TYPE >6 jump A >= Z
92712 30 0 0 0 4- SHIFT (A) BY QUARTETS
92713 101 2 1 1 0 TEST TYPE 4 add literal address
92714 127 927 17 0 0 0 927 >YES jump A = Z
92715 101 2 1 1 0 TEST TYPE 2 add literal address
92716 127 927 23 0 1 0 927 >NO jump A != Z
92714>92717 101 1 1 3 0 SET COMP DUMP TAKEN select literal address
92718 102 949 9 0 0 0 949 transfer (A) to N
92719 124 927 23 1 0 0 927 > unconditional jump
92711>92720 103 949 10 0 0 0 949 SET CLEO DUMP TAKEN IND copy (A) to N
92721 105 950 3 0 0 0 950 TEST TYPE 9 DUMP subtract (N) from (A)
92722 127 933 2 0 0 0 933 >YES jump A = Z
92719>
92716>92723 124 952 14 0 1 0 952 TEST ZERO CHAP modify address of next
92724 106 6 0 2 0 OR SECN START select (N)
92725 127 930 13 0 0 0 930 >YES END OF DUMP jump A = Z
92726 127 927 34 0 2 0 927 >NO TEST IF TRANSIT AREAjump A >= Z
92727 106 952 14 0 0 0 952 select (N)
92728 124 755 6 0 3 0 755 modify address of next
92729 104 4 0 0 0 add (N) to (A)
92730 102 949 5 0 0 0 949 W/L transfer (A) to N
92731 124 949 5 0 1 0 949 modify address of next
92732 124 6 0 3 0 modify address of next
92733 106 0 0 0 0 TRANSIT AREA START select (N)
92726>92734 118 6 0 0 0 FORM UP 13 BIT ADD shift logical
92735 118 4122 0 0 0 OF SECTION OR CHAP START shift logical
92736 103 952 18 0 0 0 952 SET (MR1) AT START/Scopy (A) to N
92737 124 950 8 1 2 0 950 +LENGTH modify address of next
92738 103 33 1 0 0 TRANSFER (MR1) TO copy (A) to N
92739 124 952 14 0 1 0 952 O/P SECN modify address of next
92740 104 7 0 2 0 SECTION LENGTH add (N) to (A)
92741 118 6 0 0 0 FORM UP 15 BIT ADD shift logical
92742 118 4122 0 0 0 OF SECTION END shift logical
92743 103 952 19 0 0 0 952 copy (A) to N
92744 124 950 8 1 2 0 950 modify address of next
Source image: P1000793.JPG
92745 102 35 1 0 0 transfer (A) to N
92746 101 3 0 1 0 prepare for digit collation
92747 124 952 14 0 1 0 952 modify address of next
92748 115 8 0 2 0 CHAP OR SECN NO collate and add
92749 126 941 2 0 0 0 941 >CONVERT TO DEC enter subroutine
92750 124 950 8 1 2 0 950 modify address of next
92751 107 7 1 0 0 augment (N) by (A)
92800 PROCR 928 928 2007 OUTPUT THIS DUMP'S HEADING BLOCK
93320>
93619>
93631>92802 106 949 7 0 0 0 949 select (N)
92803 127 928 9 0 0 0 928 >NO jump A = Z
92804 125 0 1 2 0 CLEAR IND interrogate indicators
92805 102 949 7 0 0 0 949 transfer (A) to N
92806 101 4096 1 3 0 SET IND IN O/P SECN select literal address
92807 124 950 8 1 2 0 950 1 IN Q4 modify address of next
92808 107 7 1 0 0 32=ABS START,34=ABS END AREA DUMPED augment (N) by (A)
92803>92809 106 951 2 1 0 0 951 4='DUMPS',36=BEW select (N)
92810 124 950 8 1 2 0 950 (6)Q1+2=DEC SEC/CHAP,Q4=HEAD IND modify address of next
92811 102 4 1 0 0 Q5=DUMP TYPE transfer (A) to N
92812 106 951 18 1 0 0 951 10,12,14=(ABC) 8=PM POINT select (N)
92813 124 950 8 1 2 0 950 modify address of next
92814 102 36 1 0 0 BEW transfer (A) to N
92815 126 942 2 0 0 0 942 >WRITE BLOCK S/R enter subroutine
92900 PROCR 929 929 2008 MAIN DUMP ROUTINE
92902 126 943 2 0 0 0 943 >SET (MR3)=(123)+48/(123) enter subroutine
92903 106 949 3 0 0 0 949 select (N)
92904 127 934 2 0 1 0 934 >YES jump A != Z
92905 101 20 1 3 0 SET ABSURD TAG select literal address
92906 102 951 22 0 0 0 951 transfer (A) to N
92933>
92935>92907 124 952 18 0 3 0 952 modify address of next
92908 123 0 0 3 0 select tag
92909 105 951 22 0 0 0 951 subtract (N) from (A)
92910 127 929 18 0 0 0 929 >NO jump A = Z
92911 107 951 22 0 0 0 951 STORE NEW TAG augment (N) by (A)
92912 106 951 22 1 0 0 951 TRANSFER TAG CHANGE select (N)
92913 102 4 1 3 0 WORD TO O/P SECN transfer (A) to N
92914 102 6 1 3 0 transfer (A) to N
92915 125 4 0 3 0 step on and test
92916 124 929 18 1 0 0 929 >NO unconditional jump
92917 126 944 2 0 0 0 944 >OUTPUT BLOCK AND enter subroutine
92916>
92910>92918 106 951 14 1 0 0 951 select (N)
92919 104 952 18 0 0 0 952 add (N) to (A)
92920 124 755 6 0 3 0 755 modify address of next
92921 124 6 0 1 0 COPY LONG WORD modify address of next
92922 128 5 0 1 0 TO O/P SECN bulk copy short numeric
92923 126 952 18 1 1 0 952 set modification register
92924 125 2 0 1 0 step on and test
92925 124 929 27 1 0 0 929 >NO unconditional jump
92926 124 930 2 1 0 0 930 >YES unconditional jump
92925>92927 101 2 1 3 0 STEP INDIRECT MOD select literal address
92928 107 952 18 0 0 0 952 augment (N) by (A)
92929 106 952 18 0 0 0 952 TEST IF SECN ENDS AT 7/8191 select (N)
92930 118 4124 0 0 0 shift logical
92931 127 930 2 0 1 0 930 >YES jump A != Z
92932 125 4 0 3 0 step on and test
Source image: P1000794.JPG
92933 124 929 7 1 0 0 929 >NO unconditional jump
92934 126 944 2 0 0 0 944 >OUTPUT BLOCK AND RESET (MR3) enter subroutine
92935 124 929 7 1 0 0 929 > unconditional jump
93000 PROCR 930 930 2009 END OF DUMPS
92931>
92926>93002 125 4 0 3 0 step on and test
93003 124 930 4 1 0 0 930 unconditional jump
93003>93004 126 944 2 0 0 0 944 >WRITE BLOCK enter subroutine
93005 106 952 19 0 0 0 952 select (N)
93006 2 941 9 0 0 0 941 SUBTRACT
93007 127 936 6 0 0 0 936 >YES jump A = Z
93008 106 949 2 0 0 0 949 select (N)
93009 127 930 16 0 1 0 930 >YES jump A != Z
93010 123 3 0 0 0 step on and test
93011 100 952 14 0 0 0 952 Halt
93012 124 927 6 1 0 0 927 >NO unconditional jump
93022>
92725>93013 745 49 0 0 0 745 SELECT
93014 70 924 5 0 0 0 924 >NORMAL JUMP IF A == 0
93015 76 935 10 0 0 0 935 >DO FINAL DUMP AFTER THIS JUMP unconditional
93009>93016 126 952 14 1 1 0 952 set modification register
93017 125 1 0 1 0 step on and test
93018 124 930 23 1 0 0 930 >NO unconditional jump
93019 106 949 4 0 0 0 949 select (N)
93020 70 931 2 0 0 0 931 >YES,END OF FINAL DUMP JUMP IF A == 0
93021 125 0 1 2 0 interrogate indicators
93022 76 930 13 0 0 0 930 >THIS WAY FOR TYPE 5 JUMP unconditional
93018>93023 101 1 1 3 0 STEP IND MOD select literal address
93024 107 952 14 0 0 0 952 augment (N) by (A)
93025 124 936 6 1 0 0 936 > unconditional jump
93100 PROCR 931 931 2010 ENTRY FROM PROGRAMUNLOAD
93020>93102 5 741 2 0 0 0 741 SET'ABDON'IND TRANSFER
93103 125 4096 1 1 0 clear indicators
92209>93104 5 744 75 0 0 0 744 SET 'PTS IN CONTROL' TRANSFER
93105 949 10 0 0 0 949 TEST CLEO DUMP TAKEN SELECT
93106 127 931 14 0 1 0 931 >YES jump A != Z
93107 124 951 8 0 3 0 951 TEST BTS PRINTS ON-LINE modify address of next
93108 106 26 0 0 0 (3) select (N)
93109 127 931 14 0 0 0 931 >NO jump A = Z
93110 12 0 0 0 1 SUBTRACT LITERAL
93111 71 932 17 0 0 0 932 >YES O'LAY PASS 3 JUMP IF A != 0
93112 106 949 9 0 0 0 949 TEST ANY DUMPS 2 OR 4 TAKEN(COMPARISONS)select (N)
93113 127 932 17 0 1 0 932 >YES O'LAY PASS 3 jump A != Z
93109>
93106>93114 106 949 11 0 0 0 949 select (N)
93115 127 931 17 0 1 0 931 >YES jump A != Z
93116 80 948 2 0 0 0 948 >GET TO'FINIS'BEFORE CLOSING FILE ENTER SUBROUTINE
93115>93117 101 28 1 3 0 select literal address
93118 126 749 2 0 0 0 749 >CLOSE RTE 7 TAPE enter subroutine
93119 125 4096 1 1 0 SET NON INT clear indicators
93120 0 745 49 0 0 0 745 '2/0/1' IND SELECT
93121 71 745 53 0 0 0 745 >YES JUMP IF A != 0
93122 0 741 2 0 0 0 741 'PROG END' IND SELECT
93123 70 745 50 0 0 0 745 >NO JUMP IF A == 0
93124 0 745 85 0 0 0 745 1/1/3 2 SELECT
93125 5 745 60 0 0 0 745 TRANSFER
93126 76 745 50 0 0 0 745 JUMP unconditional
93127 10 0 0 0 0 DUMMY ORDER SELECT LITERAL
Source image: P1000795.JPG
93200 PROCR 932 932 2011 PREPARE TO READ IN PASS 3
93202 100 0 0 0 0 LINK Halt
93203 106 949 11 0 0 0 949 TEST TAPE ALIGNED select (N)
93204 127 932 16 0 0 0 932 >NO jump A = Z
93205 100 951 28 1 2 0 951 RUN BACK TO START replace (B) by (N)
93206 101 35 1 3 0 (O/P) select literal address
93207 126 749 2 0 0 0 749 enter subroutine
93208 101 10 1 3 0 10=WORD HOLDING IDENTIFIER select literal address
93209 30 0 0 0 5 SHIFT (A) BY QUARTETS
93210 124 744 72 0 3 0 744 modify address of next
93211 104 55 0 0 0 (3) add (N) to (A)
93212 32 0 0 0 10- SHIFT (AB) BY QUARTETS
93213 101 36 1 3 0 select literal address
93214 126 749 2 0 0 0 749 > enter subroutine
93215 101 1 1 3 0 select literal address
93204>93216 126 932 2 0 1 0 932 >LEAVE S/R leave subroutine
93113>
93111>93217 101 40 1 3 0 select literal address
93218 34 744 70 0 0 0 744 SET (N) IN B
93219 106 749 2 0 0 0 749 DUMMY select (N)
93220 80 932 2 0 0 0 932 >ALIGN TAPE ENTER SUBROUTINE
93227>93221 100 950 6 0 2 0 950 READ TO START replace (B) by (N)
93222 101 7 1 3 0 OF PASS 3 OF select literal address
93223 126 749 2 0 0 0 749 >READ enter subroutine
93224 124 950 8 1 2 0 950 modify address of next
93225 106 12 1 0 0 select (N)
93226 105 951 26 1 0 0 951 subtract (N) from (A)
93227 71 932 21 0 0 0 932 >NOT AT 'CHIPT' YET JUMP IF A != 0
93228 0 745 49 0 0 0 745 '2/0/1' IND SELECT
93229 70 744 2 0 0 0 744 >NOT SET, NORMAL OLAY JUMP IF A == 0
93230 125 4096 1 1 0 clear indicators
93231 126 749 9 0 0 0 749 >SET(71)FOR MASTER enter subroutine
93232 101 40 1 3 0 select literal address
93233 34 744 70 0 0 0 744 SET (N) IN B
93234 80 749 2 0 0 0 749 >BACK 1 I/P>I/P ENTER SUBROUTINE
93235 125 4096 1 1 0 clear indicators
93236 124 755 2 0 3 0 755 CLOSE PROGM SWITCH modify address of next
93237 106 9 0 0 0 select (N)
93238 124 755 2 0 3 0 755 modify address of next
93239 102 7 0 0 0 transfer (A) to N
93240 124 744 72 1 1 0 744 MG 0 set modification group
93241 76 744 20 0 0 0 744 >CONTINUE WITH OLAY JUMP unconditional
93300 PROCR 933 933 2012 FORM UP NUMBER OF TRACE POINTS
92722>
92710>93302 101 1 1 3 0 SET W/L 2 NON ZERO select literal address
93303 102 949 3 0 0 0 949 transfer (A) to N
93304 106 951 12 1 0 0 951 SET IND MOD=12:0 select (N)
93305 102 952 16 1 0 0 952 TEST I/C SERIAL transfer (A) to N
93311>93306 124 952 16 0 1 0 952 modify address of next
93307 106 7 0 2 0 select (N)
93308 127 933 12 0 0 0 933 >YES jump A = Z
93309 123 2 0 0 0 TEST END OF TRACE PT step on and test
93310 100 952 16 0 0 0 952 Halt
93311 124 933 6 1 0 0 933 >NO unconditional jump
93308>93312 106 952 16 0 0 0 952 select (N)
93313 124 950 8 1 2 0 950 TRANSFER 2XNO OF modify address of next
93314 102 35 1 0 0 TRACE PTS TO O/P SECN transfer (A) to N
93315 124 950 8 1 2 0 950 modify address of next
Source image: P1000796.JPG
93316 102 33 1 0 0 transfer (A) to N
93317 106 952 16 0 0 0 952 SET IND MOD AT 2XNO OF TRACE PTS/0 select (N)
93318 118 5 0 0 0 shift logical
93319 102 952 14 1 0 0 952 transfer (A) to N
93320 124 928 2 1 0 0 928 > unconditional jump
93400 PROCR 934 934 2013 DUMP TRACE POINTS
93464>
93466>
92904>93402 125 0 1 2 0 interrogate indicators
93403 100 950 12 0 2 0 950 BIT 20 TEST SEC OR PROCR replace (B) by (N)
93404 124 952 14 0 1 0 952 modify address of next
93405 115 7 0 2 0 collate and add
93406 127 934 16 0 0 0 934 >PROCR jump A = Z
93407 125 0 1 2 0 interrogate indicators
93408 100 950 13 0 2 0 950 BITS 14->19 replace (B) by (N)
93409 124 952 14 0 1 0 952 0 modify address of next
93410 115 7 0 2 0 REF collate and add
93411 118 3 0 3 0 shift binary
93412 118 4124 0 0 0 shift logical
93413 102 7 1 3 0 transfer (A) to N
93414 100 950 11 0 2 0 950 BITS 1->13 replace (B) by (N)
93415 124 934 22 1 0 0 934 > unconditional jump
93406>93416 101 28 0 1 0 Q3,4,5 prepare for digit collation
93417 124 952 14 0 1 0 952 modify address of next
93418 115 7 0 2 0 REF collate and add
93419 118 4126 0 0 0 shift logical
93420 102 7 1 3 0 transfer (A) to N
93421 101 3 0 1 0 prepare for digit collation
93415>93422 124 952 14 0 1 0 952 modify address of next
93423 115 7 0 2 0 ITEM collate and add
93424 102 5 1 3 0 transfer (A) to N
93425 101 15 0 1 0 prepare for digit collation
93426 124 952 14 0 1 0 952 TRANSFER REL ADD TO modify address of next
93427 115 6 0 2 0 O/P SECN collate and add
93428 102 9 1 3 0 transfer (A) to N
93429 101 16 0 1 0 prepare for digit collation
93430 124 952 14 0 1 0 952 FORM UP 2X CHAP NO modify address of next
93431 115 6 0 2 0 collate and add
93432 118 4124 0 0 0 shift logical
93433 118 1 0 3 0 shift binary
93434 126 945 2 0 0 0 945 >FORM UP CHAP START enter subroutine
93435 102 952 16 1 0 0 952 START+END transfer (A) to N
93436 106 952 16 0 0 0 952 START ONLY select (N)
93437 104 9 1 3 0 add (N) to (A)
93438 103 11 1 3 0 TRANSFER ABS ADD TO O/P SECN copy (A) to N
93439 103 949 5 0 0 0 949 W/L copy (A) to N
93440 118 3 0 3 0 ROUND DOWN TO EVEN ADDRESS shift binary
93441 118 4127 0 0 0 shift logical
93442 118 1 0 3 0 shift binary
93443 104 951 14 1 0 0 951 add (N) to (A)
93444 104 951 14 1 0 0 951 add (N) to (A)
93445 124 755 6 0 3 0 755 COPY 2 LONG WORDS modify address of next
93446 124 6 0 1 0 modify address of next
93447 128 13 0 1 0 bulk copy short numeric
93448 124 949 5 0 3 0 949 TFRANSFER TAG TO O/P SECN modify address of next
93449 123 0 0 3 0 select tag
93450 101 64 1 1 0 add literal address
93451 118 8 0 0 0 shift logical
93452 104 6 1 3 0 add (N) to (A)
Source image: P1000797.JPG
93453 102 6 1 3 0 transfer (A) to N
93454 126 952 14 1 1 0 952 TEST END OF TRACE POINTS set modification register
93455 125 2 0 1 0 step on and test
93456 124 934 61 1 0 0 934 >NO unconditional jump
93457 106 951 18 1 0 0 951 SET UP B/E WORD select (N)
93458 102 20 1 3 0 transfer (A) to N
93459 126 942 2 0 0 0 942 >WRITE BLOCK enter subroutine
93460 124 924 5 1 0 0 924 > unconditional jump
93456>93461 101 2 1 3 0 STEP IND MOD select literal address
93462 107 952 14 0 0 0 952 augment (N) by (A)
93463 125 16 0 3 0 TEST END OF BLOCK step on and test
93464 124 934 2 1 0 0 934 >NO unconditional jump
93465 126 944 2 0 0 0 944 >OUTPUT BLOCK AND RESET (MR3) enter subroutine
93466 124 934 2 1 0 0 934 > unconditional jump
93500 PROCR 935 935 2014 FROM UNLOADER WHEN PROG IS ABANDONED
92204>93502 10 0 0 0 0 SELECT LITERAL
93503 5 744 75 0 0 0 744 SET 'PTS IN CONTROL' TRANSFER
93504 106 955 2 1 0 0 955 STORE CONTENTS select (N)
93505 104 755 6 0 0 0 755 OF PROGS MOD add (N) to (A)
93506 128 952 8 0 0 0 952 REGS bulk copy short numeric
93507 124 951 8 0 3 0 951 SET PROGS MOD modify address of next
93508 124 2 0 3 0 GROUP modify address of next
93509 124 29 1 1 0 set modification group
93015>
92431>93510 126 947 2 0 0 0 947 >TRANSFER CONTENTS OF MOD REGS TO O/P SEenter subroutine
93511 125 0 1 2 0 interrogate indicators
93512 102 949 4 0 0 0 949 CLEAR DUMP TYPE OF DUMP IN PROGRESS transfer (A) to N
93513 106 950 4 0 0 0 950 10 IN Q5 select (N)
93514 103 949 7 0 0 0 949 SET HEADING IND copy (A) to N
93515 103 949 8 0 0 0 949 SET TYPE 7 IND copy (A) to N
92620>93516 102 949 2 0 0 0 949 STORE TYPE IN W/L 1 transfer (A) to N
93517 0 949 11 0 0 0 949 TEST TAPE ALIGNED AT END OF DUMPS SELECT
93518 71 936 2 0 0 0 936 >YES JUMP IF A != 0
93519 80 948 2 0 0 0 948 >RUN FWD TO 'FINIS' ENTER SUBROUTINE
93520 10 0 0 0 SELECT LITERAL
93521 5 949 11 0 0 0 949 SET ALIGN IND TRANSFER
93600 PROCR 936 936 2015 INITIAL AND FINAL DUMPS
93518>93602 101 1 1 3 0 SET IND MOD AT select literal address
93603 103 952 14 0 0 0 952 NO OF CHAPS+1/1 copy (A) to N
93604 104 755 5 0 0 0 755 add (N) to (A)
93605 102 952 15 0 0 0 952 transfer (A) to N
93025>
93007>93606 106 949 2 0 0 0 949 TRANSFER PM TYPE select (N)
93607 124 950 8 1 2 0 950 TO O/P SECN modify address of next
93608 102 7 1 0 0 transfer (A) to N
93609 106 949 8 0 0 0 949 TEST TYPE 7 IND SET select (N)
93610 127 936 20 0 0 0 936 >NO jump A = Z
93611 0 941 9 0 0 0 941 PQ END FINAL DUMP SELECT
93612 103 952 19 0 0 0 952 copy (A) to N
93613 124 950 8 1 2 0 950 SET MOD REG IN O/P SECN modify address of next
93614 102 35 1 0 0 AT 600:0 transfer (A) to N
93615 102 952 18 0 0 0 952 transfer (A) to N
93616 124 950 8 1 2 0 950 modify address of next
93617 102 32 1 0 0 transfer (A) to N
93618 102 949 8 0 0 0 949 CLEAR TYPE 7 IND transfer (A) to N
93619 76 928 2 0 0 0 928 >JOIN UP WITH MAIN DUMP ROUTINE JUMP unconditional
93610>93620 0 952 14 0 0 0 952 CHAP NO INITIAL DUMP SELECT
93621 124 950 8 1 2 0 950 modify address of next
Source image: P1000798.JPG
93622 107 7 1 0 0 augment (N) by (A)
93623 104 952 14 0 0 0 952 add (N) to (A)
93624 126 945 2 0 0 0 945 .FORM UP CHAP START AND END enter subroutine
93625 103 952 18 1 0 0 952 copy (A) to N
93626 124 950 8 1 2 0 950 modify address of next
93627 102 33 1 0 0 transfer (A) to N
93628 106 952 19 0 0 0 952 select (N)
93629 124 950 8 1 2 0 950 modify address of next
93630 102 35 1 0 0 transfer (A) to N
93631 76 928 2 0 0 0 928 >JOIN UP WITH MAIN DUMP ROUTINE JUMP unconditional
93700 PROCR 937 937 2016 ENTRY AT END OF PROGRAM OVERLAY
92205>93702 126 946 2 0 0 0 946 >SET UP (MR2) enter subroutine
93728>93703 124 755 2 0 3 0 755 STORE OVERLAYED CHAP modify address of next
93704 106 32 0 0 0 select (N)
93705 103 949 2 0 0 0 949 copy (A) to N
93706 104 949 2 0 0 0 949 SET (MR1) AI add (N) to (A)
93707 104 755 3 0 0 0 755 ((2XCHAP NO)+SP CHAP START add (N) to (A)
93708 102 952 16 0 0 0 952 transfer (A) to N
93709 126 952 16 1 1 0 952 set modification register
93710 124 755 2 0 3 0 755 modify address of next
93711 106 30 0 0 0 TEST O'LAYING CHAP select (N)
93712 105 755 5 0 0 0 755 AN INITIAL CHAP subtract (N) from (A)
93713 127 937 15 0 3 0 937 >YES jump A < Z
93714 101 1 1 2 0 subtract literal address
93713>93715 104 755 5 0 0 0 755 STORE CORRECTED O'LAYING add (N) to (A)
93716 102 949 3 0 0 0 949 CHAP NO transfer (A) to N
93717 101 1 0 1 0 TEST PM PT DETAILS prepare for digit collation
93718 115 5 0 2 0 ZERO collate and add
93719 127 937 29 0 0 0 937 >YES jump A = Z
93720 105 949 3 0 0 0 949 TEST O'LAYING CHAP subtract (N) from (A)
93721 127 938 2 0 0 0 938 >YES jump A = Z
93722 104 949 3 0 0 0 949 add (N) to (A)
93723 105 949 2 0 0 0 949 TEST OVERLAID subtract (N) from (A)
93724 127 937 27 0 1 0 937 >NO jump A != Z
93725 105 0 0 2 0 SET PM POINT CLOSED subtract (N) from (A)
93726 102 0 0 2 0 transfer (A) to N
93853>
93724>93727 125 18 0 2 0 TEST ALL PTS step on and test
93728 124 937 3 1 0 0 937 CHECKED >NO unconditional jump
93719>93729 102 949 2 1 0 0 949 CLEAR WLS transfer (A) to N
93730 102 949 4 0 0 0 949 transfer (A) to N
93731 102 949 11 0 0 0 949 CLEAR STATE OF TAPE IND transfer (A) to N
93732 10 0 0 0 0 DUMMY ORDER SELECT LITERAL
93733 126 749 9 0 0 0 749 >RESTORE(71)FOR PTS enter subroutine
93734 124 951 8 0 3 0 951 modify address of next
93735 124 0 1 0 0 (40) unconditional jump
93800 PROCR 938 938 2017
93721>93802 101 4 0 1 0 TEST PM POINT prepare for digit collation
93803 115 4 0 2 0 NOT YET USED collate and add
93804 127 938 9 0 0 0 938 >YES jump A = Z
93805 125 0 1 2 0 interrogate indicators
93806 105 0 0 2 0 SET PM POINT subtract (N) from (A)
93807 102 0 0 2 0 OPEN transfer (A) to N
93808 124 938 41 1 0 0 938 > unconditional jump
93804>93809 106 949 2 0 0 0 949 SET ALLOCATED CHAP select (N)
93810 118 2 0 0 0 NO IN LIST shift logical
93811 114 4 0 2 0 replace selected bits
93812 124 951 8 0 3 0 951 modify address of next
Source image: P1000799.JPG
93813 106 18 0 1 0 FORM ABS ADD OF select (N)
93814 104 0 0 2 0 PM POINT add (N) to (A)
93815 103 0 0 2 0 copy (A) to N
93816 102 952 16 0 0 0 952 transfer (A) to N
93817 126 952 16 1 3 0 952 set modification register
93818 124 951 8 0 3 0 951 modify address of next
93819 106 0 0 3 0 STORE REPLACED INSTRUCTION select (N)
93820 103 2 0 2 0 copy (A) to N
93821 127 938 34 0 2 0 938 >YES TEST ACTION POSITIVE jump A >= Z
93822 105 2 0 2 0 FORM COMPLEMENT subtract (N) from (A)
93823 105 2 0 2 0 OF ACTION subtract (N) from (A)
93824 118 3 0 3 0 ALIGN INSTRUCTION shift binary
93825 118 4124 0 1 0 AT LEAST SIG END shift arithmetic
93826 101 64 1 2 0 subtract literal address
93827 127 938 36 0 0 0 938 >24/0/0 jump A = Z
93828 101 1 1 2 0 subtract literal address
93829 127 938 36 0 0 0 938 >24/0/1 jump A = Z
93830 101 2 1 2 0 subtract literal address
93831 127 938 36 0 0 0 938 >24/0/3 jump A = Z
93832 101 3 1 2 0 subtract literal address
93833 127 938 36 0 0 0 938 >24/1/2 jump A = Z
93821>93834 0 950 7 0 0 0 950 25/01/2000 SELECT
93835 124 938 40 1 0 0 938 > unconditional jump
93833>
93831>
93829>
93827>93836 101 4096 1 3 0 SET 24 ACTION IND select literal address
93837 107 5 0 2 0 IN LIST augment (N) by (A)
93838 124 951 8 0 3 0 951 modify address of next
93839 106 1 0 3 0 STORE NEXT INSTRUCTION select (N)
93835>93840 102 3 0 2 0 transfer (A) to N
93808>93841 106 0 0 2 0 select (N)
93842 102 952 16 0 0 0 952 transfer (A) to N
93843 126 952 16 1 3 0 952 set modification register
93844 34 950 11 0 0 0 950 BITS 1-13 SET (N) IN B
93845 124 951 8 0 3 0 951 modify address of next
93846 115 18 0 1 0 collate and add
93847 5 949 4 0 0 0 949 TRANSFER
93848 2 949 4 0 0 0 949 SUBTRACT
93849 2 755 4 0 0 0 755 (PARAS+1) SUBTRACT
93850 1 950 10 0 0 0 950 26/0/0 ADD
93851 124 951 8 0 3 0 951 modify address of next
93852 102 0 0 3 0 INSERT ENTRY POINT transfer (A) to N
93853 76 937 27 0 0 0 937 JUMP unconditional
93900 PROCR 939 939 2017A ENTRY AT START OF PROGRAM OVERLAY
92206>93902 80 932 2 0 0 0 932 >RUN BACK TO M/CODE START ENTER SUBROUTINE
93903 126 749 9 0 0 0 749 >SET(71)FOR MASTER enter subroutine
93904 10 0 0 0 0 DUMMY SELECT LITERAL
93905 0 949 11 0 0 0 949 REALIGNMENT IND SELECT
93906 124 951 8 0 3 0 951 modify address of next
93907 124 0 1 0 0 (45)->DO OVERLAY unconditional jump
94000 PROCR 940 940 2018 INSTRUCTION CONSTANTS FOR PASS 2
94100 PROCR 941 941 2019 CONVERT S/R
94102 100 0 0 0 0 Halt
94103 102 949 5 0 0 0 949 W/L transfer (A) to N
94104 100 950 5 0 3 0 950 SET DECIMAL set radix
94105 124 954 2 0 2 0 954 select literal and division
Source image: P1000800.JPG
94106 112 949 5 0 0 0 949 CONVERT TO DECIMAL convert
94107 100 951 8 0 3 0 951 SET BINARY set radix
94108 126 941 2 0 1 0 941 leave subroutine
94109 100 0 0 0 0 (49)CONST IN PROCR 2015=PQ END Halt
94200 PROCR 942 942 2020 WRITE S/R
94202 100 0 0 0 0 Halt
94203 100 950 6 0 2 0 950 replace (B) by (N)
94204 101 8 1 3 0 select literal address
94205 126 749 2 0 0 0 749 >I/P-O/P FOR RTE 7 S/R enter subroutine
94206 106 955 4 1 0 0 955 BULK CLEAR O/P SECN select (N)
94207 124 950 8 1 2 0 950 modify address of next
94208 128 0 1 1 0 bulk copy long numeric
94209 125 4096 1 1 0 clear indicators
94210 10 0 0 0 0 DUMMY ORDER SELECT LITERAL
94211 124 951 8 0 3 0 951 modify address of next
94212 126 0 0 0 0 (42)->SET TAG 15 enter subroutine
94213 126 942 2 0 1 0 942 >LEAVE S/R leave subroutine
94300 PROCR 943 943 2021 SET UP (MR3) S/R
94302 100 0 0 0 0 LINK Halt
94303 124 950 8 1 2 0 950 -123 modify address of next
94304 101 0 1 3 0 13-BIT ASL select literal address
94305 103 952 16 0 0 0 952 48+(123)/(123) copy (A) to N
94306 101 48 1 1 0 add literal address
94307 102 952 17 0 0 0 952 transfer (A) to N
94308 126 952 16 1 3 0 952 set modification register
94309 126 943 2 0 1 0 943 leave subroutine
94400 PROCR 944 944 2022 OUTPUT BLOCK AND RESET(MR3)S/R
94402 100 0 0 0 0 Halt
94403 106 951 18 1 0 0 951 SET UP B/E WORD select (N)
94404 102 4 1 3 0 transfer (A) to N
94405 126 942 2 0 0 0 942 >WRITE BLOCK enter subroutine
94406 126 943 2 0 0 0 943 >RESET (MR3) enter subroutine
94407 126 944 2 0 1 0 944 >LEAVE S/R leave subroutine
94500 PROCR 945 945 2023 FORM UP CHAP START AND END S/R
94502 81 945 2 0 0 0 945 START OF SUBROUTINE
94503 3 949 5 0 0 0 949 2XCHAP COPY
94504 1 755 3 0 0 0 755 SPECIAL CHAP START ADD
94505 5 946 2 0 0 0 946 WL TRANSFER
94506 124 951 8 0 3 0 951 modify address of next
94507 106 43 0 0 0 (3)PARA 43=TWICE PTS CHAP IN Q5 select (N)
94508 30 0 0 0 4- SHIFT (A) BY QUARTETS
94509 2 949 5 0 0 0 949 SUBTRACT
94510 70 945 13 0 0 0 945 >THIS CHAP CONTAINS PTS JUMP IF A == 0
94511 10 0 0 0 0 SELECT LITERAL
94512 76 945 15 0 0 0 945 JUMP unconditional
94510>94513 101 1500 1 2 0 REDUCE CHAP END BY PTS LENGTH subtract literal address
94514 30 0 0 0 5 SHIFT (A) BY QUARTETS
94512>94515 124 946 2 0 3 0 946 modify address of next
94516 104 18 1 0 0 CHAP DETAILS EX SPECIAL CHAPTER add (N) to (A)
94517 82 945 2 0 0 0 945 END OF SUBROUTINE / LEAVE SUBROUTINE
94600 PROCR 946 946 2024 SET UP(MR2) S/R
94602 100 0 0 0 0 Halt
94603 101 752 2 1 3 0 752 START OF LIST select literal address
94604 103 952 16 0 0 0 952 W/L copy (A) to N
94605 101 180 1 1 0 add literal address
Source image: P1000801.JPG
94606 102 952 17 0 0 0 952 transfer (A) to N
94607 126 952 16 1 2 0 952 set modification register
94608 126 946 2 0 1 0 946 >LEAVE S/R leave subroutine
94609 100 4097 1 0 0 CONST=09001(PROCR 2001) copy registers
94700 PROCR 947 947 2025 TRANSFER CONTENTS OF MOD REGS TO O/P SECN
94702 100 0 0 0 0 Halt
94703 126 951 12 1 1 0 951 SET (MR1) AT 12/0 set modification register
94704 126 951 20 1 3 0 951 SET (MR3) AT 6/0 set modification register
94712>94705 106 952 8 0 3 0 952 select (N)
94706 126 941 2 0 0 0 941 >CONVERT TO DECIMAL enter subroutine
94707 124 950 8 1 2 0 950 modify address of next
94708 102 21 1 1 0 transfer (A) to N
94709 125 2 0 1 0 step on and test
94710 124 947 11 1 0 0 947 > unconditional jump
94710>94711 125 1 0 3 0 step on and test
94712 124 947 5 1 0 0 947 > unconditional jump
94713 126 947 2 0 1 0 947 >LEAVE S/R leave subroutine
94800 PROCR 948 948 2026 RUN FWD TO FINIS,STEP BACK 1 S/R
94802 100 0 0 0 0 Halt
94811>94803 100 951 16 1 2 0 951 ///// IN WORD 2 replace (B) by (N)
94804 101 38 1 3 0 RUN BACK CONST select literal address
94805 126 749 2 0 0 0 749 >I/P O/P S/R RTE 7 enter subroutine
94806 124 951 8 0 3 0 951 modify address of next
94807 124 64 0 3 0 modify address of next
94808 106 4 1 0 0 select (N)
94809 101 0 1 1 0 add literal address
94810 105 953 6 1 0 0 953 subtract (N) from (A)
94811 127 948 3 0 1 0 948 >NO jump A != Z
94812 100 954 3 0 2 0 954 replace (B) by (N)
94813 101 44 1 3 0 select literal address
94814 126 749 2 0 0 0 749 >I/P O/P S/R enter subroutine
94815 126 948 2 0 1 0 948 >LEAVE S/R leave subroutine
94900 CONST 949 949 0 2027 SHORT W/L'S FOR PASS 2
94902 (D)0; W/L 1 ALSO USED IN O'LAY
94903 0; W/L 2 ALSO USED IN O'LAY
94904 0;
94905 0; GENARAL W/L
94906 0; W/L FOR PMSR LINK-1
94907 0; HEADING IND
94908 0; TYPE 10 IND
94909 0; COMP DUMP TAKEN IND
94910 0; CLEO DUMP TAKEN IND
94911 0; DUMP TAKEN SINCE O'LAY IND
95000 CONST 950 950 0 2028 SHORT CONSTANTS FOR PASS 2
95002 (D)50000;
95003 30000;
95004 Ю0000;
95005 66666;
95006 0003‼; 59
95007 98000-; 25/0/1 ORDER
95008 0007‼-; -(123) P RTE FOR RTE 7
95009 60000;
95010 Ю0000-; 26/0/0 ORDER
95011 01£££; BITS 1->13
95012 80000; BIT 20
95013 7.000; BITS 14->19
Source image: P1000802.JPG
95100 CONST 951 951 1 2029 LONG CONSTANTS FOR PASS 2
95102 (A)DUMPS;
95104 START;
95106 (D)6£6£6£6£6£; RESTART MARK WORD
95108 0000Ю00000; 10:0
95110 0000500000; 5:0
95112 0000+00000; 12:0
95114 0000200000; 2:0
95116 00002£££££;
95118 7.0000007.; BLOSK END WORD
95120 0000600000; 6:0
95122 7777000000; XX/TAG W/L
95124 00004£££££;
95126 (A)CHIPT;
95128 (D)0000Ю£££££;
95200 PROCR 952 952 2030 EDIT TABLE FOR'START'BLOCK,THEN LONG WL'S
95202 100 946 9 0 0 0 946 09001 Halt
95203 100 5 0 0 0 Halt
95204 100 175 0 0 0 DATE Halt
95205 100 5 0 0 0 Halt
95206 100 156 0 0 0 TIME Halt
95207 100 5 0 0 0 Halt
95208 100 951 6 0 0 0 951 ALIGN WORD Halt
95209 101 5 0 0 0 table look up
95210 100 952 18 0 0 0 952 'START' Halt
95211 101 5 0 0 0 table look up
95212 100 0 0 0 0 PROG ID Halt
95213 100 5 0 0 0 Halt
95214 100 49 0 0 0 (3)PQ END Halt
95215 100 5 0 0 0 Halt
95216 100 951 18 0 0 0 951 BEW Halt
95217 117 5 0 0 0 special select
95218 101 2419 0 3 0 CONST='START' interchange area addresses
95219 107 1845 0 1 0 augment (N) by (A)
95300 CONST 953 953 1 2031 TYPING ANNEXE FOR ABANDON
95302 (A)ABAND; TYPING CONSTANTS
95304 (A)ONS(D)5.5.;
95306 (A)FINIS;
95308 OPTS;
95400 CONST 954 954 1 2032 BINARY TO DECIMAL CONVERSION TABLE
95402 (D)0000000001;
95404 0000000016;
95406 0000000256;
95408 0000004096;
95410 0000065536;
95500 CONST 955 955 1 2033 BULK CLEAR COPY ITEMS
95502 (D)0000600002; BULK COPY MOD REGS
95504 2003600000; BULK CLEAR 54
95506 2000600000; BULK CLEAR 6
95600 PROCR 956 956 2034 TABLES
95602 100 952 8 0 0 0 952 RESTORE MOD REGS Halt
95603 100 6 0 0 0 Halt
95700 PROCR 957 957 3801 PREPERATION AND W/L'S
Source image: P1000803.JPG
95713>95702 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
95703 10 0 0 0 2 SELECT LITERAL
95704 4 957 7 0 0 0 957 (STEP ORDER) AUGMENT
95705 124 982 2 0 3 0 982 modify address of next
95706 124 3 0 3 0 SPECIAL CHAP START=R1 END VALUE modify address of next
95707 106 30 0 0 0 SCAN PROGRAM'S ALLOCATED ROUTE LIST select (N)
95708 114 979 22 0 0 0 979 STORE ROUTE NUMBER replace selected bits
95709 118 4124 1 0 0 RTE TYPE IN Q1 shift logical
95710 101 4 1 2 0 subtract literal address
95711 70 957 14 0 0 0 957 >ROUTE TYPE 4 JUMP IF A == 0
95712 101 5 1 2 0 subtract literal address
95713 127 957 2 0 1 0 957 >NOT PRINTER TRY NEXT ONE jump A != Z
95711>95714 124 751 34 0 2 0 751 PRINT ASL select literal and division
95715 1 957 31 0 0 0 957 14 IN Q5 ADD
95716 124 979 22 0 3 0 979 ROUTE modify address of next
95717 102 64 0 0 0 transfer (A) to N
95718 101 64 1 2 0 subtract literal address
95719 2 979 22 0 0 0 979 SUBTRACT
95720 5 979 23 0 0 0 979 FORM-(64+R) TRANSFER
95721 124 961 16 0 2 0 961 select literal and division
95722 102 965 23 0 0 0 965 transfer (A) to N
95723 124 980 6 0 2 0 980 select literal and division
95724 102 967 23 0 0 0 967 transfer (A) to N
95725 124 980 8 0 2 0 980 select literal and division
95726 102 967 27 0 0 0 967 transfer (A) to N
95727 979 22 0 0 0 979 SELECT
95728 124 982 2 0 3 0 982 RTE NO modify address of next
95729 102 26 0 0 0 (3) SET FOR PRINT SR transfer (A) to N
95730 76 962 2 0 0 0 962 JUMP unconditional
95731 114 0 0 0 0 CONST replace selected bits
95800 CONST 958 958 1 3001 EXTRA ROOM FOR 120 COLS
95802 (D);
95804 ;
95806 ;
95808 ;
95810 ;
95812 ;
95814 ;
95816 ;
95818 ;
95820 ;
95822 ;
95824 ;
95826 ;
95828 ;
95830 ;
95832 ;
95834 ;
95836 ;
95838 ;
95840 ;
95842 ;
95844 ;
95846 ;
95848 ;
95850 ;
95852 ;
95854 ;
95856 ;
Source image: P1000804.JPG
95858 ;
95860 ;
95862 ;
95864 ;
95866 ;
95900 CONST 959 959 1 3001A
95902 (D);
95904 ;
95906 ;
95908 ;
95910 ;
95912 ;
95914 ;
95916 ;
95918 ;
95920 ;
95922 ;
95924 ;
95926 ;
95928 ;
95930 ;
95932 ;
95934 ;
95936 ;
95938 ;
95940 ;
95942 ;
95944 ;
95946 ;
95948 ;
95950 ;
95952 ;
95954 ;
95956 ;
95958 ;
95960 ;
95962 ;
95964 ;
95966 ;
95968 ;
95970 ;
95972 ;
95974 ;
95976 ;
95978 ;
95980 ;
95982 ;
95984 ;
95986 ;
95988 ;
95990 ;
96000 PROCR 960 960 3001B=TABLE1
96002 100 981 16 0 0 0 981 'PRINT' Halt
96003 101 229 0 0 0 14/5 table look up
96004 100 981 18 0 0 0 981 'OUT' Halt
96005 101 19 0 0 0 1/3 table look up
96006 100 981 18 0 0 0 981 'OF' Halt
96007 101 786 0 0 0 3/1/2 table look up
Source image: P1000805.JPG
96008 100 981 24 0 0 0 981 'DUMPS' Halt
96009 101 21 0 0 0 1/3 table look up
96010 100 981 18 0 0 0 981 'OF' Halt
96011 101 786 0 0 0 3/1/2 table look up
96012 100 980 10 0 0 0 980 (PROG ID) Halt
96013 100 21 0 0 0 1/5 Halt
96014 100 981 26 0 0 0 981 'TAKEN' Halt
96015 101 21 0 0 0 1/5 table look up
96016 100 981 28 0 0 0 981 'ON' Halt
96017 101 18 0 0 0 1/2 table look up
96018 100 980 8 0 0 0 980 (DAY) Halt
96019 102 5154 0 0 0 1/4/2/2 transfer (A) to N
96020 100 980 8 0 0 0 980 (MONTH) Halt
96021 102 5650 0 0 0 1/6/1/2 transfer (A) to N
96022 100 980 8 0 0 0 980 (YEAR) Halt
96023 102 2066 0 0 0 8/1/2 transfer (A) to N
96024 100 981 28 0 0 0 981 'AT' Halt
96025 101 786 0 0 0 3/1/2 table look up
96026 100 980 7 0 0 0 980 (HRS) Halt
96027 100 4130 0 0 0 1/0/2/2 Halt
96028 100 980 7 0 0 0 980 (MINS) Halt
96029 100 4626 0 0 0 1/2/1/2 Halt
96030 100 981 34 0 0 0 981 BE Halt
96031 117 1089 0 0 0 4/4/1 special select
96032 100 0 0 0 0 BULK CLEAR Halt
96033 102 36 0 0 0 CONSTANT transfer (A) to N
96100 PROCR 961 961 DUMMY PROCEDURE
96200 PROCR 962 962 3002 RUN FORARD TO START AND OPEN PRINTER
96211>
95730>96202 100 980 6 1 2 0 980 SET CONST IN B replace (B) by (N)
96203 101 38 1 3 0 SET TYPE IN A select literal address
96204 126 749 2 0 0 0 749 >I/P O/P RTE 7 enter subroutine
96205 100 982 8 0 2 0 982 replace (B) by (N)
96206 101 7 1 3 0 select literal address
96207 126 749 2 0 0 0 749 >I/P O/P RTE 7 enter subroutine
96208 124 982 5 1 2 0 982 TEST IF START OF BLOCK modify address of next
96209 106 12 1 0 0 select (N)
96210 105 980 8 1 0 0 980 'START' subtract (N) from (A)
96211 127 962 2 0 1 0 962 >NO jump A != Z
96212 101 20 1 2 0 FORM T/E subtract literal address
96213 126 976 2 0 0 0 976 >FORM T/E S/R enter subroutine
96214 128 980 5 1 0 0 980 BULK COPY ALPHA->NUMERIC bulk copy alpha to short
96215 124 982 2 0 3 0 982 modify address of next
96216 106 138 1 0 0 STORE 6 CHARACTER DATE select (N)
96217 102 980 8 1 0 0 980 transfer (A) to N
96218 124 982 2 0 3 0 982 TEST IF CLOCK EXISTS modify address of next
96219 106 25 0 0 0 (3) select (N)
96220 127 962 23 0 1 0 962 >YES jump A != Z
96221 102 980 7 0 0 0 980 CLEAR TIME transfer (A) to N
96222 102 981 28 0 0 0 981 CLEAR 'AT' transfer (A) to N
96220>96223 76 962 26 0 0 0 962 *****SPARE ORDERS JUMP unconditional
96224 124 979 23 1 2 0 979 modify address of next
96225 128 0 1 1 0 bulk copy long numeric
96223>96226 101 10 1 3 0 select literal address
96227 126 978 2 0 0 0 978 >OPEN/CLOSE S/R enter subroutine
96228 106 960 32 1 0 0 960 CLEAR AREA select (N)
96229 128 744 2 1 1 0 744 bulk copy long numeric
96230 124 960 2 0 2 0 960 HEADING LINE select literal and division
Source image: P1000806.JPG
96231 126 977 2 0 0 0 977 >EDIT AND O/P S/R enter subroutine
96300 PROCR 963 963 3003 READ NEXT BLOCK,TEST DUMPS,TEST FINIS,END ROUTINE
96435>
96453>
96525>
96725>
96729>96302 100 982 8 0 2 0 982 READ NEXT BLOCK replace (B) by (N)
96303 101 7 1 3 0 select literal address
96304 126 749 2 0 0 0 749 >I/P O/P RTE 7 enter subroutine
96305 124 982 5 1 2 0 982 TEST DUMPS BLOCK modify address of next
96306 106 4 1 0 0 select (N)
96307 105 981 24 1 0 0 981 'DUMPS' subtract (N) from (A)
96308 127 964 2 0 0 0 964 >YES jump A = Z
96309 104 981 24 1 0 0 981 TEST FINIS BLOCK add (N) to (A)
96310 105 981 32 1 0 0 981 'FINIS subtract (N) from (A)
96311 127 965 2 0 1 0 965 >NO jump A != Z
96312 124 983 2 0 2 0 983 EDIT FINIS LINE select literal and division
96313 126 977 2 0 0 0 977 >EDIT AND O/P S/R enter subroutine
96314 101 20 1 3 0 CLOSE PRINTER FILE select literal address
96315 126 978 2 0 0 0 978 >OPEN/CLOSE S/R enter subroutine
96316 101 27 1 3 0 select literal address
96317 126 749 2 0 0 0 749 >CLOSE RTE 7 TAPE enter subroutine
96318 125 4096 1 1 0 SET NON -INT clear indicators
96319 0 741 2 0 0 0 741 ABDON/END'IND SELECT
96320 70 745 50 0 0 0 745 >ABDON JUMP IF A == 0
96321 0 745 85 0 0 0 745 1/1/3 2 SELECT
96322 5 745 60 0 0 0 745 TRANSFER
96323 76 745 50 0 0 0 745 >END JUMP unconditional
96400 PROCR 964 964 3004 PRINT HEADING BLOCKS
96308>96402 106 975 15 0 0 0 975 RESET ORDER select (N)
96403 102 965 2 0 0 0 965 transfer (A) to N
96404 126 976 2 0 0 0 976 >FORM T/E S/R UNPACK DUMPS BLOCK enter subroutine
96405 128 751 9 1 0 0 751 ALPHA->NUM bulk copy alpha to short
96406 751 10 0 0 0 751 DUMP TYPE IN Q5 SELECT
96407 118 4124 1 0 0 shift logical
96408 102 982 4 0 0 0 982 transfer (A) to N
96409 118 1 1 0 0 TEST HEADING IND SET shift logical
96410 127 964 24 0 0 0 964 >NO jump A = Z
96411 106 982 4 0 0 0 982 TEST DUMP TYPE 6 select (N)
96412 101 6 1 2 0 subtract literal address
96413 127 964 16 0 0 0 964 >YES jump A = Z
96414 751 23 0 0 0 751 TEST 600 LOCNS OF M/R TO BE OUTPUT SELECT
96415 127 964 54 0 0 0 964 >YES jump A = Z
96413>96416 124 983 4 0 2 0 983 (BLANK LINE) select literal and division
96417 126 977 2 0 0 0 977 >EDIT AND O/P S/R enter subroutine
96418 124 984 2 0 2 0 984 select literal and division
96419 126 977 2 0 0 0 977 >EDIT AND O/P S/R enter subroutine
96420 124 984 18 0 2 0 984 select literal and division
96421 126 977 2 0 0 0 977 >EDIT AND O/P S/R enter subroutine
96422 124 984 36 0 2 0 984 select literal and division
96423 126 977 2 0 0 0 977 >EDIT AND O/P S/R enter subroutine
96410>96424 106 982 4 0 0 0 982 TEST PM TYPE select (N)
96425 101 3 1 2 0 subtract literal address
96426 127 964 36 0 3 0 964 >1,2 jump A < Z
96427 101 2 1 2 0 subtract literal address
96428 127 964 40 0 3 0 964 >3,4 jump A < Z
96429 101 2 1 2 0 subtract literal address
96430 127 964 47 0 3 0 964 >5,6 jump A < Z
Source image: P1000807.JPG
96431 101 3 1 2 0 TEST DUMP TYPE 10 subtract literal address
96432 127 964 36 0 0 0 964 >YES jump A = Z
96433 106 964 35 0 0 0 964 STOP PROCESSING BLOCKS select (N)
96434 102 965 2 0 0 0 965 UNTIL NEXT DUMPS BLOCK transfer (A) to N
96435 124 963 2 1 0 0 963 >READ NEXT BLOCK unconditional jump
96432>
96426>96436 106 981 8 1 0 0 981 FORM UP CHAPTER CHAPTER FOR 1,2,7 select (N)
96437 102 981 16 1 0 0 981 OR SECTION transfer (A) to N
96438 106 981 10 1 0 0 981 select (N)
96439 124 964 44 1 0 0 964 unconditional jump
96428>96440 106 981 12 1 0 0 981 SECTION FOR 3,4 select (N)
96441 102 981 16 1 0 0 981 transfer (A) to N
96442 102 961 18 0 0 0 961 CLEAR INDICATORS transfer (A) to N
96443 106 981 14 1 0 0 981 select (N)
96439>96444 102 981 18 1 0 0 981 transfer (A) to N
96445 124 985 2 0 2 0 985 select literal and division
96446 126 977 2 0 0 0 977 >EDIT AND O/P S/R enter subroutine
96461>
96430>96447 751 24 0 0 0 751 START/END ADDRESSES SELECT
96448 118 5 0 0 0 128 FOR DUMP TYPE 6 shift logical
96449 104 751 23 0 0 0 751 add (N) to (A)
96450 103 961 16 1 0 0 961 FOR DUMP TYPE 6 copy (A) to N
96451 102 980 6 1 0 0 980 FOR SECT OR CHAP transfer (A) to N
96452 102 980 5 0 0 0 980 CLEAR CHAP ADDRESS C transfer (A) to N
96453 124 963 2 1 0 0 963 >READ NEXT BLOCK unconditional jump
96415>96454 102 981 26 0 0 0 981 SET 0-600 INDICATOR transfer (A) to N
96455 124 985 12 0 2 0 985 select literal and division
96456 126 977 2 0 0 0 977 HEADING LINES >EDIT AND O/P S/R enter subroutine
96457 124 984 36 0 2 0 984 select literal and division
96458 126 977 2 0 0 0 977 >EDIT AND O/P S/R enter subroutine
96459 124 985 22 0 2 0 985 select literal and division
96460 126 977 2 0 0 0 977 >EDIT AND O/P S/R enter subroutine
96461 124 964 47 1 0 0 964 unconditional jump
96500 PROCR 965 965 3005 TEST PM TYPE AND PROCESS PM TYPE 6
96311>96502 101 16 1 3 0 UNPACK ALPHA>NUMERIC select literal address
96503 126 976 2 0 0 0 976 >FORM T/E enter subroutine
96504 128 751 9 1 0 0 751 UNPACK bulk copy alpha to short
96505 106 982 2 1 0 0 982 SET IND MOD REG 2 select (N)
96506 102 980 8 1 0 0 980 0/48 transfer (A) to N
96728>96507 106 982 4 0 0 0 982 select (N)
96508 101 6 1 2 0 TEST PM TYPE 6 subtract literal address
96509 127 966 2 0 1 0 966 >NO jump A != Z
96510 102 980 2 0 0 0 980 CLEAR NEW/OLD IND FOR S/R transfer (A) to N
96511 124 980 8 0 1 0 980 STORE NEXT LONG WORD modify address of next
96512 124 751 13 0 2 0 751 AND FORM SIGN PARAS select literal and division
96513 126 975 2 0 0 0 975 >STORE LONG WORD ETC S/R enter subroutine
96514 124 980 8 0 1 0 980 modify address of next
96515 124 751 9 0 2 0 751 REL+ABS ADDRESS select literal and division
96516 1 979 24 1 0 0 979 4 IN Q6 ADD
96517 128 980 3 0 0 0 980 BULK COPY SHORT>SHORT bulk copy short numeric
96518 102 980 22 1 0 0 980 SET PARAS AT 0 FOR NEW WORD transfer (A) to N
96519 126 971 2 0 0 0 971 PRINT NEXT LINE FORM UP AND O/P S/R enter subroutine
96520 101 6 1 3 0 STEP IND MRS ADJUST IND MRS select literal address
96521 107 980 8 0 0 0 980 augment (N) by (A)
96522 123 2 0 0 0 TEST LAST TRACE step on and test
96523 100 961 16 0 0 0 961 Halt
96524 124 967 26 1 0 0 967 >NO, NEXT TRACE unconditional jump
96525 124 963 2 1 0 0 963 >YES, NEXT BLOCK unconditional jump
Source image: P1000808.JPG
96600 PROCR 966 966 PROCESS NEXT WORD ON MT BLOCK,DECODE IF AN INSTRUCTION
96509>96602 106 963 6 0 0 0 963 FORM UP ACTIONM TEST TAG CHANGE select (N)
96603 104 980 8 0 0 0 980 REQUIRED add (N) to (A)
96604 104 980 8 0 0 0 980 add (N) to (A)
96605 102 966 7 0 0 0 966 transfer (A) to N
96606 124 982 5 1 2 0 982 MODIFY BY 123 modify address of next
96607 106 0 1 0 0 *FORMED ORDER* NEXT WORD EX T/X AREA select (N)
96608 105 981 50 1 0 0 981 'XX ' subtract (N) from (A)
96609 127 966 14 0 3 0 966 >NOT CHANGE jump A < Z
96610 118 4 0 0 0 NEW TAG TO Q5 shift logical
96611 103 980 4 0 0 0 980 STORE NEW TAG copy (A) to N
96612 102 981 29 0 0 0 981 SET TAG CHANGE IND transfer (A) to N
96613 124 967 26 1 0 0 967 STEP MRS unconditional jump
96609>96614 101 0 1 3 0 SET PARAS=0 STORE NEW LONG WORD select literal address
96615 102 980 2 0 0 0 980 AND FORM SIGN PATTERtransfer (A) to N
96616 124 980 8 0 1 0 980 I/O MODIFIER modify address of next
96617 124 751 9 0 2 0 751 select literal and division
96618 80 975 2 0 0 0 975 >DECODE/STORE''AFTER'' ENTER SUBROUTINE
96619 10 0 0 0 0 DUMMY ORDER SELECT LITERAL
96620 124 982 2 0 3 0 982 modify address of next
96621 126 0 0 0 0 (42)SET TAG 15 enter subroutine
96622 101 2 1 3 0 FORM PARAS select literal address
96623 102 980 2 0 0 0 980 transfer (A) to N
96624 106 980 6 0 0 0 980 select (N)
96625 80 975 2 0 0 0 975 >DECODE/STORE''BEFORE'' ENTER SUBROUTINE
96626 106 980 16 1 0 0 980 TEST SIGN PATTERNS TEST WORDS EQUAL select (N)
96627 105 980 18 1 0 0 980 EQUAL subtract (N) from (A)
96628 127 966 32 0 1 0 966 >NO jump A != Z
96629 106 980 14 1 0 0 980 TEST MAGNITUDE EQUAL select (N)
96630 105 980 12 1 0 0 980 subtract (N) from (A)
96631 127 966 45 0 0 0 966 >YES ->YES jump A = Z
96628>96632 106 981 26 0 0 0 981 TEST 0-600 SET select (N)
96633 127 966 44 0 0 0 966 >YES jump A = Z
96634 0 980 6 0 0 0 980 ADDRESS TO WRITE INTO SELECT
96635 124 982 2 0 3 0 982 modify address of next
96636 105 3 0 0 0 R1 END=SPECIAL CHAP START subtract (N) from (A)
96637 73 966 40 0 0 0 966 >OK JUMP IF A < 0
96638 101 204 1 2 0 subtract literal address
96639 73 966 44 0 0 0 966 >NEVER OVERWRITE 0-203 OF SPECIAL CHAPTEJUMP IF A < 0
96637>96640 124 980 12 0 2 0 980 COPY NEW RECORD select literal and division
96641 104 980 20 1 0 0 980 TO STORE add (N) to (A)
96642 124 980 6 0 3 0 980 modify address of next
96643 128 0 0 0 0 bulk copy short numeric
96639>
96633>96644 101 1 1 3 0 SET EQUALITY INDIC select literal address
96631>96645 102 980 11 0 0 0 980 transfer (A) to N
96646 123 966 47 0 2 0 966 SET TAG 14 enter master routine
96647 100 0 0 0 0 Halt
96700 PROCR 967 967 TEST PM TYPE
96702 106 982 4 0 0 0 982 SWTICH BY PM TYPE select (N)
96703 101 5 1 2 0 subtract literal address
96704 127 967 20 0 0 0 967 jump A = Z
96705 101 1 1 1 0 add literal address
96706 127 968 2 0 0 0 968 jump A = Z
96707 101 2 1 1 0 add literal address
96708 127 968 2 0 0 0 968 jump A = Z
96709 106 981 29 0 0 0 981 TEST TAG CHANGE select (N)
96710 127 967 15 0 1 0 967 >YES INDICATOR SET jump A != Z
96807>
Source image: P1000809.JPG
96811>96711 106 980 12 1 0 0 980 TEST LONG WORD select (N)
96712 127 967 15 0 1 0 967 TRUE ZERO >NO jump A != Z
96713 106 980 16 1 0 0 980 select (N)
96714 127 967 18 0 0 0 967 >YES jump A = Z
96712>
96710>96715 101 0 1 3 0 FORM PARAMETER select literal address
96716 102 980 22 1 0 0 980 transfer (A) to N
96717 126 970 2 0 0 0 970 >FORM UP AND O/P S/R** enter subroutine
96714>96718 101 0 1 3 0 ***DELETE select literal address
96719 102 981 29 0 0 0 981 CLEAR TAG CHANGE INDICATOR transfer (A) to N
96803>
96704>96720 101 2 1 3 0 STEP ADDRESS COUNTER select literal address
96721 107 980 5 0 0 0 980 augment (N) by (A)
96722 123 2 0 0 0 STEP IND MR1 step on and test
96723 100 980 6 0 0 0 980 Halt
96724 124 967 26 1 0 0 967 unconditional jump
96725 124 963 2 1 0 0 963 >NEXT BLOCK unconditional jump
96724>
96613>
96524>96726 123 2 0 0 0 STEP IND MR2 step on and test
96727 100 980 8 0 0 0 980 Halt
96728 124 965 7 1 0 0 965 >NEXT WORD unconditional jump
96729 124 963 2 1 0 0 963 >NEXT BLOCK unconditional jump
96800 PROCR 968 968 3008 TYPES 2 AND 4
96708>
96706>96802 106 980 11 0 0 0 980 TEST NEW WORD=OLD select (N)
96803 127 967 20 0 0 0 967 >YES jump A = Z
96804 106 980 14 1 0 0 980 TEST OLD WORD MAGNITUDE=0 select (N)
96805 127 968 8 0 1 0 968 IS TRUE ZERO >NO jump A != Z
96806 106 980 18 1 0 0 980 SIGN PATTERN=0 select (N)
96807 127 967 11 0 0 0 967 >YES >YES jump A = Z
96805>96808 106 980 24 1 0 0 980 select (N)
96809 102 980 22 1 0 0 980 transfer (A) to N
96810 126 970 2 0 0 0 970 >FORM UP AND O/P S/R enter subroutine
96811 124 967 11 1 0 0 967 >OUTPUT NEW WORD unconditional jump
96900 PROCR 969 969 3009 CONVERT S/R BINARY>DECIMAL
96902 100 0 0 0 0 LINK Halt
96903 100 961 20 1 0 0 961 STORE (A) (B) ( C) copy registers
96904 100 982 7 0 3 0 982 SET DECIMAL set radix
96905 124 980 26 0 2 0 980 SELECT TABLE START select literal and division
96906 112 961 20 0 0 0 961 CONVERT convert
96907 102 961 20 1 0 0 961 transfer (A) to N
96908 100 961 20 1 1 0 961 RESET (A) (B) ( C) replace registers
96909 126 969 2 0 1 0 969 >LEAVE S/R leave subroutine
97000 PROCR 970 970 33010 FORM UP AND O/P S/R IF NOT TYPE 6
97002 100 0 0 0 0 LINK Halt
97003 101 31 0 1 0 COLLATION CONST prepare for digit collation
97004 106 980 6 0 0 0 980 CONVERT AND STORE select (N)
97005 118 3 1 3 0 REL ADDRESS REMOVE DIVISION NO shift binary
97006 118 4124 1 0 0 shift logical
97007 114 980 4 0 0 0 980 STORE DIVISION NO replace selected bits
97008 101 0 1 3 0 CLEAR A select literal address
97009 118 13 1 3 0 shift binary
97010 102 980 3 0 0 0 980 STORE ADDRESS transfer (A) to N
97011 126 971 2 0 0 0 971 >FORM UP AND OUTPUT S/R enter subroutine
97012 126 970 2 0 1 0 970 >LEAVE S/R leave subroutine
97013 5 961 2 0 0 0 961 ORDER CONST TRANSFER
Source image: P1000810.JPG
97100 PROCR 971 971 FORM UP LINE OF PRINT,PRINT IT,PRINT STARRY LINE IF REQUIRED
97102 81 971 2 0 0 0 971 START OF SUBROUTINE
97103 124 980 23 0 1 0 980 0/2=OLD/NEW WORD modify address of next
97104 124 980 12 0 2 0 980 select literal and division
97105 1 980 20 1 0 0 980 2 IN Q6=QTTY ADD
97106 128 980 14 0 0 0 980 COPY CURRENT LONG WORD->WL bulk copy short numeric
97107 124 980 23 0 1 0 980 modify address of next
97108 0 980 16 1 0 0 980 COPY INDS THAT ACTION>16 SELECT
97109 5 980 18 1 0 0 980 TRANSFER
97110 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
97111 36 980 4 0 0 0 980 DIVISION OR REF COLLATE AND ADD
97112 126 973 2 0 0 0 973 CONVERT AND STORE enter subroutine
97113 106 980 3 0 0 0 980 CONVERT 13 BIT ADDRESS select (N)
97114 126 969 2 0 0 0 969 (OR ITEM) TO DECIMAL enter subroutine
97115 102 980 3 0 0 0 980 transfer (A) to N
97116 100 980 14 1 2 0 980 PROCESS LONG WORD replace (B) by (N)
97117 126 974 2 0 0 0 974 >PROCESS WORD S/R MOSST SIG HALF enter subroutine
97118 106 980 18 0 0 0 980 STORE SIGN PARAS select (N)
97119 102 980 19 0 0 0 980 transfer (A) to N
97120 126 974 2 0 0 0 974 >PROCESS WORD S/R LEAST SIG HALF enter subroutine
97121 106 980 14 1 0 0 980 STORE ALPHA WORD select (N)
97122 102 981 18 1 0 0 981 L/E'S IN LONG WORD transfer (A) to N
97123 102 980 18 1 0 0 980 WITH B'S AND L'S transfer (A) to N
97124 34 974 15 0 0 0 974 BITS 1-6 SET (N) IN B
97143>97125 115 981 18 1 0 0 981 STORE NEXT QRTET LINE collate and add
97126 102 981 16 1 0 0 981 transfer (A) to N
97127 115 981 52 1 0 0 981 TET FOR B/E collate and add
97128 105 981 16 1 0 0 981 subtract (N) from (A)
97129 127 971 32 0 0 0 971 >YES jump A = Z
97130 101 0 1 3 0 select literal address
97131 124 971 34 1 0 0 971 >NO unconditional jump
97129>97132 106 981 6 1 0 0 981 >'S AND B'S select (N)
97133 124 971 38 1 0 0 971 unconditional jump
97131>97134 115 981 54 1 0 0 981 TEST FOR L/E'S collate and add
97135 105 981 16 1 0 0 981 subtract (N) from (A)
97136 71 971 41 0 0 0 971 >NO JUMP IF A != 0
97137 106 981 4 1 0 0 981 select (N)
97133>97138 114 981 18 1 0 0 981 replace selected bits
97139 106 981 2 1 0 0 981 select (N)
97140 114 980 18 1 0 0 980 >'S replace selected bits
97136>97141 118 2 1 0 0 shift logical
97142 101 0 1 3 0 select literal address
97143 127 971 25 1 1 0 971 >NEXT QRTET jump AB != Z
97144 106 980 4 0 0 0 980 CONVERT TAG S/R select (N)
97145 118 4124 0 0 0 SHIFT TO Q1 shift logical
97146 126 973 2 0 0 0 973 CONVERT AND TRANSFER S/R enter subroutine
97147 106 980 5 0 0 0 980 RELATIVE ADDRESS select (N)
97148 126 973 2 0 0 0 973 >CONVERT AND TRANSFER S/R enter subroutine
97149 124 986 2 0 2 0 986 EDIT LINE select literal and division
97150 126 977 2 0 0 0 977 >EDIT AND O/P S/R enter subroutine
97151 106 980 18 1 0 0 980 OUTPUT * LINE select (N)
97152 127 971 55 0 0 0 971 IF NEEDED jump A = Z
97153 124 986 38 0 2 0 986 EDIT LINE select literal and division
97154 126 977 2 0 0 0 977 >EDIT AND O/P S/R enter subroutine
97152>97155 0 970 13 0 0 0 970 RESET ORDDER SELECT
97156 5 972 3 0 0 0 972 TRANSFER
97157 126 971 2 0 1 0 971 FOR NEXT WORD leave subroutine
97200 PROCR 972 972 3812 TRANSPER S/R
Source image: P1000811.JPG
97202 81 972 2 0 0 0 972 START OF SUBROUTINE
97203 5 961 2 0 0 0 961 >FORMED ORDER TRANSFER
97204 10 0 0 0 1 SELECT LITERAL
97205 4 972 3 0 0 0 972 STEP ADDRESS AUGMENT
97206 10 0 0 0 0 CLEAR A SELECT LITERAL
97207 82 972 2 0 0 0 972 END OF SUBROUTINE / LEAVE SUBROUTINE
97300 PROCR 973 973 3013 CONVERT AND TRANSFER S/R
97302 100 0 0 0 0 LINK Halt
97303 126 969 2 0 0 0 969 >CONVERT S/R enter subroutine
97304 126 972 2 0 0 0 972 >TRANSFER S/R enter subroutine
97305 126 973 2 0 1 0 973 >LEAVE S/R leave subroutine
97400 PROCR 974 974 3014 PROCESS WORD S/R
97402 100 0 0 0 0 LINK Halt
97403 101 0 1 3 0 TRANSFER ACTION CLEAR A select literal address
97404 118 1 1 0 0 SHIFT ACTION INTO B shift logical
97405 104 980 19 0 0 0 980 0 OR 16 IF ACTION <OR >16 add (N) to (A)
97406 126 973 2 0 0 0 973 DISCRIMINANT D IN A enter subroutine
97407 118 1 1 3 0 >TRANSFER shift binary
97408 126 972 2 0 0 0 972 MODIFIER M IN A enter subroutine
97409 118 2 1 3 0 >TRANSFER shift binary
97410 126 972 2 0 0 0 972 ADDRESS enter subroutine
97411 118 1 1 3 0 shift binary
97412 118 3 1 0 0 shift logical
97413 126 973 2 0 0 0 973 >CONVERT AND TRANSFER enter subroutine
97414 126 974 2 0 1 0 974 >LEAVE S/R leave subroutine
97415 100 63 0 0 0 CONST=BITS 1-6 Halt
97500 PROCR 975 975 3015 STORE LONG WORD AND FORM SIGN PARAS S/R
97502 100 0 0 0 0 LINK Halt
97503 104 980 20 1 0 0 980 STORE WORD FORM T/E add (N) to (A)
97504 124 980 2 0 0 0 980 modify address of next
97505 128 980 12 0 0 0 980 BULK COPY LONG WORD bulk copy short numeric
97506 124 980 2 0 1 0 980 0/2=OLD/NEW WORD modify address of next
97507 124 980 12 0 2 0 980 select literal and division
97508 1 979 26 1 0 0 979 1 IN Q6 ADD
97509 118 0 0 0 0 DUMMY ORDER shift logical
97510 128 981 27 0 0 0 981 BULK COPY SHORT WORD bulk copy short numeric
97511 100 981 26 1 1 0 981 FORM SIGN PATTERN FORM SIGN PATTERN replace registers
97512 127 975 15 0 3 0 975 0 IF POSIVIE FOR LEAST SIG HALF jump A < Z
97513 101 0 1 3 0 16 IF POSITIVE POSITIVE select literal address
97514 124 975 16 1 0 0 975 unconditional jump
97512>97515 101 16 1 3 0 NEGATIVE select literal address
97514>97516 124 980 2 0 1 0 980 modify address of next
97517 102 980 16 0 0 0 980 transfer (A) to N
97518 124 980 2 0 1 0 980 FORM SIGN PATTERN modify address of next
97519 100 980 12 1 1 0 980 FOR MOST SIG HALF replace registers
97520 127 975 23 0 3 0 975 jump A < Z
97521 101 0 1 3 0 POSITIVE select literal address
97522 124 975 24 1 0 0 975 unconditional jump
97520>97523 101 16 1 3 0 NEGATIVE select literal address
97522>97524 124 980 2 0 0 0 980 modify address of next
97525 102 980 17 0 0 0 980 transfer (A) to N
97526 100 982 2 0 3 0 982 RESET BINARY set radix
97527 126 975 2 0 1 0 975 leave subroutine
97600 PROCR 976 976 3016 UNPACK FROM WORD 6 S/R
97602 100 0 0 0 0 LINK Halt
97603 101 32 1 1 0 FORM T/E add literal address
Source image: P1000812.JPG
97604 118 5 0 0 0 shift logical
97605 101 5 1 1 0 add literal address
97606 124 982 2 0 3 0 982 modify address of next
97607 104 123 0 0 0 add (N) to (A)
97608 126 976 2 0 1 0 976 >LEAVE S/R leave subroutine
97609 10 0 0 0 0 DUMMY ORDER SELECT LITERAL
97700 PROCR 977 977 3017 EDIT AND O/P S/R
97702 81 977 2 0 0 0 977 START OF SUBROUTINE
97703 128 744 12 1 2 0 744 edit fixed field formats
97704 124 986 50 0 2 0 986 EDIT 20 SPACES select literal and division
97705 128 744 4 1 2 0 744 BEFORE PRINTING edit fixed field formats
97706 5 744 2 1 0 0 744 CLEAR FUNCTION WORD TRANSFER
97707 101 1 0 1 0 prepare for digit collation
97708 124 982 2 0 3 0 982 modify address of next
97709 115 27 0 0 0 collate and add
97710 12 0 0 0 4 SUBTRACT LITERAL
97711 70 977 24 0 0 0 977 >GP PRINTER JUMP IF A == 0
97712 124 744 2 0 2 0 744 SPECIAL PRINT select literal and division
97713 1 979 28 1 0 0 979 48 IN Q6 ADD
97714 124 979 23 1 2 0 979 modify address of next
97715 128 0 1 1 0 COPY ANNEX,CLEAR A bulk copy long numeric
97731>97716 979 22 0 0 0 979 SELECT
97717 32 0 0 0 5- ROUTE IN TOP OF B SHIFT (AB) BY QUARTETS
97718 979 22 0 0 0 979 SELECT
97719 32 0 0 0 5- AND IN BOTTOM SHIFT (AB) BY QUARTETS
97720 80 978 2 0 0 0 978 >PRINT ENTER SUBROUTINE
97721 123 979 2 0 2 0 979 >TEST PRINT FINISHED enter master routine
97722 10 0 0 0 0 CLEAR A SELECT LITERAL
97723 82 977 2 0 0 0 977 (YES) END OF SUBROUTINE / LEAVE SUBROUTINE
97711>97724 10 0 0 0 8 GP PRINT SELECT LITERAL
97725 30 0 0 0 4 SHIFT (A) BY QUARTETS
97726 5 744 3 0 0 0 744 (PRINT ON COLS 1-120) TRANSFER
97727 124 744 2 0 2 0 744 select literal and division
97728 124 979 23 1 2 0 979 modify address of next
97729 129 0 0 1 0 EDIT edit for anelex output
97730 10 0 0 0 0 CLEAR A SELECT LITERAL
97731 76 977 16 0 0 0 977 >GO TO PRINT JUMP unconditional
97800 PROCR 978 978 3018 ENTER MASTER FOR PRINTER
97802 100 0 0 0 0 LINK Halt
97803 118 5 0 0 0 FORM T/E shift logical
97804 124 982 2 0 3 0 982 modify address of next
97805 104 26 1 0 0 (PARAS 26,27) add (N) to (A)
97806 125 4096 1 1 0 SET NON INT clear indicators
97807 124 982 2 0 3 0 982 modify address of next
97808 123 160 0 2 0 >OPEN PRINTER enter master routine
97809 126 978 2 0 1 0 978 >LEAVE S/R leave subroutine
97900 PROCR 979 979 3019 TEST PREVIOUS PRINT ORDER FINISHED
97902 81 979 2 0 0 0 979 START OF SUBROUTINE
97903 125 4096 1 1 0 clear indicators
97904 124 982 2 1 1 0 982 MG C set modification group
97905 979 22 0 0 0 979 ROUTE SELECT
97906 124 982 2 0 3 0 982 modify address of next
97907 102 30 0 1 0 >SI+30 transfer (A) to N
97908 979 21 0 0 0 979 26/1/0 SELECT
97909 2 979 22 0 0 0 979 SUBTRACT
97910 124 982 2 0 3 0 982 modify address of next
97911 102 7 0 1 0 SI+7 transfer (A) to N
Source image: P1000813.JPG
97912 124 982 2 0 3 0 982 modify address of next
97913 102 45 0 1 0 CLEAR ASSOCIATED TIME transfer (A) to N
97914 124 979 17 0 2 0 979 (RETURN ADDRESS) select literal and division
97915 124 982 2 0 3 0 982 modify address of next
97916 124 174 1 0 0 >MASTER TO TEST ROUTE unconditional jump
97917 124 982 2 0 3 0 982 modify address of next
97918 124 2 0 3 0 modify address of next
97919 124 29 1 1 0 RESTORE PROG'S MOD GROUP set modification group
97920 126 979 2 0 3 0 979 >(SET INTERRUPTIBLE) leave master routine
97921 126 0 1 0 0 CONST test route N1
97922 100 0 0 0 0 WL FOR ALLOCATED ROUTE R Halt
97923 100 0 0 0 0 WL FOR-(64+R) Halt
97924 100 0 0 0 0 )COPY 4 Halt
97925 100 4 0 0 0 ) Halt
97926 100 0 0 0 0 (COPY 1 Halt
97927 100 1 0 0 0 ( Halt
97928 100 0 0 0 0 )COPY 48 Halt
97929 100 48 0 0 0 ) Halt
98000 CONST 980 980 1 3020 W/L'S AND CONVERT TABLES
98002 (D)0; I/O SERIAL/W/L
98004 0; RELATIVE ADDRESS/TAG
98006 Ю£££££; TIME/DATE,IND MOD1
98008 (A)START; (LONG DATE)IND MOD 2
98010 (D)0; =INDIC/PROG IDENTITY
98012 0; NEW LONG WORD
98014 0; OLD LONG WORD
98016 0; 0/16 IN ODD/EVEN IF ODD/EVEN NEW WORD PO
98018 0; DITTO FOR OLD VALUE OF WORD
98020 200000; TABLE CONSTANT
98022 0; PARAS NEW/OLD
98024 (D)2000(A)*; OLD WORD CONSTANT
98026 (D)1; CONVERT TABLE
98028 16; BINARY>DECIMAL
98030 256;
98032 4096;
98034 65536;
98100 CONST 981 981 1 3021 ALPHA CONSTANTS
98102 (A)*****;
98104 LLLLL;
98106 BBBBB;
98108 (A)CHAPT; CONSTANTS FOR HEADING
98110 ER ; BLOCKS
98112 (A)SECTI;
98114 ON ;
98116 PRINT; W/L FOR HEADING
98118 OUTOF; W/L FOR HEADING
98120 POINT; CONSTANTS FOR PRINTING
98122 P M B; HEADING BLOCK
98124 (A)DUMPS;
98126 TAKEN; W/L/0-600 IND
98128 ON AT; TAG CH IND/W/L
98130 (A)PROGM;
98132 (A)FINIS;
98134 (A)TYPE(D)7.;
98136 (A)FINAL;
98138 MASTE;
98140 R ROU;
98142 MR1 ;
Source image: P1000814.JPG
98144 MR2 ;
98146 MR3 ;
98148 TINE ;
98150 XX ;
98152 (D)7.7.7.7.7.;
98154 5.5.5.5.5.;
98200 CONST 982 982 0 3022 NUMERIC CONSTANTS
98202 (D)00000; ZERO
98203 00018; M/R SETTING 0/24
98204 0; STORE FOR PM TYPE
98205 7‼-; ASL 123
98206 3:; 61
98207 66666;
98208 3‼; 59
98209 0;
98300 PROCR 983 983 3023 TABLE 1
98302 100 981 32 0 0 0 981 FINIS Halt
98303 101 5 0 0 0 table look up
98304 100 981 34 0 0 0 981 B/E Halt
98305 117 1029 0 0 0 special select
98400 PROCR 984 984 3024 TABLE 2
98402 100 981 30 0 0 0 981 15 SP PROGM Halt
98403 101 245 0 0 0 table look up
98404 100 980 10 0 0 0 980 SP PROG ID Halt
98405 100 21 0 0 0 Halt
98406 100 981 22 0 0 0 981 4SP PM Halt
98407 101 68 0 0 0 table look up
98408 100 981 20 0 0 0 981 POINT Halt
98409 101 5 0 0 0 table look up
98410 108 751 11 0 0 0 751 LINE SERIAL merge constant length
98411 100 53 0 0 0 Halt
98412 100 981 34 0 0 0 981 4SP TYPE Halt
98413 101 68 0 0 0 table look up
98414 100 982 4 0 0 0 982 SP TYPE NO Halt
98415 100 1041 0 0 0 Halt
98416 100 981 34 0 0 0 981 2SP B/E Halt
98417 117 1057 0 0 0 special select
98418 100 981 8 0 0 0 981 15SP A Halt
98419 101 753 0 0 0 table look up
98420 108 751 13 0 0 0 751 (A) merge constant length
98421 100 53 0 0 0 Halt
98422 108 751 12 0 0 0 751 merge constant length
98423 106 1285 0 0 0 select (N)
98424 100 981 22 0 0 0 981 4SP B Halt
98425 101 1089 0 0 0 table look up
98426 108 751 15 0 0 0 751 (B) merge constant length
98427 100 53 0 0 0 Halt
98428 108 751 14 0 0 0 751 merge constant length
98429 106 1285 0 0 0 select (N)
98430 100 981 8 0 0 0 981 4SP C Halt
98431 101 65 0 0 0 table look up
98432 108 751 16 0 0 0 751 merge constant length
98433 104 53 0 0 0 add (N) to (A)
98434 100 981 34 0 0 0 981 4SP B/E Halt
98435 117 1089 0 0 0 special select
98436 100 981 42 0 0 0 981 MR1 Halt
98437 101 243 0 0 0 table look up
Source image: P1000815.JPG
98438 108 751 18 0 0 0 751 (R1) merge constant length
98439 104 21 0 0 0 add (N) to (A)
98440 108 751 17 0 0 0 751 merge constant length
98441 104 5 0 0 0 add (N) to (A)
98442 100 981 44 0 0 0 981 MR2 Halt
98443 101 67 0 0 0 table look up
98444 108 751 20 0 0 0 751 (R2) merge constant length
98445 104 21 0 0 0 CONTENTS OF MR2 add (N) to (A)
98446 108 751 19 0 0 0 751 merge constant length
98447 104 5 0 0 0 add (N) to (A)
98448 100 981 46 0 0 0 981 MR3 Halt
98449 101 67 0 0 0 table look up
98450 108 751 22 0 0 0 751 (MR3) merge constant length
98451 104 21 0 0 0 add (N) to (A)
98452 108 751 21 0 0 0 751 merge constant length
98453 104 5 0 0 0 add (N) to (A)
98454 100 981 34 0 0 0 981 3SP BE Halt
98455 117 1073 0 0 0 special select
98500 PROCR 985 985 3025 TABLE 3
98502 100 980 10 0 0 0 980 15 SP PROG ID Halt
98503 100 245 0 0 0 Halt
98504 100 981 16 0 0 0 981 2SP CHAPTER/SECTION Halt
98505 101 37 0 0 0 table look up
98506 100 981 18 0 0 0 981 Halt
98507 101 5 0 0 0 table look up
98508 108 751 10 0 0 0 751 CHAP/SECTION merge constant length
98509 100 4866 0 0 0 Halt
98510 100 981 34 0 0 0 981 B/E Halt
98511 117 1025 0 0 0 special select
98512 100 981 30 0 0 0 981 15SP PROGM Halt
98513 101 245 0 0 0 table look up
98514 100 980 10 0 0 0 980 SERIAL NO Halt
98515 100 21 0 0 0 Halt
98516 100 981 36 0 0 0 981 FINAL Halt
98517 101 37 0 0 0 table look up
98518 100 981 24 0 0 0 981 DUMP Halt
98519 101 20 0 0 0 table look up
98520 100 981 34 0 0 0 981 SP B/E Halt
98521 117 1041 0 0 0 special select
98522 100 981 38 0 0 0 981 MASTER Halt
98523 101 245 0 0 0 table look up
98524 100 981 40 0 0 0 981 ROUTINE Halt
98525 101 5 0 0 0 table look up
98526 100 981 48 0 0 0 981 Halt
98527 101 5 0 0 0 table look up
98528 100 981 34 0 0 0 981 4SP B/E Halt
98529 117 1089 0 0 0 special select
98600 PROCR 986 986 3026 TABLE 4
98602 100 980 22 0 0 0 980 ASTERISK Halt
98603 101 1025 0 0 0 4/0/1 table look up
98604 100 961 2 0 0 0 961 DIVISION NO OR REF Halt
98605 100 515 0 1 0 2/2/0/3 Invalid
98606 100 980 3 0 0 0 980 13 BIT DEC ADD Halt
98607 100 5 0 2 0 4/0/0/5 replace (B) by (N)
98608 100 961 12 0 0 0 961 RELATIVE ADDRESS Halt
98609 100 21 0 2 0 4/0/1/5 replace (B) by (N)
98610 100 980 6 0 0 0 980 15 BIT BINARY ADDRESS Halt
98611 100 4117 0 0 0 1/0/1/5 Halt
Source image: P1000816.JPG
98612 100 961 7 0 0 0 961 ACTION Halt
98613 100 531 0 1 0 2/2/1/3 Invalid
98614 100 961 8 0 0 0 961 DISC Halt
98615 100 1041 0 0 0 4/1/1 Halt
98616 100 961 9 0 0 0 961 MOD Halt
98617 100 1041 0 0 0 4/1/1 Halt
98618 100 961 10 0 0 0 961 ADDRESS Halt
98619 100 21 0 2 0 1/5 replace (B) by (N)
98620 100 961 3 0 0 0 961 ACTION Halt
98621 100 531 0 1 0 2/2/1/3 Invalid
98622 100 961 4 0 0 0 961 DISC Halt
98623 100 1041 0 0 0 4/1/1 Halt
98624 100 961 5 0 0 0 961 MOD Halt
98625 100 1041 0 0 0 4/1/4 Halt
98626 100 961 6 0 0 0 961 ADDRESS Halt
98627 100 21 0 2 0 1/5 replace (B) by (N)
98628 100 980 14 0 0 0 980 LSH NUMERIC Halt
98629 104 69 0 2 0 4/0/2/5 add (N) to (A)
98630 100 980 15 0 0 0 980 MSH NUMERIC Halt
98631 104 37 0 2 0 4/0/2/5 add (N) to (A)
98632 100 981 18 0 0 0 981 PROCESSED ALPHA Halt
98633 101 37 0 0 0 2/5 table look up
98634 100 961 11 0 0 0 961 TAG Halt
98635 100 4882 0 0 0 1/3/1/2 Halt
98636 100 981 52 0 0 0 981 BEW Halt
98637 117 5 0 0 0 0/5 special select
98638 100 982 2 0 0 0 982 STARRY LINE Halt
98639 100 4341 0 2 0 5/0/15/5 replace (B) by (N)
98640 100 982 2 0 0 0 982 Halt
98641 100 4341 0 2 0 replace (B) by (N)
98642 100 982 2 0 0 0 982 Halt
98643 100 4341 0 2 0 replace (B) by (N)
98644 100 982 2 0 0 0 982 Halt
98645 100 4117 0 2 0 5/0/1/5 replace (B) by (N)
98646 100 980 18 0 0 0 980 STARTS Halt
98647 101 53 0 0 0 table look up
98648 100 981 52 0 0 0 981 BEW Halt
98649 117 5 0 0 0 0/5 special select
98650 100 982 2 0 0 0 982 20 SPACES Halt
98651 116 4341 0 2 0 Invalid
98700 CONST 987 987 0 FIRST LEVEL PARAS PASS 2
98702 (B5)1(B3)1(B3)1(B3)1(B6)8; 2001/0
98703 1,1,0,1,1;
98704 1,1,1,0,8;
98705 1,1,2,0,16;
98706 2,0,2,0,16;
98707 1,0,1,1,1;
98708 1,1,0,1,9;
98709 0,1,6,6,54;
98710 6,1,1,1,9;
98711 0,1,1,1,6;
98712 1,0,1,1,0;
98713 1,1,1,1,9; 2002/5
98714 0,1,1,1,9;
98715 0,1,0,0,54;
98716 1,1,0,0,9;
98717 0,1,1,0,8;
98718 0,0,1,6,54;
98719 6,6,6,6,54;
Source image: P1000817.JPG
98720 0,0,1,0,0; 2003/4
98721 0,0,0,1,0;
98722 1,0,0,1,1;
98723 1,1,1,0,6;
98724 0,1,1,1,8;
98725 0,1,1,1,6; 2004/5 2005/5
98726 0,1,1,1,1;
98727 0,0,0,0,0;
98728 0,1,1,1,9;
98729 1,0,1,0,9;
98730 1,1,0,0,8;
98731 1,0,1,1,9; 2006/2
98732 1,0,1,1,8;
98733 0,1,0,1,1;
98734 1,1,1,1,8;
98735 1,1,1,1,1;
98736 1,0,0,0,1;
98737 1,0,1,0,0;
98738 1,1,0,0,8;
98739 1,1,0,1,8; 2007/4
98740 1,0,1,0,9;
98741 0,1,1,0,9; 2008/6
98742 1,1,0,1,8;
98743 1,1,1,1,0;
98744 0,1,1,1,9;
98745 0,0,1,0,9;
98746 0,1,1,0,8;
98747 1,1,1,6,54;
98748 0,1,1,1,9; 2009/0
98749 1,1,0,1,9;
98750 1,1,1,6,54;
98751 6,0,1,1,8;
98752 1,0,1,1,8; 2010/5
98753 1,1,1,6,11;
98754 1,0,1,1,9;
98755 1,1,0,1,1;
98756 1,1,1,1,9;
98757 0,6,6,0,9; 2011/4
98758 1,0,1,0,1;
98759 3,0,0,1,54;
98760 0,1,0,1,9;
98761 1,0,1,6,54;
98762 1,0,1,1,9;
98763 0,1,0,1,8;
98764 1,0,1,0,9;
98765 0,6,6,6,54; 2012/1
98766 1,1,1,1,1;
98767 0,1,1,1,8;
98768 1,0,1,0,9;
98769 0,1,1,0,8; 2013/0
98770 1,1,0,0,0;
98771 1,1,0,1,0;
98772 0,0,1,0,0;
98773 1,0,0,0,8;
98774 0,0,1,1,8;
98775 0,1,0,0,1;
98776 1,1,0,0,8;
98777 0,0,0,0,8;
98778 1,1,0,1,8;
98779 1,0,1,1,8; 2014/6
Source image: P1000818.JPG
98780 1,1,1,1,8;
98781 0,1,0,1,9;
98782 1,6,6,6,54;
98783 1,1,1,1,1;
98784 0,1,1,1,9; 2015/0
98785 0,1,1,1,9;
98786 0,1,1,0,9;
98787 1,1,0,1,9;
98788 1,0,1,1,1;
98789 1,1,0,1,9; 2016/0
98790 1,1,1,0,9;
98791 0,1,1,6,0;
98792 1,1,1,1,9;
98793 0,0,0,1,49;
98800 CONST 988 988 0 FIRST LEVEL PARA PASS 2 CONTD
98802 (B5)1(B3)1(B3)0(B3)1(B6)15;
98803 0,0,1,0,0; 2017/1
98804 1,1,0,0,8;
98805 0,0,1,1,8;
98806 0,1,0,0,0;
98807 0,1,0,1,1;
98808 0,1,1,1,0;
98809 1,0,0,0,9;
98810 1,1,0,1,9;
98811 1,1,0,1,9; 2017A/5
98812 0,1,1,7,1; 2018/5 2019/5
98813 1,1,1,1,15;
98814 0,1,0,1,9; 2020/1
98815 0,0,0,1,57;
98816 0,1,0,6,54; 2022/1
98817 1,0,1,1,8; 2022/6
98818 1,0,1,1,8; 2023/6
98819 1,1,1,1,24;
98820 1,1,0,1,0;
98821 1,0,1,0,54; 2024/4
98822 1,1,0,1,9;
98823 0,6,6,6,54;
98824 0,1,1,1,9; 2025/0
98825 0,0,1,0,9;
98826 0,1,0,1,15; 2026/0
98827 0,0,1,1,8;
98828 1,1,0,0,0; 2027/3
98829 0,0,0,0,0;
98830 0,0,0,0,0; 2028/0
98831 0,0,0,0,0;
98832 0,0,0,0,0; 2029/0
98833 0,0,0,0,0;
98834 0,0,0,0,0;
98835 0,0,0,0,0;
98836 0,0,0,0,16; 2030/5
98837 0,0,0,0,16;
98838 2,0,0,0,24;
98839 2,0,0,0,0; 2031/5
98840 0,0,0,0,0;
98841 0,0,0,0,0; 2032/1
98842 0,0,0,0,0; 2033/5
98843 0,0,0,0,16; 2034/5
98844 7,6,6,6,54; (CHAP END)
98845 6,6,6,6,54; DUMMY WORD
Source image: P1000819.JPG
98900 CONST 989 989 0 FIRST LEVEL PARAS PASS 3
98902 (B5)0(B3)0(B3)1(B3)1(B6)0; 3001/0
98903 1,0,0,1,1;
98904 1,1,1,0,6;
98905 1,1,1,1,9;
98906 1,1,1,1,25;
98907 0,6,6,6,54;
98908 0,0,0,0,0; 3001.5/1
98909 0,0,0,0,0;
98910 0,0,0,0,0;
98911 0,0,0,0,0;
98912 0,0,0,0,0;
98913 0,0,0,0,0;
98914 0,0,0,0,0;
98915 0,0,0,0,0;
98916 0,0,0,0,0;
98917 0,0,0,0,0;
98918 0,0,0,0,0; 3001A/1
98919 0,0,0,0,0;
98920 0,0,0,0,0;
98921 0,0,0,0,0;
98922 0,0,0,0,0;
98923 0,0,0,0,0;
98924 0,0,0,0,0;
98925 0,0,0,0,0;
98926 0,0,0,0,0;
98927 0,0,0,0,0;
98928 0,0,0,0,0;
98929 0,0,0,0,0;
98930 0,0,0,0,0;
98931 0,0,0,0,0;
98932 0,0,0,0,0;
98933 0,0,0,0,0;
98934 2,0,2,0,16; 30018/1
98935 2,0,2,0,16;
98936 2,0,2,0,16;
98937 2,0,2,0,16;
98938 2,0,2,0,16;
98939 0,0,1,0,9; 3002/3
98940 0,1,1,0,9;
98941 0,1,1,1,1;
98942 1,3,1,1,9;
98943 1,0,0,1,9;
98944 1,1,6,6,54;
98945 1,0,1,1,1; 3003/0
98946 1,1,1,1,9;
98947 0,1,0,1,1;
98948 1,1,1,1,49; 3004/6
98949 6,6,6,6,54;
98950 1,1,1,1,54;
98951 0,1,0,1,8;
98952 1,1,1,1,9;
98953 1,1,1,1,9;
98954 0,1,0,1,1;
98955 0,1,1,1,9;
98956 1,1,1,1,9;
98957 1,1,1,1,8;
98958 1,1,6,6,54;
98959 1,1,1,1,9;
Source image: P1000820.JPG
98960 1,1,1,1,8; 3005/6
98961 1,1,1,1,8;
98962 1,1,1,1,9;
98963 1,1,6,1,9;
98964 0,1,0,1,9;
98965 1,1,1,1,8; 3006/0
98966 1,1,0,1,9;
98967 0,1,1,1,8;
98968 1,7,0,1,9;
98969 1,1,1,1,9;
98970 1,1,1,1,1;
98971 0,1,1,1,8;
98972 0,1,1,0,8; 3007/5
98973 1,0,1,0,9;
98974 1,1,1,1,8;
98975 1,1,0,1,1;
98976 0,1,1,1,1;
98977 1,1,1,1,9; 3008/3
98978 1,1,1,1,9;
98979 0,1,1,1,9; 3009/0
98980 1,1,0,0,8; 3010/3
98981 0,1,0,0,9;
98982 1,1,6,6,54;
98983 6,0,6,6,9; 3011/2
98984 1,1,1,1,8;
98985 1,1,1,1,9;
98986 1,1,1,1,9;
98987 1,1,1,1,9;
98988 1,0,1,6,49;
98989 1,1,1,1,9;
98990 1,1,0,0,9;
98991 0,1,1,1,9;
98992 1,1,1,1,9;
98993 1,0,1,0,8; 3012/2
98994 1,0,1,1,8; 3013/2 3014/6
98995 0,0,1,1,1;
98996 0,1,0,0,9;
98997 0,6,6,6,54;
98998 0,1,1,1,9; 3015/1
98999 1,0,1,1,8;
99000 CONST 990 990 0
99002 (B5)1(B3)0(B3)1(B3)1(B6)9;
99003 1,0,1,0,9;
99004 1,1,0,0,0; 3016/3
99005 1,0,1,0,1; 3017/4
99006 1,1,1,0,11;
99007 0,1,1,6,54;
99008 1,1,0,1,1;
99009 0,1,1,0,8;
99010 0,1,1,1,0;
99011 1,0,0,1,54; 3018/2
99012 3,0,1,0,8; 3019/6
99013 0,1,1,1,1;
99014 (B5)1(B3)1(B3)0(B3)1(B6)1;
99015 1,0,1,0,1;
99016 0,0,0,0,0;
99017 0,0,0,6,54;
99018 0,0,0,0,0; 3020/1
99019 0,0,0,0,0;
Source image: P1000821.JPG
99020 0,0,0,0,0;
99021 (B5)0(B3)0(B3)0(B3)0(B6)0;
99022 0,0,0,0,0;
99023 0,0,0,0,0; 3021/5
99024 0,0,0,0,0;
99025 0,0,0,0,0;
99026 0,0,0,0,0;
99027 0,0,0,0,0;
99028 0,0,0,0,0;
99029 0,0,0,0,0;
99100 CONST 991 991 0 FIRST LEVEL PARAS PASS C CONTD
99102 (B5)0(B3)0(B3)0(B3)0(B6)0;
99103 0,0,0,0,0;
99104 0,0,0,0,0; 3022/5
99105 0,0,0,0,0;
99106 2,0,2,0,16; 3023/1+3024/5
99107 2,0,2,0,16;
99108 2,0,2,0,16;
99109 2,0,2,0,16;
99110 2,0,2,0,16;
99111 2,0,2,0,16;
99112 2,0,2,0,16;
99113 2,0,2,0,16;
99114 2,0,2,0,16;
99115 2,0,2,0,16; 3025/4
99116 2,0,2,0,16;
99117 2,0,2,0,16;
99118 2,0,2,0,16;
99119 2,0,2,0,16;
99120 2,0,2,0,16; 3026/2
99121 2,0,2,0,16;
99122 2,0,2,0,16;
99123 2,0,2,0,16;
99124 2,0,2,0,16;
99125 2,0,2,0,16;
99126 2,0,2,0,16;
99127 2,0,2,0,16;
99128 2,0,2,0,62;
99200 CONST 992 992 0 SECOND LEVEL PARAS
99202 (B8)40(B6)45(B6)49; PASS 2
99203 42,24,62;
99204 42,62,63; PASS 3
99300 CONST 993 993 1 BLISTER SPACE
99302 (D)0;
99304 0;
99306 0;
99308 0;
99310 0;
99312 0;
99314 0;
99316 0;
99318 0;
99320 0;
99322 0;
99324 0;
99326 0;
99328 0;
Source image: P1000999.JPG
99400 PROCR 994 994 CHAPTER 9
99500 PROCR 995 995 CHAPTER 10
99600 END
PROGRAMME 08000 SERIAL 801 CHAPS 3 FILES 5 TRAN. AREAS 5
F.PT. NO MOD. GP. YES PRIORITY 3 ENTRY= CH2/ 41
SIZE OF CHAPS 2574 7368 992 0 0 0 0
FILE ID. RTE. TYPE START LOCN. ALT.ROUTES BLOCK SIZE CHAPT
D1 14 598 NO 394 3
B1 15 6806 NO 58 2
A1 7 6864 NO 154 2
A2 8 7018 NO 154 2
A6 7 7172 NO 154 2
TRAN. AREAS START LOCN. CHAPT SIZE
10 204 3 394
5 6286 2 58
7 6344 2 154
8 6498 2 154
9 6652 2 154
SECTION.START
1=5234 2= 64 3=2524 4=2572 5=6286 6=2672 7=6344 8=6498 9=6652 10= 204 11=4946 12= 50
13=4966 14=6286 15=5038 16=4998 17=3572 18= 74 19=4122 20= 330 21=4582 22=3672 23=6156 24=5138
25=6204 26=3040 27=6266 28=5280 29=5326 30=5550 31=5568 32=5590 40=6246 52=1080 53=5506 54=5760
55=5920 61=5234 62= 110 63= 50 66=5206 67=5230 70=5550 71=5386 72=5354 77=5506 91=6008 92=5970
93= 170 94=5406 95=6056 97= 620 98=6044 99=6106
SWITCHES
129= CH2/7326 252= CH2/7327 191= CH2/7328 108= CH2/7329 214= CH2/7330 217= CH2/7331 227= CH2/7332 263= CH2/7333
267= CH2/7334 278= CH2/7335 352= CH2/7336 372= CH2/7337 381= CH2/7338 458= CH2/7339 100= CH2/7340 695= CH2/7341
511= CH2/7342 514= CH2/7343 153= CH2/7344 785= CH2/7345 781= CH2/7346 786= CH2/7347 830= CH2/7348 780= CH2/7349
849= CH2/7350 787= CH2/7351 826= CH2/7352
ITEM+ CTRS
MR'S 4-20
8= CH2/7354 4= CH2/7356 6= CH2/7358 5= CH2/7360 19= CH2/7362 20= CH2/7364 12= CH2/7366
CHAPT 1
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 2 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 2
PROCEDURE 100
33 0 1 0 44 2 0 0 3 0 2 1 1 3 2 0
36 0 0 2 60 2 25 1 1 4096 0 24 0 3 0 2 23 0 2 0 1024
40 0 1 1 44 2 24 0 3 3 2 24 1 0 41 0 0 0 0 0 0
SECTION 1012
44 0 0 0 0 0 0 0 0
48 0 0 0 0 0 0 0 0
52 0 0 0 0 0 0 0 0
56 0 0 0 0 0 0 0 0
SECTION 1013
60 2 0 0 0 0 0 0 0
SECTION 1014
PROCEDURE 1002
CHAPT 2
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 101
33 0 1 0 2404 4 0 0 3 0 4 1 1 3 3 0
36 0 0 2 2508 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1024
40 0 1 1 2404 4
PROCEDURE 102
41 0 0 3 2509 4 25 1 1 4096 0 23 0 2 44 4
44 0 0 0 0 0 2 1 0 2192 4 2 1 0 6266 4 2 1 0 6268 4
48 2 1 0 6270 4 2 1 0 6272 4 2 0 0 6277 4 2 0 0 6279 4
52 2 0 0 7347 4 23 0 3 1430 4 18 0 1 4 0 1 0 1 16 0
56 14 0 0 1325 4 14 0 0 1326 4 14 0 0 1327 4 25 0 3 0 0
60 24 1 0 128 4 24 0 3 5 4 6 0 0 34 0 18 0 1 4124 0
64 2 1 0 6274 4 24 0 3 5 4 6 0 0 36 0 18 0 1 4124 0
68 1 1 2 4 0 2 0 0 6276 4 6 0 0 1417 4 2 0 0 1409 4
72 6 1 0 2193 4 27 0 0 140 4 6 0 0 2192 4 2 0 0 31 4
76 1 1 3 7 0 26 0 0 141 4 27 0 0 85 4 1 1 3 8 0
80 26 0 0 141 4 27 0 0 85 4 1 1 3 11 0 26 0 0 141 4
84 27 0 1 163 4 6 0 0 0 4 2 0 0 7351 4 1 1 3 1 0
88 2 0 0 6275 4 24 0 3 0 4 6 0 0 4 22 1 1 2 64 0
92 3 0 0 7 4 18 0 3 1 0 18 1 1 4127 0 2 0 0 1404 4
96 18 1 3 3 0 2 0 0 1449 4 6 0 0 1404 4 26 0 0 1845 4
100 2 0 0 2192 4 0 0 3 2509 4 6 0 0 6275 4 27 0 0 174 4
104 24 0 3 5 4 24 0 3 32 0 24 0 3 16 0 1 1 3 0 0
108 4 0 0 7 4 2 0 0 1839 4 24 0 3 1839 4 2 0 0 0 0
112 24 0 3 5 4 24 0 3 32 0 6 0 0 22 0 4 0 0 7 4
116 2 0 0 141 4 24 0 3 5 4 24 0 3 32 0 6 0 0 21 0
120 27 0 0 174 4 6 0 0 31 4 1 1 2 88 0 27 0 1 161 4
124 1 1 3 1 0 24 0 3 141 4 2 0 0 0 0 24 1 0 174 4
128 24 0 3 0 4 6 0 0 6 22 27 0 0 134 4 6 0 0 6275 4
132 27 0 1 140 4 24 1 0 74 4 6 0 0 6275 4 27 0 0 140 4
136 6 0 0 6274 4 26 0 0 141 4 27 0 1 163 4 24 1 0 88 4
140 26 0 3 1325 4
PROCEDURE 103
141 0 0 0 0 0 2 0 0 1792 4 26 1 2 2418 4
144 6 0 0 1792 4 24 0 3 0 4 5 0 2 0 0 27 0 0 160 4
148 25 0 2 1 0 24 1 0 144 4 6 0 0 9 4 1 1 2 24 0
152 27 0 3 160 4 26 1 2 2420 4 24 0 3 0 4 6 0 2 0 0
156 5 0 0 1792 4 27 0 0 160 4 25 0 2 1 0 24 1 0 154 4
160 26 0 1 141 4 1 1 3 0 0 24 1 0 125 4
PROCEDURE 104
163 26 0 3 1326 4
164 1 1 3 16 0 0 0 2 2510 4 25 1 1 4096 0 24 0 3 0 4
168 26 0 2 0 512 0 0 0 1761 3 0 0 0 172 3 0 0 0 231 3
172 6 1 0 2192 4 24 1 0 41 4 24 0 3 5 4 6 0 0 34 0
176 18 1 1 4124 0 2 0 0 1839 4 18 1 1 2 0 1 1 3 0 0
180 18 1 1 2 0 2 0 0 1845 4 24 0 3 5 4 24 0 3 32 0
184 24 0 3 12 0 1 1 3 0 0 0 0 2 1845 4 15 0 0 2246 4
188 2 0 0 1404 4
PROCEDURE 105
189 1 1 1 128 0 6 0 0 189 4 24 0 3 5 4
192 24 0 3 32 0 4 0 0 32 0 3 0 0 211 4 2 0 0 218 4
196 24 0 3 1404 4 6 0 0 0 0 5 0 0 1845 4 27 0 1 202 4
200 24 0 3 1404 4 2 1 0 0 0 24 0 3 1845 4 6 0 0 64 0
204 24 0 3 7 4 2 0 0 64 0 6 0 0 1839 4 24 0 3 1845 4
208 2 0 0 64 0 6 0 0 1792 4 18 0 1 2 0 1 1 1 128 0
212 18 0 1 2 0 4 0 0 7 4 24 0 3 5 4 2 0 0 34 0
216 6 0 0 7 4 18 0 1 2 0 1 1 1 128 0 24 0 3 5 4
220 2 0 0 35 0 26 0 3 1327 4 24 0 2 2264 4 28 1 2 2524 4
224 0 1 0 2404 4 0 0 3 0 4 24 0 2 2524 4 25 1 1 4096 0
228 24 0 3 0 4 23 0 2 0 1280 0 1 1 2404 4 0 0 3 2509 4
232 26 0 0 1535 4 6 0 0 6276 4 1 1 1 14 0 0 1 2 2220 4
236 26 0 0 1404 4 6 1 0 2422 4 28 1 1 2524 4 6 1 0 2424 4
240 28 1 1 5354 4 26 0 0 1819 4 24 1 2 15 4 6 1 0 0 0
244 5 1 0 2194 4 3 1 0 2194 4 27 0 1 347 4 0 1 0 2404 4
248 0 0 3 0 4 0 1 2 2426 4 6 1 0 2428 4 4 0 0 11 4
252 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 0 3 2408 4
256 26 0 0 1492 4 1 1 3 99 0 2 0 0 5451 4 26 0 0 1819 4
260 27 0 0 1341 4 24 1 2 15 4 6 1 0 0 0 5 1 0 2222 4
264 27 0 1 271 4 1 1 3 1 0 2 0 0 6277 4 26 0 0 1492 4
268 26 0 0 1819 4 27 0 0 1341 4 24 1 0 267 4 6 1 0 2430 4
272 28 1 1 2572 4 6 0 0 6276 4 1 1 2 1 0 27 0 0 280 4
276 24 0 2 2282 4 24 1 2 15 4 28 0 2 4 0 24 1 0 283 4
280 24 0 2 2282 4 24 1 2 15 4 28 0 3 0 0 6 1 0 2578 4
284 5 1 0 2196 4 27 0 1 288 4 3 0 0 2240 4 24 1 0 298 4
288 6 1 0 2578 4 5 1 0 2198 4 27 0 0 297 4 6 1 0 2578 4
292 5 1 0 2200 4 27 0 1 341 4 0 0 2 2588 4 15 0 0 2152 4
296 27 0 0 298 4 1 1 3 1 0 2 0 0 3572 4 0 0 3 2509 4
300 1 1 3 1 0 7 0 0 5451 4 0 0 3 2511 4
PROCEDURE 106
303 6 1 0 2580 4
304 1 1 2 256 0 27 0 3 344 4 1 1 2 2201 0 27 0 2 344 4
308 6 1 0 2580 4 26 0 0 1839 4 1 1 2 100 0 18 1 3 3 0
312 18 1 1 4127 0 2 1 0 3580 4 27 1 0 317 4 1 1 3 10 0
316 2 0 0 3581 4 6 0 0 5451 4 0 0 2 2218 4 24 0 1 3581 4
320 18 1 3 0 0 2 0 0 1839 4 24 0 1 3580 4 15 0 0 3672 4
324 27 0 1 344 4 6 0 0 1839 4 24 0 1 3580 4 14 0 0 3672 4
328 0 0 3 2509 4 6 0 0 5451 4 1 0 1 0 0 18 1 1 4119 0
332 13 0 0 2512 4 2 0 0 3582 4 18 1 1 9 0 2 0 0 3581 4
336 6 0 0 3572 4 24 0 1 3581 4 18 0 3 0 0 24 0 1 3582 4
340 7 0 0 5401 4 26 0 0 1492 4 0 0 3 2511 4 24 1 0 259 4
344 1 1 3 1 0 2 1 0 3589 4 24 1 0 328 4
PROCEDURE 107
347 24 1 2 15 4
348 6 1 0 0 0 5 1 0 2202 4 27 0 0 369 4 24 1 2 15 4
352 6 1 0 0 0 5 1 0 2222 4 27 0 0 1851 4 1 1 3 3 0
356 0 0 2 2508 4 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 512
360 0 0 0 1761 3 0 0 0 362 3 6 0 0 6275 4 4 1 0 2432 4
364 3 1 0 2404 4 26 1 3 2404 4 26 0 0 1535 4 24 0 3 1 4
368 24 1 0 33 0 26 0 0 2005 4 0 1 0 2404 4 0 0 3 0 4
372 0 1 2 2426 4 6 1 0 2428 4 4 0 0 11 4 25 1 1 4096 0
376 24 0 3 0 4 23 0 2 0 256 0 0 3 2408 4 6 1 0 2434 4
380 24 1 2 21 4 28 1 1 4 0 3 1 0 2404 4 26 1 3 2404 4
384 26 0 0 1492 4 24 1 2 13 4 6 1 0 14 0 5 1 0 2436 4
388 27 0 1 395 4 24 1 2 13 4 2 1 0 12 0 24 1 2 13 4
392 2 1 0 14 0 24 1 2 13 4 2 1 0 16 0 24 1 2 13 4
396 6 1 0 17 0 2 0 0 6267 4 24 1 2 13 4 6 1 0 15 0
400 2 0 0 6268 4 24 1 2 13 4 6 1 0 13 0 3 0 0 6266 4
404 27 0 1 711 4 26 0 0 1764 4 6 0 0 6267 4 27 0 0 411 4
408 24 1 2 13 4 6 1 0 12 0 24 1 0 413 4 24 1 2 13 4
412 6 1 0 10 0 5 1 0 2196 4 27 0 0 421 4 4 1 0 2196 4
416 5 1 0 2198 4 27 0 0 421 4 4 1 0 2198 4 5 1 0 2200 4
420 27 0 1 405 4 6 0 0 6267 4 27 0 0 432 4 0 1 0 2404 4
424 0 0 3 0 4 24 1 2 13 4 24 0 2 6 0 3 0 0 7354 4
428 24 1 2 13 4 4 1 0 5 0 2 0 0 7355 4 0 1 1 2404 4
432 6 0 0 6267 4 27 0 0 437 4 24 0 3 7354 4 6 1 0 6 0
436 24 1 0 439 4 24 1 2 13 4 6 1 0 10 0 5 1 0 2210 4
440 27 0 0 570 4 4 1 0 2210 4 5 1 0 2196 4 27 0 0 481 4
444 4 1 0 2196 4 5 1 0 2198 4 27 0 0 480 4 4 1 0 2198 4
448 5 1 0 2200 4 27 0 0 469 4 4 1 0 2200 4 5 1 0 2206 4
452 27 0 0 561 4 4 1 0 2206 4 5 1 0 2208 4 27 0 0 561 4
456 4 1 0 2208 4 5 1 0 2438 4 27 0 1 539 4 6 0 0 6267 4
460 27 0 0 464 4 24 0 3 7354 4 6 1 0 5 0 24 1 0 466 4
464 24 1 2 13 4 6 1 0 7 0 27 0 0 539 4 25 0 3 1 0
468 24 1 0 539 4
PROCEDURE 108
469 6 0 0 6267 4 27 0 0 474 4 24 0 3 7354 4
472 0 1 2 15 0 24 1 0 476 4 24 1 2 13 4 0 1 2 21 0
476 1 1 3 0 0 18 1 1 4124 0 15 0 0 2152 4 27 0 0 481 4
480 1 1 3 1 0 2 0 0 2569 4 0 0 3 2511 4 1 1 3 1 0
484 7 0 0 3582 4 6 0 0 3582 4 1 1 1 153 0 26 0 0 1839 4
488 3 0 3 2672 4 25 0 3 1 0 24 1 0 491 4 1 0 1 0 0
492 18 1 1 4119 0 13 0 0 2512 4 2 1 0 2192 4 26 1 1 2192 4
496 18 1 1 9 0 2 0 0 2570 4 6 0 0 2569 4 24 0 1 2570 4
500 18 0 3 0 0 7 0 1 2519 4 6 0 0 6268 4 27 0 1 539 4
504 6 0 0 2574 4 0 0 2 2576 4 27 1 0 539 4 6 0 0 6267 4
508 27 0 0 512 4 24 0 3 7354 4 6 1 0 5 0 24 1 0 514 4
512 24 1 2 13 4 6 1 0 7 0 18 0 1 4126 0 26 0 0 1839 4
516 2 0 0 1845 4 6 0 0 6267 4 27 0 0 522 4 24 0 3 7354 4
520 6 1 0 11 0 24 1 0 524 4 24 1 2 13 4 6 1 0 17 0
524 18 0 1 4126 0 27 0 0 539 4 26 0 0 1839 4 18 1 3 3 0
528 18 1 1 4127 0 24 0 3 0 4 2 0 0 4 22 27 1 0 536 4
532 0 0 2 2218 4 6 0 0 1845 4 18 1 3 10 0 24 1 0 538 4
536 0 0 2 2218 4 6 0 0 1845 4 14 0 2 5456 4 6 0 0 6267 4
540 27 0 0 559 4 24 0 3 7354 4 6 1 0 1 0 2 0 0 1764 4
544 24 0 1 1764 4 23 0 0 0 0 0 0 0 7354 3 24 1 0 432 4
548 26 0 0 1764 4 0 1 0 2404 4 0 0 3 0 4 24 1 2 13 4
552 24 0 2 6 0 3 0 0 7354 4 24 1 2 13 4 4 1 0 5 0
556 2 0 0 7355 4 0 1 1 2404 4 24 1 0 432 4 26 0 0 1764 4
560 24 1 0 432 4
PROCEDURE 109
561 24 1 2 13 4 6 1 0 7 0 2 0 0 2569 4
564 26 0 0 1764 4 24 1 2 13 4 6 1 0 10 0 5 1 0 2210 4
568 27 0 1 564 4 24 1 0 578 4 6 0 0 6267 4 27 0 0 575 4
572 24 0 3 7354 4 6 1 0 5 0 24 1 0 577 4 24 1 2 13 4
576 6 1 0 7 0 2 0 0 2569 4 6 0 0 2569 4 27 0 1 585 4
580 0 0 3 2511 4 6 0 0 3582 4 1 1 1 256 0 18 0 1 2 0
584 3 0 0 2569 4 2 0 0 3593 4 0 0 3 2511 4 1 0 1 3 0
588 15 0 0 2569 4 27 0 0 591 4 1 1 3 256 0 4 0 0 2569 4
592 18 0 1 4126 0 26 0 0 1839 4 2 0 0 2569 4 6 0 0 3582 4
596 1 1 1 256 0 26 0 0 1839 4 2 0 0 5451 4 6 0 0 6268 4
600 27 0 1 678 4 26 1 3 2440 4 26 1 2 2442 4 26 0 0 1786 4
604 6 0 0 2574 4 0 0 2 2576 4 27 1 1 614 4 24 1 2 13 4
608 6 1 2 5 0 18 1 3 2 0 18 1 1 4125 0 2 0 3 2673 4
612 18 1 3 10 0 2 0 3 2672 4 25 0 3 2 0 24 1 0 603 4
616 6 0 0 2574 4 0 0 2 2576 4 27 1 1 622 4 1 1 3 1 0
620 2 0 0 6268 4 24 1 0 678 4 6 0 0 3582 4 1 1 2 1280 0
624 27 0 3 648 4 0 1 0 2404 4 0 0 3 0 4 6 1 0 2444 4
628 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
632 0 1 1 2404 4 0 1 0 2404 4 0 0 3 0 4 6 1 0 2446 4
636 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
640 0 1 1 2404 4 1 1 3 9 0 0 0 2 2508 4 25 1 1 4096 0
644 24 0 3 0 4 26 0 2 0 512 0 0 0 1761 3 0 0 0 362 3
PROCEDURE 110
648 26 1 1 2448 4 26 1 3 2450 4 26 0 0 1786 4 24 1 2 13 4
652 6 1 2 5 0 2 0 1 5760 4 25 0 1 1 0 24 1 0 656 4
656 25 0 3 1 0 24 1 0 650 4 26 0 0 1786 4 24 1 2 13 4
660 6 1 2 5 0 27 0 1 625 4 25 0 1 1 0 24 1 0 658 4
664 26 1 3 2452 4 26 1 1 2454 4 26 0 0 1786 4 24 1 2 13 4
668 6 1 2 5 0 2 0 1 5920 4 25 0 1 1 0 24 1 0 672 4
672 25 0 3 1 0 24 1 0 666 4 26 0 0 1786 4 24 1 2 13 4
676 6 1 2 5 0 27 0 1 625 4 0 1 0 2404 4 0 0 3 0 4
680 0 1 2 2456 4 6 1 0 2458 4 4 0 0 9 4 25 1 1 4096 0
684 24 0 3 0 4 23 0 2 0 256 0 1 1 2404 4 26 0 0 1764 4
688 24 1 2 13 4 6 1 0 6 0 5 1 0 2212 4 27 0 0 709 4
692 24 1 2 13 4 6 1 0 5 0 5 0 0 2574 4 27 0 1 700 4
696 24 1 2 13 4 6 1 0 7 0 5 0 0 2576 4 27 0 0 739 4
700 0 1 0 2404 4 0 0 3 0 4 6 1 0 2446 4 4 0 0 9 4
704 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 2404 4
708 26 0 0 1775 4 26 0 0 1680 4 24 1 0 739 4
PROCEDURE 111
711 26 1 1 2460 4
712 26 0 0 1764 4 24 1 2 13 4 24 0 2 5 0 18 1 1 4123 0
716 1 1 3 46 0 18 1 1 5 0 24 0 0 23 4 28 1 0 2524 4
720 25 0 1 23 0 24 1 0 712 4 6 0 0 2569 4 26 0 0 1845 4
724 18 0 1 2 0 2 0 0 3593 4 0 0 3 2509 4 6 0 0 2569 4
728 18 0 1 5 0 1 1 1 100 0 3 1 0 2404 4 26 1 1 2404 4
732 1 1 3 100 0 3 0 1 2572 4 1 1 1 1 0 25 0 1 1 0
736 24 1 0 733 4 6 0 0 2569 4 2 0 0 5451 4 24 0 2 2250 4
740 24 0 3 1 4 28 1 2 74 0 0 1 0 2404 4 0 0 3 0 4
744 24 0 3 1 4 24 0 2 74 0 25 1 1 4096 0 24 0 3 0 4
748 23 0 2 0 1280 0 1 1 2404 4
PROCEDURE 112
750 26 0 0 1420 4 27 0 0 754 4
752 26 0 0 1492 4 24 1 0 750 4 6 0 0 2513 4 3 0 0 3582 4
756 2 0 0 3586 4 6 0 0 2575 4 18 0 1 4125 0 1 1 2 91 0
760 27 0 0 752 4 6 1 0 3600 4 27 0 1 782 4 1 1 3 1 0
764 2 1 0 3588 4 26 0 0 1530 4 24 1 0 763 4
PROCEDURE 113
767 26 0 0 1819 4
768 27 0 0 1260 4 24 1 2 15 4 6 1 0 0 0 5 1 0 2222 4
772 27 0 1 779 4 1 1 3 1 0 2 0 0 6277 4 26 0 0 1492 4
776 26 0 0 1819 4 27 0 1 775 4 24 1 0 1260 4 26 0 0 1514 4
780 26 0 0 1449 4 27 0 1 1070 4 0 0 3 2511 4 6 0 0 3582 4
784 5 1 0 2575 4 27 0 3 790 4 27 0 1 1140 4 6 0 0 3584 4
788 1 1 2 3 0 27 0 1 1140 4 6 0 0 3593 4 5 1 0 2575 4
792 27 0 2 797 4 1 1 3 1 0 2 1 0 3588 4 26 0 0 1530 4
796 24 1 0 793 4 27 0 1 802 4 6 0 0 7326 4 1 1 2 3 0
800 27 0 1 793 4 24 1 0 1044 4 6 1 0 2575 4 18 0 1 4126 0
804 26 0 0 1839 4 2 0 0 1845 4 24 0 1 1845 4 6 0 0 2572 4
808 27 0 0 1140 4 24 0 1 7326 4 26 0 1 810 4 0 0 0 986 3
812 0 0 0 815 3 0 0 0 1039 3 0 0 0 1014 3
PROCEDURE 114
815 26 0 0 1472 4
816 2 0 0 3572 4 1 0 1 3 0 15 1 0 2575 4 1 1 2 1 0
820 27 0 0 825 4 1 1 3 0 0 0 0 2 3572 4 15 1 0 2575 4
824 27 0 1 1140 4 6 1 0 2575 4 3 0 0 3586 4 18 0 1 8 0
828 27 0 0 832 4 6 0 0 3575 4 1 1 2 460 0 27 0 0 1140 4
832 26 0 0 1492 4 26 0 0 1819 4 27 0 0 842 4 24 1 2 15 4
836 6 1 0 0 0 5 1 0 2222 4 27 0 0 842 4 26 0 0 1514 4
840 26 0 0 1449 4 27 0 1 877 4
PROCEDURE 115
842 6 0 0 3586 4 3 0 0 3582 4
844 18 0 1 8 0 27 0 1 848 4 6 0 0 3586 4 24 1 0 894 4
848 18 0 1 4120 0 1 1 2 1 0 27 0 0 866 4 1 1 3 0 0
852 5 0 0 3572 4 1 1 2 1 0 2 0 0 3587 4 6 0 0 3586 4
856 18 1 1 4126 0 2 0 0 3591 4 6 0 0 3586 4 5 0 0 3587 4
860 2 0 0 3586 4 6 0 0 3586 4 18 1 1 4126 0 5 0 0 3591 4
864 27 0 1 866 4 26 0 0 1792 4 24 1 2 15 4 6 1 0 0 0
868 18 0 1 4124 0 18 0 1 4 0 5 1 0 2210 4 27 0 0 1260 4
872 24 1 2 15 4 6 1 0 0 0 5 1 0 2222 4 27 0 0 773 4
876 24 1 0 782 4
PROCEDURE 116
877 6 1 0 2575 4 18 0 1 4126 0 26 0 0 1839 4
880 2 0 0 1845 4 24 0 1 1845 4 6 0 0 2572 4 27 0 0 1140 4
884 26 0 0 1472 4 2 0 0 3572 4 0 0 2 3572 4 15 1 0 2575 4
888 27 0 1 1140 4 6 0 0 3586 4 5 1 0 2575 4 27 0 2 1140 4
892 6 1 0 2575 4 3 0 0 3582 4 18 1 1 4126 0 2 0 0 3587 4
896 6 0 0 3586 4 18 1 1 4126 0 3 0 0 3591 4 5 0 0 3587 4
900 27 0 0 905 4 6 0 0 3586 4 18 0 1 8 0 27 0 0 927 4
904 24 1 0 1140 4 18 1 1 2 0 27 0 0 927 4 6 0 0 3586 4
908 18 0 1 8 0 18 0 1 4120 0 1 1 2 1 0 27 0 0 1140 4
912 6 0 0 3586 4 5 1 0 2575 4 5 0 0 3572 4 1 1 2 1 0
916 2 0 0 3587 4 6 0 0 3586 4 5 0 0 3587 4 2 0 0 3586 4
920 6 0 0 3586 4 18 0 1 4126 0 5 0 0 3591 4 27 0 1 925 4
924 26 0 0 1792 4 26 0 0 1492 4 24 1 0 767 4
PROCEDURE 117
927 6 0 0 3587 4
928 26 0 0 1839 4 1 1 1 1 0 5 0 0 2569 4 27 0 3 933 4
932 1 1 3 0 0 4 0 0 2569 4 2 0 0 3587 4 6 0 0 3591 4
936 26 0 0 1839 4 2 0 0 3591 4 6 0 0 3586 4 18 0 1 8 0
940 27 0 0 943 4 1 1 3 1 0 7 0 0 3591 4 6 0 0 3587 4
944 18 0 1 5 0 4 0 0 3591 4 3 1 0 2404 4 26 1 1 2404 4
948 1 1 3 0 0 2 0 0 3594 4 6 0 1 2572 4 27 0 1 954 4
952 1 1 3 1 0 7 0 0 3594 4 25 0 1 1 0 24 1 0 950 4
956 6 0 0 3587 4 5 0 0 3591 4 3 0 0 1839 4 4 0 0 2514 4
960 18 0 1 5 0 24 0 1 3591 4 28 0 0 2572 4 6 0 0 2569 4
964 18 0 1 5 0 4 0 0 3587 4 2 1 0 2192 4 5 0 0 1839 4
968 4 0 0 3594 4 3 0 0 1845 4 7 0 0 5451 4 26 1 1 2192 4
972 25 0 1 0 0 24 1 0 975 4 24 1 0 981 4 6 0 1 2572 4
976 27 0 0 979 4 6 0 0 1845 4 7 0 1 2572 4 25 0 1 1 0
980 24 1 0 975 4 0 0 3 2511 4 6 0 0 3582 4 5 0 0 3586 4
984 27 0 0 866 4 24 1 0 925 4
PROCEDURE 118
986 1 0 1 3 0 1 1 3 0 0
988 15 1 0 2575 4 27 0 1 1014 4 6 1 0 2575 4 18 1 1 4126 0
992 26 0 0 1839 4 5 0 0 2569 4 27 0 2 1024 4 6 1 0 2578 4
996 5 1 0 2196 4 27 0 0 1008 4 6 1 0 2578 4 5 1 0 2198 4
1000 27 0 0 1007 4 6 1 0 2578 4 5 1 0 2200 4 27 0 1 1140 4
1004 0 0 2 2588 4 15 0 0 2152 4 27 0 0 1008 4 1 1 3 1 0
1008 2 0 0 1845 4 26 0 0 1472 4 3 0 0 3572 4 5 0 0 1845 4
1012 27 0 1 1140 4 24 1 0 1067 4 26 0 0 1472 4 2 0 0 3572 4
1016 1 0 1 3 0 15 1 0 2575 4 1 1 2 1 0 27 0 0 1024 4
1020 1 1 3 0 0 0 0 2 3572 4 15 1 0 2575 4 27 0 1 1140 4
1024 6 1 0 2575 4 3 0 0 3586 4 3 0 0 3582 4 18 1 1 4126 0
1028 2 0 0 3591 4 6 1 0 2578 4 5 1 0 2196 4 27 0 0 1140 4
1032 6 1 0 2578 4 5 1 0 2198 4 27 0 0 1140 4 6 1 0 2578 4
1036 5 1 0 2200 4 27 0 0 1140 4 24 1 0 1067 4
PROCEDURE 119
1039 26 0 0 1472 4
1040 2 0 0 3572 4 0 0 2 3572 4 15 1 0 2575 4 27 0 1 1140 4
1044 6 1 0 2575 4 3 0 0 3582 4 2 0 0 3586 4 6 0 0 3582 4
1048 3 0 0 3590 4 18 1 1 4126 0 26 0 0 1839 4 2 0 0 3579 4
1052 6 0 0 3593 4 5 0 0 3590 4 27 0 1 1061 4 0 0 3 2511 4
1056 6 0 0 3590 4 1 1 1 153 0 18 1 1 4126 0 26 0 0 1839 4
1060 2 0 0 3579 4 6 1 0 2575 4 18 0 1 8 0 27 0 0 1067 4
1064 6 0 0 3575 4 1 1 2 460 0 27 0 0 1140 4 26 0 0 1492 4
1068 26 0 0 1420 4 27 0 0 782 4
PROCEDURE 120
1070 24 0 1 7326 4 26 0 1 1071 4
1072 0 0 0 1076 3 0 0 0 1140 3 0 0 0 1098 3 0 0 0 1076 3
1076 0 0 3 2511 4 6 0 0 3572 4 1 1 1 1 0 7 0 0 3582 4
1080 6 0 0 3582 4 18 1 1 4126 0 5 0 0 3591 4 27 0 1 1094 4
1084 6 1 0 2578 4 5 1 0 2196 4 27 0 0 1140 4 6 1 0 2578 4
1088 5 1 0 2198 4 27 0 0 1140 4 6 1 0 2578 4 5 1 0 2200 4
1092 27 0 0 1140 4 24 1 0 925 4 6 0 0 2515 4 5 0 0 3572 4
1096 7 0 0 3582 4 24 1 0 1140 4
PROCEDURE 121
1098 6 1 0 2578 4 5 1 0 2196 4
1100 27 0 0 1111 4 6 1 0 2578 4 5 1 0 2198 4 27 0 0 1110 4
1104 6 1 0 2578 4 5 1 0 2200 4 27 0 1 1175 4 0 0 2 2588 4
1108 15 0 0 2152 4 27 0 0 1111 4 1 1 3 1 0 2 0 0 3572 4
1112 1 0 1 0 0 6 0 0 3590 4 18 1 1 4126 0 1 1 3 0 0
1116 27 1 0 1128 4 6 0 0 3590 4 5 0 0 3593 4 27 0 0 1128 4
1120 6 0 0 3582 4 5 0 0 3586 4 27 0 0 1140 4 2 0 0 3587 4
1124 6 0 0 3582 4 2 0 0 3586 4 26 0 0 1792 4 24 1 0 1140 4
1128 6 1 0 2580 4 26 0 0 1839 4 27 0 3 1140 4 3 0 0 3576 4
1132 5 0 0 2569 4 27 0 3 1140 4 6 0 0 3576 4 1 1 2 999 0
1136 27 0 2 1140 4 24 0 1 3576 4 6 0 0 2572 4 27 0 0 1144 4
1140 1 1 3 1 0 2 1 0 3588 4 26 0 0 1530 4 24 1 0 782 4
PROCEDURE 122
1144 0 0 3 2509 4 6 0 0 2569 4 18 0 1 5 0 4 0 0 3579 4
1148 3 1 0 2404 4 26 1 1 2404 4 25 0 1 0 0 24 1 0 1154 4
1152 6 0 0 5451 4 24 1 0 1156 4 24 0 1 3579 4 6 0 0 2572 4
1156 2 0 0 1550 4 1 1 3 1 0 7 0 0 5451 4 6 0 0 3572 4
1160 18 0 1 4 0 4 0 0 1550 4 24 0 1 3576 4 2 0 0 2572 4
1164 25 0 1 0 0 24 1 0 1167 4 24 1 0 1173 4 6 0 1 2572 4
1168 27 0 0 1171 4 1 1 3 1 0 7 0 1 2572 4 25 0 1 1 0
1172 24 1 0 1167 4 0 0 3 2511 4 24 1 0 1067 4
PROCEDURE 123
1175 1 0 1 0 0
1176 6 0 0 3590 4 5 0 0 2516 4 27 0 3 1140 4 6 0 0 3590 4
1180 18 1 1 4126 0 1 1 3 0 0 27 1 0 925 4 6 1 0 2575 4
1184 18 0 1 4126 0 26 0 0 1839 4 5 0 0 2569 4 27 0 3 1229 4
1188 6 0 0 3574 4 1 1 2 100 0 27 0 2 1229 4 6 1 0 2575 4
1192 24 0 1 3574 4 2 0 0 4582 4 1 0 1 3 0 15 0 0 3586 4
1196 2 0 0 1680 4 6 0 0 3586 4 18 0 1 4126 0 26 0 0 1839 4
1200 2 0 0 1819 4 24 0 1 1819 4 6 0 0 2572 4 26 0 0 1845 4
1204 3 0 0 3591 4 18 0 1 2 0 4 0 0 1680 4 2 0 0 3578 4
1208 6 0 0 3579 4 5 0 0 1819 4 27 0 0 1213 4 6 0 0 2515 4
1212 7 0 0 3591 4 26 1 1 2448 4 6 0 1 4122 4 27 0 0 1223 4
1216 18 0 1 4126 0 5 0 0 3591 4 27 0 1 1221 4 6 0 1 4123 4
1220 7 0 0 3578 4 25 0 1 2 0 24 1 0 1214 4 0 0 3 2509 4
1224 6 0 0 3578 4 24 0 1 3574 4 2 0 0 4583 4 1 1 3 2 0
1228 7 0 0 3574 4 0 0 3 2511 4 6 0 0 3572 4 1 1 1 1 0
1232 7 0 0 3586 4 26 0 0 1492 4 26 0 0 1819 4 27 0 0 1243 4
1236 24 1 2 15 4 6 1 0 0 0 5 1 0 2222 4 27 0 0 1243 4
1240 26 0 0 1514 4 26 0 0 1449 4 27 0 1 1070 4 6 0 0 3586 4
1244 5 0 0 3582 4 2 0 0 3587 4 6 0 0 3582 4 2 0 0 3586 4
1248 26 0 0 1792 4 24 1 2 15 4 6 1 0 0 0 18 0 1 4124 0
1252 18 0 1 4 0 5 1 0 2210 4 27 0 0 1260 4 24 1 2 15 4
1256 6 1 0 0 0 5 1 0 2222 4 27 0 0 773 4 27 0 1 782 4
PROCEDURE 124
1260 0 0 3 2509 4 6 1 0 2462 4 28 0 0 5406 4 6 0 0 2569 4
1264 18 0 1 5 0 1 1 1 100 0 3 1 0 2404 4 26 1 1 2404 4
1268 26 1 2 2464 4 26 1 3 2466 4 0 0 2 2152 4 6 0 1 2572 4
1272 27 0 0 1290 4 1 1 3 0 0 15 0 2 2524 4 27 0 0 1290 4
1276 0 1 0 3572 4 6 0 1 2572 4 1 0 1 0 0 18 1 1 4119 0
1280 13 0 0 2512 4 2 0 0 2192 4 18 1 1 9 0 2 0 0 2193 4
1284 1 1 3 1 0 24 0 1 2193 4 18 0 3 0 0 24 0 1 2192 4
1288 7 0 0 5401 4 0 1 1 3572 4 18 1 3 1 0 25 0 1 1 0
1292 24 1 0 1294 4 24 1 0 1298 4 25 0 3 1 0 24 1 0 1271 4
1296 25 0 2 1 0 24 1 0 1269 4 1 1 3 1000 0 18 0 1 5 0
1300 4 0 0 2569 4 3 1 0 2404 4 26 1 1 2404 4 6 0 1 2572 4
1304 27 0 0 1320 4 18 1 1 4124 0 27 0 0 1320 4 1 1 3 0 0
1308 18 1 1 4 0 1 0 1 0 0 18 1 1 4119 0 13 0 0 2512 4
1312 2 1 0 2192 4 26 1 2 2192 4 18 1 1 9 0 2 0 0 3573 4
1316 1 1 3 1 0 24 0 1 3573 4 18 0 3 0 0 7 0 2 5401 4
1320 25 0 1 1 0 24 1 0 1303 4 24 1 0 1328 4
PROCEDURE 125
1323 24 0 1 7326 4
1324 26 0 1 1324 4 0 0 0 231 3 0 0 0 164 3 0 0 0 222 3
1328 26 1 1 2468 4 26 1 2 2440 4 1 1 3 0 0 1 0 1 15 0
1332 15 0 2 2673 4 18 0 3 10 0 15 0 2 2672 4 2 0 1 3672 4
1336 25 0 1 1 0 24 1 0 1338 4 25 0 2 2 0 24 1 0 1332 4
1340 24 1 0 1353 4 0 0 3 2509 4 6 0 0 2240 4 27 0 0 1351 4
1344 1 1 3 17 0 0 0 2 2508 4 25 1 1 4096 0 24 0 3 0 4
1348 26 0 2 0 512 0 0 0 1761 3 0 0 0 362 3 1 1 3 1 0
1352 7 0 0 5451 4 26 0 0 1492 4 0 0 3 2509 4 6 0 0 6276 4
1356 1 1 1 24 0 26 0 0 1404 4 0 1 0 2404 4 0 0 3 0 4
1360 6 1 0 2470 4 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4
1364 23 0 2 0 256 0 1 1 2404 4 24 0 2 3672 4 18 1 1 4123 0
1368 1 1 3 1010 0 18 1 1 5 0 24 0 3 1 4 28 0 0 74 0
1372 24 0 2 5406 4 18 1 1 4123 0 1 1 3 46 0 18 1 1 5 0
1376 24 0 3 1 4 28 0 0 1084 0 3 1 0 2404 4 26 1 3 2404 4
1380 3 1 0 2404 4 26 1 1 2404 4 26 0 0 1535 4 6 1 0 2194 4
1384 27 0 0 33 4 0 1 0 2404 4 0 0 3 0 4 0 0 2 2517 4
1388 6 1 0 2472 4 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4
1392 23 0 2 0 256 0 1 1 2404 4 0 1 0 2404 4 0 0 3 0 4
1396 0 0 2 16 4 6 1 0 2474 4 4 0 0 9 4 25 1 1 4096 0
1400 24 0 3 0 4 23 0 2 0 256 0 1 1 2404 4 24 1 0 33 4
PROCEDURE 126
1404 0 0 0 0 0 18 0 1 5 0 4 0 0 8 4 25 1 1 4096 0
1408 24 0 3 0 4 23 0 2 160 0 26 0 1 1404 4 0 1 0 2404 4
1412 0 0 3 0 4 6 1 0 2476 4 4 0 0 9 4 25 1 1 4096 0
1416 24 0 3 0 4 23 0 2 0 256 0 1 1 2404 4 26 0 3 1407 4
PROCEDURE 127
1420 0 0 0 0 0 26 0 0 1819 4 27 0 0 1260 4 24 1 2 15 4
1424 6 1 0 0 0 5 1 0 2222 4 27 0 0 773 4 26 0 0 1514 4
1428 26 0 0 1449 4 26 0 1 1420 4
PROCEDURE 128
1430 0 0 0 0 0 24 1 2 13 4
1432 24 0 2 4 0 18 1 1 4123 0 1 1 3 148 0 18 1 1 5 0
1436 24 1 2 19 4 28 1 1 4 0 0 1 0 2404 4 0 0 3 0 4
1440 0 0 2 18 4 6 1 0 2478 4 4 0 0 10 4 25 1 1 4096 0
1444 24 0 3 0 4 23 0 2 0 256 0 1 1 2404 4 26 0 0 1764 4
1448 26 0 1 1430 4
PROCEDURE 129
1449 0 0 0 0 0 0 0 3 2511 4 0 1 2 2576 4
1452 1 1 3 0 0 18 1 1 2 0 1 1 2 105 0 27 0 0 1465 4
1456 1 1 1 21 0 27 0 0 1464 4 1 1 2 25 0 27 0 0 1463 4
1460 1 1 1 34 0 27 0 1 1471 4 1 1 3 1 0 1 1 1 1 0
1464 1 1 1 1 0 1 1 1 1 0 2 0 0 1472 4 6 0 0 7326 4
1468 2 0 0 3584 4 6 0 0 1472 4 2 0 0 7326 4 26 0 1 1449 4
PROCEDURE 130
1472 0 0 0 0 0 6 1 0 2575 4 18 0 1 4126 0 26 0 0 1839 4
1476 1 1 2 100 0 1 0 1 0 0 18 1 1 4119 0 13 0 0 2512 4
1480 2 0 0 2192 4 18 1 1 9 0 2 0 0 2193 4 0 0 2 2152 4
1484 24 0 1 2193 4 18 1 3 0 0 24 0 1 2192 4 15 0 0 2524 4
1488 27 0 0 1490 4 1 1 3 1 0 0 0 3 2511 4 26 0 1 1472 4
PROCEDURE 131
1492 0 0 0 0 0 26 0 0 1550 4 6 1 0 2436 4 24 1 2 21 4
1496 2 1 0 52 0 6 1 0 3588 4 24 1 2 21 4 2 1 0 50 0
1500 0 1 0 2404 4 0 0 3 0 4 0 0 2 20 4 6 1 0 2478 4
1504 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
1508 0 1 1 2404 4 6 1 0 2434 4 24 1 2 21 4 28 1 1 4 0
1512 2 1 0 3588 4 26 0 1 1492 4
PROCEDURE 132
1514 0 0 0 0 0 1 1 3 0 0
1516 2 1 0 2576 4 2 1 0 2588 4 24 0 1 6276 4 26 0 1 1519 4
1520 0 0 0 1526 3 0 0 0 1522 3 24 0 2 2296 4 24 1 2 15 4
1524 28 0 2 0 0 26 0 1 1514 4 24 0 2 2280 4 24 1 2 15 4
1528 28 0 3 0 0 26 0 1 1514 4
PROCEDURE 133
1530 0 0 0 0 0 26 0 0 1492 4
1532 26 0 0 1420 4 27 0 1 1531 4 26 0 1 1530 4
PROCEDURE 134
1535 0 0 0 0 0
1536 25 1 1 4096 0 23 0 2 1539 4 26 0 1 1535 4 0 0 0 0 0
1540 24 0 3 9 4 0 0 2 64 0 24 0 3 7 4 6 0 0 64 0
1544 24 0 3 9 4 2 0 0 64 0 18 1 1 10 0 24 0 3 7 4
1548 2 0 0 64 0 26 0 3 1539 4
PROCEDURE 135
1550 0 0 0 0 0 24 0 1 6276 4
1552 26 0 1 1552 4 0 0 0 1625 3 0 0 0 1555 3 1 1 3 0 0
1556 2 0 0 1514 4 26 1 1 2480 4 26 1 2 2482 4 0 1 0 2404 4
1560 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0 24 0 3 0 4
1564 4 0 0 2 22 2 0 0 2410 4 0 1 1 2404 4 24 0 3 2410 4
1568 0 1 2 0 0 1 1 3 0 0 18 1 1 2 0 1 1 2 126 0
1572 27 0 0 1582 4 25 0 2 4098 0 24 1 0 1569 4 24 1 2 15 4
1576 6 1 1 0 0 24 1 2 21 4 2 1 1 4 0 25 0 1 2 0
1580 24 1 0 1558 4 26 0 1 1550 4 0 1 0 3594 4 0 0 3 2509 4
1584 24 0 3 0 4 6 0 0 2 22 2 1 0 2410 4 0 0 2 2518 4
1588 10 1 0 2410 4 2 1 0 2192 4 24 0 3 0 4 6 0 0 4 22
1592 3 0 0 1680 4 1 0 1 1 0 14 0 0 2193 4 1 1 3 10 0
1596 5 0 0 2193 4 7 0 0 2192 4 0 0 3 2511 4 1 0 1 3 0
1600 1 1 3 94 0 24 0 1 1680 4 18 1 1 0 0 24 1 2 15 4
1604 14 1 1 0 0 0 0 3 2509 4 6 0 0 1514 4 1 1 2 10 0
1608 27 0 0 1623 4 6 0 0 1514 4 2 0 0 7356 4 6 0 0 2192 4
1612 0 1 0 2404 4 0 0 3 0 4 24 1 2 21 4 24 0 2 0 0
1616 4 0 0 7356 4 2 0 0 2410 4 0 1 1 2404 4 24 0 3 2410 4
1620 2 1 0 37 0 1 1 3 2 0 7 0 0 1514 4 0 1 1 3594 4
1624 24 1 0 1573 4 26 1 1 2484 4 26 1 2 2482 4 0 1 0 2404 4
1628 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0 24 0 3 0 4
1632 4 0 0 2 22 2 0 0 2410 4 0 1 1 2404 4 24 0 3 2410 4
1636 0 1 2 0 0 1 1 3 0 0 18 1 1 2 0 1 1 2 126 0
1640 27 0 0 1653 4 25 0 2 4098 0 24 1 0 1637 4 24 1 2 15 4
1644 6 1 1 0 0 24 1 2 21 4 2 1 1 4 0 25 0 1 2 0
1648 24 1 0 1626 4 1 1 3 126 0 24 1 2 21 4 2 1 0 46 0
1652 24 1 0 1140 4 24 0 3 0 4 6 0 0 4 22 2 0 0 1680 4
1656 1 0 1 3 0 1 1 3 94 0 24 0 1 1680 4 18 1 1 0 0
1660 24 1 2 15 4 14 1 1 0 0 24 1 2 15 4 6 1 1 0 0
1664 24 1 2 21 4 2 1 1 4 0 0 1 0 3594 4 0 0 3 2509 4
1668 24 0 3 0 4 6 0 0 2 22 1 1 1 4 0 18 0 1 3 0
1672 24 1 2 21 4 2 1 0 49 0 1 0 1 3 0 15 0 0 1680 4
1676 24 1 2 21 4 14 1 0 49 0 0 0 3 3598 4 26 0 1 1550 4
PROCEDURE 136
1680 0 0 0 0 0 26 0 0 1764 4 0 0 3 2509 4 24 1 2 13 4
1684 6 1 0 4 0 5 1 0 2214 4 27 0 0 1740 4 24 1 2 13 4
1688 6 1 0 9 0 5 0 0 2519 4 27 0 1 1681 4 24 1 2 13 4
1692 6 1 0 10 0 5 1 0 2204 4 27 0 0 1730 4 24 1 2 13 4
1696 6 1 0 6 0 5 1 0 2212 4 27 0 1 1681 4 26 0 0 1764 4
1700 26 1 1 2486 4 24 1 2 13 4 6 1 1 5 0 5 0 0 2170 4
1704 27 0 1 1708 4 6 0 0 2242 4 27 0 0 1681 4 24 1 0 1740 4
1708 4 0 0 2170 4 5 0 0 2574 4 27 0 1 1727 4 24 1 2 13 4
1712 6 1 1 7 0 5 0 0 2576 4 27 0 1 1727 4 24 1 2 13 4
1716 6 1 1 8 0 1 1 2 32 0 27 0 0 1727 4 24 1 2 13 4
1720 6 1 1 9 0 27 0 0 1726 4 24 1 2 13 4 6 1 1 11 0
1724 2 0 0 7347 4 24 1 0 1727 4 2 0 0 2242 4 25 0 1 8 0
1728 24 1 0 1701 4 24 1 0 1699 4 0 0 3 2511 4 24 1 2 13 4
1732 6 1 0 5 0 5 0 0 2574 4 27 0 1 1681 4 24 1 2 13 4
1736 6 1 0 7 0 5 0 0 2576 4 27 0 1 1681 4 26 0 1 1680 4
1740 0 1 0 2404 4 0 0 3 0 4 6 1 0 2444 4 4 0 0 9 4
1744 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 2404 4
1748 1 1 3 1 0 2 0 0 2242 4 2 0 0 7347 4 1 1 3 2 0
1752 0 0 2 2510 4 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 512
1756 0 0 0 1761 3 0 0 0 1759 3 0 0 0 362 3 26 0 0 1775 4
1760 24 1 0 1681 4 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 768
PROCEDURE 137
1764 0 0 0 0 0 0 1 0 2404 4 0 0 3 0 4 0 0 2 12 4
1768 6 1 0 2474 4 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4
1772 23 0 2 0 256 0 1 1 2404 4 26 0 1 1764 4
PROCEDURE 138
1775 0 0 0 0 0
1776 0 1 0 2404 4 0 0 3 0 4 0 1 2 2488 4 6 1 0 2490 4
1780 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
1784 0 0 3 2408 4 26 0 1 1775 4
PROCEDURE 139
1786 0 0 0 0 0 25 0 2 2 0
1788 24 1 0 1791 4 26 0 0 1764 4 26 1 2 2460 4 26 0 1 1786 4
PROCEDURE 140
1792 0 0 0 0 0 6 0 0 3575 4 1 1 2 460 0 27 0 2 1818 4
1796 1 1 3 0 0 1 0 1 3 0 15 0 0 3586 4 2 0 0 1680 4
1800 6 0 0 3586 4 18 0 1 4126 0 26 0 0 1839 4 2 0 0 1819 4
1804 24 0 1 1819 4 6 0 0 2572 4 26 0 0 1845 4 18 0 1 2 0
1808 4 0 0 1680 4 24 0 1 3575 4 2 0 0 4122 4 6 0 0 3587 4
1812 24 0 1 3575 4 2 0 0 4123 4 0 0 3 2509 4 1 1 3 2 0
1816 7 0 0 3575 4 0 0 3 2511 4 26 0 1 1792 4
PROCEDURE 141
1819 0 0 0 0 0
1820 0 1 0 3594 4 0 0 3 2509 4 0 0 2 14 4 6 0 0 6276 4
1824 1 1 1 4 0 26 0 0 1404 4 0 1 1 3594 4 24 1 2 15 4
1828 6 1 0 0 0 5 1 0 2492 4 27 0 1 1833 4 26 0 0 1492 4
1832 24 1 0 1820 4 24 1 2 15 4 6 1 0 0 0 18 0 1 4124 0
1836 18 0 1 4 0 5 1 0 2210 4 26 0 1 1819 4
PROCEDURE 142
1839 0 0 0 0 0
1840 2 1 0 2192 4 0 0 3 2509 4 24 0 2 2172 4 12 1 0 2192 4
1844 26 0 1 1839 4
PROCEDURE 143
1845 0 0 0 0 0 2 1 0 2192 4 0 0 3 2511 4
1848 24 0 2 2152 4 12 1 0 2192 4 26 0 1 1845 4
PROCEDURE 144
1851 26 0 0 2005 4
1852 0 1 0 2404 4 0 0 3 0 4 0 1 2 2426 4 6 1 0 2428 4
1856 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
1860 0 0 3 2408 4 24 1 2 13 4 6 1 0 13 0 2 0 0 6266 4
1864 1 1 3 0 0 24 1 2 13 4 0 1 2 12 0 18 1 1 2 0
1868 1 1 2 71 0 27 0 3 625 4 24 1 2 13 4 6 1 0 17 0
1872 2 0 0 6267 4 6 1 0 2222 4 2 1 0 2202 4 24 0 2 2260 4
1876 18 1 1 4123 0 1 1 3 4 0 18 1 1 5 0 28 1 1 2258 4
1880 24 0 2 2250 4 24 0 3 1 4 28 1 2 74 0 0 1 0 2404 4
1884 0 0 3 0 4 24 0 3 1 4 24 0 2 74 0 25 1 1 4096 0
1888 24 0 3 0 4 23 0 2 0 1280 0 1 1 2404 4 26 0 0 1492 4
1892 26 0 0 1819 4 27 0 1 1891 4 26 0 0 1492 4 0 1 0 2404 4
1896 0 0 3 0 4 6 1 0 2470 4 4 0 0 11 4 25 1 1 4096 0
1900 24 0 3 0 4 23 0 2 0 256 0 1 1 2404 4 0 0 3 2509 4
1904 6 0 0 6276 4 1 1 1 24 0 26 0 0 1404 4 6 1 0 2494 4
1908 24 1 2 19 4 28 1 1 4 0 0 1 0 2404 4 0 0 3 0 4
1912 0 1 2 2496 4 6 1 0 2428 4 4 0 0 10 4 25 1 1 4096 0
1916 24 0 3 0 4 23 0 2 0 256 0 0 3 2408 4 18 1 1 10 0
1920 2 0 0 7344 4 26 0 0 2027 4 26 0 0 2027 4 24 0 2 2224 4
1924 18 1 1 4123 0 1 1 3 10 0 18 1 1 5 0 24 1 2 19 4
1928 28 1 1 4 0 26 0 0 2027 4 6 0 0 3600 4 3 0 0 5406 4
1932 24 1 2 19 4 3 1 0 5 0 24 1 2 19 4 3 1 0 13 0
1936 0 0 3 2511 4 1 1 3 1 0 1 0 1 3 0 15 0 0 3601 4
1940 14 0 0 3601 4 0 0 3 2509 4 6 0 0 3601 4 24 1 2 19 4
1944 3 1 0 7 0 24 1 2 19 4 2 1 0 15 0 1 1 3 2 0
1948 24 1 2 19 4 2 1 0 11 0 1 1 3 3 0 24 1 2 19 4
1952 2 1 0 19 0 1 1 3 4 0 24 1 2 19 4 2 1 0 17 0
1956 6 1 0 2228 4 24 1 2 19 4 2 1 0 20 0 26 0 0 2027 4
1960 6 0 0 3600 4 24 1 2 19 4 2 1 0 5 0 6 0 0 3601 4
1964 24 1 2 19 4 2 1 0 7 0 6 1 0 2228 4 24 1 2 19 4
1968 2 1 0 8 0 6 1 0 2204 4 24 1 2 19 4 2 1 0 10 0
1972 6 1 0 2498 4 24 1 2 19 4 2 1 0 12 0 24 1 2 19 4
1976 2 1 0 14 0 6 0 0 6267 4 24 1 2 19 4 2 1 0 17 0
1980 26 0 0 2027 4 26 0 0 1764 4 26 0 0 1430 4 26 0 0 1430 4
1984 6 0 0 3601 4 3 0 0 5407 4 24 1 2 13 4 2 1 0 13 0
1988 26 0 0 1430 4 6 0 0 6267 4 27 0 0 1994 4 24 1 2 13 4
1992 6 1 0 12 0 24 1 0 1996 4 24 1 2 13 4 6 1 0 10 0
1996 5 1 0 2196 4 27 0 0 2044 4 4 1 0 2196 4 5 1 0 2200 4
2000 27 0 0 2044 4 4 1 0 2200 4 5 1 0 2198 4 27 0 1 1988 4
2004 24 1 0 2044 4
PROCEDURE 145
2005 0 0 0 0 0 24 0 1 6276 4 26 0 1 2007 4
2008 0 0 0 2014 3 0 0 0 2010 3 24 0 2 2288 4 24 1 2 15 4
2012 28 0 2 0 0 24 1 0 2017 4 24 0 2 2288 4 24 1 2 15 4
2016 28 0 3 0 0 6 0 0 2574 4 18 0 1 2 0 4 0 0 2575 4
2020 3 0 0 2574 4 2 0 0 3600 4 6 0 0 2576 4 2 0 0 3601 4
2024 26 0 0 1775 4 26 0 0 1680 4 26 0 1 2005 4
PROCEDURE 146
2027 0 0 0 0 0
2028 6 1 0 2436 4 24 1 2 19 4 2 1 0 50 0 0 1 0 2404 4
2032 0 0 3 0 4 0 0 2 18 4 6 1 0 2478 4 4 0 0 10 4
2036 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 2404 4
2040 6 1 0 2494 4 24 1 2 19 4 28 1 1 4 0 26 0 1 2027 4
PROCEDURE 147
2044 6 0 0 6267 4 27 0 0 2063 4 24 1 2 13 4 6 1 0 5 0
2048 18 0 1 5 0 3 1 0 2404 4 26 1 1 2404 4 24 1 2 13 4
2052 6 1 1 12 0 5 1 0 2210 4 27 0 0 2067 4 24 1 2 13 4
2056 6 1 1 7 0 2 0 0 2027 4 24 0 1 2027 4 25 0 1 0 0
2060 24 1 0 2051 4 26 0 0 1430 4 24 1 0 2044 4 24 1 2 13 4
2064 6 1 0 10 0 5 1 0 2210 4 27 0 1 2061 4 26 0 0 1430 4
2068 24 1 2 13 4 6 1 0 6 0 5 1 0 2226 4 27 0 1 2067 4
2072 24 1 2 13 4 6 1 0 11 0 1 1 2 3 0 27 0 0 2093 4
2076 6 0 0 7347 4 2 0 0 1839 4 0 1 0 2404 4 0 0 3 0 4
2080 6 0 0 1839 4 4 1 0 2500 4 18 1 1 4118 0 6 1 0 2458 4
2084 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
2088 0 1 1 2404 4 26 0 0 1764 4 1 1 3 3 0 24 1 2 13 4
2092 2 1 0 11 0 26 0 0 1430 4 26 1 1 2486 4 24 1 2 13 4
2096 6 1 1 5 0 5 0 0 2170 4 27 0 0 2103 4 25 0 1 8 0
2100 24 1 0 2095 4 26 0 0 1764 4 24 1 0 2094 4 6 0 0 2520 4
2104 3 0 0 6000 4 3 0 0 6279 4 3 0 0 6277 4 2 0 0 35 4
2108 1 1 3 2 0 2 0 0 6278 4 26 0 0 1535 4 6 0 0 6275 4
2112 27 0 0 2120 4 6 1 0 2502 4 2 1 0 7358 4 6 0 0 7351 4
2116 27 0 1 2129 4 6 1 0 2428 4 0 1 2 2248 4 24 1 0 2123 4
2120 6 0 0 6274 4 1 1 1 10 0 18 0 1 5 0 4 0 0 7 4
2124 25 1 1 4096 0 24 0 3 0 4 23 0 2 160 0 6 0 0 6275 4
2128 27 0 0 1383 4 6 1 0 2504 4 24 1 2 13 4 2 1 0 4 0
2132 6 0 0 2521 4 24 1 2 13 4 2 1 0 7 0 6 1 0 2498 4
2136 24 1 2 13 4 2 1 0 8 0 6 0 0 3600 4 24 1 2 13 4
2140 2 1 0 11 0 6 1 0 2436 4 24 1 2 13 4 2 1 0 12 0
2144 6 1 0 2478 4 0 0 2 12 4 25 1 1 4096 0 4 0 0 7 4
2148 24 0 3 0 4 23 0 2 160 0 24 1 0 1383 4 0 0 0 0 0
SECTION 148
2152 1 0 0 0 16 0 0 0
2156 256 0 0 0 4096 0 0 0
2160 65536 0 0 0 48576 0 10 0
2164 77216 0 167 0 35456 0 2684 0
2168 67296 0 42949 0 £££££ 0 £££££ 0
2172 1 0 0 0 Ю 0 0 0
2176 64 0 0 0 3.8 0 0 0
2180 2710 0 0 0 186Ю0 0 0 0
2184 £4240 0 0 0 89680 0 9 0
2188 5.100 0 5£ 0 Ю+Ю00 0 3‼9 0
2192 0 0 0 0 65764 0 67696 0
2196 65369 0 67696 0 26355 0 73515 0
2200 57273 0 53666 0 56554 0 51645 0
2204 27259 0 67517 0 46772 0 54746 0
2208 35572 0 56596 0 40000 0 55655 0
2212 45577 0 59655 0 55972 0 56596 0
2216 5.5. 0 0 0 3££ 0 0 0
2220 8000 0 5241 0 16454 0 73695 0
2224 £6£6£ 0 6£6£6 0 45577 0 59655 0
2228 £4£4£ 0 4£4£4 0 42 0 0 0
2232 15965 0 53585 0 56554 0 56595 0
2236 3030 0 30483 0 36653 0 51636 0
2240 55400 0 51735 0 36951 0 55777 0
2244 47355 0 69667 0 £8 0 0 0
2248 8000 0 5149 0
SECTION 149
2250 0 2236 3 5 3 0 0 0 5 0
2252 0 2202 3 37 3 0 0 2 5 0 0 2574 3 37 0 0 0 2 5 0
2256 0 2576 3 16405 0 4 0 1 5 0 0 2216 3 818 3 0 3 3 2 1
2260 0 2306 3 85 3 0 0 5 5 0 0 2216 3 818 3 0 3 3 2 1
2264 0 2236 3 5 3 0 0 0 5 0 0 2238 3 21 3 0 0 1 5 0
2268 0 2240 3 5 3 0 0 0 5 0 0 2242 3 5 3 0 0 0 5 0
2272 0 2244 3 21 3 0 0 1 5 0 0 2192 3 4898 0 1 3 2 2 0
2276 0 1449 3 1025 0 0 4 0 1 0 0 2216 3 786 3 0 3 1 2 1
SECTION 150
2280 0 2574 3 5 3 0 0 0 5 0 0 2578 3 5 3 0 0 0 5 0
2284 0 2580 3 3 2 0 0 0 3 0 0 2588 3 1 0 0 0 0 1 1
2288 0 2578 3 5 3 0 0 0 5 0 0 2574 3 3 0 0 0 0 3 0
2292 0 2575 3 2 0 0 0 0 2 0 0 2576 3 5 0 0 0 0 5 1
2296 0 2574 3 5 3 0 0 0 5 0 0 2576 3 5 3 0 0 0 5 0
2300 0 2578 3 5 3 0 0 0 5 0 0 2580 3 3 2 0 0 0 3 0
2304 0 2588 3 1 0 0 0 0 1 1
SECTION 151
2306 77372 0 4+006 0
2308 0 0 0 0 0 0 0 0
2312 0 0 0 0 0 0 0 0
2316 0 0 0 0 0 0 0 0
2320 0 0 0 0 0 0 0 0
2324 0 0 0 0 0 0 0 0
2328 0 0 0 0 0 0 0 0
2332 0 0 0 0 0 0 0 0
2336 0 0 0 0 0 0 0 0
2340 0 0 0 0 0 0 0 0
2344 0 0 0 0 0 0 0 0
2348 0 0 0 0 0 0 0 0
2352 0 0 0 0 0 0 0 0
2356 0 0 0 0 0 0 0 0
2360 0 0 0 0 0 0 0 0
2364 0 0 0 0 0 0 0 0
2368 0 0 0 0 0 0 0 0
2372 0 0 0 0 0 0 0 0
2376 0 0 0 0 0 0 0 0
2380 0 0 0 0 0 0 0 0
2384 0 0 0 0 0 0 0 0
2388 0 0 0 0 0 0 0 0
2392 0 0 0 0 0 0 0 0
2396 0 0 0 0 0 0 0 0
2400 0 0 0 0 0 0 0 0
SECTION 1015
2404 0 0 0 0 0 0 0 0
2408 0 0 0 0 0 0 0 0
2412 0 0 0 0 0 0 0 0
2416 0 0 0 0 40 0 80 0
2420 +0 0 £0 0 0 0 2086. 0
2424 0 0 20346 0 8000 0 5146 0
2428 0 0 12 0 0 0 20012 0
2432 0 0 9 0 0 0 20032 0
2436 7. 0 7.000 0 37455 0 75516 0
2440 0 0 384 0 0 0 2 0
2444 0 0 1‼ 0 0 0 22 0
2448 0 0 1++ 0 0 0 Ю0 0
2452 0 0 32 0 0 0 64 0
2456 £££££ 0 8 0 0 0 24 0
2460 0 0 2. 0 0 0 2002: 0
2464 0 0 2: 0 0 0 14 0
2468 0 0 1+2 0 0 0 21 0
2472 0 0 28 0 0 0 7 0
2476 0 0 1+ 0 0 0 8 0
2480 0 0 20 0 10008 0 £££. 0
2484 0 0 38 0 0 0 30 0
2488 8000 0 5141 0 0 0 11 0
2492 55573 0 72585 0 0 0 2002. 0
2496 8000 0 5142 0 83041 0 4 0
2500 0 0 Ю 0 0 0 12+ 0
2504 96573 0 67695 0 0 0 0 0
SECTION 1016
2508 2 0 0 0 3 0 66666 0
2512 14 0 9999 0 20000 0 1- 0
2516 10002 0 1 0 5 0 £££££ 0
2520 1.006 0 8000 0 0 0 0 0
SECTION 1017
PROCEDURE 1003
CHAPT 3 EXTRA CHAPTER
202 0 0 0 0
CHAPT 4
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 152
33 0 1 0 5070 4 0 0 3 0 4 1 1 3 4 0
36 0 0 2 5206 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1024
40 0 1 1 5070 4 0 0 3 5207 4 6 1 0 5084 4 28 1 1 6204 4
44 6 0 0 6276 4 1 1 2 1 0 27 0 0 50 4 6 0 0 5069 4
48 2 0 0 5065 4 24 1 0 55 4 1 0 1 512 0 18 1 3 3 0
52 1 1 3 0 0 14 1 0 4554 4 14 1 0 4560 4 6 0 0 5067 4
56 3 0 0 6202 4 2 0 0 5064 4 6 1 0 5086 4 28 1 1 5234 4
60 1 1 3 1 0 2 0 0 7340 4 2 0 0 6272 4 2 0 0 7342 4
64 2 0 0 7343 4 2 0 0 6270 4 1 1 3 5 0 2 0 0 7327 4
68 24 0 3 0 4 6 1 0 2 22 27 0 0 229 4 3 1 0 5234 4
72 6 1 0 5088 4 28 1 1 6266 4 24 0 3 0 4 6 0 0 6 22
76 3 0 0 6275 4 6 0 0 5208 4 3 0 0 6266 4 3 0 0 6270 4
80 2 0 0 6267 4 6 1 0 5090 4 28 1 1 5354 4 0 0 2 5235 4
84 15 0 0 4792 4 27 0 0 88 4 1 1 3 2 0 2 0 0 7340 4
88 15 0 0 4710 4 1 1 2 2 0 2 0 0 6202 4 15 0 0 4718 4
92 1 1 2 4 0 27 0 0 96 4 1 1 3 2 0 2 0 0 6278 4
96 15 0 0 4715 4 2 0 0 6268 4 1 1 3 450 0 18 0 1 5 0
100 4 0 0 5234 4 24 0 3 1 4 28 1 1 74 0 2 0 0 140 4
104 26 1 3 5092 4 0 1 0 5070 4 0 0 3 0 4 6 0 0 1 4
108 24 0 3 0 4 4 0 0 6 22 2 0 0 5076 4 0 1 1 5070 4
112 24 0 3 5076 4 0 0 2 74 0 18 1 1 7 0 18 1 3 2 0
116 5 0 0 140 4 27 0 3 119 4 7 0 0 140 4 1 1 3 0 0
120 18 1 3 10 0 5 0 0 140 4 27 0 3 124 4 7 0 0 140 4
124 1 1 3 0 0 25 0 3 1 0 24 1 0 105 4 6 0 0 140 4
128 1 1 1 1 0 24 0 3 1 4 2 0 0 1129 0 6 1 0 5094 4
132 24 0 3 1 4 28 1 1 524 0 24 0 3 0 4 6 1 0 4 22
136 2 1 0 5234 4 25 1 1 4096 0 23 0 2 140 4 24 1 0 204 4
PROCEDURE 153
140 0 0 0 0 0 1 1 3 15 0 24 0 3 4706 4 23 1 0 56 0
144 24 0 3 4706 4 23 1 0 210 0 24 0 3 4706 4 23 1 0 364 0
148 24 0 3 4706 4 23 1 0 518 0 24 0 3 4706 4 23 1 0 576 0
152 24 0 3 4706 4 23 1 0 730 0 24 0 3 4706 4 23 1 0 884 0
156 24 0 3 4706 4 23 1 0 1038 0
PROCEDURE 154
158 23 0 3 4616 4 18 0 1 4 0
160 7 0 0 4706 4 6 0 0 4706 4 24 1 2 14 4 3 0 0 64 0
164 1 1 1 58 0 24 1 2 16 4 3 0 0 64 0 1 1 1 154 0
168 24 1 2 18 4 3 0 0 64 0 1 1 1 154 0 24 1 2 20 4
172 3 0 0 64 0 1 1 1 154 0 24 0 3 8 4 3 0 0 64 0
176 1 1 1 58 0 24 0 3 9 4 3 0 0 64 0 1 1 1 154 0
180 24 0 3 10 4 3 0 0 64 0 1 1 1 154 0 24 0 3 11 4
184 2 0 0 64 0
PROCEDURE 155
185 24 0 3 5 4 6 0 0 34 0 18 0 1 4124 0
188 2 0 0 6274 4 1 0 1 15 0 6 0 0 5 4 1 1 1 204 0
192 24 1 2 12 4 14 0 0 64 0 6 0 0 5 4 1 1 1 598 0
196 24 1 2 7 4 14 0 0 64 0 1 1 3 15 0 24 0 3 5 4
200 23 1 0 596 0 24 0 3 5 4 23 1 0 990 0 26 0 3 140 4
PROCEDURE 156
204 6 1 0 5096 4 28 1 1 50 4 6 1 0 5234 4 2 1 0 50 4
208 0 1 0 5070 4 0 0 3 0 4 0 1 2 5098 4 6 1 0 5100 4
212 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
216 0 0 3 5074 4 26 0 0 4110 4 24 1 2 17 4 6 1 0 10 0
220 5 1 0 1338 4 27 0 1 217 4 1 1 3 1 0 3 0 0 6000 4
224 2 0 0 58 4 6 1 0 4734 4 24 1 2 21 4 2 1 0 4 0
228 24 1 0 306 4
PROCEDURE 157
229 0 1 0 5070 4 0 0 3 0 4 0 1 2 5102 4
232 6 1 0 5100 4 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4
236 23 0 2 0 256 0 0 3 5074 4 6 1 0 5096 4 28 1 1 50 4
240 6 0 0 5209 4 2 0 0 53 4 26 0 0 4121 4 24 0 2 1236 4
244 26 0 0 5063 4 0 0 3 5210 4 6 1 0 5236 4 5 1 0 1334 4
248 27 0 0 256 4 26 0 0 4249 4 26 0 0 1184 4 1 1 3 2 0
252 3 0 0 83 4 2 0 0 6278 4 2 1 0 5242 4 24 1 0 343 4
256 2 1 0 5250 4 2 1 0 5252 4 24 0 2 1272 4 26 0 0 5063 4
260 1 1 3 0 0 0 0 2 5250 4 15 0 0 4710 4 2 0 0 6202 4
264 24 0 1 6276 4 26 0 1 265 4 0 0 0 271 3 0 0 0 268 3
268 6 1 0 5252 4 1 1 2 115 0 24 1 0 273 4 6 1 0 5254 4
272 5 1 0 5104 4 27 0 1 276 4 1 1 3 2 0 24 1 0 277 4
276 1 1 3 0 0 2 0 0 6278 4 6 0 0 6266 4 27 0 1 283 4
280 6 0 0 5250 4 1 1 2 4 0 2 0 0 6202 4 6 0 0 5211 4
284 15 0 0 4772 4 2 0 0 7340 4 6 0 0 5251 4 2 0 0 1586 4
288 26 0 0 4249 4 27 0 1 294 4 6 1 0 5242 4 18 0 1 6 0
292 4 1 0 5254 4 2 1 0 5242 4 6 0 0 5238 4 18 0 1 2 0
296 4 0 0 5240 4 2 0 0 50 4 0 1 2 5242 4 26 0 0 4820 4
300 6 1 0 139 4 2 0 0 51 4 1 1 3 1 0 3 0 0 6000 4
304 2 0 0 58 4
PROCEDURE 158
305 26 0 0 4121 4 6 1 0 5086 4 28 0 0 5234 4
308 26 0 0 4110 4 24 1 2 17 4 6 1 0 6 0 5 1 0 1330 4
312 27 0 1 308 4 24 1 2 21 4 6 1 0 4 0 5 1 0 1330 4
316 27 0 0 332 4 24 0 2 1170 4 24 1 2 17 4 28 0 2 4 0
320 24 1 2 17 4 24 0 2 20 0 18 1 1 4123 0 1 1 3 30 0
324 18 1 1 5 0 28 1 1 5250 4 0 0 3 5210 4 1 1 3 1 0
328 1 0 1 3 0 15 1 0 5243 4 14 1 0 5243 4 24 1 0 343 4
PROCEDURE 159
332 24 0 2 1236 4 26 0 0 5063 4 26 0 0 4249 4 6 0 0 51 4
336 3 1 0 5243 4 1 1 1 1 0 18 0 1 2 0 2 0 0 5234 4
340 2 0 0 58 4 26 0 0 1184 4 24 1 0 326 4
PROCEDURE 160
343 6 1 0 5086 4
344 24 1 2 19 4 28 0 0 4 0 6 0 0 6270 4 27 0 0 359 4
348 0 1 0 5070 4 0 0 3 0 4 0 0 2 0 4 6 1 0 5106 4
352 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
356 0 1 1 5070 4 1 1 3 0 0 24 1 0 369 4 0 1 0 5070 4
360 0 0 3 0 4 0 1 2 5108 4 6 1 0 5110 4 4 0 0 10 4
364 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 0 3 5074 4
368 18 1 1 10 0 2 0 0 7344 4 26 0 0 4090 4 26 0 0 4090 4
372 24 0 2 4750 4 18 1 1 4123 0 1 1 3 10 0 18 1 1 5 0
376 24 1 2 19 4 28 1 1 4 0 26 0 0 4090 4 6 0 0 5238 4
380 18 0 1 2 0 4 0 0 5240 4 3 0 0 82 4 24 1 2 19 4
384 3 1 0 5 0 24 1 2 19 4 3 1 0 13 0 6 1 0 5243 4
388 2 0 0 51 4 6 0 0 1586 4 27 0 0 394 4 18 0 1 2 0
392 1 0 1 28 0 14 0 0 51 4 24 0 2 1168 4 28 1 2 5242 4
396 6 1 0 5242 4 24 1 2 19 4 3 1 0 6 0 24 1 2 19 4
400 2 1 0 14 0 1 1 3 2 0 24 1 2 19 4 2 1 0 11 0
404 1 1 3 3 0 24 1 2 19 4 3 1 0 19 0 1 1 3 2 0
408 4 0 0 6278 4 24 1 2 19 4 2 1 0 17 0 6 1 0 4751 4
412 24 1 2 19 4 2 1 0 21 0 26 0 0 4090 4 6 0 0 82 4
416 24 1 2 19 4 2 1 0 5 0 6 1 0 5242 4 24 1 2 19 4
420 2 1 0 6 0 6 0 0 5212 4 24 1 2 19 4 2 1 0 9 0
424 6 1 0 1338 4 24 1 2 19 4 2 1 0 10 0 6 0 0 6270 4
428 24 1 2 19 4 3 1 0 15 0 27 0 1 434 4 6 1 0 5112 4
432 24 1 2 19 4 3 1 0 12 0 24 1 2 19 4 2 1 0 17 0
436 26 0 0 4090 4 24 0 3 1 4 6 0 0 1129 0 2 0 0 4743 4
440 6 0 0 6270 4 27 0 1 458 4 24 0 3 1 4 24 0 2 1084 0
444 18 1 1 4123 0 1 1 3 23 0 18 1 1 5 0 24 1 2 19 4
448 28 0 1 5 0 26 0 0 4090 4 24 0 3 1 4 24 0 2 1107 0
452 18 1 1 4123 0 1 1 3 23 0 18 1 1 5 0 24 1 2 19 4
456 28 0 1 5 0 26 0 0 4090 4 24 0 2 1170 4 24 1 2 19 4
460 28 1 2 4 0 24 0 2 5250 4 18 1 1 4123 0 1 1 3 30 0
464 18 1 1 5 0 24 1 2 19 4 28 1 1 20 0 26 0 0 4090 4
468 6 0 0 4703 4 2 0 0 5979 4 0 0 3 5210 4
PROCEDURE 161
471 6 0 0 58 4
472 27 0 0 556 4 26 0 0 4110 4 1 1 3 0 0 24 1 2 17 4
476 2 1 0 46 0 24 1 2 17 4 2 1 0 48 0 2 0 0 83 4
480 24 1 2 17 4 6 1 0 9 0 26 0 0 1613 4 24 1 0 485 4
484 0 0 0 1217 3 27 0 1 490 4 6 1 0 4760 4 24 1 2 17 4
488 2 1 0 48 0 24 1 0 492 4 24 1 2 17 4 2 1 0 9 0
492 26 0 0 1050 4 26 0 0 4110 4 24 1 2 17 4 6 1 0 6 0
496 5 1 0 1336 4 27 0 0 515 4 24 1 2 17 4 6 1 0 9 0
500 26 0 0 2765 4 18 1 3 2 0 18 1 1 4127 0 24 1 2 17 4
504 4 0 0 7 0 18 1 3 2 0 18 1 1 4123 0 24 1 2 17 4
508 6 1 0 46 0 26 0 0 759 4 27 0 1 514 4 6 1 0 4746 4
512 24 1 2 17 4 2 1 0 46 0 24 1 0 492 4 24 1 2 21 4
516 6 1 0 4 0 5 1 0 1336 4 27 0 0 799 4 24 1 2 17 4
520 24 0 2 9 0 18 1 1 4123 0 1 1 3 30 0 18 1 1 5 0
524 28 1 0 63 4 2 0 0 83 4 6 0 0 63 4 26 0 0 2765 4
528 2 0 0 63 4 26 1 2 62 4 6 0 2 64 4 26 0 0 1613 4
532 24 1 0 534 4 0 0 0 1217 3 27 0 1 539 4 6 1 0 4760 4
536 24 1 2 19 4 2 1 0 48 0 24 1 0 540 4 2 0 2 64 4
540 25 0 2 1 0 24 1 0 530 4 24 0 2 64 4 18 1 1 4123 0
544 1 1 3 14 0 18 1 1 5 0 24 1 2 17 4 28 0 1 11 0
548 24 1 2 17 4 24 0 2 4 0 18 1 1 4123 0 1 1 3 34 0
552 18 1 1 5 0 24 1 2 19 4 28 1 1 4 0 24 1 0 860 4
PROCEDURE 162
556 6 1 0 5086 4 28 1 1 5234 4 26 0 0 4121 4 24 0 2 1236 4
560 26 0 0 5063 4 26 0 0 4249 4 6 0 0 5213 4 2 0 0 53 4
564 6 1 0 5236 4 5 1 0 1332 4 27 0 0 569 4 1 1 3 1 0
568 26 0 0 1206 4 6 0 0 5238 4 1 1 2 256 0 27 0 3 574 4
572 1 1 2 2201 0 27 0 3 577 4 1 1 3 2 0 26 0 0 1206 4
576 26 0 0 4239 4 1 1 3 1 0 2 0 0 83 4 6 0 0 5238 4
580 26 0 0 1613 4 24 1 0 583 4 0 0 0 1217 3 27 0 1 587 4
584 6 1 0 4760 4 2 1 0 5278 4 24 1 0 588 4 2 0 0 5238 4
588 6 1 0 5240 4 1 1 2 1 0 27 0 3 593 4 1 1 2 4 0
592 27 0 3 596 4 1 1 3 3 0 26 0 0 1206 4 26 0 0 4239 4
596 24 0 2 1170 4 24 1 2 19 4 28 1 2 4 0 24 0 2 5250 4
600 18 1 1 4123 0 1 1 3 30 0 18 1 1 5 0 24 1 2 19 4
604 28 1 1 20 0 26 0 0 4090 4 26 0 0 4121 4 6 0 0 6000 4
608 27 0 0 621 4 26 0 0 4195 4 27 0 1 615 4 24 1 2 21 4
612 6 1 0 4 0 5 1 0 1336 4 27 0 1 645 4 26 0 0 4110 4
616 24 1 2 17 4 6 1 0 6 0 5 1 0 1336 4 27 0 1 615 4
620 24 1 0 515 4 24 1 2 21 4 6 1 0 4 0 5 1 0 1336 4
624 27 0 0 799 4 24 1 2 21 4 6 1 0 4 0 18 0 1 4124 0
628 18 0 1 4 0 5 1 0 4734 4 27 0 1 645 4 6 1 0 5114 4
632 4 0 0 6275 4 3 1 0 5070 4 26 1 3 5070 4 1 1 3 1 0
636 0 0 2 5206 4 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 512
640 0 0 0 642 3 0 0 0 33 1 25 1 1 4096 0 24 0 3 0 4
644 26 0 2 0 768 6 1 0 5086 4 28 1 1 5234 4 2 0 0 52 4
648 24 0 2 1246 4 26 0 0 5063 4 26 0 0 4249 4
PROCEDURE 163
651 6 0 0 5214 4
652 2 0 0 53 4 0 1 2 5236 4 26 0 0 4282 4 3 1 0 5236 4
656 18 1 1 4119 0 1 1 2 5 0 27 0 3 673 4 1 1 3 0 0
660 18 1 1 1 0 1 1 2 10 0 27 0 2 673 4 1 1 3 0 0
664 18 1 1 2 0 1 1 2 48 0 27 0 0 671 4 1 1 2 17 0
668 27 0 3 673 4 1 1 2 9 0 27 0 2 673 4 1 1 3 0 0
672 27 1 0 675 4 1 1 3 1 0 26 0 0 1206 4 6 1 0 5238 4
676 1 1 2 1 0 27 0 3 715 4 1 1 2 2 0 27 0 1 682 4
680 1 1 3 38 0 24 1 0 713 4 1 1 2 1 0 27 0 0 700 4
684 1 1 2 21 0 27 0 0 700 4 1 1 2 1 0 27 0 0 723 4
688 1 1 2 1 0 27 0 0 715 4 1 1 2 1 0 27 0 0 723 4
692 1 1 2 1 0 27 0 0 715 4 1 1 2 1 0 27 0 0 723 4
696 1 1 2 1 0 27 0 0 723 4 27 0 2 715 4 24 1 0 723 4
700 6 1 0 5242 4 26 0 0 2765 4 18 1 3 2 0 18 1 1 4126 0
704 2 1 0 5070 4 27 1 0 707 4 1 1 3 1 0 4 1 0 5070 4
708 1 1 2 5 0 27 0 2 719 4 1 1 1 5 0 18 0 3 6 0
712 26 0 0 2759 4 2 1 0 5242 4 24 1 0 723 4 1 1 3 2 0
716 26 0 0 1206 4 26 0 0 4239 4 24 1 0 723 4 1 1 3 4 0
720 26 0 0 1206 4 26 0 0 4239 4 24 1 0 726 4 6 1 0 5242 4
724 27 0 3 719 4 27 0 0 719 4 24 1 0 772 4 1 1 3 5 0
728 26 0 0 1206 4 26 0 0 4239 4 6 1 0 5240 4 27 0 3 734 4
732 1 1 2 256 0 27 0 3 737 4 1 1 3 3 0 26 0 0 1206 4
736 26 0 0 4239 4 6 1 0 5238 4 26 0 0 2765 4 18 1 3 2 0
740 18 1 1 4127 0 4 0 0 5237 4 18 1 3 2 0 18 1 1 4123 0
744 6 1 0 5276 4 26 0 0 759 4 27 0 1 748 4 26 0 0 4239 4
748 24 0 2 1140 4 24 1 2 19 4 28 1 2 6 0 24 0 2 5262 4
752 18 1 1 4123 0 1 1 3 18 0 18 1 1 5 0 24 1 2 19 4
756 28 1 1 32 0 26 0 0 4090 4 24 1 0 606 4
PROCEDURE 164
759 0 0 0 0 0
760 5 1 0 4746 4 27 0 0 770 4 1 1 3 16 0 5 0 0 6009 4
764 27 0 0 770 4 18 1 1 5 0 24 0 1 6009 4 2 0 0 6013 4
768 1 1 3 2 0 7 0 0 6009 4 0 0 3 5210 4 26 0 1 759 4
772 6 0 0 5244 4 27 0 1 778 4 6 0 0 5238 4 1 1 2 25 0
776 27 0 0 727 4 24 1 0 730 4 6 0 0 5238 4 1 1 2 5 0
780 27 0 0 795 4 1 1 2 2 0 27 0 0 795 4 1 1 2 1 0
784 27 0 0 795 4 1 1 2 3 0 27 0 0 795 4 1 1 2 4 0
788 27 0 0 795 4 1 1 2 4 0 27 0 1 727 4 6 0 0 5244 4
792 5 0 0 5215 4 27 0 2 727 4 24 1 0 730 4 6 0 0 5244 4
796 1 1 2 1 0 27 0 0 730 4 24 1 0 727 4
PROCEDURE 165
799 6 0 0 5216 4
800 3 0 0 83 4 2 0 0 53 4 6 1 0 5086 4 28 1 1 5234 4
804 6 0 0 51 4 18 0 1 2 0 2 0 0 5234 4 24 0 2 1288 4
808 26 0 0 5063 4 6 0 0 5238 4 1 1 2 1 0 27 0 3 814 4
812 1 1 2 20 0 27 0 3 817 4 1 1 3 1 0 3 0 0 5238 4
816 26 0 0 1206 4 6 0 0 5238 4 26 0 0 2765 4 2 0 0 63 4
820 0 0 3 5210 4 26 1 2 62 4 6 0 2 5239 4 26 0 0 1613 4
824 24 1 0 826 4 0 0 0 1217 3 27 0 1 830 4 6 1 0 4760 4
828 2 1 0 5278 4 6 0 2 5239 4 3 0 2 64 4 3 0 2 5239 4
832 1 1 2 256 0 27 0 3 836 4 1 1 2 2201 0 27 0 3 838 4
836 1 1 3 2 0 26 0 0 1206 4 25 0 2 1 0 24 1 0 822 4
840 6 0 2 5239 4 27 0 0 844 4 1 1 3 3 0 26 0 0 1206 4
844 24 0 2 5238 4 18 1 1 4123 0 1 1 3 15 0 18 1 1 5 0
848 24 1 2 19 4 28 0 1 9 0 24 0 2 5268 4 18 1 1 4123 0
852 1 1 3 12 0 18 1 1 5 0 24 1 2 19 4 28 1 1 38 0
856 24 0 2 1164 4 24 1 2 19 4 28 1 2 4 0 26 0 0 4121 4
860 24 1 2 21 4 6 1 0 4 0 5 1 0 1340 4 27 0 0 867 4
864 6 0 0 6000 4 27 0 1 891 4 24 1 0 905 4 6 0 0 6000 4
868 27 0 0 875 4 26 0 0 4110 4 24 1 2 17 4 6 1 0 6 0
872 5 1 0 1340 4 27 0 1 875 4 26 0 0 4110 4 6 1 0 5088 4
876 28 1 1 5234 4 24 0 2 1288 4 26 0 0 5063 4 26 0 0 4090 4
880 24 0 2 5238 4 18 1 1 4123 0 1 1 3 7 0 18 1 1 5 0
884 24 1 2 19 4 28 0 1 9 0 6 1 0 1340 4 24 1 2 19 4
888 2 1 0 6 0 26 0 0 4121 4 24 1 0 905 4 26 0 0 4110 4
892 24 1 2 17 4 6 1 0 6 0 5 1 0 1340 4 27 0 1 905 4
896 26 0 0 4090 4 24 1 2 17 4 24 0 2 4 0 18 1 1 4123 0
900 1 1 3 40 0 18 1 1 5 0 24 1 2 19 4 28 1 1 4 0
904 26 0 0 4110 4
PROCEDURE 166
905 6 1 0 5116 4 24 0 3 1 4 2 1 0 2572 0
908 24 0 3 1 4 2 1 0 2570 0 1 1 3 1 0 2 0 0 7334 4
912 6 0 0 63 4 26 0 0 2759 4 2 0 0 1326 4 6 0 0 5217 4
916 2 0 0 53 4 1 1 3 153 0 2 0 0 5973 4 6 1 0 5118 4
920 2 1 0 7356 4 0 0 3 5207 4 26 1 3 62 4 1 1 1 1 0
924 3 0 3 5980 4 25 0 3 1 0 24 1 0 923 4 0 0 3 5210 4
928 1 1 3 4097 0 2 0 0 59 4 6 0 0 6000 4 27 0 1 946 4
932 24 0 1 6276 4 26 0 1 933 4 0 0 0 936 3 0 0 0 939 3
936 24 1 2 21 4 6 1 0 4 0 24 1 0 941 4 24 1 2 21 4
940 6 1 0 8 0 26 0 0 3997 4 6 0 0 88 4 27 0 3 1364 4
944 26 0 0 1032 4 24 1 0 932 4
PROCEDURE 167
946 26 0 0 1118 4 27 0 1 951 4
948 0 1 2 1328 4 24 1 0 1008 4 26 0 0 4110 4 6 0 0 95 4
952 27 0 1 959 4 24 1 2 17 4 6 1 0 5 0 24 1 2 21 4
956 5 1 0 5 0 27 0 0 974 4 27 0 3 1007 4 26 0 0 1129 4
960 6 0 0 88 4 27 0 3 1364 4 24 0 2 1154 4 24 1 2 17 4
964 28 0 2 6 0 24 1 2 17 4 24 0 2 32 0 18 1 1 4123 0
968 1 1 3 16 0 18 1 1 5 0 28 1 1 5262 4 2 1 0 5278 4
972 26 0 0 1061 4 24 1 0 950 4
PROCEDURE 168
974 24 0 1 7327 4 26 0 1 975 4
976 0 0 0 980 3 0 0 0 988 3 0 0 0 1002 3 0 0 0 980 3
980 26 0 0 1129 4 6 0 0 88 4 27 0 3 1364 4 26 0 0 1032 4
984 26 0 0 1118 4 27 0 1 950 4 26 0 0 4110 4 24 1 0 980 4
988 26 0 0 4121 4 26 0 0 1118 4 27 0 1 950 4 26 0 0 4110 4
992 26 0 0 1129 4 6 0 0 88 4 27 0 3 1364 4 24 1 2 17 4
996 6 1 0 5 0 24 1 2 21 4 5 1 0 5 0 27 0 3 1007 4
1000 27 0 0 988 4 24 1 0 991 4 26 0 0 4121 4 26 0 0 1032 4
1004 26 0 0 1118 4 27 0 0 1003 4 24 1 0 951 4
PROCEDURE 169
1007 0 1 2 5236 4
1008 24 1 2 19 4 6 0 0 47 0 5 0 0 4735 4 27 0 0 1017 4
1012 1 1 3 0 0 18 1 1 10 0 24 1 2 19 4 2 1 0 46 0
1016 24 1 0 1020 4 18 1 1 10 0 24 1 2 19 4 2 1 0 44 0
1020 6 1 0 5238 4 24 1 2 19 4 2 1 0 48 0 1 0 1 15 0
1024 1 1 3 7453 0 3 0 0 6272 4 24 1 2 19 4 14 1 0 48 0
1028 26 0 0 4121 4 26 0 0 1118 4 27 0 0 1028 4 24 1 0 951 4
PROCEDURE 170
1032 0 0 0 0 0 6 1 0 5086 4 28 1 1 5234 4 24 0 2 1260 4
1036 26 0 0 5063 4 26 0 0 4249 4 6 0 0 7327 4 1 1 2 4 0
1040 27 0 1 1045 4 24 0 2 1154 4 24 1 2 17 4 28 0 2 6 0
1044 24 1 0 1047 4 6 0 0 51 4 2 0 0 5240 4 26 0 0 4121 4
1048 26 0 0 1061 4 26 0 1 1032 4
PROCEDURE 171
1050 0 0 0 0 0 0 1 0 5070 4
1052 0 0 3 0 4 0 0 2 16 4 6 1 0 5120 4 4 0 0 10 4
1056 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 5070 4
1060 26 0 1 1050 4
PROCEDURE 172
1061 0 0 0 0 0 26 0 0 1505 4 26 1 1 5122 4
1064 26 1 2 5120 4 1 1 3 0 0 2 1 0 5278 4 6 0 1 5236 4
1068 5 0 2 1321 4 27 0 3 1073 4 6 0 2 1320 4 5 0 1 5236 4
1072 27 0 2 1079 4 24 0 3 0 4 6 0 0 2 22 1 1 1 1 0
1076 26 0 0 1206 4 26 0 0 4239 4 24 1 0 1104 4 25 0 1 1 0
1080 24 1 0 1081 4 25 0 2 2 0 24 1 0 1067 4 6 0 0 5238 4
1084 27 0 0 1091 4 7 0 0 5976 4 6 0 0 5976 4 1 1 2 9 0
1088 27 0 3 1091 4 1 1 3 5 0 24 1 0 1076 4 6 0 0 5236 4
1092 26 0 0 1352 4 0 0 2 90 4 15 0 3 122 4 27 0 1 1089 4
1096 0 0 3 5207 4 6 0 0 90 4 7 0 3 122 4 6 0 0 5238 4
1100 27 0 0 1104 4 6 0 0 90 4 18 0 3 10 0 7 0 3 122 4
1104 0 0 3 5210 4 26 0 0 4090 4 24 0 2 1150 4 24 1 2 19 4
1108 28 1 2 4 0 1 1 3 1 0 7 0 0 59 4 24 0 2 5262 4
1112 18 1 1 4123 0 1 1 3 18 0 18 1 1 5 0 24 1 2 19 4
1116 28 1 1 32 0 26 0 1 1061 4
PROCEDURE 173
1118 0 0 0 0 0 26 0 0 4195 4
1120 27 0 0 1128 4 6 0 0 5237 4 18 0 1 4125 0 1 1 2 91 0
1124 27 0 0 1127 4 1 1 3 1 0 2 0 0 95 4 1 1 3 1 0
1128 26 0 1 1118 4
PROCEDURE 174
1129 0 0 0 0 0 6 0 0 6267 4 27 0 0 1136 4
1132 24 1 2 17 4 6 1 0 12 0 26 0 0 3997 4 26 0 1 1129 4
1136 24 1 2 17 4 6 1 0 10 0 24 1 0 1134 4 0 0 0 0 0
SECTION 175
1140 0 5236 3 5 3 0 0 0 5 0 0 5238 3 20485 0 5 0 0 5 0
1144 0 5240 3 20485 0 5 0 0 5 0 0 5242 3 20485 0 5 0 0 5 0
1148 0 5244 3 20485 0 5 0 0 5 1 0 4728 3 1 3 0 0 0 1 0
1152 0 59 3 12548 0 3 1 0 4 0 0 5236 3 16389 0 4 0 0 5 0
1156 0 5237 3 16389 0 4 0 0 5 0 0 5238 3 16389 0 4 0 0 5 0
1160 0 5239 3 16389 0 4 0 0 5 0 0 5240 3 20485 0 5 0 0 5 1
1164 0 5234 3 20485 0 5 0 0 5 0 0 5236 3 5 3 0 0 0 5 1
1168 0 51 3 16389 0 4 0 0 5 1 0 5234 3 20485 0 5 0 0 5 0
1172 0 5236 3 5 3 0 0 0 5 0 0 5238 3 20485 0 5 0 0 5 0
1176 0 5240 3 16389 0 4 0 0 5 0 0 5242 3 5 3 0 0 0 5 0
1180 0 5244 3 40970 2 10 0 0 10 0 0 5244 3 20485 0 5 0 0 5 1
PROCEDURE 176
1184 0 0 0 0 0 6 0 0 5238 4 1 1 2 4096 0 27 0 3 1190 4
1188 1 1 3 65 0 26 0 0 1206 4 6 0 0 5240 4 1 1 2 256 0
1192 27 0 3 1195 4 1 1 3 66 0 26 0 0 1206 4 6 0 0 5238 4
1196 4 0 0 5240 4 27 0 1 1200 4 1 1 3 67 0 26 0 0 1206 4
1200 6 0 0 6000 4 27 0 1 1203 4 2 1 0 5242 4 1 1 3 0 0
1204 2 0 0 52 4 26 0 1 1184 4
PROCEDURE 177
1206 0 0 0 0 0 2 0 0 54 4
1208 26 1 3 52 4 6 1 0 4728 4 4 0 0 54 4 4 0 0 53 4
1212 2 1 3 5272 4 1 1 2 2 0 7 0 0 52 4 1 1 3 0 0
1216 26 0 1 1206 4
PROCEDURE 178
1217 0 0 0 0 0 6 0 0 169 4 26 0 0 2765 4
1220 18 1 3 3 0 18 1 1 4127 0 2 1 0 4812 4 26 1 1 4812 4
1224 27 1 0 1230 4 24 0 3 1 4 6 0 1 24 0 18 0 3 2 0
1228 18 0 1 4125 0 24 1 0 1233 4 0 0 2 4740 4 24 0 3 1 4
1232 15 0 1 24 0 26 0 0 2759 4 26 0 1 1217 4 0 0 0 0 0
SECTION 179
1236 0 5236 3 5 3 0 0 0 5 0 0 5238 3 3 2 0 0 0 3 0
1240 0 5240 3 2 2 0 0 0 2 0 0 5242 3 5 3 0 0 0 5 0
1244 0 5250 3 5 11 0 0 0 5 1 0 98 3 2 0 0 0 0 2 0
1248 0 5236 3 2 3 0 0 0 2 0 0 5238 3 2 2 0 0 0 2 0
1252 0 5240 3 2 2 0 0 0 2 0 0 5242 3 4 2 0 0 0 4 0
1256 0 5244 3 4 2 0 0 0 4 0 0 5262 3 5 3 0 0 0 5 1
1260 0 98 3 6 0 0 0 0 6 0 0 5236 3 2 0 0 0 0 2 0
1264 0 5237 3 4 0 0 0 0 4 0 0 5238 3 1 0 0 0 0 1 0
1268 0 5239 3 2 0 0 0 0 2 0 0 5262 3 5 3 0 0 0 5 1
1272 0 5236 3 5 3 0 0 0 5 0 0 5238 3 3 2 0 0 0 3 0
1276 0 5240 3 2 2 0 0 0 2 0 0 5242 3 2 3 0 0 0 2 0
1280 0 5254 3 3 3 0 0 0 3 0 0 5250 3 1 0 0 0 0 1 0
1284 0 5251 3 3 0 0 0 0 3 0 0 5252 3 1 3 0 0 0 1 1
SECTION 180
1288 0 5236 3 5 3 0 0 0 5 0 0 5238 3 2 0 0 0 0 2 0
1292 0 5239 3 3 0 0 0 0 3 0 0 5240 3 3 0 0 0 0 3 0
1296 0 5241 3 3 0 0 0 0 3 0 0 5242 3 3 0 0 0 0 3 0
1300 0 5243 3 3 0 0 0 0 3 0 0 5244 3 3 0 0 0 0 3 0
1304 0 5245 3 3 0 0 0 0 3 0 0 5246 3 3 0 0 0 0 3 0
1308 0 5247 3 3 0 0 0 0 3 0 0 5248 3 3 0 0 0 0 3 0
1312 0 5249 3 3 0 0 0 0 3 0 0 5250 3 3 0 0 0 0 3 0
1316 0 5251 3 3 0 0 0 0 3 0 0 5252 3 3 0 0 0 0 3 1
SECTION 181
1320 99 0 1 0 4096 0 0 0
1324 1 0 0 0 0 0 0 0
1328 £1£1£ 0 1£1£1 0 65764 0 67696 0
1332 36978 0 55657 0 56554 0 51645 0
1336 16772 0 53585 0 27259 0 67517 0
1340 66955 0 72736 0
SECTION 182
1342 0 0 0 0
1344 0 0 0 0 0 0 0 0
1348 0 0 0 0 0 0 0 0
PROCEDURE 183
1352 0 0 0 0 0 27 0 0 1362 4 18 1 1 4127 0 24 0 3 0 4
1356 2 0 0 6 22 18 1 1 1 0 2 0 0 90 4 1 1 3 1 0
1360 24 0 0 90 4 18 0 3 0 0 2 0 0 90 4 26 0 1 1352 4
SECTION 184
PROCEDURE 185
1364 24 0 3 1 4 24 0 2 74 0 18 1 1 4123 0 1 1 3 1010 0
1368 18 1 1 5 0 28 0 0 170 4 6 1 0 5124 4 28 1 1 5326 4
1372 1 1 3 2 0 2 0 0 7328 4 1 1 3 1 0 2 0 0 6271 4
1376 6 0 0 6000 4 3 1 0 58 4 27 0 0 1389 4 0 1 0 5070 4
1380 0 0 3 0 4 24 1 2 17 4 24 0 2 6 0 3 0 0 7354 4
1384 24 1 2 17 4 4 1 0 5 0 2 0 0 7355 4 0 1 1 5070 4
1388 24 1 0 2935 4 1 1 3 1 0 2 0 0 83 4 24 1 2 21 4
1392 6 1 0 4 0 18 0 1 4124 0 18 0 1 4 0 5 1 0 4734 4
1396 27 0 0 4829 4 24 1 2 21 4 6 1 0 4 0 5 1 0 4766 4
1400 27 0 0 4829 4 24 0 1 6276 4 26 0 1 1402 4 0 0 0 1405 3
1404 0 0 0 1408 3 24 1 2 21 4 6 1 0 4 0 24 1 0 1410 4
1408 24 1 2 21 4 6 1 0 8 0 26 0 0 3997 4 26 0 0 3806 4
1412 26 0 0 1415 4 26 0 0 4121 4 24 1 0 1391 4
PROCEDURE 186
1415 0 0 0 0 0
1416 6 0 0 88 4 27 0 0 1517 4 27 0 2 1533 4 6 0 0 111 4
1420 27 0 0 1422 4 26 0 0 4243 4 6 0 0 104 4 1 1 2 85 0
1424 27 0 0 1427 4 1 1 3 0 0 2 1 0 110 4 2 0 0 59 4
1428 2 0 0 93 4 6 0 0 6000 4 27 0 1 1436 4 24 1 2 21 4
1432 6 1 0 51 0 27 0 0 1436 4 6 1 0 4760 4 2 1 0 5278 4
1436 6 0 0 6271 4 1 1 2 4 0 27 0 0 1485 4 6 0 0 5973 4
1440 1 1 1 1 0 3 0 0 5973 4 3 0 0 50 4 2 0 0 54 4
PROCEDURE 187
1444 6 1 0 5243 4 18 0 1 4126 0 3 0 0 5248 4 26 0 0 1613 4
1448 24 1 0 1450 4 0 0 0 1667 3 5 0 0 5973 4 27 0 0 1454 4
1452 6 1 0 4760 4 2 1 0 5278 4 24 0 2 4426 4 28 1 2 5242 4
1456 6 0 0 6270 4 27 0 1 1462 4 6 0 0 5248 4 5 0 0 54 4
1460 27 0 0 1462 4 26 0 0 1488 4 6 0 0 5973 4 1 1 2 256 0
1464 27 0 1 1468 4 6 0 0 50 4 2 0 0 64 4 24 1 0 1478 4
1468 24 0 1 7356 4 6 0 0 64 4 5 0 0 50 4 27 0 1 1485 4
1472 6 0 0 5973 4 1 1 2 1 0 26 0 0 2765 4 18 0 1 2 0
1476 24 0 1 7356 4 7 0 0 5979 4 0 0 3 5207 4 1 1 3 1 0
1480 7 0 0 5970 4 0 0 3 5210 4 23 0 0 1 0 0 0 0 7356 3
1484 24 1 0 1485 4 1 1 3 1 0 2 0 0 7328 4 24 1 0 1533 4
PROCEDURE 188
1488 0 0 0 0 0 6 0 0 5973 4 26 0 0 2765 4 1 0 1 0 0
1492 18 1 1 4119 0 13 0 0 5218 4 2 0 0 4812 4 18 1 1 9 0
1496 2 0 0 4813 4 0 0 2 4792 4 24 0 1 4813 4 18 1 3 0 0
1500 6 0 0 4790 4 24 0 1 4812 4 14 0 0 6151 4 0 0 3 5210 4
1504 26 0 1 1488 4
PROCEDURE 189
1505 0 0 0 0 0 6 1 0 5276 4 5 1 0 4746 4
1508 27 0 0 1515 4 6 1 0 5276 4 5 1 0 5126 4 27 0 0 1515 4
1512 6 1 0 5276 4 5 1 0 4744 4 27 0 1 1516 4 2 1 0 5276 4
1516 26 0 1 1505 4
PROCEDURE 190
1517 6 0 0 6000 4 27 0 1 1533 4 0 1 2 5236 4
1520 26 0 0 4820 4 6 1 0 139 4 5 0 0 93 4 27 0 0 1529 4
1524 6 0 0 7328 4 1 1 2 6 0 27 0 2 1533 4 6 1 0 5128 4
1528 2 1 0 5278 4 6 1 0 139 4 4 0 0 140 4 1 1 1 1 0
1532 2 0 0 93 4
PROCEDURE 191
1533 26 0 0 1505 4 6 0 0 83 4 27 0 0 1540 4
1536 6 0 0 6000 4 27 0 0 1540 4 26 0 0 1488 4 1 1 3 0 0
1540 24 0 1 7328 4 26 0 1 1541 4 0 0 0 1756 3 0 0 0 1938 3
1544 0 0 0 3607 3 0 0 0 3189 3 0 0 0 1547 3 6 0 0 5243 4
1548 0 0 2 5244 4 27 1 0 1555 4 26 0 0 3601 4 6 0 0 54 4
1552 2 0 0 5243 4 26 0 0 3625 4 24 1 0 2804 4 24 0 1 7329 4
1556 26 0 1 1556 4 0 0 0 2804 3 0 0 0 1559 3 26 0 0 1578 4
1560 26 0 0 4239 4 24 1 0 2804 4
PROCEDURE 192
1562 0 0 0 0 0 2 0 0 2765 4
1564 1 1 3 1 0 18 1 1 4118 0 15 0 0 2765 4 27 0 0 1569 4
1568 26 0 0 1582 4 26 0 1 1562 4
PROCEDURE 193
1570 0 0 0 0 0 1 1 3 84 0
1572 26 0 0 1594 4 26 0 1 1570 4
PROCEDURE 194
1574 0 0 0 0 0 1 1 3 100 0
1576 26 0 0 1594 4 26 0 1 1574 4
PROCEDURE 195
1578 0 0 0 0 0 1 1 3 105 0
1580 26 0 0 1594 4 26 0 1 1578 4
PROCEDURE 196
1582 0 0 0 0 0 1 1 3 89 0
1584 26 0 0 1594 4 26 0 1 1582 4
PROCEDURE 197
1586 0 0 0 0 0 1 1 3 99 0
1588 26 0 0 1594 4 26 0 1 1586 4
PROCEDURE 198
1590 0 0 0 0 0 1 1 3 115 0
1592 26 0 0 1594 4 26 0 1 1590 4
PROCEDURE 199
1594 0 0 0 0 0 18 1 1 4118 0
1596 6 1 0 5278 4 18 0 1 4126 0 5 1 0 5130 4 27 0 0 1612 4
1600 6 1 0 5278 4 5 1 0 5128 4 27 0 1 1604 4 2 1 0 5278 4
1604 1 1 3 0 0 18 1 1 10 0 24 1 2 165 4 18 0 1 0 0
1608 7 1 0 5278 4 1 1 3 2 0 4 0 0 165 4 2 0 0 165 4
1612 26 0 1 1594 4
PROCEDURE 200
1613 0 0 0 0 0 3 0 0 169 4 3 0 0 168 4
1616 1 1 2 256 0 27 0 3 1640 4 1 1 2 2201 0 27 0 2 1640 4
1620 6 0 0 83 4 27 0 1 1632 4 6 0 0 6266 4 27 0 1 1632 4
1624 6 0 0 6270 4 27 0 1 1632 4 26 0 0 1641 4 27 0 1 1630 4
1628 26 0 0 1578 4 24 1 0 1632 4 3 0 0 169 4 2 0 0 168 4
1632 24 0 3 1613 4 24 1 2 1 0 26 0 0 0 0 27 0 1 1639 4
1636 6 1 0 4760 4 2 1 0 5278 4 26 0 1 1613 4 3 0 0 169 4
1640 26 0 1 1613 4
PROCEDURE 201
1641 0 0 0 0 0 6 0 0 6268 4 27 0 0 1646 4
1644 6 0 0 169 4 24 1 0 1664 4 6 0 0 169 4 1 1 2 1536 0
1648 27 0 2 1665 4 6 0 0 169 4 26 0 0 2765 4 18 1 3 3 0
1652 18 1 1 4127 0 2 0 0 2765 4 27 1 0 1660 4 24 0 1 2765 4
1656 6 0 0 5456 4 18 0 3 2 0 18 0 1 4125 0 24 1 0 1663 4
1660 0 0 2 4740 4 24 0 1 2765 4 15 0 0 5456 4 26 0 0 2759 4
1664 26 0 1 1641 4 1 1 3 0 0 26 0 1 1641 4
PROCEDURE 202
1667 0 0 0 0 0
1668 6 0 0 169 4 26 0 0 2765 4 18 1 3 3 0 18 1 1 4127 0
1672 2 0 0 2765 4 27 1 0 1679 4 24 0 1 2765 4 6 0 0 120 4
1676 18 0 3 2 0 18 0 1 4125 0 24 1 0 1682 4 0 0 2 4740 4
1680 24 0 1 2765 4 15 0 0 120 4 26 0 0 2759 4 26 0 1 1667 4
PROCEDURE 203
1684 0 0 0 0 0 26 1 1 5132 4 2 0 0 108 4 2 0 0 96 4
1688 1 0 1 28 0 15 0 0 108 4 2 0 0 80 4 15 0 1 5760 4
1692 27 0 0 1699 4 5 0 0 80 4 27 0 0 1702 4 27 0 2 1699 4
1696 1 1 3 0 0 25 0 1 2 0 24 1 0 1691 4 6 0 0 96 4
1700 4 0 0 108 4 26 0 1 1684 4 6 0 0 108 4 5 0 1 5760 4
1704 27 0 3 1696 4 6 0 1 5761 4 7 0 0 96 4 24 1 0 1696 4
PROCEDURE 204
1708 0 0 0 0 0 26 1 1 5134 4 1 1 3 0 0 2 0 0 96 4
1712 1 0 1 28 0 15 0 0 108 4 2 0 0 80 4 15 0 1 620 4
1716 27 0 0 1729 4 5 0 0 80 4 27 0 3 1726 4 27 0 1 1729 4
1720 6 0 1 620 4 5 0 0 108 4 27 0 0 1724 4 27 0 2 1738 4
1724 6 0 1 621 4 7 0 0 96 4 1 1 3 0 0 25 0 1 2 0
1728 24 1 0 1715 4 1 0 1 3 0 6 0 0 96 4 15 0 0 108 4
1732 3 0 0 108 4 1 1 2 256 0 27 0 3 1737 4 6 1 0 4762 4
1736 2 1 0 5278 4 26 0 1 1708 4 4 0 1 621 4 27 0 0 1741 4
1740 27 0 2 1729 4 6 0 0 5241 4 5 0 0 5219 4 27 0 0 1753 4
1744 6 0 0 104 4 1 1 2 83 0 27 0 0 1729 4 1 1 2 1 0
1748 27 0 0 1729 4 1 1 2 1 0 27 0 0 1729 4 1 1 2 1 0
1752 27 0 0 1729 4 6 1 0 4764 4 2 1 0 5278 4 24 1 0 1729 4
PROCEDURE 205
1756 6 1 0 5240 4 5 1 0 4726 4 27 0 1 1761 4 2 1 0 140 4
1760 24 1 0 2804 4 6 1 0 5240 4 5 1 0 4722 4 27 0 1 1780 4
1764 6 1 0 5136 4 2 1 0 140 4 0 1 2 5250 4 26 0 0 4820 4
1768 6 1 0 139 4 27 0 3 1774 4 3 0 0 109 4 27 0 0 1774 4
1772 1 1 2 5 0 27 0 3 1777 4 1 1 3 5 0 2 0 0 7335 4
1776 24 1 0 3803 4
PROCEDURE 206
1777 6 0 0 109 4 2 0 0 7335 4 24 1 0 2804 4
1780 6 1 0 5240 4 5 1 0 4724 4 27 0 1 1802 4 6 1 0 5138 4
1784 28 0 0 5466 4 0 0 2 4711 4 15 1 0 5251 4 18 0 1 4124 0
1788 3 0 0 140 4 27 0 1 1791 4 1 1 3 48 0 18 0 1 3 0
1792 1 0 1 24 0 14 0 0 5251 4 24 1 0 1797 4 1 1 3 1 0
1796 3 0 0 140 4 1 1 3 1 0 2 0 0 7333 4 1 1 3 4 0
1800 2 0 0 7328 4 24 1 0 2804 4 6 1 0 5240 4 5 1 0 4748 4
1804 27 0 1 1809 4 1 1 3 5 0 2 0 0 7328 4 2 1 0 140 4
1808 24 1 0 2804 4
PROCEDURE 207
1809 6 0 0 141 4 27 0 1 1813 4 1 1 3 2 0
1812 24 1 0 1814 4 1 1 3 3 0 2 0 0 7328 4 5 0 0 88 4
1816 27 0 3 2804 4 1 1 3 2 0 2 0 0 59 4 24 1 0 1534 4
PROCEDURE 208
1820 0 0 0 0 0 0 1 2 5242 4 26 0 0 4820 4 1 1 2 103 0
1824 3 0 0 3587 4 27 0 1 1828 4 6 0 0 50 4 2 1 0 139 4
1828 6 1 0 139 4 3 0 0 54 4 1 1 2 256 0 27 0 3 1850 4
1832 1 1 2 2201 0 27 0 2 1850 4 6 1 0 5244 4 2 0 0 4195 4
1836 26 0 0 1851 4 6 0 0 6270 4 27 0 1 1846 4 6 1 0 139 4
1840 5 0 0 54 4 27 0 1 1845 4 6 1 0 5244 4 5 0 0 4195 4
1844 27 0 0 1846 4 26 0 0 1488 4 6 1 0 139 4 2 0 0 54 4
1848 24 0 2 4426 4 28 1 2 5242 4 26 0 1 1820 4
PROCEDURE 209
1851 0 0 0 0 0
1852 6 0 0 6000 4 27 0 1 1857 4 1 1 3 2 0 7 1 0 5244 4
1856 24 1 0 1899 4 6 0 0 6266 4 0 0 2 83 4 27 1 1 1899 4
1860 6 0 0 3587 4 27 0 0 1899 4 6 0 0 6270 4 27 0 1 1899 4
1864 6 1 0 139 4 2 0 0 169 4 26 0 0 1641 4 27 0 1 1887 4
1868 6 1 0 139 4 18 0 1 2 0 4 0 0 5244 4 26 1 1 5140 4
1872 2 0 0 2765 4 6 0 1 5921 4 27 0 0 1879 4 5 0 0 2765 4
1876 27 0 0 1881 4 25 0 1 2 0 24 1 0 1873 4 26 0 0 1578 4
1880 24 1 0 1899 4 6 0 1 5920 4 18 1 1 4126 0 2 1 0 139 4
1884 18 1 1 2 0 2 0 0 5244 4 24 1 0 1899 4 3 1 0 139 4
1888 18 0 1 2 0 4 0 0 5244 4 2 0 0 1684 4 6 1 0 5244 4
1892 27 0 3 1899 4 6 0 0 1684 4 26 0 0 1684 4 18 1 1 4126 0
1896 2 1 0 139 4 18 1 1 2 0 2 0 0 5244 4 6 1 0 139 4
1900 3 0 0 168 4 2 0 0 169 4 6 0 0 3587 4 27 0 1 1906 4
1904 6 1 0 139 4 24 1 0 1928 4 26 0 0 1667 4 27 0 1 1928 4
1908 6 1 0 139 4 18 0 1 2 0 4 0 0 5244 4 26 1 1 5142 4
1912 2 0 0 2765 4 6 0 1 1080 4 27 0 0 1919 4 5 0 0 2765 4
1916 27 0 0 1922 4 25 0 1 2 0 24 1 0 1913 4 6 1 0 4760 4
1920 2 1 0 5278 4 24 1 0 1937 4 6 0 1 1081 4 18 1 1 4126 0
1924 2 1 0 139 4 18 1 1 2 0 2 0 0 5244 4 24 1 0 1937 4
1928 3 1 0 139 4 18 0 1 2 0 4 0 0 5244 4 2 0 0 108 4
1932 6 1 0 5244 4 27 0 3 1937 4 26 0 0 1708 4 6 0 0 108 4
1936 2 0 0 5244 4 26 0 1 1851 4
PROCEDURE 210
1938 26 0 0 1820 4 6 0 0 54 4
1940 1 1 2 256 0 27 0 3 1946 4 1 1 2 2201 0 27 0 2 1946 4
1944 6 0 0 168 4 2 0 0 5256 4 6 0 0 5241 4 5 0 0 5219 4
1948 27 0 1 1964 4 6 1 0 110 4 27 0 0 2001 4 24 1 2 105 4
1952 0 0 2 1 0 6 0 0 4702 4 2 0 0 4639 4 0 0 3 5207 4
1956 6 0 0 104 4 1 1 2 43 0 27 0 0 1961 4 1 1 1 1 0
1960 27 0 1 1998 4 1 1 3 1 0 7 0 0 105 4 24 1 0 1998 4
1964 6 0 0 111 4 27 0 0 1967 4 26 0 0 4243 4 0 1 2 5240 4
1968 26 0 0 4820 4 6 1 0 139 4 27 0 3 2001 4 1 1 2 345 0
1972 27 0 2 2001 4 6 1 0 139 4 26 0 0 2765 4 3 0 0 104 4
1976 1 1 2 65 0 27 0 2 1990 4 6 0 0 104 4 18 0 1 3 0
1980 1 0 0 4606 4 18 1 1 10 0 3 0 0 105 4 6 0 0 104 4
1984 1 1 2 55 0 27 0 1 1996 4 6 1 0 5250 4 27 0 1 1994 4
1988 6 0 0 4700 4 24 1 0 1995 4 6 0 0 104 4 18 0 1 3 0
1992 1 0 0 4648 4 24 1 0 1981 4 6 0 0 4702 4 2 0 0 4639 4
1996 24 1 2 105 4 0 0 2 0 0 1 1 3 0 0 15 0 0 4712 4
2000 27 0 1 2005 4
PROCEDURE 211
2001 6 1 0 5144 4 2 1 0 5278 4 26 0 0 4239 4
2004 24 1 0 2804 4 18 0 1 4126 0 2 0 0 7332 4 15 0 0 4713 4
2008 18 0 1 4127 0 2 0 0 7331 4 15 0 0 4714 4 2 0 0 7330 4
2012 15 0 0 4715 4 2 0 0 111 4 15 0 0 4716 4 2 0 0 110 4
2016 2 0 0 109 4
PROCEDURE 212
2017 0 0 3 5210 4 6 0 0 5244 4 5 0 0 5220 4
2020 27 0 2 2023 4 6 0 0 5245 4 27 0 0 2024 4 26 0 0 1582 4
2024 6 0 0 104 4 1 1 2 100 0 27 0 3 2041 4 6 0 0 104 4
2028 1 1 2 132 0 27 0 2 2041 4 6 1 0 5246 4 27 0 0 2035 4
2032 1 1 2 1 0 27 0 0 2035 4 26 0 0 1570 4 6 1 0 5248 4
2036 27 0 0 2098 4 1 1 2 4 0 27 0 3 2098 4 26 0 0 1574 4
2040 24 1 0 2098 4 6 1 0 5246 4 27 0 0 2050 4 6 0 0 5244 4
2044 26 0 0 1562 4
PROCEDURE 213
2045 6 1 0 5246 4 27 0 3 2049 4 1 1 2 3 0
2048 27 0 3 2050 4 26 0 0 1570 4 6 1 0 5248 4 27 0 0 2063 4
2052 27 0 3 2061 4 1 1 2 33 0 27 0 2 2061 4 6 0 0 5248 4
2056 1 1 2 4 0 27 0 2 2063 4 1 1 3 1 0 2 0 0 5974 4
2060 24 1 0 2063 4 26 0 0 1574 4 24 1 0 2003 4
PROCEDURE 214
2063 24 0 1 7330 4
2064 26 0 1 2064 4 0 0 0 2098 3 0 0 0 2081 3 0 0 0 2086 3
2068 0 0 0 2082 3 0 0 0 2088 3 0 0 0 2089 3 0 0 0 2072 3
2072 6 0 0 5250 4 27 0 0 2078 4 6 1 0 5243 4 27 0 0 2081 4
2076 26 0 0 1578 4 24 1 0 2081 4 6 1 0 5243 4 27 0 1 2081 4
2080 26 0 0 1586 4
PROCEDURE 215
2081 26 0 0 2093 4 6 1 0 5248 4 27 0 0 2098 4
2084 26 0 0 1574 4 24 1 0 2098 4 26 0 0 2093 4 24 1 0 2098 4
2088 26 0 0 2093 4 6 1 0 5248 4 27 0 1 2098 4 26 0 0 4239 4
2092 24 1 0 2084 4
PROCEDURE 216
2093 0 0 0 0 0 6 1 0 5246 4 27 0 0 2097 4
2096 26 0 0 1570 4 26 0 1 2093 4
PROCEDURE 217
2098 24 0 1 7331 4 26 0 1 2099 4
2100 0 0 0 2107 3 0 0 0 2165 3 0 0 0 2171 3 0 0 0 2345 3
2104 0 0 0 2365 3 0 0 0 2400 3 0 0 0 2163 3
PROCEDURE 218
2107 6 0 0 54 4
2108 27 0 3 2141 4 27 0 1 2125 4 6 0 0 5248 4 27 0 1 2154 4
2112 6 1 0 5244 4 27 0 3 2118 4 27 0 1 2160 4 6 0 0 104 4
2116 27 0 0 2141 4 24 1 0 2160 4 1 1 3 0 0 1 0 1 1 0
2120 15 0 0 5244 4 1 1 2 12 0 27 0 0 2160 4 26 0 0 4239 4
2124 24 1 0 2169 4 1 1 2 256 0 27 0 3 2136 4 1 1 2 2304 0
2128 27 0 3 2160 4 27 0 0 2141 4 1 1 2 33 0 27 0 2 2141 4
2132 6 0 0 104 4 1 1 2 80 0 27 0 0 2141 4 24 1 0 2160 4
2136 6 0 0 54 4 26 0 0 1352 4 0 0 2 90 4 15 0 3 122 4
2140 27 0 1 2160 4 26 0 0 4239 4 26 0 0 1578 4 6 0 0 7331 4
2144 1 1 2 5 0 27 0 0 2398 4 6 0 0 104 4 1 1 2 40 0
2148 27 0 0 2398 4 1 1 2 93 0 27 0 0 2398 4 1 1 2 1 0
2152 27 0 0 2398 4 24 1 0 2405 4 6 0 0 104 4 1 1 2 93 0
2156 27 0 0 2141 4 6 0 0 104 4 1 1 2 97 0 27 0 0 2141 4
2160 6 0 0 109 4 27 0 0 2405 4 24 1 0 2368 4 26 0 0 3625 4
2164 24 1 0 2405 4
PROCEDURE 219
2165 6 1 0 5243 4 27 0 1 2142 4 6 1 0 5244 4
2168 27 0 0 2405 4 26 0 0 1582 4 24 1 0 2405 4
PROCEDURE 220
2171 6 0 0 104 4
2172 1 1 2 40 0 27 0 1 2181 4 6 1 0 110 4 27 0 0 2181 4
2176 6 0 0 5241 4 5 0 0 5219 4 27 0 1 2181 4 6 1 0 5246 4
2180 27 0 1 2107 4 6 0 0 6009 4 18 0 1 5 0 2 1 0 7360 4
2184 6 0 0 4708 4 2 0 0 4628 4 24 0 1 7360 4 6 0 0 6013 4
2188 18 1 3 2 0 18 1 1 4126 0 27 0 0 2203 4 4 0 0 5221 4
2192 18 0 1 1 0 5 0 0 5243 4 27 0 0 2212 4 23 0 0 2 0
2196 0 0 0 7360 3 24 1 0 2186 4 6 0 0 5241 4 5 0 0 5219 4
2200 27 0 1 2203 4 26 0 0 4239 4 26 0 0 4243 4 26 0 0 1578 4
2204 26 0 0 4239 4 6 0 0 104 4 1 1 2 42 0 27 0 0 2210 4
2208 1 1 2 1 0 27 0 1 2506 4 2 1 0 110 4 24 1 0 2506 4
2212 0 0 3 5207 4 6 0 0 104 4 1 1 2 132 0 27 0 3 2220 4
2216 1 1 2 3 0 27 0 3 2329 4 24 1 0 2405 4 27 0 0 2405 4
2220 1 1 3 0 0 18 1 3 6 0 1 1 2 5 0 27 0 3 2278 4
2224 27 0 0 2271 4 1 1 2 1 0 27 0 0 2260 4 1 1 2 3 0
2228 27 0 3 2282 4 27 0 0 2278 4 1 1 2 1 0 27 0 0 2260 4
2232 1 1 2 1 0 27 0 0 2282 4 1 1 2 1 0 27 0 0 2260 4
2236 1 1 2 1 0 27 0 0 2325 4 1 1 2 2 0 27 0 0 2260 4
2240 1 1 2 1 0 27 0 0 2278 4 1 1 2 2 0 27 0 0 2325 4
2244 1 1 2 1 0 27 0 0 2278 4 1 1 2 1 0 27 0 0 2255 4
2248 1 1 2 2 0 27 0 0 2314 4 1 1 2 2 0 27 0 0 2267 4
2252 1 1 2 1 0 27 0 1 2319 4 24 1 0 2278 4 6 0 0 104 4
2256 1 1 2 40 0 27 0 0 2333 4 1 1 2 1 0 27 0 0 2319 4
PROCEDURE 221
2260 6 0 0 104 4 1 1 2 42 0 27 0 0 2506 4 6 0 0 104 4
2264 1 1 2 42 0 27 0 3 2506 4 24 1 0 2319 4 6 0 0 104 4
2268 1 1 2 42 0 27 0 0 2506 4 24 1 0 2319 4 6 0 0 104 4
2272 1 1 2 44 0 27 0 1 2260 4 6 0 0 5250 4 1 1 2 3 0
2276 27 0 0 2506 4 24 1 0 2427 4 6 0 0 104 4 1 1 2 43 0
2280 27 0 0 2506 4 24 1 0 2263 4 6 0 0 104 4 1 1 2 48 0
2284 27 0 0 2309 4 6 0 0 104 4 1 1 2 41 0 27 0 0 2309 4
2288 6 0 0 104 4 1 1 2 44 0 27 0 0 2304 4 1 1 2 2 0
2292 27 0 0 2295 4 1 1 2 1 0 27 0 1 2405 4 6 1 0 5244 4
2296 27 0 3 2302 4 1 0 1 0 0 18 1 3 3 0 18 1 1 4127 0
2300 1 1 3 0 0 27 1 0 2405 4 26 0 0 1582 4 24 1 0 2405 4
2304 6 1 0 5250 4 1 1 2 2 0 27 0 0 2506 4 1 1 2 1 0
2308 24 1 0 2425 4 6 1 0 5250 4 27 0 3 2428 4 1 1 2 4 0
2312 27 0 2 2428 4 24 1 0 2506 4 6 0 0 4701 4 2 0 0 4628 4
2316 6 0 0 104 4 1 1 2 41 0 27 0 1 2278 4 6 1 0 5144 4
2320 2 1 0 5278 4 26 0 0 4239 4 24 0 3 1 4 2 1 0 124 0
2324 24 1 0 2205 4 6 0 0 104 4 1 1 2 44 0 27 0 3 2506 4
2328 24 1 0 2319 4
PROCEDURE 222
2329 1 1 3 0 0 18 1 3 6 0 1 1 2 17 0
2332 27 0 1 2319 4 6 1 0 5244 4 27 0 3 2123 4 27 0 0 2123 4
2336 1 1 2 256 0 27 0 2 2123 4 6 1 0 5244 4 26 0 0 1352 4
2340 0 0 2 90 4 18 1 3 10 0 15 0 3 122 4 27 0 0 2123 4
2344 24 1 0 2381 4
PROCEDURE 223
PROCEDURE 224
2345 6 0 0 54 4 27 0 1 2349 4 6 0 0 5248 4
2348 27 0 1 2357 4 1 1 2 256 0 27 0 3 2141 4 1 1 2 2201 0
2352 27 0 3 2357 4 1 1 2 2 0 27 0 3 2141 4 1 1 2 32 0
2356 27 0 2 2141 4 6 0 0 104 4 1 1 2 70 0 27 0 3 2362 4
2360 1 1 2 10 0 27 0 3 2405 4 6 0 0 5244 4 26 0 0 1562 4
2364 24 1 0 2405 4
PROCEDURE 225
2365 1 1 3 1 0 2 0 0 109 4 24 1 0 2107 4
2368 1 1 3 0 0 0 0 2 90 4 18 1 3 10 0 15 0 3 122 4
2372 27 0 0 2398 4 1 1 3 0 0 0 0 2 4814 4 24 0 1 7360 4
2376 15 0 0 6013 4 1 1 2 3 0 27 0 0 2405 4 1 1 2 1 0
2380 27 0 0 2405 4 24 0 3 0 4 6 0 0 6 22 1 0 1 0 0
2384 18 1 3 3 0 18 1 1 4127 0 24 0 3 0 4 2 0 0 6 22
2388 27 1 0 2393 4 0 0 2 90 4 6 0 0 90 4 18 1 3 10 0
2392 24 1 0 2395 4 6 0 0 90 4 0 0 2 90 4 14 0 3 150 4
2396 0 0 3 5210 4 24 1 0 2405 4 26 0 0 4243 4 24 1 0 2203 4
PROCEDURE 226
2400 6 0 0 54 4 1 1 2 256 0 27 0 3 2141 4 1 1 2 2304 0
2404 27 0 2 2141 4
PROCEDURE 227
2405 6 1 0 5252 4 27 0 1 2427 4 0 1 2 5250 4
2408 18 1 1 10 0 2 1 0 5252 4 24 0 1 7332 4 26 0 1 2411 4
2412 0 0 0 2506 3 0 0 0 2453 3 0 0 0 2430 3 0 0 0 2433 3
2416 0 0 0 2438 3 0 0 0 2448 3 0 0 0 2463 3 0 0 0 2472 3
2420 0 0 0 2475 3 0 0 0 2487 3 0 0 0 2490 3 0 0 0 2492 3
2424 0 0 0 2502 3
PROCEDURE 228
2425 27 0 0 2506 4 24 1 0 2428 4 26 0 0 4239 4
2428 26 0 0 1586 4 24 1 0 2506 4
PROCEDURE 229
2430 6 1 0 5250 4 27 0 2 2506 4
2432 24 1 0 2427 4
PROCEDURE 230
2433 6 1 0 5252 4 27 0 0 2428 4 1 1 2 50 0
2436 27 0 2 2428 4 24 1 0 2506 4
PROCEDURE 231
2438 26 1 3 5146 4 1 1 3 0 0
2440 0 1 2 5250 4 18 1 1 1 0 27 0 0 2445 4 1 1 2 1 0
2444 27 0 1 2428 4 25 0 3 1 0 24 1 0 2441 4 24 1 0 2506 4
PROCEDURE 232
2448 6 1 0 5250 4 27 0 3 2427 4 1 1 2 22 0 27 0 2 2428 4
2452 24 1 0 2506 4
PROCEDURE 233
2453 6 0 0 111 4 27 0 1 2458 4 6 0 0 96 4
2456 0 0 2 5252 4 27 1 0 2428 4 6 1 0 5252 4 3 0 0 96 4
2460 5 0 0 5220 4 27 0 2 2428 4 24 1 0 2506 4 6 1 0 5250 4
2464 27 0 3 2427 4 6 0 0 5246 4 27 0 0 2468 4 6 0 0 5222 4
2468 4 0 0 5222 4 5 1 0 5250 4 27 0 3 2427 4 24 1 0 2506 4
PROCEDURE 234
2472 6 1 0 5250 4 18 0 1 4123 0 24 1 0 2425 4 6 0 0 104 4
2476 1 1 2 54 0 27 0 1 2484 4 6 1 0 5250 4 27 0 3 2427 4
2480 27 0 0 2504 4 1 1 3 0 0 2 1 0 110 4 24 1 0 2465 4
2484 6 1 0 5252 4 5 0 0 5215 4 24 1 0 2436 4 6 1 0 5250 4
2488 27 0 0 2428 4 24 1 0 2506 4 6 1 0 5250 4 24 1 0 2425 4
2492 6 1 0 5250 4 27 0 3 2428 4 1 1 2 256 0 27 0 2 2427 4
2496 6 0 0 104 4 1 1 2 83 0 27 0 1 2506 4 6 0 0 5250 4
2500 27 0 0 2427 4 24 1 0 2506 4 6 1 0 5250 4 27 0 1 2506 4
2504 1 1 3 1 0 2 0 0 111 4
PROCEDURE 235
2506 0 0 3 5207 4 6 0 0 104 4
2508 1 1 2 20 0 27 0 3 2804 4 1 1 2 10 0 27 0 3 2521 4
2512 1 1 2 21 0 27 0 3 2804 4 1 1 2 15 0 27 0 0 2518 4
2516 1 1 2 1 0 27 0 1 2523 4 6 0 0 5223 4 2 0 0 5975 4
2520 24 1 0 2523 4 2 0 0 5975 4 24 1 0 2804 4 6 0 0 5248 4
2524 26 0 0 2765 4 3 0 0 138 4 27 0 0 2551 4 1 1 2 4 0
2528 27 0 3 2551 4 6 0 0 104 4 1 1 2 59 0 27 0 0 2536 4
2532 1 1 2 31 0 27 0 3 2551 4 1 1 2 4 0 27 0 2 2551 4
2536 26 1 3 5386 4 1 1 3 0 0 1 0 1 3 0 15 0 3 5388 4
2540 27 0 0 2545 4 5 0 0 138 4 27 0 0 2551 4 25 0 3 1 0
2544 24 1 0 2537 4 6 0 0 5970 4 18 0 1 4 0 4 0 0 138 4
2548 2 0 3 5388 4 1 1 3 1 0 7 0 0 5387 4
PROCEDURE 236
2551 0 0 3 5207 4
PROCEDURE 237
2552 6 0 0 104 4 1 1 2 70 0 27 0 3 2720 4 1 1 2 7 0
2556 27 0 3 2626 4 1 1 2 2 0 27 0 0 2626 4 27 0 2 2564 4
2560 6 1 0 5240 4 5 1 0 5148 4 27 0 1 2626 4 24 1 0 2804 4
2564 1 1 2 6 0 27 0 0 2579 4 1 1 2 2 0 27 0 0 2572 4
2568 1 1 2 7 0 27 0 0 2616 4 1 1 2 3 0 27 0 1 2576 4
2572 6 0 0 5241 4 5 0 0 5219 4 27 0 0 2626 4 24 1 0 2804 4
2576 1 1 2 53 0 27 0 0 2572 4 24 1 0 2605 4
PROCEDURE 238
2579 6 0 0 5241 4
2580 5 0 0 5219 4 27 0 0 2626 4 26 1 3 6056 4 6 0 0 54 4
2584 26 0 0 2765 4 2 0 0 82 4 1 1 3 0 0 0 0 2 4740 4
2588 15 0 3 6058 4 27 0 0 2594 4 5 0 0 82 4 27 0 0 2603 4
2592 25 0 3 1 0 24 1 0 2586 4 6 0 0 6057 4 1 1 2 48 0
2596 27 0 2 2603 4 6 0 0 5970 4 18 0 1 4 0 4 0 0 82 4
2600 2 0 3 6058 4 1 1 3 1 0 7 0 0 6057 4 0 0 3 5210 4
2604 24 1 0 2804 4
PROCEDURE 239
2605 6 0 0 104 4 1 1 2 127 0 27 0 0 2626 4
2608 1 1 1 3 0 27 0 1 2666 4 6 0 0 5246 4 1 1 2 1 0
2612 27 0 1 2666 4 6 0 0 5248 4 27 0 1 2666 4 24 1 0 2626 4
2616 0 0 3 5210 4 6 1 0 5250 4 27 0 1 2620 4 26 0 0 1586 4
2620 6 1 0 5242 4 27 0 1 2626 4 6 0 0 5244 4 27 0 0 2804 4
2624 26 0 0 1582 4 24 1 0 2804 4
PROCEDURE 240
2626 6 0 0 54 4 1 1 2 2457 0
2628 27 0 2 2804 4 6 0 0 5973 4 18 0 1 2 0 4 0 0 59 4
2632 3 0 0 168 4 5 1 0 5243 4 5 0 0 5244 4 27 0 3 2804 4
2636 6 1 0 5243 4 27 0 0 2804 4 4 0 0 5244 4 27 0 3 2804 4
2640 2 0 0 169 4 6 1 0 168 4 0 0 3 5207 4 24 1 2 5979 4
2644 1 1 0 0 0 18 1 1 10 0 3 1 0 5070 4 26 1 1 5070 4
2648 5 0 0 5979 4 18 0 1 5 0 4 0 0 5979 4 2 1 0 138 4
2652 6 0 0 5979 4 5 0 0 4704 4 27 0 0 2804 4 6 0 0 5211 4
2656 7 0 0 5979 4 6 1 0 138 4 24 1 2 5979 4 28 1 1 0 0
2660 25 0 1 4098 0 24 1 0 2662 4 6 1 0 168 4 24 0 3 0 4
2664 2 1 1 0 0 24 1 0 2804 4
PROCEDURE 241
2666 6 0 0 104 4 1 1 2 152 0
2668 27 0 1 2720 4 26 1 3 62 4 6 0 0 54 4 5 0 3 64 4
2672 27 0 0 2678 4 25 0 3 1 0 24 1 0 2670 4 26 0 0 1578 4
2676 26 0 0 4239 4 24 1 0 2680 4 24 0 3 0 4 6 1 0 6 22
2680 1 1 1 1 0 2 0 0 96 4 6 0 0 111 4 27 0 0 2687 4
2684 6 0 0 96 4 2 0 0 97 4 24 1 0 2804 4
PROCEDURE 242
2687 1 1 3 16 0
2688 18 1 1 4118 0 1 1 3 16 0 24 0 1 96 4 14 0 0 5979 4
2692 24 0 1 97 4 14 0 0 5979 4 1 1 3 0 0 1 0 1 1 0
2696 24 0 1 96 4 15 0 0 5979 4 2 0 0 96 4 24 0 1 97 4
2700 15 0 0 5979 4 3 0 0 97 4 5 0 0 96 4 27 0 0 2804 4
2704 27 0 3 2709 4 0 0 2 96 4 7 0 0 96 4 18 1 1 10 0
2708 2 0 0 97 4 26 1 3 62 4 1 0 1 1 0 1 1 3 0 0
2712 15 0 3 5980 4 5 0 0 96 4 27 0 1 2717 4 6 0 0 97 4
2716 14 0 3 5980 4 25 0 3 1 0 24 1 0 2711 4 24 1 0 2804 4
PROCEDURE 243
2720 0 0 3 5207 4 6 0 0 104 4 1 1 2 93 0 27 0 0 2732 4
2724 1 1 1 28 0 27 0 0 2752 4 1 1 1 2 0 27 0 0 2731 4
2728 1 1 2 1 0 27 0 1 2771 4 6 1 0 5150 4 4 0 0 5224 4
2732 4 1 0 5152 4 2 1 0 96 4 6 0 0 5977 4 18 0 1 5 0
2736 3 1 0 5070 4 26 1 3 5070 4 27 0 0 2747 4 6 1 3 6106 4
2740 5 1 0 96 4 27 0 0 2804 4 25 0 3 2 0 24 1 0 2739 4
2744 6 0 0 5977 4 1 1 2 50 0 27 0 2 2804 4 6 1 0 96 4
2748 2 1 3 6106 4 1 1 3 2 0 7 0 0 5977 4 24 1 0 2804 4
2752 6 0 0 5250 4 2 0 0 96 4 6 0 0 111 4 27 0 0 2734 4
2756 6 0 0 96 4 2 0 0 97 4 24 1 0 2804 4
PROCEDURE 244
2759 0 0 0 0 0
2760 2 1 0 4812 4 0 0 3 5210 4 24 0 2 4772 4 12 1 0 4812 4
2764 26 0 1 2759 4
PROCEDURE 245
2765 0 0 0 0 0 2 1 0 4812 4 0 0 3 5207 4
2768 24 0 2 4792 4 12 1 0 4812 4 26 0 1 2765 4
PROCEDURE 246
2771 6 0 0 111 4
2772 27 0 0 2804 4 6 0 0 104 4 1 1 2 51 0 27 0 0 2780 4
2776 1 1 2 2 0 27 0 0 2780 4 1 1 2 104 0 27 0 1 2804 4
2780 6 0 0 54 4 26 0 0 2765 4 3 0 0 138 4 1 1 2 100 0
2784 27 0 2 2804 4 6 1 0 6044 4 26 1 3 6044 4 27 0 0 2798 4
2788 1 1 3 0 0 1 0 1 3 0 15 0 3 6046 4 5 0 0 138 4
2792 27 0 0 2804 4 25 0 3 1 0 24 1 0 2788 4 6 0 0 6045 4
2796 1 1 2 10 0 27 0 2 2804 4 6 0 0 5970 4 18 0 1 4 0
2800 4 0 0 138 4 2 0 3 6046 4 1 1 3 1 0 7 0 0 6045 4
PROCEDURE 247
2804 6 0 0 135 4 27 0 0 2807 4 26 0 0 4239 4 0 0 3 5210 4
2808 6 0 0 5973 4 18 0 1 2 0 2 0 0 138 4 6 0 0 7328 4
2812 1 1 2 5 0 27 0 0 2828 4 6 0 0 59 4 1 1 2 256 0
2816 27 0 3 2828 4 6 0 0 7328 4 1 1 2 2 0 27 0 0 2824 4
2820 1 0 1 63 0 6 1 0 5128 4 14 1 0 5278 4 24 1 0 2825 4
2824 26 0 0 4239 4 1 1 3 153 0 5 0 0 140 4 24 1 0 2829 4
2828 6 0 0 59 4 7 0 0 138 4 24 0 2 4430 4 28 1 2 5236 4
PROCEDURE 248
2832 1 1 3 0 0 24 0 1 7328 4 26 0 1 2834 4 0 0 0 2842 3
2836 0 0 0 2862 3 0 0 0 2851 3 0 0 0 2856 3 0 0 0 2840 3
2840 2 1 0 5236 4 24 1 0 2844 4 6 0 0 59 4 27 0 1 2849 4
2844 6 0 0 4742 4 1 1 2 3 0 27 0 1 2849 4 1 1 3 1 0
2848 2 1 0 5332 4 1 1 3 0 0 24 1 0 2862 4
PROCEDURE 249
2851 6 0 0 59 4
2852 1 1 2 1 0 27 0 0 2862 4 1 1 3 2 0 24 1 0 2863 4
2856 6 0 0 59 4 27 0 1 2861 4 1 1 3 1 0 7 0 0 59 4
2860 24 1 0 2844 4 6 0 0 140 4 1 1 1 1 0 7 0 0 59 4
2864 6 0 0 83 4 27 0 0 2869 4 6 0 0 51 4 18 0 1 2 0
2868 2 1 0 5234 4 2 1 0 6004 4
PROCEDURE 250
2870 0 0 3 5207 4 6 0 0 4719 4
2872 27 0 0 2875 4 26 0 0 4033 4 24 1 0 2876 4 26 0 0 4090 4
2876 6 0 0 88 4 27 0 1 2901 4 6 0 0 6271 4 1 1 2 4 0
2880 27 0 0 2893 4 24 0 1 6271 4 6 0 0 4416 4 28 1 2 5328 4
2884 6 1 0 4768 4 24 0 1 6271 4 24 0 1 4412 4 28 1 1 5326 4
2888 6 1 0 5278 4 24 0 1 6271 4 24 0 1 4412 4 2 1 0 5324 4
2892 24 1 0 2922 4 24 0 2 5245 4 18 1 1 4123 0 1 1 3 16 0
2896 18 1 1 5 0 28 0 1 5337 4 24 0 2 4602 4 28 1 2 5332 4
2900 24 1 0 2922 4 24 0 2 4450 4 28 1 2 5328 4 1 1 3 0 0
2904 2 0 0 4742 4 6 0 0 6271 4 1 1 2 1 0 27 0 1 2914 4
2908 6 0 0 88 4 27 0 3 2914 4 6 1 0 5242 4 2 1 0 5338 4
2912 2 1 0 5334 4 24 1 0 2916 4 6 1 0 5278 4 2 1 0 5338 4
2916 24 0 2 5250 4 18 1 1 4123 0 1 1 3 28 0 18 1 1 5 0
2920 28 1 1 5340 4 24 1 0 2924 4 6 0 0 6271 4 2 0 0 4742 4
2924 1 1 3 1 0 2 0 0 4719 4 0 0 3 5210 4 1 1 3 0 0
2928 2 0 0 165 4 6 0 0 6203 4 1 0 1 15 0 14 1 0 5328 4
2932 1 1 3 0 0 2 0 0 6203 4 26 0 1 1415 4
PROCEDURE 251
2935 26 0 0 4195 4
2936 27 0 0 2958 4 6 0 0 95 4 27 0 1 2950 4 6 0 0 6267 4
2940 27 0 0 2944 4 24 0 3 7354 4 6 1 0 5 0 24 1 0 2946 4
2944 24 1 2 17 4 6 1 0 7 0 24 1 2 21 4 5 1 0 5 0
2948 27 0 0 2958 4 27 0 2 2964 4 26 0 0 4265 4 1 1 3 0 0
2952 2 0 0 83 4 26 0 0 4323 4 26 0 0 3863 4 26 0 0 1415 4
2956 26 0 0 4300 4 24 1 0 2937 4
PROCEDURE 252
2958 24 0 1 7327 4 26 0 1 2959 4
2960 0 0 0 2980 3 0 0 0 3017 3 0 0 0 3114 3 0 0 0 3091 3
PROCEDURE 253
2964 6 1 0 5238 4 24 0 1 4742 4 24 0 1 4420 4 2 1 0 5326 4
2968 0 1 2 5236 4 26 0 0 3172 4 1 1 3 7517 0 3 0 0 6272 4
2972 1 0 1 15 0 24 0 1 4742 4 24 0 1 4420 4 14 1 0 5326 4
2976 26 0 0 4121 4 26 0 0 4195 4 27 0 0 2976 4 24 1 0 2937 4
PROCEDURE 254
2980 24 1 2 21 4 6 1 0 51 0 27 0 1 3015 4 6 0 0 6271 4
2984 2 0 0 4243 4 26 0 0 4323 4 6 0 0 88 4 2 0 0 1586 4
2988 26 0 0 4176 4 6 0 0 88 4 5 0 0 1586 4 27 0 1 3010 4
2992 1 1 3 1 0 2 0 0 83 4 26 0 0 3806 4 26 0 0 4265 4
2996 6 0 0 88 4 27 0 2 3006 4 6 0 0 6267 4 27 0 0 3003 4
3000 24 0 3 7354 4 6 1 0 8 0 24 1 0 3005 4 24 1 2 17 4
3004 6 1 0 16 0 2 1 0 5242 4 26 0 0 4300 4 26 0 0 1415 4
3008 26 0 0 4121 4 24 1 0 2935 4 6 0 0 88 4 4 0 0 1586 4
3012 27 0 2 2992 4 6 0 0 4243 4 2 0 0 6271 4 1 1 3 105 0
3016 24 1 0 3058 4
PROCEDURE 255
3017 26 0 0 4265 4 24 1 2 21 4 6 1 0 4 0
3020 2 1 0 5234 4 24 1 2 21 4 6 1 0 51 0 27 0 1 3057 4
3024 26 0 0 4121 4 26 0 0 4195 4 27 0 1 3070 4 24 1 2 21 4
3028 6 1 0 51 0 27 0 1 3057 4 6 0 0 6267 4 27 0 0 3035 4
3032 24 0 3 7354 4 6 1 0 5 0 24 1 0 3037 4 24 1 2 17 4
3036 6 1 0 7 0 18 0 1 8 0 27 0 0 3040 4 26 0 0 1488 4
3040 26 0 0 4300 4 26 0 0 4265 4 6 0 0 6267 4 27 0 0 3047 4
3044 24 0 3 7354 4 6 1 0 5 0 24 1 0 3049 4 24 1 2 17 4
3048 6 1 0 7 0 5 1 0 5237 4 27 0 1 3056 4 26 0 0 4300 4
3052 26 0 0 4121 4 26 0 0 4195 4 27 0 1 2937 4 24 1 0 3057 4
3056 27 0 3 3040 4 1 1 3 84 0 18 0 1 8 0 24 0 1 4742 4
3060 24 0 1 4420 4 2 1 0 5326 4 6 0 0 6267 4 27 0 0 3067 4
3064 24 0 3 7354 4 0 1 2 4 0 24 1 0 2969 4 24 1 2 17 4
3068 0 1 2 6 0 24 1 0 2969 4 6 0 0 6267 4 27 0 0 3075 4
3072 24 0 3 7354 4 6 1 0 5 0 24 1 0 3077 4 24 1 2 17 4
3076 6 1 0 7 0 18 0 1 8 0 27 0 0 3080 4 26 0 0 1488 4
3080 26 0 0 4300 4 6 0 0 6267 4 27 0 0 3086 4 24 0 3 7354 4
3084 6 1 0 5 0 24 1 0 3088 4 24 1 2 17 4 6 1 0 7 0
3088 5 1 0 5235 4 27 0 0 3080 4 24 1 0 2935 4
PROCEDURE 256
3091 26 0 0 4323 4
3092 26 0 0 3806 4 24 1 2 21 4 6 1 0 51 0 27 0 0 3098 4
3096 1 1 3 81 0 24 1 0 3058 4 1 1 3 1 0 3 0 0 6203 4
3100 2 0 0 136 4 26 0 0 3110 4 1 1 3 0 0 2 0 0 136 4
3104 26 0 0 4121 4 1 1 3 0 0 2 0 0 83 4 26 0 0 1415 4
3108 26 0 0 4300 4 24 1 0 2935 4
PROCEDURE 257
3110 0 0 0 0 0 6 0 0 3110 4
3112 2 0 0 3863 4 24 1 0 3866 4
PROCEDURE 258
3114 24 1 2 21 4 6 1 0 51 0
3116 27 0 1 3164 4 2 0 0 88 4 24 0 1 6271 4 26 0 1 3119 4
3120 0 0 0 3132 3 0 0 0 3132 3 0 0 0 3124 3 0 0 0 3132 3
3124 6 1 0 5086 4 28 1 1 5234 4 24 0 2 4548 4 26 0 0 5063 4
3128 1 1 3 0 0 2 1 0 5254 4 2 1 0 5278 4 24 1 0 3133 4
3132 26 0 0 3806 4 26 1 1 5154 4 6 1 1 5234 4 27 0 1 3139 4
3136 25 0 1 2 0 24 1 0 3134 4 24 1 0 3158 4 1 1 3 115 0
3140 18 0 1 8 0 24 0 1 4742 4 24 0 1 4420 4 2 1 0 5326 4
3144 6 0 0 6267 4 27 0 0 3149 4 24 0 3 7354 4 0 1 2 4 0
3148 24 1 0 3151 4 24 1 2 17 4 0 1 2 6 0 26 0 0 3172 4
3152 1 1 3 7517 0 3 0 0 6272 4 1 0 1 15 0 24 0 1 4742 4
3156 24 0 1 4420 4 14 1 0 5326 4 26 0 0 4121 4 26 0 0 4195 4
3160 27 0 1 2937 4 24 1 2 21 4 6 1 0 51 0 27 0 0 3166 4
3164 1 1 3 115 0 24 1 0 3058 4 26 0 0 4176 4 1 1 3 1 0
3168 2 0 0 83 4 26 0 0 3806 4 26 0 0 1415 4 24 1 0 3158 4
PROCEDURE 259
3172 0 0 0 0 0 24 0 1 4742 4 24 0 1 4412 4 6 0 0 5341 4
3176 5 0 0 4747 4 27 0 0 3184 4 1 1 3 0 0 18 1 1 10 0
3180 24 0 1 4742 4 24 0 1 4412 4 2 1 0 5340 4 26 0 1 3172 4
3184 18 1 1 10 0 24 0 1 4742 4 24 0 1 4412 4 2 1 0 5338 4
3188 26 0 1 3172 4
PROCEDURE 260
3189 2 0 0 119 4 2 1 0 116 4 2 0 0 120 4
3192 2 0 0 7341 4 26 1 2 116 4 26 1 3 5156 4 26 1 1 5110 4
3196 6 1 0 5158 4 28 0 0 5406 4 0 0 3 5207 4 0 1 2 5240 4
3200 6 0 0 83 4 2 0 0 120 4 24 1 0 3205 4 26 0 0 4239 4
PROCEDURE 261
3204 26 0 0 3587 4 18 1 1 2 0 3 1 0 138 4 1 1 2 125 0
3208 27 0 0 3214 4 1 1 2 1 0 27 0 0 3371 4 6 0 0 120 4
3212 27 0 1 3204 4 24 1 0 3219 4 6 0 0 120 4 27 0 0 3371 4
3216 2 0 0 120 4 2 0 0 120 4 24 1 0 3204 4 6 0 0 138 4
3220 2 0 2 5406 4
PROCEDURE 262
3221 24 0 3 0 4 6 0 0 4 22 25 0 2 1 0
3224 24 1 0 3225 4 27 0 1 3245 4 6 0 0 138 4 1 1 2 122 0
3228 27 0 0 3247 4 1 1 3 5 0 2 0 0 7333 4 2 0 0 5466 4
3232 6 0 0 5467 4 27 0 0 3242 4 6 0 0 5468 4 2 0 0 7334 4
3236 6 0 0 5468 4 1 1 2 5 0 27 0 1 3245 4 1 1 3 1 0
3240 2 0 0 7341 4 24 1 0 3245 4 1 1 3 1 0 2 0 0 7333 4
3244 26 0 0 3249 4 6 0 0 138 4 24 1 0 3257 4 26 0 0 3249 4
3248 24 1 0 3268 4
PROCEDURE 263
3249 0 0 0 0 0 2 1 0 5466 4 2 1 0 5468 4
3252 2 1 0 5470 4 2 1 0 5472 4 2 1 0 5474 4 2 1 0 5476 4
3256 26 0 1 3249 4 24 0 1 7333 4 26 0 1 3258 4 0 0 0 3203 3
3260 0 0 0 3290 3 0 0 0 3354 3 0 0 0 3264 3 0 0 0 3271 3
3264 1 1 2 124 0 27 0 0 3242 4 1 1 1 2 0 27 0 1 3315 4
3268 1 1 3 2 0 2 0 0 7333 4 24 1 0 3204 4 1 1 2 124 0
3272 27 0 1 3287 4 1 1 3 2 0 7 0 0 5466 4 24 0 0 5466 4
3276 6 0 0 5468 4 27 0 0 3242 4 2 0 0 7334 4 6 0 0 7334 4
3280 1 1 2 5 0 27 0 1 3204 4 24 0 3 0 4 6 0 0 4 22
3284 1 1 1 1 0 2 0 0 7341 4 24 1 0 3204 4 1 1 1 2 0
3288 27 0 1 3315 4 24 1 0 3203 4 1 1 2 81 0 27 0 0 3310 4
3292 1 1 2 1 0 27 0 0 3308 4 1 1 2 1 0 27 0 0 3302 4
3296 1 1 2 1 0 27 0 0 3309 4 1 1 2 19 0 27 0 0 3307 4
3300 1 1 2 2 0 27 0 1 3242 4 24 0 3 0 4 6 0 0 4 22
3304 1 1 1 2 0 2 0 0 7341 4 1 1 3 1 0 1 1 1 1 0
3308 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 2 0 0 7334 4
3312 1 1 3 3 0 2 0 0 7333 4 24 1 0 3204 4
PROCEDURE 264
3315 24 0 1 7334 4
3316 26 0 1 3316 4 0 0 0 3204 3 0 0 0 3322 3 0 0 0 3331 3
3320 0 0 0 3335 3 0 0 0 3340 3 6 0 0 138 4 18 0 1 4127 0
3324 1 1 2 2 0 27 0 0 3328 4 1 1 2 3 0 27 0 3 3204 4
3328 1 1 3 91 0 2 1 0 5278 4 24 1 0 3204 4 6 1 0 139 4
3332 1 1 2 10 0 27 0 2 3328 4 24 1 0 3322 4 6 1 0 139 4
3336 27 0 0 3322 4 1 1 2 1 0 27 0 0 3322 4 24 1 0 3328 4
3340 6 0 0 138 4 1 1 2 77 0 27 0 1 3347 4 6 0 0 116 4
3344 2 0 0 117 4 2 0 0 116 4 24 1 0 3322 4 6 0 0 116 4
3348 18 0 1 1 0 4 1 0 139 4 2 0 0 116 4 1 1 3 5 0
3352 2 0 0 7333 4 24 1 0 3331 4 1 1 2 123 0 27 0 0 3363 4
3356 6 0 2 5404 4 1 1 2 82 0 27 0 0 3331 4 6 0 2 5403 4
3360 1 1 2 82 0 27 0 0 3331 4 24 1 0 3242 4 6 0 0 7334 4
3364 24 0 0 5467 4 2 0 0 5468 4 1 1 3 2 0 7 0 0 5467 4
3368 1 1 3 4 0 2 0 0 7333 4 24 1 0 3204 4
PROCEDURE 265
3371 1 1 3 125 0
3372 2 0 2 5406 4 6 0 0 7333 4 1 1 2 4 0 27 0 2 3377 4
3376 26 0 0 4239 4 6 0 0 5466 4 27 0 0 3383 4 1 1 1 2 0
3380 5 0 0 5467 4 27 0 0 3383 4 26 0 0 4239 4 6 0 0 5467 4
3384 1 1 2 12 0 27 0 3 3387 4 26 0 0 4239 4 24 0 3 0 4
3388 6 0 0 4 22 2 0 0 120 4 3 1 0 5070 4 26 1 2 5070 4
3392 3 1 0 5070 4 26 1 3 5070 4 6 0 0 7341 4 27 0 0 3422 4
3396 3 1 0 5070 4 26 1 1 5070 4 6 0 0 117 4 1 1 2 256 0
3400 27 0 3 3422 4 1 1 2 2201 0 27 0 2 3422 4 6 0 0 117 4
3404 26 0 0 1613 4 24 1 0 3407 4 0 0 0 1667 3 6 0 0 169 4
3408 0 0 3 5207 4 18 1 1 4126 0 2 0 1 5405 4 18 1 1 1 0
3412 27 0 1 3414 4 1 1 3 48 0 2 0 1 5406 4 18 1 1 1 0
3416 27 0 1 3418 4 1 1 3 48 0 2 0 1 5407 4 6 1 0 5160 4
3420 28 0 0 5240 4 24 1 0 3464 4 6 0 0 83 4 27 0 0 3481 4
3424 6 1 0 5160 4 28 0 0 5240 4 24 0 1 6276 4 26 0 1 3427 4
3428 0 0 0 3464 3 0 0 0 3430 3 6 0 0 5467 4 1 1 2 4 0
3432 27 0 2 3452 4 6 0 0 7334 4 1 1 2 1 0 27 0 1 3452 4
3436 6 0 0 5406 4 1 1 2 122 0 27 0 0 3440 4 6 0 0 5225 4
3440 1 1 1 3 0 0 0 2 5226 4 10 0 0 140 4 4 1 0 5162 4
3444 3 0 0 120 4 3 1 0 5070 4 26 1 1 5070 4 1 1 3 125 0
3448 2 0 1 5406 4 25 0 1 1 0 24 1 0 3448 4 24 1 0 3464 4
3452 26 1 1 5164 4 6 0 1 5406 4 27 0 1 3457 4 25 0 1 4097 0
3456 24 1 0 3453 4 1 1 3 125 0 2 0 1 5407 4 2 0 0 5435 4
3460 24 0 3 0 4 6 0 0 2 22 1 1 1 1 0 2 0 0 120 4
3464 6 0 2 5406 4
PROCEDURE 266
3465 18 0 1 2 0 4 0 2 5407 4 18 0 1 2 0
3468 4 0 2 5408 4 18 0 1 2 0 4 0 2 5409 4 18 0 1 2 0
3472 4 0 2 5410 4 2 1 3 5240 4 25 0 3 2 0 25 0 2 5 0
3476 24 0 3 0 4 6 0 0 4 22 1 1 2 1 0 5 0 0 120 4
3480 27 0 3 3464 4 6 1 0 5276 4 5 1 0 4746 4 27 0 1 3486 4
3484 26 0 0 3249 4 24 1 0 2804 4 6 0 0 5467 4 1 1 2 4 0
3488 27 0 2 2804 4 26 1 1 5166 4 6 0 1 5406 4 1 1 2 122 0
3492 27 0 1 3500 4 6 0 1 5407 4 25 0 1 1 0 24 1 0 3496 4
3496 1 1 2 123 0 27 0 1 3493 4 25 0 1 1 0 24 1 0 3500 4
PROCEDURE 267
3500 24 0 1 7334 4 26 0 1 3501 4 0 0 0 3533 3 0 0 0 3542 3
3504 0 0 0 3556 3 0 0 0 3579 3 0 0 0 3507 3 6 0 0 117 4
3508 1 1 2 4096 0 27 0 2 3527 4 1 1 1 3943 0 27 0 2 3529 4
3512 6 0 0 117 4 27 0 0 2804 4 26 0 0 1352 4 0 0 2 90 4
3516 15 0 3 122 4 27 0 0 3527 4 1 1 3 0 0 18 1 3 10 0
3520 15 0 3 122 4 27 0 1 3527 4 6 0 0 116 4 5 0 0 5227 4
3524 27 0 3 2804 4 26 0 0 1582 4 24 1 0 2804 4 26 0 0 1578 4
3528 24 1 0 2804 4 6 0 0 116 4 1 1 2 153 0 27 0 2 3525 4
3532 24 1 0 2804 4
PROCEDURE 268
3533 6 0 0 140 4 27 0 0 3536 4 1 1 3 3 0
3536 1 1 1 2 0 24 0 3 0 4 4 0 0 2 22 5 0 0 120 4
3540 27 0 2 2804 4 24 1 0 3584 4
PROCEDURE 269
3542 6 0 0 140 4 27 0 0 3545 4
3544 1 1 3 5 0 1 1 1 5 0 2 0 0 117 4 24 0 0 120 4
3548 6 0 0 5405 4 1 1 2 16 0 27 0 0 3553 4 6 0 0 117 4
3552 24 1 0 3537 4 6 0 0 117 4 1 1 1 1 0 24 1 0 3537 4
PROCEDURE 270
3556 26 1 2 5168 4 6 0 1 5406 4 1 1 2 125 0 27 0 0 3573 4
3560 1 1 1 109 0 27 0 0 3573 4 1 1 1 16 0 2 1 0 60 4
3564 6 1 0 116 4 18 0 1 1 0 4 1 0 61 4 2 1 0 116 4
3568 25 0 1 1 0 24 1 0 3570 4 25 0 2 1 0 24 1 0 3557 4
3572 24 1 0 3584 4
PROCEDURE 271
3573 6 0 0 140 4 27 0 1 2804 4 6 1 0 116 4
3576 5 1 0 5170 4 27 0 2 3584 4 24 1 0 2804 4
PROCEDURE 272
3579 6 0 0 140 4
3580 27 0 0 3582 4 1 1 3 20 0 1 1 1 20 0 24 1 0 3546 4
PROCEDURE 273
3584 1 1 3 91 0 2 1 0 5278 4 24 1 0 2804 4
PROCEDURE 274
3587 0 0 0 0 0
3588 1 1 3 0 0 25 0 3 1 0 24 1 0 3600 4 25 0 1 2 0
3592 24 1 0 3597 4 26 0 0 4239 4 1 1 3 125 0 18 1 1 4126 0
3596 26 0 1 3587 4 26 1 3 5156 4 24 0 0 23 4 0 1 2 5240 4
3600 26 0 1 3587 4
PROCEDURE 275
3601 0 0 0 0 0 2 1 0 139 4 6 0 0 3601 4
3604 3 0 0 3587 4 2 0 0 1820 4 24 1 0 1828 4
PROCEDURE 276
3607 2 0 0 53 4
3608 26 1 2 5120 4 6 0 2 5256 4 2 0 0 5244 4 6 1 2 5254 4
3612 26 0 0 3601 4 6 0 0 5244 4 2 0 2 5256 4 6 0 0 54 4
3616 2 0 2 5254 4 26 0 0 3625 4 6 0 0 5253 4 27 0 0 3622 4
3620 6 0 0 5244 4 26 0 0 1562 4 25 0 2 4 0 24 1 0 3609 4
3624 24 1 0 3655 4
PROCEDURE 277
3625 0 0 0 0 0 1 1 3 1 0 2 0 0 7329 4
3628 6 0 0 54 4 1 1 2 256 0 27 0 2 3652 4 6 0 0 54 4
3632 27 0 3 3647 4 27 0 0 3642 4 26 0 0 1352 4 0 0 2 90 4
3636 15 0 3 122 4 27 0 0 3647 4 18 1 3 10 0 1 1 3 0 0
3640 15 0 3 122 4 27 0 1 3647 4 6 0 0 5244 4 5 0 0 5220 4
3644 27 0 3 3654 4 26 0 0 1582 4 24 1 0 3648 4 26 0 0 1578 4
3648 26 0 0 4239 4 1 1 3 2 0 2 0 0 7329 4 24 1 0 3654 4
3652 1 1 2 2304 0 27 0 2 3647 4 26 0 1 3625 4
PROCEDURE 278
3655 6 0 0 5253 4
3656 27 0 3 3792 4 1 1 2 3 0 27 0 2 3792 4 6 0 0 5254 4
3660 27 0 0 3798 4 24 0 1 7335 4 26 0 1 3662 4 0 0 0 3668 3
3664 0 0 0 3734 3 0 0 0 3676 3 0 0 0 3755 3 0 0 0 2804 3
PROCEDURE 279
3668 6 0 0 5246 4 4 0 0 5248 4 7 0 0 55 4 6 0 0 5250 4
3672 1 1 2 2 0 27 0 1 3676 4 1 1 3 1 0 7 0 0 55 4
3676 6 0 0 5258 4 0 0 2 5260 4 27 1 1 3796 4 6 0 0 5245 4
3680 27 0 1 3790 4 6 0 0 5253 4 1 1 2 1 0 27 0 0 3685 4
3684 6 0 0 5228 4 1 1 1 16 0 5 0 0 5246 4 5 0 0 5247 4
3688 27 0 3 3788 4 4 0 0 5246 4 4 0 0 5247 4 5 0 0 5249 4
3692 27 0 3 3782 4 6 0 0 5246 4 5 0 0 5249 4 27 0 3 3782 4
PROCEDURE 280
3696 6 0 0 5248 4 1 1 2 22 0 27 0 2 3784 4 6 0 0 5246 4
3700 27 0 0 3788 4 6 0 0 5253 4 1 1 2 2 0 27 0 1 3706 4
3704 6 0 0 5249 4 27 0 1 3782 4 6 0 0 5251 4 27 0 1 3711 4
3708 5 0 0 113 4 27 0 0 3718 4 24 1 0 3732 4 1 1 2 1 0
3712 27 0 1 3778 4 6 0 0 113 4 1 1 2 2 0 27 0 0 3717 4
3716 1 1 1 3 0 2 0 0 113 4 6 0 0 5252 4 3 0 0 56 4
3720 27 0 0 2804 4 1 1 2 1 0 27 0 1 3776 4 6 0 0 55 4
3724 4 0 0 55 4 18 0 1 9 0 27 0 0 3729 4 6 1 0 5172 4
3728 2 1 0 5278 4 2 0 0 55 4 5 0 0 113 4 27 0 0 2804 4
3732 7 0 0 113 4 24 1 0 3778 4
PROCEDURE 281
3734 6 0 0 5258 4 27 0 0 3755 4
3736 18 0 1 4126 0 27 0 1 3745 4 6 0 0 5254 4 18 1 1 4126 0
3740 27 0 1 3796 4 18 1 1 2 0 5 0 0 5258 4 27 0 1 3796 4
3744 24 1 0 3752 4 6 0 0 5254 4 18 1 1 4126 0 27 0 0 3796 4
3748 6 0 0 5258 4 5 0 0 5254 4 27 0 3 3796 4 27 0 1 3755 4
3752 6 0 0 5260 4 5 0 0 5256 4 27 0 3 3794 4 6 0 0 5245 4
3756 27 0 0 3761 4 1 1 2 1 0 27 0 1 3790 4 6 0 0 5252 4
3760 27 0 0 3776 4 6 0 0 5246 4 27 0 1 3788 4 6 0 0 5247 4
3764 27 0 1 3786 4 6 0 0 5248 4 27 0 1 3784 4 6 0 0 5249 4
3768 27 0 1 3782 4 6 0 0 5250 4 27 0 0 3773 4 1 1 2 2 0
3772 27 0 1 3780 4 6 0 0 5251 4 27 0 1 3778 4 24 1 0 2804 4
PROCEDURE 282
3776 1 1 3 1 0 2 0 0 53 4 1 1 3 1 0 7 0 0 53 4
3780 1 1 3 1 0 7 0 0 53 4 1 1 3 1 0 7 0 0 53 4
3784 1 1 3 1 0 7 0 0 53 4 1 1 3 1 0 7 0 0 53 4
3788 1 1 3 1 0 7 0 0 53 4 1 1 3 1 0 7 0 0 53 4
3792 1 1 3 1 0 7 0 0 53 4 1 1 3 1 0 7 0 0 53 4
3796 1 1 3 2 0 7 0 0 53 4 1 1 3 1 0 4 0 0 53 4
3800 2 0 0 138 4 24 0 2 4430 4 28 1 2 5278 4 6 1 0 5174 4
3804 7 1 0 5278 4 24 1 0 2804 4
PROCEDURE 283
3806 0 0 0 0 0 6 1 0 5086 4
3808 28 1 1 5234 4 6 0 0 88 4 27 0 0 3935 4 24 0 1 6276 4
3812 26 0 1 3812 4 0 0 0 3815 3 0 0 0 3837 3 6 0 0 6000 4
3816 27 0 0 3819 4 24 0 2 4534 4 24 1 0 3820 4 24 0 2 4536 4
3820 26 0 0 5063 4 6 0 0 6271 4 1 1 2 2 0 27 0 1 3834 4
3824 6 0 0 88 4 27 0 3 3834 4 1 1 3 0 0 2 1 0 5242 4
3828 6 0 0 6000 4 27 0 0 3832 4 24 0 2 4542 4 24 1 0 3833 4
3832 24 0 2 4544 4 26 0 0 5063 4 1 1 3 0 0 2 1 0 5278 4
3836 26 0 1 3806 4 24 0 2 4536 4 24 1 2 21 4 28 0 2 8 0
3840 24 1 2 21 4 24 0 2 18 0 18 1 1 4123 0 1 1 3 16 0
3844 18 1 1 5 0 28 1 1 5252 4 6 1 0 5242 4 18 0 1 4 0
3848 2 1 0 5242 4 6 0 0 88 4 27 0 3 3834 4 6 0 0 6271 4
3852 1 1 2 1 0 27 0 1 3834 4 6 1 0 5252 4 2 1 0 5242 4
3856 24 1 2 21 4 24 0 2 20 0 18 1 1 4123 0 1 1 3 16 0
3860 18 1 1 5 0 28 1 1 5252 4 26 0 1 3806 4
PROCEDURE 284
3863 0 0 0 0 0
3864 6 1 0 5138 4 28 1 1 5240 4 6 0 0 6267 4 27 0 1 4333 4
3868 6 0 0 88 4 27 0 0 3889 4 24 0 2 4436 4 24 1 2 17 4
3872 28 0 2 4 0 6 0 0 136 4 27 0 0 3882 4 6 0 0 6271 4
3876 1 1 2 1 0 27 0 0 3934 4 24 1 2 17 4 6 1 0 20 0
3880 2 1 0 5250 4 24 1 0 3934 4 24 1 2 17 4 24 0 2 20 0
3884 18 1 1 4123 0 1 1 3 30 0 18 1 1 5 0 28 1 1 5250 4
3888 24 1 0 3933 4 24 0 1 6271 4 26 0 1 3890 4 0 0 0 3908 3
3892 0 0 0 3912 3 0 0 0 3916 3 0 0 0 3895 3 24 1 2 17 4
3896 24 0 2 9 0 18 1 1 4123 0 1 1 3 36 0 18 1 1 5 0
3900 28 1 0 5243 4 24 1 2 17 4 24 0 2 44 0 18 1 1 4123 0
3904 1 1 3 6 0 18 1 1 5 0 28 1 1 5274 4 26 0 1 3863 4
3908 24 0 2 4460 4 24 1 2 17 4 28 0 2 4 0 24 1 0 3925 4
3912 24 0 2 4480 4 24 1 2 17 4 28 0 2 4 0 24 1 0 3925 4
3916 24 1 2 17 4 24 0 2 12 0 18 1 1 4123 0 1 1 3 18 0
3920 18 1 1 5 0 28 1 1 5240 4 24 1 2 17 4 6 1 0 5 0
3924 2 1 0 5234 4 6 0 0 136 4 27 0 1 3934 4 24 1 2 17 4
3928 24 0 2 32 0 18 1 1 4123 0 1 1 3 18 0 18 1 1 5 0
3932 28 1 1 5262 4 2 1 0 5278 4 26 0 1 3863 4
PROCEDURE 285
3935 24 0 1 6271 4
3936 26 0 1 3936 4 0 0 0 3941 3 0 0 0 3949 3 0 0 0 3955 3
3940 0 0 0 3834 3
PROCEDURE 286
3941 24 0 2 4548 4 26 0 0 5063 4 1 1 3 0 0
3944 2 1 0 5254 4 24 0 1 6276 4 26 0 1 3946 4 0 0 0 3981 3
3948 0 0 0 3961 3 24 0 2 4566 4 26 0 0 5063 4 24 0 1 6276 4
3952 26 0 1 3952 4 0 0 0 3834 3 0 0 0 3977 3 24 0 2 4596 4
3956 26 0 0 5063 4 24 0 1 6276 4 26 0 1 3958 4 0 0 0 3993 3
3960 0 0 0 3982 3 0 0 3 5207 4 6 1 0 5242 4 18 1 1 4124 0
3964 1 1 2 16 0 27 0 0 3968 4 1 1 2 58 0 27 0 1 3969 4
3968 6 0 0 5229 4 1 1 1 74 0 0 0 3 5210 4 18 1 1 4122 0
3972 26 0 0 4282 4 2 1 0 5242 4 0 1 2 5240 4 26 0 0 4282 4
3976 2 1 0 5240 4 24 1 2 21 4 6 1 0 4 0 2 1 0 5236 4
3980 26 0 0 4257 4 24 1 0 3834 4 24 1 2 21 4 6 1 0 4 0
3984 2 1 0 5236 4 26 0 0 4257 4 1 1 3 125 0 1 0 1 3 0
3988 18 1 1 8 0 24 1 2 21 4 14 1 0 18 0 24 1 2 21 4
3992 14 1 0 6 0 24 0 2 4516 4 24 1 2 21 4 28 0 2 4 0
3996 24 1 0 3834 4
PROCEDURE 287
3997 0 0 0 0 0 5 1 0 4724 4 27 0 3 4030 4
4000 27 0 0 4023 4 4 1 0 4724 4 5 1 0 4732 4 27 0 1 4009 4
4004 6 0 0 6271 4 1 1 2 3 0 27 0 0 4030 4 1 1 3 16 0
4008 24 1 0 4028 4 4 1 0 4732 4 5 1 0 4726 4 27 0 0 4025 4
4012 27 0 3 4030 4 4 1 0 4726 4 5 1 0 4722 4 27 0 0 4024 4
4016 27 0 3 4030 4 4 1 0 4722 4 5 1 0 4748 4 27 0 1 4030 4
4020 6 0 0 83 4 27 0 1 4030 4 1 1 3 1 0 1 1 1 1 0
4024 1 1 1 1 0 1 1 1 1 0 2 0 0 6271 4 1 1 2 16 0
4028 2 0 0 88 4 26 0 1 3997 4 1 1 3 0 0 2 0 0 88 4
4032 26 0 1 3997 4
PROCEDURE 288
4033 0 0 0 0 0 6 0 0 160 4 27 0 0 4042 4
4036 6 0 0 161 4 27 0 0 4041 4 24 0 1 4742 4 24 0 1 4420 4
4040 2 1 0 5326 4 2 0 0 160 4 26 1 1 5176 4 6 1 1 5324 4
4044 27 0 0 4047 4 5 1 0 4730 4 27 0 1 4049 4 25 0 1 4098 0
4048 24 1 0 4043 4 24 0 3 0 4 6 0 0 2 22 3 1 0 5327 4
4052 1 1 3 144 0 5 0 0 4720 4 5 1 0 5327 4 27 0 2 4068 4
4056 6 0 0 4720 4 24 1 2 19 4 3 1 0 5 0 26 1 1 4720 4
4060 6 1 0 4730 4 24 1 2 19 4 2 1 1 6 0 26 0 0 4099 4
4064 6 1 0 5086 4 24 1 2 19 4 28 1 1 4 0 2 0 0 4720 4
4068 1 1 3 6 0 2 0 0 52 4 26 1 1 4720 4 24 0 2 5326 4
4072 18 1 1 4123 0 6 1 0 5327 4 18 1 1 5 0 0 1 0 5070 4
4076 0 0 3 0 4 24 1 2 19 4 24 0 2 0 0 24 0 3 0 4
4080 4 0 0 2 22 2 0 0 5076 4 0 1 1 5070 4 24 0 3 5076 4
4084 28 1 1 6 0 6 1 0 5327 4 7 0 0 4720 4 6 1 0 5124 4
4088 28 1 1 5326 4 26 0 1 4033 4
PROCEDURE 289
4090 0 0 0 0 0 6 1 0 4730 4
4092 24 1 2 19 4 2 1 0 50 0 26 0 0 4099 4 6 1 0 5086 4
4096 24 1 2 19 4 28 1 1 4 0 26 0 1 4090 4
PROCEDURE 290
4099 0 0 0 0 0
4100 0 1 0 5070 4 0 0 3 0 4 0 0 2 18 4 6 1 0 5120 4
4104 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
4108 0 1 1 5070 4 26 0 1 4099 4
PROCEDURE 291
4110 0 0 0 0 0 0 1 0 5070 4
4112 0 0 3 0 4 0 0 2 16 4 6 1 0 5178 4 4 0 0 9 4
4116 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 5070 4
4120 26 0 1 4110 4
PROCEDURE 292
4121 0 0 0 0 0 26 0 0 4289 4 24 0 1 6276 4
4124 26 0 1 4124 4 0 0 0 4135 3 0 0 0 4127 3 24 1 2 21 4
4128 6 1 0 35 0 5 0 0 161 4 7 0 0 161 4 1 1 2 1 0
4132 2 0 0 160 4 24 1 2 21 4 2 1 0 34 0 24 1 2 21 4
4136 6 1 0 4 0 5 1 0 4744 4 27 0 1 4157 4 24 0 2 4432 4
4140 26 0 0 5063 4 0 1 2 138 4 26 0 0 4820 4 6 1 0 139 4
4144 5 0 0 142 4 7 0 0 142 4 1 1 2 1 0 27 0 0 4122 4
4148 6 1 0 4744 4 24 0 1 4742 4 24 0 1 4412 4 2 1 0 5340 4
4152 6 1 0 138 4 24 0 1 4742 4 24 0 1 4420 4 2 1 0 5326 4
4156 24 1 0 4122 4 24 1 2 21 4 6 1 0 4 0 5 1 0 4766 4
4160 27 0 0 4175 4 24 1 2 21 4 0 1 2 49 0 1 1 3 0 0
4164 18 1 1 7 0 2 1 0 4812 4 26 1 1 4812 4 18 1 1 3 0
4168 2 0 0 4033 4 1 0 1 3 0 1 1 3 126 0 24 0 1 4033 4
4172 18 1 1 0 0 24 1 2 21 4 14 1 1 0 0 26 0 1 4121 4
PROCEDURE 293
4176 0 0 0 0 0 6 1 0 5180 4 28 1 1 5234 4 24 0 1 6276 4
4180 26 0 1 4180 4 0 0 0 4190 3 0 0 0 4183 3 24 0 2 4536 4
4184 24 1 2 21 4 28 0 2 8 0 6 1 0 5242 4 18 0 1 4 0
4188 2 1 0 5242 4 24 1 0 4192 4 24 0 2 4534 4 26 0 0 5063 4
4192 6 1 0 5240 4 26 0 0 3997 4 26 0 1 4176 4
PROCEDURE 294
4195 0 0 0 0 0
4196 24 1 2 21 4 6 1 0 4 0 18 0 1 4124 0 18 0 1 4 0
4200 5 1 0 4734 4 27 0 0 4206 4 24 1 2 21 4 6 1 0 4 0
4204 5 1 0 4766 4 27 0 1 4208 4 6 1 0 5182 4 24 1 0 4235 4
4208 1 1 3 0 0 2 1 0 5238 4 24 0 2 4542 4 26 0 0 5063 4
4212 24 0 1 6276 4 26 0 1 4213 4 0 0 0 4218 3 0 0 0 4216 3
4216 0 1 2 5240 4 24 1 0 4219 4 0 1 2 5238 4 1 1 3 0 0
4220 18 1 1 2 0 1 1 2 105 0 27 0 0 4232 4 1 1 1 21 0
4224 27 0 0 4231 4 1 1 2 25 0 27 0 0 4230 4 1 1 1 34 0
4228 27 0 1 4237 4 1 1 3 1 0 1 1 1 1 0 1 1 1 1 0
4232 1 1 1 1 0 2 0 0 7327 4 1 1 3 1 0 3 1 0 94 4
4236 26 0 1 4195 4 1 1 3 0 0 24 1 0 4235 4
PROCEDURE 295
4239 0 0 0 0 0
4240 6 1 0 4746 4 2 1 0 5276 4 26 0 1 4239 4
PROCEDURE 296
4243 0 0 0 0 0
4244 6 1 0 4746 4 24 0 1 4742 4 24 0 1 4412 4 2 1 0 5340 4
4248 26 0 1 4243 4
PROCEDURE 297
4249 0 0 0 0 0 1 1 3 15 0 24 0 1 6276 4
4252 26 0 1 4252 4 0 0 0 4256 3 0 0 0 4255 3 26 0 0 4257 4
4256 26 0 1 4249 4
PROCEDURE 298
4257 0 0 0 0 0 24 1 2 21 4 24 0 2 18 0
4260 18 1 1 4123 0 1 1 3 16 0 18 1 1 5 0 28 1 1 5262 4
4264 26 0 1 4257 4
PROCEDURE 299
4265 0 0 0 0 0 6 0 0 6267 4 27 0 0 4271 4
4268 24 0 3 7354 4 6 1 0 6 0 24 1 0 4273 4 24 1 2 17 4
4272 6 1 0 10 0 5 1 0 4734 4 27 0 0 4829 4 4 1 0 4734 4
4276 5 1 0 4736 4 27 0 0 4829 4 4 1 0 4736 4 5 1 0 4738 4
4280 27 0 0 4829 4 26 0 1 4265 4
PROCEDURE 300
4282 0 0 0 0 0 1 1 3 0 0
4284 27 1 0 4288 4 18 1 1 2 0 27 0 0 4285 4 18 1 1 8 0
4288 26 0 1 4282 4
PROCEDURE 301
4289 0 0 0 0 0 0 1 0 5070 4 0 0 3 0 4
4292 0 0 2 20 4 6 1 0 5178 4 4 0 0 11 4 25 1 1 4096 0
4296 24 0 3 0 4 23 0 2 0 256 0 1 1 5070 4 26 0 1 4289 4
PROCEDURE 302
4300 0 0 0 0 0 6 0 0 6267 4 27 0 0 4321 4 24 0 3 7354 4
4304 6 1 0 1 0 2 0 0 4110 4 24 0 1 4110 4 23 0 0 0 0
4308 0 0 0 7354 3 24 1 0 4320 4 26 0 0 4110 4 0 1 0 5070 4
4312 0 0 3 0 4 24 1 2 17 4 24 0 2 6 0 3 0 0 7354 4
4316 24 1 2 17 4 4 1 0 5 0 2 0 0 7355 4 0 1 1 5070 4
4320 26 0 1 4300 4 26 0 0 4110 4 26 0 1 4300 4
PROCEDURE 303
4323 0 0 0 0 0
4324 6 0 0 6267 4 27 0 0 4330 4 24 0 3 7354 4 6 1 0 6 0
4328 26 0 0 3997 4 26 0 1 4323 4 24 1 2 17 4 6 1 0 10 0
4332 24 1 0 4328 4
PROCEDURE 304
4333 0 0 3 5207 4 6 1 0 5086 4 28 1 1 5280 4
4336 6 0 0 88 4 27 0 0 4373 4 24 0 3 7354 4 6 1 0 1 0
4340 18 0 1 5 0 4 0 0 7354 4 28 1 1 5280 4 24 0 2 4450 4
4344 28 0 2 5282 4 6 0 0 6271 4 1 1 2 1 0 27 0 1 4352 4
4348 6 0 0 88 4 27 0 3 4352 4 6 1 0 5292 4 2 1 0 5242 4
4352 6 0 0 136 4 27 0 0 4367 4 6 0 0 6271 4 1 1 2 1 0
4356 27 0 0 4362 4 1 1 2 1 0 27 0 1 4364 4 6 0 0 88 4
4360 27 0 2 4389 4 24 1 0 4364 4 6 0 0 88 4 27 0 3 4389 4
4364 6 1 0 5294 4 2 1 0 5250 4 24 1 0 4389 4 24 0 2 5294 4
4368 18 1 1 4123 0 1 1 3 26 0 18 1 1 5 0 28 1 1 5250 4
4372 24 1 0 4389 4 6 0 0 6271 4 1 1 2 4 0 27 0 0 4403 4
4376 24 0 3 7354 4 6 1 0 1 0 3 0 0 4812 4 24 0 1 6271 4
4380 5 0 0 4412 4 27 0 2 4391 4 6 0 0 4812 4 18 0 1 5 0
4384 4 0 0 7354 4 28 1 1 5280 4 24 0 1 6271 4 6 0 0 4416 4
4388 28 0 2 5282 4 0 0 3 5210 4 26 0 1 3863 4 2 0 0 4813 4
4392 6 0 0 136 4 27 0 1 4400 4 6 0 0 4813 4 18 0 1 5 0
4396 4 0 0 7354 4 24 0 1 6271 4 4 0 0 4412 4 28 1 1 5262 4
4400 24 0 1 6271 4 6 0 0 4412 4 24 1 0 4383 4 24 0 3 7354 4
4404 6 1 0 1 0 1 1 2 6 0 18 0 1 5 0 4 0 0 7354 4
4408 1 1 1 7 0 28 1 0 5243 4 24 1 0 4389 4 0 0 0 0 0
SECTION 305
4412 18 0 18 0 18 0 1+ 0
4416 1+ 0 116+ 3 1180 3 119. 3
4420 + 0 16 0 16 0 1Ю 0
4424 2Ю 0 0 0
SECTION 306
4426 0 54 3 8707 0 2 2 0 3 0
4428 0 5978 3 8194 0 2 0 0 2 1 0 138 3 20485 0 5 0 0 5 1
4432 0 138 3 5 3 0 0 0 5 0 0 138 3 5 3 0 0 0 5 1
SECTION 307
4436 0 5234 3 20485 0 5 0 0 5 0 0 5236 3 5 3 0 0 0 5 0
4440 0 6005 3 20485 0 5 0 0 5 0 0 5240 3 5 3 0 0 0 5 0
4444 0 6004 3 40970 2 10 0 0 10 0 0 5242 3 5 3 0 0 0 5 0
4448 0 5248 3 16389 0 4 0 0 5 1 0 5234 3 20485 0 5 0 0 5 0
4452 0 5236 3 5 3 0 0 0 5 0 0 5240 3 5 3 0 0 0 5 0
4456 0 5242 3 5 3 0 0 0 5 0 0 5248 3 20485 0 5 0 0 5 1
SECTION 308
4460 0 5234 3 20485 0 5 0 0 5 0 0 5236 3 5 3 0 0 0 5 0
4464 0 5240 3 5 3 0 0 0 5 0 0 5242 3 5 3 0 0 0 5 0
4468 0 5244 3 21765 14 5 5 0 5 0 0 5246 3 8962 0 2 3 0 2 0
4472 0 5248 3 12803 0 3 2 0 3 0 0 5250 3 40970 14 10 0 0 10 0
4476 0 5254 3 5 3 0 0 0 5 0 0 5256 3 20485 0 5 0 0 5 1
SECTION 309
4480 0 5234 3 20485 0 5 0 0 5 0 0 5236 3 5 3 0 0 0 5 0
4484 0 5254 3 20485 0 5 0 0 5 0 0 5256 3 20485 0 5 0 0 5 0
4488 0 5258 3 20485 0 5 0 0 5 0 0 5260 3 20485 0 5 0 0 5 0
4492 0 5253 3 8962 0 2 3 0 2 0 0 5245 3 12803 0 3 2 0 3 0
4496 0 5246 3 8962 0 2 3 0 2 0 0 5247 3 12803 0 3 2 0 3 0
4500 0 5248 3 8962 0 2 3 0 2 0 0 5249 3 12803 0 3 2 0 3 0
4504 0 5250 3 5121 0 1 4 0 1 0 0 5251 3 8962 0 2 3 0 2 0
4508 0 5252 3 8962 0 2 3 0 2 1
SECTION 310
4510 0 5234 3 20485 0 5 0 0 5 0
4512 0 5236 3 5 3 0 0 0 5 0 0 6004 3 20485 0 5 0 0 5 0
4516 0 5240 3 5 3 0 0 0 5 0 0 5242 3 5 3 0 0 0 5 0
4520 0 5244 3 5 3 0 0 0 5 0 0 5246 3 5 3 0 0 0 5 0
4524 0 5248 3 5 3 0 0 0 5 0 0 5250 3 5 3 0 0 0 5 0
4528 0 5252 3 5 3 0 0 0 5 0 0 5254 3 5 3 0 0 0 5 0
4532 0 5256 3 5 3 0 0 0 5 1
SECTION 311
4534 0 5236 3 5 3 0 0 0 5 0
4536 0 5240 3 5 3 0 0 0 5 0 0 5242 3 3 3 0 0 0 3 0
4540 0 5250 3 5 11 0 0 0 5 1 0 5236 3 5 3 0 0 0 5 0
4544 0 5240 3 5 3 0 0 0 5 0 0 5250 3 5 3 0 0 0 5 1
SECTION 312
4548 0 5236 3 6 3 0 0 0 6 0 0 5240 3 3 3 0 0 0 3 0
4552 0 5242 3 3 3 0 0 0 3 0 0 5244 3 5 14 0 0 0 5 0
4556 0 5246 3 1 0 0 0 0 1 0 0 5248 3 2 0 0 0 0 2 0
4560 0 5250 3 10 14 0 0 0 10 0 0 5262 3 5 3 0 0 0 5 0
4564 0 5270 3 5 3 0 0 0 5 1
SECTION 313
4566 0 5236 3 6 3 0 0 0 6 0
4568 0 5254 3 3 0 0 0 0 3 0 0 5256 3 5 0 0 0 0 5 0
4572 0 5258 3 3 0 0 0 0 3 0 0 5260 3 5 0 0 0 0 5 0
4576 0 5253 3 1 0 0 0 0 1 0 0 5245 3 1 0 0 0 0 1 0
4580 0 5246 3 2 0 0 0 0 2 0 0 5247 3 2 0 0 0 0 2 0
4584 0 5248 3 2 0 0 0 0 2 0 0 5249 3 2 0 0 0 0 2 0
4588 0 5250 3 1 0 0 0 0 1 0 0 5251 3 1 0 0 0 0 1 0
4592 0 5252 3 1 0 0 0 0 1 0 0 5262 3 5 3 0 0 0 5 1
SECTION 314
4596 0 5236 3 6 3 0 0 0 6 0 0 5240 3 5 3 0 0 0 5 0
4600 0 5262 3 5 3 0 0 0 5 1
SECTION 315
4602 0 5243 3 16389 0 4 0 0 5 0
4604 0 5244 3 16389 12 4 0 0 5 1
SECTION 316
4606 6‼11 0 8‼19 0
4608 ‼11 0 9‼11 0 Ю122 0 +322 0
4612 £000 0 11Ю11 0 12000 0 13Ю91 0
SECTION 317
4616 1Ю‼11 0 1+000 0 1:‼11 0 21422 0
4620 22‼11 0 23522 0 25‼11 0 26622 0
4624 27‼22 0 295‼2 0 5‼2 0 2‼‼39 0
4628 ‼:1 0 ‼41 0 2++32 0 2:531 0
4632 3153Ю 0 114 0 35‼1‼ 0 ‼43 0
4636 36991 0 ‼13 0 37719 0 ‼91 0
4640 38‼11 0 39117 0 3Ю112 0 3‼11: 0
4644 ‼14 0 3:‼22 0 3.822 0 40‼11 0
4648 41819 0 822 0 43‼22 0 45000 0
4652 4+‼42 0 4.:+2 0 ‼12 0 4£‼42 0
4656 50‼+2 0 ‼92 0 52‼42 0 53+62 0
4660 54‼.2 0 ‼11 0 55‼6Ю 0 ‼.1 0
4664 56162 0 57‼1‼ 0 ‼.1 0 59000 0
4668 5Ю22: 0 222 0 5:‼16 0 5.915 0
4672 60‼25 0 61‼95 0 ‼62 0 63‼26 0
4676 83‼91 0 ‼11 0 84‼32 0 8653Ю 0
4680 ‼62 0 8‼000 0 8£‼91 0 90000 0
4684 94‼91 0 ‼11 0 95000 0 96+1£ 0
4688 ‼.1 0 97‼22 0 98‼4Ю 0 ‼42 0
4692 99‼22 0 9Ю‼12 0 9‼‼22 0 9+‼31 0
4696 9:‼1‼ 0 ‼43 0 9.511 0 ££000 0
4700 ‼19 0 ‼:9 0 ‼11 0 Ю0Ю 1
4704 4Ю 1 ЮЮ 3 188. 3 0 0
4708 ‼:1 0 0 0
SECTION 318
4710 2 0 10000 0
4712 £££ 0 70 0 7 0 8 0
4716 80 0 £00 0 4 0 0 0
4720 0 0 0 0
SECTION 319
4722 26355 0 73515 0
4724 57273 0 53666 0 65369 0 67696 0
4728 0 0 5‼000 0 7. 0 7.000 0
4732 35572 0 65667 0 40000 0 55655 0
4736 46772 0 54746 0 35572 0 56596 0
4740 3££ 0 ££+00 0 0 0 0 0
4744 55573 0 72585 0 :5:5: 0 5:5:5 0
4748 37455 0 75516 0 £6£6£ 0 6£6£6 0
4752 45577 0 59655 0 £4£4£ 0 4£4£4 0
4756 42 0 0 0 15965 0 53585 0
4760 :5:69 0 5:5:5 0 :5:59 0 5:5:5 0
4764 :5:5‼ 0 5:5:5 0 16454 0 73695 0
4768 148. 3 10 0 55972 0 56596 0
SECTION 320
4772 1 0 0 0 16 0 0 0
4776 256 0 0 0 4096 0 0 0
4780 65536 0 0 0 48576 0 10 0
4784 77216 0 167 0 35456 0 2684 0
4788 67296 0 42949 0 £££££ 0 £££££ 0
4792 1 0 0 0 Ю 0 0 0
4796 64 0 0 0 3.8 0 0 0
4800 2710 0 0 0 186Ю0 0 0 0
4804 £4240 0 0 0 89680 0 9 0
4808 5.100 0 5£ 0 Ю+Ю00 0 3‼9 0
4812 0 0 0 0 3£ 0 0 0
4816 16773 0 53585 0 56554 0 67695 0
PROCEDURE 321
4820 0 0 0 0 0 1 1 3 0 0 2 1 0 138 4 4 1 0 138 4
4824 18 1 1 2 0 2 1 0 138 4 27 1 1 4823 4 6 1 0 138 4
4828 26 0 1 4820 4
PROCEDURE 322
4829 0 0 3 5210 4 1 1 3 1 0 7 0 0 5973 4
4832 0 0 3 5207 4 6 0 0 4742 4 1 1 2 3 0 27 0 1 4838 4
4836 1 1 3 1 0 2 0 0 5332 4 26 0 0 4033 4 6 0 0 5973 4
4840 18 0 1 2 0 2 0 0 138 4 24 0 2 4430 4 28 1 2 5330 4
4844 24 1 2 21 4 6 1 0 4 0 18 0 1 4124 0 18 0 1 4 0
4848 5 1 0 4734 4 27 0 0 4859 4 24 1 2 21 4 6 1 0 4 0
4852 5 1 0 4766 4 27 0 0 4862 4 6 1 0 5126 4 3 0 0 6272 4
4856 2 1 0 5338 4 26 0 0 4289 4 24 1 0 4844 4 6 1 0 4770 4
4860 24 1 2 21 4 2 1 0 4 0 6 1 0 4734 4 2 1 0 5332 4
4864 26 0 0 4033 4 26 0 0 5059 4 26 1 1 5184 4 26 1 2 5186 4
4868 24 0 3 0 4 6 0 0 2 22 26 0 0 2759 4 0 0 3 5207 4
4872 18 1 1 4127 0 24 0 3 0 4 2 0 0 6 22 18 1 1 1 0
4876 2 0 0 2759 4 1 1 3 1 0 24 0 1 2759 4 18 0 3 0 0
4880 3 0 0 2759 4 18 1 3 2 0 18 1 1 4120 0 15 0 3 122 4
4884 27 0 0 4904 4 24 0 3 0 4 6 0 0 6 22 1 0 1 0 0
4888 18 1 3 3 0 18 1 1 4127 0 24 0 3 0 4 2 0 0 6 22
4892 27 1 1 4895 4 0 0 2 2759 4 24 1 0 4897 4 0 0 2 2759 4
4896 18 1 3 10 0 15 0 3 150 4 27 0 1 4904 4 24 0 3 0 4
4900 6 0 0 2 22 2 0 2 6004 4 25 0 2 1 0 24 1 0 4904 4
4904 25 0 1 1 0 24 1 0 4868 4
PROCEDURE 323
4906 6 0 0 5230 4 3 0 0 6203 4
4908 24 0 0 5970 4 7 0 0 5979 4 26 1 3 62 4 6 0 3 5980 4
4912 18 0 1 9 0 18 0 1 4119 0 5 0 0 5999 4 27 0 3 4917 4
4916 7 0 0 5999 4 25 0 3 1 0 24 1 0 4911 4 1 1 3 1 0
4920 7 0 0 5999 4 6 0 0 5979 4 2 0 0 5978 4 6 0 0 5999 4
4924 2 0 0 5979 4
PROCEDURE 324
4925 26 0 0 4090 4 26 0 0 4090 4 6 1 0 4750 4
4928 24 1 2 19 4 2 1 0 4 0 1 1 3 6 0 24 1 2 19 4
4932 2 0 0 10 0 26 0 0 4090 4 6 1 0 4752 4 24 1 2 19 4
4936 2 1 0 4 0 26 0 0 4090 4 26 1 1 5188 4 26 1 2 5190 4
4940 6 0 1 170 4 24 1 2 19 4 2 1 2 5 0 25 0 2 2 0
4944 24 1 0 4950 4 6 1 0 4730 4 24 1 2 19 4 2 1 0 52 0
4948 26 0 0 4099 4 26 1 2 5190 4 25 0 1 1 0 24 1 0 4940 4
4952 26 0 0 4099 4 26 0 0 4090 4 26 0 0 4090 4 24 1 2 21 4
4956 6 1 0 4 0 5 1 0 4770 4 27 0 0 4969 4 24 1 2 21 4
4960 24 0 2 4 0 18 1 1 4123 0 1 1 3 50 0 18 1 1 5 0
4964 24 1 2 19 4 28 1 1 4 0 26 0 0 4090 4 26 0 0 4289 4
4968 24 1 0 4955 4 6 0 0 6270 4 27 0 0 4981 4 0 1 0 5070 4
4972 0 0 3 0 4 0 1 2 5192 4 6 1 0 5194 4 4 0 0 10 4
4976 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 5070 4
4980 24 1 0 4997 4 0 1 0 5070 4 0 0 3 0 4 6 1 0 5196 4
4984 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
4988 0 1 1 5070 4 0 1 0 5070 4 0 0 3 0 4 6 1 0 5198 4
4992 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
4996 0 1 1 5070 4 6 1 0 62 4 2 1 0 5406 4 6 0 0 6000 4
5000 27 0 0 33 4 6 0 0 6270 4 27 0 0 5006 4 6 0 0 6268 4
5004 27 0 0 5038 4 24 1 0 5021 4 6 0 0 7347 4 27 0 0 5038 4
5008 2 0 0 4090 4 0 1 0 5070 4 0 0 3 0 4 6 0 0 4090 4
5012 4 1 0 5146 4 18 1 1 4118 0 6 1 0 5200 4 4 0 0 9 4
5016 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 5070 4
5020 26 0 0 4110 4 24 1 2 17 4 6 1 0 4 0 5 1 0 4818 4
5024 27 0 0 5038 4 4 1 0 4818 4 5 1 0 4738 4 27 0 0 5035 4
5028 4 1 0 4738 4 5 1 0 4816 4 27 0 0 5035 4 4 1 0 4816 4
5032 5 1 0 4770 4 27 0 0 5038 4 24 1 0 5020 4 1 1 3 1 0
5036 2 0 0 6269 4 24 1 0 33 4 2 0 0 6269 4 6 0 0 6270 4
5040 27 0 0 5050 4 0 1 0 5070 4 0 0 3 0 4 6 1 0 5198 4
5044 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
5048 0 1 1 5070 4 24 1 0 33 4 0 1 0 5070 4 0 0 3 0 4
5052 6 1 0 5202 4 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4
5056 23 0 2 0 256 0 1 1 5070 4 24 1 0 33 4
PROCEDURE 325
5059 0 0 0 0 0
5060 6 0 0 5059 4 2 0 0 4033 4 24 1 0 4056 4
PROCEDURE 326
5063 0 0 0 0 0
5064 24 1 2 0 4 28 0 3 4 0 26 0 1 5063 4 24 1 2 21 4
5068 6 0 0 0 0 28 0 2 4 0
SECTION 1018
5070 0 0 0 0
5072 0 0 0 0 0 0 0 0
5076 0 0 0 0 0 0 0 0
5080 0 0 0 0 0 0 0 0
5084 0 0 2002Ю 0 0 0 2002. 0
5088 0 0 20014 0 0 0 20378 0
5092 0 0 1+2 0 0 0 20254 0
5096 0 0 20078 0 8000 0 5141 0
5100 0 0 11 0 8000 0 5146 0
5104 0 0 73000 0 0 0 2+ 0
5108 8000 0 5142 0 0 0 12 0
5112 83041 0 4 0 0 0 9 0
5116 £££££ 0 £££££ 0 0 0 . 0
5120 0 0 8 0 0 0 4 0
5124 0 0 2002+ 0 £5£5£ 0 5£5£5 0
5128 25569 0 7 0 :5:5: 0 5:5 0
5132 0 0 Ю0 0 0 0 1++ 0
5136 1 0 1 0 0 0 20028 0
5140 0 0 32 0 0 0 64 0
5144 0 0 51000 0 0 0 Ю 0
5148 0 0 53000 0 ££802 0 7£: 0
5152 0 0 66666 0 6 0 2+ 0
5156 0 0 5 0 0 0 2003+ 0
5160 0 0 20012 0 2 0 1. 0
5164 1+ 0 0 0 0 0 0 0
5168 0 0 ‼ 0 48576 0 10 0
5172 27464 0 7 0 30000 0 7 0
5176 2+ 0 2 0 0 0 7 0
5180 0 0 20008 0 0 0 1 0
5184 1 0 64 0 0 0 +8 0
5188 0 0 3£2 0 0 0 30 0
5192 2 0 Ю 0 0 0 23 0
5196 0 0 21 0 0 0 22 0
5200 0 0 25 0 0 0 1‼ 0
5204 0 0 0 0
SECTION 1019
5206 2 0 0 0
5208 70000 0 6700 0 66666 0 2- 0
5212 £££££ 0 5500 0 5600 0 4096 0
5216 5300 0 7200 0 14 0 53000 0
5220 8192 0 4000 0 4095 0 1- 0
5224 66.64 0 3- 0 3 0 8191 0
5228 5- 0 40.6 0 £££00 0 0 0
5232 0 0 0 0
SECTION 1020
PROCEDURE 1004
CHAPT 5
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 327
33 0 1 0 5102 4 0 0 3 0 4 1 1 3 5 0
36 0 0 2 5190 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1024
40 0 1 1 5102 4 6 1 0 16 4 2 1 0 30 4 6 1 0 5116 4
44 24 1 2 15 4 28 0 0 0 0 24 0 2 718 4 24 1 2 15 4
48 28 1 2 2 0
PROCEDURE 328
49 6 1 0 5118 4 28 0 0 5357 4 6 1 0 5120 4
52 2 1 0 7362 4 6 1 0 5120 4 2 1 0 7364 4 1 1 3 1 0
56 2 0 0 5238 4 6 0 0 6057 4 27 0 0 64 4 2 0 0 5235 4
60 1 1 3 10 0 2 0 0 5237 4 24 0 2 6056 4 26 0 0 101 4
64 1 1 3 8 0 2 0 0 5237 4 6 0 0 6045 4 27 0 0 71 4
68 2 0 0 5235 4 24 0 2 6044 4 26 0 0 101 4 26 1 3 5406 4
72 1 1 3 1 0 18 1 1 4118 0 15 0 3 5357 4 7 0 3 5357 4
76 25 0 3 1 0 24 1 0 72 4 6 0 0 5387 4 27 0 0 85 4
80 2 0 0 5235 4 1 1 3 2 0 2 0 0 5238 4 24 0 2 5386 4
84 26 0 0 101 4 1 1 3 2 0 7 0 0 5978 4 4 0 0 4982 4
88 5 0 0 5978 4 3 0 0 766 4 27 0 0 95 4 18 0 1 5 0
92 4 0 0 5978 4 24 1 2 4897 4 28 1 1 0 0 6 0 0 4897 4
96 4 0 0 766 4 2 0 0 5978 4 6 0 0 6270 4 27 0 0 142 4
100 24 1 0 151 4
PROCEDURE 329
101 0 0 0 0 0 3 0 0 5234 4 7 0 0 5235 4
104 26 1 1 5234 4 24 0 3 0 4 6 0 1 2 0 18 0 1 4124 0
108 2 0 0 5236 4 1 0 1 1 0 24 0 1 5236 4 15 0 0 5979 4
112 18 1 1 4 0 24 0 3 0 4 14 0 1 2 0 25 0 1 1 0
116 24 1 0 105 4 1 1 3 0 0 2 0 0 5236 4 26 1 2 5406 4
120 1 1 3 1 0 7 0 0 5236 4 26 1 1 5234 4 24 0 3 0 4
124 6 0 1 2 0 18 0 1 4124 0 5 0 0 5236 4 27 0 1 137 4
128 24 0 1 5236 4 6 0 0 5356 4 24 0 1 5237 4 18 0 3 0 0
132 24 0 3 0 4 7 0 1 2 0 6 0 0 5238 4 24 0 1 5236 4
136 7 0 0 5356 4 25 0 1 1 0 24 1 0 123 4 25 0 2 1 0
140 24 1 0 120 4 26 0 1 101 4
PROCEDURE 330
142 0 1 0 5102 4 0 0 3 0 4
144 0 1 2 5122 4 6 1 0 5124 4 4 0 0 10 4 25 1 1 4096 0
148 24 0 3 0 4 23 0 2 0 256 0 0 3 5106 4 6 0 0 6275 4
152 27 0 1 161 4 6 0 0 6274 4 1 1 1 10 0 18 0 1 5 0
156 4 0 0 7 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 160 0
160 0 0 3 5191 4 6 1 0 5126 4 28 0 0 5234 4 6 1 0 5128 4
164 28 0 0 5406 4 6 1 0 5130 4 28 0 0 5206 4 1 1 3 1 0
168 7 0 0 5970 4 1 1 3 998 0 4 0 0 5970 4 3 0 0 5239 4
172 1 1 1 1 0 3 0 0 5240 4 1 1 1 1 0 2 0 0 5241 4
176 6 1 0 5132 4 4 0 0 6275 4 3 1 0 5102 4 26 1 3 5102 4
PROCEDURE 331
180 26 0 0 4749 4 24 1 2 19 4 6 1 0 6 0 5 1 0 752 4
184 27 0 0 198 4 24 1 2 19 4 6 1 0 4 0 5 1 0 5134 4
188 27 0 1 180 4 1 1 3 4 0 0 0 2 5192 4 25 1 1 4096 0
192 24 0 3 0 4 26 0 2 0 512 0 0 0 195 3 25 1 1 4096 0
196 24 0 3 0 4 26 0 2 0 768 24 0 2 610 4 24 1 2 19 4
200 28 0 2 4 0 24 0 2 610 4 24 1 2 19 4 28 1 2 2 0
204 6 1 0 5210 4 18 0 1 2 0 4 1 0 5213 4 2 0 0 5346 4
208 6 1 0 5214 4 2 1 0 5354 4 6 0 0 6275 4 27 0 0 241 4
212 6 0 0 6270 4 27 0 1 239 4 6 0 0 7351 4 27 0 1 222 4
216 6 1 0 5136 4 0 1 2 762 4 4 0 0 7 4 25 1 1 4096 0
220 24 0 3 0 4 23 0 2 160 0 0 0 3 5191 4 6 1 0 5138 4
224 24 1 2 13 4 2 1 0 4 0 6 0 0 5193 4 24 1 2 13 4
228 2 1 0 7 0 6 1 0 5140 4 24 1 2 13 4 2 1 0 8 0
232 6 0 0 5346 4 24 1 2 13 4 2 1 0 11 0 6 1 0 4882 4
236 24 1 2 13 4 2 1 0 12 0 26 0 0 4780 4 6 1 0 5142 4
240 2 1 0 7358 4 26 0 0 597 4 6 0 0 6270 4 27 0 1 254 4
244 0 1 0 5102 4 0 0 3 0 4 0 1 2 5144 4 6 1 0 5136 4
248 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
252 0 0 3 5106 4 24 1 0 264 4 0 1 0 5102 4 0 0 3 0 4
256 0 0 2 0 4 6 1 0 5146 4 4 0 0 11 4 25 1 1 4096 0
260 24 0 3 0 4 23 0 2 0 256 0 1 1 5102 4 24 1 0 275 4
264 24 0 2 620 4 24 1 2 21 4 28 1 2 4 0 26 0 0 4280 4
268 6 0 0 4856 4 24 1 2 21 4 2 1 0 5 0 6 1 0 4882 4
272 24 1 2 21 4 2 1 0 6 0 26 0 0 4280 4 24 0 2 628 4
276 24 1 2 21 4 28 1 2 4 0 24 1 2 21 4 2 1 0 16 0
280 26 0 0 4280 4 26 0 0 4749 4 24 0 2 610 4 24 1 2 19 4
284 28 0 2 4 0 6 1 0 5210 4 26 0 0 4737 4 2 0 0 5356 4
288 24 0 2 610 4 24 1 2 19 4 28 1 2 2 0 26 0 0 597 4
292 24 0 2 636 4 24 1 2 21 4 28 1 2 4 0 26 0 0 4280 4
PROCEDURE 332
296 0 0 2 5194 4 10 0 0 5977 4 1 1 1 204 0 2 0 0 5334 4
300 6 0 0 6009 4 18 0 3 3 0 18 0 1 4127 0 4 0 0 5999 4
304 4 0 0 5999 4 3 0 0 5274 4 2 0 0 5273 4 6 0 0 6009 4
308 3 0 0 6010 4 2 0 0 6011 4 26 1 2 6008 4 26 1 1 5148 4
312 26 0 0 4749 4 24 1 2 19 4 6 1 0 6 0 5 1 0 756 4
316 27 0 0 458 4 24 0 2 660 4 24 1 2 19 4 28 0 2 4 0
320 24 1 2 19 4 6 1 0 46 0 5 1 0 4814 4 3 1 0 766 4
324 27 0 0 401 4 6 0 0 5210 4 1 1 2 25 0 27 0 0 355 4
328 6 0 0 5212 4 26 0 0 4737 4 5 0 0 5970 4 27 0 3 368 4
332 6 1 0 4814 4 24 1 2 19 4 2 1 0 46 0 2 1 0 766 4
336 6 0 0 6011 4 24 0 3 0 4 5 0 0 4 22 18 0 1 5 0
340 4 0 0 750 4 24 0 3 0 4 4 0 0 4 22 24 0 0 24 4
344 28 0 0 6012 4 1 1 2 2 0 7 0 0 6009 4 7 0 0 6010 4
348 7 0 0 6011 4 24 0 3 22 4 7 0 0 5 0 1 1 1 1 0
352 7 0 0 5273 4 7 0 0 5274 4 24 1 0 401 4 6 0 0 5212 4
356 18 0 1 2 0 1 0 1 8 0 24 0 1 6011 4 14 0 0 6012 4
360 6 0 0 5216 4 26 0 0 4737 4 1 0 1 7 0 24 0 1 6011 4
364 14 0 0 6012 4 6 0 0 5214 4 26 0 0 4737 4 24 1 0 375 4
PROCEDURE 333
368 6 0 0 5210 4 1 1 2 3 0 27 0 0 378 4 1 1 2 1 0
372 27 0 1 401 4 6 0 0 5214 4 26 0 0 4737 4 18 1 3 2 0
376 18 1 1 4126 0 2 0 0 5242 4 6 0 0 5273 4 1 1 1 1 0
380 24 0 1 6011 4 2 0 0 6013 4 1 0 1 8 0 6 0 0 5214 4
384 26 0 0 4737 4 1 0 1 7 0 1 1 1 2 0 14 1 2 6012 4
388 1 0 1 16 0 6 0 0 6011 4 5 0 0 6010 4 18 0 1 4 0
392 14 1 2 6012 4 1 1 3 0 0 24 0 1 6011 4 5 0 0 6012 4
396 24 0 1 6011 4 2 0 0 6012 4 1 1 3 2 0 7 0 0 6011 4
400 7 0 0 5273 4
PROCEDURE 334
401 24 0 2 660 4 24 1 2 19 4 28 1 2 2 0
404 26 0 0 597 4 6 1 0 766 4 27 0 0 312 4 25 0 2 2 0
408 24 1 0 409 4 26 1 3 5150 4 6 1 3 5210 4 26 0 0 4737 4
412 2 1 3 5210 4 25 0 3 2 0 24 1 0 410 4 1 0 1 8 0
416 6 1 0 5212 4 18 0 1 3 0 14 1 2 6010 4 6 0 0 5210 4
420 1 1 2 19 0 27 0 1 429 4 6 0 0 5212 4 26 0 0 4743 4
424 0 0 3 5191 4 1 0 1 8 0 18 0 1 3 0 14 1 2 6010 4
428 24 1 0 434 4 6 1 0 5214 4 1 1 1 2 0 7 1 2 6010 4
432 3 1 0 5214 4 7 1 0 5214 4 6 1 0 5210 4 18 0 1 1 0
436 2 1 0 5210 4 6 1 0 5208 4 18 0 1 4122 0 2 1 0 5208 4
440 24 0 2 672 4 0 1 0 5102 4 0 0 3 0 4 24 1 2 21 4
444 24 0 2 0 0 24 0 3 0 4 4 0 0 2 22 2 0 0 5108 4
448 0 1 1 5102 4 24 0 3 5108 4 28 1 2 4 0 25 0 1 12 0
452 24 1 0 312 4 6 1 0 4882 4 24 1 2 21 4 2 1 0 52 0
456 26 0 0 4280 4 24 1 0 311 4
PROCEDURE 335
458 24 0 3 0 4 6 0 0 2 22
460 27 0 0 465 4 6 1 0 4882 4 24 1 2 21 4 2 1 1 4 0
464 26 0 0 4280 4 24 0 2 684 4 24 1 2 19 4 28 0 2 4 0
468 6 1 0 5128 4 28 1 1 5550 4 26 0 0 4210 4 24 0 2 684 4
472 24 1 2 19 4 28 1 2 2 0 26 0 0 597 4 26 0 0 4749 4
476 24 1 2 19 4 6 1 0 6 0 5 1 0 5152 4 27 0 1 512 4
480 24 0 2 690 4 24 1 2 19 4 28 0 2 8 0 6 1 0 5152 4
484 2 1 0 5208 4 2 1 0 5210 4 24 0 2 686 4 24 1 2 19 4
488 28 1 2 4 0 24 1 2 19 4 2 1 0 8 0
PROCEDURE 336
491 26 1 1 5998 4
492 24 0 3 0 4 2 0 0 2 22 6 0 1 5212 4 1 1 2 1 0
496 27 0 0 503 4 1 1 2 1 0 27 0 1 507 4 1 1 3 32 0
500 18 1 1 4118 0 1 1 3 32 0 14 0 1 5980 4 25 0 1 1 0
504 24 1 0 494 4 6 0 1 5213 4 27 0 0 510 4 6 1 0 4814 4
508 24 1 2 19 4 2 1 0 46 0 26 0 0 597 4 26 0 0 4749 4
PROCEDURE 337
512 26 0 0 4647 4 26 0 0 4647 4 24 1 0 517 4 26 0 0 597 4
516 26 0 0 4749 4 24 1 2 19 4 6 1 0 12 0 5 1 0 4794 4
520 27 0 0 772 4 4 1 0 4794 4 5 1 0 4790 4 27 0 0 772 4
524 4 1 0 4790 4 5 1 0 4792 4 27 0 0 772 4
PROCEDURE 338
527 24 1 2 19 4
528 6 1 0 14 0 18 0 1 4 0 24 1 2 19 4 2 1 0 2 0
532 24 1 2 19 4 2 1 0 14 0 24 0 2 648 4 24 1 2 19 4
536 28 0 2 2 0 24 0 2 648 4 24 1 2 19 4 28 1 2 2 0
540 24 1 2 19 4 6 1 0 46 0 5 1 0 4814 4 27 0 0 515 4
544 26 0 0 597 4 6 1 0 5210 4 26 0 0 4737 4 2 1 0 5210 4
548 6 1 0 5214 4 26 0 0 4737 4 2 1 0 5214 4 6 1 0 5208 4
552 26 0 0 4737 4 3 1 0 5208 4 24 0 3 0 4 2 0 0 2 22
556 6 1 0 5212 4 27 0 0 582 4 26 1 2 5154 4 6 0 2 6004 4
560 5 1 0 5208 4 27 0 0 582 4 25 0 2 1 0 24 1 0 559 4
564 1 1 3 2 0 7 0 0 6011 4 7 1 0 5210 4 7 0 0 5273 4
PROCEDURE 339
568 6 1 0 5210 4 18 0 3 5 0 1 0 1 1 0 24 0 0 5214 4
572 15 0 0 5979 4 18 0 1 2 0 4 0 0 5273 4 1 1 2 1 0
576 18 0 1 3 0 4 1 0 5208 4 24 0 1 6011 4 2 1 0 6010 4
580 6 0 0 4966 4 24 1 0 583 4 6 0 0 4917 4 0 0 2 5195 4
584 10 1 0 5210 4 4 1 0 5214 4 2 0 1 5550 4 6 0 0 5214 4
588 24 0 3 0 4 2 0 0 4 22 6 0 2 5288 4 24 0 0 5208 4
592 2 0 0 5406 4 6 0 0 5210 4 4 0 0 5210 4 7 0 2 5288 4
596 24 1 0 516 4
PROCEDURE 340
597 0 0 0 0 0 24 1 2 19 4 24 0 2 0 0
600 18 1 1 4123 0 1 1 3 52 0 18 1 1 5 0 24 1 2 17 4
604 28 1 1 0 0 1 0 1 15 0 24 1 2 17 4 14 0 0 2 0
608 26 0 0 4134 4 26 0 1 597 4
SECTION 341
610 0 5206 3 5 3 0 0 0 5 0
612 0 5208 3 181 3 0 0 11 5 0 0 5210 3 9493 2 2 5 1 5 0
616 0 5212 3 37 3 0 0 2 5 0 0 5214 3 21 3 0 0 1 5 1
620 0 760 3 5 3 0 0 0 5 0 0 758 3 5 3 0 0 0 5 0
624 0 4856 3 5 0 0 0 0 5 0 0 763 3 833 0 0 3 4 1 0
628 0 5210 3 1795 2 0 7 0 3 0 0 5212 3 770 3 0 3 0 2 0
632 0 5214 3 5 3 0 0 0 5 0 0 4882 3 5 3 0 0 0 5 1
636 0 5975 3 16389 0 4 0 0 5 0 0 5974 3 16389 0 4 0 0 5 0
640 0 5212 3 5 3 0 0 0 5 0 0 5970 3 16389 0 4 0 0 5 0
644 0 5999 3 16389 0 4 0 0 5 0 0 4882 3 5 3 0 0 0 5 1
648 0 5216 3 5 3 0 0 0 5 0 0 5206 3 85 3 0 0 5 5 0
652 0 5208 3 17733 2 4 5 4 5 0 0 5210 3 17717 2 4 5 3 5 0
656 0 5212 3 17669 2 4 5 0 5 0 0 5214 3 17717 2 4 5 3 5 1
660 0 5206 3 5 3 0 0 0 5 0 0 5208 3 245 3 0 0 15 5 0
664 0 5210 3 17685 2 4 5 1 5 0 0 5212 3 17701 2 4 5 2 5 0
668 0 5214 3 17701 2 4 5 2 5 0 0 5216 3 17669 2 4 5 0 5 1
672 0 5208 3 5 3 0 0 0 5 0 0 5210 3 17669 2 4 5 0 5 0
676 0 5212 3 17669 2 4 5 0 5 0 0 5214 3 17669 2 4 5 0 5 0
680 0 5234 3 16389 0 4 0 0 5 0 0 5216 3 17669 2 4 5 0 5 1
SECTION 342
684 0 5206 3 5 3 0 0 0 5 0 0 5208 3 21 3 0 0 1 5 0
688 0 5210 3 16389 0 4 0 0 5 0 0 5212 3 16405 0 4 0 1 5 0
692 0 5213 3 20501 0 5 0 1 5 0 0 5214 3 20501 0 5 0 1 5 0
696 0 5215 3 20501 0 5 0 1 5 0 0 5216 3 20501 0 5 0 1 5 0
700 0 5217 3 20501 0 5 0 1 5 0 0 5218 3 20501 0 5 0 1 5 0
704 0 5219 3 20501 0 5 0 1 5 0 0 5220 3 20501 0 5 0 1 5 0
708 0 5221 3 20501 0 5 0 1 5 0 0 5222 3 20501 0 5 0 1 5 0
712 0 5223 3 20501 0 5 0 1 5 0 0 5224 3 20501 0 5 0 1 5 0
716 0 5225 3 20501 0 5 0 1 5 1 0 758 3 101 3 0 0 6 5 0
720 0 5999 3 1089 0 0 4 4 1 0 0 5980 3 5201 0 1 4 5 1 0
724 0 5981 3 5201 0 1 4 5 1 0 0 5982 3 5201 0 1 4 5 1 0
728 0 5983 3 5201 0 1 4 5 1 0 0 5984 3 5201 0 1 4 5 1 0
732 0 5985 3 5201 0 1 4 5 1 0 0 5986 3 5201 0 1 4 5 1 0
736 0 5987 3 5201 0 1 4 5 1 0 0 5988 3 5201 0 1 4 5 1 0
740 0 5989 3 5201 0 1 4 5 1 0 0 5990 3 5201 0 1 4 5 1 0
744 0 5991 3 5201 0 1 4 5 1 0 0 5992 3 5201 0 1 4 5 1 0
748 0 5993 3 5201 0 1 4 5 1 1
SECTION 343
750 177. 3 0 0
752 65764 0 67696 0 36978 0 55657 0
756 16772 0 53585 0 45577 0 59655 0
760 £6£6£ 0 6£6£6 0 8000 0 5149 0
764 0 0 0 0
PROCEDURE 344
766 6 0 0 5234 4 6 0 0 5235 4
PROCEDURE 345
768 0 0 0 0 0 6 0 0 768 4 2 0 0 4099 4 24 1 0 4108 4
PROCEDURE 346
772 26 0 0 768 4 26 0 0 1011 4 1 1 3 0 0 2 0 0 5007 4
776 6 0 0 5273 4 1 1 1 1 0 3 0 0 5275 4 1 1 1 4 0
780 2 0 0 5273 4 6 0 0 5978 4 18 0 1 5 0 4 0 0 4897 4
784 3 1 0 5102 4 26 1 1 5102 4 6 0 0 4896 4 2 0 0 5352 4
788 6 1 0 4884 4 2 1 0 5278 4 1 1 3 1 0 2 0 0 5345 4
792 2 0 0 6008 4 6 1 0 5156 4 28 1 1 50 4 1 1 3 65 0
796 2 1 0 5260 4 2 1 0 5262 4 26 0 0 4301 4 1 1 3 1 0
800 2 1 0 5276 4 2 0 0 5343 4 2 0 0 5230 4
PROCEDURE 347
803 6 0 0 5273 4
804 18 0 1 5 0 2 1 0 5234 4 26 1 3 5234 4 24 0 3 0 4
808 6 1 0 6 22 2 0 0 5232 4 26 0 0 4332 4 25 0 3 1 0
812 24 1 0 807 4 1 1 3 3 0 7 0 0 5239 4 7 0 0 5240 4
816 7 0 0 5241 4 1 1 3 0 0 1 0 1 1 0 24 0 0 5345 4
820 15 0 0 5979 4 3 0 0 5285 4 4 0 0 5285 4 2 0 0 5237 4
824 6 0 0 5239 4 18 0 1 2 0 4 0 0 5237 4 2 0 0 5238 4
828 6 1 0 5158 4 2 1 0 5246 4 2 1 0 5248 4 6 1 0 4898 4
832 2 1 0 5250 4 2 1 0 5244 4 26 0 0 4332 4 26 0 0 3129 4
836 1 1 3 1792 0 2 0 0 5231 4 6 0 0 4968 4 26 0 0 963 4
840 26 0 0 4332 4 26 0 0 4332 4 6 0 0 5021 4 26 0 0 3928 4
PROCEDURE 348
844 0 0 3 5191 4 24 0 3 7366 4 6 1 0 6 0 5 1 0 4794 4
848 27 0 1 852 4 1 1 3 1 0 2 0 0 5276 4 24 1 0 868 4
852 4 1 0 4794 4 5 1 0 4788 4 27 0 0 895 4 26 0 0 913 4
856 24 0 3 7366 4 6 1 0 15 0 18 0 1 4124 0 2 0 0 5281 4
860 1 1 3 2 0 2 0 0 5276 4 24 0 3 7366 4 6 1 0 6 0
864 5 1 0 4790 4 27 0 0 867 4
PROCEDURE 349
PROCEDURE 350
866 1 1 3 1 0 1 1 1 1 0
868 1 1 1 1 0 3 1 0 5261 4 2 0 0 7336 4 24 1 2 17 4
872 6 1 0 13 0
PROCEDURE 351
873 26 0 0 4737 4 3 1 0 5263 4 3 0 0 5244 4
876 5 0 0 5356 4 27 0 1 880 4 6 0 0 5277 4 2 0 0 6271 4
880 6 0 0 5277 4 2 0 0 5245 4 26 0 0 923 4 26 0 0 4301 4
884 1 1 3 128 0 2 0 0 5280 4 6 0 0 6270 4 27 0 0 891 4
888 2 0 0 5007 4 6 0 0 6202 4 27 0 0 892 4 26 0 0 4647 4
892 26 0 0 4125 4 26 0 0 967 4 24 1 0 979 4 6 0 0 7336 4
896 1 1 2 7 0 27 0 0 884 4 1 1 3 7 0 3 1 0 5261 4
900 2 0 0 7336 4 2 1 0 5262 4 2 0 0 5276 4 24 1 0 883 4
PROCEDURE 352
904 24 0 1 7336 4 26 0 1 905 4 0 0 0 1206 3 0 0 0 3458 3
908 0 0 0 3134 3 0 0 0 979 3 0 0 0 979 3 0 0 0 979 3
912 0 0 0 3561 3
PROCEDURE 353
913 0 0 0 0 0 1 1 3 0 0 0 0 2 4886 4
916 15 0 0 5277 4 27 0 0 922 4 2 0 0 5276 4 2 1 0 5230 4
920 2 1 0 5232 4 26 0 0 4332 4 26 0 1 913 4
PROCEDURE 354
923 0 0 0 0 0
924 1 0 1 0 0 6 0 0 5244 4 18 1 1 4119 0 13 0 0 5196 4
928 2 0 0 938 4 18 1 1 9 0 2 0 0 944 4 0 0 2 4858 4
932 24 0 1 944 4 18 1 3 0 0 24 0 1 938 4 15 0 0 6151 4
936 2 0 0 6203 4 26 0 1 923 4
PROCEDURE 355
938 0 0 0 0 0 2 0 0 5233 4
940 6 0 0 5237 4 2 0 0 5232 4 26 0 0 4332 4 26 0 1 938 4
PROCEDURE 356
944 0 0 0 0 0 2 0 0 5234 4 1 1 3 1 0 2 0 0 5235 4
948 26 0 0 4725 4 26 0 1 944 4
PROCEDURE 357
950 0 0 0 0 0 2 0 0 5234 4
952 6 0 0 5287 4 27 0 0 956 4 26 0 0 3625 4 26 0 1 950 4
956 26 0 0 3666 4 26 0 1 950 4
PROCEDURE 358
958 0 0 0 0 0 2 0 0 5234 4
960 2 0 0 5235 4 26 0 0 4725 4 26 0 1 958 4
PROCEDURE 359
963 0 0 0 0 0
964 2 0 0 5233 4 26 0 0 4332 4 26 0 1 963 4
PROCEDURE 360
967 0 0 0 0 0
968 6 1 0 5160 4 24 1 2 17 4 28 1 1 2 0 26 0 1 967 4
PROCEDURE 361
972 0 0 0 0 0 2 0 0 5233 4 6 0 0 5238 4 2 0 0 5232 4
976 26 0 0 4332 4 26 0 1 972 4 26 0 0 972 4
PROCEDURE 362
979 26 0 0 4099 4
980 24 0 3 7366 4 6 1 0 6 0 5 1 0 4792 4 27 0 3 904 4
984 26 0 0 1011 4 24 0 3 7366 4 6 1 0 6 0 5 1 0 4792 4
988 27 0 0 1070 4 4 1 0 4792 4 5 1 0 4790 4 27 0 0 1070 4
992 4 1 0 4790 4 5 1 0 4794 4 27 0 0 1070 4 4 1 0 4794 4
996 5 1 0 4788 4 27 0 0 895 4 4 1 0 4788 4 5 1 0 4798 4
1000 27 0 1 1005 4 1 1 3 1 0 2 0 0 5282 4 26 0 0 1056 4
1004 24 1 0 1083 4 4 1 0 4798 4 5 1 0 4796 4 27 0 1 904 4
1008 26 0 0 4125 4 26 0 0 967 4 24 1 0 979 4
PROCEDURE 363
1011 0 0 0 0 0
1012 26 0 0 967 4 6 1 0 5508 4 24 1 2 17 4 2 1 0 2 0
1016 6 1 0 5510 4 24 1 2 17 4 2 1 0 6 0 6 1 0 5512 4
1020 24 1 2 17 4 2 1 0 10 0 6 1 0 5514 4 18 0 1 4124 0
1024 24 1 2 17 4 2 1 0 12 0 6 1 0 5516 4 24 1 2 17 4
1028 2 1 0 16 0 6 1 0 5512 4 5 1 0 4796 4 27 0 1 1036 4
1032 6 1 0 5518 4 24 1 2 17 4 2 1 0 16 0 24 1 0 1039 4
1036 6 1 0 5518 4 24 1 2 17 4 2 1 0 48 0 6 1 0 5512 4
1040 5 1 0 4794 4 27 0 0 1046 4 6 1 0 5520 4 24 1 2 17 4
1044 2 1 0 20 0 24 1 0 1049 4 6 1 0 5520 4 24 1 2 17 4
1048 2 1 0 20 0 24 0 2 5522 4 18 1 1 4123 0 1 1 3 26 0
1052 18 1 1 5 0 24 1 2 17 4 28 1 1 22 0 26 0 1 1011 4
PROCEDURE 364
1056 0 0 0 0 0 6 0 0 7336 4 1 1 2 7 0 27 0 1 1069 4
1060 6 1 0 4796 4 2 1 0 5260 4 2 0 0 5232 4 6 0 0 5277 4
1064 2 0 0 5233 4 26 0 0 4316 4 1 1 3 6 0 2 1 0 5261 4
1068 26 0 0 4301 4 26 0 1 1056 4
PROCEDURE 365
1070 26 0 0 1056 4 24 1 2 17 4
1072 6 1 0 13 0 2 0 0 5269 4 24 0 0 5345 4 6 0 0 5979 4
1076 18 0 1 4126 0 26 0 0 4743 4 5 0 0 5269 4 27 0 2 844 4
1080 1 1 1 1 0 27 0 1 844 4 0 0 3 5191 4 26 0 0 913 4
1084 26 0 0 1087 4 26 0 0 1098 4 24 1 0 1132 4
PROCEDURE 366
1087 0 0 0 0 0
1088 26 1 2 5150 4 6 0 2 5247 4 18 0 3 2 0 18 1 1 4127 0
1092 1 0 2 4 0 18 0 3 2 0 2 0 2 5247 4 25 0 2 2 0
1096 24 1 0 1089 4 26 0 1 1087 4
PROCEDURE 367
1098 0 0 0 0 0 6 1 0 5150 4
1100 2 1 0 5234 4 2 0 0 5246 4 2 0 0 5236 4 26 1 3 5236 4
1104 6 0 3 4887 4 2 1 0 5260 4 6 0 3 5239 4 2 1 0 5263 4
1108 26 0 0 4301 4 6 0 3 4890 4 2 0 0 5276 4 24 0 0 5234 4
1112 6 1 0 5246 4 2 1 0 5264 4 6 0 0 5264 4 5 0 0 5265 4
1116 27 0 0 1126 4 6 0 0 4890 4 18 0 1 5 0 4 0 3 4893 4
1120 4 0 0 5264 4 28 0 0 5230 4 26 0 0 4332 4 23 0 0 4 0
1124 0 0 0 5264 3 24 1 0 1117 4 1 1 3 1 0 7 0 0 5236 4
1128 23 0 0 2 0 0 0 0 5234 3 24 1 0 1103 4 26 0 1 1098 4
PROCEDURE 368
1132 1 1 3 1 0 2 1 0 5261 4 1 1 3 1001 0 4 0 0 5345 4
1136 2 1 0 5263 4 26 0 0 4301 4 6 0 0 5277 4 24 0 1 5345 4
1140 2 0 0 5371 4 6 1 0 4810 4 2 1 0 5260 4 2 1 0 5262 4
1144 26 0 0 4316 4 1 1 3 1 0 4 0 0 5345 4 3 0 0 5345 4
1148 6 0 0 5282 4 27 0 0 795 4 24 1 0 1152 4
PROCEDURE 369
1151 24 1 0 1158 4
1152 26 0 0 4363 4 6 0 0 4914 4 2 1 0 5208 4 6 0 0 1151 4
1156 2 0 0 4512 4 24 1 0 4406 4 1 1 3 1 0 2 0 0 6203 4
1160 26 0 0 4647 4 26 0 0 4134 4 6 0 0 5356 4 2 0 0 5269 4
1164 26 0 0 3717 4 2 0 0 5978 4 6 0 0 6271 4 2 0 0 5976 4
1168 6 1 0 4816 4 24 1 2 21 4 2 1 0 4 0 6 1 0 4882 4
1172 24 1 2 21 4 2 1 0 6 0 26 0 0 4280 4 26 0 0 4749 4
1176 24 1 2 19 4 6 1 0 4 0 5 1 0 5162 4 27 0 0 1189 4
1180 24 1 2 19 4 24 0 2 4 0 18 1 1 4123 0 1 1 3 50 0
1184 18 1 1 5 0 24 1 2 21 4 28 1 1 4 0 26 0 0 4280 4
1188 24 1 0 1175 4 24 0 2 5550 4 18 1 1 4123 0 1 1 3 100 0
1192 18 1 1 5 0 24 1 2 21 4 28 1 1 0 0 6 0 0 6270 4
1196 27 0 1 33 4 0 1 0 5102 4 0 0 3 0 4 6 1 0 5164 4
1200 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
1204 0 1 1 5102 4 24 1 0 33 4
PROCEDURE 370
1206 1 1 3 1 0 2 0 0 5333 4
1208 26 0 0 4377 4 6 1 0 5208 4 2 1 0 5230 4 2 0 0 5236 4
1212 2 0 0 5259 4 6 0 0 5344 4 27 0 0 979 4 27 0 3 979 4
1216 1 1 2 17 0 27 0 2 979 4 6 0 0 5344 4 2 0 0 7337 4
1220 6 0 0 5284 4 2 0 0 7338 4 6 0 0 5247 4 1 1 2 148 0
1224 27 0 2 1231 4 6 0 0 5249 4 1 1 2 56 0 27 0 2 1231 4
1228 6 0 0 5251 4 1 1 2 218 0 27 0 3 1267 4
PROCEDURE 371
1231 26 0 0 1087 4
1232 6 0 0 5251 4 5 0 0 5250 4 18 0 3 3 0 18 0 1 4127 0
1236 4 0 0 5249 4 4 0 0 5247 4 2 0 0 1087 4 0 0 2 4886 4
1240 15 0 0 5277 4 1 1 2 2 0 5 0 0 1087 4 4 0 0 4954 4
1244 26 0 0 3928 4 26 0 0 913 4 26 0 0 1098 4 1 1 3 1 0
1248 2 0 0 5276 4 2 0 0 5236 4 6 1 0 5166 4 28 1 1 50 4
1252 6 1 0 4792 4 24 1 2 15 4 2 1 0 2 0 2 1 0 5246 4
1256 2 1 0 5248 4 26 0 0 4647 4 6 1 0 4898 4 2 1 0 5250 4
1260 1 1 3 3 0 7 0 0 5239 4 7 0 0 5240 4 7 0 0 5241 4
1264 1 1 3 6 0 2 1 0 5261 4 26 0 0 4301 4
PROCEDURE 372
1267 1 1 3 0 0
1268 24 0 1 7337 4 26 0 1 1269 4 0 0 0 1286 3 0 0 0 1301 3
1272 0 0 0 1377 3 0 0 0 1410 3 0 0 0 1480 3 0 0 0 1951 3
1276 0 0 0 2152 3 0 0 0 2255 3 0 0 0 2402 3 0 0 0 2582 3
1280 0 0 0 2768 3 0 0 0 2767 3 0 0 0 2766 3 0 0 0 2765 3
1284 0 0 0 2928 3 0 0 0 2975 3
PROCEDURE 373
1286 6 0 0 5284 4 1 1 2 8 0
1288 27 0 3 1294 4 1 1 2 2 0 27 0 2 1298 4 6 0 0 4935 4
1292 26 0 0 944 4 26 0 0 4371 4 24 0 1 5284 4 6 0 0 4915 4
1296 26 0 0 958 4 24 1 0 979 4 6 0 0 4926 4 26 0 0 963 4
1300 24 1 0 1294 4
PROCEDURE 374
1301 6 1 0 5220 4 2 1 0 5286 4 6 0 0 5284 4
1304 1 1 2 4 0 27 0 2 1330 4 6 0 0 5221 4 27 0 0 1313 4
1308 24 0 0 5284 4 6 0 0 4915 4 2 1 0 5234 4 26 0 0 3625 4
1312 24 1 0 979 4 6 0 0 5284 4 1 1 2 2 0 27 0 2 1318 4
1316 6 1 0 5220 4 27 0 3 1325 4
PROCEDURE 375
1318 6 0 0 4902 4 5 0 0 5220 4
1320 27 0 3 1325 4 24 0 0 5284 4 6 0 0 4929 4 4 0 0 5220 4
1324 24 1 0 1429 4 24 0 0 5284 4 6 0 0 4915 4 2 0 0 5234 4
1328 26 0 0 3666 4 24 1 0 979 4
PROCEDURE 376
1330 26 0 0 4707 4 6 1 0 5168 4
1332 28 0 0 5212 4 6 0 0 5284 4 1 1 2 8 0 27 0 2 1356 4
1336 6 1 0 5260 4 0 1 2 5262 4 27 1 1 1341 4 6 1 0 5266 4
1340 27 0 0 1344 4 6 0 0 4930 4 26 0 0 963 4 24 1 0 1346 4
1344 6 0 0 5010 4 26 0 0 972 4 6 0 0 4935 4 26 0 0 950 4
1348 6 1 0 5260 4 0 1 2 5262 4 27 1 1 1353 4 6 0 0 4911 4
1352 24 1 0 978 4 26 0 0 4716 4 6 0 0 4923 4 24 1 0 1296 4
PROCEDURE 377
1356 27 0 1 1362 4 6 1 0 5260 4 0 1 2 5262 4 27 1 1 1346 4
1360 6 0 0 5011 4 24 1 0 1345 4 6 0 0 4944 4 26 0 0 963 4
1364 6 1 0 5260 4 0 1 2 5262 4 27 1 0 1370 4 26 0 0 4716 4
1368 6 0 0 4916 4 26 0 0 958 4 6 0 0 4972 4 26 0 0 963 4
PROCEDURE 378
1372 6 1 0 5168 4 28 0 0 5212 4 6 0 0 4925 4 26 0 0 950 4
1376 24 1 0 979 4
PROCEDURE 379
1377 2 1 0 5216 4 24 0 1 7338 4 26 0 1 1379 4
1380 0 0 0 1393 3 0 0 0 1390 3 0 0 0 1390 3 0 0 0 1390 3
1384 0 0 0 1396 3 0 0 0 1390 3 0 0 0 1390 3 0 0 0 979 3
1388 0 0 0 979 3 0 0 0 1390 3 24 0 0 5284 4 6 0 0 4988 4
1392 24 1 0 1296 4 6 0 0 4994 4 26 0 0 1404 4 24 1 0 979 4
1396 26 0 0 4707 4 6 0 0 4992 4 26 0 0 1404 4 26 0 0 4716 4
1400 6 0 0 4994 4 26 0 0 958 4 6 0 0 4993 4 24 1 0 978 4
PROCEDURE 380
1404 0 0 0 0 0 1 1 2 8 0 26 0 0 972 4 6 0 0 4990 4
1408 26 0 0 958 4 26 0 1 1404 4
PROCEDURE 381
1410 24 0 1 7338 4 26 0 1 1411 4
1412 0 0 0 1422 3 0 0 0 1434 3 0 0 0 1422 3 0 0 0 1434 3
1416 0 0 0 1432 3 0 0 0 1454 3 0 0 0 1466 3 0 0 0 1466 3
1420 0 0 0 1469 3 0 0 0 1472 3
PROCEDURE 382
1422 6 1 0 5220 4 27 0 2 1426 4
1424 1 1 3 4128 0 7 1 0 5220 4 24 0 0 5284 4 6 0 0 4939 4
1428 5 0 0 5220 4 2 0 0 5233 4 26 0 0 4332 4 24 1 0 979 4
1432 6 0 0 4935 4 24 1 0 2020 4 6 1 0 5220 4 27 0 2 1426 4
1436 18 1 1 4118 0 1 1 3 0 0 15 0 0 4900 4 2 0 0 4332 4
1440 15 0 0 4999 4 15 0 0 4999 4 15 0 0 4999 4 15 0 0 4999 4
1444 18 0 1 4127 0 2 1 0 5220 4 5 0 0 4332 4 27 0 0 1451 4
1448 24 0 0 5284 4 4 0 0 4939 4 26 0 0 963 4 1 1 2 1 0
1452 7 0 0 5284 4 24 1 0 1426 4
PROCEDURE 383
1454 6 1 0 5220 4 26 0 0 4743 4
1456 2 1 0 5220 4 0 0 3 5191 4 24 0 2 4818 4 12 1 0 5220 4
1460 27 0 2 1464 4 2 1 0 5220 4 5 1 0 5220 4 1 1 1 1024 0
1464 4 0 0 4944 4 24 1 0 1429 4
PROCEDURE 384
1466 24 0 0 5284 4 6 0 0 4938 4
1468 24 1 0 1296 4
PROCEDURE 385
1469 6 0 0 4947 4 4 1 0 5220 4 24 1 0 1429 4
PROCEDURE 386
1472 6 0 0 4938 4 26 0 0 972 4 6 0 0 5012 4 26 0 0 3928 4
1476 6 0 0 4961 4 26 0 0 963 4 6 0 0 4962 4 24 1 0 978 4
PROCEDURE 387
1480 6 0 0 5284 4 1 1 2 4 0 27 0 0 1484 4 26 0 0 4086 4
1484 6 0 0 5212 4 2 0 0 5288 4 26 0 0 3942 4 2 0 0 5348 4
1488 18 1 3 6 0 3 0 0 5288 4 1 1 2 7 0 27 0 0 1510 4
1492 1 1 2 4 0 27 0 0 1510 4 1 1 2 4 0 27 0 0 1661 4
1496 1 1 2 5 0 27 0 1 1512 4 6 0 0 5284 4 1 1 2 1 0
1500 27 0 1 1512 4 6 0 0 5214 4 26 0 0 4737 4 2 0 0 5212 4
1504 2 0 0 5214 4 6 0 0 4974 4 26 0 0 944 4 6 0 0 4980 4
1508 26 0 0 963 4 24 1 0 1512 4 1 1 1 8 0 2 0 0 5288 4
1512 6 0 3 6012 4 18 0 1 4124 0 4 0 0 6009 4 2 0 0 5349 4
1516 24 0 1 5349 4 6 0 0 6013 4 2 0 0 5349 4 6 0 0 5284 4
1520 18 0 3 5 0 4 0 0 5288 4 18 0 3 3 0 0 0 2 4913 4
1524 15 0 0 5220 4 18 0 1 2 0 1 0 0 1872 4 0 1 0 5290 4
1528 1 1 3 0 0 1 0 1 3 0 24 0 3 5292 4 15 0 0 0 0
1532 18 1 3 1 0 18 1 1 4126 0 18 0 1 3 0 18 1 3 6 0
1536 2 0 0 5295 4 18 1 3 1 0 2 0 0 5294 4 6 0 0 7337 4
1540 1 1 2 14 0 27 0 0 2883 4 6 0 0 5284 4 1 1 2 4 0
1544 27 0 1 1649 4 26 0 0 4377 4 26 0 0 4086 4 6 1 0 5213 4
1548 26 0 0 4737 4 2 1 0 5212 4 6 0 0 5288 4 1 1 2 3 0
1552 27 0 0 1603 4 1 1 2 1 0 27 0 0 1600 4 1 1 2 9 0
1556 27 0 0 1640 4 1 1 2 5 0 27 0 0 1640 4 1 1 2 1 0
1560 27 0 1 1683 4 6 0 0 4916 4 4 0 0 5348 4 26 0 0 938 4
1564 26 0 0 1631 4 27 0 0 1571 4 6 0 0 4921 4 1 1 1 8 0
1568 26 0 0 3928 4 26 0 0 1618 4 24 1 0 1574 4 6 0 0 4921 4
1572 1 1 1 4 0 26 0 0 3928 4 6 0 0 5999 4 26 0 0 4023 4
1576 1 1 3 1001 0 18 0 1 2 0 2 0 0 5232 4
PROCEDURE 388
1579 6 0 0 4955 4
1580 26 0 0 963 4 6 0 0 5032 4 26 0 0 3928 4 6 0 0 5348 4
1584 2 0 0 5232 4 26 0 0 963 4 26 0 0 3747 4 1 1 1 1 0
1588 2 0 0 5232 4 26 0 0 963 4 6 0 0 5349 4 1 1 1 1 0
1592 2 0 0 5232 4 26 0 0 963 4 6 0 0 5242 4 18 0 3 7 0
1596 4 0 0 4921 4 26 0 0 963 4 26 0 0 1942 4 24 1 0 979 4
1600 26 0 0 1631 4 27 0 0 1603 4 26 0 0 1618 4 2 1 0 5216 4
1604 6 0 0 4974 4 26 0 0 944 4 6 0 0 4927 4 5 0 0 5349 4
1608 1 1 2 1 0 26 0 0 938 4 6 0 0 5288 4 1 1 2 4 0
1612 27 0 0 1614 4 6 0 0 4934 4 4 0 0 4975 4 26 0 0 963 4
1616 6 0 0 5349 4 24 1 0 1684 4
PROCEDURE 389
1618 0 0 0 0 0 6 0 0 4935 4
1620 26 0 0 950 4 6 0 0 4916 4 26 0 0 950 4 26 0 0 4716 4
1624 1 1 3 1 0 2 1 0 5216 4 6 0 0 4946 4 26 0 0 958 4
1628 6 1 0 5260 4 2 1 0 5212 4 26 0 1 1618 4
PROCEDURE 390
1631 0 0 0 0 0
1632 26 0 0 4707 4 1 1 2 1 0 24 0 1 5242 4 18 0 3 0 0
1636 1 1 1 16 0 18 0 1 9 0 3 1 0 5286 4 26 0 1 1631 4
PROCEDURE 391
1640 6 0 0 4935 4 26 0 0 972 4 24 1 0 1784 4
PROCEDURE 392
1643 0 0 0 0 0
1644 6 0 0 5273 4 2 0 0 5232 4 6 0 0 4930 4 26 0 0 963 4
1648 26 0 1 1643 4 24 0 1 7338 4 26 0 1 1650 4 0 0 0 1700 3
1652 0 0 0 1784 3 0 0 0 1679 3 0 0 0 1679 3 0 0 0 1696 3
1656 0 0 0 1785 3 0 0 0 1757 3 0 0 0 1757 3 0 0 0 1757 3
1660 0 0 0 1757 3 6 0 0 5284 4 1 1 2 2 0 27 0 0 1673 4
1664 27 0 2 1679 4 26 0 0 1643 4 6 0 0 5029 4 26 0 0 972 4
1668 6 0 0 5028 4 26 0 0 963 4 6 0 0 5014 4 26 0 0 963 4
1672 24 1 0 1700 4 26 0 0 1643 4 6 0 0 5030 4 26 0 0 963 4
1676 6 0 0 5014 4 26 0 0 963 4 24 1 0 1784 4
PROCEDURE 393
1679 26 0 0 4377 4
1680 6 1 0 5213 4 26 0 0 4737 4 2 0 0 5212 4 26 0 0 3747 4
1684 4 0 0 4935 4 26 0 0 938 4 6 0 0 5288 4 1 1 2 24 0
1688 27 0 1 1784 4 6 0 0 4963 4 26 0 0 963 4 6 0 0 5036 4
1692 26 0 0 963 4 6 0 0 4980 4 26 0 0 963 4 24 1 0 1784 4
1696 6 0 0 4935 4 26 0 0 972 4 1 1 3 1 0 24 1 0 1785 4
PROCEDURE 394
1700 6 0 0 5288 4 1 1 2 12 0 27 0 1 1732 4 6 0 0 5295 4
1704 2 0 0 4879 4 1 0 1 7 0 15 0 3 6012 4 15 0 3 6012 4
1708 1 1 2 2 0 4 0 0 4921 4 18 0 1 5 0 2 1 0 5294 4
1712 1 1 2 64 0 2 1 0 5286 4 6 0 0 4916 4 26 0 0 950 4
1716 6 0 0 5348 4 4 0 0 4918 4 26 0 0 938 4 6 0 0 5022 4
1720 26 0 0 972 4 6 1 0 5294 4 2 1 0 5286 4 6 0 0 4916 4
1724 26 0 0 950 4 6 0 0 5027 4 26 0 0 972 4 6 0 0 5197 4
1728 26 0 0 963 4 6 0 0 4879 4 2 0 0 5295 4 24 1 0 1784 4
1732 1 1 2 8 0 27 0 0 1784 4 6 1 0 5212 4 18 0 1 5 0
1736 4 0 0 5346 4 2 1 0 5286 4 26 0 0 1838 4 3 0 0 1838 4
1740 27 0 1 1752 4 26 0 0 4707 4 6 0 0 5216 4 27 0 0 1752 4
1744 6 1 0 5213 4 26 0 0 4737 4 2 1 0 5212 4 1 1 3 1 0
1748 2 1 0 5216 4 6 0 0 4935 4 26 0 0 944 4 24 1 0 1784 4
1752 6 0 0 4935 4 26 0 0 950 4 6 0 0 1838 4 27 0 1 1802 4
1756 24 1 0 1788 4 26 0 0 4377 4 6 1 0 5213 4 26 0 0 4737 4
1760 3 1 0 5212 4 27 0 1 1769 4 6 1 0 5262 4 18 0 1 5 0
1764 4 1 0 5220 4 2 1 0 5286 4 6 0 0 4935 4 26 0 0 950 4
1768 24 1 0 1784 4
PROCEDURE 395
1769 6 0 0 5284 4 1 1 2 9 0 27 0 3 1775 4
1772 6 0 0 4935 4 26 0 0 944 4 24 1 0 1784 4 6 0 0 4916 4
1776 26 0 0 958 4 6 1 0 5262 4 18 0 1 5 0 2 1 0 5286 4
1780 6 0 0 4917 4 26 0 0 950 4 6 0 0 4970 4 26 0 0 963 4
PROCEDURE 396
1784 26 0 0 1838 4 3 0 0 1838 4 27 0 1 1802 4 26 0 0 4707 4
1788 6 0 0 5284 4 1 1 2 3 0 27 0 3 1802 4 6 0 0 4963 4
1792 26 0 0 963 4 6 1 0 5213 4 26 0 0 4737 4 2 1 0 5212 4
1796 2 1 0 5214 4 6 0 0 4974 4 26 0 0 944 4 6 0 0 4980 4
1800 26 0 0 963 4 26 0 0 1838 4 6 0 0 5288 4 1 1 2 15 0
1804 27 0 1 1812 4 6 0 0 5284 4 1 1 2 3 0 27 0 1 1826 4
1808 26 0 0 1643 4 6 0 0 5014 4 26 0 0 963 4 24 1 0 1826 4
1812 6 0 0 5288 4 1 1 2 2 0 27 0 0 1817 4 1 1 2 1 0
1816 27 0 1 1822 4 6 0 0 5284 4 1 1 2 2 0 27 0 1 1822 4
1820 6 0 0 4935 4 26 0 0 938 4 6 1 0 5294 4 2 1 0 5286 4
1824 6 0 0 4916 4 26 0 0 950 4 6 0 0 5348 4 4 0 0 4917 4
1828 26 0 0 938 4 26 0 0 3129 4 1 1 3 256 0 2 0 0 5231 4
1832 6 0 0 4968 4 26 0 0 963 4 6 0 0 1838 4 27 0 1 1849 4
1836 26 0 0 4716 4 24 1 0 1484 4
PROCEDURE 397
1838 0 0 0 0 0 26 0 0 4099 4
1840 24 0 3 7366 4 6 0 0 7 0 5 0 0 4813 4 27 0 1 1848 4
1844 1 1 3 1 0 2 0 0 5333 4 26 0 0 4377 4 1 1 3 0 0
1848 26 0 1 1838 4 6 0 0 5284 4 1 1 2 1 0 27 0 1 1858 4
1852 6 0 0 5288 4 1 1 2 15 0 27 0 1 1864 4 6 0 0 5031 4
1856 26 0 0 972 4 24 1 0 1864 4 1 1 2 4 0 27 0 0 1864 4
1860 1 1 2 1 0 27 0 0 1869 4 26 0 0 1942 4 24 1 0 980 4
1864 26 0 0 2064 4 6 0 0 5284 4 1 1 2 1 0 27 0 0 980 4
1868 24 1 0 979 4 26 0 0 1942 4 24 1 0 979 4 0 0 0 0 0
SECTION 398
1872 10£16 0 11£1Ю 0 1271+ 0 12£1. 0
1876 13720 0 14024 0 14722 0 14£26 0
1880 15720 0 16728 0 16£20 0 18796 0
1884 19720 0 19£26 0 1Ю76Ю 0 1‼776 0
1888 1+£6. 0 20£2Ю 0 21£2. 0 22730 0
1892 22£32 0 23734 0 24038 0 24136 0
1896 2425Ю 0 2475+ 0 24£3Ю 0 25734 0
1900 2673+ 0 26£34 0 287ЮЮ 0 29734 0
1904 29£3Ю 0 2+£70 0 32£0Ю 0 3370+ 0
1908 3470. 0 3570: 0 36714 0 36£0+ 0
1912 38£68 0 3970: 0 3Ю76+ 0 3+70Ю 0
1916 40£02 0 41£06 0 42708 0 44710 0
1920 44£12 0 46£62 0 48782 0 48£64 0
1924 49762 0 4‼774 0 52£60 0 5425. 0
1928 54760 0 58£66 0 5+£72 0 64042 0
1932 64744 0 74046 0 74748 0 8474Ю 0
1936 9404. 0 94150 0 94256 0 94758 0
1940 Ю4052 0 Ю4754 0
PROCEDURE 399
1942 0 0 0 0 0 6 0 0 5259 4
1944 1 1 2 1 0 3 0 0 5259 4 27 0 0 1948 4 1 1 3 8 0
1948 4 0 0 4929 4 26 0 0 972 4 26 0 1 1942 4
PROCEDURE 400
1951 24 0 1 7338 4
1952 26 0 1 1952 4 0 0 0 1965 3 0 0 0 1963 3 0 0 0 1965 3
1956 0 0 0 1964 3 0 0 0 1991 3 0 0 0 2022 3 0 0 0 2100 3
1960 0 0 0 2121 3 0 0 0 2130 3 0 0 0 2133 3
PROCEDURE 401
1963 1 1 3 1 0
1964 1 1 1 1 0 2 0 0 5318 4 2 1 0 5216 4 26 0 0 4377 4
1968 1 1 3 0 0 2 1 0 5216 4 6 0 0 4974 4 26 0 0 944 4
1972 26 0 0 4716 4 24 0 0 5284 4 6 0 0 4975 4 26 0 0 944 4
1976 6 0 0 5318 4 27 0 0 979 4 1 1 2 1 0 27 0 0 1984 4
1980 26 0 0 4086 4 6 0 0 5013 4 26 0 0 963 4 26 0 0 2064 4
1984 6 0 0 5260 4 1 1 2 100 0 27 0 2 979 4 26 0 0 4716 4
1988 6 0 0 4919 4 26 0 0 3985 4 24 1 0 979 4
PROCEDURE 402
1991 26 0 0 4707 4
1992 6 1 0 5220 4 27 0 0 1997 4 4 0 0 4921 4 18 0 1 5 0
1996 24 1 0 2001 4 26 0 0 4371 4 26 0 0 4086 4 26 0 0 2072 4
2000 6 0 0 4921 4 2 1 0 5286 4 6 0 0 4916 4 26 0 0 950 4
2004 6 1 0 5220 4 27 0 1 2012 4 26 0 0 2086 4 6 0 0 4917 4
2008 26 0 0 958 4 26 0 0 2064 4
PROCEDURE 403
2010 6 0 0 5014 4 26 0 0 963 4
2012 26 0 0 4716 4 6 0 0 5216 4 27 0 0 2019 4 1 1 3 0 0
2016 2 1 0 5216 4 6 0 0 5035 4 24 1 0 2020 4 6 0 0 4973 4
2020 26 0 0 944 4 24 1 0 979 4
PROCEDURE 404
2022 6 1 0 5220 4 2 0 0 5347 4
2024 26 0 0 4377 4 26 0 0 2072 4 6 0 0 5296 4 27 0 0 2030 4
2028 1 1 3 1 0 2 0 0 5296 4 6 0 0 5264 4 27 0 0 2036 4
2032 1 1 3 1 0 3 0 0 5264 4 5 0 0 5296 4 7 1 0 5262 4
2036 26 0 0 4716 4 2 1 0 5216 4 6 0 0 4974 4 26 0 0 944 4
2040 6 0 0 4980 4 26 0 0 963 4 6 0 0 5347 4 27 0 1 2048 4
2044 26 0 0 4371 4 6 0 0 4916 4 26 0 0 958 4 24 1 0 2050 4
2048 4 0 0 4930 4 26 0 0 963 4 6 0 0 4963 4 26 0 0 963 4
2052 26 0 0 2086 4 6 0 0 5264 4 3 0 0 5216 4 27 0 1 2060 4
2056 6 0 0 5296 4 27 0 0 2060 4 1 1 3 1 0 7 1 0 5214 4
2060 6 0 0 4973 4 24 0 0 5296 4 5 0 0 4933 4 24 1 0 2020 4
PROCEDURE 405
2064 0 0 0 0 0 6 0 0 5259 4 1 1 2 1 0 3 0 0 5259 4
2068 27 0 1 2071 4 6 0 0 5015 4 26 0 0 972 4 26 0 1 2064 4
PROCEDURE 406
2072 0 0 0 0 0 6 1 0 5212 4 2 0 0 5294 4 6 1 0 5214 4
2076 2 0 0 5295 4 6 1 0 5216 4 2 0 0 5296 4 6 1 0 5218 4
2080 2 0 0 5297 4 6 1 0 5220 4 2 0 0 5298 4 6 0 0 5222 4
2084 2 0 0 5224 4 26 0 1 2072 4
PROCEDURE 407
2086 0 0 0 0 0 6 0 0 5294 4
2088 2 1 0 5212 4 6 0 0 5295 4 2 1 0 5214 4 6 0 0 5296 4
2092 2 1 0 5216 4 6 0 0 5297 4 2 1 0 5218 4 6 0 0 5298 4
2096 2 1 0 5220 4 6 0 0 5224 4 2 0 0 5222 4 26 0 1 2086 4
PROCEDURE 408
2100 26 0 0 4086 4 26 0 0 4707 4 6 0 0 4957 4 26 0 0 944 4
2104 6 0 0 4958 4 26 0 0 963 4 6 0 0 5266 4 27 0 0 2117 4
2108 6 0 0 4918 4 26 0 0 2746 4 6 0 0 5260 4 27 0 1 2117 4
2112 6 0 0 5262 4 27 0 0 2119 4 4 0 0 4932 4 26 0 0 963 4
2116 24 1 0 2119 4 6 0 0 4918 4 26 0 0 3694 4 26 0 0 2064 4
2120 24 1 0 979 4
PROCEDURE 409
2121 6 0 0 4959 4 2 0 0 5234 4 6 1 0 5220 4
2124 27 0 0 2127 4 2 1 0 5286 4 24 1 0 1328 4 2 1 0 5218 4
2128 6 0 0 4959 4 24 1 0 2020 4 6 0 0 4960 4 26 0 0 938 4
2132 24 1 0 979 4
PROCEDURE 410
2133 26 0 0 4086 4 6 1 0 5218 4 2 0 0 5272 4
2136 2 1 0 5218 4 6 0 0 4974 4 26 0 0 944 4 6 0 0 5272 4
2140 2 0 0 5266 4 6 0 0 4919 4 26 0 0 2746 4 26 0 0 4377 4
2144 6 0 0 4917 4 26 0 0 958 4 6 0 0 5272 4 2 0 0 5266 4
2148 6 0 0 5016 4 26 0 0 2746 4 26 0 0 1942 4 24 1 0 979 4
PROCEDURE 411
2152 6 0 0 5284 4 1 1 2 3 0 27 0 2 2160 4 24 0 0 5284 4
2156 6 0 0 4902 4 2 1 0 5286 4 6 0 0 4936 4 24 1 0 1327 4
2160 27 0 1 2163 4 6 1 0 5220 4 24 1 0 2157 4
PROCEDURE 412
2163 1 1 2 4 0
2164 27 0 2 2209 4 6 0 0 5218 4 27 0 1 2173 4 6 0 0 5212 4
2168 0 0 2 5214 4 27 1 1 2173 4 1 1 3 6 0 4 0 0 4938 4
2172 26 0 0 972 4
PROCEDURE 413
2173 6 0 0 5284 4 1 1 2 6 0 27 0 0 2200 4
2176 26 0 0 4707 4 24 0 0 5284 4 6 0 0 4900 4 3 0 0 5310 4
2180 2 1 0 5286 4 6 0 0 4936 4 26 0 0 950 4 6 0 0 5284 4
2184 1 1 2 6 0 27 0 0 2207 4 24 0 0 5284 4 6 0 0 4899 4
2188 2 0 0 5311 4 26 0 0 2226 4 26 0 0 4716 4 6 0 0 5218 4
2192 27 0 1 2198 4 6 0 0 5212 4 0 0 2 5214 4 27 1 1 2198 4
2196 6 0 0 4912 4 24 1 0 978 4
PROCEDURE 414
2198 6 0 0 4966 4 24 1 0 1296 4
2200 6 0 0 5220 4 2 0 0 5272 4 26 0 0 4377 4 6 1 0 5168 4
2204 28 0 0 5212 4 6 0 0 5220 4 24 1 0 2179 4 6 0 0 5272 4
2208 24 1 0 2188 4
PROCEDURE 415
2209 27 0 0 2212 4 6 1 0 5170 4 24 1 0 2213 4
2212 5 1 0 5170 4 2 1 0 5286 4 6 0 0 4916 4 26 0 0 950 4
2216 1 1 3 0 0 26 0 0 4023 4 6 0 0 5198 4 26 0 0 963 4
2220 6 0 0 5284 4 1 1 2 7 0 27 0 1 979 4 26 0 0 4023 4
2224 6 0 0 5199 4 24 1 0 1429 4
PROCEDURE 416
2226 0 0 0 0 0 6 0 0 5977 4
2228 18 0 1 5 0 3 1 0 5102 4 26 1 2 5102 4 27 0 0 2237 4
2232 6 1 0 5310 4 5 1 2 6106 4 27 0 0 2239 4 25 0 2 2 0
2236 24 1 0 2232 4 1 1 3 83 0 26 0 0 3972 4 1 1 3 1000 0
2240 18 0 1 2 0 4 0 0 5999 4 4 0 0 5999 4 1 1 2 1 0
2244 2 0 0 5286 4 24 0 3 0 4 6 0 0 4 22 2 1 0 5108 4
2248 0 0 2 5194 4 10 1 0 5108 4 2 0 0 5287 4 6 0 0 4916 4
2252 2 0 0 5234 4 26 0 0 3709 4 26 0 1 2226 4
PROCEDURE 417
2255 6 0 0 5284 4
2256 1 1 2 8 0 27 0 3 2290 4 26 0 0 4707 4 26 0 0 4023 4
2260 6 0 0 5284 4 1 1 2 10 0 27 0 0 2264 4 6 0 0 5200 4
2264 5 0 0 5201 4 26 0 0 963 4 6 0 0 5284 4 1 1 2 10 0
2268 27 0 0 2287 4 6 0 0 4918 4 2 1 0 5234 4 6 1 0 5220 4
2272 27 0 1 2280 4 26 0 0 4377 4 26 0 0 4725 4 0 0 3 5202 4
2276 1 1 2 1 0 7 1 0 5208 4 0 0 3 5191 4 24 1 0 2283 4
2280 2 1 0 5286 4 6 0 0 4918 4 26 0 0 950 4 26 0 0 4716 4
2284 6 0 0 5284 4 1 1 2 8 0 27 0 0 2288 4 6 0 0 5203 4
2288 1 1 1 4 0 3 0 0 5284 4 2 0 0 5235 4 26 0 0 3759 4
2292 26 0 0 2297 4 24 0 0 5284 4 6 0 0 4947 4 2 0 0 5234 4
2296 24 1 0 2851 4
PROCEDURE 418
2297 0 0 0 0 0 6 1 0 5212 4 27 0 0 2383 4
2300 1 1 2 999 0 27 0 2 2383 4 6 1 0 5214 4 27 0 1 2308 4
2304 6 0 0 5244 4 5 0 0 5212 4 27 0 2 2373 4 24 1 0 2323 4
2308 24 0 3 0 4 6 1 0 2 22 18 0 1 5 0 4 0 0 4897 4
2312 3 1 0 5102 4 26 1 2 5102 4 25 0 2 0 0 24 1 0 2317 4
2316 24 1 0 2323 4 6 0 0 5208 4 24 0 3 0 4 5 0 2 1 0
2320 27 0 0 2374 4 25 0 2 2 0 24 1 0 2317 4 6 1 0 5212 4
2324 26 0 0 4743 4 18 0 1 2 0 2 0 0 5252 4 6 1 0 5214 4
2328 26 0 0 4743 4 1 1 1 2 0 7 0 0 5252 4 0 0 3 5191 4
2332 6 0 0 5351 4 3 1 0 5102 4 26 1 2 5102 4 27 0 0 2352 4
2336 1 1 2 300 0 27 0 3 2341 4 1 1 3 120 0 26 0 0 3972 4
2340 26 0 1 2297 4 6 0 2 327 4 5 0 0 5252 4 27 0 3 2352 4
PROCEDURE 419
2344 6 0 2 327 4 2 0 2 330 4 6 0 2 328 4 2 0 2 331 4
2348 6 0 2 329 4 2 0 2 332 4 25 0 2 4099 0 24 1 0 2341 4
2352 6 0 0 5252 4 2 0 2 330 4 6 1 0 5208 4 2 0 2 331 4
2356 6 1 0 5214 4 3 0 2 332 4 27 0 0 2371 4 1 1 3 1 0
2360 2 0 0 5231 4 6 0 0 5025 4 18 0 1 4 0 4 0 0 5352 4
2364 2 0 2 332 4 1 1 3 10 0 5 0 0 5025 4 3 0 0 5025 4
2368 27 0 1 2371 4 1 1 2 1 0 7 0 0 5352 4 1 1 3 3 0
2372 7 0 0 5351 4 26 0 1 2297 4
PROCEDURE 420
2374 24 1 2 24 4 0 0 2 0 0
2376 18 1 3 30 0 2 1 0 5212 4 18 1 3 10 0 2 1 0 5214 4
2380 24 0 3 0 4 6 0 0 4 22 26 0 0 2384 4 26 0 1 2297 4
PROCEDURE 421
2384 0 0 0 0 0 2 0 0 5348 4 24 0 3 0 4 6 1 0 2 22
2388 2 1 0 5252 4 6 0 0 5253 4 5 0 0 5348 4 27 0 0 2401 4
2392 18 0 1 5 0 4 0 0 5348 4 1 1 1 2 0 24 0 3 5348 4
2396 28 1 1 0 0 1 1 2 2 0 7 0 0 5252 4 7 0 0 5253 4
2400 26 1 1 5252 4 26 0 1 2384 4
PROCEDURE 422
2402 24 0 1 7338 4 26 0 1 2403 4
2404 0 0 0 2419 3 0 0 0 2416 3 0 0 0 2495 3 0 0 0 2504 3
2408 0 0 0 2518 3 0 0 0 2529 3 0 0 0 2500 3 0 0 0 2412 3
2412 2 1 0 5216 4 6 0 0 5009 4 26 0 0 944 4 24 1 0 2534 4
PROCEDURE 423
2416 6 0 0 5244 4 2 0 0 5243 4 24 1 0 1429 4 26 0 0 4707 4
2420 26 1 2 5172 4 26 0 0 1838 4 27 0 1 2433 4 6 0 0 5212 4
2424 2 0 2 5288 4 6 0 0 5216 4 18 0 1 4 0 7 0 2 5288 4
2428 6 1 0 5214 4 2 0 2 5289 4 25 0 2 2 0 24 1 0 2421 4
2432 26 0 0 4099 4 26 0 0 4716 4 24 0 3 0 4 6 0 0 4 22
2436 2 0 0 5221 4 6 0 0 5212 4 1 1 2 1000 0 27 0 3 2442 4
2440 1 1 3 0 0 24 1 0 2444 4 1 1 3 0 0 2 1 0 5214 4
2444 2 1 0 5216 4 2 1 0 5218 4 2 0 0 5220 4 6 0 0 4955 4
2448 26 0 0 944 4 6 0 0 5221 4 27 0 0 980 4 18 0 3 3 0
2452 18 0 1 4127 0 2 0 0 5252 4 6 0 0 5017 4 5 0 0 5252 4
2456 26 0 0 3928 4 6 1 0 5220 4 2 1 0 7356 4 1 0 1 7 0
2460 24 0 1 7356 4 15 0 0 5288 4 3 0 0 5212 4 2 0 0 5269 4
2464 26 0 0 3717 4 18 1 1 4127 0 27 0 1 2469 4 18 1 1 1 0
2468 24 1 0 2474 4 26 0 0 3747 4 1 1 1 1 0 2 0 0 5268 4
2472 2 1 0 5212 4 24 1 0 2486 4 3 0 0 5268 4 27 0 0 2478 4
2476 1 1 2 1 0 7 0 0 5268 4 24 0 1 7356 4 6 0 0 5288 4
2480 18 0 1 4124 0 27 0 0 2484 4 1 1 3 2 0 2 0 0 5231 4
2484 24 0 1 7356 4 6 0 0 5289 4 2 1 0 5214 4 2 0 0 5234 4
2488 26 0 0 4660 4 26 0 0 4676 4 26 0 0 4332 4 23 0 0 2 0
2492 0 0 0 7356 3 24 1 0 2459 4 24 1 0 980 4
PROCEDURE 424
2495 6 1 0 5174 4
2496 28 0 0 5214 4 6 0 0 4956 4 26 0 0 944 4 24 1 0 979 4
2500 1 1 3 0 0 2 0 0 5347 4 6 0 0 4916 4 24 1 0 2509 4
PROCEDURE 425
2504 6 0 0 4930 4 4 0 0 5220 4 26 0 0 963 4 2 0 0 5347 4
2508 6 0 0 4921 4 2 0 0 5234 4 26 0 0 2550 4 6 0 0 5347 4
2512 27 0 0 2851 4 26 0 0 4676 4 26 0 0 4332 4 6 0 0 1838 4
2516 2 0 0 5007 4 24 1 0 980 4
PROCEDURE 426
2518 26 0 0 4707 4 26 0 0 1838 4
2520 3 0 0 5347 4 27 0 0 2525 4 6 0 0 5007 4 2 0 0 1838 4
2524 24 1 0 2527 4 6 0 0 4916 4 26 0 0 958 4 26 0 0 4716 4
2528 24 1 0 2508 4
PROCEDURE 427
2529 26 0 0 2550 4 6 0 0 5009 4 2 0 0 5234 4
2532 26 0 0 4676 4 26 0 0 4332 4 6 0 0 4956 4 26 0 0 3928 4
2536 26 0 0 4377 4 1 1 3 0 0 2 0 0 5234 4
PROCEDURE 428
2539 6 0 0 5212 4
2540 2 0 0 5269 4 26 0 0 3717 4 3 0 0 5268 4 27 0 0 2545 4
2544 1 1 2 1 0 7 0 0 5268 4 26 0 0 2297 4 26 0 0 4676 4
2548 26 0 0 4332 4 24 1 0 2536 4
PROCEDURE 429
2550 0 0 0 0 0 6 1 0 6056 4
2552 2 1 0 7354 4 0 0 2 4906 4 1 1 3 0 0 24 0 1 7354 4
2556 15 0 0 6058 4 27 0 0 2563 4 5 1 0 5212 4 27 0 0 2565 4
2560 23 0 0 1 0 0 0 0 7354 3 24 1 0 2554 4 1 1 3 114 0
2564 26 0 0 3972 4 24 0 1 7354 4 6 0 0 6058 4 18 1 1 4124 0
2568 3 0 0 5288 4 1 1 1 1001 0 2 0 0 5212 4 18 1 3 6 0
2572 2 0 0 5214 4 6 0 0 5288 4 5 0 0 5285 4 27 0 0 2579 4
2576 4 0 0 5285 4 26 0 0 4023 4 24 1 0 2580 4 6 0 0 5237 4
2580 2 0 0 5268 4 26 0 1 2550 4
PROCEDURE 430
2582 24 0 1 7338 4 26 0 1 2583 4
2584 0 0 0 2604 3 0 0 0 2635 3 0 0 0 2662 3 0 0 0 2673 3
2588 0 0 0 2693 3 0 0 0 2725 3 0 0 0 2726 3 0 0 0 2733 3
2592 0 0 0 2594 3 0 0 0 2595 3 5 0 0 4957 4 4 0 0 4918 4
2596 2 0 0 4737 4 26 0 0 4707 4 6 1 0 5216 4 27 0 0 2601 4
2600 6 0 0 4937 4 4 0 0 4737 4 26 0 0 2746 4 24 1 0 979 4
PROCEDURE 431
2604 26 0 0 4707 4 6 1 0 5220 4 2 0 0 5286 4 26 0 0 4371 4
2608 6 1 0 5220 4 2 0 0 5287 4 6 0 0 5286 4 27 0 3 2614 4
2612 6 0 0 5287 4 27 0 2 2617 4 6 0 0 4957 4 7 0 0 5286 4
2616 7 0 0 5287 4 6 1 0 5266 4 1 1 2 4 0 27 0 3 2624 4
2620 6 0 0 4916 4 2 0 0 5234 4 26 0 0 3625 4 24 1 0 2630 4
2624 6 0 0 4955 4 24 0 0 5266 4 5 0 0 4933 4 2 0 0 5234 4
2628 26 0 0 3625 4 24 1 0 979 4 6 0 0 5266 4 2 0 0 5236 4
2632 6 0 0 4938 4 26 0 0 4036 4 24 1 0 979 4
PROCEDURE 432
2635 1 1 3 0 0
2636 2 1 0 5216 4 6 1 0 5212 4 0 1 2 5214 4 27 1 0 2652 4
2640 6 0 0 5218 4 3 0 0 5266 4 1 1 2 4 0 27 0 2 2647 4
2644 6 0 0 4964 4 26 0 0 958 4 24 1 0 979 4 1 1 3 0 0
2648 2 1 0 5218 4 6 0 0 4965 4 26 0 0 958 4 24 1 0 2630 4
2652 6 0 0 5218 4 3 0 0 5266 4 1 1 2 4 0 27 0 2 2630 4
2656 6 0 0 4939 4 26 0 0 972 4 6 0 0 4964 4 24 0 0 5218 4
2660 5 0 0 4933 4 24 1 0 978 4
PROCEDURE 433
2662 6 0 0 5218 4 2 0 0 5266 4
2664 2 0 0 5218 4 6 0 0 5212 4 0 0 2 5214 4 27 1 0 2670 4
2668 6 0 0 4916 4 26 0 0 958 4 6 0 0 4921 4 26 0 0 2746 4
2672 24 1 0 979 4
PROCEDURE 434
2673 26 0 0 4086 4 26 0 0 4707 4 6 0 0 4903 4
2676 18 0 1 5 0 2 1 0 5310 4 26 0 0 2226 4 26 0 0 4716 4
2680 2 1 0 5218 4 6 0 0 4966 4 26 0 0 958 4 6 0 0 5018 4
2684 26 0 0 3928 4 6 0 0 4957 4 2 1 0 5286 4 6 0 0 4917 4
2688 26 0 0 950 4 6 0 0 4921 4 26 0 0 2746 4 26 0 0 1942 4
2692 24 1 0 979 4
PROCEDURE 435
2693 6 1 0 5220 4 27 0 2 2697 4 1 1 3 4096 0
2696 7 0 0 5220 4 6 0 0 5218 4 3 0 0 5236 4 1 1 2 4 0
2700 27 0 2 2720 4 6 0 0 4967 4 5 0 0 5220 4 24 0 0 5218 4
2704 5 0 0 4933 4 26 0 0 963 4
PROCEDURE 436
2706 6 1 0 5212 4 0 1 2 5214 4
2708 27 1 1 2715 4 6 0 0 5017 4 26 0 0 3928 4 6 0 0 5284 4
2712 1 1 2 8 0 27 0 1 979 4 24 1 0 980 4 1 1 3 7 0
2716 2 0 0 5284 4 2 0 0 5236 4 2 1 0 5218 4 24 1 0 2255 4
2720 6 0 0 4969 4 5 0 0 5220 4 26 0 0 963 4 26 0 0 4036 4
2724 24 1 0 2706 4
PROCEDURE 437
2725 6 0 0 4937 4 4 0 0 4916 4 18 1 1 4118 0
2728 6 0 0 5218 4 2 0 0 5266 4 18 1 1 10 0 26 0 0 2746 4
2732 24 1 0 979 4
PROCEDURE 438
2733 26 0 0 4707 4 2 1 0 5218 4 2 1 0 5216 4
2736 6 0 0 5009 4 26 0 0 944 4 26 0 0 1838 4 27 0 0 2743 4
2740 1 1 3 0 0 2 1 0 5212 4 2 1 0 5214 4 6 1 0 5266 4
2744 2 1 0 5218 4 24 1 0 2693 4
PROCEDURE 439
2746 0 0 0 0 0 2 0 0 4737 4
2748 6 0 0 5266 4 1 1 2 4 0 27 0 2 2760 4 26 0 0 4032 4
2752 6 0 0 4737 4 4 0 0 5266 4 4 0 0 5266 4 2 0 0 5233 4
2756 6 0 0 5275 4 2 0 0 5232 4 26 0 0 4332 4 26 0 1 2746 4
2760 6 0 0 5266 4 2 0 0 5236 4 6 0 0 4737 4 26 0 0 4036 4
2764 26 0 1 2746 4
PROCEDURE 440
2765 1 1 3 10 0 1 1 1 10 0 1 1 1 10 0
2768 1 1 2 1 0 4 0 0 5284 4 3 0 0 5234 4 1 1 2 23 0
2772 27 0 0 2861 4 1 1 2 9 0 27 0 2 2881 4 6 0 0 5212 4
2776 27 0 0 2813 4 3 0 0 5269 4 1 1 2 999 0 27 0 1 2800 4
2780 6 1 0 4880 4 27 0 0 2800 4 18 1 1 4122 0 27 0 0 2787 4
2784 2 0 0 5288 4 26 0 0 3942 4 24 1 0 2797 4 18 1 1 2 0
2788 27 0 0 2793 4 2 1 0 4880 4 6 0 0 5275 4 4 1 0 4881 4
2792 24 1 0 2797 4 6 1 0 4881 4 2 0 0 5212 4 26 0 0 3747 4
2796 1 1 1 1 0 2 1 0 5214 4 2 1 0 5212 4 24 1 0 2810 4
2800 6 0 0 5346 4 18 0 1 4126 0 1 1 2 144 0 27 0 1 2807 4
2804 26 0 0 3717 4 18 0 3 1 0 24 1 0 2814 4 26 0 0 3717 4
2808 5 0 0 5285 4 27 0 1 2813 4 6 0 0 5285 4 4 0 0 5285 4
2812 24 1 0 2814 4 1 1 3 0 0 2 0 0 5268 4 6 0 0 5216 4
2816 1 1 2 2 0 27 0 1 2821 4 1 1 3 1 0 3 0 0 5216 4
2820 7 1 0 5214 4 6 0 0 5234 4 3 0 0 2297 4 18 0 3 1 0
2824 0 0 2 4838 4 15 0 0 5216 4 18 0 3 2 0 0 0 2 4900 4
2828 15 0 0 5218 4 18 0 3 1 0 18 0 1 3 0 3 0 0 5234 4
2832 18 0 1 4123 0 27 0 0 2841 4 6 0 0 5234 4 27 0 1 2838 4
2836 1 1 3 2 0 2 0 0 5231 4 1 1 3 0 0 5 0 0 5234 4
2840 2 0 0 5234 4 2 1 0 5216 4 2 1 0 5218 4 6 0 0 5234 4
2844 5 0 0 4954 4 27 0 0 2849 4 6 0 0 2297 4 1 1 2 27 0
2848 27 0 1 2853 4
PROCEDURE 441
2849 26 0 0 2297 4 26 0 0 4660 4 26 0 0 4676 4
2852 24 1 0 1430 4 6 0 0 5220 4 27 0 0 2850 4 18 0 1 4127 0
2856 26 0 0 4737 4 2 0 0 5218 4 6 0 0 5234 4 26 0 0 944 4
2860 24 1 0 979 4
PROCEDURE 442
2861 6 0 0 5218 4 0 0 2 5216 4 27 1 1 2775 4
2864 2 0 0 5268 4 6 0 0 4969 4 2 0 0 5234 4 26 0 0 4676 4
2868 26 0 0 4332 4 26 0 0 4371 4 6 0 0 5212 4 27 0 0 2878 4
2872 2 0 0 5269 4 26 0 0 3717 4 3 0 0 5268 4 4 0 0 5268 4
2876 27 0 0 2878 4 1 1 2 1 0 2 0 0 5268 4 2 0 0 5234 4
2880 24 1 0 2850 4
PROCEDURE 443
2881 26 0 0 4707 4 24 1 0 1483 4 26 0 0 4716 4
2884 6 0 0 5214 4 2 1 0 5212 4 2 1 0 5214 4 2 1 0 5216 4
2888 2 1 0 5218 4 26 0 0 4707 4 6 0 0 5284 4 1 1 2 3 0
2892 27 0 1 2900 4 6 0 0 4974 4 26 0 0 944 4 6 0 0 4980 4
2896 26 0 0 963 4 2 0 0 5284 4 26 0 0 1838 4 24 1 0 1822 4
2900 1 1 2 1 0 27 0 1 2920 4
PROCEDURE 444
2902 0 0 2 4901 4 24 0 1 5212 4
2904 15 0 0 5550 4 18 0 1 4127 0 1 1 2 2 0 4 0 0 4921 4
2908 2 0 0 5287 4 2 0 0 5286 4 6 0 0 4916 4 26 0 0 950 4
2912 26 0 0 4716 4 6 0 0 4973 4 26 0 0 944 4 6 1 0 5220 4
2916 4 0 0 4930 4 26 0 0 963 4 6 0 0 4980 4 26 0 0 963 4
2920 26 0 0 4377 4 6 1 0 5213 4 26 0 0 4737 4 2 1 0 5212 4
2924 2 1 0 5214 4 2 1 0 5216 4 2 1 0 5218 4 24 1 0 2893 4
PROCEDURE 445
2928 2 1 0 5216 4 24 0 1 7338 4 26 0 1 2930 4 0 0 0 2940 3
2932 0 0 0 2944 3 0 0 0 2944 3 0 0 0 2944 3 0 0 0 979 3
2936 0 0 0 2944 3 0 0 0 2947 3 0 0 0 2950 3 0 0 0 2954 3
2940 6 0 0 4930 4 26 0 0 963 4 6 0 0 4944 4 24 1 0 1429 4
2944 24 0 0 5284 4 6 0 0 4982 4 24 1 0 1296 4 1 1 3 0 0
2948 26 0 0 2962 4 24 1 0 979 4 6 0 0 4987 4 26 0 0 2962 4
2952 6 0 0 4989 4 24 1 0 978 4 6 0 0 4987 4 26 0 0 2962 4
2956 6 0 0 4996 4 26 0 0 972 4 6 0 0 4989 4 26 0 0 972 4
2960 6 0 0 4997 4 24 1 0 978 4
PROCEDURE 446
2962 0 0 0 0 0 27 0 0 2965 4
2964 26 0 0 972 4 1 1 3 1 0 2 1 0 5216 4 6 0 0 4916 4
2968 26 0 0 958 4 26 0 0 4377 4 1 1 3 1 0 2 1 0 5216 4
2972 6 0 0 4922 4 26 0 0 958 4 26 0 1 2962 4
PROCEDURE 447
2975 24 0 1 7338 4
2976 26 0 1 2976 4 0 0 0 2986 3 0 0 0 3083 3 0 0 0 3069 3
2980 0 0 0 3053 3 0 0 0 3078 3 0 0 0 3020 3 0 0 0 3024 3
2984 0 0 0 3037 3 0 0 0 3047 3 6 1 0 5220 4 2 1 0 5286 4
2988 26 0 0 4707 4 26 1 2 5176 4 26 0 0 1838 4 27 0 1 3000 4
2992 6 1 0 5212 4 18 0 1 2 0 4 1 0 5214 4 2 0 2 5288 4
2996 6 1 0 5208 4 2 0 2 5289 4 25 0 2 2 0 24 1 0 2990 4
PROCEDURE 448
3000 24 0 3 0 4 6 0 0 4 22 3 1 0 5228 4 18 0 3 3 0
3004 18 0 1 4127 0 2 0 0 5257 4 6 1 0 5286 4 27 0 1 3012 4
3008 26 0 0 4716 4 6 0 0 4916 4 26 0 0 958 4 24 1 0 3015 4
3012 6 0 0 4930 4 4 0 0 5286 4 26 0 0 963 4 6 0 0 5257 4
3016 2 1 0 5286 4 6 0 0 4935 4 26 0 0 950 4 24 1 0 3083 4
3020 6 1 0 5354 4 2 1 0 5286 4 6 0 0 4916 4 24 1 0 1375 4
3024 26 0 0 4086 4 6 1 0 5212 4 2 0 0 5288 4 26 0 0 3942 4
3028 4 0 0 4916 4 26 0 0 938 4 26 0 0 3129 4 1 1 3 2304 0
3032 2 0 0 5231 4 6 0 0 4968 4 26 0 0 963 4 26 0 0 1942 4
3036 24 1 0 979 4 2 1 0 5216 4 26 0 0 4377 4 1 1 3 0 0
3040 2 1 0 5216 4 6 0 0 4974 4 26 0 0 944 4 26 0 0 4716 4
3044 6 0 0 5033 4 26 0 0 944 4 24 1 0 1980 4 2 1 0 5216 4
3048 6 0 0 5220 4 27 0 0 3051 4 6 0 0 5204 4 4 0 0 5034 4
3052 24 1 0 2020 4
PROCEDURE 449
3053 6 0 0 4981 4 26 0 0 963 4 6 0 0 5024 4
3056 26 0 0 3928 4 6 0 0 5019 4 26 0 0 3928 4 26 0 0 963 4
3060 26 0 0 4023 4 6 0 0 5003 4 26 0 0 963 4 26 0 0 4023 4
3064 6 0 0 5001 4 26 0 0 963 4 6 0 0 5020 4 26 0 0 3928 4
3068 24 1 0 979 4
PROCEDURE 450
3069 26 0 0 4377 4 6 1 0 5212 4 2 0 0 5269 4
3072 26 0 0 3717 4 2 0 0 5257 4 6 0 0 5252 4 2 1 0 5286 4
3076 26 0 0 4086 4 24 1 0 3006 4 2 1 0 5216 4 2 1 0 5218 4
3080 26 0 0 4086 4 6 0 0 4974 4 26 0 0 944 4
PROCEDURE 451
3083 26 0 0 3129 4
3084 6 0 0 5284 4 1 1 2 3 0 27 0 2 3122 4 24 0 1 5284 4
3088 6 0 0 5003 4 2 0 0 5231 4 6 0 0 4971 4 26 0 0 963 4
3092 6 0 0 5284 4 1 1 2 2 0 27 0 0 979 4
PROCEDURE 452
3095 6 1 0 5228 4
3096 18 0 1 5 0 27 0 0 980 4 3 1 0 5102 4 26 1 3 5102 4
3100 24 0 0 25 4 0 0 2 5288 4 1 1 3 0 0 18 1 1 8 0
3104 3 0 0 5212 4 2 0 0 5269 4 18 1 1 2 0 2 0 0 5214 4
3108 26 0 0 3717 4 3 0 0 5268 4 27 0 0 3112 4 1 1 2 1 0
3112 7 0 0 5268 4 6 0 3 5289 4 2 1 0 5208 4 2 0 0 5234 4
3116 26 0 0 2297 4 26 0 0 4676 4 26 0 0 4332 4 25 0 3 2 0
3120 24 1 0 3100 4 24 1 0 980 4 24 0 0 5284 4 6 0 0 4997 4
3124 2 0 0 5231 4 6 0 0 4968 4 26 0 0 963 4 26 0 0 1942 4
3128 24 1 0 979 4
PROCEDURE 453
3129 0 0 0 0 0 6 0 0 4981 4 26 0 0 963 4
3132 26 0 0 4023 4 26 0 1 3129 4
PROCEDURE 454
3134 6 1 0 5118 4 28 0 0 5289 4
3136 26 0 0 3272 4 26 0 0 3309 4 1 1 3 0 0
PROCEDURE 455
3139 26 0 0 3309 4
3140 1 1 3 1 0 2 0 0 5264 4 2 1 0 5332 4 26 1 2 5294 4
3144 6 0 0 5258 4 1 1 2 81 0 27 0 0 3163 4 1 1 2 1 0
3148 27 0 0 3160 4 1 1 2 1 0 27 0 1 3153 4 1 1 3 16 0
3152 24 1 0 3158 4 1 1 2 1 0 27 0 0 3161 4 1 1 2 19 0
3156 27 0 0 3162 4 1 1 3 15 0 2 0 2 5289 4
PROCEDURE 456
3159 1 1 3 1 0
3160 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0
3164 3 0 2 5296 4 2 0 0 7339 4 26 0 0 3309 4 1 1 2 123 0
3168 27 0 0 3174 4 6 1 0 5332 4 18 0 1 2 0 4 0 0 5258 4
3172 2 1 0 5332 4 24 1 0 3166 4
PROCEDURE 457
3174 18 1 1 10 0 2 1 0 5330 4
3176 6 1 0 5333 4 26 0 0 4737 4 27 0 3 3180 4 7 0 2 5289 4
3180 0 1 2 5330 4 1 1 3 0 0
PROCEDURE 458
3182 26 0 0 3309 4 1 1 2 122 0
3184 27 0 0 3196 4 1 1 2 2 0 27 0 0 3211 4 1 1 2 1 0
3188 27 0 0 3218 4 24 0 1 7339 4 26 0 1 3190 4 0 0 0 3334 3
3192 0 0 0 3344 3 0 0 0 3362 3 0 0 0 3386 3 0 0 0 3418 3
3196 1 1 3 1 0 2 0 0 5295 4 26 0 0 3200 4 24 1 0 3138 4
PROCEDURE 459
3200 0 0 0 0 0 6 1 0 5260 4 24 0 0 5294 4 24 0 0 5289 4
3204 18 0 3 0 0 4 1 0 5262 4 2 1 0 5260 4 2 1 0 5262 4
3208 1 1 3 1 0 7 0 0 5294 4 26 0 1 3200 4
PROCEDURE 460
3211 26 0 0 3309 4
3212 26 0 0 3200 4 26 1 2 5294 4 6 0 2 5296 4 2 0 0 7339 4
3216 6 0 0 5258 4 24 1 0 3183 4
PROCEDURE 461
3218 26 0 0 3200 4 6 0 0 5266 4
3220 27 0 0 3229 4 6 0 0 5281 4 27 0 0 3227 4 1 1 3 0 0
3224 5 1 0 5260 4 2 1 0 5260 4 24 1 0 3229 4 5 0 0 5260 4
3228 2 0 0 5260 4 24 0 3 7366 4 6 1 0 7 0 2 0 0 5265 4
3232 26 0 0 4134 4 26 0 0 3250 4 6 0 0 5265 4 27 0 1 979 4
3236 26 0 0 4099 4 26 0 0 3272 4 1 1 3 0 0 26 0 0 3309 4
3240 1 1 2 122 0 27 0 0 3246 4 6 0 0 5295 4 27 0 1 3213 4
3244 6 0 0 5258 4 24 1 0 3183 4 2 0 0 5289 4 2 1 0 5290 4
3248 2 1 0 5292 4 24 1 0 3139 4
PROCEDURE 462
3250 0 0 0 0 0 6 0 0 5261 4
3252 2 0 0 5233 4 6 0 0 5260 4 24 0 0 5302 4 2 0 0 5231 4
3256 6 0 0 5281 4 27 0 1 3264 4 6 0 0 5265 4 27 0 1 3264 4
3260 1 1 3 2 0 5 0 0 5302 4 3 0 0 5302 4 27 0 1 3271 4
3264 6 1 0 5260 4 27 0 2 3270 4 6 0 0 5261 4 27 0 1 3270 4
3268 1 1 3 128 0 7 0 0 5232 4 26 0 0 4332 4 26 0 1 3250 4
PROCEDURE 463
3272 0 0 0 0 0 6 1 0 5168 4 28 0 0 5260 4 6 1 0 5508 4
3276 24 1 2 17 4 2 1 0 2 0 6 1 0 5510 4 24 1 2 17 4
3280 2 1 0 6 0 24 0 2 5514 4 18 1 1 4123 0 1 1 3 18 0
3284 18 1 1 5 0 24 1 2 17 4 28 1 1 12 0 6 1 0 5532 4
3288 24 1 2 17 4 2 1 0 48 0 24 0 2 5534 4 18 1 1 4123 0
3292 1 1 3 16 0 18 1 1 5 0 24 1 2 17 4 28 1 1 32 0
3296 6 0 0 5302 4 27 0 1 3299 4 2 0 0 5230 4 24 1 2 17 4
3300 6 1 0 46 0 5 1 0 4814 4 27 0 0 3229 4 26 1 3 5120 4
3304 0 1 2 5514 4 1 1 3 2 0 2 0 0 5272 4 2 0 0 5294 4
3308 26 0 1 3272 4
PROCEDURE 464
3309 0 0 0 0 0 18 1 1 2 0 2 1 0 5258 4
3312 25 0 3 2 0 24 1 0 3319 4 24 0 0 5272 4 0 1 2 5514 4
3316 1 1 3 2 0 7 0 0 5272 4 26 1 3 5120 4 6 1 0 5258 4
3320 26 0 1 3309 4
PROCEDURE 465
3321 0 0 0 0 0 1 1 2 122 0 27 0 0 3327 4
3324 1 1 2 2 0 27 0 0 3327 4 1 1 2 1 0 26 0 1 3321 4
PROCEDURE 466
3328 0 0 0 0 0 6 1 0 5262 4 18 0 1 1 0 4 1 0 5259 4
3332 2 1 0 5262 4 26 0 1 3328 4
PROCEDURE 467
3334 6 0 0 5264 4 27 0 0 3339 4
3336 1 1 3 8 0 24 0 0 5294 4 7 0 0 5289 4 6 1 0 5262 4
3340 18 0 1 2 0 4 0 0 5258 4 2 1 0 5262 4 24 1 0 3182 4
PROCEDURE 468
3344 6 0 0 5258 4 1 1 2 16 0 27 0 0 3357 4 6 0 0 5264 4
3348 27 0 0 3352 4 1 1 3 1 0 24 0 0 5294 4 7 0 0 5289 4
3352 6 1 0 5262 4 4 1 0 5262 4 4 1 0 5259 4 2 1 0 5262 4
3356 24 1 0 3181 4 6 0 0 5294 4 27 0 1 3181 4 1 1 3 1 0
3360 2 0 0 5266 4 24 1 0 3181 4
PROCEDURE 469
3362 6 0 0 5258 4 1 1 2 16 0
3364 27 0 1 3379 4 6 0 0 5294 4 27 0 1 3370 4 1 1 3 1 0
3368 2 0 0 5266 4 24 1 0 3182 4 1 1 3 1 0 24 0 0 5294 4
3372 24 0 0 5289 4 18 0 3 0 0 0 0 3 5202 4 5 1 0 5262 4
3376 2 1 0 5262 4 0 0 3 5191 4 24 1 0 3182 4
PROCEDURE 470
3379 6 0 0 5264 4
3380 27 0 0 3384 4 1 1 3 4 0 24 0 0 5294 4 7 0 0 5289 4
3384 26 0 0 3328 4 24 1 0 3182 4
PROCEDURE 471
3386 6 0 0 5258 4 1 1 2 16 0
3388 27 0 1 3392 4 1 1 3 1 0 2 0 0 5267 4 24 1 0 3393 4
3392 26 0 0 3328 4 26 0 0 3309 4 26 0 0 3321 4 27 0 1 3386 4
3396 18 1 1 10 0 2 1 0 5268 4 6 1 0 5262 4 26 0 0 4737 4
3400 2 1 0 5262 4 0 1 2 5268 4 6 0 0 5267 4 27 0 0 3416 4
3404 6 0 0 5294 4 27 0 0 3413 4 1 1 3 1 0 24 0 0 5294 4
3408 24 0 0 5289 4 18 0 3 0 0 5 1 0 5262 4 2 1 0 5262 4
3412 24 1 0 3415 4
PROCEDURE 472
3413 1 1 3 1 0 2 0 0 5266 4 2 0 0 5267 4
3416 6 0 0 5258 4 24 1 0 3183 4
PROCEDURE 473
3418 6 0 0 5258 4 1 1 2 77 0
3420 27 0 0 3427 4 1 1 1 77 0 26 0 0 3321 4 27 0 0 3449 4
3424 26 0 0 3328 4 26 0 0 3309 4 24 1 0 3418 4
PROCEDURE 474
3427 18 1 1 10 0
3428 2 1 0 5332 4 6 1 0 5262 4 26 0 0 4737 4 2 0 0 5269 4
3432 26 1 2 5302 4 26 0 0 3717 4 3 0 2 5230 4 27 0 0 3438 4
3436 1 1 2 1 0 7 0 2 5230 4 6 0 0 5269 4 18 0 1 2 0
3440 7 0 2 5230 4 1 1 3 0 0 2 1 0 5262 4 0 1 2 5332 4
3444 26 0 0 3309 4 26 0 0 3321 4 27 0 0 3451 4 26 0 0 3328 4
3448 24 1 0 3444 4 26 1 2 5302 4 2 0 2 5230 4 18 1 1 10 0
3452 2 1 0 5268 4 6 1 0 5262 4 26 0 0 4737 4 2 1 0 5262 4
3456 0 1 2 5268 4 24 1 0 3416 4
PROCEDURE 475
3458 24 0 2 5056 4 28 0 2 5508 4
3460 24 0 2 5056 4 24 1 2 17 4 28 1 2 2 0 6 1 0 5528 4
3464 24 1 2 17 4 2 1 0 48 0 24 0 2 5530 4 18 1 1 4123 0
3468 1 1 3 16 0 18 1 1 5 0 24 1 2 17 4 28 1 1 32 0
3472 26 0 0 4134 4
PROCEDURE 476
3473 26 1 2 5176 4 6 0 2 5209 4 26 0 0 4737 4
3476 2 0 2 5209 4 25 0 2 1 0 24 1 0 3474 4 26 1 2 5154 4
3480 6 0 2 5222 4 1 1 2 100 0 27 0 3 3487 4 1 1 2 899 0
3484 27 0 2 3487 4 6 0 0 5200 4 7 0 2 5223 4 25 0 2 2 0
3488 24 1 0 3480 4 1 1 3 0 0 0 0 2 5281 4 15 0 0 4886 4
3492 27 0 1 3499 4 6 0 0 5225 4 27 0 1 3498 4 6 0 0 5223 4
3496 27 0 1 3498 4 6 0 0 4916 4 2 0 0 5232 4 6 0 0 5222 4
3500 2 0 0 5269 4 26 0 0 3717 4
PROCEDURE 477
3502 3 0 0 5230 4 27 0 0 3506 4
3504 1 1 2 1 0 7 0 0 5230 4 6 0 0 5269 4 18 0 1 2 0
3508 7 0 0 5230 4 6 0 0 5209 4 27 0 0 3515 4 1 1 2 1 0
3512 27 0 0 3514 4 6 0 0 4957 4 4 0 0 4921 4 2 0 0 5233 4
3516 6 0 0 5219 4 27 0 0 3523 4 1 1 2 2 0 27 0 0 3521 4
3520 6 0 0 4959 4 4 0 0 4917 4 7 0 0 5233 4
PROCEDURE 478
3523 6 0 0 5210 4
3524 27 0 0 3527 4 6 0 0 4959 4 7 0 0 5233 4 6 0 0 5218 4
3528 18 0 1 1 0 4 0 0 5216 4 18 0 1 1 0 4 0 0 5217 4
3532 18 0 1 1 0 4 0 0 5211 4 7 0 0 5233 4 6 0 0 5221 4
3536 27 0 0 3544 4 1 1 3 0 0 5 0 0 5233 4 27 0 0 3542 4
3540 2 0 0 5233 4 24 1 0 3544 4
PROCEDURE 479
3542 1 1 3 128 0 7 0 0 5230 4
3544 6 0 0 5223 4 2 0 0 5231 4 6 0 0 5220 4 27 0 0 3556 4
3548 7 0 0 5343 4 6 0 0 5343 4 1 1 2 2 0 27 0 1 3556 4
3552 1 1 2 1 0 2 0 0 5343 4 6 0 0 4957 4 7 0 0 5231 4
3556 6 0 0 5221 4 27 0 0 1430 4 2 0 0 5343 4 2 0 0 5343 4
3560 24 1 0 1430 4
PROCEDURE 480
3561 26 0 0 967 4 24 0 3 7366 4 6 1 0 9 0
3564 26 0 0 4737 4 2 1 0 5214 4 24 0 3 7366 4 6 1 0 7 0
3568 26 0 0 4737 4 3 1 0 5213 4 0 0 2 5214 4 27 1 0 3591 4
3572 1 1 2 100 0 27 0 3 3576 4 6 0 0 5200 4 7 1 0 5214 4
3576 6 1 0 4796 4 3 1 0 5260 4 2 1 0 5262 4 6 1 0 5213 4
3580 2 0 0 5232 4 6 1 0 5214 4 2 0 0 5233 4 2 0 0 5230 4
3584 26 0 0 4316 4 6 1 0 5512 4 24 1 2 17 4 2 1 0 8 0
3588 6 1 0 5514 4 24 1 2 17 4 2 1 0 10 0 26 1 3 5178 4
3592 6 1 3 5519 4 27 0 3 3619 4 2 0 0 5232 4 6 1 3 5517 4
3596 2 0 0 5233 4 24 0 2 5086 4 0 1 0 5102 4 0 0 3 0 4
3600 24 1 2 17 4 24 0 2 0 0 24 0 3 0 4 4 0 0 6 22
3604 2 0 0 5108 4 0 1 1 5102 4 24 0 3 5108 4 28 1 2 12 0
3608 26 0 0 4332 4 25 0 3 4 0 24 1 0 3592 4 6 0 0 5512 4
3612 24 1 2 17 4 2 0 0 8 0 6 0 0 5514 4 24 1 2 17 4
3616 2 0 0 10 0 26 0 0 4134 4 24 1 0 979 4 1 1 3 85 0
3620 24 1 2 17 4 2 1 3 14 0 24 1 2 17 4 2 1 3 12 0
3624 24 1 0 3617 4
PROCEDURE 481
3625 0 0 0 0 0 26 1 3 5246 4 6 0 0 5239 4
3628 2 1 0 5212 4 1 1 3 1 0 2 1 0 5216 4 26 0 0 3634 4
3632 7 0 0 5247 4 26 0 1 3625 4
PROCEDURE 482
3634 0 0 0 0 0 25 0 3 0 0
3636 24 1 0 3638 4 24 1 0 3646 4 6 0 0 5287 4 5 0 3 111 4
3640 27 0 1 3644 4 6 1 3 110 4 5 1 0 5286 4 27 0 0 3649 4
3644 25 0 3 2 0 24 1 0 3638 4 6 1 0 5286 4 2 1 3 110 4
3648 1 1 3 2 0 2 0 0 4737 4 24 0 3 0 4 6 0 0 6 22
3652 1 1 2 180 0 27 0 3 3657 4 18 0 3 3 0 18 0 1 4127 0
3656 24 1 0 3658 4 1 1 1 180 0 2 1 0 5214 4 6 0 0 5237 4
3660 2 0 0 5268 4 2 1 0 5218 4 26 0 0 4676 4 26 0 0 4332 4
3664 6 0 0 4737 4 26 0 1 3634 4
PROCEDURE 483
3666 0 0 0 0 0 26 1 3 5248 4
3668 6 0 0 5249 4 27 0 0 3675 4 6 1 0 5286 4 5 0 3 50 4
3672 27 0 0 3682 4 25 0 3 1 0 24 1 0 3670 4 6 1 0 5286 4
3676 2 0 3 50 4 6 0 0 5249 4 2 1 0 5214 4 1 1 3 1 0
3680 7 0 0 5249 4 24 1 0 3685 4 24 0 3 0 4 6 0 0 6 22
3684 2 1 0 5214 4 6 0 0 5240 4 2 1 0 5212 4 2 1 0 5216 4
3688 2 1 0 5218 4 6 0 0 5237 4 2 0 0 5268 4 26 0 0 4676 4
3692 26 0 0 4332 4 26 0 1 3666 4
PROCEDURE 484
3694 0 0 0 0 0 2 0 0 5234 4
3696 6 1 0 5212 4 2 0 0 5269 4 26 0 0 3717 4 3 0 0 5286 4
3700 1 1 2 1 0 7 0 0 5286 4 6 1 0 5262 4 2 0 0 5287 4
3704 6 0 0 5269 4 18 0 1 2 0 7 0 0 5286 4 26 0 0 3709 4
3708 26 0 1 3694 4
PROCEDURE 485
3709 0 0 0 0 0 26 1 3 5250 4 6 0 0 5241 4
3712 2 1 0 5212 4 2 1 0 5216 4 26 0 0 3634 4 7 0 0 5251 4
3716 26 0 1 3709 4
PROCEDURE 486
3717 0 0 0 0 0 6 0 0 5269 4 27 0 0 3733 4
3720 1 1 2 100 0 27 0 2 3734 4 1 0 1 1 0 1 1 3 0 0
3724 24 0 0 5269 4 15 0 0 5550 4 2 0 0 5252 4 0 0 2 4959 4
3728 24 0 0 5269 4 15 0 0 5550 4 1 0 1 1 0 24 0 0 5252 4
3732 15 0 0 5979 4 26 0 1 3717 4
PROCEDURE 487
3734 1 1 2 899 0 27 0 3 3740 4
3736 27 0 1 3742 4 2 0 0 5269 4 6 0 0 5285 4 26 0 1 3717 4
3740 1 1 1 999 0 18 0 1 2 0 1 0 0 5980 4 18 1 1 10 0
3744 5 0 0 4910 4 2 0 0 5252 4 24 1 0 3730 4
PROCEDURE 488
3747 0 0 0 0 0
3748 26 1 3 6010 4 1 0 1 1031 0 1 1 3 0 0 15 0 3 6012 4
3752 5 0 0 5212 4 27 0 0 3756 4 25 0 3 2 0 24 1 0 3750 4
3756 6 0 3 6012 4 18 0 1 4125 0 26 0 1 3747 4
PROCEDURE 489
3759 0 0 0 0 0
3760 6 0 0 5222 4 27 0 1 3846 4 6 0 0 5212 4 1 1 2 1000 0
3764 27 0 2 3868 4 6 0 0 5212 4 27 0 0 3808 4 2 0 0 5269 4
3768 26 0 0 3717 4 18 1 1 4127 0 27 0 1 3857 4 18 1 1 1 0
3772 3 0 0 5268 4 5 0 0 5285 4 27 0 1 3793 4
PROCEDURE 490
3775 6 0 0 5236 4
3776 27 0 0 3790 4 1 1 2 4 0 27 0 2 3786 4 6 0 0 5235 4
3780 27 0 0 3790 4 6 0 0 4928 4 5 0 0 5275 4 5 0 0 5236 4
3784 26 0 0 938 4 24 1 0 3788 4 6 0 0 5009 4 26 0 0 4036 4
3788 1 1 3 0 0 2 0 0 5236 4 6 0 0 5237 4 2 0 0 5268 4
3792 26 0 1 3759 4
PROCEDURE 491
3793 26 0 0 3919 4 27 0 1 3801 4 6 0 0 5008 4
3796 5 0 0 5268 4 5 0 0 5268 4 1 1 1 1 0 26 0 0 938 4
3800 24 1 0 3791 4 26 0 0 4086 4 6 0 0 4916 4 4 0 0 5268 4
3804 4 0 0 5268 4 1 1 2 1 0 26 0 0 938 4 24 1 0 3889 4
PROCEDURE 492
3808 6 0 0 5236 4 27 0 0 3844 4 1 1 2 4 0 27 0 2 3831 4
3812 6 0 0 5235 4 27 0 0 3842 4 6 1 0 5214 4 27 0 3 3821 4
3816 6 0 0 4927 4 5 0 0 5275 4 5 0 0 5236 4 26 0 0 938 4
3820 24 1 0 3835 4 26 0 0 4086 4 26 0 0 4032 4 6 0 0 4916 4
3824 4 0 0 5236 4 4 0 0 5236 4 2 0 0 5233 4 6 0 0 5275 4
3828 2 0 0 5232 4 26 0 0 4332 4 24 1 0 3840 4 6 1 0 5214 4
3832 27 0 3 3837 4 6 0 0 5008 4 26 0 0 4036 4 2 0 0 5236 4
3836 24 1 0 3916 4 26 0 0 4086 4 6 0 0 4916 4 26 0 0 4036 4
3840 2 0 0 5236 4 24 1 0 3889 4 6 1 0 5214 4 27 0 3 3821 4
3844 26 0 0 4032 4 24 1 0 3916 4
PROCEDURE 493
3846 26 0 0 3919 4 27 0 1 3850 4
3848 6 1 0 5214 4 27 0 2 3854 4 26 0 0 4086 4 6 0 0 4916 4
3852 26 0 0 3985 4 24 1 0 3889 4 6 0 0 5008 4 26 0 0 3985 4
3856 24 1 0 3916 4
PROCEDURE 494
3857 26 0 0 3919 4 27 0 1 3861 4 6 1 0 5214 4
3860 27 0 2 3866 4 26 0 0 4086 4 26 0 0 3963 4 6 0 0 4974 4
3864 26 0 0 963 4 24 1 0 3889 4 26 0 0 3963 4 24 1 0 3916 4
PROCEDURE 495
3868 26 0 0 3919 4 27 0 1 3872 4 6 1 0 5214 4 27 0 2 3882 4
3872 26 0 0 4086 4 26 0 0 4004 4 6 0 0 4927 4 5 0 0 5212 4
3876 1 1 1 1000 0 26 0 0 963 4 6 0 0 4974 4 26 0 0 963 4
3880 2 1 0 5212 4 24 1 0 3889 4 26 0 0 4004 4 6 0 0 4927 4
3884 5 0 0 5212 4 1 1 1 1000 0 26 0 0 963 4 2 1 0 5212 4
3888 24 1 0 3916 4
PROCEDURE 496
3889 6 0 0 5236 4 27 0 0 3904 4 1 1 2 4 0
3892 27 0 2 3902 4 26 0 0 4032 4 6 0 0 4917 4 4 0 0 5236 4
3896 4 0 0 5236 4 2 0 0 5233 4 6 0 0 5275 4 2 0 0 5232 4
3900 26 0 0 4332 4 24 1 0 3904 4 6 0 0 4917 4 26 0 0 4036 4
3904 6 1 0 5214 4 27 0 2 3909 4 6 0 0 5214 4 4 0 0 4932 4
3908 26 0 0 963 4 2 1 0 5214 4 2 0 0 5236 4 6 0 0 5022 4
3912 26 0 0 972 4 26 0 0 1942 4 6 0 0 5023 4 26 0 0 972 4
3916 1 1 3 0 0 2 0 0 5268 4 26 0 1 3759 4
PROCEDURE 497
3919 0 0 0 0 0
3920 6 0 0 5236 4 27 0 0 3925 4 1 1 2 4 0 27 0 2 3926 4
3924 6 0 0 5235 4 26 0 1 3919 4 1 1 3 1 0 26 0 1 3919 4
PROCEDURE 498
3928 0 0 0 0 0 27 0 3 3933 4 4 0 0 5277 4 5 0 0 5245 4
3932 24 1 0 3935 4 5 0 0 5277 4 4 0 0 5245 4 2 0 0 5233 4
3936 6 0 0 5244 4 18 0 1 2 0 4 0 0 5237 4 2 0 0 5232 4
3940 26 0 0 4332 4 26 0 1 3928 4
PROCEDURE 499
3942 0 0 0 0 0 26 1 3 6008 4
3944 6 0 3 6013 4 27 0 0 3953 4 18 1 3 2 0 18 1 1 4126 0
3948 4 0 0 4935 4 5 0 0 5288 4 27 0 0 3955 4 25 0 3 2 0
3952 24 1 0 3944 4 1 1 3 93 0 26 0 0 3972 4 24 0 3 0 4
3956 6 0 0 6 22 18 0 3 3 0 18 0 1 4127 0 4 0 0 5999 4
3960 4 0 0 5999 4 1 1 1 1 0 26 0 1 3942 4
PROCEDURE 500
3963 0 0 0 0 0
3964 26 0 0 3747 4 1 1 1 1 0 5 0 0 4927 4 2 0 0 5233 4
3968 5 0 0 5233 4 26 0 0 938 4 2 0 0 5212 4 26 0 1 3963 4
PROCEDURE 501
3972 0 0 0 0 0 18 1 1 4126 0 4 1 0 4814 4 18 1 1 2 0
3976 24 1 2 15 4 2 1 0 46 0 6 0 0 5026 4 27 0 1 3983 4
3980 1 1 3 1 0 2 0 0 5007 4 26 0 0 4134 4 26 0 0 4647 4
3984 26 0 1 3972 4
PROCEDURE 502
3985 0 0 0 0 0 2 0 0 5292 4 26 1 3 6044 4
3988 6 0 0 6045 4 27 0 0 3997 4 1 0 1 3 0 1 1 3 0 0
3992 15 0 3 6046 4 5 1 0 5212 4 27 0 0 3999 4 25 0 3 1 0
3996 24 1 0 3991 4 1 1 3 76 0 26 0 0 3972 4 6 0 3 6046 4
4000 26 0 0 4054 4 2 0 0 5222 4 2 1 0 5212 4 26 0 1 3985 4
PROCEDURE 503
4004 0 0 0 0 0 6 0 0 5243 4 2 0 0 5269 4 26 0 0 3717 4
4008 3 0 0 5268 4 5 0 0 5285 4 27 0 0 4019 4 6 0 0 5268 4
4012 26 0 0 4023 4 6 0 0 5243 4 18 0 1 2 0 2 0 0 5232 4
4016 6 0 0 5008 4 26 0 0 963 4 26 0 1 4004 4 6 0 0 5243 4
4020 18 0 1 2 0 4 0 0 5237 4 24 1 0 4015 4
PROCEDURE 504
4023 0 0 0 0 0
4024 27 0 0 4029 4 2 0 0 5233 4 1 1 3 1 0 5 0 0 5233 4
4028 5 0 0 5233 4 4 0 0 5008 4 26 0 0 938 4 26 0 1 4023 4
PROCEDURE 505
4032 0 0 0 0 0 1 1 3 0 0 26 0 0 4023 4 26 0 1 4032 4
PROCEDURE 506
4036 0 0 0 0 0 2 0 0 5292 4 26 1 3 5386 4 25 0 3 0 0
4040 24 1 0 4042 4 24 1 0 4049 4 1 0 1 3 0 1 1 3 0 0
4044 15 0 3 5388 4 5 0 0 5236 4 27 0 0 4051 4 25 0 3 1 0
4048 24 1 0 4043 4 1 1 3 100 0 26 0 0 3972 4 6 0 3 5388 4
4052 26 0 0 4054 4 26 0 1 4036 4
PROCEDURE 507
4054 0 0 0 0 0 2 0 0 4004 4
4056 6 0 0 5292 4 27 0 0 4067 4 6 0 0 4004 4 18 0 1 4124 0
4060 5 0 0 5285 4 27 0 0 4065 4 4 0 0 5285 4 26 0 0 4023 4
4064 24 1 0 4072 4 6 0 0 5237 4 24 1 0 4072 4 6 0 0 4004 4
4068 18 0 1 4124 0 3 0 0 5232 4 4 0 0 5232 4 1 1 2 1 0
4072 2 0 0 5232 4 6 0 0 4004 4 18 1 1 4124 0 1 1 1 1001 0
4076 18 0 1 2 0 7 0 0 5232 4 1 1 3 0 0 18 1 1 2 0
4080 0 0 2 4902 4 15 0 0 5292 4 14 0 0 5292 4 6 0 0 5292 4
4084 26 0 0 963 4 26 0 1 4054 4
PROCEDURE 508
4086 0 0 0 0 0 6 0 0 5259 4
4088 27 0 0 4090 4 1 1 3 8 0 4 0 0 4937 4 26 0 0 972 4
4092 6 0 0 5259 4 27 0 1 4096 4 6 0 0 4936 4 26 0 0 938 4
4096 1 1 3 1 0 7 0 0 5259 4 26 0 1 4086 4
PROCEDURE 509
4099 0 0 0 0 0
4100 24 0 3 7366 4 6 1 0 1 0 2 0 0 4737 4 24 0 1 4737 4
4104 23 0 0 0 0 0 0 0 7366 3 24 1 0 4108 4 26 0 0 4749 4
4108 1 1 3 0 0 1 0 1 15 0 24 0 3 7366 4 15 1 0 2 0
4112 2 0 0 5007 4 24 0 3 7366 4 14 1 0 2 0 6 1 0 5180 4
4116 28 1 1 5506 4 24 0 3 7366 4 24 0 2 0 0 18 1 1 4123 0
4120 24 0 3 7366 4 6 1 0 1 0 18 1 1 5 0 28 1 1 5506 4
4124 26 0 1 4099 4
PROCEDURE 510
4125 0 0 0 0 0 24 1 2 19 4 6 1 0 4 0
4128 24 1 2 19 4 2 1 0 2 0 24 1 2 19 4 2 1 0 4 0
4132 26 0 0 4134 4 26 0 1 4125 4
PROCEDURE 511
4134 0 0 0 0 0 6 1 0 4882 4
4136 24 1 2 17 4 2 1 0 50 0 24 1 2 17 4 6 1 0 46 0
4140 26 0 0 4291 4 27 0 0 4147 4 24 1 2 17 4 6 1 0 48 0
4144 27 0 0 4195 4 26 0 0 4291 4 27 0 1 4165 4 23 0 0 0 0
4148 0 0 0 7364 3 24 1 0 4151 4 24 1 0 4193 4 24 1 2 17 4
4152 6 1 0 6 0 27 0 0 4193 4 18 0 1 4120 0 1 1 2 91 0
4156 27 0 0 4193 4 24 1 2 17 4 6 1 0 7 0 24 0 1 7364 4
4160 2 0 0 6246 4 23 0 0 1 0 0 0 0 7364 3 24 1 0 4193 4
4164 24 1 0 4193 4 24 1 2 17 4 6 1 0 32 0 5 1 0 5182 4
4168 27 0 1 4173 4 1 0 1 63 0 24 1 2 17 4 14 1 0 48 0
4172 24 1 0 4195 4 23 0 0 0 0 0 0 0 7362 3 24 1 0 4177 4
4176 24 1 0 4190 4 24 1 2 17 4 6 1 0 6 0 27 0 0 4190 4
4180 18 0 1 4120 0 1 1 2 91 0 27 0 0 4190 4 24 1 2 17 4
4184 6 1 0 7 0 24 0 1 7362 4 2 0 0 6256 4 23 0 0 1 0
4188 0 0 0 7362 3 24 1 0 4190 4 6 0 0 7343 4 1 1 1 1 0
4192 2 0 0 7343 4 1 1 3 1 0 2 0 0 5007 4 6 1 0 6202 4
4196 27 0 1 4202 4 6 0 0 5007 4 27 0 0 4208 4 6 0 0 5026 4
4200 27 0 1 4202 4 26 0 0 4210 4 6 0 0 5280 4 24 1 2 17 4
4204 2 1 0 1 0 26 0 0 4233 4 1 1 3 1 0 3 0 0 5280 4
4208 2 0 0 5026 4 26 0 1 4134 4
PROCEDURE 512
4210 0 0 0 0 0 6 1 0 16 4
4212 2 1 0 4878 4 6 0 0 8 4 2 0 0 16 4 5 0 0 8 4
4216 1 1 2 64 0 2 0 0 17 4 24 1 2 17 4 2 1 0 0 0
4220 6 0 0 6275 4 27 0 0 4226 4 6 1 0 5116 4 24 1 2 17 4
4224 28 1 1 0 0 24 1 0 4229 4 6 1 0 4882 4 24 1 2 17 4
4228 2 1 0 2 0 26 0 0 4233 4 6 1 0 4878 4 2 1 0 16 4
4232 26 0 1 4210 4
PROCEDURE 513
4233 0 0 0 0 0 6 0 0 6275 4 27 0 0 4252 4
4236 24 1 2 17 4 24 0 2 0 0 18 1 1 4123 0 1 1 3 50 0
4240 18 1 1 5 0 0 1 0 5102 4 0 0 3 0 4 24 1 2 13 4
4244 24 0 2 0 0 4 0 0 7358 4 2 0 0 5108 4 0 1 1 5102 4
4248 24 0 3 5108 4 28 1 1 4 0 26 0 0 4769 4 26 0 1 4233 4
4252 6 0 0 6274 4 1 1 2 9 0 27 0 0 4271 4 6 0 0 4959 4
4256 24 1 2 17 4 2 0 0 1 0 24 1 2 17 4 24 0 2 0 0
4260 24 1 2 13 4 29 0 1 0 0 1 1 3 4 0 18 0 1 5 0
4264 4 0 0 7 4 0 0 2 12 4 25 1 1 4096 0 24 0 3 0 4
4268 23 0 2 160 0 0 0 3 5191 4 26 0 1 4233 4 24 1 2 17 4
4272 24 0 2 0 0 18 1 1 4123 0 1 1 3 54 0 18 1 1 5 0
4276 24 1 2 13 4 28 1 1 0 0 1 1 3 9 0 24 1 0 4263 4
PROCEDURE 514
4280 0 0 0 0 0 0 1 0 5102 4 0 0 3 0 4 0 0 2 20 4
4284 6 1 0 5132 4 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4
4288 23 0 2 0 256 0 1 1 5102 4 26 0 1 4280 4
PROCEDURE 515
4291 0 0 0 0 0
4292 18 0 1 4126 0 18 0 1 2 0 1 1 1 93 0 5 1 0 4814 4
4296 27 0 1 4300 4 6 0 0 7342 4 1 1 1 1 0 2 0 0 7342 4
4300 26 0 1 4291 4
PROCEDURE 516
4301 0 0 0 0 0 26 1 2 5278 4 6 1 0 5260 4
4304 4 1 0 4804 4 24 1 2 21 4 2 1 2 4 0 6 1 0 5262 4
4308 24 1 2 21 4 2 1 2 6 0 6 0 0 5277 4 24 1 2 21 4
4312 2 1 2 9 0 24 1 2 21 4 2 1 2 10 0 24 1 0 4350 4
PROCEDURE 517
4316 0 0 0 0 0 26 1 2 5278 4 6 1 0 5260 4 24 1 2 21 4
4320 2 1 2 4 0 6 1 0 5262 4 24 1 2 21 4 2 1 2 6 0
4324 6 0 0 5232 4 24 1 2 21 4 2 1 2 9 0 6 0 0 5233 4
4328 24 1 2 21 4 2 1 2 11 0 6 0 0 4316 4 24 1 0 4349 4
PROCEDURE 518
4332 0 0 0 0 0 6 0 0 5276 4 7 0 0 5277 4 26 1 2 5278 4
4336 6 0 0 5230 4 24 1 2 21 4 2 1 2 5 0 6 0 0 5231 4
4340 24 1 2 21 4 2 1 2 7 0 6 0 0 5232 4 24 1 2 21 4
4344 2 1 2 9 0 6 0 0 5233 4 24 1 2 21 4 2 1 2 11 0
4348 6 0 0 4332 4 2 0 0 4301 4
PROCEDURE 519
4350 25 0 2 8 0 24 1 0 4357 4
4352 6 1 0 4882 4 24 1 2 21 4 2 1 2 4 0 26 0 0 4280 4
4356 26 1 2 5184 4 24 0 3 0 4 6 1 0 4 22 2 1 0 5278 4
4360 2 0 0 5231 4 2 1 0 5232 4 26 0 1 4301 4
PROCEDURE 520
4363 0 0 0 0 0
4364 6 0 0 5278 4 27 0 0 4370 4 26 1 2 5278 4 6 0 0 4363 4
4368 2 0 0 4301 4 24 1 0 4352 4 26 0 1 4363 4
PROCEDURE 521
4371 0 0 0 0 0
4372 26 0 0 4099 4 1 1 3 1 0 2 0 0 5333 4 26 0 0 4377 4
4376 26 0 1 4371 4
PROCEDURE 522
4377 0 0 0 0 0 6 0 0 5333 4 27 0 1 4386 4
4380 26 0 0 4707 4 26 0 0 4099 4 24 0 3 7366 4 6 1 0 6 0
4384 5 1 0 4812 4 27 0 1 980 4 24 0 2 5038 4 28 0 2 5508 4
4388 24 0 2 5038 4 24 1 2 17 4 28 1 2 2 0 6 1 0 5526 4
4392 24 1 2 17 4 2 1 0 28 0 6 1 0 5528 4 24 1 2 17 4
4396 2 1 0 48 0 24 0 2 5530 4 18 1 1 4123 0 1 1 3 16 0
4400 18 1 1 5 0 24 1 2 17 4 28 1 1 32 0 6 1 0 5210 4
4404 5 1 0 4812 4 27 0 0 4512 4 1 1 3 0 0 2 1 0 5254 4
4408 25 0 1 0 0 24 1 0 4411 4 24 1 0 4453 4 24 0 3 0 4
4412 6 0 1 1 0 5 1 0 5208 4 27 0 0 4446 4 27 0 2 4453 4
4416 6 1 0 4814 4 2 1 0 5254 4 26 0 0 4421 4 26 0 0 4632 4
4420 24 1 0 4406 4
PROCEDURE 523
4421 0 0 0 0 0 24 0 3 0 4 6 0 1 0 0
4424 3 0 0 5234 4 24 0 3 0 4 2 0 1 1 0 6 1 0 5254 4
4428 27 0 1 4437 4 1 0 1 3 0 15 0 0 5208 4 1 1 2 2 0
4432 27 0 1 4437 4 24 0 3 0 4 6 0 0 2 22 26 0 0 2384 4
4436 24 1 0 4443 4 6 0 0 5244 4 18 0 3 10 0 4 0 0 5277 4
4440 5 0 0 5245 4 24 0 3 0 4 2 0 1 0 0 25 0 1 2 0
4444 24 1 0 4445 4 26 0 1 4421 4
PROCEDURE 524
4446 26 0 0 4421 4 24 0 3 0 4
4448 6 0 1 1 0 5 0 0 5208 4 27 0 1 4495 4 26 0 0 4632 4
4452 24 1 0 4446 4
PROCEDURE 525
4453 6 0 0 5351 4 27 0 0 4512 4 6 0 0 330 4
4456 27 0 0 4512 4 5 1 0 5208 4 27 0 0 4462 4 27 0 2 4512 4
4460 6 1 0 4814 4 2 1 0 5254 4 6 0 0 332 4 18 0 1 6 0
4464 18 0 1 4127 0 27 0 0 4471 4 24 0 3 0 4 5 1 0 2 22
4468 27 0 2 4471 4 1 1 3 121 0 26 0 0 3972 4 6 0 0 331 4
4472 2 0 0 5234 4 6 0 0 332 4 27 0 0 4484 4 18 0 1 4124 0
4476 2 0 0 4421 4 6 0 0 5277 4 5 0 0 5245 4 0 0 2 4906 4
4480 24 0 1 4421 4 18 1 3 0 0 24 0 3 332 4 14 0 0 0 0
4484 6 0 0 5351 4 1 1 2 3 0 3 0 0 5351 4 27 0 1 4490 4
4488 2 0 0 330 4 24 1 0 4493 4 24 0 2 333 4 4 1 0 5350 4
4492 28 0 0 330 4 6 1 0 5254 4 27 0 1 4419 4 6 0 0 5351 4
4496 27 0 0 4509 4 6 0 0 5208 4 5 0 0 330 4 27 0 0 4507 4
4500 27 0 3 4509 4 6 0 0 5234 4 27 0 0 4504 4 26 0 0 4632 4
4504 6 1 0 4814 4 2 1 0 5254 4 24 1 0 4462 4 26 0 0 4632 4
4508 24 1 0 4462 4 24 0 2 5096 4 24 1 2 17 4 28 1 2 2 0
PROCEDURE 526
4512 1 1 3 0 0 0 1 2 5212 4 26 0 0 4698 4 2 1 0 5212 4
4516 2 0 0 5222 4 1 0 1 1 0 15 1 0 5214 4 1 1 2 12 0
4520 27 0 1 4528 4 1 1 3 1 0 2 0 0 5222 4 6 1 0 5214 4
4524 18 0 1 4127 0 27 0 2 4527 4 1 1 1 1 0 2 1 0 5214 4
PROCEDURE 527
4528 6 1 0 5544 4 5 1 0 4814 4 3 1 0 5332 4 27 0 0 4557 4
4532 6 1 0 5530 4 5 1 0 5186 4 27 0 1 4557 4 6 1 0 5210 4
4536 5 1 0 4812 4 27 0 0 4626 4 6 0 0 5211 4 5 0 0 5205 4
4540 27 0 0 4626 4 1 1 2 336 0 27 0 0 4626 4 1 1 2 4080 0
4544 27 0 0 4626 4 1 1 2 48 0 27 0 0 4626 4 6 0 0 6204 4
4548 1 1 2 40 0 27 0 2 4626 4 6 0 0 5277 4 18 0 1 5 0
4552 4 0 0 5208 4 24 0 1 6204 4 2 1 0 6206 4 1 1 3 2 0
4556 7 0 0 6204 4 26 0 0 4134 4 6 1 0 5213 4 1 1 2 256 0
4560 27 0 3 4567 4 1 1 2 2201 0 27 0 2 4567 4 0 0 3 5202 4
4564 6 0 0 5200 4 7 1 0 5214 4 0 0 3 5191 4 6 1 0 5210 4
4568 5 1 0 4812 4 27 0 0 4583 4 0 1 2 5210 4 26 0 0 4698 4
4572 2 1 0 5210 4 6 1 0 5211 4 18 1 1 4127 0 2 0 0 5344 4
4576 18 1 1 1 0 1 1 1 1 0 2 0 0 5284 4
PROCEDURE 528
4579 6 0 0 5344 4
4580 26 0 0 4737 4 1 1 1 1 0 2 0 0 5344 4 6 1 0 5332 4
4584 27 0 1 4587 4 2 0 0 5344 4 24 1 0 979 4 24 0 2 4858 4
4588 12 1 0 5214 4 2 1 0 5214 4 24 0 2 4858 4 12 1 0 5218 4
4592 2 1 0 5218 4 6 0 0 5344 4 1 1 2 2 0 27 0 0 4621 4
4596 1 1 2 3 0 27 0 0 4624 4 1 1 2 2 0 27 0 0 4621 4
4600 1 1 2 1 0 27 0 0 4621 4 1 1 2 3 0 27 0 3 4618 4
4604 1 1 2 3 0 27 0 3 4621 4 27 0 0 4613 4 1 1 2 1 0
4608 27 0 0 4621 4 6 0 0 5284 4 1 1 2 7 0 27 0 0 4624 4
4612 24 1 0 4621 4 6 0 0 5284 4 1 1 2 3 0 27 0 3 4621 4
4616 1 1 3 0 0 24 1 0 4624 4 24 0 2 4858 4 12 1 0 5220 4
4620 2 1 0 5220 4 24 0 2 4858 4 12 1 0 5213 4 2 1 0 5212 4
4624 2 0 0 5333 4 26 0 1 4377 4 1 1 3 101 0 1 0 1 24 0
4628 18 0 1 3 0 24 1 2 17 4 14 0 0 49 0 24 1 0 4557 4
PROCEDURE 529
4632 0 0 0 0 0 6 1 0 5254 4 27 0 1 4637 4 6 1 0 6202 4
4636 27 0 0 4644 4 24 0 2 5090 4 24 1 2 15 4 28 1 2 2 0
4640 6 1 0 5254 4 24 1 2 15 4 2 1 0 46 0 26 0 0 4647 4
4644 1 1 3 0 0 2 0 0 5234 4 26 0 1 4632 4
PROCEDURE 530
4647 0 0 0 0 0
4648 6 1 0 4882 4 24 1 2 15 4 2 1 0 50 0 6 1 0 14 4
4652 2 1 0 16 4 26 0 0 4134 4 6 1 0 30 4 2 1 0 16 4
4656 6 1 0 5160 4 24 1 2 15 4 28 1 1 2 0 26 0 1 4647 4
PROCEDURE 531
4660 0 0 0 0 0 1 1 3 0 0 5 1 0 5214 4 27 0 0 4675 4
4664 27 0 3 4675 4 2 1 0 5214 4 1 1 3 128 0 7 0 0 5268 4
4668 6 1 0 5216 4 1 1 2 2 0 27 0 1 4675 4 1 1 2 1 0
4672 7 1 0 5214 4 1 1 3 1 0 2 1 0 5216 4 26 0 1 4660 4
PROCEDURE 532
4676 0 0 0 0 0 6 0 0 5234 4 2 0 0 5233 4 6 1 0 5212 4
4680 18 0 1 2 0 4 0 0 5268 4 2 0 0 5232 4 6 1 0 5216 4
4684 27 0 0 4690 4 1 1 2 2 0 27 0 1 4689 4 1 1 3 1 0
4688 7 1 0 5214 4 6 0 0 4937 4 24 0 1 5218 4 4 0 0 4933 4
4692 4 0 0 5214 4 1 0 1 15 0 15 0 0 5233 4 14 0 0 5233 4
4696 1 1 3 0 0 26 0 1 4676 4
PROCEDURE 533
4698 0 0 0 0 0 1 1 3 0 0
4700 2 1 0 5252 4 6 1 0 5252 4 18 1 1 2 0 2 1 0 5252 4
4704 27 1 1 4701 4 6 1 0 5252 4 26 0 1 4698 4
PROCEDURE 534
4707 0 0 0 0 0
4708 24 0 2 5212 4 18 1 1 4123 0 1 1 3 8 0 18 1 1 5 0
4712 28 1 1 5260 4 6 0 0 5222 4 2 0 0 5223 4 26 0 1 4707 4
PROCEDURE 535
4716 0 0 0 0 0 24 0 2 5260 4 18 1 1 4123 0 1 1 3 8 0
4720 18 1 1 5 0 28 1 1 5212 4 6 0 0 5223 4 2 0 0 5222 4
4724 26 0 1 4716 4
PROCEDURE 536
4725 0 0 0 0 0 6 1 0 5218 4 2 0 0 5236 4
4728 26 0 0 3759 4 6 0 0 5236 4 2 1 0 5218 4 6 1 0 5214 4
4732 27 0 2 4734 4 26 0 0 4660 4 26 0 0 4676 4 26 0 0 4332 4
4736 26 0 1 4725 4
PROCEDURE 537
4737 0 0 0 0 0 2 1 0 4878 4 0 0 3 5191 4
4740 24 0 2 4858 4 12 1 0 4878 4 26 0 1 4737 4
PROCEDURE 538
4743 0 0 0 0 0
4744 2 1 0 4878 4 0 0 3 5202 4 24 0 2 4838 4 12 1 0 4878 4
4748 26 0 1 4743 4
PROCEDURE 539
4749 0 0 0 0 0 0 1 0 5102 4 0 0 3 0 4
4752 0 0 2 18 4 6 1 0 5188 4 4 0 0 10 4 25 1 1 4096 0
4756 24 0 3 0 4 23 0 2 0 256 0 1 1 5102 4 0 1 0 5102 4
4760 0 0 3 0 4 24 1 2 19 4 24 0 2 6 0 3 0 0 7366 4
4764 24 1 2 19 4 4 1 0 5 0 2 0 0 7367 4 0 1 1 5102 4
4768 26 0 1 4749 4
PROCEDURE 540
4769 0 0 0 0 0 23 0 0 50 0 0 0 0 7358 3
4772 24 1 0 4779 4 6 1 0 4882 4 24 1 2 13 4 2 1 0 306 0
4776 26 0 0 4780 4 6 1 0 5142 4 2 1 0 7358 4 26 0 1 4769 4
PROCEDURE 541
4780 0 0 0 0 0 6 1 0 5132 4 0 0 2 12 4 25 1 1 4096 0
4784 4 0 0 7 4 24 0 3 0 4 23 0 2 160 0 26 0 1 4780 4
SECTION 542
4788 37455 0 75516 0 26355 0 73515 0
4792 57273 0 53666 0 65369 0 67696 0
4796 35572 0 65667 0 40000 0 55655 0
4800 46772 0 54746 0 35572 0 56596 0
4804 75500 0 73786 0 56554 0 56595 0
4808 0 0 6+000 0 7554. 0 73786 0
4812 0 0 53000 0 :5:5: 0 5:5:5 0
4816 7554£ 0 73786 0 1 0 0 0
4820 2 0 0 0 4 0 0 0
4824 8 0 0 0 10 0 0 0
4828 20 0 0 0 40 0 0 0
4832 80 0 0 0 100 0 0 0
4836 200 0 0 0
SECTION 543
4838 1 0 0 0
4840 16 0 0 0 256 0 0 0
4844 4096 0 0 0 65536 0 0 0
4848 48576 0 10 0 77216 0 167 0
4852 35456 0 2684 0 67296 0 42949 0
4856 £££££ 0 £££££ 0 1 0 0 0
4860 Ю 0 0 0 64 0 0 0
4864 3.8 0 0 0 2710 0 0 0
4868 186Ю0 0 0 0 £4240 0 0 0
4872 89680 0 9 0 5.100 0 5£ 0
4876 Ю+Ю00 0 3‼9 0 0 0 0 0
4880 0 0 0 0
SECTION 544
4882 7. 0 7.000 0
4884 0 0 90 0 1 0 45 0
4888 45 0 44 0 4 0 4 0
4892 2 0 6. 3 32 3 6. 3
4896 Ю0: 1 4Ю 1 ‼4 0 ‼4 0
4900 3 0 7£££0 0 1£££ 0 66666 0
4904 66.64 0 66666 0 3££ 0 1000 0
4908 3£ 0 0 0
SECTION 545
4910 175‼ 3 Ю8006 0
4912 +8006 0 7 0 £££££ 0 £££££ 0
4916 60000 0 40000 0 50000 0 30000 0
4920 70000 0 20000 0 90000 0 Ю0000 0
4924 ‼0000 0 :0000 0 2Ю001- 0 8+000- 0
4928 80000- 0 Ю000 0 1.000 0 1Ю000 0
4932 1+000 0 0 0 2000 0 4000 0
4936 6000 0 8000 0 28000 0 38000 0
4940 22000- 0 26000- 0 2Ю000- 0 2.000- 0
4944 12000 0 £0000 0 .0000 0 14000 0
4948 ‼0000- 0 ‼2000- 0 ‼4000- 0 ‼6000- 0
4952 ‼8000- 0 ‼Ю000- 0 88000- 0 Ю0000- 0
4956 Ю2000- 0 10000 0 2Ю00Ю- 0 80000 0
4960 88000 0 1.001 0 48000 0 2Ю005- 0
4964 Ю8000- 0 68000 0 +0000 0 90000- 0
4968 74000- 0 70000- 0 2‼016- 0 Ю4000- 0
4972 2‼017- 0 +0000- 0 84000- 0 :2000- 0
4976 +4000- 0 +6000- 0 ++000- 0 +.000- 0
4980 2‼01‼- 0 9‼000- 0 Ю0Ю 1 1 0
4984 £0000- 0 £8000- 0 .8000- 0 .0008- 0
4988 .0000- 0 £0008- 0 40000- 0 48000- 0
4992 58000- 0 40008- 0 50000- 0 60000- 0
4996 .0004- 0 £8004- 0 68000- 0 407+ 0
5000 400 0 6808Ю 0 500 0 409+ 0
5004 200 0 300 0 Ю6000- 0 0 0
SECTION 546
5008 86000- 0 82000- 0 28006 0 38006 0
5012 ‼8002- 0 1Ю002 0 22005- 0 6004 0
5016 20001 0 88001- 0 ‼4002- 0 88007- 0
5020 Ю5££‼- 0 Ю1££Ю- 0 20006 0 86006- 0
5024 74002- 0 0 0 0 0 8+006- 0
5028 1Ю00Ю 0 30002 0 1Ю014 0 4002 0
5032 88005- 0 :6000- 0 8000- 0 +Ю000- 0
5036 1.001 0 0 0
SECTION 547
SECTION 548
5038 0 5206 3 5 3 0 0 0 5 0
5040 0 5208 3 1365 2 0 5 5 5 0 0 5210 3 69 3 0 0 4 5 0
5044 0 5212 3 53 3 0 0 3 5 0 0 5214 3 17669 6 4 5 0 5 0
5048 0 5216 3 6162 2 1 8 1 2 0 0 5218 3 9987 2 2 7 0 3 0
5052 0 5220 3 36954 6 9 0 5 10 0 0 4880 3 5 3 0 0 0 5 1
SECTION 549
5056 0 5206 3 5 3 0 0 0 5 0 0 5208 3 85 0 0 0 5 5 0
5060 0 5222 3 16405 0 4 0 1 5 0 0 5223 3 16405 0 4 0 1 5 0
5064 0 5224 3 16405 0 4 0 1 5 0 0 5225 3 16405 0 4 0 1 5 0
5068 0 5209 3 4882 0 1 3 1 2 0 0 5210 3 8707 0 2 2 0 3 0
5072 0 5211 3 4898 0 1 3 2 2 0 0 5216 3 8723 0 2 2 1 3 0
5076 0 5217 3 4898 0 1 3 2 2 0 0 5218 3 8723 0 2 2 1 3 0
5080 0 5219 3 1057 0 0 4 2 1 0 0 5220 3 4882 0 1 3 1 2 0
5084 0 5221 3 4882 0 1 3 1 2 1
SECTION 550
5086 0 5233 3 16405 12 4 0 1 5 0
5088 0 5232 3 12548 0 3 1 0 4 1
SECTION 551
5090 0 5254 3 515 3 0 2 0 3 0
5092 0 5234 3 21 0 0 0 1 5 0 0 4808 3 1 3 0 0 0 1 1
5096 0 5206 3 3 3 0 0 0 3 0 0 5234 3 21 0 0 0 1 5 0
5100 0 4808 3 1 3 0 0 0 1 1
SECTION 552
SECTION 1021
5102 0 0 0 0
5104 0 0 0 0 0 0 0 0
5108 0 0 0 0 0 0 0 0
5112 0 0 0 0 0 0 0 0
5116 0 0 20032 0 0 0 2000. 0
5120 0 0 Ю 0 8000 0 5142 0
5124 0 0 11 0 0 0 20078 0
5128 0 0 20064 0 0 0 20022 0
5132 0 0 8 0 50000 0 56596 0
5136 0 0 12 0 96573 0 67695 0
5140 83041 0 4 0 0 0 12+ 0
5144 8000 0 5146 0 0 0 2+ 0
5148 0 0 30 0 0 0 6 0
5152 66955 0 72736 0 0 0 4 0
5156 0 0 20244 0 . 0 . 0
5160 0 0 20030 0 55972 0 56596 0
5164 0 0 21 0 0 0 20118 0
5168 0 0 20008 0 25 0 80000 0
5172 0 0 28 0 0 0 20006 0
5176 0 0 14 0 0 0 20 0
5180 0 0 2002+ 0 17171 0 71717 0
5184 0 0 90 0 15355 0 73695 0
5188 0 0 7 0
SECTION 1022
5190 2 0 0 0
5192 1 0 8000 0 10 0 32 0
5196 14 0 +4000- 0 38084 0 20084 0
5200 2- 0 10080 0 66666 0 1- 0
5204 2000- 0 48300 0
SECTION 1023
PROCEDURE 1005
CHAPT 6
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 553
33 0 1 0 4194 4 0 0 3 0 4 1 1 3 6 0
36 0 0 2 4266 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1024
40 0 1 1 4194 4 24 1 2 21 4 24 0 2 0 0 18 1 1 4123 0
44 1 1 3 100 0 18 1 1 5 0 28 1 1 5038 4 24 0 2 6008 4
48 18 1 1 4123 0 1 1 3 36 0 18 1 1 5 0 28 0 0 5138 4
52 6 0 0 6270 4 27 0 0 64 4 0 1 0 4194 4 0 0 3 0 4
56 0 1 2 4208 4 6 1 0 4210 4 4 0 0 11 4 25 1 1 4096 0
60 24 0 3 0 4 23 0 2 0 256 0 1 1 4194 4 24 1 0 73 4
64 0 1 0 4194 4 0 0 3 0 4 0 1 2 4212 4 6 1 0 4214 4
68 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
72 0 0 3 4198 4 6 1 0 4216 4 28 0 0 4998 4 6 1 0 4218 4
76 24 1 2 15 4 28 0 0 0 0 1 1 3 0 0 2 0 0 5406 4
80 24 0 2 5357 4 18 1 1 4123 0 1 1 3 14 0 18 1 1 5 0
84 28 0 0 5003 4 6 1 0 4220 4 28 0 0 5357 4 26 1 3 4222 4
88 6 0 0 5970 4 18 0 1 5 0 1 1 1 1 0 3 1 0 4194 4
92 26 1 1 4194 4 1 1 3 0 0 1 0 1 1 0 15 0 1 5979 4
96 2 0 0 5000 4 24 0 3 0 4 6 0 0 2 22 2 0 0 4999 4
100 1 1 3 16 0 18 1 1 4118 0 15 0 1 5979 4 18 1 1 4126 0
104 27 1 1 107 4 24 0 1 5000 4 6 0 0 5002 4 4 0 3 5372 4
108 2 0 0 5001 4 2 0 0 5002 4
PROCEDURE 554
110 26 0 0 206 4 6 0 0 5001 4
112 4 0 0 5002 4 24 0 1 5000 4 5 0 0 5356 4 27 0 3 118 4
116 24 0 1 5000 4 7 0 0 5356 4 25 0 3 1 0 24 1 0 120 4
120 25 0 1 1 0 24 1 0 93 4 26 1 1 5998 4 26 1 2 4222 4
124 1 1 3 16 0 18 1 1 4118 0 15 0 1 5980 4 27 0 0 132 4
128 6 0 1 5357 4 2 0 2 5372 4 6 0 1 5003 4 7 0 1 5357 4
132 25 0 2 1 0 24 1 0 134 4 25 0 1 1 0 24 1 0 124 4
136 6 0 0 5334 4 2 0 0 5001 4 2 0 0 4999 4 6 0 0 5999 4
140 2 0 0 5000 4 2 0 0 5002 4 26 0 0 206 4 6 0 0 5001 4
144 4 0 0 5002 4 2 0 1 5356 4 1 1 3 214 0 5 0 1 5356 4
148 27 0 3 150 4 7 0 1 5356 4 1 1 3 220 0 5 0 0 5357 4
152 27 0 3 154 4 7 0 0 5357 4 6 1 0 4216 4 28 0 0 4998 4
156 6 0 0 5999 4 1 1 2 7 0 27 0 3 160 4 1 1 3 0 0
160 1 1 1 7 0 2 0 0 5999 4 26 0 0 964 4 26 0 0 964 4
164 26 0 0 964 4 24 1 2 21 4 6 1 0 5 0 2 0 0 5000 4
168 24 1 2 21 4 6 1 0 7 0 2 0 0 5001 4 6 1 0 4220 4
172 28 0 0 4966 4 0 1 0 4194 4 0 0 3 0 4 0 1 2 4224 4
176 6 1 0 4226 4 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4
180 23 0 2 0 256 0 1 1 4194 4 0 1 0 4194 4 0 0 3 0 4
184 0 0 2 4267 4 6 1 0 4228 4 4 0 0 10 4 25 1 1 4096 0
188 24 0 3 0 4 23 0 2 0 256 0 1 1 4194 4 6 1 0 1264 4
192 24 1 2 19 4 2 1 0 4 0 6 1 0 1300 4 24 1 2 19 4
196 2 1 0 6 0 6 1 0 1265 4 24 1 2 19 4 2 1 0 9 0
200 1 1 3 3 0 24 1 2 19 4 2 1 0 10 0 26 0 0 1060 4
204 26 0 0 271 4 24 1 0 297 4
PROCEDURE 555
206 0 0 0 0 0 26 1 2 4230 4
208 6 0 2 5038 4 27 0 0 222 4 18 0 1 9 0 18 0 1 4119 0
212 5 0 0 4999 4 27 0 1 222 4 6 0 0 5001 4 7 0 2 5406 4
216 1 1 3 0 0 24 0 0 24 4 0 0 2 5038 4 15 0 0 1366 4
220 18 0 1 4127 0 7 0 0 5002 4 25 0 2 1 0 24 1 0 208 4
224 26 1 2 6008 4 6 0 0 6009 4 27 0 0 270 4 1 1 3 0 0
228 1 0 1 8 0 15 0 2 6012 4 18 0 1 4125 0 5 0 0 4999 4
232 27 0 1 268 4 0 0 2 1361 4 15 0 2 6013 4 1 1 2 3 0
236 27 0 0 242 4 1 1 2 1 0 27 0 0 242 4 1 1 2 15 0
240 27 0 1 259 4 24 1 0 268 4 6 0 2 6012 4 18 0 1 4124 0
244 4 0 0 6009 4 2 0 0 7356 4 1 0 1 7 0 15 0 2 6012 4
248 18 0 1 1 0 4 0 0 5000 4 24 0 1 7356 4 2 0 0 6013 4
252 15 0 2 6012 4 4 0 0 5001 4 4 0 0 5002 4 2 0 0 271 4
256 5 0 0 271 4 24 0 1 7356 4 2 0 0 6012 4 6 0 0 5000 4
260 18 0 1 4 0 4 0 0 5001 4 4 0 0 5002 4 2 0 2 6013 4
264 1 0 1 7 0 15 0 2 6012 4 18 0 3 1 0 7 0 0 5002 4
268 25 0 2 2 0 24 1 0 227 4 26 0 1 206 4
PROCEDURE 556
271 0 0 0 0 0
272 6 0 0 5000 4 24 1 2 19 4 3 1 0 5 0 24 1 2 19 4
276 2 1 0 13 0 6 0 0 5001 4 24 1 2 19 4 3 1 0 7 0
280 24 1 2 19 4 2 1 0 15 0 1 1 3 2 0 24 1 2 19 4
284 2 1 0 11 0 1 1 3 3 0 24 1 2 19 4 3 1 0 19 0
288 1 1 3 2 0 4 0 0 6278 4 24 1 2 19 4 2 1 0 17 0
292 6 1 0 1265 4 24 1 2 19 4 2 1 0 21 0 26 0 0 1060 4
296 26 0 1 271 4
PROCEDURE 557
297 6 1 0 4218 4 24 1 2 15 4 28 1 1 0 0
300 26 1 1 4232 4 26 0 0 999 4 25 0 1 1 0 24 1 0 301 4
304 6 0 0 6011 4 5 0 0 6010 4 18 0 3 3 0 18 0 1 4127 0
308 2 0 0 999 4 6 0 0 6010 4 18 0 3 3 0 18 0 1 4127 0
312 2 0 0 1060 4 1 1 3 128 0 2 0 0 1365 4 24 0 2 1470 4
316 24 1 2 15 4 28 1 2 0 0 6 0 0 6278 4 27 0 0 326 4
320 24 0 2 1308 4 18 1 1 4123 0 1 1 3 6 0 18 1 1 5 0
324 24 1 2 15 4 28 1 1 40 0 26 0 0 999 4 26 0 0 999 4
328 6 1 0 1265 4 24 1 2 19 4 2 1 0 5 0 1 1 3 85 0
332 24 1 2 19 4 2 1 0 7 0 6 0 0 5000 4 24 1 2 19 4
336 2 1 0 9 0 6 0 0 5001 4 24 1 2 19 4 2 1 0 11 0
340 6 1 0 1274 4 24 1 2 19 4 2 1 0 12 0 26 0 0 1060 4
344 24 0 2 3780 4 3 1 0 4194 4 26 1 3 4194 4 24 0 2 1698 4
348 3 1 0 4194 4 26 1 2 4194 4 24 0 2 4156 4 3 1 0 4194 4
352 26 1 1 4194 4 6 1 0 4234 4 2 1 0 7360 4 6 1 0 4236 4
356 2 1 0 7354 4 6 0 0 3780 4 18 0 3 2 0 2 0 0 1689 4
360 6 0 0 4156 4 18 0 3 2 0 2 0 0 1695 4 26 0 0 1568 4
364 26 0 0 1568 4 24 0 3 0 4 6 1 0 2 22 2 1 0 1470 4
368 24 0 3 0 4 6 1 0 4 22 2 1 0 1472 4 26 0 0 964 4
372 24 1 2 21 4 24 0 2 4 0 18 1 1 4123 0 1 1 3 10 0
376 18 1 1 5 0 28 1 1 4946 4 6 0 0 6011 4 5 0 0 6010 4
380 18 0 3 3 0 18 0 1 4127 0 2 1 0 4959 4 6 0 0 6010 4
384 18 0 3 3 0 18 0 1 4127 0 2 1 0 4957 4 1 1 3 0 0
388 3 1 0 4961 4 7 1 0 4957 4
PROCEDURE 558
390 24 0 2 4946 4 18 1 1 4123 0
392 1 1 3 16 0 18 1 1 5 0 24 1 2 19 4 28 1 1 4 0
396 2 0 0 5998 4 6 0 0 5976 4 24 1 2 19 4 2 1 0 21 0
400 6 0 0 5978 4 24 1 2 19 4 2 1 0 23 0 26 1 2 5998 4
404 26 1 1 4238 4 6 0 2 5357 4 27 0 1 409 4 6 1 0 1296 4
408 3 0 2 5357 4 24 1 2 19 4 2 1 1 25 0 1 1 3 32 0
412 18 1 1 4118 0 15 0 2 5980 4 27 0 0 420 4 1 1 3 0 0
416 24 1 2 19 4 5 1 1 25 0 24 1 2 19 4 2 1 1 25 0
420 25 0 1 2 0 24 1 0 422 4 25 0 2 1 0 24 1 0 405 4
424 6 0 0 5000 4 24 1 2 19 4 2 1 0 39 0 6 0 0 5001 4
428 24 1 2 19 4 2 1 0 41 0 6 1 0 4240 4 24 1 2 19 4
432 2 1 0 42 0 6 1 0 5138 4 27 0 0 493 4 26 1 1 5138 4
436 26 1 2 4242 4 1 1 3 0 0 0 0 2 1361 4 15 0 1 5143 4
440 1 1 2 19 0 27 0 1 491 4 6 0 1 5142 4 18 1 1 4124 0
444 4 0 0 5139 4 2 0 0 1060 4 1 0 1 8 0 24 0 1 1060 4
448 15 0 0 5142 4 27 0 0 457 4 18 0 1 4125 0 5 0 0 5999 4
452 27 0 0 456 4 27 0 3 456 4 1 1 3 0 0 24 1 0 457 4
456 4 0 0 5999 4 2 0 0 999 4 15 0 1 5142 4 18 0 1 4125 0
460 27 0 0 467 4 5 0 0 5999 4 27 0 0 466 4 27 0 3 466 4
464 1 1 3 0 0 24 1 0 467 4 4 0 0 5999 4 2 0 0 1568 4
468 1 0 1 7 0 15 0 1 5142 4 18 1 1 4125 0 6 0 0 1568 4
472 18 0 3 3 0 4 0 0 999 4 18 1 3 13 0 24 1 2 19 4
476 2 1 2 45 0 1 0 1 7 0 24 0 1 1060 4 15 0 0 5142 4
480 1 1 1 2 0 18 1 1 4125 0 6 0 0 1568 4 18 0 3 3 0
484 4 0 0 999 4 18 1 3 13 0 24 1 2 19 4 2 1 2 47 0
488 25 0 2 4 0 24 1 0 491 4 24 1 0 493 4 25 0 1 2 0
492 24 1 0 437 4 26 0 0 1060 4
PROCEDURE 559
494 26 1 1 1470 4 26 1 2 1472 4
496 26 0 0 1568 4 24 0 3 0 4 6 1 0 2 22 2 1 0 1470 4
500 24 0 3 0 4 6 1 0 4 22 2 1 0 1472 4 26 1 2 4244 4
504 6 1 2 4947 4 27 0 0 508 4 6 1 0 1208 4 24 1 0 509 4
508 6 1 0 1210 4 2 1 2 4966 4 25 0 2 2 0 24 1 0 504 4
512 6 0 0 5976 4 26 0 0 1077 4 2 0 0 5976 4 0 0 3 4268 4
516 24 0 2 1444 4 24 1 2 15 4 28 1 2 2 0 26 0 0 999 4
520 26 0 0 999 4 6 1 0 4955 4 2 1 0 4968 4
PROCEDURE 560
523 6 1 0 4957 4
524 2 0 0 5006 4 6 1 0 4955 4 2 0 0 5007 4 6 1 0 4220 4
528 28 0 0 4966 4 26 1 2 5998 4 1 1 3 32 0 18 1 1 4118 0
532 15 0 2 5980 4 27 0 0 537 4 1 1 3 0 0 5 0 2 5357 4
536 24 1 0 538 4 6 0 2 5357 4 26 0 0 1077 4 2 0 2 4966 4
540 0 0 3 4268 4 6 0 2 5357 4 5 0 0 4269 4 27 0 3 546 4
544 1 1 3 1 0 3 0 0 4976 4 25 0 2 1 0 24 1 0 530 4
548 6 0 2 4965 4 2 1 0 1316 4 6 0 0 1316 4 1 1 2 1286 0
552 27 0 2 557 4 1 1 3 1286 0 2 0 0 1316 4 6 1 0 1316 4
556 2 0 2 4965 4 6 0 0 4976 4 27 0 0 570 4 6 0 0 7342 4
560 1 1 1 1 0 2 0 0 7342 4 6 1 0 4246 4 26 1 2 4232 4
564 24 1 2 15 4 3 1 2 40 0 25 0 2 2 0 24 1 0 564 4
568 1 1 3 1 0 24 1 0 571 4 1 1 3 0 0 2 0 0 6271 4
572 24 0 2 1416 4 24 1 2 15 4 28 1 2 2 0 26 0 0 999 4
576 26 0 0 999 4 24 0 2 1394 4 24 1 2 15 4 28 1 2 2 0
580 26 0 0 999 4 6 1 0 4248 4 28 0 0 4966 4
PROCEDURE 561
583 6 1 0 6008 4
584 27 0 0 711 4 2 1 0 7356 4 26 1 1 4250 4 26 0 0 964 4
588 0 1 0 4194 4 0 0 3 0 4 24 1 2 21 4 24 0 2 0 0
592 24 0 3 0 4 4 0 0 2 22 2 0 0 4200 4 0 1 1 4194 4
596 24 0 3 4200 4 24 0 2 4 0 18 1 1 4123 0 1 1 3 12 0
600 18 1 1 5 0 28 1 1 4946 4 6 1 0 4949 4 3 0 0 1206 4
604 1 1 2 32 0 27 0 0 646 4 1 1 2 128 0 27 0 0 645 4
608 1 1 2 96 0 27 0 0 643 4 1 1 2 16 0 27 0 0 632 4
612 1 1 2 16 0 27 0 0 634 4 1 1 2 16 0 27 0 0 636 4
616 1 1 2 16 0 27 0 0 630 4 1 1 2 32 0 27 0 1 622 4
620 1 1 3 192 0 24 1 0 647 4 1 1 2 32 0 27 0 1 626 4
624 1 1 3 80 0 24 1 0 647 4 1 1 2 16 0 27 0 1 648 4
628 1 1 3 224 0 24 1 0 647 4 1 1 3 32 0 24 1 0 647 4
632 1 1 3 176 0 24 1 0 647 4 1 1 3 208 0 24 1 0 647 4
636 1 1 3 128 0 2 1 0 4957 4 2 1 0 4952 4 2 1 0 4954 4
640 1 1 2 1 0 2 1 0 4951 4 24 1 0 664 4 1 1 3 16 0
644 24 1 0 647 4 1 1 3 48 0 1 1 1 48 0 2 1 0 4949 4
648 6 1 0 4957 4 27 0 0 653 4 1 1 3 0 0 2 1 0 4957 4
652 24 1 0 655 4 1 1 3 128 0 2 1 0 4957 4 1 0 1 16 0
656 24 0 1 7356 4 15 0 0 6013 4 18 0 1 4124 0 18 0 3 1 0
660 2 1 0 4951 4 1 0 1 15 0 24 0 1 7356 4 15 0 0 6013 4
664 2 1 0 4955 4 24 0 2 1668 4 0 1 0 4194 4 0 0 3 0 4
668 24 1 2 19 4 24 0 2 0 0 24 0 3 0 4 4 0 0 2 22
672 2 0 0 4200 4 0 1 1 4194 4 24 0 3 4200 4 28 1 2 4 0
676 26 1 2 4232 4 6 1 2 4949 4 26 0 0 1077 4 2 0 2 4966 4
680 25 0 2 2 0 24 1 0 677 4 6 0 0 1206 4 18 0 1 4127 0
684 26 0 0 1077 4 18 0 1 1 0 2 0 0 1206 4 0 0 3 4268 4
PROCEDURE 562
688 6 0 0 4974 4 27 0 0 692 4 6 1 0 1210 4 24 1 0 693 4
692 6 1 0 1208 4 2 1 0 4974 4 6 1 0 4951 4 18 0 3 3 0
696 18 0 1 4127 0 2 0 0 4968 4 24 0 2 1500 4 24 1 2 15 4
700 28 1 2 2 0 26 0 0 999 4 23 0 0 2 0 0 0 0 7356 3
704 24 1 0 706 4 24 1 0 710 4 25 0 1 12 0 24 1 0 588 4
708 26 0 0 1060 4 24 1 0 586 4 26 0 0 1060 4 24 0 2 1512 4
712 24 1 2 15 4 28 1 2 2 0 26 0 0 999 4
PROCEDURE 563
715 26 1 2 6010 4
716 25 0 2 0 0 24 1 0 719 4 24 1 0 800 4 26 1 1 4250 4
720 6 1 0 6008 4 2 1 0 7356 4 0 0 2 1361 4 1 1 3 0 0
724 24 0 1 7356 4 15 0 0 5143 4 1 1 2 19 0 27 0 1 741 4
728 24 0 1 7356 4 6 0 0 5142 4 18 0 1 4124 0 4 0 0 5139 4
732 24 0 3 0 4 5 0 0 4 22 27 0 1 741 4 1 1 2 1 0
736 2 1 0 4969 4 2 1 0 4971 4 2 0 0 1568 4 2 0 0 4966 4
740 24 1 0 762 4 23 0 0 2 0 0 0 0 7356 3 24 1 0 723 4
744 6 0 2 6012 4 27 0 2 748 4 6 1 2 6012 4 24 1 0 754 4
748 18 0 1 8 0 18 0 1 4120 0 3 0 0 4966 4 2 0 0 1206 4
752 24 0 1 4966 4 6 0 0 5406 4 2 0 0 4966 4 6 0 2 6013 4
756 18 1 1 4127 0 2 1 0 4971 4 18 1 1 1 0 3 0 0 1568 4
760 18 0 3 1 0 2 1 0 4969 4
PROCEDURE 564
762 24 0 2 1438 4 0 1 0 4194 4
764 0 0 3 0 4 24 1 2 19 4 24 0 2 0 0 24 0 3 0 4
768 4 0 0 2 22 2 0 0 4200 4 0 1 1 4194 4 24 0 3 4200 4
772 28 1 2 4 0 6 0 0 4966 4 26 0 0 1077 4 2 0 0 4966 4
776 6 1 0 4971 4 26 0 0 1077 4 2 0 0 4970 4 6 0 0 1206 4
780 26 0 0 1077 4 2 0 0 1206 4 0 0 3 4268 4 24 0 2 1524 4
784 24 1 2 15 4 28 1 2 2 0 6 0 2 6012 4 27 0 2 791 4
788 6 0 0 4270 4 24 1 2 15 4 2 1 0 4 0 26 0 0 999 4
792 25 0 2 2 0 24 1 0 796 4 26 0 0 1060 4 24 1 0 800 4
796 25 0 1 6 0 24 1 0 720 4 26 0 0 1060 4 24 1 0 719 4
PROCEDURE 565
800 26 1 1 1470 4 26 1 2 1472 4 26 0 0 1568 4 26 0 0 1568 4
804 26 0 0 1568 4 24 1 0 806 4
PROCEDURE 566
806 6 1 0 1266 4 24 1 2 15 4
808 2 1 0 2 0 6 1 0 1268 4 24 1 2 15 4 2 1 0 4 0
812 6 1 0 1288 4 24 1 2 15 4 2 1 0 6 0 26 1 1 4230 4
816 26 0 0 999 4 26 1 2 4250 4 6 0 1 5406 4 27 0 0 842 4
820 26 0 0 1077 4 2 0 0 1207 4 24 0 3 0 4 6 0 0 2 22
824 26 0 0 1077 4 2 0 0 1206 4 24 0 2 1540 4 0 1 0 4194 4
828 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0 24 0 3 0 4
832 4 0 0 4 22 2 0 0 4200 4 0 1 1 4194 4 24 0 3 4200 4
836 28 1 2 2 0 0 0 3 4268 4 25 0 2 4 0 24 1 0 842 4
840 26 0 0 999 4 26 1 2 4250 4 25 0 1 1 0 24 1 0 818 4
844 26 0 0 999 4 24 1 0 884 4
PROCEDURE 567
846 24 0 2 1546 4 24 1 2 15 4
848 28 1 2 2 0 26 0 0 999 4 26 1 1 4250 4 26 1 2 4214 4
852 24 0 0 24 4 0 0 2 5388 4 27 1 0 857 4 26 0 0 910 4
856 26 0 0 920 4 25 0 2 1 0 24 1 0 852 4 26 0 0 999 4
860 6 1 0 4252 4 2 1 0 7366 4 6 1 0 4254 4 2 1 0 7360 4
864 3 1 0 4194 4 26 1 1 4194 4 24 1 0 33 4
PROCEDURE 568
867 24 0 2 1550 4
868 24 1 2 15 4 28 1 2 2 0 26 0 0 999 4 0 0 2 6045 4
872 27 1 0 846 4 26 1 1 4250 4 26 1 2 4232 4 24 0 0 24 4
876 0 0 2 6046 4 27 1 0 880 4 26 0 0 910 4 26 0 0 920 4
880 25 0 2 1 0 24 1 0 875 4 26 0 0 999 4 24 1 0 846 4
PROCEDURE 569
884 24 0 2 1554 4 24 1 2 15 4 28 1 2 2 0 26 0 0 999 4
888 26 1 1 4250 4 26 1 2 6056 4 25 0 2 0 0 24 1 0 893 4
892 24 1 0 867 4 1 1 3 0 0 0 0 2 1304 4 15 0 2 6058 4
896 27 0 0 906 4 2 0 0 1208 4 6 0 2 6058 4 18 1 1 4124 0
900 2 0 0 1206 4 18 1 3 6 0 24 0 1 1206 4 4 0 0 5371 4
904 2 0 0 1207 4 26 0 0 920 4 25 0 2 1 0 24 1 0 894 4
908 26 0 0 999 4 24 1 0 867 4
PROCEDURE 570
910 0 0 0 0 0 18 1 1 6 0
912 2 0 0 1206 4 18 1 1 2 0 24 0 1 1206 4 4 0 0 5371 4
916 2 0 0 1207 4 18 1 1 2 0 2 0 0 1208 4 26 0 1 910 4
PROCEDURE 571
920 0 0 0 0 0 6 0 0 1206 4 26 0 0 1077 4 2 0 0 1206 4
924 6 0 0 1207 4 26 0 0 1077 4 2 0 0 1207 4 6 0 0 1208 4
928 26 0 0 1077 4 2 0 0 1208 4 0 0 3 4268 4 24 0 2 1558 4
932 0 1 0 4194 4 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0
936 24 0 3 0 4 4 0 0 2 22 2 0 0 4200 4 0 1 1 4194 4
940 24 0 3 4200 4 28 1 2 2 0 25 0 1 6 0 24 1 0 946 4
944 26 0 0 999 4 26 1 1 4250 4 26 0 1 920 4
PROCEDURE 572
947 0 0 0 0 0
948 0 1 0 4194 4 0 0 3 0 4 0 0 2 18 4 6 1 0 4256 4
952 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
956 0 1 1 4194 4 26 0 1 947 4
PROCEDURE 573
958 0 0 0 0 0 25 0 2 8 0
960 24 1 0 963 4 26 0 0 964 4 26 1 2 4258 4 26 0 1 958 4
PROCEDURE 574
964 0 0 0 0 0 0 1 0 4194 4 0 0 3 0 4 0 0 2 20 4
968 6 1 0 4256 4 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4
972 23 0 2 0 256 0 1 1 4194 4 26 0 1 964 4
PROCEDURE 575
975 0 0 0 0 0
976 24 1 2 19 4 24 0 2 4 0 18 1 1 4123 0 1 1 3 50 0
980 18 1 1 5 0 24 1 2 21 4 28 1 1 4 0 6 1 0 1260 4
984 24 1 2 21 4 2 1 0 52 0 0 1 0 4194 4 0 0 3 0 4
988 0 0 2 20 4 6 1 0 4242 4 4 0 0 11 4 25 1 1 4096 0
992 24 0 3 0 4 23 0 2 0 256 0 1 1 4194 4 6 1 0 4260 4
996 24 1 2 21 4 28 0 0 0 0 26 0 1 975 4
PROCEDURE 576
999 0 0 0 0 0
1000 0 0 3 4268 4 6 1 0 1260 4 24 1 2 15 4 2 1 0 52 0
1004 6 0 0 1365 4 24 1 2 15 4 2 1 0 0 0 1 1 3 1 0
1008 2 0 0 1365 4 6 0 0 6275 4 27 0 0 1027 4 24 1 2 15 4
1012 24 0 2 0 0 18 1 1 4123 0 1 1 3 50 0 18 1 1 5 0
1016 0 1 0 4194 4 0 0 3 0 4 24 1 2 13 4 24 0 2 0 0
1020 4 0 0 7358 4 2 0 0 4200 4 0 1 1 4194 4 24 0 3 4200 4
1024 28 1 1 4 0 26 0 0 1089 4 24 1 0 1055 4 6 0 0 6274 4
1028 1 1 2 9 0 27 0 0 1046 4 6 0 0 4271 4 24 1 2 15 4
1032 2 0 0 1 0 24 1 2 15 4 24 0 2 0 0 24 1 2 13 4
1036 29 0 1 0 0 1 1 3 4 0 18 0 1 5 0 4 0 0 7 4
1040 0 0 2 12 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 160 0
1044 0 0 3 4268 4 24 1 0 1055 4 24 1 2 15 4 24 0 2 0 0
1048 18 1 1 4123 0 1 1 3 54 0 18 1 1 5 0 24 1 2 13 4
1052 28 1 1 0 0 1 1 3 9 0 24 1 0 1038 4 6 1 0 4218 4
1056 24 1 2 15 4 28 0 0 0 0 2 0 0 4999 4 26 0 1 999 4
PROCEDURE 577
1060 0 0 0 0 0 6 1 0 1260 4 24 1 2 19 4 2 1 0 52 0
1064 0 1 0 4194 4 0 0 3 0 4 0 0 2 18 4 6 1 0 4242 4
1068 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
1072 0 1 1 4194 4 6 1 0 4260 4 24 1 2 19 4 28 0 0 0 0
1076 26 0 1 1060 4
PROCEDURE 578
1077 0 0 0 0 0 2 1 0 1316 4 0 0 3 4272 4
1080 24 0 2 1338 4 12 1 0 1316 4 26 0 1 1077 4
PROCEDURE 579
1083 0 0 0 0 0
1084 2 1 0 1316 4 0 0 3 4268 4 24 0 2 1318 4 12 1 0 1316 4
1088 26 0 1 1083 4
PROCEDURE 580
1089 0 0 0 0 0 23 0 0 50 0 0 0 0 7358 3
1092 24 1 0 1099 4 6 1 0 1260 4 24 1 2 13 4 2 1 0 306 0
1096 26 0 0 1100 4 6 1 0 4262 4 2 1 0 7358 4 26 0 1 1089 4
PROCEDURE 581
1100 0 0 0 0 0 6 1 0 4242 4 0 0 2 12 4 25 1 1 4096 0
1104 4 0 0 7 4 24 0 3 0 4 23 0 2 160 0 26 0 1 1100 4
SECTION 582
1108 0 0 0 0 0 0 0 0
1112 0 0 0 0 0 0 0 0
1116 0 0 0 0 0 0 0 0
1120 0 0 0 0 0 0 0 0
1124 0 0 0 0 0 0 0 0
1128 0 0 0 0 0 0 0 0
1132 0 0 0 0 0 0 0 0
1136 0 0 0 0 0 0 0 0
1140 0 0 0 0 0 0 0 0
1144 0 0 0 0 0 0 0 0
1148 0 0 0 0 0 0 0 0
1152 0 0 0 0 0 0 0 0
1156 0 0 0 0 0 0 0 0
1160 0 0 0 0 0 0 0 0
1164 0 0 0 0 0 0 0 0
1168 0 0 0 0 0 0 0 0
1172 0 0 0 0 0 0 0 0
1176 0 0 0 0 0 0 0 0
1180 0 0 0 0 0 0 0 0
1184 0 0 0 0 0 0 0 0
1188 0 0 0 0 0 0 0 0
1192 0 0 0 0 0 0 0 0
1196 0 0 0 0 0 0 0 0
1200 0 0 0 0 0 0 0 0
1204 0 0 0 0
SECTION 583
1206 7734. 0 564.6 0
1208 85572 0 7 0 6566 0 0 0
1212 6544. 0 646 0 7674. 0 5 0
1216 96669 0 67695 0 97378 0 5 0
1220 97273 0 56596 0 3654. 0 63665 0
1224 16773 0 53585 0 7554£ 0 73786 0
1228 35572 0 56596 0 1654. 0 73695 0
1232 55172 0 51695 0 34.69 0 51637 0
1236 35572 0 66747 0 65769 0 67696 0
1240 46455 0 516 0 95951 0 72556 0
1244 9544. 0 5 0 3554. 0 697 0
1248 86755 0 737 0 .6656 0 72734 0
1252 65362 0 52636 0 97955 0 725 0
1256 25973 0 7 0 56554 0 67695 0
1260 7. 0 7.000 0 35871 0 5Ю005 0
1264 £6£6£ 0 6£6£6 0 25553 0 7 0
1268 6654. 0 73596 0 96653 0 676 0
1272 46955 0 55547 0 27243 0 67517 0
1276 +7200 0 64695 0 23000 0 44104 0
1280 5644+ 0 59735 0 36972 0 537 0
1284 97353 0 72765 0 20000 0 58557 0
1288 16973 0 72735 0 35572 0 65667 0
1292 66663 0 72676 0 36978 0 55657 0
1296 186Ю0 0 0 0
SECTION 584
1298 5.5. 0 0 0
1300 45577 0 59655 0 15965 0 53585 0
1304 3££ 0 7£££0 0 3030 0 30483 0
1308 20059 0 67737 0 37454 0 65536 0
1312 0 0 55540 0
SECTION 585
1314 1 0 0 0
1316 0 0 0 0
SECTION 586
1318 1 0 0 0
1320 Ю 0 0 0 64 0 0 0
1324 3.8 0 0 0 2710 0 0 0
1328 186Ю0 0 0 0 £4240 0 0 0
1332 89680 0 9 0 5.100 0 5£ 0
1336 Ю+Ю00 0 3‼9 0 1 0 0 0
1340 16 0 0 0 256 0 0 0
1344 4096 0 0 0 65536 0 0 0
1348 48576 0 10 0 77216 0 167 0
1352 35456 0 2684 0 67296 0 42949 0
1356 £££££ 0 £££££ 0
SECTION 587
1358 7 0 80000 0
1360 0 0 3£ 0 £0000 0 7£ 0
1364 80 0 0 0 3£££0 0 0 0
SECTION 588
SECTION 589
1368 0 1224 3 20 3 0 0 1 4 0 0 1242 3 1 3 0 0 0 1 0
1372 0 4954 3 1057 3 0 4 2 1 0 0 1228 3 53 3 0 0 3 5 0
1376 0 4956 3 4898 0 1 3 2 2 0 0 1230 3 117 3 0 0 7 5 0
1380 0 1232 3 37 3 0 0 2 5 0 0 4958 3 4898 0 1 3 2 2 0
1384 0 1260 3 101 3 0 0 6 5 1 0 4970 3 5 0 0 0 0 5 0
1388 0 4969 3 5 0 0 0 0 5 0 0 4966 3 5 0 0 0 0 5 0
1392 0 4968 3 5 0 0 0 0 5 1
SECTION 590
1394 0 1228 3 20 3 0 0 1 4 0
1396 0 1244 3 547 3 0 2 2 3 0 0 1246 3 356 3 0 1 6 4 0
1400 0 1248 3 292 3 0 1 2 4 0 0 1288 3 101 3 0 0 6 5 0
1404 0 1222 3 37 3 0 0 2 5 0 0 1234 3 101 3 0 0 6 5 0
1408 0 1236 3 5 3 0 0 0 5 0 0 1252 3 69 3 0 0 4 5 0
1412 0 1254 3 21 3 0 0 1 5 0 0 1224 3 165 3 0 0 10 5 1
SECTION 591
1416 0 1254 3 53 3 0 0 3 5 0 0 1250 3 802 3 0 3 2 2 0
1420 0 1224 3 36 3 0 0 2 4 0 0 1242 3 1 3 0 0 0 1 0
1424 0 4966 3 16421 4 4 0 2 5 0 0 4967 3 16421 4 4 0 2 5 0
1428 0 4968 3 16421 4 4 0 2 5 0 0 4969 3 16421 4 4 0 2 5 0
1432 0 4970 3 16421 4 4 0 2 5 0 0 4971 3 16421 4 4 0 2 5 0
1436 0 4972 3 16421 4 4 0 2 5 1 0 4966 3 5 0 0 0 0 5 0
1440 0 4968 3 5 3 0 0 0 5 0 0 4970 3 5 3 0 0 0 5 1
SECTION 592
1444 0 1206 3 69 3 0 0 4 5 0 0 4966 3 547 3 0 2 2 3 0
1448 0 1212 3 372 3 0 1 7 4 0 0 1214 3 547 3 0 2 2 3 0
1452 0 4968 3 547 3 0 2 2 3 0 0 1216 3 117 3 0 0 7 5 0
1456 0 1218 3 515 3 0 2 0 3 0 0 4950 3 1057 3 0 4 2 1 0
1460 0 1294 3 117 3 0 0 7 5 0 0 1262 3 4 3 0 0 0 4 0
1464 0 5978 3 1025 0 0 4 0 1 0 0 1262 3 1025 3 0 4 0 1 0
1468 0 5976 3 12548 0 3 1 0 4 1
SECTION 593
1470 0 1364 3 16389 0 4 0 0 5 0
1472 0 1238 3 21 3 0 0 1 5 0 0 1240 3 260 3 0 1 0 4 0
1476 0 5000 3 53 0 0 0 3 5 0 0 1242 3 53 3 0 0 3 5 0
1480 0 1222 3 1 3 0 0 0 1 0 0 5001 3 16437 0 4 0 3 5 0
1484 0 1224 3 244 3 0 0 15 4 0 0 1242 3 1 3 0 0 0 1 0
1488 0 5999 3 1057 0 0 4 2 1 0 0 1228 3 53 3 0 0 3 5 0
1492 0 1060 3 1057 0 0 4 2 1 0 0 1230 3 101 3 0 0 6 5 0
1496 0 1232 3 37 3 0 0 2 5 0 0 999 3 1057 0 0 4 2 1 1
SECTION 594
1500 0 4946 3 101 3 0 0 6 5 0 0 1206 3 12484 0 3 0 12 4 0
1504 0 4972 3 12756 0 3 1 13 4 0 0 4974 3 691 3 0 2 11 3 0
1508 0 4970 3 12740 0 3 1 12 4 0 0 4968 3 12740 0 3 1 12 4 1
1512 0 1230 3 21 3 0 0 1 5 0 0 1232 3 37 3 0 0 2 5 0
1516 0 1288 3 37 3 0 0 2 5 0 0 1222 3 37 3 0 0 2 5 0
1520 0 1224 3 117 3 0 0 7 5 0 0 1254 3 101 3 0 0 6 5 1
1524 0 1206 3 20565 0 5 0 5 5 0 0 4966 3 12724 0 3 1 11 4 0
1528 0 1568 3 1233 0 0 4 13 1 0 0 4970 3 12660 0 3 1 7 4 1
1532 0 4946 3 5 3 0 0 0 5 0 0 4948 3 5 3 0 0 0 5 0
1536 0 4950 3 5 3 0 0 0 5 0 0 4952 3 5 3 0 0 0 5 1
SECTION 595
1540 0 1206 3 4914 0 1 3 3 2 0 0 1262 3 1 3 0 0 0 1 0
1544 0 1207 3 12548 0 3 1 0 4 1 0 1276 3 5 3 0 0 0 5 0
1548 0 1278 3 5 3 0 0 0 5 1 0 1280 3 5 3 0 0 0 5 0
1552 0 1282 3 5 3 0 0 0 5 1 0 1284 3 5 3 0 0 0 5 0
1556 0 1286 3 5 3 0 0 0 5 1 0 1208 3 16389 0 4 0 0 5 0
1560 0 1262 3 4 3 0 0 0 4 0 0 1206 3 1025 0 0 4 0 1 0
1564 0 1262 3 1025 3 0 4 0 1 0 0 1207 3 12548 0 3 1 0 4 1
PROCEDURE 596
1568 0 0 0 0 0 24 0 3 0 4 6 0 0 4 22 2 0 0 1680 4
1572 24 0 1 1680 4 1 1 3 0 0 2 0 0 1684 4 24 1 2 19 4
1576 24 0 2 0 0 3 0 0 1060 4 1 1 1 48 0 18 0 1 5 0
1580 4 0 0 1060 4 2 1 0 7356 4 24 0 3 1682 4 6 0 2 0 0
1584 2 0 0 1685 4 0 1 2 1688 4 18 1 3 3 0 0 1 0 1686 4
1588 23 0 0 1 0 0 0 0 7360 3 24 1 0 1599 4 6 1 0 4234 4
1592 2 1 0 7360 4 24 0 3 1682 4 6 0 3 1 0 18 1 3 2 0
1596 2 0 0 1689 4 25 0 3 1 0 24 1 0 1599 4 6 0 0 1686 4
1600 1 1 2 6 0 27 0 0 1585 4 1 1 2 1 0 27 0 1 1632 4
1604 0 1 2 1694 4 18 1 3 6 0 0 1 0 1692 4 23 0 0 1 0
1608 0 0 0 7354 3 24 1 0 1618 4 6 1 0 4236 4 2 1 0 7354 4
1612 24 0 3 1682 4 6 0 1 1 0 18 1 3 2 0 2 0 0 1695 4
1616 25 0 1 1 0 24 1 0 1618 4 6 0 0 1692 4 1 1 2 63 0
1620 27 0 0 1604 4 1 1 1 1 0 27 0 1 1630 4 6 1 0 1682 4
1624 24 0 3 7356 4 2 1 0 4 0 24 0 3 7356 4 2 1 0 6 0
1628 26 0 0 1060 4 26 0 1 1568 4 6 1 0 1692 4 2 1 0 1686 4
1632 6 0 0 1686 4 1 1 2 1 0 27 0 0 1637 4 1 1 2 4 0
1636 27 0 1 1641 4 1 0 1 15 0 15 0 0 1685 4 5 0 0 1684 4
1640 14 0 0 1685 4 6 0 0 1685 4 24 0 3 7356 4 2 1 0 7 0
1644 6 0 0 1686 4 24 0 3 7356 4 2 1 0 5 0 25 0 2 1 0
1648 24 1 0 1649 4 23 0 0 4 0 0 0 0 7356 3 24 1 0 1582 4
1652 26 0 0 1060 4 24 1 0 1575 4
SECTION 597
1654 0 5014 3 5 0 0 0 0 5 0
1656 0 1358 3 5 0 0 0 0 5 0 0 5000 3 5 0 0 0 0 5 0
1660 0 5001 3 5 0 0 0 0 5 0 0 1224 3 5 3 0 0 0 5 1
1664 0 1232 3 5 3 0 0 0 5 0 0 5014 3 16437 0 4 0 3 5 1
1668 0 4946 3 5 3 0 0 0 5 0 0 4948 3 20 3 0 0 1 4 0
1672 0 4954 3 5 3 0 0 0 5 0 0 4950 3 5 3 0 0 0 5 0
1676 0 4952 3 5 3 0 0 0 5 0 0 4956 3 5 3 0 0 0 5 1
SECTION 598
1680 0 0 0 0 0 0 4£000 0
1684 30 0 0 0 30 0 0 0
1688 30 0 0 0 30 0 0 0
1692 30 0 0 0 30 0 0 0
1696 30 0 0 0
PROCEDURE 599
PROCEDURE 600
PROCEDURE 601
PROCEDURE 602
PROCEDURE 603
PROCEDURE 604
1698 1 1 3 0 0 27 0 0 1747 4
1700 24 0 2 1974 4 2 0 0 1724 4 24 0 2 1976 4 2 0 0 1727 4
1704 24 0 2 1980 4 2 0 0 1743 4 1 1 2 4 0 7 0 0 1973 4
1708 7 0 0 1981 4 1 1 3 0 0 27 0 0 1712 4 24 1 0 1714 4
1712 6 0 0 1973 4 2 0 0 1971 4 24 0 3 1974 4 6 0 0 0 0
1716 27 0 0 1764 4 1 1 3 2 0 7 0 0 1976 4 24 0 3 1974 4
1720 6 1 0 0 0 24 0 3 1976 4 2 1 0 0 0 23 0 0 2 0
1724 0 0 0 1974 3 24 1 0 1714 4 23 0 0 2 0 0 0 0 1976 3
1728 24 1 0 1730 4 24 1 0 1734 4 6 1 0 1978 4 24 0 3 1976 4
1732 2 1 0 0 0 24 1 0 1726 4 24 0 3 1980 4 6 0 0 1 0
1736 5 0 0 1978 4 27 0 0 1742 4 4 0 0 1978 4 18 0 0 0 0
1740 1 1 2 516 0 27 0 2 1750 4 23 0 0 2 0 0 0 0 1980 3
1744 24 1 0 1734 4 1 1 3 0 0 1 1 2 4 0 1 1 1 87 0
1748 24 0 3 1982 4 24 1 0 0 0 24 0 3 1980 4 6 0 0 0 0
1752 24 0 3 1982 4 3 0 0 28 0 24 0 3 1982 4 3 0 0 0 0
1756 0 0 2 1987 4 14 0 0 1987 4 6 0 0 1987 4 24 0 3 1982 4
1760 2 0 0 1 0 1 1 3 0 0 24 0 3 1982 4 24 1 0 1 0
PROCEDURE 605
1764 1 0 1 15 0 24 0 3 1974 4 15 0 0 1 0 2 1 0 1698 4
1768 24 0 3 1698 4 6 0 0 37 0 2 0 0 1986 4 24 0 3 1976 4
1772 6 0 0 1 0 24 0 3 1982 4 2 1 0 30 0 26 1 2 1698 4
1776 24 0 3 1982 4 26 0 0 0 0 24 0 3 1986 4 6 0 0 0 0
1780 27 0 0 1790 4 26 1 2 1982 4 1 1 3 14 0 24 0 3 1982 4
1784 23 1 2 128 0 1 1 3 0 0 24 0 3 1982 4 2 1 2 128 0
1788 25 0 2 2 0 24 1 0 1782 4 24 0 3 1986 4 6 0 0 1 0
1792 27 0 0 1801 4 18 0 3 3 0 2 0 0 1698 4 26 1 2 1982 4
1796 1 1 3 14 0 24 0 3 1698 4 23 1 2 2 0 25 0 2 2 0
1800 24 1 0 1797 4 24 0 3 1986 4 6 0 0 10 0 3 0 0 1698 4
1804 18 1 1 4127 0 24 0 3 1698 4 18 1 0 0 0 24 0 3 1982 4
1808 7 1 0 0 0 24 0 3 1986 4 26 1 2 18 0 26 1 3 1982 4
1812 25 0 3 3 0 25 0 3 3 0 24 1 0 1822 4 26 1 3 1982 4
1816 24 0 3 1986 4 6 1 2 34 0 27 0 2 1822 4 25 0 3 3 0
PROCEDURE 606
1820 25 0 2 1 0 24 1 0 1858 4 24 0 3 1986 4 6 0 2 34 0
1824 18 1 1 4124 0 2 0 0 1709 4 18 1 1 2 0 1 1 3 0 0
1828 18 1 1 2 0 27 0 0 1858 4 1 1 2 128 0 27 0 0 1858 4
1832 1 1 1 128 0 3 0 0 1710 4 18 1 1 4127 0 18 1 3 1 0
1836 18 0 3 3 0 2 0 0 1711 4 18 1 3 3 0 2 0 0 1712 4
1840 6 0 0 1709 4 27 0 1 1843 4 6 0 0 1984 4 24 0 3 1710 4
1844 2 0 0 64 0 24 0 3 1711 4 6 0 0 0 0 5 0 0 1710 4
1848 27 0 1 1852 4 6 0 0 1978 4 24 0 3 1711 4 2 1 0 0 0
1852 1 0 1 1 0 1 1 3 0 0 24 0 3 1712 4 18 1 0 0 0
1856 24 0 3 1711 4 14 1 0 2 0 25 0 2 1 0 24 1 0 1813 4
PROCEDURE 607
1860 24 0 3 1986 4 26 1 2 16 0 24 0 3 1986 4 6 1 2 20 0
1864 2 1 0 1698 4 26 1 3 1698 4 1 1 3 14 0 24 0 3 1982 4
1868 23 1 3 0 0 25 0 3 2 0 24 1 0 1867 4 26 1 3 1698 4
1872 6 0 0 1698 4 5 0 0 1986 4 27 0 1 1878 4 25 0 3 500 0
1876 24 1 0 1878 4 24 1 0 1883 4 1 1 3 0 0 24 0 3 1982 4
1880 2 1 3 0 0 25 0 3 2 0 24 1 0 1879 4
PROCEDURE 608
1883 1 1 3 0 0
1884 27 0 0 1890 4 6 0 0 1698 4 5 0 0 1967 4 27 0 3 1890 4
1888 6 1 0 1990 4 24 1 0 1891 4 6 1 0 1988 4 2 1 0 1712 4
1892 26 1 1 1712 4 26 1 3 1712 4 24 0 3 1982 4 6 1 3 0 0
PROCEDURE 609
1896 2 1 0 1708 4 6 0 0 1708 4 27 0 0 1916 4 5 0 0 1978 4
1900 27 0 0 1930 4 6 0 0 1708 4 4 0 0 1709 4 2 0 0 1711 4
1904 0 0 2 1987 4 15 0 0 1708 4 27 0 0 1911 4 6 0 0 1708 4
1908 5 0 0 1699 4 27 0 0 1918 4 1 1 3 0 0 15 0 0 1711 4
1912 27 0 0 1916 4 6 0 0 1711 4 5 0 0 1698 4 27 0 0 1922 4
1916 25 0 3 2 0 24 1 0 1894 4 6 0 0 1698 4 18 1 1 4123 0
1920 4 0 0 1711 4 24 1 0 1925 4 6 0 0 1708 4 18 1 1 4123 0
1924 4 0 0 1699 4 18 1 1 5 0 2 1 0 1698 4 24 0 3 1982 4
1928 2 1 3 0 0 24 1 0 1893 4 5 0 0 1698 4 7 0 0 1699 4
PROCEDURE 610
1932 24 0 3 1712 4 6 1 0 0 0 3 1 0 1992 4 27 0 0 1955 4
1936 5 1 0 1978 4 27 0 0 1958 4 6 1 0 1992 4 5 1 0 1698 4
1940 27 0 3 1947 4 6 1 0 1698 4 24 0 3 1982 4 2 1 1 0 0
1944 6 1 0 1992 4 2 1 0 1698 4 24 1 0 1950 4 6 1 0 1992 4
1948 24 0 3 1982 4 2 1 1 0 0 25 0 1 2 0 24 1 0 1955 4
1952 1 1 3 81 0 24 0 3 1982 4 24 1 0 0 0 1 1 3 2 0
1956 7 0 0 1712 4 24 1 0 1932 4 6 1 0 1698 4 24 0 3 1982 4
1960 2 1 1 0 0 6 1 0 1978 4 24 0 3 1982 4 2 1 1 2 0
1964 25 0 2 2 0 24 1 0 1862 4 24 1 0 1723 4 0 1 0 0 0
1968 6 0 0 1698 4 1 1 3 0 0
SECTION 611
1970 0 0 0 0
1972 0 0 0 0 2 0 0 0
1976 0 0 0 0 £££££ 0 £££££ 0
1980 0 0 0 0 0 0 6 0
1984 ££££ 0 £0000 0 0 0 1£££ 0
1988 0 0 0 0 0 0 0 0
1992 0 0 0 0 0 0 0 0
PROCEDURE 612
PROCEDURE 613
1996 1 1 3 0 0 27 0 0 2008 4 1 1 3 0 0 1 1 2 1 0
2000 7 0 0 2244 4 1 1 3 0 0 5 0 0 2011 4 7 0 0 2302 4
2004 1 1 3 0 0 1 1 2 0 0 7 0 0 2044 4 7 0 0 2261 4
2008 24 0 3 2020 4 26 0 0 0 0 24 1 0 2048 4 0 0 2 0 0
2012 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2016 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2020 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2024 0 0 0 1 0 0 0 0 0 0
PROCEDURE 614
2026 24 0 3 2044 4 28 0 0 250 0
2028 24 0 3 2044 4 24 1 0 250 0 6 1 0 2042 4 24 0 3 2066 4
2032 28 0 0 80 0 6 1 0 2040 4 24 0 3 2044 4 28 0 0 0 0
2036 1 1 3 0 0 24 0 3 2039 4 24 1 0 1 0 0 0 0 0 0
2040 0 0 0 16 0 0 0 0 54 0 0 0 0 70 0 0 0 0 40 0
2044 0 0 0 0 0 0 0 0 0 0
SECTION 615
2046 40- 0 0 0
PROCEDURE 616
2048 24 1 2 2046 4 24 0 2 25 0 18 1 1 4123 0 1 1 3 28 0
2052 18 1 1 5 0 28 1 0 1997 4 24 1 2 2046 4 24 0 2 5 0
2056 18 1 1 4123 0 1 1 3 20 0 18 1 1 5 0 28 1 0 2046 4
2060 6 1 0 2004 4 2 1 0 2058 4 1 1 3 1996 4 18 1 3 3 0
2064 18 1 1 4127 0 2 0 0 2056 4 18 1 3 1 0 3 0 0 2057 4
2068 27 0 0 2076 4 1 1 3 0 0 27 0 0 2076 4 3 0 0 2047 4
2072 6 0 0 2228 4 2 0 0 2118 4 1 1 3 1500 0 7 0 0 2238 4
2076 24 0 1 2050 4 3 0 0 1997 4 24 0 1 2050 4 6 0 0 1996 4
2080 2 0 0 2061 4 6 0 0 2050 4 4 0 0 2050 4 2 0 0 2063 4
2084 24 0 0 2063 4 2 1 0 2066 4 1 1 3 0 0 2 0 0 2078 4
2088 1 0 1 1 0 24 0 3 2020 4 15 0 0 27 0 1 1 2 9 0
2092 3 0 0 2060 4 27 0 1 2099 4 1 1 3 1 0 7 0 0 2119 4
2096 7 0 0 2122 4 6 0 0 2226 4 2 0 0 2223 4
PROCEDURE 617
2099 6 0 0 2063 4
2100 2 0 0 2014 4 6 0 0 2050 4 3 0 0 2016 4 1 1 1 4 0
2104 2 0 0 2017 4 26 1 1 2014 4 26 1 3 2016 4 2 1 1 2068 4
2108 1 1 3 0 0 27 0 0 2117 4 1 1 3 0 0 0 0 2 2230 4
2112 24 0 1 2050 4 15 0 0 1996 4 24 0 1 2050 4 14 0 0 1996 4
2116 1 1 3 0 0 6 0 0 2008 4 27 0 0 2151 4 6 0 0 2007 4
2120 26 0 0 2216 4 25 0 1 2 0 6 0 0 2009 4 26 0 0 2216 4
2124 6 0 1 2067 4 27 0 1 2130 4 6 0 1 2066 4 6 0 1 2066 4
2128 7 0 0 2238 4 24 1 0 2140 4 2 0 0 2014 4 6 0 1 2066 4
2132 0 0 2 2230 4 24 0 1 2014 4 15 0 0 1996 4 24 0 1 2014 4
2136 14 0 0 1996 4 6 0 1 2067 4 7 0 1 2067 4 1 1 3 0 0
2140 2 0 3 1998 4 25 0 1 2 0 25 0 3 1 0 24 1 0 2124 4
2144 6 0 0 2060 4 27 0 0 2149 4 1 1 3 1 0 7 0 0 2198 4
2148 1 1 3 2 0 1 1 1 2 0 1 1 1 1 0 4 0 0 2050 4
2152 2 0 0 2014 4 0 1 2 2230 4 24 0 1 2050 4 18 1 3 0 0
2156 2 0 0 2013 4 24 0 1 2014 4 18 1 3 0 0 2 0 0 2015 4
2160 26 1 3 2044 4 2 0 0 2044 4 6 0 0 2014 4 5 0 0 2050 4
2164 27 0 0 2179 4 6 0 0 2014 4 2 0 0 2021 4 26 1 1 2020 4
2168 0 0 2 2024 4 6 0 1 1997 4 27 0 1 2173 4 15 0 0 2230 4
2172 7 0 0 2227 4 18 1 3 1 0 25 0 1 1 0 24 1 0 2169 4
2176 1 1 3 0 0 5 0 0 2227 4 7 0 0 2015 4
PROCEDURE 618
2179 6 0 0 2050 4
2180 2 0 0 2021 4 26 1 1 2020 4 0 0 2 2024 4 1 1 3 8190 0
2184 5 0 0 2238 4 2 0 0 2238 4 6 0 1 1997 4 5 0 0 2238 4
2188 27 0 2 2191 4 6 0 0 2232 4 14 0 0 2239 4 18 1 3 1 0
2192 25 0 1 1 0 24 1 0 2186 4 6 0 0 2008 4 0 0 2 2230 4
2196 27 0 0 2201 4 1 1 3 0 0 24 1 0 2200 4 1 1 3 34 0
2200 1 1 1 16 0 24 0 1 2050 4 15 0 0 1996 4 1 1 2 506 0
2204 27 0 2 2206 4 1 1 3 0 0 1 1 1 506 0 24 0 1 2050 4
2208 14 0 0 1996 4 1 1 3 40 0 18 0 1 5 0 1 1 1 0 0
2212 28 0 0 2100 4 6 1 0 2230 4 2 1 0 2098 4 24 1 0 2240 4
PROCEDURE 619
2216 0 0 0 0 0 18 1 1 4124 0 2 0 1 2069 4 18 1 3 3 0
2220 2 0 1 2073 4 18 1 3 1 0 18 1 1 3 0 3 0 1 2068 4
2224 2 0 1 2072 4 26 0 1 2216 4 2 0 1 2068 4 0 0 0 0 0
2228 27 0 0 2150 4 1 1 3 0 0
SECTION 620
2230 £££££ 0 £££££ 0
2232 1£££ 0 1- 0 0 0 8 0
2236 0 0 Ю 0 2- 0 0 0
PROCEDURE 621
2240 6 0 0 2230 4 3 0 0 2012 4 5 0 3 2100 4 27 0 1 2270 4
2244 24 1 0 2245 4 24 1 0 2249 4 24 1 0 2253 4 24 1 0 2261 4
2248 24 1 0 2249 4 1 1 3 83 0 24 0 3 2020 4 24 1 0 0 0
2252 24 1 0 2244 4 1 1 3 0 0 24 0 3 2020 4 2 1 0 30 0
2256 1 1 2 1 0 7 0 0 2244 4 6 0 0 2011 4 7 0 0 2302 4
2260 24 1 0 2270 4 1 1 3 0 0 24 0 3 2020 4 2 0 0 30 0
2264 6 0 3 2100 4 5 0 0 2230 4 27 0 0 2249 4 1 1 3 0 0
2268 1 1 2 1 0 7 0 0 2244 4 1 1 3 1 0 2 1 0 2018 4
2272 6 0 0 2014 4 2 0 0 2021 4
PROCEDURE 622
2274 1 1 3 0 0 0 0 2 2018 4
2276 15 0 0 2227 4 27 0 1 2321 4 6 0 0 2013 4 5 0 0 2015 4
2280 27 0 2 2295 4 1 1 3 0 0 15 0 0 2013 4 27 0 0 2321 4
2284 1 1 3 0 0 6 0 0 2015 4 5 0 0 2018 4 2 0 0 2142 4
2288 0 0 2 2239 4 15 0 0 2142 4 27 0 1 2295 4 0 0 2 2013 4
2292 15 0 0 2142 4 5 0 0 2142 4 27 0 1 2321 4 1 1 3 0 0
2296 2 1 0 2022 4 0 0 2 2024 4 26 1 1 2020 4 15 0 0 2018 4
2300 27 0 0 2310 4 6 0 1 1997 4 27 0 1 2306 4 1 1 3 0 0
2304 15 0 0 2230 4 24 1 0 2322 4 2 1 0 2142 4 6 0 0 2142 4
2308 7 0 0 2022 4 1 1 3 0 0 18 1 3 1 0 25 0 1 1 0
2312 24 1 0 2299 4 6 0 3 2101 4 5 0 0 2022 4 27 0 3 2321 4
2316 5 0 0 2012 4 27 0 2 2321 4 7 0 0 2012 4 6 0 0 2018 4
2320 2 0 0 2025 4 1 1 3 1 0 7 0 0 2018 4 6 0 0 2015 4
2324 5 0 0 2018 4 27 0 2 2274 4 25 0 3 2 0 6 0 0 2012 4
2328 5 0 0 2230 4 27 0 0 2240 4 6 0 3 2099 4 5 0 0 2012 4
2332 2 0 0 2022 4 5 0 0 2025 4 7 0 0 2015 4 6 0 0 2025 4
2336 7 0 0 2227 4 1 1 3 0 0
PROCEDURE 623
2338 0 0 2 2232 4 15 0 3 2098 4
2340 27 0 0 2347 4 4 0 3 2099 4 5 0 0 2232 4 27 0 3 2347 4
2344 6 0 0 2012 4 2 0 0 2019 4 24 1 0 2348 4 6 0 0 2022 4
2348 4 0 3 2098 4 2 0 0 2142 4 6 0 0 2012 4 2 0 0 2143 4
2352 6 0 0 2019 4 4 0 3 2098 4 2 0 0 2019 4 1 1 3 0 0
PROCEDURE 624
2356 26 1 1 2020 4 26 1 2 2044 4 0 0 2 2024 4 15 0 0 2025 4
2360 27 0 0 2375 4 6 0 1 1997 4 2 1 0 2140 4 6 0 0 2019 4
2364 3 0 2 2066 4 4 0 0 2140 4 3 0 2 2067 4 2 0 0 2019 4
2368 24 0 3 2020 4 6 0 0 28 0 5 0 0 2063 4 27 0 2 2380 4
2372 4 0 0 2063 4 2 0 0 2023 4 2 0 1 1997 4 18 1 3 1 0
2376 25 0 2 2 0 25 0 1 1 0 24 1 0 2359 4 24 1 0 2388 4
2380 6 0 1 1997 4 24 0 0 2023 4 7 0 0 2067 4 2 0 2 2066 4
2384 6 0 0 2023 4 1 1 1 2 0 2 0 2 2067 4 24 1 0 2374 4
PROCEDURE 625
PROCEDURE 626
2388 24 0 3 2020 4 6 0 0 30 0 24 0 3 2020 4 2 1 0 28 0
2392 6 0 0 2143 4 27 0 1 2403 4 25 0 3 4098 0 24 1 0 2397 4
2396 1 1 3 0 0 6 1 2 2100 4 3 1 2 2098 4 5 1 0 2230 4
2400 27 0 0 2414 4 25 0 2 2 0 24 1 0 2397 4 6 1 2 2096 4
2404 5 1 0 2142 4 27 0 3 2412 4 4 1 0 2142 4 3 1 2 2098 4
2408 5 1 0 2230 4 27 0 0 2412 4 25 0 2 4098 0 24 1 0 2403 4
2412 6 1 0 2142 4 2 1 2 2098 4 6 0 0 2015 4 27 0 1 2240 4
2416 1 1 3 0 0 2 0 0 2062 4
PROCEDURE 627
2418 6 0 0 2063 4 7 0 0 2237 4
2420 7 0 0 2236 4 26 1 1 2062 4 26 1 3 2236 4 6 0 1 2067 4
2424 5 0 1 2066 4 2 0 0 2013 4 6 0 3 2067 4 24 0 3 2020 4
2428 5 0 0 26 0 1 1 2 2 0 27 0 1 2435 4 6 0 0 2013 4
2432 5 0 3 2066 4 3 0 0 2013 4 2 0 3 2076 4 25 0 3 2 0
2436 24 1 0 2426 4 25 0 1 2 0 24 1 0 2422 4 6 0 3 2057 4
2440 27 0 0 2452 4 3 0 0 2013 4 18 0 1 4 0 24 0 3 2020 4
2444 2 0 0 43 0 24 0 1 2013 4 6 0 0 2064 4 4 0 3 2066 4
2448 24 0 0 2013 4 3 0 0 2065 4 24 0 3 2020 4 7 0 0 43 0
PROCEDURE 628
2452 24 0 1 2063 4 6 0 0 2064 4 3 0 0 2044 4 1 1 1 54 0
2456 24 0 3 2045 4 3 0 0 28 0 24 0 3 2045 4 3 0 0 5 0
2460 24 0 3 2045 4 2 0 0 0 0 24 0 3 2044 4 1 1 3 0 0
2464 24 0 3 2045 4 3 0 0 2 0 1 1 1 54 0 24 0 3 2045 4
2468 2 0 0 1 0 1 1 3 0 0
PROCEDURE 629
2470 24 0 2 2140 4 5 0 0 2044 4
2472 27 0 3 2475 4 1 1 2 170 0 27 0 3 2480 4 24 0 2 2140 4
2476 5 0 0 2066 4 27 0 3 2500 4 1 1 2 156 0 27 0 2 2500 4
2480 1 1 3 250 0 0 0 2 2232 4 15 0 0 2044 4 1 1 2 2030 4
2484 7 0 0 2030 4 7 0 0 2033 4 2 0 0 2472 4 5 0 0 2472 4
2488 7 0 0 2031 4 7 0 0 2034 4 7 0 0 2037 4 6 0 0 2044 4
2492 1 1 1 250 0 7 0 0 2040 4 7 0 0 2042 4 24 0 2 2030 4
2496 18 1 1 4123 0 1 1 1 110 0 18 1 1 5 0 24 1 0 2026 4
2500 24 0 2 2030 4 7 0 0 2040 4 7 0 0 2042 4 24 1 0 2030 4
2504 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2508 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
PROCEDURE 630
2512 6 0 0 10 0 18 1 1 4126 0
PROCEDURE 631
2514 1 1 2 1 0 27 0 1 2520 4
2516 1 0 1 3 0 14 0 0 2928 4 14 0 0 2664 4 14 0 0 2710 4
2520 1 1 3 0 0 27 0 1 2528 4 6 1 0 2948 4 2 1 0 2936 4
2524 6 0 0 2885 4 2 0 0 2882 4 6 1 0 2932 4 2 1 0 2930 4
2528 1 1 3 2 0 18 1 1 4118 0 15 0 0 10 0 27 0 0 2539 4
2532 6 1 0 2930 4 2 1 0 2924 4 6 1 0 2932 4 2 1 0 2926 4
2536 1 1 2 4096 0 7 0 0 2891 4 24 1 0 2541 4 1 0 1 12 0
2540 14 1 0 2928 4 6 0 0 11 0 27 0 1 2545 4 1 0 1 48 0
2544 14 1 0 2928 4 6 1 0 12 0 2 1 0 2512 4 24 1 0 2578 4
SECTION 632
2548 36653 0 51636 0 0 0 5.7:0 0
2552 1 0 0 0 16 0 0 0
2556 256 0 0 0 4096 0 0 0
2560 65536 0 0 0
PROCEDURE 633
PROCEDURE 634
2562 0 0 0 2583 4 0 0 2 5 0
2564 0 0 0 2578 4 16 0 0 4101 0 0 0 0 2548 4 1 0 0 5 0
2568 0 0 0 2512 4 0 0 0 53 0 0 0 0 2513 4 0 0 0 21 0
2572 0 0 0 0 0 0 0 0 21 0 0 0 0 2928 4 1 0 0 305 0
2576 0 0 0 2928 4 17 0 0 563 0
PROCEDURE 635
2578 1 1 3 0 0 1 1 2 1 0
2580 7 0 0 2572 4 24 0 2 2566 4 24 0 3 20 0 28 1 2 0 0
2584 1 1 3 16 0 4 0 0 20 0 2 0 0 2574 4 26 1 1 16 0
2588 0 0 3 2934 4 6 0 1 20 0 18 1 1 4124 0 18 1 3 3 0
2592 2 0 0 2583 4 18 1 3 13 0 2 0 0 2578 4 24 0 2 2552 4
2596 12 0 0 2578 4 2 0 0 2578 4 24 0 2 2562 4 24 0 3 2574 4
2600 28 1 2 0 0 0 0 3 2550 4 1 1 3 4 0 7 0 0 2574 4
2604 25 0 1 2 0 24 1 0 2588 4 1 1 3 7805 0 24 0 3 20 0
2608 3 1 0 14 0 24 0 3 2574 4 2 1 0 0 0 24 0 2 2566 4
2612 2 0 0 2731 4 2 0 0 2562 4 24 0 2 2578 4 2 0 0 2892 4
2616 26 0 0 2878 4 24 0 2 20 0 4 0 0 17 0 18 1 1 4123 0
2620 1 1 1 30 0 18 1 1 5 0 28 0 0 2580 4 6 0 0 11 0
2624 27 0 0 2629 4 1 1 3 0 0 27 0 0 2629 4 1 1 3 0 0
2628 27 0 1 2631 4 6 0 0 2628 4 2 0 0 2935 4 6 0 0 2583 4
2632 24 0 3 20 0 3 0 0 122 0 27 0 0 2642 4 1 1 3 8191 0
2636 18 1 1 4118 0 6 0 0 15 0 24 0 1 17 0 15 0 0 18 0
2640 24 0 3 2562 4 2 0 0 5 0
PROCEDURE 636
2642 26 1 1 2562 4 1 1 3 8 0
2644 2 0 0 2563 4 26 1 3 2562 4 6 0 0 5 0 27 0 0 2729 4
2648 2 0 0 2563 4 26 1 2 2562 4 24 1 2 2923 4 24 0 2 4 0
2652 3 0 0 2566 4 1 1 1 48 0 2 0 0 2567 4 24 0 3 2562 4
2656 26 0 0 0 0 1 1 3 12 0 18 0 1 5 0 4 0 0 2566 4
2660 1 1 1 1 0 28 1 0 2568 4 26 0 0 2793 4 25 0 1 1 0
2664 1 1 3 128 0 4 0 0 2573 4 27 0 1 2669 4 26 0 0 2793 4
2668 24 1 0 2676 4
PROCEDURE 637
2669 6 0 0 2569 4 5 0 0 2922 4 27 0 1 2674 4
2672 3 0 1 34 0 24 1 0 2719 4 1 1 3 128 0 2 0 1 34 0
2676 1 0 1 3 0 15 0 1 34 0 18 1 1 2 0 14 0 1 33 0
2680 1 0 1 3 0 1 1 3 0 0 15 0 1 33 0 2 0 0 2563 4
2684 6 0 0 2569 4 1 1 2 4 0 27 0 0 2689 4 1 1 2 5 0
2688 27 0 1 2691 4 6 0 0 2563 4 3 0 0 2935 4 6 0 0 2563 4
2692 26 0 0 2912 4 2 1 0 2612 4 24 0 3 2566 4 6 1 0 0 0
2696 2 1 0 2614 4 1 0 1 3 0 15 0 1 34 0 26 0 0 2912 4
2700 18 0 1 0 0 2 1 0 2616 4 1 0 1 15 0 6 1 0 2614 4
2704 14 0 1 34 0 1 1 1 0 0 24 0 2 2950 4 24 0 3 2574 4
2708 28 1 2 2 0
PROCEDURE 638
2709 6 0 0 2573 4 1 1 1 128 0 27 0 0 2717 4
2712 1 1 3 101 0 18 0 1 2 0 1 0 1 63 0 24 0 3 2574 4
2716 14 1 0 4 0 1 1 3 4 0 7 0 0 2574 4 24 0 1 2571 4
2720 6 0 0 18 0 4 0 0 2570 4 3 0 1 65 0 1 1 2 2 0
2724 4 0 0 2572 4 2 0 1 66 0 25 0 1 1 0 25 0 2 1 0
2728 24 1 0 2730 4 24 1 0 2734 4 23 0 0 12 0 0 0 0 2566 3
2732 24 1 0 2657 4 24 1 0 2650 4 6 0 0 2581 4 27 0 0 2754 4
2736 6 1 0 2936 4 2 1 1 34 0 2 1 1 66 0 25 0 1 2 0
2740 6 0 0 2935 4 27 0 1 2768 4 6 0 0 14 0 1 1 1 9 0
2744 3 0 0 2569 4 2 0 0 2573 4 1 1 3 1 0 7 0 0 5 0
2748 25 0 2 4097 0 24 0 2 2956 4 2 0 0 2566 4 6 0 0 2772 4
2752 2 0 0 2729 4 24 1 0 2662 4 1 1 3 6 0 7 0 0 2730 4
2756 1 1 2 12 0 7 0 0 2657 4 1 1 1 4 0 7 0 0 2661 4
2760 6 0 0 2771 4 2 0 0 2729 4 6 0 0 2922 4 3 0 0 2569 4
2764 2 0 0 2573 4 1 1 3 0 0 6 0 0 6 0 24 1 0 2647 4
2768 1 1 3 1 0 7 0 0 5 0 24 1 0 2754 4 24 1 0 2773 4
2772 24 1 0 2768 4
PROCEDURE 639
2773 6 0 0 5 0 4 0 0 6 0 18 0 1 5 0
2776 27 0 0 2858 4 3 1 0 18 0 7 1 0 18 0 24 0 2 98 0
2780 24 0 3 2562 4 3 1 0 28 0 24 0 3 2562 4 3 0 0 0 0
2784 1 1 3 44 0 24 0 3 2562 4 7 0 0 1 0 1 1 3 7710 0
2788 24 0 3 2574 4 2 1 0 2 0 1 1 3 0 0 24 0 3 2562 4
2792 24 1 0 1 0
PROCEDURE 640
2793 0 0 0 0 0 6 0 0 2897 4 2 0 0 2889 4
2796 6 0 0 2571 4 27 0 2 2822 4 6 0 0 2569 4 5 0 0 2922 4
2800 27 0 0 2804 4 6 0 0 14 0 1 1 1 9 0 2 0 0 2569 4
2804 6 0 3 2582 4 27 0 1 2814 4 25 0 3 2 0 24 1 0 2804 4
2808 25 0 3 4098 0 1 1 2 1 0 2 1 1 34 0 2 1 1 66 0
2812 25 0 1 2 0 24 1 0 2727 4 2 0 0 2572 4 6 0 3 2583 4
2816 2 0 0 2571 4 6 0 3 2592 4 2 0 0 2570 4 25 0 3 2 0
2820 24 1 0 2842 4 24 1 0 2842 4 6 0 0 2569 4 1 1 2 14 0
2824 27 0 1 2828 4 6 0 0 14 0 1 1 1 9 0 2 0 0 2569 4
2828 6 0 0 2569 4 1 1 2 15 0 27 0 1 2845 4 1 1 3 5 0
2832 3 0 0 2569 4 3 0 0 15 0 1 1 2 5 0 27 0 0 2837 4
2836 2 0 0 2573 4 26 0 0 2878 4 1 1 3 6 0 1 1 2 0 0
2840 3 0 0 2569 4 3 0 0 15 0 1 1 2 5 0 27 0 0 2845 4
2844 2 0 0 2573 4 26 0 0 2878 4 6 0 0 2569 4 26 0 0 2905 4
2848 27 0 1 2852 4 6 0 0 2896 4 2 0 0 2889 4 26 0 0 2878 4
2852 6 0 0 2569 4 5 0 0 2922 4 27 0 1 2858 4 6 0 0 2895 4
2856 2 0 0 2889 4 26 0 0 2878 4 6 0 0 2898 4 2 0 0 2889 4
2860 26 0 0 2878 4 1 1 3 84 0 24 0 3 2562 4 24 1 0 0 0
2864 24 0 3 2578 4 6 0 0 0 0 5 0 0 2922 4 27 0 0 2869 4
2868 4 0 0 2922 4 18 0 1 4 0 4 0 0 2578 4 1 1 2 64 0
2872 2 0 1 34 0 24 0 3 2578 4 5 0 0 0 0 24 0 3 2578 4
2876 2 0 0 0 0 26 0 1 2793 4
PROCEDURE 641
2878 0 0 0 0 0 6 1 0 2924 4
2880 2 1 0 2578 4 26 0 0 2886 4 6 1 0 2926 4 2 1 0 2578 4
2884 26 0 0 2886 4 26 0 1 2878 4
PROCEDURE 642
2886 0 0 0 0 0 24 0 3 2578 4
2888 6 0 0 0 0 24 1 0 2899 4 27 0 0 2864 4 23 0 0 1 0
2892 0 0 0 2578 3 24 1 0 2887 4 26 0 1 2886 4 18 0 1 4127 0
2896 26 0 0 2905 4 5 0 0 2569 4 24 1 0 2899 4 27 0 2 2891 4
2900 2 0 0 2614 4 5 0 0 2614 4 24 0 3 2578 4 2 0 0 0 0
2904 24 1 0 2891 4
PROCEDURE 643
2905 0 0 0 0 0 1 1 2 7 0 27 0 0 2911 4
2908 1 1 2 1 0 27 0 0 2911 4 1 1 2 3 0 26 0 1 2905 4
PROCEDURE 644
2912 0 0 0 0 0 18 1 1 4127 0 18 1 3 1 0 1 1 2 10 0
2916 27 0 3 2918 4 1 1 1 6 0 1 1 1 10 0 18 0 3 1 0
2920 18 1 3 3 0 26 0 1 2912 4
SECTION 645
2922 ££££ 0 40- 0
2924 40 0 80 0 +0 0 £0 0
2928 36965 0 647 0 £0 0 +0 0
2932 80 0 40 0 66666 0 0 0
2936 74000 0 70740- 0 0 0 0 0
2940 0 0 0 0 0 0 0 0
2944 0 0 0 0 0 0 0 0
2948 78000 0 70780- 0
PROCEDURE 646
2950 0 0 0 2614 4 1 0 0 515 0
2952 0 0 0 2612 4 0 0 0 4627 0 0 0 0 2616 4 16 0 0 4611 0
2956 7 0 3 4978 0 0 0 0 6 0
PROCEDURE 647
PROCEDURE 648
2958 1 0 1 0 0 24 0 1 20 0
2960 1 1 3 0 0 7 0 0 3179 4 7 0 0 3238 4 2 0 0 2958 4
2964 5 0 0 2958 4 7 0 0 3177 4 7 0 0 3180 4 7 0 0 3182 4
2968 7 0 0 3236 4 7 0 0 3239 4 7 0 0 3241 4 1 1 3 0 0
2972 1 1 3 2 0 1 1 2 0 0 27 0 0 2978 4 24 0 3 3246 4
2976 6 0 0 1 0 18 0 1 5 0 24 0 3 3246 4 4 0 0 0 0
2980 2 1 0 3262 4 6 0 0 9 0 4 0 0 9 0 7 0 0 2984 4
2984 6 0 0 18 0 4 0 0 8 0 2 0 0 8 0 6 1 0 3262 4
2988 27 0 0 3019 4 18 1 1 4127 0 2 1 0 3262 4 27 1 0 2987 4
2992 18 1 1 1 0 3 0 0 10 0 6 1 0 3262 4 24 0 0 10 0
2996 18 0 0 0 0 2 1 0 3262 4 6 0 0 0 0 27 0 0 3004 4
3000 24 0 3 3246 4 23 0 3 128 0 1 1 2 14 0 27 0 1 3017 4
3004 26 1 3 3260 4 6 0 0 1 0 27 0 1 3010 4 24 0 3 20 0
3008 2 1 0 10 0 24 1 0 3030 4 24 0 3 3246 4 24 0 3 30 0
3012 23 0 3 10 0 1 1 2 14 0 27 0 0 3023 4 25 0 3 8 0
3016 24 1 0 3010 4 1 1 3 0 0 1 1 2 1 0 1 1 2 3 0
3020 1 1 1 85 0 24 0 3 3246 4 24 1 0 0 0 24 0 3 3246 4
3024 6 0 0 30 0 18 0 3 1 0 18 0 1 4127 0 1 1 1 1 0
3028 24 0 3 20 0 7 1 0 10 0 2 0 0 1 0 6 0 0 10 0
3032 1 1 1 64 0 18 0 0 6 0 24 0 3 20 0 7 1 0 10 0
3036 1 1 3 0 0
PROCEDURE 649
3037 6 0 0 5 0 18 0 3 1 0 2 0 0 3247 4
3040 6 0 0 3253 4 27 0 0 3053 4 24 1 1 3045 4 24 0 2 2958 4
3044 3 0 0 3250 4 1 1 3 126 0 24 1 2 3257 4 2 0 0 16 0
3048 6 1 0 3248 4 28 1 1 2958 4 24 0 2 3250 4 24 1 2 3257 4
3052 28 0 3 0 0
PROCEDURE 650
3053 26 1 1 3246 4 6 1 1 34 0 27 0 3 3101 4
3056 1 1 1 0 0 18 1 1 4118 0 18 1 1 1 0 2 0 0 3249 4
3060 18 1 1 4 0 2 0 0 3252 4 18 1 1 1 0 2 0 0 3248 4
3064 18 1 1 2 0 2 0 0 3251 4 18 1 1 2 0 2 0 0 3250 4
3068 6 0 0 3253 4 27 0 0 3095 4
PROCEDURE 651
3070 6 0 0 3248 4 1 1 2 7 0
3072 27 0 0 3077 4 1 1 2 1 0 27 0 0 3077 4 1 1 2 3 0
3076 27 0 1 3095 4 26 1 2 3254 4 6 1 2 2958 4 5 0 0 3252 4
3080 27 0 0 3084 4 25 0 2 2 0 24 1 0 3078 4 1 1 3 1 0
3084 24 0 3 3250 4 3 0 0 0 0 18 1 1 4127 0 6 0 0 3251 4
3088 1 1 2 128 0 27 0 0 3094 4 1 1 3 0 0 18 1 1 1 0
3092 24 1 2 3251 4 2 0 0 0 0 2 1 2 2958 4
PROCEDURE 652
3095 6 0 0 3249 4
3096 18 0 1 2 0 4 0 0 3250 4 18 0 1 2 0 4 0 0 3251 4
3100 2 0 1 35 0 25 0 1 2 0 24 1 0 3054 4 6 0 0 3253 4
3104 27 0 0 3113 4 26 1 2 3254 4 6 1 2 2958 4 27 0 0 3110 4
3108 1 1 3 0 0 24 1 0 3020 4 25 0 2 2 0 24 1 0 3106 4
3112 1 1 1 0 0
PROCEDURE 653
3113 24 0 3 20 0 6 0 0 122 0 27 0 0 3148 4
3116 24 0 2 0 0 1 1 2 0 0 3 0 0 3186 4 2 0 0 3245 4
3120 6 0 0 20 0 7 0 0 3184 4 7 0 0 3243 4 1 1 3 0 0
3124 1 1 2 8 0 18 0 1 4 0 1 0 1 16 0 15 0 0 3161 4
3128 27 0 0 3130 4 14 0 0 3234 4 1 1 3 0 0 1 0 1 1 0
3132 15 0 0 3161 4 1 1 2 4 0 27 0 0 3142 4 24 0 2 3162 4
3136 18 1 1 4123 0 1 1 3 26 0 18 1 1 5 0 24 0 3 20 0
3140 28 0 0 154 0 24 1 0 3148 4 24 0 2 3187 4 18 1 1 4123 0
3144 1 1 3 62 0 18 1 1 5 0 24 0 3 20 0 28 0 0 120 0
3148 2 0 0 16 0 24 0 2 2958 4 24 0 3 3246 4 2 0 0 5 0
PROCEDURE 654
3152 26 1 1 3262 4 24 0 2 98 0 24 0 3 3246 4 3 1 0 28 0
3156 24 0 3 3246 4 2 0 0 0 0 1 1 3 0 0 24 0 3 3246 4
3160 24 1 0 1 0 0 0 0 0 0
PROCEDURE 655
3162 0 0 0 0 0 1 1 3 0 0
3164 1 1 2 64 0 24 0 3 2958 4 5 0 0 2 0 18 1 1 4118 0
3168 1 1 3 9 0 18 0 1 5 0 24 0 3 2958 4 4 0 0 1 0
3172 25 1 1 4096 0 24 0 3 2967 4 23 0 2 159 0 26 0 1 2958 4
3176 0 0 0 0 0 24 0 3 178 0 28 0 0 214 0 6 1 0 176 0
3180 24 0 3 178 0 28 0 0 2958 4 24 0 3 178 0 24 1 0 204 0
3184 0 0 0 154 0 0 0 0 14 0 0 0 0 0 0
PROCEDURE 656
3187 0 0 0 0 0
3188 24 0 3 2958 4 24 1 2 2 0 24 0 2 0 0 2 0 0 3006 4
3192 6 1 0 3004 4 0 1 2 3004 4 24 0 3 3006 4 14 1 0 0 0
3196 24 0 3 2958 4 6 0 0 4 0 18 0 0 5 0 24 0 3 2958 4
3200 24 1 2 3 0 28 1 1 0 0 6 0 0 3006 4 24 0 3 2958 4
3204 24 1 2 3 0 29 0 1 0 0 2 0 0 3006 4 1 1 2 64 0
3208 24 0 3 2958 4 5 0 0 3 0 18 1 1 4118 0 1 1 3 4 0
3212 18 0 1 5 0 24 0 3 2958 4 4 0 0 1 0 25 1 1 4096 0
3216 24 0 3 3004 4 23 0 2 160 0 24 0 3 3006 4 0 1 2 0 0
3220 1 1 3 2 0 7 0 0 3006 4 18 1 3 2 0 1 1 3 0 0
3224 18 1 3 6 0 1 1 2 30 0 27 0 0 2963 4 1 1 2 32 0
3228 27 0 0 3003 4 1 1 3 0 0 27 1 1 2993 4 24 1 0 2989 4
3232 26 0 1 2958 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3236 24 0 3 178 0 28 0 0 214 0 6 1 0 176 0 24 0 3 178 0
3240 28 0 0 2958 4 24 0 3 178 0 24 1 0 204 0 0 0 0 120 0
3244 0 0 0 48 0 0 0 0 0 0
SECTION 657
3246 0 0 0 0
3248 0 0 20010 0 0 0 30000- 0
3252 0 0 0 0 0 0 10 0
3256 40- 0 40- 0 0 0 0 0
3260 0 0 18 0 0 0 0 0
3264 0 0 0 0 0 0 0 0
3268 0 0 0 0
PROCEDURE 658
3270 24 0 3 3624 4 6 1 0 26 0
3272 2 1 0 3648 4 1 1 2 2 0 7 0 0 3636 4 7 0 0 3637 4
3276 1 1 3 0 0 6 0 0 15 0 2 0 0 14 0 6 0 0 2 0
3280 18 0 1 4 0 0 0 2 10 0 10 0 0 3631 4 4 0 0 3631 4
3284 24 0 3 3624 4 4 0 0 2 0 18 0 1 5 0 4 0 0 12 0
3288 2 1 0 3634 4 26 1 1 3636 4 1 0 1 16 0 24 0 3 3624 4
3292 15 0 1 1 0 5 0 0 3638 4 27 0 0 3302 4 4 0 0 3638 4
3296 5 0 0 3635 4 27 0 3 3306 4 24 0 3 3624 4 6 1 1 0 0
3300 24 0 3 3624 4 2 1 1 2 0 25 0 1 4098 0 24 1 0 3291 4
3304 11 0 3 7 0 8 1 0 7 0 25 1 1 4096 0 6 1 0 3634 4
3308 24 0 3 3624 4 2 1 1 2 0 1 0 1 15 0 15 0 0 3635 4
3312 24 0 3 3624 4 3 1 0 30 0 7 0 0 3304 4 7 0 0 3305 4
3316 2 0 0 3630 4 24 0 3 3624 4 6 0 1 1 0 24 0 3 3624 4
3320 2 1 0 28 0 1 1 2 4 0 7 0 0 3369 4 7 0 0 3374 4
3324 7 0 0 3361 4
PROCEDURE 659
3325 24 0 3 3624 4 26 0 0 0 0 1 1 3 0 0
3328 5 0 0 3304 4 24 0 3 3624 4 2 0 2 20 0 24 0 3 3624 4
3332 6 0 2 9 0 24 0 3 3624 4 5 0 2 7 0 27 0 1 3339 4
3336 5 0 0 3305 4 24 0 3 3624 4 2 0 2 7 0 1 1 3 0 0
3340 5 0 0 3305 4 24 0 3 3624 4 2 0 2 9 0
PROCEDURE 660
3343 6 0 0 1 0
3344 18 0 3 13 0 24 0 3 3624 4 2 0 3 29 0 6 0 0 10 0
3348 18 0 1 4 0 4 0 0 8 0 24 0 3 3624 4 2 1 3 44 0
3352 24 0 2 0 0 24 0 3 3624 4 2 0 3 37 0 6 0 0 12 0
3356 24 0 3 3624 4 2 0 3 39 0 24 0 3 3624 4 2 1 3 46 0
3360 24 0 3 3624 4 6 0 0 3 0 3 0 0 15 0 24 0 3 3624 4
3364 2 0 3 40 0 1 1 3 0 0 24 0 3 3624 4 2 0 3 42 0
3368 24 0 3 3624 4 6 0 0 1 0 18 0 1 4125 0 1 1 2 126 0
3372 27 0 0 3376 4 24 0 3 3624 4 0 1 1 0 0 24 1 0 3377 4
3376 1 0 1 0 0 0 0 3 3639 4 24 0 3 3624 4 24 0 3 30 0
3380 0 1 0 30 0
PROCEDURE 661
3381 0 0 3 3624 4 6 0 0 0 0 27 0 0 3390 4
3384 6 0 0 10 0 26 1 3 3628 4 24 0 3 3624 4 23 1 3 128 0
3388 25 0 3 2 0 24 1 0 3386 4 6 0 0 1 0 27 0 0 3411 4
3392 18 0 3 3 0 2 0 0 3627 4 6 0 0 10 0 26 1 3 3628 4
3396 24 0 3 3627 4 23 1 3 2 0 25 0 3 2 0 24 1 0 3396 4
3400 6 0 0 1 0 1 1 2 3 0 26 1 3 3628 4 27 0 0 3407 4
3404 6 0 0 3627 4 1 1 1 2 0 2 0 0 3626 4 24 0 3 3626 4
3408 2 1 3 0 0 25 0 3 2 0 24 1 0 3407 4 1 1 3 0 0
3412 1 1 2 0 0 1 1 2 4 0 18 0 1 5 0 1 1 1 80 0
3416 4 0 0 20 0 24 0 3 3624 4 28 1 1 0 0
PROCEDURE 662
3419 6 1 0 3648 4
3420 24 0 3 3624 4 2 1 0 0 0 26 1 3 18 0 1 0 1 1027 0
3424 15 1 3 34 0 27 0 3 3465 4 2 0 0 3627 4 6 0 0 10 0
3428 18 0 1 4 0 4 0 3 66 0 24 0 3 3627 4 2 0 0 64 0
3432 6 0 3 35 0 27 0 0 3465 4 6 0 3 34 0 18 0 1 4124 0
3436 1 1 2 7 0 27 0 0 3442 4 1 1 2 1 0 27 0 0 3442 4
3440 1 1 2 3 0 27 0 1 3446 4 24 0 3 3627 4 2 0 0 0 0
3444 24 1 0 3454 4 2 0 0 0 0 1 1 1 5 0 27 0 0 3450 4
3448 1 1 2 7 0 27 0 1 3454 4 24 0 3 3627 4 6 0 0 64 0
3452 24 0 3 3627 4 2 0 0 65 0 6 0 3 34 0 18 0 1 6 0
3456 18 0 1 4120 0 1 1 2 128 0 27 0 0 3465 4 1 1 1 128 0
3460 2 0 0 3627 4 6 0 0 10 0 18 0 1 4 0 24 0 3 3627 4
3464 2 0 0 64 0 1 1 3 0 0 25 0 3 2 0 24 1 0 3423 4
3468 2 1 0 3634 4 24 0 3 3624 4 2 0 0 5 0 25 1 2 0 0
PROCEDURE 663
3472 26 1 1 3634 4 26 1 2 16 0 0 0 2 3633 4 6 0 2 20 0
3476 2 0 1 99 0 15 0 2 20 0 2 0 1 100 0 25 0 1 2 0
3480 25 0 2 2 0 24 1 0 3474 4 2 0 0 98 0 6 0 0 5 0
3484 4 0 0 5 0 18 0 1 5 0 24 0 3 3624 4 2 1 0 28 0
3488 1 0 1 1027 0 15 1 2 34 0 27 0 2 3494 4 25 0 2 2 0
3492 24 1 0 3491 4 24 1 0 3498 4 2 0 1 99 0 25 0 1 1 0
3496 25 0 2 2 0 24 1 0 3489 4 6 0 0 19 0 24 0 3 3624 4
3500 2 0 0 29 0 1 0 1 3 0 15 0 2 34 0 2 0 1 99 0
3504 5 0 1 99 0 1 1 2 64 0 2 0 1 100 0 25 0 1 2 0
3508 25 0 2 2 0 24 1 0 3502 4 6 0 0 1 0 18 0 3 3 0
3512 2 0 1 99 0 5 0 1 99 0 1 1 2 2 0 3 0 1 100 0
3516 1 1 2 2 0 3 0 1 101 0 1 1 2 2 0 2 0 1 102 0
3520 6 0 0 14 0 2 0 1 103 0 24 1 1 3624 4 24 0 3 3624 4
3524 26 0 0 0 0 24 0 3 3624 4 6 0 0 26 0 1 1 1 5 0
3528 2 0 0 14 0
PROCEDURE 664
3529 1 1 2 2 0 7 0 0 3643 4 24 0 2 3650 4
3532 24 0 3 3643 4 28 1 2 0 0 6 0 0 3642 4 27 0 3 3541 4
3536 27 0 1 3540 4 1 1 3 7710 0 24 0 3 3643 4 2 1 0 6 0
3540 26 0 0 3606 4 24 0 3 3624 4 26 0 0 0 0 1 1 3 76 0
3544 18 0 1 5 0 4 0 0 20 0 24 0 3 3624 4 28 1 1 0 0
3548 24 0 3 3624 4 26 0 0 0 0 26 0 0 3606 4
PROCEDURE 665
3551 24 1 1 3639 4
3552 26 1 1 16 0 6 1 1 20 0 2 1 0 3634 4 24 0 2 0 0
3556 5 0 0 3634 4 26 1 2 3634 4 26 1 3 3634 4 27 0 1 3564 4
3560 25 0 2 200 0 25 0 3 500 0 24 1 0 3564 4 24 1 0 3572 4
3564 25 0 3 180 0 1 1 3 0 0 6 0 0 3565 4 2 0 0 3564 4
3568 24 0 3 3624 4 2 1 3 0 0 25 0 3 2 0 24 1 0 3568 4
3572 6 0 0 10 0 24 0 3 3624 4 23 1 2 0 0 25 0 2 2 0
3576 24 1 0 3573 4 25 0 1 2 0 24 1 0 3553 4 1 1 3 0 0
3580 27 0 0 3589 4 6 0 0 11 0 27 0 0 3589 4 24 0 3 3624 4
3584 6 0 0 43 0 18 0 1 4124 0 7 0 0 3588 4 1 1 3 1500 0
3588 7 0 0 19 0
PROCEDURE 666
3589 6 0 0 3630 4 18 1 1 4123 0 24 0 2 0 0
3592 18 1 1 5 0 24 0 3 3624 4 2 1 0 26 0 24 0 2 146 0
3596 24 0 3 3624 4 2 1 0 28 0 1 1 3 146 0 24 0 3 3624 4
3600 2 0 0 1 0 1 1 3 0 0 24 0 3 3624 4 26 0 0 0 0
3604 6 0 0 3630 4 24 1 0 214 0
PROCEDURE 667
3606 0 0 0 0 0 24 0 3 3624 4
3608 6 0 1 35 0 1 1 1 2 0 24 0 3 3624 4 2 0 1 7 0
3612 24 0 2 3617 4 24 0 3 3624 4 2 0 1 42 0 24 0 3 3624 4
3616 24 1 0 0 0 1 1 3 0 0 24 0 3 3624 4 3 0 1 7 0
3620 24 0 3 3624 4 2 0 1 42 0 26 0 1 3606 4 0 0 0 0 0
SECTION 668
3624 0 0 14 0 0 0 0 0
3628 0 0 6 0 0 0 30 0
3632 0 0 1£££ 0 0 0 0 0
3636 0 0 0 0 £0000 0 66666 0
3640 35.5. 0 517 0 0 0 0 0
3644 35500 0 54517 0 0 0 0 0
3648 0 0 0 0
PROCEDURE 669
3650 0 0 0 3644 4 3 0 0 5 0
3652 0 0 0 138 0 2 0 0 1026 0 0 0 0 138 0 2 0 0 1554 0
3656 0 0 0 138 0 2 0 0 2066 0 0 0 0 3640 4 3 0 0 290 0
3660 0 0 0 156 0 0 0 0 20 0 0 0 0 3640 4 19 0 0 786 0
3664 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
PROCEDURE 670
3668 28 1 1 3672 4 24 0 3 3672 4 24 1 0 0 0 1 1 3 0 0
3672 0 0 0 0 0 2 0 0 48 0 24 0 1 16 0 6 0 0 20 0
3676 24 0 3 3672 4 2 1 0 28 0 24 0 3 3672 4 26 0 0 0 0
3680 24 1 2 3716 4 6 1 0 12 0 5 1 0 3718 4 27 0 1 3678 4
3684 24 0 2 98 0 24 0 3 3672 4 26 0 0 0 0 23 0 0 2 0
3688 0 0 0 16 0 24 1 0 3674 4 24 1 0 3697 4 2 0 0 3684 4
3692 1 1 2 23 0 7 0 0 3689 4 7 0 0 3718 4 6 0 0 200 0
3696 24 1 0 3676 4 26 1 2 18 0 6 0 2 67 0 27 0 0 3704 4
3700 2 0 0 3674 4 1 1 3 15 0 24 0 3 3674 4 23 1 0 0 0
3704 25 0 2 2 0 24 1 0 3698 4 6 0 0 3717 4 1 1 2 0 0
3708 24 0 3 3672 4 3 0 1 35 0 24 0 3 3672 4 2 0 1 7 0
3712 2 0 0 16 0 24 1 1 3672 4 6 1 0 3672 4 24 1 0 3668 4
SECTION 671
3716 40- 0 88017- 0 16773 0 53585 0
3720 0 0 0 0
PROCEDURE 672
3722 0 0 0 0 0 28 1 1 204 0
3724 24 1 0 3674 4 28 1 1 214 0 6 0 0 3673 4 1 1 1 152 0
3728 18 0 1 5 0 24 0 3 20 0 28 1 1 0 0 6 1 0 3734 4
3732 24 1 0 3723 4 0 0 0 0 0 0 0 0 0 0 2 0 0 10 0
3736 7 0 0 3707 4 24 0 2 16 0 2 0 0 3688 4 24 0 3 3672 4
3740 6 0 0 64 0 2 0 0 198 0 24 0 3 3672 4 6 0 0 124 0
3744 2 0 0 199 0 6 0 0 11 0 27 0 0 3766 4 1 1 3 0 0
3748 27 0 0 3766 4 6 0 0 3776 4 2 0 0 3690 4 1 0 1 15 0
3752 15 0 0 3778 4 24 0 3 3672 4 3 0 0 2 0 2 0 0 200 0
3756 24 0 3 200 0 1 1 3 0 0 24 0 3 3672 4 2 0 0 1 0
3760 24 0 3 20 0 5 0 0 165 0 4 0 0 3779 4 1 1 2 0 0
3764 24 0 3 3672 4 6 0 0 47 0 24 0 3 20 0 6 0 0 122 0
3768 27 0 0 3773 4 6 0 0 3777 4 18 0 1 5 0 24 0 3 20 0
3772 24 1 0 169 0 6 0 0 3777 4 18 0 1 5 0 24 1 0 3725 4
3776 6 0 0 3671 4 2 0 0 286 0 0 0 0 0 0 26 0 1 0 0
SECTION 673
3780 39249 0 904£ 0 9276 0 8209 0
3784 1009 0 1249 0 1209 0 8076 0
3788 1200 0 £208 0 £249 0 1‼3+1 0
3792 1209 0 104£ 0 8241 0 201 0
3796 8209 0 1009 0 1041 0 21040 0
3800 9208 0 1201 0 77 0 £+40 0
3804 1049 0 9079 0 93+0 0 83+1 0
3808 8209 0 1009 0 9209 0 100£ 0
3812 9249 0 9276 0 8249 0 9249 0
3816 9241 0 9241 0 8248 0 8241 0
3820 9209 0 9249 0 8249 0 8041 0
3824 38249 0 1201 0 823£ 0 3‼£££ 0
3828 .+0 0 38 0 38000 0 3.:‼6 0
SECTION 674
3832 39181 0 13‼£ 0 9:‼6 0 £200 0
3836 0 0 0 0 8209 0 1219 0
3840 38000 0 .08 0 48 0 49 0
3844 28041 0 £249 0 1249 0 9249 0
3848 333‼6 0 1609 0 1249 0 9209 0
3852 9.79 0 9241 0 9209 0 9249 0
3856 9249 0 9208 0 1241 0 6:‼6 0
3860 249 0 1+41 0 9249 0 9249 0
3864 8041 0 9248 0 9249 0 8049 0
3868 .:‼6 0 1009 0 1009 0 .49 0
3872 8041 0 249 0 1180 0 0 0
3876 249 0 9276 0 83+8 0 8049 0
3880 8:‼6 0 8248 0 36041 0 36:‼6 0
3884 9049 0 9209 0 1249 0 9248 0
3888 9389 0 9049 0 9001 0 9249 0
3892 9049 0 8249 0 9249 0 6249 0
3896 9249 0 9249 0 8:‼6 0 31249 0
3900 9249 0 9049 0 9001 0 9249 0
3904 1241 0 1208 0 9246 0 9249 0
3908 9049 0 9049 0 9249 0 9009 0
3912 9208 0 9241 0 19249 0 ‼:89 0
3916 820‼ 0 £20‼ 0 1636 0 9209 0
3920 9041 0 .:‼6 0 9249 0 9209 0
3924 8009 0 9200 0 6 0 3.:‼6 0
SECTION 675
3928 10041 0 9.49 0 9240 0 11249 0
3932 120Ю 0 8289 0 :‼6 0 0 0
3936 0 0 28Ю28 0 28Ю38 0 28Ю00 0
3940 9402 0 Ю280 0 8249 0 9041 0
3944 1081 0 1249 0 Ю400 0 Ю3+£ 0
3948 9250 0 8092 0 ‼209 0 11248 0
3952 8278 0 36:81 0 1201 0 9249 0
3956 11.82 0 2:‼6 0 448 0 8249 0
3960 9208 0 11041 0 10276 0 1040 0
3964 1009 0 1140Ю 0 241 0 924Ю 0
3968 10250 0 9081 0 9241 0 1049 0
3972 9236 0 11089 0 Ю40Ю 0 12236 0
3976 £058 0 8678 0 9249 0 Ю049 0
3980 1012 0 1249 0 8248 0 Ю048 0
3984 £281 0 91+Ю 0 1249 0 9249 0
3988 9249 0 83+8 0 9208 0 11041 0
3992 1249 0 9041 0 8248 0 9249 0
3996 8201 0 1040 0 200 0 11+0 0
4000 0 0 38 0 0 0 38 0
4004 28Ю28 0 £‼6 0
SECTION 676
4006 2049 0 9249 0
4008 89£6 0 980+ 0 Ю452 0 11209 0
4012 2281 0 11201 0 Ю281 0 8008 0
4016 8001 0 39000 0 10480 0 10081 0
4020 9248 0 8249 0 1476 0 41 0
4024 1041 0 9208 0 8249 0 820£ 0
4028 1.40 0 £241 0 1409 0 9241 0
4032 11‼6 0 10291 0 Ю240 0 :‼6 0
4036 9201 0 30240 0 2048 0 411 0
4040 ‼:‼6 0 36288 0 £67£ 0 140 0
4044 Ю05 0 51‼6 0 36080 0 28400 0
4048 502: 0 2:146 0 502: 0 Ю28 0
4052 140 0 28Ю05 0 28 0 28‼68 0
4056 :‼6 0 2028 0 10000 0 7 0
4060 £+0 0 0 0 3. 0 8209 0
SECTION 677
4064 6:‼2 0 12089 0 8089 0 1049 0
4068 9208 0 1001 0 .:‼6 0 241 0
4072 9208 0 124£ 0 1208 0 8248 0
4076 1210 0 8411 0 2211 0 107Ю 0
4080 8.41 0 1804‼ 0 8240 0 Ю289 0
4084 288 0 Ю240 0 Ю049 0 1201 0
4088 1£002 0 £262 0 2250 0 1108Ю 0
4092 208 0 9.78 0 8:‼6 0 9042 0
4096 .79 0 10200 0 92+6 0 Ю292 0
4100 10052 0 10202 0 83‼6 0 Ю00Ю 0
4104 8092 0 200Ю 0 2410 0 10491 0
4108 £202 0 36:81 0 9049 0 104£ 0
4112 479 0 39291 0 11248 0 1201 0
4116 900Ю 0 8041 0 3944‼ 0 1088 0
4120 10236 0 1108‼ 0 19.50 0 8041 0
4124 83£9 0 1040 0 6:‼6 0 36:‼6 0
4128 38000 0 3£ 0 3£ 0 .00 0
4132 28000 0 Ю00 0 28000 0 3.:‼6 0
SECTION 678
4136 9.+0 0 32441 0 3904Ю 0 £089 0
4140 8251 0 12241 0 241 0 1089 0
4144 £000 0 451 0 409 0 1‼6 0
4148 Ю27Ю 0 848£ 0 9209 0 1Ю40‼ 0
4152 1028‼ 0 10242 0 1048 0 38£‼6 0
SECTION 679
4156 1:7+. 0 6188 0 2080+ 0 +31£ 0
4160 :£££ 0 1.7:£ 0 1:79: 0 1.79. 0
4164 1££9£ 0 1£787 0 62:+ 0 1++1. 0
4168 .1‼. 0 2075+ 0 1Ю1££ 0 3££.0 0
4172 61Ю1 0 21398 0 18£££ 0 18£9: 0
4176 .5Ю0 0 16£££ 0 3£186 0 1‼£££ 0
4180 15617 0 3.21: 0 £79. 0 108.0 0
4184 20£££ 0 3££££ 0 11452 0 13706 0
4188 143+Ю 0 1.759 0 12Ю£. 0 91+6 0
4192 ‼61+ 0 2‼£‼£ 0
SECTION 1024
4194 0 0 0 0
4196 0 0 0 0 0 0 0 0
4200 0 0 0 0 0 0 0 0
4204 0 0 0 0 0 0 0 0
4208 4 0 Ю 0 0 0 23 0
4212 8000 0 5146 0 0 0 11 0
4216 0 0 20028 0 0 0 20032 0
4220 0 0 2000. 0 0 0 0 0
4224 6 0 Ю 0 0 0 24 0
4228 0 0 27 0 1 0 64 0
4232 0 0 Ю 0 0 0 6 0
4236 0 0 3 0 0 0 . 0
4240 36653 0 51636 0 0 0 8 0
4244 0 0 4 0 :5:5: 0 5:5:5 0
4248 0 0 2001£ 0 0 0 30 0
4252 9+3 0 0 0 0 0 28 0
4256 0 0 7 0 0 0 90 0
4260 0 0 20034 0 0 0 12+ 0
4264 0 0 28 0
SECTION 1025
4266 2 0 1 0
4268 0 0 2001 0 5767 0 80000 0
4272 66666 0 +4000- 0
SECTION 1026
PROCEDURE 1006
CHAPT 7
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 680
33 0 1 0 2948 4 0 0 3 0 4 1 1 3 7 0
36 0 0 2 3032 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1024
40 0 1 1 2948 4 6 0 0 6279 4 27 0 0 45 4 6 1 0 5406 4
44 2 1 0 5000 4 24 0 2 1776 4 24 1 2 15 4 28 1 2 0 0
48 6 0 0 6278 4 27 0 0 59 4 6 1 0 2962 4 24 1 2 15 4
52 2 1 0 12 0 6 1 0 1700 4 24 1 2 15 4 2 1 0 14 0
56 1 0 1 15 0 24 1 2 15 4 14 1 0 10 0 0 1 0 2948 4
60 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0 25 1 1 4096 0
64 24 0 3 0 4 23 0 2 0 1280 0 1 1 2948 4 6 1 0 2964 4
68 24 1 2 15 4 28 1 1 0 0 6 0 0 6279 4 27 0 1 497 4
72 6 1 0 2966 4 28 1 1 3040 4 6 1 0 2968 4 2 1 0 7354 4
76 26 1 2 2970 4 26 0 0 1478 4 24 1 2 21 4 24 0 2 4 0
80 18 1 1 4123 0 1 1 3 8 0 18 1 1 5 0 28 1 1 4946 4
84 24 0 3 1 4 2 0 0 74 0 6 1 0 4946 4 18 1 1 4126 0
88 5 1 0 1640 4 27 0 0 101 4 6 1 0 2972 4 4 0 0 6275 4
92 3 1 0 2948 4 26 1 3 2948 4 1 1 3 8 0 0 0 2 3032 4
96 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 512 0 0 0 33 1
100 0 0 0 76 3 24 1 2 21 4 6 1 0 1 0 2 0 0 1204 4
104 26 1 2 2970 4 24 1 2 21 4 6 1 2 4 0 18 1 1 4126 0
108 5 1 0 1640 4 27 0 1 126 4 18 1 1 2 0 1 1 2 70 0
112 27 0 0 126 4 1 1 2 1 0 27 0 0 126 4 27 0 3 119 4
116 1 1 2 8 0 27 0 0 130 4 24 1 0 126 4 24 1 2 21 4
120 6 1 2 7 0 2 0 0 3040 4 24 1 2 21 4 6 1 2 9 0
124 24 0 1 3040 4 2 0 0 3040 4 25 0 2 8 0 24 1 0 105 4
128 26 0 0 1478 4 24 1 0 104 4 0 1 0 2948 4 0 0 3 0 4
132 0 1 2 2974 4 6 1 0 2976 4 4 0 0 11 4 25 1 1 4096 0
136 24 0 3 0 4 23 0 2 0 256 0 1 1 2948 4 26 0 0 1478 4
140 6 0 0 1204 4 24 1 2 21 4 5 1 0 1 0 27 0 3 130 4
144 27 0 1 139 4 24 0 2 5406 4 18 1 1 4123 0 1 1 3 100 0
148 18 1 1 5 0 28 1 1 3040 4 1 1 3 204 0 2 0 0 4040 4
152 24 0 1 5999 4 6 0 0 4041 4 24 0 1 5999 4 2 0 0 5371 4
156 24 0 2 5372 4 18 1 1 4123 0 6 0 0 5999 4 18 1 1 5 0
160 28 0 0 4042 4 24 0 1 5999 4 6 0 0 5356 4 2 0 0 4041 4
164 2 0 0 6273 4
PROCEDURE 681
165 6 0 0 5000 4 24 1 2 19 4 2 1 0 7 0
168 6 0 0 5001 4 24 1 2 19 4 2 1 0 9 0 6 1 0 1688 4
172 24 1 2 19 4 2 1 0 4 0 26 0 0 1591 4 26 1 2 2968 4
176 26 1 1 2978 4 6 0 1 3040 4 26 0 0 639 4 25 0 1 1 0
180 24 1 0 177 4 26 1 1 2980 4 6 0 1 5980 4 26 0 0 639 4
184 25 0 1 1 0 24 1 0 182 4 26 1 1 2982 4 6 0 1 6206 4
188 26 0 0 639 4 25 0 1 1 0 24 1 0 187 4 26 1 1 2984 4
192 6 0 1 5038 4 26 0 0 639 4 25 0 1 1 0 24 1 0 192 4
196 26 1 1 2976 4 6 0 1 5138 4 26 0 0 639 4 25 0 1 1 0
200 24 1 0 197 4 26 0 0 1591 4
PROCEDURE 682
202 26 1 1 2968 4 1 1 3 1 0
204 2 0 0 5014 4 24 0 2 1808 4 24 1 2 19 4 28 1 2 4 0
208 26 0 0 1591 4 24 0 2 1818 4 24 1 2 15 4 28 1 2 2 0
212 1 1 3 2 0 3 0 0 5014 4 26 0 0 1513 4 26 1 2 2970 4
216 24 1 0 218 4
PROCEDURE 683
217 26 0 0 1472 4 26 0 0 1608 4 6 1 0 4946 4
220 18 1 1 4126 0 5 1 0 1640 4 27 0 1 667 4 18 1 1 2 0
224 1 1 2 72 0 27 0 2 309 4 1 1 1 8 0 2 0 0 7341 4
228 6 1 0 4951 4 2 0 0 5021 4 6 1 0 4949 4 26 0 0 1621 4
232 3 0 0 5015 4 2 0 0 1706 4 0 0 3 3033 4
PROCEDURE 684
235 24 0 1 7340 4
236 26 0 1 236 4 0 0 0 275 3 0 0 0 239 3 6 1 0 4949 4
240 27 0 0 217 4 6 1 0 4951 4 26 0 0 1621 4 0 0 3 3033 4
244 2 0 0 5034 4 24 0 2 1822 4 0 1 0 2948 4 0 0 3 0 4
248 24 1 2 15 4 24 0 2 0 0 4 0 0 7354 4 2 0 0 2954 4
252 0 1 1 2948 4 24 0 3 2954 4 28 1 2 2 0 6 0 0 7341 4
256 1 1 2 6 0 27 0 1 268 4 6 1 0 2986 4 0 1 0 2948 4
260 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0 4 0 0 7354 4
264 2 0 0 2954 4 0 1 1 2948 4 24 0 3 2954 4 2 1 0 2 0
268 23 0 0 4 0 0 0 0 7354 3 24 1 0 217 4 26 0 0 1513 4
272 6 1 0 2968 4 2 1 0 7354 4 24 1 0 217 4 6 1 0 7360 4
276 2 1 0 1670 4 6 0 0 4999 4 27 0 0 280 4 26 0 0 1204 4
280 6 1 0 1670 4 2 1 0 7360 4 2 0 0 5035 4 6 0 0 7341 4
284 1 1 2 1 0 27 0 1 289 4 6 1 0 1660 4 0 1 2 1662 4
288 24 1 0 303 4
PROCEDURE 685
289 1 1 2 5 0 27 0 1 295 4 6 1 0 2988 4
292 24 1 2 15 4 2 1 0 2 0 24 1 0 307 4 1 1 2 1 0
296 27 0 1 301 4 6 1 0 2982 4 2 1 0 7354 4 6 1 0 2990 4
300 24 1 0 292 4 6 1 0 1664 4 0 1 2 1666 4 0 1 0 5016 4
304 24 0 2 1848 4 24 1 2 15 4 28 1 2 2 0 26 0 0 1513 4
308 24 1 0 217 4
PROCEDURE 686
309 26 0 0 1472 4 26 0 0 1608 4 6 1 0 4946 4
312 5 1 0 1652 4 27 0 0 1475 4 6 1 0 4946 4 18 0 1 4126 0
316 5 1 0 1640 4 27 0 1 309 4 6 0 0 1756 4 24 1 2 19 4
320 2 1 1 5 0 24 1 2 19 4 2 1 1 6 0 26 0 0 1591 4
324 26 1 1 2968 4 6 0 0 4999 4 27 0 0 328 4 26 0 0 1204 4
PROCEDURE 687
328 1 1 3 0 0 2 0 0 5026 4 2 0 0 5035 4 24 0 2 1808 4
332 24 1 2 19 4 28 1 2 4 0 6 0 0 5014 4 26 0 0 1627 4
336 24 1 2 19 4 2 1 0 5 0 24 0 1 7340 4 26 0 1 339 4
340 0 0 0 345 3 0 0 0 342 3 26 0 0 1513 4 6 1 0 2968 4
344 2 1 0 7354 4 24 0 2 1818 4 24 1 2 15 4 28 1 2 2 0
348 6 1 0 2982 4 2 1 0 7360 4 0 0 3 3034 4 1 1 3 1 0
352 7 0 0 5014 4 0 0 3 3033 4 6 0 0 5014 4 1 1 2 1 0
356 5 0 0 5999 4 27 0 1 369 4 24 0 2 1678 4 18 1 1 4123 0
360 1 1 3 6 0 18 1 1 5 0 24 1 2 15 4 28 1 1 10 0
364 1 1 3 202 0 2 0 0 5026 4 26 0 0 1513 4 26 0 0 1591 4
368 24 1 0 421 4 6 1 0 4946 4 5 1 0 1636 4 26 1 1 2992 4
372 27 0 0 377 4 26 1 1 2968 4 26 0 0 1513 4 26 0 0 1591 4
376 24 1 0 219 4 6 0 0 6273 4 27 0 0 412 4 18 0 1 5 0
380 3 1 0 2948 4 26 1 3 2948 4 6 1 0 2994 4 24 1 2 15 4
384 28 1 1 2 0 26 0 0 1513 4 26 0 0 1513 4 26 0 0 1513 4
388 6 1 0 2996 4 24 1 2 15 4 2 1 0 4 0 6 1 0 2998 4
392 24 1 2 15 4 2 1 0 6 0 26 0 0 1513 4 24 0 3 1 4
396 6 0 3 77 0 26 0 0 1621 4 2 0 0 1621 4 24 0 3 1 4
400 6 0 3 76 0 2 0 0 1513 4 0 0 3 3033 4 24 0 2 1772 4
404 24 1 2 15 4 28 1 2 4 0 26 0 0 1513 4 25 0 3 2 0
408 24 1 0 395 4 26 0 0 1513 4 26 0 0 1513 4 26 0 0 1513 4
412 24 0 2 3040 4 18 1 1 4123 0 1 1 3 1000 0 18 1 1 5 0
416 24 0 3 1 4 28 1 1 1074 0 6 0 0 6278 4 27 0 0 33 4
420 24 1 0 1090 4
PROCEDURE 688
421 1 1 3 3840 0 2 1 0 4967 4 1 1 3 202 0
424 2 1 0 4969 4 26 0 0 1238 4 1 1 3 20 0 2 0 0 7360 4
428 1 1 3 0 0 2 1 0 4967 4 2 1 0 4969 4 26 0 0 1079 4
432 26 0 0 1079 4
PROCEDURE 689
433 6 0 0 5977 4 18 0 1 5 0 27 0 0 318 4
436 3 1 0 2948 4 26 1 3 2948 4 6 1 3 6106 4 2 1 0 5580 4
440 24 0 3 0 4 6 1 0 6 22 2 1 0 5556 4 1 1 3 1 0
444 2 1 0 5558 4 0 0 3 5580 4 1 1 2 1 0 18 1 1 4118 0
448 1 1 3 0 0 18 1 1 10 0 2 1 0 5550 4 0 0 3 5581 4
452 1 1 2 1 0 0 0 3 3033 4 2 1 0 5552 4 6 0 0 5581 4
456 2 0 0 5552 4 0 1 2 5552 4 6 1 0 3000 4 2 1 0 7356 4
460 15 0 0 1759 4 2 0 0 5554 4 5 0 0 5554 4 1 1 1 16 0
464 18 0 1 5 0 2 1 0 5552 4 26 1 3 5552 4 0 0 3 5580 4
468 5 1 0 5550 4 24 0 1 7356 4 4 1 0 5558 4 27 0 2 495 4
472 25 0 3 1 0 24 1 0 469 4 4 1 0 5550 4 24 0 1 7356 4
476 2 1 0 5560 4 0 0 3 3033 4 18 1 1 4127 0 23 0 0 2 0
480 0 0 0 7356 3 24 1 0 460 4 26 1 3 3002 4 6 0 3 5558 4
484 2 1 0 4969 4 26 0 0 1079 4 6 0 3 5559 4 2 1 0 4969 4
488 26 0 0 1079 4 25 0 3 2 0 24 1 0 483 4 26 1 3 5556 4
492 25 0 3 2 0 24 1 0 438 4 24 1 0 318 4 6 1 0 1746 4
496 24 1 0 475 4
PROCEDURE 690
497 6 0 0 5000 4 24 1 2 19 4 3 1 0 5 0
500 24 1 2 19 4 2 1 0 13 0 6 0 0 5001 4 24 1 2 19 4
504 3 1 0 7 0 24 1 2 19 4 2 1 0 15 0 1 1 3 2 0
508 24 1 2 19 4 2 1 0 11 0 1 1 3 3 0 24 1 2 19 4
512 2 1 0 19 0 1 1 3 4 0 24 1 2 19 4 2 1 0 17 0
516 6 0 0 1746 4 24 1 2 19 4 2 1 0 21 0 26 0 0 1591 4
520 26 0 0 656 4 24 1 2 17 4 6 1 0 5 0 5 0 0 1746 4
524 27 0 1 520 4 1 0 1 1 0 24 1 2 17 4 15 1 0 7 0
528 1 1 2 5 0 27 0 1 520 4 6 0 0 5001 4 24 1 2 17 4
532 2 1 0 11 0 26 0 0 876 4 26 0 0 656 4 24 1 2 17 4
536 6 1 0 42 0 5 1 0 3004 4 27 0 1 533 4 24 1 2 17 4
540 6 1 0 13 0 3 0 0 5979 4 2 0 0 5999 4 6 0 0 5001 4
544 24 1 2 17 4 2 1 0 41 0 26 0 0 876 4 26 0 0 656 4
548 24 1 2 17 4 6 1 0 4 0 5 1 0 1688 4 27 0 1 546 4
552 6 0 0 5001 4 24 1 2 17 4 2 1 0 9 0 26 0 0 876 4
PROCEDURE 691
556 26 1 2 3006 4 26 1 1 2978 4 26 0 0 647 4 2 0 1 3040 4
560 25 0 1 1 0 24 1 0 558 4 26 1 1 2980 4 26 0 0 647 4
564 2 0 1 5980 4 25 0 1 1 0 24 1 0 563 4 26 1 1 2982 4
568 26 0 0 647 4 2 0 1 6206 4 25 0 1 1 0 24 1 0 568 4
572 26 1 1 2984 4 26 0 0 647 4 2 0 1 5038 4 25 0 1 1 0
576 24 1 0 573 4 26 1 1 2976 4 26 0 0 647 4 2 0 1 5138 4
580 25 0 1 1 0 24 1 0 578 4 26 0 0 656 4 24 1 2 17 4
584 6 1 0 12 0 5 1 0 1634 4 27 0 0 622 4 24 1 2 17 4
588 6 1 0 4 0 5 1 0 1634 4 27 0 0 627 4 4 1 0 1634 4
592 5 1 0 1638 4 27 0 0 627 4 4 1 0 1638 4 1 1 2 85 0
596 27 0 0 612 4 24 1 2 17 4 6 1 0 12 0 5 1 0 3008 4
600 27 0 1 625 4 26 0 0 656 4 24 1 2 17 4 6 1 0 4 0
604 5 1 0 1634 4 27 0 0 627 4 4 1 0 1634 4 5 1 0 1638 4
608 27 0 0 627 4 4 1 0 1638 4 1 1 2 85 0 27 0 1 601 4
612 2 0 0 6269 4 0 1 0 2948 4 0 0 3 0 4 6 1 0 3010 4
616 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
620 0 1 1 2948 4 24 1 0 629 4 6 0 0 5001 4 24 1 2 17 4
624 2 1 0 11 0 26 0 0 876 4 24 1 0 582 4 1 1 3 1 0
628 2 0 0 6269 4 0 1 0 2948 4 0 0 3 0 4 0 1 2 3012 4
632 6 1 0 3014 4 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4
636 23 0 2 0 256 0 0 3 2952 4 24 1 0 412 4
PROCEDURE 692
639 0 0 0 0 0
640 24 1 2 19 4 2 1 2 5 0 25 0 2 2 0 24 1 0 646 4
644 26 0 0 1591 4 26 1 2 2968 4 26 0 1 639 4
PROCEDURE 693
647 0 0 0 0 0
648 25 0 2 2 0 24 1 0 653 4 26 0 0 656 4 26 0 0 876 4
652 26 1 2 2968 4 24 1 2 17 4 6 1 2 5 0 26 0 1 647 4
PROCEDURE 694
656 0 0 0 0 0 0 1 0 2948 4 0 0 3 0 4 0 0 2 16 4
660 6 1 0 3016 4 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4
664 23 0 2 0 256 0 1 1 2948 4 26 0 1 656 4
PROCEDURE 695
667 24 0 1 7341 4
668 26 0 1 668 4 0 0 0 676 3 0 0 0 815 3 0 0 0 935 3
672 0 0 0 935 3 0 0 0 987 3 0 0 0 676 3 0 0 0 1013 3
PROCEDURE 696
676 6 1 0 4951 4 18 1 1 4126 0 2 0 0 5016 4 18 1 3 1 0
680 2 0 0 5022 4 18 1 3 7 0 2 1 0 4967 4 0 1 2 4953 4
684 6 1 0 4949 4 27 0 0 703 4 1 1 2 1 0 27 0 0 734 4
688 1 1 2 1 0 27 0 1 701 4 15 0 0 1749 4 2 0 0 5017 4
692 0 0 2 5022 4 27 1 0 696 4 4 0 0 5017 4 24 1 0 697 4
696 5 0 0 5017 4 24 0 1 5016 4 5 0 0 3040 4 2 1 0 4969 4
700 24 1 0 729 4 6 1 0 4949 4 2 1 0 4967 4
PROCEDURE 697
703 15 0 0 1749 4
704 2 0 0 5017 4 6 1 0 4953 4 2 1 0 4969 4 0 0 2 5022 4
708 27 1 0 711 4 5 0 0 5017 4 2 0 0 5017 4 6 0 0 5017 4
712 24 0 1 5016 4 4 0 0 3040 4 27 0 3 718 4 0 0 2 1749 4
716 14 1 0 4969 4 24 1 0 729 4
PROCEDURE 698
718 6 0 0 3035 4 2 1 0 4969 4
720 2 1 0 4967 4 26 1 3 6273 4 6 0 0 5016 4 18 0 1 5 0
724 4 0 0 1706 4 24 0 3 1 4 2 1 3 76 0 1 1 3 2 0
728 7 0 0 6273 4 26 0 0 1238 4 24 0 1 7340 4 26 0 1 731 4
732 0 0 0 774 3 0 0 0 217 3
PROCEDURE 699
734 6 0 0 1761 4 27 0 0 747 4
736 0 1 0 2948 4 0 0 3 0 4 6 0 0 1 4 4 0 0 7366 4
740 2 0 0 2954 4 0 1 1 2948 4 24 0 3 2954 4 6 0 0 74 0
744 18 0 3 2 0 18 0 1 4125 0 24 1 0 756 4 0 0 2 1760 4
748 0 1 0 2948 4 0 0 3 0 4 6 0 0 1 4 4 0 0 7366 4
752 2 0 0 2954 4 0 1 1 2948 4 24 0 3 2954 4 15 0 0 74 0
756 24 0 1 5016 4 4 0 0 3040 4 2 0 0 5016 4 0 1 2 4953 4
760 15 0 0 1750 4 27 0 3 764 4 4 0 0 5016 4 24 1 0 765 4
764 5 0 0 5016 4 2 1 0 4969 4 1 1 3 1 0 5 0 0 1761 4
768 3 0 0 1761 4 27 0 1 729 4 23 0 0 4097 0 0 0 0 7366 3
772 24 1 0 773 4 24 1 0 729 4
PROCEDURE 700
774 0 1 2 4969 4 18 1 1 6 0
776 2 0 0 5019 4 18 1 3 1 0 2 0 0 5023 4 18 1 3 2 0
780 2 0 0 5024 4 18 1 3 13 0 2 0 0 5022 4 6 1 0 4969 4
784 27 0 2 787 4 1 1 3 16 0 7 0 0 5019 4
PROCEDURE 701
787 6 1 0 4967 4
788 26 0 0 1621 4 2 0 0 4970 4 6 0 0 5022 4 26 0 0 1621 4
792 2 1 0 4968 4 6 0 0 5019 4 26 0 0 1621 4 2 1 0 4966 4
796 0 0 3 3033 4 24 0 2 1860 4 0 1 0 2948 4 0 0 3 0 4
800 24 1 2 15 4 24 0 2 0 0 4 0 0 7360 4 2 0 0 2954 4
804 0 1 1 2948 4 24 0 3 2954 4 28 1 2 4 0 1 1 3 1 0
808 7 0 0 5035 4 2 0 0 4999 4 23 0 0 10 0 0 0 0 7360 3
812 24 1 0 217 4 26 0 0 1204 4 24 1 0 217 4
PROCEDURE 702
815 6 1 0 4947 4
816 18 1 1 4126 0 2 0 0 5016 4 18 1 3 1 0 2 0 0 5019 4
820 18 1 3 7 0 3 1 0 4967 4 2 1 0 4971 4
PROCEDURE 703
823 6 1 0 4952 4
824 2 1 0 4972 4 6 1 0 4951 4 27 0 0 847 4 24 0 1 5016 4
828 6 0 0 3040 4 1 0 1 15 0 15 1 0 4951 4 2 0 0 5020 4
832 6 1 0 4973 4 27 0 2 836 4 5 0 0 5020 4 24 1 0 837 4
836 4 0 0 5020 4 2 1 0 4973 4 0 0 2 5019 4 27 1 0 848 4
840 5 1 0 4973 4 27 0 0 845 4 2 1 0 4973 4 2 0 0 5019 4
844 24 1 0 848 4 2 0 0 5019 4 6 0 0 1754 4 2 1 0 4971 4
848 24 0 1 5016 4 6 0 0 3040 4 4 1 0 4949 4 2 1 0 4969 4
852 6 0 0 5019 4 27 0 0 856 4 6 0 0 1754 4 2 1 0 4971 4
856 26 0 0 1238 4 6 1 0 4967 4 26 0 0 1621 4 2 0 0 5020 4
860 0 1 2 4969 4 18 1 1 6 0 1 1 3 0 0 18 1 1 4 0
864 26 0 0 1621 4 2 0 0 5028 4 0 0 3 3033 4 1 0 1 16 0
868 15 1 0 4969 4 7 0 0 5020 4 6 1 0 4970 4 2 1 0 4966 4
872 6 1 0 4972 4 2 1 0 4968 4 26 0 0 1238 4 24 1 0 886 4
PROCEDURE 704
876 0 0 0 0 0 24 1 2 17 4 24 0 2 4 0 18 1 1 4123 0
880 1 1 3 50 0 18 1 1 5 0 24 1 2 19 4 28 1 1 4 0
884 26 0 0 1591 4 26 0 1 876 4
PROCEDURE 705
886 1 0 1 15 0 24 0 1 7340 4
888 26 0 1 888 4 0 0 0 891 3 0 0 0 217 3 15 1 0 4969 4
892 26 0 0 1621 4 0 0 3 3033 4 2 0 0 1670 4 2 0 0 4988 4
896 6 1 0 4969 4 27 0 3 901 4 6 1 0 4967 4 18 0 1 4125 0
900 27 0 0 903 4 1 1 3 1 0 2 0 0 4988 4 26 1 3 3018 4
904 0 1 2 4969 4 18 1 1 6 0 2 0 3 4966 4 18 1 1 1 0
908 25 0 3 1 0 24 1 0 906 4 26 1 3 3018 4 6 0 3 4966 4
912 26 0 0 1621 4 2 0 3 4966 4 25 0 3 1 0 24 1 0 911 4
916 0 0 3 3033 4 24 0 2 1828 4 0 1 0 2948 4 0 0 3 0 4
920 24 1 2 15 4 24 0 2 0 0 4 0 0 7360 4 2 0 0 2954 4
924 0 1 1 2948 4 24 0 3 2954 4 28 1 2 4 0 1 1 3 2 0
928 7 0 0 5035 4 2 0 0 4999 4 23 0 0 20 0 0 0 0 7360 3
932 24 1 0 217 4 26 0 0 1204 4 24 1 0 217 4
PROCEDURE 706
935 6 1 0 3020 4
936 2 1 0 7356 4 24 0 1 7356 4 6 1 0 4947 4 18 1 1 4126 0
940 2 0 0 5016 4 18 1 1 2 0 2 1 0 4967 4 0 0 2 1757 4
944 15 1 0 4967 4 27 0 0 948 4 6 0 0 1754 4 2 1 0 4967 4
948 6 0 0 7341 4 1 1 2 3 0 27 0 1 957 4 24 0 1 7356 4
952 6 1 0 4949 4 27 0 2 959 4 24 0 1 5016 4 5 0 0 3040 4
956 24 1 0 961 4 24 0 1 7356 4 6 1 0 4949 4 24 0 1 5016 4
960 4 0 0 3040 4 2 1 0 4969 4 26 0 0 1238 4 6 1 0 4969 4
964 24 0 1 7356 4 2 0 0 4970 4 6 1 0 4967 4 24 0 1 7356 4
968 2 0 0 4972 4 23 0 0 4 0 0 0 0 7356 3 24 1 0 937 4
972 24 0 1 7340 4 26 0 1 973 4 0 0 0 976 3 0 0 0 217 3
976 24 0 2 1792 4 0 1 0 2948 4 0 0 3 0 4 24 1 2 15 4
980 24 0 2 0 0 4 0 0 7360 4 2 0 0 2954 4 0 1 1 2948 4
984 24 0 3 2954 4 28 1 2 4 0 24 1 0 927 4
PROCEDURE 707
987 6 1 0 3020 4
988 2 1 0 7356 4 1 1 3 0 0 2 1 0 4967 4 24 0 1 7356 4
992 6 1 0 4946 4 2 1 0 4968 4 26 0 0 1238 4 23 0 0 2 0
996 0 0 0 7356 3 24 1 0 991 4 24 0 1 7340 4 26 0 1 999 4
1000 0 0 0 1002 3 0 0 0 217 3 6 1 0 3020 4 2 1 0 7356 4
1004 24 0 1 7356 4 6 1 0 4947 4 2 0 0 4970 4 2 0 0 4972 4
1008 26 0 0 1060 4 23 0 0 2 0 0 0 0 7356 3 24 1 0 1004 4
1012 24 1 0 217 4
PROCEDURE 708
1013 6 1 0 4946 4 5 1 0 1656 4 27 0 1 1054 4
1016 6 1 0 4951 4 2 0 0 5016 4 6 1 0 4953 4 24 0 0 5016 4
1020 4 0 0 3040 4 5 0 0 5021 4 3 1 0 4969 4 7 0 0 5021 4
1024 1 1 3 3840 0 2 1 0 4967 4 26 0 0 1238 4 24 0 1 7340 4
1028 26 0 1 1028 4 0 0 0 1031 3 0 0 0 217 3 6 1 0 4967 4
1032 2 0 0 4972 4 6 1 0 4969 4 2 0 0 4970 4 1 1 3 1 0
1036 2 0 0 4999 4 24 0 2 1788 4 0 1 0 2948 4 0 0 3 0 4
1040 24 1 2 15 4 24 0 2 0 0 4 0 0 7354 4 2 0 0 2954 4
1044 0 1 1 2948 4 24 0 3 2954 4 28 1 2 4 0 23 0 0 10 0
1048 0 0 0 7354 3 24 1 0 217 4 26 0 0 1513 4 6 1 0 2982 4
1052 2 1 0 7354 4 24 1 0 217 4 1 1 3 1 0 7 0 0 5021 4
1056 6 1 0 4953 4 2 1 0 4969 4 6 1 0 4951 4 24 1 0 1025 4
PROCEDURE 709
1060 0 0 0 0 0 1 1 3 1 0 7 0 0 5035 4 2 0 0 4999 4
1064 24 0 2 1788 4 0 1 0 2948 4 0 0 3 0 4 24 1 2 15 4
1068 24 0 2 0 0 4 0 0 7360 4 2 0 0 2954 4 0 1 1 2948 4
1072 24 0 3 2954 4 28 1 2 4 0 23 0 0 10 0 0 0 0 7360 3
1076 24 1 0 1078 4 26 0 0 1204 4 26 0 1 1060 4
PROCEDURE 710
1079 0 0 0 0 0
1080 26 0 0 1238 4 6 1 0 4969 4 2 0 0 4970 4 2 0 0 4972 4
1084 24 0 1 7340 4 26 0 1 1085 4 0 0 0 1088 3 0 0 0 1089 3
1088 26 0 0 1060 4 26 0 1 1079 4
PROCEDURE 711
1090 6 1 0 3008 4 24 1 2 19 4
1092 2 1 0 12 0 26 0 0 1591 4 24 0 2 1928 4 3 1 0 2948 4
1096 26 1 2 2948 4 24 0 2 1262 4 3 1 0 2948 4 26 1 3 2948 4
1100 24 0 2 1460 4 3 1 0 2948 4 26 1 1 2948 4 6 0 0 1262 4
1104 18 0 3 2 0 2 0 0 1229 4 6 0 0 1460 4 18 0 3 2 0
1108 2 0 0 1235 4 6 1 0 3022 4 2 1 0 7360 4 6 1 0 3024 4
1112 2 1 0 7354 4 24 0 3 0 4 6 0 0 4 22 2 0 0 1220 4
1116 24 0 1 1220 4 1 1 3 0 0 2 0 0 1224 4 24 1 2 19 4
1120 24 0 2 0 0 3 0 0 1204 4 1 1 1 48 0 18 0 1 5 0
1124 4 0 0 1204 4 2 1 0 7356 4 24 0 3 1222 4 6 0 2 0 0
1128 2 0 0 1225 4 0 1 2 1228 4 18 1 3 3 0 0 1 0 1226 4
1132 23 0 0 1 0 0 0 0 7360 3 24 1 0 1143 4 6 1 0 3022 4
1136 2 1 0 7360 4 24 0 3 1222 4 6 0 3 1 0 18 1 3 2 0
1140 2 0 0 1229 4 25 0 3 1 0 24 1 0 1143 4 6 0 0 1226 4
1144 1 1 2 6 0 27 0 0 1129 4 1 1 2 1 0 27 0 1 1176 4
1148 0 1 2 1234 4 18 1 3 6 0 0 1 0 1232 4 23 0 0 1 0
1152 0 0 0 7354 3 24 1 0 1162 4 6 1 0 3024 4 2 1 0 7354 4
1156 24 0 3 1222 4 6 0 1 1 0 18 1 3 2 0 2 0 0 1235 4
1160 25 0 1 1 0 24 1 0 1162 4 6 0 0 1232 4 1 1 2 63 0
1164 27 0 0 1148 4 1 1 1 1 0 27 0 1 1174 4 6 1 0 1222 4
1168 24 0 3 7356 4 2 1 0 4 0 24 0 3 7356 4 2 1 0 6 0
1172 26 0 0 1591 4 24 1 0 33 4 6 1 0 1232 4 2 1 0 1226 4
1176 6 0 0 1226 4 1 1 2 1 0 27 0 0 1181 4 1 1 2 1 0
1180 27 0 1 1191 4 1 1 3 8191 0 18 1 1 4118 0 15 0 0 1225 4
1184 5 0 0 1224 4 27 0 2 1190 4 1 0 1 31 0 1 1 3 0 0
1188 15 0 0 1225 4 1 1 2 2546 4 14 0 0 1225 4 6 0 0 1225 4
1192 24 0 3 7356 4 2 1 0 7 0 6 0 0 1226 4 24 0 3 7356 4
1196 2 1 0 5 0 25 0 2 1 0 24 1 0 1199 4 23 0 0 4 0
1200 0 0 0 7356 3 24 1 0 1126 4 26 0 0 1591 4 24 1 0 1119 4
PROCEDURE 712
1204 0 0 0 0 0 6 0 0 5026 4 26 0 0 1621 4 2 0 0 1672 4
1208 24 0 2 1858 4 24 1 2 15 4 28 1 2 2 0 26 0 0 1513 4
1212 0 0 3 3033 4 6 0 0 5035 4 7 0 0 5026 4 1 1 3 0 0
1216 2 0 0 5035 4 6 1 0 2982 4 2 1 0 7360 4 26 0 1 1204 4
SECTION 713
1220 0 0 0 0 0 0 4£000 0
1224 0 0 0 0 0 0 0 0
1228 0 0 0 0 0 0 0 0
1232 0 0 0 0 0 0 0 0
1236 0 0 0 0
PROCEDURE 714
1238 0 0 0 0 0 6 1 0 4966 4
1240 24 1 2 19 4 2 1 1 4 0 6 1 0 4968 4 24 1 2 19 4
1244 2 1 1 6 0 25 0 1 4 0 24 1 0 1249 4 26 0 0 1591 4
1248 26 1 1 2968 4 26 0 1 1238 4
PROCEDURE 715
1250 0 0 0 0 0 0 1 0 2948 4
1252 0 0 3 0 4 0 0 2 18 4 6 1 0 3016 4 4 0 0 10 4
1256 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 2948 4
1260 26 0 1 1250 4 0 0 0 0 0
SECTION 716
1262 9249 0 9240 0
1264 0 0 0 0 0 0 0 0
1268 0 0 0 0 0 0 0 0
1272 0 0 0 0 0 0 0 0
1276 0 0 0 0 0 0 0 0
1280 0 0 1 0 8076 0 38236 0
1284 1209 0 £20£ 0 £209 0 39079 0
1288 £249 0 36:‼6 0 1925‼ 0 £248 0
1292 £:‼6 0 1208 0 £041 0 9007 0
1296 36 0 ‼208 0 83‼6 0 83+9 0
1300 38236 0 9.49 0 1041 0 1041 0
1304 9049 0 8201 0 £208 0 31641 0
1308 393+9 0 .+49 0 £241 0 49 0
1312 6078 0 825£ 0 8276 0 381‼6 0
1316 £248 0 9009 0 2+0 0 8:‼6 0
1320 48 0 120£ 0 36:8£ 0 93£9 0
1324 39041 0 104£ 0 £038 0 820£ 0
1328 93+9 0 800‼ 0 9609 0 £:80 0
1332 0 0 0 0 0 0 0 0
1336 0 0 0 0 0 0 0 0
1340 0 0 0 0 0 0 0 0
1344 0 0 0 0 0 0 0 0
1348 0 0 0 0
SECTION 717
1350 0 0 0 0
1352 0 0 0 0 0 0 0 0
1356 0 0 0 0 0 0 0 0
1360 0 0 0 0
SECTION 718
1362 0 0 0 0
1364 0 0 0 0 0 0 0 0
1368 0 0 0 0 0 0 36 0
1372 8209 0 19209 0 8209 0 8249 0
1376 1209 0 1201 0 9049 0 9:‼6 0
1380 36:‼6 0 1249 0 1209 0 1249 0
1384 8276 0 36241 0 8040 0 8008 0
1388 9200 0 8209 0 248 0 9209 0
1392 1 0 1201 0 8048 0 209 0
1396 1209 0 1249 0 240 0 1008 0
1400 8040 0 8201 0 9240 0 9241 0
1404 9008 0 8 0 8209 0 8040 0
1408 9049 0 9009 0 8248 0 9209 0
1412 1240 0 9:‼6 0 31249 0 1201 0
1416 8241 0 .:‼6 0 1040 0 9208 0
1420 9209 0 8049 0 40 0 8241 0
1424 9008 0 1209 0 1208 0 £209 0
1428 9609 0 1008 0 8236 0 9008 0
1432 1041 0 480 0 0 0 0 0
1436 0 0 0 0 0 0 0 0
1440 0 0 0 0 0 0 £‼6 0
PROCEDURE 719
1444 0 0 0 0 0 26 0 0 1250 4 24 1 2 19 4 6 1 0 4 0
1448 5 1 0 3026 4 27 0 1 1445 4 0 1 0 2948 4 0 0 3 0 4
1452 6 1 0 3010 4 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4
1456 23 0 2 0 256 0 1 1 2948 4 26 0 1 1444 4 0 0 0 0 0
SECTION 720
1460 18+‼3 0 18607 0 181‼£ 0 33998 0
1464 36:4£ 0 3288£ 0 £918 0 25934 0
1468 279.7 0 129.9 0 18618 0 1843. 0
PROCEDURE 721
1472 0 0 0 0 0 25 0 2 8 0 24 1 0 1477 4 26 0 0 1478 4
1476 26 1 2 2970 4 26 0 1 1472 4
PROCEDURE 722
1478 0 0 0 0 0 0 1 0 2948 4
1480 0 0 3 0 4 0 0 2 20 4 6 1 0 3016 4 4 0 0 11 4
1484 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 2948 4
1488 26 0 1 1478 4
PROCEDURE 723
1489 0 0 0 0 0 24 1 2 19 4 24 0 2 4 0
1492 18 1 1 4123 0 1 1 3 50 0 18 1 1 5 0 24 1 2 21 4
1496 28 1 1 4 0 6 1 0 1652 4 24 1 2 21 4 2 1 0 52 0
1500 0 1 0 2948 4 0 0 3 0 4 0 0 2 20 4 6 1 0 3020 4
1504 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
1508 0 1 1 2948 4 6 1 0 3028 4 24 1 2 21 4 28 0 0 0 0
1512 26 0 1 1489 4
PROCEDURE 724
1513 0 0 0 0 0 0 0 3 3033 4 6 1 0 1652 4
1516 24 1 2 15 4 2 1 0 52 0 1 1 3 1 0 24 1 2 15 4
1520 2 1 0 0 0 6 0 0 6275 4 27 0 0 1539 4 24 1 2 15 4
1524 24 0 2 0 0 18 1 1 4123 0 1 1 3 50 0 18 1 1 5 0
1528 0 1 0 2948 4 0 0 3 0 4 24 1 2 13 4 24 0 2 0 0
1532 4 0 0 7358 4 2 0 0 2954 4 0 1 1 2948 4 24 0 3 2954 4
1536 28 1 1 4 0 26 0 0 1572 4 24 1 0 1567 4 6 0 0 6274 4
1540 1 1 2 9 0 27 0 0 1558 4 6 0 0 3036 4 24 1 2 15 4
1544 2 0 0 1 0 24 1 2 15 4 24 0 2 0 0 24 1 2 13 4
1548 29 0 1 0 0 1 1 3 4 0 18 0 1 5 0 4 0 0 7 4
1552 0 0 2 12 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 160 0
1556 0 0 3 3033 4 24 1 0 1567 4 24 1 2 15 4 24 0 2 0 0
1560 18 1 1 4123 0 1 1 3 54 0 18 1 1 5 0 24 1 2 13 4
1564 28 1 1 0 0 1 1 3 9 0 24 1 0 1550 4 6 1 0 2964 4
1568 24 1 2 15 4 28 0 0 0 0 2 0 0 4999 4 26 0 1 1513 4
PROCEDURE 725
1572 0 0 0 0 0 23 0 0 50 0 0 0 0 7358 3 24 1 0 1582 4
1576 6 1 0 1652 4 24 1 2 13 4 2 1 0 306 0 26 0 0 1583 4
1580 6 1 0 3030 4 2 1 0 7358 4 26 0 1 1572 4
PROCEDURE 726
1583 0 0 0 0 0
1584 6 1 0 3020 4 0 0 2 12 4 25 1 1 4096 0 4 0 0 7 4
1588 24 0 3 0 4 23 0 2 160 0 26 0 1 1583 4
PROCEDURE 727
1591 0 0 0 0 0
1592 6 1 0 1652 4 24 1 2 19 4 2 1 0 52 0 0 1 0 2948 4
1596 0 0 3 0 4 0 0 2 18 4 6 1 0 3020 4 4 0 0 10 4
1600 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 2948 4
1604 6 1 0 3028 4 24 1 2 19 4 28 0 0 0 0 26 0 1 1591 4
PROCEDURE 728
1608 0 0 0 0 0 24 0 2 1800 4 0 1 0 2948 4 0 0 3 0 4
1612 24 1 2 21 4 24 0 2 0 0 24 0 3 0 4 4 0 0 4 22
1616 2 0 0 2954 4 0 1 1 2948 4 24 0 3 2954 4 28 0 2 4 0
1620 26 0 1 1608 4
PROCEDURE 729
1621 0 0 0 0 0 2 1 0 1704 4 0 0 3 3034 4
1624 24 0 2 1728 4 12 1 0 1704 4 26 0 1 1621 4
PROCEDURE 730
1627 0 0 0 0 0
1628 2 1 0 1704 4 0 0 3 3033 4 24 0 2 1708 4 12 1 0 1704 4
1632 26 0 1 1627 4 0 0 0 0 0
SECTION 731
1634 16773 0 53585 0
1636 7554£ 0 73786 0 35572 0 56596 0
1640 86755 0 737 0 .6656 0 72734 0
1644 65362 0 52636 0 97955 0 725 0
1648 25973 0 7 0 56554 0 67695 0
1652 7. 0 7.000 0 16973 0 72735 0
1656 35572 0 65667 0 66663 0 72676 0
1660 96653 0 676 0 46955 0 55547 0
1664 25553 0 7 0 66500 0 73596 0
1668 £6£6£ 0 6£6£6 0 0 0 0 0
1672 0 0 0 0 0 0 0 0
1676 5715Ю 0 666 0
SECTION 732
1678 36951 0 55777 0
1680 85167 0 535 0 90000 0 73556 0
1684 3££ 0 7£££0 0 5.5. 0 0 0
1688 56554 0 56595 0 45577 0 59655 0
1692 15965 0 53585 0 3030 0 30483 0
1696 96657 0 676 0 67473 0 6 0
1700 5.5. 0 0 0
SECTION 733
1702 1 0 0 0
1704 0 0 0 0 0 0 0 0
SECTION 734
1708 1 0 0 0 Ю 0 0 0
1712 64 0 0 0 3.8 0 0 0
1716 2710 0 0 0 186Ю0 0 0 0
1720 £4240 0 0 0 89680 0 9 0
1724 5.100 0 5£ 0 Ю+Ю00 0 3‼9 0
1728 1 0 0 0 16 0 0 0
1732 256 0 0 0 4096 0 0 0
1736 65536 0 0 0 48576 0 10 0
1740 77216 0 167 0 35456 0 2684 0
1744 67296 0 42949 0 £££££ 0 £££££ 0
SECTION 735
1748 7 0 1£££ 0 £.000- 0 7£ 0
1752 8000 0 6000 0 £000 0 80000 0
1756 £0000 0 80 0 £0000- 0 £ 0
1760 3££ 0 0 0 3£ 0 0 0
SECTION 736
1764 0 4970 3 5 0 0 0 0 5 0 0 4969 3 5 0 0 0 0 5 0
1768 0 4966 3 5 0 0 0 0 5 0 0 4968 3 5 0 0 0 0 5 1
1772 0 1621 3 8707 0 2 2 0 3 0 0 1513 3 16421 0 4 0 2 5 1
1776 0 1694 3 5 3 0 0 0 5 0 0 1696 3 276 3 0 1 1 4 0
1780 0 1698 3 531 3 0 2 1 3 0 0 5000 3 37 0 0 0 2 5 0
1784 0 5001 3 16421 0 4 0 2 5 0 0 1700 3 770 3 0 3 0 2 1
SECTION 737
1788 0 4970 3 16501 4 4 0 7 5 0 0 4972 3 16421 0 4 0 2 5 1
1792 0 4970 3 16501 4 4 0 7 5 0 0 4972 3 16421 0 4 0 2 5 0
1796 0 4974 3 16581 4 4 0 12 5 0 0 4976 3 16421 0 4 0 2 5 1
1800 0 4946 3 5 3 0 0 0 5 0 0 4948 3 5 3 0 0 0 5 0
1804 0 4950 3 5 3 0 0 0 5 0 0 4952 3 5 3 0 0 0 5 1
SECTION 738
1808 0 5014 3 5 0 0 0 0 5 0 0 1748 3 5 0 0 0 0 5 0
1812 0 5000 3 5 0 0 0 0 5 0 0 5001 3 5 0 0 0 0 5 0
1816 0 1634 3 5 3 0 0 0 5 1 0 1634 3 5 3 0 0 0 5 0
1820 0 5014 3 16437 0 4 0 3 5 1 0 5015 3 12564 0 3 1 1 4 0
1824 0 1676 3 1025 3 0 4 0 1 0 0 5034 3 12548 0 3 1 0 4 1
1828 0 5020 3 65 0 0 0 4 1 0 0 5028 3 12596 0 3 1 3 4 0
1832 0 5020 3 4898 0 1 3 2 2 0 0 1670 3 16453 0 4 0 4 5 0
1836 0 4966 3 4898 0 1 3 2 2 0 0 4967 3 4882 0 1 3 1 2 0
1840 0 4968 3 4882 0 1 3 1 2 0 0 4969 3 4882 0 1 3 1 2 0
1844 0 4970 3 4882 0 1 3 1 2 0 0 4988 3 1073 0 0 4 3 1 1
1848 0 5016 3 5 3 0 0 0 5 0 0 5018 3 5 3 0 0 0 5 0
1852 0 5015 3 12564 0 3 1 1 4 1 0 4966 3 5 3 0 0 0 5 0
1856 0 4968 3 5 3 0 0 0 5 1 0 1672 3 16389 0 4 0 0 5 1
SECTION 739
1860 0 4966 3 4962 0 1 3 6 2 0 0 5023 3 1057 0 0 4 2 1 0
1864 0 5024 3 1057 0 0 4 2 1 0 0 4968 3 12580 0 3 1 2 4 0
1868 0 4970 3 12564 0 3 1 1 4 1
SECTION 740
1870 1 0 0 0
1872 2 0 0 0 3 0 0 0
1876 4 0 0 0 5 0 0 0
1880 6 0 0 0 7 0 0 0
1884 8 0 0 0 9 0 0 0
1888 0 0 0 0 0 0 0 0
1892 0 0 0 0 0 0 0 0
1896 0 0 0 0 0 0 0 0
1900 0 0 0 0 0 0 0 0
1904 0 0 0 0 0 0 0 0
1908 0 0 0 0 0 0 0 0
1912 0 0 0 0 0 0 0 0
1916 0 0 0 0 0 0 0 0
1920 0 0 0 0 0 0 0 0
1924 0 0 0 0 0 0 0 0
PROCEDURE 741
1928 24 1 0 2551 4 24 1 0 2206 4 24 1 0 2220 4 24 1 0 2254 4
1932 24 1 0 2546 4 24 1 0 2547 4 24 1 0 2183 4 24 1 0 2549 4
1936 24 1 0 2550 4 24 1 0 2122 4
SECTION 742
1938 0 0 0 0
1940 0 0 0 0 0 0 0 0
1944 0 0 0 0 0 0 0 0
1948 0 0 0 0 0 0 0 0
1952 0 0 0 0 0 0 0 0
1956 0 0 0 0 0 0 0 0
1960 0 0 0 0 0 0 0 0
1964 0 0 0 0 0 0 0 0
1968 0 0 0 0 0 0 0 0
1972 0 0 0 0 0 0 0 0
1976 0 0 0 0 0 0 0 0
1980 0 0 0 0 0 0 0 0
1984 0 0 0 0 0 0 0 0
1988 0 0 0 0 0 0 0 0
SECTION 743
1992 0 0 0 0 0 0 0 0
1996 0 0 0 0 0 0 0 0
2000 0 0 0 0 0 0 0 0
2004 0 0 0 0 0 0 0 0
2008 0 0 0 0 0 0 0 0
2012 0 0 0 0 0 0 0 0
2016 0 0 0 0 0 0 0 0
2020 0 0 0 0 0 0 0 0
2024 0 0 0 0 0 0 0 0
2028 0 0 0 0 0 0 0 0
2032 0 0 0 0 0 0 0 0
2036 0 0 0 0 0 0 0 0
2040 0 0 0 0 0 0 0 0
2044 0 0 0 0
PROCEDURE 744
2046 25 1 1 4096 0 26 0 0 2295 4
2048 24 0 3 2116 4 24 0 3 3 0 6 1 0 198 0 24 0 3 2116 4
2052 3 0 0 64 0 18 0 1 4123 0 24 0 3 2116 4 3 0 0 124 0
2056 1 1 3 40 0 0 0 2 2114 4 26 0 0 2276 4 25 1 1 4096 0
2060 24 1 1 2116 4 26 1 1 2534 4 24 0 3 2116 4 26 0 0 0 0
2064 26 1 1 2314 4 1 1 3 7 0 24 0 3 2116 4 2 0 0 0 0
2068 24 0 3 2116 4 6 0 0 64 0 24 0 3 2116 4 5 0 0 124 0
2072 27 0 0 2082 4 24 0 3 2116 4 6 0 0 0 0 2 0 0 2120 4
2076 1 1 3 0 0 24 0 3 2116 4 26 0 0 0 0 6 0 0 2120 4
2080 24 0 3 2116 4 2 0 0 0 0 24 1 1 2116 4 24 0 2 2546 4
2084 3 1 0 2546 4 24 0 3 2116 4 2 0 0 2 0 26 1 2 2546 4
2088 1 1 3 2546 4 24 0 3 2116 4 2 0 0 1 0 1 1 3 0 0
2092 24 0 3 2116 4 23 0 2 0 0 24 0 2 2108 4 4 0 0 2115 4
2096 24 0 3 2534 4 2 0 0 44 0 24 0 3 2116 4 2 0 0 0 0
2100 1 1 3 1 0 7 0 0 2118 4 24 0 3 2534 4 6 0 0 35 0
2104 24 0 3 2534 4 2 0 0 7 0 24 0 3 2116 4 24 1 0 0 0
2108 25 1 1 4096 0 26 0 0 2295 4 1 1 3 40 0 0 0 2 2114 4
2112 26 0 0 2276 4 24 1 0 2546 4 0 0 0 1 0 14 0 0 0 0
2116 0 0 0 0 0 0 0 0 0 0 16 0 0 1 0 0 0 0 0 0
2120 0 0 0 0 0 0 0 0 0 0
PROCEDURE 745
2122 24 0 3 2116 4 26 1 3 53 0
2124 24 0 3 2116 4 6 0 0 2 0 24 0 3 2116 4 5 0 3 2 0
2128 27 0 0 2131 4 25 0 3 2 0 24 1 0 2124 4 24 0 3 2116 4
2132 6 0 3 1 0 27 0 0 2141 4 1 1 2 0 0 27 0 1 2138 4
2136 24 0 3 2116 4 2 0 0 0 0 1 1 3 0 0 24 0 3 2116 4
2140 2 0 3 1 0 6 0 0 2118 4 27 0 1 2173 4 1 1 3 0 0
2144 3 0 0 2118 4 3 0 0 2169 4 24 0 3 2116 4 2 0 1 42 0
2148 24 0 3 2116 4 2 0 1 45 0 24 0 3 2314 4 6 0 0 9 0
2152 24 0 3 2314 4 2 0 0 7 0 24 0 3 2314 4 6 0 0 57 0
2156 24 0 3 2314 4 2 0 0 6 0 6 0 0 2119 4 27 0 1 2199 4
2160 24 0 3 2116 4 6 0 1 44 0 2 0 0 2204 4 24 0 2 2199 4
2164 4 0 0 2115 4 24 0 3 2116 4 2 0 1 44 0 24 0 3 2534 4
2168 24 1 0 7 0 0 0 0 0 0 24 1 1 2116 4 24 0 3 2116 4
2172 26 0 0 0 0 24 0 3 2314 4 6 0 0 58 0 24 0 3 2314 4
2176 2 0 0 6 0 24 0 3 2116 4 2 0 0 44 0 24 1 1 2116 4
2180 1 1 3 0 0 24 0 3 2116 4 24 1 0 0 0 6 0 0 2169 4
2184 27 0 0 2189 4 1 1 3 1 0 5 0 0 2118 4 27 0 0 2170 4
2188 24 1 0 2173 4 6 0 0 2118 4 27 0 1 2170 4 6 0 0 2119 4
2192 27 0 0 2170 4 1 1 3 0 0 3 0 0 2118 4 24 0 3 2116 4
2196 2 0 1 42 0 24 0 3 2116 4 2 0 1 45 0 1 1 3 0 0
2200 1 0 1 4 0 14 0 0 2567 4 26 0 0 2554 4 26 0 1 2204 4
2204 0 0 0 0 0 1 1 3 2 0
PROCEDURE 746
2206 24 0 3 2117 4 6 0 0 0 0
2208 18 0 0 4124 0 27 0 0 2212 4 25 1 2 0 0 24 1 0 2215 4
2212 24 0 3 2116 4 24 0 3 35 0 6 0 0 0 0 2 0 0 2309 4
2216 1 1 3 27 0 26 0 0 2276 4 24 0 3 2116 4 24 1 0 0 0
PROCEDURE 747
2220 1 1 3 0 0 1 0 1 16 0 24 0 3 2117 4 14 0 0 0 0
2224 6 0 0 2309 4 27 0 0 2252 4 0 1 2 2310 4 1 1 3 17 0
2228 26 0 0 2276 4 0 0 3 2308 4 1 1 3 0 0 1 1 2 1 0
2232 7 0 0 2309 4 0 0 3 2116 4 1 1 3 10 0 18 0 1 5 0
2236 24 0 3 2116 4 4 0 0 55 0 18 1 1 4118 0 1 1 3 37 0
2240 26 0 0 2276 4 1 1 3 0 0 1 1 3 62 0 18 1 1 4118 0
2244 1 1 3 7 0 26 0 0 2276 4 24 0 3 2116 4 24 0 3 126 0
2248 6 1 0 1 0 5 0 0 2309 4 27 0 1 2242 4 25 1 1 4096 0
2252 24 0 3 2116 4 24 1 0 0 0
PROCEDURE 748
2254 24 0 3 2116 4 6 0 0 0 0
2256 2 0 0 2309 4 24 0 2 2312 4 24 0 3 2116 4 2 0 0 0 0
2260 1 1 3 0 0 24 0 3 2116 4 28 1 2 0 0 24 0 3 2116 4
2264 6 0 1 38 0 24 0 3 2116 4 2 0 1 44 0 24 0 3 2116 4
2268 6 0 1 35 0 24 0 3 2116 4 2 0 1 7 0 6 0 0 2309 4
2272 24 0 3 2116 4 2 0 0 0 0 24 0 3 2116 4 24 1 0 0 0
PROCEDURE 749
2276 0 0 0 0 0 18 0 0 5 0 1 1 1 0 0 25 1 1 4096 0
2280 24 0 3 2306 4 23 0 2 160 0 26 0 1 2276 4 0 0 0 0 0
2284 24 0 3 2116 4 6 0 0 64 0 2 0 0 2293 4 6 0 0 2294 4
2288 24 0 3 2116 4 2 0 0 64 0 6 0 0 2293 4 2 0 0 2294 4
2292 26 0 1 2283 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2296 24 0 3 2306 4 0 0 2 24 0 6 0 0 2305 4 24 0 3 2306 4
2300 2 0 0 24 0 18 1 1 10 0 2 0 0 2305 4 26 0 0 2283 4
2304 26 0 1 2295 4 0 0 0 0 0
SECTION 750
2306 0 0 2 0
2308 66666 0 0 0
SECTION 751
2310 8000 0 5148 0
2312 65663 0 73696 0 30 0 0 0
2316 30 0 0 0 30 0 0 0
2320 30 0 0 0 30 0 0 0
2324 30 0 0 0 30 0 0 0
2328 30 0 0 0 30 0 0 0
2332 30 0 0 0 30 0 0 0
2336 30 0 0 0 30 0 0 0
2340 30 0 0 0 30 0 0 0
2344 30 0 0 0 30 0 0 0
2348 30 0 0 0 30 0 0 0
2352 30 0 0 0
SECTION 752
2354 0 0 0 0
2356 0 0 0 0 0 0 0 0
2360 0 0 0 0 0 0 0 0
2364 0 0 0 0 0 0 0 0
2368 0 0 0 0 0 0 0 0
2372 0 0 0 0 0 0 0 0
2376 0 0 0 0 0 0 0 0
2380 0 0 0 0 0 0 0 0
2384 0 0 0 0 0 0 0 0
2388 0 0 0 0 0 0 0 0
2392 0 0 0 0 0 0 0 0
2396 0 0 0 0 0 0 0 0
2400 0 0 0 0 0 0 0 0
2404 0 0 0 0 0 0 0 0
SECTION 753
2408 0 0 0 0 0 0 0 0
2412 0 0 0 0 0 0 0 0
2416 0 0 0 0 0 0 0 0
2420 0 0 0 0 0 0 0 0
2424 0 0 0 0 0 0 0 0
2428 0 0 0 0 0 0 0 0
2432 0 0 0 0 0 0 0 0
2436 0 0 0 0 0 0 0 0
2440 0 0 0 0 0 0 0 0
SECTION 754
2444 0 0 0 0 0 0 0 0
2448 0 0 0 0 0 0 0 0
2452 0 0 0 0 0 0 0 0
2456 0 0 0 0 0 0 0 0
2460 0 0 0 0 0 0 0 0
2464 0 0 0 0 0 0 0 0
2468 0 0 0 0 0 0 0 0
2472 0 0 0 0 0 0 0 0
2476 0 0 0 0 0 0 0 0
2480 0 0 0 0 0 0 0 0
2484 0 0 0 0 0 0 0 0
2488 0 0 0 0 0 0 0 0
2492 0 0 0 0 0 0 0 0
2496 0 0 0 0 0 0 0 0
2500 0 0 0 0 0 0 0 0
2504 0 0 0 0 0 0 0 0
2508 0 0 0 0 0 0 0 0
2512 0 0 0 0 0 0 0 0
2516 0 0 0 0 0 0 0 0
2520 0 0 0 0 0 0 0 0
2524 0 0 0 0 0 0 0 0
2528 0 0 0 0 0 0 0 0
2532 0 0 0 0
SECTION 755
2534 0 0 0 0
2536 0 0 0 0 0 0 0 0
2540 0 0 0 0 0 0 0 0
2544 0 0 0 0
PROCEDURE 756
PROCEDURE 757
2546 2 1 0 2916 4 25 1 1 4096 0
2548 24 0 3 2896 4 6 1 0 2 0 2 1 0 2314 4 24 0 3 2896 4
2552 6 0 0 44 0 2 0 0 2534 4 24 0 3 2534 4 6 0 0 37 0
2556 2 0 0 2535 4 6 1 0 2534 4 24 0 3 2896 4 2 1 0 2 0
2560 24 0 3 2534 4 0 1 1 30 0 0 1 0 2540 4 0 0 3 2116 4
2564 24 0 3 2534 4 6 0 0 44 0 2 0 0 2539 4 6 1 0 2942 4
2568 28 0 0 2354 4 24 0 3 2534 4 24 1 1 29 0 26 1 2 2535 4
2572 24 0 3 2116 4 6 0 2 14 0 2 0 0 2536 4 24 0 3 2116 4
2576 6 0 2 4 0 2 0 0 2537 4 24 0 3 2116 4 6 0 2 1 0
2580 18 0 3 3 0 2 0 0 2538 4 24 0 2 2548 4 2 0 0 2204 4
2584 1 1 3 0 0 6 0 0 2888 4 2 0 0 2294 4 26 0 0 2283 4
2588 6 0 0 2889 4 24 0 3 2116 4 2 0 0 123 0 1 1 3 2354 4
2592 7 0 0 2905 4 2 0 0 2904 4 26 1 1 2904 4 0 0 2 2912 4
2596 1 1 3 40 0 26 0 0 2276 4
PROCEDURE 758
2598 0 0 2 2909 4 1 1 3 7 0
2600 26 0 0 2276 4 24 1 2 2908 4 6 1 0 4 0 5 1 0 2892 4
2604 27 0 0 2612 4 4 1 0 2892 4 5 1 0 2890 4 27 0 0 2763 4
2608 4 1 0 2890 4 1 1 2 85 0 27 0 1 2598 4 24 1 0 2046 4
PROCEDURE 759
2612 6 1 0 2944 4 24 0 3 2896 4 4 0 0 123 0 28 1 0 2920 4
2616 6 0 0 2920 4 2 0 1 1 0 1 0 1 24 0 15 0 0 2923 4
2620 18 1 0 4125 0 2 0 1 4 0 15 0 0 2923 4 18 0 0 3 0
2624 7 0 1 4 0 1 0 1 23 0 24 0 3 2538 4 6 0 0 2 0
2628 2 0 0 2918 4 26 1 3 2918 4 15 0 0 2922 4 3 0 1 5 0
2632 18 0 0 4124 0 1 1 2 5 0 27 0 0 2710 4 1 1 2 4 0
2636 27 0 0 2685 4 1 1 1 3 0 27 0 0 2685 4 27 0 2 2641 4
2640 1 1 1 5 0 1 1 1 1 0 2 0 0 2917 4
PROCEDURE 760
2643 26 1 2 2896 4
2644 6 0 0 2917 4 1 1 2 3 0 27 0 2 2661 4 6 0 2 2924 4
2648 27 0 0 2710 4 3 0 3 8 0 4 0 2 2924 4 26 0 0 2855 4
2652 3 0 3 6 0 18 0 0 4123 0 5 0 3 6 0 2 0 3 7 0
2656 25 0 3 3 0 24 1 0 2658 4 25 0 2 4 0 24 1 0 2644 4
2660 24 1 0 2710 4
PROCEDURE 761
2661 25 1 2 0 0 1 0 1 7 0 15 0 2 2924 4
2664 27 0 0 2710 4 2 0 3 8 0 1 0 1 16 0 15 0 2 2925 4
2668 27 0 0 2676 4 7 0 3 8 0 25 1 2 0 0 1 0 1 24 0
2672 15 0 2 2924 4 18 0 0 4125 0 26 0 0 2871 4 24 1 0 2682 4
2676 1 0 1 8 0 15 0 2 2924 4 15 0 2 2924 4 18 0 0 4125 0
2680 26 0 0 2855 4 4 0 2 2926 4 2 0 3 6 0 6 0 2 2927 4
2684 24 1 0 2655 4
PROCEDURE 762
2685 26 1 2 2898 4 6 0 2 2924 4 27 0 0 2710 4
2688 2 0 3 6 0 1 0 1 16 0 15 0 2 2925 4 27 0 0 2699 4
2692 18 0 3 3 0 2 0 3 7 0 1 0 1 15 0 15 0 2 2925 4
2696 18 0 0 3 0 18 0 3 1 0 24 1 0 2702 4 1 0 1 15 0
2700 15 0 2 2925 4 18 0 0 2 0 7 0 3 7 0 6 0 2 2926 4
2704 7 0 3 7 0 25 0 3 2 0 24 1 0 2707 4 25 0 2 3 0
2708 24 1 0 2686 4 25 1 2 0 0
PROCEDURE 763
2710 1 0 1 1 0 15 0 0 2922 4
2712 5 0 0 2537 4 27 0 2 2760 4 4 0 0 2537 4 3 0 0 2915 4
2716 18 0 0 2 0 7 0 1 4 0 6 0 0 2915 4 4 0 0 2915 4
2720 26 0 0 2855 4 4 0 0 2921 4 3 0 1 0 0 2 0 0 2918 4
2724 26 1 3 2918 4 24 0 3 2116 4 6 0 3 0 0 3 0 1 2 0
2728 27 0 2 2741 4 5 0 1 2 0 5 0 1 2 0 18 0 3 3 0
2732 18 0 1 4124 0 1 1 2 64 0 27 0 0 2743 4 1 1 2 1 0
2736 27 0 0 2743 4 1 1 2 2 0 27 0 0 2743 4 1 1 2 3 0
2740 27 0 0 2743 4 6 0 0 2886 4 24 1 0 2747 4 1 1 3 4096 0
2744 7 0 1 5 0 24 0 3 2116 4 6 0 3 1 0 2 0 1 3 0
2748 0 0 2 2910 4 24 0 3 2914 4 15 0 0 18 0 2 0 0 2914 4
2752 5 0 0 2914 4 5 0 0 2536 4 4 0 0 2887 4 24 0 3 2116 4
2756 2 0 3 0 0 25 0 1 18 0 24 1 0 2598 4 24 1 0 2598 4
2760 6 0 0 2921 4 2 0 1 0 0 24 1 0 2757 4
PROCEDURE 764
2763 6 1 0 2946 4
2764 24 0 3 2896 4 4 0 0 123 0 28 1 1 2920 4 6 1 0 2933 4
2768 27 0 0 2598 4 1 1 2 9 0 27 0 0 2780 4 0 0 2 2916 4
2772 1 1 3 0 0 15 0 0 2913 4 5 1 0 2933 4 27 0 0 2780 4
2776 1 1 3 0 0 18 1 1 4127 0 27 1 1 2773 4 24 1 0 2598 4
2780 6 1 0 2929 4 26 0 0 2871 4 2 0 0 2915 4 6 1 0 2923 4
2784 26 0 0 2871 4 1 1 1 64 0 2 0 0 2871 4 5 0 0 2871 4
2788 18 0 1 0 0 18 0 1 0 0 2 0 0 2914 4 24 0 3 2534 4
2792 6 0 0 40 0 2 0 0 2911 4 6 1 0 2927 4 18 0 1 1 0
2796 4 1 0 2933 4 24 0 3 2534 4 2 0 0 40 0 6 1 0 2921 4
2800 18 1 1 4123 0 4 1 0 2924 4 18 1 1 4123 0 1 1 1 18 0
2804 26 0 0 2879 4 6 0 0 2911 4 24 0 3 2534 4 2 0 0 40 0
PROCEDURE 765
2808 6 1 0 2931 4 18 0 0 5 0 2 1 0 2918 4 26 1 3 2918 4
2812 0 0 2 2909 4 1 1 3 7 0 26 0 0 2276 4 26 1 2 2900 4
2816 24 0 3 2896 4 24 0 3 123 0 6 1 2 4 0 5 1 0 2894 4
2820 27 0 0 2849 4 24 0 3 2896 4 24 0 3 123 0 6 1 2 5 0
2824 18 0 0 5 0 24 0 3 2896 4 24 0 3 123 0 4 1 2 7 0
2828 24 1 2 2915 4 3 1 3 4 0 5 1 0 2902 4 27 0 0 2837 4
2832 25 0 3 2 0 24 1 0 2846 4 6 1 0 2902 4 24 1 2 2915 4
2836 2 1 3 4 0 1 1 2 64 0 5 0 0 2915 4 18 1 0 4118 0
2840 1 1 1 8 0 26 0 0 2879 4 6 1 0 2931 4 18 0 0 5 0
2844 2 1 0 2918 4 26 1 3 2918 4 25 0 2 4 0 24 1 0 2816 4
2848 24 1 0 2812 4 1 1 3 33 0 26 0 0 2879 4 25 1 2 0 0
2852 24 0 3 2914 4 2 0 0 0 0 24 1 0 2598 4
PROCEDURE 766
2855 0 0 0 0 0
2856 3 0 0 2871 4 4 0 0 2535 4 2 0 0 2914 4 24 0 3 2896 4
2860 6 0 0 43 0 18 0 1 4124 0 5 0 0 2871 4 27 0 0 2866 4
2864 1 1 3 0 0 24 1 0 2868 4 1 1 2 1500 0 18 0 1 5 0
2868 24 0 3 2914 4 4 1 0 18 0 26 0 1 2855 4
PROCEDURE 767
2871 0 0 0 0 0
2872 24 0 3 2535 4 4 0 0 20 0 2 0 0 2914 4 24 0 3 2914 4
2876 5 0 0 0 0 1 1 2 64 0 26 0 1 2871 4
PROCEDURE 768
2879 0 0 0 0 0
2880 18 0 0 5 0 4 0 0 2914 4 25 1 1 4096 0 24 0 3 2896 4
2884 23 0 2 160 0 26 0 1 2879 4
PROCEDURE 769
2886 25 1 0 0 0 26 0 0 0 0
2888 14 0 0 1938 4 14 0 0 1992 4
SECTION 770
2890 16773 0 53585 0
2892 35572 0 56596 0 56554 0 56595 0
2896 0 0 10 0 0 0 12 0
2900 0 0 30 0 7. 0 7.000 0
2904 0 0 ‼4 0 0 0 5 0
SECTION 771
2908 7‼- 0 3‼ 0 1£££ 0 0 0
2912 1 0 £ 0
SECTION 772
2914 0 0 0 0
2916 0 0 0 0
SECTION 773
2918 0 0 0 0
SECTION 774
2920 0 0 0 0 0 0 0 0
2924 0 0 0 0 0 0 0 0
2928 0 0 0 0 0 0 0 0
2932 0 0 0 0 0 0 0 0
2936 0 0 0 0 0 0 0 0
2940 0 0 0 0
SECTION 775
2942 0 0 200‼4 0
2944 7 0 2+ 0 6 0 . 0
SECTION 1027
2948 0 0 0 0 0 0 0 0
2952 0 0 0 0 0 0 0 0
2956 0 0 0 0 0 0 0 0
2960 0 0 0 0 77372 0 4+6 0
2964 0 0 20032 0 0 0 20438 0
2968 0 0 30 0 0 0 90 0
2972 0 0 9 0 £££££ 0 4 0
2976 0 0 24 0 0 0 3.8 0
2980 0 0 . 0 0 0 28 0
2984 0 0 64 0 37354 0 5 0
2988 57354 0 53666 0 37455 0 75516 0
2992 0 0 0 0 0 0 2002. 0
2996 60000 0 69555 0 65369 0 67696 0
3000 0 0 12 0 0 0 14 0
3004 36653 0 51636 0 0 0 2 0
3008 1675+ 0 53585 0 0 0 1‼ 0
3012 8000 0 5146 0 0 0 11 0
3016 0 0 7 0 0 0 5 0
3020 0 0 8 0 0 0 6 0
3024 0 0 3 0 55972 0 56596 0
3028 0 0 20034 0 0 0 12+ 0
SECTION 1028
3032 2 0 0 0 66666 0 78000- 0
3036 80000 0 80000 0 66666 0 +4000- 0
SECTION 1029
PROCEDURE 1007
CHAPT 8
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 776
33 0 1 0 3458 4 0 0 3 0 4 1 1 3 8 0
36 0 0 2 3606 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1024
40 0 1 1 3458 4 6 0 0 6279 4 27 0 1 89 4 24 1 0 70 4
44 0 1 0 3458 4 0 0 3 0 4 1 1 3 9 0 0 0 2 3606 4
48 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1024 0 1 1 3458 4
52 24 0 1 7342 4 26 0 1 53 4 0 0 0 33 3 24 0 1 7343 4
56 26 0 1 56 4 0 0 0 33 3 24 0 1 7344 4 26 0 1 59 4
60 0 0 0 33 3 0 1 0 3458 4 0 0 3 0 4 0 0 2 14 4
64 6 1 0 3472 4 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4
68 23 0 2 0 256 0 1 1 3458 4
PROCEDURE 777
70 26 0 0 120 4 24 1 2 21 4
72 6 1 0 4 0 5 1 0 4498 4 27 0 1 70 4 2 0 0 7336 4
76 26 1 1 3474 4 26 1 2 3476 4 26 0 0 120 4 24 1 2 21 4
80 6 1 2 5 0 24 0 3 1 4 2 0 1 64 0 25 0 1 1 0
84 24 1 0 86 4 24 1 0 89 4 25 0 2 2 0 24 1 0 79 4
88 24 1 0 77 4 6 1 0 3478 4 28 0 0 2567 4 6 0 0 6269 4
92 27 0 0 108 4 0 1 0 3458 4 0 0 3 0 4 0 0 2 3607 4
96 6 1 0 3480 4 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4
100 23 0 2 0 256 0 1 1 3458 4 6 0 0 6277 4 27 0 1 110 4
104 6 1 0 3482 4 24 1 2 21 4 2 1 0 0 0 24 1 0 221 4
PROCEDURE 778
108 6 0 0 6277 4 27 0 0 3036 4 26 0 0 994 4 24 1 2 21 4
112 6 1 0 0 0 5 1 0 2578 4 27 0 1 110 4 0 0 3 3608 4
116 26 0 0 3717 4 26 0 0 3717 4 26 0 0 3717 4 24 1 0 221 4
PROCEDURE 779
120 0 0 0 0 0 0 1 0 3458 4 0 0 3 0 4 0 0 2 20 4
124 6 1 0 3484 4 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4
128 23 0 2 0 256 0 1 1 3458 4 26 0 1 120 4
PROCEDURE 780
131 0 0 0 0 0
132 3 0 0 2766 4 5 0 0 3609 4 27 0 3 214 4 5 0 0 3610 4
136 27 0 2 214 4 6 0 0 6279 4 27 0 0 141 4 6 0 0 2766 4
140 26 0 1 131 4 6 0 0 2766 4 18 1 1 4126 0 2 0 0 2766 4
144 18 1 1 2 0 2 0 0 2767 4 6 0 0 2766 4 26 0 0 1159 4
148 18 1 3 3 0 18 1 1 4127 0 2 1 0 2764 4 26 1 3 2764 4
152 27 1 0 158 4 24 0 3 1 4 6 0 3 14 0 18 0 3 2 0
156 18 0 1 4125 0 24 1 0 161 4 0 0 2 2562 4 24 0 3 1 4
160 15 0 3 14 0 26 0 0 1165 4 0 0 3 3611 4 27 0 0 202 4
164 2 0 0 2766 4 2 0 0 2764 4 26 1 3 3486 4 24 0 3 1 4
168 6 0 3 514 0 18 1 1 4126 0 27 0 0 183 4 5 0 0 2766 4
172 27 0 3 181 4 27 0 1 183 4 18 1 1 2 0 5 0 0 2767 4
176 27 0 0 178 4 27 0 2 194 4 24 0 3 1 4 6 0 3 515 0
180 7 0 0 2764 4 25 0 3 2 0 24 1 0 167 4 6 0 0 2764 4
184 4 0 0 2767 4 3 0 0 2767 4 1 1 2 256 0 27 0 2 200 4
188 0 0 3 3608 4 6 0 0 2766 4 18 0 1 2 0 4 0 0 2767 4
192 26 0 1 131 4 24 1 0 219 4 24 0 3 1 4 4 0 3 515 0
196 27 0 0 198 4 27 0 2 183 4 6 1 0 3488 4 24 1 0 896 4
200 6 1 0 3490 4 24 1 0 896 4 6 0 0 2766 4 18 0 1 2 0
204 4 0 0 2767 4 2 0 0 2764 4 26 1 3 3492 4 24 0 3 1 4
208 6 0 3 974 0 27 0 0 214 4 5 0 0 2764 4 27 0 0 217 4
212 25 0 3 2 0 24 1 0 207 4 6 1 0 3494 4 0 0 3 3608 4
216 24 1 0 896 4 24 0 3 1 4 6 0 3 975 0 0 0 3 3608 4
220 26 0 1 131 4
PROCEDURE 781
221 6 0 0 5999 4 2 0 0 2565 4 24 0 2 2764 4
224 24 1 2 15 4 28 1 2 2 0 6 1 0 2646 4 26 0 0 1104 4
228 1 1 3 1 0 2 0 0 7352 4 1 1 3 2 0 2 0 0 7326 4
232 6 0 0 6269 4 27 0 1 238 4 6 1 0 2584 4 24 1 2 17 4
236 2 1 0 4 0 24 1 0 245 4 26 0 0 983 4 24 1 2 17 4
240 6 1 0 4 0 5 1 0 2582 4 27 0 0 268 4 26 0 0 1576 4
244 24 1 0 434 4
PROCEDURE 782
245 26 0 0 994 4 24 1 2 21 4 6 1 0 0 0
248 5 1 0 2588 4 27 0 0 279 4 4 1 0 2588 4 5 1 0 2586 4
252 27 0 0 259 4 4 1 0 2586 4 18 0 1 4124 0 5 1 0 3496 4
256 27 0 0 885 4 26 0 0 1128 4 24 1 0 245 4 26 0 0 1062 4
260 26 0 0 1855 4 26 0 0 1846 4 26 0 0 1538 4 6 0 0 3612 4
264 2 0 0 1460 4 26 0 0 285 4 27 0 1 262 4 24 1 0 879 4
PROCEDURE 783
268 6 0 0 6277 4 27 0 1 274 4 6 1 0 3482 4 24 1 2 21 4
272 2 1 0 0 0 24 1 0 879 4 26 0 0 994 4 24 1 2 21 4
276 6 1 0 0 0 5 1 0 2588 4 27 0 1 879 4 26 0 0 1576 4
280 26 0 0 1028 4 26 0 0 1593 4 26 0 0 994 4 26 0 0 1299 4
284 24 1 0 280 4
PROCEDURE 784
285 0 0 0 0 0 26 0 0 994 4 26 0 0 520 4
288 27 0 1 1172 4 6 0 0 1460 4 27 0 0 419 4 6 0 0 7347 4
292 1 1 2 2 0 27 0 1 417 4 1 1 3 1 0 2 0 0 7336 4
296 6 1 0 2644 4 24 1 0 349 4 24 0 1 7345 4 26 0 1 299 4
300 0 0 0 311 3 0 0 0 302 3 24 0 1 7346 4 26 0 1 303 4
304 0 0 0 311 3 0 0 0 306 3 1 1 3 6 0 3 0 0 5755 4
308 4 1 0 5687 4 26 0 0 1165 4 2 0 0 5756 4
PROCEDURE 785
311 1 0 1 3 0
312 1 1 3 0 0 15 1 0 5683 4 2 1 0 5683 4 6 0 0 5729 4
316 5 1 0 5683 4 27 0 2 330 4 26 0 0 1559 4 6 1 0 3484 4
320 2 1 0 7366 4 26 0 0 1982 4 23 0 0 1 0 0 0 0 7366 3
324 24 1 0 321 4 1 1 3 1 0 0 0 3 3611 4 7 0 0 5729 4
328 0 0 3 3608 4 24 1 0 315 4
PROCEDURE 786
330 0 0 3 3611 4 6 1 0 5683 4
332 1 1 1 1 0 2 0 0 5729 4 0 0 3 3608 4 24 0 1 7360 4
336 6 1 0 5684 4 27 0 2 349 4 24 0 1 7360 4 6 1 0 5685 4
340 26 0 0 1165 4 2 1 2 5613 4 6 1 0 3498 4 1 0 1 768 0
344 14 1 2 5612 4 1 1 3 2 0 2 0 0 7351 4 24 0 1 7360 4
348 5 1 0 5684 4 3 1 1 5626 4 3 1 2 5590 4 6 0 0 1460 4
352 27 0 1 369 4 6 1 2 5590 4 24 0 1 7346 4 26 0 1 355 4
356 0 0 0 377 3 0 0 0 358 3 2 1 2 5592 4 2 1 2 5590 4
360 1 1 3 6 0 3 0 0 5755 4 4 1 2 5593 4 26 0 0 1165 4
364 2 0 0 5756 4 1 1 3 1 0 2 0 0 7346 4 25 0 2 2 0
368 24 1 0 377 4 6 0 0 7350 4 1 1 2 2 0 27 0 1 375 4
372 6 0 0 3609 4 1 0 1 16 0 14 0 0 5604 4 26 0 0 2258 4
376 24 1 0 393 4 26 0 0 422 4 6 0 0 7348 4 1 1 2 2 0
380 27 0 1 389 4 24 0 1 7354 4 6 1 0 5730 4 2 1 0 2766 4
384 26 0 0 2417 4 26 0 0 1570 4 6 1 0 2766 4 5 1 0 2644 4
388 27 0 0 393 4 6 0 0 7347 4 1 1 2 1 0 27 0 0 398 4
392 26 0 0 2449 4 24 0 1 7347 4 26 0 1 394 4 0 0 0 398 3
396 0 0 0 414 3 0 0 0 415 3
PROCEDURE 787
398 23 0 0 2 0 0 0 0 7360 3
400 24 1 0 402 4 24 1 0 286 4 24 0 1 7360 4 6 1 0 5684 4
404 5 1 0 2648 4 27 0 1 335 4 6 0 0 1460 4 27 0 3 410 4
408 6 0 0 3612 4 26 0 1 285 4 1 1 3 0 0 24 0 1 7360 4
412 2 1 0 5684 4 24 1 0 335 4 26 0 0 2057 4 6 0 0 7336 4
416 27 0 0 420 4 1 1 3 0 0 2 0 0 7336 4 26 0 1 285 4
420 1 1 3 1 0 26 0 1 285 4
PROCEDURE 788
422 0 0 0 0 0 24 0 3 0 4
424 6 0 0 4 22 18 0 3 3 0 18 0 1 4127 0 2 0 0 2258 4
428 24 0 1 2258 4 5 0 0 5605 4 24 0 1 2258 4 2 0 0 5605 4
432 26 0 0 2258 4 26 0 1 422 4
PROCEDURE 789
434 26 0 0 520 4 27 0 0 457 4
436 24 1 2 21 4 6 1 0 0 0 18 1 1 4126 0 5 1 0 3500 4
440 27 0 0 444 4 26 0 0 1128 4 26 0 0 994 4 24 1 0 434 4
444 18 1 1 2 0 1 1 2 89 0 27 0 1 451 4 1 1 3 65 0
448 1 0 1 3 0 24 1 2 21 4 14 1 0 0 0 24 1 2 21 4
452 6 1 0 0 0 24 1 2 17 4 5 1 0 50 0 27 0 0 465 4
456 27 0 3 441 4 24 1 0 2098 4 26 0 0 2246 4 27 0 1 434 4
460 26 0 0 520 4 27 0 0 879 4 26 0 0 1128 4 26 0 0 994 4
464 24 1 0 460 4
PROCEDURE 790
465 24 1 2 21 4 6 1 0 2 0 18 0 1 4120 0
468 1 1 2 84 0 27 0 0 498 4 1 1 2 21 0 27 0 0 485 4
472 1 1 2 10 0 27 0 1 441 4 26 0 0 994 4 26 0 0 520 4
476 27 0 0 457 4 24 1 2 21 4 6 1 0 0 0 18 0 1 4126 0
480 5 1 0 3500 4 27 0 0 451 4 26 0 0 1028 4 26 0 0 1593 4
484 24 1 0 474 4 26 0 0 1028 4 26 0 0 1593 4 26 0 0 994 4
488 26 0 0 2246 4 27 0 0 460 4 26 0 0 520 4 27 0 0 457 4
492 24 1 2 21 4 6 1 0 0 0 18 0 1 4126 0 5 1 0 3500 4
496 27 0 0 451 4 24 1 0 485 4 26 0 0 994 4 26 0 0 520 4
500 27 0 0 458 4 24 1 2 21 4 6 1 0 0 0 18 0 1 4126 0
504 5 1 0 3500 4 27 0 1 458 4 24 1 2 21 4 6 0 0 3 0
508 27 0 0 511 4 5 0 0 2645 4 27 0 1 458 4 26 0 0 2246 4
512 27 0 0 462 4 24 1 2 17 4 6 1 0 50 0 24 1 2 21 4
516 5 1 0 0 0 27 0 1 511 4 26 0 0 994 4 24 1 0 458 4
PROCEDURE 791
520 0 0 0 0 0 24 1 2 21 4 6 1 0 0 0 18 0 1 4126 0
524 5 1 0 3502 4 27 0 0 530 4 24 1 2 21 4 6 1 0 0 0
528 18 0 1 4124 0 5 1 0 3496 4 26 0 1 520 4
PROCEDURE 792
531 24 1 2 17 4
532 6 1 0 4 0 5 1 0 2582 4 27 0 1 884 4 26 0 0 1062 4
536 6 1 0 5552 4 26 0 0 1019 4 24 1 2 17 4 5 1 0 26 0
540 27 0 0 547 4 24 1 2 17 4 6 1 0 26 0 18 0 1 6 0
544 2 1 0 5552 4 26 0 0 2164 4 24 1 0 531 4 24 1 2 17 4
548 6 1 0 19 0 18 0 1 7 0 18 0 1 4121 0 2 0 0 2570 4
552 6 1 0 5561 4 26 0 0 1019 4 5 0 0 2570 4 27 0 1 541 4
556 26 0 0 2246 4 27 0 1 556 4 24 1 0 697 4
PROCEDURE 793
559 26 0 0 1364 4
560 6 1 0 1450 4 5 1 0 5716 4 27 0 1 573 4 6 0 0 1452 4
564 5 0 0 5715 4 27 0 1 573 4 26 0 0 774 4 6 0 0 1460 4
568 27 0 1 653 4 6 0 0 1454 4 5 0 0 5728 4 27 0 1 653 4
572 24 1 0 723 4 26 0 0 2468 4 24 1 2 17 4 6 1 0 4 0
576 5 1 0 2582 4 27 0 1 884 4 6 1 0 1450 4 24 1 2 17 4
580 5 1 0 26 0 27 0 1 587 4 1 0 1 1 0 24 1 2 17 4
584 15 1 0 19 0 5 0 0 1452 4 27 0 0 616 4 24 1 2 17 4
588 6 1 0 26 0 18 0 1 6 0 2 1 0 5552 4 26 0 0 2164 4
592 24 1 0 574 4
PROCEDURE 794
593 0 0 0 0 0 24 1 2 17 4 6 1 0 13 0
596 2 0 0 5554 4 24 1 2 17 4 6 1 0 23 0 2 0 0 5555 4
600 24 1 2 17 4 6 1 0 21 0 2 0 0 5556 4 1 0 1 1 0
604 24 1 2 17 4 15 1 0 19 0 2 0 0 5557 4 24 1 2 17 4
608 6 1 0 25 0 2 0 0 5558 4 24 1 2 17 4 6 1 0 10 0
612 18 0 1 6 0 2 1 0 5560 4 26 0 0 1855 4 26 0 1 593 4
PROCEDURE 795
616 24 1 2 17 4 6 1 0 26 0 3 1 0 5716 4 18 0 1 6 0
620 2 1 0 5552 4 1 0 1 1 0 24 1 2 17 4 15 1 0 19 0
624 2 0 0 5715 4 6 0 0 1460 4 27 0 0 630 4 6 0 0 1454 4
628 1 1 2 7 0 27 0 0 680 4 26 0 0 593 4 26 0 0 1846 4
632 1 1 3 8 0 2 0 0 5728 4 6 1 0 3504 4 2 1 0 7354 4
636 26 0 0 2417 4 26 0 0 1538 4 6 0 0 1454 4 5 0 0 5728 4
640 27 0 3 678 4 27 0 0 723 4 24 0 1 7345 4 26 0 1 643 4
644 0 0 0 652 3 0 0 0 646 3 6 1 0 5731 4 1 1 1 6 0
648 26 0 0 1165 4 2 0 0 5756 4 1 1 3 6 0 2 0 0 5755 4
PROCEDURE 796
652 26 0 0 2389 4 24 0 1 7347 4 26 0 1 654 4 0 0 0 652 3
656 0 0 0 658 3 0 0 0 659 3 26 0 0 2057 4 6 0 0 7354 4
660 4 0 0 7354 4 24 0 3 0 4 2 0 0 6 22 24 1 2 17 4
664 6 1 3 4 0 5 1 0 2580 4 27 0 1 637 4 6 0 0 1454 4
668 5 0 0 5728 4 27 0 1 678 4 6 0 0 1460 4 27 0 0 678 4
672 6 0 0 7348 4 1 1 2 3 0 27 0 1 678 4 1 1 3 1 0
676 2 0 0 7326 4 24 1 0 723 4 26 0 0 1128 4 24 1 0 881 4
PROCEDURE 797
680 26 0 0 994 4 26 0 0 1062 4 26 0 0 1855 4 26 0 0 1846 4
684 24 1 2 17 4 6 1 0 26 0 2 1 0 5716 4 1 0 1 1 0
688 24 1 2 17 4 15 1 0 19 0 2 0 0 5715 4 1 1 3 8 0
692 2 0 0 5728 4 26 0 0 1538 4 6 1 0 3504 4 2 1 0 7354 4
696 26 0 0 2417 4 26 0 0 994 4 24 1 2 21 4 6 1 0 0 0
700 5 1 0 3506 4 27 0 1 879 4 26 0 0 1364 4 6 0 0 1454 4
704 5 0 0 5728 4 27 0 1 559 4 6 1 0 1450 4 5 1 0 5716 4
708 27 0 1 573 4 6 1 0 1452 4 5 0 0 5715 4 27 0 1 573 4
712 24 0 1 7326 4 26 0 1 713 4 0 0 0 716 3 0 0 0 719 3
716 1 1 3 2 0 2 0 0 7326 4 24 1 0 720 4 26 0 0 774 4
720 6 0 0 1460 4 27 0 0 569 4 24 1 0 638 4
PROCEDURE 798
723 6 0 0 1460 4
724 27 0 0 778 4 24 0 1 7348 4 26 0 1 726 4 0 0 0 730 3
728 0 0 0 744 3 0 0 0 746 3 6 0 0 1456 4 27 0 1 734 4
732 6 0 0 1454 4 2 0 0 1456 4 26 0 0 774 4 26 0 0 2449 4
736 6 0 0 1454 4 5 0 0 1456 4 27 0 0 697 4 0 0 3 3611 4
740 6 0 0 3612 4 7 0 0 1456 4 0 0 3 3608 4 24 1 0 734 4
744 26 0 0 774 4 26 0 0 2449 4 26 0 0 1538 4 26 0 0 285 4
748 27 0 3 747 4 27 0 0 760 4 26 0 0 994 4 26 0 0 520 4
752 27 0 0 760 4 6 0 0 7348 4 1 1 2 3 0 27 0 0 758 4
756 26 0 0 774 4 26 0 0 2449 4 26 0 0 1538 4 24 1 0 1172 4
760 24 0 1 7347 4 26 0 1 761 4 0 0 0 765 3 0 0 0 841 3
764 0 0 0 841 3 6 1 0 2644 4 3 1 1 5626 4 2 1 2 5590 4
768 26 0 0 422 4 25 0 2 0 0 24 1 0 772 4 24 1 0 841 4
772 26 0 0 2057 4 24 1 0 841 4
PROCEDURE 799
774 0 0 0 0 0 26 0 0 832 4
776 27 0 0 678 4 26 0 1 774 4
PROCEDURE 800
778 24 0 1 7346 4 26 0 1 779 4
780 0 0 0 784 3 0 0 0 782 3 1 1 3 4 0 2 0 0 5754 4
784 6 0 0 1456 4 5 0 0 5754 4 27 0 0 800 4 27 0 3 678 4
788 26 0 0 2389 4 24 0 1 7347 4 26 0 1 790 4 0 0 0 794 3
792 0 0 0 796 3 0 0 0 797 3 26 0 0 1570 4 24 1 0 784 4
796 26 0 0 2057 4 26 0 0 1128 4 26 0 0 1538 4 24 1 0 881 4
PROCEDURE 801
800 24 0 1 7348 4 26 0 1 801 4 0 0 0 805 3 0 0 0 828 3
804 0 0 0 828 3 6 0 0 1458 4 27 0 1 809 4 6 0 0 1456 4
808 2 0 0 1458 4 0 0 3 3611 4 6 0 0 1458 4 1 1 1 2 0
812 2 0 0 1458 4 0 0 3 3608 4 24 0 1 7354 4 6 1 0 5730 4
816 5 1 0 2644 4 27 0 0 678 4 26 0 0 2417 4 26 0 0 1570 4
820 6 0 0 5754 4 5 0 0 1458 4 27 0 1 814 4 26 0 0 994 4
824 26 0 0 520 4 27 0 0 849 4 26 0 0 1128 4 24 1 0 823 4
828 26 0 0 285 4 27 0 0 849 4 27 0 3 828 4 24 1 0 823 4
PROCEDURE 802
832 0 0 0 0 0 6 0 0 7354 4 4 0 0 7354 4 24 0 3 0 4
836 2 0 0 6 22 24 1 2 17 4 6 1 3 4 0 5 1 0 2580 4
840 26 0 1 832 4
PROCEDURE 803
841 24 0 1 7326 4 26 0 1 842 4 0 0 0 845 3
844 0 0 0 848 3 1 1 3 2 0 2 0 0 7326 4 24 1 0 879 4
848 26 0 0 1538 4 24 1 2 21 4 6 1 0 0 0 5 1 0 3506 4
852 27 0 0 857 4 26 0 0 832 4 27 0 1 878 4 26 0 0 2468 4
856 24 1 0 879 4 26 0 0 1364 4 6 1 0 1450 4 5 1 0 5716 4
860 27 0 0 864 4 26 0 0 832 4 27 0 0 879 4 24 1 0 878 4
864 6 0 0 1452 4 5 0 0 5715 4 27 0 1 861 4 6 0 0 1454 4
868 5 0 0 5728 4 27 0 1 874 4 6 0 0 1460 4 27 0 1 659 4
872 26 0 0 774 4 24 1 0 723 4 26 0 0 774 4 26 0 0 2458 4
876 26 0 0 1538 4 24 1 0 659 4 26 0 0 2458 4 26 0 0 1299 4
880 26 0 0 1128 4 26 0 0 994 4 26 0 0 1299 4 24 1 0 880 4
PROCEDURE 804
884 26 0 0 1128 4 24 1 2 17 4 6 1 0 4 0 5 1 0 2582 4
888 27 0 1 3036 4 24 1 2 17 4 6 1 0 26 0 18 0 1 6 0
892 2 1 0 5552 4 26 0 0 2164 4 24 1 0 885 4
PROCEDURE 805
895 6 1 0 2660 4
896 24 1 2 15 4 2 1 0 48 0 0 0 3 3608 4 24 0 2 2820 4
900 24 1 2 15 4 28 1 2 2 0 6 1 0 3508 4 24 1 2 15 4
904 28 1 1 12 0 6 1 0 2658 4 24 1 2 15 4 2 1 0 4 0
908 26 0 0 2546 4 23 0 0 4097 0 0 0 0 7356 3 24 1 0 912 4
912 26 0 0 1104 4 26 0 1 1593 4 24 0 2 2820 4 24 1 2 15 4
916 28 1 2 2 0 6 1 0 2660 4 24 1 2 15 4 2 1 0 48 0
920 6 1 0 3510 4 24 1 2 15 4 28 1 1 10 0 24 1 0 905 4
PROCEDURE 806
924 0 0 0 0 0 26 0 0 2552 4 6 1 0 3512 4 14 1 0 2634 4
928 1 1 3 0 0 1 0 1 960 0 15 1 0 2624 4 14 1 0 2634 4
932 1 1 3 255 0 26 0 1 924 4 1 0 1 48 0 26 0 0 924 4
936 24 1 0 1630 4 1 0 1 12 0 26 0 0 924 4 24 1 0 1637 4
940 1 0 1 3 0 26 0 0 924 4 24 1 0 1644 4
PROCEDURE 807
943 0 0 0 0 0
944 1 0 1 60 0 14 1 0 2636 4 26 0 0 2552 4 24 0 3 0 4
948 6 0 0 2 22 27 0 1 954 4 1 0 1 3 0 1 1 3 65 0
952 14 1 0 2636 4 1 1 3 0 0 26 0 1 943 4
PROCEDURE 808
955 0 0 0 0 0
956 1 0 1 768 0 1 1 2 1 0 27 0 0 969 4 1 1 2 1 0
960 27 0 0 968 4 1 1 2 1 0 27 0 0 967 4 1 1 2 1 0
964 27 0 0 966 4 18 1 1 4126 0 18 1 1 4126 0 18 1 1 4126 0
968 18 1 1 4126 0 6 1 0 3514 4 14 1 0 2638 4 26 0 1 955 4
PROCEDURE 809
972 0 0 0 0 0 6 1 0 2636 4 5 1 0 2660 4 27 0 0 982 4
976 6 1 0 2660 4 2 1 0 2636 4 6 0 0 2558 4 1 0 1 24 0
980 14 1 0 5581 4 26 0 0 2546 4 26 0 1 972 4
PROCEDURE 810
983 0 0 0 0 0
984 0 1 0 3458 4 0 0 3 0 4 0 0 2 16 4 6 1 0 3484 4
988 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
992 0 1 1 3458 4 26 0 1 983 4
PROCEDURE 811
994 0 0 0 0 0 26 0 0 120 4
996 24 1 2 21 4 0 1 2 49 0 1 1 3 0 0 18 1 1 7 0
1000 3 1 0 3458 4 26 1 3 3458 4 1 1 3 0 0 18 1 1 3 0
1004 2 0 0 2564 4 1 0 1 3 0 1 1 3 126 0 24 0 1 2564 4
1008 18 1 1 0 0 24 1 2 21 4 14 1 3 0 0 24 1 2 21 4
1012 24 0 2 4 0 18 1 1 4123 0 1 1 3 44 0 18 1 1 5 0
1016 24 1 2 21 4 28 1 1 0 0 26 0 1 994 4
PROCEDURE 812
1019 0 0 0 0 0
1020 18 1 1 4118 0 2 1 0 2576 4 6 1 0 2576 4 18 1 1 2 0
1024 2 1 0 2576 4 27 1 1 1022 4 6 1 0 2576 4 26 0 1 1019 4
PROCEDURE 813
1028 0 0 0 0 0 6 1 0 3516 4 28 0 0 5550 4 24 0 1 6276 4
1032 26 0 1 1032 4 0 0 0 1039 3 0 0 0 1035 3 24 0 2 2698 4
1036 24 1 2 21 4 28 0 2 0 0 24 1 0 1042 4 24 0 2 2674 4
1040 24 1 2 21 4 28 0 3 0 0 6 0 0 6000 4 27 0 0 1045 4
1044 26 0 1 1028 4 0 0 3 3611 4 1 1 3 2 0 7 0 0 5550 4
1048 6 0 0 5551 4 1 1 2 6 0 27 0 1 1060 4 26 1 3 3518 4
1052 6 0 3 5555 4 27 0 0 1060 4 1 1 2 256 0 27 0 3 1058 4
1056 1 1 3 2 0 7 0 3 5556 4 25 0 3 2 0 24 1 0 1052 4
1060 0 0 3 3608 4 26 0 1 1028 4
PROCEDURE 814
1062 0 0 0 0 0 6 1 0 3516 4
1064 28 0 0 5550 4 24 0 1 6276 4 26 0 1 1066 4 0 0 0 1079 3
1068 0 0 0 1069 3 24 0 2 2736 4 24 1 2 21 4 28 0 2 0 0
1072 6 1 0 5552 4 18 0 1 6 0 2 1 0 5552 4 6 1 0 5560 4
1076 18 0 1 6 0 2 1 0 5560 4 26 0 1 1062 4 24 0 2 2666 4
1080 24 1 2 21 4 28 0 3 0 0 26 0 1 1062 4
PROCEDURE 815
1083 0 0 0 0 0
1084 24 1 2 17 4 24 0 2 4 0 18 1 1 4123 0 1 1 3 50 0
1088 18 1 1 5 0 24 1 2 19 4 28 1 1 4 0 0 1 0 3458 4
1092 0 0 3 0 4 0 0 2 18 4 6 1 0 3472 4 4 0 0 10 4
1096 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4
1100 26 0 1 1083 4
PROCEDURE 816
1101 0 0 0 0 0 26 0 0 3681 4 26 0 1 1101 4
PROCEDURE 817
1104 0 0 0 0 0 24 1 2 15 4 2 1 0 0 0 26 0 0 3717 4
1108 26 0 1 1104 4
PROCEDURE 818
1109 0 0 0 0 0 6 0 0 6275 4 27 0 0 1116 4
1112 6 1 0 3520 4 24 1 2 15 4 28 1 1 0 0 24 1 0 1119 4
1116 6 1 0 2644 4 24 1 2 15 4 2 1 0 2 0 26 0 0 1104 4
1120 26 0 1 1109 4
PROCEDURE 819
1121 0 0 0 0 0 1 1 3 0 0 24 1 2 15 4
1124 2 1 0 2 0 24 1 2 15 4 2 1 0 4 0 26 0 1 1121 4
PROCEDURE 820
1128 0 0 0 0 0 26 0 0 1109 4 26 0 0 2540 4 6 1 0 2640 4
1132 24 1 2 15 4 2 1 0 2 0 24 1 2 21 4 6 1 0 49 0
1136 18 0 1 4125 0 1 1 2 4 0 3 1 0 3458 4 26 1 3 3458 4
1140 1 1 3 0 0 1 0 1 3 0 24 1 2 21 4 15 1 0 49 0
1144 2 0 0 1159 4 24 0 1 1159 4 18 1 1 0 0 24 1 2 21 4
1148 14 1 3 0 0 24 1 2 21 4 24 0 2 0 0 18 1 1 4123 0
1152 1 1 3 32 0 18 1 1 5 0 24 1 2 15 4 28 1 1 4 0
1156 26 0 0 1104 4 26 0 0 1109 4 26 0 1 1128 4
PROCEDURE 821
1159 0 0 0 0 0
1160 2 1 0 4540 4 0 0 3 3608 4 24 0 2 4590 4 12 1 0 4540 4
1164 26 0 1 1159 4
PROCEDURE 822
1165 0 0 0 0 0 2 1 0 4540 4 0 0 3 3611 4
1168 24 0 2 4610 4 12 1 0 4540 4 0 0 3 3608 4 26 0 1 1165 4
PROCEDURE 823
1172 26 1 3 2642 4 6 1 0 3522 4 2 1 0 7356 4 6 1 0 3524 4
1176 2 1 0 7360 4 6 1 0 3526 4 28 0 0 5650 4 24 1 2 21 4
1180 24 0 2 0 0 18 1 1 4123 0 1 1 3 32 0 18 1 1 5 0
1184 28 0 0 5650 4 24 0 1 6276 4 26 0 1 1186 4 0 0 0 1189 3
1188 0 0 0 1204 3 24 0 0 25 4 0 1 2 5650 4 18 1 1 2 0
1192 1 1 2 125 0 27 0 0 1213 4 1 1 2 1 0 27 0 0 1283 4
1196 1 1 1 126 0 2 0 0 5714 4 6 1 0 5682 4 18 0 1 2 0
1200 4 0 0 5714 4 2 1 0 5682 4 26 0 0 1322 4 24 1 0 1192 4
1204 6 1 0 5650 4 2 1 0 5682 4 2 0 0 5711 4 25 0 3 2 0
1208 24 1 0 1209 4 24 0 0 25 4 0 1 2 5650 4 18 1 1 2 0
1212 24 1 0 1214 4
PROCEDURE 824
1213 26 0 0 1322 4 1 1 2 125 0 27 0 0 1229 4
1216 1 1 2 1 0 27 0 0 1283 4 1 1 1 31 0 27 0 0 1295 4
1220 1 1 1 4 0 27 0 0 1238 4 1 1 1 91 0 2 0 0 5714 4
1224 6 1 0 5712 4 18 0 1 2 0 4 0 0 5714 4 2 1 0 5712 4
1228 24 1 0 1213 4 26 0 0 1351 4 24 0 1 7356 4 2 1 0 5684 4
1232 2 0 0 5710 4 2 1 0 5712 4 23 0 0 2 0 0 0 0 7356 3
1236 24 1 0 1213 4 24 1 0 1289 4
PROCEDURE 825
1238 26 0 0 1322 4 1 1 2 81 0
1240 27 0 0 1281 4 1 1 2 1 0 27 0 0 1279 4 1 1 2 1 0
1244 27 0 0 1292 4 1 1 2 1 0 27 0 0 1277 4 1 1 2 7 0
1248 27 0 0 1275 4 1 1 2 8 0 27 0 0 1273 4 1 1 2 2 0
1252 27 0 0 1271 4 1 1 2 13 0 27 0 0 1269 4 1 1 2 11 0
1256 27 0 1 1260 4 26 0 0 2552 4 6 1 0 2656 4 24 1 0 1230 4
1260 1 1 2 1 0 27 0 1 1265 4 26 0 0 2552 4 6 1 0 2656 4
1264 24 1 0 1284 4 1 1 3 0 0 26 0 0 1322 4 1 1 2 125 0
1268 24 1 0 1256 4 1 1 3 95 0 24 1 0 1223 4 1 1 3 125 0
1272 24 1 0 1223 4 1 1 3 94 0 24 1 0 1223 4 1 1 3 91 0
1276 24 1 0 1223 4 1 1 3 127 0 24 1 0 1223 4 1 1 3 126 0
1280 24 1 0 1223 4 1 1 3 111 0 24 1 0 1223 4 26 0 0 1351 4
1284 24 0 1 7356 4 2 1 0 5684 4 6 1 0 2648 4 24 0 1 7356 4
1288 2 1 0 5686 4 6 1 0 3522 4 2 1 0 7360 4 24 1 0 298 4
1292 1 1 3 1 0 2 0 0 5710 4 24 1 0 1213 4 6 1 0 2648 4
1296 24 0 1 7356 4 2 1 0 5684 4 24 1 0 1289 4
PROCEDURE 826
1299 0 0 0 0 0
1300 24 1 2 21 4 6 1 0 0 0 5 1 0 2586 4 27 0 0 1316 4
1304 1 1 1 30 0 27 0 0 1318 4 1 1 2 21 0 27 0 0 1318 4
1308 1 1 1 24 0 27 0 0 559 4 24 1 2 21 4 6 1 0 0 0
1312 18 0 1 4124 0 5 1 0 3496 4 27 0 0 1320 4 26 0 1 1299 4
1316 26 0 0 2468 4 24 1 0 259 4 26 0 0 2468 4 24 1 0 531 4
1320 26 0 0 2468 4 24 1 0 885 4
PROCEDURE 827
1322 0 0 0 0 0 23 0 0 1 0
1324 0 0 0 7360 3 24 1 0 1340 4 24 0 1 6276 4 26 0 1 1327 4
1328 0 0 0 1334 3 0 0 0 1330 3 6 0 0 5711 4 27 0 1 1342 4
1332 1 1 3 1 0 2 0 0 5711 4 6 1 0 3524 4 2 1 0 7360 4
1336 25 0 3 2 0 24 1 0 1338 4 24 0 0 25 4 0 1 2 5650 4
1340 18 1 1 2 0 26 0 1 1322 4 1 1 3 0 0 2 0 0 5711 4
1344 6 1 0 3528 4 2 1 0 7360 4 25 0 3 2 0 24 1 0 1348 4
1348 24 0 0 25 4 0 1 2 5650 4 24 1 0 1229 4
PROCEDURE 828
1351 0 0 0 0 0
1352 6 0 0 5710 4 27 0 0 1362 4 18 1 1 10 0 2 1 0 5718 4
1356 6 1 0 5713 4 26 0 0 1159 4 2 1 0 5713 4 0 1 2 5718 4
1360 5 1 0 5712 4 24 1 0 1363 4 6 1 0 5712 4 26 0 1 1351 4
PROCEDURE 829
1364 0 0 0 0 0 6 1 0 3530 4 28 1 1 1450 4 24 0 1 6276 4
1368 26 0 1 1368 4 0 0 0 1371 3 0 0 0 1445 3 24 0 2 2678 4
1372 24 1 2 21 4 28 0 3 0 0 6 1 0 1450 4 26 0 0 1019 4
1376 2 1 0 1450 4 6 1 0 1454 4 26 0 0 1019 4 18 1 1 4126 0
1380 2 1 0 2576 4 18 1 1 2 0 1 1 2 84 0 27 0 0 1427 4
1384 1 1 2 21 0 27 0 0 1426 4 1 1 2 10 0 27 0 0 1425 4
1388 6 1 0 1454 4 26 0 0 1019 4 6 1 0 2577 4 27 0 3 1423 4
1392 2 1 0 1454 4 6 1 0 1456 4 26 0 0 1019 4 3 1 0 2576 4
1396 18 1 1 4126 0 1 1 3 0 0 18 1 1 2 0 1 1 2 84 0
1400 27 0 0 1407 4 1 1 2 21 0 27 0 0 1406 4 1 1 2 10 0
1404 27 0 1 1423 4
PROCEDURE 830
1405 1 1 3 1 0 1 1 1 1 0 1 1 1 1 0
1408 2 0 0 7348 4 6 1 0 2576 4 18 0 1 4126 0 2 1 0 1456 4
1412 6 1 0 1457 4 27 0 3 1423 4 2 1 0 1456 4 6 1 0 1458 4
1416 27 0 0 1443 4 27 0 3 1423 4 6 0 0 1456 4 5 0 0 1458 4
1420 27 0 2 1423 4 1 1 3 0 0 24 1 0 1443 4 26 0 0 1128 4
1424 24 1 0 881 4
PROCEDURE 831
1425 1 1 3 1 0 1 1 1 1 0 1 1 1 1 0
1428 2 0 0 7348 4 6 1 0 2577 4 27 0 3 1423 4 2 1 0 1454 4
1432 6 1 0 1456 4 26 0 0 1019 4 2 1 0 2576 4 6 1 0 2577 4
1436 27 0 3 1423 4 3 1 0 1456 4 27 0 0 1442 4 6 0 0 1454 4
1440 5 0 0 1456 4 27 0 2 1423 4 1 1 3 1 0 2 0 0 1460 4
1444 26 0 1 1364 4
PROCEDURE 832
1445 24 0 2 2752 4 24 1 2 21 4 28 0 2 0 0
1448 24 1 0 1374 4 0 0 0 0 0
SECTION 833
1450 0 0 0 0
1452 0 0 0 0 0 0 0 0
1456 0 0 0 0 0 0 0 0
1460 0 0 0 0
PROCEDURE 834
1462 0 0 0 0 0 2 0 0 2564 4
1464 1 0 1 28 0 15 0 0 2564 4 18 0 1 4126 0 26 0 0 1159 4
1468 2 0 0 7360 4 26 1 3 3480 4 6 0 3 6206 4 5 0 0 2564 4
1472 27 0 0 1494 4 25 0 3 2 0 24 1 0 1470 4 0 1 0 3458 4
1476 0 0 3 0 4 6 0 0 1 4 4 0 0 7360 4 2 0 0 3464 4
1480 0 1 1 3458 4 24 0 3 3464 4 6 0 0 1074 0 3 0 0 1165 4
1484 27 0 0 1495 4 1 1 3 0 0 1 0 1 3 0 15 0 0 2564 4
1488 26 0 0 1159 4 1 1 2 2 0 3 0 0 1159 4 27 0 1 1496 4
1492 6 0 0 1165 4 24 1 0 1495 4 6 0 3 6207 4 26 0 1 1462 4
1496 1 1 3 0 0 26 0 1 1462 4
PROCEDURE 835
1498 0 0 0 0 0 2 0 0 2564 4
1500 26 1 3 3532 4 1 0 1 28 0 1 1 3 0 0 15 0 3 5979 4
1504 18 0 1 4126 0 5 0 0 2564 4 27 0 2 1509 4 25 0 3 1 0
1508 24 1 0 1502 4 1 1 3 0 0 1 0 1 1 0 15 0 3 5979 4
1512 26 0 1 1498 4
PROCEDURE 836
1513 0 0 0 0 0 1 0 1 1 0 15 0 3 5038 4
1516 2 0 0 7360 4 1 1 3 0 0 24 0 1 7360 4 15 0 0 5979 4
1520 26 0 1 1513 4
PROCEDURE 837
1521 0 0 0 0 0 2 0 0 2564 4 26 1 3 5140 4
1524 25 0 3 0 0 24 1 0 1527 4 24 1 0 1534 4 1 0 1 1031 0
1528 15 0 3 5142 4 5 0 0 2564 4 27 0 0 1535 4 1 1 3 0 0
1532 25 0 3 2 0 24 1 0 1528 4 26 0 1 1521 4 1 0 1 24 0
1536 15 0 3 5142 4 26 0 1 1521 4
PROCEDURE 838
1538 0 0 0 0 0 0 0 3 3611 4
1540 26 1 3 3484 4 1 1 3 2 0 3 0 3 5605 4 1 1 1 2 0
1544 25 0 3 1 0 24 1 0 1542 4 0 0 3 3608 4 26 1 2 3522 4
1548 1 1 3 1 0 2 0 0 7351 4 1 1 3 1 0 2 0 0 7347 4
1552 1 1 3 2 0 2 0 0 7350 4 1 1 3 2 0 2 0 0 7346 4
1556 2 1 0 2636 4 26 0 0 1109 4 26 0 1 1538 4
PROCEDURE 839
1559 0 0 0 0 0
1560 0 0 3 3611 4 26 1 3 3484 4 1 0 1 15 0 1 1 3 20 0
1564 15 0 3 5605 4 2 0 3 5605 4 25 0 3 1 0 24 1 0 1563 4
1568 0 0 3 3608 4 26 0 1 1559 4
PROCEDURE 840
1570 0 0 0 0 0 1 1 3 2 0
1572 0 0 3 3611 4 7 0 0 5754 4 0 0 3 3608 4 26 0 1 1570 4
PROCEDURE 841
1576 0 0 0 0 0 26 0 0 1109 4 26 0 0 1109 4 6 1 0 3534 4
1580 2 1 0 7356 4 24 0 2 2790 4 24 1 2 15 4 28 1 2 2 0
1584 26 0 0 1104 4 24 1 2 21 4 6 1 0 0 0 18 0 1 4124 0
1588 5 1 0 3496 4 27 0 0 1591 4 26 0 0 994 4 26 0 0 1109 4
1592 26 0 1 1576 4
PROCEDURE 842
1593 0 0 0 0 0 23 0 0 1 0 0 0 0 7356 3
1596 24 1 0 1598 4 24 1 0 914 4 6 1 0 3536 4 28 1 1 5568 4
1600 2 1 0 2634 4 2 1 0 2636 4 2 1 0 2638 4 6 0 0 5550 4
1604 26 0 0 131 4 3 0 0 5550 4 3 0 0 5568 4 26 0 0 1462 4
1608 27 0 0 914 4 2 0 0 5569 4 6 0 0 7360 4 26 0 0 1498 4
1612 24 0 3 0 4 6 0 0 6 22 2 0 0 5570 4
PROCEDURE 843
1615 6 0 0 5551 4
1616 27 0 0 895 4 27 0 3 895 4 1 1 2 7 0 27 0 2 895 4
1620 1 1 1 7 0 18 0 1 4 0 7 0 0 5570 4 6 0 0 5551 4
1624 2 0 0 7349 4 6 0 0 5552 4 1 1 2 598 0 27 0 2 934 4
1628 1 1 1 598 0 26 0 0 1159 4 18 0 1 3 0 2 0 0 5571 4
1632 6 0 0 5553 4 1 1 2 598 0 27 0 2 937 4 1 1 1 598 0
1636 26 0 0 1159 4 7 0 0 5571 4 6 0 0 5554 4 27 0 0 940 4
1640 1 1 2 598 0 27 0 2 940 4 1 1 1 598 0 26 0 0 1159 4
1644 18 0 1 1 0 7 0 0 5570 4 26 1 2 2642 4 26 1 1 3538 4
PROCEDURE 844
1648 24 0 1 7349 4 26 0 1 1649 4 0 0 0 1656 3 0 0 0 1656 3
1652 0 0 0 1668 3 0 0 0 1668 3 0 0 0 1796 3 0 0 0 1734 3
1656 6 0 1 5555 4 27 0 0 1796 4 5 0 0 2565 4 27 0 0 1661 4
1660 27 0 2 1717 4 4 0 0 2565 4 2 0 2 5572 4 25 0 2 4 0
1664 24 1 0 1665 4 25 0 1 1 0 24 1 0 1656 4 24 1 0 1796 4
PROCEDURE 845
1668 6 0 1 5555 4 27 0 0 1796 4 27 0 3 1722 4 1 1 2 256 0
1672 27 0 2 1722 4 6 0 1 5555 4 26 0 0 1159 4 3 0 2 5572 4
1676 24 0 3 0 4 2 0 0 6 22 6 0 3 5038 4 27 0 0 1722 4
1680 6 0 0 6270 4 27 0 0 1691 4 24 0 3 0 4 6 1 0 4 22
1684 3 1 0 2764 4 24 0 3 24 4 7 0 0 0 0 24 1 2 17 4
1688 6 1 2 21 0 26 1 2 2764 4 24 1 0 1694 4 0 0 2 2559 4
1692 15 0 3 5038 4 18 0 1 4127 0 27 0 0 1722 4 2 0 2 5575 4
1696 0 0 2 2560 4 15 0 3 5038 4 27 0 1 1705 4 24 0 3 1 4
1700 6 0 3 1074 0 2 0 2 5574 4 26 0 0 1513 4 18 0 1 3 0
1704 24 1 0 1711 4 18 0 3 1 0 18 0 1 4127 0 2 0 2 5573 4
1708 6 0 2 5572 4 26 0 0 1521 4 27 0 0 1722 4 7 0 2 5572 4
1712 25 0 2 4 0 24 1 0 1714 4 25 0 1 1 0 24 1 0 1668 4
1716 24 1 0 1796 4 6 1 0 3540 4 26 0 0 943 4 27 0 0 1665 4
1720 26 0 0 955 4 24 1 0 1665 4 6 1 0 3542 4 26 0 0 943 4
1724 27 0 0 1714 4 26 0 0 955 4 24 1 0 1714 4 6 1 0 3544 4
1728 26 0 0 943 4 27 0 0 1794 4 18 0 3 3 0 18 0 1 4127 0
1732 26 0 0 955 4 24 1 0 1794 4
PROCEDURE 846
1734 26 1 1 3518 4 6 0 1 5556 4
1736 27 0 3 1727 4 26 0 0 1159 4 2 0 2 5574 4 6 0 1 5555 4
1740 27 0 0 1796 4 27 0 3 1727 4 1 1 2 2457 0 27 0 2 1727 4
1744 6 0 1 5555 4 18 1 1 4126 0 27 0 1 1762 4 18 1 1 2 0
1748 26 0 0 1159 4 3 0 2 5573 4 24 0 3 0 4 2 0 0 6 22
1752 24 0 3 1 4 6 0 3 1074 0 27 0 0 1727 4 4 0 2 5574 4
1756 2 0 2 5572 4 6 0 0 3609 4 7 0 2 5573 4 1 1 3 0 0
1760 26 0 0 1513 4 24 1 0 1790 4 18 1 1 2 0 26 0 0 1159 4
1764 2 0 2 5573 4 6 0 1 5556 4 1 1 2 2 0 27 0 3 1727 4
1768 1 1 2 152 0 27 0 2 1727 4 6 0 1 5555 4 18 0 1 2 0
1772 0 0 3 3611 4 4 0 1 5556 4 0 0 3 3608 4 26 0 0 131 4
1776 3 0 0 1462 4 18 1 1 4126 0 2 0 1 5555 4 18 1 1 2 0
1780 2 0 1 5556 4 6 0 0 1462 4 26 0 0 1462 4 27 0 1 1787 4
1784 6 0 0 1165 4 27 0 0 1727 4 4 0 0 1159 4 2 0 2 5572 4
1788 6 1 0 7360 4 26 0 0 1498 4 18 0 1 4 0 7 0 2 5572 4
1792 25 0 2 3 0 24 1 0 1794 4 25 0 1 2 0 24 1 0 1735 4
PROCEDURE 847
1796 6 0 0 7356 4 3 0 0 2566 4 1 1 1 64 0 4 1 0 2590 4
1800 24 1 2 19 4 2 1 0 50 0 6 1 0 2586 4 24 1 2 19 4
1804 2 1 0 4 0 24 0 2 5568 4 18 1 1 4123 0 1 1 3 22 0
1808 18 1 1 5 0 24 1 2 19 4 28 0 1 7 0 26 0 0 1101 4
1812 24 0 2 2820 4 24 1 2 15 4 28 1 2 2 0 6 0 0 5551 4
1816 1 1 2 6 0 27 0 0 1822 4 24 0 2 2834 4 24 1 2 15 4
1820 28 1 2 18 0 24 1 0 1844 4 24 0 2 2852 4 24 1 2 15 4
1824 28 1 2 18 0 26 1 3 3546 4 1 1 3 0 0 0 1 0 3458 4
1828 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0 24 0 3 0 4
1832 4 0 0 6 22 2 0 0 3464 4 0 1 1 3458 4 24 0 3 3464 4
1836 0 1 2 22 0 18 1 1 2 0 27 0 0 1837 4 18 1 1 8 0
1840 24 1 2 15 4 2 1 3 22 0 25 0 3 4 0 24 1 0 1827 4
1844 26 0 0 1104 4 26 0 1 1593 4
PROCEDURE 848
1846 0 0 0 0 0 24 0 2 2896 4
1848 24 1 2 15 4 28 1 2 2 0 6 1 0 2646 4 26 0 0 1104 4
1852 1 1 3 2 0 2 0 0 7352 4 26 0 1 1846 4
PROCEDURE 849
1855 0 0 0 0 0
1856 6 0 0 5000 4 2 1 0 5569 4 2 1 0 2636 4 6 0 0 5554 4
1860 3 0 0 5757 4 2 1 0 5575 4 6 0 0 5557 4 27 0 1 1870 4
1864 26 0 0 2552 4 6 1 0 2606 4 18 0 1 4124 0 2 1 0 2636 4
1868 1 1 3 9 0 3 0 0 5557 4 3 1 0 5581 4 6 0 0 5555 4
1872 1 1 2 4097 0 27 0 3 1879 4 6 1 0 2626 4 2 1 0 2636 4
1876 26 0 0 2552 4 6 0 0 5555 4 1 1 2 4097 0 1 1 1 4097 0
1880 3 0 0 5758 4 3 1 0 5585 4 26 0 0 1159 4 18 0 3 1 0
1884 1 1 2 4 0 2 1 0 5579 4 6 0 0 5558 4 3 1 0 5587 4
1888 27 0 0 1894 4 1 1 3 1 0 3 0 0 5558 4 2 1 0 5587 4
1892 6 1 0 2632 4 24 1 0 1895 4 6 1 0 2630 4 2 1 0 2634 4
PROCEDURE 850
1896 6 0 0 5561 4 27 0 0 1907 4 18 1 1 4125 0 2 0 0 2564 4
1900 6 0 0 5553 4 18 1 1 4125 0 5 0 0 2564 4 27 0 0 1905 4
1904 26 0 0 972 4 6 1 0 5560 4 24 1 0 1909 4 6 1 0 5552 4
1908 3 1 0 5560 4 18 0 1 4122 0 2 1 0 5572 4 6 1 0 5552 4
1912 18 0 1 4122 0 2 1 0 5588 4 6 0 0 5139 4 27 0 0 1926 4
1916 26 1 1 5138 4 6 0 1 5143 4 18 0 3 2 0 18 0 1 4126 0
1920 4 0 0 3613 4 18 0 1 1 0 5 0 0 5553 4 27 0 0 1931 4
1924 25 0 1 2 0 24 1 0 1917 4 6 0 0 3614 4 3 1 0 5588 4
1928 18 0 1 6 0 2 1 0 5552 4 26 0 0 972 4 1 1 3 63 0
1932 18 1 1 4118 0 15 0 1 5143 4 1 1 2 7 0 27 0 0 1941 4
1936 1 1 2 1 0 27 0 0 1941 4 1 1 2 3 0 27 0 0 1941 4
1940 26 0 0 972 4 24 0 3 0 4 6 1 0 2 22 18 0 3 3 0
1944 18 0 1 4127 0 1 1 1 1 0 4 0 0 2565 4 4 0 0 2565 4
1948 2 1 0 5571 4 6 0 0 5556 4 3 0 0 5759 4 3 1 0 5583 4
1952 26 0 0 1159 4 26 0 0 1521 4 27 0 1 1956 4 26 0 0 972 4
1956 18 0 1 4125 0 2 1 0 5577 4 26 0 0 1109 4 26 0 0 1109 4
1960 6 1 0 3548 4 24 1 2 19 4 28 0 0 0 0 6 1 0 2582 4
1964 24 1 2 19 4 2 1 0 4 0 24 0 2 5568 4 18 1 1 4123 0
1968 1 1 3 22 0 18 1 1 5 0 24 1 2 19 4 28 1 1 6 0
1972 26 0 0 1101 4 6 1 0 3550 4 28 0 0 5590 4 1 1 3 8 0
1976 2 0 0 5604 4 26 1 1 3546 4 6 0 0 5558 4 1 1 1 1 0
1980 2 0 0 7345 4 26 0 1 1855 4
PROCEDURE 851
1982 0 0 0 0 0 24 0 1 7346 4
1984 26 0 1 1984 4 0 0 0 1990 3 0 0 0 1987 3 1 1 3 1 0
1988 2 0 0 7346 4 24 1 0 2008 4 25 0 1 2 0 24 1 0 2008 4
1992 26 1 3 3546 4 26 1 1 3476 4 6 0 3 5627 4 24 1 2 19 4
1996 2 1 1 5 0 6 0 3 5626 4 24 1 2 19 4 2 1 1 7 0
2000 25 0 1 4 0 24 1 0 2002 4 25 0 3 2 0 24 1 0 1994 4
2004 26 0 0 1101 4 26 1 1 3546 4 6 1 0 3552 4 28 0 0 5626 4
2008 26 0 1 1982 4
PROCEDURE 852
2009 0 0 0 0 0 24 0 1 7350 4 26 0 1 2011 4
2012 0 0 0 2032 3 0 0 0 2014 3 24 0 2 2936 4 24 1 2 15 4
2016 28 1 2 2 0 0 0 3 3611 4 1 1 3 1 0 7 0 0 5604 4
2020 0 0 3 3608 4 1 1 3 1 0 2 0 0 7350 4 6 0 0 5604 4
2024 18 1 1 4124 0 27 0 0 2031 4 6 0 0 3615 4 24 1 2 15 4
2028 2 0 0 3 0 18 1 1 4 0 2 0 0 5604 4 24 1 0 2033 4
2032 26 0 0 1121 4 24 0 2 2942 4 24 1 2 15 4 28 1 2 6 0
2036 24 0 3 0 4 6 1 0 2 22 2 1 0 2576 4 24 0 3 0 4
2040 6 1 0 4 22 2 1 0 4540 4 26 1 1 3484 4 26 1 2 3554 4
2044 6 0 1 5605 4 27 0 2 2050 4 1 0 1 6 0 1 1 3 672 0
2048 24 1 2 15 4 14 0 2 7 0 25 0 1 1 0 24 1 0 2052 4
2052 25 0 2 6 0 24 1 0 2044 4 26 1 1 2576 4 26 1 2 4540 4
2056 26 0 1 2009 4
PROCEDURE 853
2057 0 0 0 0 0 26 0 0 2009 4 1 1 3 42 0
2060 18 0 1 5 0 24 0 3 0 4 4 0 0 4 22 24 0 3 0 4
2064 4 0 0 4 22 24 0 3 0 4 4 0 0 4 22 3 1 0 3458 4
2068 26 1 3 3458 4 6 1 0 3556 4 0 1 0 3458 4 0 0 3 0 4
2072 24 1 2 15 4 24 0 2 0 0 24 0 3 0 4 4 0 0 6 22
2076 2 0 0 3464 4 0 1 1 3458 4 24 0 3 3464 4 28 0 0 6 0
2080 25 0 3 6 0 24 1 0 2069 4 2 0 0 5729 4 26 0 0 1104 4
2084 24 0 1 7351 4 26 0 1 2085 4 0 0 0 2095 3 0 0 0 2088 3
2088 24 0 2 3002 4 24 1 2 15 4 28 1 2 6 0 26 0 0 1121 4
2092 26 0 0 1104 4 6 1 0 3558 4 28 0 0 5612 4 1 1 3 3 0
2096 2 0 0 7347 4 26 0 1 2057 4
PROCEDURE 854
2098 24 1 2 17 4 6 1 0 7 0
2100 2 0 0 5550 4 1 0 1 16 0 24 1 2 17 4 15 1 0 11 0
2104 18 0 1 4124 0 2 0 0 5551 4 1 0 1 24 0 24 1 2 17 4
2108 15 1 0 13 0 18 0 1 4125 0 26 0 0 1165 4 2 0 0 5552 4
2112 1 0 1 3 0 24 1 2 17 4 15 1 0 13 0 26 0 0 1165 4
2116 2 0 0 5553 4 1 0 1 6 0 24 1 2 17 4 15 1 0 11 0
2120 18 0 1 4127 0 26 0 0 1165 4 2 0 0 5554 4
PROCEDURE 855
2123 6 0 0 5551 4
2124 1 1 2 6 0 27 0 1 2143 4 26 1 1 3518 4 26 1 2 2642 4
2128 1 1 3 0 0 1 0 1 15 0 24 1 2 17 4 15 1 2 17 0
2132 26 0 0 1165 4 2 0 1 5555 4 24 1 2 17 4 6 1 2 19 0
2136 26 0 0 1165 4 2 0 1 5556 4 25 0 2 6 0 24 1 0 2140 4
2140 25 0 1 2 0 24 1 0 2128 4 24 1 0 2162 4 6 0 0 5551 4
2144 1 1 2 5 0 27 0 1 2150 4 2 0 0 5555 4 2 1 0 5556 4
2148 2 1 0 5558 4 24 1 0 2162 4 26 1 1 3538 4 26 1 2 2642 4
2152 1 1 3 0 0 1 0 1 7 0 24 1 2 17 4 15 1 2 15 0
2156 26 0 0 1165 4 2 0 1 5555 4 25 0 2 8 0 24 1 0 2160 4
2160 25 0 1 1 0 24 1 0 2152 4 26 0 0 1593 4 24 1 0 458 4
PROCEDURE 856
2164 0 0 0 0 0 6 0 0 6266 4 18 0 1 4124 0 1 1 2 7 0
2168 27 0 2 2227 4 24 1 2 17 4 6 1 0 10 0 2 1 0 5560 4
2172 24 1 2 17 4 6 1 0 13 0 2 0 0 5554 4 2 0 0 5557 4
2176 2 0 0 5558 4 24 1 2 17 4 6 1 0 17 0 18 0 3 3 0
2180 18 0 1 4127 0 26 0 0 1165 4 2 0 0 5555 4 0 0 3 3608 4
2184 24 1 2 17 4 6 1 0 15 0 18 0 1 3 0 2 0 0 2564 4
2188 26 1 3 5140 4 25 0 3 0 0 24 1 0 2192 4 24 1 0 2199 4
2192 1 0 1 24 0 15 0 3 5142 4 5 0 0 2564 4 27 0 0 2200 4
2196 1 1 3 0 0 25 0 3 2 0 24 1 0 2192 4 26 0 0 972 4
2200 1 0 1 7 0 15 0 3 5142 4 26 0 0 1159 4 2 0 0 5556 4
2204 24 1 2 17 4 6 1 0 9 0 5 0 0 2565 4 5 0 0 2565 4
2208 1 1 2 1 0 18 0 3 1 0 3 1 0 3458 4 26 1 3 3458 4
2212 6 0 3 5143 4 18 0 3 2 0 18 0 1 4126 0 4 0 0 3613 4
2216 18 0 1 6 0 2 1 0 5552 4 26 0 0 1855 4 26 0 0 1846 4
2220 1 1 3 8 0 2 0 0 5728 4 6 1 0 3504 4 2 1 0 7354 4
2224 26 0 0 2417 4 26 0 0 2468 4 26 0 1 2164 4 26 0 0 593 4
2228 6 0 0 6202 4 27 0 1 2219 4 6 1 0 2636 4 27 0 1 2219 4
2232 24 1 2 17 4 6 1 0 26 0 2 0 0 2638 4 24 0 2 3018 4
2236 24 1 2 15 4 28 1 2 2 0 26 0 0 1104 4 26 0 0 2246 4
2240 27 0 0 2243 4 26 0 0 1083 4 24 1 0 2239 4 1 1 3 1 0
2244 2 0 0 7352 4 26 0 1 2164 4
PROCEDURE 857
2246 0 0 0 0 0 26 0 0 983 4
2248 24 1 2 17 4 6 1 0 4 0 5 1 0 2584 4 27 0 0 2257 4
2252 4 1 0 2584 4 5 1 0 2582 4 27 0 0 2257 4 4 1 0 2582 4
2256 1 1 2 85 0 26 0 1 2246 4
PROCEDURE 858
2258 0 0 0 0 0 6 1 2 5590 4
2260 5 1 0 2656 4 27 0 1 2267 4 6 1 0 2656 4 2 1 2 5612 4
2264 1 1 3 2 0 2 0 0 7351 4 24 1 0 2335 4 1 1 3 63 0
2268 18 1 1 4118 0 15 1 2 5590 4 2 1 0 5712 4 15 1 0 2648 4
2272 5 1 0 5712 4 27 0 0 2324 4 1 1 3 0 0 15 1 0 2650 4
2276 5 1 0 5712 4 27 0 0 2333 4 18 1 1 2 0 1 1 3 0 0
2280 27 1 1 2269 4 24 0 1 7347 4 26 0 1 2282 4 0 0 0 2335 3
2284 0 0 0 2286 3 0 0 0 880 3 6 1 0 2644 4 2 1 1 5626 4
2288 6 1 2 5590 4 5 1 0 3560 4 27 0 0 2295 4 1 0 1 48 0
2292 6 1 0 3562 4 14 1 0 2636 4 26 0 0 2552 4 24 0 1 7345 4
2296 26 0 1 2296 4 0 0 0 2354 3 0 0 0 2299 3 24 0 3 0 4
2300 6 0 0 4 22 18 0 3 3 0 18 0 1 4127 0 24 0 3 0 4
2304 2 0 0 6 22 1 1 3 0 0 1 0 1 15 0 15 0 3 5605 4
2308 5 0 0 5756 4 27 0 0 2314 4 1 0 1 3 0 6 1 0 3562 4
2312 14 1 0 2636 4 26 0 0 2552 4 1 1 3 0 0 1 0 1 15 0
2316 15 0 3 5605 4 5 0 0 5755 4 27 0 0 2339 4 1 0 1 12 0
2320 6 1 0 3562 4 14 1 0 2636 4 26 0 0 2552 4 24 1 0 2339 4
2324 1 1 3 2 0 2 0 0 7347 4 6 1 0 2652 4 14 1 2 5590 4
2328 6 1 0 2656 4 14 1 2 5612 4 1 1 3 2 0 2 0 0 7351 4
2332 24 1 0 2278 4 6 1 0 2654 4 24 1 0 2327 4 24 0 1 7345 4
2336 26 0 1 2336 4 0 0 0 2354 3 0 0 0 2339 3 24 0 3 0 4
2340 6 0 0 4 22 18 0 3 3 0 18 0 1 4127 0 2 0 0 1559 4
2344 1 0 1 15 0 24 0 1 1559 4 15 0 0 5605 4 5 0 0 5755 4
2348 27 0 1 2354 4 6 1 1 5627 4 26 0 0 1165 4 0 0 3 3611 4
2352 7 0 0 5755 4 0 0 3 3608 4 26 0 0 1982 4 25 0 2 2 0
2356 24 1 0 2388 4 26 1 3 3522 4 6 1 3 5590 4 27 0 1 2363 4
2360 25 0 3 2 0 24 1 0 2358 4 24 1 0 2381 4
PROCEDURE 859
2363 26 0 0 2009 4
2364 26 0 0 1104 4 24 0 1 7351 4 26 0 1 2366 4 0 0 0 2381 3
2368 0 0 0 2369 3 26 0 0 1121 4 24 0 2 3002 4 24 1 2 15 4
2372 28 1 2 6 0 26 0 0 1104 4 6 1 0 3558 4 28 1 1 5612 4
2376 24 0 1 7347 4 26 0 1 2377 4 0 0 0 2381 3 0 0 0 2386 3
2380 0 0 0 880 3 26 1 2 3522 4 26 0 0 1559 4 1 1 3 1 0
2384 2 0 0 7351 4 26 0 1 2258 4 1 1 3 3 0 2 0 0 7347 4
2388 26 0 1 2258 4
PROCEDURE 860
2389 0 0 0 0 0 24 0 1 7354 4 6 1 0 5730 4
2392 3 1 1 5626 4 2 1 2 5590 4 24 0 1 7346 4 26 0 1 2395 4
2396 0 0 0 2414 3 0 0 0 2398 3 24 0 1 7345 4 26 0 1 2399 4
2400 0 0 0 2407 3 0 0 0 2402 3 1 1 3 6 0 3 0 0 5755 4
2404 4 1 2 5591 4 26 0 0 1165 4 2 0 0 5756 4 1 1 3 1 0
2408 2 0 0 7346 4 6 1 2 5590 4 2 1 2 5592 4 2 1 2 5590 4
2412 25 0 2 2 0 24 1 0 2414 4 26 0 0 2258 4 26 0 0 2417 4
2416 26 0 1 2389 4
PROCEDURE 861
2417 0 0 0 0 0 24 0 1 7354 4 6 1 0 5730 4
2420 5 1 0 2644 4 27 0 1 2426 4 0 0 3 3611 4 1 1 3 1 0
2424 7 0 0 5728 4 0 0 3 3608 4 23 0 0 2 0 0 0 0 7354 3
2428 24 1 0 2448 4 26 0 0 983 4 24 0 3 0 4 6 1 0 2 22
2432 2 1 0 2764 4 26 1 1 3476 4 26 1 3 3546 4 24 1 2 17 4
2436 6 1 1 5 0 18 0 1 5 0 24 1 2 17 4 4 1 1 7 0
2440 2 1 3 5730 4 25 0 1 4 0 24 1 0 2443 4 25 0 3 2 0
2444 24 1 0 2435 4 26 1 1 2764 4 6 1 0 3546 4 2 1 0 7354 4
2448 26 0 1 2417 4
PROCEDURE 862
2449 0 0 0 0 0 24 0 1 7354 4 6 1 0 5730 4
2452 5 1 0 2644 4 27 0 0 2456 4 26 0 0 2417 4 24 1 0 2450 4
2456 26 0 0 2417 4 26 0 1 2449 4
PROCEDURE 863
2458 0 0 0 0 0 24 0 1 7347 4
2460 26 0 1 2460 4 0 0 0 2464 3 0 0 0 2466 3 0 0 0 2467 3
2464 26 0 0 2389 4 24 1 0 2459 4 26 0 0 2057 4 26 0 1 2458 4
PROCEDURE 864
2468 0 0 0 0 0 24 1 2 17 4 6 1 0 4 0 5 1 0 2584 4
2472 27 0 0 2491 4 4 1 0 2584 4 1 1 2 85 0 27 0 0 2491 4
2476 1 1 1 85 0 5 1 0 2582 4 27 0 0 2491 4 6 0 0 7354 4
2480 4 0 0 7354 4 24 0 3 0 4 2 0 0 4 22 24 1 2 17 4
2484 6 1 2 4 0 5 1 0 2580 4 27 0 0 2490 4 26 0 0 1538 4
2488 26 0 0 2458 4 24 1 0 2479 4 26 0 0 983 4 24 0 1 7352 4
2492 26 0 1 2492 4 0 0 0 2539 3 0 0 0 2495 3 6 1 0 3546 4
2496 2 1 0 7366 4 26 1 3 3476 4 24 0 1 7366 4 6 0 0 5627 4
2500 24 1 2 19 4 2 1 3 5 0 24 0 1 7366 4 6 0 0 5626 4
2504 24 1 2 19 4 2 1 3 7 0 25 0 3 4 0 24 1 0 2508 4
2508 23 0 0 2 0 0 0 0 7366 3 24 1 0 2498 4 24 0 3 0 4
2512 6 0 0 2 22 24 0 3 0 4 4 0 0 2 22 24 0 3 0 4
2516 2 0 0 2 22 6 1 0 2580 4 24 1 2 19 4 2 1 1 4 0
2520 26 0 0 1101 4 24 0 2 2936 4 24 1 2 15 4 28 1 2 2 0
2524 6 1 0 3564 4 24 1 2 15 4 2 1 0 8 0 6 0 0 6275 4
2528 27 0 0 2533 4 6 1 0 3566 4 24 1 2 15 4 28 0 0 10 0
2532 24 1 0 2536 4 6 1 0 2644 4 24 1 2 15 4 2 1 0 10 0
2536 26 0 0 1104 4 1 1 3 1 0 2 0 0 7352 4 26 0 1 2468 4
PROCEDURE 865
2540 0 0 0 0 0 1 1 3 1 0 0 0 3 3611 4 7 0 0 2567 4
2544 0 0 3 3608 4 26 0 1 2540 4
PROCEDURE 866
2546 0 0 0 0 0 1 1 3 1 0
2548 0 0 3 3611 4 7 0 0 2568 4 0 0 3 3608 4 26 0 1 2546 4
PROCEDURE 867
2552 0 0 0 0 0 1 1 3 1 0 0 0 3 3611 4 7 0 0 2569 4
2556 0 0 3 3608 4 26 0 1 2552 4
SECTION 868
2558 £££££ 0 3£££0 0
2560 80000 0 123.: 0 3££ 0 0 0
SECTION 869
2564 0 0 0 0 0 0 0 0
2568 0 0 0 0 0 0 0 0
2572 0 0 0 0 0 0 0 0
2576 0 0 0 0
SECTION 870
2578 16454 0 73695 0
2580 56554 0 56595 0 16773 0 53585 0
2584 56554 0 67695 0 35572 0 56596 0
2588 46772 0 54746 0 46700 0 54746 0
2592 65700 0 67696 0 40000 0 59655 0
SECTION 871
2596 95163 0 55695 0 86755 0 737 0
2600 16772 0 53585 0 36572 0 72555 0
2604 96573 0 67665 0 36669 0 72557 0
2608 65362 0 52636 0 77358 0 635 0
2612 57Ю7‼ 0 69746 0 16373 0 74655 0
2616 55400 0 55695 0 46455 0 69516 0
2620 95163 0 73695 0 35100 0 54517 0
2624 16554 0 5‼655 0 45272 0 6 0
2628 45569 0 66695 0 65977 0 5Ю005 0
2632 55169 0 5Ю007 0 0 0 0 0
2636 0 0 0 0 0 0 0 0
2640 17300 0 5:677 0
SECTION 872
2642 0 0 0 0
2644 7. 0 7.000 0 800 0 0 0
2648 .7.7. 0 7.7.7 0 .5.5. 0 5.5.5 0
2652 25252 0 52525 0 36363 0 63636 0
2656 ‼5‼5‼ 0 5‼5‼5 0 £5£5£ 0 5£5£5 0
2660 :5:5: 0 5:5:5 0
SECTION 873
2662 0 5550 3 5550 3 1 5 10 14 0
2664 0 5552 3 5552 8 1 5 11 0 1 0 5550 3 5550 3 1 5 10 14 0
2668 0 5552 3 5552 3 1 5 11 0 0 0 5560 3 5560 3 1 5 11 8 0
2672 0 5554 3 5554 8 1 5 11 2 1 0 2564 3 2564 0 0 10 0 4 0
2676 0 5550 3 5550 8 1 5 10 14 1 0 1450 3 1450 3 0 5 10 10 0
2680 0 1450 3 1450 3 0 5 10 10 0 0 1452 3 1452 2 0 5 10 12 0
2684 0 1454 3 1454 3 0 5 10 14 0 0 1456 3 1456 3 0 5 11 0 0
2688 0 1458 3 1458 2 0 5 11 2 1
SECTION 874
2690 0 5550 3 5 3 0 0 0 5 0
2692 0 5552 3 3 0 0 0 0 3 0 0 5553 3 2 0 0 0 0 2 0
2696 0 5554 3 5 0 0 0 0 5 1 0 5550 3 6 0 0 0 0 6 0
2700 0 5550 3 5 0 0 0 0 5 0 0 5551 3 1 0 0 0 0 1 0
2704 0 5552 3 3 0 0 0 0 3 0 0 5553 3 3 0 0 0 0 3 0
2708 0 5554 3 3 0 0 0 0 3 0 0 5555 3 4 0 0 0 0 4 0
2712 0 5556 3 4 0 0 0 0 4 0 0 5557 3 4 0 0 0 0 4 0
2716 0 5558 3 4 0 0 0 0 4 0 0 5559 3 4 0 0 0 0 4 0
2720 0 5560 3 4 0 0 0 0 4 0 0 5561 3 4 0 0 0 0 4 0
2724 0 5562 3 4 0 0 0 0 4 0 0 5563 3 4 0 0 0 0 4 0
2728 0 5564 3 4 0 0 0 0 4 0 0 5565 3 4 0 0 0 0 4 0
2732 0 5566 3 4 0 0 0 0 4 0 0 5567 3 4 0 0 0 0 4 1
2736 0 5550 3 5 3 0 0 0 5 0 0 5552 3 2 3 0 0 0 2 0
2740 0 5560 3 2 3 0 0 0 2 0 0 5554 3 4 0 0 0 0 4 0
2744 0 5555 3 4 0 0 0 0 4 0 0 5556 3 2 0 0 0 0 2 0
2748 0 5557 3 1 0 0 0 0 1 0 0 5558 3 1 0 0 0 0 1 1
2752 0 1450 3 5 3 0 0 0 5 0 0 1450 3 2 3 0 0 0 2 0
2756 0 1452 3 1 2 0 0 0 1 0 0 1454 3 5 3 0 0 0 5 0
2760 0 1456 3 5 3 0 0 0 5 0 0 1458 3 5 2 0 0 0 5 1
SECTION 875
2764 0 2592 3 84 3 0 0 5 4 0 0 2618 3 5 3 0 0 0 5 0
2768 0 5000 3 21 0 0 0 1 5 0 0 2586 3 1057 3 0 4 2 1 0
2772 0 2596 3 5 3 0 0 0 5 0 0 5001 3 16405 0 4 0 1 5 0
2776 0 2620 3 37 3 0 0 2 5 0 0 2622 3 20 3 0 0 1 4 0
2780 0 2624 3 531 3 0 2 1 3 0 0 2588 3 21 3 0 0 1 5 0
2784 0 2604 3 21 3 0 0 1 5 0 0 2586 3 1025 3 0 4 0 1 0
2788 0 2644 3 273 3 0 1 1 1 1
SECTION 876
2790 0 2602 3 209 3 0 0 13 1 0
2792 0 2596 3 5 3 0 0 0 5 0 0 2598 3 292 3 0 1 2 4 0
2796 0 2602 3 801 3 0 3 2 1 0 0 2561 3 1 0 0 0 0 1 0
2800 0 2602 3 817 3 0 3 3 1 0 0 2561 3 257 0 0 1 0 1 0
2804 0 2602 3 817 3 0 3 3 1 0 0 2561 3 513 0 0 2 0 1 0
2808 0 2600 3 85 3 0 0 5 5 0 0 2602 3 21 3 0 0 1 5 0
2812 0 2606 3 786 3 0 3 1 2 0 0 2604 3 21 3 0 0 1 5 0
2816 0 2602 3 1 3 0 0 0 1 0 0 2644 3 321 3 0 1 4 1 1
SECTION 877
2820 0 2588 3 84 3 0 0 5 4 0 0 2566 3 1025 0 0 4 0 1 0
2824 0 5550 3 53 0 0 0 3 5 0 0 5551 3 4930 4 1 3 4 2 0
2828 0 5552 3 8723 4 2 2 1 3 0 0 5553 3 8723 4 2 2 1 3 0
2832 0 5554 3 8723 4 2 2 1 3 1 0 5555 3 12899 4 3 2 6 3 0
2836 0 5556 3 12899 4 3 2 6 3 0 0 5557 3 12899 4 3 2 6 3 0
2840 0 5558 3 12899 4 3 2 6 3 0 0 2642 3 40970 2 10 0 0 10 0
2844 0 2634 3 245 3 0 0 15 5 0 0 2636 3 5 3 0 0 0 5 0
2848 0 2638 3 5 3 0 0 0 5 0 0 2644 3 5 3 0 0 0 5 1
2852 0 5555 3 8803 0 2 2 6 3 0 0 2561 3 1025 0 0 4 0 1 0
2856 0 5556 3 12548 4 3 1 0 4 0 0 5557 3 8723 0 2 2 1 3 0
2860 0 2561 3 1025 0 0 4 0 1 0 0 5558 3 12548 4 3 1 0 4 0
2864 0 5559 3 8723 0 2 2 1 3 0 0 2561 3 1025 0 0 4 0 1 0
2868 0 5560 3 12548 4 3 1 0 4 0 0 5561 3 8723 0 2 2 1 3 0
2872 0 2561 3 1025 0 0 4 0 1 0 0 5562 3 12548 4 3 1 0 4 0
2876 0 5563 3 8723 0 2 2 1 3 0 0 2561 3 1025 0 0 4 0 1 0
2880 0 5564 3 12548 4 3 1 0 4 0 0 5565 3 8723 0 2 2 1 3 0
2884 0 2561 3 1025 0 0 4 0 1 0 0 5566 3 12548 4 3 1 0 4 0
2888 0 2634 3 5 3 0 0 0 5 0 0 2636 3 5 3 0 0 0 5 0
2892 0 2638 3 5 3 0 0 0 5 0 0 2644 3 5 3 0 0 0 5 1
SECTION 878
2896 0 2586 3 84 3 0 0 5 4 0 0 5552 3 18 3 0 0 1 2 0
2900 0 2612 3 785 3 0 3 1 1 0 0 5560 3 2 3 0 0 0 2 0
2904 0 2612 3 1025 3 0 4 0 1 0 0 2612 3 35 3 0 0 2 3 0
2908 0 5757 3 12564 0 3 1 1 4 0 0 2608 3 37 3 0 0 2 5 0
2912 0 2610 3 276 3 0 1 1 4 0 0 5758 3 12564 0 3 1 1 4 0
2916 0 2602 3 36 3 0 0 2 4 0 0 5759 3 4882 0 1 3 1 2 0
2920 0 2606 3 35 3 0 0 2 3 0 0 5557 3 4882 0 1 3 1 2 0
2924 0 2594 3 35 3 0 0 2 3 0 0 5558 3 1041 0 0 4 1 1 0
2928 0 2634 3 21 3 0 0 1 5 0 0 2642 3 41210 2 10 0 15 10 0
2932 0 2636 3 165 3 0 0 10 5 0 0 2644 3 257 3 0 1 0 1 1
SECTION 879
2936 0 2561 3 817 0 0 3 3 1 0 0 5604 3 12564 0 3 1 1 4 0
2940 0 2561 3 769 0 0 3 0 1 1 0 5605 3 12580 0 3 1 2 4 0
2944 0 2561 3 801 0 0 3 2 1 0 0 5590 3 5 3 0 0 0 5 0
2948 0 2561 3 769 0 0 3 0 1 0 0 5606 3 12580 0 3 1 2 4 0
2952 0 2561 3 801 0 0 3 2 1 0 0 5592 3 5 3 0 0 0 5 0
2956 0 2561 3 769 0 0 3 0 1 0 0 5607 3 12580 0 3 1 2 4 0
2960 0 2561 3 801 0 0 3 2 1 0 0 5594 3 5 3 0 0 0 5 0
2964 0 2561 3 769 0 0 3 0 1 0 0 5608 3 12580 0 3 1 2 4 0
2968 0 2561 3 801 0 0 3 2 1 0 0 5596 3 5 3 0 0 0 5 0
2972 0 2561 3 769 0 0 3 0 1 0 0 5609 3 12580 0 3 1 2 4 0
2976 0 2561 3 801 0 0 3 2 1 0 0 5598 3 5 3 0 0 0 5 0
2980 0 2561 3 769 0 0 3 0 1 0 0 5610 3 12580 0 3 1 2 4 0
2984 0 2561 3 801 0 0 3 2 1 0 0 5600 3 5 3 0 0 0 5 0
2988 0 2561 3 769 0 0 3 0 1 0 0 5611 3 12580 0 3 1 2 4 0
2992 0 2561 3 801 0 0 3 2 1 0 0 5602 3 5 3 0 0 0 5 0
2996 0 2561 3 769 0 0 3 0 1 0 0 2636 3 547 3 0 2 2 3 0
3000 0 2644 3 5 3 0 0 0 5 1
SECTION 880
3002 0 5612 3 149 3 0 0 9 5 0
3004 0 5614 3 165 3 0 0 10 5 0 0 5616 3 165 3 0 0 10 5 0
3008 0 5618 3 165 3 0 0 10 5 0 0 5620 3 165 3 0 0 10 5 0
3012 0 5622 3 165 3 0 0 10 5 0 0 5624 3 165 3 0 0 10 5 0
3016 0 2644 3 257 3 0 1 0 1 1
SECTION 881
3018 0 2586 3 244 3 0 0 15 4 0
3020 0 2638 3 802 3 0 3 2 2 0 0 2606 3 561 3 0 2 3 1 0
3024 0 2578 3 1041 3 0 4 1 1 0 0 2606 3 19 3 0 0 1 3 0
3028 0 5557 3 4882 0 1 3 1 2 0 0 2614 3 53 3 0 0 3 5 0
3032 0 2616 3 4 3 0 0 0 4 0 0 2644 3 273 3 0 1 1 1 1
PROCEDURE 882
3036 6 0 0 6269 4 27 0 0 3057 4 6 0 0 6270 4 27 0 0 3049 4
3040 0 1 0 3458 4 0 0 3 0 4 6 1 0 3568 4 4 0 0 9 4
3044 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4
3048 24 1 0 3057 4 0 1 0 3458 4 0 0 3 0 4 6 1 0 3570 4
3052 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
3056 0 1 1 3458 4 6 1 0 3572 4 24 1 2 19 4 28 1 1 4 0
3060 1 1 3 85 0 24 1 2 19 4 2 1 0 4 0 26 0 0 3681 4
3064 6 0 0 6278 4 27 0 1 33 4 6 1 0 4488 4 24 1 2 19 4
3068 2 1 0 4 0 6 0 0 5000 4 24 1 2 19 4 2 1 0 7 0
3072 26 0 0 3681 4 6 1 0 4498 4 24 1 2 19 4 2 1 0 6 0
3076 6 1 0 4513 4 24 1 2 19 4 2 1 0 9 0 1 1 3 4 0
3080 24 1 2 19 4 2 1 0 10 0 6 1 0 4512 4 24 1 2 19 4
3084 2 1 0 4 0 26 0 0 3681 4 6 0 0 5000 4 24 1 2 19 4
3088 3 1 0 5 0 24 1 2 19 4 2 1 0 13 0 6 0 0 5001 4
3092 24 1 2 19 4 3 1 0 7 0 24 1 2 19 4 2 1 0 15 0
3096 1 1 3 2 0 24 1 2 19 4 2 1 0 11 0 1 1 3 3 0
3100 24 1 2 19 4 3 1 0 19 0 1 1 3 2 0 4 0 0 6278 4
3104 24 1 2 19 4 2 1 0 17 0 6 1 0 4513 4 24 1 2 19 4
3108 2 1 0 21 0 26 0 0 3681 4 0 1 0 3458 4 0 0 3 0 4
3112 6 1 0 3568 4 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4
3116 23 0 2 0 256 0 1 1 3458 4 6 1 0 3572 4 24 1 2 15 4
3120 28 1 1 0 0 26 1 1 3524 4 26 0 0 3717 4 25 0 1 1 0
3124 24 1 0 3122 4 24 0 2 4564 4 18 1 1 4123 0 1 1 3 26 0
3128 18 1 1 5 0 24 1 2 15 4 28 1 1 10 0 26 0 0 3657 4
3132 26 0 0 3717 4
PROCEDURE 883
3133 26 1 1 3574 4 6 0 0 6272 4 27 0 0 3138 4
3136 6 1 0 4560 4 24 1 0 3139 4 6 1 0 4562 4 24 1 2 15 4
3140 2 1 0 12 0 6 0 0 2567 4 27 0 0 3145 4 6 1 0 4560 4
3144 24 1 0 3146 4 6 1 0 4562 4 24 1 2 15 4 2 1 0 18 0
3148 26 0 0 4801 4 25 0 1 4 0 24 1 0 3151 4 6 0 0 2568 4
3152 2 0 0 4542 4 6 0 0 7342 4 26 0 0 4776 4 26 0 0 4811 4
3156 26 0 0 4801 4 25 0 1 4 0 24 1 0 3159 4 6 0 0 2569 4
3160 2 0 0 4542 4 6 0 0 7343 4 26 0 0 4776 4 26 0 0 4811 4
3164 26 0 0 4801 4 6 1 0 3576 4 28 0 0 6246 4 0 0 3 3608 4
3168 26 0 0 3717 4 25 0 1 1 0 24 1 0 3168 4 6 1 0 3578 4
3172 2 1 0 4526 4 24 0 2 4514 4 18 1 1 4123 0 1 1 3 14 0
3176 18 1 1 5 0 24 1 2 15 4 28 1 1 6 0 25 1 1 4096 0
3180 23 0 2 3182 4 24 1 0 3188 4 0 0 0 0 0 24 0 3 0 4
3184 0 0 2 156 0 24 0 3 0 4 6 1 0 138 0 26 0 3 3182 4
3188 2 1 0 4526 4 6 0 0 7344 4 2 0 0 4508 4 24 0 2 4704 4
3192 24 1 2 15 4 28 1 2 20 0 26 0 0 3717 4 6 0 0 6275 4
3196 27 0 1 3204 4 6 0 0 6274 4 1 1 1 20 0 18 0 1 5 0
3200 4 0 0 7 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 160 0
3204 0 0 3 3608 4 0 1 0 3458 4 0 0 3 0 4 0 1 2 3580 4
3208 6 1 0 3582 4 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4
3212 23 0 2 0 256 0 1 1 3458 4 1 1 3 1 0 2 0 0 4546 4
3216 6 0 0 5000 4 5 0 0 3616 4 27 0 0 3230 4 6 0 0 5000 4
3220 5 0 0 3617 4 27 0 0 3230 4 6 0 0 5000 4 5 0 0 3618 4
3224 27 0 0 3835 4 1 1 2 1 0 27 0 0 3833 4 1 1 2 5 0
3228 27 0 0 3832 4 24 1 0 3328 4 1 1 3 0 0 2 0 0 4546 4
3232 6 0 0 6270 4 27 0 0 3239 4 0 0 2 9 4 6 0 0 11 4
3236 2 0 0 9 4 18 1 1 10 0 2 0 0 11 4 0 1 0 3458 4
3240 0 0 3 0 4 0 1 2 3584 4 6 1 0 3586 4 4 0 0 11 4
3244 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 0 3 3462 4
3248 0 1 0 4540 4 24 0 2 4720 4 24 1 2 21 4 28 1 2 4 0
3252 0 1 0 3458 4 0 0 3 0 4 24 1 2 21 4 24 0 2 4 0
3256 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1280 0 1 1 3458 4
3260 26 0 0 3777 4 26 0 0 3777 4 26 0 0 3801 4 1 1 3 2 0
3264 24 1 2 19 4 2 1 0 11 0 6 1 0 4490 4 24 1 2 19 4
3268 2 1 0 12 0 26 0 0 3777 4 26 0 0 3801 4
PROCEDURE 884
3271 6 0 0 6270 4
3272 27 0 0 3275 4 1 1 3 2 0 24 1 0 3277 4 1 1 3 2 0
3276 4 0 0 6278 4 24 1 2 19 4 2 1 0 9 0 6 0 0 3619 4
3280 24 1 2 19 4 2 1 0 13 0 26 0 0 3777 4 26 0 0 3801 4
3284 24 1 2 19 4 6 1 0 6 0 5 1 0 4498 4 27 0 0 3290 4
3288 26 0 0 3777 4 24 1 0 3283 4 26 0 0 3777 4 26 0 0 3801 4
3292 6 0 0 6270 4 27 0 0 3296 4 1 1 3 2 0 24 1 0 3298 4
3296 1 1 3 2 0 4 0 0 6278 4 24 1 2 19 4 2 1 0 9 0
3300 6 0 0 3619 4 24 1 2 19 4 2 1 0 13 0 26 0 0 3777 4
3304 0 1 0 3458 4 0 0 3 0 4 6 1 0 3588 4 4 0 0 11 4
3308 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4
3312 6 0 0 6270 4 27 0 0 3319 4 0 0 2 9 4 6 0 0 11 4
3316 2 0 0 9 4 18 1 1 10 0 2 0 0 11 4 0 1 0 3458 4
3320 0 0 3 0 4 0 1 2 3580 4 6 1 0 3590 4 4 0 0 10 4
3324 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4
3328 26 1 1 3592 4 1 1 3 6 0 2 0 0 4508 4 6 0 0 6275 4
3332 27 0 0 3339 4 6 0 0 7342 4 4 0 0 2568 4 27 0 1 3343 4
3336 6 0 0 6272 4 4 0 0 2567 4 27 0 1 3343 4 6 0 0 6273 4
3340 27 0 1 3343 4 6 0 0 6271 4 27 0 0 3345 4 1 1 3 7 0
3344 2 0 0 4508 4 6 0 0 6275 4 27 0 0 3382 4 1 1 3 300 0
3348 5 0 0 7358 4 2 0 0 3681 4 0 1 0 3458 4 0 0 3 0 4
3352 6 0 0 3620 4 4 0 0 3681 4 0 0 3 3462 4 18 0 1 5 0
3356 0 1 0 3458 4 0 0 3 0 4 24 1 2 13 4 24 0 2 0 0
3360 4 0 0 7358 4 2 0 0 3464 4 0 1 1 3458 4 24 0 3 3464 4
3364 28 0 0 4 0 6 1 0 4510 4 24 1 2 13 4 2 1 0 306 0
3368 26 0 0 4793 4 6 1 0 3594 4 24 1 2 13 4 28 1 1 0 0
3372 6 1 0 4510 4 24 1 2 13 4 2 1 0 306 0 26 0 0 4793 4
3376 0 0 2 4590 4 6 1 0 3596 4 4 0 0 7 4 25 1 1 4096 0
3380 24 0 3 0 4 23 0 2 160 0 6 0 0 4508 4 0 0 2 3621 4
3384 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 512 0 0 0 3393 3
3388 0 0 0 3424 3 0 0 0 3230 3 0 0 0 3447 3 0 0 0 3629 3
3392 0 0 0 3451 3 26 0 0 4762 4 26 0 0 3670 4 6 0 0 4546 4
3396 27 0 1 3401 4 6 0 0 6270 4 27 0 0 3421 4 26 0 0 3698 4
3400 24 1 0 3421 4 6 0 0 6270 4 27 0 0 3420 4 0 1 0 3458 4
3404 0 0 3 0 4 0 1 2 3598 4 6 1 0 3600 4 4 0 0 9 4
3408 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 0 3 3462 4
3412 0 1 0 3458 4 0 0 3 0 4 6 1 0 3570 4 4 0 0 9 4
3416 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4
3420 26 0 0 3698 4 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 768
3424 26 0 0 4762 4
PROCEDURE 885
3425 26 1 3 3602 4 26 0 0 3670 4 6 0 0 6275 4
3428 27 0 0 3430 4 26 1 3 3538 4 6 0 0 6270 4 27 0 1 3435 4
3432 6 0 0 3777 4 24 0 3 1 4 24 1 0 33 0 26 0 0 3698 4
3436 25 1 1 4096 0 23 0 2 3812 4 24 0 2 4590 4 18 1 1 4123 0
3440 1 1 3 80 0 18 1 1 5 0 24 0 3 5 4 28 1 1 204 0
3444 6 0 0 3777 4 24 0 3 1 4 24 1 0 33 0 26 0 0 3636 4
3448 27 0 0 3455 4 1 1 3 0 0 24 1 0 3644 4 26 0 0 3636 4
3452 27 0 0 3455 4 1 1 3 88 0 24 1 0 3644 4 26 0 0 4762 4
3456 26 1 3 3604 4 24 1 0 3622 4
SECTION 1030
3458 0 0 0 0
3460 0 0 0 0 0 0 0 0
3464 0 0 0 0 0 0 0 0
3468 0 0 0 0 0 0 0 0
3472 0 0 8 0 0 0 3£2 0
3476 0 0 30 0 0 0 20003 0
3480 0 0 28 0 40000 0 55655 0
3484 0 0 7 0 0 0 1++ 0
3488 :5:7£ 0 5:5:5 0 :5:59 0 5:5:5 0
3492 0 0 64 0 :5:69 0 5:5:5 0
3496 56554 0 5 0 0 0 53000 0
3500 46467 0 547 0 96355 0 565 0
3504 16 0 18 0 35551 0 56596 0
3508 0 0 20024 0 0 0 20026 0
3512 14243 0 4 0 44546 0 42434 0
3516 0 0 20012 0 0 0 + 0
3520 0 0 20032 0 0 0 . 0
3524 0 0 5 0 0 0 20040 0
3528 ££££ 0 10005 0 0 0 2000Ю 0
3532 1 0 £ 0 0 0 ‼ 0
3536 0 0 20016 0 0 0 4 0
3540 ‼5300 0 5 0 ‼7200 0 5 0
3544 ‼6700 0 5 0 0 0 18 0
3548 0 0 20036 0 0 0 2003+ 0
3552 0 0 20018 0 0 0 2Ю 0
3556 0 0 20006 0 0 0 2000. 0
3560 52 0 52000 0 25963 0 5 0
3564 55972 0 56596 0 0 0 20028 0
3568 0 0 22 0 0 0 1‼ 0
3572 0 0 20030 0 0 0 : 0
3576 0 0 20014 0 83041 0 4 0
3580 3 0 Ю 0 0 0 23 0
3584 8000 0 5146 0 0 0 12 0
3588 0 0 1+ 0 0 0 24 0
3592 0 0 0 0 0 0 20132 0
3596 0 0 27 0 8000 0 5141 0
3600 0 0 11 0 0 0 2 0
3604 1 0 2 0
SECTION 1031
3606 2 0 1 0
3608 0 0 10000 0 89899 0 66666 0
3612 1- 0 4000 0 7777 0 2+2+0 0
3616 8000 0 9001 0 8060 0 £££££ 0
3620 20000 0 6 0
SECTION 1032
CONTD
3622 6 0 0 6275 4 27 0 0 3430 4
3624 6 0 0 0 4 2 0 0 7351 4 26 0 0 3670 4 26 1 3 4882 4
3628 24 1 0 3430 4 6 0 0 6275 4 27 0 0 3447 4 1 1 3 1 0
3632 2 0 0 7351 4 26 0 0 4762 4 26 1 3 4884 4 24 1 0 3430 4
PROCEDURE 886
3636 0 0 0 0 0 23 0 2 3639 4 26 0 1 3636 4 0 0 0 0 0
3640 24 0 3 5 4 24 0 3 32 0 6 0 0 21 0 26 0 3 3639 4
PROCEDURE 887
3644 2 0 0 3777 4 23 0 2 3647 4 24 1 0 3455 4 0 0 0 0 0
3648 24 0 3 5 4 24 0 3 32 0 6 0 0 22 0 4 0 0 7 4
3652 2 0 0 3698 4 6 0 0 3777 4 24 0 3 3698 4 2 0 0 0 0
3656 26 0 3 3647 4
PROCEDURE 888
3657 0 0 0 0 0 0 0 2 6279 4 27 1 0 3669 4
3660 24 1 2 15 4 2 1 0 10 0 24 1 2 15 4 2 1 0 12 0
3664 24 1 2 15 4 2 1 0 14 0 6 1 0 4886 4 24 1 2 15 4
3668 28 1 1 22 0 26 0 1 3657 4
PROCEDURE 889
3670 0 0 0 0 0 6 0 0 6275 4
3672 27 0 0 3680 4 6 0 0 0 4 2 0 0 7351 4 6 1 0 4888 4
3676 4 0 0 7 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 160 0
3680 26 0 1 3670 4
PROCEDURE 890
3681 0 0 0 0 0 6 1 0 4510 4 24 1 2 19 4
3684 2 1 0 52 0 0 1 0 3458 4 0 0 3 0 4 0 0 2 18 4
3688 6 1 0 4890 4 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4
3692 23 0 2 0 256 0 1 1 3458 4 6 1 0 4892 4 24 1 2 19 4
3696 28 1 1 0 0 26 0 1 3681 4
PROCEDURE 891
3698 0 0 0 0 0 0 1 0 3458 4
3700 0 0 3 0 4 0 1 2 4894 4 6 1 0 4896 4 4 0 0 11 4
3704 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 0 3 3462 4
3708 0 1 0 3458 4 0 0 3 0 4 6 1 0 4898 4 4 0 0 11 4
3712 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4
3716 26 0 1 3698 4
PROCEDURE 892
3717 0 0 0 0 0 0 0 3 4934 4 6 1 0 4510 4
3720 24 1 2 15 4 2 1 0 52 0 6 0 0 4546 4 24 1 2 15 4
3724 2 1 0 1 0 1 1 3 1 0 2 0 0 4546 4 6 0 0 6275 4
3728 27 0 0 3745 4 24 1 2 15 4 24 0 2 0 0 18 1 1 4123 0
3732 1 1 3 50 0 18 1 1 5 0 0 1 0 3458 4 0 0 3 0 4
3736 24 1 2 13 4 24 0 2 0 0 4 0 0 7358 4 2 0 0 3464 4
3740 0 1 1 3458 4 24 0 3 3464 4 28 1 1 4 0 26 0 0 4782 4
3744 24 1 0 3773 4 6 0 0 6274 4 1 1 2 9 0 27 0 0 3764 4
3748 6 0 0 4935 4 24 1 2 15 4 2 0 0 1 0 24 1 2 15 4
3752 24 0 2 0 0 24 1 2 13 4 29 0 1 0 0 1 1 3 4 0
3756 18 0 1 5 0 4 0 0 7 4 0 0 2 12 4 25 1 1 4096 0
3760 24 0 3 0 4 23 0 2 160 0 0 0 3 4934 4 24 1 0 3773 4
3764 24 1 2 15 4 24 0 2 0 0 18 1 1 4123 0 1 1 3 54 0
3768 18 1 1 5 0 24 1 2 13 4 28 1 1 0 0 1 1 3 9 0
3772 24 1 0 3756 4 6 1 0 4900 4 24 1 2 15 4 28 1 1 0 0
3776 26 0 1 3717 4
PROCEDURE 893
3777 0 0 0 0 0 24 1 2 19 4 24 0 2 4 0
3780 18 1 1 4123 0 1 1 3 50 0 18 1 1 5 0 24 1 2 21 4
3784 28 1 1 4 0 6 1 0 4510 4 24 1 2 21 4 2 1 0 52 0
3788 0 1 0 3458 4 0 0 3 0 4 0 0 2 20 4 6 1 0 4890 4
3792 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
3796 0 1 1 3458 4 6 1 0 4892 4 24 1 2 21 4 28 1 1 0 0
3800 26 0 1 3777 4
PROCEDURE 894
3801 0 0 0 0 0 0 1 0 3458 4 0 0 3 0 4
3804 0 0 2 18 4 6 1 0 4902 4 4 0 0 10 4 25 1 1 4096 0
3808 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4 26 0 1 3801 4
PROCEDURE 895
3812 0 0 0 0 0 24 0 3 5 4 26 1 2 20 0 26 0 0 3825 4
3816 24 0 3 5 4 26 1 2 22 0 26 0 0 3825 4 24 0 3 5 4
3820 26 1 2 24 0 25 0 2 204 0 26 0 0 3825 4 26 1 1 4904 4
3824 26 0 3 3812 4
PROCEDURE 896
3825 0 0 0 0 0 23 0 3 4590 4 24 0 3 0 4
3828 23 1 2 0 0 25 0 2 2 0 24 1 0 3827 4 26 0 1 3825 4
PROCEDURE 897
3832 1 1 3 5 0 1 1 1 17 0 7 0 0 4500 4 1 1 3 5 0
3836 0 0 2 4936 4 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 512
3840 0 0 0 3843 3 0 0 0 3230 3 0 0 0 4016 3 6 0 0 5000 4
3844 5 0 0 4937 4 27 0 1 3867 4 1 1 3 9 0 2 0 0 4686 4
3848 26 0 0 4172 4 26 1 1 4906 4 6 0 1 2580 4 26 0 0 4129 4
3852 25 0 1 2 0 24 1 0 3850 4 24 0 2 4688 4 28 1 2 2586 4
3856 0 1 0 3458 4 0 0 3 0 4 24 0 2 2586 4 25 1 1 4096 0
3860 24 0 3 0 4 23 0 2 0 1280 0 1 1 3458 4 6 0 0 4938 4
3864 2 0 0 4500 4 26 1 1 5008 4 24 1 0 3993 4 0 1 0 3458 4
3868 0 0 3 0 4 0 1 2 4908 4 6 1 0 4896 4 4 0 0 9 4
3872 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 0 3 3462 4
3876 26 0 0 4393 4 24 1 2 17 4 6 1 0 4 0 5 1 0 4492 4
3880 27 0 1 3890 4 0 1 0 3458 4 0 0 3 0 4 6 1 0 4898 4
3884 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
3888 0 1 1 3458 4 24 1 0 3835 4 24 1 2 17 4 6 1 0 5 0
3892 5 0 0 4939 4 27 0 1 3876 4 1 0 1 1 0 24 1 2 17 4
3896 15 1 0 7 0 1 1 2 5 0 27 0 1 3876 4 24 1 2 17 4
3900 6 1 0 9 0 5 0 0 4940 4 27 0 1 3876 4 26 0 0 4393 4
3904 24 1 2 17 4 6 1 0 42 0 5 1 0 4496 4 27 0 1 3903 4
3908 0 1 0 3458 4 0 0 3 0 4 0 1 2 4894 4 6 1 0 4910 4
3912 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
3916 0 0 3 3462 4 18 1 1 10 0 2 0 0 2576 4 26 0 0 4404 4
3920 26 0 0 4404 4 26 0 0 3801 4 1 1 3 2 0 24 1 2 19 4
3924 2 1 0 11 0 6 1 0 4490 4 24 1 2 19 4 2 1 0 12 0
3928 26 0 0 4404 4 26 0 0 3801 4 1 1 3 2 0 24 1 2 19 4
3932 2 1 0 9 0 6 0 0 4939 4 24 1 2 19 4 2 1 0 13 0
3936 26 0 0 4404 4 26 0 0 3801 4 24 1 2 19 4 6 1 0 42 0
3940 5 1 0 4496 4 27 0 0 3944 4 26 0 0 4404 4 24 1 0 3937 4
3944 26 1 1 4906 4 24 1 2 17 4 6 1 1 25 0 24 1 2 19 4
3948 5 1 1 25 0 27 0 3 3952 4 24 1 2 19 4 7 1 1 25 0
3952 24 1 2 19 4 6 1 1 25 0 26 0 0 4129 4 25 0 1 2 0
3956 24 1 0 3945 4 24 0 2 4688 4 28 1 2 2586 4 0 1 0 3458 4
3960 0 0 3 0 4 24 0 2 2586 4 25 1 1 4096 0 24 0 3 0 4
3964 23 0 2 0 1280 0 1 1 3458 4 6 0 0 4938 4 2 0 0 4500 4
3968 24 1 2 19 4 6 1 0 11 0 2 1 0 5008 4 26 1 1 5008 4
3972 1 1 3 4 0 24 1 2 19 4 7 1 0 11 0 26 0 0 4404 4
PROCEDURE 898
3976 26 0 0 3801 4 24 1 2 19 4 6 1 0 4 0 5 1 0 4488 4
3980 27 0 1 3990 4 0 1 0 3458 4 0 0 3 0 4 6 1 0 4898 4
3984 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
3988 0 1 1 3458 4 24 1 0 3992 4 26 0 0 4404 4 24 1 0 3976 4
3992 26 0 0 4428 4 26 0 0 4457 4 27 0 1 3992 4 24 1 0 3999 4
3996 26 0 0 4428 4 26 0 0 4457 4 27 0 1 4010 4 26 0 0 4428 4
4000 26 0 0 4404 4 26 0 0 4428 4 26 0 0 4404 4 26 0 0 4428 4
4004 6 0 0 5008 4 4 0 0 4941 4 24 1 2 19 4 2 1 0 51 0
4008 1 1 3 1 0 7 0 0 5008 4 24 1 2 19 4 6 1 0 4 0
4012 5 1 0 4488 4 27 0 0 4137 4 26 0 0 4404 4 24 1 0 3996 4
4016 26 0 0 4172 4 0 1 0 3458 4 0 0 3 0 4 6 1 0 4898 4
4020 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
4024 0 1 1 3458 4 0 1 0 3458 4 0 0 3 0 4 0 1 2 4908 4
4028 6 1 0 4896 4 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4
4032 23 0 2 0 256 0 0 3 3462 4 26 0 0 4393 4 26 0 0 4439 4
4036 24 1 0 4038 4 0 0 0 4671 3 24 1 2 17 4 6 1 0 6 0
4040 5 1 0 4498 4 27 0 1 4034 4 26 0 0 4393 4 24 1 2 17 4
4044 6 1 0 5 0 5 0 0 4940 4 27 0 1 4034 4 24 1 2 17 4
4048 6 1 0 7 0 18 0 1 4126 0 1 1 2 2201 0 27 0 1 4034 4
4052 26 0 0 4393 4 26 0 0 4439 4 24 1 0 4056 4 0 0 0 4671 3
4056 24 1 2 17 4 6 1 0 42 0 5 1 0 4496 4 27 0 1 4052 4
4060 26 1 1 4906 4 6 0 1 2580 4 24 1 2 17 4 5 1 1 25 0
4064 27 0 3 4068 4 25 0 1 2 0 24 1 0 4061 4 24 1 0 3849 4
4068 0 1 0 3458 4 0 0 3 0 4 0 1 2 4912 4 6 1 0 4914 4
4072 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
4076 0 1 1 3458 4 0 1 0 3458 4 0 0 3 0 4 0 0 2 18 4
4080 6 1 0 4902 4 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4
4084 23 0 2 0 256 0 1 1 3458 4 24 1 2 19 4 6 1 0 42 0
4088 5 1 0 4496 4 27 0 1 4077 4 26 1 1 4906 4 24 1 2 17 4
4092 6 1 1 25 0 5 0 1 2580 4 27 0 3 4098 4 24 1 2 19 4
4096 7 1 1 25 0 7 0 1 2580 4 25 0 1 2 0 24 1 0 4091 4
4100 0 1 0 3458 4 0 0 3 0 4 0 0 2 4942 4 6 1 0 4916 4
4104 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
4108 0 1 1 3458 4 26 0 0 4404 4 0 1 0 3458 4 0 0 3 0 4
4112 0 1 2 4918 4 6 1 0 4920 4 4 0 0 11 4 25 1 1 4096 0
4116 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4 0 1 0 3458 4
4120 0 0 3 0 4 0 0 2 4942 4 6 1 0 4922 4 4 0 0 11 4
4124 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4
4128 24 1 0 3849 4
PROCEDURE 899
4129 0 0 0 0 0 2 0 0 2578 4 0 0 3 4943 4
4132 24 0 2 4610 4 12 0 0 2578 4 2 0 1 2580 4 0 0 3 4934 4
4136 26 0 1 4129 4 26 0 0 4404 4 6 1 0 4512 4 24 1 2 19 4
4140 2 1 0 4 0 6 1 0 4498 4 24 1 2 19 4 2 1 0 6 0
4144 6 0 0 4939 4 24 1 2 19 4 2 1 0 9 0 1 1 3 3 0
4148 24 1 2 19 4 2 1 0 10 0 26 0 0 4404 4 26 0 0 4376 4
4152 0 1 0 3458 4 0 0 3 0 4 6 1 0 4898 4 4 0 0 9 4
4156 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4
4160 0 1 0 3458 4 0 0 3 0 4 6 1 0 4888 4 4 0 0 11 4
4164 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4
4168 25 1 2 0 0 2 0 0 4546 4 2 0 0 4686 4 24 1 0 3328 4
PROCEDURE 900
4172 0 0 0 0 0 0 1 0 3458 4 0 0 3 0 4 0 1 2 4894 4
4176 6 1 0 4910 4 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4
4180 23 0 2 0 256 0 0 3 3462 4 18 1 1 10 0 2 0 0 2576 4
4184 26 0 0 4404 4 26 0 0 4404 4 6 1 0 4512 4 24 1 2 19 4
4188 2 1 0 4 0 6 1 0 4498 4 24 1 2 19 4 2 1 0 6 0
4192 6 0 0 4939 4 24 1 2 19 4 2 1 0 9 0 1 1 3 2 0
4196 24 1 2 19 4 2 1 0 11 0 26 0 0 4404 4 26 0 0 4376 4
4200 0 1 0 3458 4 0 0 3 0 4 0 1 2 4912 4 6 1 0 4920 4
4204 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
4208 0 1 1 3458 4 26 0 0 3801 4 26 0 0 4439 4 24 1 0 4213 4
4212 0 0 0 4670 3 24 1 2 19 4 6 1 0 12 0 5 1 0 4924 4
4216 27 0 1 4209 4 26 0 0 4404 4 26 0 0 3801 4 26 0 0 4439 4
4220 24 1 0 4222 4 0 0 0 4670 3 24 1 2 19 4 6 1 0 42 0
4224 5 1 0 4496 4 27 0 1 4217 4 24 1 2 19 4 6 1 0 11 0
4228 2 1 0 5008 4 26 1 1 4906 4 24 1 2 19 4 6 1 1 25 0
4232 2 0 1 2580 4 25 0 1 2 0 24 1 0 4230 4 26 0 0 4404 4
4236 26 0 0 3801 4 26 0 0 4439 4 24 1 0 4240 4 0 0 0 4670 3
4240 24 1 2 19 4 6 1 0 12 0 5 1 0 4494 4 27 0 1 4235 4
PROCEDURE 901
4244 0 1 0 3458 4 0 0 3 0 4 0 1 2 4908 4 6 1 0 4896 4
4248 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
4252 0 0 3 3462 4 26 0 0 4428 4 26 0 0 4439 4 24 1 0 4257 4
4256 0 0 0 4671 3 24 1 2 19 4 6 1 0 6 0 5 1 0 4498 4
4260 27 0 1 4253 4 26 0 0 4428 4 24 1 2 19 4 6 1 0 5 0
4264 5 0 0 4944 4 27 0 1 3835 4 26 0 0 4428 4 26 0 0 4439 4
4268 24 1 0 4270 4 0 0 0 4671 3 24 1 2 19 4 6 1 0 42 0
4272 5 1 0 4496 4 27 0 1 4266 4 26 1 1 4906 4 24 1 2 19 4
4276 6 1 1 25 0 5 0 1 2580 4 27 0 3 4280 4 7 0 1 2580 4
4280 25 0 1 2 0 24 1 0 4275 4 26 0 0 4428 4 26 0 0 4439 4
4284 24 1 0 4286 4 0 0 0 4671 3 24 1 2 19 4 6 1 0 12 0
4288 5 1 0 4494 4 27 0 1 4282 4 26 1 1 4926 4 6 0 0 5000 4
4292 24 1 2 19 4 2 1 0 9 0 6 0 0 5001 4 24 1 2 19 4
4296 2 1 0 11 0 26 0 0 4404 4 26 0 0 4428 4 26 0 0 4439 4
4300 24 1 0 4302 4 0 0 0 4671 3 24 1 2 19 4 6 1 0 12 0
4304 5 1 0 4494 4 27 0 1 4297 4 25 0 1 1 0 24 1 0 4291 4
4308 26 0 0 3801 4 26 0 0 4439 4 24 1 0 4312 4 0 0 0 4670 3
4312 24 1 2 19 4 6 1 0 12 0 5 1 0 4494 4 27 0 1 4308 4
4316 24 1 2 19 4 6 1 0 5 0 1 1 2 5 0 27 0 1 4308 4
4320 26 1 1 4928 4 26 0 0 4404 4 26 0 0 3801 4 26 0 0 4439 4
4324 24 1 0 4326 4 0 0 0 4670 3 24 1 2 19 4 6 1 0 12 0
4328 5 1 0 4494 4 27 0 1 4321 4 25 0 1 1 0 24 1 0 4321 4
4332 26 0 0 4428 4 26 0 0 4439 4 24 1 0 4336 4 0 0 0 4671 3
4336 24 1 2 19 4 6 1 0 12 0 5 1 0 4494 4 27 0 1 4332 4
4340 24 1 2 19 4 6 1 0 5 0 1 1 2 10 0 27 0 1 4332 4
4344 6 0 0 5000 4 24 1 2 19 4 2 1 0 9 0 6 0 0 5001 4
4348 24 1 2 19 4 2 1 0 11 0 26 0 0 4404 4 26 0 0 4428 4
4352 26 0 0 4439 4 24 1 0 4355 4 0 0 0 4671 3 24 1 2 19 4
4356 6 1 0 4 0 5 1 0 4488 4 27 0 0 4367 4 24 1 2 19 4
4360 6 1 0 12 0 5 1 0 4494 4 27 0 1 4350 4 24 1 2 19 4
4364 6 1 0 5 0 1 1 2 13 0 27 0 1 4344 4 0 1 0 3458 4
4368 0 0 3 0 4 6 1 0 4898 4 4 0 0 10 4 25 1 1 4096 0
4372 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4 26 0 1 4172 4
PROCEDURE 902
4376 0 0 0 0 0 6 0 0 5000 4 24 1 2 19 4 2 1 0 5 0
4380 6 0 0 5001 4 24 1 2 19 4 2 1 0 7 0 1 1 3 2 0
4384 24 1 2 19 4 3 1 0 9 0 24 1 2 19 4 2 1 0 11 0
4388 6 0 0 4939 4 24 1 2 19 4 2 1 0 13 0 26 0 0 4404 4
4392 26 0 1 4376 4
PROCEDURE 903
4393 0 0 0 0 0 0 1 0 3458 4 0 0 3 0 4
4396 0 0 2 16 4 6 1 0 4902 4 4 0 0 9 4 25 1 1 4096 0
4400 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4 26 0 1 4393 4
PROCEDURE 904
4404 0 0 0 0 0 24 1 2 19 4 24 0 2 4 0 18 1 1 4123 0
4408 1 1 3 50 0 18 1 1 5 0 24 1 2 21 4 28 1 1 4 0
4412 6 1 0 4510 4 24 1 2 21 4 2 1 0 52 0 6 1 0 4900 4
4416 24 1 2 19 4 28 1 1 4 0 0 1 0 3458 4 0 0 3 0 4
4420 0 0 2 20 4 6 1 0 4890 4 4 0 0 11 4 25 1 1 4096 0
4424 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4 26 0 1 4404 4
PROCEDURE 905
4428 0 0 0 0 0 0 1 0 3458 4 0 0 3 0 4 0 0 2 18 4
4432 6 1 0 4902 4 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4
4436 23 0 2 0 256 0 1 1 3458 4 26 0 1 4428 4
PROCEDURE 906
4439 0 0 0 0 0
4440 24 1 2 19 4 6 1 0 4 0 5 1 0 4492 4 27 0 1 4456 4
4444 24 0 3 4439 4 24 1 2 1 0 6 0 0 0 0 2 0 0 4682 4
4448 0 1 0 3458 4 0 0 3 0 4 24 0 2 4672 4 25 1 1 4096 0
4452 24 0 3 0 4 23 0 2 0 1280 0 1 1 3458 4 24 1 0 3328 4
4456 26 0 1 4439 4
PROCEDURE 907
4457 0 0 0 0 0 24 1 2 19 4 6 1 0 12 0
4460 5 1 0 4494 4 27 0 1 4486 4 24 1 2 19 4 6 1 0 5 0
4464 1 1 2 4 0 5 0 0 4686 4 27 0 3 4468 4 24 1 0 4474 4
4468 26 0 0 4428 4 24 1 2 19 4 6 1 0 12 0 5 1 0 4494 4
4472 27 0 1 4468 4 24 1 0 4462 4 25 0 1 1 0 24 0 3 0 4
4476 6 0 0 2 22 24 1 2 19 4 2 1 0 5 0 6 0 0 5000 4
4480 24 1 2 19 4 2 1 0 9 0 6 0 0 5001 4 24 1 2 19 4
4484 2 1 0 11 0 26 0 0 4404 4 26 0 1 4457 4 0 0 0 0 0
SECTION 908
4488 56554 0 67695 0 15965 0 53585 0
4492 55972 0 56596 0 16773 0 53585 0
4496 36653 0 51636 0 45577 0 59655 0
4500 4630 0 30483 0 16772 0 53585 0
4504 6665 0 0 0 5.5. 0 0 0
4508 30 0 0 0 7. 0 7.000 0
4512 £6£6£ 0 6£6£6 0 45500 0 64515 0
4516 3048 0 52780 0 59 0 30303 0
4520 45500 0 72727 0 7255 0 48000 0
4524 16300 0 69595 0 3030 0 47303 0
4528 71 0 0 0 66663 0 72676 0
4532 3030 0 30483 0 25572 0 64516 0
4536 77800 0 53666 0 27243 0 67517 0
4540 30 0 0 0 30 0 0 0
4544 30 0 0 0 30 0 0 0
4548 6664 0 67730 0 35554 0 59737 0
4552 25172 0 54597 0 67472 0 73696 0
4556 85569 0 66735 0 0 0 72000 0
4560 85572 0 7 0 6566 0 0 0
4564 5965 0 0 0 95366 0 73556 0
4568 0 0 54550 0 36959 0 7 0
4572 5451 0 51630 0 0 0 73510 0
4576 95951 0 72556 0 57464 0 63006 0
4580 97200 0 52556 0 5965 0 66560 0
4584 95366 0 73556 0 6955 0 54550 0
4588 97372 0 67666 0
SECTION 909
4590 1 0 0 0
4592 Ю 0 0 0 64 0 0 0
4596 3.8 0 0 0 2710 0 0 0
4600 186Ю0 0 0 0 £4240 0 0 0
4604 89680 0 9 0 5.100 0 5£ 0
4608 Ю+Ю00 0 3‼9 0 1 0 0 0
4612 16 0 0 0 256 0 0 0
4616 4096 0 0 0 65536 0 0 0
4620 48576 0 10 0 77216 0 167 0
4624 35456 0 2684 0 67296 0 42949 0
4628 £££££ 0 £££££ 0 1 0 0 0
4632 + 0 0 0 78 0 0 0
4636 £0 0 0 0 960 0 0 0
4640 5:+0 0 0 0 3Ю980 0 0 0
4644 49£00 0 2 0 .3600 0 16 0
4648 .1+00 0 .4 0 1 0 0 0
4652 14 0 0 0 1014 0 0 0
4656 17014 0 0 0 73014 0 2 0
4660 69014 0 43 0 5014 0 699 0
4664 81014 0 11184 0 £££££ 0 £££££ 0
4668 £££££ 0 £££££ 0 20000 0 10000 0
4672 3030 0 30483 0 55577 0 746 0
4676 37355 0 67555 0 65965 0 54005 0
4680 6665 0 59720 0 0 0 510 0
4684 5.5. 0 0 0 0 0 0 0
SECTION 910
4688 0 4500 3 5 3 0 0 0 5 0 0 4502 3 21 3 0 0 1 5 0
4692 0 2580 3 16405 0 4 0 1 5 0 0 2582 3 16405 0 4 0 1 5 0
4696 0 2584 3 16389 0 4 0 0 5 0 0 4504 3 802 3 0 3 2 2 0
4700 0 2576 3 21 0 0 0 1 5 0 0 4506 3 770 3 0 3 0 2 1
4704 0 4504 3 786 3 0 3 1 2 0 0 4526 3 9234 2 2 4 1 2 0
4708 0 4528 3 1025 3 0 4 0 1 0 0 4526 3 8450 0 2 1 0 2 0
4712 0 4528 3 1025 3 0 4 0 1 0 0 4526 3 8962 0 2 3 0 2 0
4716 0 4530 3 37 3 0 0 2 5 0 0 4508 3 20501 0 5 0 1 5 1
4720 0 4532 3 37 3 0 0 2 5 0 0 4534 3 21 3 0 0 1 5 0
4724 0 4538 3 21 3 0 0 1 5 0 0 4536 3 21 3 0 0 1 5 0
4728 0 4504 3 770 3 0 3 0 2 0 0 4542 3 20501 0 5 0 1 5 0
4732 0 4506 3 770 3 0 3 0 2 1 0 4428 3 8707 0 2 2 0 3 0
4736 0 4404 3 16421 0 4 0 2 5 1 0 4540 3 12564 0 3 1 1 4 0
4740 0 4542 3 16549 0 4 0 10 5 0 0 6246 3 20581 0 5 0 6 5 0
4744 0 6247 3 20501 0 5 0 1 5 0 0 6248 3 20501 0 5 0 1 5 0
4748 0 6249 3 20501 0 5 0 1 5 0 0 6250 3 20501 0 5 0 1 5 0
4752 0 6251 3 20501 0 5 0 1 5 0 0 6252 3 20501 0 5 0 1 5 0
4756 0 6253 3 20501 0 5 0 1 5 0 0 6254 3 20501 0 5 0 1 5 0
4760 0 6255 3 20501 0 5 0 1 5 1
PROCEDURE 911
4762 0 0 0 0 0 6 1 0 4492 4
4764 24 0 3 10 4 24 1 2 64 0 2 1 0 4 0 0 1 0 3458 4
4768 0 0 3 0 4 6 1 0 4898 4 4 0 0 10 4 25 1 1 4096 0
4772 24 0 3 0 4 23 0 2 0 256 0 1 1 3458 4 26 0 1 4762 4
PROCEDURE 912
4776 0 0 0 0 0 2 0 0 4762 4 0 0 3 4943 4 24 0 2 4610 4
4780 12 0 0 4762 4 26 0 1 4776 4
PROCEDURE 913
4782 0 0 0 0 0 23 0 0 50 0
4784 0 0 0 7358 3 24 1 0 4792 4 6 1 0 4510 4 24 1 2 13 4
4788 2 1 0 306 0 26 0 0 4793 4 6 1 0 4930 4 2 1 0 7358 4
4792 26 0 1 4782 4
PROCEDURE 914
4793 0 0 0 0 0 6 1 0 4890 4 0 0 2 12 4
4796 25 1 1 4096 0 4 0 0 7 4 24 0 3 0 4 23 0 2 160 0
4800 26 0 1 4793 4
PROCEDURE 915
4801 0 0 0 0 0 6 1 1 4548 4 24 1 2 15 4
4804 2 1 0 6 0 6 1 1 4550 4 24 1 2 15 4 2 1 0 8 0
4808 26 0 0 3657 4 26 0 0 3717 4 26 0 1 4801 4
PROCEDURE 916
4811 0 0 0 0 0
4812 2 0 0 4540 4 24 0 2 4738 4 24 1 2 15 4 28 1 2 12 0
4816 24 0 2 6256 4 18 1 1 4123 0 1 1 3 10 0 18 1 1 5 0
4820 28 0 0 6246 4 26 0 1 4811 4
SECTION 917
4822 0 0 0 0
4824 0 0 0 0 0 0 0 0
4828 0 0 0 0 0 0 0 0
4832 0 0 0 0 0 0 0 0
4836 0 0 0 0 0 0 0 0
4840 0 0 0 0 0 0 0 0
4844 0 0 0 0 0 0 0 0
4848 0 0 0 0 0 0 0 0
4852 0 0 0 0 0 0 0 0
4856 0 0 0 0 0 0 0 0
4860 0 0 0 0 0 0 0 0
4864 0 0 0 0 0 0 0 0
4868 0 0 0 0 0 0 0 0
4872 0 0 0 0 0 0 0 0
4876 0 0 0 0 0 0 0 0
4880 0 0 0 0
SECTION 1033
4882 1 0 4 0
4884 1 0 3 0 0 0 2000. 0
4888 0 0 1+ 0 0 0 8 0
4892 0 0 20034 0 8000 0 5146 0
4896 0 0 11 0 0 0 1‼ 0
4900 0 0 20032 0 0 0 7 0
4904 0 0 0 0 0 0 6 0
4908 8000 0 5141 0 0 0 12 0
4912 2 0 Ю 0 0 0 23 0
4916 0 0 2+ 0 £££££ 0 2 0
4920 0 0 25 0 0 0 27 0
4924 27243 0 67517 0 1 0 5 0
4928 5 0 Ю 0 0 0 12+ 0
4932 0 0 0 0
SECTION 1034
4934 0 0 80000 0
4936 3 0 8066 0 4630 0 £££££ 0
4940 8000 0 1.001 0 1 0 66666 0
4944 8061 0 0 0
SECTION 1035
PROCEDURE 1008
CHAPT 9
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 918
33 0 1 0 2138 4 0 0 3 0 4 1 1 3 10 0
36 0 0 2 2166 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1024
40 0 1 1 2138 4 24 0 2 2106 4 3 1 0 2138 4 26 1 1 2138 4
44 24 0 2 198 4 3 1 0 2138 4 26 1 2 2138 4 24 0 2 1816 4
48 3 1 0 2138 4 26 1 3 2138 4 6 0 0 1816 4 18 0 3 2 0
52 2 0 0 189 4 6 0 0 2106 4 18 0 3 2 0 2 0 0 195 4
56 6 1 0 2152 4 2 1 0 7360 4 6 1 0 2154 4 2 1 0 7354 4
60 26 0 0 84 4 6 1 0 2156 4 24 1 2 19 4 2 1 0 12 0
64 26 0 0 67 4 26 0 0 84 4 24 1 0 3066 4
PROCEDURE 919
67 0 0 0 0 0
68 6 1 0 2158 4 24 1 2 19 4 2 1 0 52 0 0 1 0 2138 4
72 0 0 3 0 4 0 0 2 18 4 6 1 0 2160 4 4 0 0 10 4
76 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 2138 4
80 6 1 0 2162 4 24 1 2 19 4 28 1 1 4 0 26 0 1 67 4
PROCEDURE 920
84 0 0 0 0 0 24 0 3 0 4 6 0 0 4 22 2 0 0 180 4
88 24 0 1 180 4 1 1 3 0 0 2 0 0 184 4 24 1 2 19 4
92 24 0 2 0 0 3 0 0 67 4 1 1 1 48 0 18 0 1 5 0
96 4 0 0 67 4 2 1 0 7356 4 24 0 3 182 4 6 0 2 0 0
100 2 0 0 185 4 0 1 2 188 4 18 1 3 3 0 0 1 0 186 4
104 23 0 0 1 0 0 0 0 7360 3 24 1 0 115 4 6 1 0 2152 4
108 2 1 0 7360 4 24 0 3 182 4 6 0 3 1 0 18 1 3 2 0
112 2 0 0 189 4 25 0 3 1 0 24 1 0 115 4 6 0 0 186 4
116 1 1 2 6 0 27 0 0 101 4 1 1 2 1 0 27 0 1 148 4
120 0 1 2 194 4 18 1 3 6 0 0 1 0 192 4 23 0 0 1 0
124 0 0 0 7354 3 24 1 0 134 4 6 1 0 2154 4 2 1 0 7354 4
128 24 0 3 182 4 6 0 1 1 0 18 1 3 2 0 2 0 0 195 4
132 25 0 1 1 0 24 1 0 134 4 6 0 0 192 4 1 1 2 63 0
136 27 0 0 120 4 1 1 1 1 0 27 0 1 146 4 6 1 0 182 4
140 24 0 3 7356 4 2 1 0 4 0 24 0 3 7356 4 2 1 0 6 0
144 26 0 0 67 4 26 0 1 84 4 6 1 0 192 4 2 1 0 186 4
148 6 0 0 186 4 1 1 2 1 0 27 0 0 153 4 1 1 2 1 0
152 27 0 1 163 4 1 1 3 8191 0 18 1 1 4118 0 15 0 0 185 4
156 1 1 2 1816 4 27 0 3 176 4 1 0 1 31 0 1 1 3 0 0
160 15 0 0 185 4 1 1 2 2546 4 14 0 0 185 4 6 0 0 185 4
164 24 0 3 7356 4 2 1 0 7 0 6 0 0 186 4 24 0 3 7356 4
168 2 1 0 5 0 25 0 2 1 0 24 1 0 171 4 23 0 0 4 0
172 0 0 0 7356 3 24 1 0 98 4 26 0 0 67 4 24 1 0 91 4
176 1 1 1 1816 4 5 0 0 184 4 24 1 0 162 4 0 0 0 0 0
SECTION 921
180 0 0 0 0 0 0 4£000 0
184 0 0 0 0 0 0 0 0
188 0 0 0 0 0 0 0 0
192 0 0 0 0 0 0 0 0
196 0 0 0 0
PROCEDURE 922
198 24 1 0 228 4 24 1 0 262 4
200 24 1 0 626 4 24 1 0 676 4 24 1 0 762 4 1 1 3 2 0
204 2 0 0 1928 4 24 1 0 478 4 0 0 0 0 0 24 0 3 2534 4
208 6 0 0 39 0 2 0 0 502 4 24 0 2 218 4 28 1 2 2342 4
212 24 0 2 2342 4 25 1 1 4096 0 24 0 3 880 4 23 0 2 168 0
216 0 0 3 880 4 26 0 1 206 4 0 0 0 926 4 1 0 0 515 0
220 0 0 0 920 4 1 0 0 21 0 0 0 0 922 4 1 0 0 3 0
224 0 0 0 502 4 0 0 0 21 0 0 0 0 922 4 17 0 0 770 0
228 0 0 2 866 4 1 1 3 7 0 26 0 0 2276 4 24 1 2 868 4
232 6 1 0 4 0 5 1 0 924 4 27 0 0 239 4 24 1 2 868 4
236 6 1 0 12 0 5 1 0 876 4 27 0 1 228 4 0 0 2 928 4
240 1 1 3 44 0 26 0 0 2276 4 24 0 2 914 4 2 0 0 461 4
244 24 0 2 916 4 2 0 0 550 4 6 0 0 2534 4 1 1 1 39 0
248 2 0 0 912 4 24 0 2 902 4 24 1 2 868 4 28 1 2 4 0
252 26 0 0 776 4 25 1 1 4096 0 6 1 0 942 4 24 0 3 2538 4
256 28 0 0 2 0 1 1 3 15 0 3 0 0 2119 4 2 0 0 861 4
260 0 1 1 2540 4 26 0 3 2539 4
PROCEDURE 923
262 0 1 0 902 4 24 0 3 2534 4
264 0 1 0 30 0 0 0 3 880 4 6 1 0 938 4 4 0 0 2538 4
268 28 0 0 908 4 2 0 0 2119 4 1 0 1 15 0 24 0 3 880 4
272 15 0 0 172 0 1 1 2 4 0 2 0 0 907 4 24 0 3 907 4
276 6 0 0 0 0 1 1 2 1 0 2 0 0 856 4 26 0 0 818 4
280 6 0 2 0 0 5 0 0 856 4 27 0 1 318 4 6 1 2 6 0
284 27 0 0 295 4 1 1 3 0 0 1 0 1 3 0 15 0 2 4 0
288 27 0 1 292 4 1 0 1 6 0 15 0 2 5 0 27 0 1 322 4
PROCEDURE 924
292 6 0 2 4 0 1 1 2 1 0 2 0 2 4 0 1 0 1 8 0
296 15 0 2 5 0 18 0 0 4125 0 24 0 3 907 4 7 0 0 0 0
300 6 0 2 2 0 24 0 3 907 4 2 0 0 4 0 6 0 2 3 0
304 24 0 3 907 4 2 0 0 5 0 2 1 0 852 4 2 0 0 854 4
308 6 1 0 944 4 24 0 3 2538 4 28 0 0 2 0 25 1 1 4096 0
312 1 1 3 1 0 2 0 0 2119 4 24 1 0 315 4 0 1 1 902 4
316 24 0 3 880 4 26 0 3 172 0 25 0 2 18 0 24 1 0 280 4
320 26 0 0 206 4 24 1 0 634 4
PROCEDURE 925
PROCEDURE 926
322 1 1 2 16 0 14 0 2 5 0
324 6 0 0 861 4 27 0 1 327 4 26 0 0 838 4 1 1 3 15 0
328 2 0 0 861 4 1 0 1 24 0 15 0 2 4 0 18 0 0 4125 0
332 7 0 2 4 0 25 1 2 0 0 1 0 1 16 0 15 0 2 5 0
336 3 0 0 854 4 5 0 0 862 4 27 0 1 341 4 6 0 0 862 4
340 24 1 0 640 4 26 0 0 826 4 6 0 2 1 0 24 1 2 868 4
344 2 1 0 9 0 26 1 1 880 4 26 1 3 882 4 6 0 3 902 4
348 24 1 2 868 4 2 1 1 11 0 25 0 1 2 0 24 1 0 352 4
352 25 0 3 1 0 24 1 0 347 4
PROCEDURE 927
354 1 1 3 1 0 2 0 0 857 4
356 6 1 0 884 4 2 1 0 914 4 6 0 0 854 4 24 1 2 868 4
360 3 1 0 7 0 5 0 0 869 4 27 0 0 542 4 27 0 2 372 4
364 18 0 1 4124 0 1 1 1 2 0 27 0 0 369 4 1 1 1 2 0
368 27 0 1 375 4 1 1 3 1 0 2 0 0 859 4 24 1 0 375 4
372 3 0 0 860 4 5 0 0 863 4 27 0 0 542 4 24 0 1 914 4
376 6 0 2 6 0 27 0 0 463 4 27 0 2 386 4 6 0 0 914 4
380 24 0 3 2538 4 4 0 0 4 0 2 0 0 855 4 24 0 1 855 4
384 24 0 3 6 0 6 0 0 0 0 18 0 0 6 0 18 0 0 4122 0
388 3 0 0 918 4 24 1 2 868 4 3 1 0 33 0 24 0 1 914 4
392 4 0 2 7 0 18 0 0 6 0 18 0 0 4122 0 3 0 0 919 4
396 24 1 2 868 4 2 1 0 35 0 1 0 1 3 0 24 0 1 914 4
400 15 0 2 8 0 26 0 0 768 4 24 1 2 868 4 7 1 0 7 0
PROCEDURE 928
404 6 0 0 857 4 27 0 0 411 4 25 1 2 0 0 2 0 0 857 4
408 1 1 3 4096 0 24 1 2 868 4 7 1 0 7 0 6 1 0 874 4
412 24 1 2 868 4 2 1 0 4 0 6 1 0 890 4 24 1 2 868 4
416 2 1 0 36 0 26 0 0 776 4
PROCEDURE 929
418 26 0 0 788 4 6 0 0 853 4
420 27 0 1 561 4 1 1 3 20 0 2 0 0 894 4 24 0 3 918 4
424 23 0 3 0 0 5 0 0 894 4 27 0 0 434 4 7 0 0 894 4
428 6 1 0 894 4 2 1 3 4 0 2 1 3 6 0 25 0 3 4 0
432 24 1 0 434 4 26 0 0 796 4 6 1 0 886 4 4 0 0 918 4
436 24 0 3 2538 4 24 0 1 6 0 28 0 1 5 0 26 1 1 918 4
440 25 0 1 2 0 24 1 0 443 4 24 1 0 452 4 1 1 3 2 0
444 7 0 0 918 4 6 0 0 918 4 18 0 0 4124 0 27 0 1 452 4
448 25 0 3 4 0 24 1 0 423 4 26 0 0 796 4 24 1 0 423 4
PROCEDURE 930
452 25 0 3 4 0 24 1 0 454 4 26 0 0 796 4 6 0 0 919 4
456 5 0 0 775 4 27 0 0 650 4 6 0 0 852 4 27 0 1 466 4
460 23 0 0 3 0 0 0 0 914 3 24 1 0 358 4 6 0 0 2169 4
464 27 0 0 295 4 24 1 0 634 4 26 1 1 914 4 25 0 1 1 0
468 24 1 0 473 4 6 0 0 854 4 27 0 0 476 4 25 1 2 0 0
472 24 1 0 463 4 1 1 3 1 0 7 0 0 914 4 24 1 0 650 4
PROCEDURE 931
476 2 0 0 1928 4 25 1 1 4096 0 2 0 0 2119 4 6 0 0 860 4
480 27 0 1 488 4 24 0 3 880 4 6 0 0 26 0 27 0 0 488 4
484 1 1 2 1 0 27 0 1 517 4 6 0 0 859 4 27 0 1 517 4
488 6 0 0 861 4 27 0 1 491 4 26 0 0 838 4 1 1 3 28 0
492 26 0 0 2276 4 25 1 1 4096 0 6 0 0 2169 4 27 0 1 2173 4
496 6 0 0 1928 4 27 0 0 2170 4 6 0 0 2205 4 2 0 0 2180 4
500 24 1 0 2170 4 1 1 3 0 0
PROCEDURE 932
502 0 0 0 0 0 6 0 0 861 4
504 27 0 0 516 4 0 1 2 900 4 1 1 3 35 0 26 0 0 2276 4
508 1 1 3 10 0 18 0 1 5 0 24 0 3 2116 4 4 0 0 55 0
512 18 1 1 4118 0 1 1 3 36 0 26 0 0 2276 4 1 1 3 1 0
516 26 0 1 502 4 1 1 3 40 0 0 0 2 2114 4 6 0 0 2276 4
520 26 0 0 502 4 0 0 2 866 4 1 1 3 7 0 26 0 0 2276 4
524 24 1 2 868 4 6 1 0 12 0 5 1 0 898 4 27 0 1 521 4
528 6 0 0 2169 4 27 0 0 2046 4 25 1 1 4096 0 26 0 0 2283 4
532 1 1 3 40 0 0 0 2 2114 4 26 0 0 2276 4 25 1 1 4096 0
536 24 0 3 2534 4 6 0 0 9 0 24 0 3 2534 4 2 0 0 7 0
540 24 1 1 2116 4 24 1 0 2064 4
PROCEDURE 933
542 1 1 3 1 0 2 0 0 853 4
544 6 1 0 884 4 2 1 0 916 4 24 0 1 916 4 6 0 2 7 0
548 27 0 0 552 4 23 0 0 2 0 0 0 0 916 3 24 1 0 546 4
552 6 0 0 916 4 24 1 2 868 4 2 1 0 35 0 24 1 2 868 4
556 2 1 0 33 0 6 0 0 916 4 18 0 0 5 0 2 1 0 914 4
560 24 1 0 404 4
PROCEDURE 934
561 25 1 2 0 0 0 0 2 872 4 24 0 1 914 4
564 15 0 2 7 0 27 0 0 575 4 25 1 2 0 0 0 0 2 873 4
568 24 0 1 914 4 15 0 2 7 0 18 0 3 3 0 18 0 0 4124 0
572 2 1 3 7 0 0 0 2 871 4 24 1 0 581 4 1 0 1 28 0
576 24 0 1 914 4 15 0 2 7 0 18 0 0 4126 0 2 1 3 7 0
580 1 0 1 3 0 24 0 1 914 4 15 0 2 7 0 2 1 3 5 0
584 1 0 1 15 0 24 0 1 914 4 15 0 2 6 0 2 1 3 9 0
588 1 0 1 16 0 24 0 1 914 4 15 0 2 6 0 18 0 0 4124 0
592 18 0 3 1 0 26 0 0 802 4 2 1 0 916 4 6 0 0 916 4
596 4 1 3 9 0 3 1 3 11 0 3 0 0 855 4 18 0 3 3 0
600 18 0 0 4127 0 18 0 3 1 0 4 1 0 886 4 4 1 0 886 4
604 24 0 3 2538 4 24 0 1 6 0 28 0 1 13 0 24 0 3 855 4
608 23 0 3 0 0 1 1 1 64 0 18 0 0 8 0 4 1 3 6 0
612 2 1 3 6 0 26 1 1 914 4 25 0 1 2 0 24 1 0 620 4
616 6 1 0 890 4 2 1 3 20 0 26 0 0 776 4 24 1 0 295 4
620 1 1 3 2 0 7 0 0 914 4 25 0 3 16 0 24 1 0 561 4
624 26 0 0 796 4 24 1 0 561 4
PROCEDURE 935
626 1 1 3 0 0 2 0 0 2119 4
628 6 1 0 938 4 4 0 0 2538 4 28 0 0 908 4 24 0 3 880 4
632 24 0 3 2 0 24 1 1 29 0 26 0 0 826 4 25 1 2 0 0
636 2 0 0 854 4 6 0 0 864 4 3 0 0 857 4 3 0 0 858 4
640 2 0 0 852 4 6 0 0 861 4 27 0 1 646 4 26 0 0 838 4
644 1 1 3 15 0 2 0 0 861 4
PROCEDURE 936
646 1 1 3 1 0 3 0 0 914 4
648 4 0 0 2537 4 2 0 0 915 4 6 0 0 852 4 24 1 2 868 4
652 2 1 0 7 0 6 0 0 858 4 27 0 0 664 4 6 0 0 775 4
656 3 0 0 919 4 24 1 2 868 4 2 1 0 35 0 2 0 0 918 4
660 24 1 2 868 4 2 1 0 32 0 2 0 0 858 4 24 1 0 404 4
664 6 0 0 914 4 24 1 2 868 4 7 1 0 7 0 4 0 0 914 4
668 26 0 0 802 4 3 1 0 918 4 24 1 2 868 4 2 1 0 33 0
672 6 0 0 919 4 24 1 2 868 4 2 1 0 35 0 24 1 0 404 4
PROCEDURE 937
676 26 0 0 818 4 24 0 3 2534 4 6 0 0 32 0 3 0 0 852 4
680 4 0 0 852 4 4 0 0 2535 4 2 0 0 916 4 26 1 1 916 4
684 24 0 3 2534 4 6 0 0 30 0 5 0 0 2537 4 27 0 3 689 4
688 1 1 2 1 0 4 0 0 2537 4 2 0 0 853 4 1 0 1 1 0
692 15 0 2 5 0 27 0 0 703 4 5 0 0 853 4 27 0 0 710 4
696 4 0 0 853 4 5 0 0 852 4 27 0 1 701 4 5 0 2 0 0
700 2 0 2 0 0 25 0 2 18 0 24 1 0 677 4 2 1 0 852 4
704 2 0 0 854 4 2 0 0 861 4 1 1 3 0 0 26 0 0 2283 4
708 24 0 3 880 4 24 1 0 0 0
PROCEDURE 938
710 1 0 1 4 0 15 0 2 4 0
712 27 0 0 717 4 25 1 2 0 0 5 0 2 0 0 2 0 2 0 0
716 24 1 0 749 4 6 0 0 852 4 18 0 0 2 0 14 0 2 4 0
720 24 0 3 880 4 6 0 1 18 0 4 0 2 0 0 3 0 2 0 0
724 2 0 0 916 4 26 1 3 916 4 24 0 3 880 4 6 0 3 0 0
728 3 0 2 2 0 27 0 2 742 4 5 0 2 2 0 5 0 2 2 0
732 18 0 3 3 0 18 0 1 4124 0 1 1 2 64 0 27 0 0 744 4
736 1 1 2 1 0 27 0 0 744 4 1 1 2 2 0 27 0 0 744 4
740 1 1 2 3 0 27 0 0 744 4 6 0 0 867 4 24 1 0 748 4
744 1 1 3 4096 0 7 0 2 5 0 24 0 3 880 4 6 0 3 1 0
748 2 0 2 3 0 6 0 2 0 0 2 0 0 916 4 26 1 3 916 4
752 0 0 2 871 4 24 0 3 880 4 15 0 1 18 0 2 0 0 854 4
756 5 0 0 854 4 5 0 0 2536 4 4 0 0 870 4 24 0 3 880 4
760 2 0 3 0 0 24 1 0 701 4
PROCEDURE 939
762 26 0 0 502 4 26 0 0 2283 4
764 1 1 3 0 0 6 0 0 861 4 24 0 3 880 4 24 1 0 0 0
PROCEDURE 940
PROCEDURE 941
768 0 0 0 0 0 2 0 0 855 4 0 0 3 865 4 24 0 2 928 4
772 12 0 0 855 4 0 0 3 880 4 26 0 1 768 4 0 0 0 0 0
PROCEDURE 942
776 0 0 0 0 0 0 0 2 866 4 1 1 3 8 0 26 0 0 2276 4
780 6 1 0 940 4 24 1 2 868 4 28 1 1 0 0 25 1 1 4096 0
784 1 1 3 0 0 24 0 3 880 4 26 0 0 0 0 26 0 1 776 4
PROCEDURE 943
788 0 0 0 0 0 24 1 2 868 4 1 1 3 0 0 3 0 0 916 4
792 1 1 1 48 0 2 0 0 917 4 26 1 3 916 4 26 0 1 788 4
PROCEDURE 944
796 0 0 0 0 0 6 1 0 890 4 2 1 3 4 0 26 0 0 776 4
800 26 0 0 788 4 26 0 1 796 4
PROCEDURE 945
802 0 0 0 0 0 3 0 0 855 4
804 4 0 0 2535 4 2 0 0 818 4 24 0 3 880 4 6 0 0 43 0
808 18 0 1 4124 0 5 0 0 855 4 27 0 0 813 4 1 1 3 0 0
812 24 1 0 815 4 1 1 2 1500 0 18 0 1 5 0 24 0 3 818 4
816 4 1 0 18 0 26 0 1 802 4
PROCEDURE 946
818 0 0 0 0 0 1 1 3 2354 4
820 3 0 0 916 4 1 1 1 180 0 2 0 0 917 4 26 1 2 916 4
824 26 0 1 818 4 0 1 0 4097 0
PROCEDURE 947
826 0 0 0 0 0 26 1 1 884 4
828 26 1 3 892 4 6 0 3 908 4 26 0 0 768 4 24 1 2 868 4
832 2 1 1 21 0 25 0 1 2 0 24 1 0 835 4 25 0 3 1 0
836 24 1 0 829 4 26 0 1 826 4
PROCEDURE 948
838 0 0 0 0 0 0 1 2 888 4
840 1 1 3 38 0 26 0 0 2276 4 24 0 3 880 4 24 0 3 64 0
844 6 1 0 4 0 1 1 1 0 0 5 1 0 924 4 27 0 1 839 4
848 0 0 2 929 4 1 1 3 44 0 26 0 0 2276 4 26 0 1 838 4
SECTION 949
852 0 0 0 0 0 0 0 0
856 0 0 0 0 0 0 0 0
860 0 0 0 0
SECTION 950
862 50000 0 30000 0
864 Ю0000 0 66666 0 3‼ 0 98000- 0
868 7‼- 0 60000 0 Ю0000- 0 1£££ 0
872 80000 0 7.000 0
SECTION 951
874 46772 0 54746 0
876 16973 0 72735 0 £6£6£ 0 6£6£6 0
880 0 0 Ю 0 0 0 5 0
884 0 0 + 0 0 0 2 0
888 £££££ 0 2 0 7. 0 7.000 0
892 0 0 6 0 0 0 77770 0
896 £££££ 0 4 0 96773 0 53585 0
900 £££££ 0 Ю 0
PROCEDURE 952
902 0 0 0 825 4 0 0 0 5 0
904 0 0 0 175 0 0 0 0 5 0 0 0 0 156 0 0 0 0 5 0
908 0 0 0 878 4 1 0 0 5 0 0 0 0 918 4 1 0 0 5 0
912 0 0 0 0 0 0 0 0 5 0 0 0 0 49 0 0 0 0 5 0
916 0 0 0 890 4 17 0 0 5 0 1 0 3 2419 0 7 0 1 1845 0
SECTION 953
920 16554 0 51525 0 25.5. 0 66657 0
924 55972 0 56596 0 77372 0 666 0
SECTION 954
928 1 0 0 0 16 0 0 0
932 256 0 0 0 4096 0 0 0
936 65536 0 0 0
SECTION 955
938 2 0 6 0
940 0 0 20036 0 0 0 20006 0
PROCEDURE 956
944 0 0 0 908 4 0 0 0 6 0
PROCEDURE 957
946 1 0 1 3 0 1 1 3 2 0
948 7 0 0 951 4 24 0 3 1672 4 24 0 3 3 0 6 0 0 30 0
952 14 0 0 1576 4 18 1 0 4124 0 1 1 2 4 0 27 0 0 958 4
956 1 1 2 5 0 27 0 1 946 4 24 0 2 2342 4 4 0 0 975 4
960 24 0 3 1576 4 2 0 0 64 0 1 1 2 64 0 5 0 0 1576 4
964 2 0 0 1577 4 24 0 2 1178 4 2 0 0 1297 4 24 0 2 1588 4
968 2 0 0 1367 4 24 0 2 1590 4 2 0 0 1371 4 6 0 0 1576 4
972 24 0 3 1672 4 2 0 0 26 0 24 1 0 1164 4 14 0 0 0 0
SECTION 958
976 0 0 0 0 0 0 0 0
980 0 0 0 0 0 0 0 0
984 0 0 0 0 0 0 0 0
988 0 0 0 0 0 0 0 0
992 0 0 0 0 0 0 0 0
996 0 0 0 0 0 0 0 0
1000 0 0 0 0 0 0 0 0
1004 0 0 0 0 0 0 0 0
1008 0 0 0 0 0 0 0 0
1012 0 0 0 0 0 0 0 0
1016 0 0 0 0 0 0 0 0
1020 0 0 0 0 0 0 0 0
1024 0 0 0 0 0 0 0 0
1028 0 0 0 0 0 0 0 0
1032 0 0 0 0 0 0 0 0
1036 0 0 0 0 0 0 0 0
1040 0 0 0 0
SECTION 959
1042 0 0 0 0
1044 0 0 0 0 0 0 0 0
1048 0 0 0 0 0 0 0 0
1052 0 0 0 0 0 0 0 0
1056 0 0 0 0 0 0 0 0
1060 0 0 0 0 0 0 0 0
1064 0 0 0 0 0 0 0 0
1068 0 0 0 0 0 0 0 0
1072 0 0 0 0 0 0 0 0
1076 0 0 0 0 0 0 0 0
1080 0 0 0 0 0 0 0 0
1084 0 0 0 0 0 0 0 0
1088 0 0 0 0 0 0 0 0
1092 0 0 0 0 0 0 0 0
1096 0 0 0 0 0 0 0 0
1100 0 0 0 0 0 0 0 0
1104 0 0 0 0 0 0 0 0
1108 0 0 0 0 0 0 0 0
1112 0 0 0 0 0 0 0 0
1116 0 0 0 0 0 0 0 0
1120 0 0 0 0 0 0 0 0
1124 0 0 0 0 0 0 0 0
1128 0 0 0 0 0 0 0 0
PROCEDURE 960
1132 0 0 0 1632 4 1 0 0 229 0 0 0 0 1634 4 1 0 0 19 0
1136 0 0 0 1634 4 1 0 0 786 0 0 0 0 1640 4 1 0 0 21 0
1140 0 0 0 1634 4 1 0 0 786 0 0 0 0 1592 4 0 0 0 21 0
1144 0 0 0 1642 4 1 0 0 21 0 0 0 0 1644 4 1 0 0 18 0
1148 0 0 0 1590 4 2 0 0 5154 0 0 0 0 1590 4 2 0 0 5650 0
1152 0 0 0 1590 4 2 0 0 2066 0 0 0 0 1644 4 1 0 0 786 0
1156 0 0 0 1589 4 0 0 0 4130 0 0 0 0 1589 4 0 0 0 4626 0
1160 0 0 0 1650 4 17 0 0 1089 0 0 0 0 0 0 2 0 0 36 0
PROCEDURE 961
PROCEDURE 962
1164 0 1 2 1588 4 1 1 3 38 0 26 0 0 2276 4 0 0 2 1678 4
1168 1 1 3 7 0 26 0 0 2276 4 24 1 2 1675 4 6 1 0 12 0
1172 5 1 0 1590 4 27 0 1 1164 4 1 1 2 20 0 26 0 0 1510 4
1176 28 1 0 1587 4 24 0 3 1672 4 6 1 0 138 0 2 1 0 1590 4
1180 24 0 3 1672 4 6 0 0 25 0 27 0 1 1185 4 2 0 0 1589 4
1184 2 0 0 1644 4 24 1 0 1188 4 24 1 2 1577 4 28 1 1 0 0
1188 1 1 3 10 0 26 0 0 1548 4 6 1 0 1162 4 28 1 1 2046 4
1192 24 0 2 1132 4 26 0 0 1518 4
PROCEDURE 963
1194 0 0 2 1678 4 1 1 3 7 0
1196 26 0 0 2276 4 24 1 2 1675 4 6 1 0 4 0 5 1 0 1640 4
1200 27 0 0 1216 4 4 1 0 1640 4 5 1 0 1648 4 27 0 1 1276 4
1204 24 0 2 1680 4 26 0 0 1518 4 1 1 3 20 0 26 0 0 1548 4
1208 1 1 3 27 0 26 0 0 2276 4 25 1 1 4096 0 6 0 0 1928 4
1212 27 0 0 2170 4 6 0 0 2205 4 2 0 0 2180 4 24 1 0 2170 4
PROCEDURE 964
1216 6 0 0 1497 4 2 0 0 1276 4 26 0 0 1510 4 28 1 0 2317 4
1220 6 0 0 2318 4 18 1 0 4124 0 2 0 0 1674 4 18 1 0 1 0
1224 27 0 0 1238 4 6 0 0 1674 4 1 1 2 6 0 27 0 0 1230 4
1228 6 0 0 2331 4 27 0 0 1268 4 24 0 2 1682 4 26 0 0 1518 4
1232 24 0 2 1684 4 26 0 0 1518 4 24 0 2 1700 4 26 0 0 1518 4
1236 24 0 2 1718 4 26 0 0 1518 4 6 0 0 1674 4 1 1 2 3 0
1240 27 0 3 1250 4 1 1 2 2 0 27 0 3 1254 4 1 1 2 2 0
1244 27 0 3 1261 4 1 1 2 3 0 27 0 0 1250 4 6 0 0 1249 4
1248 2 0 0 1276 4 24 1 0 1194 4 6 1 0 1624 4 2 1 0 1632 4
1252 6 1 0 1626 4 24 1 0 1258 4 6 1 0 1628 4 2 1 0 1632 4
1256 2 0 0 1180 4 6 1 0 1630 4 2 1 0 1634 4 24 0 2 1738 4
1260 26 0 0 1518 4 6 0 0 2332 4 18 0 0 5 0 4 0 0 2331 4
1264 3 1 0 1178 4 2 1 0 1588 4 2 0 0 1587 4 24 1 0 1194 4
1268 2 0 0 1642 4 24 0 2 1748 4 26 0 0 1518 4 24 0 2 1718 4
1272 26 0 0 1518 4 24 0 2 1758 4 26 0 0 1518 4 24 1 0 1261 4
PROCEDURE 965
1276 1 1 3 16 0 26 0 0 1510 4 28 1 0 2317 4 6 1 0 1672 4
1280 2 1 0 1590 4 6 0 0 1674 4 1 1 2 6 0 27 0 1 1300 4
1284 2 0 0 1584 4 24 0 1 1590 4 24 0 2 2321 4 26 0 0 1484 4
1288 24 0 1 1590 4 24 0 2 2317 4 4 1 0 1578 4 28 0 0 1585 4
1292 2 1 0 1604 4 26 0 0 1404 4 1 1 3 6 0 7 0 0 1590 4
1296 23 0 0 2 0 0 0 0 1178 3 24 1 0 1370 4 24 1 0 1194 4
PROCEDURE 966
1300 6 0 0 1198 4 4 0 0 1590 4 4 0 0 1590 4 2 0 0 1305 4
1304 24 1 2 1675 4 6 1 0 0 0 5 1 0 1666 4 27 0 3 1312 4
1308 18 0 0 4 0 3 0 0 1586 4 2 0 0 1645 4 24 1 0 1370 4
1312 1 1 3 0 0 2 0 0 1584 4 24 0 1 1590 4 24 0 2 2317 4
1316 26 0 0 1484 4 1 1 3 0 0 24 0 3 1672 4 26 0 0 0 0
1320 1 1 3 2 0 2 0 0 1584 4 6 0 0 1588 4 26 0 0 1484 4
1324 6 1 0 1598 4 5 1 0 1600 4 27 0 1 1330 4 6 1 0 1596 4
1328 5 1 0 1594 4 27 0 0 1343 4 6 0 0 1642 4 27 0 0 1342 4
1332 6 0 0 1588 4 24 0 3 1672 4 5 0 0 3 0 27 0 3 1338 4
1336 1 1 2 204 0 27 0 3 1342 4 24 0 2 1594 4 4 1 0 1602 4
1340 24 0 3 1588 4 28 0 0 0 0 1 1 3 1 0 2 0 0 1593 4
1344 23 0 2 1345 4 0 0 0 0 0
PROCEDURE 967
1346 6 0 0 1674 4 1 1 2 5 0
1348 27 0 0 1364 4 1 1 1 1 0 27 0 0 1374 4 1 1 1 2 0
1352 27 0 0 1374 4 6 0 0 1645 4 27 0 1 1359 4 6 1 0 1594 4
1356 27 0 1 1359 4 6 1 0 1598 4 27 0 0 1362 4 1 1 3 0 0
1360 2 1 0 1604 4 26 0 0 1392 4 1 1 3 0 0 2 0 0 1645 4
1364 1 1 3 2 0 7 0 0 1587 4 23 0 0 2 0 0 0 0 1588 3
1368 24 1 0 1370 4 24 1 0 1194 4 23 0 0 2 0 0 0 0 1590 3
1372 24 1 0 1281 4 24 1 0 1194 4
PROCEDURE 968
1374 6 0 0 1593 4 27 0 0 1364 4
1376 6 1 0 1596 4 27 0 1 1380 4 6 1 0 1600 4 27 0 0 1355 4
1380 6 1 0 1606 4 2 1 0 1604 4 26 0 0 1392 4 24 1 0 1355 4
PROCEDURE 969
1384 0 0 0 0 0 0 1 0 1182 4 0 0 3 1677 4 24 0 2 1608 4
1388 12 0 0 1182 4 2 1 0 1182 4 0 1 1 1182 4 26 0 1 1384 4
PROCEDURE 970
1392 0 0 0 0 0 1 0 1 31 0 6 0 0 1588 4 18 1 3 3 0
1396 18 1 0 4124 0 14 0 0 1586 4 1 1 3 0 0 18 1 3 13 0
1400 2 0 0 1585 4 26 0 0 1404 4 26 0 1 1392 4 2 0 0 1164 4
PROCEDURE 971
1404 0 0 0 0 0 24 0 1 1605 4 24 0 2 1594 4 4 1 0 1602 4
1408 28 0 0 1596 4 24 0 1 1605 4 6 1 0 1598 4 2 1 0 1600 4
1412 1 0 1 15 0 15 0 0 1586 4 26 0 0 1466 4 6 0 0 1585 4
1416 26 0 0 1384 4 2 0 0 1585 4 0 1 2 1596 4 26 0 0 1470 4
1420 6 0 0 1600 4 2 0 0 1601 4 26 0 0 1470 4 6 1 0 1596 4
1424 2 1 0 1634 4 2 1 0 1600 4 0 0 2 1483 4 15 1 0 1634 4
1428 2 1 0 1632 4 15 1 0 1668 4 5 1 0 1632 4 27 0 0 1434 4
1432 1 1 3 0 0 24 1 0 1436 4 6 1 0 1622 4 24 1 0 1440 4
1436 15 1 0 1670 4 5 1 0 1632 4 27 0 1 1443 4 6 1 0 1620 4
1440 14 1 0 1634 4 6 1 0 1618 4 14 1 0 1600 4 18 1 0 2 0
1444 1 1 3 0 0 27 1 1 1427 4 6 0 0 1586 4 18 0 0 4124 0
1448 26 0 0 1466 4 6 0 0 1587 4 26 0 0 1466 4 24 0 2 1766 4
1452 26 0 0 1518 4 6 1 0 1600 4 27 0 0 1457 4 24 0 2 1802 4
1456 26 0 0 1518 4 6 0 0 1403 4 2 0 0 1461 4 26 0 1 1404 4
PROCEDURE 972
1460 0 0 0 0 0 2 0 0 1164 4 1 1 3 1 0 7 0 0 1461 4
1464 1 1 3 0 0 26 0 1 1460 4
PROCEDURE 973
1466 0 0 0 0 0 26 0 0 1384 4
1468 26 0 0 1460 4 26 0 1 1466 4
PROCEDURE 974
1470 0 0 0 0 0 1 1 3 0 0
1472 18 1 0 1 0 4 0 0 1601 4 26 0 0 1466 4 18 1 3 1 0
1476 26 0 0 1460 4 18 1 3 2 0 26 0 0 1460 4 18 1 3 1 0
1480 18 1 0 3 0 26 0 0 1466 4 26 0 1 1470 4 0 0 0 63 0
PROCEDURE 975
1484 0 0 0 0 0 4 1 0 1602 4 24 0 0 1584 4 28 0 0 1594 4
1488 24 0 1 1584 4 24 0 2 1594 4 4 1 0 1580 4 18 0 0 0 0
1492 28 0 0 1643 4 0 1 1 1642 4 27 0 3 1497 4 1 1 3 0 0
1496 24 1 0 1498 4 1 1 3 16 0 24 0 1 1584 4 2 0 0 1598 4
1500 24 0 1 1584 4 0 1 1 1594 4 27 0 3 1505 4 1 1 3 0 0
1504 24 1 0 1506 4 1 1 3 16 0 24 0 0 1584 4 2 0 0 1599 4
1508 0 0 3 1672 4 26 0 1 1484 4
PROCEDURE 976
1510 0 0 0 0 0 1 1 1 32 0
1512 18 0 0 5 0 1 1 1 5 0 24 0 3 1672 4 4 0 0 123 0
1516 26 0 1 1510 4 1 1 3 0 0
PROCEDURE 977
1518 0 0 0 0 0 28 1 2 2056 4
1520 24 0 2 1814 4 28 1 2 2048 4 2 1 0 2046 4 1 0 1 1 0
1524 24 0 3 1672 4 15 0 0 27 0 1 1 2 4 0 27 0 0 1540 4
1528 24 0 2 2046 4 4 1 0 1582 4 24 1 2 1577 4 28 1 1 0 0
1532 6 0 0 1576 4 18 1 1 4123 0 6 0 0 1576 4 18 1 1 4123 0
1536 26 0 0 1548 4 23 0 2 1556 4 1 1 3 0 0 26 0 1 1518 4
1540 1 1 3 8 0 18 0 1 4 0 2 0 0 2047 4 24 0 2 2046 4
1544 24 1 2 1577 4 29 0 1 0 0 1 1 3 0 0 24 1 0 1532 4
PROCEDURE 978
1548 0 0 0 0 0 18 0 0 5 0 24 0 3 1672 4 4 1 0 26 0
1552 25 1 1 4096 0 24 0 3 1672 4 23 0 2 160 0 26 0 1 1548 4
PROCEDURE 979
1556 0 0 0 0 0 25 1 1 4096 0 24 1 1 1672 4 6 0 0 1576 4
1560 24 0 3 1672 4 2 0 1 30 0 6 0 0 1575 4 5 0 0 1576 4
1564 24 0 3 1672 4 2 0 1 7 0 24 0 3 1672 4 2 0 1 45 0
1568 24 0 2 1571 4 24 0 3 1672 4 24 1 0 174 0 24 0 3 1672 4
1572 24 0 3 2 0 24 1 1 29 0 26 0 3 1556 4 26 1 0 0 0
1576 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0
1580 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 48 0
SECTION 980
1584 0 0 0 0 0 0 0 0
1588 £££££ 0 Ю 0 16973 0 72735 0
1592 0 0 0 0 0 0 0 0
1596 0 0 0 0 0 0 0 0
1600 0 0 0 0 0 0 2 0
1604 0 0 0 0 5‼ 0 2 0
1608 1 0 0 0 16 0 0 0
1612 256 0 0 0 4096 0 0 0
1616 65536 0 0 0
SECTION 981
1618 ‼5‼5‼ 0 5‼5‼5 0
1620 36363 0 63636 0 25252 0 52525 0
1624 16773 0 53585 0 0 0 55690 0
1628 37359 0 72555 0 0 0 66650 0
1632 96573 0 67695 0 36656 0 66747 0
1636 96573 0 67665 0 40052 0 67006 0
1640 46772 0 54746 0 25565 0 73516 0
1644 5173 0 66650 0 65764 0 67696 0
1648 55972 0 56596 0 7557. 0 73786 0
1652 55163 0 56596 0 27355 0 64517 0
1656 96674 0 69006 0 10000 0 64694 0
1660 20000 0 64694 0 30000 0 64694 0
1664 55500 0 73596 0 0 0 77770 0
1668 .7.7. 0 7.7.7 0 .5.5. 0 5.5.5 0
SECTION 982
1672 0 0 18 0 0 0 7‼- 0
1676 3: 0 66666 0 3‼ 0 0 0
PROCEDURE 983
1680 0 0 0 1648 4 1 0 0 5 0 0 0 0 1650 4 17 0 0 1029 0
PROCEDURE 984
1684 0 0 0 1646 4 1 0 0 245 0 0 0 0 1592 4 0 0 0 21 0
1688 0 0 0 1638 4 1 0 0 68 0 0 0 0 1636 4 1 0 0 5 0
1692 8 0 0 2319 4 0 0 0 53 0 0 0 0 1650 4 1 0 0 68 0
1696 0 0 0 1674 4 0 0 0 1041 0 0 0 0 1650 4 17 0 0 1057 0
1700 0 0 0 1624 4 1 0 0 753 0 8 0 0 2321 4 0 0 0 53 0
1704 8 0 0 2320 4 6 0 0 1285 0 0 0 0 1638 4 1 0 0 1089 0
1708 8 0 0 2323 4 0 0 0 53 0 8 0 0 2322 4 6 0 0 1285 0
1712 0 0 0 1624 4 1 0 0 65 0 8 0 0 2324 4 4 0 0 53 0
1716 0 0 0 1650 4 17 0 0 1089 0 0 0 0 1658 4 1 0 0 243 0
1720 8 0 0 2326 4 4 0 0 21 0 8 0 0 2325 4 4 0 0 5 0
1724 0 0 0 1660 4 1 0 0 67 0 8 0 0 2328 4 4 0 0 21 0
1728 8 0 0 2327 4 4 0 0 5 0 0 0 0 1662 4 1 0 0 67 0
1732 8 0 0 2330 4 4 0 0 21 0 8 0 0 2329 4 4 0 0 5 0
1736 0 0 0 1650 4 17 0 0 1073 0
PROCEDURE 985
1738 0 0 0 1592 4 0 0 0 245 0
1740 0 0 0 1632 4 1 0 0 37 0 0 0 0 1634 4 1 0 0 5 0
1744 8 0 0 2318 4 0 0 0 4866 0 0 0 0 1650 4 17 0 0 1025 0
1748 0 0 0 1646 4 1 0 0 245 0 0 0 0 1592 4 0 0 0 21 0
1752 0 0 0 1652 4 1 0 0 37 0 0 0 0 1640 4 1 0 0 20 0
1756 0 0 0 1650 4 17 0 0 1041 0 0 0 0 1654 4 1 0 0 245 0
1760 0 0 0 1656 4 1 0 0 5 0 0 0 0 1664 4 1 0 0 5 0
1764 0 0 0 1650 4 17 0 0 1089 0
PROCEDURE 986
1766 0 0 0 1604 4 1 0 0 1025 0
1768 0 0 0 1164 4 0 0 1 515 0 0 0 0 1585 4 0 0 2 5 0
1772 0 0 0 1174 4 0 0 2 21 0 0 0 0 1588 4 0 0 0 4117 0
1776 0 0 0 1169 4 0 0 1 531 0 0 0 0 1170 4 0 0 0 1041 0
1780 0 0 0 1171 4 0 0 0 1041 0 0 0 0 1172 4 0 0 2 21 0
1784 0 0 0 1165 4 0 0 1 531 0 0 0 0 1166 4 0 0 0 1041 0
1788 0 0 0 1167 4 0 0 0 1041 0 0 0 0 1168 4 0 0 2 21 0
1792 0 0 0 1596 4 4 0 2 69 0 0 0 0 1597 4 4 0 2 37 0
1796 0 0 0 1634 4 1 0 0 37 0 0 0 0 1173 4 0 0 0 4882 0
1800 0 0 0 1668 4 17 0 0 5 0 0 0 0 1672 4 0 0 2 4341 0
1804 0 0 0 1672 4 0 0 2 4341 0 0 0 0 1672 4 0 0 2 4341 0
1808 0 0 0 1672 4 0 0 2 4117 0 0 0 0 1600 4 1 0 0 53 0
1812 0 0 0 1668 4 17 0 0 5 0 0 0 0 1672 4 16 0 2 4341 0
SECTION 987
1816 9248 0 9041 0 9208 0 9410 0
1820 10410 0 8241 0 9049 0 1:‼6 0
1824 31249 0 1246 0 8240 0 9249 0
1828 1249 0 1036 0 9009 0 1208 0
1832 3‼6 0 36:‼6 0 200 0 40 0
1836 8041 0 9206 0 1248 0 1246 0
1840 1241 0 0 0 1249 0 8209 0
1844 9008 0 8249 0 8248 0 1041 0
1848 9248 0 9241 0 8001 0 8200 0
1852 9008 0 9048 0 8209 0 1209 0
1856 9048 0 9240 0 1249 0 209 0
1860 1208 0 93‼6 0 1249 0 9049 0
1864 93‼6 0 30248 0 8248 0 938‼ 0
1868 8249 0 9041 0 9249 0 6+09 0
1872 8201 0 18076 0 1049 0 83‼6 0
1876 8249 0 1048 0 8209 0 6:‼6 0
1880 9241 0 1248 0 8209 0 1208 0
1884 9000 0 9040 0 200 0 8008 0
1888 248 0 1001 0 9008 0 8 0
1892 9048 0 8248 0 9248 0 1049 0
1896 .:‼6 0 9241 0 1249 0 1249 0
1900 1209 0 9049 0 8241 0 9049 0
1904 9209 0 1380 0 9249 0 71 0
SECTION 988
1908 904£ 0 200 0 9008 0 248 0
1912 1000 0 1041 0 1240 0 8009 0
1916 9049 0 9049 0 13+1 0 924£ 0
1920 1049 0 79 0 11‼6 0 8248 0
1924 8248 0 9258 0 9040 0 8236 0
1928 9049 0 6:‼6 0 1249 0 209 0
1932 104£ 0 248 0 9000 0 0 0
1936 0 0 0 0 0 0 0 0
1940 0 0 0 0 10 0 10 0
1944 10018 0 10000 0 0 0 0 0
1948 0 0 10 0 3.:‼6 0 36:‼6 0
SECTION 989
1952 240 0 8041 0 9206 0 9249 0
1956 9259 0 6:‼6 0 0 0 0 0
1960 0 0 0 0 0 0 0 0
1964 0 0 0 0 0 0 0 0
1968 0 0 0 0 0 0 0 0
1972 0 0 0 0 0 0 0 0
1976 0 0 0 0 0 0 0 0
1980 0 0 0 0 0 0 0 0
1984 10410 0 10410 0 10410 0 10410 0
1988 10410 0 209 0 1209 0 1241 0
1992 ‼249 0 8049 0 9:‼6 0 8241 0
1996 9249 0 1041 0 9271 0 36:‼6 0
2000 9276 0 1048 0 9249 0 9249 0
2004 1041 0 1249 0 9249 0 9248 0
2008 9:‼6 0 9249 0 9248 0 9248 0
2012 9249 0 9+49 0 1049 0 9248 0
2016 9049 0 1248 0 £049 0 9249 0
2020 9241 0 1248 0 1208 0 8209 0
2024 9248 0 9041 0 1241 0 9249 0
2028 9249 0 1249 0 9008 0 1009 0
2032 9:‼6 0 30:89 0 9248 0 9249 0
2036 9249 0 9249 0 83‼1 0 9249 0
2040 9009 0 1249 0 9249 0 8208 0
2044 8248 0 241 0 1009 0 6:‼6 0
2048 1249 0 8248 0
SECTION 990
2050 8249 0 8209 0
2052 9000 0 8201 0 920‼ 0 13‼6 0
2056 9041 0 1208 0 1240 0 8076 0
2060 18208 0 1241 0 9041 0 8201 0
2064 0 0 1‼6 0 0 0 0 0
2068 0 0 0 0 0 0 0 0
2072 0 0 0 0 0 0 0 0
2076 0 0 0 0
SECTION 991
2078 0 0 0 0
2080 0 0 0 0 10410 0 10410 0
2084 10410 0 10410 0 10410 0 10410 0
2088 10410 0 10410 0 10410 0 10410 0
2092 10410 0 10410 0 10410 0 10410 0
2096 10410 0 10410 0 10410 0 10410 0
2100 10410 0 10410 0 10410 0 10410 0
2104 1043. 0 0 0
SECTION 992
2106 28‼71 0 2Ю63. 0
2108 2Ю£‼£ 0 0 0
SECTION 993
2110 0 0 0 0
2112 0 0 0 0 0 0 0 0
2116 0 0 0 0 0 0 0 0
2120 0 0 0 0 0 0 0 0
2124 0 0 0 0 0 0 0 0
2128 0 0 0 0 0 0 0 0
2132 0 0 0 0 0 0 0 0
2136 0 0 0 0
SECTION 1036
2138 1 0 4 0
2140 1 0 3 0 0 0 2000. 0
2144 0 0 1+ 0 0 0 8 0
2148 0 0 20034 0 8000 0 5146 0
2152 0 0 6 0 0 0 3 0
2156 96773 0 53585 0 7. 0 7.000 0
2160 0 0 8 0 0 0 20032 0
2164 8000 0 5141 0
SECTION 1037
2166 2 0 80000 0
2168 3 0 8066 0
SECTION 1038
PROCEDURE 1009
CHAPT 10
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 994
33 0 0 0 0 0
SECTION 1039
34 1 0 4 0
36 1 0 3 0 0 0 2000. 0
40 0 0 1+ 0 0 0 8 0
44 0 0 20034 0 8000 0 5146 0
48 0 0 6 0
SECTION 1040
SECTION 1041
PROCEDURE 1010
CHAPT 11
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 995
33 0 0 0 0 0
SECTION 1042
34 1 0 4 0
36 1 0 3 0 0 0 2000. 0
40 0 0 1+ 0 0 0 8 0
44 0 0 20034 0 8000 0 5146 0
48 0 0 6 0
SECTION 1043
SECTION 1044
PROCEDURE 1011
INTERCODE TRIAL DATA SERIAL NUMBERS OF INTERCODE REPORTS
PT OMITTED NO NO
DISASTROUS 0 0
OTHERS 0 0
MADE BY 08000 ISSUE 8 SERIAL 08011 ON 31/ 8/15 SPOOL 8099