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